X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/2ac72d6ee10eac553987a271a333c11a24d55989..6f547d17d6a36c68d3bf32cfdf9f511211cc9f20:/perly.c diff --git a/perly.c b/perly.c index 9fd86d3..d17f19b 100644 --- a/perly.c +++ b/perly.c @@ -1,2544 +1,627 @@ -#ifndef lint -/* static char yysccsid[] = "@(#)yaccpar 1.8 (Berkeley) 01/20/91"; */ -#endif -#define YYBYACC 1 -#line 16 "perly.y" +/* perly.c + * + * Copyright (c) 2004, 2005, 2006, 2007, 2008, + * 2009, 2010, 2011 by Larry Wall and others + * + * You may distribute under the terms of either the GNU General Public + * License or the Artistic License, as specified in the README file. + * + * Note that this file was originally generated as an output from + * GNU bison version 1.875, but now the code is statically maintained + * and edited; the bits that are dependent on perly.y are now + * #included from the files perly.tab and perly.act. + * + * Here is an important copyright statement from the original, generated + * file: + * + * As a special exception, when this file is copied by Bison into a + * Bison output file, you may use that output file without + * restriction. This special exception was added by the Free + * Software Foundation in version 1.24 of Bison. + * + * Note that this file is also #included in madly.c, to allow compilation + * of a second parser, Perl_madparse, that is identical to Perl_yyparse, + * but which includes extra code for dumping the parse tree. + * This is controlled by the PERL_IN_MADLY_C define. + */ + #include "EXTERN.h" #define PERL_IN_PERLY_C #include "perl.h" -#ifdef EBCDIC -#undef YYDEBUG -#endif -#define dep() deprecate_old("\"do\" to call subroutines") - -/* stuff included here to make perly_c.diff apply better */ - -#define yydebug PL_yydebug -#define yynerrs PL_yynerrs -#define yyerrflag PL_yyerrflag -#define yychar PL_yychar -#define yyval PL_yyval -#define yylval PL_yylval - -struct ysv { - short* yyss; - YYSTYPE* yyvs; - int oldyydebug; - int oldyynerrs; - int oldyyerrflag; - int oldyychar; - YYSTYPE oldyyval; - YYSTYPE oldyylval; -}; - -static void yydestruct(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 -#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, 56, - 58, 57, 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, 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, 2, - 0, 7, 3, 3, 1, 2, 3, 1, 3, 5, - 6, 3, 3, 5, 2, 4, 0, 5, 1, 1, - 5, 4, 5, 4, 5, 6, 5, 4, 5, 4, - 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, - 3, 3, 3, 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, 71, 0, 14, 3, 173, 0, 0, 154, - 0, 168, 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, 146, 148, 0, 0, 0, - 0, 174, 140, 134, 135, 136, 137, 52, 0, 59, - 0, 69, 0, 0, 7, 194, 197, 196, 195, 0, - 0, 0, 0, 0, 0, 3, 3, 3, 3, 3, - 3, 0, 0, 0, 0, 0, 163, 0, 0, 0, - 0, 85, 0, 192, 0, 129, 0, 0, 0, 0, - 0, 0, 0, 179, 181, 180, 0, 188, 0, 0, - 0, 0, 0, 0, 0, 0, 124, 0, 0, 0, - 189, 190, 191, 193, 0, 34, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 119, 120, 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, 167, - 169, 0, 0, 0, 0, 0, 0, 0, 126, 0, - 158, 178, 0, 0, 175, 0, 0, 123, 27, 0, - 0, 19, 0, 0, 0, 0, 73, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 89, 0, 0, 90, 0, 0, 101, 0, - 0, 0, 0, 0, 0, 0, 156, 0, 0, 0, - 0, 0, 0, 2, 0, 0, 171, 0, 0, 0, - 42, 0, 43, 0, 0, 0, 0, 187, 0, 0, - 36, 41, 0, 0, 0, 170, 186, 86, 0, 130, - 0, 132, 0, 125, 177, 65, 0, 0, 0, 0, - 98, 0, 0, 0, 0, 100, 94, 0, 92, 0, - 152, 0, 157, 63, 68, 67, 55, 0, 54, 84, - 0, 88, 127, 0, 0, 0, 0, 0, 0, 0, - 0, 80, 131, 133, 151, 0, 0, 0, 99, 93, - 0, 97, 95, 153, 91, 72, 172, 6, 0, 0, - 0, 0, 0, 0, 0, 0, 150, 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, 104, 19, 2, 95, 370, 98, 359, - 3, 12, 13, 70, 375, 285, 72, 73, 74, 75, - 76, 77, 78, 79, 291, 81, 292, 281, 283, 286, - 294, 282, 284, 122, 214, 100, 82, 257, 89, 91, - 194, 327, 156, 289, 271, 225, 14, 83, 137, 84, - 85, 86, 87, 15, 16, 17, 18, 93, 278, -}; -static short yysindex[] = { 0, - 0, 0, -132, 0, 0, 0, -51, 0, 0, 0, - 0, 0, 0, 0, 650, 0, 0, 0, -239, -215, - 5, 0, 0, -215, 0, 0, 0, -31, -31, 0, - -24, 0, 2181, 0, 0, 11, 16, 32, 46, -34, - 2181, 49, 72, 76, 1017, 977, -31, 1081, 1348, -134, - 2181, 85, -31, 2181, 2181, 2181, 2181, 2181, 2181, 1388, - 1428, 0, 2181, 2181, -31, -31, -31, -31, -150, 0, - 337, 849, -13, -58, -48, 0, 0, 8, 97, 92, - 116, 0, 0, 0, 0, 0, 0, 0, 52, 0, - -97, 0, -75, -97, 0, 0, 0, 0, 0, 2181, - 146, 2181, 395, 52, -97, 0, 0, 0, 0, 0, - 0, 150, 849, 153, 1468, 977, 0, 395, 0, -58, - 116, 0, 2181, 0, 157, 0, 395, -8, 83, -52, - 2181, 395, 1528, 0, 0, 0, -89, 0, 116, 107, - 107, 107, -104, -104, 123, -37, 0, -73, 107, 107, - 0, 0, 0, 0, 52, 0, 2181, 2181, 2181, 2181, - 2181, 2181, 2181, 2181, 2181, 2181, 2181, 2181, 2181, 2181, - 2181, 2181, 2181, 2181, 2181, 2181, 2181, 0, 0, -12, - 2181, 1735, 2181, 2181, 2181, 2181, 2181, 2181, 1795, 0, - 2181, 0, 0, -64, -32, -64, 411, 0, 2181, 291, - 0, -64, 2181, 2181, 2181, 2181, 187, 1854, 0, 0, - 0, -29, 58, 189, 2181, 116, 1914, 2029, 0, 111, - 0, 0, -26, -19, 0, 2181, 165, 0, 0, -241, - -241, 0, -241, -241, -241, -40, 0, 1618, 395, 1306, - 185, 168, 849, 1235, 1129, 1169, 1268, 782, 235, 107, - 107, 2181, 0, 2121, 2181, 0, 218, -46, 0, -3, - -68, 61, 106, 65, 108, 68, 0, 17, 849, 26, - -30, 2181, -30, 0, 236, 2181, 0, 2181, 52, -241, - 0, 250, 0, 255, -241, 259, 260, 0, 248, 337, - 0, 0, 262, 261, 2181, 0, 0, 0, 22, 0, - 33, 0, 36, 0, 0, 0, 125, 2181, 2181, 71, - 0, 50, 127, 2181, 182, 0, 0, 184, 0, 199, - 0, 201, 0, 0, 0, 0, 0, 272, 0, 0, - 354, 0, 0, 216, 216, 216, 216, 2181, 216, 2181, - 301, 0, 0, 0, 0, 167, 2418, 228, 0, 0, - 319, 0, 0, 0, 0, 0, 0, 0, -150, -150, - -123, -123, 322, -150, 308, 216, 0, 0, 0, 0, - 0, 0, 216, 334, 0, 0, 216, 0, 1854, -150, - 449, 0, 2181, -150, 340, 0, 0, 355, 0, 216, - 216, 0, -123, 0, -}; -static short yyrindex[] = { 0, - 0, 0, 247, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 274, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 40, 455, 0, 0, 2367, 2469, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 119, 0, - 3, 943, 2515, 2603, 2653, 0, 0, 2708, 2754, 0, - -6, 0, 0, 0, 0, 0, 0, 0, 0, 0, - -33, 0, 0, -33, 0, 0, 0, 0, 0, 2469, - 0, 0, 3919, 0, -102, 0, 0, 0, 0, 0, - 0, 0, 3216, 0, 0, 359, 0, 3955, 526, 587, - 2276, 0, 0, 0, 2801, 0, 3999, 2603, 0, 0, - 2469, 4043, 0, 0, 0, 0, 2858, 0, 3225, 3461, - 3527, 3588, 3352, 3399, 2908, 0, 0, 0, 3635, 3680, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 2990, 0, 0, -28, 0, -28, 917, 0, 359, 0, - 0, 295, 379, 0, 0, 0, 0, 370, 0, 0, - 0, 0, 390, 0, 0, 3291, 0, 0, 0, 0, - 0, 0, 0, 3056, 0, 0, 3113, 0, 0, 14, - 35, 0, 55, 91, 117, 1991, 0, 4235, 4090, 1826, - 3807, 3871, 3283, 0, -22, 4191, 4155, 4145, 1048, 3719, - 3763, 0, 0, 0, 0, 0, 3163, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 4267, -10, - 0, 375, 0, 0, 0, 0, 0, 2469, 0, 136, - 0, 0, 0, 0, 400, 0, 0, 0, 0, 139, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 359, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 396, - 0, 0, 0, 0, 0, 0, 4080, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 119, 119, - 179, 179, 0, 119, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 415, 119, - 917, 0, 0, 119, 0, 0, 0, 0, 0, 0, - 0, 0, 179, 0, -}; -static short yygindex[] = { 0, - 0, 0, 196, 425, 0, 0, -2, 0, 37, 634, - -94, 0, 0, 0, -323, -15, 2445, 0, 999, 414, - 417, 0, 0, 0, 463, -43, 0, 0, 321, -198, - 103, 147, 280, -91, -185, 1, 0, 0, 0, 464, - -44, 222, 338, 0, -179, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, -}; -#define YYTABLESIZE 4568 -static short yytable[] = { 71, - 197, 65, 121, 227, 65, 111, 220, 22, 198, 293, - 139, 296, 315, 275, 305, 102, 273, 88, 113, 228, - 60, 113, 279, 65, 317, 60, 182, 254, 325, 101, - 62, 218, 185, 130, 75, 113, 113, 316, 376, 221, - 113, 90, 187, 15, 146, 148, 123, 124, 64, 196, - 106, 69, 75, 138, 18, 107, 121, 323, 162, 163, - 202, 15, 342, 92, 184, 151, 152, 153, 154, 394, - 113, 108, 18, 343, 186, 39, 344, 183, 255, 216, - 159, 117, 185, 159, 126, 109, 75, 121, 114, 60, - 349, 26, 26, 39, 62, 16, 341, 159, 159, 212, - 213, 297, 159, 203, 204, 205, 206, 207, 208, 181, - 252, 115, 64, 16, 184, 116, 215, 223, 26, 318, - 65, 67, 131, 320, 133, 192, 322, 155, 351, 348, - 188, 17, 159, 4, 5, 6, 189, 7, 8, 363, - 201, 230, 231, 233, 234, 235, 236, 237, 66, 17, - 190, 26, 373, 374, 26, 26, 26, 20, 26, 191, - 26, 26, 193, 26, 9, 258, 260, 261, 262, 263, - 264, 265, 266, 268, 26, 20, 38, 26, 21, 40, - 328, 195, 26, 213, 388, 199, 332, 280, 231, 209, - 231, 229, 290, 210, 38, 60, 217, 15, 319, 299, - 321, 301, 303, 23, 24, 21, 295, 219, 224, 26, - 307, 21, 180, 226, 21, 21, 21, 345, 21, 350, - 21, 21, 65, 21, 272, 96, 162, 163, 121, 298, - 97, 162, 163, 270, 121, 304, 310, 21, 312, 313, - 306, 26, 21, 26, 26, 253, 1, 162, 163, 113, - 113, 113, 113, 162, 163, 308, 113, 314, 113, 367, - 163, 110, 162, 163, 60, 75, 75, 75, 75, 21, - 162, 163, 75, 162, 163, 381, 330, 113, 113, 44, - 113, 113, 44, 44, 44, 324, 44, 338, 44, 44, - 334, 44, 346, 75, 75, 335, 162, 163, 213, 336, - 337, 21, 339, 21, 21, 44, 352, 326, 353, 326, - 44, 159, 159, 159, 159, 333, 162, 163, 159, 340, - 159, 162, 163, 354, 280, 355, 159, 159, 159, 159, - 356, 277, 162, 163, 276, 162, 163, 44, 358, 159, - 159, 366, 159, 159, 159, 159, 159, 159, 159, 162, - 163, 159, 368, 170, 159, 159, 159, 162, 163, 369, - 162, 163, 377, 71, 162, 163, 379, 162, 163, 44, - 162, 163, 44, 383, 26, 26, 26, 26, 26, 26, - 390, 26, 26, 26, 26, 26, 26, 26, 26, 26, - 26, 26, 26, 26, 357, 391, 53, 26, 26, 184, - 26, 26, 26, 26, 26, 162, 163, 162, 163, 26, - 26, 26, 26, 26, 26, 26, 170, 62, 177, 37, - 26, 178, 179, 180, 162, 163, 162, 163, 35, 26, - 185, 26, 26, 182, 21, 21, 21, 21, 21, 21, - 40, 21, 21, 21, 21, 21, 21, 21, 21, 21, - 21, 21, 21, 21, 37, 35, 167, 21, 21, 105, - 21, 21, 21, 21, 21, 135, 162, 163, 136, 21, - 21, 21, 21, 21, 21, 21, 176, 80, 232, 177, - 21, 385, 178, 179, 180, 287, 365, 94, 0, 21, - 0, 21, 21, 176, 329, 166, 177, 0, 166, 178, - 179, 180, 44, 44, 44, 44, 44, 44, 0, 44, - 44, 44, 166, 166, 0, 44, 0, 166, 44, 44, - 44, 44, 0, 167, 168, 44, 44, 0, 44, 44, - 44, 44, 44, 0, 0, 274, 0, 44, 44, 44, - 44, 44, 44, 176, 0, 0, 177, 166, 44, 178, - 179, 180, 0, 0, 0, 0, 0, 44, 194, 44, - 44, 194, 194, 194, 0, 194, 173, 194, 194, 173, - 194, 164, 0, 387, 0, 0, 0, 165, 166, 167, - 168, 0, 0, 173, 173, 0, 0, 0, 173, 194, - 0, 0, 0, 169, 171, 172, 173, 174, 175, 176, - 0, 0, 177, 0, 0, 178, 179, 180, 157, 158, - 159, 160, 0, 0, 0, 161, 194, 0, 173, 195, - 0, 0, 195, 195, 195, 0, 195, 144, 195, 195, - 144, 195, 0, 0, 164, 0, 162, 163, 0, 0, - 165, 166, 167, 168, 144, 144, 0, 0, 0, 144, - 195, 194, 0, 0, 0, 0, 169, 171, 172, 173, - 174, 175, 176, 0, 0, 177, 0, 0, 178, 179, - 180, 0, 0, 0, 0, 0, 4, 5, 6, 144, - 7, 8, 55, 167, 168, 65, 67, 53, 0, 60, - 0, 68, 64, 0, 63, 0, 371, 372, 0, 0, - 0, 378, 175, 176, 0, 0, 177, 9, 62, 178, - 179, 180, 195, 66, 4, 5, 6, 386, 7, 8, - 0, 389, 0, 0, 0, 0, 166, 166, 166, 166, - 0, 0, 0, 166, 0, 166, 0, 0, 0, 0, - 61, 166, 166, 166, 166, 9, 0, 0, 0, 0, - 0, 0, 0, 0, 166, 166, 0, 166, 166, 166, - 166, 166, 166, 166, 0, 0, 166, 0, 0, 166, - 166, 166, 26, 0, 0, 56, 0, 0, 0, 0, - 0, 0, 194, 194, 194, 194, 194, 0, 194, 194, - 194, 0, 0, 0, 194, 0, 0, 173, 173, 173, - 173, 0, 0, 0, 173, 194, 173, 194, 194, 194, - 194, 194, 173, 173, 173, 173, 194, 194, 194, 194, - 194, 194, 0, 0, 0, 173, 173, 194, 173, 173, - 173, 173, 173, 173, 173, 0, 194, 173, 194, 194, - 173, 173, 173, 195, 195, 195, 195, 195, 0, 195, - 195, 195, 0, 0, 0, 195, 0, 0, 144, 144, - 144, 144, 0, 0, 0, 144, 195, 144, 195, 195, - 195, 195, 195, 144, 144, 144, 144, 195, 195, 195, - 195, 195, 195, 0, 0, 0, 144, 144, 195, 144, - 144, 144, 144, 144, 144, 144, 0, 195, 144, 195, - 195, 144, 144, 144, 0, 25, 27, 28, 29, 30, - 31, 170, 32, 33, 34, 0, 0, 0, 35, 0, - 0, 36, 37, 38, 39, 0, 0, 0, 40, 41, - 0, 42, 43, 44, 45, 46, 0, 0, 0, 0, - 47, 48, 49, 50, 51, 52, 0, 0, 0, 44, - 0, 54, 44, 44, 44, 0, 44, 0, 44, 44, - 57, 44, 58, 59, 0, 0, 0, 0, 360, 361, - 362, 0, 364, 0, 0, 44, 0, 0, 0, 0, - 44, 0, 0, 78, 0, 0, 78, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 380, - 78, 78, 0, 0, 0, 0, 382, 44, 0, 55, - 384, 0, 65, 67, 53, 0, 60, 0, 68, 64, - 0, 63, 0, 392, 393, 0, 99, 99, 0, 0, - 0, 0, 0, 0, 0, 78, 0, 0, 112, 44, - 66, 0, 44, 0, 120, 99, 128, 0, 0, 55, - 134, 99, 65, 67, 53, 0, 60, 0, 68, 64, - 0, 63, 0, 99, 99, 99, 99, 61, 165, 166, - 167, 168, 0, 0, 0, 0, 0, 0, 0, 0, - 66, 0, 0, 0, 0, 0, 0, 0, 106, 175, - 176, 106, 0, 177, 0, 0, 178, 179, 180, 26, - 0, 0, 56, 0, 0, 106, 106, 61, 0, 0, - 106, 0, 0, 55, 120, 0, 65, 67, 53, 0, - 60, 0, 68, 64, 0, 63, 0, 0, 0, 164, - 0, 0, 0, 0, 0, 165, 166, 167, 168, 26, - 106, 0, 56, 0, 66, 0, 0, 0, 0, 0, - 0, 169, 171, 172, 173, 174, 175, 176, 0, 0, - 177, 0, 0, 178, 179, 180, 0, 0, 0, 0, - 0, 61, 44, 44, 44, 44, 44, 44, 256, 44, - 44, 44, 0, 0, 0, 44, 0, 0, 44, 44, - 44, 44, 0, 0, 0, 44, 44, 0, 44, 44, - 44, 44, 44, 26, 0, 288, 56, 44, 44, 44, - 44, 44, 44, 0, 78, 78, 78, 78, 44, 0, - 0, 78, 0, 0, 0, 0, 0, 44, 0, 44, - 44, 0, 0, 119, 28, 29, 30, 31, 97, 32, - 33, 34, 78, 78, 0, 35, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 41, 0, 42, 43, - 44, 45, 46, 0, 0, 0, 0, 47, 48, 49, - 50, 51, 52, 27, 28, 29, 30, 31, 54, 32, - 33, 34, 0, 0, 0, 35, 0, 57, 0, 58, - 59, 0, 309, 0, 0, 0, 41, 170, 42, 43, - 44, 45, 46, 0, 0, 0, 0, 47, 48, 49, - 50, 51, 52, 0, 0, 0, 0, 0, 54, 106, - 106, 106, 106, 0, 0, 0, 106, 57, 106, 58, - 59, 0, 0, 0, 106, 106, 0, 125, 28, 29, - 30, 31, 0, 32, 33, 34, 0, 106, 106, 35, - 106, 106, 106, 106, 106, 106, 0, 0, 0, 0, - 41, 0, 42, 43, 44, 45, 46, 0, 0, 0, - 0, 47, 48, 49, 50, 51, 52, 0, 0, 0, - 55, 0, 54, 65, 67, 53, 0, 60, 0, 68, - 64, 57, 63, 58, 59, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 129, 0, 0, 0, - 0, 66, 0, 0, 0, 165, 166, 167, 168, 0, - 55, 0, 0, 65, 67, 53, 0, 60, 145, 68, - 64, 0, 63, 172, 173, 174, 175, 176, 61, 0, - 177, 0, 0, 178, 179, 180, 0, 0, 0, 0, - 0, 66, 0, 0, 0, 165, 166, 167, 168, 0, - 55, 0, 0, 65, 67, 53, 0, 60, 0, 68, - 64, 0, 63, 56, 173, 174, 175, 176, 61, 0, - 177, 0, 0, 178, 179, 180, 0, 0, 0, 0, - 0, 66, 0, 0, 0, 0, 0, 0, 0, 0, - 55, 0, 0, 65, 67, 53, 0, 60, 211, 68, - 64, 0, 63, 56, 0, 164, 0, 0, 61, 0, - 147, 165, 166, 167, 168, 0, 0, 0, 0, 0, - 0, 66, 0, 0, 0, 0, 0, 169, 171, 172, - 173, 174, 175, 176, 0, 0, 177, 0, 0, 178, - 179, 180, 0, 56, 165, 166, 167, 168, 61, 0, - 55, 0, 0, 65, 67, 53, 0, 60, 222, 68, - 64, 0, 63, 0, 174, 175, 176, 0, 0, 177, - 0, 0, 178, 179, 180, 0, 0, 0, 0, 0, - 0, 66, 165, 56, 167, 168, 0, 0, 0, 0, - 0, 0, 0, 0, 27, 28, 29, 30, 31, 0, - 32, 33, 34, 175, 176, 0, 35, 177, 61, 0, - 178, 179, 180, 0, 0, 0, 0, 41, 0, 42, - 43, 44, 45, 46, 0, 0, 0, 0, 47, 48, - 49, 50, 51, 52, 27, 28, 29, 30, 31, 54, - 32, 33, 34, 56, 0, 0, 35, 0, 57, 0, - 58, 59, 0, 0, 0, 0, 0, 41, 0, 42, - 43, 44, 45, 46, 0, 0, 0, 0, 47, 48, - 49, 50, 51, 52, 27, 28, 29, 30, 31, 54, - 32, 33, 34, 0, 0, 0, 35, 0, 57, 0, - 58, 59, 0, 0, 0, 0, 0, 41, 0, 42, - 43, 44, 45, 46, 0, 0, 0, 0, 47, 48, - 49, 50, 51, 52, 27, 28, 29, 30, 31, 54, - 32, 33, 34, 0, 0, 0, 35, 0, 57, 0, - 58, 59, 0, 0, 0, 0, 0, 41, 0, 42, - 43, 44, 45, 46, 0, 0, 0, 0, 47, 48, - 49, 50, 51, 52, 0, 0, 0, 55, 0, 54, - 65, 67, 53, 0, 60, 259, 68, 64, 57, 63, - 58, 59, 0, 0, 27, 28, 29, 30, 31, 0, - 32, 33, 34, 0, 0, 0, 35, 0, 66, 0, - 0, 0, 0, 0, 0, 0, 0, 41, 0, 42, - 43, 44, 45, 46, 0, 0, 0, 0, 47, 48, - 49, 50, 51, 52, 0, 61, 0, 55, 0, 54, - 65, 67, 53, 0, 60, 267, 68, 64, 57, 63, - 58, 59, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, - 56, 0, 0, 0, 0, 0, 108, 0, 0, 108, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 108, 108, 61, 55, 0, 108, 65, - 67, 53, 0, 60, 0, 68, 64, 0, 63, 0, - 0, 0, 0, 0, 165, 166, 167, 168, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 66, 108, 0, - 56, 171, 172, 173, 174, 175, 176, 0, 0, 177, - 0, 0, 178, 179, 180, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 61, 0, 55, 0, 0, 65, - 67, 53, 0, 60, 300, 68, 64, 0, 63, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 66, 0, 56, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 27, 28, 29, 30, 31, 0, 32, 33, 34, - 0, 0, 0, 35, 61, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 41, 0, 42, 43, 44, 45, - 46, 0, 0, 0, 0, 47, 48, 49, 50, 51, - 52, 74, 0, 0, 74, 0, 54, 0, 0, 56, - 0, 0, 0, 0, 0, 57, 0, 58, 59, 74, - 0, 27, 28, 29, 30, 31, 0, 32, 33, 34, - 0, 55, 0, 35, 65, 67, 53, 0, 60, 302, - 68, 64, 0, 63, 41, 0, 42, 43, 44, 45, - 46, 0, 0, 74, 0, 47, 48, 49, 50, 51, - 52, 0, 66, 0, 0, 0, 54, 108, 108, 108, - 108, 0, 0, 0, 108, 57, 108, 58, 59, 25, - 27, 28, 29, 30, 31, 0, 32, 33, 34, 61, - 0, 0, 35, 0, 0, 108, 108, 0, 108, 108, - 108, 108, 108, 41, 0, 42, 43, 44, 45, 46, - 0, 0, 0, 0, 47, 48, 49, 50, 51, 52, - 0, 0, 0, 55, 56, 54, 65, 67, 53, 0, - 60, 311, 68, 64, 57, 63, 58, 59, 0, 0, - 27, 28, 29, 30, 31, 0, 32, 33, 34, 0, - 0, 0, 35, 0, 66, 0, 0, 0, 0, 0, - 0, 0, 0, 41, 0, 42, 43, 44, 45, 46, - 0, 0, 0, 0, 47, 48, 49, 50, 51, 52, - 0, 61, 0, 55, 0, 54, 65, 67, 53, 0, - 60, 0, 68, 64, 57, 63, 58, 59, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 66, 0, 56, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 74, 74, 74, 74, 0, 0, 0, 74, - 0, 61, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 27, 28, 29, 30, 31, - 74, 32, 33, 34, 0, 0, 0, 35, 0, 0, - 0, 0, 0, 0, 0, 0, 56, 0, 41, 0, - 42, 43, 44, 45, 46, 0, 183, 0, 0, 47, - 48, 49, 50, 51, 52, 0, 0, 0, 0, 0, - 54, 0, 0, 183, 183, 0, 0, 0, 183, 57, - 0, 58, 59, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 183, 0, - 0, 0, 0, 0, 0, 0, 0, 27, 28, 29, - 30, 31, 0, 32, 33, 34, 0, 0, 0, 35, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 41, 0, 42, 43, 44, 45, 46, 162, 0, 0, - 162, 47, 48, 49, 50, 51, 52, 0, 0, 0, - 0, 0, 54, 0, 162, 162, 0, 0, 0, 162, - 0, 57, 0, 58, 59, 0, 0, 27, 28, 29, - 30, 31, 0, 32, 33, 34, 0, 0, 0, 35, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 162, - 41, 0, 42, 43, 44, 45, 46, 0, 0, 0, - 0, 47, 48, 49, 50, 51, 52, 103, 0, 0, - 170, 0, 54, 0, 0, 113, 0, 0, 0, 118, - 0, 57, 127, 58, 59, 132, 0, 0, 0, 140, - 141, 142, 143, 144, 0, 0, 0, 149, 150, 182, - 0, 0, 182, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 182, 182, 0, 0, - 0, 182, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 200, 183, 183, 183, - 183, 0, 0, 0, 183, 149, 183, 0, 149, 0, - 0, 182, 183, 183, 183, 183, 0, 0, 0, 0, - 0, 0, 149, 149, 0, 183, 183, 149, 183, 183, - 183, 183, 183, 183, 183, 0, 0, 183, 0, 0, - 183, 183, 183, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 149, 238, 239, - 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, - 250, 251, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 269, 0, 0, 162, 162, - 162, 162, 0, 144, 0, 162, 144, 162, 0, 0, - 0, 0, 0, 162, 162, 162, 162, 0, 0, 0, - 144, 144, 0, 0, 0, 144, 162, 162, 0, 162, - 162, 162, 162, 162, 162, 162, 0, 0, 162, 0, - 0, 162, 162, 162, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 147, 0, 144, 147, 0, 164, 0, - 0, 0, 0, 0, 165, 166, 167, 168, 0, 0, - 147, 147, 0, 0, 0, 147, 0, 0, 0, 0, - 331, 171, 172, 173, 174, 175, 176, 0, 0, 177, - 0, 0, 178, 179, 180, 0, 0, 0, 0, 0, - 182, 182, 182, 182, 0, 147, 0, 182, 145, 182, - 0, 145, 0, 347, 0, 182, 182, 182, 182, 0, - 0, 0, 0, 0, 0, 145, 145, 0, 182, 182, - 145, 182, 182, 182, 182, 182, 182, 182, 0, 0, - 182, 0, 0, 182, 182, 182, 149, 149, 149, 149, - 0, 0, 0, 149, 155, 149, 0, 155, 0, 0, - 145, 149, 149, 149, 149, 0, 0, 0, 0, 0, - 0, 155, 155, 0, 149, 149, 155, 149, 149, 149, - 149, 149, 149, 149, 0, 0, 149, 0, 0, 149, - 149, 149, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 173, 0, 0, 173, 0, 155, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 173, 173, - 0, 0, 0, 173, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 144, 144, 144, 144, 0, 0, - 0, 144, 0, 144, 0, 0, 0, 0, 0, 144, - 144, 144, 144, 173, 0, 0, 0, 0, 176, 0, - 0, 176, 144, 144, 0, 144, 144, 144, 144, 144, - 144, 144, 0, 0, 144, 176, 176, 144, 144, 144, - 176, 0, 0, 0, 147, 147, 147, 147, 0, 0, - 0, 147, 0, 147, 0, 0, 0, 0, 0, 147, - 147, 147, 147, 0, 0, 0, 0, 0, 143, 0, - 176, 143, 147, 147, 0, 147, 147, 147, 147, 147, - 147, 147, 0, 0, 147, 143, 143, 147, 147, 147, - 143, 0, 0, 0, 0, 0, 0, 0, 0, 145, - 145, 145, 145, 0, 0, 0, 145, 0, 145, 0, - 0, 0, 0, 0, 145, 145, 145, 145, 0, 0, - 143, 0, 0, 0, 0, 0, 0, 145, 145, 0, - 145, 145, 145, 145, 145, 145, 145, 0, 0, 145, - 0, 0, 145, 145, 145, 155, 155, 155, 155, 0, - 76, 0, 155, 76, 155, 0, 0, 0, 0, 0, - 155, 155, 155, 155, 0, 0, 0, 76, 76, 0, - 0, 0, 76, 155, 155, 0, 155, 155, 155, 155, - 155, 155, 155, 0, 0, 155, 0, 0, 155, 155, - 155, 0, 173, 173, 173, 173, 0, 0, 0, 173, - 0, 173, 76, 0, 0, 0, 0, 173, 173, 173, - 173, 0, 0, 0, 0, 0, 66, 0, 0, 66, - 173, 173, 0, 173, 173, 173, 173, 173, 173, 173, - 0, 0, 173, 66, 66, 173, 173, 173, 66, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 176, - 176, 176, 176, 0, 0, 0, 176, 0, 176, 0, - 0, 0, 0, 0, 176, 176, 176, 176, 66, 0, - 0, 0, 0, 142, 0, 0, 142, 176, 176, 0, - 176, 176, 176, 176, 176, 176, 176, 0, 0, 176, - 142, 142, 176, 176, 176, 142, 0, 0, 0, 143, - 143, 143, 143, 0, 0, 0, 143, 0, 143, 0, - 0, 0, 0, 0, 143, 143, 143, 143, 0, 0, - 0, 0, 0, 82, 0, 142, 82, 143, 143, 0, - 143, 143, 143, 143, 143, 143, 143, 0, 0, 143, - 82, 82, 143, 143, 143, 82, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 82, 160, 0, 0, 160, - 0, 76, 76, 76, 76, 161, 0, 0, 76, 0, - 76, 0, 0, 160, 160, 0, 76, 76, 76, 76, - 0, 0, 161, 161, 0, 0, 0, 161, 0, 76, - 76, 0, 76, 76, 76, 76, 76, 76, 76, 0, - 0, 76, 0, 0, 76, 76, 76, 0, 160, 0, - 0, 0, 0, 0, 0, 0, 0, 161, 0, 0, - 0, 0, 0, 102, 0, 0, 102, 66, 66, 66, - 66, 79, 0, 0, 66, 0, 66, 0, 0, 0, - 102, 102, 66, 66, 66, 66, 0, 0, 79, 79, - 0, 0, 0, 79, 0, 66, 66, 0, 66, 66, - 66, 66, 66, 66, 66, 0, 0, 66, 0, 0, - 66, 66, 66, 0, 0, 102, 0, 0, 0, 0, - 0, 0, 0, 79, 142, 142, 142, 142, 0, 0, - 0, 142, 121, 142, 0, 121, 0, 0, 0, 142, - 142, 142, 142, 0, 0, 0, 0, 0, 0, 121, - 121, 0, 142, 142, 121, 142, 142, 142, 142, 142, - 142, 142, 0, 0, 142, 0, 0, 142, 142, 142, - 0, 0, 0, 0, 82, 82, 82, 82, 0, 122, - 0, 82, 122, 82, 121, 0, 0, 0, 0, 82, - 82, 82, 82, 0, 0, 0, 122, 122, 0, 0, - 0, 122, 82, 82, 0, 82, 82, 82, 82, 82, - 82, 82, 0, 0, 82, 0, 0, 82, 82, 82, - 0, 0, 0, 0, 0, 0, 0, 160, 160, 160, - 160, 122, 0, 0, 160, 0, 161, 161, 161, 161, - 0, 117, 0, 161, 117, 161, 0, 0, 0, 0, - 0, 161, 161, 161, 161, 160, 160, 0, 117, 117, - 0, 0, 0, 117, 161, 161, 0, 161, 161, 161, - 161, 161, 161, 161, 0, 0, 161, 0, 0, 161, - 161, 161, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 117, 102, 102, 102, 102, 0, 0, - 0, 102, 79, 79, 79, 79, 0, 118, 0, 79, - 118, 79, 0, 0, 0, 0, 0, 79, 79, 79, - 79, 0, 102, 102, 118, 118, 0, 0, 0, 118, - 79, 79, 0, 79, 79, 79, 79, 79, 79, 79, - 0, 0, 79, 0, 0, 79, 79, 79, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 118, - 0, 0, 0, 121, 121, 121, 121, 0, 139, 0, - 121, 139, 121, 0, 0, 0, 0, 0, 121, 121, - 121, 121, 0, 0, 0, 139, 139, 0, 0, 0, - 139, 121, 121, 0, 121, 121, 121, 121, 121, 121, - 121, 0, 0, 121, 0, 0, 0, 0, 0, 0, - 122, 122, 122, 122, 0, 115, 0, 122, 115, 122, - 139, 0, 0, 0, 0, 122, 122, 122, 122, 0, - 0, 0, 115, 115, 0, 0, 0, 115, 122, 122, - 0, 122, 122, 122, 122, 122, 122, 122, 0, 0, - 122, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 116, 0, 0, 116, 0, 0, 0, 115, 0, 0, - 0, 0, 117, 117, 117, 117, 0, 116, 116, 117, - 0, 117, 116, 0, 0, 0, 0, 117, 117, 117, - 117, 0, 0, 0, 0, 0, 0, 0, 0, 114, - 117, 117, 114, 117, 117, 117, 117, 117, 117, 117, - 0, 0, 116, 0, 0, 0, 114, 114, 0, 0, - 0, 114, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 118, 118, - 118, 118, 0, 103, 0, 118, 103, 118, 0, 0, - 0, 114, 0, 118, 118, 118, 118, 0, 0, 0, - 103, 103, 0, 0, 0, 103, 118, 118, 0, 118, - 118, 118, 118, 118, 118, 118, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 104, 0, 0, - 104, 0, 0, 0, 0, 103, 0, 0, 0, 139, - 139, 139, 139, 0, 104, 104, 139, 0, 139, 104, - 0, 0, 0, 0, 139, 139, 139, 139, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 139, 139, 0, - 139, 139, 139, 139, 139, 139, 139, 0, 0, 104, - 0, 0, 0, 0, 0, 0, 115, 115, 115, 115, - 0, 105, 0, 115, 105, 115, 0, 0, 0, 0, - 0, 115, 115, 115, 115, 0, 0, 0, 105, 105, - 0, 0, 0, 105, 115, 115, 0, 115, 115, 115, - 115, 115, 115, 115, 0, 0, 0, 0, 0, 0, - 0, 116, 116, 116, 116, 0, 0, 0, 116, 165, - 116, 0, 165, 105, 0, 0, 116, 116, 116, 116, - 0, 0, 0, 0, 0, 0, 165, 165, 0, 116, - 116, 165, 116, 116, 116, 116, 116, 116, 116, 0, - 114, 114, 114, 114, 0, 164, 0, 114, 164, 114, - 0, 0, 0, 0, 0, 114, 114, 114, 114, 0, - 0, 165, 164, 164, 0, 0, 0, 164, 114, 114, - 0, 114, 114, 114, 114, 114, 114, 114, 0, 0, - 0, 0, 0, 0, 103, 103, 103, 103, 0, 128, - 0, 103, 128, 103, 0, 0, 0, 164, 0, 103, - 103, 103, 103, 0, 0, 0, 128, 128, 0, 0, - 0, 128, 103, 103, 0, 103, 103, 103, 103, 103, - 103, 103, 0, 0, 0, 0, 0, 0, 104, 104, - 104, 104, 0, 141, 0, 104, 141, 104, 0, 0, - 0, 128, 0, 104, 104, 104, 104, 0, 0, 0, - 141, 141, 0, 0, 0, 141, 104, 104, 0, 104, - 104, 104, 104, 104, 104, 0, 0, 0, 0, 0, - 138, 0, 0, 138, 0, 0, 0, 0, 0, 0, - 107, 0, 0, 107, 0, 141, 0, 138, 138, 0, - 0, 0, 105, 105, 105, 105, 0, 107, 107, 105, - 0, 105, 107, 0, 0, 0, 0, 105, 105, 0, - 105, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 105, 105, 138, 105, 105, 105, 105, 105, 105, 0, - 0, 0, 107, 0, 0, 109, 0, 0, 109, 0, - 165, 165, 165, 165, 0, 110, 0, 165, 110, 165, - 0, 0, 109, 109, 0, 165, 165, 109, 0, 0, - 0, 0, 110, 110, 0, 0, 0, 110, 165, 165, - 0, 165, 165, 165, 165, 165, 164, 164, 164, 164, - 0, 112, 0, 164, 112, 164, 0, 109, 0, 0, - 0, 164, 164, 0, 0, 0, 0, 110, 112, 112, - 0, 0, 0, 112, 164, 164, 0, 164, 164, 164, - 164, 164, 0, 0, 0, 0, 0, 0, 0, 0, - 128, 128, 128, 128, 0, 111, 0, 128, 111, 128, - 0, 0, 0, 112, 0, 128, 128, 0, 0, 0, - 0, 0, 111, 111, 0, 0, 0, 111, 128, 128, - 0, 128, 128, 128, 128, 128, 0, 77, 0, 0, - 77, 0, 0, 0, 141, 141, 141, 141, 0, 0, - 0, 141, 0, 141, 77, 77, 0, 111, 0, 141, - 141, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 141, 141, 0, 141, 141, 141, 141, 141, - 0, 138, 138, 138, 138, 0, 0, 0, 138, 77, - 0, 107, 107, 107, 107, 0, 0, 0, 107, 0, - 107, 0, 0, 0, 0, 0, 0, 107, 0, 138, - 138, 0, 138, 0, 0, 0, 0, 0, 0, 107, - 107, 0, 107, 107, 107, 107, 107, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 109, 109, 109, 109, - 0, 0, 0, 109, 0, 109, 110, 110, 110, 110, - 0, 0, 0, 110, 0, 110, 0, 0, 0, 0, - 0, 0, 0, 0, 109, 109, 0, 109, 109, 109, - 109, 109, 0, 0, 110, 110, 0, 110, 110, 110, - 110, 0, 112, 112, 112, 112, 0, 0, 0, 112, - 0, 112, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 112, 112, 0, 112, 112, 112, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 111, 111, 111, 111, - 0, 0, 0, 111, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 111, 111, 0, 111, 77, 77, - 77, 77, 0, 0, 0, 77, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 77, 77, -}; -static short yycheck[] = { 15, - 95, 36, 46, 41, 36, 40, 59, 59, 100, 208, - 54, 41, 59, 199, 41, 40, 196, 257, 41, 93, - 123, 44, 202, 36, 93, 59, 40, 40, 59, 29, - 59, 40, 91, 49, 41, 58, 59, 41, 362, 131, - 63, 257, 91, 41, 60, 61, 46, 47, 59, 94, - 40, 15, 59, 53, 41, 40, 100, 41, 300, 301, - 105, 59, 41, 59, 123, 65, 66, 67, 68, 393, - 93, 40, 59, 41, 123, 41, 41, 91, 91, 123, - 41, 45, 91, 44, 48, 40, 93, 131, 40, 123, - 41, 123, 123, 59, 123, 41, 295, 58, 59, 115, - 116, 44, 63, 106, 107, 108, 109, 110, 111, 123, - 123, 40, 123, 59, 123, 40, 116, 133, 0, 59, - 36, 37, 257, 59, 40, 89, 59, 278, 314, 59, - 123, 41, 93, 266, 267, 268, 40, 270, 271, 338, - 104, 157, 158, 159, 160, 161, 162, 163, 64, 59, - 59, 33, 276, 277, 36, 37, 38, 41, 40, 44, - 42, 43, 260, 45, 297, 181, 182, 183, 184, 185, - 186, 187, 188, 189, 123, 59, 41, 59, 0, 41, - 272, 257, 64, 199, 383, 40, 278, 203, 204, 40, - 206, 155, 208, 41, 59, 298, 40, 59, 93, 215, - 93, 217, 218, 8, 9, 257, 209, 125, 298, 91, - 226, 33, 317, 91, 36, 37, 38, 93, 40, 93, - 42, 43, 36, 45, 257, 257, 300, 301, 272, 41, - 262, 300, 301, 298, 278, 125, 252, 59, 254, 255, - 260, 123, 64, 125, 126, 258, 0, 300, 301, 272, - 273, 274, 275, 300, 301, 91, 279, 40, 281, 93, - 301, 296, 300, 301, 298, 272, 273, 274, 275, 91, - 300, 301, 279, 300, 301, 370, 41, 300, 301, 33, - 303, 304, 36, 37, 38, 260, 40, 40, 42, 43, - 41, 45, 308, 300, 301, 41, 300, 301, 314, 41, - 41, 123, 41, 125, 126, 59, 125, 271, 125, 273, - 64, 272, 273, 274, 275, 279, 300, 301, 279, 59, - 281, 300, 301, 125, 340, 125, 287, 288, 289, 290, - 59, 41, 300, 301, 44, 300, 301, 91, 123, 300, - 301, 41, 303, 304, 305, 306, 307, 308, 309, 300, - 301, 312, 125, 63, 315, 316, 317, 300, 301, 41, - 300, 301, 41, 379, 300, 301, 59, 300, 301, 123, - 300, 301, 126, 40, 256, 257, 258, 259, 260, 261, - 41, 263, 264, 265, 266, 267, 268, 269, 270, 271, - 272, 273, 274, 275, 41, 41, 123, 279, 280, 41, - 282, 283, 284, 285, 286, 300, 301, 300, 301, 291, - 292, 293, 294, 295, 296, 297, 63, 123, 312, 41, - 302, 315, 316, 317, 300, 301, 300, 301, 59, 311, - 41, 313, 314, 59, 256, 257, 258, 259, 260, 261, - 41, 263, 264, 265, 266, 267, 268, 269, 270, 271, - 272, 273, 274, 275, 59, 41, 289, 279, 280, 35, - 282, 283, 284, 285, 286, 52, 300, 301, 52, 291, - 292, 293, 294, 295, 296, 297, 309, 15, 158, 312, - 302, 379, 315, 316, 317, 206, 340, 24, -1, 311, - -1, 313, 314, 309, 273, 41, 312, -1, 44, 315, - 316, 317, 256, 257, 258, 259, 260, 261, -1, 263, - 264, 265, 58, 59, -1, 269, -1, 63, 272, 273, - 274, 275, -1, 289, 290, 279, 280, -1, 282, 283, - 284, 285, 286, -1, -1, 125, -1, 291, 292, 293, - 294, 295, 296, 309, -1, -1, 312, 93, 302, 315, - 316, 317, -1, -1, -1, -1, -1, 311, 33, 313, - 314, 36, 37, 38, -1, 40, 41, 42, 43, 44, - 45, 281, -1, 125, -1, -1, -1, 287, 288, 289, - 290, -1, -1, 58, 59, -1, -1, -1, 63, 64, - -1, -1, -1, 303, 304, 305, 306, 307, 308, 309, - -1, -1, 312, -1, -1, 315, 316, 317, 272, 273, - 274, 275, -1, -1, -1, 279, 91, -1, 93, 33, - -1, -1, 36, 37, 38, -1, 40, 41, 42, 43, - 44, 45, -1, -1, 281, -1, 300, 301, -1, -1, - 287, 288, 289, 290, 58, 59, -1, -1, -1, 63, - 64, 126, -1, -1, -1, -1, 303, 304, 305, 306, - 307, 308, 309, -1, -1, 312, -1, -1, 315, 316, - 317, -1, -1, -1, -1, -1, 266, 267, 268, 93, - 270, 271, 33, 289, 290, 36, 37, 38, -1, 40, - -1, 42, 43, -1, 45, -1, 359, 360, -1, -1, - -1, 364, 308, 309, -1, -1, 312, 297, 59, 315, - 316, 317, 126, 64, 266, 267, 268, 380, 270, 271, - -1, 384, -1, -1, -1, -1, 272, 273, 274, 275, - -1, -1, -1, 279, -1, 281, -1, -1, -1, -1, - 91, 287, 288, 289, 290, 297, -1, -1, -1, -1, - -1, -1, -1, -1, 300, 301, -1, 303, 304, 305, - 306, 307, 308, 309, -1, -1, 312, -1, -1, 315, - 316, 317, 123, -1, -1, 126, -1, -1, -1, -1, - -1, -1, 257, 258, 259, 260, 261, -1, 263, 264, - 265, -1, -1, -1, 269, -1, -1, 272, 273, 274, - 275, -1, -1, -1, 279, 280, 281, 282, 283, 284, - 285, 286, 287, 288, 289, 290, 291, 292, 293, 294, - 295, 296, -1, -1, -1, 300, 301, 302, 303, 304, - 305, 306, 307, 308, 309, -1, 311, 312, 313, 314, - 315, 316, 317, 257, 258, 259, 260, 261, -1, 263, - 264, 265, -1, -1, -1, 269, -1, -1, 272, 273, - 274, 275, -1, -1, -1, 279, 280, 281, 282, 283, - 284, 285, 286, 287, 288, 289, 290, 291, 292, 293, - 294, 295, 296, -1, -1, -1, 300, 301, 302, 303, - 304, 305, 306, 307, 308, 309, -1, 311, 312, 313, - 314, 315, 316, 317, -1, 256, 257, 258, 259, 260, - 261, 63, 263, 264, 265, -1, -1, -1, 269, -1, - -1, 272, 273, 274, 275, -1, -1, -1, 279, 280, - -1, 282, 283, 284, 285, 286, -1, -1, -1, -1, - 291, 292, 293, 294, 295, 296, -1, -1, -1, 33, - -1, 302, 36, 37, 38, -1, 40, -1, 42, 43, - 311, 45, 313, 314, -1, -1, -1, -1, 335, 336, - 337, -1, 339, -1, -1, 59, -1, -1, -1, -1, - 64, -1, -1, 41, -1, -1, 44, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, 366, - 58, 59, -1, -1, -1, -1, 373, 91, -1, 33, - 377, -1, 36, 37, 38, -1, 40, -1, 42, 43, - -1, 45, -1, 390, 391, -1, 28, 29, -1, -1, - -1, -1, -1, -1, -1, 93, -1, -1, 40, 123, - 64, -1, 126, -1, 46, 47, 48, -1, -1, 33, - 52, 53, 36, 37, 38, -1, 40, -1, 42, 43, - -1, 45, -1, 65, 66, 67, 68, 91, 287, 288, - 289, 290, -1, -1, -1, -1, -1, -1, -1, -1, - 64, -1, -1, -1, -1, -1, -1, -1, 41, 308, - 309, 44, -1, 312, -1, -1, 315, 316, 317, 123, - -1, -1, 126, -1, -1, 58, 59, 91, -1, -1, - 63, -1, -1, 33, 116, -1, 36, 37, 38, -1, - 40, -1, 42, 43, -1, 45, -1, -1, -1, 281, - -1, -1, -1, -1, -1, 287, 288, 289, 290, 123, - 93, -1, 126, -1, 64, -1, -1, -1, -1, -1, - -1, 303, 304, 305, 306, 307, 308, 309, -1, -1, - 312, -1, -1, 315, 316, 317, -1, -1, -1, -1, - -1, 91, 256, 257, 258, 259, 260, 261, 180, 263, - 264, 265, -1, -1, -1, 269, -1, -1, 272, 273, - 274, 275, -1, -1, -1, 279, 280, -1, 282, 283, - 284, 285, 286, 123, -1, 207, 126, 291, 292, 293, - 294, 295, 296, -1, 272, 273, 274, 275, 302, -1, - -1, 279, -1, -1, -1, -1, -1, 311, -1, 313, - 314, -1, -1, 257, 258, 259, 260, 261, 262, 263, - 264, 265, 300, 301, -1, 269, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, 280, -1, 282, 283, - 284, 285, 286, -1, -1, -1, -1, 291, 292, 293, - 294, 295, 296, 257, 258, 259, 260, 261, 302, 263, - 264, 265, -1, -1, -1, 269, -1, 311, -1, 313, - 314, -1, 58, -1, -1, -1, 280, 63, 282, 283, - 284, 285, 286, -1, -1, -1, -1, 291, 292, 293, - 294, 295, 296, -1, -1, -1, -1, -1, 302, 272, - 273, 274, 275, -1, -1, -1, 279, 311, 281, 313, - 314, -1, -1, -1, 287, 288, -1, 257, 258, 259, - 260, 261, -1, 263, 264, 265, -1, 300, 301, 269, - 303, 304, 305, 306, 307, 308, -1, -1, -1, -1, - 280, -1, 282, 283, 284, 285, 286, -1, -1, -1, - -1, 291, 292, 293, 294, 295, 296, -1, -1, -1, - 33, -1, 302, 36, 37, 38, -1, 40, -1, 42, - 43, 311, 45, 313, 314, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, 59, -1, -1, -1, - -1, 64, -1, -1, -1, 287, 288, 289, 290, -1, - 33, -1, -1, 36, 37, 38, -1, 40, 41, 42, - 43, -1, 45, 305, 306, 307, 308, 309, 91, -1, - 312, -1, -1, 315, 316, 317, -1, -1, -1, -1, - -1, 64, -1, -1, -1, 287, 288, 289, 290, -1, - 33, -1, -1, 36, 37, 38, -1, 40, -1, 42, - 43, -1, 45, 126, 306, 307, 308, 309, 91, -1, - 312, -1, -1, 315, 316, 317, -1, -1, -1, -1, - -1, 64, -1, -1, -1, -1, -1, -1, -1, -1, - 33, -1, -1, 36, 37, 38, -1, 40, 41, 42, - 43, -1, 45, 126, -1, 281, -1, -1, 91, -1, - 93, 287, 288, 289, 290, -1, -1, -1, -1, -1, - -1, 64, -1, -1, -1, -1, -1, 303, 304, 305, - 306, 307, 308, 309, -1, -1, 312, -1, -1, 315, - 316, 317, -1, 126, 287, 288, 289, 290, 91, -1, - 33, -1, -1, 36, 37, 38, -1, 40, 41, 42, - 43, -1, 45, -1, 307, 308, 309, -1, -1, 312, - -1, -1, 315, 316, 317, -1, -1, -1, -1, -1, - -1, 64, 287, 126, 289, 290, -1, -1, -1, -1, - -1, -1, -1, -1, 257, 258, 259, 260, 261, -1, - 263, 264, 265, 308, 309, -1, 269, 312, 91, -1, - 315, 316, 317, -1, -1, -1, -1, 280, -1, 282, - 283, 284, 285, 286, -1, -1, -1, -1, 291, 292, - 293, 294, 295, 296, 257, 258, 259, 260, 261, 302, - 263, 264, 265, 126, -1, -1, 269, -1, 311, -1, - 313, 314, -1, -1, -1, -1, -1, 280, -1, 282, - 283, 284, 285, 286, -1, -1, -1, -1, 291, 292, - 293, 294, 295, 296, 257, 258, 259, 260, 261, 302, - 263, 264, 265, -1, -1, -1, 269, -1, 311, -1, - 313, 314, -1, -1, -1, -1, -1, 280, -1, 282, - 283, 284, 285, 286, -1, -1, -1, -1, 291, 292, - 293, 294, 295, 296, 257, 258, 259, 260, 261, 302, - 263, 264, 265, -1, -1, -1, 269, -1, 311, -1, - 313, 314, -1, -1, -1, -1, -1, 280, -1, 282, - 283, 284, 285, 286, -1, -1, -1, -1, 291, 292, - 293, 294, 295, 296, -1, -1, -1, 33, -1, 302, - 36, 37, 38, -1, 40, 41, 42, 43, 311, 45, - 313, 314, -1, -1, 257, 258, 259, 260, 261, -1, - 263, 264, 265, -1, -1, -1, 269, -1, 64, -1, - -1, -1, -1, -1, -1, -1, -1, 280, -1, 282, - 283, 284, 285, 286, -1, -1, -1, -1, 291, 292, - 293, 294, 295, 296, -1, 91, -1, 33, -1, 302, - 36, 37, 38, -1, 40, 41, 42, 43, 311, 45, - 313, 314, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, 64, -1, - 126, -1, -1, -1, -1, -1, 41, -1, -1, 44, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, 58, 59, 91, 33, -1, 63, 36, - 37, 38, -1, 40, -1, 42, 43, -1, 45, -1, - -1, -1, -1, -1, 287, 288, 289, 290, -1, -1, - -1, -1, -1, -1, -1, -1, -1, 64, 93, -1, - 126, 304, 305, 306, 307, 308, 309, -1, -1, 312, - -1, -1, 315, 316, 317, -1, -1, -1, -1, -1, - -1, -1, -1, -1, 91, -1, 33, -1, -1, 36, - 37, 38, -1, 40, 41, 42, 43, -1, 45, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, 64, -1, 126, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, 257, 258, 259, 260, 261, -1, 263, 264, 265, - -1, -1, -1, 269, 91, -1, -1, -1, -1, -1, - -1, -1, -1, -1, 280, -1, 282, 283, 284, 285, - 286, -1, -1, -1, -1, 291, 292, 293, 294, 295, - 296, 41, -1, -1, 44, -1, 302, -1, -1, 126, - -1, -1, -1, -1, -1, 311, -1, 313, 314, 59, - -1, 257, 258, 259, 260, 261, -1, 263, 264, 265, - -1, 33, -1, 269, 36, 37, 38, -1, 40, 41, - 42, 43, -1, 45, 280, -1, 282, 283, 284, 285, - 286, -1, -1, 93, -1, 291, 292, 293, 294, 295, - 296, -1, 64, -1, -1, -1, 302, 272, 273, 274, - 275, -1, -1, -1, 279, 311, 281, 313, 314, 256, - 257, 258, 259, 260, 261, -1, 263, 264, 265, 91, - -1, -1, 269, -1, -1, 300, 301, -1, 303, 304, - 305, 306, 307, 280, -1, 282, 283, 284, 285, 286, - -1, -1, -1, -1, 291, 292, 293, 294, 295, 296, - -1, -1, -1, 33, 126, 302, 36, 37, 38, -1, - 40, 41, 42, 43, 311, 45, 313, 314, -1, -1, - 257, 258, 259, 260, 261, -1, 263, 264, 265, -1, - -1, -1, 269, -1, 64, -1, -1, -1, -1, -1, - -1, -1, -1, 280, -1, 282, 283, 284, 285, 286, - -1, -1, -1, -1, 291, 292, 293, 294, 295, 296, - -1, 91, -1, 33, -1, 302, 36, 37, 38, -1, - 40, -1, 42, 43, 311, 45, 313, 314, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, 64, -1, 126, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, 272, 273, 274, 275, -1, -1, -1, 279, - -1, 91, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, 257, 258, 259, 260, 261, - 300, 263, 264, 265, -1, -1, -1, 269, -1, -1, - -1, -1, -1, -1, -1, -1, 126, -1, 280, -1, - 282, 283, 284, 285, 286, -1, 41, -1, -1, 291, - 292, 293, 294, 295, 296, -1, -1, -1, -1, -1, - 302, -1, -1, 58, 59, -1, -1, -1, 63, 311, - -1, 313, 314, -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, 93, -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, 41, -1, -1, - 44, 291, 292, 293, 294, 295, 296, -1, -1, -1, - -1, -1, 302, -1, 58, 59, -1, -1, -1, 63, - -1, 311, -1, 313, 314, -1, -1, 257, 258, 259, - 260, 261, -1, 263, 264, 265, -1, -1, -1, 269, - -1, -1, -1, -1, -1, -1, -1, -1, -1, 93, - 280, -1, 282, 283, 284, 285, 286, -1, -1, -1, - -1, 291, 292, 293, 294, 295, 296, 33, -1, -1, - 63, -1, 302, -1, -1, 41, -1, -1, -1, 45, - -1, 311, 48, 313, 314, 51, -1, -1, -1, 55, - 56, 57, 58, 59, -1, -1, -1, 63, 64, 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, 102, 272, 273, 274, - 275, -1, -1, -1, 279, 41, 281, -1, 44, -1, - -1, 93, 287, 288, 289, 290, -1, -1, -1, -1, - -1, -1, 58, 59, -1, 300, 301, 63, 303, 304, - 305, 306, 307, 308, 309, -1, -1, 312, -1, -1, - 315, 316, 317, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, 93, 164, 165, - 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, - 176, 177, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, 191, -1, -1, 272, 273, - 274, 275, -1, 41, -1, 279, 44, 281, -1, -1, - -1, -1, -1, 287, 288, 289, 290, -1, -1, -1, - 58, 59, -1, -1, -1, 63, 300, 301, -1, 303, - 304, 305, 306, 307, 308, 309, -1, -1, 312, -1, - -1, 315, 316, 317, -1, -1, -1, -1, -1, -1, - -1, -1, -1, 41, -1, 93, 44, -1, 281, -1, - -1, -1, -1, -1, 287, 288, 289, 290, -1, -1, - 58, 59, -1, -1, -1, 63, -1, -1, -1, -1, - 276, 304, 305, 306, 307, 308, 309, -1, -1, 312, - -1, -1, 315, 316, 317, -1, -1, -1, -1, -1, - 272, 273, 274, 275, -1, 93, -1, 279, 41, 281, - -1, 44, -1, 309, -1, 287, 288, 289, 290, -1, - -1, -1, -1, -1, -1, 58, 59, -1, 300, 301, - 63, 303, 304, 305, 306, 307, 308, 309, -1, -1, - 312, -1, -1, 315, 316, 317, 272, 273, 274, 275, - -1, -1, -1, 279, 41, 281, -1, 44, -1, -1, - 93, 287, 288, 289, 290, -1, -1, -1, -1, -1, - -1, 58, 59, -1, 300, 301, 63, 303, 304, 305, - 306, 307, 308, 309, -1, -1, 312, -1, -1, 315, - 316, 317, -1, -1, -1, -1, -1, -1, -1, -1, - -1, 41, -1, -1, 44, -1, 93, -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, 272, 273, 274, 275, -1, -1, - -1, 279, -1, 281, -1, -1, -1, -1, -1, 287, - 288, 289, 290, 93, -1, -1, -1, -1, 41, -1, - -1, 44, 300, 301, -1, 303, 304, 305, 306, 307, - 308, 309, -1, -1, 312, 58, 59, 315, 316, 317, - 63, -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, 41, -1, - 93, 44, 300, 301, -1, 303, 304, 305, 306, 307, - 308, 309, -1, -1, 312, 58, 59, 315, 316, 317, - 63, -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, - 93, -1, -1, -1, -1, -1, -1, 300, 301, -1, - 303, 304, 305, 306, 307, 308, 309, -1, -1, 312, - -1, -1, 315, 316, 317, 272, 273, 274, 275, -1, - 41, -1, 279, 44, 281, -1, -1, -1, -1, -1, - 287, 288, 289, 290, -1, -1, -1, 58, 59, -1, - -1, -1, 63, 300, 301, -1, 303, 304, 305, 306, - 307, 308, 309, -1, -1, 312, -1, -1, 315, 316, - 317, -1, 272, 273, 274, 275, -1, -1, -1, 279, - -1, 281, 93, -1, -1, -1, -1, 287, 288, 289, - 290, -1, -1, -1, -1, -1, 41, -1, -1, 44, - 300, 301, -1, 303, 304, 305, 306, 307, 308, 309, - -1, -1, 312, 58, 59, 315, 316, 317, 63, -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, 93, -1, - -1, -1, -1, 41, -1, -1, 44, 300, 301, -1, - 303, 304, 305, 306, 307, 308, 309, -1, -1, 312, - 58, 59, 315, 316, 317, 63, -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, 41, -1, 93, 44, 300, 301, -1, - 303, 304, 305, 306, 307, 308, 309, -1, -1, 312, - 58, 59, 315, 316, 317, 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, -1, 93, 41, -1, -1, 44, - -1, 272, 273, 274, 275, 41, -1, -1, 279, -1, - 281, -1, -1, 58, 59, -1, 287, 288, 289, 290, - -1, -1, 58, 59, -1, -1, -1, 63, -1, 300, - 301, -1, 303, 304, 305, 306, 307, 308, 309, -1, - -1, 312, -1, -1, 315, 316, 317, -1, 93, -1, - -1, -1, -1, -1, -1, -1, -1, 93, -1, -1, - -1, -1, -1, 41, -1, -1, 44, 272, 273, 274, - 275, 41, -1, -1, 279, -1, 281, -1, -1, -1, - 58, 59, 287, 288, 289, 290, -1, -1, 58, 59, - -1, -1, -1, 63, -1, 300, 301, -1, 303, 304, - 305, 306, 307, 308, 309, -1, -1, 312, -1, -1, - 315, 316, 317, -1, -1, 93, -1, -1, -1, -1, - -1, -1, -1, 93, 272, 273, 274, 275, -1, -1, - -1, 279, 41, 281, -1, 44, -1, -1, -1, 287, - 288, 289, 290, -1, -1, -1, -1, -1, -1, 58, - 59, -1, 300, 301, 63, 303, 304, 305, 306, 307, - 308, 309, -1, -1, 312, -1, -1, 315, 316, 317, - -1, -1, -1, -1, 272, 273, 274, 275, -1, 41, - -1, 279, 44, 281, 93, -1, -1, -1, -1, 287, - 288, 289, 290, -1, -1, -1, 58, 59, -1, -1, - -1, 63, 300, 301, -1, 303, 304, 305, 306, 307, - 308, 309, -1, -1, 312, -1, -1, 315, 316, 317, - -1, -1, -1, -1, -1, -1, -1, 272, 273, 274, - 275, 93, -1, -1, 279, -1, 272, 273, 274, 275, - -1, 41, -1, 279, 44, 281, -1, -1, -1, -1, - -1, 287, 288, 289, 290, 300, 301, -1, 58, 59, - -1, -1, -1, 63, 300, 301, -1, 303, 304, 305, - 306, 307, 308, 309, -1, -1, 312, -1, -1, 315, - 316, 317, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, 93, 272, 273, 274, 275, -1, -1, - -1, 279, 272, 273, 274, 275, -1, 41, -1, 279, - 44, 281, -1, -1, -1, -1, -1, 287, 288, 289, - 290, -1, 300, 301, 58, 59, -1, -1, -1, 63, - 300, 301, -1, 303, 304, 305, 306, 307, 308, 309, - -1, -1, 312, -1, -1, 315, 316, 317, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, 93, - -1, -1, -1, 272, 273, 274, 275, -1, 41, -1, - 279, 44, 281, -1, -1, -1, -1, -1, 287, 288, - 289, 290, -1, -1, -1, 58, 59, -1, -1, -1, - 63, 300, 301, -1, 303, 304, 305, 306, 307, 308, - 309, -1, -1, 312, -1, -1, -1, -1, -1, -1, - 272, 273, 274, 275, -1, 41, -1, 279, 44, 281, - 93, -1, -1, -1, -1, 287, 288, 289, 290, -1, - -1, -1, 58, 59, -1, -1, -1, 63, 300, 301, - -1, 303, 304, 305, 306, 307, 308, 309, -1, -1, - 312, -1, -1, -1, -1, -1, -1, -1, -1, -1, - 41, -1, -1, 44, -1, -1, -1, 93, -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, 41, - 300, 301, 44, 303, 304, 305, 306, 307, 308, 309, - -1, -1, 93, -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, 272, 273, - 274, 275, -1, 41, -1, 279, 44, 281, -1, -1, - -1, 93, -1, 287, 288, 289, 290, -1, -1, -1, - 58, 59, -1, -1, -1, 63, 300, 301, -1, 303, - 304, 305, 306, 307, 308, 309, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, 41, -1, -1, - 44, -1, -1, -1, -1, 93, -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, -1, - 303, 304, 305, 306, 307, 308, 309, -1, -1, 93, - -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, -1, 303, 304, 305, - 306, 307, 308, 309, -1, -1, -1, -1, -1, -1, - -1, 272, 273, 274, 275, -1, -1, -1, 279, 41, - 281, -1, 44, 93, -1, -1, 287, 288, 289, 290, - -1, -1, -1, -1, -1, -1, 58, 59, -1, 300, - 301, 63, 303, 304, 305, 306, 307, 308, 309, -1, - 272, 273, 274, 275, -1, 41, -1, 279, 44, 281, - -1, -1, -1, -1, -1, 287, 288, 289, 290, -1, - -1, 93, 58, 59, -1, -1, -1, 63, 300, 301, - -1, 303, 304, 305, 306, 307, 308, 309, -1, -1, - -1, -1, -1, -1, 272, 273, 274, 275, -1, 41, - -1, 279, 44, 281, -1, -1, -1, 93, -1, 287, - 288, 289, 290, -1, -1, -1, 58, 59, -1, -1, - -1, 63, 300, 301, -1, 303, 304, 305, 306, 307, - 308, 309, -1, -1, -1, -1, -1, -1, 272, 273, - 274, 275, -1, 41, -1, 279, 44, 281, -1, -1, - -1, 93, -1, 287, 288, 289, 290, -1, -1, -1, - 58, 59, -1, -1, -1, 63, 300, 301, -1, 303, - 304, 305, 306, 307, 308, -1, -1, -1, -1, -1, - 41, -1, -1, 44, -1, -1, -1, -1, -1, -1, - 41, -1, -1, 44, -1, 93, -1, 58, 59, -1, - -1, -1, 272, 273, 274, 275, -1, 58, 59, 279, - -1, 281, 63, -1, -1, -1, -1, 287, 288, -1, - 290, -1, -1, -1, -1, -1, -1, -1, -1, -1, - 300, 301, 93, 303, 304, 305, 306, 307, 308, -1, - -1, -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, -1, -1, - -1, -1, 58, 59, -1, -1, -1, 63, 300, 301, - -1, 303, 304, 305, 306, 307, 272, 273, 274, 275, - -1, 41, -1, 279, 44, 281, -1, 93, -1, -1, - -1, 287, 288, -1, -1, -1, -1, 93, 58, 59, - -1, -1, -1, 63, 300, 301, -1, 303, 304, 305, - 306, 307, -1, -1, -1, -1, -1, -1, -1, -1, - 272, 273, 274, 275, -1, 41, -1, 279, 44, 281, - -1, -1, -1, 93, -1, 287, 288, -1, -1, -1, - -1, -1, 58, 59, -1, -1, -1, 63, 300, 301, - -1, 303, 304, 305, 306, 307, -1, 41, -1, -1, - 44, -1, -1, -1, 272, 273, 274, 275, -1, -1, - -1, 279, -1, 281, 58, 59, -1, 93, -1, 287, - 288, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, 300, 301, -1, 303, 304, 305, 306, 307, - -1, 272, 273, 274, 275, -1, -1, -1, 279, 93, - -1, 272, 273, 274, 275, -1, -1, -1, 279, -1, - 281, -1, -1, -1, -1, -1, -1, 288, -1, 300, - 301, -1, 303, -1, -1, -1, -1, -1, -1, 300, - 301, -1, 303, 304, 305, 306, 307, -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, 272, 273, 274, 275, - -1, -1, -1, 279, -1, 281, -1, -1, -1, -1, - -1, -1, -1, -1, 300, 301, -1, 303, 304, 305, - 306, 307, -1, -1, 300, 301, -1, 303, 304, 305, - 306, -1, 272, 273, 274, 275, -1, -1, -1, 279, - -1, 281, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - 300, 301, -1, 303, 304, 305, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, 272, 273, 274, 275, - -1, -1, -1, 279, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, 300, 301, -1, 303, 272, 273, - 274, 275, -1, -1, -1, 279, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, 300, 301, -}; -#define YYFINAL 1 -#ifndef YYDEBUG -#define YYDEBUG 0 -#endif -#define YYMAXTOKEN 317 -#if YYDEBUG -static char *yyname[] = { -"end-of-file",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, -"'!'",0,0,"'$'","'%'","'&'",0,"'('","')'","'*'","'+'","','","'-'",0,0,0,0,0,0,0, -0,0,0,0,0,"':'","';'",0,0,0,"'?'","'@'",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, -0,0,0,0,0,0,"'['",0,"']'",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, -0,0,"'{'",0,"'}'","'~'",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, -0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, -0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, -0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"WORD","METHOD","FUNCMETH","THING", -"PMFUNC","PRIVATEREF","FUNC0SUB","UNIOPSUB","LSTOPSUB","LABEL","FORMAT","SUB", -"ANONSUB","PACKAGE","USE","WHILE","UNTIL","IF","UNLESS","ELSE","ELSIF", -"CONTINUE","FOR","LOOPEX","DOTDOT","FUNC0","FUNC1","FUNC","UNIOP","LSTOP", -"RELOP","EQOP","MULOP","ADDOP","DOLSHARP","DO","HASHBRACK","NOAMP","LOCAL","MY", -"MYSUB","COLONATTR","PREC_LOW","OROP","ANDOP","NOTOP","ASSIGNOP","OROR", -"ANDAND","BITOROP","BITANDOP","SHIFTOP","MATCHOP","UMINUS","REFGEN","POWOP", -"PREINC","PREDEC","POSTINC","POSTDEC","ARROW", -}; -static char *yyrule[] = { -"$accept : prog", -"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 ';'", -"package : PACKAGE ';'", -"$$1 :", -"use : USE startsub $$1 WORD WORD listexpr ';'", -"expr : expr ANDOP expr", -"expr : expr OROP expr", -"expr : argexpr", -"argexpr : argexpr ','", -"argexpr : argexpr ',' term", -"argexpr : term", -"listop : LSTOP indirob argexpr", -"listop : FUNC '(' indirob expr ')'", -"listop : term ARROW method '(' listexprcom ')'", -"listop : term ARROW method", -"listop : METHOD indirob listexpr", -"listop : FUNCMETH indirob '(' listexprcom ')'", -"listop : LSTOP listexpr", -"listop : FUNC '(' listexprcom ')'", -"$$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 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 -#define yyclearin (yychar=(-1)) -#define yyerrok (yyerrflag=0) -#ifdef YYSTACKSIZE -#ifndef YYMAXDEPTH -#define YYMAXDEPTH YYSTACKSIZE +typedef unsigned char yytype_uint8; +typedef signed char yytype_int8; +typedef unsigned short int yytype_uint16; +typedef short int yytype_int16; +typedef signed char yysigned_char; + +/* YYINITDEPTH -- initial size of the parser's stacks. */ +#define YYINITDEPTH 200 + +#ifdef YYDEBUG +# undef YYDEBUG #endif +#ifdef DEBUGGING +# define YYDEBUG 1 #else -#ifdef YYMAXDEPTH -#define YYSTACKSIZE YYMAXDEPTH -#else -#define YYSTACKSIZE 500 -#define YYMAXDEPTH 500 +# define YYDEBUG 0 #endif + +#ifndef YY_NULL +# define YY_NULL 0 #endif -#line 793 "perly.y" - /* PROGRAM */ -/* more stuff added to make perly_c.diff easier to apply */ +/* contains all the parser state tables; auto-generated from perly.y */ +#include "perly.tab" + +# define YYSIZE_T size_t + +#define YYEOF 0 +#define YYTERROR 1 + +#define YYACCEPT goto yyacceptlab +#define YYABORT goto yyabortlab +#define YYERROR goto yyerrlab1 + +/* Enable debugging if requested. */ +#ifdef DEBUGGING + +# define yydebug (DEBUG_p_TEST) + +# define YYFPRINTF PerlIO_printf + +# define YYDPRINTF(Args) \ +do { \ + if (yydebug) \ + YYFPRINTF Args; \ +} while (0) + +# define YYDSYMPRINTF(Title, Token, Value) \ +do { \ + if (yydebug) { \ + YYFPRINTF (Perl_debug_log, "%s ", Title); \ + yysymprint (aTHX_ Perl_debug_log, Token, Value); \ + YYFPRINTF (Perl_debug_log, "\n"); \ + } \ +} while (0) + +/*--------------------------------. +| Print this symbol on YYOUTPUT. | +`--------------------------------*/ + +static void +yysymprint(pTHX_ PerlIO * const yyoutput, int yytype, const YYSTYPE * const yyvaluep) +{ + if (yytype < YYNTOKENS) { + YYFPRINTF (yyoutput, "token %s (", yytname[yytype]); +# ifdef YYPRINT + YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep); +# else + YYFPRINTF (yyoutput, "0x%"UVxf, (UV)yyvaluep->ival); +# endif + } + else + YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]); + + YYFPRINTF (yyoutput, ")"); +} + + +/* yy_stack_print() + * print the top 8 items on the parse stack. + */ + +static void +yy_stack_print (pTHX_ const yy_parser *parser) +{ + const yy_stack_frame *ps, *min; + + min = parser->ps - 8 + 1; + if (min <= parser->stack) + min = parser->stack + 1; + + PerlIO_printf(Perl_debug_log, "\nindex:"); + for (ps = min; ps <= parser->ps; ps++) + PerlIO_printf(Perl_debug_log, " %8d", (int)(ps - parser->stack)); + + PerlIO_printf(Perl_debug_log, "\nstate:"); + for (ps = min; ps <= parser->ps; ps++) + PerlIO_printf(Perl_debug_log, " %8d", ps->state); + + PerlIO_printf(Perl_debug_log, "\ntoken:"); + for (ps = min; ps <= parser->ps; ps++) + PerlIO_printf(Perl_debug_log, " %8.8s", ps->name); -#ifdef yyparse -#undef yyparse + PerlIO_printf(Perl_debug_log, "\nvalue:"); + for (ps = min; ps <= parser->ps; ps++) { + switch (yy_type_tab[yystos[ps->state]]) { + case toketype_opval: + PerlIO_printf(Perl_debug_log, " %8.8s", + ps->val.opval + ? PL_op_name[ps->val.opval->op_type] + : "(Nullop)" + ); + break; +#ifndef PERL_IN_MADLY_C + case toketype_i_tkval: #endif -#define yyparse() Perl_yyparse(pTHX) + case toketype_ival: + PerlIO_printf(Perl_debug_log, " %8"IVdf, (IV)ps->val.ival); + break; + default: + PerlIO_printf(Perl_debug_log, " %8"UVxf, (UV)ps->val.ival); + } + } + PerlIO_printf(Perl_debug_log, "\n\n"); +} -#line 1409 "perly.c" -#define YYABORT goto yyabort -#define YYACCEPT goto yyaccept -#define YYERROR goto yyerrlab -int -yyparse() +# define YY_STACK_PRINT(parser) \ +do { \ + if (yydebug && DEBUG_v_TEST) \ + yy_stack_print (aTHX_ parser); \ +} while (0) + + +/*------------------------------------------------. +| Report that the YYRULE is going to be reduced. | +`------------------------------------------------*/ + +static void +yy_reduce_print (pTHX_ int yyrule) +{ + int yyi; + const unsigned int yylineno = yyrline[yyrule]; + YYFPRINTF (Perl_debug_log, "Reducing stack by rule %d (line %u), ", + yyrule - 1, yylineno); + /* Print the symbols being reduced, and their result. */ + for (yyi = yyprhs[yyrule]; 0 <= yyrhs[yyi]; yyi++) + YYFPRINTF (Perl_debug_log, "%s ", yytname [yyrhs[yyi]]); + YYFPRINTF (Perl_debug_log, "-> %s\n", yytname [yyr1[yyrule]]); +} + +# define YY_REDUCE_PRINT(Rule) \ +do { \ + if (yydebug) \ + yy_reduce_print (aTHX_ Rule); \ +} while (0) + +#else /* !DEBUGGING */ +# define YYDPRINTF(Args) +# define YYDSYMPRINTF(Title, Token, Value) +# define YY_STACK_PRINT(parser) +# define YY_REDUCE_PRINT(Rule) +#endif /* !DEBUGGING */ + +/* called during cleanup (via SAVEDESTRUCTOR_X) to free any items on the + * parse stack, thus avoiding leaks if we die */ + +static void +S_clear_yystack(pTHX_ const yy_parser *parser) { - 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; + yy_stack_frame *ps = parser->ps; + int i = 0; + + if (!parser->stack) + return; + + YYDPRINTF ((Perl_debug_log, "clearing the parse stack\n")); + + for (i=0; i< parser->yylen; i++) { + SvREFCNT_dec(ps[-i].compcv); + } + ps -= parser->yylen; + + /* now free whole the stack, including the just-reduced ops */ + + while (ps > parser->stack) { + LEAVE_SCOPE(ps->savestack_ix); + if (yy_type_tab[yystos[ps->state]] == toketype_opval + && ps->val.opval) + { + if (ps->compcv != PL_compcv) { + PL_compcv = ps->compcv; + PAD_SET_CUR_NOSAVE(CvPADLIST(PL_compcv), 1); + } + YYDPRINTF ((Perl_debug_log, "(freeing op)\n")); + op_free(ps->val.opval); + } + SvREFCNT_dec(ps->compcv); + ps--; + } + + Safefree(parser->stack); +} + + +/*----------. +| yyparse. | +`----------*/ + +int +#ifdef PERL_IN_MADLY_C +Perl_madparse (pTHX_ int gramtype) +#else +Perl_yyparse (pTHX_ int gramtype) #endif +{ + dVAR; + int yystate; + int yyn; + int yyresult; + + /* Lookahead token as an internal (translated) token number. */ + int yytoken = 0; - struct ysv *ysave; -#ifdef USE_ITHREADS - ENTER; /* force yydestruct() before we return */ + yy_parser *parser; /* the parser object */ + yy_stack_frame *ps; /* current parser stack frame */ + +#define YYPOPSTACK parser->ps = --ps +#define YYPUSHSTACK parser->ps = ++ps + + /* The variable used to return semantic value and location from the + action routines: ie $$. */ + YYSTYPE yyval; + +#ifndef PERL_IN_MADLY_C +# ifdef PERL_MAD + if (PL_madskills) + return madparse(gramtype); +# endif #endif - 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"))) + + YYDPRINTF ((Perl_debug_log, "Starting parse\n")); + + parser = PL_parser; + + ENTER; /* force parser state cleanup/restoration before we return */ + SAVEPPTR(parser->yylval.pval); + SAVEINT(parser->yychar); + SAVEINT(parser->yyerrstatus); + SAVEINT(parser->stack_size); + SAVEINT(parser->yylen); + SAVEVPTR(parser->stack); + SAVEVPTR(parser->ps); + + /* initialise state for this parse */ + parser->yychar = gramtype; + parser->yyerrstatus = 0; + parser->stack_size = YYINITDEPTH; + parser->yylen = 0; + Newx(parser->stack, YYINITDEPTH, yy_stack_frame); + ps = parser->ps = parser->stack; + ps->state = 0; + SAVEDESTRUCTOR_X(S_clear_yystack, parser); + +/*------------------------------------------------------------. +| yynewstate -- Push a new state, which is found in yystate. | +`------------------------------------------------------------*/ + yynewstate: + + yystate = ps->state; + + YYDPRINTF ((Perl_debug_log, "Entering state %d\n", yystate)); + + parser->yylen = 0; + { - yyn = *yys; - if (yyn >= '0' && yyn <= '9') - yydebug = yyn - '0'; + size_t size = ps - parser->stack + 1; + + /* grow the stack? We always leave 1 spare slot, + * in case of a '' -> 'foo' reduction */ + + if (size >= (size_t)parser->stack_size - 1) { + /* this will croak on insufficient memory */ + parser->stack_size *= 2; + Renew(parser->stack, parser->stack_size, yy_stack_frame); + ps = parser->ps = parser->stack + size -1; + + YYDPRINTF((Perl_debug_log, + "parser stack size increased to %lu frames\n", + (unsigned long int)parser->stack_size)); + } } -#endif - yynerrs = 0; - yyerrflag = 0; - yychar = (-1); - - /* - ** Initialize private stacks (yyparse may be called from an action) - */ - New(73, yyss, yystacksize, short); - New(73, yyvs, yystacksize, YYSTYPE); - ysave->yyss = yyss; - ysave->yyvs = yyvs; - if (!yyvs || !yyss) - goto yyoverflow; - - yyssp = yyss; - yyvsp = yyvs; - *yyssp = yystate = 0; - -yyloop: - if ((yyn = yydefred[yystate])) goto yyreduce; - if (yychar < 0) - { - if ((yychar = yylex()) < 0) yychar = 0; -#if YYDEBUG - if (yydebug) - { - yys = 0; - if (yychar <= YYMAXTOKEN) yys = yyname[yychar]; - if (!yys) yys = "illegal-symbol"; - PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n", yystate, - yychar, yys); - } +/* Do appropriate processing given the current state. */ +/* Read a lookahead token if we need one and don't already have one. */ + + /* First try to decide what to do without reference to lookahead token. */ + + yyn = yypact[yystate]; + if (yyn == YYPACT_NINF) + goto yydefault; + + /* Not known => get a lookahead token if don't already have one. */ + + /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */ + if (parser->yychar == YYEMPTY) { + YYDPRINTF ((Perl_debug_log, "Reading a token: ")); +#ifdef PERL_IN_MADLY_C + parser->yychar = PL_madskills ? madlex() : yylex(); +#else + parser->yychar = yylex(); #endif + +# ifdef EBCDIC + if (parser->yychar >= 0 && parser->yychar < 255) { + parser->yychar = NATIVE_TO_ASCII(parser->yychar); + } +# 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 - if (yyssp >= yyss + yystacksize - 1) - { - /* - ** reallocate and recover. Note that pointers - ** have to be reset, or bad things will happen - */ - int yyps_index = (yyssp - yyss); - int yypv_index = (yyvsp - yyvs); - yystacksize += YYSTACKSIZE; - ysave->yyvs = Renew(yyvs, yystacksize, YYSTYPE); - ysave->yyss = Renew(yyss, yystacksize, short); - if (!yyvs || !yyss) - goto yyoverflow; - yyssp = yyss + yyps_index; - yyvsp = yyvs + yypv_index; - } - *++yyssp = yystate = yytable[yyn]; - *++yyvsp = yylval; - yychar = (-1); - if (yyerrflag > 0) --yyerrflag; - goto yyloop; + + if (parser->yychar <= YYEOF) { + parser->yychar = yytoken = YYEOF; + YYDPRINTF ((Perl_debug_log, "Now at end of input.\n")); } - if ((yyn = yyrindex[yystate]) && (yyn += yychar) >= 0 && - yyn <= YYTABLESIZE && yycheck[yyn] == yychar) - { - yyn = yytable[yyn]; - goto yyreduce; + else { + yytoken = YYTRANSLATE (parser->yychar); + YYDSYMPRINTF ("Next token is", yytoken, &parser->yylval); } - if (yyerrflag) goto yyinrecovery; -#ifdef lint -#endif + /* If the proper action on seeing token YYTOKEN is to reduce or to + detect an error, take that action. */ + yyn += yytoken; + if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken) + goto yydefault; + yyn = yytable[yyn]; + if (yyn <= 0) { + if (yyn == 0 || yyn == YYTABLE_NINF) + goto yyerrlab; + yyn = -yyn; + goto yyreduce; + } - yyerror("syntax error"); -#ifdef lint + if (yyn == YYFINAL) + YYACCEPT; -#endif + /* Shift the lookahead token. */ + YYDPRINTF ((Perl_debug_log, "Shifting token %s, ", yytname[yytoken])); - ++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]); + /* Discard the token being shifted unless it is eof. */ + if (parser->yychar != YYEOF) + parser->yychar = YYEMPTY; + + YYPUSHSTACK; + ps->state = yyn; + ps->val = parser->yylval; + ps->compcv = (CV*)SvREFCNT_inc(PL_compcv); + ps->savestack_ix = PL_savestack_ix; +#ifdef DEBUGGING + ps->name = (const char *)(yytname[yytoken]); #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); + + /* Count tokens shifted since error; after three, turn off error + status. */ + if (parser->yyerrstatus) + parser->yyerrstatus--; + + goto yynewstate; + + + /*-----------------------------------------------------------. + | yydefault -- do the default action for the current state. | + `-----------------------------------------------------------*/ + yydefault: + yyn = yydefact[yystate]; + if (yyn == 0) + goto yyerrlab; + goto yyreduce; + + + /*-----------------------------. + | yyreduce -- Do a reduction. | + `-----------------------------*/ + yyreduce: + /* yyn is the number of a rule to reduce with. */ + parser->yylen = yyr2[yyn]; + + /* If YYLEN is nonzero, implement the default value of the action: + "$$ = $1". + + Otherwise, the following line sets YYVAL to garbage. + This behavior is undocumented and Bison + users should not rely upon it. Assigning to YYVAL + unconditionally makes the parser a bit smaller, and it avoids a + GCC warning that YYVAL may be used uninitialized. */ + yyval = ps[1-parser->yylen].val; + + YY_STACK_PRINT(parser); + YY_REDUCE_PRINT (yyn); + + switch (yyn) { + + +#define dep() deprecate("\"do\" to call subroutines") + +#ifdef PERL_IN_MADLY_C +# define IVAL(i) (i)->tk_lval.ival +# define PVAL(p) (p)->tk_lval.pval +# define TOKEN_GETMAD(a,b,c) token_getmad((a),(b),(c)) +# define TOKEN_FREE(a) token_free(a) +# define OP_GETMAD(a,b,c) op_getmad((a),(b),(c)) +# define IF_MAD(a,b) (a) +# define DO_MAD(a) a +# define MAD +#else +# define IVAL(i) (i) +# define PVAL(p) (p) +# define TOKEN_GETMAD(a,b,c) +# define TOKEN_FREE(a) +# define OP_GETMAD(a,b,c) +# define IF_MAD(a,b) (b) +# define DO_MAD(a) +# undef MAD #endif - if (yyssp <= yyss) goto yyabort; - --yyssp; - --yyvsp; - } - } + +/* contains all the rule actions; auto-generated from perly.y */ +#include "perly.act" + } - else + { - 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 - yychar = (-1); - goto yyloop; + int i; + for (i=0; i< parser->yylen; i++) { + SvREFCNT_dec(ps[-i].compcv); + } } -yyreduce: -#if YYDEBUG - if (yydebug) - PerlIO_printf(Perl_debug_log, "yydebug: state %d, reducing by rule %d (%s)\n", - yystate, yyn, yyrule[yyn]); -#endif - 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 = 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); + + parser->ps = ps -= (parser->yylen-1); + + /* Now shift the result of the reduction. Determine what state + that goes to, based on the state we popped back to and the rule + number reduced by. */ + + ps->val = yyval; + ps->compcv = (CV*)SvREFCNT_inc(PL_compcv); + ps->savestack_ix = PL_savestack_ix; +#ifdef DEBUGGING + ps->name = (const char *)(yytname [yyr1[yyn]]); #endif - PL_expect = XSTATE; yyval.ival = block_start(TRUE); + + yyn = yyr1[yyn]; + + yystate = yypgoto[yyn - YYNTOKENS] + ps[-1].state; + if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == ps[-1].state) + yystate = yytable[yystate]; + else + yystate = yydefgoto[yyn - YYNTOKENS]; + ps->state = yystate; + + goto yynewstate; + + + /*------------------------------------. + | yyerrlab -- here on detecting error | + `------------------------------------*/ + yyerrlab: + /* If not already recovering from an error, report this error. */ + if (!parser->yyerrstatus) { + yyerror ("syntax error"); + } + + + if (parser->yyerrstatus == 3) { + /* If just tried and failed to reuse lookahead token after an + error, discard it. */ + + /* Return failure if at end of input. */ + if (parser->yychar == YYEOF) { + /* Pop the error token. */ + SvREFCNT_dec(ps->compcv); + YYPOPSTACK; + /* Pop the rest of the stack. */ + while (ps > parser->stack) { + YYDSYMPRINTF ("Error: popping", yystos[ps->state], &ps->val); + LEAVE_SCOPE(ps->savestack_ix); + if (yy_type_tab[yystos[ps->state]] == toketype_opval + && ps->val.opval) + { + YYDPRINTF ((Perl_debug_log, "(freeing op)\n")); + if (ps->compcv != PL_compcv) { + PL_compcv = ps->compcv; + PAD_SET_CUR_NOSAVE(CvPADLIST(PL_compcv), 1); + } + op_free(ps->val.opval); } -break; -case 5: -#line 156 "perly.y" -{ if (PL_copline > (line_t)yyvsp[-3].ival) - PL_copline = yyvsp[-3].ival; - yyval.opval = block_end(yyvsp[-2].ival, yyvsp[-1].opval); } -break; -case 6: -#line 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, 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 = 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 = 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 = 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 = 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 = 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, 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, 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, yyvsp[-6].ival, Nullop, yyvsp[-3].opval, yyvsp[-1].opval, yyvsp[0].opval)); } -break; -case 33: -#line 267 "perly.y" -{ OP *forop; - PL_copline = 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); - } - - 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 408 "perly.y" -{ package(Nullop); } -break; -case 71: -#line 412 "perly.y" -{ CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ } -break; -case 72: -#line 414 "perly.y" -{ utilize(yyvsp[-6].ival, yyvsp[-5].ival, yyvsp[-3].opval, yyvsp[-2].opval, yyvsp[-1].opval); } -break; -case 73: -#line 419 "perly.y" -{ yyval.opval = newLOGOP(OP_AND, 0, yyvsp[-2].opval, yyvsp[0].opval); } -break; -case 74: -#line 421 "perly.y" -{ yyval.opval = newLOGOP(yyvsp[-1].ival, 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 = bind_match(yyvsp[-1].ival, yyvsp[-2].opval, yyvsp[0].opval); } -break; -case 115: -#line 554 "perly.y" -{ yyval.opval = newUNOP(OP_NEGATE, 0, scalar(yyvsp[0].opval)); } -break; -case 116: -#line 556 "perly.y" -{ yyval.opval = yyvsp[0].opval; } -break; -case 117: -#line 558 "perly.y" -{ yyval.opval = newUNOP(OP_NOT, 0, scalar(yyvsp[0].opval)); } -break; -case 118: -#line 560 "perly.y" -{ yyval.opval = newUNOP(OP_COMPLEMENT, 0, scalar(yyvsp[0].opval));} -break; -case 119: -#line 562 "perly.y" -{ yyval.opval = newUNOP(OP_POSTINC, 0, - mod(scalar(yyvsp[-1].opval), OP_POSTINC)); } -break; -case 120: -#line 565 "perly.y" -{ yyval.opval = newUNOP(OP_POSTDEC, 0, - mod(scalar(yyvsp[-1].opval), OP_POSTDEC)); } -break; -case 121: -#line 568 "perly.y" -{ yyval.opval = newUNOP(OP_PREINC, 0, - mod(scalar(yyvsp[0].opval), OP_PREINC)); } -break; -case 122: -#line 571 "perly.y" -{ yyval.opval = newUNOP(OP_PREDEC, 0, - mod(scalar(yyvsp[0].opval), OP_PREDEC)); } -break; -case 123: -#line 578 "perly.y" -{ yyval.opval = newANONLIST(yyvsp[-1].opval); } -break; -case 124: -#line 580 "perly.y" -{ yyval.opval = newANONLIST(Nullop); } -break; -case 125: -#line 582 "perly.y" -{ yyval.opval = newANONHASH(yyvsp[-2].opval); } -break; -case 126: -#line 584 "perly.y" -{ yyval.opval = newANONHASH(Nullop); } -break; -case 127: -#line 586 "perly.y" -{ yyval.opval = newANONATTRSUB(yyvsp[-3].ival, yyvsp[-2].opval, yyvsp[-1].opval, yyvsp[0].opval); } -break; -case 128: -#line 592 "perly.y" -{ yyval.opval = dofile(yyvsp[0].opval); } -break; -case 129: -#line 594 "perly.y" -{ yyval.opval = newUNOP(OP_NULL, OPf_SPECIAL, scope(yyvsp[0].opval)); } -break; -case 130: -#line 596 "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 131: -#line 604 "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 132: -#line 613 "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 133: -#line 617 "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 138: -#line 629 "perly.y" -{ yyval.opval = newCONDOP(0, yyvsp[-4].opval, yyvsp[-2].opval, yyvsp[0].opval); } -break; -case 139: -#line 631 "perly.y" -{ yyval.opval = newUNOP(OP_REFGEN, 0, mod(yyvsp[0].opval,OP_REFGEN)); } -break; -case 140: -#line 633 "perly.y" -{ yyval.opval = yyvsp[0].opval; } -break; -case 141: -#line 635 "perly.y" -{ yyval.opval = localize(yyvsp[0].opval,yyvsp[-1].ival); } -break; -case 142: -#line 637 "perly.y" -{ yyval.opval = sawparens(yyvsp[-1].opval); } -break; -case 143: -#line 639 "perly.y" -{ yyval.opval = sawparens(newNULLLIST()); } -break; -case 144: -#line 641 "perly.y" -{ yyval.opval = yyvsp[0].opval; } -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 = newUNOP(OP_AV2ARYLEN, 0, ref(yyvsp[0].opval, OP_AV2ARYLEN));} -break; -case 149: -#line 651 "perly.y" -{ yyval.opval = yyvsp[0].opval; } -break; -case 150: -#line 653 "perly.y" -{ yyval.opval = newSLICEOP(0, yyvsp[-1].opval, yyvsp[-4].opval); } -break; -case 151: -#line 655 "perly.y" -{ yyval.opval = newSLICEOP(0, yyvsp[-1].opval, Nullop); } -break; -case 152: -#line 657 "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 153: -#line 663 "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 154: -#line 670 "perly.y" -{ yyval.opval = yyvsp[0].opval; } -break; -case 155: -#line 672 "perly.y" -{ yyval.opval = newUNOP(OP_ENTERSUB, 0, scalar(yyvsp[0].opval)); } -break; -case 156: -#line 674 "perly.y" -{ yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar(yyvsp[-2].opval)); } -break; -case 157: -#line 676 "perly.y" -{ yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED, - append_elem(OP_LIST, yyvsp[-1].opval, scalar(yyvsp[-3].opval))); } -break; -case 158: -#line 679 "perly.y" -{ yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED, - append_elem(OP_LIST, yyvsp[0].opval, scalar(yyvsp[-1].opval))); } -break; -case 159: -#line 682 "perly.y" -{ yyval.opval = newOP(yyvsp[0].ival, OPf_SPECIAL); - PL_hints |= HINT_BLOCK_SCOPE; } -break; -case 160: -#line 685 "perly.y" -{ yyval.opval = newLOOPEX(yyvsp[-1].ival,yyvsp[0].opval); } -break; -case 161: -#line 687 "perly.y" -{ yyval.opval = newUNOP(OP_NOT, 0, scalar(yyvsp[0].opval)); } -break; -case 162: -#line 689 "perly.y" -{ yyval.opval = newOP(yyvsp[0].ival, 0); } -break; -case 163: -#line 691 "perly.y" -{ yyval.opval = newUNOP(yyvsp[-1].ival, 0, yyvsp[0].opval); } -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(OP_ENTERSUB, OPf_STACKED, - append_elem(OP_LIST, yyvsp[0].opval, scalar(yyvsp[-1].opval))); } -break; -case 166: -#line 698 "perly.y" -{ yyval.opval = newOP(yyvsp[0].ival, 0); } -break; -case 167: -#line 700 "perly.y" -{ yyval.opval = newOP(yyvsp[-2].ival, 0); } -break; -case 168: -#line 702 "perly.y" -{ yyval.opval = newUNOP(OP_ENTERSUB, OPf_STACKED, - scalar(yyvsp[0].opval)); } -break; -case 169: -#line 705 "perly.y" -{ yyval.opval = newOP(yyvsp[-2].ival, OPf_SPECIAL); } -break; -case 170: -#line 707 "perly.y" -{ yyval.opval = newUNOP(yyvsp[-3].ival, 0, yyvsp[-1].opval); } -break; -case 171: -#line 709 "perly.y" -{ yyval.opval = pmruntime(yyvsp[-3].opval, yyvsp[-1].opval, Nullop); } -break; -case 172: -#line 711 "perly.y" -{ yyval.opval = pmruntime(yyvsp[-5].opval, yyvsp[-3].opval, yyvsp[-1].opval); } -break; -case 175: -#line 718 "perly.y" -{ yyval.opval = my_attrs(yyvsp[-1].opval,yyvsp[0].opval); } -break; -case 176: -#line 720 "perly.y" -{ yyval.opval = localize(yyvsp[0].opval,yyvsp[-1].ival); } -break; -case 177: -#line 725 "perly.y" -{ yyval.opval = sawparens(yyvsp[-1].opval); } -break; -case 178: -#line 727 "perly.y" -{ yyval.opval = sawparens(newNULLLIST()); } -break; -case 179: -#line 729 "perly.y" -{ yyval.opval = yyvsp[0].opval; } -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 738 "perly.y" -{ yyval.opval = Nullop; } -break; -case 183: -#line 740 "perly.y" -{ yyval.opval = yyvsp[0].opval; } -break; -case 184: -#line 744 "perly.y" -{ yyval.opval = Nullop; } -break; -case 185: -#line 746 "perly.y" -{ yyval.opval = yyvsp[0].opval; } -break; -case 186: -#line 748 "perly.y" -{ yyval.opval = yyvsp[-1].opval; } -break; -case 187: -#line 754 "perly.y" -{ PL_in_my = 0; yyval.opval = my(yyvsp[0].opval); } -break; -case 188: -#line 758 "perly.y" -{ yyval.opval = newCVREF(yyvsp[-1].ival,yyvsp[0].opval); } -break; -case 189: -#line 762 "perly.y" -{ yyval.opval = newSVREF(yyvsp[0].opval); } -break; -case 190: -#line 766 "perly.y" -{ yyval.opval = newAVREF(yyvsp[0].opval); } -break; -case 191: -#line 770 "perly.y" -{ yyval.opval = newHVREF(yyvsp[0].opval); } -break; -case 192: -#line 774 "perly.y" -{ yyval.opval = newAVREF(yyvsp[0].opval); } -break; -case 193: -#line 778 "perly.y" -{ yyval.opval = newGVREF(0,yyvsp[0].opval); } -break; -case 194: -#line 783 "perly.y" -{ yyval.opval = scalar(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 = scope(yyvsp[0].opval); } -break; -case 197: -#line 790 "perly.y" -{ yyval.opval = yyvsp[0].opval; } -break; -#line 2459 "perly.c" + SvREFCNT_dec(ps->compcv); + YYPOPSTACK; + } + YYABORT; + } + + YYDSYMPRINTF ("Error: discarding", yytoken, &parser->yylval); + parser->yychar = YYEMPTY; + } - 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 - 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 (yychar == 0) goto yyaccept; - goto yyloop; + + /* Else will try to reuse lookahead token after shifting the error + token. */ + goto yyerrlab1; + + + /*----------------------------------------------------. + | yyerrlab1 -- error raised explicitly by an action. | + `----------------------------------------------------*/ + yyerrlab1: + parser->yyerrstatus = 3; /* Each real token shifted decrements this. */ + + for (;;) { + yyn = yypact[yystate]; + if (yyn != YYPACT_NINF) { + yyn += YYTERROR; + if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR) { + yyn = yytable[yyn]; + if (0 < yyn) + break; + } + } + + /* Pop the current state because it cannot handle the error token. */ + if (ps == parser->stack) + YYABORT; + + YYDSYMPRINTF ("Error: popping", yystos[ps->state], &ps->val); + LEAVE_SCOPE(ps->savestack_ix); + if (yy_type_tab[yystos[ps->state]] == toketype_opval && ps->val.opval) { + YYDPRINTF ((Perl_debug_log, "(freeing op)\n")); + if (ps->compcv != PL_compcv) { + PL_compcv = ps->compcv; + PAD_SET_CUR_NOSAVE(CvPADLIST(PL_compcv), 1); + } + op_free(ps->val.opval); + } + SvREFCNT_dec(ps->compcv); + YYPOPSTACK; + yystate = ps->state; + + YY_STACK_PRINT(parser); } - 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); + + if (yyn == YYFINAL) + YYACCEPT; + + YYDPRINTF ((Perl_debug_log, "Shifting error token, ")); + + YYPUSHSTACK; + ps->state = yyn; + ps->val = parser->yylval; + ps->compcv = (CV*)SvREFCNT_inc(PL_compcv); + ps->savestack_ix = PL_savestack_ix; +#ifdef DEBUGGING + ps->name =""; #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; + + goto yynewstate; + + + /*-------------------------------------. + | yyacceptlab -- YYACCEPT comes here. | + `-------------------------------------*/ + yyacceptlab: + yyresult = 0; + for (ps=parser->ps; ps > parser->stack; ps--) { + SvREFCNT_dec(ps->compcv); } - *++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; -} + parser->ps = parser->stack; /* disable cleanup */ + goto yyreturn; -static void -yydestruct(pTHX_ void *ptr) -{ - 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); + /*-----------------------------------. + | yyabortlab -- YYABORT comes here. | + `-----------------------------------*/ + yyabortlab: + yyresult = 1; + goto yyreturn; + + yyreturn: + LEAVE; /* force parser stack cleanup before we return */ + return yyresult; } + +/* + * Local variables: + * c-indentation-style: bsd + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + * + * ex: set ts=8 sts=4 sw=4 et: + */