mirror of
https://github.com/Perl/perl5.git
synced 2026-01-26 08:38:23 +00:00
1ae6ead949
Switch from two-argument form. Filehandle cloning is still done with the two argument form for backward compatibility. Committer: Get all porting tests to pass. Increment some $VERSIONs. Run: ./perl -Ilib regen/mk_invlists.pl; ./perl -Ilib regen/regcharclass.pl For: RT #130122
123 lines
3.7 KiB
Perl
123 lines
3.7 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# mms2make.pl - convert Descrip.MMS file to Makefile
|
|
# Version 2.2 29-Jan-1996
|
|
# David Denholm <denholm@conmat.phys.soton.ac.uk>
|
|
#
|
|
# 1.0 06-Aug-1994 Charles Bailey bailey@newman.upenn.edu
|
|
# - original version
|
|
# 2.0 29-Sep-1994 David Denholm <denholm@conmat.phys.soton.ac.uk>
|
|
# - take action based on MMS .if / .else / .endif
|
|
# any command line options after filenames are set in an assoc array %macros
|
|
# maintain "@condition as a stack of current conditions
|
|
# we unshift a 0 or 1 to front of @conditions at an .ifdef
|
|
# we invert top of stack at a .else
|
|
# we pop at a .endif
|
|
# we deselect any other line if $conditions[0] is 0
|
|
# I'm being very lazy - push a 1 at start, then don't need to check for
|
|
# an empty @conditions [assume nesting in descrip.mms is correct]
|
|
# 2.1 26-Feb-1995 Charles Bailey bailey@newman.upenn.edu
|
|
# - handle MMS macros generated by MakeMaker
|
|
# 2.2 29-Jan-1996 Charles Bailey bailey@newman.upenn.edu
|
|
# - Fix output file name to work under Unix
|
|
|
|
if ($#ARGV > -1 && $ARGV[0] =~ /^[\-\/]trim/i) {
|
|
$do_trim = 1;
|
|
shift @ARGV;
|
|
}
|
|
$infile = $#ARGV > -1 ? shift(@ARGV) : "Descrip.MMS";
|
|
$outfile = $#ARGV > -1 ? shift(@ARGV) : "Makefile";
|
|
|
|
# set any other args in %macros - set VAXC by default
|
|
foreach (@ARGV) { $macros{"\U$_"}=1 }
|
|
|
|
# consistency check
|
|
$macros{"DECC"} = 1 if $macros{"__AXP__"};
|
|
|
|
# set conditions as if there was a .if 1 around whole file
|
|
# [lazy - saves having to check for empty array - just test [0]==1]
|
|
@conditions = (1);
|
|
|
|
open(INFIL,'<',$infile) || die "Can't open $infile: $!\n";
|
|
open(OUTFIL,'>',$outfile) || die "Can't open $outfile: $!\n";
|
|
|
|
print OUTFIL "#> This file produced from $infile by $0\n";
|
|
print OUTFIL "#> Lines beginning with \"#>\" were commented out during the\n";
|
|
print OUTFIL "#> conversion process. For more information, see $0\n";
|
|
print OUTFIL "#>\n";
|
|
|
|
while (<INFIL>) {
|
|
s/$infile/$outfile/eoi;
|
|
if (/^\#/) {
|
|
if (!/^\#\:/) {print OUTFIL;}
|
|
next;
|
|
}
|
|
|
|
# look for ".ifdef macro" and push 1 or 0 to head of @conditions
|
|
# push 0 if we are in false branch of another if
|
|
if (/^\.ifdef\s*(.+)/i)
|
|
{
|
|
print OUTFIL "#> ",$_ unless $do_trim;
|
|
unshift @conditions, ($macros{"\U$1"} ? $conditions[0] : 0);
|
|
next;
|
|
}
|
|
|
|
# reverse $conditions[0] for .else provided surrounding if is active
|
|
if (/^\.else/i)
|
|
{
|
|
print OUTFIL "#> ",$_ unless $do_trim;
|
|
$conditions[0] = $conditions[1] && !$conditions[0];
|
|
next;
|
|
}
|
|
|
|
# pop top condition for .endif
|
|
if (/^\.endif/i)
|
|
{
|
|
print OUTFIL "#> ",$_ unless $do_trim;
|
|
shift @conditions;
|
|
next;
|
|
}
|
|
|
|
next if ($do_trim && !$conditions[0]);
|
|
|
|
# spot new rule and pick up first source file, since some versions of
|
|
# Make don't provide a macro for this
|
|
if (/[^#!]*:\s+/) {
|
|
if (/:\s+([^\s,]+)/) { $firstsrc = $1 }
|
|
else { $firstsrc = "\$<" }
|
|
}
|
|
|
|
#convert macros we expect to see in MakeMaker-generated Descrip.MMSs
|
|
s#/Descrip=\s*\n#-f \nMMS = make\n#;
|
|
s#/Macro=\(# #;
|
|
s#MACROEND = \)#MACROEND = #;
|
|
if (m#\$\(USEMACROS\)(.*)(\$\(MACROEND\))?#) {
|
|
while (1) {
|
|
my($macros,$end) = ($1,$2);
|
|
$macros =~ s/,/ /g; # We're hosed if there're commas within a macro -
|
|
# someday, check for "" and skip contents
|
|
last if $end;
|
|
print OUTFIL $conditions[0] ? "#> " : "",$_;
|
|
$_ = <INFIL>;
|
|
m#(.*)(\$\(MACROEND\))?#;
|
|
}
|
|
}
|
|
|
|
s/^ +/\t/;
|
|
s/^\.first/\.first:/i;
|
|
s/^\.suffixes/\.suffixes:/i;
|
|
s/\@\[\.vms\]/\$\$\@\[\.vms\]/;
|
|
s/f\$/f\$\$/goi;
|
|
s/\$\(mms\$source\)/$firstsrc/i;
|
|
s/\$\(mms\$target\)/\$\@/i;
|
|
s/\$\(mms\$target_name\)\$\(O\)/\$\@/i;
|
|
s/\$\(mms\$target_name\)/\$\*/i;
|
|
s/sys\$([^\(])/sys\$\$$1/gi;
|
|
print OUTFIL "#> " unless $conditions[0];
|
|
print OUTFIL $_;
|
|
}
|
|
|
|
close INFIL;
|
|
close OUTFIL;
|
|
|