X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=dh_shlibdeps;h=a41732fcee1678c9c5a1814334760e2cf25f96f8;hb=18a0da8092ea9f3dc48bca92b36f592af25a608d;hp=1268fa4a4f569ff50b55086b0b8348ea94dd554b;hpb=496b6f60c8155eefe5494da494e0468b82e0226f;p=debhelper.git diff --git a/dh_shlibdeps b/dh_shlibdeps index 1268fa4..a41732f 100755 --- a/dh_shlibdeps +++ b/dh_shlibdeps @@ -1,21 +1,143 @@ #!/usr/bin/perl -w -# -# Find dependancies. Simple dpkg-shlibdeps wrapper. -BEGIN { push @INC, "debian", "/usr/share/debhelper" } -use Dh_Lib; -init(); +=head1 NAME -foreach $PACKAGE (@{$dh{DOPACKAGES}}) { - $TMP=tmpdir($PACKAGE); - $EXT=pkgext($PACKAGE); +dh_shlibdeps - calculate shared library dependencies + +=cut + +use strict; +use Cwd; +use Debian::Debhelper::Dh_Lib; + +=head1 SYNOPSIS + +B [S>] [B<-L>I] [B<-l>I] [B<-X>I] [S I>] + +=head1 DESCRIPTION + +B is a debhelper program that is responsible for calculating +shared library dependencies for packages. + +This program is merely a wrapper around L that calls it +once for each package listed in the F file, passing it +a list of ELF executables and shared libraries it has found. + +=head1 OPTIONS + +=over 4 + +=item B<-X>I, B<--exclude=>I + +Exclude files that contain F anywhere in their filename from being +passed to B. This will make their dependencies be ignored. +This may be useful in some situations, but use it with caution. This option +may be used more than once to exclude more than one thing. + +=item B<--> I + +Pass I to L. + +=item B<-u>I, B<--dpkg-shlibdeps-params=>I + +This is another way to pass I to L. +It is deprecated; use B<--> instead. + +=item B<-l>I[B<:>I ...] + +With recent versions of B, this option is generally not +needed. + +Before B is run, B will have added to it the +specified directory (or directories -- separate with colons). With recent +versions of B, this is mostly only useful for packages that +build multiple flavors of the same library, or other situations where +the library is installed into a directory not on the regular library search +path. + +=item B<-L>I, B<--libpackage=>I + +With recent versions of B, this option is generally not +needed, unless your package builds multiple flavors of the same library. + +It tells B (via its B<-S> parameter) to look first in the package +build directory for the specified package, when searching for libraries, +symbol files, and shlibs files. + +=back + +=head1 EXAMPLES + +Suppose that your source package produces libfoo1, libfoo-dev, and +libfoo-bin binary packages. libfoo-bin links against libfoo1, and should +depend on it. In your rules file, first run B, then B: + + dh_makeshlibs + dh_shlibdeps + +This will have the effect of generating automatically a shlibs file for +libfoo1, and using that file and the libfoo1 library in the +F directory to calculate shared library dependency +information. + +If a libbar1 package is also produced, that is an alternate build of +libfoo, and is installed into F, you can make libfoo-bin depend +on libbar1 as follows: + + dh_shlibdeps -Llibbar1 -l/usr/lib/bar + +=cut + +init(options => { + "L|libpackage=s" => \$dh{LIBPACKAGE}, + "dpkg-shlibdeps-params=s", => \$dh{U_PARAMS}, + "l=s", => \$dh{L_PARAMS}, +}); + +if ($dh{L_PARAMS}) { + my @paths=(); + # Add to existing paths, if set. + push @paths, $ENV{'LD_LIBRARY_PATH'} + if exists $ENV{'LD_LIBRARY_PATH'}; + foreach (split(/:/, $dh{L_PARAMS})) { + # Force the path absolute. + if (m:^/:) { + push @paths, $_; + } + else { + push @paths, "/$_"; + } + } + $dh{L_PARAMS}=join(':', @paths); +} + +if (defined $dh{V_FLAG}) { + warning("You probably wanted to pass -V to dh_makeshlibs, it has no effect on dh_shlibdeps"); +} + +foreach my $package (@{$dh{DOPACKAGES}}) { + my $tmp=tmpdir($package); + my $ext=pkgext($package); + + # dpkg-shlibdeps expects this directory to exist + if (! -d "$tmp/DEBIAN") { + doit("install","-o",0,"-g",0,"-d","$tmp/DEBIAN"); + } my @filelist; my $ff; - # Generate a list of all ELF binaries in the package. - foreach $file (split(/\n/,`find $TMP -type f \\( -perm +111 -or -name "*.so*" \\)`)) { - # TODO: this is slow, optimize. Ie, file can run once on multiple files.. + # Generate a list of ELF binaries in the package, ignoring any + # we were told to exclude. + my $find_options=''; + if (defined($dh{EXCLUDE_FIND}) && $dh{EXCLUDE_FIND} ne '') { + $find_options="! \\( $dh{EXCLUDE_FIND} \\)"; + } + foreach my $file (split(/\n/,`find $tmp -type f \\( -perm +111 -or -name "*.so*" -or -name "*.cmxs" \\) $find_options -print`)) { + # Prune directories that contain separated debug symbols. + next if $file=~m!^\Q$tmp\E/usr/lib/debug/(lib|lib64|usr|bin|sbin|opt|dev|emul)/!; + # TODO this is slow, optimize. Ie, file can run once on + # multiple files.. $ff=`file "$file"`; if ($ff=~m/ELF/ && $ff!~/statically linked/) { push @filelist,$file; @@ -23,6 +145,41 @@ foreach $PACKAGE (@{$dh{DOPACKAGES}}) { } if (@filelist) { - doit("dpkg-shlibdeps","-Tdebian/$EXT\substvars",@{$dh{U_PARAMS}},@filelist); + my @opts; + if (defined $dh{LIBPACKAGE} && length $dh{LIBPACKAGE}) { + @opts=("-S".tmpdir($dh{LIBPACKAGE})); + } + + push @opts, "-tudeb" if is_udeb($package); + + my $ld_library_path_orig=$ENV{LD_LIBRARY_PATH}; + if ($dh{L_PARAMS}) { + $ENV{LD_LIBRARY_PATH}=$dh{L_PARAMS}; + verbose_print("LD_LIBRARY_PATH=$dh{L_PARAMS}"); + } + + doit("dpkg-shlibdeps","-Tdebian/${ext}substvars", + @opts,@{$dh{U_PARAMS}},@filelist); + + if ($dh{L_PARAMS}) { + if (defined $ld_library_path_orig) { + $ENV{LD_LIBRARY_PATH}=$ld_library_path_orig; + } + else { + delete $ENV{LD_LIBRARY_PATH}; + } + } } } + +=head1 SEE ALSO + +L, L + +This program is a part of debhelper. + +=head1 AUTHOR + +Joey Hess + +=cut