1 # This script takes the output produced from perly.y by byacc and
2 # the perly.fixer shell script (i.e. the perly.c and perly.h built
3 # for Unix systems) and patches them to produce copies containing
4 # appropriate declarations for VMS handling of global symbols.
6 # If it finds that the input files are already patches for VMS,
7 # it just copies the input to the output.
9 # Revised 26-May-1995 by Charles Bailey bailey@genetics.upenn.edu
11 ($cinfile,$hinfile,$coutfile,$houtfile) = @ARGV;
13 open C,$cinfile or die "Can't read $cinfile: $!\n";
14 open COUT, ">$coutfile" or die "Can't create $coutfile: $!\n";
16 if (/^dEXT/) { # we've already got a fixed copy
20 # add the dEXT tag to definitions of global vars, so we'll insert
21 # a globaldef when perly.c is compiled
22 s/^(short|int|YYSTYPE|char \*)\s*yy/dEXT $1 yy/;
28 open H,$hinfile or die "Can't read $hinfile: $!\n";
29 open HOUT, ">$houtfile" or die "Can't create $houtfile: $!\n";
30 $hfixed = 0; # keep -w happy
32 $hfixed = /globalref/ unless $hfixed; # we've already got a fixed copy
33 next if /^extern YYSTYPE yylval/; # we've got a Unix version, and this
34 # is what we want to replace
39 print HOUT <<'EODECL' unless $hfixed;
41 extern YYSTYPE yylval;
43 globalref YYSTYPE yylval;