-*** perly.c.orig Thu Feb 9 17:56:15 1995
---- perly.c Thu Feb 9 17:56:17 1995
+*** perly.c.orig Sun Jul 7 23:27:45 1996
+--- perly.c Sun Jul 7 23:27:46 1996
***************
-*** 12,79 ****
+*** 12,82 ****
deprecate("\"do\" to call subroutines");
}
- #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 ****
+*** 1375,1387 ****
int yynerrs;
int yyerrflag;
int yychar;
- short yyss[YYSTACKSIZE];
- YYSTYPE yyvs[YYSTACKSIZE];
- #define yystacksize YYSTACKSIZE
- #line 545 "perly.y"
+ #line 571 "perly.y"
/* PROGRAM */
- #line 1347 "y.tab.c"
---- 1272,1279 ----
+ #line 1388 "y.tab.c"
+--- 1310,1317 ----
***************
-*** 1347,1360 ****
---- 1280,1338 ----
+*** 1388,1401 ****
+--- 1318,1376 ----
#define YYABORT goto yyabort
#define YYACCEPT goto yyaccept
#define YYERROR goto yyerrlab
{
yyn = *yys;
***************
-*** 1367,1372 ****
---- 1345,1358 ----
+*** 1408,1413 ****
+--- 1383,1396 ----
yyerrflag = 0;
yychar = (-1);
yyvsp = yyvs;
*yyssp = yystate = 0;
***************
-*** 1382,1388 ****
+*** 1423,1429 ****
yys = 0;
if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
if (!yys) yys = "illegal-symbol";
yychar, yys);
}
#endif
---- 1368,1374 ----
+--- 1406,1412 ----
yys = 0;
if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
if (!yys) yys = "illegal-symbol";
}
#endif
***************
-*** 1392,1403 ****
+*** 1433,1444 ****
{
#if YYDEBUG
if (yydebug)
}
*++yyssp = yystate = yytable[yyn];
*++yyvsp = yylval;
---- 1378,1403 ----
+--- 1416,1441 ----
{
#if YYDEBUG
if (yydebug)
*++yyssp = yystate = yytable[yyn];
*++yyvsp = yylval;
***************
-*** 1433,1444 ****
+*** 1474,1485 ****
{
#if YYDEBUG
if (yydebug)
}
*++yyssp = yystate = yytable[yyn];
*++yyvsp = yylval;
---- 1433,1459 ----
+--- 1471,1497 ----
{
#if YYDEBUG
if (yydebug)
*++yyssp = yystate = yytable[yyn];
*++yyvsp = yylval;
***************
-*** 1448,1455 ****
+*** 1489,1496 ****
{
#if YYDEBUG
if (yydebug)
#endif
if (yyssp <= yyss) goto yyabort;
--yyssp;
---- 1463,1471 ----
+--- 1501,1509 ----
{
#if YYDEBUG
if (yydebug)
if (yyssp <= yyss) goto yyabort;
--yyssp;
***************
-*** 1466,1473 ****
+*** 1507,1514 ****
yys = 0;
if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
if (!yys) yys = "illegal-symbol";
}
#endif
yychar = (-1);
---- 1482,1490 ----
+--- 1520,1528 ----
yys = 0;
if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
if (!yys) yys = "illegal-symbol";
#endif
yychar = (-1);
***************
-*** 1476,1482 ****
+*** 1517,1523 ****
yyreduce:
#if YYDEBUG
if (yydebug)
yystate, yyn, yyrule[yyn]);
#endif
yym = yylen[yyn];
---- 1493,1499 ----
+--- 1531,1537 ----
yyreduce:
#if YYDEBUG
if (yydebug)
#endif
yym = yylen[yyn];
***************
-*** 2163,2170 ****
+*** 2236,2243 ****
{
#if YYDEBUG
if (yydebug)
#endif
yystate = YYFINAL;
*++yyssp = YYFINAL;
---- 2180,2188 ----
+--- 2250,2258 ----
{
#if YYDEBUG
if (yydebug)
yystate = YYFINAL;
*++yyssp = YYFINAL;
***************
-*** 2178,2184 ****
+*** 2251,2257 ****
yys = 0;
if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
if (!yys) yys = "illegal-symbol";
YYFINAL, yychar, yys);
}
#endif
---- 2196,2202 ----
+--- 2266,2272 ----
yys = 0;
if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
if (!yys) yys = "illegal-symbol";
}
#endif
***************
-*** 2193,2212 ****
+*** 2266,2285 ****
yystate = yydgoto[yym];
#if YYDEBUG
if (yydebug)
yyaccept:
! return (0);
}
---- 2211,2245 ----
+--- 2281,2315 ----
yystate = yydgoto[yym];
#if YYDEBUG
if (yydebug)