diff options
Diffstat (limited to 'perly.c.diff')
| -rw-r--r-- | perly.c.diff | 159 |
1 files changed, 81 insertions, 78 deletions
diff --git a/perly.c.diff b/perly.c.diff index 2f7fb7021b..f72163ec46 100644 --- 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) |