X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perly.c;h=2b5108fac1666131456cb5eabac4d1935ba65a4f;hb=453189b60dbb6e88d68de022c83a2a4ff03203fd;hp=bedc75dfbb7d07dd7637da08c3917a27fd51891e;hpb=13281fa4f8547e0eb31d1986b865d9b7ec7d0dcc;p=p5sagit%2Fp5-mst-13.2.git diff --git a/perly.c b/perly.c index bedc75d..2b5108f 100644 --- a/perly.c +++ b/perly.c @@ -1,1965 +1,2506 @@ -char rcsid[] = "$Header: perly.c,v 2.0.1.1 88/06/28 16:36:49 root Exp $"; -/* - * $Log: perly.c,v $ - * Revision 2.0.1.1 88/06/28 16:36:49 root - * patch1: added DOSUID code - * - * Revision 2.0 88/06/05 00:09:56 root - * Baseline version 2.0. - * - */ - +#ifndef lint +static char yysccsid[] = "@(#)yaccpar 1.8 (Berkeley) 01/20/91"; +#endif +#define YYBYACC 1 +#line 16 "perly.y" #include "EXTERN.h" +#define PERL_IN_PERLY_C #include "perl.h" -#include "perly.h" - -extern char *tokename[]; -extern int yychar; -static int cmd_tosave(); -static int arg_tosave(); -static int spat_tosave(); - -main(argc,argv,env) -register int argc; -register char **argv; -register char **env; -{ - register STR *str; - register char *s; - char *index(), *strcpy(), *getenv(); - bool dosearch = FALSE; -#ifdef DOSUID - char **origargv = argv; - char *validarg = ""; +#define dep() deprecate("\"do\" to call subroutines") + +/* stuff included here to make perly_c.diff apply better */ + +#define yydebug PL_yydebug +#define yynerrs PL_yynerrs +#define yyerrflag PL_yyerrflag +#define yychar PL_yychar +#define yyval PL_yyval +#define yylval PL_yylval + +struct ysv { + short* yyss; + YYSTYPE* yyvs; + int oldyydebug; + int oldyynerrs; + int oldyyerrflag; + int oldyychar; + YYSTYPE oldyyval; + YYSTYPE oldyylval; +}; + +static void yydestruct(pTHXo_ void *ptr); + +#line 49 "perly.y" +#if 0 /* get this from perly.h instead */ +#line 52 "perly.y" +typedef union { + I32 ival; + char *pval; + OP *opval; + GV *gvval; +} YYSTYPE; +#line 60 "perly.y" +#endif /* 0 */ + +#ifdef USE_PURE_BISON +#define YYLEX_PARAM (&yychar) #endif - uid = (int)getuid(); - euid = (int)geteuid(); - linestr = str_new(80); - str_nset(linestr,"",0); - str = str_make(""); /* first used for -I flags */ - incstab = aadd(stabent("INC",TRUE)); - for (argc--,argv++; argc; argc--,argv++) { - if (argv[0][0] != '-' || !argv[0][1]) - break; -#ifdef DOSUID - if (*validarg) - validarg = " PHOOEY "; - else - validarg = argv[0]; +#line 51 "perly.c" +#define YYERRCODE 256 +static short yylhs[] = { -1, + 50, 0, 8, 6, 9, 7, 10, 10, 10, 11, + 11, 11, 11, 24, 24, 24, 24, 24, 24, 24, + 14, 14, 14, 13, 13, 42, 42, 12, 12, 12, + 12, 12, 12, 12, 26, 26, 27, 27, 28, 29, + 30, 31, 32, 49, 49, 1, 1, 1, 1, 1, + 2, 38, 38, 46, 51, 3, 4, 5, 39, 40, + 40, 44, 44, 44, 45, 45, 41, 41, 52, 52, + 54, 53, 15, 15, 15, 25, 25, 25, 36, 36, + 36, 36, 36, 36, 36, 36, 55, 36, 37, 37, + 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, + 17, 16, 16, 16, 16, 16, 16, 16, 16, 16, + 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, + 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, + 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, + 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, + 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, + 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, + 47, 47, 48, 48, 48, 48, 48, 33, 33, 34, + 34, 34, 43, 23, 18, 19, 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, + 0, 2, 6, 7, 7, 0, 2, 8, 8, 10, + 9, 8, 11, 3, 0, 1, 0, 1, 1, 1, + 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, + 4, 1, 0, 6, 6, 0, 0, 0, 1, 0, + 1, 0, 2, 1, 2, 1, 1, 1, 3, 2, + 0, 7, 3, 3, 1, 2, 3, 1, 3, 5, + 6, 3, 3, 5, 2, 4, 0, 5, 1, 1, + 5, 4, 5, 4, 5, 6, 5, 4, 5, 4, + 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, + 3, 3, 3, 5, 3, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 1, 2, 3, 2, 3, 2, + 4, 3, 5, 1, 1, 1, 1, 1, 1, 6, + 5, 4, 5, 1, 1, 3, 4, 3, 2, 2, + 4, 5, 4, 5, 1, 2, 2, 1, 2, 2, + 2, 1, 3, 1, 3, 4, 4, 6, 1, 1, + 3, 2, 3, 2, 1, 1, 1, 0, 1, 0, + 1, 2, 1, 2, 2, 2, 2, 2, 2, 1, + 1, 1, 1, +}; +static short yydefred[] = { 1, + 0, 7, 0, 45, 58, 56, 0, 56, 56, 8, + 46, 9, 11, 48, 0, 47, 49, 50, 0, 0, + 0, 70, 71, 0, 14, 4, 169, 0, 0, 144, + 0, 164, 0, 57, 57, 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, 12, 0, 0, 0, 0, 0, 0, 0, 10, + 0, 0, 0, 0, 0, 136, 138, 0, 0, 0, + 0, 170, 125, 52, 0, 59, 0, 69, 0, 0, + 7, 190, 193, 192, 191, 0, 0, 0, 0, 0, + 0, 4, 4, 4, 4, 4, 4, 0, 0, 0, + 0, 0, 159, 0, 0, 0, 0, 85, 0, 188, + 0, 150, 0, 0, 0, 0, 0, 0, 0, 175, + 177, 176, 0, 184, 0, 0, 0, 0, 0, 0, + 0, 0, 130, 0, 0, 0, 185, 186, 187, 189, + 0, 34, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 121, 122, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 13, 0, 51, 61, 0, + 0, 0, 0, 83, 0, 0, 87, 0, 0, 0, + 0, 0, 0, 0, 4, 163, 165, 0, 0, 0, + 0, 0, 0, 0, 132, 0, 148, 174, 0, 0, + 171, 0, 0, 129, 27, 0, 0, 19, 0, 0, + 0, 0, 73, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 89, 0, + 0, 90, 0, 0, 101, 0, 0, 0, 0, 0, + 0, 0, 146, 0, 0, 0, 0, 0, 0, 3, + 0, 0, 167, 0, 0, 0, 42, 0, 43, 0, + 0, 0, 0, 183, 0, 0, 36, 41, 0, 0, + 0, 166, 182, 86, 0, 151, 0, 153, 0, 131, + 173, 65, 0, 0, 0, 0, 98, 0, 0, 0, + 0, 100, 94, 0, 92, 0, 142, 0, 147, 63, + 68, 67, 55, 0, 54, 84, 0, 88, 133, 0, + 0, 0, 0, 0, 0, 0, 0, 80, 152, 154, + 141, 0, 0, 0, 99, 93, 0, 97, 95, 143, + 91, 72, 168, 6, 0, 0, 0, 0, 0, 0, + 0, 0, 140, 96, 81, 7, 28, 29, 0, 0, + 24, 25, 0, 32, 0, 0, 0, 22, 0, 0, + 0, 31, 5, 0, 30, 0, 0, 33, 0, 23, +}; +static short yydgoto[] = { 1, + 10, 11, 20, 100, 19, 91, 366, 94, 355, 3, + 12, 13, 70, 371, 281, 72, 73, 74, 75, 76, + 77, 78, 79, 287, 81, 288, 277, 279, 282, 290, + 278, 280, 118, 210, 96, 82, 253, 85, 87, 190, + 323, 152, 285, 267, 221, 14, 83, 133, 15, 2, + 16, 17, 18, 89, 274, +}; +static short yysindex[] = { 0, + 0, 0, -199, 0, 0, 0, -53, 0, 0, 0, + 0, 0, 0, 0, 646, 0, 0, 0, -217, -207, + 44, 0, 0, -207, 0, 0, 0, -32, -32, 0, + 66, 0, 2177, 0, 0, 69, 83, 93, 110, -35, + 2177, 119, 121, 136, 1013, 973, -32, 1077, 1344, -146, + 2177, 68, -32, 2177, 2177, 2177, 2177, 2177, 2177, 1384, + 1424, 0, 2177, 2177, -32, -32, -32, -32, -152, 0, + 470, 845, -13, -65, -63, 0, 0, 55, 137, 122, + 138, 0, 0, 0, 60, 0, -70, 0, -66, -70, + 0, 0, 0, 0, 0, 2177, 146, 2177, 1085, 60, + -70, 0, 0, 0, 0, 0, 0, 152, 845, 153, + 1464, 973, 0, 1085, 0, -65, 138, 0, 2177, 0, + 160, 0, 1085, 2, 76, -52, 2177, 1085, 1524, 0, + 0, 0, -96, 0, 138, -181, -181, -181, -112, -112, + 123, -38, 0, -74, -181, -181, 0, 0, 0, 0, + 60, 0, 2177, 2177, 2177, 2177, 2177, 2177, 2177, 2177, + 2177, 2177, 2177, 2177, 2177, 2177, 2177, 2177, 2177, 2177, + 2177, 2177, 2177, 0, 0, -16, 2177, 1731, 2177, 2177, + 2177, 2177, 2177, 2177, 1791, 0, 2177, 0, 0, -88, + -34, -88, 339, 0, 2177, 287, 0, -88, 2177, 2177, + 2177, 2177, 173, 1850, 0, 0, 0, -33, 46, 180, + 2177, 138, 1910, 2025, 0, 97, 0, 0, -31, -29, + 0, 2177, 133, 0, 0, -237, -237, 0, -237, -237, + -237, -69, 0, 1614, 1085, 684, 167, 107, 845, 3800, + 1125, 405, 1164, 778, -228, -181, -181, 2177, 0, 2117, + 2177, 0, 197, -48, 0, -9, -72, -45, -7, -42, + 56, -36, 0, -4, 845, -10, -47, 2177, -47, 0, + 216, 2177, 0, 2177, 60, -237, 0, 219, 0, 230, + -237, 233, 237, 0, 242, 470, 0, 0, 246, 225, + 2177, 0, 0, 0, 13, 0, 18, 0, 29, 0, + 0, 0, 61, 2177, 2177, 54, 0, 32, 63, 2177, + 165, 0, 0, 174, 0, 178, 0, 191, 0, 0, + 0, 0, 0, 261, 0, 0, 350, 0, 0, 182, + 182, 182, 182, 2177, 182, 2177, 281, 0, 0, 0, + 0, 102, 1237, 202, 0, 0, 294, 0, 0, 0, + 0, 0, 0, 0, -152, -152, -130, -130, 297, -152, + 290, 182, 0, 0, 0, 0, 0, 0, 182, 318, + 0, 0, 182, 0, 1850, -152, 407, 0, 2177, -152, + 324, 0, 0, 326, 0, 182, 182, 0, -130, 0, +}; +static short yyrindex[] = { 0, + 0, 0, 243, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 236, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 36, 451, 0, 0, 2208, 2271, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 115, 0, + -12, 939, 2325, 2385, 2463, 0, 0, 2510, 2561, 0, + 1220, 0, 0, 0, 0, 0, -44, 0, 0, -44, + 0, 0, 0, 0, 0, 2271, 0, 0, 3846, 0, + -105, 0, 0, 0, 0, 0, 0, 0, 2612, 0, + 0, 327, 0, 3883, 522, 583, 3032, 0, 0, 0, + 2621, 0, 3893, 2385, 0, 0, 2271, 3930, 0, 0, + 0, 0, 2667, 0, 3092, 3374, 3418, 3458, 3219, 3331, + 2746, 0, 0, 0, 3496, 3567, 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, 2797, 0, 0, -23, + 0, -23, 913, 0, 327, 0, 0, 247, 336, 0, + 0, 0, 0, 333, 0, 0, 0, 0, 352, 0, + 0, 3138, 0, 0, 0, 0, 0, 0, 0, 2857, + 0, 0, 2903, 0, 0, -8, -2, 0, 7, 33, + 42, 2255, 0, -28, 3968, 1822, 3732, 3769, 3023, 0, + 4119, 4082, 4021, 4005, 1044, 3610, 3694, 0, 0, 0, + 0, 0, 2949, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 3657, -21, 0, 345, 0, 0, + 0, 0, 0, 2271, 0, 71, 0, 0, 0, 0, + 364, 0, 0, 0, 0, 86, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 327, + 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, 355, 0, 0, 0, 0, + 0, 0, 2972, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 115, 115, 175, 175, 0, 115, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 374, 115, 913, 0, 0, 115, + 0, 0, 0, 0, 0, 0, 0, 0, 175, 0, +}; +static short yygindex[] = { 0, + 0, 0, 164, 383, 0, 14, 0, 37, 655, -89, + 0, 0, 0, -336, -15, 3415, 0, 2211, 368, 369, + 0, 0, 0, 410, 916, 0, 0, 273, -163, 62, + 94, 249, -71, -186, 634, 0, 0, 0, 428, -46, + 184, 118, 0, -149, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, +}; +#define YYTABLESIZE 4423 +static short yytable[] = { 71, + 65, 193, 223, 65, 107, 22, 216, 292, 271, 301, + 311, 321, 111, 314, 60, 111, 316, 60, 224, 65, + 313, 372, 318, 250, 194, 181, 178, 183, 15, 111, + 111, 312, 18, 126, 111, 62, 319, 64, 39, 84, + 289, 214, 269, 192, 142, 144, 15, 16, 275, 86, + 18, 69, 390, 338, 198, 217, 39, 180, 339, 182, + 163, 164, 158, 159, 111, 16, 4, 5, 6, 340, + 7, 8, 345, 17, 251, 26, 155, 179, 60, 155, + 172, 113, 20, 173, 122, 315, 174, 175, 176, 293, + 26, 17, 181, 155, 155, 208, 209, 9, 155, 62, + 20, 64, 88, 65, 67, 98, 248, 129, 102, 177, + 127, 38, 344, 219, 26, 199, 200, 201, 202, 203, + 204, 188, 103, 347, 180, 151, 40, 337, 155, 38, + 173, 66, 104, 174, 175, 176, 197, 226, 227, 229, + 230, 231, 232, 233, 15, 369, 370, 26, 317, 105, + 26, 26, 26, 341, 26, 346, 26, 26, 110, 26, + 111, 254, 256, 257, 258, 259, 260, 261, 262, 264, + 359, 23, 24, 26, 21, 112, 185, 184, 26, 209, + 186, 187, 26, 276, 227, 195, 227, 225, 286, 189, + 191, 205, 60, 206, 363, 295, 324, 297, 299, 213, + 215, 220, 328, 21, 176, 26, 303, 21, 65, 266, + 21, 21, 21, 222, 21, 384, 21, 21, 291, 21, + 294, 300, 268, 304, 92, 158, 159, 158, 159, 93, + 302, 159, 306, 21, 308, 309, 310, 26, 21, 26, + 26, 249, 2, 111, 111, 111, 111, 158, 159, 320, + 111, 158, 159, 60, 158, 159, 326, 158, 159, 330, + 106, 158, 159, 158, 159, 21, 158, 159, 158, 159, + 331, 111, 111, 332, 111, 44, 377, 333, 44, 44, + 44, 334, 44, 336, 44, 44, 335, 44, 342, 348, + 158, 159, 158, 159, 209, 158, 159, 21, 349, 21, + 21, 44, 350, 322, 354, 322, 44, 155, 155, 155, + 155, 329, 158, 159, 155, 351, 155, 158, 159, 352, + 276, 362, 155, 155, 155, 155, 364, 273, 158, 159, + 272, 158, 159, 44, 365, 155, 155, 373, 155, 155, + 155, 155, 155, 155, 155, 158, 159, 155, 375, 166, + 155, 155, 155, 158, 159, 158, 159, 379, 53, 71, + 158, 159, 158, 159, 386, 44, 387, 180, 44, 62, + 26, 26, 26, 26, 26, 26, 37, 26, 26, 26, + 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, + 353, 35, 181, 26, 26, 163, 26, 26, 26, 26, + 26, 158, 159, 178, 40, 26, 26, 26, 26, 26, + 26, 26, 166, 37, 35, 172, 26, 101, 173, 131, + 132, 174, 175, 176, 80, 26, 228, 26, 26, 361, + 21, 21, 21, 21, 21, 21, 381, 21, 21, 21, + 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, + 283, 90, 325, 21, 21, 0, 21, 21, 21, 21, + 21, 0, 0, 270, 0, 21, 21, 21, 21, 21, + 21, 21, 367, 368, 0, 172, 21, 374, 173, 0, + 0, 174, 175, 176, 0, 21, 0, 21, 21, 0, + 0, 162, 0, 382, 162, 0, 0, 385, 44, 44, + 44, 44, 44, 44, 0, 44, 44, 44, 162, 162, + 0, 44, 0, 162, 44, 44, 44, 44, 0, 0, + 0, 44, 44, 0, 44, 44, 44, 44, 44, 0, + 0, 383, 0, 44, 44, 44, 44, 44, 44, 0, + 0, 0, 0, 162, 44, 0, 0, 0, 0, 0, + 0, 0, 0, 44, 190, 44, 44, 190, 190, 190, + 0, 190, 169, 190, 190, 169, 190, 160, 0, 0, + 0, 0, 0, 161, 162, 163, 164, 0, 0, 169, + 169, 0, 0, 0, 169, 190, 0, 0, 0, 165, + 167, 168, 169, 170, 171, 172, 0, 0, 173, 0, + 0, 174, 175, 176, 4, 5, 6, 0, 7, 8, + 0, 0, 190, 0, 169, 191, 0, 0, 191, 191, + 191, 0, 191, 134, 191, 191, 134, 191, 0, 0, + 160, 0, 0, 0, 0, 9, 161, 162, 163, 164, + 134, 134, 0, 0, 0, 134, 191, 190, 0, 0, + 0, 0, 165, 167, 168, 169, 170, 171, 172, 0, + 0, 173, 97, 0, 174, 175, 176, 0, 0, 0, + 0, 0, 4, 5, 6, 134, 7, 8, 55, 119, + 120, 65, 67, 53, 0, 60, 134, 68, 64, 0, + 63, 161, 162, 163, 164, 0, 0, 0, 147, 148, + 149, 150, 0, 9, 62, 0, 0, 0, 191, 66, + 169, 170, 171, 172, 0, 0, 173, 0, 0, 174, + 175, 176, 162, 162, 162, 162, 0, 0, 0, 162, + 0, 162, 0, 0, 0, 0, 61, 162, 162, 162, + 162, 153, 154, 155, 156, 211, 0, 0, 157, 0, + 162, 162, 0, 162, 162, 162, 162, 162, 162, 162, + 0, 0, 162, 0, 0, 162, 162, 162, 26, 158, + 159, 56, 0, 0, 0, 0, 0, 0, 190, 190, + 190, 190, 190, 0, 190, 190, 190, 0, 0, 0, + 190, 0, 0, 169, 169, 169, 169, 0, 0, 0, + 169, 190, 169, 190, 190, 190, 190, 190, 169, 169, + 169, 169, 190, 190, 190, 190, 190, 190, 0, 0, + 0, 169, 169, 190, 169, 169, 169, 169, 169, 169, + 169, 0, 190, 169, 190, 190, 169, 169, 169, 191, + 191, 191, 191, 191, 0, 191, 191, 191, 0, 0, + 0, 191, 0, 0, 134, 134, 134, 134, 0, 0, + 0, 134, 191, 134, 191, 191, 191, 191, 191, 134, + 134, 134, 134, 191, 191, 191, 191, 191, 191, 0, + 0, 0, 134, 134, 191, 134, 134, 134, 134, 134, + 134, 134, 0, 191, 134, 191, 191, 134, 134, 134, + 0, 25, 27, 28, 29, 30, 31, 166, 32, 33, + 34, 0, 0, 0, 35, 0, 0, 36, 37, 38, + 39, 0, 0, 0, 40, 41, 0, 42, 43, 44, + 45, 46, 0, 0, 0, 0, 47, 48, 49, 50, + 51, 52, 0, 0, 0, 44, 0, 54, 44, 44, + 44, 0, 44, 0, 44, 44, 57, 44, 58, 59, + 0, 117, 0, 0, 0, 0, 0, 0, 0, 135, + 161, 44, 163, 164, 0, 0, 44, 0, 0, 78, + 0, 0, 78, 0, 0, 356, 357, 358, 0, 360, + 0, 171, 172, 0, 0, 173, 78, 78, 174, 175, + 176, 0, 0, 44, 0, 55, 0, 0, 65, 67, + 53, 117, 60, 0, 68, 64, 376, 63, 0, 0, + 0, 0, 0, 378, 0, 0, 0, 380, 0, 0, + 0, 78, 0, 0, 212, 44, 66, 0, 44, 0, + 388, 389, 117, 0, 0, 55, 0, 0, 65, 67, + 53, 0, 60, 0, 68, 64, 0, 63, 0, 0, + 0, 0, 0, 61, 161, 162, 163, 164, 0, 0, + 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, + 0, 0, 0, 0, 106, 171, 172, 106, 0, 173, + 0, 0, 174, 175, 176, 26, 0, 0, 56, 0, + 0, 106, 106, 61, 0, 0, 106, 0, 0, 55, + 0, 0, 65, 67, 53, 0, 60, 0, 68, 64, + 0, 63, 0, 0, 0, 160, 0, 0, 0, 0, + 0, 161, 162, 163, 164, 26, 106, 0, 56, 0, + 66, 0, 0, 0, 0, 0, 0, 165, 167, 168, + 169, 170, 171, 172, 0, 0, 173, 0, 0, 174, + 175, 176, 0, 0, 0, 0, 0, 61, 44, 44, + 44, 44, 44, 44, 0, 44, 44, 44, 0, 0, + 0, 44, 0, 117, 44, 44, 44, 44, 0, 117, + 0, 44, 44, 0, 44, 44, 44, 44, 44, 26, + 0, 0, 56, 44, 44, 44, 44, 44, 44, 0, + 78, 78, 78, 78, 44, 0, 0, 78, 0, 0, + 0, 0, 0, 44, 0, 44, 44, 0, 0, 115, + 28, 29, 30, 31, 93, 32, 33, 34, 78, 78, + 0, 35, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 41, 0, 42, 43, 44, 45, 46, 0, + 75, 0, 0, 47, 48, 49, 50, 51, 52, 27, + 28, 29, 30, 31, 54, 32, 33, 34, 75, 0, + 0, 35, 0, 57, 0, 58, 59, 0, 0, 0, + 0, 0, 41, 0, 42, 43, 44, 45, 46, 166, + 0, 0, 0, 47, 48, 49, 50, 51, 52, 0, + 0, 0, 75, 0, 54, 106, 106, 106, 106, 0, + 0, 0, 106, 57, 106, 58, 59, 0, 0, 0, + 106, 106, 0, 121, 28, 29, 30, 31, 0, 32, + 33, 34, 0, 106, 106, 35, 106, 106, 106, 106, + 106, 106, 0, 0, 0, 0, 41, 0, 42, 43, + 44, 45, 46, 0, 0, 0, 0, 47, 48, 49, + 50, 51, 52, 163, 164, 0, 55, 0, 54, 65, + 67, 53, 0, 60, 0, 68, 64, 57, 63, 58, + 59, 0, 171, 172, 0, 0, 173, 0, 0, 174, + 175, 176, 125, 0, 0, 0, 0, 66, 0, 0, + 0, 161, 162, 163, 164, 0, 55, 0, 0, 65, + 67, 53, 0, 60, 141, 68, 64, 0, 63, 168, + 169, 170, 171, 172, 61, 0, 173, 0, 0, 174, + 175, 176, 0, 0, 0, 0, 0, 66, 0, 0, + 161, 162, 163, 164, 0, 0, 55, 0, 0, 65, + 67, 53, 0, 60, 0, 68, 64, 0, 63, 56, + 170, 171, 172, 0, 61, 173, 0, 0, 174, 175, + 176, 0, 0, 0, 0, 0, 0, 66, 0, 0, + 0, 75, 75, 75, 75, 0, 55, 0, 75, 65, + 67, 53, 0, 60, 207, 68, 64, 0, 63, 56, + 0, 0, 0, 0, 61, 0, 143, 160, 0, 75, + 75, 0, 0, 161, 162, 163, 164, 66, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 167, 168, 169, 170, 171, 172, 0, 0, 173, 56, + 0, 174, 175, 176, 61, 0, 55, 0, 0, 65, + 67, 53, 0, 60, 218, 68, 64, 0, 63, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 66, 0, 56, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 27, 28, 29, 30, 31, 0, 32, 33, 34, 0, + 0, 0, 35, 0, 61, 0, 0, 0, 0, 0, + 0, 0, 0, 41, 0, 42, 43, 44, 45, 46, + 0, 0, 0, 0, 47, 48, 49, 50, 51, 52, + 27, 28, 29, 30, 31, 54, 32, 33, 34, 56, + 0, 0, 35, 0, 57, 0, 58, 59, 0, 0, + 0, 0, 0, 41, 0, 42, 43, 44, 45, 46, + 0, 0, 0, 0, 47, 48, 49, 50, 51, 52, + 27, 28, 29, 30, 31, 54, 32, 33, 34, 0, + 0, 0, 35, 0, 57, 0, 58, 59, 0, 0, + 0, 0, 0, 41, 0, 42, 43, 44, 45, 46, + 0, 0, 0, 0, 47, 48, 49, 50, 51, 52, + 27, 28, 29, 30, 31, 54, 32, 33, 34, 0, + 0, 0, 35, 0, 57, 0, 58, 59, 0, 0, + 0, 0, 0, 41, 0, 42, 43, 44, 45, 46, + 0, 0, 0, 0, 47, 48, 49, 50, 51, 52, + 0, 0, 0, 55, 0, 54, 65, 67, 53, 0, + 60, 255, 68, 64, 57, 63, 58, 59, 0, 0, + 27, 28, 29, 30, 31, 0, 32, 33, 34, 0, + 0, 0, 35, 0, 66, 0, 0, 0, 0, 0, + 0, 0, 0, 41, 0, 42, 43, 44, 45, 46, + 0, 0, 0, 0, 47, 48, 49, 50, 51, 52, + 0, 61, 0, 55, 0, 54, 65, 67, 53, 0, + 60, 263, 68, 64, 57, 63, 58, 59, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 66, 0, 56, 0, 0, 0, + 0, 0, 108, 0, 0, 108, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 108, + 108, 61, 55, 0, 108, 65, 67, 53, 0, 60, + 0, 68, 64, 0, 63, 0, 0, 0, 0, 0, + 161, 162, 163, 164, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 66, 108, 0, 56, 167, 168, 169, + 170, 171, 172, 0, 0, 173, 0, 0, 174, 175, + 176, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 61, 0, 55, 0, 0, 65, 67, 53, 0, 60, + 296, 68, 64, 0, 63, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 66, 0, 56, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 27, 28, 29, + 30, 31, 0, 32, 33, 34, 0, 0, 0, 35, + 61, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 41, 0, 42, 43, 44, 45, 46, 0, 0, 0, + 0, 47, 48, 49, 50, 51, 52, 0, 0, 0, + 0, 0, 54, 0, 0, 56, 0, 0, 0, 0, + 0, 57, 0, 58, 59, 0, 0, 27, 28, 29, + 30, 31, 0, 32, 33, 34, 0, 55, 0, 35, + 65, 67, 53, 0, 60, 298, 68, 64, 0, 63, + 41, 0, 42, 43, 44, 45, 46, 0, 0, 0, + 0, 47, 48, 49, 50, 51, 52, 0, 66, 0, + 0, 0, 54, 108, 108, 108, 108, 0, 0, 0, + 108, 57, 108, 58, 59, 25, 27, 28, 29, 30, + 31, 0, 32, 33, 34, 61, 0, 0, 35, 0, + 0, 108, 108, 0, 108, 108, 108, 108, 108, 41, + 0, 42, 43, 44, 45, 46, 0, 0, 0, 0, + 47, 48, 49, 50, 51, 52, 0, 0, 0, 55, + 56, 54, 65, 67, 53, 0, 60, 307, 68, 64, + 57, 63, 58, 59, 0, 0, 27, 28, 29, 30, + 31, 0, 32, 33, 34, 0, 0, 0, 35, 0, + 66, 0, 0, 0, 0, 0, 0, 0, 0, 41, + 0, 42, 43, 44, 45, 46, 0, 0, 0, 0, + 47, 48, 49, 50, 51, 52, 0, 61, 0, 55, + 0, 54, 65, 67, 53, 0, 60, 0, 68, 64, + 57, 63, 58, 59, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 95, 95, + 66, 0, 56, 0, 0, 0, 0, 0, 158, 0, + 108, 158, 0, 0, 0, 0, 116, 95, 124, 0, + 0, 0, 130, 95, 0, 158, 158, 61, 0, 0, + 158, 0, 0, 0, 0, 95, 95, 95, 95, 0, + 0, 27, 28, 29, 30, 31, 0, 32, 33, 34, + 0, 0, 0, 35, 0, 74, 0, 0, 74, 0, + 158, 0, 56, 0, 41, 0, 42, 43, 44, 45, + 46, 178, 0, 74, 178, 47, 48, 49, 50, 51, + 52, 0, 116, 0, 0, 0, 54, 0, 178, 178, + 0, 0, 0, 178, 0, 57, 0, 58, 59, 0, + 0, 0, 0, 0, 0, 0, 0, 74, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 178, 0, 139, 0, 0, 139, 0, + 0, 0, 0, 27, 28, 29, 30, 31, 0, 32, + 33, 34, 139, 139, 0, 35, 252, 139, 0, 0, + 0, 0, 0, 0, 0, 0, 41, 0, 42, 43, + 44, 45, 46, 0, 0, 0, 0, 47, 48, 49, + 50, 51, 52, 284, 0, 0, 0, 139, 54, 0, + 0, 0, 0, 0, 0, 134, 0, 57, 134, 58, + 59, 0, 0, 27, 28, 29, 30, 31, 0, 32, + 33, 34, 134, 134, 0, 35, 0, 134, 0, 0, + 0, 0, 0, 0, 0, 0, 41, 0, 42, 43, + 44, 45, 46, 0, 0, 0, 0, 47, 48, 49, + 50, 51, 52, 0, 0, 0, 0, 134, 54, 158, + 158, 158, 158, 0, 0, 0, 158, 57, 158, 58, + 59, 0, 0, 0, 158, 158, 158, 158, 0, 0, + 0, 0, 0, 137, 0, 0, 137, 158, 158, 0, + 158, 158, 158, 158, 158, 158, 158, 0, 0, 158, + 137, 137, 158, 158, 158, 137, 74, 74, 74, 74, + 0, 0, 0, 74, 0, 0, 0, 0, 0, 0, + 0, 0, 178, 178, 178, 178, 0, 0, 0, 178, + 135, 178, 0, 135, 74, 137, 0, 178, 178, 178, + 178, 0, 0, 0, 0, 0, 0, 135, 135, 0, + 178, 178, 135, 178, 178, 178, 178, 178, 178, 178, + 0, 0, 178, 0, 0, 178, 178, 178, 0, 0, + 0, 0, 0, 0, 0, 0, 139, 139, 139, 139, + 0, 145, 135, 139, 145, 139, 0, 0, 0, 0, + 0, 139, 139, 139, 139, 0, 0, 0, 145, 145, + 0, 0, 0, 145, 139, 139, 0, 139, 139, 139, + 139, 139, 139, 139, 0, 0, 139, 0, 0, 139, + 139, 139, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 156, 145, 0, 156, 134, 134, 134, 134, + 0, 169, 0, 134, 169, 134, 0, 0, 0, 156, + 156, 134, 134, 134, 134, 0, 0, 0, 169, 169, + 0, 0, 0, 169, 134, 134, 0, 134, 134, 134, + 134, 134, 134, 134, 0, 0, 134, 0, 0, 134, + 134, 134, 0, 0, 156, 0, 0, 172, 0, 0, + 172, 0, 0, 169, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 172, 172, 0, 0, 0, 172, + 0, 0, 0, 0, 137, 137, 137, 137, 0, 0, + 0, 137, 0, 137, 0, 0, 0, 0, 0, 137, + 137, 137, 137, 0, 0, 0, 0, 0, 0, 172, + 0, 0, 137, 137, 0, 137, 137, 137, 137, 137, + 137, 137, 0, 0, 137, 0, 0, 137, 137, 137, + 0, 135, 135, 135, 135, 0, 128, 0, 135, 128, + 135, 0, 0, 0, 0, 0, 135, 135, 135, 135, + 0, 0, 0, 128, 128, 0, 0, 0, 128, 135, + 135, 0, 135, 135, 135, 135, 135, 135, 135, 0, + 0, 135, 0, 0, 135, 135, 135, 0, 0, 0, + 0, 0, 145, 145, 145, 145, 0, 76, 128, 145, + 76, 145, 0, 0, 0, 0, 0, 145, 145, 145, + 145, 0, 0, 0, 76, 76, 0, 0, 0, 76, + 145, 145, 0, 145, 145, 145, 145, 145, 145, 145, + 0, 0, 145, 0, 0, 145, 145, 145, 0, 0, + 0, 0, 0, 156, 156, 156, 156, 0, 0, 76, + 156, 0, 169, 169, 169, 169, 0, 66, 0, 169, + 66, 169, 0, 0, 0, 0, 0, 169, 169, 169, + 169, 156, 156, 0, 66, 66, 0, 0, 0, 66, + 169, 169, 0, 169, 169, 169, 169, 169, 169, 169, + 0, 0, 169, 0, 0, 169, 169, 169, 172, 172, + 172, 172, 0, 127, 0, 172, 127, 172, 0, 66, + 0, 0, 0, 172, 172, 172, 172, 0, 0, 0, + 127, 127, 0, 0, 0, 127, 172, 172, 0, 172, + 172, 172, 172, 172, 172, 172, 0, 0, 172, 0, + 0, 172, 172, 172, 0, 0, 0, 0, 0, 82, + 0, 0, 82, 0, 0, 127, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 82, 82, 0, 0, + 0, 82, 114, 0, 0, 114, 0, 128, 128, 128, + 128, 0, 0, 0, 128, 0, 128, 0, 0, 114, + 114, 0, 128, 128, 128, 128, 0, 0, 0, 0, + 0, 82, 0, 0, 0, 128, 128, 0, 128, 128, + 128, 128, 128, 128, 128, 0, 0, 128, 0, 0, + 128, 128, 128, 102, 114, 0, 102, 0, 76, 76, + 76, 76, 179, 0, 0, 76, 0, 76, 0, 0, + 102, 102, 0, 76, 76, 76, 76, 0, 0, 179, + 179, 0, 0, 0, 179, 0, 76, 76, 0, 76, + 76, 76, 76, 76, 76, 76, 0, 0, 76, 0, + 0, 76, 76, 76, 0, 102, 0, 0, 0, 0, + 0, 0, 0, 0, 179, 0, 0, 0, 66, 66, + 66, 66, 157, 0, 0, 66, 0, 66, 0, 0, + 0, 0, 0, 66, 66, 66, 66, 0, 0, 157, + 157, 0, 0, 0, 157, 0, 66, 66, 0, 66, + 66, 66, 66, 66, 66, 66, 0, 0, 66, 0, + 0, 66, 66, 66, 127, 127, 127, 127, 79, 0, + 0, 127, 0, 127, 157, 0, 0, 0, 0, 127, + 127, 127, 127, 0, 0, 79, 79, 0, 0, 0, + 79, 0, 127, 127, 0, 127, 127, 127, 127, 127, + 127, 127, 0, 0, 127, 0, 0, 127, 127, 127, + 82, 82, 82, 82, 0, 0, 0, 82, 0, 82, + 79, 0, 0, 0, 0, 82, 82, 82, 82, 0, + 0, 0, 0, 114, 114, 114, 114, 0, 82, 82, + 114, 82, 82, 82, 82, 82, 82, 82, 0, 123, + 82, 0, 123, 82, 82, 82, 0, 0, 0, 0, + 0, 114, 114, 0, 114, 0, 123, 123, 0, 0, + 0, 123, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 102, 102, 102, 102, 0, 0, + 0, 102, 0, 179, 179, 179, 179, 0, 0, 0, + 179, 123, 179, 0, 0, 0, 0, 0, 179, 179, + 179, 179, 102, 102, 0, 0, 0, 0, 0, 0, + 0, 179, 179, 0, 179, 179, 179, 179, 179, 179, + 179, 0, 0, 179, 0, 0, 179, 179, 179, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 157, 157, 157, 157, 0, 0, 0, + 157, 124, 157, 0, 124, 0, 0, 0, 157, 157, + 157, 157, 0, 0, 0, 0, 0, 0, 124, 124, + 0, 157, 157, 124, 157, 157, 157, 157, 157, 157, + 157, 0, 0, 157, 0, 0, 157, 157, 157, 79, + 79, 79, 79, 0, 118, 0, 79, 118, 79, 0, + 0, 0, 0, 124, 79, 79, 79, 79, 0, 0, + 0, 118, 118, 0, 0, 0, 118, 79, 79, 0, + 79, 79, 79, 79, 79, 79, 79, 99, 0, 79, + 0, 0, 79, 79, 79, 109, 0, 0, 119, 114, + 0, 119, 123, 0, 0, 128, 118, 0, 0, 136, + 137, 138, 139, 140, 0, 119, 119, 145, 146, 0, + 119, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 123, 123, 123, 123, 0, 0, 0, 123, 120, 123, + 0, 120, 0, 0, 0, 123, 123, 123, 123, 0, + 119, 0, 196, 0, 0, 120, 120, 0, 123, 123, + 120, 123, 123, 123, 123, 123, 123, 123, 0, 0, + 123, 0, 0, 0, 0, 0, 116, 0, 0, 116, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 120, 0, 0, 116, 116, 0, 0, 0, 116, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 234, 235, 236, 237, 238, 239, + 240, 241, 242, 243, 244, 245, 246, 247, 116, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 265, 124, 124, 124, 124, 0, 117, 0, 124, + 117, 124, 0, 0, 0, 0, 0, 124, 124, 124, + 124, 0, 0, 0, 117, 117, 0, 0, 0, 117, + 124, 124, 0, 124, 124, 124, 124, 124, 124, 124, + 0, 0, 124, 0, 0, 118, 118, 118, 118, 0, + 115, 0, 118, 115, 118, 0, 0, 0, 0, 117, + 118, 118, 118, 118, 0, 0, 0, 115, 115, 0, + 0, 0, 115, 118, 118, 0, 118, 118, 118, 118, + 118, 118, 118, 0, 0, 0, 327, 0, 0, 119, + 119, 119, 119, 0, 0, 0, 119, 77, 119, 0, + 77, 0, 115, 0, 119, 119, 119, 119, 0, 0, + 0, 0, 0, 0, 77, 77, 0, 119, 119, 343, + 119, 119, 119, 119, 119, 119, 119, 0, 0, 120, + 120, 120, 120, 0, 103, 0, 120, 103, 120, 0, + 0, 0, 0, 0, 120, 120, 120, 120, 0, 77, + 0, 103, 103, 0, 0, 0, 103, 120, 120, 0, + 120, 120, 120, 120, 120, 120, 120, 116, 116, 116, + 116, 0, 104, 0, 116, 104, 116, 0, 0, 0, + 0, 0, 116, 116, 116, 116, 103, 0, 0, 104, + 104, 0, 0, 0, 104, 116, 116, 0, 116, 116, + 116, 116, 116, 116, 116, 0, 0, 0, 0, 105, + 0, 0, 105, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 104, 0, 105, 105, 0, 0, + 0, 105, 0, 0, 0, 0, 0, 0, 117, 117, + 117, 117, 0, 0, 0, 117, 0, 117, 0, 0, + 0, 0, 0, 117, 117, 117, 117, 305, 0, 0, + 0, 105, 166, 0, 0, 0, 117, 117, 0, 117, + 117, 117, 117, 117, 117, 117, 0, 0, 0, 0, + 0, 115, 115, 115, 115, 0, 161, 0, 115, 161, + 115, 0, 0, 0, 0, 0, 115, 115, 115, 115, + 0, 0, 0, 161, 161, 0, 0, 0, 161, 115, + 115, 0, 115, 115, 115, 115, 115, 115, 115, 0, + 0, 0, 0, 160, 0, 0, 160, 0, 77, 77, + 77, 77, 0, 149, 0, 77, 149, 0, 161, 0, + 160, 160, 0, 0, 0, 160, 0, 0, 0, 0, + 149, 149, 0, 0, 0, 149, 77, 77, 0, 0, + 0, 0, 0, 0, 0, 103, 103, 103, 103, 0, + 126, 0, 103, 126, 103, 160, 0, 0, 0, 0, + 103, 103, 103, 103, 0, 149, 0, 126, 126, 0, + 0, 0, 126, 103, 103, 0, 103, 103, 103, 103, + 103, 103, 103, 104, 104, 104, 104, 0, 107, 0, + 104, 107, 104, 0, 0, 0, 0, 0, 104, 104, + 104, 104, 126, 0, 0, 107, 107, 0, 0, 0, + 107, 104, 104, 0, 104, 104, 104, 104, 104, 104, + 105, 105, 105, 105, 0, 109, 0, 105, 109, 105, + 0, 0, 0, 0, 0, 105, 105, 0, 105, 0, + 107, 110, 109, 109, 110, 0, 0, 109, 105, 105, + 0, 105, 105, 105, 105, 105, 105, 0, 110, 110, + 160, 0, 0, 110, 0, 0, 161, 162, 163, 164, + 0, 0, 0, 0, 0, 0, 0, 109, 0, 0, + 0, 0, 165, 167, 168, 169, 170, 171, 172, 0, + 0, 173, 0, 110, 174, 175, 176, 161, 161, 161, + 161, 0, 112, 0, 161, 112, 161, 0, 0, 0, + 0, 0, 161, 161, 0, 0, 0, 0, 0, 112, + 112, 0, 0, 0, 112, 161, 161, 0, 161, 161, + 161, 161, 161, 0, 160, 160, 160, 160, 0, 113, + 0, 160, 113, 160, 149, 149, 149, 149, 0, 160, + 160, 149, 0, 149, 112, 0, 113, 113, 0, 149, + 149, 113, 160, 160, 0, 160, 160, 160, 160, 160, + 0, 0, 149, 149, 0, 149, 149, 149, 149, 149, + 0, 126, 126, 126, 126, 0, 0, 0, 126, 0, + 126, 113, 0, 0, 0, 0, 126, 126, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 126, + 126, 0, 126, 126, 126, 126, 126, 0, 0, 107, + 107, 107, 107, 0, 0, 0, 107, 0, 107, 0, + 0, 0, 0, 0, 0, 107, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 107, 107, 0, + 107, 107, 107, 107, 107, 0, 109, 109, 109, 109, + 0, 0, 0, 109, 0, 109, 0, 0, 0, 0, + 0, 0, 110, 110, 110, 110, 0, 0, 0, 110, + 0, 110, 0, 0, 109, 109, 0, 109, 109, 109, + 109, 109, 0, 0, 0, 0, 0, 0, 0, 0, + 110, 110, 0, 110, 110, 110, 110, 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, 112, 112, 112, 112, 0, 0, 0, + 112, 0, 112, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 112, 112, 0, 112, 112, 112, 0, 0, 0, + 113, 113, 113, 113, 0, 0, 0, 113, 0, 113, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 113, 113, + 0, 113, 113, +}; +static short yycheck[] = { 15, + 36, 91, 41, 36, 40, 59, 59, 41, 195, 41, + 59, 59, 41, 59, 59, 44, 59, 123, 93, 36, + 93, 358, 59, 40, 96, 91, 40, 91, 41, 58, + 59, 41, 41, 49, 63, 59, 41, 59, 41, 257, + 204, 40, 192, 90, 60, 61, 59, 41, 198, 257, + 59, 15, 389, 41, 101, 127, 59, 123, 41, 123, + 289, 290, 300, 301, 93, 59, 266, 267, 268, 41, + 270, 271, 41, 41, 91, 123, 41, 91, 123, 44, + 309, 45, 41, 312, 48, 93, 315, 316, 317, 44, + 123, 59, 91, 58, 59, 111, 112, 297, 63, 123, + 59, 123, 59, 36, 37, 40, 123, 40, 40, 123, + 257, 41, 59, 129, 0, 102, 103, 104, 105, 106, + 107, 85, 40, 310, 123, 278, 41, 291, 93, 59, + 312, 64, 40, 315, 316, 317, 100, 153, 154, 155, + 156, 157, 158, 159, 59, 276, 277, 33, 93, 40, + 36, 37, 38, 93, 40, 93, 42, 43, 40, 45, + 40, 177, 178, 179, 180, 181, 182, 183, 184, 185, + 334, 8, 9, 59, 0, 40, 40, 123, 64, 195, + 59, 44, 123, 199, 200, 40, 202, 151, 204, 260, + 257, 40, 298, 41, 93, 211, 268, 213, 214, 40, + 125, 298, 274, 257, 317, 91, 222, 33, 36, 298, + 36, 37, 38, 91, 40, 379, 42, 43, 205, 45, + 41, 125, 257, 91, 257, 300, 301, 300, 301, 262, + 260, 301, 248, 59, 250, 251, 40, 123, 64, 125, + 126, 258, 0, 272, 273, 274, 275, 300, 301, 260, + 279, 300, 301, 298, 300, 301, 41, 300, 301, 41, + 296, 300, 301, 300, 301, 91, 300, 301, 300, 301, + 41, 300, 301, 41, 303, 33, 366, 41, 36, 37, + 38, 40, 40, 59, 42, 43, 41, 45, 304, 125, + 300, 301, 300, 301, 310, 300, 301, 123, 125, 125, + 126, 59, 125, 267, 123, 269, 64, 272, 273, 274, + 275, 275, 300, 301, 279, 125, 281, 300, 301, 59, + 336, 41, 287, 288, 289, 290, 125, 41, 300, 301, + 44, 300, 301, 91, 41, 300, 301, 41, 303, 304, + 305, 306, 307, 308, 309, 300, 301, 312, 59, 63, + 315, 316, 317, 300, 301, 300, 301, 40, 123, 375, + 300, 301, 300, 301, 41, 123, 41, 41, 126, 123, + 256, 257, 258, 259, 260, 261, 41, 263, 264, 265, + 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, + 41, 59, 41, 279, 280, 289, 282, 283, 284, 285, + 286, 300, 301, 59, 41, 291, 292, 293, 294, 295, + 296, 297, 63, 59, 41, 309, 302, 35, 312, 52, + 52, 315, 316, 317, 15, 311, 154, 313, 314, 336, + 256, 257, 258, 259, 260, 261, 375, 263, 264, 265, + 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, + 202, 24, 269, 279, 280, -1, 282, 283, 284, 285, + 286, -1, -1, 125, -1, 291, 292, 293, 294, 295, + 296, 297, 355, 356, -1, 309, 302, 360, 312, -1, + -1, 315, 316, 317, -1, 311, -1, 313, 314, -1, + -1, 41, -1, 376, 44, -1, -1, 380, 256, 257, + 258, 259, 260, 261, -1, 263, 264, 265, 58, 59, + -1, 269, -1, 63, 272, 273, 274, 275, -1, -1, + -1, 279, 280, -1, 282, 283, 284, 285, 286, -1, + -1, 125, -1, 291, 292, 293, 294, 295, 296, -1, + -1, -1, -1, 93, 302, -1, -1, -1, -1, -1, + -1, -1, -1, 311, 33, 313, 314, 36, 37, 38, + -1, 40, 41, 42, 43, 44, 45, 281, -1, -1, + -1, -1, -1, 287, 288, 289, 290, -1, -1, 58, + 59, -1, -1, -1, 63, 64, -1, -1, -1, 303, + 304, 305, 306, 307, 308, 309, -1, -1, 312, -1, + -1, 315, 316, 317, 266, 267, 268, -1, 270, 271, + -1, -1, 91, -1, 93, 33, -1, -1, 36, 37, + 38, -1, 40, 41, 42, 43, 44, 45, -1, -1, + 281, -1, -1, -1, -1, 297, 287, 288, 289, 290, + 58, 59, -1, -1, -1, 63, 64, 126, -1, -1, + -1, -1, 303, 304, 305, 306, 307, 308, 309, -1, + -1, 312, 29, -1, 315, 316, 317, -1, -1, -1, + -1, -1, 266, 267, 268, 93, 270, 271, 33, 46, + 47, 36, 37, 38, -1, 40, 53, 42, 43, -1, + 45, 287, 288, 289, 290, -1, -1, -1, 65, 66, + 67, 68, -1, 297, 59, -1, -1, -1, 126, 64, + 306, 307, 308, 309, -1, -1, 312, -1, -1, 315, + 316, 317, 272, 273, 274, 275, -1, -1, -1, 279, + -1, 281, -1, -1, -1, -1, 91, 287, 288, 289, + 290, 272, 273, 274, 275, 112, -1, -1, 279, -1, + 300, 301, -1, 303, 304, 305, 306, 307, 308, 309, + -1, -1, 312, -1, -1, 315, 316, 317, 123, 300, + 301, 126, -1, -1, -1, -1, -1, -1, 257, 258, + 259, 260, 261, -1, 263, 264, 265, -1, -1, -1, + 269, -1, -1, 272, 273, 274, 275, -1, -1, -1, + 279, 280, 281, 282, 283, 284, 285, 286, 287, 288, + 289, 290, 291, 292, 293, 294, 295, 296, -1, -1, + -1, 300, 301, 302, 303, 304, 305, 306, 307, 308, + 309, -1, 311, 312, 313, 314, 315, 316, 317, 257, + 258, 259, 260, 261, -1, 263, 264, 265, -1, -1, + -1, 269, -1, -1, 272, 273, 274, 275, -1, -1, + -1, 279, 280, 281, 282, 283, 284, 285, 286, 287, + 288, 289, 290, 291, 292, 293, 294, 295, 296, -1, + -1, -1, 300, 301, 302, 303, 304, 305, 306, 307, + 308, 309, -1, 311, 312, 313, 314, 315, 316, 317, + -1, 256, 257, 258, 259, 260, 261, 63, 263, 264, + 265, -1, -1, -1, 269, -1, -1, 272, 273, 274, + 275, -1, -1, -1, 279, 280, -1, 282, 283, 284, + 285, 286, -1, -1, -1, -1, 291, 292, 293, 294, + 295, 296, -1, -1, -1, 33, -1, 302, 36, 37, + 38, -1, 40, -1, 42, 43, 311, 45, 313, 314, + -1, 46, -1, -1, -1, -1, -1, -1, -1, 54, + 287, 59, 289, 290, -1, -1, 64, -1, -1, 41, + -1, -1, 44, -1, -1, 331, 332, 333, -1, 335, + -1, 308, 309, -1, -1, 312, 58, 59, 315, 316, + 317, -1, -1, 91, -1, 33, -1, -1, 36, 37, + 38, 96, 40, -1, 42, 43, 362, 45, -1, -1, + -1, -1, -1, 369, -1, -1, -1, 373, -1, -1, + -1, 93, -1, -1, 119, 123, 64, -1, 126, -1, + 386, 387, 127, -1, -1, 33, -1, -1, 36, 37, + 38, -1, 40, -1, 42, 43, -1, 45, -1, -1, + -1, -1, -1, 91, 287, 288, 289, 290, -1, -1, + -1, -1, -1, -1, -1, -1, 64, -1, -1, -1, + -1, -1, -1, -1, 41, 308, 309, 44, -1, 312, + -1, -1, 315, 316, 317, 123, -1, -1, 126, -1, + -1, 58, 59, 91, -1, -1, 63, -1, -1, 33, + -1, -1, 36, 37, 38, -1, 40, -1, 42, 43, + -1, 45, -1, -1, -1, 281, -1, -1, -1, -1, + -1, 287, 288, 289, 290, 123, 93, -1, 126, -1, + 64, -1, -1, -1, -1, -1, -1, 303, 304, 305, + 306, 307, 308, 309, -1, -1, 312, -1, -1, 315, + 316, 317, -1, -1, -1, -1, -1, 91, 256, 257, + 258, 259, 260, 261, -1, 263, 264, 265, -1, -1, + -1, 269, -1, 268, 272, 273, 274, 275, -1, 274, + -1, 279, 280, -1, 282, 283, 284, 285, 286, 123, + -1, -1, 126, 291, 292, 293, 294, 295, 296, -1, + 272, 273, 274, 275, 302, -1, -1, 279, -1, -1, + -1, -1, -1, 311, -1, 313, 314, -1, -1, 257, + 258, 259, 260, 261, 262, 263, 264, 265, 300, 301, + -1, 269, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 280, -1, 282, 283, 284, 285, 286, -1, + 41, -1, -1, 291, 292, 293, 294, 295, 296, 257, + 258, 259, 260, 261, 302, 263, 264, 265, 59, -1, + -1, 269, -1, 311, -1, 313, 314, -1, -1, -1, + -1, -1, 280, -1, 282, 283, 284, 285, 286, 63, + -1, -1, -1, 291, 292, 293, 294, 295, 296, -1, + -1, -1, 93, -1, 302, 272, 273, 274, 275, -1, + -1, -1, 279, 311, 281, 313, 314, -1, -1, -1, + 287, 288, -1, 257, 258, 259, 260, 261, -1, 263, + 264, 265, -1, 300, 301, 269, 303, 304, 305, 306, + 307, 308, -1, -1, -1, -1, 280, -1, 282, 283, + 284, 285, 286, -1, -1, -1, -1, 291, 292, 293, + 294, 295, 296, 289, 290, -1, 33, -1, 302, 36, + 37, 38, -1, 40, -1, 42, 43, 311, 45, 313, + 314, -1, 308, 309, -1, -1, 312, -1, -1, 315, + 316, 317, 59, -1, -1, -1, -1, 64, -1, -1, + -1, 287, 288, 289, 290, -1, 33, -1, -1, 36, + 37, 38, -1, 40, 41, 42, 43, -1, 45, 305, + 306, 307, 308, 309, 91, -1, 312, -1, -1, 315, + 316, 317, -1, -1, -1, -1, -1, 64, -1, -1, + 287, 288, 289, 290, -1, -1, 33, -1, -1, 36, + 37, 38, -1, 40, -1, 42, 43, -1, 45, 126, + 307, 308, 309, -1, 91, 312, -1, -1, 315, 316, + 317, -1, -1, -1, -1, -1, -1, 64, -1, -1, + -1, 272, 273, 274, 275, -1, 33, -1, 279, 36, + 37, 38, -1, 40, 41, 42, 43, -1, 45, 126, + -1, -1, -1, -1, 91, -1, 93, 281, -1, 300, + 301, -1, -1, 287, 288, 289, 290, 64, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 304, 305, 306, 307, 308, 309, -1, -1, 312, 126, + -1, 315, 316, 317, 91, -1, 33, -1, -1, 36, + 37, 38, -1, 40, 41, 42, 43, -1, 45, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 64, -1, 126, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 257, 258, 259, 260, 261, -1, 263, 264, 265, -1, + -1, -1, 269, -1, 91, -1, -1, -1, -1, -1, + -1, -1, -1, 280, -1, 282, 283, 284, 285, 286, + -1, -1, -1, -1, 291, 292, 293, 294, 295, 296, + 257, 258, 259, 260, 261, 302, 263, 264, 265, 126, + -1, -1, 269, -1, 311, -1, 313, 314, -1, -1, + -1, -1, -1, 280, -1, 282, 283, 284, 285, 286, + -1, -1, -1, -1, 291, 292, 293, 294, 295, 296, + 257, 258, 259, 260, 261, 302, 263, 264, 265, -1, + -1, -1, 269, -1, 311, -1, 313, 314, -1, -1, + -1, -1, -1, 280, -1, 282, 283, 284, 285, 286, + -1, -1, -1, -1, 291, 292, 293, 294, 295, 296, + 257, 258, 259, 260, 261, 302, 263, 264, 265, -1, + -1, -1, 269, -1, 311, -1, 313, 314, -1, -1, + -1, -1, -1, 280, -1, 282, 283, 284, 285, 286, + -1, -1, -1, -1, 291, 292, 293, 294, 295, 296, + -1, -1, -1, 33, -1, 302, 36, 37, 38, -1, + 40, 41, 42, 43, 311, 45, 313, 314, -1, -1, + 257, 258, 259, 260, 261, -1, 263, 264, 265, -1, + -1, -1, 269, -1, 64, -1, -1, -1, -1, -1, + -1, -1, -1, 280, -1, 282, 283, 284, 285, 286, + -1, -1, -1, -1, 291, 292, 293, 294, 295, 296, + -1, 91, -1, 33, -1, 302, 36, 37, 38, -1, + 40, 41, 42, 43, 311, 45, 313, 314, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 64, -1, 126, -1, -1, -1, + -1, -1, 41, -1, -1, 44, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 58, + 59, 91, 33, -1, 63, 36, 37, 38, -1, 40, + -1, 42, 43, -1, 45, -1, -1, -1, -1, -1, + 287, 288, 289, 290, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 64, 93, -1, 126, 304, 305, 306, + 307, 308, 309, -1, -1, 312, -1, -1, 315, 316, + 317, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 91, -1, 33, -1, -1, 36, 37, 38, -1, 40, + 41, 42, 43, -1, 45, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 64, -1, 126, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 257, 258, 259, + 260, 261, -1, 263, 264, 265, -1, -1, -1, 269, + 91, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 280, -1, 282, 283, 284, 285, 286, -1, -1, -1, + -1, 291, 292, 293, 294, 295, 296, -1, -1, -1, + -1, -1, 302, -1, -1, 126, -1, -1, -1, -1, + -1, 311, -1, 313, 314, -1, -1, 257, 258, 259, + 260, 261, -1, 263, 264, 265, -1, 33, -1, 269, + 36, 37, 38, -1, 40, 41, 42, 43, -1, 45, + 280, -1, 282, 283, 284, 285, 286, -1, -1, -1, + -1, 291, 292, 293, 294, 295, 296, -1, 64, -1, + -1, -1, 302, 272, 273, 274, 275, -1, -1, -1, + 279, 311, 281, 313, 314, 256, 257, 258, 259, 260, + 261, -1, 263, 264, 265, 91, -1, -1, 269, -1, + -1, 300, 301, -1, 303, 304, 305, 306, 307, 280, + -1, 282, 283, 284, 285, 286, -1, -1, -1, -1, + 291, 292, 293, 294, 295, 296, -1, -1, -1, 33, + 126, 302, 36, 37, 38, -1, 40, 41, 42, 43, + 311, 45, 313, 314, -1, -1, 257, 258, 259, 260, + 261, -1, 263, 264, 265, -1, -1, -1, 269, -1, + 64, -1, -1, -1, -1, -1, -1, -1, -1, 280, + -1, 282, 283, 284, 285, 286, -1, -1, -1, -1, + 291, 292, 293, 294, 295, 296, -1, 91, -1, 33, + -1, 302, 36, 37, 38, -1, 40, -1, 42, 43, + 311, 45, 313, 314, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 28, 29, + 64, -1, 126, -1, -1, -1, -1, -1, 41, -1, + 40, 44, -1, -1, -1, -1, 46, 47, 48, -1, + -1, -1, 52, 53, -1, 58, 59, 91, -1, -1, + 63, -1, -1, -1, -1, 65, 66, 67, 68, -1, + -1, 257, 258, 259, 260, 261, -1, 263, 264, 265, + -1, -1, -1, 269, -1, 41, -1, -1, 44, -1, + 93, -1, 126, -1, 280, -1, 282, 283, 284, 285, + 286, 41, -1, 59, 44, 291, 292, 293, 294, 295, + 296, -1, 112, -1, -1, -1, 302, -1, 58, 59, + -1, -1, -1, 63, -1, 311, -1, 313, 314, -1, + -1, -1, -1, -1, -1, -1, -1, 93, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 93, -1, 41, -1, -1, 44, -1, + -1, -1, -1, 257, 258, 259, 260, 261, -1, 263, + 264, 265, 58, 59, -1, 269, 176, 63, -1, -1, + -1, -1, -1, -1, -1, -1, 280, -1, 282, 283, + 284, 285, 286, -1, -1, -1, -1, 291, 292, 293, + 294, 295, 296, 203, -1, -1, -1, 93, 302, -1, + -1, -1, -1, -1, -1, 41, -1, 311, 44, 313, + 314, -1, -1, 257, 258, 259, 260, 261, -1, 263, + 264, 265, 58, 59, -1, 269, -1, 63, -1, -1, + -1, -1, -1, -1, -1, -1, 280, -1, 282, 283, + 284, 285, 286, -1, -1, -1, -1, 291, 292, 293, + 294, 295, 296, -1, -1, -1, -1, 93, 302, 272, + 273, 274, 275, -1, -1, -1, 279, 311, 281, 313, + 314, -1, -1, -1, 287, 288, 289, 290, -1, -1, + -1, -1, -1, 41, -1, -1, 44, 300, 301, -1, + 303, 304, 305, 306, 307, 308, 309, -1, -1, 312, + 58, 59, 315, 316, 317, 63, 272, 273, 274, 275, + -1, -1, -1, 279, -1, -1, -1, -1, -1, -1, + -1, -1, 272, 273, 274, 275, -1, -1, -1, 279, + 41, 281, -1, 44, 300, 93, -1, 287, 288, 289, + 290, -1, -1, -1, -1, -1, -1, 58, 59, -1, + 300, 301, 63, 303, 304, 305, 306, 307, 308, 309, + -1, -1, 312, -1, -1, 315, 316, 317, -1, -1, + -1, -1, -1, -1, -1, -1, 272, 273, 274, 275, + -1, 41, 93, 279, 44, 281, -1, -1, -1, -1, + -1, 287, 288, 289, 290, -1, -1, -1, 58, 59, + -1, -1, -1, 63, 300, 301, -1, 303, 304, 305, + 306, 307, 308, 309, -1, -1, 312, -1, -1, 315, + 316, 317, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 41, 93, -1, 44, 272, 273, 274, 275, + -1, 41, -1, 279, 44, 281, -1, -1, -1, 58, + 59, 287, 288, 289, 290, -1, -1, -1, 58, 59, + -1, -1, -1, 63, 300, 301, -1, 303, 304, 305, + 306, 307, 308, 309, -1, -1, 312, -1, -1, 315, + 316, 317, -1, -1, 93, -1, -1, 41, -1, -1, + 44, -1, -1, 93, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 58, 59, -1, -1, -1, 63, + -1, -1, -1, -1, 272, 273, 274, 275, -1, -1, + -1, 279, -1, 281, -1, -1, -1, -1, -1, 287, + 288, 289, 290, -1, -1, -1, -1, -1, -1, 93, + -1, -1, 300, 301, -1, 303, 304, 305, 306, 307, + 308, 309, -1, -1, 312, -1, -1, 315, 316, 317, + -1, 272, 273, 274, 275, -1, 41, -1, 279, 44, + 281, -1, -1, -1, -1, -1, 287, 288, 289, 290, + -1, -1, -1, 58, 59, -1, -1, -1, 63, 300, + 301, -1, 303, 304, 305, 306, 307, 308, 309, -1, + -1, 312, -1, -1, 315, 316, 317, -1, -1, -1, + -1, -1, 272, 273, 274, 275, -1, 41, 93, 279, + 44, 281, -1, -1, -1, -1, -1, 287, 288, 289, + 290, -1, -1, -1, 58, 59, -1, -1, -1, 63, + 300, 301, -1, 303, 304, 305, 306, 307, 308, 309, + -1, -1, 312, -1, -1, 315, 316, 317, -1, -1, + -1, -1, -1, 272, 273, 274, 275, -1, -1, 93, + 279, -1, 272, 273, 274, 275, -1, 41, -1, 279, + 44, 281, -1, -1, -1, -1, -1, 287, 288, 289, + 290, 300, 301, -1, 58, 59, -1, -1, -1, 63, + 300, 301, -1, 303, 304, 305, 306, 307, 308, 309, + -1, -1, 312, -1, -1, 315, 316, 317, 272, 273, + 274, 275, -1, 41, -1, 279, 44, 281, -1, 93, + -1, -1, -1, 287, 288, 289, 290, -1, -1, -1, + 58, 59, -1, -1, -1, 63, 300, 301, -1, 303, + 304, 305, 306, 307, 308, 309, -1, -1, 312, -1, + -1, 315, 316, 317, -1, -1, -1, -1, -1, 41, + -1, -1, 44, -1, -1, 93, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 58, 59, -1, -1, + -1, 63, 41, -1, -1, 44, -1, 272, 273, 274, + 275, -1, -1, -1, 279, -1, 281, -1, -1, 58, + 59, -1, 287, 288, 289, 290, -1, -1, -1, -1, + -1, 93, -1, -1, -1, 300, 301, -1, 303, 304, + 305, 306, 307, 308, 309, -1, -1, 312, -1, -1, + 315, 316, 317, 41, 93, -1, 44, -1, 272, 273, + 274, 275, 41, -1, -1, 279, -1, 281, -1, -1, + 58, 59, -1, 287, 288, 289, 290, -1, -1, 58, + 59, -1, -1, -1, 63, -1, 300, 301, -1, 303, + 304, 305, 306, 307, 308, 309, -1, -1, 312, -1, + -1, 315, 316, 317, -1, 93, -1, -1, -1, -1, + -1, -1, -1, -1, 93, -1, -1, -1, 272, 273, + 274, 275, 41, -1, -1, 279, -1, 281, -1, -1, + -1, -1, -1, 287, 288, 289, 290, -1, -1, 58, + 59, -1, -1, -1, 63, -1, 300, 301, -1, 303, + 304, 305, 306, 307, 308, 309, -1, -1, 312, -1, + -1, 315, 316, 317, 272, 273, 274, 275, 41, -1, + -1, 279, -1, 281, 93, -1, -1, -1, -1, 287, + 288, 289, 290, -1, -1, 58, 59, -1, -1, -1, + 63, -1, 300, 301, -1, 303, 304, 305, 306, 307, + 308, 309, -1, -1, 312, -1, -1, 315, 316, 317, + 272, 273, 274, 275, -1, -1, -1, 279, -1, 281, + 93, -1, -1, -1, -1, 287, 288, 289, 290, -1, + -1, -1, -1, 272, 273, 274, 275, -1, 300, 301, + 279, 303, 304, 305, 306, 307, 308, 309, -1, 41, + 312, -1, 44, 315, 316, 317, -1, -1, -1, -1, + -1, 300, 301, -1, 303, -1, 58, 59, -1, -1, + -1, 63, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 272, 273, 274, 275, -1, -1, + -1, 279, -1, 272, 273, 274, 275, -1, -1, -1, + 279, 93, 281, -1, -1, -1, -1, -1, 287, 288, + 289, 290, 300, 301, -1, -1, -1, -1, -1, -1, + -1, 300, 301, -1, 303, 304, 305, 306, 307, 308, + 309, -1, -1, 312, -1, -1, 315, 316, 317, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 272, 273, 274, 275, -1, -1, -1, + 279, 41, 281, -1, 44, -1, -1, -1, 287, 288, + 289, 290, -1, -1, -1, -1, -1, -1, 58, 59, + -1, 300, 301, 63, 303, 304, 305, 306, 307, 308, + 309, -1, -1, 312, -1, -1, 315, 316, 317, 272, + 273, 274, 275, -1, 41, -1, 279, 44, 281, -1, + -1, -1, -1, 93, 287, 288, 289, 290, -1, -1, + -1, 58, 59, -1, -1, -1, 63, 300, 301, -1, + 303, 304, 305, 306, 307, 308, 309, 33, -1, 312, + -1, -1, 315, 316, 317, 41, -1, -1, 41, 45, + -1, 44, 48, -1, -1, 51, 93, -1, -1, 55, + 56, 57, 58, 59, -1, 58, 59, 63, 64, -1, + 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 272, 273, 274, 275, -1, -1, -1, 279, 41, 281, + -1, 44, -1, -1, -1, 287, 288, 289, 290, -1, + 93, -1, 98, -1, -1, 58, 59, -1, 300, 301, + 63, 303, 304, 305, 306, 307, 308, 309, -1, -1, + 312, -1, -1, -1, -1, -1, 41, -1, -1, 44, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 93, -1, -1, 58, 59, -1, -1, -1, 63, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 160, 161, 162, 163, 164, 165, + 166, 167, 168, 169, 170, 171, 172, 173, 93, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, 187, 272, 273, 274, 275, -1, 41, -1, 279, + 44, 281, -1, -1, -1, -1, -1, 287, 288, 289, + 290, -1, -1, -1, 58, 59, -1, -1, -1, 63, + 300, 301, -1, 303, 304, 305, 306, 307, 308, 309, + -1, -1, 312, -1, -1, 272, 273, 274, 275, -1, + 41, -1, 279, 44, 281, -1, -1, -1, -1, 93, + 287, 288, 289, 290, -1, -1, -1, 58, 59, -1, + -1, -1, 63, 300, 301, -1, 303, 304, 305, 306, + 307, 308, 309, -1, -1, -1, 272, -1, -1, 272, + 273, 274, 275, -1, -1, -1, 279, 41, 281, -1, + 44, -1, 93, -1, 287, 288, 289, 290, -1, -1, + -1, -1, -1, -1, 58, 59, -1, 300, 301, 305, + 303, 304, 305, 306, 307, 308, 309, -1, -1, 272, + 273, 274, 275, -1, 41, -1, 279, 44, 281, -1, + -1, -1, -1, -1, 287, 288, 289, 290, -1, 93, + -1, 58, 59, -1, -1, -1, 63, 300, 301, -1, + 303, 304, 305, 306, 307, 308, 309, 272, 273, 274, + 275, -1, 41, -1, 279, 44, 281, -1, -1, -1, + -1, -1, 287, 288, 289, 290, 93, -1, -1, 58, + 59, -1, -1, -1, 63, 300, 301, -1, 303, 304, + 305, 306, 307, 308, 309, -1, -1, -1, -1, 41, + -1, -1, 44, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 93, -1, 58, 59, -1, -1, + -1, 63, -1, -1, -1, -1, -1, -1, 272, 273, + 274, 275, -1, -1, -1, 279, -1, 281, -1, -1, + -1, -1, -1, 287, 288, 289, 290, 58, -1, -1, + -1, 93, 63, -1, -1, -1, 300, 301, -1, 303, + 304, 305, 306, 307, 308, 309, -1, -1, -1, -1, + -1, 272, 273, 274, 275, -1, 41, -1, 279, 44, + 281, -1, -1, -1, -1, -1, 287, 288, 289, 290, + -1, -1, -1, 58, 59, -1, -1, -1, 63, 300, + 301, -1, 303, 304, 305, 306, 307, 308, 309, -1, + -1, -1, -1, 41, -1, -1, 44, -1, 272, 273, + 274, 275, -1, 41, -1, 279, 44, -1, 93, -1, + 58, 59, -1, -1, -1, 63, -1, -1, -1, -1, + 58, 59, -1, -1, -1, 63, 300, 301, -1, -1, + -1, -1, -1, -1, -1, 272, 273, 274, 275, -1, + 41, -1, 279, 44, 281, 93, -1, -1, -1, -1, + 287, 288, 289, 290, -1, 93, -1, 58, 59, -1, + -1, -1, 63, 300, 301, -1, 303, 304, 305, 306, + 307, 308, 309, 272, 273, 274, 275, -1, 41, -1, + 279, 44, 281, -1, -1, -1, -1, -1, 287, 288, + 289, 290, 93, -1, -1, 58, 59, -1, -1, -1, + 63, 300, 301, -1, 303, 304, 305, 306, 307, 308, + 272, 273, 274, 275, -1, 41, -1, 279, 44, 281, + -1, -1, -1, -1, -1, 287, 288, -1, 290, -1, + 93, 41, 58, 59, 44, -1, -1, 63, 300, 301, + -1, 303, 304, 305, 306, 307, 308, -1, 58, 59, + 281, -1, -1, 63, -1, -1, 287, 288, 289, 290, + -1, -1, -1, -1, -1, -1, -1, 93, -1, -1, + -1, -1, 303, 304, 305, 306, 307, 308, 309, -1, + -1, 312, -1, 93, 315, 316, 317, 272, 273, 274, + 275, -1, 41, -1, 279, 44, 281, -1, -1, -1, + -1, -1, 287, 288, -1, -1, -1, -1, -1, 58, + 59, -1, -1, -1, 63, 300, 301, -1, 303, 304, + 305, 306, 307, -1, 272, 273, 274, 275, -1, 41, + -1, 279, 44, 281, 272, 273, 274, 275, -1, 287, + 288, 279, -1, 281, 93, -1, 58, 59, -1, 287, + 288, 63, 300, 301, -1, 303, 304, 305, 306, 307, + -1, -1, 300, 301, -1, 303, 304, 305, 306, 307, + -1, 272, 273, 274, 275, -1, -1, -1, 279, -1, + 281, 93, -1, -1, -1, -1, 287, 288, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 300, + 301, -1, 303, 304, 305, 306, 307, -1, -1, 272, + 273, 274, 275, -1, -1, -1, 279, -1, 281, -1, + -1, -1, -1, -1, -1, 288, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 300, 301, -1, + 303, 304, 305, 306, 307, -1, 272, 273, 274, 275, + -1, -1, -1, 279, -1, 281, -1, -1, -1, -1, + -1, -1, 272, 273, 274, 275, -1, -1, -1, 279, + -1, 281, -1, -1, 300, 301, -1, 303, 304, 305, + 306, 307, -1, -1, -1, -1, -1, -1, -1, -1, + 300, 301, -1, 303, 304, 305, 306, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 272, 273, 274, 275, -1, -1, -1, + 279, -1, 281, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, 300, 301, -1, 303, 304, 305, -1, -1, -1, + 272, 273, 274, 275, -1, -1, -1, 279, -1, 281, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 300, 301, + -1, 303, 304, +}; +#define YYFINAL 1 +#ifndef YYDEBUG +#define YYDEBUG 0 #endif - s = argv[0]+1; - reswitch: - switch (*s) { - case 'a': - minus_a = TRUE; - s++; - goto reswitch; -#ifdef DEBUGGING - case 'D': - debug = atoi(s+1); -#ifdef YYDEBUG - yydebug = (debug & 1); +#define YYMAXTOKEN 317 +#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, +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,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,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,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,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,"WORD","METHOD","FUNCMETH","THING", +"PMFUNC","PRIVATEREF","FUNC0SUB","UNIOPSUB","LSTOPSUB","LABEL","FORMAT","SUB", +"ANONSUB","PACKAGE","USE","WHILE","UNTIL","IF","UNLESS","ELSE","ELSIF", +"CONTINUE","FOR","LOOPEX","DOTDOT","FUNC0","FUNC1","FUNC","UNIOP","LSTOP", +"RELOP","EQOP","MULOP","ADDOP","DOLSHARP","DO","HASHBRACK","NOAMP","LOCAL","MY", +"MYSUB","COLONATTR","PREC_LOW","OROP","ANDOP","NOTOP","ASSIGNOP","OROR", +"ANDAND","BITOROP","BITANDOP","SHIFTOP","MATCHOP","UMINUS","REFGEN","POWOP", +"PREINC","PREDEC","POSTINC","POSTDEC","ARROW", +}; +static char *yyrule[] = { +"$accept : prog", +"$$1 :", +"prog : $$1 lineseq", +"block : '{' remember lineseq '}'", +"remember :", +"mblock : '{' mremember lineseq '}'", +"mremember :", +"lineseq :", +"lineseq : lineseq decl", +"lineseq : lineseq line", +"line : label cond", +"line : loop", +"line : label ';'", +"line : label sideff ';'", +"sideff : error", +"sideff : expr", +"sideff : expr IF expr", +"sideff : expr UNLESS expr", +"sideff : expr WHILE expr", +"sideff : expr UNTIL iexpr", +"sideff : expr FOR expr", +"else :", +"else : ELSE mblock", +"else : ELSIF '(' mexpr ')' mblock else", +"cond : IF '(' remember mexpr ')' mblock else", +"cond : UNLESS '(' remember miexpr ')' mblock else", +"cont :", +"cont : CONTINUE block", +"loop : label WHILE '(' remember mtexpr ')' mblock cont", +"loop : label UNTIL '(' remember miexpr ')' mblock cont", +"loop : label FOR MY remember my_scalar '(' mexpr ')' mblock cont", +"loop : label FOR scalar '(' remember mexpr ')' mblock cont", +"loop : label FOR '(' remember mexpr ')' mblock cont", +"loop : label FOR '(' remember mnexpr ';' mtexpr ';' mnexpr ')' mblock", +"loop : label block cont", +"nexpr :", +"nexpr : sideff", +"texpr :", +"texpr : expr", +"iexpr : expr", +"mexpr : expr", +"mnexpr : nexpr", +"mtexpr : texpr", +"miexpr : iexpr", +"label :", +"label : LABEL", +"decl : format", +"decl : subrout", +"decl : mysubrout", +"decl : package", +"decl : use", +"format : FORMAT startformsub formname block", +"formname : WORD", +"formname :", +"mysubrout : MYSUB startsub subname proto subattrlist subbody", +"subrout : SUB startsub subname proto subattrlist subbody", +"startsub :", +"startanonsub :", +"startformsub :", +"subname : WORD", +"proto :", +"proto : THING", +"subattrlist :", +"subattrlist : COLONATTR THING", +"subattrlist : COLONATTR", +"myattrlist : COLONATTR THING", +"myattrlist : COLONATTR", +"subbody : block", +"subbody : ';'", +"package : PACKAGE WORD ';'", +"package : PACKAGE ';'", +"$$2 :", +"use : USE startsub $$2 WORD WORD listexpr ';'", +"expr : expr ANDOP expr", +"expr : expr OROP expr", +"expr : argexpr", +"argexpr : argexpr ','", +"argexpr : argexpr ',' term", +"argexpr : term", +"listop : LSTOP indirob argexpr", +"listop : FUNC '(' indirob expr ')'", +"listop : term ARROW method '(' listexprcom ')'", +"listop : term ARROW method", +"listop : METHOD indirob listexpr", +"listop : FUNCMETH indirob '(' listexprcom ')'", +"listop : LSTOP listexpr", +"listop : FUNC '(' listexprcom ')'", +"$$3 :", +"listop : LSTOPSUB startanonsub block $$3 listexpr", +"method : METHOD", +"method : scalar", +"subscripted : star '{' expr ';' '}'", +"subscripted : scalar '[' expr ']'", +"subscripted : term ARROW '[' expr ']'", +"subscripted : subscripted '[' expr ']'", +"subscripted : scalar '{' expr ';' '}'", +"subscripted : term ARROW '{' expr ';' '}'", +"subscripted : subscripted '{' expr ';' '}'", +"subscripted : term ARROW '(' ')'", +"subscripted : term ARROW '(' expr ')'", +"subscripted : subscripted '(' expr ')'", +"subscripted : subscripted '(' ')'", +"term : term ASSIGNOP term", +"term : term POWOP term", +"term : term MULOP term", +"term : term ADDOP term", +"term : term SHIFTOP term", +"term : term RELOP term", +"term : term EQOP term", +"term : term BITANDOP term", +"term : term BITOROP term", +"term : term DOTDOT term", +"term : term ANDAND term", +"term : term OROR term", +"term : term '?' term ':' term", +"term : term MATCHOP term", +"term : '-' term", +"term : '+' term", +"term : '!' term", +"term : '~' term", +"term : REFGEN term", +"term : term POSTINC", +"term : term POSTDEC", +"term : PREINC term", +"term : PREDEC term", +"term : myattrterm", +"term : LOCAL term", +"term : '(' expr ')'", +"term : '(' ')'", +"term : '[' expr ']'", +"term : '[' ']'", +"term : HASHBRACK expr ';' '}'", +"term : HASHBRACK ';' '}'", +"term : ANONSUB startanonsub proto subattrlist block", +"term : scalar", +"term : star", +"term : hsh", +"term : ary", +"term : arylen", +"term : subscripted", +"term : '(' expr ')' '[' expr ']'", +"term : '(' ')' '[' expr ']'", +"term : ary '[' expr ']'", +"term : ary '{' expr ';' '}'", +"term : THING", +"term : amper", +"term : amper '(' ')'", +"term : amper '(' expr ')'", +"term : NOAMP WORD listexpr", +"term : DO term", +"term : DO block", +"term : DO WORD '(' ')'", +"term : DO WORD '(' expr ')'", +"term : DO scalar '(' ')'", +"term : DO scalar '(' expr ')'", +"term : LOOPEX", +"term : LOOPEX term", +"term : NOTOP argexpr", +"term : UNIOP", +"term : UNIOP block", +"term : UNIOP term", +"term : UNIOPSUB term", +"term : FUNC0", +"term : FUNC0 '(' ')'", +"term : FUNC0SUB", +"term : FUNC1 '(' ')'", +"term : FUNC1 '(' expr ')'", +"term : PMFUNC '(' term ')'", +"term : PMFUNC '(' term ',' term ')'", +"term : WORD", +"term : listop", +"myattrterm : MY myterm myattrlist", +"myattrterm : MY myterm", +"myterm : '(' expr ')'", +"myterm : '(' ')'", +"myterm : scalar", +"myterm : hsh", +"myterm : ary", +"listexpr :", +"listexpr : argexpr", +"listexprcom :", +"listexprcom : expr", +"listexprcom : expr ','", +"my_scalar : scalar", +"amper : '&' indirob", +"scalar : '$' indirob", +"ary : '@' indirob", +"hsh : '%' indirob", +"arylen : DOLSHARP indirob", +"star : '*' indirob", +"indirob : WORD", +"indirob : scalar", +"indirob : block", +"indirob : PRIVATEREF", +}; #endif - break; +#define yyclearin (yychar=(-1)) +#define yyerrok (yyerrflag=0) +#ifdef YYSTACKSIZE +#ifndef YYMAXDEPTH +#define YYMAXDEPTH YYSTACKSIZE #endif - case 'e': - if (!e_fp) { - e_tmpname = strcpy(safemalloc(sizeof(TMPPATH)),TMPPATH); - mktemp(e_tmpname); - e_fp = fopen(e_tmpname,"w"); - } - if (argv[1]) - fputs(argv[1],e_fp); - putc('\n', e_fp); - argc--,argv++; - break; - case 'i': - inplace = savestr(s+1); - argvoutstab = stabent("ARGVOUT",TRUE); - break; - case 'I': - str_cat(str,"-"); - str_cat(str,s); - str_cat(str," "); - if (s[1]) { - apush(incstab->stab_array,str_make(s+1)); - } - else { - apush(incstab->stab_array,str_make(argv[1])); - str_cat(str,argv[1]); - argc--,argv++; - str_cat(str," "); - } - break; - case 'n': - minus_n = TRUE; - s++; - goto reswitch; - case 'p': - minus_p = TRUE; - s++; - goto reswitch; - case 'P': - preprocess = TRUE; - s++; - goto reswitch; - case 's': - doswitches = TRUE; - s++; - goto reswitch; - case 'S': - dosearch = TRUE; - s++; - goto reswitch; - case 'U': - unsafe = TRUE; - s++; - goto reswitch; - case 'v': - version(); - exit(0); - case 'w': - dowarn = TRUE; - s++; - goto reswitch; - case '-': - argc--,argv++; - goto switch_end; - case 0: - break; - default: - fatal("Unrecognized switch: -%s",s); - } - } - switch_end: - if (e_fp) { - fclose(e_fp); - argc++,argv--; - argv[0] = e_tmpname; - } -#ifndef PRIVLIB -#define PRIVLIB "/usr/local/lib/perl" +#else +#ifdef YYMAXDEPTH +#define YYSTACKSIZE YYMAXDEPTH +#else +#define YYSTACKSIZE 500 +#define YYMAXDEPTH 500 #endif - apush(incstab->stab_array,str_make(PRIVLIB)); - - str_set(&str_no,No); - str_set(&str_yes,Yes); - init_eval(); +#endif +#line 726 "perly.y" + /* PROGRAM */ - /* open script */ +/* more stuff added to make perly_c.diff easier to apply */ - if (argv[0] == Nullch) - argv[0] = "-"; - if (dosearch && argv[0][0] != '/' && (s = getenv("PATH"))) { - char *xfound = Nullch, *xfailed = Nullch; +#ifdef yyparse +#undef yyparse +#endif +#define yyparse() Perl_yyparse(pTHX) + +#line 1371 "perly.c" +#define YYABORT goto yyabort +#define YYACCEPT goto yyaccept +#define YYERROR goto yyerrlab +int +yyparse() +{ + register int yym, yyn, yystate; + register short *yyssp; + register YYSTYPE *yyvsp; + short* yyss; + YYSTYPE* yyvs; + unsigned yystacksize = YYSTACKSIZE; + int retval = 0; +#if YYDEBUG + register char *yys; +#endif - while (*s) { - s = cpytill(tokenbuf,s,':'); - if (*s) - s++; - if (tokenbuf[0]) - strcat(tokenbuf,"/"); - strcat(tokenbuf,argv[0]); -#ifdef DEBUGGING - if (debug & 1) - fprintf(stderr,"Looking for %s\n",tokenbuf); + struct ysv *ysave; +#ifdef USE_ITHREADS + ENTER; /* force yydestruct() before we return */ #endif - if (stat(tokenbuf,&statbuf) < 0) /* not there? */ - continue; - if ((statbuf.st_mode & S_IFMT) == S_IFREG - && cando(S_IREAD,TRUE) && cando(S_IEXEC,TRUE)) { - xfound = tokenbuf; /* bingo! */ - break; - } - if (!xfailed) - xfailed = savestr(tokenbuf); - } - if (!xfound) - fatal("Can't execute %s", xfailed); - if (xfailed) - safefree(xfailed); - argv[0] = savestr(xfound); + New(73, ysave, 1, struct ysv); + SAVEDESTRUCTOR_X(yydestruct, ysave); + ysave->oldyydebug = yydebug; + ysave->oldyynerrs = yynerrs; + ysave->oldyyerrflag = yyerrflag; + ysave->oldyychar = yychar; + ysave->oldyyval = yyval; + ysave->oldyylval = yylval; + +#if YYDEBUG + if (yys = getenv("YYDEBUG")) + { + yyn = *yys; + if (yyn >= '0' && yyn <= '9') + yydebug = yyn - '0'; } - filename = savestr(argv[0]); - origfilename = savestr(filename); - if (strEQ(filename,"-")) - argv[0] = ""; - if (preprocess) { - str_cat(str,"-I"); - str_cat(str,PRIVLIB); - sprintf(buf, "\ -/bin/sed -e '/^[^#]/b' \ - -e '/^#[ ]*include[ ]/b' \ - -e '/^#[ ]*define[ ]/b' \ - -e '/^#[ ]*if[ ]/b' \ - -e '/^#[ ]*ifdef[ ]/b' \ - -e '/^#[ ]*ifndef[ ]/b' \ - -e '/^#[ ]*else/b' \ - -e '/^#[ ]*endif/b' \ - -e 's/^#.*//' \ - %s | %s -C %s %s", - argv[0], CPPSTDIN, str_get(str), CPPMINUS); -#ifdef IAMSUID - if (euid != uid && !euid) /* if running suidperl */ - seteuid(uid); /* musn't stay setuid root */ #endif - rsfp = popen(buf,"r"); + + yynerrs = 0; + yyerrflag = 0; + yychar = (-1); + + /* + ** Initialize private stacks (yyparse may be called from an action) + */ + New(73, yyss, yystacksize, short); + New(73, yyvs, yystacksize, YYSTYPE); + ysave->yyss = yyss; + ysave->yyvs = yyvs; + if (!yyvs || !yyss) + goto yyoverflow; + + yyssp = yyss; + yyvsp = yyvs; + *yyssp = yystate = 0; + +yyloop: + if (yyn = yydefred[yystate]) goto yyreduce; + if (yychar < 0) + { + if ((yychar = yylex()) < 0) yychar = 0; +#if YYDEBUG + if (yydebug) + { + yys = 0; + if (yychar <= YYMAXTOKEN) yys = yyname[yychar]; + if (!yys) yys = "illegal-symbol"; + PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n", yystate, + yychar, yys); + } +#endif } - else if (!*argv[0]) - rsfp = stdin; - else - rsfp = fopen(argv[0],"r"); - if (rsfp == Nullfp) { -#ifdef DOSUID -#ifndef IAMSUID - if (euid && stat(filename,&statbuf) >= 0 && - statbuf.st_mode & (S_ISUID|S_ISGID)) { - execvp("suidperl", origargv); /* try again */ - fatal("Can't do setuid\n"); - } + if ((yyn = yysindex[yystate]) && (yyn += yychar) >= 0 && + yyn <= YYTABLESIZE && yycheck[yyn] == yychar) + { +#if YYDEBUG + if (yydebug) + PerlIO_printf(Perl_debug_log, "yydebug: state %d, shifting to state %d\n", + yystate, yytable[yyn]); #endif + if (yyssp >= yyss + yystacksize - 1) + { + /* + ** reallocate and recover. Note that pointers + ** have to be reset, or bad things will happen + */ + int yyps_index = (yyssp - yyss); + int yypv_index = (yyvsp - yyvs); + yystacksize += YYSTACKSIZE; + ysave->yyvs = Renew(yyvs, yystacksize, YYSTYPE); + ysave->yyss = Renew(yyss, yystacksize, short); + if (!yyvs || !yyss) + goto yyoverflow; + yyssp = yyss + yyps_index; + yyvsp = yyvs + yypv_index; + } + *++yyssp = yystate = yytable[yyn]; + *++yyvsp = yylval; + yychar = (-1); + if (yyerrflag > 0) --yyerrflag; + goto yyloop; + } + if ((yyn = yyrindex[yystate]) && (yyn += yychar) >= 0 && + yyn <= YYTABLESIZE && yycheck[yyn] == yychar) + { + yyn = yytable[yyn]; + goto yyreduce; + } + if (yyerrflag) goto yyinrecovery; +#ifdef lint + goto yynewerror; #endif - fatal("Perl script \"%s\" doesn't seem to exist",filename); - } - str_free(str); /* free -I directories */ - - /* do we need to emulate setuid on scripts? */ - - /* This code is for those BSD systems that have setuid #! scripts disabled - * in the kernel because of a security problem. Merely defining DOSUID - * in perl will not fix that problem, but if you have disabled setuid - * scripts in the kernel, this will attempt to emulate setuid and setgid - * on scripts that have those now-otherwise-useless bits set. The setuid - * root version must be called suidperl. If regular perl discovers that - * it has opened a setuid script, it calls suidperl with the same argv - * that it had. If suidperl finds that the script it has just opened - * is NOT setuid root, it sets the effective uid back to the uid. We - * don't just make perl setuid root because that loses the effective - * uid we had before invoking perl, if it was different from the uid. - * - * DOSUID must be defined in both perl and suidperl, and IAMSUID must - * be defined in suidperl only. suidperl must be setuid root. The - * Configure script will set this up for you if you want it. - */ -#ifdef DOSUID - if (fstat(fileno(rsfp),&statbuf) < 0) /* normal stat is insecure */ - fatal("Can't stat script \"%s\"",filename); - if (statbuf.st_mode & (S_ISUID|S_ISGID)) { - int len; - - if (access(filename,1)) /* as a double check */ - fatal("Permission denied"); - if ((statbuf.st_mode & S_IFMT) != S_IFREG) - fatal("Permission denied"); - doswitches = FALSE; /* -s is insecure in suid */ - line++; - if (fgets(tokenbuf,sizeof tokenbuf, rsfp) == Nullch || - strnNE(tokenbuf,"#!",2) ) /* required even on Sys V */ - fatal("No #! line"); - for (s = tokenbuf+2; !isspace(*s); s++) ; - if (strnNE(s-4,"perl",4)) /* sanity check */ - fatal("Not a perl script"); - while (*s && isspace(*s)) s++; - /* - * #! arg must be what we saw above. They can invoke it by - * mentioning suidperl explicitly, but they may not add any strange - * arguments beyond what #! says if they do invoke suidperl that way. - */ - len = strlen(validarg); - if (strEQ(validarg," PHOOEY ") || - strnNE(s,validarg,len) || !isspace(s[len])) - fatal("Arg must be \"%s\"\n",s); - - if (euid) { /* oops, we're not the setuid root perl */ - fclose(rsfp); -#ifndef IAMSUID - execvp("suidperl", origargv); /* try again */ +yynewerror: + yyerror("syntax error"); +#ifdef lint + goto yyerrlab; #endif - fatal("Can't do setuid\n"); - } - - if (statbuf.st_mode & S_ISUID && statbuf.st_uid != euid) - seteuid(statbuf.st_uid); /* all that for this */ - else if (uid) /* oops, mustn't run as root */ - seteuid(uid); - if (statbuf.st_mode & S_ISGID && statbuf.st_gid != getegid()) - setegid(statbuf.st_gid); - euid = (int)geteuid(); - if (!cando(S_IEXEC,TRUE)) - fatal("Permission denied\n"); /* they can't do this */ - } -#ifdef IAMSUID - else if (preprocess) - fatal("-P not allowed for setuid/setgid script\n"); - else - fatal("Script is not setuid/setgid in suidperl\n"); -#endif /* IAMSUID */ -#endif /* DOSUID */ - - defstab = stabent("_",TRUE); - - /* init tokener */ - - bufptr = str_get(linestr); - - /* now parse the report spec */ - - if (yyparse()) - fatal("Execution aborted due to compilation errors.\n"); - - if (dowarn) { - stab_check('A','Z'); - stab_check('a','z'); - } - - preprocess = FALSE; - if (e_fp) { - e_fp = Nullfp; - UNLINK(e_tmpname); - } - argc--,argv++; /* skip name of script */ - if (doswitches) { - for (; argc > 0 && **argv == '-'; argc--,argv++) { - if (argv[0][1] == '-') { - argc--,argv++; - break; - } - str_numset(stabent(argv[0]+1,TRUE)->stab_val,(double)1.0); - } - } - if (argvstab = stabent("ARGV",allstabs)) { - aadd(argvstab); - for (; argc > 0; argc--,argv++) { - apush(argvstab->stab_array,str_make(argv[0])); - } - } - if (envstab = stabent("ENV",allstabs)) { - hadd(envstab); - for (; *env; env++) { - if (!(s = index(*env,'='))) - continue; - *s++ = '\0'; - str = str_make(s); - str->str_link.str_magic = envstab; - hstore(envstab->stab_hash,*env,str); - *--s = '='; - } - } - if (sigstab = stabent("SIG",allstabs)) - hadd(sigstab); - - magicalize("!#?^~=-%0123456789.+&*()<>,\\/[|"); - - sawampersand = (stabent("&",FALSE) != Nullstab); - if (tmpstab = stabent("0",allstabs)) - str_set(STAB_STR(tmpstab),origfilename); - if (tmpstab = stabent("$",allstabs)) - str_numset(STAB_STR(tmpstab),(double)getpid()); - - tmpstab = stabent("stdin",TRUE); - tmpstab->stab_io = stio_new(); - tmpstab->stab_io->fp = stdin; - - tmpstab = stabent("stdout",TRUE); - tmpstab->stab_io = stio_new(); - tmpstab->stab_io->fp = stdout; - defoutstab = tmpstab; - curoutstab = tmpstab; - - tmpstab = stabent("stderr",TRUE); - tmpstab->stab_io = stio_new(); - tmpstab->stab_io->fp = stderr; - - savestack = anew(Nullstab); /* for saving non-local values */ - - setjmp(top_env); /* sets goto_targ on longjump */ - -#ifdef DEBUGGING - if (debug & 1024) - dump_cmd(main_root,Nullcmd); - if (debug) - fprintf(stderr,"\nEXECUTING...\n\n"); +yyerrlab: + ++yynerrs; +yyinrecovery: + if (yyerrflag < 3) + { + yyerrflag = 3; + for (;;) + { + if ((yyn = yysindex[*yyssp]) && (yyn += YYERRCODE) >= 0 && + yyn <= YYTABLESIZE && yycheck[yyn] == YYERRCODE) + { +#if YYDEBUG + if (yydebug) + PerlIO_printf(Perl_debug_log, + "yydebug: state %d, error recovery shifting to state %d\n", + *yyssp, yytable[yyn]); #endif - - /* do it */ - - (void) cmd_exec(main_root); - - if (goto_targ) - fatal("Can't find label \"%s\"--aborting",goto_targ); - exit(0); - /* NOTREACHED */ -} - -magicalize(list) -register char *list; -{ - register STAB *stab; - char sym[2]; - - sym[1] = '\0'; - while (*sym = *list++) { - if (stab = stabent(sym,allstabs)) { - stab->stab_flags = SF_VMAGIC; - stab->stab_val->str_link.str_magic = stab; - } - } -} - -ARG * -make_split(stab,arg) -register STAB *stab; -register ARG *arg; -{ - register SPAT *spat = (SPAT *) safemalloc(sizeof (SPAT)); - - if (arg->arg_type != O_MATCH) { - spat = (SPAT *) safemalloc(sizeof (SPAT)); - bzero((char *)spat, sizeof(SPAT)); - spat->spat_next = spat_root; /* link into spat list */ - spat_root = spat; - - spat->spat_runtime = arg; - arg = make_match(O_MATCH,stab2arg(A_STAB,defstab),spat); - } - arg->arg_type = O_SPLIT; - spat = arg[2].arg_ptr.arg_spat; - spat->spat_repl = stab2arg(A_STAB,aadd(stab)); - if (spat->spat_short) { /* exact match can bypass regexec() */ - if (!((spat->spat_flags & SPAT_SCANFIRST) && - (spat->spat_flags & SPAT_ALL) )) { - str_free(spat->spat_short); - spat->spat_short = Nullstr; - } - } - return arg; -} - -SUBR * -make_sub(name,cmd) -char *name; -CMD *cmd; -{ - register SUBR *sub = (SUBR *) safemalloc(sizeof (SUBR)); - STAB *stab = stabent(name,TRUE); - - if (stab->stab_sub) { - if (dowarn) { - line_t oldline = line; - - if (cmd) - line = cmd->c_line; - warn("Subroutine %s redefined",name); - line = oldline; - } - cmd_free(stab->stab_sub->cmd); - afree(stab->stab_sub->tosave); - safefree((char*)stab->stab_sub); - } - bzero((char *)sub, sizeof(SUBR)); - sub->cmd = cmd; - sub->filename = filename; - tosave = anew(Nullstab); - tosave->ary_fill = 0; /* make 1 based */ - cmd_tosave(cmd); /* this builds the tosave array */ - sub->tosave = tosave; - stab->stab_sub = sub; -} - -CMD * -block_head(tail) -register CMD *tail; -{ - if (tail == Nullcmd) { - return tail; - } - return tail->c_head; -} - -CMD * -append_line(head,tail) -register CMD *head; -register CMD *tail; -{ - if (tail == Nullcmd) - return head; - if (!tail->c_head) /* make sure tail is well formed */ - tail->c_head = tail; - if (head != Nullcmd) { - tail = tail->c_head; /* get to start of tail list */ - if (!head->c_head) - head->c_head = head; /* start a new head list */ - while (head->c_next) { - head->c_next->c_head = head->c_head; - head = head->c_next; /* get to end of head list */ - } - head->c_next = tail; /* link to end of old list */ - tail->c_head = head->c_head; /* propagate head pointer */ - } - while (tail->c_next) { - tail->c_next->c_head = tail->c_head; - tail = tail->c_next; - } - return tail; -} - -CMD * -make_acmd(type,stab,cond,arg) -int type; -STAB *stab; -ARG *cond; -ARG *arg; -{ - register CMD *cmd = (CMD *) safemalloc(sizeof (CMD)); - - bzero((char *)cmd, sizeof(CMD)); - cmd->c_type = type; - cmd->ucmd.acmd.ac_stab = stab; - cmd->ucmd.acmd.ac_expr = arg; - cmd->c_expr = cond; - if (cond) { - opt_arg(cmd,1,1); - cmd->c_flags |= CF_COND; - } - if (cmdline != NOLINE) { - cmd->c_line = cmdline; - cmdline = NOLINE; - } - cmd->c_file = filename; - return cmd; -} - -CMD * -make_ccmd(type,arg,cblock) -int type; -register ARG *arg; -struct compcmd cblock; -{ - register CMD *cmd = (CMD *) safemalloc(sizeof (CMD)); - - bzero((char *)cmd, sizeof(CMD)); - cmd->c_type = type; - cmd->c_expr = arg; - cmd->ucmd.ccmd.cc_true = cblock.comp_true; - cmd->ucmd.ccmd.cc_alt = cblock.comp_alt; - if (arg) { - opt_arg(cmd,1,0); - cmd->c_flags |= CF_COND; - } - if (cmdline != NOLINE) { - cmd->c_line = cmdline; - cmdline = NOLINE; - } - return cmd; -} - -void -opt_arg(cmd,fliporflop,acmd) -register CMD *cmd; -int fliporflop; -int acmd; -{ - register ARG *arg; - int opt = CFT_EVAL; - int sure = 0; - ARG *arg2; - char *tmps; /* for True macro */ - int context = 0; /* 0 = normal, 1 = before &&, 2 = before || */ - int flp = fliporflop; - - if (!cmd) - return; - arg = cmd->c_expr; - - /* Can we turn && and || into if and unless? */ - - if (acmd && !cmd->ucmd.acmd.ac_expr && - (arg->arg_type == O_AND || arg->arg_type == O_OR) ) { - dehoist(arg,1); - dehoist(arg,2); - cmd->ucmd.acmd.ac_expr = arg[2].arg_ptr.arg_arg; - cmd->c_expr = arg[1].arg_ptr.arg_arg; - if (arg->arg_type == O_OR) - cmd->c_flags ^= CF_INVERT; /* || is like unless */ - arg->arg_len = 0; - arg_free(arg); - arg = cmd->c_expr; - } - - /* Turn "if (!expr)" into "unless (expr)" */ - - while (arg->arg_type == O_NOT) { - dehoist(arg,1); - cmd->c_flags ^= CF_INVERT; /* flip sense of cmd */ - cmd->c_expr = arg[1].arg_ptr.arg_arg; /* hoist the rest of expr */ - free_arg(arg); - arg = cmd->c_expr; /* here we go again */ - } - - if (!arg->arg_len) { /* sanity check */ - cmd->c_flags |= opt; - return; - } - - /* for "cond .. cond" we set up for the initial check */ - - if (arg->arg_type == O_FLIP) - context |= 4; - - /* for "cond && expr" and "cond || expr" we can ignore expr, sort of */ - - if (arg->arg_type == O_AND) - context |= 1; - else if (arg->arg_type == O_OR) - context |= 2; - if (context && arg[flp].arg_type == A_EXPR) { - arg = arg[flp].arg_ptr.arg_arg; - flp = 1; - } - - if (arg[flp].arg_flags & (AF_PRE|AF_POST)) { - cmd->c_flags |= opt; - return; /* side effect, can't optimize */ - } - - if (arg->arg_type == O_ITEM || arg->arg_type == O_FLIP || - arg->arg_type == O_AND || arg->arg_type == O_OR) { - if (arg[flp].arg_type == A_SINGLE) { - opt = (str_true(arg[flp].arg_ptr.arg_str) ? CFT_TRUE : CFT_FALSE); - cmd->c_short = arg[flp].arg_ptr.arg_str; - goto literal; - } - else if (arg[flp].arg_type == A_STAB || arg[flp].arg_type == A_LVAL) { - cmd->c_stab = arg[flp].arg_ptr.arg_stab; - opt = CFT_REG; - literal: - if (!context) { /* no && or ||? */ - free_arg(arg); - cmd->c_expr = Nullarg; - } - if (!(context & 1)) - cmd->c_flags |= CF_EQSURE; - if (!(context & 2)) - cmd->c_flags |= CF_NESURE; - } - } - else if (arg->arg_type == O_MATCH || arg->arg_type == O_SUBST || - arg->arg_type == O_NMATCH || arg->arg_type == O_NSUBST) { - if ((arg[1].arg_type == A_STAB || arg[1].arg_type == A_LVAL) && - arg[2].arg_type == A_SPAT && - arg[2].arg_ptr.arg_spat->spat_short ) { - cmd->c_stab = arg[1].arg_ptr.arg_stab; - cmd->c_short = arg[2].arg_ptr.arg_spat->spat_short; - cmd->c_slen = arg[2].arg_ptr.arg_spat->spat_slen; - if (arg[2].arg_ptr.arg_spat->spat_flags & SPAT_ALL && - !(arg[2].arg_ptr.arg_spat->spat_flags & SPAT_ONCE) && - (arg->arg_type == O_MATCH || arg->arg_type == O_NMATCH) ) - sure |= CF_EQSURE; /* (SUBST must be forced even */ - /* if we know it will work.) */ - arg[2].arg_ptr.arg_spat->spat_short = Nullstr; - arg[2].arg_ptr.arg_spat->spat_slen = 0; /* only one chk */ - sure |= CF_NESURE; /* normally only sure if it fails */ - if (arg->arg_type == O_NMATCH || arg->arg_type == O_NSUBST) - cmd->c_flags |= CF_FIRSTNEG; - if (context & 1) { /* only sure if thing is false */ - if (cmd->c_flags & CF_FIRSTNEG) - sure &= ~CF_NESURE; - else - sure &= ~CF_EQSURE; - } - else if (context & 2) { /* only sure if thing is true */ - if (cmd->c_flags & CF_FIRSTNEG) - sure &= ~CF_EQSURE; - else - sure &= ~CF_NESURE; - } - if (sure & (CF_EQSURE|CF_NESURE)) { /* if we know anything*/ - if (arg[2].arg_ptr.arg_spat->spat_flags & SPAT_SCANFIRST) - opt = CFT_SCAN; - else - opt = CFT_ANCHOR; - if (sure == (CF_EQSURE|CF_NESURE) /* really sure? */ - && arg->arg_type == O_MATCH - && context & 4 - && fliporflop == 1) { - spat_free(arg[2].arg_ptr.arg_spat); - arg[2].arg_ptr.arg_spat = Nullspat; /* don't do twice */ - } - cmd->c_flags |= sure; - } - } - } - else if (arg->arg_type == O_SEQ || arg->arg_type == O_SNE || - arg->arg_type == O_SLT || arg->arg_type == O_SGT) { - if (arg[1].arg_type == A_STAB || arg[1].arg_type == A_LVAL) { - if (arg[2].arg_type == A_SINGLE) { - cmd->c_stab = arg[1].arg_ptr.arg_stab; - cmd->c_short = arg[2].arg_ptr.arg_str; - cmd->c_slen = 30000; - switch (arg->arg_type) { - case O_SLT: case O_SGT: - sure |= CF_EQSURE; - cmd->c_flags |= CF_FIRSTNEG; - break; - case O_SNE: - cmd->c_flags |= CF_FIRSTNEG; - /* FALL THROUGH */ - case O_SEQ: - sure |= CF_NESURE|CF_EQSURE; - break; - } - if (context & 1) { /* only sure if thing is false */ - if (cmd->c_flags & CF_FIRSTNEG) - sure &= ~CF_NESURE; - else - sure &= ~CF_EQSURE; - } - else if (context & 2) { /* only sure if thing is true */ - if (cmd->c_flags & CF_FIRSTNEG) - sure &= ~CF_EQSURE; - else - sure &= ~CF_NESURE; - } - if (sure & (CF_EQSURE|CF_NESURE)) { - opt = CFT_STROP; - cmd->c_flags |= sure; - } - } - } - } - else if (arg->arg_type == O_EQ || arg->arg_type == O_NE || - arg->arg_type == O_LE || arg->arg_type == O_GE || - arg->arg_type == O_LT || arg->arg_type == O_GT) { - if (arg[1].arg_type == A_STAB || arg[1].arg_type == A_LVAL) { - if (arg[2].arg_type == A_SINGLE) { - cmd->c_stab = arg[1].arg_ptr.arg_stab; - cmd->c_short = str_nmake(str_gnum(arg[2].arg_ptr.arg_str)); - cmd->c_slen = arg->arg_type; - sure |= CF_NESURE|CF_EQSURE; - if (context & 1) { /* only sure if thing is false */ - sure &= ~CF_EQSURE; - } - else if (context & 2) { /* only sure if thing is true */ - sure &= ~CF_NESURE; - } - if (sure & (CF_EQSURE|CF_NESURE)) { - opt = CFT_NUMOP; - cmd->c_flags |= sure; - } - } - } - } - else if (arg->arg_type == O_ASSIGN && - (arg[1].arg_type == A_STAB || arg[1].arg_type == A_LVAL) && - arg[1].arg_ptr.arg_stab == defstab && - arg[2].arg_type == A_EXPR ) { - arg2 = arg[2].arg_ptr.arg_arg; - if (arg2->arg_type == O_ITEM && arg2[1].arg_type == A_READ) { - opt = CFT_GETS; - cmd->c_stab = arg2[1].arg_ptr.arg_stab; - if (!(arg2[1].arg_ptr.arg_stab->stab_io->flags & IOF_ARGV)) { - free_arg(arg2); - free_arg(arg); - cmd->c_expr = Nullarg; - } - } - } - else if (arg->arg_type == O_CHOP && - (arg[1].arg_type == A_STAB || arg[1].arg_type == A_LVAL) ) { - opt = CFT_CHOP; - cmd->c_stab = arg[1].arg_ptr.arg_stab; - free_arg(arg); - cmd->c_expr = Nullarg; - } - if (context & 4) - opt |= CF_FLIP; - cmd->c_flags |= opt; - - if (cmd->c_flags & CF_FLIP) { - if (fliporflop == 1) { - arg = cmd->c_expr; /* get back to O_FLIP arg */ - arg[3].arg_ptr.arg_cmd = (CMD*)safemalloc(sizeof(CMD)); - bcopy((char *)cmd, (char *)arg[3].arg_ptr.arg_cmd, sizeof(CMD)); - arg[4].arg_ptr.arg_cmd = (CMD*)safemalloc(sizeof(CMD)); - bcopy((char *)cmd, (char *)arg[4].arg_ptr.arg_cmd, sizeof(CMD)); - opt_arg(arg[4].arg_ptr.arg_cmd,2,acmd); - arg->arg_len = 2; /* this is a lie */ - } - else { - if ((opt & CF_OPTIMIZE) == CFT_EVAL) - cmd->c_flags = (cmd->c_flags & ~CF_OPTIMIZE) | CFT_UNFLIP; - } - } -} - -ARG * -mod_match(type,left,pat) -register ARG *left; -register ARG *pat; -{ - - register SPAT *spat; - register ARG *newarg; - - if ((pat->arg_type == O_MATCH || - pat->arg_type == O_SUBST || - pat->arg_type == O_TRANS || - pat->arg_type == O_SPLIT - ) && - pat[1].arg_ptr.arg_stab == defstab ) { - switch (pat->arg_type) { - case O_MATCH: - newarg = make_op(type == O_MATCH ? O_MATCH : O_NMATCH, - pat->arg_len, - left,Nullarg,Nullarg,0); - break; - case O_SUBST: - newarg = l(make_op(type == O_MATCH ? O_SUBST : O_NSUBST, - pat->arg_len, - left,Nullarg,Nullarg,0)); - break; - case O_TRANS: - newarg = l(make_op(type == O_MATCH ? O_TRANS : O_NTRANS, - pat->arg_len, - left,Nullarg,Nullarg,0)); - break; - case O_SPLIT: - newarg = make_op(type == O_MATCH ? O_SPLIT : O_SPLIT, - pat->arg_len, - left,Nullarg,Nullarg,0); - break; - } - if (pat->arg_len >= 2) { - newarg[2].arg_type = pat[2].arg_type; - newarg[2].arg_ptr = pat[2].arg_ptr; - newarg[2].arg_flags = pat[2].arg_flags; - if (pat->arg_len >= 3) { - newarg[3].arg_type = pat[3].arg_type; - newarg[3].arg_ptr = pat[3].arg_ptr; - newarg[3].arg_flags = pat[3].arg_flags; - } - } - safefree((char*)pat); - } - else { - spat = (SPAT *) safemalloc(sizeof (SPAT)); - bzero((char *)spat, sizeof(SPAT)); - spat->spat_next = spat_root; /* link into spat list */ - spat_root = spat; - - spat->spat_runtime = pat; - newarg = make_op(type,2,left,Nullarg,Nullarg,0); - newarg[2].arg_type = A_SPAT; - newarg[2].arg_ptr.arg_spat = spat; - newarg[2].arg_flags = AF_SPECIAL; - } - - return newarg; -} - -CMD * -add_label(lbl,cmd) -char *lbl; -register CMD *cmd; -{ - if (cmd) - cmd->c_label = lbl; - return cmd; -} - -CMD * -addcond(cmd, arg) -register CMD *cmd; -register ARG *arg; -{ - cmd->c_expr = arg; - opt_arg(cmd,1,0); - cmd->c_flags |= CF_COND; - return cmd; -} - -CMD * -addloop(cmd, arg) -register CMD *cmd; -register ARG *arg; -{ - cmd->c_expr = arg; - opt_arg(cmd,1,0); - cmd->c_flags |= CF_COND|CF_LOOP; - if (cmd->c_type == C_BLOCK) - cmd->c_flags &= ~CF_COND; - else { - arg = cmd->ucmd.acmd.ac_expr; - if (arg && arg->arg_type == O_ITEM && arg[1].arg_type == A_CMD) - cmd->c_flags &= ~CF_COND; /* "do {} while" happens at least once */ - if (arg && arg->arg_type == O_SUBR) - cmd->c_flags &= ~CF_COND; /* likewise for "do subr() while" */ - } - return cmd; -} - -CMD * -invert(cmd) -register CMD *cmd; -{ - cmd->c_flags ^= CF_INVERT; - return cmd; -} - -yyerror(s) -char *s; -{ - char tmpbuf[128]; - char *tname = tmpbuf; - - if (yychar > 256) { - tname = tokename[yychar-256]; - if (strEQ(tname,"word")) - strcpy(tname,tokenbuf); - else if (strEQ(tname,"register")) - sprintf(tname,"$%s",tokenbuf); - else if (strEQ(tname,"array_length")) - sprintf(tname,"$#%s",tokenbuf); + if (yyssp >= yyss + yystacksize - 1) + { + /* + ** reallocate and recover. Note that pointers + ** have to be reset, or bad things will happen + */ + int yyps_index = (yyssp - yyss); + int yypv_index = (yyvsp - yyvs); + yystacksize += YYSTACKSIZE; + ysave->yyvs = Renew(yyvs, yystacksize, YYSTYPE); + ysave->yyss = Renew(yyss, yystacksize, short); + if (!yyvs || !yyss) + goto yyoverflow; + yyssp = yyss + yyps_index; + yyvsp = yyvs + yypv_index; + } + *++yyssp = yystate = yytable[yyn]; + *++yyvsp = yylval; + goto yyloop; + } + else + { +#if YYDEBUG + if (yydebug) + PerlIO_printf(Perl_debug_log, "yydebug: error recovery discarding state %d\n", + *yyssp); +#endif + if (yyssp <= yyss) goto yyabort; + --yyssp; + --yyvsp; + } + } } - else if (!yychar) - strcpy(tname,"EOF"); - else if (yychar < 32) - sprintf(tname,"^%c",yychar+64); - else if (yychar == 127) - strcpy(tname,"^?"); else - sprintf(tname,"%c",yychar); - sprintf(tokenbuf, "%s in file %s at line %d, next token \"%s\"\n", - s,filename,line,tname); - if (in_eval) - str_set(stabent("@",TRUE)->stab_val,tokenbuf); - else - fputs(tokenbuf,stderr); -} - -ARG * -make_op(type,newlen,arg1,arg2,arg3,dolist) -int type; -int newlen; -ARG *arg1; -ARG *arg2; -ARG *arg3; -int dolist; -{ - register ARG *arg; - register ARG *chld; - register int doarg; - - arg = op_new(newlen); - arg->arg_type = type; - doarg = opargs[type]; - if (chld = arg1) { - if (!(doarg & 1)) - arg[1].arg_flags |= AF_SPECIAL; - if (doarg & 16) - arg[1].arg_flags |= AF_NUMERIC; - if (chld->arg_type == O_ITEM && - (hoistable[chld[1].arg_type] || chld[1].arg_type == A_LVAL) ) { - arg[1].arg_type = chld[1].arg_type; - arg[1].arg_ptr = chld[1].arg_ptr; - arg[1].arg_flags |= chld[1].arg_flags; - free_arg(chld); - } - else { - arg[1].arg_type = A_EXPR; - arg[1].arg_ptr.arg_arg = chld; - if (dolist & 1) { - if (chld->arg_type == O_LIST) { - if (newlen == 1) { /* we can hoist entire list */ - chld->arg_type = type; - free_arg(arg); - arg = chld; - } - else { - arg[1].arg_flags |= AF_SPECIAL; - } - } - else { - switch (chld->arg_type) { - case O_ARRAY: - if (chld->arg_len == 1) - arg[1].arg_flags |= AF_SPECIAL; - break; - case O_ITEM: - if (chld[1].arg_type == A_READ || - chld[1].arg_type == A_INDREAD || - chld[1].arg_type == A_GLOB) - arg[1].arg_flags |= AF_SPECIAL; - break; - case O_SPLIT: - case O_TMS: - case O_EACH: - case O_VALUES: - case O_KEYS: - case O_SORT: - arg[1].arg_flags |= AF_SPECIAL; - break; - } - } - } - } - } - if (chld = arg2) { - if (!(doarg & 2)) - arg[2].arg_flags |= AF_SPECIAL; - if (doarg & 32) - arg[2].arg_flags |= AF_NUMERIC; - if (chld->arg_type == O_ITEM && - (hoistable[chld[1].arg_type] || - (type == O_ASSIGN && - ((chld[1].arg_type == A_READ && !(arg[1].arg_flags & AF_SPECIAL)) - || - (chld[1].arg_type == A_INDREAD && !(arg[1].arg_flags & AF_SPECIAL)) - || - (chld[1].arg_type == A_GLOB && !(arg[1].arg_flags & AF_SPECIAL)) - || - chld[1].arg_type == A_BACKTICK ) ) ) ) { - arg[2].arg_type = chld[1].arg_type; - arg[2].arg_ptr = chld[1].arg_ptr; - free_arg(chld); - } - else { - arg[2].arg_type = A_EXPR; - arg[2].arg_ptr.arg_arg = chld; - if ((dolist & 2) && - (chld->arg_type == O_LIST || - (chld->arg_type == O_ARRAY && chld->arg_len == 1) )) - arg[2].arg_flags |= AF_SPECIAL; - } - } - if (chld = arg3) { - if (!(doarg & 4)) - arg[3].arg_flags |= AF_SPECIAL; - if (doarg & 64) - arg[3].arg_flags |= AF_NUMERIC; - if (chld->arg_type == O_ITEM && hoistable[chld[1].arg_type]) { - arg[3].arg_type = chld[1].arg_type; - arg[3].arg_ptr = chld[1].arg_ptr; - free_arg(chld); - } - else { - arg[3].arg_type = A_EXPR; - arg[3].arg_ptr.arg_arg = chld; - if ((dolist & 4) && - (chld->arg_type == O_LIST || - (chld->arg_type == O_ARRAY && chld->arg_len == 1) )) - arg[3].arg_flags |= AF_SPECIAL; - } - } -#ifdef DEBUGGING - if (debug & 16) { - fprintf(stderr,"%lx <= make_op(%s",arg,opname[arg->arg_type]); - if (arg1) - fprintf(stderr,",%s=%lx", - argname[arg[1].arg_type],arg[1].arg_ptr.arg_arg); - if (arg2) - fprintf(stderr,",%s=%lx", - argname[arg[2].arg_type],arg[2].arg_ptr.arg_arg); - if (arg3) - fprintf(stderr,",%s=%lx", - argname[arg[3].arg_type],arg[3].arg_ptr.arg_arg); - fprintf(stderr,")\n"); - } + { + if (yychar == 0) goto yyabort; +#if YYDEBUG + if (yydebug) + { + yys = 0; + if (yychar <= YYMAXTOKEN) yys = yyname[yychar]; + if (!yys) yys = "illegal-symbol"; + PerlIO_printf(Perl_debug_log, "yydebug: state %d, error recovery discards token %d (%s)\n", + yystate, yychar, yys); + } #endif - evalstatic(arg); /* see if we can consolidate anything */ - return arg; -} - -/* turn 123 into 123 == $. */ - -ARG * -flipflip(arg) -register ARG *arg; -{ - if (arg && arg->arg_type == O_ITEM && arg[1].arg_type == A_SINGLE) { - arg = (ARG*)saferealloc((char*)arg,3*sizeof(ARG)); - arg->arg_type = O_EQ; - arg->arg_len = 2; - arg[2].arg_type = A_STAB; - arg[2].arg_flags = 0; - arg[2].arg_ptr.arg_stab = stabent(".",TRUE); - } - return arg; -} - -void -evalstatic(arg) -register ARG *arg; -{ - register STR *str; - register STR *s1; - register STR *s2; - double value; /* must not be register */ - register char *tmps; - int i; - unsigned long tmplong; - double exp(), log(), sqrt(), modf(); - char *crypt(); - - if (!arg || !arg->arg_len) - return; - - if (arg[1].arg_type == A_SINGLE && - (arg->arg_len == 1 || arg[2].arg_type == A_SINGLE) ) { - str = str_new(0); - s1 = arg[1].arg_ptr.arg_str; - if (arg->arg_len > 1) - s2 = arg[2].arg_ptr.arg_str; - else - s2 = Nullstr; - switch (arg->arg_type) { - default: - str_free(str); - str = Nullstr; /* can't be evaluated yet */ - break; - case O_CONCAT: - str_sset(str,s1); - str_scat(str,s2); - break; - case O_REPEAT: - i = (int)str_gnum(s2); - while (i-- > 0) - str_scat(str,s1); - break; - case O_MULTIPLY: - value = str_gnum(s1); - str_numset(str,value * str_gnum(s2)); - break; - case O_DIVIDE: - value = str_gnum(s2); - if (value == 0.0) - fatal("Illegal division by constant zero"); - str_numset(str,str_gnum(s1) / value); - break; - case O_MODULO: - tmplong = (unsigned long)str_gnum(s2); - if (tmplong == 0L) - fatal("Illegal modulus of constant zero"); - str_numset(str,(double)(((unsigned long)str_gnum(s1)) % tmplong)); - break; - case O_ADD: - value = str_gnum(s1); - str_numset(str,value + str_gnum(s2)); - break; - case O_SUBTRACT: - value = str_gnum(s1); - str_numset(str,value - str_gnum(s2)); - break; - case O_LEFT_SHIFT: - value = str_gnum(s1); - i = (int)str_gnum(s2); - str_numset(str,(double)(((unsigned long)value) << i)); - break; - case O_RIGHT_SHIFT: - value = str_gnum(s1); - i = (int)str_gnum(s2); - str_numset(str,(double)(((unsigned long)value) >> i)); - break; - case O_LT: - value = str_gnum(s1); - str_numset(str,(double)(value < str_gnum(s2))); - break; - case O_GT: - value = str_gnum(s1); - str_numset(str,(double)(value > str_gnum(s2))); - break; - case O_LE: - value = str_gnum(s1); - str_numset(str,(double)(value <= str_gnum(s2))); - break; - case O_GE: - value = str_gnum(s1); - str_numset(str,(double)(value >= str_gnum(s2))); - break; - case O_EQ: - value = str_gnum(s1); - str_numset(str,(double)(value == str_gnum(s2))); - break; - case O_NE: - value = str_gnum(s1); - str_numset(str,(double)(value != str_gnum(s2))); - break; - case O_BIT_AND: - value = str_gnum(s1); - str_numset(str,(double)(((unsigned long)value) & - ((unsigned long)str_gnum(s2)))); - break; - case O_XOR: - value = str_gnum(s1); - str_numset(str,(double)(((unsigned long)value) ^ - ((unsigned long)str_gnum(s2)))); - break; - case O_BIT_OR: - value = str_gnum(s1); - str_numset(str,(double)(((unsigned long)value) | - ((unsigned long)str_gnum(s2)))); - break; - case O_AND: - if (str_true(s1)) - str = str_make(str_get(s2)); - else - str = str_make(str_get(s1)); - break; - case O_OR: - if (str_true(s1)) - str = str_make(str_get(s1)); - else - str = str_make(str_get(s2)); - break; - case O_COND_EXPR: - if (arg[3].arg_type != A_SINGLE) { - str_free(str); - str = Nullstr; - } - else { - str = str_make(str_get(str_true(s1) ? s2 : arg[3].arg_ptr.arg_str)); - str_free(arg[3].arg_ptr.arg_str); - } - break; - case O_NEGATE: - str_numset(str,(double)(-str_gnum(s1))); - break; - case O_NOT: - str_numset(str,(double)(!str_true(s1))); - break; - case O_COMPLEMENT: - str_numset(str,(double)(~(long)str_gnum(s1))); - break; - case O_LENGTH: - str_numset(str, (double)str_len(s1)); - break; - case O_SUBSTR: - if (arg[3].arg_type != A_SINGLE || stabent("[",allstabs)) { - str_free(str); /* making the fallacious assumption */ - str = Nullstr; /* that any $[ occurs before substr()*/ - } - else { - char *beg; - int len = (int)str_gnum(s2); - int tmp; - - for (beg = str_get(s1); *beg && len > 0; beg++,len--) ; - len = (int)str_gnum(arg[3].arg_ptr.arg_str); - str_free(arg[3].arg_ptr.arg_str); - if (len > (tmp = strlen(beg))) - len = tmp; - str_nset(str,beg,len); - } - break; - case O_SLT: - tmps = str_get(s1); - str_numset(str,(double)(strLT(tmps,str_get(s2)))); - break; - case O_SGT: - tmps = str_get(s1); - str_numset(str,(double)(strGT(tmps,str_get(s2)))); - break; - case O_SLE: - tmps = str_get(s1); - str_numset(str,(double)(strLE(tmps,str_get(s2)))); - break; - case O_SGE: - tmps = str_get(s1); - str_numset(str,(double)(strGE(tmps,str_get(s2)))); - break; - case O_SEQ: - tmps = str_get(s1); - str_numset(str,(double)(strEQ(tmps,str_get(s2)))); - break; - case O_SNE: - tmps = str_get(s1); - str_numset(str,(double)(strNE(tmps,str_get(s2)))); - break; - case O_CRYPT: -#ifdef CRYPT - tmps = str_get(s1); - str_set(str,crypt(tmps,str_get(s2))); -#else - fatal( - "The crypt() function is unimplemented due to excessive paranoia."); + yychar = (-1); + goto yyloop; + } +yyreduce: +#if YYDEBUG + if (yydebug) + PerlIO_printf(Perl_debug_log, "yydebug: state %d, reducing by rule %d (%s)\n", + yystate, yyn, yyrule[yyn]); #endif - break; - case O_EXP: - str_numset(str,exp(str_gnum(s1))); - break; - case O_LOG: - str_numset(str,log(str_gnum(s1))); - break; - case O_SQRT: - str_numset(str,sqrt(str_gnum(s1))); - break; - case O_INT: - value = str_gnum(s1); - if (value >= 0.0) - modf(value,&value); - else { - modf(-value,&value); - value = -value; - } - str_numset(str,value); - break; - case O_ORD: - str_numset(str,(double)(*str_get(s1))); - break; - } - if (str) { - arg->arg_type = O_ITEM; /* note arg1 type is already SINGLE */ - str_free(s1); - str_free(s2); - arg[1].arg_ptr.arg_str = str; - } - } -} - -ARG * -l(arg) -register ARG *arg; + yym = yylen[yyn]; + yyval = yyvsp[1-yym]; + switch (yyn) + { +case 1: +#line 125 "perly.y" { - register int i; - register ARG *arg1; - ARG *tmparg; - - arg->arg_flags |= AF_COMMON; /* XXX should cross-match */ - /* this does unnecessary copying */ - - if (arg[1].arg_type == A_ARYLEN) { - arg[1].arg_type = A_LARYLEN; - return arg; - } - - /* see if it's an array reference */ - - if (arg[1].arg_type == A_EXPR) { - arg1 = arg[1].arg_ptr.arg_arg; - - if (arg1->arg_type == O_LIST && arg->arg_type != O_ITEM) { - /* assign to list */ - arg[1].arg_flags |= AF_SPECIAL; - dehoist(arg,2); - arg[2].arg_flags |= AF_SPECIAL; - for (i = arg1->arg_len; i >= 1; i--) { - switch (arg1[i].arg_type) { - case A_STAB: case A_LVAL: - arg1[i].arg_type = A_LVAL; - break; - case A_EXPR: case A_LEXPR: - arg1[i].arg_type = A_LEXPR; - if (arg1[i].arg_ptr.arg_arg->arg_type == O_ARRAY) - arg1[i].arg_ptr.arg_arg->arg_type = O_LARRAY; - else if (arg1[i].arg_ptr.arg_arg->arg_type == O_HASH) - arg1[i].arg_ptr.arg_arg->arg_type = O_LHASH; - if (arg1[i].arg_ptr.arg_arg->arg_type == O_LARRAY) - break; - if (arg1[i].arg_ptr.arg_arg->arg_type == O_LHASH) - break; - /* FALL THROUGH */ - default: - sprintf(tokenbuf, - "Illegal item (%s) as lvalue",argname[arg1[i].arg_type]); - yyerror(tokenbuf); +#if defined(YYDEBUG) && defined(DEBUGGING) + yydebug = (PL_debug & 1); +#endif + PL_expect = XSTATE; } - } - } - else if (arg1->arg_type == O_ARRAY) { - if (arg1->arg_len == 1 && arg->arg_type != O_ITEM) { - /* assign to array */ - arg[1].arg_flags |= AF_SPECIAL; - dehoist(arg,2); - arg[2].arg_flags |= AF_SPECIAL; - } - else - arg1->arg_type = O_LARRAY; /* assign to array elem */ - } - else if (arg1->arg_type == O_HASH) - arg1->arg_type = O_LHASH; - else if (arg1->arg_type != O_ASSIGN) { - sprintf(tokenbuf, - "Illegal expression (%s) as lvalue",opname[arg1->arg_type]); - yyerror(tokenbuf); - } - arg[1].arg_type = A_LEXPR; -#ifdef DEBUGGING - if (debug & 16) - fprintf(stderr,"lval LEXPR\n"); +break; +case 2: +#line 132 "perly.y" +{ newPROG(yyvsp[0].opval); } +break; +case 3: +#line 136 "perly.y" +{ if (PL_copline > (line_t)yyvsp[-3].ival) + PL_copline = yyvsp[-3].ival; + yyval.opval = block_end(yyvsp[-2].ival, yyvsp[-1].opval); } +break; +case 4: +#line 142 "perly.y" +{ yyval.ival = block_start(TRUE); } +break; +case 5: +#line 146 "perly.y" +{ if (PL_copline > (line_t)yyvsp[-3].ival) + PL_copline = yyvsp[-3].ival; + yyval.opval = block_end(yyvsp[-2].ival, yyvsp[-1].opval); } +break; +case 6: +#line 152 "perly.y" +{ yyval.ival = block_start(FALSE); } +break; +case 7: +#line 156 "perly.y" +{ yyval.opval = Nullop; } +break; +case 8: +#line 158 "perly.y" +{ yyval.opval = yyvsp[-1].opval; } +break; +case 9: +#line 160 "perly.y" +{ yyval.opval = append_list(OP_LINESEQ, + (LISTOP*)yyvsp[-1].opval, (LISTOP*)yyvsp[0].opval); + PL_pad_reset_pending = TRUE; + if (yyvsp[-1].opval && yyvsp[0].opval) PL_hints |= HINT_BLOCK_SCOPE; } +break; +case 10: +#line 167 "perly.y" +{ yyval.opval = newSTATEOP(0, yyvsp[-1].pval, yyvsp[0].opval); } +break; +case 12: +#line 170 "perly.y" +{ if (yyvsp[-1].pval != Nullch) { + yyval.opval = newSTATEOP(0, yyvsp[-1].pval, newOP(OP_NULL, 0)); + } + else { + yyval.opval = Nullop; + PL_copline = NOLINE; + } + PL_expect = XSTATE; } +break; +case 13: +#line 179 "perly.y" +{ yyval.opval = newSTATEOP(0, yyvsp[-2].pval, yyvsp[-1].opval); + PL_expect = XSTATE; } +break; +case 14: +#line 184 "perly.y" +{ yyval.opval = Nullop; } +break; +case 15: +#line 186 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 16: +#line 188 "perly.y" +{ yyval.opval = newLOGOP(OP_AND, 0, yyvsp[0].opval, yyvsp[-2].opval); } +break; +case 17: +#line 190 "perly.y" +{ yyval.opval = newLOGOP(OP_OR, 0, yyvsp[0].opval, yyvsp[-2].opval); } +break; +case 18: +#line 192 "perly.y" +{ yyval.opval = newLOOPOP(OPf_PARENS, 1, scalar(yyvsp[0].opval), yyvsp[-2].opval); } +break; +case 19: +#line 194 "perly.y" +{ yyval.opval = newLOOPOP(OPf_PARENS, 1, yyvsp[0].opval, yyvsp[-2].opval);} +break; +case 20: +#line 196 "perly.y" +{ yyval.opval = newFOROP(0, Nullch, yyvsp[-1].ival, + Nullop, yyvsp[0].opval, yyvsp[-2].opval, Nullop); } +break; +case 21: +#line 201 "perly.y" +{ yyval.opval = Nullop; } +break; +case 22: +#line 203 "perly.y" +{ (yyvsp[0].opval)->op_flags |= OPf_PARENS; yyval.opval = scope(yyvsp[0].opval); } +break; +case 23: +#line 205 "perly.y" +{ PL_copline = yyvsp[-5].ival; + yyval.opval = newCONDOP(0, yyvsp[-3].opval, scope(yyvsp[-1].opval), yyvsp[0].opval); + PL_hints |= HINT_BLOCK_SCOPE; } +break; +case 24: +#line 211 "perly.y" +{ PL_copline = yyvsp[-6].ival; + yyval.opval = block_end(yyvsp[-4].ival, + newCONDOP(0, yyvsp[-3].opval, scope(yyvsp[-1].opval), yyvsp[0].opval)); } +break; +case 25: +#line 215 "perly.y" +{ PL_copline = yyvsp[-6].ival; + yyval.opval = block_end(yyvsp[-4].ival, + newCONDOP(0, yyvsp[-3].opval, scope(yyvsp[-1].opval), yyvsp[0].opval)); } +break; +case 26: +#line 221 "perly.y" +{ yyval.opval = Nullop; } +break; +case 27: +#line 223 "perly.y" +{ yyval.opval = scope(yyvsp[0].opval); } +break; +case 28: +#line 227 "perly.y" +{ PL_copline = yyvsp[-6].ival; + yyval.opval = block_end(yyvsp[-4].ival, + newSTATEOP(0, yyvsp[-7].pval, + newWHILEOP(0, 1, (LOOP*)Nullop, + yyvsp[-6].ival, yyvsp[-3].opval, yyvsp[-1].opval, yyvsp[0].opval))); } +break; +case 29: +#line 233 "perly.y" +{ PL_copline = yyvsp[-6].ival; + yyval.opval = block_end(yyvsp[-4].ival, + newSTATEOP(0, yyvsp[-7].pval, + newWHILEOP(0, 1, (LOOP*)Nullop, + yyvsp[-6].ival, yyvsp[-3].opval, yyvsp[-1].opval, yyvsp[0].opval))); } +break; +case 30: +#line 239 "perly.y" +{ yyval.opval = block_end(yyvsp[-6].ival, + newFOROP(0, yyvsp[-9].pval, yyvsp[-8].ival, yyvsp[-5].opval, yyvsp[-3].opval, yyvsp[-1].opval, yyvsp[0].opval)); } +break; +case 31: +#line 242 "perly.y" +{ yyval.opval = block_end(yyvsp[-4].ival, + newFOROP(0, yyvsp[-8].pval, yyvsp[-7].ival, mod(yyvsp[-6].opval, OP_ENTERLOOP), + yyvsp[-3].opval, yyvsp[-1].opval, yyvsp[0].opval)); } +break; +case 32: +#line 246 "perly.y" +{ yyval.opval = block_end(yyvsp[-4].ival, + newFOROP(0, yyvsp[-7].pval, yyvsp[-6].ival, Nullop, yyvsp[-3].opval, yyvsp[-1].opval, yyvsp[0].opval)); } +break; +case 33: +#line 250 "perly.y" +{ OP *forop = append_elem(OP_LINESEQ, + scalar(yyvsp[-6].opval), + newWHILEOP(0, 1, (LOOP*)Nullop, + yyvsp[-9].ival, scalar(yyvsp[-4].opval), + yyvsp[0].opval, scalar(yyvsp[-2].opval))); + PL_copline = yyvsp[-9].ival; + yyval.opval = block_end(yyvsp[-7].ival, newSTATEOP(0, yyvsp[-10].pval, forop)); } +break; +case 34: +#line 258 "perly.y" +{ yyval.opval = newSTATEOP(0, yyvsp[-2].pval, + newWHILEOP(0, 1, (LOOP*)Nullop, + NOLINE, Nullop, yyvsp[-1].opval, yyvsp[0].opval)); } +break; +case 35: +#line 264 "perly.y" +{ yyval.opval = Nullop; } +break; +case 37: +#line 269 "perly.y" +{ (void)scan_num("1", &yylval); yyval.opval = yylval.opval; } +break; +case 39: +#line 274 "perly.y" +{ yyval.opval = invert(scalar(yyvsp[0].opval)); } +break; +case 40: +#line 278 "perly.y" +{ yyval.opval = yyvsp[0].opval; intro_my(); } +break; +case 41: +#line 282 "perly.y" +{ yyval.opval = yyvsp[0].opval; intro_my(); } +break; +case 42: +#line 286 "perly.y" +{ yyval.opval = yyvsp[0].opval; intro_my(); } +break; +case 43: +#line 290 "perly.y" +{ yyval.opval = yyvsp[0].opval; intro_my(); } +break; +case 44: +#line 294 "perly.y" +{ yyval.pval = Nullch; } +break; +case 46: +#line 299 "perly.y" +{ yyval.ival = 0; } +break; +case 47: +#line 301 "perly.y" +{ yyval.ival = 0; } +break; +case 48: +#line 303 "perly.y" +{ yyval.ival = 0; } +break; +case 49: +#line 305 "perly.y" +{ yyval.ival = 0; } +break; +case 50: +#line 307 "perly.y" +{ yyval.ival = 0; } +break; +case 51: +#line 311 "perly.y" +{ newFORM(yyvsp[-2].ival, yyvsp[-1].opval, yyvsp[0].opval); } +break; +case 52: +#line 314 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 53: +#line 315 "perly.y" +{ yyval.opval = Nullop; } +break; +case 54: +#line 319 "perly.y" +{ newMYSUB(yyvsp[-4].ival, yyvsp[-3].opval, yyvsp[-2].opval, yyvsp[-1].opval, yyvsp[0].opval); } +break; +case 55: +#line 323 "perly.y" +{ newATTRSUB(yyvsp[-4].ival, yyvsp[-3].opval, yyvsp[-2].opval, yyvsp[-1].opval, yyvsp[0].opval); } +break; +case 56: +#line 327 "perly.y" +{ yyval.ival = start_subparse(FALSE, 0); } +break; +case 57: +#line 331 "perly.y" +{ yyval.ival = start_subparse(FALSE, CVf_ANON); } +break; +case 58: +#line 335 "perly.y" +{ yyval.ival = start_subparse(TRUE, 0); } +break; +case 59: +#line 338 "perly.y" +{ STRLEN n_a; char *name = SvPV(((SVOP*)yyvsp[0].opval)->op_sv,n_a); + if (strEQ(name, "BEGIN") || strEQ(name, "END") + || strEQ(name, "INIT") || strEQ(name, "CHECK")) + CvSPECIAL_on(PL_compcv); + yyval.opval = yyvsp[0].opval; } +break; +case 60: +#line 346 "perly.y" +{ yyval.opval = Nullop; } +break; +case 62: +#line 351 "perly.y" +{ yyval.opval = Nullop; } +break; +case 63: +#line 353 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 64: +#line 355 "perly.y" +{ yyval.opval = Nullop; } +break; +case 65: +#line 359 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 66: +#line 361 "perly.y" +{ yyval.opval = Nullop; } +break; +case 67: +#line 364 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 68: +#line 365 "perly.y" +{ yyval.opval = Nullop; PL_expect = XSTATE; } +break; +case 69: +#line 369 "perly.y" +{ package(yyvsp[-1].opval); } +break; +case 70: +#line 371 "perly.y" +{ package(Nullop); } +break; +case 71: +#line 375 "perly.y" +{ CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ } +break; +case 72: +#line 377 "perly.y" +{ utilize(yyvsp[-6].ival, yyvsp[-5].ival, yyvsp[-3].opval, yyvsp[-2].opval, yyvsp[-1].opval); } +break; +case 73: +#line 381 "perly.y" +{ yyval.opval = newLOGOP(OP_AND, 0, yyvsp[-2].opval, yyvsp[0].opval); } +break; +case 74: +#line 383 "perly.y" +{ yyval.opval = newLOGOP(yyvsp[-1].ival, 0, yyvsp[-2].opval, yyvsp[0].opval); } +break; +case 76: +#line 388 "perly.y" +{ yyval.opval = yyvsp[-1].opval; } +break; +case 77: +#line 390 "perly.y" +{ yyval.opval = append_elem(OP_LIST, yyvsp[-2].opval, yyvsp[0].opval); } +break; +case 79: +#line 395 "perly.y" +{ yyval.opval = convert(yyvsp[-2].ival, OPf_STACKED, + prepend_elem(OP_LIST, newGVREF(yyvsp[-2].ival,yyvsp[-1].opval), yyvsp[0].opval) ); } +break; +case 80: +#line 398 "perly.y" +{ yyval.opval = convert(yyvsp[-4].ival, OPf_STACKED, + prepend_elem(OP_LIST, newGVREF(yyvsp[-4].ival,yyvsp[-2].opval), yyvsp[-1].opval) ); } +break; +case 81: +#line 401 "perly.y" +{ yyval.opval = convert(OP_ENTERSUB, OPf_STACKED, + append_elem(OP_LIST, + prepend_elem(OP_LIST, scalar(yyvsp[-5].opval), yyvsp[-1].opval), + newUNOP(OP_METHOD, 0, yyvsp[-3].opval))); } +break; +case 82: +#line 406 "perly.y" +{ yyval.opval = convert(OP_ENTERSUB, OPf_STACKED, + append_elem(OP_LIST, scalar(yyvsp[-2].opval), + newUNOP(OP_METHOD, 0, yyvsp[0].opval))); } +break; +case 83: +#line 410 "perly.y" +{ yyval.opval = convert(OP_ENTERSUB, OPf_STACKED, + append_elem(OP_LIST, + prepend_elem(OP_LIST, yyvsp[-1].opval, yyvsp[0].opval), + newUNOP(OP_METHOD, 0, yyvsp[-2].opval))); } +break; +case 84: +#line 415 "perly.y" +{ yyval.opval = convert(OP_ENTERSUB, OPf_STACKED, + append_elem(OP_LIST, + prepend_elem(OP_LIST, yyvsp[-3].opval, yyvsp[-1].opval), + newUNOP(OP_METHOD, 0, yyvsp[-4].opval))); } +break; +case 85: +#line 420 "perly.y" +{ yyval.opval = convert(yyvsp[-1].ival, 0, yyvsp[0].opval); } +break; +case 86: +#line 422 "perly.y" +{ yyval.opval = convert(yyvsp[-3].ival, 0, yyvsp[-1].opval); } +break; +case 87: +#line 424 "perly.y" +{ yyvsp[0].opval = newANONATTRSUB(yyvsp[-1].ival, 0, Nullop, yyvsp[0].opval); } +break; +case 88: +#line 426 "perly.y" +{ yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED, + append_elem(OP_LIST, + prepend_elem(OP_LIST, yyvsp[-2].opval, yyvsp[0].opval), yyvsp[-4].opval)); } +break; +case 91: +#line 436 "perly.y" +{ yyval.opval = newBINOP(OP_GELEM, 0, yyvsp[-4].opval, scalar(yyvsp[-2].opval)); } +break; +case 92: +#line 438 "perly.y" +{ yyval.opval = newBINOP(OP_AELEM, 0, oopsAV(yyvsp[-3].opval), scalar(yyvsp[-1].opval)); } +break; +case 93: +#line 440 "perly.y" +{ yyval.opval = newBINOP(OP_AELEM, 0, + ref(newAVREF(yyvsp[-4].opval),OP_RV2AV), + scalar(yyvsp[-1].opval));} +break; +case 94: +#line 444 "perly.y" +{ yyval.opval = newBINOP(OP_AELEM, 0, + ref(newAVREF(yyvsp[-3].opval),OP_RV2AV), + scalar(yyvsp[-1].opval));} +break; +case 95: +#line 448 "perly.y" +{ yyval.opval = newBINOP(OP_HELEM, 0, oopsHV(yyvsp[-4].opval), jmaybe(yyvsp[-2].opval)); + PL_expect = XOPERATOR; } +break; +case 96: +#line 451 "perly.y" +{ yyval.opval = newBINOP(OP_HELEM, 0, + ref(newHVREF(yyvsp[-5].opval),OP_RV2HV), + jmaybe(yyvsp[-2].opval)); + PL_expect = XOPERATOR; } +break; +case 97: +#line 456 "perly.y" +{ yyval.opval = newBINOP(OP_HELEM, 0, + ref(newHVREF(yyvsp[-4].opval),OP_RV2HV), + jmaybe(yyvsp[-2].opval)); + PL_expect = XOPERATOR; } +break; +case 98: +#line 461 "perly.y" +{ yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED, + newCVREF(0, scalar(yyvsp[-3].opval))); } +break; +case 99: +#line 464 "perly.y" +{ yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED, + append_elem(OP_LIST, yyvsp[-1].opval, + newCVREF(0, scalar(yyvsp[-4].opval)))); } +break; +case 100: +#line 469 "perly.y" +{ yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED, + append_elem(OP_LIST, yyvsp[-1].opval, + newCVREF(0, scalar(yyvsp[-3].opval)))); } +break; +case 101: +#line 473 "perly.y" +{ yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED, + newCVREF(0, scalar(yyvsp[-2].opval))); } +break; +case 102: +#line 479 "perly.y" +{ yyval.opval = newASSIGNOP(OPf_STACKED, yyvsp[-2].opval, yyvsp[-1].ival, yyvsp[0].opval); } +break; +case 103: +#line 481 "perly.y" +{ yyval.opval = newBINOP(yyvsp[-1].ival, 0, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval)); } +break; +case 104: +#line 483 "perly.y" +{ if (yyvsp[-1].ival != OP_REPEAT) + scalar(yyvsp[-2].opval); + yyval.opval = newBINOP(yyvsp[-1].ival, 0, yyvsp[-2].opval, scalar(yyvsp[0].opval)); } +break; +case 105: +#line 487 "perly.y" +{ yyval.opval = newBINOP(yyvsp[-1].ival, 0, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval)); } +break; +case 106: +#line 489 "perly.y" +{ yyval.opval = newBINOP(yyvsp[-1].ival, 0, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval)); } +break; +case 107: +#line 491 "perly.y" +{ yyval.opval = newBINOP(yyvsp[-1].ival, 0, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval)); } +break; +case 108: +#line 493 "perly.y" +{ yyval.opval = newBINOP(yyvsp[-1].ival, 0, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval)); } +break; +case 109: +#line 495 "perly.y" +{ yyval.opval = newBINOP(yyvsp[-1].ival, 0, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval)); } +break; +case 110: +#line 497 "perly.y" +{ yyval.opval = newBINOP(yyvsp[-1].ival, 0, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval)); } +break; +case 111: +#line 499 "perly.y" +{ yyval.opval = newRANGE(yyvsp[-1].ival, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval));} +break; +case 112: +#line 501 "perly.y" +{ yyval.opval = newLOGOP(OP_AND, 0, yyvsp[-2].opval, yyvsp[0].opval); } +break; +case 113: +#line 503 "perly.y" +{ yyval.opval = newLOGOP(OP_OR, 0, yyvsp[-2].opval, yyvsp[0].opval); } +break; +case 114: +#line 505 "perly.y" +{ yyval.opval = newCONDOP(0, yyvsp[-4].opval, yyvsp[-2].opval, yyvsp[0].opval); } +break; +case 115: +#line 507 "perly.y" +{ yyval.opval = bind_match(yyvsp[-1].ival, yyvsp[-2].opval, yyvsp[0].opval); } +break; +case 116: +#line 510 "perly.y" +{ yyval.opval = newUNOP(OP_NEGATE, 0, scalar(yyvsp[0].opval)); } +break; +case 117: +#line 512 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 118: +#line 514 "perly.y" +{ yyval.opval = newUNOP(OP_NOT, 0, scalar(yyvsp[0].opval)); } +break; +case 119: +#line 516 "perly.y" +{ yyval.opval = newUNOP(OP_COMPLEMENT, 0, scalar(yyvsp[0].opval));} +break; +case 120: +#line 518 "perly.y" +{ yyval.opval = newUNOP(OP_REFGEN, 0, mod(yyvsp[0].opval,OP_REFGEN)); } +break; +case 121: +#line 520 "perly.y" +{ yyval.opval = newUNOP(OP_POSTINC, 0, + mod(scalar(yyvsp[-1].opval), OP_POSTINC)); } +break; +case 122: +#line 523 "perly.y" +{ yyval.opval = newUNOP(OP_POSTDEC, 0, + mod(scalar(yyvsp[-1].opval), OP_POSTDEC)); } +break; +case 123: +#line 526 "perly.y" +{ yyval.opval = newUNOP(OP_PREINC, 0, + mod(scalar(yyvsp[0].opval), OP_PREINC)); } +break; +case 124: +#line 529 "perly.y" +{ yyval.opval = newUNOP(OP_PREDEC, 0, + mod(scalar(yyvsp[0].opval), OP_PREDEC)); } +break; +case 125: +#line 532 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 126: +#line 534 "perly.y" +{ yyval.opval = localize(yyvsp[0].opval,yyvsp[-1].ival); } +break; +case 127: +#line 536 "perly.y" +{ yyval.opval = sawparens(yyvsp[-1].opval); } +break; +case 128: +#line 538 "perly.y" +{ yyval.opval = sawparens(newNULLLIST()); } +break; +case 129: +#line 540 "perly.y" +{ yyval.opval = newANONLIST(yyvsp[-1].opval); } +break; +case 130: +#line 542 "perly.y" +{ yyval.opval = newANONLIST(Nullop); } +break; +case 131: +#line 544 "perly.y" +{ yyval.opval = newANONHASH(yyvsp[-2].opval); } +break; +case 132: +#line 546 "perly.y" +{ yyval.opval = newANONHASH(Nullop); } +break; +case 133: +#line 548 "perly.y" +{ yyval.opval = newANONATTRSUB(yyvsp[-3].ival, yyvsp[-2].opval, yyvsp[-1].opval, yyvsp[0].opval); } +break; +case 134: +#line 550 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 135: +#line 552 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 136: +#line 554 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 137: +#line 556 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 138: +#line 558 "perly.y" +{ yyval.opval = newUNOP(OP_AV2ARYLEN, 0, ref(yyvsp[0].opval, OP_AV2ARYLEN));} +break; +case 139: +#line 560 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 140: +#line 562 "perly.y" +{ yyval.opval = newSLICEOP(0, yyvsp[-1].opval, yyvsp[-4].opval); } +break; +case 141: +#line 564 "perly.y" +{ yyval.opval = newSLICEOP(0, yyvsp[-1].opval, Nullop); } +break; +case 142: +#line 566 "perly.y" +{ yyval.opval = prepend_elem(OP_ASLICE, + newOP(OP_PUSHMARK, 0), + newLISTOP(OP_ASLICE, 0, + list(yyvsp[-1].opval), + ref(yyvsp[-3].opval, OP_ASLICE))); } +break; +case 143: +#line 572 "perly.y" +{ yyval.opval = prepend_elem(OP_HSLICE, + newOP(OP_PUSHMARK, 0), + newLISTOP(OP_HSLICE, 0, + list(yyvsp[-2].opval), + ref(oopsHV(yyvsp[-4].opval), OP_HSLICE))); + PL_expect = XOPERATOR; } +break; +case 144: +#line 579 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 145: +#line 581 "perly.y" +{ yyval.opval = newUNOP(OP_ENTERSUB, 0, scalar(yyvsp[0].opval)); } +break; +case 146: +#line 583 "perly.y" +{ yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar(yyvsp[-2].opval)); } +break; +case 147: +#line 585 "perly.y" +{ yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED, + append_elem(OP_LIST, yyvsp[-1].opval, scalar(yyvsp[-3].opval))); } +break; +case 148: +#line 588 "perly.y" +{ yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED, + append_elem(OP_LIST, yyvsp[0].opval, scalar(yyvsp[-1].opval))); } +break; +case 149: +#line 591 "perly.y" +{ yyval.opval = dofile(yyvsp[0].opval); } +break; +case 150: +#line 593 "perly.y" +{ yyval.opval = newUNOP(OP_NULL, OPf_SPECIAL, scope(yyvsp[0].opval)); } +break; +case 151: +#line 595 "perly.y" +{ yyval.opval = newUNOP(OP_ENTERSUB, + OPf_SPECIAL|OPf_STACKED, + prepend_elem(OP_LIST, + scalar(newCVREF( + (OPpENTERSUB_AMPER<<8), + scalar(yyvsp[-2].opval) + )),Nullop)); dep();} +break; +case 152: +#line 603 "perly.y" +{ yyval.opval = newUNOP(OP_ENTERSUB, + OPf_SPECIAL|OPf_STACKED, + append_elem(OP_LIST, + yyvsp[-1].opval, + scalar(newCVREF( + (OPpENTERSUB_AMPER<<8), + scalar(yyvsp[-3].opval) + )))); dep();} +break; +case 153: +#line 612 "perly.y" +{ yyval.opval = newUNOP(OP_ENTERSUB, OPf_SPECIAL|OPf_STACKED, + prepend_elem(OP_LIST, + scalar(newCVREF(0,scalar(yyvsp[-2].opval))), Nullop)); dep();} +break; +case 154: +#line 616 "perly.y" +{ yyval.opval = newUNOP(OP_ENTERSUB, OPf_SPECIAL|OPf_STACKED, + prepend_elem(OP_LIST, + yyvsp[-1].opval, + scalar(newCVREF(0,scalar(yyvsp[-3].opval))))); dep();} +break; +case 155: +#line 621 "perly.y" +{ yyval.opval = newOP(yyvsp[0].ival, OPf_SPECIAL); + PL_hints |= HINT_BLOCK_SCOPE; } +break; +case 156: +#line 624 "perly.y" +{ yyval.opval = newLOOPEX(yyvsp[-1].ival,yyvsp[0].opval); } +break; +case 157: +#line 626 "perly.y" +{ yyval.opval = newUNOP(OP_NOT, 0, scalar(yyvsp[0].opval)); } +break; +case 158: +#line 628 "perly.y" +{ yyval.opval = newOP(yyvsp[0].ival, 0); } +break; +case 159: +#line 630 "perly.y" +{ yyval.opval = newUNOP(yyvsp[-1].ival, 0, yyvsp[0].opval); } +break; +case 160: +#line 632 "perly.y" +{ yyval.opval = newUNOP(yyvsp[-1].ival, 0, yyvsp[0].opval); } +break; +case 161: +#line 634 "perly.y" +{ yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED, + append_elem(OP_LIST, yyvsp[0].opval, scalar(yyvsp[-1].opval))); } +break; +case 162: +#line 637 "perly.y" +{ yyval.opval = newOP(yyvsp[0].ival, 0); } +break; +case 163: +#line 639 "perly.y" +{ yyval.opval = newOP(yyvsp[-2].ival, 0); } +break; +case 164: +#line 641 "perly.y" +{ yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED, + scalar(yyvsp[0].opval)); } +break; +case 165: +#line 644 "perly.y" +{ yyval.opval = newOP(yyvsp[-2].ival, OPf_SPECIAL); } +break; +case 166: +#line 646 "perly.y" +{ yyval.opval = newUNOP(yyvsp[-3].ival, 0, yyvsp[-1].opval); } +break; +case 167: +#line 648 "perly.y" +{ yyval.opval = pmruntime(yyvsp[-3].opval, yyvsp[-1].opval, Nullop); } +break; +case 168: +#line 650 "perly.y" +{ yyval.opval = pmruntime(yyvsp[-5].opval, yyvsp[-3].opval, yyvsp[-1].opval); } +break; +case 171: +#line 656 "perly.y" +{ yyval.opval = my_attrs(yyvsp[-1].opval,yyvsp[0].opval); } +break; +case 172: +#line 658 "perly.y" +{ yyval.opval = localize(yyvsp[0].opval,yyvsp[-1].ival); } +break; +case 173: +#line 662 "perly.y" +{ yyval.opval = sawparens(yyvsp[-1].opval); } +break; +case 174: +#line 664 "perly.y" +{ yyval.opval = sawparens(newNULLLIST()); } +break; +case 175: +#line 666 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 176: +#line 668 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 177: +#line 670 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 178: +#line 674 "perly.y" +{ yyval.opval = Nullop; } +break; +case 179: +#line 676 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 180: +#line 680 "perly.y" +{ yyval.opval = Nullop; } +break; +case 181: +#line 682 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 182: +#line 684 "perly.y" +{ yyval.opval = yyvsp[-1].opval; } +break; +case 183: +#line 688 "perly.y" +{ PL_in_my = 0; yyval.opval = my(yyvsp[0].opval); } +break; +case 184: +#line 692 "perly.y" +{ yyval.opval = newCVREF(yyvsp[-1].ival,yyvsp[0].opval); } +break; +case 185: +#line 696 "perly.y" +{ yyval.opval = newSVREF(yyvsp[0].opval); } +break; +case 186: +#line 700 "perly.y" +{ yyval.opval = newAVREF(yyvsp[0].opval); } +break; +case 187: +#line 704 "perly.y" +{ yyval.opval = newHVREF(yyvsp[0].opval); } +break; +case 188: +#line 708 "perly.y" +{ yyval.opval = newAVREF(yyvsp[0].opval); } +break; +case 189: +#line 712 "perly.y" +{ yyval.opval = newGVREF(0,yyvsp[0].opval); } +break; +case 190: +#line 716 "perly.y" +{ yyval.opval = scalar(yyvsp[0].opval); } +break; +case 191: +#line 718 "perly.y" +{ yyval.opval = scalar(yyvsp[0].opval); } +break; +case 192: +#line 720 "perly.y" +{ yyval.opval = scope(yyvsp[0].opval); } +break; +case 193: +#line 723 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +#line 2412 "perly.c" + } + yyssp -= yym; + yystate = *yyssp; + yyvsp -= yym; + yym = yylhs[yyn]; + if (yystate == 0 && yym == 0) + { +#if YYDEBUG + if (yydebug) + PerlIO_printf(Perl_debug_log, + "yydebug: after reduction, shifting from state 0 to state %d\n", + YYFINAL); #endif - return arg; - } - - /* not an array reference, should be a register name */ - - if (arg[1].arg_type != A_STAB && arg[1].arg_type != A_LVAL) { - sprintf(tokenbuf, - "Illegal item (%s) as lvalue",argname[arg[1].arg_type]); - yyerror(tokenbuf); - } - arg[1].arg_type = A_LVAL; -#ifdef DEBUGGING - if (debug & 16) - fprintf(stderr,"lval LVAL\n"); + yystate = YYFINAL; + *++yyssp = YYFINAL; + *++yyvsp = yyval; + if (yychar < 0) + { + if ((yychar = yylex()) < 0) yychar = 0; +#if YYDEBUG + if (yydebug) + { + yys = 0; + 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); + } #endif - return arg; -} - -dehoist(arg,i) -ARG *arg; -{ - ARG *tmparg; - - if (arg[i].arg_type != A_EXPR) { /* dehoist */ - tmparg = make_op(O_ITEM,1,Nullarg,Nullarg,Nullarg,0); - tmparg[1] = arg[i]; - arg[i].arg_ptr.arg_arg = tmparg; - arg[i].arg_type = A_EXPR; + } + if (yychar == 0) goto yyaccept; + goto yyloop; } -} - -ARG * -addflags(i,flags,arg) -register ARG *arg; -{ - arg[i].arg_flags |= flags; - return arg; -} - -ARG * -hide_ary(arg) -ARG *arg; -{ - if (arg->arg_type == O_ARRAY) - return make_op(O_ITEM,1,arg,Nullarg,Nullarg,0); - return arg; -} - -ARG * -make_list(arg) -register ARG *arg; -{ - register int i; - register ARG *node; - register ARG *nxtnode; - register int j; - STR *tmpstr; - - if (!arg) { - arg = op_new(0); - arg->arg_type = O_LIST; - } - if (arg->arg_type != O_COMMA) { - arg->arg_flags |= AF_LISTISH; /* see listish() below */ - return arg; - } - for (i = 2, node = arg; ; i++) { - if (node->arg_len < 2) - break; - if (node[2].arg_type != A_EXPR) - break; - node = node[2].arg_ptr.arg_arg; - if (node->arg_type != O_COMMA) - break; - } - if (i > 2) { - node = arg; - arg = op_new(i); - tmpstr = arg->arg_ptr.arg_str; - *arg = *node; /* copy everything except the STR */ - arg->arg_ptr.arg_str = tmpstr; - for (j = 1; ; ) { - arg[j] = node[1]; - ++j; /* Bug in Xenix compiler */ - if (j >= i) { - arg[j] = node[2]; - free_arg(node); - break; - } - nxtnode = node[2].arg_ptr.arg_arg; - free_arg(node); - node = nxtnode; - } - } - arg->arg_type = O_LIST; - arg->arg_len = i; - return arg; -} - -/* turn a single item into a list */ - -ARG * -listish(arg) -ARG *arg; -{ - if (arg->arg_flags & AF_LISTISH) { - arg = make_op(O_LIST,1,arg,Nullarg,Nullarg,0); - arg[1].arg_flags &= ~AF_SPECIAL; - } - return arg; -} - -/* mark list of local variables */ - -ARG * -localize(arg) -ARG *arg; -{ - arg->arg_flags |= AF_LOCAL; - return arg; -} - -ARG * -stab2arg(atype,stab) -int atype; -register STAB *stab; -{ - register ARG *arg; - - arg = op_new(1); - arg->arg_type = O_ITEM; - arg[1].arg_type = atype; - arg[1].arg_ptr.arg_stab = stab; - return arg; -} - -ARG * -cval_to_arg(cval) -register char *cval; -{ - register ARG *arg; - - arg = op_new(1); - arg->arg_type = O_ITEM; - arg[1].arg_type = A_SINGLE; - arg[1].arg_ptr.arg_str = str_make(cval); - safefree(cval); - return arg; -} - -ARG * -op_new(numargs) -int numargs; -{ - register ARG *arg; - - arg = (ARG*)safemalloc((numargs + 1) * sizeof (ARG)); - bzero((char *)arg, (numargs + 1) * sizeof (ARG)); - arg->arg_ptr.arg_str = str_new(0); - arg->arg_len = numargs; - return arg; -} - -void -free_arg(arg) -ARG *arg; -{ - str_free(arg->arg_ptr.arg_str); - safefree((char*)arg); -} - -ARG * -make_match(type,expr,spat) -int type; -ARG *expr; -SPAT *spat; -{ - register ARG *arg; - - arg = make_op(type,2,expr,Nullarg,Nullarg,0); - - arg[2].arg_type = A_SPAT; - arg[2].arg_ptr.arg_spat = spat; -#ifdef DEBUGGING - if (debug & 16) - fprintf(stderr,"make_match SPAT=%lx\n",(long)spat); -#endif - - if (type == O_SUBST || type == O_NSUBST) { - if (arg[1].arg_type != A_STAB) - yyerror("Illegal lvalue"); - arg[1].arg_type = A_LVAL; - } - return arg; -} - -ARG * -cmd_to_arg(cmd) -CMD *cmd; -{ - register ARG *arg; - - arg = op_new(1); - arg->arg_type = O_ITEM; - arg[1].arg_type = A_CMD; - arg[1].arg_ptr.arg_cmd = cmd; - return arg; -} - -CMD * -wopt(cmd) -register CMD *cmd; -{ - register CMD *tail; - register ARG *arg = cmd->c_expr; - STAB *asgnstab; - - /* hoist "while ()" up into command block */ - - if (arg && arg->arg_type == O_ITEM && arg[1].arg_type == A_READ) { - cmd->c_flags &= ~CF_OPTIMIZE; /* clear optimization type */ - cmd->c_flags |= CFT_GETS; /* and set it to do the input */ - cmd->c_stab = arg[1].arg_ptr.arg_stab; - if (arg[1].arg_ptr.arg_stab->stab_io->flags & IOF_ARGV) { - cmd->c_expr = l(make_op(O_ASSIGN, 2, /* fake up "$_ =" */ - stab2arg(A_LVAL,defstab), arg, Nullarg,1 )); - } - else { - free_arg(arg); - cmd->c_expr = Nullarg; - } - } - else if (arg && arg->arg_type == O_ITEM && arg[1].arg_type == A_INDREAD) { - cmd->c_flags &= ~CF_OPTIMIZE; /* clear optimization type */ - cmd->c_flags |= CFT_INDGETS; /* and set it to do the input */ - cmd->c_stab = arg[1].arg_ptr.arg_stab; - free_arg(arg); - cmd->c_expr = Nullarg; - } - else if (arg && arg->arg_type == O_ITEM && arg[1].arg_type == A_GLOB) { - if ((cmd->c_flags & CF_OPTIMIZE) == CFT_ARRAY) - asgnstab = cmd->c_stab; - else - asgnstab = defstab; - cmd->c_expr = l(make_op(O_ASSIGN, 2, /* fake up "$foo =" */ - stab2arg(A_LVAL,asgnstab), arg, Nullarg,1 )); - cmd->c_flags &= ~CF_OPTIMIZE; /* clear optimization type */ - } - - /* First find the end of the true list */ - - if (cmd->ucmd.ccmd.cc_true == Nullcmd) - return cmd; - for (tail = cmd->ucmd.ccmd.cc_true; tail->c_next; tail = tail->c_next) ; - - /* if there's a continue block, link it to true block and find end */ - - if (cmd->ucmd.ccmd.cc_alt != Nullcmd) { - tail->c_next = cmd->ucmd.ccmd.cc_alt; - for ( ; tail->c_next; tail = tail->c_next) ; - } - - /* Here's the real trick: link the end of the list back to the beginning, - * inserting a "last" block to break out of the loop. This saves one or - * two procedure calls every time through the loop, because of how cmd_exec - * does tail recursion. - */ - - tail->c_next = (CMD *) safemalloc(sizeof (CMD)); - tail = tail->c_next; - if (!cmd->ucmd.ccmd.cc_alt) - cmd->ucmd.ccmd.cc_alt = tail; /* every loop has a continue now */ - - bcopy((char *)cmd, (char *)tail, sizeof(CMD)); - tail->c_type = C_EXPR; - tail->c_flags ^= CF_INVERT; /* turn into "last unless" */ - tail->c_next = tail->ucmd.ccmd.cc_true; /* loop directly back to top */ - tail->ucmd.acmd.ac_expr = make_op(O_LAST,0,Nullarg,Nullarg,Nullarg,0); - tail->ucmd.acmd.ac_stab = Nullstab; - return cmd; -} - -CMD * -over(eachstab,cmd) -STAB *eachstab; -register CMD *cmd; -{ - /* hoist "for $foo (@bar)" up into command block */ - - cmd->c_flags &= ~CF_OPTIMIZE; /* clear optimization type */ - cmd->c_flags |= CFT_ARRAY; /* and set it to do the iteration */ - cmd->c_stab = eachstab; - - return cmd; -} - -static int gensym = 0; - -STAB * -genstab() -{ - sprintf(tokenbuf,"_GEN_%d",gensym++); - return stabent(tokenbuf,TRUE); -} - -/* this routine is in perly.c by virtue of being sort of an alternate main() */ - -STR * -do_eval(str,optype) -STR *str; -int optype; -{ - int retval; - CMD *myroot; - ARRAY *ar; - int i; - char *oldfile = filename; - line_t oldline = line; - int oldtmps_base = tmps_base; - int oldsave = savestack->ary_fill; - - tmps_base = tmps_max; - str_set(stabent("@",TRUE)->stab_val,""); - if (optype != O_DOFILE) { /* normal eval */ - filename = "(eval)"; - line = 1; - str_sset(linestr,str); - } - else { - filename = savestr(str_get(str)); /* can't free this easily */ - str_set(linestr,""); - rsfp = fopen(filename,"r"); - ar = incstab->stab_array; - if (!rsfp && *filename != '/') { - for (i = 0; i <= ar->ary_fill; i++) { - sprintf(tokenbuf,"%s/%s",str_get(afetch(ar,i)),filename); - rsfp = fopen(tokenbuf,"r"); - if (rsfp) { - free(filename); - filename = savestr(tokenbuf); - break; - } - } - } - if (!rsfp) { - filename = oldfile; - tmps_base = oldtmps_base; - return &str_no; - } - line = 0; - } - in_eval++; - bufptr = str_get(linestr); - if (setjmp(eval_env)) - retval = 1; + if ((yyn = yygindex[yym]) && (yyn += yystate) >= 0 && + yyn <= YYTABLESIZE && yycheck[yyn] == yystate) + yystate = yytable[yyn]; else - retval = yyparse(); - myroot = eval_root; /* in case cmd_exec does another eval! */ - if (retval) - str = &str_no; - else { - str = str_static(cmd_exec(eval_root)); - /* if we don't save str, free zaps it */ - cmd_free(myroot); /* can't free on error, for some reason */ - } - in_eval--; - filename = oldfile; - line = oldline; - tmps_base = oldtmps_base; - if (savestack->ary_fill > oldsave) /* let them use local() */ - restorelist(oldsave); - return str; -} - -cmd_free(cmd) -register CMD *cmd; -{ - register CMD *tofree; - register CMD *head = cmd; - - while (cmd) { - if (cmd->c_type != C_WHILE) { /* WHILE block is duplicated */ - if (cmd->c_label) - safefree(cmd->c_label); - if (cmd->c_short) - str_free(cmd->c_short); - if (cmd->c_spat) - spat_free(cmd->c_spat); - if (cmd->c_expr) - arg_free(cmd->c_expr); - } - switch (cmd->c_type) { - case C_WHILE: - case C_BLOCK: - case C_IF: - if (cmd->ucmd.ccmd.cc_true) - cmd_free(cmd->ucmd.ccmd.cc_true); - if (cmd->c_type == C_IF && cmd->ucmd.ccmd.cc_alt) - cmd_free(cmd->ucmd.ccmd.cc_alt); - break; - case C_EXPR: - if (cmd->ucmd.acmd.ac_expr) - arg_free(cmd->ucmd.acmd.ac_expr); - break; - } - tofree = cmd; - cmd = cmd->c_next; - safefree((char*)tofree); - if (cmd && cmd == head) /* reached end of while loop */ - break; - } -} - -arg_free(arg) -register ARG *arg; -{ - register int i; - - for (i = 1; i <= arg->arg_len; i++) { - switch (arg[i].arg_type) { - case A_NULL: - break; - case A_LEXPR: - case A_EXPR: - arg_free(arg[i].arg_ptr.arg_arg); - break; - case A_CMD: - cmd_free(arg[i].arg_ptr.arg_cmd); - break; - case A_WORD: - case A_STAB: - case A_LVAL: - case A_READ: - case A_GLOB: - case A_ARYLEN: - break; - case A_SINGLE: - case A_DOUBLE: - case A_BACKTICK: - str_free(arg[i].arg_ptr.arg_str); - break; - case A_SPAT: - spat_free(arg[i].arg_ptr.arg_spat); - break; - case A_NUMBER: - break; - } - } - free_arg(arg); -} - -spat_free(spat) -register SPAT *spat; -{ - register SPAT *sp; - - if (spat->spat_runtime) - arg_free(spat->spat_runtime); - if (spat->spat_repl) { - arg_free(spat->spat_repl); - } - if (spat->spat_short) { - str_free(spat->spat_short); - } - if (spat->spat_regexp) { - regfree(spat->spat_regexp); - } - - /* now unlink from spat list */ - if (spat_root == spat) - spat_root = spat->spat_next; - else { - for (sp = spat_root; sp->spat_next != spat; sp = sp->spat_next) ; - sp->spat_next = spat->spat_next; - } - - safefree((char*)spat); -} - -/* Recursively descend a command sequence and push the address of any string - * that needs saving on recursion onto the tosave array. - */ - -static int -cmd_tosave(cmd) -register CMD *cmd; -{ - register CMD *head = cmd; - - while (cmd) { - if (cmd->c_spat) - spat_tosave(cmd->c_spat); - if (cmd->c_expr) - arg_tosave(cmd->c_expr); - switch (cmd->c_type) { - case C_WHILE: - case C_BLOCK: - case C_IF: - if (cmd->ucmd.ccmd.cc_true) - cmd_tosave(cmd->ucmd.ccmd.cc_true); - if (cmd->c_type == C_IF && cmd->ucmd.ccmd.cc_alt) - cmd_tosave(cmd->ucmd.ccmd.cc_alt); - break; - case C_EXPR: - if (cmd->ucmd.acmd.ac_expr) - arg_tosave(cmd->ucmd.acmd.ac_expr); - break; - } - cmd = cmd->c_next; - if (cmd && cmd == head) /* reached end of while loop */ - break; - } + yystate = yydgoto[yym]; +#if YYDEBUG + if (yydebug) + PerlIO_printf(Perl_debug_log, + "yydebug: after reduction, shifting from state %d to state %d\n", + *yyssp, yystate); +#endif + if (yyssp >= yyss + yystacksize - 1) + { + /* + ** reallocate and recover. Note that pointers + ** have to be reset, or bad things will happen + */ + int yyps_index = (yyssp - yyss); + int yypv_index = (yyvsp - yyvs); + yystacksize += YYSTACKSIZE; + ysave->yyvs = Renew(yyvs, yystacksize, YYSTYPE); + ysave->yyss = Renew(yyss, yystacksize, short); + if (!yyvs || !yyss) + goto yyoverflow; + yyssp = yyss + yyps_index; + yyvsp = yyvs + yypv_index; + } + *++yyssp = yystate; + *++yyvsp = yyval; + goto yyloop; +yyoverflow: + yyerror("Out of memory for yacc stack"); +yyabort: + retval = 1; +yyaccept: +#ifdef USE_ITHREADS + LEAVE; /* force yydestruct() before we return */ +#endif + return retval; } -static int -arg_tosave(arg) -register ARG *arg; -{ - register int i; - int saving = FALSE; - - for (i = 1; i <= arg->arg_len; i++) { - switch (arg[i].arg_type) { - case A_NULL: - break; - case A_LEXPR: - case A_EXPR: - saving |= arg_tosave(arg[i].arg_ptr.arg_arg); - break; - case A_CMD: - cmd_tosave(arg[i].arg_ptr.arg_cmd); - saving = TRUE; /* assume hanky panky */ - break; - case A_WORD: - case A_STAB: - case A_LVAL: - case A_READ: - case A_GLOB: - case A_ARYLEN: - case A_SINGLE: - case A_DOUBLE: - case A_BACKTICK: - break; - case A_SPAT: - saving |= spat_tosave(arg[i].arg_ptr.arg_spat); - break; - case A_NUMBER: - break; - } - } - switch (arg->arg_type) { - case O_EVAL: - case O_SUBR: - saving = TRUE; - } - if (saving) - apush(tosave,arg->arg_ptr.arg_str); - return saving; -} +#ifdef PERL_OBJECT +#include "XSUB.h" +#endif -static int -spat_tosave(spat) -register SPAT *spat; +static void +yydestruct(pTHXo_ void *ptr) { - int saving = FALSE; - - if (spat->spat_runtime) - saving |= arg_tosave(spat->spat_runtime); - if (spat->spat_repl) { - saving |= arg_tosave(spat->spat_repl); - } - - return saving; + struct ysv* ysave = (struct ysv*)ptr; + if (ysave->yyss) Safefree(ysave->yyss); + if (ysave->yyvs) Safefree(ysave->yyvs); + yydebug = ysave->oldyydebug; + yynerrs = ysave->oldyynerrs; + yyerrflag = ysave->oldyyerrflag; + yychar = ysave->oldyychar; + yyval = ysave->oldyyval; + yylval = ysave->oldyylval; + Safefree(ysave); }