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

#!/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);

}