applied suggested patch; regen perly* and vms/perly*

	Message-ID: <13939.26706.620683.846776@fre-76-120.reshall.berkeley.edu>
	Subject: [PATCH] Re: Suggestion for perlobj man page

p4raw-id: //depot/perl@2823

1 files changed, 171 insertions, 39 deletions

diff --git a/perly_c.diff b/perly_c.diff
index 11664b4551..bbf8a8ab34 100644
--- a/perly_c.diff
+++ b/perly_c.diff
@@ -1,16 +1,14 @@
-*** perly.c.orig	Tue Oct 27 12:59:58 1998
---- perly.c	Tue Oct 27 13:00:18 1998
+*** perly.c.orig	Sun Feb  7 04:48:56 1999
+--- perly.c	Sun Feb  7 05:30:49 1999
 ***************
 *** 7,10 ****
---- 7,27 ----
+--- 7,25 ----
   #include "perl.h"
   
 + #define yydebug	    PL_yydebug
 + #define yynerrs	    PL_yynerrs
 + #define yyerrflag   PL_yyerrflag
 + #define yychar	    PL_yychar
-+ #define yyssp	    PL_yyssp
-+ #define yyvsp	    PL_yyvsp
 + #define yyval	    PL_yyval
 + #define yylval	    PL_yylval
 + 
@@ -25,7 +23,7 @@
   static void
   dep(void)
 ***************
-*** 12,91 ****
+*** 12,93 ****
       deprecate("\"do\" to call subroutines");
   }
   
@@ -105,17 +103,151 @@
 - #define POSTDEC 313
 - #define ARROW 314
   #define YYERRCODE 256
