diff options
Diffstat (limited to 'perly.c.diff')
| -rw-r--r-- | perly.c.diff | 131 |
1 files changed, 75 insertions, 56 deletions
diff --git a/perly.c.diff b/perly.c.diff index f31072a25f..cc55c40ba9 100644 --- a/perly.c.diff +++ b/perly.c.diff @@ -1,7 +1,6 @@ -*** perly.c.orig Sun Jul 7 23:27:45 1996 ---- perly.c Sun Jul 7 23:27:46 1996 +Index: perly.c *************** -*** 12,82 **** +*** 12,83 **** deprecate("\"do\" to call subroutines"); } @@ -47,35 +46,36 @@ - #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 HASHBRACK 291 +- #define NOAMP 292 +- #define LOCAL 293 +- #define MY 294 +- #define OROP 295 +- #define ANDOP 296 +- #define NOTOP 297 +- #define LSTOP 298 +- #define ASSIGNOP 299 +- #define OROR 300 +- #define ANDAND 301 +- #define BITOROP 302 +- #define BITANDOP 303 +- #define UNIOP 304 +- #define SHIFTOP 305 +- #define MATCHOP 306 +- #define UMINUS 307 +- #define REFGEN 308 +- #define POWOP 309 +- #define PREINC 310 +- #define PREDEC 311 +- #define POSTINC 312 +- #define POSTDEC 313 +- #define ARROW 314 #define YYERRCODE 256 short yylhs[] = { -1, - 31, 0, 5, 3, 6, 6, 6, 7, 7, 7, + 40, 0, 7, 5, 8, 9, 6, 10, 10, 10, --- 12,17 ---- *************** -*** 1375,1387 **** +*** 1316,1342 **** int yynerrs; int yyerrflag; int yychar; @@ -86,13 +86,32 @@ - short yyss[YYSTACKSIZE]; - YYSTYPE yyvs[YYSTACKSIZE]; - #define yystacksize YYSTACKSIZE - #line 571 "perly.y" + #line 631 "perly.y" /* PROGRAM */ - #line 1388 "y.tab.c" ---- 1310,1317 ---- -*************** -*** 1388,1401 **** ---- 1318,1376 ---- + #line 1329 "y.tab.c" + #define YYABORT goto yyabort + #define YYACCEPT goto yyaccept + #define YYERROR goto yyerrlab + int + yyparse() + { + register int yym, yyn, yystate; + #if YYDEBUG + register char *yys; + extern char *getenv(); + + if (yys = getenv("YYDEBUG")) + { + yyn = *yys; +--- 1250,1316 ---- + int yynerrs; + int yyerrflag; + int yychar; + YYSTYPE yyval; + YYSTYPE yylval; + #line 631 "perly.y" + /* PROGRAM */ + #line 1329 "y.tab.c" #define YYABORT goto yyabort #define YYACCEPT goto yyaccept #define YYERROR goto yyerrlab @@ -138,7 +157,7 @@ register char *yys; extern char *getenv(); + #endif - ++ + struct ysv *ysave = (struct ysv*)safemalloc(sizeof(struct ysv)); + SAVEDESTRUCTOR(yydestruct, ysave); + ysave->oldyydebug = yydebug; @@ -147,14 +166,14 @@ + ysave->oldyychar = yychar; + ysave->oldyyval = yyval; + ysave->oldyylval = yylval; -+ + + #if YYDEBUG if (yys = getenv("YYDEBUG")) { yyn = *yys; *************** -*** 1408,1413 **** ---- 1383,1396 ---- +*** 1349,1354 **** +--- 1323,1336 ---- yyerrflag = 0; yychar = (-1); @@ -170,7 +189,7 @@ yyvsp = yyvs; *yyssp = yystate = 0; *************** -*** 1423,1429 **** +*** 1364,1370 **** yys = 0; if (yychar <= YYMAXTOKEN) yys = yyname[yychar]; if (!yys) yys = "illegal-symbol"; @@ -178,7 +197,7 @@ yychar, yys); } #endif ---- 1406,1412 ---- +--- 1346,1352 ---- yys = 0; if (yychar <= YYMAXTOKEN) yys = yyname[yychar]; if (!yys) yys = "illegal-symbol"; @@ -187,7 +206,7 @@ } #endif *************** -*** 1433,1444 **** +*** 1374,1385 **** { #if YYDEBUG if (yydebug) @@ -200,7 +219,7 @@ } *++yyssp = yystate = yytable[yyn]; *++yyvsp = yylval; ---- 1416,1441 ---- +--- 1356,1381 ---- { #if YYDEBUG if (yydebug) @@ -228,7 +247,7 @@ *++yyssp = yystate = yytable[yyn]; *++yyvsp = yylval; *************** -*** 1474,1485 **** +*** 1415,1426 **** { #if YYDEBUG if (yydebug) @@ -241,7 +260,7 @@ } *++yyssp = yystate = yytable[yyn]; *++yyvsp = yylval; ---- 1471,1497 ---- +--- 1411,1437 ---- { #if YYDEBUG if (yydebug) @@ -270,7 +289,7 @@ *++yyssp = yystate = yytable[yyn]; *++yyvsp = yylval; *************** -*** 1489,1496 **** +*** 1430,1437 **** { #if YYDEBUG if (yydebug) @@ -279,7 +298,7 @@ #endif if (yyssp <= yyss) goto yyabort; --yyssp; ---- 1501,1509 ---- +--- 1441,1449 ---- { #if YYDEBUG if (yydebug) @@ -290,7 +309,7 @@ if (yyssp <= yyss) goto yyabort; --yyssp; *************** -*** 1507,1514 **** +*** 1448,1455 **** yys = 0; if (yychar <= YYMAXTOKEN) yys = yyname[yychar]; if (!yys) yys = "illegal-symbol"; @@ -299,7 +318,7 @@ } #endif yychar = (-1); ---- 1520,1528 ---- +--- 1460,1468 ---- yys = 0; if (yychar <= YYMAXTOKEN) yys = yyname[yychar]; if (!yys) yys = "illegal-symbol"; @@ -310,7 +329,7 @@ #endif yychar = (-1); *************** -*** 1517,1523 **** +*** 1458,1464 **** yyreduce: #if YYDEBUG if (yydebug) @@ -318,7 +337,7 @@ yystate, yyn, yyrule[yyn]); #endif yym = yylen[yyn]; ---- 1531,1537 ---- +--- 1471,1477 ---- yyreduce: #if YYDEBUG if (yydebug) @@ -327,7 +346,7 @@ #endif yym = yylen[yyn]; *************** -*** 2236,2243 **** +*** 2246,2253 **** { #if YYDEBUG if (yydebug) @@ -336,7 +355,7 @@ #endif yystate = YYFINAL; *++yyssp = YYFINAL; ---- 2250,2258 ---- +--- 2259,2267 ---- { #if YYDEBUG if (yydebug) @@ -347,7 +366,7 @@ yystate = YYFINAL; *++yyssp = YYFINAL; *************** -*** 2251,2257 **** +*** 2261,2267 **** yys = 0; if (yychar <= YYMAXTOKEN) yys = yyname[yychar]; if (!yys) yys = "illegal-symbol"; @@ -355,7 +374,7 @@ YYFINAL, yychar, yys); } #endif ---- 2266,2272 ---- +--- 2275,2281 ---- yys = 0; if (yychar <= YYMAXTOKEN) yys = yyname[yychar]; if (!yys) yys = "illegal-symbol"; @@ -364,7 +383,7 @@ } #endif *************** -*** 2266,2285 **** +*** 2276,2295 **** yystate = yydgoto[yym]; #if YYDEBUG if (yydebug) @@ -385,7 +404,7 @@ yyaccept: ! return (0); } ---- 2281,2315 ---- +--- 2290,2324 ---- yystate = yydgoto[yym]; #if YYDEBUG if (yydebug) |