diff options
Diffstat (limited to 'crypto/openssl/util/files.pl')
| -rwxr-xr-x | crypto/openssl/util/files.pl | 61 |
1 files changed, 0 insertions, 61 deletions
diff --git a/crypto/openssl/util/files.pl b/crypto/openssl/util/files.pl deleted file mode 100755 index 41f033e3b9aa..000000000000 --- a/crypto/openssl/util/files.pl +++ /dev/null @@ -1,61 +0,0 @@ -#!/usr/local/bin/perl -# -# used to generate the file MINFO for use by util/mk1mf.pl -# It is basically a list of all variables from the passed makefile -# - -$s=""; -while (<>) - { - chop; - s/#.*//; - if (/^(\S+)\s*=\s*(.*)$/) - { - $o=""; - ($s,$b)=($1,$2); - for (;;) - { - if ($b =~ /\\$/) - { - chop($b); - $o.=$b." "; - $b=<>; - chop($b); - } - else - { - $o.=$b." "; - last; - } - } - $o =~ s/^\s+//; - $o =~ s/\s+$//; - $o =~ s/\s+/ /g; - - $o =~ s/\$[({]([^)}]+)[)}]/$sym{$1}/g; - $sym{$s}=$o; - } - } - -$pwd=`pwd`; chop($pwd); - -if ($sym{'TOP'} eq ".") - { - $n=0; - $dir="."; - } -else { - $n=split(/\//,$sym{'TOP'}); - @_=split(/\//,$pwd); - $z=$#_-$n+1; - foreach $i ($z .. $#_) { $dir.=$_[$i]."/"; } - chop($dir); - } - -print "RELATIVE_DIRECTORY=$dir\n"; - -foreach (sort keys %sym) - { - print "$_=$sym{$_}\n"; - } -print "RELATIVE_DIRECTORY=\n"; |