X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=dh_makeshlibs;h=860637a01de028ac3e521b545ba39aa3d129d8de;hb=e2a6d4cec4a7ee952cf6a7f250d80f1d75a38f95;hp=20644d80e6be01d4be417da8179cc7622148dcba;hpb=053f6f8b4e7431d32511aef209188a084e8c7e79;p=debhelper.git diff --git a/dh_makeshlibs b/dh_makeshlibs index 20644d8..860637a 100755 --- a/dh_makeshlibs +++ b/dh_makeshlibs @@ -1,35 +1,179 @@ #!/usr/bin/perl -w -# -# Automatically generate shlibs files. + +=head1 NAME + +dh_makeshlibs - automatically create shlibs file and call dpkg-gensymbols + +=cut use strict; use Debian::Debhelper::Dh_Lib; -init(); + +=head1 SYNOPSIS + +B [S>] [B<-m>I] [B<-V>I<[dependencies]>] [B<-n>] [B<-X>I] [S I>] + +=head1 DESCRIPTION + +B is a debhelper program that automatically scans for shared +libraries, and generates a shlibs file for the libraries it finds. + +It also adds a call to ldconfig in the F and F scripts (in +v3 mode and above only) to any packages in which it finds shared libraries. + +Packages that support multiarch are detected, and +a Pre-Dependency on multiarch-support is set in ${misc:Pre-Depends} ; +you should make sure to put that token into an appropriate place in your +debian/control file for packages supporting multiarch. + +=head1 FILES + +=over 4 + +=item debian/I.symbols + +=item debian/I.symbols.I + +These symbols files, if present, are passed to L to +be processed and installed. Use the I specific names if you need +to provide different symbols files for different architectures. + +=back + +=head1 OPTIONS + +=over 4 + +=item B<-m>I, B<--major=>I + +Instead of trying to guess the major number of the library with objdump, +use the major number specified after the -m parameter. This is much less +useful than it used to be, back in the bad old days when this program +looked at library filenames rather than using objdump. + +=item B<-V>, B<-V>I + +=item B<--version-info>, B<--version-info=>I + +By default, the shlibs file generated by this program does not make packages +depend on any particular version of the package containing the shared +library. It may be necessary for you to add some version dependency +information to the shlibs file. If B<-V> is specified with no dependency +information, the current upstream version of the package is plugged into a +dependency that looks like "I B<(E>= IB<)>". Note that in +debhelper compatibility levels before v4, the Debian part of the package +version number is also included. If B<-V> is specified with parameters, the +parameters can be used to specify the exact dependency information needed +(be sure to include the package name). + +Beware of using B<-V> without any parameters; this is a conservative setting +that always ensures that other packages' shared library dependencies are at +least as tight as they need to be (unless your library is prone to changing +ABI without updating the upstream version number), so that if the +maintainer screws up then they won't break. The flip side is that packages +might end up with dependencies that are too tight and so find it harder to +be upgraded. + +=item B<-n>, B<--noscripts> + +Do not modify F/F scripts. + +=item B<-X>I, B<--exclude=>I + +Exclude files that contain I anywhere in their filename or directory +from being treated as shared libraries. + +=item B<--add-udeb=>I + +Create an additional line for udebs in the shlibs file and use I as the +package name for udebs to depend on instead of the regular library package. + +=item B<--> I + +Pass I to L. + +=back + +=head1 EXAMPLES + +=over 4 + +=item B + +Assuming this is a package named F, generates a shlibs file that +looks something like: + libfoobar 1 libfoobar1 + +=item B + +Assuming the current version of the package is 1.1-3, generates a shlibs +file that looks something like: + libfoobar 1 libfoobar1 (>= 1.1) + +=item B= 1.0)'> + +Generates a shlibs file that looks something like: + libfoobar 1 libfoobar1 (>= 1.0) + +=back + +=cut + +init(options => { + "m=s", => \$dh{M_PARAMS}, + "major=s" => \$dh{M_PARAMS}, + "version-info:s" => \$dh{V_FLAG}, + "add-udeb=s" => \$dh{SHLIBS_UDEB}, +}); + +my $objdump=cross_command("objdump"); +my $multiarch=dpkg_architecture_value("DEB_HOST_MULTIARCH"); foreach my $package (@{$dh{DOPACKAGES}}) { + next if is_udeb($package); + my $tmp=tmpdir($package); my %seen; my $need_ldconfig = 0; + my $is_multiarch = 0; doit("rm", "-f", "$tmp/DEBIAN/shlibs"); - open (FIND, "find $tmp -xtype f -name '*.so*' |"); + # So, we look for files or links to existing files with names that + # match "*.so.*". And we only look at real files not + # symlinks, so we don't accidentually add shlibs data to -dev + # packages. This may have a few false positives, which is ok, + # because only if we can get a library name and a major number from + # objdump is anything actually added. + my $exclude=''; + my (@udeb_lines, @lib_files); + if (defined($dh{EXCLUDE_FIND}) && $dh{EXCLUDE_FIND} ne '') { + $exclude="! \\( $dh{EXCLUDE_FIND} \\) "; + } + open (FIND, "find $tmp -type f \\( -name '*.so' -or -name '*.so.*' \\) $exclude |"); while () { - my $library; - my $major; - - chomp; - $need_ldconfig=1; - # The second evil regexp is for db3, whose author should - # be shot. - if (m#.*/([^/]*)\.so\.(\d*)\.?# || m#.*/([^/]*)-([^\s/]+)\.so$#) { - $library = $1; - $major = $2; + my ($library, $major); + push @lib_files, $_; + if (defined $multiarch && $multiarch ne '' && m,/$multiarch/,) { + $is_multiarch=1; + } + my $ret=`$objdump -p $_`; + if ($ret=~m/\s+SONAME\s+(.+)\.so\.(.+)/) { + # proper soname format + $library=$1; + $major=$2; } + elsif ($ret=~m/\s+SONAME\s+(.+)-(.+)\.so/) { + # idiotic crap soname format + $library=$1; + $major=$2; + } + if (defined($dh{M_PARAMS}) && $dh{M_PARAMS} ne '') { $major=$dh{M_PARAMS}; } + if (! -d "$tmp/DEBIAN") { doit("install","-d","$tmp/DEBIAN"); } @@ -42,21 +186,40 @@ foreach my $package (@{$dh{DOPACKAGES}}) { # Call isnative becuase it sets $dh{VERSION} # as a side effect. isnative($package); - $deps="$package (>= $dh{VERSION})"; + my $version = $dh{VERSION}; + # Old compatibility levels include the + # debian revision, while new do not. + if (! compat(3)) { + # Remove debian version, if any. + $version =~ s/-[^-]+$//; + } + $deps="$package (>= $version)"; } } if (defined($library) && defined($major) && defined($deps) && $library ne '' && $major ne '' && $deps ne '') { + $need_ldconfig=1; # Prevent duplicate lines from entering the file. my $line="$library $major $deps"; if (! $seen{$line}) { $seen{$line}=1; complex_doit("echo '$line' >>$tmp/DEBIAN/shlibs"); + if (defined($dh{SHLIBS_UDEB}) && $dh{SHLIBS_UDEB} ne '') { + my $udeb_deps = $deps; + $udeb_deps =~ s/\Q$package\E/$dh{SHLIBS_UDEB}/e; + $line="udeb: "."$library $major $udeb_deps"; + push @udeb_lines, $line; + } } } } close FIND; + # Write udeb: lines last. + foreach (@udeb_lines) { + complex_doit("echo '$_' >>$tmp/DEBIAN/shlibs"); + } + # New as of dh_v3. if (! compat(2) && ! $dh{NOSCRIPTS} && $need_ldconfig) { autoscript($package,"postinst","postinst-makeshlibs"); @@ -65,6 +228,41 @@ foreach my $package (@{$dh{DOPACKAGES}}) { if (-e "$tmp/DEBIAN/shlibs") { doit("chmod",644,"$tmp/DEBIAN/shlibs"); - doit("chown","0.0","$tmp/DEBIAN/shlibs"); + doit("chown","0:0","$tmp/DEBIAN/shlibs"); + } + + # dpkg-gensymbols files + my $symbols=pkgfile($package, "symbols"); + if (-e $symbols) { + my @liblist; + if (! compat(7)) { + @liblist=map { "-e$_" } @lib_files; + } + # -I is used rather than using dpkg-gensymbols + # own search for symbols files, since that search + # is not 100% compatible with debhelper. (For example, + # this supports --ignore being used.) + doit("dpkg-gensymbols", "-p$package", "-I$symbols", + "-P$tmp", + @liblist, + @{$dh{U_PARAMS}}); + if (-s "$tmp/DEBIAN/symbols" == 0) { + doit("rm", "-f", "$tmp/DEBIAN/symbols"); + } + } + if ($is_multiarch) { + addsubstvar($package, "misc:Pre-Depends", "multiarch-support"); } } + +=head1 SEE ALSO + +L + +This program is a part of debhelper. + +=head1 AUTHOR + +Joey Hess + +=cut