perl 5.0 alpha 5

    
[editor's note: the sparc executables have not been included,
and emacs backup files and other cruft such as patch backup files have
been removed.  This was reconstructed from a tarball found on the
September 1994 InfoMagic CD]

1 files changed, 159 insertions, 16 deletions

diff --git a/perly.c.diff b/perly.c.diff
index 06a8b6ca1e..4d8135309a 100644
--- a/perly.c.diff
+++ b/perly.c.diff
@@ -1,7 +1,7 @@
-*** perly.c.byacc	Tue Oct  5 15:44:31 1993
---- perly.c	Tue Oct  5 16:23:53 1993
+*** perly.c.orig	Fri Jan 14 03:56:26 1994
+--- perly.c	Sun Jan 16 18:29:19 1994
 ***************
-*** 1396,1408 ****
+*** 1635,1647 ****
   int yynerrs;
   int yyerrflag;
   int yychar;
@@ -12,13 +12,13 @@
 - short yyss[YYSTACKSIZE];
 - YYSTYPE yyvs[YYSTACKSIZE];
 - #define yystacksize YYSTACKSIZE
-  #line 573 "perly.y"
+  #line 605 "perly.y"
    /* PROGRAM */
-  #line 1409 "y.tab.c"
---- 1396,1403 ----
+  #line 1648 "y.tab.c"
+--- 1635,1642 ----
 ***************
