1999-02-13 23:12:30 +00:00
|
|
|
#!/usr/local/bin/perl
|
|
|
|
#
|
|
|
|
# This is a hacked version of files.pl for systems that can't do a 'make files'.
|
|
|
|
# Do a perl util/mkminfo.pl >MINFO to build MINFO
|
|
|
|
# Written by Steve Henson 1999.
|
|
|
|
|
|
|
|
# List of directories to process
|
|
|
|
|
|
|
|
my @dirs = (
|
1999-03-29 17:50:26 +00:00
|
|
|
".",
|
1999-02-13 23:12:30 +00:00
|
|
|
"crypto",
|
|
|
|
"crypto/md2",
|
2000-08-14 14:05:53 +00:00
|
|
|
"crypto/md4",
|
1999-02-13 23:12:30 +00:00
|
|
|
"crypto/md5",
|
|
|
|
"crypto/sha",
|
|
|
|
"crypto/mdc2",
|
|
|
|
"crypto/hmac",
|
|
|
|
"crypto/ripemd",
|
|
|
|
"crypto/des",
|
|
|
|
"crypto/rc2",
|
|
|
|
"crypto/rc4",
|
|
|
|
"crypto/rc5",
|
|
|
|
"crypto/idea",
|
|
|
|
"crypto/bf",
|
|
|
|
"crypto/cast",
|
2002-01-02 16:55:35 +00:00
|
|
|
"crypto/aes",
|
1999-02-13 23:12:30 +00:00
|
|
|
"crypto/bn",
|
|
|
|
"crypto/rsa",
|
|
|
|
"crypto/dsa",
|
2000-04-04 22:32:19 +00:00
|
|
|
"crypto/dso",
|
1999-02-13 23:12:30 +00:00
|
|
|
"crypto/dh",
|
2001-03-10 01:56:48 +00:00
|
|
|
"crypto/ec",
|
1999-02-13 23:12:30 +00:00
|
|
|
"crypto/buffer",
|
|
|
|
"crypto/bio",
|
|
|
|
"crypto/stack",
|
|
|
|
"crypto/lhash",
|
|
|
|
"crypto/rand",
|
|
|
|
"crypto/err",
|
|
|
|
"crypto/objects",
|
|
|
|
"crypto/evp",
|
|
|
|
"crypto/asn1",
|
|
|
|
"crypto/pem",
|
|
|
|
"crypto/x509",
|
|
|
|
"crypto/x509v3",
|
|
|
|
"crypto/conf",
|
|
|
|
"crypto/txt_db",
|
|
|
|
"crypto/pkcs7",
|
1999-03-29 17:50:26 +00:00
|
|
|
"crypto/pkcs12",
|
1999-02-13 23:12:30 +00:00
|
|
|
"crypto/comp",
|
2000-10-26 21:07:28 +00:00
|
|
|
"crypto/engine",
|
2000-10-27 11:05:35 +00:00
|
|
|
"crypto/ocsp",
|
2001-05-08 04:09:19 +00:00
|
|
|
"crypto/ui",
|
2001-07-11 15:15:31 +00:00
|
|
|
"crypto/krb5",
|
2004-05-11 12:46:24 +00:00
|
|
|
"fips",
|
|
|
|
"fips/aes",
|
|
|
|
"fips/des",
|
|
|
|
"fips/dsa",
|
2004-10-26 12:17:25 +00:00
|
|
|
"fips/dh",
|
2004-05-11 12:46:24 +00:00
|
|
|
"fips/rand",
|
|
|
|
"fips/rsa",
|
|
|
|
"fips/sha1",
|
1999-02-13 23:12:30 +00:00
|
|
|
"ssl",
|
|
|
|
"apps",
|
|
|
|
"test",
|
|
|
|
"tools"
|
|
|
|
);
|
|
|
|
|
|
|
|
foreach (@dirs) {
|
2004-05-11 12:46:24 +00:00
|
|
|
&files_dir ($_, "Makefile");
|
1999-02-13 23:12:30 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
exit(0);
|
|
|
|
|
|
|
|
sub files_dir
|
|
|
|
{
|
|
|
|
my ($dir, $makefile) = @_;
|
|
|
|
|
|
|
|
my %sym;
|
|
|
|
|
|
|
|
open (IN, "$dir/$makefile") || die "Can't open $dir/$makefile";
|
|
|
|
|
|
|
|
my $s="";
|
|
|
|
|
|
|
|
while (<IN>)
|
|
|
|
{
|
|
|
|
chop;
|
|
|
|
s/#.*//;
|
|
|
|
if (/^(\S+)\s*=\s*(.*)$/)
|
|
|
|
{
|
|
|
|
$o="";
|
|
|
|
($s,$b)=($1,$2);
|
|
|
|
for (;;)
|
|
|
|
{
|
|
|
|
if ($b =~ /\\$/)
|
|
|
|
{
|
|
|
|
chop($b);
|
|
|
|
$o.=$b." ";
|
|
|
|
$b=<IN>;
|
|
|
|
chop($b);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
$o.=$b." ";
|
|
|
|
last;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
$o =~ s/^\s+//;
|
|
|
|
$o =~ s/\s+$//;
|
|
|
|
$o =~ s/\s+/ /g;
|
|
|
|
|
|
|
|
$o =~ s/\$[({]([^)}]+)[)}]/$sym{$1}/g;
|
|
|
|
$sym{$s}=$o;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
print "RELATIVE_DIRECTORY=$dir\n";
|
|
|
|
|
|
|
|
foreach (sort keys %sym)
|
|
|
|
{
|
|
|
|
print "$_=$sym{$_}\n";
|
|
|
|
}
|
|
|
|
print "RELATIVE_DIRECTORY=\n";
|
|
|
|
|
|
|
|
close (IN);
|
|
|
|
}
|