X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/ac58e20f744208e9bff2115708a2f1c4e2e2175f..03aa69f98a1004fda52fa77f324e5463bea07c1e:/perly.c?ds=sidebyside diff --git a/perly.c b/perly.c index d0aec55..5dae052 100644 --- a/perly.c +++ b/perly.c @@ -1,856 +1,2647 @@ -char rcsid[] = "$Header: perly.c,v 3.0.1.4 90/02/28 18:06:41 lwall Locked $\nPatch level: ###\n"; -/* - * Copyright (c) 1989, Larry Wall - * - * You may distribute under the terms of the GNU General Public License - * as specified in the README file that comes with the perl 3.0 kit. - * - * $Log: perly.c,v $ - * Revision 3.0.1.4 90/02/28 18:06:41 lwall - * patch9: perl can now start up other interpreters scripts - * patch9: nested evals clobbered their longjmp environment - * patch9: eval could mistakenly return undef in array context - * - * Revision 3.0.1.3 89/12/21 20:15:41 lwall - * patch7: ANSI strerror() is now supported - * patch7: errno may now be a macro with an lvalue - * patch7: allowed setuid scripts to have a space after #! - * - * Revision 3.0.1.2 89/11/17 15:34:42 lwall - * patch5: fixed possible confusion about current effective gid - * - * Revision 3.0.1.1 89/11/11 04:50:04 lwall - * patch2: moved yydebug to where its type didn't matter - * - * Revision 3.0 89/10/18 15:22:21 lwall - * 3.0 baseline - * - */ - +#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" -#include "patchlevel.h" - -#ifdef IAMSUID -#ifndef DOSUID -#define DOSUID -#endif +#ifdef EBCDIC +#undef YYDEBUG #endif +#define dep() deprecate_old("\"do\" to call subroutines") -#ifdef SETUID_SCRIPTS_ARE_SECURE_NOW -#ifdef DOSUID -#undef DOSUID -#endif -#endif +/* stuff included here to make perly_c.diff apply better */ -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 *validarg = ""; -#endif +#define yydebug PL_yydebug +#define yynerrs PL_yynerrs +#define yyerrflag PL_yyerrflag +#define yychar PL_yychar +#define yyval PL_yyval +#define yylval PL_yylval -#ifdef SETUID_SCRIPTS_ARE_SECURE_NOW -#ifdef IAMSUID -#undef IAMSUID - fatal("suidperl is no longer needed since the kernel can now execute\n\ -setuid perl scripts securely.\n"); -#endif +struct ysv { + short* yyss; + YYSTYPE* yyvs; + int oldyydebug; + int oldyynerrs; + int oldyyerrflag; + int oldyychar; + YYSTYPE oldyyval; + YYSTYPE oldyylval; +}; + +static void yydestruct(pTHX_ void *ptr); + +#line 51 "perly.y" +#if 0 /* get this from perly.h instead */ +#line 54 "perly.y" +typedef union { + I32 ival; + char *pval; + OP *opval; + GV *gvval; +} YYSTYPE; +#line 62 "perly.y" +#endif /* 0 */ + +#ifdef USE_PURE_BISON +#define YYLEX_PARAM (&yychar) +#define yylex yylex_r #endif - origargv = argv; - origargc = argc; - uid = (int)getuid(); - euid = (int)geteuid(); - gid = (int)getgid(); - egid = (int)getegid(); - if (do_undump) { - do_undump = 0; - loop_ptr = -1; /* start label stack again */ - goto just_doit; - } - (void)sprintf(index(rcsid,'#'), "%d\n", PATCHLEVEL); - linestr = Str_new(65,80); - str_nset(linestr,"",0); - str = str_make("",0); /* first used for -I flags */ - curstash = defstash = hnew(0); - curstname = str_make("main",4); - stab_xhash(stabent("_main",TRUE)) = defstash; - incstab = aadd(stabent("INC",TRUE)); - incstab->str_pok |= SP_MULTI; - 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 54 "perly.c" +#define YYERRCODE 256 +static short yylhs[] = { -1, + 0, 9, 7, 6, 10, 8, 11, 11, 11, 12, + 12, 12, 12, 25, 25, 25, 25, 25, 25, 25, + 15, 15, 15, 14, 14, 43, 43, 13, 13, 13, + 13, 13, 13, 13, 27, 27, 28, 28, 29, 30, + 31, 32, 33, 54, 54, 1, 1, 1, 1, 1, + 2, 39, 39, 47, 55, 3, 4, 5, 40, 41, + 41, 45, 45, 45, 46, 46, 42, 42, 56, 58, + 57, 16, 16, 16, 16, 26, 26, 26, 37, 37, + 37, 37, 37, 37, 37, 37, 59, 37, 38, 38, + 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, + 18, 50, 50, 50, 50, 50, 50, 50, 50, 50, + 50, 50, 50, 50, 50, 51, 51, 51, 51, 51, + 51, 51, 51, 52, 52, 52, 52, 52, 53, 53, + 53, 53, 53, 53, 17, 17, 17, 17, 17, 17, + 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, + 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, + 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, + 17, 17, 17, 17, 17, 48, 48, 49, 49, 49, + 49, 49, 34, 34, 35, 35, 35, 44, 24, 19, + 20, 21, 22, 23, 36, 36, 36, 36, +}; +static short yylen[] = { 2, + 2, 4, 0, 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, 0, + 7, 3, 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, 3, 3, 2, 2, 2, 2, 2, + 2, 2, 2, 3, 2, 4, 3, 5, 2, 2, + 4, 5, 4, 5, 1, 1, 1, 1, 5, 2, + 1, 2, 3, 2, 1, 1, 1, 1, 1, 1, + 6, 5, 4, 5, 1, 1, 3, 4, 3, 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[] = { 4, + 0, 7, 0, 45, 58, 56, 0, 56, 56, 8, + 46, 9, 11, 48, 0, 47, 49, 50, 0, 0, + 0, 70, 0, 14, 3, 174, 0, 0, 155, 0, + 169, 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, 147, 149, 0, 0, 0, 0, + 175, 141, 135, 136, 137, 138, 52, 0, 59, 0, + 69, 0, 0, 7, 195, 198, 197, 196, 0, 0, + 0, 0, 0, 0, 3, 3, 3, 3, 3, 3, + 0, 0, 0, 0, 0, 164, 0, 0, 0, 0, + 85, 0, 193, 0, 130, 0, 0, 0, 0, 0, + 0, 0, 180, 182, 181, 0, 189, 0, 0, 0, + 0, 0, 0, 0, 0, 125, 0, 0, 0, 190, + 191, 192, 194, 0, 34, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 120, 121, + 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, 3, + 168, 170, 0, 0, 0, 0, 0, 0, 0, 127, + 0, 159, 179, 0, 0, 176, 0, 0, 124, 27, + 0, 0, 19, 0, 0, 0, 0, 0, 72, 0, + 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, 157, + 0, 0, 0, 0, 0, 0, 2, 0, 0, 172, + 0, 0, 0, 42, 0, 43, 0, 0, 0, 0, + 188, 0, 0, 36, 41, 0, 0, 0, 171, 187, + 86, 0, 131, 0, 133, 0, 126, 178, 65, 0, + 0, 0, 0, 98, 0, 0, 0, 0, 100, 94, + 0, 92, 0, 153, 0, 158, 63, 68, 67, 55, + 0, 54, 84, 0, 88, 128, 0, 0, 0, 0, + 0, 0, 0, 0, 80, 132, 134, 152, 0, 0, + 0, 99, 93, 0, 97, 95, 154, 91, 71, 173, + 6, 0, 0, 0, 0, 0, 0, 0, 0, 151, + 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, 103, 19, 2, 94, 373, 97, 362, + 3, 12, 13, 69, 378, 288, 71, 72, 73, 74, + 75, 76, 77, 78, 294, 80, 295, 284, 286, 289, + 297, 285, 287, 121, 215, 99, 81, 260, 88, 90, + 195, 330, 155, 292, 274, 226, 14, 82, 136, 83, + 84, 85, 86, 15, 16, 17, 18, 92, 281, +}; +static short yysindex[] = { 0, + 0, 0, -236, 0, 0, 0, -231, 0, 0, 0, + 0, 0, 0, 0, 819, 0, 0, 0, -211, -209, + 3, 0, -209, 0, 0, 0, -32, -32, 0, 23, + 0, 2213, 0, 0, 28, 30, 32, 33, -18, 2213, + 42, 52, 64, 1004, 940, -32, 1149, 1268, -168, 2213, + 174, -32, 2213, 2213, 2213, 2213, 2213, 2213, 1328, 1413, + 0, 2213, 2213, -32, -32, -32, -32, -173, 0, 607, + 404, -27, -71, -67, 0, 0, -12, 68, 66, 94, + 0, 0, 0, 0, 0, 0, 0, 27, 0, -108, + 0, -100, -108, 0, 0, 0, 0, 0, 2213, 122, + 2213, 743, 27, -108, 0, 0, 0, 0, 0, 0, + 125, 404, 135, 1454, 940, 0, 743, 0, -71, 94, + 0, 2213, 0, 140, 0, 743, -25, 38, -8, 2213, + 743, 1562, 0, 0, 0, -114, 0, 94, 245, 245, + 245, -123, -123, 106, -34, 0, -53, 245, 245, 0, + 0, 0, 0, 27, 0, 2213, 2213, 2213, 2213, 2213, + 2213, 2213, 2213, 2213, 2213, 2213, 2213, 2213, 2213, 2213, + 2213, 2213, 2213, 2213, 2213, 2213, 2213, 2213, 0, 0, + -26, 2213, 1723, 2213, 2213, 2213, 2213, 2213, 2213, 1796, + 0, 2213, 0, 0, -90, -48, -90, 285, 0, 2213, + -35, 0, -90, 2213, 2213, 2213, 2213, 182, 1859, 0, + 0, 0, -2, -42, 180, 2213, 94, 1932, 2004, 0, + 102, 0, 0, 13, -21, 0, 2213, 142, 0, 0, + 184, 184, 0, 184, 184, 184, -51, -51, 0, 296, + 743, 386, 683, -158, 404, 643, 1034, 1034, 1067, 1345, + 960, -112, 245, 245, 2213, 0, 2140, 2213, 0, 216, + 120, 0, 40, 127, 123, 214, 132, 217, 136, 0, + 77, 404, -3, -47, 2213, -47, 0, 220, 2213, 0, + 2213, 27, 184, 0, 224, 0, 240, 184, 244, 246, + 0, 261, 607, 0, 0, 267, 227, 2213, 0, 0, + 0, 88, 0, 95, 0, 98, 0, 0, 0, 236, + 2213, 2213, 139, 0, 117, 239, 2213, 194, 0, 0, + 206, 0, 213, 0, 218, 0, 0, 0, 0, 0, + 293, 0, 0, 585, 0, 0, 221, 221, 221, 221, + 2213, 221, 2213, 325, 0, 0, 0, 0, 243, 703, + 255, 0, 0, 327, 0, 0, 0, 0, 0, 0, + 0, -173, -173, -240, -240, 351, -173, 332, 221, 0, + 0, 0, 0, 0, 0, 221, 354, 0, 0, 221, + 0, 1859, -173, 350, 0, 2213, -173, 360, 0, 0, + 361, 0, 221, 221, 0, -240, 0, +}; +static short yyrindex[] = { 0, + 0, 0, 371, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 289, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 16, + 2282, 0, 0, 2401, 2566, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 90, 0, -16, + 1607, 2620, 2673, 2721, 0, 0, 2769, 2856, 0, -38, + 0, 0, 0, 0, 0, 0, 0, 0, 0, -54, + 0, 0, -54, 0, 0, 0, 0, 0, 2566, 0, + 0, 4274, 0, -115, 0, 0, 0, 0, 0, 0, + 0, 1886, 0, 0, 374, 0, 4339, 467, 532, 3224, + 0, 0, 0, 3005, 0, 4394, 2673, 0, 0, 2566, + 4404, 0, 0, 0, 0, 3055, 0, 3459, 3695, 3746, + 3801, 3582, 3630, 3127, 0, 0, 0, 3866, 3914, 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, 3175, 0, 0, -43, 0, -43, 880, 0, 374, + 0, 0, 303, 390, 0, 0, 0, 0, 389, 0, + 0, 0, 0, 422, 0, 0, 3510, 0, 0, 0, + 0, 0, 0, 0, 3291, 0, 0, 3346, 0, 0, + 8, 12, 0, 61, 62, 65, 1479, 1642, 0, 2274, + 4445, 4493, 4120, 4168, 2421, 0, 4697, 4745, 4630, 4591, + 4543, 4219, 4000, 4055, 0, 0, 0, 0, 0, 3411, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 2474, -30, 0, 405, 0, 0, 0, 0, 0, + 2566, 0, 78, 0, 0, 0, 0, 432, 0, 0, + 0, 0, 81, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 374, 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, 415, 0, 0, 0, 0, 0, 0, 1201, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 90, 90, 186, 186, 0, 90, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 435, 90, 880, 0, 0, 90, 0, 0, 0, + 0, 0, 0, 0, 0, 186, 0, +}; +static short yygindex[] = { 0, + 0, 0, 50, 453, 0, 0, -22, 0, 63, 153, + -93, 0, 0, 0, -346, -15, 2480, 0, 1744, 437, + 439, 0, 0, 0, 481, 755, 0, 0, 341, -186, + 124, 170, 313, -88, -183, 49, 0, 0, 0, 498, + -66, 247, 225, 0, -156, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, +}; +#define YYTABLESIZE 5051 +static short yytable[] = { 70, + 198, 300, 75, 64, 60, 280, 228, 60, 279, 64, + 199, 328, 183, 257, 219, 62, 278, 64, 379, 186, + 75, 110, 296, 188, 15, 21, 197, 170, 64, 4, + 5, 6, 129, 7, 8, 376, 377, 203, 299, 229, + 276, 222, 15, 145, 147, 87, 282, 89, 18, 397, + 221, 185, 39, 308, 75, 187, 160, 22, 23, 160, + 9, 91, 101, 184, 258, 186, 18, 105, 60, 106, + 39, 107, 108, 160, 160, 25, 100, 68, 160, 62, + 319, 113, 204, 205, 206, 207, 208, 209, 130, 26, + 25, 114, 64, 122, 123, 182, 255, 185, 213, 214, + 137, 16, 17, 115, 154, 20, 116, 190, 160, 125, + 189, 344, 150, 151, 152, 153, 224, 326, 38, 16, + 17, 40, 26, 20, 191, 26, 26, 26, 345, 26, + 167, 26, 26, 354, 26, 346, 38, 192, 347, 15, + 231, 232, 234, 235, 236, 237, 238, 239, 26, 25, + 193, 194, 177, 26, 366, 178, 196, 352, 179, 180, + 181, 200, 220, 216, 210, 202, 261, 263, 264, 265, + 266, 267, 268, 269, 271, 211, 167, 168, 318, 218, + 26, 321, 60, 225, 214, 21, 331, 298, 283, 232, + 323, 232, 335, 293, 325, 181, 227, 351, 177, 391, + 302, 178, 304, 306, 179, 180, 181, 273, 275, 64, + 66, 310, 26, 132, 26, 26, 230, 64, 21, 320, + 301, 21, 21, 21, 95, 21, 307, 21, 21, 96, + 21, 256, 311, 75, 75, 75, 75, 65, 309, 313, + 75, 315, 316, 60, 21, 164, 161, 162, 163, 21, + 163, 165, 166, 167, 168, 317, 327, 161, 162, 163, + 333, 75, 75, 75, 337, 161, 162, 163, 169, 171, + 172, 173, 174, 175, 176, 177, 21, 109, 178, 384, + 338, 179, 180, 181, 339, 343, 340, 160, 160, 160, + 160, 161, 162, 163, 160, 349, 160, 161, 162, 163, + 341, 214, 160, 160, 160, 160, 322, 342, 21, 324, + 21, 21, 161, 162, 163, 160, 160, 160, 355, 160, + 160, 160, 160, 160, 160, 160, 160, 283, 348, 160, + 356, 353, 160, 160, 160, 370, 329, 357, 329, 161, + 162, 163, 358, 361, 336, 26, 26, 26, 26, 26, + 26, 359, 26, 26, 26, 26, 26, 26, 26, 26, + 26, 26, 26, 26, 26, 369, 70, 372, 26, 26, + 1, 26, 26, 26, 26, 26, 161, 162, 163, 371, + 26, 26, 26, 26, 26, 26, 26, 161, 162, 163, + 382, 380, 26, 386, 161, 162, 163, 161, 162, 163, + 393, 394, 26, 44, 26, 26, 44, 44, 44, 277, + 44, 53, 44, 44, 185, 44, 161, 162, 163, 161, + 162, 163, 161, 162, 163, 62, 161, 162, 163, 44, + 37, 161, 162, 163, 44, 161, 162, 163, 161, 162, + 163, 21, 21, 21, 21, 21, 21, 35, 21, 21, + 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, + 21, 44, 186, 183, 21, 21, 170, 21, 21, 21, + 21, 21, 40, 37, 390, 35, 21, 21, 21, 21, + 21, 21, 21, 161, 162, 163, 104, 134, 21, 135, + 363, 364, 365, 44, 367, 79, 44, 233, 21, 195, + 21, 21, 195, 195, 195, 388, 195, 174, 195, 195, + 174, 195, 368, 161, 162, 163, 161, 162, 163, 290, + 93, 383, 332, 0, 174, 174, 0, 0, 385, 174, + 195, 0, 387, 0, 0, 161, 162, 163, 161, 162, + 163, 0, 161, 162, 163, 395, 396, 0, 0, 0, + 4, 5, 6, 0, 7, 8, 0, 195, 178, 174, + 0, 179, 180, 181, 196, 0, 0, 196, 196, 196, + 0, 196, 145, 196, 196, 145, 196, 0, 0, 0, + 0, 9, 165, 166, 167, 168, 374, 375, 0, 145, + 145, 381, 195, 0, 145, 196, 0, 0, 0, 0, + 171, 172, 173, 174, 175, 176, 177, 389, 0, 178, + 0, 392, 179, 180, 181, 4, 5, 6, 0, 7, + 8, 0, 0, 0, 145, 360, 44, 44, 44, 44, + 44, 44, 0, 44, 44, 44, 0, 0, 0, 44, + 0, 0, 44, 44, 44, 44, 9, 170, 0, 44, + 44, 0, 44, 44, 44, 44, 44, 196, 0, 0, + 0, 44, 44, 44, 44, 44, 44, 0, 0, 0, + 0, 0, 165, 44, 167, 168, 0, 0, 0, 0, + 0, 0, 0, 44, 164, 44, 44, 0, 0, 0, + 165, 166, 167, 168, 0, 176, 177, 0, 0, 178, + 312, 0, 179, 180, 181, 170, 0, 169, 171, 172, + 173, 174, 175, 176, 177, 0, 0, 178, 0, 0, + 179, 180, 181, 195, 195, 195, 195, 195, 0, 195, + 195, 195, 0, 0, 0, 195, 0, 0, 174, 174, + 174, 174, 0, 0, 0, 174, 195, 174, 195, 195, + 195, 195, 195, 174, 174, 174, 174, 195, 195, 195, + 195, 195, 195, 0, 0, 170, 174, 174, 174, 195, + 174, 174, 174, 174, 174, 174, 174, 174, 0, 195, + 174, 195, 195, 174, 174, 174, 0, 0, 196, 196, + 196, 196, 196, 0, 196, 196, 196, 0, 0, 120, + 196, 0, 0, 145, 145, 145, 145, 138, 0, 0, + 145, 196, 145, 196, 196, 196, 196, 196, 145, 145, + 145, 145, 196, 196, 196, 196, 196, 196, 0, 0, + 0, 145, 145, 145, 196, 145, 145, 145, 145, 145, + 145, 145, 145, 0, 196, 145, 196, 196, 145, 145, + 145, 54, 0, 120, 64, 66, 52, 0, 59, 0, + 67, 63, 0, 62, 0, 164, 0, 0, 0, 0, + 0, 165, 166, 167, 168, 0, 217, 61, 156, 157, + 158, 159, 65, 0, 120, 160, 0, 0, 169, 171, + 172, 173, 174, 175, 176, 177, 0, 0, 178, 0, + 0, 179, 180, 181, 0, 0, 161, 162, 163, 60, + 0, 0, 44, 0, 0, 44, 44, 44, 0, 44, + 0, 44, 44, 164, 44, 0, 0, 0, 0, 165, + 166, 167, 168, 0, 0, 0, 0, 0, 44, 0, + 0, 25, 0, 44, 55, 0, 169, 171, 172, 173, + 174, 175, 176, 177, 0, 0, 178, 0, 0, 179, + 180, 181, 0, 0, 0, 0, 0, 0, 0, 0, + 44, 0, 54, 0, 0, 64, 66, 52, 0, 59, + 0, 67, 63, 164, 62, 0, 0, 0, 0, 165, + 166, 167, 168, 177, 0, 0, 178, 0, 0, 179, + 180, 181, 44, 65, 0, 44, 0, 171, 172, 173, + 174, 175, 176, 177, 0, 0, 178, 0, 0, 179, + 180, 181, 0, 0, 0, 0, 0, 0, 0, 120, + 60, 167, 168, 0, 0, 120, 54, 0, 0, 64, + 66, 52, 0, 59, 0, 67, 63, 0, 62, 0, + 0, 0, 176, 177, 0, 0, 178, 0, 0, 179, + 180, 181, 25, 0, 0, 55, 0, 65, 0, 0, + 0, 0, 0, 0, 24, 26, 27, 28, 29, 30, + 0, 31, 32, 33, 0, 0, 0, 34, 0, 0, + 35, 36, 37, 38, 60, 0, 0, 39, 40, 0, + 41, 42, 43, 44, 45, 0, 0, 0, 0, 46, + 47, 48, 49, 50, 51, 0, 0, 0, 0, 0, + 0, 53, 0, 0, 0, 0, 25, 0, 0, 55, + 0, 56, 0, 57, 58, 44, 44, 44, 44, 44, + 44, 0, 44, 44, 44, 0, 0, 0, 44, 0, + 0, 44, 44, 44, 44, 0, 0, 0, 44, 44, + 0, 44, 44, 44, 44, 44, 0, 0, 0, 0, + 44, 44, 44, 44, 44, 44, 0, 0, 0, 0, + 0, 54, 44, 0, 64, 66, 52, 0, 59, 0, + 67, 63, 44, 62, 44, 44, 118, 27, 28, 29, + 30, 96, 31, 32, 33, 0, 0, 0, 34, 0, + 0, 0, 65, 0, 0, 0, 0, 0, 0, 40, + 0, 41, 42, 43, 44, 45, 0, 0, 0, 0, + 46, 47, 48, 49, 50, 51, 0, 0, 0, 60, + 0, 139, 53, 0, 139, 0, 165, 166, 167, 168, + 0, 0, 56, 0, 57, 58, 0, 0, 139, 139, + 26, 27, 28, 29, 30, 0, 31, 32, 33, 176, + 177, 25, 34, 178, 55, 0, 179, 180, 181, 0, + 0, 0, 0, 40, 0, 41, 42, 43, 44, 45, + 0, 0, 0, 139, 46, 47, 48, 49, 50, 51, + 54, 0, 0, 64, 66, 52, 53, 59, 0, 67, + 63, 0, 62, 0, 0, 0, 56, 0, 57, 58, + 165, 166, 167, 168, 0, 0, 128, 0, 0, 0, + 0, 65, 0, 0, 0, 0, 0, 0, 0, 0, + 173, 174, 175, 176, 177, 0, 0, 178, 0, 0, + 179, 180, 181, 165, 166, 167, 168, 0, 60, 0, + 54, 0, 0, 64, 66, 52, 0, 59, 144, 67, + 63, 0, 62, 0, 174, 175, 176, 177, 0, 0, + 178, 0, 0, 179, 180, 181, 0, 0, 0, 0, + 0, 65, 0, 55, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 124, 27, 28, 29, 30, + 0, 31, 32, 33, 0, 0, 0, 34, 60, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 40, 0, + 41, 42, 43, 44, 45, 0, 0, 0, 0, 46, + 47, 48, 49, 50, 51, 54, 0, 0, 64, 66, + 52, 53, 59, 55, 67, 63, 0, 62, 0, 0, + 0, 56, 0, 57, 58, 0, 0, 0, 0, 0, + 0, 0, 139, 139, 139, 139, 65, 0, 0, 139, + 0, 0, 0, 0, 0, 0, 54, 0, 0, 64, + 66, 52, 0, 59, 212, 67, 63, 0, 62, 0, + 139, 139, 139, 60, 139, 146, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 65, 0, 73, + 0, 0, 73, 0, 26, 27, 28, 29, 30, 0, + 31, 32, 33, 0, 0, 0, 34, 73, 55, 0, + 0, 0, 0, 0, 60, 0, 0, 40, 0, 41, + 42, 43, 44, 45, 0, 0, 0, 0, 46, 47, + 48, 49, 50, 51, 0, 0, 0, 0, 0, 0, + 53, 73, 0, 0, 0, 0, 0, 0, 0, 55, + 56, 0, 57, 58, 26, 27, 28, 29, 30, 0, + 31, 32, 33, 0, 54, 0, 34, 64, 66, 52, + 0, 59, 223, 67, 63, 0, 62, 40, 0, 41, + 42, 43, 44, 45, 0, 0, 0, 0, 46, 47, + 48, 49, 50, 51, 0, 65, 0, 0, 0, 0, + 53, 165, 166, 167, 168, 0, 0, 0, 0, 0, + 56, 0, 57, 58, 0, 0, 0, 78, 0, 0, + 78, 0, 60, 175, 176, 177, 0, 0, 178, 0, + 0, 179, 180, 181, 78, 78, 0, 0, 0, 26, + 27, 28, 29, 30, 0, 31, 32, 33, 0, 0, + 0, 34, 74, 0, 0, 74, 0, 55, 0, 0, + 0, 0, 40, 0, 41, 42, 43, 44, 45, 78, + 74, 0, 0, 46, 47, 48, 49, 50, 51, 0, + 26, 27, 28, 29, 30, 53, 31, 32, 33, 0, + 0, 0, 34, 0, 0, 56, 0, 57, 58, 0, + 0, 0, 0, 40, 74, 41, 42, 43, 44, 45, + 0, 0, 0, 0, 46, 47, 48, 49, 50, 51, + 73, 73, 73, 73, 0, 54, 53, 73, 64, 66, + 52, 0, 59, 262, 67, 63, 56, 62, 57, 58, + 98, 98, 0, 0, 0, 0, 0, 0, 73, 73, + 0, 0, 111, 0, 0, 0, 65, 0, 119, 98, + 127, 0, 0, 0, 133, 98, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 98, 98, 98, + 98, 0, 0, 60, 0, 0, 0, 0, 26, 27, + 28, 29, 30, 0, 31, 32, 33, 0, 54, 0, + 34, 64, 66, 52, 0, 59, 270, 67, 63, 0, + 62, 40, 0, 41, 42, 43, 44, 45, 55, 0, + 0, 0, 46, 47, 48, 49, 50, 51, 119, 65, + 0, 0, 0, 0, 53, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 56, 0, 57, 58, 78, 78, + 78, 78, 0, 0, 0, 78, 60, 0, 0, 0, + 0, 54, 0, 0, 64, 66, 52, 0, 59, 0, + 67, 63, 0, 62, 0, 0, 78, 78, 78, 0, + 0, 0, 0, 74, 74, 74, 74, 0, 0, 0, + 74, 55, 65, 0, 259, 0, 161, 0, 0, 161, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 74, 74, 161, 161, 0, 0, 0, 0, 60, + 0, 291, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 54, 0, 0, 64, 66, 52, + 0, 59, 303, 67, 63, 0, 62, 0, 161, 26, + 27, 28, 29, 30, 55, 31, 32, 33, 0, 0, + 0, 34, 0, 0, 0, 65, 0, 0, 0, 0, + 0, 0, 40, 0, 41, 42, 43, 44, 45, 0, + 0, 0, 0, 46, 47, 48, 49, 50, 51, 0, + 0, 0, 60, 0, 0, 53, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 56, 54, 57, 58, 64, + 66, 52, 0, 59, 305, 67, 63, 0, 62, 0, + 0, 0, 26, 27, 28, 29, 30, 55, 31, 32, + 33, 0, 0, 0, 34, 0, 0, 65, 0, 0, + 0, 0, 0, 0, 0, 40, 0, 41, 42, 43, + 44, 45, 0, 0, 0, 0, 46, 47, 48, 49, + 50, 51, 0, 0, 60, 0, 0, 0, 53, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 56, 0, + 57, 58, 0, 0, 24, 26, 27, 28, 29, 30, + 0, 31, 32, 33, 0, 0, 0, 34, 0, 55, + 0, 0, 0, 0, 0, 0, 0, 0, 40, 0, + 41, 42, 43, 44, 45, 0, 0, 0, 0, 46, + 47, 48, 49, 50, 51, 0, 0, 161, 161, 161, + 161, 53, 0, 0, 161, 0, 0, 0, 0, 0, + 0, 56, 54, 57, 58, 64, 66, 52, 0, 59, + 314, 67, 63, 0, 62, 161, 161, 161, 26, 27, + 28, 29, 30, 0, 31, 32, 33, 0, 0, 0, + 34, 0, 0, 65, 0, 0, 0, 0, 0, 0, + 0, 40, 0, 41, 42, 43, 44, 45, 0, 0, + 0, 0, 46, 47, 48, 49, 50, 51, 0, 0, + 60, 0, 0, 0, 53, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 56, 54, 57, 58, 64, 66, + 52, 0, 59, 0, 67, 63, 0, 62, 0, 0, + 26, 27, 28, 29, 30, 55, 31, 32, 33, 0, + 0, 0, 34, 0, 0, 0, 65, 0, 0, 0, + 0, 0, 0, 40, 0, 41, 42, 43, 44, 45, + 0, 0, 0, 0, 46, 47, 48, 49, 50, 51, + 0, 0, 0, 60, 0, 0, 53, 0, 0, 0, + 0, 0, 0, 0, 111, 0, 56, 111, 57, 58, + 0, 0, 167, 0, 0, 167, 0, 0, 0, 0, + 0, 111, 111, 0, 0, 0, 111, 0, 55, 167, + 167, 0, 0, 0, 167, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 111, 0, 0, 0, + 0, 0, 0, 0, 167, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 26, 27, 28, 29, + 30, 0, 31, 32, 33, 0, 0, 0, 34, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 40, + 0, 41, 42, 43, 44, 45, 0, 0, 0, 0, + 46, 47, 48, 49, 50, 51, 0, 0, 0, 0, + 0, 163, 53, 0, 163, 0, 0, 0, 0, 0, + 0, 0, 56, 0, 57, 58, 0, 0, 163, 163, + 0, 102, 0, 163, 102, 0, 0, 0, 0, 26, + 27, 28, 29, 30, 0, 31, 32, 33, 102, 102, + 0, 34, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 40, 163, 41, 42, 43, 44, 45, 0, + 0, 0, 0, 46, 47, 48, 49, 50, 51, 0, + 0, 102, 0, 102, 77, 53, 0, 77, 0, 112, + 0, 0, 0, 117, 0, 56, 126, 57, 58, 131, + 0, 77, 77, 139, 140, 141, 142, 143, 0, 0, + 0, 148, 149, 0, 0, 111, 111, 111, 111, 0, + 0, 0, 111, 167, 167, 167, 167, 0, 0, 0, + 167, 0, 167, 0, 0, 0, 77, 0, 167, 167, + 167, 167, 0, 111, 111, 111, 0, 111, 0, 0, + 201, 167, 167, 167, 0, 167, 167, 167, 167, 167, + 167, 167, 167, 0, 0, 167, 0, 0, 167, 167, + 167, 0, 0, 0, 0, 0, 183, 0, 0, 183, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 183, 183, 0, 0, 0, 183, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 240, 241, 242, 243, 244, 245, 246, + 247, 248, 249, 250, 251, 252, 253, 254, 183, 0, + 150, 0, 0, 150, 0, 0, 0, 0, 0, 0, + 0, 272, 163, 163, 163, 163, 0, 150, 150, 163, + 0, 163, 150, 0, 0, 0, 0, 163, 163, 163, + 163, 0, 102, 102, 102, 102, 0, 0, 0, 102, + 163, 163, 163, 0, 163, 163, 163, 163, 163, 163, + 163, 163, 150, 145, 163, 0, 145, 163, 163, 163, + 102, 102, 102, 0, 0, 0, 0, 0, 0, 0, + 145, 145, 0, 0, 0, 145, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 77, 77, 77, 77, 0, + 0, 0, 77, 0, 0, 0, 0, 0, 334, 0, + 0, 148, 0, 0, 148, 145, 0, 0, 0, 0, + 0, 0, 0, 77, 77, 77, 0, 0, 148, 148, + 0, 0, 0, 148, 0, 0, 0, 0, 0, 0, + 0, 350, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 146, + 0, 0, 146, 148, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 146, 146, 0, 0, + 0, 146, 0, 0, 0, 0, 0, 183, 183, 183, + 183, 0, 0, 0, 183, 0, 183, 0, 0, 0, + 0, 0, 183, 183, 183, 183, 0, 0, 0, 0, + 0, 146, 0, 0, 0, 183, 183, 183, 0, 183, + 183, 183, 183, 183, 183, 183, 183, 0, 0, 183, + 0, 0, 183, 183, 183, 0, 0, 0, 0, 0, + 0, 150, 150, 150, 150, 0, 156, 0, 150, 156, + 150, 0, 0, 0, 0, 0, 150, 150, 150, 150, + 0, 0, 0, 156, 156, 0, 0, 0, 156, 150, + 150, 150, 0, 150, 150, 150, 150, 150, 150, 150, + 150, 0, 0, 150, 0, 0, 150, 150, 150, 0, + 0, 0, 0, 0, 145, 145, 145, 145, 156, 0, + 0, 145, 0, 145, 0, 0, 0, 0, 0, 145, + 145, 145, 145, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 145, 145, 145, 0, 145, 145, 145, 145, + 145, 145, 145, 145, 0, 0, 145, 0, 0, 145, + 145, 145, 148, 148, 148, 148, 0, 0, 0, 148, + 0, 148, 0, 0, 0, 0, 0, 148, 148, 148, + 148, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 148, 148, 148, 0, 148, 148, 148, 148, 148, 148, + 148, 148, 0, 0, 148, 0, 0, 148, 148, 148, + 146, 146, 146, 146, 0, 174, 0, 146, 174, 146, + 0, 0, 0, 0, 0, 146, 146, 146, 146, 0, + 0, 0, 174, 174, 0, 0, 0, 174, 146, 146, + 146, 0, 146, 146, 146, 146, 146, 146, 146, 146, + 0, 0, 146, 0, 0, 146, 146, 146, 0, 0, + 0, 0, 0, 0, 0, 177, 0, 174, 177, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 177, 177, 0, 0, 0, 177, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 156, 156, 156, + 156, 0, 0, 0, 156, 0, 156, 0, 0, 0, + 0, 0, 156, 156, 156, 156, 0, 177, 0, 0, + 0, 0, 0, 0, 0, 156, 156, 156, 0, 156, + 156, 156, 156, 156, 156, 156, 156, 144, 0, 156, + 144, 0, 156, 156, 156, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 144, 144, 0, 0, 0, 144, + 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, 76, 0, 0, 76, 144, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 76, 76, 0, 0, 0, 76, 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, 184, 0, 0, 76, 0, 0, + 0, 0, 0, 0, 0, 0, 174, 174, 174, 174, + 0, 184, 184, 174, 0, 174, 184, 0, 0, 0, + 0, 174, 174, 174, 174, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 174, 174, 174, 0, 174, 174, + 174, 174, 174, 174, 174, 174, 184, 0, 174, 0, + 0, 174, 174, 174, 0, 0, 177, 177, 177, 177, + 0, 66, 0, 177, 66, 177, 0, 0, 0, 0, + 0, 177, 177, 177, 177, 0, 0, 0, 66, 66, + 0, 0, 0, 66, 177, 177, 177, 0, 177, 177, + 177, 177, 177, 177, 177, 177, 0, 0, 177, 0, + 0, 177, 177, 177, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 66, 0, 0, 143, 0, 0, 143, + 0, 0, 0, 0, 0, 0, 0, 0, 144, 144, + 144, 144, 0, 143, 143, 144, 0, 144, 143, 0, + 0, 0, 0, 144, 144, 144, 144, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 144, 144, 144, 0, + 144, 144, 144, 144, 144, 144, 144, 144, 143, 0, + 144, 0, 0, 144, 144, 144, 76, 76, 76, 76, + 0, 82, 0, 76, 82, 76, 0, 0, 0, 0, + 0, 76, 76, 76, 76, 0, 0, 0, 82, 82, + 0, 0, 0, 82, 76, 76, 76, 0, 76, 76, + 76, 76, 76, 76, 76, 76, 0, 0, 76, 0, + 0, 76, 76, 76, 0, 184, 184, 184, 184, 162, + 0, 0, 184, 82, 184, 0, 0, 0, 0, 0, + 184, 184, 184, 184, 0, 0, 162, 162, 0, 0, + 0, 162, 0, 184, 184, 184, 0, 184, 184, 184, + 184, 184, 184, 184, 184, 0, 0, 184, 0, 0, + 184, 184, 184, 0, 0, 0, 0, 0, 0, 0, + 79, 162, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 66, 66, 66, 66, 0, 79, 79, 66, + 0, 66, 79, 0, 0, 0, 0, 66, 66, 66, + 66, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 66, 66, 66, 0, 66, 66, 66, 66, 66, 66, + 66, 66, 79, 0, 66, 0, 0, 66, 66, 66, + 0, 0, 0, 0, 0, 0, 0, 143, 143, 143, + 143, 0, 122, 0, 143, 122, 143, 0, 0, 0, + 0, 0, 143, 143, 143, 143, 0, 0, 0, 122, + 122, 0, 0, 0, 122, 143, 143, 143, 0, 143, + 143, 143, 143, 143, 143, 143, 143, 0, 0, 143, + 0, 0, 143, 143, 143, 0, 0, 0, 0, 0, + 123, 0, 0, 123, 122, 0, 0, 0, 0, 0, + 0, 0, 82, 82, 82, 82, 0, 123, 123, 82, + 0, 82, 123, 0, 0, 0, 0, 82, 82, 82, + 82, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 82, 82, 82, 0, 82, 82, 82, 82, 82, 82, + 82, 82, 123, 0, 82, 0, 0, 82, 82, 82, + 162, 162, 162, 162, 0, 118, 0, 162, 118, 162, + 0, 0, 0, 0, 0, 162, 162, 162, 162, 0, + 0, 0, 118, 118, 0, 0, 0, 118, 162, 162, + 162, 0, 162, 162, 162, 162, 162, 162, 162, 162, + 0, 0, 162, 0, 0, 162, 162, 162, 0, 0, + 0, 79, 79, 79, 79, 0, 119, 118, 79, 119, + 79, 0, 0, 0, 0, 0, 79, 79, 79, 79, + 0, 0, 0, 119, 119, 0, 0, 0, 119, 79, + 79, 79, 0, 79, 79, 79, 79, 79, 79, 79, + 79, 0, 0, 79, 0, 0, 79, 79, 79, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 119, 0, + 0, 140, 0, 0, 140, 0, 0, 0, 0, 0, + 0, 0, 0, 122, 122, 122, 122, 0, 140, 140, + 122, 0, 122, 140, 0, 0, 0, 0, 122, 122, + 122, 122, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 122, 122, 122, 0, 122, 122, 122, 122, 122, + 122, 122, 122, 140, 0, 122, 0, 0, 0, 0, + 0, 123, 123, 123, 123, 0, 116, 0, 123, 116, + 123, 0, 0, 0, 0, 0, 123, 123, 123, 123, + 0, 0, 0, 116, 116, 0, 0, 0, 116, 123, + 123, 123, 0, 123, 123, 123, 123, 123, 123, 123, + 123, 0, 0, 123, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 117, 0, 0, 117, 116, 0, + 0, 0, 0, 0, 0, 0, 118, 118, 118, 118, + 0, 117, 117, 118, 0, 118, 117, 0, 0, 0, + 0, 118, 118, 118, 118, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 118, 118, 118, 0, 118, 118, + 118, 118, 118, 118, 118, 118, 117, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 119, 119, 119, + 119, 0, 0, 0, 119, 0, 119, 0, 0, 0, + 0, 0, 119, 119, 119, 119, 0, 0, 0, 0, + 115, 0, 0, 115, 0, 119, 119, 119, 0, 119, + 119, 119, 119, 119, 119, 119, 119, 115, 115, 0, + 0, 0, 115, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 140, 140, 140, 140, 0, 0, 0, 140, + 0, 140, 0, 0, 0, 0, 0, 140, 140, 140, + 140, 0, 115, 0, 0, 103, 0, 0, 103, 0, + 140, 140, 140, 0, 140, 140, 140, 140, 140, 140, + 140, 140, 103, 103, 0, 0, 0, 103, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 116, 116, 116, + 116, 0, 0, 0, 116, 0, 116, 103, 0, 0, + 0, 0, 116, 116, 116, 116, 0, 0, 0, 0, + 104, 0, 0, 104, 0, 116, 116, 116, 0, 116, + 116, 116, 116, 116, 116, 116, 116, 104, 104, 0, + 0, 0, 104, 0, 0, 117, 117, 117, 117, 0, + 0, 0, 117, 0, 117, 0, 0, 0, 0, 0, + 117, 117, 117, 117, 0, 0, 0, 0, 105, 0, + 0, 105, 104, 117, 117, 117, 0, 117, 117, 117, + 117, 117, 117, 117, 117, 105, 105, 0, 0, 0, + 105, 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, 106, + 105, 0, 106, 0, 0, 0, 0, 0, 0, 0, + 0, 115, 115, 115, 115, 0, 106, 106, 115, 0, + 115, 106, 0, 0, 0, 0, 115, 115, 115, 115, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 115, + 115, 115, 0, 115, 115, 115, 115, 115, 115, 115, + 115, 106, 0, 0, 166, 0, 0, 166, 0, 0, + 0, 0, 0, 0, 0, 0, 103, 103, 103, 103, + 0, 166, 166, 103, 0, 103, 166, 0, 0, 0, + 0, 103, 103, 103, 103, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 103, 103, 103, 0, 103, 103, + 103, 103, 103, 103, 103, 103, 166, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 165, + 0, 0, 165, 0, 0, 0, 0, 0, 0, 0, + 0, 104, 104, 104, 104, 0, 165, 165, 104, 0, + 104, 165, 0, 0, 0, 0, 104, 104, 104, 104, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 104, + 104, 104, 0, 104, 104, 104, 104, 104, 104, 104, + 0, 165, 0, 0, 129, 0, 0, 129, 0, 105, + 105, 105, 105, 0, 142, 0, 105, 142, 105, 0, + 0, 129, 129, 0, 105, 105, 129, 105, 0, 0, + 0, 142, 142, 0, 0, 0, 142, 105, 105, 105, + 0, 105, 105, 105, 105, 105, 105, 105, 0, 0, + 0, 0, 0, 0, 0, 107, 129, 0, 107, 0, + 106, 106, 106, 106, 0, 0, 142, 106, 0, 106, + 0, 0, 107, 107, 0, 106, 106, 107, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 106, 106, + 106, 0, 106, 106, 106, 106, 106, 106, 106, 0, + 0, 0, 0, 108, 0, 0, 108, 107, 0, 0, + 0, 0, 0, 0, 0, 166, 166, 166, 166, 0, + 108, 108, 166, 0, 166, 108, 0, 0, 0, 0, + 166, 166, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 166, 166, 166, 0, 166, 166, 166, + 166, 166, 166, 109, 0, 108, 109, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 109, 109, 0, 0, 0, 109, 0, 0, 0, 0, + 165, 165, 165, 165, 0, 0, 0, 165, 0, 165, + 0, 0, 0, 0, 0, 165, 165, 0, 0, 0, + 0, 110, 0, 0, 110, 109, 0, 0, 165, 165, + 165, 0, 165, 165, 165, 165, 165, 165, 110, 110, + 0, 0, 0, 110, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 129, 129, 129, 129, 0, + 112, 0, 129, 112, 129, 142, 142, 142, 142, 0, + 129, 129, 142, 110, 142, 0, 0, 112, 112, 0, + 142, 142, 112, 129, 129, 129, 0, 129, 129, 129, + 129, 129, 129, 142, 142, 142, 0, 142, 142, 142, + 142, 142, 142, 0, 0, 0, 107, 107, 107, 107, + 0, 0, 112, 107, 0, 107, 0, 0, 0, 0, + 0, 0, 107, 0, 0, 0, 0, 113, 0, 0, + 113, 0, 0, 0, 107, 107, 107, 0, 107, 107, + 107, 107, 107, 107, 113, 113, 0, 0, 0, 113, + 0, 0, 0, 0, 108, 108, 108, 108, 0, 0, + 0, 108, 0, 108, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 114, 0, 0, 114, 113, + 0, 0, 108, 108, 108, 0, 108, 108, 108, 108, + 108, 108, 114, 114, 0, 0, 0, 114, 0, 0, + 0, 0, 0, 0, 109, 109, 109, 109, 0, 0, + 0, 109, 0, 109, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 114, 0, 0, + 0, 0, 109, 109, 109, 0, 109, 109, 109, 109, + 109, 109, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 110, 110, 110, 110, 0, 0, 0, 110, + 0, 110, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 110, 110, 110, 0, 110, 110, 110, 110, 110, 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, 112, 0, 112, 112, 112, 112, 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, 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, 113, 0, + 113, 113, 113, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 114, 114, 114, 114, + 0, 0, 0, 114, 0, 114, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 114, 114, 114, 0, 114, 114, + 114, +}; +static short yycheck[] = { 15, + 94, 44, 41, 36, 59, 41, 41, 123, 44, 36, + 99, 59, 40, 40, 40, 59, 200, 36, 365, 91, + 59, 40, 209, 91, 41, 257, 93, 63, 59, 266, + 267, 268, 48, 270, 271, 276, 277, 104, 41, 93, + 197, 130, 59, 59, 60, 257, 203, 257, 41, 396, + 59, 123, 41, 41, 93, 123, 41, 8, 9, 44, + 297, 59, 40, 91, 91, 91, 59, 40, 123, 40, + 59, 40, 40, 58, 59, 123, 28, 15, 63, 123, + 41, 40, 105, 106, 107, 108, 109, 110, 257, 0, + 123, 40, 123, 45, 46, 123, 123, 123, 114, 115, + 52, 41, 41, 40, 278, 41, 44, 40, 93, 47, + 123, 298, 64, 65, 66, 67, 132, 41, 41, 59, + 59, 41, 33, 59, 59, 36, 37, 38, 41, 40, + 289, 42, 43, 317, 45, 41, 59, 44, 41, 59, + 156, 157, 158, 159, 160, 161, 162, 163, 59, 123, + 88, 260, 311, 64, 341, 314, 257, 41, 317, 318, + 319, 40, 125, 115, 40, 103, 182, 183, 184, 185, + 186, 187, 188, 189, 190, 41, 289, 290, 59, 40, + 91, 59, 298, 298, 200, 0, 275, 210, 204, 205, + 59, 207, 281, 209, 59, 319, 91, 59, 311, 386, + 216, 314, 218, 219, 317, 318, 319, 298, 257, 36, + 37, 227, 123, 40, 125, 126, 154, 36, 33, 93, + 41, 36, 37, 38, 257, 40, 125, 42, 43, 262, + 45, 258, 91, 272, 273, 274, 275, 64, 260, 255, + 279, 257, 258, 298, 59, 281, 300, 301, 302, 64, + 302, 287, 288, 289, 290, 40, 260, 300, 301, 302, + 41, 300, 301, 302, 41, 300, 301, 302, 304, 305, + 306, 307, 308, 309, 310, 311, 91, 296, 314, 373, + 41, 317, 318, 319, 41, 59, 41, 272, 273, 274, + 275, 300, 301, 302, 279, 311, 281, 300, 301, 302, + 40, 317, 287, 288, 289, 290, 93, 41, 123, 93, + 125, 126, 300, 301, 302, 300, 301, 302, 125, 304, + 305, 306, 307, 308, 309, 310, 311, 343, 93, 314, + 125, 93, 317, 318, 319, 93, 274, 125, 276, 300, + 301, 302, 125, 123, 282, 256, 257, 258, 259, 260, + 261, 59, 263, 264, 265, 266, 267, 268, 269, 270, + 271, 272, 273, 274, 275, 41, 382, 41, 279, 280, + 0, 282, 283, 284, 285, 286, 300, 301, 302, 125, + 291, 292, 293, 294, 295, 296, 297, 300, 301, 302, + 59, 41, 303, 40, 300, 301, 302, 300, 301, 302, + 41, 41, 313, 33, 315, 316, 36, 37, 38, 125, + 40, 123, 42, 43, 41, 45, 300, 301, 302, 300, + 301, 302, 300, 301, 302, 123, 300, 301, 302, 59, + 41, 300, 301, 302, 64, 300, 301, 302, 300, 301, + 302, 256, 257, 258, 259, 260, 261, 59, 263, 264, + 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, + 275, 91, 41, 59, 279, 280, 63, 282, 283, 284, + 285, 286, 41, 59, 125, 41, 291, 292, 293, 294, + 295, 296, 297, 300, 301, 302, 34, 51, 303, 51, + 338, 339, 340, 123, 342, 15, 126, 157, 313, 33, + 315, 316, 36, 37, 38, 382, 40, 41, 42, 43, + 44, 45, 343, 300, 301, 302, 300, 301, 302, 207, + 23, 369, 276, -1, 58, 59, -1, -1, 376, 63, + 64, -1, 380, -1, -1, 300, 301, 302, 300, 301, + 302, -1, 300, 301, 302, 393, 394, -1, -1, -1, + 266, 267, 268, -1, 270, 271, -1, 91, 314, 93, + -1, 317, 318, 319, 33, -1, -1, 36, 37, 38, + -1, 40, 41, 42, 43, 44, 45, -1, -1, -1, + -1, 297, 287, 288, 289, 290, 362, 363, -1, 58, + 59, 367, 126, -1, 63, 64, -1, -1, -1, -1, + 305, 306, 307, 308, 309, 310, 311, 383, -1, 314, + -1, 387, 317, 318, 319, 266, 267, 268, -1, 270, + 271, -1, -1, -1, 93, 41, 256, 257, 258, 259, + 260, 261, -1, 263, 264, 265, -1, -1, -1, 269, + -1, -1, 272, 273, 274, 275, 297, 63, -1, 279, + 280, -1, 282, 283, 284, 285, 286, 126, -1, -1, + -1, 291, 292, 293, 294, 295, 296, -1, -1, -1, + -1, -1, 287, 303, 289, 290, -1, -1, -1, -1, + -1, -1, -1, 313, 281, 315, 316, -1, -1, -1, + 287, 288, 289, 290, -1, 310, 311, -1, -1, 314, + 58, -1, 317, 318, 319, 63, -1, 304, 305, 306, + 307, 308, 309, 310, 311, -1, -1, 314, -1, -1, + 317, 318, 319, 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, 63, 300, 301, 302, 303, + 304, 305, 306, 307, 308, 309, 310, 311, -1, 313, + 314, 315, 316, 317, 318, 319, -1, -1, 257, 258, + 259, 260, 261, -1, 263, 264, 265, -1, -1, 45, + 269, -1, -1, 272, 273, 274, 275, 53, -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, 310, 311, -1, 313, 314, 315, 316, 317, 318, + 319, 33, -1, 99, 36, 37, 38, -1, 40, -1, + 42, 43, -1, 45, -1, 281, -1, -1, -1, -1, + -1, 287, 288, 289, 290, -1, 122, 59, 272, 273, + 274, 275, 64, -1, 130, 279, -1, -1, 304, 305, + 306, 307, 308, 309, 310, 311, -1, -1, 314, -1, + -1, 317, 318, 319, -1, -1, 300, 301, 302, 91, + -1, -1, 33, -1, -1, 36, 37, 38, -1, 40, + -1, 42, 43, 281, 45, -1, -1, -1, -1, 287, + 288, 289, 290, -1, -1, -1, -1, -1, 59, -1, + -1, 123, -1, 64, 126, -1, 304, 305, 306, 307, + 308, 309, 310, 311, -1, -1, 314, -1, -1, 317, + 318, 319, -1, -1, -1, -1, -1, -1, -1, -1, + 91, -1, 33, -1, -1, 36, 37, 38, -1, 40, + -1, 42, 43, 281, 45, -1, -1, -1, -1, 287, + 288, 289, 290, 311, -1, -1, 314, -1, -1, 317, + 318, 319, 123, 64, -1, 126, -1, 305, 306, 307, + 308, 309, 310, 311, -1, -1, 314, -1, -1, 317, + 318, 319, -1, -1, -1, -1, -1, -1, -1, 275, + 91, 289, 290, -1, -1, 281, 33, -1, -1, 36, + 37, 38, -1, 40, -1, 42, 43, -1, 45, -1, + -1, -1, 310, 311, -1, -1, 314, -1, -1, 317, + 318, 319, 123, -1, -1, 126, -1, 64, -1, -1, + -1, -1, -1, -1, 256, 257, 258, 259, 260, 261, + -1, 263, 264, 265, -1, -1, -1, 269, -1, -1, + 272, 273, 274, 275, 91, -1, -1, 279, 280, -1, + 282, 283, 284, 285, 286, -1, -1, -1, -1, 291, + 292, 293, 294, 295, 296, -1, -1, -1, -1, -1, + -1, 303, -1, -1, -1, -1, 123, -1, -1, 126, + -1, 313, -1, 315, 316, 256, 257, 258, 259, 260, + 261, -1, 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, -1, + -1, 33, 303, -1, 36, 37, 38, -1, 40, -1, + 42, 43, 313, 45, 315, 316, 257, 258, 259, 260, + 261, 262, 263, 264, 265, -1, -1, -1, 269, -1, + -1, -1, 64, -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, 91, + -1, 41, 303, -1, 44, -1, 287, 288, 289, 290, + -1, -1, 313, -1, 315, 316, -1, -1, 58, 59, + 257, 258, 259, 260, 261, -1, 263, 264, 265, 310, + 311, 123, 269, 314, 126, -1, 317, 318, 319, -1, + -1, -1, -1, 280, -1, 282, 283, 284, 285, 286, + -1, -1, -1, 93, 291, 292, 293, 294, 295, 296, + 33, -1, -1, 36, 37, 38, 303, 40, -1, 42, + 43, -1, 45, -1, -1, -1, 313, -1, 315, 316, + 287, 288, 289, 290, -1, -1, 59, -1, -1, -1, + -1, 64, -1, -1, -1, -1, -1, -1, -1, -1, + 307, 308, 309, 310, 311, -1, -1, 314, -1, -1, + 317, 318, 319, 287, 288, 289, 290, -1, 91, -1, + 33, -1, -1, 36, 37, 38, -1, 40, 41, 42, + 43, -1, 45, -1, 308, 309, 310, 311, -1, -1, + 314, -1, -1, 317, 318, 319, -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, 33, -1, -1, 36, 37, + 38, 303, 40, 126, 42, 43, -1, 45, -1, -1, + -1, 313, -1, 315, 316, -1, -1, -1, -1, -1, + -1, -1, 272, 273, 274, 275, 64, -1, -1, 279, + -1, -1, -1, -1, -1, -1, 33, -1, -1, 36, + 37, 38, -1, 40, 41, 42, 43, -1, 45, -1, + 300, 301, 302, 91, 304, 93, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 64, -1, 41, + -1, -1, 44, -1, 257, 258, 259, 260, 261, -1, + 263, 264, 265, -1, -1, -1, 269, 59, 126, -1, + -1, -1, -1, -1, 91, -1, -1, 280, -1, 282, + 283, 284, 285, 286, -1, -1, -1, -1, 291, 292, + 293, 294, 295, 296, -1, -1, -1, -1, -1, -1, + 303, 93, -1, -1, -1, -1, -1, -1, -1, 126, + 313, -1, 315, 316, 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, -1, + 303, 287, 288, 289, 290, -1, -1, -1, -1, -1, + 313, -1, 315, 316, -1, -1, -1, 41, -1, -1, + 44, -1, 91, 309, 310, 311, -1, -1, 314, -1, + -1, 317, 318, 319, 58, 59, -1, -1, -1, 257, + 258, 259, 260, 261, -1, 263, 264, 265, -1, -1, + -1, 269, 41, -1, -1, 44, -1, 126, -1, -1, + -1, -1, 280, -1, 282, 283, 284, 285, 286, 93, + 59, -1, -1, 291, 292, 293, 294, 295, 296, -1, + 257, 258, 259, 260, 261, 303, 263, 264, 265, -1, + -1, -1, 269, -1, -1, 313, -1, 315, 316, -1, + -1, -1, -1, 280, 93, 282, 283, 284, 285, 286, + -1, -1, -1, -1, 291, 292, 293, 294, 295, 296, + 272, 273, 274, 275, -1, 33, 303, 279, 36, 37, + 38, -1, 40, 41, 42, 43, 313, 45, 315, 316, + 27, 28, -1, -1, -1, -1, -1, -1, 300, 301, + -1, -1, 39, -1, -1, -1, 64, -1, 45, 46, + 47, -1, -1, -1, 51, 52, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 64, 65, 66, + 67, -1, -1, 91, -1, -1, -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, 126, -1, + -1, -1, 291, 292, 293, 294, 295, 296, 115, 64, + -1, -1, -1, -1, 303, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 313, -1, 315, 316, 272, 273, + 274, 275, -1, -1, -1, 279, 91, -1, -1, -1, + -1, 33, -1, -1, 36, 37, 38, -1, 40, -1, + 42, 43, -1, 45, -1, -1, 300, 301, 302, -1, + -1, -1, -1, 272, 273, 274, 275, -1, -1, -1, + 279, 126, 64, -1, 181, -1, 41, -1, -1, 44, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, 300, 301, 58, 59, -1, -1, -1, -1, 91, + -1, 208, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 33, -1, -1, 36, 37, 38, + -1, 40, 41, 42, 43, -1, 45, -1, 93, 257, + 258, 259, 260, 261, 126, 263, 264, 265, -1, -1, + -1, 269, -1, -1, -1, 64, -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, 91, -1, -1, 303, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 313, 33, 315, 316, 36, + 37, 38, -1, 40, 41, 42, 43, -1, 45, -1, + -1, -1, 257, 258, 259, 260, 261, 126, 263, 264, + 265, -1, -1, -1, 269, -1, -1, 64, -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, 91, -1, -1, -1, 303, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 313, -1, + 315, 316, -1, -1, 256, 257, 258, 259, 260, 261, + -1, 263, 264, 265, -1, -1, -1, 269, -1, 126, + -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, 272, 273, 274, + 275, 303, -1, -1, 279, -1, -1, -1, -1, -1, + -1, 313, 33, 315, 316, 36, 37, 38, -1, 40, + 41, 42, 43, -1, 45, 300, 301, 302, 257, 258, + 259, 260, 261, -1, 263, 264, 265, -1, -1, -1, + 269, -1, -1, 64, -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, + 91, -1, -1, -1, 303, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 313, 33, 315, 316, 36, 37, + 38, -1, 40, -1, 42, 43, -1, 45, -1, -1, + 257, 258, 259, 260, 261, 126, 263, 264, 265, -1, + -1, -1, 269, -1, -1, -1, 64, -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, 91, -1, -1, 303, -1, -1, -1, + -1, -1, -1, -1, 41, -1, 313, 44, 315, 316, + -1, -1, 41, -1, -1, 44, -1, -1, -1, -1, + -1, 58, 59, -1, -1, -1, 63, -1, 126, 58, + 59, -1, -1, -1, 63, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 93, -1, -1, -1, + -1, -1, -1, -1, 93, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 257, 258, 259, 260, + 261, -1, 263, 264, 265, -1, -1, -1, 269, -1, + -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, 41, 303, -1, 44, -1, -1, -1, -1, -1, + -1, -1, 313, -1, 315, 316, -1, -1, 58, 59, + -1, 41, -1, 63, 44, -1, -1, -1, -1, 257, + 258, 259, 260, 261, -1, 263, 264, 265, 58, 59, + -1, 269, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 280, 93, 282, 283, 284, 285, 286, -1, + -1, -1, -1, 291, 292, 293, 294, 295, 296, -1, + -1, 32, -1, 93, 41, 303, -1, 44, -1, 40, + -1, -1, -1, 44, -1, 313, 47, 315, 316, 50, + -1, 58, 59, 54, 55, 56, 57, 58, -1, -1, + -1, 62, 63, -1, -1, 272, 273, 274, 275, -1, + -1, -1, 279, 272, 273, 274, 275, -1, -1, -1, + 279, -1, 281, -1, -1, -1, 93, -1, 287, 288, + 289, 290, -1, 300, 301, 302, -1, 304, -1, -1, + 101, 300, 301, 302, -1, 304, 305, 306, 307, 308, + 309, 310, 311, -1, -1, 314, -1, -1, 317, 318, + 319, -1, -1, -1, -1, -1, 41, -1, -1, 44, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 58, 59, -1, -1, -1, 63, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 164, 165, 166, 167, 168, 169, 170, + 171, 172, 173, 174, 175, 176, 177, 178, 93, -1, + 41, -1, -1, 44, -1, -1, -1, -1, -1, -1, + -1, 192, 272, 273, 274, 275, -1, 58, 59, 279, + -1, 281, 63, -1, -1, -1, -1, 287, 288, 289, + 290, -1, 272, 273, 274, 275, -1, -1, -1, 279, + 300, 301, 302, -1, 304, 305, 306, 307, 308, 309, + 310, 311, 93, 41, 314, -1, 44, 317, 318, 319, + 300, 301, 302, -1, -1, -1, -1, -1, -1, -1, + 58, 59, -1, -1, -1, 63, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 272, 273, 274, 275, -1, + -1, -1, 279, -1, -1, -1, -1, -1, 279, -1, + -1, 41, -1, -1, 44, 93, -1, -1, -1, -1, + -1, -1, -1, 300, 301, 302, -1, -1, 58, 59, + -1, -1, -1, 63, -1, -1, -1, -1, -1, -1, + -1, 312, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 41, + -1, -1, 44, 93, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 58, 59, -1, -1, + -1, 63, -1, -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, 93, -1, -1, -1, 300, 301, 302, -1, 304, + 305, 306, 307, 308, 309, 310, 311, -1, -1, 314, + -1, -1, 317, 318, 319, -1, -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, 302, -1, 304, 305, 306, 307, 308, 309, 310, + 311, -1, -1, 314, -1, -1, 317, 318, 319, -1, + -1, -1, -1, -1, 272, 273, 274, 275, 93, -1, + -1, 279, -1, 281, -1, -1, -1, -1, -1, 287, + 288, 289, 290, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 300, 301, 302, -1, 304, 305, 306, 307, + 308, 309, 310, 311, -1, -1, 314, -1, -1, 317, + 318, 319, 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, -1, -1, -1, + 300, 301, 302, -1, 304, 305, 306, 307, 308, 309, + 310, 311, -1, -1, 314, -1, -1, 317, 318, 319, + 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, + 302, -1, 304, 305, 306, 307, 308, 309, 310, 311, + -1, -1, 314, -1, -1, 317, 318, 319, -1, -1, + -1, -1, -1, -1, -1, 41, -1, 93, 44, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 58, 59, -1, -1, -1, 63, -1, -1, + -1, -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, -1, 93, -1, -1, + -1, -1, -1, -1, -1, 300, 301, 302, -1, 304, + 305, 306, 307, 308, 309, 310, 311, 41, -1, 314, + 44, -1, 317, 318, 319, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 58, 59, -1, -1, -1, 63, + -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, 41, -1, -1, 44, 93, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 58, 59, -1, -1, -1, 63, -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, 41, -1, -1, 93, -1, -1, + -1, -1, -1, -1, -1, -1, 272, 273, 274, 275, + -1, 58, 59, 279, -1, 281, 63, -1, -1, -1, + -1, 287, 288, 289, 290, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 300, 301, 302, -1, 304, 305, + 306, 307, 308, 309, 310, 311, 93, -1, 314, -1, + -1, 317, 318, 319, -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, 302, -1, 304, 305, + 306, 307, 308, 309, 310, 311, -1, -1, 314, -1, + -1, 317, 318, 319, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 93, -1, -1, 41, -1, -1, 44, + -1, -1, -1, -1, -1, -1, -1, -1, 272, 273, + 274, 275, -1, 58, 59, 279, -1, 281, 63, -1, + -1, -1, -1, 287, 288, 289, 290, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 300, 301, 302, -1, + 304, 305, 306, 307, 308, 309, 310, 311, 93, -1, + 314, -1, -1, 317, 318, 319, 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, 302, -1, 304, 305, + 306, 307, 308, 309, 310, 311, -1, -1, 314, -1, + -1, 317, 318, 319, -1, 272, 273, 274, 275, 41, + -1, -1, 279, 93, 281, -1, -1, -1, -1, -1, + 287, 288, 289, 290, -1, -1, 58, 59, -1, -1, + -1, 63, -1, 300, 301, 302, -1, 304, 305, 306, + 307, 308, 309, 310, 311, -1, -1, 314, -1, -1, + 317, 318, 319, -1, -1, -1, -1, -1, -1, -1, + 41, 93, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 272, 273, 274, 275, -1, 58, 59, 279, + -1, 281, 63, -1, -1, -1, -1, 287, 288, 289, + 290, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 300, 301, 302, -1, 304, 305, 306, 307, 308, 309, + 310, 311, 93, -1, 314, -1, -1, 317, 318, 319, + -1, -1, -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, 302, -1, 304, + 305, 306, 307, 308, 309, 310, 311, -1, -1, 314, + -1, -1, 317, 318, 319, -1, -1, -1, -1, -1, + 41, -1, -1, 44, 93, -1, -1, -1, -1, -1, + -1, -1, 272, 273, 274, 275, -1, 58, 59, 279, + -1, 281, 63, -1, -1, -1, -1, 287, 288, 289, + 290, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 300, 301, 302, -1, 304, 305, 306, 307, 308, 309, + 310, 311, 93, -1, 314, -1, -1, 317, 318, 319, + 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, + 302, -1, 304, 305, 306, 307, 308, 309, 310, 311, + -1, -1, 314, -1, -1, 317, 318, 319, -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, 302, -1, 304, 305, 306, 307, 308, 309, 310, + 311, -1, -1, 314, -1, -1, 317, 318, 319, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 93, -1, + -1, 41, -1, -1, 44, -1, -1, -1, -1, -1, + -1, -1, -1, 272, 273, 274, 275, -1, 58, 59, + 279, -1, 281, 63, -1, -1, -1, -1, 287, 288, + 289, 290, -1, -1, -1, -1, -1, -1, -1, -1, + -1, 300, 301, 302, -1, 304, 305, 306, 307, 308, + 309, 310, 311, 93, -1, 314, -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, 302, -1, 304, 305, 306, 307, 308, 309, 310, + 311, -1, -1, 314, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 41, -1, -1, 44, 93, -1, + -1, -1, -1, -1, -1, -1, 272, 273, 274, 275, + -1, 58, 59, 279, -1, 281, 63, -1, -1, -1, + -1, 287, 288, 289, 290, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 300, 301, 302, -1, 304, 305, + 306, 307, 308, 309, 310, 311, 93, -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, 287, 288, 289, 290, -1, -1, -1, -1, + 41, -1, -1, 44, -1, 300, 301, 302, -1, 304, + 305, 306, 307, 308, 309, 310, 311, 58, 59, -1, + -1, -1, 63, -1, -1, -1, -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, -1, 93, -1, -1, 41, -1, -1, 44, -1, + 300, 301, 302, -1, 304, 305, 306, 307, 308, 309, + 310, 311, 58, 59, -1, -1, -1, 63, -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, 93, -1, -1, + -1, -1, 287, 288, 289, 290, -1, -1, -1, -1, + 41, -1, -1, 44, -1, 300, 301, 302, -1, 304, + 305, 306, 307, 308, 309, 310, 311, 58, 59, -1, + -1, -1, 63, -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, 41, -1, + -1, 44, 93, 300, 301, 302, -1, 304, 305, 306, + 307, 308, 309, 310, 311, 58, 59, -1, -1, -1, + 63, -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, -1, -1, 41, + 93, -1, 44, -1, -1, -1, -1, -1, -1, -1, + -1, 272, 273, 274, 275, -1, 58, 59, 279, -1, + 281, 63, -1, -1, -1, -1, 287, 288, 289, 290, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 300, + 301, 302, -1, 304, 305, 306, 307, 308, 309, 310, + 311, 93, -1, -1, 41, -1, -1, 44, -1, -1, + -1, -1, -1, -1, -1, -1, 272, 273, 274, 275, + -1, 58, 59, 279, -1, 281, 63, -1, -1, -1, + -1, 287, 288, 289, 290, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 300, 301, 302, -1, 304, 305, + 306, 307, 308, 309, 310, 311, 93, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 41, + -1, -1, 44, -1, -1, -1, -1, -1, -1, -1, + -1, 272, 273, 274, 275, -1, 58, 59, 279, -1, + 281, 63, -1, -1, -1, -1, 287, 288, 289, 290, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 300, + 301, 302, -1, 304, 305, 306, 307, 308, 309, 310, + -1, 93, -1, -1, 41, -1, -1, 44, -1, 272, + 273, 274, 275, -1, 41, -1, 279, 44, 281, -1, + -1, 58, 59, -1, 287, 288, 63, 290, -1, -1, + -1, 58, 59, -1, -1, -1, 63, 300, 301, 302, + -1, 304, 305, 306, 307, 308, 309, 310, -1, -1, + -1, -1, -1, -1, -1, 41, 93, -1, 44, -1, + 272, 273, 274, 275, -1, -1, 93, 279, -1, 281, + -1, -1, 58, 59, -1, 287, 288, 63, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 300, 301, + 302, -1, 304, 305, 306, 307, 308, 309, 310, -1, + -1, -1, -1, 41, -1, -1, 44, 93, -1, -1, + -1, -1, -1, -1, -1, 272, 273, 274, 275, -1, + 58, 59, 279, -1, 281, 63, -1, -1, -1, -1, + 287, 288, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 300, 301, 302, -1, 304, 305, 306, + 307, 308, 309, 41, -1, 93, 44, -1, -1, -1, + -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, -1, -1, -1, + -1, 41, -1, -1, 44, 93, -1, -1, 300, 301, + 302, -1, 304, 305, 306, 307, 308, 309, 58, 59, + -1, -1, -1, 63, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 272, 273, 274, 275, -1, + 41, -1, 279, 44, 281, 272, 273, 274, 275, -1, + 287, 288, 279, 93, 281, -1, -1, 58, 59, -1, + 287, 288, 63, 300, 301, 302, -1, 304, 305, 306, + 307, 308, 309, 300, 301, 302, -1, 304, 305, 306, + 307, 308, 309, -1, -1, -1, 272, 273, 274, 275, + -1, -1, 93, 279, -1, 281, -1, -1, -1, -1, + -1, -1, 288, -1, -1, -1, -1, 41, -1, -1, + 44, -1, -1, -1, 300, 301, 302, -1, 304, 305, + 306, 307, 308, 309, 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, -1, + -1, -1, -1, -1, -1, 41, -1, -1, 44, 93, + -1, -1, 300, 301, 302, -1, 304, 305, 306, 307, + 308, 309, 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, -1, + -1, -1, -1, -1, -1, -1, -1, 93, -1, -1, + -1, -1, 300, 301, 302, -1, 304, 305, 306, 307, + 308, 309, -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, 302, -1, 304, 305, 306, 307, 308, -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, 302, -1, 304, 305, 306, 307, -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, -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, 302, -1, + 304, 305, 306, -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, 302, -1, 304, 305, + 306, +}; +#define YYFINAL 1 +#ifndef YYDEBUG +#define YYDEBUG 0 #endif - s = argv[0]+1; - reswitch: - switch (*s) { - case 'a': - minus_a = TRUE; - s++; - goto reswitch; - case 'd': -#ifdef TAINT - if (euid != uid || egid != gid) - fatal("No -d allowed in setuid scripts"); +#define YYMAXTOKEN 319 +#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","DOROP","ANDOP","NOTOP","ASSIGNOP","OROR", +"DORDOR","ANDAND","BITOROP","BITANDOP","SHIFTOP","MATCHOP","UMINUS","REFGEN", +"POWOP","PREINC","PREDEC","POSTINC","POSTDEC","ARROW", +}; +static char *yyrule[] = { +"$accept : prog", +"prog : progstart lineseq", +"block : '{' remember lineseq '}'", +"remember :", +"progstart :", +"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 ';'", +"$$1 :", +"use : USE startsub $$1 WORD WORD listexpr ';'", +"expr : expr ANDOP expr", +"expr : expr OROP expr", +"expr : expr DOROP 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 ')'", +"$$2 :", +"listop : LSTOPSUB startanonsub block $$2 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 '(' ')'", +"termbinop : term ASSIGNOP term", +"termbinop : term POWOP term", +"termbinop : term MULOP term", +"termbinop : term ADDOP term", +"termbinop : term SHIFTOP term", +"termbinop : term RELOP term", +"termbinop : term EQOP term", +"termbinop : term BITANDOP term", +"termbinop : term BITOROP term", +"termbinop : term DOTDOT term", +"termbinop : term ANDAND term", +"termbinop : term OROR term", +"termbinop : term DORDOR term", +"termbinop : term MATCHOP term", +"termunop : '-' term", +"termunop : '+' term", +"termunop : '!' term", +"termunop : '~' term", +"termunop : term POSTINC", +"termunop : term POSTDEC", +"termunop : PREINC term", +"termunop : PREDEC term", +"anonymous : '[' expr ']'", +"anonymous : '[' ']'", +"anonymous : HASHBRACK expr ';' '}'", +"anonymous : HASHBRACK ';' '}'", +"anonymous : ANONSUB startanonsub proto subattrlist block", +"termdo : DO term", +"termdo : DO block", +"termdo : DO WORD '(' ')'", +"termdo : DO WORD '(' expr ')'", +"termdo : DO scalar '(' ')'", +"termdo : DO scalar '(' expr ')'", +"term : termbinop", +"term : termunop", +"term : anonymous", +"term : termdo", +"term : term '?' term ':' term", +"term : REFGEN term", +"term : myattrterm", +"term : LOCAL term", +"term : '(' expr ')'", +"term : '(' ')'", +"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 : 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 - perldb = TRUE; - s++; - goto reswitch; - case 'D': -#ifdef DEBUGGING -#ifdef TAINT - if (euid != uid || egid != gid) - fatal("No -D allowed in setuid scripts"); +#define yyclearin (yychar=(-1)) +#define yyerrok (yyerrflag=0) +#ifdef YYSTACKSIZE +#ifndef YYMAXDEPTH +#define YYMAXDEPTH YYSTACKSIZE #endif - debug = atoi(s+1); #else - warn("Recompile perl with -DDEBUGGING to use -D switch\n"); +#ifdef YYMAXDEPTH +#define YYSTACKSIZE YYMAXDEPTH +#else +#define YYSTACKSIZE 500 +#define YYMAXDEPTH 500 #endif - break; - case 'e': -#ifdef TAINT - if (euid != uid || egid != gid) - fatal("No -e allowed in setuid scripts"); #endif - if (!e_fp) { - e_tmpname = savestr(TMPPATH); - (void)mktemp(e_tmpname); - e_fp = fopen(e_tmpname,"w"); - } - if (argv[1]) - fputs(argv[1],e_fp); - (void)putc('\n', e_fp); - argc--,argv++; - break; - case 'i': - inplace = savestr(s+1); - argvoutstab = stabent("ARGVOUT",TRUE); - break; - case 'I': -#ifdef TAINT - if (euid != uid || egid != gid) - fatal("No -I allowed in setuid scripts"); +#line 795 "perly.y" + /* PROGRAM */ + +/* more stuff added to make perly_c.diff easier to apply */ + +#ifdef yyparse +#undef yyparse #endif - str_cat(str,"-"); - str_cat(str,s); - str_cat(str," "); - if (*++s) { - (void)apush(stab_array(incstab),str_make(s,0)); - } - else { - (void)apush(stab_array(incstab),str_make(argv[1],0)); - 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': -#ifdef TAINT - if (euid != uid || egid != gid) - fatal("No -P allowed in setuid scripts"); +#define yyparse() Perl_yyparse(pTHX) + +#line 1508 "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 - preprocess = TRUE; - s++; - goto reswitch; - case 's': -#ifdef TAINT - if (euid != uid || egid != gid) - fatal("No -s allowed in setuid scripts"); + + struct ysv *ysave; +#ifdef USE_ITHREADS + ENTER; /* force yydestruct() before we return */ #endif - doswitches = TRUE; - s++; - goto reswitch; - case 'S': - dosearch = TRUE; - s++; - goto reswitch; - case 'u': - do_undump = TRUE; - s++; - goto reswitch; - case 'U': - unsafe = TRUE; - s++; - goto reswitch; - case 'v': - fputs(rcsid,stdout); - fputs("\nCopyright (c) 1989, Larry Wall\n\n\ -Perl may be copied only under the terms of the GNU General Public License,\n\ -a copy of which can be found with the Perl 3.0 distribution kit.\n",stdout); - 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) { - (void)fclose(e_fp); - argc++,argv--; - argv[0] = e_tmpname; + 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'; } -#ifndef PRIVLIB -#define PRIVLIB "/usr/local/lib/perl" #endif - (void)apush(stab_array(incstab),str_make(PRIVLIB,0)); - str_set(&str_no,No); - str_set(&str_yes,Yes); + yynerrs = 0; + yyerrflag = 0; + yychar = (-1); - /* open script */ + /* + ** 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; - if (argv[0] == Nullch) - argv[0] = "-"; - if (dosearch && !index(argv[0], '/') && (s = getenv("PATH"))) { - char *xfound = Nullch, *xfailed = Nullch; - int len; + yyssp = yyss; + yyvsp = yyvs; + *yyssp = yystate = 0; - bufend = s + strlen(s); - while (*s) { - s = cpytill(tokenbuf,s,bufend,':',&len); - if (*s) - s++; - if (len) - (void)strcat(tokenbuf+len,"/"); - (void)strcat(tokenbuf+len,argv[0]); -#ifdef DEBUGGING - if (debug & 1) - fprintf(stderr,"Looking for %s\n",tokenbuf); +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 - if (stat(tokenbuf,&statbuf) < 0) /* not there? */ - continue; - if ((statbuf.st_mode & S_IFMT) == S_IFREG - && cando(S_IREAD,TRUE,&statbuf) && cando(S_IEXEC,TRUE,&statbuf)) { - xfound = tokenbuf; /* bingo! */ - break; - } - if (!xfailed) - xfailed = savestr(tokenbuf); - } - if (!xfound) - fatal("Can't execute %s", xfailed ? xfailed : argv[0] ); - if (xfailed) - Safefree(xfailed); - argv[0] = savestr(xfound); } - - pidstatary = anew(Nullstab); /* for remembering popen pids, status */ - - filename = savestr(argv[0]); - origfilename = savestr(filename); - if (strEQ(filename,"-")) - argv[0] = ""; - if (preprocess) { - str_cat(str,"-I"); - str_cat(str,PRIVLIB); - (void)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 /* actually, this is caught earlier */ - if (euid != uid && !euid) /* if running suidperl */ -#ifdef SETEUID - (void)seteuid(uid); /* musn't stay setuid root */ -#else -#ifdef SETREUID - (void)setreuid(-1, uid); -#else - setuid(uid); -#endif + 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 -#endif /* IAMSUID */ - rsfp = mypopen(buf,"r"); + 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; } - else if (!*argv[0]) - rsfp = stdin; - else - rsfp = fopen(argv[0],"r"); - if (rsfp == Nullfp) { -#ifdef DOSUID -#ifndef IAMSUID /* in case script is not readable before setuid */ - if (euid && stat(filename,&statbuf) >= 0 && - statbuf.st_mode & (S_ISUID|S_ISGID)) { - (void)sprintf(buf, "%s/%s", BIN, "suidperl"); - execv(buf, origargv); /* try again */ - fatal("Can't do setuid\n"); - } -#endif -#endif - fatal("Can't open perl script \"%s\": %s\n", - filename, strerror(errno)); + if ((yyn = yyrindex[yystate]) && (yyn += yychar) >= 0 && + yyn <= YYTABLESIZE && yycheck[yyn] == yychar) + { + yyn = yytable[yyn]; + goto yyreduce; } - 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. - * - * There is also the possibility of have a script which is running - * set-id due to a C wrapper. We want to do the TAINT checks - * on these set-id scripts, but don't want to have the overhead of - * them in normal perl, and can't use suidperl because it will lose - * the effective uid info, so we have an additional non-setuid root - * version called taintperl that just does the TAINT checks. - */ - -#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; - -#ifdef IAMSUID -#ifndef SETREUID - /* On this access check to make sure the directories are readable, - * there is actually a small window that the user could use to make - * filename point to an accessible directory. So there is a faint - * chance that someone could execute a setuid script down in a - * non-accessible directory. I don't know what to do about that. - * But I don't think it's too important. The manual lies when - * it says access() is useful in setuid programs. - */ - if (access(filename,1)) /* as a double check */ - fatal("Permission denied"); -#else - /* If we can swap euid and uid, then we can determine access rights - * with a simple stat of the file, and then compare device and - * inode to make sure we did stat() on the same file we opened. - * Then we just have to make sure he or she can execute it. - */ - { - struct stat tmpstatbuf; - - if (setreuid(euid,uid) < 0 || getuid() != euid || geteuid() != uid) - fatal("Can't swap uid and euid"); /* really paranoid */ - if (stat(filename,&tmpstatbuf) < 0) /* testing full pathname here */ - fatal("Permission denied"); - if (tmpstatbuf.st_dev != statbuf.st_dev || - tmpstatbuf.st_ino != statbuf.st_ino) { - (void)fclose(rsfp); - if (rsfp = mypopen("/bin/mail root","w")) { /* heh, heh */ - fprintf(rsfp, -"User %d tried to run dev %d ino %d in place of dev %d ino %d!\n\ -(Filename of set-id script was %s, uid %d gid %d.)\n\nSincerely,\nperl\n", - uid,tmpstatbuf.st_dev, tmpstatbuf.st_ino, - statbuf.st_dev, statbuf.st_ino, - filename, statbuf.st_uid, statbuf.st_gid); - (void)mypclose(rsfp); - } - fatal("Permission denied\n"); - } - if (setreuid(uid,euid) < 0 || getuid() != uid || geteuid() != euid) - fatal("Can't reswap uid and euid"); - if (!cando(S_IEXEC,FALSE,&statbuf)) /* can real uid exec? */ - fatal("Permission denied\n"); - } -#endif /* SETREUID */ -#endif /* IAMSUID */ + if (yyerrflag) goto yyinrecovery; +#ifdef lint - if ((statbuf.st_mode & S_IFMT) != S_IFREG) - fatal("Permission denied"); - if ((statbuf.st_mode >> 6) & S_IWRITE) - fatal("Setuid/gid script is writable by world"); - 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"); - s = tokenbuf+2; - if (*s == ' ') s++; - while (!isspace(*s)) s++; - if (strnNE(s-4,"perl",4)) /* sanity check */ - fatal("Not a perl script"); - while (*s == ' ' || *s == '\t') 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("Args must match #! line"); +#endif -#ifndef IAMSUID - if (euid != uid && (statbuf.st_mode & S_ISUID) && - euid == statbuf.st_uid) - if (!do_undump) - fatal("YOU HAVEN'T DISABLED SET-ID SCRIPTS IN THE KERNEL YET!\n\ -FIX YOUR KERNEL, PUT A C WRAPPER AROUND THIS SCRIPT, OR USE -u AND UNDUMP!\n"); -#endif /* IAMSUID */ + yyerror("syntax error"); +#ifdef lint - if (euid) { /* oops, we're not the setuid root perl */ - (void)fclose(rsfp); -#ifndef IAMSUID - (void)sprintf(buf, "%s/%s", BIN, "suidperl"); - execv(buf, origargv); /* try again */ #endif - fatal("Can't do setuid\n"); - } - if (statbuf.st_mode & S_ISGID && statbuf.st_gid != egid) -#ifdef SETEGID - (void)setegid(statbuf.st_gid); -#else -#ifdef SETREGID - (void)setregid((GIDTYPE)-1,statbuf.st_gid); -#else - setgid(statbuf.st_gid); + ++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 + 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 (statbuf.st_mode & S_ISUID) { - if (statbuf.st_uid != euid) -#ifdef SETEUID - (void)seteuid(statbuf.st_uid); /* all that for this */ -#else -#ifdef SETREUID - (void)setreuid((UIDTYPE)-1,statbuf.st_uid); -#else - setuid(statbuf.st_uid); -#endif -#endif - } - else if (uid) /* oops, mustn't run as root */ -#ifdef SETEUID - (void)seteuid((UIDTYPE)uid); -#else -#ifdef SETREUID - (void)setreuid((UIDTYPE)-1,(UIDTYPE)uid); -#else - setuid((UIDTYPE)uid); -#endif -#endif - uid = (int)getuid(); - euid = (int)geteuid(); - gid = (int)getgid(); - egid = (int)getegid(); - if (!cando(S_IEXEC,TRUE,&statbuf)) - fatal("Permission denied\n"); /* they can't do this */ + if (yyssp <= yyss) goto yyabort; + --yyssp; + --yyvsp; + } + } } -#ifdef IAMSUID - else if (preprocess) - fatal("-P not allowed for setuid/setgid script\n"); else - fatal("Script is not setuid/setgid in suidperl\n"); -#else -#ifndef TAINT /* we aren't taintperl or suidperl */ - /* script has a wrapper--can't run suidperl or we lose euid */ - else if (euid != uid || egid != gid) { - (void)fclose(rsfp); - (void)sprintf(buf, "%s/%s", BIN, "taintperl"); - execv(buf, origargv); /* try again */ - fatal("Can't run setuid script with taint checks"); - } -#endif /* TAINT */ -#endif /* IAMSUID */ -#else /* !DOSUID */ -#ifndef TAINT /* we aren't taintperl or suidperl */ - if (euid != uid || egid != gid) { /* (suidperl doesn't exist, in fact) */ -#ifndef SETUID_SCRIPTS_ARE_SECURE_NOW - fstat(fileno(rsfp),&statbuf); /* may be either wrapped or real suid */ - if ((euid != uid && euid == statbuf.st_uid && statbuf.st_mode & S_ISUID) - || - (egid != gid && egid == statbuf.st_gid && statbuf.st_mode & S_ISGID) - ) - if (!do_undump) - fatal("YOU HAVEN'T DISABLED SET-ID SCRIPTS IN THE KERNEL YET!\n\ -FIX YOUR KERNEL, PUT A C WRAPPER AROUND THIS SCRIPT, OR USE -u AND UNDUMP!\n"); -#endif /* SETUID_SCRIPTS_ARE_SECURE_NOW */ - /* not set-id, must be wrapped */ - (void)fclose(rsfp); - (void)sprintf(buf, "%s/%s", BIN, "taintperl"); - execv(buf, origargv); /* try again */ - fatal("Can't run setuid script with taint checks"); - } -#endif /* TAINT */ -#endif /* DOSUID */ - - defstab = stabent("_",TRUE); - - if (perldb) { - debstash = hnew(0); - stab_xhash(stabent("_DB",TRUE)) = debstash; - curstash = debstash; - lineary = stab_xarray(aadd((tmpstab = stabent("line",TRUE)))); - tmpstab->str_pok |= SP_MULTI; - subname = str_make("main",4); - DBstab = stabent("DB",TRUE); - DBstab->str_pok |= SP_MULTI; - DBsub = hadd(tmpstab = stabent("sub",TRUE)); - tmpstab->str_pok |= SP_MULTI; - DBsingle = stab_val((tmpstab = stabent("single",TRUE))); - tmpstab->str_pok |= SP_MULTI; - curstash = defstash; - } - - /* init tokener */ - - bufend = bufptr = str_get(linestr); - - savestack = anew(Nullstab); /* for saving non-local values */ - stack = anew(Nullstab); /* for saving non-local values */ - stack->ary_flags = 0; /* not a real array */ - - /* now parse the script */ - - error_count = 0; - if (yyparse() || error_count) - fatal("Execution aborted due to compilation errors.\n"); - - New(50,loop_stack,128,struct loop); -#ifdef DEBUGGING - if (debug) { - New(51,debname,128,char); - New(52,debdelim,128,char); - } + { + 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 - curstash = defstash; - - preprocess = FALSE; - if (e_fp) { - e_fp = Nullfp; - (void)UNLINK(e_tmpname); + yychar = (-1); + goto yyloop; } - - /* initialize everything that won't change if we undump */ - - if (sigstab = stabent("SIG",allstabs)) { - sigstab->str_pok |= SP_MULTI; - (void)hadd(sigstab); - } - - magicalize("!#?^~=-%0123456789.+&*()<>,\\/[|`':"); - - amperstab = stabent("&",allstabs); - leftstab = stabent("`",allstabs); - rightstab = stabent("'",allstabs); - sawampersand = (amperstab || leftstab || rightstab); - if (tmpstab = stabent(":",allstabs)) - str_set(STAB_STR(tmpstab),chopset); - - /* these aren't necessarily magical */ - if (tmpstab = stabent(";",allstabs)) - str_set(STAB_STR(tmpstab),"\034"); -#ifdef TAINT - tainted = 1; +yyreduce: +#if YYDEBUG + if (yydebug) + PerlIO_printf(Perl_debug_log, "yydebug: state %d, reducing by rule %d (%s)\n", + yystate, yyn, yyrule[yyn]); #endif - if (tmpstab = stabent("0",allstabs)) - str_set(STAB_STR(tmpstab),origfilename); -#ifdef TAINT - tainted = 0; + yym = yylen[yyn]; + yyval = yyvsp[1-yym]; + switch (yyn) + { +case 1: +#line 131 "perly.y" +{ yyval.ival = yyvsp[-1].ival; newPROG(block_end(yyvsp[-1].ival,yyvsp[0].opval)); } +break; +case 2: +#line 136 "perly.y" +{ if (PL_copline > (line_t)yyvsp[-3].ival) + PL_copline = (line_t)yyvsp[-3].ival; + yyval.opval = block_end(yyvsp[-2].ival, yyvsp[-1].opval); } +break; +case 3: +#line 142 "perly.y" +{ yyval.ival = block_start(TRUE); } +break; +case 4: +#line 146 "perly.y" +{ +#if defined(YYDEBUG) && defined(DEBUGGING) + yydebug = (DEBUG_p_TEST); #endif - if (tmpstab = stabent("]",allstabs)) - str_set(STAB_STR(tmpstab),rcsid); - str_nset(stab_val(stabent("\"", TRUE)), " ", 1); - - stdinstab = stabent("STDIN",TRUE); - stdinstab->str_pok |= SP_MULTI; - stab_io(stdinstab) = stio_new(); - stab_io(stdinstab)->ifp = stdin; - tmpstab = stabent("stdin",TRUE); - stab_io(tmpstab) = stab_io(stdinstab); - tmpstab->str_pok |= SP_MULTI; - - tmpstab = stabent("STDOUT",TRUE); - tmpstab->str_pok |= SP_MULTI; - stab_io(tmpstab) = stio_new(); - stab_io(tmpstab)->ofp = stab_io(tmpstab)->ifp = stdout; - defoutstab = tmpstab; - tmpstab = stabent("stdout",TRUE); - stab_io(tmpstab) = stab_io(defoutstab); - tmpstab->str_pok |= SP_MULTI; - - curoutstab = stabent("STDERR",TRUE); - curoutstab->str_pok |= SP_MULTI; - stab_io(curoutstab) = stio_new(); - stab_io(curoutstab)->ofp = stab_io(curoutstab)->ifp = stderr; - tmpstab = stabent("stderr",TRUE); - stab_io(tmpstab) = stab_io(curoutstab); - tmpstab->str_pok |= SP_MULTI; - curoutstab = defoutstab; /* switch back to STDOUT */ - - statname = Str_new(66,0); /* last filename we did stat on */ - - perldb = FALSE; /* don't try to instrument evals */ - - if (dowarn) { - stab_check('A','Z'); - stab_check('a','z'); - } - - if (do_undump) - abort(); + PL_expect = XSTATE; yyval.ival = block_start(TRUE); + } +break; +case 5: +#line 156 "perly.y" +{ if (PL_copline > (line_t)yyvsp[-3].ival) + PL_copline = (line_t)yyvsp[-3].ival; + yyval.opval = block_end(yyvsp[-2].ival, yyvsp[-1].opval); } +break; +case 6: +#line 162 "perly.y" +{ yyval.ival = block_start(FALSE); } +break; +case 7: +#line 167 "perly.y" +{ yyval.opval = Nullop; } +break; +case 8: +#line 169 "perly.y" +{ yyval.opval = yyvsp[-1].opval; } +break; +case 9: +#line 171 "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 179 "perly.y" +{ yyval.opval = newSTATEOP(0, yyvsp[-1].pval, yyvsp[0].opval); } +break; +case 12: +#line 182 "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 191 "perly.y" +{ yyval.opval = newSTATEOP(0, yyvsp[-2].pval, yyvsp[-1].opval); + PL_expect = XSTATE; } +break; +case 14: +#line 197 "perly.y" +{ yyval.opval = Nullop; } +break; +case 15: +#line 199 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 16: +#line 201 "perly.y" +{ yyval.opval = newLOGOP(OP_AND, 0, yyvsp[0].opval, yyvsp[-2].opval); } +break; +case 17: +#line 203 "perly.y" +{ yyval.opval = newLOGOP(OP_OR, 0, yyvsp[0].opval, yyvsp[-2].opval); } +break; +case 18: +#line 205 "perly.y" +{ yyval.opval = newLOOPOP(OPf_PARENS, 1, scalar(yyvsp[0].opval), yyvsp[-2].opval); } +break; +case 19: +#line 207 "perly.y" +{ yyval.opval = newLOOPOP(OPf_PARENS, 1, yyvsp[0].opval, yyvsp[-2].opval);} +break; +case 20: +#line 209 "perly.y" +{ yyval.opval = newFOROP(0, Nullch, (line_t)yyvsp[-1].ival, + Nullop, yyvsp[0].opval, yyvsp[-2].opval, Nullop); } +break; +case 21: +#line 215 "perly.y" +{ yyval.opval = Nullop; } +break; +case 22: +#line 217 "perly.y" +{ (yyvsp[0].opval)->op_flags |= OPf_PARENS; yyval.opval = scope(yyvsp[0].opval); } +break; +case 23: +#line 219 "perly.y" +{ PL_copline = (line_t)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 226 "perly.y" +{ PL_copline = (line_t)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 230 "perly.y" +{ PL_copline = (line_t)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 237 "perly.y" +{ yyval.opval = Nullop; } +break; +case 27: +#line 239 "perly.y" +{ yyval.opval = scope(yyvsp[0].opval); } +break; +case 28: +#line 244 "perly.y" +{ PL_copline = (line_t)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 250 "perly.y" +{ PL_copline = (line_t)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 256 "perly.y" +{ yyval.opval = block_end(yyvsp[-6].ival, + newFOROP(0, yyvsp[-9].pval, (line_t)yyvsp[-8].ival, yyvsp[-5].opval, yyvsp[-3].opval, yyvsp[-1].opval, yyvsp[0].opval)); } +break; +case 31: +#line 259 "perly.y" +{ yyval.opval = block_end(yyvsp[-4].ival, + newFOROP(0, yyvsp[-8].pval, (line_t)yyvsp[-7].ival, mod(yyvsp[-6].opval, OP_ENTERLOOP), + yyvsp[-3].opval, yyvsp[-1].opval, yyvsp[0].opval)); } +break; +case 32: +#line 263 "perly.y" +{ yyval.opval = block_end(yyvsp[-4].ival, + newFOROP(0, yyvsp[-7].pval, (line_t)yyvsp[-6].ival, Nullop, yyvsp[-3].opval, yyvsp[-1].opval, yyvsp[0].opval)); } +break; +case 33: +#line 267 "perly.y" +{ OP *forop; + PL_copline = (line_t)yyvsp[-9].ival; + forop = newSTATEOP(0, yyvsp[-10].pval, + newWHILEOP(0, 1, (LOOP*)Nullop, + yyvsp[-9].ival, scalar(yyvsp[-4].opval), + yyvsp[0].opval, yyvsp[-2].opval)); + if (yyvsp[-6].opval) { + forop = append_elem(OP_LINESEQ, + newSTATEOP(0, (yyvsp[-10].pval?savepv(yyvsp[-10].pval):Nullch), + yyvsp[-6].opval), + forop); + } - just_doit: /* come here if running an undumped a.out */ - argc--,argv++; /* skip name of script */ - if (doswitches) { - for (; argc > 0 && **argv == '-'; argc--,argv++) { - if (argv[0][1] == '-') { - argc--,argv++; - break; - } - str_numset(stab_val(stabent(argv[0]+1,TRUE)),(double)1.0); - } + yyval.opval = block_end(yyvsp[-7].ival, forop); } +break; +case 34: +#line 282 "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 289 "perly.y" +{ yyval.opval = Nullop; } +break; +case 37: +#line 295 "perly.y" +{ (void)scan_num("1", &yylval); yyval.opval = yylval.opval; } +break; +case 39: +#line 301 "perly.y" +{ yyval.opval = invert(scalar(yyvsp[0].opval)); } +break; +case 40: +#line 306 "perly.y" +{ yyval.opval = yyvsp[0].opval; intro_my(); } +break; +case 41: +#line 310 "perly.y" +{ yyval.opval = yyvsp[0].opval; intro_my(); } +break; +case 42: +#line 314 "perly.y" +{ yyval.opval = yyvsp[0].opval; intro_my(); } +break; +case 43: +#line 318 "perly.y" +{ yyval.opval = yyvsp[0].opval; intro_my(); } +break; +case 44: +#line 323 "perly.y" +{ yyval.pval = Nullch; } +break; +case 46: +#line 329 "perly.y" +{ yyval.ival = 0; } +break; +case 47: +#line 331 "perly.y" +{ yyval.ival = 0; } +break; +case 48: +#line 333 "perly.y" +{ yyval.ival = 0; } +break; +case 49: +#line 335 "perly.y" +{ yyval.ival = 0; } +break; +case 50: +#line 337 "perly.y" +{ yyval.ival = 0; } +break; +case 51: +#line 341 "perly.y" +{ newFORM(yyvsp[-2].ival, yyvsp[-1].opval, yyvsp[0].opval); } +break; +case 52: +#line 344 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 53: +#line 345 "perly.y" +{ yyval.opval = Nullop; } +break; +case 54: +#line 350 "perly.y" +{ newMYSUB(yyvsp[-4].ival, yyvsp[-3].opval, yyvsp[-2].opval, yyvsp[-1].opval, yyvsp[0].opval); } +break; +case 55: +#line 355 "perly.y" +{ newATTRSUB(yyvsp[-4].ival, yyvsp[-3].opval, yyvsp[-2].opval, yyvsp[-1].opval, yyvsp[0].opval); } +break; +case 56: +#line 359 "perly.y" +{ yyval.ival = start_subparse(FALSE, 0); } +break; +case 57: +#line 363 "perly.y" +{ yyval.ival = start_subparse(FALSE, CVf_ANON); } +break; +case 58: +#line 367 "perly.y" +{ yyval.ival = start_subparse(TRUE, 0); } +break; +case 59: +#line 371 "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 380 "perly.y" +{ yyval.opval = Nullop; } +break; +case 62: +#line 386 "perly.y" +{ yyval.opval = Nullop; } +break; +case 63: +#line 388 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 64: +#line 390 "perly.y" +{ yyval.opval = Nullop; } +break; +case 65: +#line 395 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 66: +#line 397 "perly.y" +{ yyval.opval = Nullop; } +break; +case 67: +#line 401 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 68: +#line 402 "perly.y" +{ yyval.opval = Nullop; PL_expect = XSTATE; } +break; +case 69: +#line 406 "perly.y" +{ package(yyvsp[-1].opval); } +break; +case 70: +#line 410 "perly.y" +{ CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ } +break; +case 71: +#line 412 "perly.y" +{ utilize(yyvsp[-6].ival, yyvsp[-5].ival, yyvsp[-3].opval, yyvsp[-2].opval, yyvsp[-1].opval); } +break; +case 72: +#line 417 "perly.y" +{ yyval.opval = newLOGOP(OP_AND, 0, yyvsp[-2].opval, yyvsp[0].opval); } +break; +case 73: +#line 419 "perly.y" +{ yyval.opval = newLOGOP(yyvsp[-1].ival, 0, yyvsp[-2].opval, yyvsp[0].opval); } +break; +case 74: +#line 421 "perly.y" +{ yyval.opval = newLOGOP(OP_DOR, 0, yyvsp[-2].opval, yyvsp[0].opval); } +break; +case 76: +#line 427 "perly.y" +{ yyval.opval = yyvsp[-1].opval; } +break; +case 77: +#line 429 "perly.y" +{ yyval.opval = append_elem(OP_LIST, yyvsp[-2].opval, yyvsp[0].opval); } +break; +case 79: +#line 435 "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 438 "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 441 "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 446 "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 450 "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 455 "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 460 "perly.y" +{ yyval.opval = convert(yyvsp[-1].ival, 0, yyvsp[0].opval); } +break; +case 86: +#line 462 "perly.y" +{ yyval.opval = convert(yyvsp[-3].ival, 0, yyvsp[-1].opval); } +break; +case 87: +#line 464 "perly.y" +{ yyvsp[0].opval = newANONATTRSUB(yyvsp[-1].ival, 0, Nullop, yyvsp[0].opval); } +break; +case 88: +#line 466 "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 480 "perly.y" +{ yyval.opval = newBINOP(OP_GELEM, 0, yyvsp[-4].opval, scalar(yyvsp[-2].opval)); } +break; +case 92: +#line 482 "perly.y" +{ yyval.opval = newBINOP(OP_AELEM, 0, oopsAV(yyvsp[-3].opval), scalar(yyvsp[-1].opval)); } +break; +case 93: +#line 484 "perly.y" +{ yyval.opval = newBINOP(OP_AELEM, 0, + ref(newAVREF(yyvsp[-4].opval),OP_RV2AV), + scalar(yyvsp[-1].opval));} +break; +case 94: +#line 488 "perly.y" +{ yyval.opval = newBINOP(OP_AELEM, 0, + ref(newAVREF(yyvsp[-3].opval),OP_RV2AV), + scalar(yyvsp[-1].opval));} +break; +case 95: +#line 492 "perly.y" +{ yyval.opval = newBINOP(OP_HELEM, 0, oopsHV(yyvsp[-4].opval), jmaybe(yyvsp[-2].opval)); + PL_expect = XOPERATOR; } +break; +case 96: +#line 495 "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 500 "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 505 "perly.y" +{ yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED, + newCVREF(0, scalar(yyvsp[-3].opval))); } +break; +case 99: +#line 508 "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 513 "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 517 "perly.y" +{ yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED, + newCVREF(0, scalar(yyvsp[-2].opval))); } +break; +case 102: +#line 523 "perly.y" +{ yyval.opval = newASSIGNOP(OPf_STACKED, yyvsp[-2].opval, yyvsp[-1].ival, yyvsp[0].opval); } +break; +case 103: +#line 525 "perly.y" +{ yyval.opval = newBINOP(yyvsp[-1].ival, 0, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval)); } +break; +case 104: +#line 527 "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 531 "perly.y" +{ yyval.opval = newBINOP(yyvsp[-1].ival, 0, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval)); } +break; +case 106: +#line 533 "perly.y" +{ yyval.opval = newBINOP(yyvsp[-1].ival, 0, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval)); } +break; +case 107: +#line 535 "perly.y" +{ yyval.opval = newBINOP(yyvsp[-1].ival, 0, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval)); } +break; +case 108: +#line 537 "perly.y" +{ yyval.opval = newBINOP(yyvsp[-1].ival, 0, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval)); } +break; +case 109: +#line 539 "perly.y" +{ yyval.opval = newBINOP(yyvsp[-1].ival, 0, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval)); } +break; +case 110: +#line 541 "perly.y" +{ yyval.opval = newBINOP(yyvsp[-1].ival, 0, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval)); } +break; +case 111: +#line 543 "perly.y" +{ yyval.opval = newRANGE(yyvsp[-1].ival, scalar(yyvsp[-2].opval), scalar(yyvsp[0].opval));} +break; +case 112: +#line 545 "perly.y" +{ yyval.opval = newLOGOP(OP_AND, 0, yyvsp[-2].opval, yyvsp[0].opval); } +break; +case 113: +#line 547 "perly.y" +{ yyval.opval = newLOGOP(OP_OR, 0, yyvsp[-2].opval, yyvsp[0].opval); } +break; +case 114: +#line 549 "perly.y" +{ yyval.opval = newLOGOP(OP_DOR, 0, yyvsp[-2].opval, yyvsp[0].opval); } +break; +case 115: +#line 551 "perly.y" +{ yyval.opval = bind_match(yyvsp[-1].ival, yyvsp[-2].opval, yyvsp[0].opval); } +break; +case 116: +#line 556 "perly.y" +{ yyval.opval = newUNOP(OP_NEGATE, 0, scalar(yyvsp[0].opval)); } +break; +case 117: +#line 558 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 118: +#line 560 "perly.y" +{ yyval.opval = newUNOP(OP_NOT, 0, scalar(yyvsp[0].opval)); } +break; +case 119: +#line 562 "perly.y" +{ yyval.opval = newUNOP(OP_COMPLEMENT, 0, scalar(yyvsp[0].opval));} +break; +case 120: +#line 564 "perly.y" +{ yyval.opval = newUNOP(OP_POSTINC, 0, + mod(scalar(yyvsp[-1].opval), OP_POSTINC)); } +break; +case 121: +#line 567 "perly.y" +{ yyval.opval = newUNOP(OP_POSTDEC, 0, + mod(scalar(yyvsp[-1].opval), OP_POSTDEC)); } +break; +case 122: +#line 570 "perly.y" +{ yyval.opval = newUNOP(OP_PREINC, 0, + mod(scalar(yyvsp[0].opval), OP_PREINC)); } +break; +case 123: +#line 573 "perly.y" +{ yyval.opval = newUNOP(OP_PREDEC, 0, + mod(scalar(yyvsp[0].opval), OP_PREDEC)); } +break; +case 124: +#line 580 "perly.y" +{ yyval.opval = newANONLIST(yyvsp[-1].opval); } +break; +case 125: +#line 582 "perly.y" +{ yyval.opval = newANONLIST(Nullop); } +break; +case 126: +#line 584 "perly.y" +{ yyval.opval = newANONHASH(yyvsp[-2].opval); } +break; +case 127: +#line 586 "perly.y" +{ yyval.opval = newANONHASH(Nullop); } +break; +case 128: +#line 588 "perly.y" +{ yyval.opval = newANONATTRSUB(yyvsp[-3].ival, yyvsp[-2].opval, yyvsp[-1].opval, yyvsp[0].opval); } +break; +case 129: +#line 594 "perly.y" +{ yyval.opval = dofile(yyvsp[0].opval); } +break; +case 130: +#line 596 "perly.y" +{ yyval.opval = newUNOP(OP_NULL, OPf_SPECIAL, scope(yyvsp[0].opval)); } +break; +case 131: +#line 598 "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 132: +#line 606 "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 133: +#line 615 "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 134: +#line 619 "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 139: +#line 631 "perly.y" +{ yyval.opval = newCONDOP(0, yyvsp[-4].opval, yyvsp[-2].opval, yyvsp[0].opval); } +break; +case 140: +#line 633 "perly.y" +{ yyval.opval = newUNOP(OP_REFGEN, 0, mod(yyvsp[0].opval,OP_REFGEN)); } +break; +case 141: +#line 635 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 142: +#line 637 "perly.y" +{ yyval.opval = localize(yyvsp[0].opval,yyvsp[-1].ival); } +break; +case 143: +#line 639 "perly.y" +{ yyval.opval = sawparens(yyvsp[-1].opval); } +break; +case 144: +#line 641 "perly.y" +{ yyval.opval = sawparens(newNULLLIST()); } +break; +case 145: +#line 643 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 146: +#line 645 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 147: +#line 647 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 148: +#line 649 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 149: +#line 651 "perly.y" +{ yyval.opval = newUNOP(OP_AV2ARYLEN, 0, ref(yyvsp[0].opval, OP_AV2ARYLEN));} +break; +case 150: +#line 653 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 151: +#line 655 "perly.y" +{ yyval.opval = newSLICEOP(0, yyvsp[-1].opval, yyvsp[-4].opval); } +break; +case 152: +#line 657 "perly.y" +{ yyval.opval = newSLICEOP(0, yyvsp[-1].opval, Nullop); } +break; +case 153: +#line 659 "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 154: +#line 665 "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 155: +#line 672 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 156: +#line 674 "perly.y" +{ yyval.opval = newUNOP(OP_ENTERSUB, 0, scalar(yyvsp[0].opval)); } +break; +case 157: +#line 676 "perly.y" +{ yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar(yyvsp[-2].opval)); } +break; +case 158: +#line 678 "perly.y" +{ yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED, + append_elem(OP_LIST, yyvsp[-1].opval, scalar(yyvsp[-3].opval))); } +break; +case 159: +#line 681 "perly.y" +{ yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED, + append_elem(OP_LIST, yyvsp[0].opval, scalar(yyvsp[-1].opval))); } +break; +case 160: +#line 684 "perly.y" +{ yyval.opval = newOP(yyvsp[0].ival, OPf_SPECIAL); + PL_hints |= HINT_BLOCK_SCOPE; } +break; +case 161: +#line 687 "perly.y" +{ yyval.opval = newLOOPEX(yyvsp[-1].ival,yyvsp[0].opval); } +break; +case 162: +#line 689 "perly.y" +{ yyval.opval = newUNOP(OP_NOT, 0, scalar(yyvsp[0].opval)); } +break; +case 163: +#line 691 "perly.y" +{ yyval.opval = newOP(yyvsp[0].ival, 0); } +break; +case 164: +#line 693 "perly.y" +{ yyval.opval = newUNOP(yyvsp[-1].ival, 0, yyvsp[0].opval); } +break; +case 165: +#line 695 "perly.y" +{ yyval.opval = newUNOP(yyvsp[-1].ival, 0, yyvsp[0].opval); } +break; +case 166: +#line 697 "perly.y" +{ yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED, + append_elem(OP_LIST, yyvsp[0].opval, scalar(yyvsp[-1].opval))); } +break; +case 167: +#line 700 "perly.y" +{ yyval.opval = newOP(yyvsp[0].ival, 0); } +break; +case 168: +#line 702 "perly.y" +{ yyval.opval = newOP(yyvsp[-2].ival, 0); } +break; +case 169: +#line 704 "perly.y" +{ yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED, + scalar(yyvsp[0].opval)); } +break; +case 170: +#line 707 "perly.y" +{ yyval.opval = newOP(yyvsp[-2].ival, OPf_SPECIAL); } +break; +case 171: +#line 709 "perly.y" +{ yyval.opval = newUNOP(yyvsp[-3].ival, 0, yyvsp[-1].opval); } +break; +case 172: +#line 711 "perly.y" +{ yyval.opval = pmruntime(yyvsp[-3].opval, yyvsp[-1].opval, Nullop); } +break; +case 173: +#line 713 "perly.y" +{ yyval.opval = pmruntime(yyvsp[-5].opval, yyvsp[-3].opval, yyvsp[-1].opval); } +break; +case 176: +#line 720 "perly.y" +{ yyval.opval = my_attrs(yyvsp[-1].opval,yyvsp[0].opval); } +break; +case 177: +#line 722 "perly.y" +{ yyval.opval = localize(yyvsp[0].opval,yyvsp[-1].ival); } +break; +case 178: +#line 727 "perly.y" +{ yyval.opval = sawparens(yyvsp[-1].opval); } +break; +case 179: +#line 729 "perly.y" +{ yyval.opval = sawparens(newNULLLIST()); } +break; +case 180: +#line 731 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 181: +#line 733 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 182: +#line 735 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 183: +#line 740 "perly.y" +{ yyval.opval = Nullop; } +break; +case 184: +#line 742 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 185: +#line 746 "perly.y" +{ yyval.opval = Nullop; } +break; +case 186: +#line 748 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +case 187: +#line 750 "perly.y" +{ yyval.opval = yyvsp[-1].opval; } +break; +case 188: +#line 756 "perly.y" +{ PL_in_my = 0; yyval.opval = my(yyvsp[0].opval); } +break; +case 189: +#line 760 "perly.y" +{ yyval.opval = newCVREF(yyvsp[-1].ival,yyvsp[0].opval); } +break; +case 190: +#line 764 "perly.y" +{ yyval.opval = newSVREF(yyvsp[0].opval); } +break; +case 191: +#line 768 "perly.y" +{ yyval.opval = newAVREF(yyvsp[0].opval); } +break; +case 192: +#line 772 "perly.y" +{ yyval.opval = newHVREF(yyvsp[0].opval); } +break; +case 193: +#line 776 "perly.y" +{ yyval.opval = newAVREF(yyvsp[0].opval); } +break; +case 194: +#line 780 "perly.y" +{ yyval.opval = newGVREF(0,yyvsp[0].opval); } +break; +case 195: +#line 785 "perly.y" +{ yyval.opval = scalar(yyvsp[0].opval); } +break; +case 196: +#line 787 "perly.y" +{ yyval.opval = scalar(yyvsp[0].opval); } +break; +case 197: +#line 789 "perly.y" +{ yyval.opval = scope(yyvsp[0].opval); } +break; +case 198: +#line 792 "perly.y" +{ yyval.opval = yyvsp[0].opval; } +break; +#line 2562 "perly.c" } -#ifdef TAINT - tainted = 1; + 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 - if (argvstab = stabent("ARGV",allstabs)) { - argvstab->str_pok |= SP_MULTI; - (void)aadd(argvstab); - for (; argc > 0; argc--,argv++) { - (void)apush(stab_array(argvstab),str_make(argv[0],0)); - } - } -#ifdef TAINT - (void) stabent("ENV",TRUE); /* must test PATH and IFS */ + 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 - if (envstab = stabent("ENV",allstabs)) { - envstab->str_pok |= SP_MULTI; - (void)hadd(envstab); - for (; *env; env++) { - if (!(s = index(*env,'='))) - continue; - *s++ = '\0'; - str = str_make(s--,0); - str_magic(str, envstab, 'E', *env, s - *env); - (void)hstore(stab_hash(envstab), *env, s - *env, str, 0); - *s = '='; - } + } + if (yychar == 0) goto yyaccept; + goto yyloop; } -#ifdef TAINT - tainted = 0; -#endif - if (tmpstab = stabent("$",allstabs)) - str_numset(STAB_STR(tmpstab),(double)getpid()); - - if (setjmp(top_env)) /* sets goto_targ on longjump */ - loop_ptr = -1; /* start label stack again */ - -#ifdef DEBUGGING - if (debug & 1024) - dump_all(); - if (debug) - fprintf(stderr,"\nEXECUTING...\n\n"); + if ((yyn = yygindex[yym]) && (yyn += yystate) >= 0 && + yyn <= YYTABLESIZE && yycheck[yyn] == yystate) + yystate = yytable[yyn]; + else + 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 - - /* do it */ - - (void) cmd_exec(main_root,G_SCALAR,-1); - - 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_flags(stab) = SF_VMAGIC; - str_magic(stab_val(stab), stab, 0, Nullch, 0); - } + 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; } -/* this routine is in perly.c by virtue of being sort of an alternate main() */ - -int -do_eval(str,optype,stash,gimme,arglast) -STR *str; -int optype; -HASH *stash; -int gimme; -int *arglast; +static void +yydestruct(pTHX_ void *ptr) { - STR **st = stack->ary_array; - int retval; - CMD *myroot; - ARRAY *ar; - int i; - char * VOLATILE oldfile = filename; - VOLATILE line_t oldline = line; - VOLATILE int oldtmps_base = tmps_base; - VOLATILE int oldsave = savestack->ary_fill; - SPAT * VOLATILE oldspat = curspat; - static char *last_eval = Nullch; - static CMD *last_root = Nullcmd; - VOLATILE int sp = arglast[0]; - char *tmps; - - tmps_base = tmps_max; - if (curstash != stash) { - (void)savehptr(&curstash); - curstash = stash; - } - str_set(stab_val(stabent("@",TRUE)),""); - if (optype != O_DOFILE) { /* normal eval */ - filename = "(eval)"; - line = 1; - str_sset(linestr,str); - str_cat(linestr,";"); /* be kind to them */ - } - else { - if (last_root) { - Safefree(last_eval); - cmd_free(last_root); - last_root = Nullcmd; - } - filename = savestr(str_get(str)); /* can't free this easily */ - str_set(linestr,""); - rsfp = fopen(filename,"r"); - ar = stab_array(incstab); - if (!rsfp && *filename != '/') { - for (i = 0; i <= ar->ary_fill; i++) { - (void)sprintf(buf,"%s/%s",str_get(afetch(ar,i,TRUE)),filename); - rsfp = fopen(buf,"r"); - if (rsfp) { - filename = savestr(buf); - break; - } - } - } - if (!rsfp) { - filename = oldfile; - tmps_base = oldtmps_base; - if (gimme != G_ARRAY) - st[++sp] = &str_undef; - return sp; - } - line = 0; - } - in_eval++; - oldoldbufptr = oldbufptr = bufptr = str_get(linestr); - bufend = bufptr + linestr->str_cur; - if (++loop_ptr >= loop_max) { - loop_max += 128; - Renew(loop_stack, loop_max, struct loop); - } - loop_stack[loop_ptr].loop_label = "_EVAL_"; - loop_stack[loop_ptr].loop_sp = sp; -#ifdef DEBUGGING - if (debug & 4) { - deb("(Pushing label #%d _EVAL_)\n", loop_ptr); - } -#endif - if (setjmp(loop_stack[loop_ptr].loop_env)) { - retval = 1; - last_root = Nullcmd; - } - else { - error_count = 0; - if (rsfp) - retval = yyparse(); - else if (last_root && *bufptr == *last_eval && strEQ(bufptr,last_eval)){ - retval = 0; - eval_root = last_root; /* no point in reparsing */ - } - else if (in_eval == 1) { - if (last_root) { - Safefree(last_eval); - cmd_free(last_root); - } - last_eval = savestr(bufptr); - last_root = Nullcmd; - retval = yyparse(); - if (!retval) - last_root = eval_root; - } - else - retval = yyparse(); - } - myroot = eval_root; /* in case cmd_exec does another eval! */ - if (retval || error_count) { - st = stack->ary_array; - sp = arglast[0]; - if (gimme != G_ARRAY) - st[++sp] = &str_undef; - last_root = Nullcmd; /* can't free on error, for some reason */ - if (rsfp) { - fclose(rsfp); - rsfp = 0; - } - } - else { - sp = cmd_exec(eval_root,gimme,sp); - st = stack->ary_array; - for (i = arglast[0] + 1; i <= sp; i++) - st[i] = str_static(st[i]); - /* if we don't save result, free zaps it */ - if (in_eval != 1 && myroot != last_root) - cmd_free(myroot); - } - in_eval--; -#ifdef DEBUGGING - if (debug & 4) { - tmps = loop_stack[loop_ptr].loop_label; - deb("(Popping label #%d %s)\n",loop_ptr, - tmps ? tmps : "" ); - } -#endif - loop_ptr--; - filename = oldfile; - line = oldline; - tmps_base = oldtmps_base; - curspat = oldspat; - if (savestack->ary_fill > oldsave) /* let them use local() */ - restorelist(oldsave); - return sp; + 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); }