perl 5.002beta2 patch: toke.c

[p5sagit/p5-mst-13.2.git] / perly.c.diff

diff --git a/perly.c.diff b/perly.c.diff
index 2f7fb70..f72163e 100644 (file)
--- a/perly.c.diff
+++ b/perly.c.diff
@@ -1,7 +1,7 @@
-*** perly.c.orig       Thu Feb  9 17:56:15 1995
---- perly.c    Thu Feb  9 17:56:17 1995
+*** perly.c.orig       Tue Nov 14 17:16:49 1995
+--- perly.c    Tue Nov 14 17:17:44 1995
 ***************
-*** 12,79 ****
+*** 12,82 ****
       deprecate("\"do\" to call subroutines");
   }
   
@@ -19,60 +19,63 @@
 - #define THING 260
 - #define PMFUNC 261
 - #define PRIVATEREF 262
-- #define LABEL 263
-- #define FORMAT 264
-- #define SUB 265
-- #define ANONSUB 266
-- #define PACKAGE 267
-- #define USE 268
-- #define WHILE 269
-- #define UNTIL 270
-- #define IF 271
-- #define UNLESS 272
-- #define ELSE 273
-- #define ELSIF 274
-- #define CONTINUE 275
-- #define FOR 276
-- #define LOOPEX 277
-- #define DOTDOT 278
-- #define FUNC0 279
-- #define FUNC1 280
-- #define FUNC 281
-- #define RELOP 282
-- #define EQOP 283
-- #define MULOP 284
-- #define ADDOP 285
-- #define DOLSHARP 286
-- #define DO 287
-- #define LOCAL 288
-- #define HASHBRACK 289
-- #define NOAMP 290
-- #define OROP 291
-- #define ANDOP 292
-- #define NOTOP 293
-- #define LSTOP 294
-- #define ASSIGNOP 295
-- #define OROR 296
-- #define ANDAND 297
-- #define BITOROP 298
-- #define BITANDOP 299
-- #define UNIOP 300
-- #define SHIFTOP 301
-- #define MATCHOP 302
-- #define UMINUS 303
-- #define REFGEN 304
-- #define POWOP 305
-- #define PREINC 306
-- #define PREDEC 307
-- #define POSTINC 308
-- #define POSTDEC 309
-- #define ARROW 310
+- #define FUNC0SUB 263
+- #define UNIOPSUB 264
+- #define LSTOPSUB 265
+- #define LABEL 266
+- #define FORMAT 267
+- #define SUB 268
+- #define ANONSUB 269
+- #define PACKAGE 270
+- #define USE 271
+- #define WHILE 272
+- #define UNTIL 273
+- #define IF 274
+- #define UNLESS 275
+- #define ELSE 276
+- #define ELSIF 277
+- #define CONTINUE 278
+- #define FOR 279
+- #define LOOPEX 280
+- #define DOTDOT 281
+- #define FUNC0 282
+- #define FUNC1 283
+- #define FUNC 284
+- #define RELOP 285
+- #define EQOP 286
+- #define MULOP 287
+- #define ADDOP 288
+- #define DOLSHARP 289
+- #define DO 290
+- #define LOCAL 291
+- #define HASHBRACK 292
+- #define NOAMP 293
+- #define OROP 294
+- #define ANDOP 295
+- #define NOTOP 296
+- #define LSTOP 297
+- #define ASSIGNOP 298
+- #define OROR 299
+- #define ANDAND 300
+- #define BITOROP 301
+- #define BITANDOP 302
+- #define UNIOP 303
+- #define SHIFTOP 304
+- #define MATCHOP 305
+- #define UMINUS 306
+- #define REFGEN 307
+- #define POWOP 308
+- #define PREINC 309
+- #define PREDEC 310
+- #define POSTINC 311
+- #define POSTDEC 312
+- #define ARROW 313
   #define YYERRCODE 256
   short yylhs[] = {                                        -1,
-     30,    0,    5,    3,    6,    6,    6,    7,    7,    7,
+     31,    0,    5,    3,    6,    6,    6,    7,    7,    7,
 --- 12,17 ----
 ***************
-*** 1334,1346 ****
+*** 1338,1350 ****
   int yynerrs;
   int yyerrflag;
   int yychar;
@@ -83,13 +86,13 @@
 - short yyss[YYSTACKSIZE];
 - YYSTYPE yyvs[YYSTACKSIZE];
 - #define yystacksize YYSTACKSIZE
-  #line 545 "perly.y"
+  #line 563 "perly.y"
    /* PROGRAM */
-  #line 1347 "y.tab.c"
---- 1272,1279 ----
+  #line 1351 "y.tab.c"
+--- 1273,1280 ----
 ***************
-*** 1347,1360 ****
---- 1280,1338 ----
+*** 1351,1364 ****
+--- 1281,1339 ----
   #define YYABORT goto yyabort
   #define YYACCEPT goto yyaccept
   #define YYERROR goto yyerrlab
@@ -150,8 +153,8 @@
       {
           yyn = *yys;
 ***************
-*** 1367,1372 ****
---- 1345,1358 ----
+*** 1371,1376 ****
+--- 1346,1359 ----
       yyerrflag = 0;
       yychar = (-1);
   
@@ -167,7 +170,7 @@
       yyvsp = yyvs;
       *yyssp = yystate = 0;
 ***************
-*** 1382,1388 ****
+*** 1386,1392 ****
               yys = 0;
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
@@ -175,7 +178,7 @@
                       yychar, yys);
           }
   #endif
