OS/2 Shareware BBS: 10 Tools

home *** CD-ROM | disk | FTP | other *** search

/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / PERL4036.ZIP / perly.c < prev next >

Wrap

C/C++ Source or Header | 1993-02-26 | 112KB | 2,740 lines

/* A Bison parser, made from perly.y */ #define YYBISON 1 /* Identify Bison output. */ #define WORD 258 #define LABEL 259 #define APPEND 260 #define OPEN 261 #define SSELECT 262 #define LOOPEX 263 #define DOTDOT 264 #define USING 265 #define FORMAT 266 #define DO 267 #define SHIFT 268 #define PUSH 269 #define POP 270 #define LVALFUN 271 #define WHILE 272 #define UNTIL 273 #define IF 274 #define UNLESS 275 #define ELSE 276 #define ELSIF 277 #define CONTINUE 278 #define SPLIT 279 #define FLIST 280 #define FOR 281 #define FILOP 282 #define FILOP2 283 #define FILOP3 284 #define FILOP4 285 #define FILOP22 286 #define FILOP25 287 #define FUNC0 288 #define FUNC1 289 #define FUNC2 290 #define FUNC2x 291 #define FUNC3 292 #define FUNC4 293 #define FUNC5 294 #define HSHFUN 295 #define HSHFUN3 296 #define FLIST2 297 #define SUB 298 #define FILETEST 299 #define LOCAL 300 #define DELETE 301 #define RELOP 302 #define EQOP 303 #define MULOP 304 #define ADDOP 305 #define PACKAGE 306 #define AMPER 307 #define FORMLIST 308 #define REG 309 #define ARYLEN 310 #define ARY 311 #define HSH 312 #define STAR 313 #define SUBST 314 #define PATTERN 315 #define RSTRING 316 #define TRANS 317 #define LISTOP 318 #define OROR 319 #define ANDAND 320 #define UNIOP 321 #define LS 322 #define RS 323 #define MATCH 324 #define NMATCH 325 #define UMINUS 326 #define POW 327 #define INC 328 #define DEC 329 #line 39 "perly.y" #include "INTERN.h" #include "perl.h" /*SUPPRESS 530*/ /*SUPPRESS 593*/ /*SUPPRESS 595*/ STAB *scrstab; ARG *arg4; /* rarely used arguments to make_op() */ ARG *arg5; #line 55 "perly.y" typedef union { int ival; char *cval; ARG *arg; CMD *cmdval; struct compcmd compval; STAB *stabval; FCMD *formval; } YYSTYPE; #ifndef YYLTYPE typedef struct yyltype { int timestamp; int first_line; int first_column; int last_line; int last_column; char *text; } yyltype; #define YYLTYPE yyltype #endif #include <stdio.h> #ifndef __STDC__ #define const #endif #define YYFINAL 423 #define YYFLAG -32768 #define YYNTBASE 93 #define YYTRANSLATE(x) ((unsigned)(x) <= 329 ? yytranslate[x] : 122) static const char yytranslate[] = { 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 80, 2, 2, 2, 2, 74, 2, 86, 4, 2, 90, 66, 89, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 69, 88, 2, 67, 2, 68, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 91, 2, 92, 73, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 72, 87, 81, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 70, 71, 75, 76, 77, 78, 79, 82, 83, 84, 85 }; #if YYDEBUG != 0 static const short yyprhs[] = { 0, 0, 1, 4, 8, 11, 12, 15, 21, 26, 27, 28, 31, 33, 36, 38, 41, 45, 47, 49, 53, 57, 61, 65, 71, 77, 81, 85, 92, 99, 104, 109, 117, 124, 135, 138, 139, 141, 142, 144, 145, 147, 149, 151, 153, 158, 162, 166, 170, 173, 177, 179, 182, 186, 191, 196, 201, 206, 211, 216, 221, 226, 230, 234, 238, 242, 246, 250, 254, 258, 262, 266, 270, 274, 278, 284, 288, 292, 294, 297, 300, 303, 306, 309, 312, 315, 318, 321, 324, 326, 331, 335, 338, 341, 344, 346, 348, 353, 355, 357, 363, 370, 376, 381, 387, 394, 403, 405, 407, 409, 411, 413, 419, 425, 430, 435, 438, 444, 450, 455, 460, 463, 465, 468, 470, 473, 476, 478, 481, 486, 494, 497, 502, 508, 513, 516, 519, 523, 525, 531, 538, 545, 553, 563, 570, 573, 578, 581, 586, 588, 590, 597, 603, 608, 614, 619, 622, 624, 626, 630, 634, 639, 645, 651, 658, 665, 673, 682, 687, 690, 697, 699, 701, 703, 706, 709, 713, 717, 721, 723, 725, 727, 729, 731, 733, 736, 738 }; #endif static const short yyrhs[] = { -1, 94, 99, 0, 97, 25, 97, 0, 97, 96, 0, 0, 23, 97, 0, 24, 86, 112, 4, 95, 0, 3, 98, 99, 87, 0, 0, 0, 99, 100, 0, 107, 0, 106, 102, 0, 103, 0, 106, 88, 0, 106, 101, 88, 0, 1, 0, 112, 0, 112, 21, 112, 0, 112, 22, 112, 0, 112, 19, 112, 0, 112, 20, 112, 0, 21, 86, 112, 4, 95, 0, 22, 86, 112, 4, 95, 0, 21, 97, 95, 0, 22, 97, 95, 0, 106, 19, 86, 105, 4, 95, 0, 106, 20, 86, 112, 4, 95, 0, 106, 19, 97, 95, 0, 106, 20, 97, 95, 0, 106, 28, 56, 86, 112, 120, 95, 0, 106, 28, 86, 112, 120, 95, 0, 106, 28, 86, 104, 88, 105, 88, 104, 4, 97, 0, 106, 95, 0, 0, 101, 0, 0, 112, 0, 0, 6, 0, 108, 0, 109, 0, 110, 0, 13, 5, 67, 55, 0, 13, 67, 55, 0, 45, 5, 97, 0, 53, 5, 88, 0, 66, 112, 0, 112, 66, 114, 0, 114, 0, 66, 114, 0, 114, 67, 114, 0, 114, 83, 67, 114, 0, 114, 51, 67, 114, 0, 114, 52, 67, 114, 0, 114, 76, 67, 114, 0, 114, 77, 67, 114, 0, 114, 74, 67, 114, 0, 114, 73, 67, 114, 0, 114, 72, 67, 114, 0, 114, 83, 114, 0, 114, 51, 114, 0, 114, 52, 114, 0, 114, 76, 114, 0, 114, 77, 114, 0, 114, 49, 114, 0, 114, 50, 114, 0, 114, 74, 114, 0, 114, 73, 114, 0, 114, 72, 114, 0, 114, 11, 114, 0, 114, 71, 114, 0, 114, 70, 114, 0, 114, 68, 114, 69, 114, 0, 114, 78, 114, 0, 114, 79, 114, 0, 115, 0, 89, 115, 0, 90, 115, 0, 80, 115, 0, 81, 115, 0, 115, 84, 0, 115, 85, 0, 84, 115, 0, 85, 115, 0, 46, 5, 0, 46, 114, 0, 46, 0, 47, 86, 112, 120, 0, 86, 112, 120, 0, 86, 4, 0, 14, 114, 0, 14, 97, 0, 56, 0, 60, 0, 56, 91, 112, 92, 0, 59, 0, 58, 0, 56, 3, 112, 88, 87, 0, 86, 112, 120, 91, 112, 92, 0, 86, 4, 91, 112, 92, 0, 58, 91, 112, 92, 0, 58, 3, 112, 88, 87, 0, 48, 56, 3, 112, 88, 87, 0, 48, 86, 56, 3, 112, 88, 87, 4, 0, 57, 0, 63, 0, 62, 0, 61, 0, 64, 0, 14, 5, 86, 112, 120, 0, 54, 5, 86, 112, 120, 0, 14, 5, 86, 4, 0, 54, 5, 86, 4, 0, 54, 5, 0, 14, 56, 86, 112, 120, 0, 54, 56, 86, 112, 120, 0, 14, 56, 86, 4, 0, 54, 56, 86, 4, 0, 54, 56, 0, 10, 0, 10, 5, 0, 75, 0, 75, 97, 0, 75, 114, 0, 9, 0, 9, 5, 0, 9, 86, 117, 4, 0, 9, 86, 114, 113, 113, 113, 4, 0, 8, 5, 0, 8, 86, 5, 4, 0, 8, 86, 117, 111, 4, 0, 29, 86, 117, 4, 0, 29, 5, 0, 29, 56, 0, 29, 86, 4, 0, 29, 0, 30, 86, 117, 111, 4, 0, 31, 86, 117, 113, 111, 4, 0, 33, 86, 117, 66, 117, 4, 0, 32, 86, 117, 113, 113, 111, 4, 0, 34, 86, 117, 66, 117, 113, 113, 111, 4, 0, 16, 86, 118, 66, 112, 120, 0, 17, 118, 0, 17, 86, 118, 4, 0, 15, 118, 0, 15, 86, 118, 4, 0, 15, 0, 26, 0, 26, 86, 114, 113, 113, 4, 0, 26, 86, 114, 113, 4, 0, 26, 86, 114, 4, 0, 44, 86, 114, 111, 4, 0, 27, 86, 112, 120, 0, 18, 114, 0, 18, 0, 35, 0, 35, 86, 4, 0, 36, 86, 4, 0, 36, 86, 112, 4, 0, 37, 86, 114, 111, 4, 0, 38, 86, 114, 113, 4, 0, 38, 86, 114, 113, 111, 4, 0, 39, 86, 114, 113, 111, 4, 0, 40, 86, 114, 113, 113, 111, 4, 0, 41, 86, 114, 113, 113, 113, 111, 4, 0, 42, 86, 119, 4, 0, 42, 119, 0, 43, 86, 119, 113, 111, 4, 0, 121, 0, 116, 0, 65, 0, 65, 112, 0, 65, 5, 0, 65, 5, 112, 0, 65, 56, 112, 0, 65, 97, 112, 0, 5, 0, 114, 0, 5, 0, 58, 0, 5, 0, 59, 0, 66, 4, 0, 4, 0, 5, 0 }; #if YYDEBUG != 0 static const short yyrline[] = { 0, 111, 119, 125, 127, 131, 133, 135, 140, 149, 153, 155, 159, 161, 163, 164, 174, 179, 181, 183, 186, 189, 192, 197, 200, 203, 206, 211, 215, 219, 223, 227, 266, 293, 300, 304, 306, 309, 311, 314, 316, 319, 321, 323, 327, 335, 339, 346, 367, 371, 373, 376, 380, 387, 389, 391, 393, 395, 397, 399, 401, 405, 407, 416, 418, 420, 422, 424, 426, 428, 430, 432, 436, 438, 440, 442, 444, 446, 450, 452, 454, 456, 458, 461, 464, 467, 470, 477, 480, 486, 490, 492, 494, 497, 499, 501, 503, 506, 510, 514, 520, 525, 530, 535, 541, 547, 553, 555, 557, 559, 561, 563, 569, 574, 581, 588, 595, 601, 606, 612, 617, 622, 624, 627, 629, 631, 633, 635, 641, 643, 646, 653, 660, 664, 668, 673, 677, 681, 684, 686, 688, 690, 692, 695, 700, 702, 704, 706, 708, 713, 723, 726, 729, 733, 738, 743, 746, 750, 752, 754, 756, 758, 762, 766, 770, 772, 775, 778, 783, 788, 790, 791, 794, 799, 804, 811, 816, 821, 828, 831, 834, 837, 841, 844, 848, 850, 859 }; static const char * const yytname[] = { "$","error","$illegal.","'{'","')'", "WORD","LABEL","APPEND","OPEN","SSELECT","LOOPEX","DOTDOT","USING","FORMAT", "DO","SHIFT","PUSH","POP","LVALFUN","WHILE","UNTIL","IF","UNLESS","ELSE","ELSIF", "CONTINUE","SPLIT","FLIST","FOR","FILOP","FILOP2","FILOP3","FILOP4","FILOP22", "FILOP25","FUNC0","FUNC1","FUNC2","FUNC2x","FUNC3","FUNC4","FUNC5","HSHFUN", "HSHFUN3","FLIST2","SUB","FILETEST","LOCAL","DELETE","RELOP","EQOP","MULOP", "ADDOP","PACKAGE","AMPER","FORMLIST","REG","ARYLEN","ARY","HSH","STAR","SUBST", "PATTERN","RSTRING","TRANS","LISTOP","','","'='","'?'","':'","OROR","ANDAND", "'|'","'^'","'&'","UNIOP","LS","RS","MATCH","NMATCH","'!'","'~'","UMINUS","POW", "INC","DEC","'('","'}'","';'","'-'","'+'","'['","']'","prog","@1","compblock", "else","block","remember","lineseq","line","sideff","cond","loop","nexpr","texpr", "label","decl","format","subrout","package","cexpr","expr","csexpr","sexpr", "term","listop","handle","aryword","hshword","crp","bareword","" }; #endif static const short yyr1[] = { 0, 94, 93, 95, 95, 96, 96, 96, 97, 98, 99, 99, 100, 100, 100, 100, 100, 101, 101, 101, 101, 101, 101, 102, 102, 102, 102, 103, 103, 103, 103, 103, 103, 103, 103, 104, 104, 105, 105, 106, 106, 107, 107, 107, 108, 108, 109, 110, 111, 112, 112, 113, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 116, 116, 116, 116, 116, 116, 117, 117, 118, 118, 119, 119, 120, 120, 121 }; static const short yyr2[] = { 0, 0, 2, 3, 2, 0, 2, 5, 4, 0, 0, 2, 1, 2, 1, 2, 3, 1, 1, 3, 3, 3, 3, 5, 5, 3, 3, 6, 6, 4, 4, 7, 6, 10, 2, 0, 1, 0, 1, 0, 1, 1, 1, 1, 4, 3, 3, 3, 2, 3, 1, 2, 3, 4, 4, 4, 4, 4, 4, 4, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 3, 3, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 4, 3, 2, 2, 2, 1, 1, 4, 1, 1, 5, 6, 5, 4, 5, 6, 8, 1, 1, 1, 1, 1, 5, 5, 4, 4, 2, 5, 5, 4, 4, 2, 1, 2, 1, 2, 2, 1, 2, 4, 7, 2, 4, 5, 4, 2, 2, 3, 1, 5, 6, 6, 7, 9, 6, 2, 4, 2, 4, 1, 1, 6, 5, 4, 5, 4, 2, 1, 1, 3, 3, 4, 5, 5, 6, 6, 7, 8, 4, 2, 6, 1, 1, 1, 2, 2, 3, 3, 3, 1, 1, 1, 1, 1, 1, 2, 1, 1 }; static const short yydefact[] = { 1, 10, 39, 40, 0, 0, 0, 11, 14, 0, 12, 41, 42, 43, 0, 0, 0, 0, 17, 9, 186, 0, 126, 121, 0, 148, 0, 0, 156, 0, 0, 0, 0, 149, 0, 0, 137, 0, 0, 0, 0, 0, 157, 0, 0, 0, 0, 0, 0, 0, 0, 0, 88, 0, 0, 0, 94, 106, 98, 97, 95, 109, 108, 107, 110, 172, 123, 0, 0, 0, 0, 0, 15, 0, 0, 34, 5, 0, 13, 18, 50, 77, 171, 170, 0, 45, 46, 47, 10, 130, 0, 127, 0, 122, 186, 94, 93, 92, 180, 181, 0, 146, 0, 0, 144, 155, 37, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 134, 135, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 182, 183, 0, 168, 0, 0, 86, 87, 0, 0, 0, 115, 120, 0, 0, 0, 0, 174, 94, 0, 173, 124, 125, 80, 81, 84, 85, 91, 0, 78, 79, 0, 0, 0, 4, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 82, 83, 44, 39, 186, 179, 0, 186, 179, 0, 0, 0, 0, 0, 0, 0, 38, 29, 0, 30, 0, 25, 0, 26, 0, 0, 0, 36, 0, 18, 136, 0, 0, 0, 0, 0, 0, 158, 159, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 175, 176, 177, 0, 185, 0, 90, 6, 0, 3, 21, 22, 19, 20, 49, 71, 66, 67, 0, 62, 0, 63, 52, 0, 73, 72, 0, 70, 0, 69, 0, 68, 0, 64, 0, 65, 75, 76, 0, 61, 8, 131, 0, 0, 0, 0, 128, 113, 0, 118, 0, 147, 0, 145, 0, 0, 0, 0, 152, 0, 154, 0, 37, 0, 133, 0, 0, 0, 0, 0, 160, 0, 0, 0, 0, 0, 167, 0, 0, 89, 0, 0, 114, 0, 119, 0, 0, 96, 0, 102, 0, 184, 0, 0, 54, 55, 0, 60, 59, 58, 56, 57, 53, 48, 132, 51, 0, 111, 116, 0, 27, 28, 23, 24, 151, 0, 0, 0, 32, 138, 0, 0, 0, 0, 161, 162, 0, 0, 0, 0, 0, 153, 0, 0, 112, 117, 99, 103, 101, 0, 0, 74, 0, 143, 150, 31, 0, 139, 0, 140, 0, 163, 164, 0, 0, 169, 104, 0, 100, 7, 129, 0, 141, 0, 165, 0, 0, 0, 0, 166, 105, 33, 142, 0, 0, 0 }; static const short yydefgoto[] = { 421, 1, 75, 167, 76, 88, 2, 7, 218, 78, 8, 219, 206, 9, 10, 11, 12, 13, 291, 79, 293, 80, 81, 82, 197, 101, 136, 254, 83 }; static const short yypact[] = {-32768, -32768, 133,-32768, 15, 48, 81,-32768,-32768, 438,-32768, -32768,-32768,-32768, -45, 42, 23, -49,-32768,-32768,-32768, 37, 40, 109, 791, 33, 45, 55, 2378, 1, 7, 9, 34, 91, 98, -29, 38, 122, 138, 146, 151, 152, 153, 154, 155, 157, 159, 161, 162, 56, 164, 165, 2461, 167, -27, 13, 14,-32768, 21,-32768,-32768, -32768,-32768,-32768,-32768, 879, 967, 2378, 2378, 2378, 2378, 1050,-32768, 2378, 2378,-32768, 39, 102,-32768, 201, 2753, 60,-32768,-32768, 200,-32768,-32768,-32768,-32768,-32768, 2544, -32768, 2627,-32768, 171, -2,-32768, 469,-32768,-32768, 127, -32768, 127, 127,-32768,-32768, 2378, 23, 2378, 23, 2378, 23, 2378, 23, 2378, 2378, 173, 524,-32768,-32768, 1133, 2627, 2627, 2627, 2627, 2627, 213, 1216, 2378, 2378, 2378, 2378, 2378,-32768,-32768, 20,-32768, 20, 2378,-32768, 469, 2378, 258, 207, 182, 183, 2378, 2378, 2378, 2378, 2378, 702, 2378, 206,-32768, 469, 60, 60, 104, 104, 185, 17, 60, 60, 23, 187, 23,-32768,-32768, 2378, 2378, 2378, 2378, 2378, 2378, 2378, 2378, 1714, 1797, 2378, 2378, 2378, 2378, 1880, 1963, 2046, 2129, 2212, 2378, 2378, 2295, -32768,-32768,-32768, 35, 19, 2753, 208, 24, 2669, 273, 1299, 1382, 275, 219, 283, 284, 206,-32768, 51,-32768, 71,-32768, 72,-32768, 267, 17, 2378,-32768, 203, 52, -32768, 288, 208, 227, 227, 230, 235,-32768,-32768, 74, 2704, 2669, 2669, 2669, 2669, 299, 227, 2704, 17, 2378, 302, 1465, 1548, 116, -26, 130, 83, 206, 206, 206, 2378,-32768, 1631, 217,-32768, 2378,-32768, 206, 206, 206, 206, 2753, 351, 2839, 2717, 2378, 147, 2378, -32, 2753, 2739, 334, 2796, 2378, 2648, 2378, 2648, 2378, 2831, 2378, 231, 2378, 231, 228, 228, 2378, 228,-32768,-32768, 2378, 308, 2378, 227,-32768,-32768, 17,-32768, 17,-32768, 2378, -32768, 23, 23, 23, 23,-32768, 77,-32768, 17, 2378, 23,-32768, 309, 208, 227, 2627, 2627,-32768, 317, 117, 208, 227, 227,-32768, 208, 323,-32768, 131, 2378,-32768, 17,-32768, 17, 241,-32768, 244,-32768, 107,-32768, 2378, 126, 2753, 2753, 2378, 2753, 2753, 2753, 2753, 2753, 2753, 206,-32768, 2753, 227,-32768,-32768, 17,-32768,-32768,-32768, -32768,-32768, 328, 23, 248,-32768,-32768, 338, 208, 343, 227,-32768,-32768, 344, 345, 208, 227, 347,-32768, 265, 141,-32768,-32768,-32768,-32768,-32768, 114, 23, 2788, 349, -32768,-32768,-32768, 614,-32768, 352,-32768, 227,-32768,-32768, 353, 208,-32768,-32768, 268,-32768,-32768,-32768, 355,-32768, 208,-32768, 356, 357, 23, 359,-32768,-32768,-32768,-32768, 365, 366,-32768 }; static const short yypgoto[] = {-32768, -32768, -102,-32768, -16,-32768, 279,-32768, 360,-32768,-32768, -24, 58,-32768,-32768,-32768,-32768,-32768, -127, 64, 65, -22, 256,-32768, -89, 25, -70, -162,-32768 }; #define YYLAST 2922 static const short yytable[] = { 86, 146, 97, 200, 19, 208, 105, 210, 96, 212, 19, 214, 19, 107, 109, 111, 113, 146, 144, 177, 14, 252, 84, 289, 148, 133, 19, 116, -178, 142, 140, 222, 223, 224, 225, 226, 227, 19, 98, 87, 173, 3, 89, 118, 155, 91, 188, 189, 4, 152, 154, 190, 104, 16, 308, 303, 252, 117, 311, 143, 98, 133, 164, 165, 166, 236, 335, 237, 196, 145, 199, 169, 170, 171, 172, 304, 305, 327, 318, 134, 5, 362, 15, 253, 202, -178, 17, 106, 6, 147, -178, 99, 215, 108, 119, 110, 313, 85, 196, 196, 196, 196, 196, 196, 319, 147, 231, 232, 233, 234, 235, 326, 149, 99, 93, 134, 238, 173, 253, 100, 112, 373, 288, 90, 120, 203, 92, 204, 205, 153, 388, 102, 98, -2, 355, 161, 356, 173, 173, 3, 173, 103, 135, 292, 191, 192, 4, 364, 255, 173, 257, 262, 263, 264, 265, 267, 269, 270, 271, 272, 273, 275, 277, 279, 281, 283, 284, 285, 287, 382, 207, 383, 209, 173, 211, 337, 213, 114, 5, 216, 173, 220, 173, 290, 115, 99, 6, 368,-32768,-32768, 168, 230, 173, 374, 375, 391, 173, 173, 378, 386, 358, 359, 360, 361, 334, 239, 406, 173, 121, 366, 244, 245, 246, 247, 248, 249, 250, 228, 336, 380, 169, 170, 171, 172, 122, 188, 189, 370, 371, 405, 190, 262, 123, 258, 259, 260, 261, 124, 125, 126, 127, 128, 396, 129, 342, 130, 343, 131, 132, 401, 137, 138, 345, 141, 346, 193, 347, 201, 348, 217, 349, 240, 393, 241, 350, 296, 298, 173, 242, 243, 353, 306, 173, 256, 290, 413, 251, 294, 174, 299, 307, 309, 177, 178, 416, 300, 407, 301, 302, 314, 315, 310, 312, 292, 196, 196, 316, 320, 321, 322, 323, 317, 325, 324, 328, 329, 331, 333, 340, 188, 189, 190, 352, 367, 190, 338, 175, 176, 177, 178, 341, 372, 389, 156, 157, 158, 159, 379, 384, 162, 163, 385, 392, 292, 179, 180, 394, 181, 182, 183, 184, 185, 395, 186, 187, 188, 189, 397, 399, 400, 190, 403, 404, 408, 351, 414, 410, 412, 354, 415, 417, 418,-32768, 420, 357, 422, 423, 194, 365, 77, 409, 0, 363, 0, 207, 0, 0, 0, 0, 0, 369, 0, 0, 175, 176, 177, 178, 376, 377, 0, 0, 0, 0, 381, 0, 0, 0, 0, 0, 419, 175, 176, 177, 178, 387, 182, 183, 184, 185, 0, 186, 187, 188, 189, 0, 0, 0, 190, 0, 390, 0, 181, 182, 183, 184, 185, 0, 186, 187, 188, 189, 0, 0, 0, 190, 0, 398, 0, 0, 18, 0, 19, 402, 20, 0, 0, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 29, 30, 31, 32, 0, 0, 411, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 177, 178, 69, 70, 71, 18, 72, 73, 74, 20, 0, 0, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 186, 187, 188, 189, 0, 33, 34, 190, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, -35, 73, 74, 18, 0, 0, -35, 20, 0, 0, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 0, 73, 74, 146, 0, 20, 0, 0, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 0, 0, 71, 0, 0, 73, 74, 147, 19, 0, 94, 0, 0, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 95, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 0, 73, 74, 19, 0, 150, 0, 0, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 151, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 0, 73, 74, 19, 0, 20, 0, 0, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 160, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 221, 198, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 229, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 295, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 297, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 330, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 332, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 339, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 266, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 268, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 274, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 276, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 278, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 280, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 282, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 286, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 20, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 139, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 195, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 0, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 198, 73, 74, 21, 22, 23, 0, 0, 0, 24, 25, 26, 27, 28, 0, 0, 0, 0, 0, 0, 0, 33, 34, 0, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 0, 52, 53, 54, 0, 0, 0, 0, 174, 55, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 0, 0, 0, 175, 176, 177, 178, 0, 66, 0, 0, 0, 0, 67, 68, 0, 0, 69, 70, 71, 0, 174, 73, 74, 175, 176, 177, 178, 185, 0, 186, 187, 188, 189, 0, 0, 0, 190, 0, 0, 0, 292, 179, 180, 0, 181, 182, 183, 184, 185, 0, 186, 187, 188, 189, 0, 174, 0, 190, 175, 176, 177, 178, 0, 0, 0, 0, 0, 0, 0, 174, 0, 175,-32768, 177, 178, 290, 179, 180, 0, 181, 182, 183, 184, 185, 0, 186, 187, 188, 189, 0, 0, 0, 190, 175, 176, 177, 178, 0, 186, 187, 188, 189, 0, 0, 174, 190, 0, 175, 176, 177, 178, 179, 180, 344, 181, 182, 183, 184, 185, 0, 186, 187, 188, 189, 0, 179, 180, 190, 181, 182, 183, 184, 185, 0, 186, 187, 188, 189, 0, 0, 0, 190, 175, 176, 177, 178, 0, 0, 0, 0, 175, 176, 177, 178, 0, 0, 0, 0, 0, 0, 0, 180, 0, 181, 182, 183, 184, 185, 0, 186, 187, 188, 189, 183, 184, 185, 190, 186, 187, 188, 189, 0, 0, 0, 190, 175, 176, 177, 178, 0, 0, 0, 0,-32768, 0, 177, 178, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 186, 187, 188, 189, 0, 0, 0, 190, 186, 187, 188, 189, 0, 0, 0, 190 }; static const short yycheck[] = { 16, 3, 24, 92, 3, 107, 28, 109, 24, 111, 3, 113, 3, 29, 30, 31, 32, 3, 5, 51, 5, 4, 67, 4, 3, 5, 3, 56, 4, 56, 52, 120, 121, 122, 123, 124, 125, 3, 5, 88, 66, 6, 5, 5, 66, 5, 78, 79, 13, 65, 66, 83, 27, 5, 216, 4, 4, 86, 220, 86, 5, 5, 23, 24, 25, 135, 92, 137, 90, 56, 92, 19, 20, 21, 22, 4, 4, 239, 4, 59, 45, 4, 67, 66, 86, 66, 5, 86, 53, 91, 66, 58, 114, 86, 56, 86, 223, 55, 120, 121, 122, 123, 124, 125, 231, 91, 128, 129, 130, 131, 132, 238, 91, 58, 5, 59, 138, 66, 66, 86, 86, 4, 87, 86, 86, 100, 86, 102, 103, 65, 4, 86, 5, 0, 296, 71, 298, 66, 66, 6, 66, 86, 86, 66, 84, 85, 13, 309, 164, 66, 166, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 331, 106, 333, 108, 66, 110, 92, 112, 86, 45, 115, 66, 117, 66, 66, 86, 58, 53, 314, 84, 85, 88, 127, 66, 320, 321, 357, 66, 66, 325, 92, 302, 303, 304, 305, 88, 141, 92, 66, 86, 311, 146, 147, 148, 149, 150, 151, 152, 4, 88, 88, 19, 20, 21, 22, 86, 78, 79, 316, 317, 88, 83, 253, 86, 169, 170, 171, 172, 86, 86, 86, 86, 86, 369, 86, 266, 86, 268, 86, 86, 376, 86, 86, 274, 86, 276, 55, 278, 86, 280, 86, 282, 3, 364, 56, 286, 201, 202, 66, 86, 86, 292, 4, 66, 86, 66, 402, 91, 4, 11, 4, 215, 217, 51, 52, 411, 66, 388, 4, 4, 224, 225, 88, 4, 66, 316, 317, 66, 232, 233, 234, 235, 66, 237, 4, 240, 3, 242, 243, 91, 78, 79, 83, 4, 4, 83, 251, 49, 50, 51, 52, 256, 4, 344, 67, 68, 69, 70, 4, 87, 73, 74, 87, 4, 66, 67, 68, 88, 70, 71, 72, 73, 74, 4, 76, 77, 78, 79, 4, 4, 4, 83, 4, 87, 4, 290, 87, 4, 4, 293, 4, 4, 4, 11, 4, 300, 0, 0, 88, 310, 9, 394, -1, 307, -1, 310, -1, -1, -1, -1, -1, 315, -1, -1, 49, 50, 51, 52, 322, 323, -1, -1, -1, -1, 329, -1, -1, -1, -1, -1, 415, 49, 50, 51, 52, 340, 71, 72, 73, 74, -1, 76, 77, 78, 79, -1, -1, -1, 83, -1, 354, -1, 70, 71, 72, 73, 74, -1, 76, 77, 78, 79, -1, -1, -1, 83, -1, 371, -1, -1, 1, -1, 3, 377, 5, -1, -1, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, 19, 20, 21, 22, -1, -1, 398, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, 51, 52, 84, 85, 86, 1, 88, 89, 90, 5, -1, -1, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, 76, 77, 78, 79, -1, 26, 27, 83, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 88, 89, 90, 1, -1, -1, 4, 5, -1, -1, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, -1, 89, 90, 3, -1, 5, -1, -1, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, -1, -1, 86, -1, -1, 89, 90, 91, 3, -1, 5, -1, -1, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, -1, 89, 90, 3, -1, 5, -1, -1, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, -1, 89, 90, 3, -1, 5, -1, -1, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, 4, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, 4, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, 4, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, 4, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, 4, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, 4, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, 4, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, 4, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, 67, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, 67, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, 67, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, 67, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, 67, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, 67, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, 67, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, 67, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, -1, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 5, 89, 90, 8, 9, 10, -1, -1, -1, 14, 15, 16, 17, 18, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, -1, 46, 47, 48, -1, -1, -1, -1, 11, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, -1, -1, -1, 49, 50, 51, 52, -1, 75, -1, -1, -1, -1, 80, 81, -1, -1, 84, 85, 86, -1, 11, 89, 90, 49, 50, 51, 52, 74, -1, 76, 77, 78, 79, -1, -1, -1, 83, -1, -1, -1, 66, 67, 68, -1, 70, 71, 72, 73, 74, -1, 76, 77, 78, 79, -1, 11, -1, 83, 49, 50, 51, 52, -1, -1, -1, -1, -1, -1, -1, 11, -1, 49, 50, 51, 52, 66, 67, 68, -1, 70, 71, 72, 73, 74, -1, 76, 77, 78, 79, -1, -1, -1, 83, 49, 50, 51, 52, -1, 76, 77, 78, 79, -1, -1, 11, 83, -1, 49, 50, 51, 52, 67, 68, 69, 70, 71, 72, 73, 74, -1, 76, 77, 78, 79, -1, 67, 68, 83, 70, 71, 72, 73, 74, -1, 76, 77, 78, 79, -1, -1, -1, 83, 49, 50, 51, 52, -1, -1, -1, -1, 49, 50, 51, 52, -1, -1, -1, -1, -1, -1, -1, 68, -1, 70, 71, 72, 73, 74, -1, 76, 77, 78, 79, 72, 73, 74, 83, 76, 77, 78, 79, -1, -1, -1, 83, 49, 50, 51, 52, -1, -1, -1, -1, 49, -1, 51, 52, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 76, 77, 78, 79, -1, -1, -1, 83, 76, 77, 78, 79, -1, -1, -1, 83 }; /* -*-C-*- Note some compilers choke on comments on `#line' lines. */ #line 3 "bison.simple" /* Skeleton output parser for bison, Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef alloca #ifdef __GNUC__ #define alloca __builtin_alloca #else /* not GNU C. */ #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) || defined (__sparc) #include <alloca.h> #else /* not sparc */ #if defined (MSDOS) && !defined (__TURBOC__) #include <malloc.h> #else /* not MSDOS, or __TURBOC__ */ #if defined(_AIX) #include <malloc.h> #pragma alloca #endif /* not _AIX */ #endif /* not MSDOS, or __TURBOC__ */ #endif /* not sparc. */ #endif /* not GNU C. */ #endif /* alloca not defined. */ /* This is the parser code that is written into each bison parser when the %semantic_parser declaration is not specified in the grammar. It was written by Richard Stallman by simplifying the hairy parser used when %semantic_parser is specified. */ /* Note: there must be only one dollar sign in this file. It is replaced by the list of actions, each action as one case of the switch. */ #define yyerrok (yyerrstatus = 0) #define yyclearin (yychar = YYEMPTY) #define YYEMPTY -2 #define YYEOF 0 #define YYACCEPT return(0) #define YYABORT return(1) #define YYERROR goto yyerrlab1 /* Like YYERROR except do call yyerror. This remains here temporarily to ease the transition to the new meaning of YYERROR, for GCC. Once GCC version 2 has supplanted version 1, this can go. */ #define YYFAIL goto yyerrlab #define YYRECOVERING() (!!yyerrstatus) #define YYBACKUP(token, value) \ do \ if (yychar == YYEMPTY && yylen == 1) \ { yychar = (token), yylval = (value); \ yychar1 = YYTRANSLATE (yychar); \ YYPOPSTACK; \ goto yybackup; \ } \ else \ { yyerror ("syntax error: cannot back up"); YYERROR; } \ while (0) #define YYTERROR 1 #define YYERRCODE 256 #ifndef YYPURE #define YYLEX yylex() #endif #ifdef YYPURE #ifdef YYLSP_NEEDED #define YYLEX yylex(&yylval, &yylloc) #else #define YYLEX yylex(&yylval) #endif #endif /* If nonreentrant, generate the variables here */ #ifndef YYPURE int yychar; /* the lookahead symbol */ YYSTYPE yylval; /* the semantic value of the */ /* lookahead symbol */ #ifdef YYLSP_NEEDED YYLTYPE yylloc; /* location data for the lookahead */ /* symbol */ #endif int yynerrs; /* number of parse errors so far */ #endif /* not YYPURE */ #if YYDEBUG != 0 int yydebug; /* nonzero means print parse trace */ /* Since this is uninitialized, it does not stop multiple parsers from coexisting. */ #endif /* YYINITDEPTH indicates the initial size of the parser's stacks */ #ifndef YYINITDEPTH #define YYINITDEPTH 200 #endif /* YYMAXDEPTH is the maximum size the stacks can grow to (effective only if the built-in stack extension method is used). */ #if YYMAXDEPTH == 0 #undef YYMAXDEPTH #endif #ifndef YYMAXDEPTH #define YYMAXDEPTH 10000 #endif #if __GNUC__ > 1 /* GNU C and GNU C++ define this. */ #define __yy_bcopy(FROM,TO,COUNT) __builtin_memcpy(TO,FROM,COUNT) #else /* not GNU C or C++ */ #ifndef __cplusplus /* This is the most reliable way to avoid incompatibilities in available built-in functions on various systems. */ static void __yy_bcopy (from, to, count) char *from; char *to; int count; { register char *f = from; register char *t = to; register int i = count; while (i-- > 0) *t++ = *f++; } #else /* __cplusplus */ /* This is the most reliable way to avoid incompatibilities in available built-in functions on various systems. */ static void __yy_bcopy (char *from, char *to, int count) { register char *f = from; register char *t = to; register int i = count; while (i-- > 0) *t++ = *f++; } #endif #endif #line 169 "bison.simple" int yyparse() { register int yystate; register int yyn; register short *yyssp; register YYSTYPE *yyvsp; int yyerrstatus; /* number of tokens to shift before error messages enabled */ int yychar1; /* lookahead token as an internal (translated) token number */ short yyssa[YYINITDEPTH]; /* the state stack */ YYSTYPE yyvsa[YYINITDEPTH]; /* the semantic value stack */ short *yyss = yyssa; /* refer to the stacks thru separate pointers */ YYSTYPE *yyvs = yyvsa; /* to allow yyoverflow to reallocate them elsewhere */ #ifdef YYLSP_NEEDED YYLTYPE yylsa[YYINITDEPTH]; /* the location stack */ YYLTYPE *yyls = yylsa; YYLTYPE *yylsp; #define YYPOPSTACK (yyvsp--, yyssp--, yylsp--) #else #define YYPOPSTACK (yyvsp--, yyssp--) #endif int yystacksize = YYINITDEPTH; #ifdef YYPURE int yychar; YYSTYPE yylval; int yynerrs; #ifdef YYLSP_NEEDED YYLTYPE yylloc; #endif #endif YYSTYPE yyval; /* the variable used to return */ /* semantic values from the action */ /* routines */ int yylen; #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Starting parse\n"); #endif yystate = 0; yyerrstatus = 0; yynerrs = 0; yychar = YYEMPTY; /* Cause a token to be read. */ /* Initialize stack pointers. Waste one element of value and location stack so that they stay on the same level as the state stack. The wasted elements are never initialized. */ yyssp = yyss - 1; yyvsp = yyvs; #ifdef YYLSP_NEEDED yylsp = yyls; #endif /* Push a new state, which is found in yystate . */ /* In all cases, when you get here, the value and location stacks have just been pushed. so pushing a state here evens the stacks. */ yynewstate: *++yyssp = yystate; if (yyssp >= yyss + yystacksize - 1) { /* Give user a chance to reallocate the stack */ /* Use copies of these so that the &'s don't force the real ones into memory. */ YYSTYPE *yyvs1 = yyvs; short *yyss1 = yyss; #ifdef YYLSP_NEEDED YYLTYPE *yyls1 = yyls; #endif /* Get the current used size of the three stacks, in elements. */ int size = yyssp - yyss + 1; #ifdef yyoverflow /* Each stack pointer address is followed by the size of the data in use in that stack, in bytes. */ yyoverflow("parser stack overflow", &yyss1, size * sizeof (*yyssp), &yyvs1, size * sizeof (*yyvsp), #ifdef YYLSP_NEEDED &yyls1, size * sizeof (*yylsp), #endif &yystacksize); yyss = yyss1; yyvs = yyvs1; #ifdef YYLSP_NEEDED yyls = yyls1; #endif #else /* no yyoverflow */ /* Extend the stack our own way. */ if (yystacksize >= YYMAXDEPTH) { yyerror("parser stack overflow"); return 2; } yystacksize *= 2; if (yystacksize > YYMAXDEPTH) yystacksize = YYMAXDEPTH; yyss = (short *) alloca (yystacksize * sizeof (*yyssp)); __yy_bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp)); yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp)); __yy_bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp)); #ifdef YYLSP_NEEDED yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp)); __yy_bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp)); #endif #endif /* no yyoverflow */ yyssp = yyss + size - 1; yyvsp = yyvs + size - 1; #ifdef YYLSP_NEEDED yylsp = yyls + size - 1; #endif #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Stack size increased to %d\n", yystacksize); #endif if (yyssp >= yyss + yystacksize - 1) YYABORT; } #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Entering state %d\n", yystate); #endif goto yybackup; yybackup: /* Do appropriate processing given the current state. */ /* Read a lookahead token if we need one and don't already have one. */ /* yyresume: */ /* First try to decide what to do without reference to lookahead token. */ yyn = yypact[yystate]; if (yyn == YYFLAG) goto yydefault; /* Not known => get a lookahead token if don't already have one. */ /* yychar is either YYEMPTY or YYEOF or a valid token in external form. */ if (yychar == YYEMPTY) { #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Reading a token: "); #endif yychar = YYLEX; } /* Convert token to internal form (in yychar1) for indexing tables with */ if (yychar <= 0) /* This means end of input. */ { yychar1 = 0; yychar = YYEOF; /* Don't call YYLEX any more */ #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Now at end of input.\n"); #endif } else { yychar1 = YYTRANSLATE(yychar); #if YYDEBUG != 0 if (yydebug) { fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]); /* Give the individual parser a way to print the precise meaning of a token, for further debugging info. */ #ifdef YYPRINT YYPRINT (stderr, yychar, yylval); #endif fprintf (stderr, ")\n"); } #endif } yyn += yychar1; if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1) goto yydefault; yyn = yytable[yyn]; /* yyn is what to do for this token type in this state. Negative => reduce, -yyn is rule number. Positive => shift, yyn is new state. New state is final state => don't bother to shift, just return success. 0, or most negative number => error. */ if (yyn < 0) { if (yyn == YYFLAG) goto yyerrlab; yyn = -yyn; goto yyreduce; } else if (yyn == 0) goto yyerrlab; if (yyn == YYFINAL) YYACCEPT; /* Shift the lookahead token. */ #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]); #endif /* Discard the token being shifted unless it is eof. */ if (yychar != YYEOF) yychar = YYEMPTY; *++yyvsp = yylval; #ifdef YYLSP_NEEDED *++yylsp = yylloc; #endif /* count tokens shifted since error; after three, turn off error status. */ if (yyerrstatus) yyerrstatus--; yystate = yyn; goto yynewstate; /* Do the default action for the current state. */ yydefault: yyn = yydefact[yystate]; if (yyn == 0) goto yyerrlab; /* Do a reduction. yyn is the number of a rule to reduce with. */ yyreduce: yylen = yyr2[yyn]; yyval = yyvsp[1-yylen]; /* implement default value of the action */ #if YYDEBUG != 0 if (yydebug) { int i; fprintf (stderr, "Reducing via rule %d (line %d), ", yyn, yyrline[yyn]); /* Print the symbols being reduced, and their result. */ for (i = yyprhs[yyn]; yyrhs[i] > 0; i++) fprintf (stderr, "%s ", yytname[yyrhs[i]]); fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]); } #endif switch (yyn) { case 1: #line 112 "perly.y" { #if defined(YYDEBUG) && defined(DEBUGGING) yydebug = (debug & 1); #endif expectterm = 2; ; break;} case 2: #line 119 "perly.y" { if (in_eval) eval_root = block_head(yyvsp[0].cmdval); else main_root = block_head(yyvsp[0].cmdval); ; break;} case 3: #line 126 "perly.y" { yyval.compval.comp_true = yyvsp[-2].cmdval; yyval.compval.comp_alt = yyvsp[0].cmdval; ; break;} case 4: #line 128 "perly.y" { yyval.compval.comp_true = yyvsp[-1].cmdval; yyval.compval.comp_alt = yyvsp[0].cmdval; ; break;} case 5: #line 132 "perly.y" { yyval.cmdval = Nullcmd; ; break;} case 6: #line 134 "perly.y" { yyval.cmdval = yyvsp[0].cmdval; ; break;} case 7: #line 136 "perly.y" { cmdline = yyvsp[-4].ival; yyval.cmdval = make_ccmd(C_ELSIF,1,yyvsp[-2].arg,yyvsp[0].compval); ; break;} case 8: #line 141 "perly.y" { yyval.cmdval = block_head(yyvsp[-1].cmdval); if (cmdline > (line_t)yyvsp[-3].ival) cmdline = yyvsp[-3].ival; if (savestack->ary_fill > yyvsp[-2].ival) restorelist(yyvsp[-2].ival); expectterm = 2; ; break;} case 9: #line 150 "perly.y" { yyval.ival = savestack->ary_fill; ; break;} case 10: #line 154 "perly.y" { yyval.cmdval = Nullcmd; ; break;} case 11: #line 156 "perly.y" { yyval.cmdval = append_line(yyvsp[-1].cmdval,yyvsp[0].cmdval); ; break;} case 12: #line 160 "perly.y" { yyval.cmdval = Nullcmd; ; break;} case 13: #line 162 "perly.y" { yyval.cmdval = add_label(yyvsp[-1].cval,yyvsp[0].cmdval); ; break;} case 15: #line 165 "perly.y" { if (yyvsp[-1].cval != Nullch) { yyval.cmdval = add_label(yyvsp[-1].cval, make_acmd(C_EXPR, Nullstab, Nullarg, Nullarg) ); } else { yyval.cmdval = Nullcmd; cmdline = NOLINE; } expectterm = 2; ; break;} case 16: #line 175 "perly.y" { yyval.cmdval = add_label(yyvsp[-2].cval,yyvsp[-1].cmdval); expectterm = 2; ; break;} case 17: #line 180 "perly.y" { yyval.cmdval = Nullcmd; ; break;} case 18: #line 182 "perly.y" { yyval.cmdval = make_acmd(C_EXPR, Nullstab, yyvsp[0].arg, Nullarg); ; break;} case 19: #line 184 "perly.y" { yyval.cmdval = addcond( make_acmd(C_EXPR, Nullstab, Nullarg, yyvsp[-2].arg), yyvsp[0].arg); ; break;} case 20: #line 187 "perly.y" { yyval.cmdval = addcond(invert( make_acmd(C_EXPR, Nullstab, Nullarg, yyvsp[-2].arg)), yyvsp[0].arg); ; break;} case 21: #line 190 "perly.y" { yyval.cmdval = addloop( make_acmd(C_EXPR, Nullstab, Nullarg, yyvsp[-2].arg), yyvsp[0].arg); ; break;} case 22: #line 193 "perly.y" { yyval.cmdval = addloop(invert( make_acmd(C_EXPR, Nullstab, Nullarg, yyvsp[-2].arg)), yyvsp[0].arg); ; break;} case 23: #line 198 "perly.y" { cmdline = yyvsp[-4].ival; yyval.cmdval = make_icmd(C_IF,yyvsp[-2].arg,yyvsp[0].compval); ; break;} case 24: #line 201 "perly.y" { cmdline = yyvsp[-4].ival; yyval.cmdval = invert(make_icmd(C_IF,yyvsp[-2].arg,yyvsp[0].compval)); ; break;} case 25: #line 204 "perly.y" { cmdline = yyvsp[-2].ival; yyval.cmdval = make_icmd(C_IF,cmd_to_arg(yyvsp[-1].cmdval),yyvsp[0].compval); ; break;} case 26: #line 207 "perly.y" { cmdline = yyvsp[-2].ival; yyval.cmdval = invert(make_icmd(C_IF,cmd_to_arg(yyvsp[-1].cmdval),yyvsp[0].compval)); ; break;} case 27: #line 212 "perly.y" { cmdline = yyvsp[-4].ival; yyval.cmdval = wopt(add_label(yyvsp[-5].cval, make_ccmd(C_WHILE,1,yyvsp[-2].arg,yyvsp[0].compval) )); ; break;} case 28: #line 216 "perly.y" { cmdline = yyvsp[-4].ival; yyval.cmdval = wopt(add_label(yyvsp[-5].cval, invert(make_ccmd(C_WHILE,1,yyvsp[-2].arg,yyvsp[0].compval)) )); ; break;} case 29: #line 220 "perly.y" { cmdline = yyvsp[-2].ival; yyval.cmdval = wopt(add_label(yyvsp[-3].cval, make_ccmd(C_WHILE, 1, cmd_to_arg(yyvsp[-1].cmdval),yyvsp[0].compval) )); ; break;} case 30: #line 224 "perly.y" { cmdline = yyvsp[-2].ival; yyval.cmdval = wopt(add_label(yyvsp[-3].cval, invert(make_ccmd(C_WHILE,1,cmd_to_arg(yyvsp[-1].cmdval),yyvsp[0].compval)) )); ; break;} case 31: #line 228 "perly.y" { cmdline = yyvsp[-5].ival; /* * The following gobbledygook catches EXPRs that * aren't explicit array refs and translates * foreach VAR (EXPR) { * into * @ary = EXPR; * foreach VAR (@ary) { * where @ary is a hidden array made by genstab(). * (Note that @ary may become a local array if * it is determined that it might be called * recursively. See cmd_tosave().) */ if (yyvsp[-2].arg->arg_type != O_ARRAY) { scrstab = aadd(genstab()); yyval.cmdval = append_line( make_acmd(C_EXPR, Nullstab, l(make_op(O_ASSIGN,2, listish(make_op(O_ARRAY, 1, stab2arg(A_STAB,scrstab), Nullarg,Nullarg )), listish(make_list(yyvsp[-2].arg)), Nullarg)), Nullarg), wopt(over(yyvsp[-4].stabval,add_label(yyvsp[-6].cval, make_ccmd(C_WHILE, 0, make_op(O_ARRAY, 1, stab2arg(A_STAB,scrstab), Nullarg,Nullarg ), yyvsp[0].compval))))); yyval.cmdval->c_line = yyvsp[-5].ival; yyval.cmdval->c_head->c_line = yyvsp[-5].ival; } else { yyval.cmdval = wopt(over(yyvsp[-4].stabval,add_label(yyvsp[-6].cval, make_ccmd(C_WHILE,1,yyvsp[-2].arg,yyvsp[0].compval) ))); } ; break;} case 32: #line 267 "perly.y" { cmdline = yyvsp[-4].ival; if (yyvsp[-2].arg->arg_type != O_ARRAY) { scrstab = aadd(genstab()); yyval.cmdval = append_line( make_acmd(C_EXPR, Nullstab, l(make_op(O_ASSIGN,2, listish(make_op(O_ARRAY, 1, stab2arg(A_STAB,scrstab), Nullarg,Nullarg )), listish(make_list(yyvsp[-2].arg)), Nullarg)), Nullarg), wopt(over(defstab,add_label(yyvsp[-5].cval, make_ccmd(C_WHILE, 0, make_op(O_ARRAY, 1, stab2arg(A_STAB,scrstab), Nullarg,Nullarg ), yyvsp[0].compval))))); yyval.cmdval->c_line = yyvsp[-4].ival; yyval.cmdval->c_head->c_line = yyvsp[-4].ival; } else { /* lisp, anyone? */ yyval.cmdval = wopt(over(defstab,add_label(yyvsp[-5].cval, make_ccmd(C_WHILE,1,yyvsp[-2].arg,yyvsp[0].compval) ))); } ; break;} case 33: #line 295 "perly.y" { yyval.compval.comp_true = yyvsp[0].cmdval; yyval.compval.comp_alt = yyvsp[-2].cmdval; cmdline = yyvsp[-8].ival; yyval.cmdval = append_line(yyvsp[-6].cmdval,wopt(add_label(yyvsp[-9].cval, make_ccmd(C_WHILE,1,yyvsp[-4].arg,yyval.compval) ))); ; break;} case 34: #line 301 "perly.y" { yyval.cmdval = add_label(yyvsp[-1].cval,make_ccmd(C_BLOCK,1,Nullarg,yyvsp[0].compval)); ; break;} case 35: #line 305 "perly.y" { yyval.cmdval = Nullcmd; ; break;} case 37: #line 310 "perly.y" { (void)scanstr("1",SCAN_DEF); yyval.arg = yylval.arg; ; break;} case 39: #line 315 "perly.y" { yyval.cval = Nullch; ; break;} case 41: #line 320 "perly.y" { yyval.ival = 0; ; break;} case 42: #line 322 "perly.y" { yyval.ival = 0; ; break;} case 43: #line 324 "perly.y" { yyval.ival = 0; ; break;} case 44: #line 328 "perly.y" { if (strEQ(yyvsp[-2].cval,"stdout")) make_form(stabent("STDOUT",TRUE),yyvsp[0].formval); else if (strEQ(yyvsp[-2].cval,"stderr")) make_form(stabent("STDERR",TRUE),yyvsp[0].formval); else make_form(stabent(yyvsp[-2].cval,TRUE),yyvsp[0].formval); Safefree(yyvsp[-2].cval); yyvsp[-2].cval = Nullch; ; break;} case 45: #line 336 "perly.y" { make_form(stabent("STDOUT",TRUE),yyvsp[0].formval); ; break;} case 46: #line 340 "perly.y" { make_sub(yyvsp[-1].cval,yyvsp[0].cmdval); cmdline = NOLINE; if (savestack->ary_fill > yyvsp[-2].ival) restorelist(yyvsp[-2].ival); ; break;} case 47: #line 347 "perly.y" { char tmpbuf[256]; STAB *tmpstab; savehptr(&curstash); saveitem(curstname); str_set(curstname,yyvsp[-1].cval); sprintf(tmpbuf,"'_%s",yyvsp[-1].cval); tmpstab = stabent(tmpbuf,TRUE); if (!stab_xhash(tmpstab)) stab_xhash(tmpstab) = hnew(0); curstash = stab_xhash(tmpstab); if (!curstash->tbl_name) curstash->tbl_name = savestr(yyvsp[-1].cval); curstash->tbl_coeffsize = 0; Safefree(yyvsp[-1].cval); yyvsp[-1].cval = Nullch; cmdline = NOLINE; expectterm = 2; ; break;} case 48: #line 368 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 49: #line 372 "perly.y" { yyval.arg = make_op(O_COMMA, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 51: #line 377 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 52: #line 381 "perly.y" { yyvsp[-2].arg = listish(yyvsp[-2].arg); if (yyvsp[-2].arg->arg_type == O_ASSIGN && yyvsp[-2].arg->arg_len == 1) yyvsp[-2].arg->arg_type = O_ITEM; /* a local() */ if (yyvsp[-2].arg->arg_type == O_LIST) yyvsp[0].arg = listish(yyvsp[0].arg); yyval.arg = l(make_op(O_ASSIGN, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg)); ; break;} case 53: #line 388 "perly.y" { yyval.arg = l(make_op(O_POW, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 54: #line 390 "perly.y" { yyval.arg = l(make_op(yyvsp[-2].ival, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 55: #line 392 "perly.y" { yyval.arg = rcatmaybe(l(make_op(yyvsp[-2].ival, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)));; break;} case 56: #line 394 "perly.y" { yyval.arg = l(make_op(O_LEFT_SHIFT, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 57: #line 396 "perly.y" { yyval.arg = l(make_op(O_RIGHT_SHIFT, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 58: #line 398 "perly.y" { yyval.arg = l(make_op(O_BIT_AND, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 59: #line 400 "perly.y" { yyval.arg = l(make_op(O_XOR, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 60: #line 402 "perly.y" { yyval.arg = l(make_op(O_BIT_OR, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 61: #line 406 "perly.y" { yyval.arg = make_op(O_POW, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 62: #line 408 "perly.y" { if (yyvsp[-1].ival == O_REPEAT) yyvsp[-2].arg = listish(yyvsp[-2].arg); yyval.arg = make_op(yyvsp[-1].ival, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); if (yyvsp[-1].ival == O_REPEAT) { if (yyval.arg[1].arg_type != A_EXPR || yyval.arg[1].arg_ptr.arg_arg->arg_type != O_LIST) yyval.arg[1].arg_flags &= ~AF_ARYOK; } ; break;} case 63: #line 417 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 64: #line 419 "perly.y" { yyval.arg = make_op(O_LEFT_SHIFT, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 65: #line 421 "perly.y" { yyval.arg = make_op(O_RIGHT_SHIFT, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 66: #line 423 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 67: #line 425 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 68: #line 427 "perly.y" { yyval.arg = make_op(O_BIT_AND, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 69: #line 429 "perly.y" { yyval.arg = make_op(O_XOR, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 70: #line 431 "perly.y" { yyval.arg = make_op(O_BIT_OR, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 71: #line 433 "perly.y" { arg4 = Nullarg; yyval.arg = make_op(O_F_OR_R, 4, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); yyval.arg[0].arg_flags |= yyvsp[-1].ival; ; break;} case 72: #line 437 "perly.y" { yyval.arg = make_op(O_AND, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 73: #line 439 "perly.y" { yyval.arg = make_op(O_OR, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 74: #line 441 "perly.y" { yyval.arg = make_op(O_COND_EXPR, 3, yyvsp[-4].arg, yyvsp[-2].arg, yyvsp[0].arg); ; break;} case 75: #line 443 "perly.y" { yyval.arg = mod_match(O_MATCH, yyvsp[-2].arg, yyvsp[0].arg); ; break;} case 76: #line 445 "perly.y" { yyval.arg = mod_match(O_NMATCH, yyvsp[-2].arg, yyvsp[0].arg); ; break;} case 77: #line 447 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 78: #line 451 "perly.y" { yyval.arg = make_op(O_NEGATE, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 79: #line 453 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 80: #line 455 "perly.y" { yyval.arg = make_op(O_NOT, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 81: #line 457 "perly.y" { yyval.arg = make_op(O_COMPLEMENT, 1, yyvsp[0].arg, Nullarg, Nullarg);; break;} case 82: #line 459 "perly.y" { yyval.arg = addflags(1, AF_POST|AF_UP, l(make_op(O_ITEM,1,yyvsp[-1].arg,Nullarg,Nullarg))); ; break;} case 83: #line 462 "perly.y" { yyval.arg = addflags(1, AF_POST, l(make_op(O_ITEM,1,yyvsp[-1].arg,Nullarg,Nullarg))); ; break;} case 84: #line 465 "perly.y" { yyval.arg = addflags(1, AF_PRE|AF_UP, l(make_op(O_ITEM,1,yyvsp[0].arg,Nullarg,Nullarg))); ; break;} case 85: #line 468 "perly.y" { yyval.arg = addflags(1, AF_PRE, l(make_op(O_ITEM,1,yyvsp[0].arg,Nullarg,Nullarg))); ; break;} case 86: #line 471 "perly.y" { opargs[yyvsp[-1].ival] = 0; /* force it special */ yyval.arg = make_op(yyvsp[-1].ival, 1, stab2arg(A_STAB,stabent(yyvsp[0].cval,TRUE)), Nullarg, Nullarg); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch; ; break;} case 87: #line 478 "perly.y" { opargs[yyvsp[-1].ival] = 1; yyval.arg = make_op(yyvsp[-1].ival, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 88: #line 481 "perly.y" { opargs[yyvsp[0].ival] = (yyvsp[0].ival != O_FTTTY); yyval.arg = make_op(yyvsp[0].ival, 1, stab2arg(A_STAB, yyvsp[0].ival == O_FTTTY?stabent("STDIN",TRUE):defstab), Nullarg, Nullarg); ; break;} case 89: #line 487 "perly.y" { yyval.arg = l(localize(make_op(O_ASSIGN, 1, localize(listish(make_list(yyvsp[-1].arg))), Nullarg,Nullarg))); ; break;} case 90: #line 491 "perly.y" { yyval.arg = make_list(yyvsp[-1].arg); ; break;} case 91: #line 493 "perly.y" { yyval.arg = make_list(Nullarg); ; break;} case 92: #line 495 "perly.y" { yyval.arg = make_op(O_DOFILE,2,yyvsp[0].arg,Nullarg,Nullarg); allstabs = TRUE;; break;} case 93: #line 498 "perly.y" { yyval.arg = cmd_to_arg(yyvsp[0].cmdval); ; break;} case 94: #line 500 "perly.y" { yyval.arg = stab2arg(A_STAB,yyvsp[0].stabval); ; break;} case 95: #line 502 "perly.y" { yyval.arg = stab2arg(A_STAR,yyvsp[0].stabval); ; break;} case 96: #line 504 "perly.y" { yyval.arg = make_op(O_AELEM, 2, stab2arg(A_STAB,aadd(yyvsp[-3].stabval)), yyvsp[-1].arg, Nullarg); ; break;} case 97: #line 507 "perly.y" { yyval.arg = make_op(O_HASH, 1, stab2arg(A_STAB,yyvsp[0].stabval), Nullarg, Nullarg); ; break;} case 98: #line 511 "perly.y" { yyval.arg = make_op(O_ARRAY, 1, stab2arg(A_STAB,yyvsp[0].stabval), Nullarg, Nullarg); ; break;} case 99: #line 515 "perly.y" { yyval.arg = make_op(O_HELEM, 2, stab2arg(A_STAB,hadd(yyvsp[-4].stabval)), jmaybe(yyvsp[-2].arg), Nullarg); expectterm = FALSE; ; break;} case 100: #line 521 "perly.y" { yyval.arg = make_op(O_LSLICE, 3, Nullarg, listish(make_list(yyvsp[-1].arg)), listish(make_list(yyvsp[-4].arg))); ; break;} case 101: #line 526 "perly.y" { yyval.arg = make_op(O_LSLICE, 3, Nullarg, listish(make_list(yyvsp[-1].arg)), Nullarg); ; break;} case 102: #line 531 "perly.y" { yyval.arg = make_op(O_ASLICE, 2, stab2arg(A_STAB,aadd(yyvsp[-3].stabval)), listish(make_list(yyvsp[-1].arg)), Nullarg); ; break;} case 103: #line 536 "perly.y" { yyval.arg = make_op(O_HSLICE, 2, stab2arg(A_STAB,hadd(yyvsp[-4].stabval)), listish(make_list(yyvsp[-2].arg)), Nullarg); expectterm = FALSE; ; break;} case 104: #line 542 "perly.y" { yyval.arg = make_op(O_DELETE, 2, stab2arg(A_STAB,hadd(yyvsp[-4].stabval)), jmaybe(yyvsp[-2].arg), Nullarg); expectterm = FALSE; ; break;} case 105: #line 548 "perly.y" { yyval.arg = make_op(O_DELETE, 2, stab2arg(A_STAB,hadd(yyvsp[-5].stabval)), jmaybe(yyvsp[-3].arg), Nullarg); expectterm = FALSE; ; break;} case 106: #line 554 "perly.y" { yyval.arg = stab2arg(A_ARYLEN,yyvsp[0].stabval); ; break;} case 107: #line 556 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 108: #line 558 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 109: #line 560 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 110: #line 562 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 111: #line 564 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_WORD,stabent(yyvsp[-3].cval,MULTI)), make_list(yyvsp[-1].arg), Nullarg); Safefree(yyvsp[-3].cval); yyvsp[-3].cval = Nullch; yyval.arg->arg_flags |= AF_DEPR; ; break;} case 112: #line 570 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_WORD,stabent(yyvsp[-3].cval,MULTI)), make_list(yyvsp[-1].arg), Nullarg); Safefree(yyvsp[-3].cval); yyvsp[-3].cval = Nullch; ; break;} case 113: #line 575 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_WORD,stabent(yyvsp[-2].cval,MULTI)), make_list(Nullarg), Nullarg); Safefree(yyvsp[-2].cval); yyvsp[-2].cval = Nullch; yyval.arg->arg_flags |= AF_DEPR; ; break;} case 114: #line 582 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_WORD,stabent(yyvsp[-2].cval,MULTI)), make_list(Nullarg), Nullarg); Safefree(yyvsp[-2].cval); yyvsp[-2].cval = Nullch; ; break;} case 115: #line 589 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_WORD,stabent(yyvsp[0].cval,MULTI)), Nullarg, Nullarg); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch; ; break;} case 116: #line 596 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_STAB,yyvsp[-3].stabval), make_list(yyvsp[-1].arg), Nullarg); yyval.arg->arg_flags |= AF_DEPR; ; break;} case 117: #line 602 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_STAB,yyvsp[-3].stabval), make_list(yyvsp[-1].arg), Nullarg); ; break;} case 118: #line 607 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_STAB,yyvsp[-2].stabval), make_list(Nullarg), Nullarg); yyval.arg->arg_flags |= AF_DEPR; ; break;} case 119: #line 613 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_STAB,yyvsp[-2].stabval), make_list(Nullarg), Nullarg); ; break;} case 120: #line 618 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_STAB,yyvsp[0].stabval), Nullarg, Nullarg); ; break;} case 121: #line 623 "perly.y" { yyval.arg = make_op(yyvsp[0].ival,0,Nullarg,Nullarg,Nullarg); ; break;} case 122: #line 625 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival,1,cval_to_arg(yyvsp[0].cval), Nullarg,Nullarg); ; break;} case 123: #line 628 "perly.y" { yyval.arg = make_op(yyvsp[0].ival,0,Nullarg,Nullarg,Nullarg); ; break;} case 124: #line 630 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival,1,cmd_to_arg(yyvsp[0].cmdval),Nullarg,Nullarg); ; break;} case 125: #line 632 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival,1,yyvsp[0].arg,Nullarg,Nullarg); ; break;} case 126: #line 634 "perly.y" { yyval.arg = make_op(O_SELECT, 0, Nullarg, Nullarg, Nullarg);; break;} case 127: #line 636 "perly.y" { yyval.arg = make_op(O_SELECT, 1, stab2arg(A_WORD,stabent(yyvsp[0].cval,TRUE)), Nullarg, Nullarg); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch; ; break;} case 128: #line 642 "perly.y" { yyval.arg = make_op(O_SELECT, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 129: #line 644 "perly.y" { arg4 = yyvsp[-1].arg; yyval.arg = make_op(O_SSELECT, 4, yyvsp[-4].arg, yyvsp[-3].arg, yyvsp[-2].arg); ; break;} case 130: #line 647 "perly.y" { yyval.arg = make_op(O_OPEN, 2, stab2arg(A_WORD,stabent(yyvsp[0].cval,TRUE)), stab2arg(A_STAB,stabent(yyvsp[0].cval,TRUE)), Nullarg); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch; ; break;} case 131: #line 654 "perly.y" { yyval.arg = make_op(O_OPEN, 2, stab2arg(A_WORD,stabent(yyvsp[-1].cval,TRUE)), stab2arg(A_STAB,stabent(yyvsp[-1].cval,TRUE)), Nullarg); Safefree(yyvsp[-1].cval); yyvsp[-1].cval = Nullch; ; break;} case 132: #line 661 "perly.y" { yyval.arg = make_op(O_OPEN, 2, yyvsp[-2].arg, yyvsp[-1].arg, Nullarg); ; break;} case 133: #line 665 "perly.y" { yyval.arg = make_op(yyvsp[-3].ival, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 134: #line 669 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival, 1, stab2arg(A_WORD,stabent(yyvsp[0].cval,TRUE)), Nullarg, Nullarg); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch; ; break;} case 135: #line 674 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival, 1, stab2arg(A_STAB,yyvsp[0].stabval), Nullarg, Nullarg); ; break;} case 136: #line 678 "perly.y" { yyval.arg = make_op(yyvsp[-2].ival, 1, stab2arg(A_WORD,Nullstab), Nullarg, Nullarg); ; break;} case 137: #line 682 "perly.y" { yyval.arg = make_op(yyvsp[0].ival, 0, Nullarg, Nullarg, Nullarg); ; break;} case 138: #line 685 "perly.y" { yyval.arg = make_op(yyvsp[-4].ival, 2, yyvsp[-2].arg, yyvsp[-1].arg, Nullarg); ; break;} case 139: #line 687 "perly.y" { yyval.arg = make_op(yyvsp[-5].ival, 3, yyvsp[-3].arg, yyvsp[-2].arg, make_list(yyvsp[-1].arg)); ; break;} case 140: #line 689 "perly.y" { yyval.arg = make_op(yyvsp[-5].ival, 2, yyvsp[-3].arg, yyvsp[-1].arg, Nullarg); ; break;} case 141: #line 691 "perly.y" { arg4 = yyvsp[-1].arg; yyval.arg = make_op(yyvsp[-6].ival, 4, yyvsp[-4].arg, yyvsp[-3].arg, yyvsp[-2].arg); ; break;} case 142: #line 693 "perly.y" { arg4 = yyvsp[-2].arg; arg5 = yyvsp[-1].arg; yyval.arg = make_op(yyvsp[-8].ival, 5, yyvsp[-6].arg, yyvsp[-4].arg, yyvsp[-3].arg); ; break;} case 143: #line 696 "perly.y" { yyval.arg = make_op(yyvsp[-5].ival, 2, yyvsp[-3].arg, make_list(yyvsp[-1].arg), Nullarg); ; break;} case 144: #line 701 "perly.y" { yyval.arg = make_op(O_POP, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 145: #line 703 "perly.y" { yyval.arg = make_op(O_POP, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 146: #line 705 "perly.y" { yyval.arg = make_op(O_SHIFT, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 147: #line 707 "perly.y" { yyval.arg = make_op(O_SHIFT, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 148: #line 709 "perly.y" { yyval.arg = make_op(O_SHIFT, 1, stab2arg(A_STAB, aadd(stabent(subline ? "_" : "ARGV", TRUE))), Nullarg, Nullarg); ; break;} case 149: #line 714 "perly.y" { static char p[]="/\\s+/"; char *oldend = bufend; ARG *oldarg = yylval.arg; bufend=p+5; (void)scanpat(p); bufend=oldend; yyval.arg = make_split(defstab,yylval.arg,Nullarg); yylval.arg = oldarg; ; break;} case 150: #line 724 "perly.y" { yyval.arg = mod_match(O_MATCH, yyvsp[-2].arg, make_split(defstab,yyvsp[-3].arg,yyvsp[-1].arg));; break;} case 151: #line 727 "perly.y" { yyval.arg = mod_match(O_MATCH, yyvsp[-1].arg, make_split(defstab,yyvsp[-2].arg,Nullarg) ); ; break;} case 152: #line 730 "perly.y" { yyval.arg = mod_match(O_MATCH, stab2arg(A_STAB,defstab), make_split(defstab,yyvsp[-1].arg,Nullarg) ); ; break;} case 153: #line 734 "perly.y" { yyval.arg = make_op(yyvsp[-4].ival, 2, yyvsp[-2].arg, listish(make_list(yyvsp[-1].arg)), Nullarg); ; break;} case 154: #line 739 "perly.y" { yyval.arg = make_op(yyvsp[-3].ival, 1, make_list(yyvsp[-1].arg), Nullarg, Nullarg); ; break;} case 155: #line 744 "perly.y" { yyval.arg = l(make_op(yyvsp[-1].ival, 1, fixl(yyvsp[-1].ival,yyvsp[0].arg), Nullarg, Nullarg)); ; break;} case 156: #line 747 "perly.y" { yyval.arg = l(make_op(yyvsp[0].ival, 1, stab2arg(A_STAB,defstab), Nullarg, Nullarg)); ; break;} case 157: #line 751 "perly.y" { yyval.arg = make_op(yyvsp[0].ival, 0, Nullarg, Nullarg, Nullarg); ; break;} case 158: #line 753 "perly.y" { yyval.arg = make_op(yyvsp[-2].ival, 0, Nullarg, Nullarg, Nullarg); ; break;} case 159: #line 755 "perly.y" { yyval.arg = make_op(yyvsp[-2].ival, 0, Nullarg, Nullarg, Nullarg); ; break;} case 160: #line 757 "perly.y" { yyval.arg = make_op(yyvsp[-3].ival, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 161: #line 759 "perly.y" { yyval.arg = make_op(yyvsp[-4].ival, 2, yyvsp[-2].arg, yyvsp[-1].arg, Nullarg); if (yyvsp[-4].ival == O_INDEX && yyval.arg[2].arg_type == A_SINGLE) fbmcompile(yyval.arg[2].arg_ptr.arg_str,0); ; break;} case 162: #line 763 "perly.y" { yyval.arg = make_op(yyvsp[-4].ival, 2, yyvsp[-2].arg, yyvsp[-1].arg, Nullarg); if (yyvsp[-4].ival == O_INDEX && yyval.arg[2].arg_type == A_SINGLE) fbmcompile(yyval.arg[2].arg_ptr.arg_str,0); ; break;} case 163: #line 767 "perly.y" { yyval.arg = make_op(yyvsp[-5].ival, 3, yyvsp[-3].arg, yyvsp[-2].arg, yyvsp[-1].arg); if (yyvsp[-5].ival == O_INDEX && yyval.arg[2].arg_type == A_SINGLE) fbmcompile(yyval.arg[2].arg_ptr.arg_str,0); ; break;} case 164: #line 771 "perly.y" { yyval.arg = make_op(yyvsp[-5].ival, 3, yyvsp[-3].arg, yyvsp[-2].arg, yyvsp[-1].arg); ; break;} case 165: #line 773 "perly.y" { arg4 = yyvsp[-1].arg; yyval.arg = make_op(yyvsp[-6].ival, 4, yyvsp[-4].arg, yyvsp[-3].arg, yyvsp[-2].arg); ; break;} case 166: #line 776 "perly.y" { arg4 = yyvsp[-2].arg; arg5 = yyvsp[-1].arg; yyval.arg = make_op(yyvsp[-7].ival, 5, yyvsp[-5].arg, yyvsp[-4].arg, yyvsp[-3].arg); ; break;} case 167: #line 779 "perly.y" { yyval.arg = make_op(yyvsp[-3].ival, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 168: #line 784 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 169: #line 789 "perly.y" { yyval.arg = make_op(yyvsp[-5].ival, 3, yyvsp[-3].arg, yyvsp[-2].arg, yyvsp[-1].arg); ; break;} case 172: #line 795 "perly.y" { yyval.arg = make_op(yyvsp[0].ival,2, stab2arg(A_WORD,Nullstab), stab2arg(A_STAB,defstab), Nullarg); ; break;} case 173: #line 800 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival,2, stab2arg(A_WORD,Nullstab), maybelistish(yyvsp[-1].ival,make_list(yyvsp[0].arg)), Nullarg); ; break;} case 174: #line 805 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival,2, stab2arg(A_WORD,stabent(yyvsp[0].cval,TRUE)), stab2arg(A_STAB,defstab), Nullarg); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch; ; break;} case 175: #line 812 "perly.y" { yyval.arg = make_op(yyvsp[-2].ival,2, stab2arg(A_WORD,stabent(yyvsp[-1].cval,TRUE)), maybelistish(yyvsp[-2].ival,make_list(yyvsp[0].arg)), Nullarg); Safefree(yyvsp[-1].cval); yyvsp[-1].cval = Nullch; ; break;} case 176: #line 817 "perly.y" { yyval.arg = make_op(yyvsp[-2].ival,2, stab2arg(A_STAB,yyvsp[-1].stabval), maybelistish(yyvsp[-2].ival,make_list(yyvsp[0].arg)), Nullarg); ; break;} case 177: #line 822 "perly.y" { yyval.arg = make_op(yyvsp[-2].ival,2, cmd_to_arg(yyvsp[-1].cmdval), maybelistish(yyvsp[-2].ival,make_list(yyvsp[0].arg)), Nullarg); ; break;} case 178: #line 829 "perly.y" { yyval.arg = stab2arg(A_WORD,stabent(yyvsp[0].cval,TRUE)); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch;; break;} case 180: #line 835 "perly.y" { yyval.arg = stab2arg(A_WORD,aadd(stabent(yyvsp[0].cval,TRUE))); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch; ; break;} case 181: #line 838 "perly.y" { yyval.arg = stab2arg(A_STAB,yyvsp[0].stabval); ; break;} case 182: #line 842 "perly.y" { yyval.arg = stab2arg(A_WORD,hadd(stabent(yyvsp[0].cval,TRUE))); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch; ; break;} case 183: #line 845 "perly.y" { yyval.arg = stab2arg(A_STAB,yyvsp[0].stabval); ; break;} case 184: #line 849 "perly.y" { yyval.ival = 1; ; break;} case 185: #line 851 "perly.y" { yyval.ival = 0; ; break;} case 186: #line 860 "perly.y" { char *s; yyval.arg = op_new(1); yyval.arg->arg_type = O_ITEM; yyval.arg[1].arg_type = A_SINGLE; yyval.arg[1].arg_ptr.arg_str = str_make(yyvsp[0].cval,0); for (s = yyvsp[0].cval; *s && isLOWER(*s); s++) ; if (dowarn && !*s) warn( "\"%s\" may clash with future reserved word", yyvsp[0].cval ); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch; ; break;} } /* the action file gets copied in in place of this dollarsign */ #line 442 "bison.simple" yyvsp -= yylen; yyssp -= yylen; #ifdef YYLSP_NEEDED yylsp -= yylen; #endif #if YYDEBUG != 0 if (yydebug) { short *ssp1 = yyss - 1; fprintf (stderr, "state stack now"); while (ssp1 != yyssp) fprintf (stderr, " %d", *++ssp1); fprintf (stderr, "\n"); } #endif *++yyvsp = yyval; #ifdef YYLSP_NEEDED yylsp++; if (yylen == 0) { yylsp->first_line = yylloc.first_line; yylsp->first_column = yylloc.first_column; yylsp->last_line = (yylsp-1)->last_line; yylsp->last_column = (yylsp-1)->last_column; yylsp->text = 0; } else { yylsp->last_line = (yylsp+yylen-1)->last_line; yylsp->last_column = (yylsp+yylen-1)->last_column; } #endif /* 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. */ yyn = yyr1[yyn]; yystate = yypgoto[yyn - YYNTBASE] + *yyssp; if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp) yystate = yytable[yystate]; else yystate = yydefgoto[yyn - YYNTBASE]; goto yynewstate; yyerrlab: /* here on detecting error */ if (! yyerrstatus) /* If not already recovering from an error, report this error. */ { ++yynerrs; #ifdef YYERROR_VERBOSE yyn = yypact[yystate]; if (yyn > YYFLAG && yyn < YYLAST) { int size = 0; char *msg; int x, count; count = 0; for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++) if (yycheck[x + yyn] == x) size += strlen(yytname[x]) + 15, count++; msg = (char *) malloc(size + 15); if (msg != 0) { strcpy(msg, "parse error"); if (count < 5) { count = 0; for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++) if (yycheck[x + yyn] == x) { strcat(msg, count == 0 ? ", expecting `" : " or `"); strcat(msg, yytname[x]); strcat(msg, "'"); count++; } } yyerror(msg); free(msg); } else yyerror ("parse error; also virtual memory exceeded"); } else #endif /* YYERROR_VERBOSE */ yyerror("parse error"); } goto yyerrlab1; yyerrlab1: /* here on error raised explicitly by an action */ if (yyerrstatus == 3) { /* if just tried and failed to reuse lookahead token after an error, discard it. */ /* return failure if at end of input */ if (yychar == YYEOF) YYABORT; #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]); #endif yychar = YYEMPTY; } /* Else will try to reuse lookahead token after shifting the error token. */ yyerrstatus = 3; /* Each real token shifted decrements this */ goto yyerrhandle; yyerrdefault: /* current state does not do anything special for the error token. */ #if 0 /* This is wrong; only states that explicitly want error tokens should shift them. */ yyn = yydefact[yystate]; /* If its default is to accept any token, ok. Otherwise pop it.*/ if (yyn) goto yydefault; #endif yyerrpop: /* pop the current state because it cannot handle the error token */ if (yyssp == yyss) YYABORT; yyvsp--; yystate = *--yyssp; #ifdef YYLSP_NEEDED yylsp--; #endif #if YYDEBUG != 0 if (yydebug) { short *ssp1 = yyss - 1; fprintf (stderr, "Error: state stack now"); while (ssp1 != yyssp) fprintf (stderr, " %d", *++ssp1); fprintf (stderr, "\n"); } #endif yyerrhandle: yyn = yypact[yystate]; if (yyn == YYFLAG) goto yyerrdefault; yyn += YYTERROR; if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR) goto yyerrdefault; yyn = yytable[yyn]; if (yyn < 0) { if (yyn == YYFLAG) goto yyerrpop; yyn = -yyn; goto yyreduce; } else if (yyn == 0) goto yyerrpop; if (yyn == YYFINAL) YYACCEPT; #if YYDEBUG != 0 if (yydebug) fprintf(stderr, "Shifting error token, "); #endif *++yyvsp = yylval; #ifdef YYLSP_NEEDED *++yylsp = yylloc; #endif yystate = yyn; goto yynewstate; } #line 873 "perly.y" /* PROGRAM */