Modify configure script to generate some files that Win32 needs and new

script that does the same as 'make files'.

diff --git a/util/mkfiles.pl b/util/mkfiles.pl
new file mode 100755 (executable)
index 0000000..bb7ceee
--- /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);
+}