3 # mms2make.pl - convert Descrip.MMS file to Makefile
4 # Version 2.0 29-Sep-1994
5 # David Denholm <denholm@conmat.phys.soton.ac.uk>
7 # 1.0 06-Aug-1994 Charles Bailey bailey@genetics.upenn.edu
9 # 2.0 29-Sep-1994 David Denholm <denholm@conmat.phys.soton.ac.uk>
10 # - take action based on MMS .if / .else / .endif
11 # any command line options after filenames are set in an assoc array %macros
12 # maintain "@condition as a stack of current conditions
13 # we unshift a 0 or 1 to front of @conditions at an .ifdef
14 # we invert top of stack at a .else
16 # we deselect any other line if $conditions[0] is 0
17 # I'm being very lazy - push a 1 at start, then dont need to check for
18 # an empty @conditions [assume nesting in descrip.mms is correct]
20 if ($#ARGV > -1 && $ARGV[0] =~ /^[\-\/]trim/i) {
24 $infile = $#ARGV > -1 ? shift(@ARGV) : "Descrip.MMS";
25 $outfile = $#ARGV > -1 ? shift(@ARGV) : "Makefile.";
27 # set any other args in %macros - set VAXC by default
28 foreach (@ARGV) { $macros{"\U$_"}=1 }
31 $macros{"DECC"} = 1 if $macros{"__AXP__"};
33 # set conditions as if there was a .if 1 around whole file
34 # [lazy - saves having to check for empty array - just test [0]==1]
37 open(INFIL,$infile) || die "Can't open $infile: $!\n";
38 open(OUTFIL,">$outfile") || die "Can't open $outfile: $!\n";
40 print OUTFIL "#> This file produced from $infile by $0\n";
41 print OUTFIL "#> Lines beginning with \"#>\" were commented out during the\n";
42 print OUTFIL "#> conversion process. For more information, see $0\n";
46 s/$infile/$outfile/eoi;
48 if (!/^\#\:/) {print OUTFIL;}
52 # look for ".ifdef macro" and push 1 or 0 to head of @conditions
53 # push 0 if we are in false branch of another if
54 if (/^\.ifdef\s*(.+)/i)
56 print OUTFIL "#> ",$_ unless $do_trim;
57 unshift @conditions, ($macros{"\U$1"} ? $conditions[0] : 0);
61 # reverse $conditions[0] for .else provided surrounding if is active
64 print OUTFIL "#> ",$_ unless $do_trim;
65 $conditions[0] = $conditions[1] && !$conditions[0];
69 # pop top condition for .endif
72 print OUTFIL "#> ",$_ unless $do_trim;
77 next if ($do_trim && !$conditions[0]);
79 # spot new rule and pick up first source file, since some versions of
80 # Make don't provide a macro for this
82 if (/:\s+([^\s,]+)/) { $firstsrc = $1 }
83 else { $firstsrc = "\$<" }
87 s/^\.first/\.first:/i;
88 s/^\.suffixes/\.suffixes:/i;
89 s/\@\[\.vms\]/\$\$\@\[\.vms\]/;
91 s/\$\(mms\$source\)/$firstsrc/i;
92 s/\$\(mms\$target\)/\$\@/i;
93 s/\$\(mms\$target_name\)\$\(O\)/\$\@/i;
94 s/\$\(mms\$target_name\)/\$\*/i;
95 s/sys\$([^\(])/sys\$\$$1/gi;
96 print OUTFIL "#> " unless $conditions[0];