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
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
|
package ExtUtils::Liblist;
# Broken out of MakeMaker from version 4.11
use Config;
use Cwd;
# --- Determine libraries to use and how to use them ---
sub ext {
my($potential_libs, $Verbose) = @_;
return ("", "", "") unless $potential_libs;
print STDOUT "Potential libraries are '$potential_libs':\n" if $Verbose;
my($so) = $Config{'so'};
my($libs) = $Config{'libs'};
# compute $extralibs, $bsloadlibs and $ldloadlibs from
# $potential_libs
# this is a rewrite of Andy Dougherty's extliblist in perl
# its home is in <distribution>/ext/util
my(@searchpath); # from "-L/path" entries in $potential_libs
my(@libpath) = split " ", $Config{'libpth'};
my(@ldloadlibs, @bsloadlibs, @extralibs);
my($fullname, $thislib, $thispth, @fullname);
my($pwd) = fastcwd(); # from Cwd.pm
my($found) = 0;
foreach $thislib (split ' ', $potential_libs){
# Handle possible linker path arguments.
if ($thislib =~ s/^(-[LR])//){ # save path flag type
my($ptype) = $1;
unless (-d $thislib){
print STDOUT "$ptype$thislib ignored, directory does not exist\n"
if $Verbose;
next;
}
if ($thislib !~ m|^/|) {
print STDOUT "Warning: $ptype$thislib changed to $ptype$pwd/$thislib\n";
$thislib = "$pwd/$thislib";
}
push(@searchpath, $thislib);
push(@extralibs, "$ptype$thislib");
push(@ldloadlibs, "$ptype$thislib");
next;
}
# Handle possible library arguments.
unless ($thislib =~ s/^-l//){
print STDOUT "Unrecognized argument in LIBS ignored: '$thislib'\n";
next;
}
my($found_lib)=0;
foreach $thispth (@searchpath, @libpath){
# Try to find the full name of the library. We need this to
# determine whether it's a dynamically-loadable library or not.
# This tends to be subject to various os-specific quirks.
# For gcc-2.6.2 on linux (March 1995), DLD can not load
# .sa libraries, with the exception of libm.sa, so we
# deliberately skip them.
if (@fullname = lsdir($thispth,"^lib$thislib\.$so\.[0-9]+")){
# Take care that libfoo.so.10 wins against libfoo.so.9.
# Compare two libraries to find the most recent version
# number. E.g. if you have libfoo.so.9.0.7 and
# libfoo.so.10.1, first convert all digits into two
# decimal places. Then we'll add ".00" to the shorter
# strings so that we're comparing strings of equal length
# Thus we'll compare libfoo.so.09.07.00 with
# libfoo.so.10.01.00. Some libraries might have letters
# in the version. We don't know what they mean, but will
# try to skip them gracefully -- we'll set any letter to
# '0'. Finally, sort in reverse so we can take the
# first element.
#TODO: iterate through the directory instead of sorting
$fullname = "$thispth/" .
(sort { my($ma) = $a;
my($mb) = $b;
$ma =~ tr/A-Za-z/0/s;
$ma =~ s/\b(\d)\b/0$1/g;
$mb =~ tr/A-Za-z/0/s;
$mb =~ s/\b(\d)\b/0$1/g;
while (length($ma) < length($mb)) { $ma .= ".00"; }
while (length($mb) < length($ma)) { $mb .= ".00"; }
# Comparison deliberately backwards
$mb cmp $ma;} @fullname)[0];
} elsif (-f ($fullname="$thispth/lib$thislib.$so")
&& (($Config{'dlsrc'} ne "dl_dld.xs") || ($thislib eq "m"))){
} elsif (-f ($fullname="$thispth/lib${thislib}_s.a")
&& ($thislib .= "_s") ){ # we must explicitly use _s version
} elsif (-f ($fullname="$thispth/lib$thislib.a")){
} elsif (-f ($fullname="$thispth/Slib$thislib.a")){
} else {
print STDOUT "$thislib not found in $thispth\n" if $Verbose;
next;
}
print STDOUT "'-l$thislib' found at $fullname\n" if $Verbose;
$found++;
$found_lib++;
# Now update library lists
# what do we know about this library...
my $is_dyna = ($fullname !~ /\.a$/);
my $in_perl = ($libs =~ /\B-l${thislib}\b/s);
# Do not add it into the list if it is already linked in
# with the main perl executable.
# We have to special-case the NeXT, because all the math
# is also in libsys_s
unless ($in_perl ||
($Config{'osname'} eq 'next' && $thislib eq 'm') ){
push(@extralibs, "-l$thislib");
}
# We might be able to load this archive file dynamically
if ( $Config{'dlsrc'} =~ /dl_next|dl_dld/){
# We push -l$thislib instead of $fullname because
# it avoids hardwiring a fixed path into the .bs file.
# Mkbootstrap will automatically add dl_findfile() to
# the .bs file if it sees a name in the -l format.
# USE THIS, when dl_findfile() is fixed:
# push(@bsloadlibs, "-l$thislib");
# OLD USE WAS while checking results against old_extliblist
push(@bsloadlibs, "$fullname");
} else {
if ($is_dyna){
# For SunOS4, do not add in this shared library if
# it is already linked in the main perl executable
push(@ldloadlibs, "-l$thislib")
unless ($in_perl and $Config{'osname'} eq 'sunos');
} else {
push(@ldloadlibs, "-l$thislib");
}
}
last; # found one here so don't bother looking further
}
print STDOUT "Warning (non-fatal): No library found for -l$thislib\n"
unless $found_lib>0;
}
return ('','','') unless $found;
("@extralibs", "@bsloadlibs", "@ldloadlibs");
}
sub lsdir { #yes, duplicate code seems less hassle than having an
#extra file with only lsdir
my($dir, $regex) = @_;
local(*DIR, @ls);
opendir(DIR, $dir || ".") or return ();
@ls = readdir(DIR);
closedir(DIR);
@ls = grep(/$regex/, @ls) if $regex;
@ls;
}
1;
|
