diff options
author | Dr. Stephen Henson <steve@openssl.org> | 1999-02-13 23:12:30 +0000 |
---|---|---|
committer | Dr. Stephen Henson <steve@openssl.org> | 1999-02-13 23:12:30 +0000 |
commit | e2d795cb968d823c40b411c9b46cd79280d00f52 (patch) | |
tree | 7534bbb807c49ebdf0f203aa2e8214b532e6ab4b /util | |
parent | 08853ba82d38548a9e178bd6506a0a8c0deade34 (diff) |
Modify configure script to generate some files that Win32 needs and new
script that does the same as 'make files'.
Diffstat (limited to 'util')
-rwxr-xr-x | util/mkfiles.pl | 109 |
1 files changed, 109 insertions, 0 deletions
diff --git a/util/mkfiles.pl b/util/mkfiles.pl new file mode 100755 index 0000000000..bb7ceeeeda --- /dev/null +++ b/util/mkfiles.pl @@ -0,0 +1,109 @@ +#!/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/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/comp", +"ssl", +"rsaref", +"apps", +"test", +"tools" +); + +&files_dir (".", "Makefile.org"); +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); +} |