1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
# Copyright © 2007 Raphaël Hertzog <hertzog@debian.org>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
package Dpkg::Shlibs;
use strict;
use warnings;
use base qw(Exporter);
our @EXPORT_OK = qw(@librarypaths find_library);
use File::Spec;
use Dpkg::Gettext;
use Dpkg::ErrorHandling;
use Dpkg::Shlibs::Objdump;
use Dpkg::Path qw(resolve_symlink canonpath);
use Dpkg::Arch qw(debarch_to_gnutriplet get_build_arch get_host_arch);
use constant DEFAULT_LIBRARY_PATH =>
qw(/lib /usr/lib /lib32 /usr/lib32 /lib64 /usr/lib64
/emul/ia32-linux/lib /emul/ia32-linux/usr/lib);
# Adjust set of directories to consider when we're in a situation of a
# cross-build or a build of a cross-compiler
my @crosslibrarypaths;
my $crossprefix;
# Detect cross compiler builds
if ($ENV{GCC_TARGET}) {
$crossprefix = debarch_to_gnutriplet($ENV{GCC_TARGET});
}
if ($ENV{DEB_TARGET_GNU_TYPE} and
($ENV{DEB_TARGET_GNU_TYPE} ne $ENV{DEB_BUILD_GNU_TYPE}))
{
$crossprefix = $ENV{DEB_TARGET_GNU_TYPE};
}
# host for normal cross builds.
if (get_build_arch() ne get_host_arch()) {
$crossprefix = debarch_to_gnutriplet(get_host_arch());
}
# Define list of directories containing crossbuilt libraries
if ($crossprefix) {
push @crosslibrarypaths, "/$crossprefix/lib", "/usr/$crossprefix/lib",
"/$crossprefix/lib32", "/usr/$crossprefix/lib32",
"/$crossprefix/lib64", "/usr/$crossprefix/lib64";
}
our @librarypaths = (DEFAULT_LIBRARY_PATH, @crosslibrarypaths);
# Update library paths with LD_LIBRARY_PATH
if ($ENV{LD_LIBRARY_PATH}) {
foreach my $path (reverse split( /:/, $ENV{LD_LIBRARY_PATH} )) {
$path =~ s{/+$}{};
unshift @librarypaths, $path;
}
}
# Update library paths with ld.so config
parse_ldso_conf("/etc/ld.so.conf") if -e "/etc/ld.so.conf";
my %visited;
sub parse_ldso_conf {
my $file = shift;
open my $fh, "<", $file or syserr(_g("cannot open %s"), $file);
$visited{$file}++;
while (<$fh>) {
next if /^\s*$/;
chomp;
s{/+$}{};
if (/^include\s+(\S.*\S)\s*$/) {
foreach my $include (glob($1)) {
parse_ldso_conf($include) if -e $include
&& !$visited{$include};
}
} elsif (m{^\s*/}) {
s/^\s+//;
my $libdir = $_;
unless (scalar grep { $_ eq $libdir } @librarypaths) {
push @librarypaths, $libdir;
}
}
}
close $fh;
}
# find_library ($soname, \@rpath, $format, $root)
sub find_library {
my ($lib, $rpath, $format, $root) = @_;
$root = "" if not defined($root);
$root =~ s{/+$}{};
my @rpath = @{$rpath};
foreach my $dir (@rpath, @librarypaths) {
my $checkdir = "$root$dir";
# If the directory checked is a symlink, check if it doesn't
# resolve to another public directory (which is then the canonical
# directory to use instead of this one). Typical example
# is /usr/lib64 -> /usr/lib on amd64.
if (-l $checkdir) {
my $newdir = resolve_symlink($checkdir);
if (grep { "$root$_" eq "$newdir" } (@rpath, @librarypaths)) {
$checkdir = $newdir;
}
}
if (-e "$checkdir/$lib") {
my $libformat = Dpkg::Shlibs::Objdump::get_format("$checkdir/$lib");
if ($format eq $libformat) {
return canonpath("$checkdir/$lib");
}
}
}
return undef;
}
1;
|
