3 # This is a hacked version of files.pl for systems that can't do a 'make files'.
4 # Do a perl util/mkminfo.pl >MINFO to build MINFO
5 # Written by Steve Henson 1999.
7 # List of directories to process
51 &files_dir (".", "Makefile.org");
53 &files_dir ($_, "Makefile.ssl");
60 my ($dir, $makefile) = @_;
64 open (IN, "$dir/$makefile") || die "Can't open $dir/$makefile";
72 if (/^(\S+)\s*=\s*(.*)$/)
95 $o =~ s/\$[({]([^)}]+)[)}]/$sym{$1}/g;
100 print "RELATIVE_DIRECTORY=$dir\n";
102 foreach (sort keys %sym)
104 print "$_=$sym{$_}\n";
106 print "RELATIVE_DIRECTORY=\n";