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
88 my $fipscanisteronly = 0;
91 next if ($fipscanisteronly && !(-d $_));
92 &files_dir ($_, "Makefile");
99 my ($dir, $makefile) = @_;
103 open (IN, "$dir/$makefile") || die "Can't open $dir/$makefile";
111 if (/^(\S+)\s*=\s*(.*)$/)
134 $o =~ s/\$[({]([^)}]+)[)}]/$top{$1} or $sym{$1}/ge;
135 $sym{$s}=($top{$s} or $o);
139 print "RELATIVE_DIRECTORY=$dir\n";
141 foreach (sort keys %sym)
143 print "$_=$sym{$_}\n";
145 if ($dir eq "." && defined($sym{"BUILDENV"}))
147 foreach (split(' ',$sym{"BUILDENV"}))
154 print "RELATIVE_DIRECTORY=\n";
157 if ($dir eq "." && $sym{CONFIGURE_ARGS} =~ /fipscanisteronly/)
159 $fipscanisteronly = 1;