---- 1368,1374 ----
+--- 1369,1375 ----
               yys = 0;
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
@@ -184,7 +187,7 @@
           }
   #endif
 ***************
-*** 1392,1403 ****
+*** 1396,1407 ****
       {
   #if YYDEBUG
           if (yydebug)
@@ -197,7 +200,7 @@
           }
           *++yyssp = yystate = yytable[yyn];
           *++yyvsp = yylval;
---- 1378,1403 ----
+--- 1379,1404 ----
       {
   #if YYDEBUG
           if (yydebug)
@@ -225,7 +228,7 @@
           *++yyssp = yystate = yytable[yyn];
           *++yyvsp = yylval;
 ***************
-*** 1433,1444 ****
+*** 1437,1448 ****
               {
   #if YYDEBUG
                   if (yydebug)
@@ -238,7 +241,7 @@
                   }
                   *++yyssp = yystate = yytable[yyn];
                   *++yyvsp = yylval;
---- 1433,1459 ----
+--- 1434,1460 ----
               {
   #if YYDEBUG
                   if (yydebug)
@@ -267,7 +270,7 @@
                   *++yyssp = yystate = yytable[yyn];
                   *++yyvsp = yylval;
 ***************
-*** 1448,1455 ****
+*** 1452,1459 ****
               {
   #if YYDEBUG
                   if (yydebug)
@@ -276,7 +279,7 @@
   #endif
                   if (yyssp <= yyss) goto yyabort;
                   --yyssp;
---- 1463,1471 ----
+--- 1464,1472 ----
               {
   #if YYDEBUG
                   if (yydebug)
@@ -287,7 +290,7 @@
                   if (yyssp <= yyss) goto yyabort;
                   --yyssp;
 ***************
-*** 1466,1473 ****
+*** 1470,1477 ****
               yys = 0;
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
@@ -296,7 +299,7 @@
           }
   #endif
           yychar = (-1);
---- 1482,1490 ----
+--- 1483,1491 ----
               yys = 0;
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
@@ -307,7 +310,7 @@
   #endif
           yychar = (-1);
 ***************
-*** 1476,1482 ****
+*** 1480,1486 ****
   yyreduce:
   #if YYDEBUG
       if (yydebug)
@@ -315,7 +318,7 @@
                   yystate, yyn, yyrule[yyn]);
   #endif
       yym = yylen[yyn];
---- 1493,1499 ----
+--- 1494,1500 ----
   yyreduce:
   #if YYDEBUG
       if (yydebug)
@@ -324,7 +327,7 @@
   #endif
       yym = yylen[yyn];
 ***************
-*** 2163,2170 ****
+*** 2189,2196 ****
       {
   #if YYDEBUG
           if (yydebug)
@@ -333,7 +336,7 @@
   #endif
           yystate = YYFINAL;
           *++yyssp = YYFINAL;
---- 2180,2188 ----
+--- 2203,2211 ----
       {
   #if YYDEBUG
           if (yydebug)
@@ -344,7 +347,7 @@
           yystate = YYFINAL;
           *++yyssp = YYFINAL;
 ***************
-*** 2178,2184 ****
+*** 2204,2210 ****
                   yys = 0;
                   if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                   if (!yys) yys = "illegal-symbol";
@@ -352,7 +355,7 @@
                           YYFINAL, yychar, yys);
               }
   #endif
---- 2196,2202 ----
+--- 2219,2225 ----
                   yys = 0;
                   if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                   if (!yys) yys = "illegal-symbol";
@@ -361,7 +364,7 @@
               }
   #endif
 ***************
-*** 2193,2212 ****
+*** 2219,2238 ****
           yystate = yydgoto[yym];
   #if YYDEBUG
       if (yydebug)
@@ -382,7 +385,7 @@
   yyaccept:
 !     return (0);
   }
---- 2211,2245 ----
+--- 2234,2268 ----
           yystate = yydgoto[yym];
   #if YYDEBUG
       if (yydebug)