back2roots/padua

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

/ back2roots/padua / padua.7z / padua / lang / perl4.035.V010.lzh / perl4.035 / src / perly.c < prev next >

Wrap

C/C++ Source or Header | 1992-08-11 | 112.4 KB | 2,980 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 33 "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 49 "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 }; 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 }; 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, 105, 113, 119, 121, 125, 127, 129, 134, 143, 147, 149, 153, 155, 157, 158, 168, 173, 175, 177, 180, 183, 186, 191, 194, 197, 200, 205, 209, 213, 217, 221, 260, 287, 294, 298, 300, 303, 305, 308, 310, 313, 315, 317, 321, 329, 333, 340, 361, 365, 367, 370, 374, 381, 383, 385, 387, 389, 391, 393, 395, 399, 401, 410, 412, 414, 416, 418, 420, 422, 424, 426, 430, 432, 434, 436, 438, 440, 444, 446, 448, 450, 452, 455, 458, 461, 464, 471, 474, 480, 484, 486, 488, 491, 493, 495, 497, 500, 504, 508, 514, 519, 524, 529, 535, 541, 547, 549, 551, 553, 555, 557, 563, 568, 575, 582, 589, 595, 600, 606, 611, 616, 618, 621, 623, 625, 627, 629, 635, 637, 640, 647, 654, 658, 662, 667, 671, 675, 678, 680, 682, 684, 686, 689, 694, 696, 698, 700, 702, 707, 717, 720, 723, 727, 732, 737, 740, 744, 746, 748, 750, 752, 756, 760, 764, 766, 769, 772, 777, 782, 784, 785, 788, 793, 798, 805, 810, 815, 822, 825, 828, 831, 835, 838, 842, 844, 853 }; 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 _DCC #include <alloca.h> #endif #ifdef __GNUC__ #define alloca __builtin_alloca #else /* not GNU C. */ #if (!defined (__STDC__) && 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. */ #ifdef AMIGA #define bzero(b, length) memset((b),'\0',(length)) #define bcopy(b1, b2, length) memcpy((b1),(b2),(length)) #define bcmp(b1, b2, length) memcmp((b1),(b2),(length)) #include <stdlib.h> /* extern char *calloc();*/ /* extern void done();*/ /* extern char *program_name;*/ char * mallocate(n) register unsigned n; { register char *block; /* Avoid uncertainty about what an arg of 0 will do. */ if (n == 0) n = 1; block = calloc(n,1); if (block == NULL) { fprintf(stderr, "Bison: memory exhausted\n"); /*done(1);*/ exit(1); } return (block); } /* This name is used by alloca.c. */ char * xmalloc (n) unsigned int n; { return mallocate (n); } /* alloca -- (mostly) portable public-domain implementation -- D A Gwyn last edit: 86/05/30 rms include config.h, since on VMS it renames some symbols. Use xmalloc instead of malloc. This implementation of the PWB library alloca() function, which is used to allocate space off the run-time stack so that it is automatically reclaimed upon procedure exit, was inspired by discussions with J. Q. Johnson of Cornell. It should work under any C implementation that uses an actual procedure stack (as opposed to a linked list of frames). There are some preprocessor constants that can be defined when compiling for your specific system, for improved efficiency; however, the defaults should be okay. The general concept of this implementation is to keep track of all alloca()-allocated blocks, and reclaim any that are found to be deeper in the stack than the current invocation. This heuristic does not reclaim storage as soon as it becomes invalid, but it will do so eventually. As a special case, alloca(0) reclaims storage without allocating any. It is a good idea to use alloca(0) in your main control loop, etc. to force garbage collection. */ #ifndef lint static char SCCSid[] = "@(#)alloca.c 1.1"; /* for the "what" utility */ #endif #ifdef emacs #include "config.h" #ifdef static /* actually, only want this if static is defined as "" -- this is for usg, in which emacs must undefine static in order to make unexec workable */ #ifndef STACK_DIRECTION you lose -- must know STACK_DIRECTION at compile-time #endif /* STACK_DIRECTION undefined */ #endif /* static */ #endif /* emacs */ #ifdef __STDC__ typedef void *pointer; /* generic pointer type */ #else typedef char *pointer; /* generic pointer type */ #endif #ifdef _DCC extern void free(void *); #else extern void free(); #endif /* extern pointer xmalloc();*/ /* Define STACK_DIRECTION if you know the direction of stack growth for your system; otherwise it will be automatically deduced at run-time. STACK_DIRECTION > 0 => grows toward higher addresses STACK_DIRECTION < 0 => grows toward lower addresses STACK_DIRECTION = 0 => direction of growth unknown */ #ifndef STACK_DIRECTION #define STACK_DIRECTION 0 /* direction unknown */ #endif #if STACK_DIRECTION != 0 #define STACK_DIR STACK_DIRECTION /* known at compile-time */ #else /* STACK_DIRECTION == 0; need run-time code */ static int stack_dir; /* 1 or -1 once known */ #define STACK_DIR stack_dir static void find_stack_direction (/* void */) { static char *addr = NULL; /* address of first `dummy', once known */ auto char dummy; /* to get stack address */ if (addr == NULL) { /* initial entry */ addr = &dummy; find_stack_direction (); /* recurse once */ } else /* second entry */ if (&dummy > addr) stack_dir = 1; /* stack grew upward */ else stack_dir = -1; /* stack grew downward */ } #endif /* STACK_DIRECTION == 0 */ /* An "alloca header" is used to: (a) chain together all alloca()ed blocks; (b) keep track of stack depth. It is very important that sizeof(header) agree with malloc() alignment chunk size. The following default should work okay. */ #ifndef ALIGN_SIZE #define ALIGN_SIZE sizeof(double) #endif typedef union hdr { char align[ALIGN_SIZE]; /* to force sizeof(header) */ struct { union hdr *next; /* for chaining headers */ char *deep; /* for stack depth measure */ } h; } header; /* alloca( size ) returns a pointer to at least `size' bytes of storage which will be automatically reclaimed upon exit from the procedure that called alloca(). Originally, this space was supposed to be taken from the current stack frame of the caller, but that method cannot be made to work for some implementations of C, for example under Gould's UTX/32. */ static header *last_alloca_header = NULL; /* -> last alloca header */ pointer alloca (size) /* returns pointer to storage */ #ifdef _DCC long size; /* # bytes to allocate */ #else unsigned size; /* # bytes to allocate */ #endif { auto char probe; /* probes stack depth: */ register char *depth = &probe; #if STACK_DIRECTION == 0 if (STACK_DIR == 0) /* unknown growth direction */ find_stack_direction (); #endif /* Reclaim garbage, defined as all alloca()ed storage that was allocated from deeper in the stack than currently. */ { register header *hp; /* traverses linked list */ for (hp = last_alloca_header; hp != NULL;) if ((STACK_DIR > 0 && hp->h.deep > depth) || (STACK_DIR < 0 && hp->h.deep < depth)) { register header *np = hp->h.next; free ((pointer) hp); /* collect garbage */ hp = np; /* -> next header */ } else break; /* rest are not deeper */ last_alloca_header = hp; /* -> last valid storage */ } if (size == 0) return NULL; /* no allocation required */ /* Allocate combined header + user data storage. */ { register pointer new = xmalloc (sizeof (header) + size); /* address of header */ ((header *)new)->h.next = last_alloca_header; ((header *)new)->h.deep = depth; last_alloca_header = (header *)new; /* User storage begins just after header. */ return (pointer)((char *)new + sizeof(header)); } } #endif #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--, yysp--, yylsp--) #else #define YYPOPSTACK (yyvsp--, yysp--) #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. */ 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 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 symboles 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 106 "perly.y" { #if defined(YYDEBUG) && defined(DEBUGGING) yydebug = (debug & 1); expectterm = 2; #endif ; break;} case 2: #line 113 "perly.y" { if (in_eval) eval_root = block_head(yyvsp[0].cmdval); else main_root = block_head(yyvsp[0].cmdval); ; break;} case 3: #line 120 "perly.y" { yyval.compval.comp_true = yyvsp[-2].cmdval; yyval.compval.comp_alt = yyvsp[0].cmdval; ; break;} case 4: #line 122 "perly.y" { yyval.compval.comp_true = yyvsp[-1].cmdval; yyval.compval.comp_alt = yyvsp[0].cmdval; ; break;} case 5: #line 126 "perly.y" { yyval.cmdval = Nullcmd; ; break;} case 6: #line 128 "perly.y" { yyval.cmdval = yyvsp[0].cmdval; ; break;} case 7: #line 130 "perly.y" { cmdline = yyvsp[-4].ival; yyval.cmdval = make_ccmd(C_ELSIF,1,yyvsp[-2].arg,yyvsp[0].compval); ; break;} case 8: #line 135 "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 144 "perly.y" { yyval.ival = savestack->ary_fill; ; break;} case 10: #line 148 "perly.y" { yyval.cmdval = Nullcmd; ; break;} case 11: #line 150 "perly.y" { yyval.cmdval = append_line(yyvsp[-1].cmdval,yyvsp[0].cmdval); ; break;} case 12: #line 154 "perly.y" { yyval.cmdval = Nullcmd; ; break;} case 13: #line 156 "perly.y" { yyval.cmdval = add_label(yyvsp[-1].cval,yyvsp[0].cmdval); ; break;} case 15: #line 159 "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 169 "perly.y" { yyval.cmdval = add_label(yyvsp[-2].cval,yyvsp[-1].cmdval); expectterm = 2; ; break;} case 17: #line 174 "perly.y" { yyval.cmdval = Nullcmd; ; break;} case 18: #line 176 "perly.y" { yyval.cmdval = make_acmd(C_EXPR, Nullstab, yyvsp[0].arg, Nullarg); ; break;} case 19: #line 178 "perly.y" { yyval.cmdval = addcond( make_acmd(C_EXPR, Nullstab, Nullarg, yyvsp[-2].arg), yyvsp[0].arg); ; break;} case 20: #line 181 "perly.y" { yyval.cmdval = addcond(invert( make_acmd(C_EXPR, Nullstab, Nullarg, yyvsp[-2].arg)), yyvsp[0].arg); ; break;} case 21: #line 184 "perly.y" { yyval.cmdval = addloop( make_acmd(C_EXPR, Nullstab, Nullarg, yyvsp[-2].arg), yyvsp[0].arg); ; break;} case 22: #line 187 "perly.y" { yyval.cmdval = addloop(invert( make_acmd(C_EXPR, Nullstab, Nullarg, yyvsp[-2].arg)), yyvsp[0].arg); ; break;} case 23: #line 192 "perly.y" { cmdline = yyvsp[-4].ival; yyval.cmdval = make_icmd(C_IF,yyvsp[-2].arg,yyvsp[0].compval); ; break;} case 24: #line 195 "perly.y" { cmdline = yyvsp[-4].ival; yyval.cmdval = invert(make_icmd(C_IF,yyvsp[-2].arg,yyvsp[0].compval)); ; break;} case 25: #line 198 "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 201 "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 206 "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 210 "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 214 "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 218 "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 222 "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 261 "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 289 "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 295 "perly.y" { yyval.cmdval = add_label(yyvsp[-1].cval,make_ccmd(C_BLOCK,1,Nullarg,yyvsp[0].compval)); ; break;} case 35: #line 299 "perly.y" { yyval.cmdval = Nullcmd; ; break;} case 37: #line 304 "perly.y" { (void)scanstr("1",SCAN_DEF); yyval.arg = yylval.arg; ; break;} case 39: #line 309 "perly.y" { yyval.cval = Nullch; ; break;} case 41: #line 314 "perly.y" { yyval.ival = 0; ; break;} case 42: #line 316 "perly.y" { yyval.ival = 0; ; break;} case 43: #line 318 "perly.y" { yyval.ival = 0; ; break;} case 44: #line 322 "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 330 "perly.y" { make_form(stabent("STDOUT",TRUE),yyvsp[0].formval); ; break;} case 46: #line 334 "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 341 "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 362 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 49: #line 366 "perly.y" { yyval.arg = make_op(O_COMMA, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 51: #line 371 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 52: #line 375 "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 382 "perly.y" { yyval.arg = l(make_op(O_POW, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 54: #line 384 "perly.y" { yyval.arg = l(make_op(yyvsp[-2].ival, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 55: #line 386 "perly.y" { yyval.arg = rcatmaybe(l(make_op(yyvsp[-2].ival, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)));; break;} case 56: #line 388 "perly.y" { yyval.arg = l(make_op(O_LEFT_SHIFT, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 57: #line 390 "perly.y" { yyval.arg = l(make_op(O_RIGHT_SHIFT, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 58: #line 392 "perly.y" { yyval.arg = l(make_op(O_BIT_AND, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 59: #line 394 "perly.y" { yyval.arg = l(make_op(O_XOR, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 60: #line 396 "perly.y" { yyval.arg = l(make_op(O_BIT_OR, 2, yyvsp[-3].arg, yyvsp[0].arg, Nullarg)); ; break;} case 61: #line 400 "perly.y" { yyval.arg = make_op(O_POW, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 62: #line 402 "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 411 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 64: #line 413 "perly.y" { yyval.arg = make_op(O_LEFT_SHIFT, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 65: #line 415 "perly.y" { yyval.arg = make_op(O_RIGHT_SHIFT, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 66: #line 417 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 67: #line 419 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 68: #line 421 "perly.y" { yyval.arg = make_op(O_BIT_AND, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 69: #line 423 "perly.y" { yyval.arg = make_op(O_XOR, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 70: #line 425 "perly.y" { yyval.arg = make_op(O_BIT_OR, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 71: #line 427 "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 431 "perly.y" { yyval.arg = make_op(O_AND, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 73: #line 433 "perly.y" { yyval.arg = make_op(O_OR, 2, yyvsp[-2].arg, yyvsp[0].arg, Nullarg); ; break;} case 74: #line 435 "perly.y" { yyval.arg = make_op(O_COND_EXPR, 3, yyvsp[-4].arg, yyvsp[-2].arg, yyvsp[0].arg); ; break;} case 75: #line 437 "perly.y" { yyval.arg = mod_match(O_MATCH, yyvsp[-2].arg, yyvsp[0].arg); ; break;} case 76: #line 439 "perly.y" { yyval.arg = mod_match(O_NMATCH, yyvsp[-2].arg, yyvsp[0].arg); ; break;} case 77: #line 441 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 78: #line 445 "perly.y" { yyval.arg = make_op(O_NEGATE, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 79: #line 447 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 80: #line 449 "perly.y" { yyval.arg = make_op(O_NOT, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 81: #line 451 "perly.y" { yyval.arg = make_op(O_COMPLEMENT, 1, yyvsp[0].arg, Nullarg, Nullarg);; break;} case 82: #line 453 "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 456 "perly.y" { yyval.arg = addflags(1, AF_POST, l(make_op(O_ITEM,1,yyvsp[-1].arg,Nullarg,Nullarg))); ; break;} case 84: #line 459 "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 462 "perly.y" { yyval.arg = addflags(1, AF_PRE, l(make_op(O_ITEM,1,yyvsp[0].arg,Nullarg,Nullarg))); ; break;} case 86: #line 465 "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 472 "perly.y" { opargs[yyvsp[-1].ival] = 1; yyval.arg = make_op(yyvsp[-1].ival, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 88: #line 475 "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 481 "perly.y" { yyval.arg = l(localize(make_op(O_ASSIGN, 1, localize(listish(make_list(yyvsp[-1].arg))), Nullarg,Nullarg))); ; break;} case 90: #line 485 "perly.y" { yyval.arg = make_list(yyvsp[-1].arg); ; break;} case 91: #line 487 "perly.y" { yyval.arg = make_list(Nullarg); ; break;} case 92: #line 489 "perly.y" { yyval.arg = make_op(O_DOFILE,2,yyvsp[0].arg,Nullarg,Nullarg); allstabs = TRUE;; break;} case 93: #line 492 "perly.y" { yyval.arg = cmd_to_arg(yyvsp[0].cmdval); ; break;} case 94: #line 494 "perly.y" { yyval.arg = stab2arg(A_STAB,yyvsp[0].stabval); ; break;} case 95: #line 496 "perly.y" { yyval.arg = stab2arg(A_STAR,yyvsp[0].stabval); ; break;} case 96: #line 498 "perly.y" { yyval.arg = make_op(O_AELEM, 2, stab2arg(A_STAB,aadd(yyvsp[-3].stabval)), yyvsp[-1].arg, Nullarg); ; break;} case 97: #line 501 "perly.y" { yyval.arg = make_op(O_HASH, 1, stab2arg(A_STAB,yyvsp[0].stabval), Nullarg, Nullarg); ; break;} case 98: #line 505 "perly.y" { yyval.arg = make_op(O_ARRAY, 1, stab2arg(A_STAB,yyvsp[0].stabval), Nullarg, Nullarg); ; break;} case 99: #line 509 "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 515 "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 520 "perly.y" { yyval.arg = make_op(O_LSLICE, 3, Nullarg, listish(make_list(yyvsp[-1].arg)), Nullarg); ; break;} case 102: #line 525 "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 530 "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 536 "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 542 "perly.y" { yyval.arg = make_op(O_DELETE, 2, stab2arg(A_STAB,hadd(yyvsp[-5].stabval)), jmaybe(yyvsp[-4].ival), Nullarg); expectterm = FALSE; ; break;} case 106: #line 548 "perly.y" { yyval.arg = stab2arg(A_ARYLEN,yyvsp[0].stabval); ; break;} case 107: #line 550 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 108: #line 552 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 109: #line 554 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 110: #line 556 "perly.y" { yyval.arg = yyvsp[0].arg; ; break;} case 111: #line 558 "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 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; ; break;} case 113: #line 569 "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 576 "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 583 "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 590 "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 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); ; break;} case 118: #line 601 "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 607 "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 612 "perly.y" { yyval.arg = make_op((perldb ? O_DBSUBR : O_SUBR), 2, stab2arg(A_STAB,yyvsp[0].stabval), Nullarg, Nullarg); ; break;} case 121: #line 617 "perly.y" { yyval.arg = make_op(yyvsp[0].ival,0,Nullarg,Nullarg,Nullarg); ; break;} case 122: #line 619 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival,1,cval_to_arg(yyvsp[0].cval), Nullarg,Nullarg); ; break;} case 123: #line 622 "perly.y" { yyval.arg = make_op(yyvsp[0].ival,0,Nullarg,Nullarg,Nullarg); ; break;} case 124: #line 624 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival,1,cmd_to_arg(yyvsp[0].cmdval),Nullarg,Nullarg); ; break;} case 125: #line 626 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival,1,yyvsp[0].arg,Nullarg,Nullarg); ; break;} case 126: #line 628 "perly.y" { yyval.arg = make_op(O_SELECT, 0, Nullarg, Nullarg, Nullarg);; break;} case 127: #line 630 "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 636 "perly.y" { yyval.arg = make_op(O_SELECT, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 129: #line 638 "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 641 "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 648 "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 655 "perly.y" { yyval.arg = make_op(O_OPEN, 2, yyvsp[-2].arg, yyvsp[-1].arg, Nullarg); ; break;} case 133: #line 659 "perly.y" { yyval.arg = make_op(yyvsp[-3].ival, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 134: #line 663 "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 668 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival, 1, stab2arg(A_STAB,yyvsp[0].stabval), Nullarg, Nullarg); ; break;} case 136: #line 672 "perly.y" { yyval.arg = make_op(yyvsp[-2].ival, 1, stab2arg(A_WORD,Nullstab), Nullarg, Nullarg); ; break;} case 137: #line 676 "perly.y" { yyval.arg = make_op(yyvsp[0].ival, 0, Nullarg, Nullarg, Nullarg); ; break;} case 138: #line 679 "perly.y" { yyval.arg = make_op(yyvsp[-4].ival, 2, yyvsp[-2].arg, yyvsp[-1].arg, Nullarg); ; break;} case 139: #line 681 "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 683 "perly.y" { yyval.arg = make_op(yyvsp[-5].ival, 2, yyvsp[-3].arg, yyvsp[-1].arg, Nullarg); ; break;} case 141: #line 685 "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 687 "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 690 "perly.y" { yyval.arg = make_op(yyvsp[-5].ival, 2, yyvsp[-3].arg, make_list(yyvsp[-1].arg), Nullarg); ; break;} case 144: #line 695 "perly.y" { yyval.arg = make_op(O_POP, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 145: #line 697 "perly.y" { yyval.arg = make_op(O_POP, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 146: #line 699 "perly.y" { yyval.arg = make_op(O_SHIFT, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 147: #line 701 "perly.y" { yyval.arg = make_op(O_SHIFT, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 148: #line 703 "perly.y" { yyval.arg = make_op(O_SHIFT, 1, stab2arg(A_STAB, aadd(stabent(subline ? "_" : "ARGV", TRUE))), Nullarg, Nullarg); ; break;} case 149: #line 708 "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 718 "perly.y" { yyval.arg = mod_match(O_MATCH, yyvsp[-2].arg, make_split(defstab,yyvsp[-3].arg,yyvsp[-1].arg));; break;} case 151: #line 721 "perly.y" { yyval.arg = mod_match(O_MATCH, yyvsp[-1].arg, make_split(defstab,yyvsp[-2].arg,Nullarg) ); ; break;} case 152: #line 724 "perly.y" { yyval.arg = mod_match(O_MATCH, stab2arg(A_STAB,defstab), make_split(defstab,yyvsp[-1].arg,Nullarg) ); ; break;} case 153: #line 728 "perly.y" { yyval.arg = make_op(yyvsp[-4].ival, 2, yyvsp[-2].arg, listish(make_list(yyvsp[-1].arg)), Nullarg); ; break;} case 154: #line 733 "perly.y" { yyval.arg = make_op(yyvsp[-3].ival, 1, make_list(yyvsp[-1].arg), Nullarg, Nullarg); ; break;} case 155: #line 738 "perly.y" { yyval.arg = l(make_op(yyvsp[-1].ival, 1, fixl(yyvsp[-1].ival,yyvsp[0].arg), Nullarg, Nullarg)); ; break;} case 156: #line 741 "perly.y" { yyval.arg = l(make_op(yyvsp[0].ival, 1, stab2arg(A_STAB,defstab), Nullarg, Nullarg)); ; break;} case 157: #line 745 "perly.y" { yyval.arg = make_op(yyvsp[0].ival, 0, Nullarg, Nullarg, Nullarg); ; break;} case 158: #line 747 "perly.y" { yyval.arg = make_op(yyvsp[-2].ival, 0, Nullarg, Nullarg, Nullarg); ; break;} case 159: #line 749 "perly.y" { yyval.arg = make_op(yyvsp[-2].ival, 0, Nullarg, Nullarg, Nullarg); ; break;} case 160: #line 751 "perly.y" { yyval.arg = make_op(yyvsp[-3].ival, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 161: #line 753 "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 757 "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 761 "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 765 "perly.y" { yyval.arg = make_op(yyvsp[-5].ival, 3, yyvsp[-3].arg, yyvsp[-2].arg, yyvsp[-1].arg); ; break;} case 165: #line 767 "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 770 "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 773 "perly.y" { yyval.arg = make_op(yyvsp[-3].ival, 1, yyvsp[-1].arg, Nullarg, Nullarg); ; break;} case 168: #line 778 "perly.y" { yyval.arg = make_op(yyvsp[-1].ival, 1, yyvsp[0].arg, Nullarg, Nullarg); ; break;} case 169: #line 783 "perly.y" { yyval.arg = make_op(yyvsp[-5].ival, 3, yyvsp[-3].arg, yyvsp[-2].arg, yyvsp[-1].arg); ; break;} case 172: #line 789 "perly.y" { yyval.arg = make_op(yyvsp[0].ival,2, stab2arg(A_WORD,Nullstab), stab2arg(A_STAB,defstab), Nullarg); ; break;} case 173: #line 794 "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 799 "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 806 "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 811 "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 816 "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 823 "perly.y" { yyval.arg = stab2arg(A_WORD,stabent(yyvsp[0].cval,TRUE)); Safefree(yyvsp[0].cval); yyvsp[0].cval = Nullch;; break;} case 180: #line 829 "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 832 "perly.y" { yyval.arg = stab2arg(A_STAB,yyvsp[0].stabval); ; break;} case 182: #line 836 "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 839 "perly.y" { yyval.arg = stab2arg(A_STAB,yyvsp[0].stabval); ; break;} case 184: #line 843 "perly.y" { yyval.ival = 1; ; break;} case 185: #line 845 "perly.y" { yyval.ival = 0; ; break;} case 186: #line 854 "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 440 "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 *) xmalloc(size + 15); 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 #endif /* YYERROR_VERBOSE */ yyerror("parse error"); } 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 867 "perly.y" /* PROGRAM */