summaryrefslogtreecommitdiffstats
path: root/util/files.pl
diff options
context:
space:
mode:
authorcvs2svn <cvs2svn>2000-11-07 14:49:47 +0100
committercvs2svn <cvs2svn>2000-11-07 14:49:47 +0100
commit9d98df23f38afa21e159d910335b49fb196206e8 (patch)
tree97be0cb87a26df5765d335516956ef80d008b554 /util/files.pl
parentA few more constifications of some RSA routines that I forgot (diff)
downloadopenssl-rsaref.tar.gz
openssl-rsaref.zip
This commit was manufactured by cvs2svn to create tag 'rsaref'.rsaref
Diffstat (limited to 'util/files.pl')
-rwxr-xr-xutil/files.pl61
1 files changed, 0 insertions, 61 deletions
diff --git a/util/files.pl b/util/files.pl
deleted file mode 100755
index 41f033e3b9a..00000000000
--- a/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";