Import of Perl 5.003 into the tree. Makefile.bsd-wrapper and

config.sh.OpenBSD are the only local changes.

1 files changed, 56 insertions, 0 deletions

diff --git a/gnu/usr.bin/perl/vms/vms_yfix.pl b/gnu/usr.bin/perl/vms/vms_yfix.pl
new file mode 100644
index 00000000000..33af914b25c
--- /dev/null
+++ b/gnu/usr.bin/perl/vms/vms_yfix.pl
@@ -0,0 +1,56 @@
+# This script takes the output produced from perly.y by byacc and
+# the perly.fixer shell script (i.e. the perly.c and perly.h built
+# for Unix systems) and patches them to produce copies containing
+# appropriate declarations for VMS handling of global symbols.
+#
+# If it finds that the input files are already patches for VMS,
+# it just copies the input to the output.
+#
+# Revised 29-Jan-1996 by Charles Bailey  bailey@genetics.upenn.edu
+
+$VERSION = '1.1';
+
+($cinfile,$hinfile,$coutfile,$houtfile) = @ARGV;
+
+open C,$cinfile or die "Can't read $cinfile: $!\n";
+open COUT, ">$coutfile" or die "Can't create $coutfile: $!\n";
+print COUT <<EOH;
+/* Postprocessed by vms_yfix.pl $VERSION to add VMS declarations of globals */
+EOH
+while (<C>) {
+  # "y.tab.c" is illegal as a VMS filename; DECC 5.2/VAX preprocessor
+  # doesn't like this.
+  if ( s/^#line\s+(\d+)\s+"y.tab.c"/#line $1 "y_tab.c"/ ) { 1; }
+  else {
+    # add the dEXT tag to definitions of global vars, so we'll insert
+    # a globaldef when perly.c is compiled
+    s/^(short|int|YYSTYPE|char \*)\s*yy/dEXT $1 yy/;
+  }
+  print COUT;
+}
+close C;
+close COUT;
+
+open H,$hinfile  or die "Can't read $hinfile: $!\n";
+open HOUT, ">$houtfile" or die "Can't create $houtfile: $!\n";
+print HOUT <<EOH;
+/* Postprocessed by vms_yfix.pl $VERSION to add VMS declarations of globals */
+EOH
+$hfixed = 0;  # keep -w happy
+while (<H>) {
+  $hfixed = /globalref/ unless $hfixed;  # we've already got a fixed copy
+  next if /^extern YYSTYPE yylval/;  # we've got a Unix version, and this
+                                     # is what we want to replace
+  print HOUT;
+}
+close H;
+
+print HOUT <<'EODECL' unless $hfixed;
+#ifndef vax11c
+  extern YYSTYPE yylval;
+#else
+  globalref YYSTYPE yylval;
+#endif
+EODECL
+
+close HOUT;