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*=(.*)$/)
18 if (/^(\S+)\s*=\s*(.*)$/)
41 $o =~ s/\$[({]([^)}]+)[)}]/$sym{$1}/g;
42 $sym{$s}=$o if !exists $sym{$s};
46 $pwd=`pwd`; chop($pwd);
48 if ($sym{'TOP'} eq ".")
54 $n=split(/\//,$sym{'TOP'});
57 foreach $i ($z .. $#_) { $dir.=$_[$i]."/"; }
61 print "RELATIVE_DIRECTORY=$dir\n";
63 foreach (sort keys %sym)
65 print "$_=$sym{$_}\n";
67 print "RELATIVE_DIRECTORY=\n";