mirror of
https://github.com/gnustep/tools-make.git
synced 2025-04-22 22:00:49 +00:00
File removed
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/tools/make/trunk@12302 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
Nicola Pero
parent
2ada643260
commit
d4f7a92a7d
1 changed files with 0 additions and 239 deletions
239
which_lib.pl.in
239
which_lib.pl.in
|
|
@ -1,239 +0,0 @@
|
|||
#!@PERL@
|
||||
|
||||
$| = 1;
|
||||
|
||||
if ($ENV{'GNUSTEP_HOST_OS'} eq "rhapsody5.3" || $ENV{'GNUSTEP_HOST_OS'} eq "rhapsody5.5") {
|
||||
$shared_extension = "dylib";
|
||||
}
|
||||
else {
|
||||
$shared_extension = "so";
|
||||
}
|
||||
$lib_extension = "a";
|
||||
|
||||
@L = ();
|
||||
@l = ();
|
||||
|
||||
%option = (
|
||||
'shared', 1,
|
||||
'debug', 0,
|
||||
'profile', 0,
|
||||
'gc', 0
|
||||
);
|
||||
|
||||
if($ARGV[0] eq "-h" || $ARGV[0] eq '') {
|
||||
print "usage: which_lib.pl -xdebug [-Lpath ...] -llibrary shared=yes|no ";
|
||||
print "debug=yes|no profile=yes|no gc=yes|no\n";
|
||||
exit;
|
||||
}
|
||||
|
||||
for $i (0..$#ARGV) {
|
||||
$arg = $ARGV[$i];
|
||||
# print "ARGUMENT: $arg\n";
|
||||
if ($arg =~ /^-x/) {
|
||||
$arg = substr($arg,2);
|
||||
print "setting debuglevel $arg\n" if $arg > 8;
|
||||
$debug = $arg;
|
||||
}
|
||||
elsif ($arg =~ /^-L/) {
|
||||
$arg = substr($arg,2);
|
||||
print "adding library path $arg\n" if $debug > 8;
|
||||
push(@L, $arg);
|
||||
}
|
||||
elsif ($arg =~ /^-l/) {
|
||||
$arg = substr($arg,2);
|
||||
print "adding lib $arg\n" if $debug > 8;
|
||||
push(@l, $arg);
|
||||
}
|
||||
elsif ($arg =~ /=/ ) {
|
||||
print "parsing option $arg\n" if $debug > 8;
|
||||
|
||||
($key, $value) = split(/=/, $arg);
|
||||
if ($key eq "shared" || $key eq "debug" || $key eq "profile" || $key eq "gc") {
|
||||
if ($value =~ /[yY][eE][sS]/) {
|
||||
$option{$key} = 1;
|
||||
}
|
||||
elsif ($value =~ /[nN][oO]/) {
|
||||
$option{$key} = 0;
|
||||
}
|
||||
else {
|
||||
$option{$key} = 0;
|
||||
# die "unknown value $value for option $key\n\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
else {
|
||||
print "usage: which_lib -xdebug [-Lpath ...] -llibrary shared=yes|no ";
|
||||
print "debug=yes|no profile=yes|no\n";
|
||||
exit;
|
||||
}
|
||||
}
|
||||
|
||||
if ($debug > 1) {
|
||||
print "looking for\n", join("\n", @l), "\nin\n", join("\n", @L), "\n\n";
|
||||
print "using options:\n";
|
||||
print " shared: $option{'shared'}\n";
|
||||
print " debug: $option{'debug'}\n";
|
||||
print " profile: $option{'profile'}\n";
|
||||
print " gc: $option{'gc'}\n";
|
||||
}
|
||||
|
||||
foreach $j (0..$#l) {
|
||||
|
||||
$l = $l[$j];
|
||||
|
||||
@possible_libs = ();
|
||||
%pathes = ();
|
||||
|
||||
$preferedlib = '';
|
||||
|
||||
foreach $i (0..$#L) {
|
||||
local($L) = $L[$i];
|
||||
if (!opendir(DIR, $L)) {
|
||||
next;
|
||||
}
|
||||
local(@filenames) = readdir(DIR);
|
||||
closedir(DIR);
|
||||
|
||||
for (@filenames) {
|
||||
next if $_ eq '.';
|
||||
next if $_ eq '..';
|
||||
local ($file) = $_;
|
||||
|
||||
if ($file =~ /\.$shared_extension$/) {
|
||||
$file =~ s/\.$shared_extension$//;
|
||||
}
|
||||
elsif ($file =~ /\.$lib_extension$/) {
|
||||
$file =~ s/\.$lib_extension$//;
|
||||
}
|
||||
else {
|
||||
next; # file is no lib
|
||||
}
|
||||
|
||||
local ($file2) = $file;
|
||||
local ($k) = index($file, '_');
|
||||
|
||||
if ($k != -1) {
|
||||
# startindex to be justified for libraries not starting with 'lib'
|
||||
$file2 = substr($file, 3, $k - 3);
|
||||
}
|
||||
else {
|
||||
$file2 = substr($file, 3, length($file));
|
||||
}
|
||||
|
||||
if ($file2 ne $l) { next; }
|
||||
|
||||
if ($file =~ /$l/) {
|
||||
# print "lib $l file $file file2 $file2\n";
|
||||
|
||||
if ($pathes{$file} eq '') {
|
||||
$pathes{$file} = $L;
|
||||
push(@possible_libs, $file);
|
||||
print "found $file in $pathes{$file}\n" if $debug > 1;
|
||||
}
|
||||
else {
|
||||
print "\nWARNING: $file found in \n$pathes{$file} and \n$L \nusing \n$pathes{$file}\n\n" if $debug > 1;
|
||||
}
|
||||
}
|
||||
else {
|
||||
print ":$file: don't match :$l:\n" if $debug > 8;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
$sharedflag = 'null';
|
||||
$debugflag = 'null';
|
||||
$profileflag = 'null';
|
||||
$gcflag = 'null';
|
||||
|
||||
$preferedlib = '';
|
||||
|
||||
for (@possible_libs) {
|
||||
$mypossiblelib = $_;
|
||||
$myflags = $mypossiblelib;
|
||||
$myflags =~ /_([dpsg]{0,5})$/;
|
||||
$myflags = $1;
|
||||
|
||||
$mysharedflag = 1;
|
||||
$mysharedflag = 0 if $myflags =~ /s/;
|
||||
|
||||
$mydebugflag = 0;
|
||||
$mydebugflag = 1 if $myflags =~ /d/;
|
||||
|
||||
$myprofileflag = 0;
|
||||
$myprofileflag = 1 if $myflags =~ /p/;
|
||||
|
||||
$mygcflag = 0;
|
||||
$mygcflag = 1 if $myflags =~ /g/;
|
||||
|
||||
|
||||
print "flags found $myflags in $mypossiblelib: shared=$mysharedflag, debug=$mydebugflag, profile=$myprofileflag, gc=$mygcflag\n" if $debug > 5;
|
||||
|
||||
if($option{'gc'} == mygcflag) {
|
||||
|
||||
if ($preferedlib eq '') {
|
||||
$preferedlib = $mypossiblelib;
|
||||
$sharedflag = $mysharedflag;
|
||||
$debugflag = $mydebugflag;
|
||||
$profileflag = $myprofileflag;
|
||||
$gcflag = $mygcflag;
|
||||
print "set prefered lib to $preferedlib because it was first found\n" if $debug > 0;
|
||||
}
|
||||
|
||||
if($option{'shared'} && $mysharedflag && !$sharedflag) {
|
||||
$preferedlib = $mypossiblelib; $sharedflag = $mysharedflag;
|
||||
$debugflag = $mydebugflag; $profileflag = $myprofileflag;
|
||||
print "set prefered lib to $preferedlib because its first dynamic lib found\n"
|
||||
if $debug > 0;
|
||||
}
|
||||
if(!$option{'shared'} && !$mysharedflag && $sharedflag) {
|
||||
$preferedlib = $mypossiblelib; $sharedflag = $mysharedflag;
|
||||
$debugflag = $mydebugflag; $profileflag = $myprofileflag;
|
||||
print "set prefered lib to $preferedlib because its first static lib found\n"
|
||||
if $debug > 0;
|
||||
}
|
||||
|
||||
if($option{'debug'} && $mydebugflag && !$debugflag) {
|
||||
if(($option{'shared'} ne 'null') && ($mysharedflag == $option{'shared'})) {
|
||||
$preferedlib = $mypossiblelib; $sharedflag = $mysharedflag;
|
||||
$debugflag = $mydebugflag; $profileflag = $myprofileflag;
|
||||
print "set prefered lib to $preferedlib (add debugging)\n" if $debug > 0;
|
||||
}
|
||||
}
|
||||
if(!$option{'debug'} && !$mydebugflag && $debugflag) {
|
||||
if(($option{'shared'} ne 'null') && ($mysharedflag == $option{'shared'})) {
|
||||
$preferedlib = $mypossiblelib; $sharedflag = $mysharedflag;
|
||||
$debugflag = $mydebugflag; $profileflag = $myprofileflag;
|
||||
print "set prefered lib to $preferedlib (disable debugging)\n" if $debug > 0;
|
||||
}
|
||||
}
|
||||
|
||||
if($option{'profile'} && $myprofileflag && !$profileflag) {
|
||||
if(($option{'shared'} ne 'null') && ($mysharedflag == $option{'shared'})) {
|
||||
$preferedlib = $mypossiblelib; $sharedflag = $mysharedflag;
|
||||
$debugflag = $mydebugflag; $profileflag = $myprofileflag;
|
||||
print "set prefered lib to $preferedlib (add profiling)\n" if $debug > 0;
|
||||
}
|
||||
}
|
||||
if(!$option{'profile'} && !$myprofileflag && $profileflag) {
|
||||
if(($option{'shared'} ne 'null') && ($mysharedflag == $option{'shared'})) {
|
||||
$preferedlib = $mypossiblelib; $sharedflag = $mysharedflag;
|
||||
$debugflag = $mydebugflag; $profileflag = $myprofileflag;
|
||||
print "set prefered lib to $preferedlib (disable profiling)\n" if $debug > 0;
|
||||
}
|
||||
}
|
||||
}
|
||||
else {
|
||||
print "$mypossiblelib gc flag not matched.\n" if $debug > 0;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
$preferedlib =~ s/^lib//;
|
||||
if ($preferedlib eq '') {
|
||||
print "-l$l\n";
|
||||
}
|
||||
else {
|
||||
print "-l$preferedlib\n";
|
||||
}
|
||||
}
|
||||
|
||||
Loading…
Reference in a new issue