-  short yylhs[] = {                                        -1,
---- 29,35 ----
+! short yylhs[] = {                                        -1,
+     45,    0,    9,    7,   10,    8,   11,   11,   11,   12,
+     12,   12,   12,   24,   24,   24,   24,   24,   24,   24,
+--- 27,35 ----
       deprecate("\"do\" to call subroutines");
   }
 + #endif
   
   #line 30 "perly.y"
   #define YYERRCODE 256
-  short yylhs[] = {                                        -1,
+! static short yylhs[] = {                                 -1,
+     45,    0,    9,    7,   10,    8,   11,   11,   11,   12,
+     12,   12,   12,   24,   24,   24,   24,   24,   24,   24,
 ***************
-*** 1342,1370 ****
+*** 109,113 ****
+     20,   21,   22,   35,   35,   35,   35,
+  };
+! short yylen[] = {                                         2,
+      0,    2,    4,    0,    4,    0,    0,    2,    2,    2,
+      1,    2,    3,    1,    1,    3,    3,    3,    3,    3,
+--- 51,55 ----
+     20,   21,   22,   35,   35,   35,   35,
+  };
+! static short yylen[] = {                                  2,
+      0,    2,    4,    0,    4,    0,    0,    2,    2,    2,
+      1,    2,    3,    1,    1,    3,    3,    3,    3,    3,
+***************
+*** 129,133 ****
+      2,    2,    2,    1,    1,    1,    1,
+  };
+! short yydefred[] = {                                      1,
+      0,    7,    0,   45,   56,   54,    0,   54,    8,   46,
+      9,   11,    0,   47,   48,   49,    0,    0,    0,   63,
+--- 71,75 ----
+      2,    2,    2,    1,    1,    1,    1,
+  };
+! static short yydefred[] = {                               1,
+      0,    7,    0,   45,   56,   54,    0,   54,    8,   46,
+      9,   11,    0,   47,   48,   49,    0,    0,    0,   63,
+***************
+*** 168,172 ****
+     33,    0,   23,
+  };
+! short yydgoto[] = {                                       1,
+      9,   66,   10,   18,   95,   17,   86,  339,   89,  328,
+      3,   11,   12,   68,  344,  263,   70,   71,   72,   73,
+--- 110,114 ----
+     33,    0,   23,
+  };
+! static short yydgoto[] = {                                1,
+      9,   66,   10,   18,   95,   17,   86,  339,   89,  328,
+      3,   11,   12,   68,  344,  263,   70,   71,   72,   73,
+***************
+*** 175,179 ****
+    250,  142,  267,   13,    2,   14,   15,   16,   85,  256,
+  };
+! short yysindex[] = {                                      0,
+      0,    0,  -66,    0,    0,    0,  -48,    0,    0,    0,
+      0,    0,  645,    0,    0,    0, -232, -227,  -27,    0,
+--- 117,121 ----
+    250,  142,  267,   13,    2,   14,   15,   16,   85,  256,
+  };
+! short short yysindex[] = {                                0,
+      0,    0,  -66,    0,    0,    0,  -48,    0,    0,    0,
+      0,    0,  645,    0,    0,    0, -232, -227,  -27,    0,
+***************
+*** 214,218 ****
+      0, -238,    0,
+  };
+! short yyrindex[] = {                                      0,
+      0,    0,  249,    0,    0,    0,    0,    0,    0,    0,
+      0,    0,    0,    0,    0,    0,  184,    0,    0,    0,
+--- 156,160 ----
+      0, -238,    0,
+  };
+! static short yyrindex[] = {                               0,
+      0,    0,  249,    0,    0,    0,    0,    0,    0,    0,
+      0,    0,    0,    0,    0,    0,  184,    0,    0,    0,
+***************
+*** 253,257 ****
+      0,  154,    0,
+  };
+! short yygindex[] = {                                      0,
+      0,    0,    0,  374,  351,    0,  -12,    0,  946,  413,
+    -83,    0,    0,    0, -311,  -13, 4139, 4198,    0,    0,
+--- 195,199 ----
+      0,  154,    0,
+  };
+! static short yygindex[] = {                               0,
+      0,    0,    0,  374,  351,    0,  -12,    0,  946,  413,
+    -83,    0,    0,    0, -311,  -13, 4139, 4198,    0,    0,
+***************
+*** 261,265 ****
+  };
+  #define YYTABLESIZE 4425
+! short yytable[] = {                                      69,
+    207,   62,  181,  105,  168,  102,  105,  204,  168,  248,
+     20,  208,   62,  253,   58,  285,  274,  170,  298,  345,
+--- 203,207 ----
+  };
+  #define YYTABLESIZE 4425
+! static short yytable[] = {                               69,
+    207,   62,  181,  105,  168,  102,  105,  204,  168,  248,
+     20,  208,   62,  253,   58,  285,  274,  170,  298,  345,
+***************
+*** 706,710 ****
+      0,    0,    0,    0,  317,
+  };
+! short yycheck[] = {                                      13,
+     41,   36,   86,   41,   91,   40,   44,   59,   91,   59,
+     59,   93,   36,  183,   59,   59,   41,   91,   41,  331,
+--- 648,652 ----
+      0,    0,    0,    0,  317,
+  };
+! static short yycheck[] = {                               13,
+     41,   36,   86,   41,   91,   40,   44,   59,   91,   59,
+     59,   93,   36,  183,   59,   59,   41,   91,   41,  331,
+***************
+*** 1157,1161 ****
+  #define YYMAXTOKEN 314
+  #if YYDEBUG
+! char *yyname[] = {
+  "end-of-file",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+  "'!'",0,0,"'$'","'%'","'&'",0,"'('","')'","'*'","'+'","','","'-'",0,0,0,0,0,0,0,
+--- 1099,1103 ----
+  #define YYMAXTOKEN 314
+  #if YYDEBUG
+! static char *yyname[] = {
+  "end-of-file",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+  "'!'",0,0,"'$'","'%'","'&'",0,"'('","')'","'*'","'+'","','","'-'",0,0,0,0,0,0,0,
+***************
+*** 1174,1178 ****
+  "POSTDEC","ARROW",
+  };
+! char *yyrule[] = {
+  "$accept : prog",
+  "$$1 :",
+--- 1116,1120 ----
+  "POSTDEC","ARROW",
+  };
+! static char *yyrule[] = {
+  "$accept : prog",
+  "$$1 :",
+***************
+*** 1369,1397 ****
   #endif
   #endif
 - int yydebug;
@@ -129,9 +261,9 @@
 - short yyss[YYSTACKSIZE];
 - YYSTYPE yyvs[YYSTACKSIZE];
 - #define yystacksize YYSTACKSIZE
-  #line 648 "perly.y"
+  #line 652 "perly.y"
    /* PROGRAM */
-! #line 1358 "y.tab.c"
+! #line 1385 "y.tab.c"
   #define YYABORT goto yyabort
   #define YYACCEPT goto yyaccept
   #define YYERROR goto yyerrlab
@@ -145,12 +277,12 @@
   
       if (yys = getenv("YYDEBUG"))
       {
---- 1286,1350 ----
+--- 1311,1375 ----
   #endif
   #endif
-  #line 648 "perly.y"
+  #line 652 "perly.y"
    /* PROGRAM */
-! #line 1358 "perly.c"
+! #line 1318 "perly.c"
   #define YYABORT goto yyabort
   #define YYACCEPT goto yyaccept
   #define YYERROR goto yyerrlab
@@ -212,8 +344,8 @@
       if (yys = getenv("YYDEBUG"))
       {
 ***************
-*** 1379,1382 ****
---- 1359,1372 ----
+*** 1406,1409 ****
+--- 1384,1397 ----
       yychar = (-1);
   
 +     /*
@@ -229,7 +361,7 @@
       yyssp = yyss;
       yyvsp = yyvs;
 ***************
-*** 1404,1413 ****
+*** 1431,1440 ****
   #if YYDEBUG
           if (yydebug)
 !             printf("yydebug: state %d, shifting to state %d\n",
@@ -240,7 +372,7 @@
 !             goto yyoverflow;
           }
           *++yyssp = yystate = yytable[yyn];
---- 1394,1417 ----
+--- 1419,1442 ----
   #if YYDEBUG
           if (yydebug)
 !             PerlIO_printf(Perl_debug_log, "yydebug: state %d, shifting to state %d\n",
@@ -266,7 +398,7 @@
           }
           *++yyssp = yystate = yytable[yyn];
 ***************
-*** 1445,1454 ****
+*** 1472,1481 ****
   #if YYDEBUG
                   if (yydebug)
 !                     printf("yydebug: state %d, error recovery shifting\
@@ -277,7 +409,7 @@
 !                     goto yyoverflow;
                   }
                   *++yyssp = yystate = yytable[yyn];
---- 1449,1473 ----
+--- 1474,1498 ----
   #if YYDEBUG
                   if (yydebug)
 !                     PerlIO_printf(Perl_debug_log,
@@ -304,14 +436,14 @@
                   }
                   *++yyssp = yystate = yytable[yyn];
 ***************
-*** 1460,1465 ****
+*** 1487,1492 ****
   #if YYDEBUG
                   if (yydebug)
 !                     printf("yydebug: error recovery discarding state %d\n",
 !                             *yyssp);
   #endif
                   if (yyssp <= yyss) goto yyabort;
---- 1479,1485 ----
+--- 1504,1510 ----
   #if YYDEBUG
                   if (yydebug)
 !                     PerlIO_printf(Perl_debug_log,
@@ -320,14 +452,14 @@
   #endif
                   if (yyssp <= yyss) goto yyabort;
 ***************
-*** 1478,1483 ****
+*** 1505,1510 ****
               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
---- 1498,1504 ----
+--- 1523,1529 ----
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
 !             PerlIO_printf(Perl_debug_log,
@@ -336,40 +468,40 @@
           }
   #endif
 ***************
-*** 1488,1492 ****
+*** 1515,1519 ****
   #if YYDEBUG
       if (yydebug)
 !         printf("yydebug: state %d, reducing by rule %d (%s)\n",
                   yystate, yyn, yyrule[yyn]);
   #endif
---- 1509,1513 ----
+--- 1534,1538 ----
   #if YYDEBUG
       if (yydebug)
 !         PerlIO_printf(Perl_debug_log, "yydebug: state %d, reducing by rule %d (%s)\n",
                   yystate, yyn, yyrule[yyn]);
   #endif
 ***************
-*** 2272,2276 ****
+*** 2305,2309 ****
   { yyval.opval = yyvsp[0].opval; }
   break;
-! #line 2275 "y.tab.c"
+! #line 2308 "y.tab.c"
       }
       yyssp -= yym;
---- 2293,2297 ----
+--- 2324,2328 ----
   { yyval.opval = yyvsp[0].opval; }
   break;
-! #line 2275 "perly.c"
+! #line 2329 "perly.c"
       }
       yyssp -= yym;
 ***************
-*** 2282,2287 ****
+*** 2315,2320 ****
   #if YYDEBUG
           if (yydebug)
 !             printf("yydebug: after reduction, shifting from state 0 to\
 !  state %d\n", YYFINAL);
   #endif
           yystate = YYFINAL;
---- 2303,2309 ----
+--- 2334,2340 ----
   #if YYDEBUG
           if (yydebug)
 !             PerlIO_printf(Perl_debug_log,
@@ -378,20 +510,20 @@
   #endif
           yystate = YYFINAL;
 ***************
-*** 2297,2301 ****
+*** 2330,2334 ****
                   if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                   if (!yys) yys = "illegal-symbol";
 !                 printf("yydebug: state %d, reading %d (%s)\n",
                           YYFINAL, yychar, yys);
               }
---- 2319,2323 ----
+--- 2350,2354 ----
                   if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                   if (!yys) yys = "illegal-symbol";
 !                 PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n",
                           YYFINAL, yychar, yys);
               }
 ***************
-*** 2312,2321 ****
+*** 2345,2354 ****
   #if YYDEBUG
       if (yydebug)
 !         printf("yydebug: after reduction, shifting from state %d \
@@ -402,7 +534,7 @@
 !         goto yyoverflow;
       }
       *++yyssp = yystate;
---- 2334,2358 ----
+--- 2365,2389 ----
   #if YYDEBUG
       if (yydebug)
 !         PerlIO_printf(Perl_debug_log,
@@ -429,7 +561,7 @@
       }
       *++yyssp = yystate;
 ***************
-*** 2323,2330 ****
+*** 2356,2363 ****
       goto yyloop;
   yyoverflow:
 !     yyerror("yacc stack overflow");
@@ -438,7 +570,7 @@
   yyaccept:
 !     return (0);
   }
---- 2360,2367 ----
+--- 2391,2398 ----
       goto yyloop;
   yyoverflow:
 !     yyerror("Out of memory for yacc stack");