e759b095d4
patches that Geoff had in a patch file in his play directory. NOTE for openssl-cvs: THIS IS A CVS BRANCH (BRANCH_engine). IT IS NOT FOR THE FAINTHEARTED TO PLAY WITH. The code works as it is, but it's not at all sure it ends up in the OpenSSL distributio in this form, so do not get dependent on it! Those rsyncing the repository are considered warned!
112 lines
1.5 KiB
Perl
Executable file
112 lines
1.5 KiB
Perl
Executable file
#!/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 = (
|
|
".",
|
|
"crypto",
|
|
"crypto/md2",
|
|
"crypto/md5",
|
|
"crypto/sha",
|
|
"crypto/mdc2",
|
|
"crypto/hmac",
|
|
"crypto/ripemd",
|
|
"crypto/des",
|
|
"crypto/rc2",
|
|
"crypto/rc4",
|
|
"crypto/rc5",
|
|
"crypto/idea",
|
|
"crypto/bf",
|
|
"crypto/cast",
|
|
"crypto/bn",
|
|
"crypto/rsa",
|
|
"crypto/dsa",
|
|
"crypto/dso",
|
|
"crypto/dh",
|
|
"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",
|
|
"crypto/pkcs12",
|
|
"crypto/comp",
|
|
"crypto/engine",
|
|
"ssl",
|
|
"rsaref",
|
|
"apps",
|
|
"test",
|
|
"tools"
|
|
);
|
|
|
|
foreach (@dirs) {
|
|
&files_dir ($_, "Makefile.ssl");
|
|
}
|
|
|
|
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);
|
|
}
|