3 # used to generate the file MINFO for use by util/mk1mf.pl
4 # It is basically a list of all variables from the passed makefile
7 while ($ARGV[0] =~ /^([^\s=]+)\s*=\s*(.*)$/)
18 if (/^([^\s=]+)\s*=\s*(.*)$/)
26 $b=$`; # Keep what is before the backslash
28 $b = "" unless defined($b = <>);
41 $o =~ s/\$[({]([^)}]+)[)}]/$sym{$1}/g;
42 $sym{$s}=$o if !exists $sym{$s};
46 ($pwd=`pwd`) =~ s{\R$}{};
48 if ($sym{'TOP'} eq ".")
54 $n=split(/\//,$sym{'TOP'});
57 foreach $i ($z .. $#_) { $dir.=$_[$i]."/"; }
58 chop($dir); # Remove the last slash
61 print "RELATIVE_DIRECTORY=$dir\n";
63 foreach (sort keys %sym)
65 print "$_=$sym{$_}\n";
67 print "RELATIVE_DIRECTORY=\n";