-*** 1413,1418 ****
---- 1408,1426 ----
+*** 1652,1657 ****
+--- 1647,1665 ----
   yyparse()
   {
       register int yym, yyn, yystate;
@@ -39,8 +39,8 @@
       register char *yys;
       extern char *getenv();
 ***************
-*** 1429,1434 ****
---- 1437,1450 ----
+*** 1668,1673 ****
+--- 1676,1689 ----
       yyerrflag = 0;
       yychar = (-1);
   
@@ -56,7 +56,29 @@
       yyvsp = yyvs;
       *yyssp = yystate = 0;
 ***************
-*** 1459,1465 ****
+*** 1683,1689 ****
+              yys = 0;
+              if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
+              if (!yys) yys = "illegal-symbol";
+!             printf("yydebug: state %d, reading %d (%s)\n", yystate,
+                      yychar, yys);
+          }
+  #endif
+--- 1699,1705 ----
+              yys = 0;
+              if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
+              if (!yys) yys = "illegal-symbol";
+!             fprintf(stderr, "yydebug: state %d, reading %d (%s)\n", yystate,
+                      yychar, yys);
+          }
+  #endif
+***************
+*** 1693,1704 ****
+      {
+  #if YYDEBUG
+          if (yydebug)
+!             printf("yydebug: state %d, shifting to state %d\n",
+                      yystate, yytable[yyn]);
   #endif
           if (yyssp >= yyss + yystacksize - 1)
           {
@@ -64,7 +86,12 @@
           }
           *++yyssp = yystate = yytable[yyn];
           *++yyvsp = yylval;
---- 1475,1493 ----
+--- 1709,1732 ----
+      {
+  #if YYDEBUG
+          if (yydebug)
+!             fprintf(stderr, "yydebug: state %d, shifting to state %d\n",
+                      yystate, yytable[yyn]);
   #endif
           if (yyssp >= yyss + yystacksize - 1)
           {
@@ -85,7 +112,12 @@
           *++yyssp = yystate = yytable[yyn];
           *++yyvsp = yylval;
 ***************
-*** 1500,1506 ****
+*** 1734,1745 ****
+              {
+  #if YYDEBUG
+                  if (yydebug)
+!                     printf("yydebug: state %d, error recovery shifting\
+!  to state %d\n", *yyssp, yytable[yyn]);
   #endif
                   if (yyssp >= yyss + yystacksize - 1)
                   {
@@ -93,7 +125,13 @@
                   }
                   *++yyssp = yystate = yytable[yyn];
                   *++yyvsp = yylval;
---- 1528,1548 ----
+--- 1762,1788 ----
+              {
+  #if YYDEBUG
+                  if (yydebug)
+!                     fprintf(stderr,
+! 		     "yydebug: state %d, error recovery shifting to state %d\n",
+! 		     *yyssp, yytable[yyn]);
   #endif
                   if (yyssp >= yyss + yystacksize - 1)
                   {
@@ -116,7 +154,106 @@
                   *++yyssp = yystate = yytable[yyn];
                   *++yyvsp = yylval;
 ***************
-*** 2281,2295 ****
+*** 1749,1756 ****
+              {
+  #if YYDEBUG
+                  if (yydebug)
+!                     printf("yydebug: error recovery discarding state %d\n",
+!                             *yyssp);
+  #endif
+                  if (yyssp <= yyss) goto yyabort;
+                  --yyssp;
+--- 1792,1800 ----
+              {
+  #if YYDEBUG
+                  if (yydebug)
+!                     fprintf(stderr,
+! 			"yydebug: error recovery discarding state %d\n",
+! 			*yyssp);
+  #endif
+                  if (yyssp <= yyss) goto yyabort;
+                  --yyssp;
+***************
+*** 1767,1774 ****
+              yys = 0;
+              if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
+              if (!yys) yys = "illegal-symbol";
+!             printf("yydebug: state %d, error recovery discards token %d (%s)\n",
+!                     yystate, yychar, yys);
+          }
+  #endif
+          yychar = (-1);
+--- 1811,1819 ----
+              yys = 0;
+              if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
+              if (!yys) yys = "illegal-symbol";
+!             fprintf(stderr,
+! 		"yydebug: state %d, error recovery discards token %d (%s)\n",
+! 		yystate, yychar, yys);
+          }
+  #endif
+          yychar = (-1);
+***************
+*** 1777,1783 ****
+  yyreduce:
+  #if YYDEBUG
+      if (yydebug)
+!         printf("yydebug: state %d, reducing by rule %d (%s)\n",
+                  yystate, yyn, yyrule[yyn]);
+  #endif
+      yym = yylen[yyn];
+--- 1822,1828 ----
+  yyreduce:
+  #if YYDEBUG
+      if (yydebug)
+!         fprintf(stderr, "yydebug: state %d, reducing by rule %d (%s)\n",
+                  yystate, yyn, yyrule[yyn]);
+  #endif
+      yym = yylen[yyn];
+***************
+*** 2529,2536 ****
+      {
+  #if YYDEBUG
+          if (yydebug)
+!             printf("yydebug: after reduction, shifting from state 0 to\
+!  state %d\n", YYFINAL);
+  #endif
+          yystate = YYFINAL;
+          *++yyssp = YYFINAL;
+--- 2574,2582 ----
+      {
+  #if YYDEBUG
+          if (yydebug)
+!             fprintf(stderr,
+! 		"yydebug: after reduction, shifting from state 0 to state %d\n",
+! 		YYFINAL);
+  #endif
+          yystate = YYFINAL;
+          *++yyssp = YYFINAL;
+***************
+*** 2544,2550 ****
+                  yys = 0;
+                  if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
+                  if (!yys) yys = "illegal-symbol";
+!                 printf("yydebug: state %d, reading %d (%s)\n",
+                          YYFINAL, yychar, yys);
+              }
+  #endif
+--- 2590,2596 ----
+                  yys = 0;
+                  if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
+                  if (!yys) yys = "illegal-symbol";
+!                 fprintf(stderr, "yydebug: state %d, reading %d (%s)\n",
+                          YYFINAL, yychar, yys);
+              }
+  #endif
+***************
+*** 2559,2578 ****
+          yystate = yydgoto[yym];
+  #if YYDEBUG
+      if (yydebug)
+!         printf("yydebug: after reduction, shifting from state %d \
+! to state %d\n", *yyssp, yystate);
   #endif
       if (yyssp >= yyss + yystacksize - 1)
       {
@@ -132,7 +269,13 @@
   yyaccept:
 !     return (0);
   }
---- 2323,2357 ----
+--- 2605,2645 ----
+          yystate = yydgoto[yym];
+  #if YYDEBUG
+      if (yydebug)
+!         fprintf(stderr,
+! 	    "yydebug: after reduction, shifting from state %d to state %d\n",
+! 	    *yyssp, yystate);
   #endif
       if (yyssp >= yyss + yystacksize - 1)
       {