X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=dh_link;h=db4aea81f33318650d34d24e8be3d3a6cbb72740;hb=18a0da8092ea9f3dc48bca92b36f592af25a608d;hp=8e66d671d3e75c0200d3580729fb9253598bd3d4;hpb=d1f803bc312f356ac639c06958f5009acf4114d2;p=debhelper.git diff --git a/dh_link b/dh_link index 8e66d67..db4aea8 100755 --- a/dh_link +++ b/dh_link @@ -12,38 +12,43 @@ use Debian::Debhelper::Dh_Lib; =head1 SYNOPSIS -B [S>] [B<-A>] [S>] +B [S>] [B<-A>] [B<-X>I] [S ...>] =head1 DESCRIPTION -dh_link is a debhelper program that creates symlinks in package build +B is a debhelper program that creates symlinks in package build directories. -dh_link accepts a list of pairs of source and destination files. The source +B accepts a list of pairs of source and destination files. The source files are the already existing files that will be symlinked from. The destination files are the symlinks that will be created. There B be an equal number of source and destination files specified. -The list can be specified in two ways. A file named debian/package.links -can list pairs of files. If you use this file, you should put each pair -of files on its own line, and separate the files within the pair with -whitespace. Also, pairs of files can be specified as parameters - these -pairs will only be created in the package build directory of the first -package dh_link is told to act on. By default, this is the first binary -package in debian/control, but if you use -p, -i, or -a flags, it will be -the first package specified by those flags. - Be sure you B specify the full filename to both the source and destination files (unlike you would do if you were using something like L). -dh_link will generate symlinks that comply with debian policy - absolute +B will generate symlinks that comply with Debian policy - absolute when policy says they should be absolute, and relative links with as short a path as possible. It will also create any subdirectories it needs to to put the symlinks in. -dh_link also scans the package build tree for existing symlinks which do not -conform to debian policy, and corrects them (v4 only). +Any pre-existing destination files will be replaced with symlinks. + +B also scans the package build tree for existing symlinks which do not +conform to Debian policy, and corrects them (v4 or later). + +=head1 FILES + +=over 4 + +=item debian/I.links + +Lists pairs of source and destination files to be symlinked. Each pair +should be put on its own line, with the source and destination separated by +whitespace. + +=back =head1 OPTIONS @@ -54,11 +59,16 @@ conform to debian policy, and corrects them (v4 only). Create any links specified by command line parameters in ALL packages acted on, not just the first. -=item I +=item B<-X>I, B<--exclude=>I + +Exclude symlinks that contain I anywhere in their filename from +being corrected to comply with Debian policy. -Create a file named "destination" as a link to a file named "source". Do +=item I ... + +Create a file named I as a link to a file named I. Do this in the package build directory of the first package acted on. -(Or in all packages if -A is specified.) +(Or in all packages if B<-A> is specified.) =back @@ -66,16 +76,52 @@ this in the package build directory of the first package acted on. dh_link usr/share/man/man1/foo.1 usr/share/man/man1/bar.1 -Make bar.1 be a symlink to foo.1 +Make F be a symlink to F dh_link var/lib/foo usr/lib/foo \ - usr/X11R6/man/man1/foo.1x usr/share/man/man1/bar.1 + usr/share/man/man1/foo.1 usr/share/man/man1/bar.1 -Make /usr/lib/foo/ be a link to /var/lib/foo/, and bar.1 be a symlink to -the X man page foo.1x +Make F be a link to F, and F be a symlink to +the F =cut +# This expand_path expands all path "." and ".." components, but doesn't +# resolve symbolic links. +sub expand_path { + my $start = @_ ? shift : '.'; + my @pathname = split(m:/+:,$start); + + my $entry; + my @respath; + foreach $entry (@pathname) { + if ($entry eq '.' || $entry eq '') { + # Do nothing + } + elsif ($entry eq '..') { + if ($#respath == -1) { + # Do nothing + } + else { + pop @respath; + } + } + else { + push @respath, $entry; + } + } + + my $result; + foreach $entry (@respath) { + $result .= '/' . $entry; + } + if (! defined $result) { + $result="/"; # special case + } + return $result; +} + + init(); foreach my $package (@{$dh{DOPACKAGES}}) { @@ -102,13 +148,14 @@ foreach my $package (@{$dh{DOPACKAGES}}) { error("parameters list a link without a destination."); } - # v4 only and only if there is a temp dir already + # v4 or later and only if there is a temp dir already if (! compat(3) && -e $tmp) { # Scan for existing links and add them to @links, so they # are recreated policy conformant. find( sub { return unless -l; + return if excludefile($_); my $dir=$File::Find::dir; $dir=~s/^\Q$tmp\E//; my $target = readlink($_); @@ -126,11 +173,15 @@ foreach my $package (@{$dh{DOPACKAGES}}) { while (@links) { my $dest=pop @links; - my $src=pop @links; + my $src=expand_path(pop @links); - # Relavatize src and dest. $src=~s:^/::; $dest=~s:^/::; + + if ($src eq $dest) { + warning("skipping link from $src to self"); + next; + } # Make sure the directory the link will be in exists. my $basedir=dirname("$tmp/$dest"); @@ -143,11 +194,11 @@ foreach my $package (@{$dh{DOPACKAGES}}) { # top level directories, leave it absolute. my @src_dirs=split(m:/+:,$src); my @dest_dirs=split(m:/+:,$dest); - if ($src_dirs[0] eq $dest_dirs[0]) { + if (@src_dirs > 0 && $src_dirs[0] eq $dest_dirs[0]) { # Figure out how much of a path $src and $dest # share in common. my $x; - for ($x=0; $x<$#src_dirs && $src_dirs[$x] eq $dest_dirs[$x]; $x++) {} + for ($x=0; $x < @src_dirs && $src_dirs[$x] eq $dest_dirs[$x]; $x++) {} # Build up the new src. $src=""; for (1..$#dest_dirs - $x) { @@ -156,13 +207,19 @@ foreach my $package (@{$dh{DOPACKAGES}}) { for ($x .. $#src_dirs) { $src.=$src_dirs[$_]."/"; } + if ($x > $#src_dirs && ! length $src) { + $src.="."; # special case + } $src=~s:/$::; } else { # Make sure it's properly absolute. $src="/$src"; } - + + if (-d "$tmp/$dest" && ! -l "$tmp/$dest") { + error("link destination $tmp/$dest is a directory"); + } doit("rm", "-f", "$tmp/$dest"); doit("ln","-sf", $src, "$tmp/$dest"); }