#ifndef lint static char yysccsid[] = "@(#)yaccpar 1.9 (Berkeley) 02/21/93"; #endif #define YYBYACC 1 #define YYMAJOR 1 #define YYMINOR 9 #define yyclearin (yychar=(-1)) #define yyerrok (yyerrflag=0) #define YYRECOVERING (yyerrflag!=0) #define YYPREFIX "yy" #line 31 "parse.y" #include #include "awka.h" #include "symtype.h" #include "code.h" #include "memory.h" #include "bi_funct.h" #include "bi_vars.h" #include "jmp.h" #include "field.h" #include "files.h" #define YYMAXDEPTH 200 extern void PROTO( eat_nl, (void) ) ; static void PROTO( resize_fblock, (FBLOCK *) ) ; static void PROTO( switch_code_to_main, (void)) ; static void PROTO( code_array, (SYMTAB *) ) ; static void PROTO( code_call_id, (CA_REC *, SYMTAB *) ) ; static void PROTO( field_A2I, (void)) ; static void PROTO( check_var, (SYMTAB *) ) ; static void PROTO( check_array, (SYMTAB *) ) ; static void PROTO( RE_as_arg, (void)) ; static int scope ; static FBLOCK *active_funct ; /* when scope is SCOPE_FUNCT */ #define code_address(x) if( is_local(x) ) \ code2op(L_PUSHA, (x)->offset) ;\ else code2(_PUSHA, (x)->stval.cp) #define CDP(x) (code_base+(x)) /* WARNING: These CDP() calculations become invalid after calls that might change code_base. Which are: code2(), code2op(), code_jmp() and code_pop(). */ /* this nonsense caters to MSDOS large model */ #define CODE_FE_PUSHA() code_ptr->ptr = (PTR) 0 ; code1(FE_PUSHA) #line 75 "parse.y" typedef union{ CELL *cp ; SYMTAB *stp ; int start ; /* code starting address as offset from code_base */ PF_CP fp ; /* ptr to a (print/printf) or (sub/gsub) function */ BI_REC *bip ; /* ptr to info about a builtin */ FBLOCK *fbp ; /* ptr to a function block */ ARG2_REC *arg2p ; CA_REC *ca_p ; int ival ; PTR ptr ; } YYSTYPE; #line 68 "y.tab.c" #define UNEXPECTED 257 #define BAD_DECIMAL 258 #define NL 259 #define SEMI_COLON 260 #define LBRACE 261 #define RBRACE 262 #define LBOX 263 #define RBOX 264 #define COMMA 265 #define IO_OUT 266 #define COPROCESS_OUT 267 #define ASSIGN 268 #define ADD_ASG 269 #define SUB_ASG 270 #define MUL_ASG 271 #define DIV_ASG 272 #define MOD_ASG 273 #define POW_ASG 274 #define QMARK 275 #define COLON 276 #define OR 277 #define AND 278 #define IN 279 #define MATCH 280 #define EQ 281 #define NEQ 282 #define LT 283 #define LTE 284 #define GT 285 #define GTE 286 #define CAT 287 #define GETLINE 288 #define PLUS 289 #define MINUS 290 #define MUL 291 #define DIV 292 #define MOD 293 #define NOT 294 #define UMINUS 295 #define IO_IN 296 #define PIPE 297 #define COPROCESS 298 #define POW 299 #define INC_or_DEC 300 #define DOLLAR 301 #define FIELD 302 #define LPAREN 303 #define RPAREN 304 #define DOUBLE 305 #define STRING_ 306 #define RE 307 #define ID 308 #define D_ID 309 #define FUNCT_ID 310 #define BUILTIN 311 #define LENGTH 312 #define PRINT 313 #define PRINTF 314 #define SPLIT 315 #define MATCH_FUNC 316 #define SUB 317 #define GSUB 318 #define GENSUB 319 #define ALENGTH_FUNC 320 #define ASORT_FUNC 321 #define DO 322 #define WHILE 323 #define FOR 324 #define BREAK 325 #define CONTINUE 326 #define IF 327 #define ELSE 328 #define DELETE 329 #define a_BEGIN 330 #define a_END 331 #define EXIT 332 #define ABORT 333 #define NEXT 334 #define NEXTFILE 335 #define RETURN 336 #define FUNCTION 337 #define YYERRCODE 256 short yylhs[] = { -1, 0, 0, 38, 38, 38, 39, 42, 39, 43, 39, 44, 39, 45, 46, 39, 1, 1, 2, 2, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 47, 47, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 48, 13, 49, 13, 50, 51, 13, 14, 14, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 10, 10, 26, 26, 27, 27, 8, 8, 5, 4, 28, 28, 6, 6, 6, 7, 7, 52, 52, 52, 17, 4, 53, 4, 54, 4, 16, 4, 4, 18, 18, 19, 19, 55, 55, 13, 13, 10, 15, 15, 4, 4, 20, 4, 11, 11, 11, 11, 11, 15, 13, 13, 13, 13, 13, 13, 13, 15, 22, 56, 56, 15, 15, 15, 15, 15, 23, 4, 4, 4, 4, 21, 21, 15, 15, 15, 15, 15, 15, 15, 57, 12, 12, 9, 9, 15, 30, 15, 29, 29, 24, 24, 25, 25, 40, 31, 32, 32, 36, 36, 37, 37, 41, 15, 33, 33, 34, 34, 34, 35, 35, }; short yylen[] = { 2, 1, 2, 1, 1, 2, 1, 0, 3, 0, 3, 0, 3, 0, 0, 6, 3, 3, 1, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 2, 2, 1, 1, 1, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 0, 4, 0, 4, 0, 0, 7, 1, 2, 1, 1, 1, 3, 1, 3, 3, 3, 3, 3, 3, 2, 2, 2, 1, 2, 2, 2, 2, 1, 5, 0, 1, 1, 3, 5, 1, 0, 5, 1, 1, 1, 3, 2, 3, 3, 0, 2, 2, 4, 2, 1, 4, 1, 7, 4, 2, 4, 3, 4, 1, 2, 1, 2, 3, 5, 5, 5, 6, 7, 3, 6, 2, 1, 2, 6, 2, 3, 1, 3, 3, 3, 3, 3, 3, 3, 2, 5, 1, 3, 4, 5, 7, 8, 6, 1, 2, 3, 2, 3, 2, 3, 1, 2, 2, 3, 4, 3, 4, 1, 1, 1, 2, 3, 8, 1, 6, 1, 1, 1, 3, 1, 3, 2, 4, 2, 2, 0, 1, 1, 3, 1, 3, 2, 2, 1, 3, 3, 2, 2, }; short yydefred[] = { 0, 178, 0, 156, 0, 0, 0, 0, 0, 120, 0, 57, 58, 61, 0, 84, 84, 83, 0, 0, 164, 165, 162, 0, 84, 7, 9, 0, 0, 6, 71, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 3, 4, 0, 0, 0, 31, 32, 86, 87, 100, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 22, 0, 20, 0, 0, 0, 0, 0, 28, 84, 24, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 84, 73, 75, 0, 123, 0, 0, 0, 72, 0, 0, 0, 0, 0, 0, 0, 0, 0, 172, 173, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 74, 13, 52, 48, 50, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 135, 133, 0, 0, 170, 0, 5, 159, 157, 158, 0, 17, 25, 0, 0, 26, 27, 0, 0, 0, 143, 0, 145, 29, 30, 0, 147, 0, 16, 21, 23, 103, 0, 107, 0, 0, 119, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 124, 0, 60, 0, 0, 179, 0, 0, 0, 0, 0, 0, 8, 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 111, 0, 41, 42, 43, 44, 45, 46, 18, 12, 19, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 176, 0, 0, 160, 0, 105, 0, 0, 0, 0, 117, 144, 146, 148, 98, 0, 108, 109, 0, 0, 0, 0, 0, 88, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 180, 0, 0, 181, 0, 0, 0, 137, 0, 0, 0, 0, 0, 155, 153, 136, 0, 0, 171, 0, 102, 0, 106, 96, 0, 99, 110, 104, 90, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 112, 0, 184, 186, 183, 185, 0, 134, 0, 0, 138, 0, 53, 0, 0, 177, 0, 0, 0, 0, 0, 85, 0, 0, 0, 82, 113, 77, 122, 115, 0, 141, 0, 15, 0, 0, 166, 163, 0, 118, 0, 0, 0, 139, 0, 0, 0, 116, 101, 140, 167, 0, 168, 161, 0, 169, }; short yydgoto[] = { 28, 64, 234, 65, 66, 94, 269, 90, 30, 31, 32, 33, 155, 270, 35, 36, 68, 69, 70, 180, 71, 72, 37, 246, 360, 376, 271, 272, 73, 38, 39, 40, 41, 198, 199, 286, 249, 250, 42, 43, 44, 45, 101, 102, 134, 221, 334, 74, 223, 224, 222, 357, 315, 263, 75, 267, 146, 46, }; short yysindex[] = { 83, 0, 354, 0, 2652, 2652, 2652, -57, 2550, 0, 2686, 0, 0, 0, -272, 0, 0, 0, -262, -260, 0, 0, 0, -258, 0, 0, 0, -270, 83, 0, 0, 2652, -143, 2390, 2981, 2652, 339, -252, -254, -247, -228, -225, 0, 0, 0, -228, -103, -159, 0, 0, 0, 0, 0, -222, -217, -150, -150, -213, -224, 2061, 2061, -150, -150, 2061, 0, 192, 0, 2931, 435, 435, 2158, 435, 0, 0, 0, 435, 2686, -272, 0, -203, -148, -148, -148, -132, 0, 0, 0, 0, 0, 0, -233, 2543, 1, 0, -164, -188, -166, 2686, 2686, -204, -151, -228, -228, 0, 0, 0, -193, 2686, 2686, 2686, 2686, 2686, 2686, 2686, 2686, 2686, 2686, 2686, 2686, 2686, 2686, 0, 0, 0, 0, 0, -154, 2686, 2686, 2686, 2686, 2686, 2686, 2686, -58, 339, 2652, 2652, 2652, 2652, 2652, -116, -97, 2652, 2686, 0, 0, 2686, 2686, 0, -111, 0, 0, 0, 0, -92, 0, 0, 2686, 2193, 0, 0, 2686, -150, 2931, 0, 2931, 0, 0, 0, 2931, 0, -150, 0, 0, 0, 0, -119, 0, 2943, 2584, 0, 2720, -112, 2835, -20, -86, -56, -6, -38, 5, 2686, -12, 0, 2686, 0, 2686, -27, 0, 2754, 2686, 3003, 3025, -10, -16, 0, 0, 3071, 3071, 3071, 3071, 3071, 3071, 3071, 3071, 3071, 3071, 3071, 3071, 3071, 3071, 2686, 2686, 2686, 2686, 0, -59, 0, 0, 0, 0, 0, 0, 0, 0, 0, 186, 186, -148, -148, -148, -57, -57, -193, 2847, 3071, 33, 35, 0, 6, 39, 0, 2863, 0, -256, 2959, 2875, 75, 0, 0, 0, 0, 0, 435, 0, 0, 2891, 435, 2618, -197, 3071, 0, 80, 46, 2686, 2686, 2686, 2686, 2686, 3071, 47, 3071, -80, 0, -249, 185, 0, 56, 55, 2686, 0, -219, 3071, 3059, 2969, 429, 0, 0, 0, 2686, 2686, 0, 59, 0, 60, 0, 0, 2686, 0, 0, 0, 0, -212, 2686, 2686, -150, 2686, 2686, -29, 65, -24, 71, -9, 0, 50, 0, 0, 0, 0, 0, 0, -208, 66, 0, -58, 0, 2517, 3047, 0, 77, -2, -12, 3071, 3071, 0, 3071, 2903, 50, 0, 0, 0, 0, 0, 68, 0, 78, 0, 2686, -57, 0, 0, 2686, 0, -150, -150, 88, 0, 3071, 93, 2545, 0, 0, 0, 0, 2652, 0, 0, 267, 0, }; short yyrindex[] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 702, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1899, 14, 42, 1962, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1710, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 639, 0, 765, 1143, 1206, 1269, 0, 513, 0, 0, 0, 576, 0, 0, 2300, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1332, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2025, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 102, 0, 0, 0, 0, 828, 0, 0, 0, 0, 0, 0, 0, 116, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 273, 0, 0, 0, 0, -7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2788, 0, 0, 103, 0, 0, 0, 0, 0, 0, -199, 171, 359, 440, 2363, 2376, 2389, 2409, 2422, 2435, 2455, 2468, 2481, 2501, 0, 0, 0, 0, 0, -46, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1773, 1836, 1395, 1458, 1521, 1584, 1647, 891, 0, -202, 0, 0, 0, 0, 104, 0, 0, 0, 2123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 70, 76, 0, -230, 0, 0, 103, 0, 103, 0, -192, 0, -190, 0, 0, 2252, 0, 0, 0, 0, 0, 0, 0, 53, 0, 278, 151, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1080, 0, 0, 0, 0, 954, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 29, 72, 74, 0, 92, 0, 1017, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2514, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, }; short yygindex[] = { 0, 19, 85, 0, -51, 10, 0, 119, 0, 0, 8, -4, -220, 48, 0, 4, 0, 0, 0, 0, 0, 0, 0, -141, 0, 0, -195, -185, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 393, 0, 0, 0, 0, 0, 0, 0, 0, 127, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, }; #define YYTABLESIZE 3357 short yytable[] = { 79, 79, 79, 87, 79, 287, 91, 247, 80, 81, 82, 282, 89, 144, 174, 86, 325, 176, 177, 29, 181, 296, 297, 304, 183, 95, 96, 79, 93, 79, 79, 79, 191, 2, 100, 106, 79, 79, 103, 135, 104, 97, 154, 98, 93, 99, 332, 29, 34, 147, 67, 93, 145, 191, 153, 326, 148, 353, 92, 149, 34, 34, 34, 142, 151, 34, 34, 34, 34, 313, 314, 192, 91, 92, 79, 91, 34, 34, 150, 187, 319, 158, 321, 182, 163, 333, 159, 185, 186, 318, 162, 320, 341, 322, 188, 189, 354, 121, 190, 196, 48, 49, 142, 156, 203, 34, 143, 164, 166, 48, 49, 170, 92, 67, 91, 197, 67, 67, 179, 67, 205, 206, 340, 67, 184, 107, 108, 109, 110, 111, 112, 113, 79, 79, 79, 79, 79, 200, 368, 79, 236, 237, 238, 239, 240, 201, 202, 243, 331, 141, 142, 143, 204, 233, 225, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 8, 9, 83, 241, 257, 157, 226, 227, 228, 229, 230, 231, 232, 160, 161, 324, 316, 165, 167, 168, 169, 171, 242, 244, 152, 175, 245, 245, 248, 8, 9, 83, 48, 49, 2, 251, 84, 252, 255, 85, 262, 256, 273, 308, 47, 47, 47, 310, 275, 47, 47, 47, 47, 128, 129, 130, 131, 132, 133, 266, 47, 47, 47, 47, 47, 47, 347, 316, 154, 154, 279, 349, 316, 281, 274, 8, 9, 83, 285, 193, 153, 153, 84, 78, 78, 85, 351, 316, 276, 47, 78, 78, 235, 363, 316, 91, 277, 194, 280, 278, 292, 293, 294, 295, 11, 11, 11, 123, 283, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 89, 89, 258, 259, 291, 260, 290, 89, 89, 261, 299, 157, 300, 33, 33, 33, 302, 195, 33, 33, 33, 33, 301, 67, 14, 14, 14, 67, 92, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 93, 93, 94, 94, 95, 95, 80, 80, 245, 307, 1, 80, 80, 80, 80, 2, 316, 33, 336, 337, 317, 352, 81, 81, 233, 154, 323, 81, 81, 81, 81, 329, 342, 343, 330, 345, 346, 153, 338, 339, 348, 79, 3, 4, 5, 355, 350, 365, 6, 377, 84, 80, 362, 366, 7, 8, 9, 10, 312, 11, 12, 13, 14, 372, 15, 16, 17, 81, 373, 18, 19, 20, 21, 22, 23, 24, 367, 174, 78, 175, 369, 51, 51, 51, 25, 26, 51, 51, 51, 51, 356, 27, 105, 0, 0, 0, 0, 51, 51, 51, 51, 35, 35, 35, 0, 0, 35, 35, 35, 35, 0, 0, 0, 344, 0, 0, 0, 0, 35, 172, 0, 327, 48, 49, 2, 173, 51, 0, 0, 0, 0, 123, 235, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 0, 0, 0, 35, 0, 138, 139, 140, 3, 4, 5, 141, 142, 143, 6, 0, 0, 328, 370, 371, 7, 8, 9, 10, 0, 11, 12, 13, 14, 0, 15, 16, 17, 50, 51, 18, 19, 20, 21, 22, 23, 24, 52, 53, 54, 55, 56, 57, 0, 58, 0, 0, 59, 60, 61, 62, 63, 97, 0, 0, 97, 97, 97, 97, 0, 49, 49, 49, 0, 0, 49, 49, 49, 49, 0, 0, 0, 0, 0, 0, 0, 49, 49, 49, 136, 137, 138, 139, 140, 97, 97, 97, 141, 142, 143, 97, 0, 0, 0, 378, 0, 97, 97, 97, 97, 0, 97, 97, 97, 97, 49, 97, 97, 97, 97, 97, 97, 97, 97, 97, 97, 97, 97, 97, 97, 97, 97, 97, 97, 0, 97, 0, 0, 97, 97, 97, 97, 97, 47, 0, 0, 48, 49, 2, 0, 0, 36, 36, 36, 0, 0, 36, 36, 36, 36, 0, 136, 137, 138, 139, 140, 0, 0, 36, 141, 142, 143, 0, 0, 0, 3, 4, 5, 0, 0, 0, 6, 0, 0, 0, 0, 0, 7, 8, 9, 10, 0, 11, 12, 13, 14, 36, 15, 16, 17, 50, 51, 18, 19, 20, 21, 22, 23, 24, 52, 53, 54, 55, 56, 57, 0, 58, 0, 0, 59, 60, 61, 62, 63, 172, 0, 0, 48, 49, 2, 0, 0, 37, 37, 37, 0, 0, 37, 37, 37, 37, 126, 127, 128, 129, 130, 131, 132, 133, 37, 0, 0, 0, 0, 0, 0, 3, 4, 5, 0, 0, 0, 6, 0, 0, 0, 0, 0, 7, 8, 9, 10, 0, 11, 12, 13, 14, 37, 15, 16, 17, 50, 51, 18, 19, 20, 21, 22, 23, 24, 52, 53, 54, 55, 56, 57, 0, 58, 0, 0, 59, 60, 61, 62, 63, 76, 76, 76, 0, 84, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 0, 76, 76, 76, 76, 76, 76, 76, 0, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 0, 76, 76, 76, 0, 0, 76, 76, 76, 76, 76, 76, 76, 121, 121, 121, 0, 84, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 0, 121, 121, 121, 121, 121, 121, 121, 0, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 0, 121, 121, 121, 0, 0, 121, 121, 121, 121, 121, 121, 121, 59, 59, 59, 0, 84, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 0, 59, 59, 59, 59, 59, 59, 59, 0, 59, 59, 59, 59, 0, 59, 59, 59, 59, 59, 59, 59, 59, 0, 59, 59, 59, 0, 0, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 0, 84, 59, 59, 59, 59, 76, 76, 76, 76, 76, 76, 76, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 0, 59, 59, 59, 59, 59, 59, 59, 0, 0, 59, 59, 59, 0, 59, 59, 59, 59, 59, 59, 59, 59, 0, 59, 59, 59, 0, 0, 59, 59, 59, 59, 59, 59, 59, 125, 125, 125, 0, 0, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 0, 125, 125, 125, 125, 125, 125, 125, 0, 125, 125, 125, 125, 0, 125, 125, 125, 125, 125, 125, 125, 125, 0, 125, 125, 125, 0, 0, 125, 125, 125, 125, 125, 125, 125, 150, 150, 150, 0, 0, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 0, 150, 150, 150, 150, 150, 150, 150, 0, 0, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 0, 150, 150, 150, 0, 0, 150, 150, 150, 150, 150, 150, 150, 67, 67, 67, 0, 0, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 0, 67, 67, 67, 67, 67, 67, 67, 0, 67, 67, 67, 0, 67, 67, 67, 67, 67, 67, 67, 67, 67, 0, 67, 67, 67, 0, 0, 67, 67, 67, 67, 67, 67, 67, 82, 82, 82, 0, 0, 82, 82, 82, 82, 77, 77, 77, 77, 77, 77, 77, 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, 0, 82, 82, 82, 82, 82, 82, 82, 0, 0, 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, 0, 82, 82, 82, 0, 0, 82, 82, 82, 82, 82, 82, 82, 114, 114, 114, 0, 0, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 0, 114, 114, 114, 114, 114, 114, 114, 0, 114, 114, 114, 114, 0, 114, 114, 114, 114, 114, 114, 114, 114, 0, 114, 114, 114, 0, 0, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 0, 0, 114, 114, 114, 114, 113, 113, 113, 113, 113, 113, 113, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 114, 0, 114, 114, 114, 114, 114, 114, 114, 0, 0, 114, 114, 114, 0, 114, 114, 114, 114, 114, 114, 114, 114, 0, 114, 114, 114, 0, 0, 114, 114, 114, 114, 114, 114, 114, 69, 69, 69, 0, 0, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 0, 69, 69, 69, 69, 69, 69, 69, 0, 69, 0, 0, 0, 69, 69, 69, 69, 69, 69, 69, 69, 69, 0, 69, 69, 69, 0, 0, 69, 69, 69, 69, 69, 69, 69, 70, 70, 70, 0, 0, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 0, 70, 70, 70, 70, 70, 70, 70, 0, 70, 0, 0, 0, 70, 70, 70, 70, 70, 70, 70, 70, 70, 0, 70, 70, 70, 0, 0, 70, 70, 70, 70, 70, 70, 70, 68, 68, 68, 0, 0, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 0, 68, 68, 68, 68, 68, 68, 68, 0, 68, 0, 0, 0, 68, 68, 68, 68, 68, 68, 68, 68, 68, 0, 68, 68, 68, 0, 0, 68, 68, 68, 68, 68, 68, 68, 151, 151, 151, 0, 0, 151, 151, 151, 151, 151, 151, 151, 151, 151, 151, 151, 151, 151, 151, 151, 151, 151, 151, 151, 151, 151, 151, 151, 0, 151, 151, 151, 151, 151, 151, 151, 0, 151, 0, 0, 0, 151, 151, 151, 151, 151, 151, 151, 151, 151, 0, 151, 151, 151, 0, 0, 151, 151, 151, 151, 151, 151, 151, 64, 64, 64, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 0, 64, 64, 64, 64, 64, 64, 64, 0, 64, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64, 0, 64, 64, 64, 0, 0, 64, 64, 64, 64, 64, 64, 64, 65, 65, 65, 0, 0, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 0, 65, 65, 65, 65, 65, 65, 65, 0, 65, 0, 0, 0, 65, 65, 65, 65, 65, 65, 65, 65, 65, 0, 65, 65, 65, 0, 0, 65, 65, 65, 65, 65, 65, 65, 66, 66, 66, 0, 0, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 0, 66, 66, 66, 66, 66, 66, 66, 0, 66, 0, 0, 0, 66, 66, 66, 66, 66, 66, 66, 66, 66, 0, 66, 66, 66, 0, 0, 66, 66, 66, 66, 66, 66, 66, 154, 154, 154, 0, 0, 154, 154, 154, 154, 154, 154, 154, 154, 154, 154, 154, 154, 154, 154, 154, 154, 154, 154, 154, 154, 154, 154, 154, 0, 154, 154, 154, 154, 154, 154, 154, 0, 154, 154, 154, 154, 154, 0, 0, 0, 154, 154, 154, 154, 0, 0, 154, 0, 154, 0, 0, 154, 154, 154, 154, 154, 154, 154, 152, 152, 152, 0, 0, 152, 152, 152, 152, 152, 152, 152, 152, 152, 152, 152, 152, 152, 152, 152, 152, 152, 152, 152, 152, 152, 152, 152, 0, 152, 152, 152, 152, 152, 152, 152, 0, 152, 152, 152, 152, 152, 0, 0, 0, 152, 152, 152, 152, 0, 0, 152, 0, 152, 0, 0, 152, 152, 152, 152, 152, 152, 152, 149, 149, 149, 0, 0, 149, 149, 149, 149, 149, 149, 149, 149, 149, 149, 149, 149, 149, 149, 149, 149, 149, 149, 149, 149, 149, 149, 149, 0, 149, 149, 149, 149, 149, 149, 149, 0, 0, 149, 149, 149, 149, 0, 0, 0, 149, 149, 149, 149, 0, 0, 149, 0, 149, 0, 0, 149, 149, 149, 149, 149, 149, 149, 62, 62, 62, 0, 0, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 0, 62, 62, 62, 0, 0, 0, 62, 0, 62, 0, 0, 0, 62, 62, 62, 62, 62, 62, 62, 62, 62, 0, 62, 62, 62, 0, 0, 62, 62, 62, 62, 62, 62, 62, 63, 63, 63, 0, 0, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 0, 63, 63, 63, 0, 0, 0, 63, 0, 63, 0, 0, 0, 63, 63, 63, 63, 63, 63, 63, 63, 63, 0, 63, 63, 63, 0, 0, 63, 63, 63, 63, 63, 63, 63, 125, 125, 125, 0, 0, 125, 125, 125, 125, 0, 0, 0, 0, 0, 0, 0, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 0, 125, 125, 125, 125, 125, 125, 125, 0, 0, 125, 125, 125, 0, 125, 125, 125, 125, 125, 125, 125, 125, 0, 125, 125, 125, 0, 0, 125, 125, 125, 125, 125, 125, 125, 55, 55, 55, 0, 0, 55, 55, 55, 55, 0, 0, 0, 0, 0, 0, 0, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 0, 55, 0, 0, 0, 0, 0, 55, 0, 0, 0, 0, 0, 55, 55, 55, 55, 55, 55, 55, 55, 55, 0, 55, 55, 55, 0, 0, 55, 55, 55, 55, 55, 55, 55, 56, 56, 56, 0, 0, 56, 56, 56, 56, 0, 0, 0, 0, 0, 0, 0, 56, 56, 56, 56, 56, 56, 56, 56, 56, 56, 56, 56, 0, 56, 0, 0, 0, 0, 0, 56, 48, 49, 0, 0, 0, 56, 56, 56, 56, 56, 56, 56, 56, 56, 0, 56, 56, 56, 0, 0, 56, 56, 56, 56, 56, 56, 56, 0, 0, 3, 4, 5, 0, 0, 0, 6, 0, 0, 0, 0, 0, 7, 8, 9, 10, 0, 11, 12, 13, 14, 0, 15, 16, 17, 0, 0, 18, 19, 20, 21, 22, 23, 24, 59, 0, 0, 84, 0, 0, 0, 0, 76, 76, 76, 76, 76, 76, 76, 59, 0, 59, 59, 0, 59, 59, 59, 59, 59, 59, 59, 0, 59, 59, 59, 59, 59, 59, 59, 178, 0, 59, 59, 59, 0, 59, 59, 59, 0, 59, 59, 59, 59, 0, 59, 59, 59, 0, 0, 59, 59, 59, 59, 59, 59, 59, 0, 3, 4, 5, 0, 0, 0, 6, 253, 0, 0, 0, 0, 7, 8, 9, 10, 0, 11, 12, 13, 14, 0, 15, 16, 17, 0, 0, 18, 19, 20, 21, 22, 23, 24, 0, 3, 4, 5, 0, 0, 0, 6, 0, 0, 0, 0, 0, 7, 8, 9, 10, 0, 11, 12, 13, 254, 0, 15, 16, 17, 0, 0, 18, 19, 20, 21, 22, 23, 24, 84, 0, 0, 0, 0, 76, 76, 76, 76, 76, 76, 76, 59, 0, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 0, 59, 59, 59, 59, 59, 59, 59, 0, 0, 59, 59, 59, 0, 59, 59, 59, 0, 59, 59, 59, 59, 0, 59, 59, 59, 125, 0, 59, 59, 59, 59, 59, 59, 59, 0, 125, 0, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 0, 125, 125, 125, 125, 125, 125, 125, 0, 0, 125, 125, 125, 0, 125, 125, 125, 0, 125, 125, 125, 125, 0, 125, 125, 125, 0, 0, 125, 125, 125, 125, 125, 125, 125, 38, 38, 38, 0, 0, 38, 38, 38, 38, 0, 0, 0, 0, 39, 39, 39, 0, 38, 39, 39, 39, 39, 0, 0, 0, 0, 40, 40, 40, 0, 39, 40, 40, 40, 40, 0, 114, 115, 116, 117, 118, 119, 120, 40, 0, 38, 126, 126, 126, 0, 0, 126, 126, 126, 126, 0, 0, 0, 39, 127, 127, 127, 0, 126, 127, 127, 127, 127, 121, 0, 0, 40, 128, 128, 128, 0, 127, 128, 128, 128, 128, 0, 0, 0, 0, 0, 0, 0, 0, 128, 0, 126, 129, 129, 129, 0, 0, 129, 129, 129, 129, 0, 0, 0, 127, 130, 130, 130, 0, 129, 130, 130, 130, 130, 0, 0, 0, 128, 131, 131, 131, 0, 130, 131, 131, 131, 131, 0, 0, 0, 0, 0, 0, 0, 0, 131, 0, 129, 132, 132, 132, 0, 0, 132, 132, 132, 132, 0, 0, 0, 130, 54, 54, 54, 0, 132, 54, 54, 54, 54, 358, 0, 0, 131, 0, 0, 0, 0, 54, 0, 123, 0, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 0, 132, 0, 0, 0, 0, 374, 114, 115, 116, 117, 118, 119, 120, 54, 0, 123, 359, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 0, 0, 0, 0, 0, 0, 3, 4, 5, 0, 0, 121, 6, 0, 0, 193, 0, 375, 7, 8, 9, 76, 0, 11, 12, 13, 77, 88, 15, 78, 17, 0, 0, 18, 19, 20, 21, 22, 23, 24, 3, 4, 5, 0, 0, 0, 6, 0, 0, 0, 0, 0, 7, 8, 9, 10, 265, 11, 12, 13, 14, 0, 15, 16, 17, 0, 0, 18, 19, 20, 21, 22, 23, 24, 3, 4, 5, 0, 0, 0, 6, 0, 0, 0, 0, 0, 7, 8, 9, 10, 311, 11, 12, 13, 14, 0, 15, 16, 17, 0, 0, 18, 19, 20, 21, 22, 23, 24, 3, 4, 5, 0, 0, 0, 6, 0, 0, 0, 0, 0, 7, 8, 9, 76, 0, 11, 12, 13, 77, 0, 15, 78, 17, 0, 0, 18, 19, 20, 21, 22, 23, 24, 3, 4, 5, 0, 0, 0, 6, 0, 0, 0, 0, 0, 7, 8, 9, 10, 0, 11, 12, 13, 14, 0, 15, 16, 17, 0, 0, 18, 19, 20, 21, 22, 23, 24, 3, 4, 5, 0, 0, 0, 6, 0, 0, 0, 0, 0, 7, 8, 9, 268, 0, 11, 12, 13, 14, 0, 15, 16, 17, 0, 0, 18, 19, 20, 21, 22, 23, 24, 3, 4, 5, 0, 0, 0, 6, 0, 0, 0, 0, 0, 7, 8, 9, 10, 0, 11, 12, 13, 284, 0, 15, 16, 17, 0, 0, 18, 19, 20, 21, 22, 23, 24, 182, 182, 182, 0, 0, 0, 182, 0, 0, 0, 0, 0, 182, 182, 182, 182, 0, 182, 182, 182, 182, 0, 182, 182, 182, 0, 0, 182, 182, 182, 182, 182, 182, 182, 123, 0, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 123, 0, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 0, 0, 0, 0, 123, 195, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 123, 298, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 0, 0, 0, 0, 123, 303, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 123, 306, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 48, 49, 0, 0, 0, 309, 0, 0, 0, 0, 0, 0, 0, 264, 0, 0, 123, 364, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 123, 305, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 0, 0, 0, 0, 123, 0, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 122, 125, 126, 127, 128, 129, 130, 131, 132, 133, 123, 0, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 288, 0, 0, 0, 0, 0, 0, 0, 0, 0, 123, 0, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 289, 0, 0, 0, 0, 0, 0, 0, 0, 0, 123, 0, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 361, 0, 0, 0, 0, 0, 0, 0, 0, 0, 123, 0, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 123, 335, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 123, 0, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, }; short yycheck[] = { 4, 5, 6, 7, 8, 200, 10, 148, 4, 5, 6, 196, 8, 265, 65, 7, 265, 68, 69, 0, 71, 241, 242, 279, 75, 15, 16, 31, 300, 259, 260, 35, 265, 261, 24, 31, 266, 267, 308, 35, 310, 303, 46, 303, 300, 303, 265, 28, 0, 303, 2, 300, 304, 265, 46, 304, 303, 265, 10, 40, 259, 260, 261, 265, 45, 264, 265, 266, 267, 266, 267, 304, 76, 265, 304, 265, 28, 276, 303, 83, 275, 303, 277, 73, 308, 304, 303, 77, 78, 274, 303, 276, 304, 278, 84, 85, 304, 300, 88, 263, 259, 260, 304, 262, 308, 304, 299, 59, 60, 259, 260, 63, 304, 65, 304, 303, 68, 69, 70, 71, 101, 102, 307, 75, 76, 268, 269, 270, 271, 272, 273, 274, 136, 137, 138, 139, 140, 303, 358, 143, 136, 137, 138, 139, 140, 97, 98, 143, 289, 297, 298, 299, 303, 134, 308, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 301, 302, 303, 288, 163, 47, 127, 128, 129, 130, 131, 132, 133, 55, 56, 264, 265, 59, 60, 61, 62, 63, 288, 144, 296, 67, 147, 148, 308, 301, 302, 303, 259, 260, 261, 296, 308, 158, 159, 311, 328, 162, 323, 263, 259, 260, 261, 267, 303, 264, 265, 266, 267, 281, 282, 283, 284, 285, 286, 180, 275, 276, 277, 278, 279, 280, 264, 265, 241, 242, 191, 264, 265, 194, 263, 301, 302, 303, 199, 304, 241, 242, 308, 259, 260, 311, 264, 265, 263, 304, 266, 267, 134, 264, 265, 268, 303, 265, 279, 263, 221, 222, 223, 224, 259, 260, 261, 275, 304, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 259, 260, 163, 164, 308, 166, 304, 266, 267, 170, 265, 172, 265, 259, 260, 261, 265, 304, 264, 265, 266, 267, 304, 263, 259, 260, 261, 267, 268, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 259, 260, 259, 260, 259, 260, 259, 260, 289, 263, 256, 264, 265, 266, 267, 261, 265, 304, 299, 300, 303, 300, 259, 260, 334, 358, 308, 264, 265, 266, 267, 304, 313, 314, 308, 316, 317, 358, 308, 308, 304, 374, 288, 289, 290, 308, 304, 308, 294, 374, 263, 304, 304, 304, 300, 301, 302, 303, 268, 305, 306, 307, 308, 304, 310, 311, 312, 304, 304, 315, 316, 317, 318, 319, 320, 321, 357, 304, 304, 304, 361, 259, 260, 261, 330, 331, 264, 265, 266, 267, 334, 337, 28, -1, -1, -1, -1, 275, 276, 277, 278, 259, 260, 261, -1, -1, 264, 265, 266, 267, -1, -1, -1, 315, -1, -1, -1, -1, 276, 256, -1, 265, 259, 260, 261, 262, 304, -1, -1, -1, -1, 275, 334, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, -1, -1, 304, -1, 291, 292, 293, 288, 289, 290, 297, 298, 299, 294, -1, -1, 304, 363, 364, 300, 301, 302, 303, -1, 305, 306, 307, 308, -1, 310, 311, 312, 313, 314, 315, 316, 317, 318, 319, 320, 321, 322, 323, 324, 325, 326, 327, -1, 329, -1, -1, 332, 333, 334, 335, 336, 256, -1, -1, 259, 260, 261, 262, -1, 259, 260, 261, -1, -1, 264, 265, 266, 267, -1, -1, -1, -1, -1, -1, -1, 275, 276, 277, 289, 290, 291, 292, 293, 288, 289, 290, 297, 298, 299, 294, -1, -1, -1, 304, -1, 300, 301, 302, 303, -1, 305, 306, 307, 308, 304, 310, 311, 312, 313, 314, 315, 316, 317, 318, 319, 320, 321, 322, 323, 324, 325, 326, 327, -1, 329, -1, -1, 332, 333, 334, 335, 336, 256, -1, -1, 259, 260, 261, -1, -1, 259, 260, 261, -1, -1, 264, 265, 266, 267, -1, 289, 290, 291, 292, 293, -1, -1, 276, 297, 298, 299, -1, -1, -1, 288, 289, 290, -1, -1, -1, 294, -1, -1, -1, -1, -1, 300, 301, 302, 303, -1, 305, 306, 307, 308, 304, 310, 311, 312, 313, 314, 315, 316, 317, 318, 319, 320, 321, 322, 323, 324, 325, 326, 327, -1, 329, -1, -1, 332, 333, 334, 335, 336, 256, -1, -1, 259, 260, 261, -1, -1, 259, 260, 261, -1, -1, 264, 265, 266, 267, 279, 280, 281, 282, 283, 284, 285, 286, 276, -1, -1, -1, -1, -1, -1, 288, 289, 290, -1, -1, -1, 294, -1, -1, -1, -1, -1, 300, 301, 302, 303, -1, 305, 306, 307, 308, 304, 310, 311, 312, 313, 314, 315, 316, 317, 318, 319, 320, 321, 322, 323, 324, 325, 326, 327, -1, 329, -1, -1, 332, 333, 334, 335, 336, 259, 260, 261, -1, 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, -1, 296, 297, 298, 299, 300, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, -1, 296, 297, 298, 299, 300, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, -1, 296, 297, 298, 299, -1, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, -1, -1, 297, 298, 299, -1, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, -1, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, -1, 296, 297, 298, 299, -1, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, -1, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, -1, -1, 297, 298, 299, 300, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, -1, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, -1, 296, 297, 298, -1, 300, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, -1, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, -1, -1, 297, 298, 299, 300, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, -1, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, -1, 296, 297, 298, 299, -1, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, -1, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, -1, -1, 297, 298, 299, -1, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, -1, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, -1, 296, -1, -1, -1, 300, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, -1, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, -1, 296, -1, -1, -1, 300, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, -1, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, -1, 296, -1, -1, -1, 300, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, -1, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, -1, 296, -1, -1, -1, 300, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, -1, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, -1, 296, -1, -1, -1, 300, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, -1, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, -1, 296, -1, -1, -1, 300, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, -1, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, -1, 296, -1, -1, -1, 300, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, -1, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, -1, 296, 297, 298, 299, 300, -1, -1, -1, 304, 305, 306, 307, -1, -1, 310, -1, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, -1, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, -1, 296, 297, 298, 299, 300, -1, -1, -1, 304, 305, 306, 307, -1, -1, 310, -1, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, -1, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, -1, -1, 297, 298, 299, 300, -1, -1, -1, 304, 305, 306, 307, -1, -1, 310, -1, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, -1, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, -1, -1, -1, 294, -1, 296, -1, -1, -1, 300, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, -1, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, -1, -1, -1, 294, -1, 296, -1, -1, -1, 300, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, -1, 264, 265, 266, 267, -1, -1, -1, -1, -1, -1, -1, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, -1, -1, 297, 298, 299, -1, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, -1, 264, 265, 266, 267, -1, -1, -1, -1, -1, -1, -1, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, -1, -1, -1, -1, -1, 294, -1, -1, -1, -1, -1, 300, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, -1, 264, 265, 266, 267, -1, -1, -1, -1, -1, -1, -1, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, -1, -1, -1, -1, -1, 294, 259, 260, -1, -1, -1, 300, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, -1, -1, 288, 289, 290, -1, -1, -1, 294, -1, -1, -1, -1, -1, 300, 301, 302, 303, -1, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 260, -1, -1, 263, -1, -1, -1, -1, 268, 269, 270, 271, 272, 273, 274, 275, -1, 277, 278, -1, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, 260, -1, 297, 298, 299, -1, 301, 302, 303, -1, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, -1, 288, 289, 290, -1, -1, -1, 294, 260, -1, -1, -1, -1, 300, 301, 302, 303, -1, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, -1, 288, 289, 290, -1, -1, -1, 294, -1, -1, -1, -1, -1, 300, 301, 302, 303, -1, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 263, -1, -1, -1, -1, 268, 269, 270, 271, 272, 273, 274, 275, -1, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, -1, -1, 297, 298, 299, -1, 301, 302, 303, -1, 305, 306, 307, 308, -1, 310, 311, 312, 265, -1, 315, 316, 317, 318, 319, 320, 321, -1, 275, -1, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 288, 289, 290, 291, 292, 293, 294, -1, -1, 297, 298, 299, -1, 301, 302, 303, -1, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 259, 260, 261, -1, -1, 264, 265, 266, 267, -1, -1, -1, -1, 259, 260, 261, -1, 276, 264, 265, 266, 267, -1, -1, -1, -1, 259, 260, 261, -1, 276, 264, 265, 266, 267, -1, 268, 269, 270, 271, 272, 273, 274, 276, -1, 304, 259, 260, 261, -1, -1, 264, 265, 266, 267, -1, -1, -1, 304, 259, 260, 261, -1, 276, 264, 265, 266, 267, 300, -1, -1, 304, 259, 260, 261, -1, 276, 264, 265, 266, 267, -1, -1, -1, -1, -1, -1, -1, -1, 276, -1, 304, 259, 260, 261, -1, -1, 264, 265, 266, 267, -1, -1, -1, 304, 259, 260, 261, -1, 276, 264, 265, 266, 267, -1, -1, -1, 304, 259, 260, 261, -1, 276, 264, 265, 266, 267, -1, -1, -1, -1, -1, -1, -1, -1, 276, -1, 304, 259, 260, 261, -1, -1, 264, 265, 266, 267, -1, -1, -1, 304, 259, 260, 261, -1, 276, 264, 265, 266, 267, 265, -1, -1, 304, -1, -1, -1, -1, 276, -1, 275, -1, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, 304, -1, -1, -1, -1, 265, 268, 269, 270, 271, 272, 273, 274, 304, -1, 275, 304, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, -1, -1, -1, -1, -1, 288, 289, 290, -1, -1, 300, 294, -1, -1, 304, -1, 304, 300, 301, 302, 303, -1, 305, 306, 307, 308, 309, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 288, 289, 290, -1, -1, -1, 294, -1, -1, -1, -1, -1, 300, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 288, 289, 290, -1, -1, -1, 294, -1, -1, -1, -1, -1, 300, 301, 302, 303, 304, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 288, 289, 290, -1, -1, -1, 294, -1, -1, -1, -1, -1, 300, 301, 302, 303, -1, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 288, 289, 290, -1, -1, -1, 294, -1, -1, -1, -1, -1, 300, 301, 302, 303, -1, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 288, 289, 290, -1, -1, -1, 294, -1, -1, -1, -1, -1, 300, 301, 302, 303, -1, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 288, 289, 290, -1, -1, -1, 294, -1, -1, -1, -1, -1, 300, 301, 302, 303, -1, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 288, 289, 290, -1, -1, -1, 294, -1, -1, -1, -1, -1, 300, 301, 302, 303, -1, 305, 306, 307, 308, -1, 310, 311, 312, -1, -1, 315, 316, 317, 318, 319, 320, 321, 275, -1, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 275, -1, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, -1, -1, -1, 275, 304, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 275, 304, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, -1, -1, -1, 275, 304, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 275, 304, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 259, 260, -1, -1, -1, 304, -1, -1, -1, -1, -1, -1, -1, 260, -1, -1, 275, 304, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 275, 260, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, -1, -1, -1, -1, 275, -1, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 265, 278, 279, 280, 281, 282, 283, 284, 285, 286, 275, -1, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 265, -1, -1, -1, -1, -1, -1, -1, -1, -1, 275, -1, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 265, -1, -1, -1, -1, -1, -1, -1, -1, -1, 275, -1, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 265, -1, -1, -1, -1, -1, -1, -1, -1, -1, 275, -1, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 275, -1, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, }; #define YYFINAL 28 #ifndef YYDEBUG #define YYDEBUG 0 #endif #define YYMAXTOKEN 337 #if YYDEBUG char *yyname[] = { "end-of-file",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"UNEXPECTED","BAD_DECIMAL","NL", "SEMI_COLON","LBRACE","RBRACE","LBOX","RBOX","COMMA","IO_OUT","COPROCESS_OUT", "ASSIGN","ADD_ASG","SUB_ASG","MUL_ASG","DIV_ASG","MOD_ASG","POW_ASG","QMARK", "COLON","OR","AND","IN","MATCH","EQ","NEQ","LT","LTE","GT","GTE","CAT", "GETLINE","PLUS","MINUS","MUL","DIV","MOD","NOT","UMINUS","IO_IN","PIPE", "COPROCESS","POW","INC_or_DEC","DOLLAR","FIELD","LPAREN","RPAREN","DOUBLE", "STRING_","RE","ID","D_ID","FUNCT_ID","BUILTIN","LENGTH","PRINT","PRINTF", "SPLIT","MATCH_FUNC","SUB","GSUB","GENSUB","ALENGTH_FUNC","ASORT_FUNC","DO", "WHILE","FOR","BREAK","CONTINUE","IF","ELSE","DELETE","a_BEGIN","a_END","EXIT", "ABORT","NEXT","NEXTFILE","RETURN","FUNCTION", }; char *yyrule[] = { "$accept : program", "program : program_block", "program : program program_block", "program_block : PA_block", "program_block : function_def", "program_block : outside_error block", "PA_block : block", "$$1 :", "PA_block : a_BEGIN $$1 block", "$$2 :", "PA_block : a_END $$2 block", "$$3 :", "PA_block : expr $$3 block_or_separator", "$$4 :", "$$5 :", "PA_block : expr COMMA $$4 expr $$5 block_or_separator", "block : LBRACE statement_list RBRACE", "block : LBRACE error RBRACE", "block_or_separator : block", "block_or_separator : separator", "statement_list : statement", "statement_list : statement_list statement", "statement : block", "statement : expr separator", "statement : separator", "statement : error separator", "statement : BREAK separator", "statement : CONTINUE separator", "statement : return_statement", "statement : NEXT separator", "statement : NEXTFILE separator", "separator : NL", "separator : SEMI_COLON", "expr : cat_expr", "expr : lvalue ASSIGN expr", "expr : lvalue ADD_ASG expr", "expr : lvalue SUB_ASG expr", "expr : lvalue MUL_ASG expr", "expr : lvalue DIV_ASG expr", "expr : lvalue MOD_ASG expr", "expr : lvalue POW_ASG expr", "expr : expr EQ expr", "expr : expr NEQ expr", "expr : expr LT expr", "expr : expr LTE expr", "expr : expr GT expr", "expr : expr GTE expr", "expr : expr MATCH expr", "$$6 :", "expr : expr OR $$6 expr", "$$7 :", "expr : expr AND $$7 expr", "$$8 :", "$$9 :", "expr : expr QMARK $$8 expr COLON $$9 expr", "cat_expr : p_expr", "cat_expr : cat_expr p_expr", "p_expr : DOUBLE", "p_expr : STRING_", "p_expr : ID", "p_expr : LPAREN expr RPAREN", "p_expr : RE", "p_expr : p_expr PLUS p_expr", "p_expr : p_expr MINUS p_expr", "p_expr : p_expr MUL p_expr", "p_expr : p_expr DIV p_expr", "p_expr : p_expr MOD p_expr", "p_expr : p_expr POW p_expr", "p_expr : NOT p_expr", "p_expr : PLUS p_expr", "p_expr : MINUS p_expr", "p_expr : builtin", "p_expr : ID INC_or_DEC", "p_expr : INC_or_DEC lvalue", "p_expr : field INC_or_DEC", "p_expr : INC_or_DEC field", "lvalue : ID", "lvalue : BUILTIN mark LPAREN arglist RPAREN", "arglist :", "arglist : args", "args : expr", "args : args COMMA expr", "builtin : BUILTIN mark LPAREN arglist RPAREN", "builtin : LENGTH", "mark :", "statement : print mark pr_args pr_direction separator", "print : PRINT", "print : PRINTF", "pr_args : arglist", "pr_args : LPAREN arg2 RPAREN", "pr_args : LPAREN RPAREN", "arg2 : expr COMMA expr", "arg2 : arg2 COMMA expr", "pr_direction :", "pr_direction : IO_OUT expr", "pr_direction : COPROCESS_OUT expr", "if_front : IF LPAREN expr RPAREN", "statement : if_front statement", "else : ELSE", "statement : if_front statement else statement", "do : DO", "statement : do statement WHILE LPAREN expr RPAREN separator", "while_front : WHILE LPAREN expr RPAREN", "statement : while_front statement", "statement : for1 for2 for3 statement", "for1 : FOR LPAREN SEMI_COLON", "for1 : FOR LPAREN expr SEMI_COLON", "for2 : SEMI_COLON", "for2 : expr SEMI_COLON", "for3 : RPAREN", "for3 : expr RPAREN", "expr : expr IN ID", "expr : LPAREN arg2 RPAREN IN ID", "lvalue : ID mark LBOX args RBOX", "p_expr : ID mark LBOX args RBOX", "p_expr : ID mark LBOX args RBOX INC_or_DEC", "statement : DELETE ID mark LBOX args RBOX separator", "statement : DELETE ID separator", "array_loop_front : FOR LPAREN ID IN ID RPAREN", "statement : array_loop_front statement", "field : FIELD", "field : DOLLAR D_ID", "field : DOLLAR D_ID mark LBOX args RBOX", "field : DOLLAR p_expr", "field : LPAREN field RPAREN", "p_expr : field", "expr : field ASSIGN expr", "expr : field ADD_ASG expr", "expr : field SUB_ASG expr", "expr : field MUL_ASG expr", "expr : field DIV_ASG expr", "expr : field MOD_ASG expr", "expr : field POW_ASG expr", "p_expr : split_front split_back", "split_front : SPLIT LPAREN expr COMMA ID", "split_back : RPAREN", "split_back : COMMA expr RPAREN", "p_expr : ALENGTH_FUNC LPAREN ID RPAREN", "p_expr : ASORT_FUNC mark LPAREN ID RPAREN", "p_expr : ASORT_FUNC mark LPAREN ID COMMA ID RPAREN", "p_expr : MATCH_FUNC LPAREN expr COMMA re_arg COMMA ID RPAREN", "p_expr : MATCH_FUNC LPAREN expr COMMA re_arg RPAREN", "re_arg : expr", "statement : EXIT separator", "statement : EXIT expr separator", "statement : ABORT separator", "statement : ABORT expr separator", "return_statement : RETURN separator", "return_statement : RETURN expr separator", "p_expr : getline", "p_expr : getline fvalue", "p_expr : getline_file p_expr", "p_expr : p_expr COPROCESS GETLINE", "p_expr : p_expr COPROCESS GETLINE fvalue", "p_expr : p_expr PIPE GETLINE", "p_expr : p_expr PIPE GETLINE fvalue", "getline : GETLINE", "fvalue : lvalue", "fvalue : field", "getline_file : getline IO_IN", "getline_file : getline fvalue IO_IN", "p_expr : gensub LPAREN re_arg COMMA expr COMMA expr gensub_back", "gensub : GENSUB", "p_expr : sub_or_gsub LPAREN re_arg COMMA expr sub_back", "sub_or_gsub : SUB", "sub_or_gsub : GSUB", "sub_back : RPAREN", "sub_back : COMMA fvalue RPAREN", "gensub_back : RPAREN", "gensub_back : COMMA p_expr RPAREN", "function_def : funct_start block", "funct_start : funct_head LPAREN f_arglist RPAREN", "funct_head : FUNCTION ID", "funct_head : FUNCTION FUNCT_ID", "f_arglist :", "f_arglist : f_args", "f_args : ID", "f_args : f_args COMMA ID", "outside_error : error", "p_expr : FUNCT_ID mark call_args", "call_args : LPAREN RPAREN", "call_args : ca_front ca_back", "ca_front : LPAREN", "ca_front : ca_front expr COMMA", "ca_front : ca_front ID COMMA", "ca_back : expr RPAREN", "ca_back : ID RPAREN", }; #endif #ifdef YYSTACKSIZE #undef YYMAXDEPTH #define YYMAXDEPTH YYSTACKSIZE #else #ifdef YYMAXDEPTH #define YYSTACKSIZE YYMAXDEPTH #else #define YYSTACKSIZE 500 #define YYMAXDEPTH 500 #endif #endif int yydebug; int yynerrs; int yyerrflag; int yychar; short *yyssp; YYSTYPE *yyvsp; YYSTYPE yyval; YYSTYPE yylval; short yyss[YYSTACKSIZE]; YYSTYPE yyvs[YYSTACKSIZE]; #define yystacksize YYSTACKSIZE #line 1219 "parse.y" /* resize the code for a user function */ static void resize_fblock( fbp ) FBLOCK *fbp ; { CODEBLOCK *p = ZMALLOC(CODEBLOCK) ; unsigned dummy ; code2op(_RET0, _HALT) ; /* make sure there is always a return */ *p = active_code ; fbp->code = code_shrink(p, &dummy) ; /* code_shrink() zfrees p */ add_to_fdump_list(fbp) ; } /* convert FE_PUSHA to FE_PUSHI or F_PUSH to F_PUSHI */ static void field_A2I() { CELL *cp ; if ( code_ptr[-1].op == FE_PUSHA && code_ptr[-1].ptr == (PTR) 0) /* On most architectures, the two tests are the same; a good compiler might eliminate one. On LM_DOS, and possibly other segmented architectures, they are not */ { code_ptr[-1].op = FE_PUSHI ; } else { cp = (CELL *) code_ptr[-1].ptr ; if ( cp == field || ( cp > NF && cp <= LAST_PFIELD )) { code_ptr[-2].op = _PUSHI ; } else if ( cp == NF ) { code_ptr[-2].op = NF_PUSHI ; code_ptr-- ; } else { code_ptr[-2].op = F_PUSHI ; code_ptr -> op = field_addr_to_index( code_ptr[-1].ptr ) ; code_ptr++ ; } } } /* we've seen an ID in a context where it should be a VAR, check that's consistent with previous usage */ static void check_var( p ) register SYMTAB *p ; { switch(p->type) { case ST_NONE : /* new id */ st_none: p->type = ST_VAR ; p->stval.cp = ZMALLOC(CELL) ; p->stval.cp->type = C_NOINIT ; break ; case ST_LOCAL_NONE : p->type = ST_LOCAL_VAR ; active_funct->typev[p->offset] = ST_LOCAL_VAR ; break ; case ST_VAR : case ST_LOCAL_VAR : break ; case ST_BUILTIN : if (is_ext_builtin(p->name)) goto st_none; default : type_error(p) ; break ; } } /* we've seen an ID in a context where it should be an ARRAY, check that's consistent with previous usage */ static void check_array(p) register SYMTAB *p ; { switch(p->type) { case ST_NONE : /* a new array */ st_none: p->type = ST_ARRAY ; p->stval.array = new_ARRAY() ; break ; case ST_ARRAY : case ST_LOCAL_ARRAY : break ; case ST_LOCAL_NONE : p->type = ST_LOCAL_ARRAY ; active_funct->typev[p->offset] = ST_LOCAL_ARRAY ; break ; case ST_BUILTIN : if (is_ext_builtin(p->name)) goto st_none; default : type_error(p) ; break ; } } static void code_array(p) register SYMTAB *p ; { if ( is_local(p) ) code2op(LA_PUSHA, p->offset) ; else code2(A_PUSHA, p->stval.array) ; } /* we've seen an ID as an argument to a user defined function */ static void code_call_id( p, ip ) register CA_REC *p ; register SYMTAB *ip ; { static CELL dummy ; p->call_offset = code_offset ; /* This always get set now. So that fcall:relocate_arglist works. */ switch( ip->type ) { case ST_VAR : p->type = CA_EXPR ; code2(_PUSHI, ip->stval.cp) ; break ; case ST_LOCAL_VAR : p->type = CA_EXPR ; code2op(L_PUSHI, ip->offset) ; break ; case ST_ARRAY : p->type = CA_ARRAY ; code2(A_PUSHA, ip->stval.array) ; break ; case ST_LOCAL_ARRAY : p->type = CA_ARRAY ; code2op(LA_PUSHA, ip->offset) ; break ; /* not enough info to code it now; it will have to be patched later */ case ST_NONE : p->type = ST_NONE ; p->sym_p = ip ; code2(_PUSHI, &dummy) ; break ; case ST_LOCAL_NONE : p->type = ST_LOCAL_NONE ; p->type_p = & active_funct->typev[ip->offset] ; code2op(L_PUSHI, ip->offset) ; break ; #ifdef DEBUG default : bozo("code_call_id") ; #endif } } /* an RE by itself was coded as _MATCH0 , change to push as an expression */ static void RE_as_arg() { CELL *cp = ZMALLOC(CELL) ; code_ptr -= 2 ; cp->type = C_RE ; cp->ptr = code_ptr[1].ptr ; code2(_PUSHC, cp) ; } /* reset the active_code back to the MAIN block */ static void switch_code_to_main() { switch(scope) { case SCOPE_BEGIN : *begin_code_p = active_code ; active_code = *main_code_p ; break ; case SCOPE_END : *end_code_p = active_code ; active_code = *main_code_p ; break ; case SCOPE_FUNCT : active_code = *main_code_p ; break ; case SCOPE_MAIN : break ; } active_funct = (FBLOCK*) 0 ; scope = SCOPE_MAIN ; } void parse() { if ( yyparse() || compile_error_count != 0 ) exit(2) ; scan_cleanup() ; set_code() ; /* code must be set before call to resolve_fcalls() */ if ( resolve_list ) resolve_fcalls() ; if ( compile_error_count != 0 ) exit(2) ; dump_code() ; } #line 1480 "y.tab.c" #define YYABORT goto yyabort #define YYREJECT goto yyabort #define YYACCEPT goto yyaccept #define YYERROR goto yyerrlab int yyparse() { register int yym, yyn, yystate; #if YYDEBUG register char *yys; extern char *getenv(); if (yys = getenv("YYDEBUG")) { yyn = *yys; if (yyn >= '0' && yyn <= '9') yydebug = yyn - '0'; } #endif yynerrs = 0; yyerrflag = 0; yychar = (-1); yyssp = yyss; yyvsp = yyvs; *yyssp = yystate = 0; yyloop: if (yyn = yydefred[yystate]) goto yyreduce; if (yychar < 0) { if ((yychar = yylex()) < 0) yychar = 0; #if YYDEBUG if (yydebug) { yys = 0; if (yychar <= YYMAXTOKEN) yys = yyname[yychar]; if (!yys) yys = "illegal-symbol"; printf("%sdebug: state %d, reading %d (%s)\n", YYPREFIX, yystate, yychar, yys); } #endif } if ((yyn = yysindex[yystate]) && (yyn += yychar) >= 0 && yyn <= YYTABLESIZE && yycheck[yyn] == yychar) { #if YYDEBUG if (yydebug) printf("%sdebug: state %d, shifting to state %d\n", YYPREFIX, yystate, yytable[yyn]); #endif if (yyssp >= yyss + yystacksize - 1) { goto yyoverflow; } *++yyssp = yystate = yytable[yyn]; *++yyvsp = yylval; yychar = (-1); if (yyerrflag > 0) --yyerrflag; goto yyloop; } if ((yyn = yyrindex[yystate]) && (yyn += yychar) >= 0 && yyn <= YYTABLESIZE && yycheck[yyn] == yychar) { yyn = yytable[yyn]; goto yyreduce; } if (yyerrflag) goto yyinrecovery; #ifdef lint goto yynewerror; #endif yynewerror: yyerror("syntax error"); #ifdef lint goto yyerrlab; #endif yyerrlab: ++yynerrs; yyinrecovery: if (yyerrflag < 3) { yyerrflag = 3; for (;;) { if ((yyn = yysindex[*yyssp]) && (yyn += YYERRCODE) >= 0 && yyn <= YYTABLESIZE && yycheck[yyn] == YYERRCODE) { #if YYDEBUG if (yydebug) printf("%sdebug: state %d, error recovery shifting\ to state %d\n", YYPREFIX, *yyssp, yytable[yyn]); #endif if (yyssp >= yyss + yystacksize - 1) { goto yyoverflow; } *++yyssp = yystate = yytable[yyn]; *++yyvsp = yylval; goto yyloop; } else { #if YYDEBUG if (yydebug) printf("%sdebug: error recovery discarding state %d\n", YYPREFIX, *yyssp); #endif if (yyssp <= yyss) goto yyabort; --yyssp; --yyvsp; } } } else { if (yychar == 0) goto yyabort; #if YYDEBUG if (yydebug) { yys = 0; if (yychar <= YYMAXTOKEN) yys = yyname[yychar]; if (!yys) yys = "illegal-symbol"; printf("%sdebug: state %d, error recovery discards token %d (%s)\n", YYPREFIX, yystate, yychar, yys); } #endif yychar = (-1); goto yyloop; } yyreduce: #if YYDEBUG if (yydebug) printf("%sdebug: state %d, reducing by rule %d (%s)\n", YYPREFIX, yystate, yyn, yyrule[yyn]); #endif yym = yylen[yyn]; yyval = yyvsp[1-yym]; switch (yyn) { case 6: #line 161 "parse.y" { /* this do nothing action removes a vacuous warning from Bison */ } break; case 7: #line 166 "parse.y" { be_setup(scope = SCOPE_BEGIN) ; } break; case 8: #line 169 "parse.y" { switch_code_to_main() ; } break; case 9: #line 172 "parse.y" { be_setup(scope = SCOPE_END) ; } break; case 10: #line 175 "parse.y" { switch_code_to_main() ; } break; case 11: #line 178 "parse.y" { code_jmp(_JZ, (INST*)0) ; } break; case 12: #line 181 "parse.y" { patch_jmp( code_ptr ) ; } break; case 13: #line 185 "parse.y" { INST *p1 = CDP(yyvsp[-1].start) ; int len ; code_push(p1, code_ptr - p1, scope, active_funct) ; code_ptr = p1 ; code2op(_RANGE, 1) ; code_ptr += 3 ; len = code_pop(code_ptr) ; code_ptr += len ; code1(_STOP) ; p1 = CDP(yyvsp[-1].start) ; p1[2].op = code_ptr - (p1+1) ; } break; case 14: #line 201 "parse.y" { code1(_STOP) ; } break; case 15: #line 204 "parse.y" { INST *p1 = CDP(yyvsp[-5].start) ; p1[3].op = CDP(yyvsp[0].start) - (p1+1) ; p1[4].op = code_ptr - (p1+1) ; } break; case 16: #line 215 "parse.y" { yyval.start = yyvsp[-1].start ; } break; case 17: #line 217 "parse.y" { yyval.start = code_offset ; /* does nothing won't be executed */ print_flag = getline_flag = paren_cnt = 0 ; yyerrok ; } break; case 19: #line 224 "parse.y" { yyval.start = code_offset ; code1(_PUSHINT) ; code1(0) ; code2(_PRINT, bi_print) ; } break; case 23: #line 236 "parse.y" { code1(_POP) ; } break; case 24: #line 238 "parse.y" { yyval.start = code_offset ; } break; case 25: #line 240 "parse.y" { yyval.start = code_offset ; print_flag = getline_flag = 0 ; paren_cnt = 0 ; yyerrok ; } break; case 26: #line 246 "parse.y" { yyval.start = code_offset ; BC_insert('B', code_ptr+1) ; code2(_BREAK, 0) /* don't use code_jmp ! */ ; } break; case 27: #line 249 "parse.y" { yyval.start = code_offset ; BC_insert('C', code_ptr+1) ; code2(_GOTO, 0) ; } break; case 28: #line 252 "parse.y" { if ( scope != SCOPE_FUNCT ) compile_error("return outside function body") ; } break; case 29: #line 256 "parse.y" { if ( scope != SCOPE_MAIN && scope != SCOPE_FUNCT ) compile_error( "improper use of next" ) ; yyval.start = code_offset ; code1(_NEXT) ; } break; case 30: #line 262 "parse.y" { if ( scope != SCOPE_MAIN && scope != SCOPE_FUNCT ) compile_error( "improper use of nextfile" ) ; yyval.start = code_offset ; code1(_NEXTFILE) ; } break; case 34: #line 273 "parse.y" { code1(_ASSIGN) ; } break; case 35: #line 274 "parse.y" { code1(_ADD_ASG) ; } break; case 36: #line 275 "parse.y" { code1(_SUB_ASG) ; } break; case 37: #line 276 "parse.y" { code1(_MUL_ASG) ; } break; case 38: #line 277 "parse.y" { code1(_DIV_ASG) ; } break; case 39: #line 278 "parse.y" { code1(_MOD_ASG) ; } break; case 40: #line 279 "parse.y" { code1(_POW_ASG) ; } break; case 41: #line 280 "parse.y" { code1(_EQ) ; } break; case 42: #line 281 "parse.y" { code1(_NEQ) ; } break; case 43: #line 282 "parse.y" { code1(_LT) ; } break; case 44: #line 283 "parse.y" { code1(_LTE) ; } break; case 45: #line 284 "parse.y" { code1(_GT) ; } break; case 46: #line 285 "parse.y" { code1(_GTE) ; } break; case 47: #line 288 "parse.y" { INST *p3 = CDP(yyvsp[0].start) ; if ( p3 == code_ptr - 2 ) { if ( p3->op == _MATCH0 ) p3->op = _MATCH1 ; else /* check for string */ if ( p3->op == _PUSHS ) { CELL *cp = ZMALLOC(CELL) ; cp->type = C_STRING ; cp->ptr = p3[1].ptr ; cast_to_RE(cp) ; code_ptr -= 2 ; code2(_MATCH1, cp->ptr) ; ZFREE(cp) ; } else code1(_MATCH2) ; } else code1(_MATCH2) ; if ( !yyvsp[-1].ival ) code1(_NOT) ; } break; case 48: #line 315 "parse.y" { code1(_TEST) ; code_jmp(_LJNZ, (INST*)0) ; } break; case 49: #line 319 "parse.y" { code1(_TEST) ; patch_jmp(code_ptr) ; } break; case 50: #line 322 "parse.y" { code1(_TEST) ; code_jmp(_LJZ, (INST*)0) ; } break; case 51: #line 326 "parse.y" { code1(_TEST) ; patch_jmp(code_ptr) ; } break; case 52: #line 328 "parse.y" { code_jmp(_QMARK, (INST*)0) ; } break; case 53: #line 329 "parse.y" { code_jmp(_COLON, (INST*)0) ; } break; case 54: #line 331 "parse.y" { patch_jmp(code_ptr) ; patch_jmp(CDP(yyvsp[0].start)) ; } break; case 56: #line 336 "parse.y" { code1(_CAT) ; } break; case 57: #line 340 "parse.y" { yyval.start = code_offset ; code2(_PUSHD, yyvsp[0].ptr) ; } break; case 58: #line 342 "parse.y" { yyval.start = code_offset ; code2(_PUSHS, yyvsp[0].ptr) ; } break; case 59: #line 344 "parse.y" { check_var(yyvsp[0].stp) ; yyval.start = code_offset ; if ( is_local(yyvsp[0].stp) ) { code2op(L_PUSHI, yyvsp[0].stp->offset) ; } else code2(_PUSHI, yyvsp[0].stp->stval.cp) ; } break; case 60: #line 352 "parse.y" { yyval.start = yyvsp[-1].start ; } break; case 61: #line 356 "parse.y" { yyval.start = code_offset ; code2(_MATCH0, yyvsp[0].ptr) ; } break; case 62: #line 359 "parse.y" { code1(_ADD) ; } break; case 63: #line 360 "parse.y" { code1(_SUB) ; } break; case 64: #line 361 "parse.y" { code1(_MUL) ; } break; case 65: #line 362 "parse.y" { code1(_DIV) ; } break; case 66: #line 363 "parse.y" { code1(_MOD) ; } break; case 67: #line 364 "parse.y" { code1(_POW) ; } break; case 68: #line 366 "parse.y" { yyval.start = yyvsp[0].start ; code1(_NOT) ; } break; case 69: #line 368 "parse.y" { yyval.start = yyvsp[0].start ; code1(_UPLUS) ; } break; case 70: #line 370 "parse.y" { yyval.start = yyvsp[0].start ; code1(_UMINUS) ; } break; case 72: #line 375 "parse.y" { check_var(yyvsp[-1].stp) ; yyval.start = code_offset ; code_address(yyvsp[-1].stp) ; if ( yyvsp[0].ival == '+' ) code1(_POST_INC) ; else code1(_POST_DEC) ; } break; case 73: #line 383 "parse.y" { yyval.start = yyvsp[0].start ; if ( yyvsp[-1].ival == '+' ) code1(_PRE_INC) ; else code1(_PRE_DEC) ; } break; case 74: #line 390 "parse.y" { if (yyvsp[0].ival == '+' ) code1(F_POST_INC ) ; else code1(F_POST_DEC) ; } break; case 75: #line 394 "parse.y" { yyval.start = yyvsp[0].start ; if ( yyvsp[-1].ival == '+' ) code1(F_PRE_INC) ; else code1( F_PRE_DEC) ; } break; case 76: #line 401 "parse.y" { yyval.start = code_offset ; check_var(yyvsp[0].stp) ; code_address(yyvsp[0].stp) ; } break; case 77: #line 406 "parse.y" { BI_REC *p = yyvsp[-4].bip ; yyval.start = yyvsp[-3].start; if (strcmp(p->name, "argval")) compile_error("builtin function '%s' used as an lvalue", p->name); if ( (int)p->min_args > yyvsp[-1].ival || (int)p->max_args < yyvsp[-1].ival ) compile_error( "wrong number of arguments in call to %s" , p->name ) ; if ( p->min_args != p->max_args ) /* variable args */ { code1(_PUSHINT) ; code1(yyvsp[-1].ival) ; } code2(_BUILTIN , p->fp) ; } break; case 78: #line 424 "parse.y" { yyval.ival = 0 ; } break; case 80: #line 429 "parse.y" { yyval.ival = 1 ; } break; case 81: #line 431 "parse.y" { yyval.ival = yyvsp[-2].ival + 1 ; } break; case 82: #line 436 "parse.y" { BI_REC *p = yyvsp[-4].bip ; yyval.start = yyvsp[-3].start ; if ( (int)p->min_args > yyvsp[-1].ival || (int)p->max_args < yyvsp[-1].ival ) compile_error( "wrong number of arguments in call to %s" , p->name ) ; if ( p->min_args != p->max_args ) /* variable args */ { code1(_PUSHINT) ; code1(yyvsp[-1].ival) ; } code2(_BUILTIN , p->fp) ; } break; case 83: #line 448 "parse.y" { yyval.start = code_offset ; code1(_PUSHINT) ; code1(0) ; code2(_BUILTIN, yyvsp[0].bip->fp) ; } break; case 84: #line 457 "parse.y" { yyval.start = code_offset ; } break; case 85: #line 461 "parse.y" { code2(_PRINT, yyvsp[-4].fp) ; if ( yyvsp[-4].fp == bi_printf && yyvsp[-2].ival == 0 ) compile_error("no arguments in call to printf") ; print_flag = 0 ; yyval.start = yyvsp[-3].start ; } break; case 86: #line 469 "parse.y" { yyval.fp = bi_print ; print_flag = 1 ;} break; case 87: #line 470 "parse.y" { yyval.fp = bi_printf ; print_flag = 1 ; } break; case 88: #line 473 "parse.y" { code2op(_PUSHINT, yyvsp[0].ival) ; } break; case 89: #line 475 "parse.y" { yyval.ival = yyvsp[-1].arg2p->cnt ; zfree(yyvsp[-1].arg2p,sizeof(ARG2_REC)) ; code2op(_PUSHINT, yyval.ival) ; } break; case 90: #line 479 "parse.y" { yyval.ival=0 ; code2op(_PUSHINT, 0) ; } break; case 91: #line 483 "parse.y" { yyval.arg2p = (ARG2_REC*) zmalloc(sizeof(ARG2_REC)) ; yyval.arg2p->start = yyvsp[-2].start ; yyval.arg2p->cnt = 2 ; } break; case 92: #line 488 "parse.y" { yyval.arg2p = yyvsp[-2].arg2p ; yyval.arg2p->cnt++ ; } break; case 94: #line 493 "parse.y" { code2op(_PUSHINT, yyvsp[-1].ival) ; } break; case 95: #line 495 "parse.y" { code2op(_PUSHINT, yyvsp[-1].ival) ; } break; case 96: #line 502 "parse.y" { yyval.start = yyvsp[-1].start ; eat_nl() ; code_jmp(_JZ, (INST*)0) ; } break; case 97: #line 507 "parse.y" { patch_jmp( code_ptr ) ; } break; case 98: #line 510 "parse.y" { eat_nl() ; code_jmp(_ELSE, (INST*)0) ; } break; case 99: #line 515 "parse.y" { patch_jmp(code_ptr) ; patch_jmp(CDP(yyvsp[0].start)) ; } break; case 100: #line 523 "parse.y" { eat_nl() ; BC_new() ; } break; case 101: #line 528 "parse.y" { yyval.start = yyvsp[-5].start ; code_jmp(_JNZ, CDP(yyvsp[-5].start)) ; BC_clear(code_ptr, CDP(yyvsp[-2].start)) ; } break; case 102: #line 534 "parse.y" { eat_nl() ; BC_new() ; yyval.start = yyvsp[-1].start ; /* check if const expression */ if ( code_ptr - 2 == CDP(yyvsp[-1].start) && code_ptr[-2].op == _PUSHD && *(double*)code_ptr[-1].ptr != 0.0 ) code_ptr -= 2 ; else { INST *p3 = CDP(yyvsp[-1].start) ; code_push(p3, code_ptr-p3, scope, active_funct) ; code_ptr = p3 ; code2(_JMP, (INST*)0) ; /* code2() not code_jmp() */ } } break; case 103: #line 554 "parse.y" { int saved_offset ; int len ; INST *p1 = CDP(yyvsp[-1].start) ; INST *p2 = CDP(yyvsp[0].start) ; if ( p1 != p2 ) /* real test in loop */ { p1[1].op = code_ptr-(p1+1) ; saved_offset = code_offset ; len = code_pop(code_ptr) ; code_ptr += len ; code_jmp(_JNZ, CDP(yyvsp[0].start)) ; BC_clear(code_ptr, CDP(saved_offset)) ; } else /* while(1) */ { code_jmp(_JMP, p1) ; BC_clear(code_ptr, CDP(yyvsp[0].start)) ; } } break; case 104: #line 580 "parse.y" { int cont_offset = code_offset ; unsigned len = code_pop(code_ptr) ; INST *p2 = CDP(yyvsp[-2].start) ; INST *p4 = CDP(yyvsp[0].start) ; code_ptr += len ; if ( p2 != p4 ) /* real test in for2 */ { p4[-1].op = code_ptr - p4 + 1 ; len = code_pop(code_ptr) ; code_ptr += len ; code_jmp(_JNZ, CDP(yyvsp[0].start)) ; } else /* for(;;) */ code_jmp(_JMP, p4) ; BC_clear(code_ptr, CDP(cont_offset)) ; } break; case 105: #line 603 "parse.y" { yyval.start = code_offset ; } break; case 106: #line 605 "parse.y" { yyval.start = yyvsp[-1].start ; code1(_POP) ; } break; case 107: #line 608 "parse.y" { yyval.start = code_offset ; } break; case 108: #line 610 "parse.y" { if ( code_ptr - 2 == CDP(yyvsp[-1].start) && code_ptr[-2].op == _PUSHD && * (double*) code_ptr[-1].ptr != 0.0 ) code_ptr -= 2 ; else { INST *p1 = CDP(yyvsp[-1].start) ; code_push(p1, code_ptr-p1, scope, active_funct) ; code_ptr = p1 ; code2(_JMP, (INST*)0) ; } } break; case 109: #line 627 "parse.y" { eat_nl() ; BC_new() ; code_push((INST*)0,0, scope, active_funct) ; } break; case 110: #line 631 "parse.y" { INST *p1 = CDP(yyvsp[-1].start) ; eat_nl() ; BC_new() ; code1(_POP) ; code_push(p1, code_ptr - p1, scope, active_funct) ; code_ptr -= code_ptr - p1 ; } break; case 111: #line 644 "parse.y" { check_array(yyvsp[0].stp) ; code_array(yyvsp[0].stp) ; code1(A_TEST) ; } break; case 112: #line 649 "parse.y" { yyval.start = yyvsp[-3].arg2p->start ; code2op(A_CAT, yyvsp[-3].arg2p->cnt) ; zfree(yyvsp[-3].arg2p, sizeof(ARG2_REC)) ; check_array(yyvsp[0].stp) ; code_array(yyvsp[0].stp) ; code1(A_TEST) ; } break; case 113: #line 660 "parse.y" { if ( yyvsp[-1].ival > 1 ) { code2op(A_CAT, yyvsp[-1].ival) ; } check_array(yyvsp[-4].stp) ; if( is_local(yyvsp[-4].stp) ) { code2op(LAE_PUSHA, yyvsp[-4].stp->offset) ; } else code2(AE_PUSHA, yyvsp[-4].stp->stval.array) ; yyval.start = yyvsp[-3].start ; } break; case 114: #line 673 "parse.y" { if ( yyvsp[-1].ival > 1 ) { code2op(A_CAT, yyvsp[-1].ival) ; } check_array(yyvsp[-4].stp) ; if( is_local(yyvsp[-4].stp) ) { code2op(LAE_PUSHI, yyvsp[-4].stp->offset) ; } else code2(AE_PUSHI, yyvsp[-4].stp->stval.array) ; yyval.start = yyvsp[-3].start ; } break; case 115: #line 685 "parse.y" { if ( yyvsp[-2].ival > 1 ) { code2op(A_CAT,yyvsp[-2].ival) ; } check_array(yyvsp[-5].stp) ; if( is_local(yyvsp[-5].stp) ) { code2op(LAE_PUSHA, yyvsp[-5].stp->offset) ; } else code2(AE_PUSHA, yyvsp[-5].stp->stval.array) ; if ( yyvsp[0].ival == '+' ) code1(_POST_INC) ; else code1(_POST_DEC) ; yyval.start = yyvsp[-4].start ; } break; case 116: #line 702 "parse.y" { yyval.start = yyvsp[-4].start ; if ( yyvsp[-2].ival > 1 ) { code2op(A_CAT, yyvsp[-2].ival) ; } check_array(yyvsp[-5].stp) ; code_array(yyvsp[-5].stp) ; code1(A_DEL) ; } break; case 117: #line 710 "parse.y" { yyval.start = code_offset ; check_array(yyvsp[-1].stp) ; code_array(yyvsp[-1].stp) ; code1(DEL_A) ; } break; case 118: #line 721 "parse.y" { eat_nl() ; BC_new() ; yyval.start = code_offset ; check_var(yyvsp[-3].stp) ; code_address(yyvsp[-3].stp) ; check_array(yyvsp[-1].stp) ; code_array(yyvsp[-1].stp) ; code2(SET_ALOOP, (INST*)0) ; } break; case 119: #line 735 "parse.y" { INST *p2 = CDP(yyvsp[0].start) ; p2[-1].op = code_ptr - p2 + 1 ; BC_clear( code_ptr+2 , code_ptr) ; code_jmp(ALOOP, p2) ; code1(POP_AL) ; } break; case 120: #line 752 "parse.y" { yyval.start = code_offset ; code2(F_PUSHA, yyvsp[0].cp) ; } break; case 121: #line 754 "parse.y" { check_var(yyvsp[0].stp) ; yyval.start = code_offset ; if ( is_local(yyvsp[0].stp) ) { code2op(L_PUSHI, yyvsp[0].stp->offset) ; } else code2(_PUSHI, yyvsp[0].stp->stval.cp) ; CODE_FE_PUSHA() ; } break; case 122: #line 764 "parse.y" { if ( yyvsp[-1].ival > 1 ) { code2op(A_CAT, yyvsp[-1].ival) ; } check_array(yyvsp[-4].stp) ; if( is_local(yyvsp[-4].stp) ) { code2op(LAE_PUSHI, yyvsp[-4].stp->offset) ; } else code2(AE_PUSHI, yyvsp[-4].stp->stval.array) ; CODE_FE_PUSHA() ; yyval.start = yyvsp[-3].start ; } break; case 123: #line 778 "parse.y" { yyval.start = yyvsp[0].start ; CODE_FE_PUSHA() ; } break; case 124: #line 782 "parse.y" { yyval.start = yyvsp[-1].start ; } break; case 125: #line 786 "parse.y" { field_A2I() ; } break; case 126: #line 789 "parse.y" { code1(F_ASSIGN) ; } break; case 127: #line 790 "parse.y" { code1(F_ADD_ASG) ; } break; case 128: #line 791 "parse.y" { code1(F_SUB_ASG) ; } break; case 129: #line 792 "parse.y" { code1(F_MUL_ASG) ; } break; case 130: #line 793 "parse.y" { code1(F_DIV_ASG) ; } break; case 131: #line 794 "parse.y" { code1(F_MOD_ASG) ; } break; case 132: #line 795 "parse.y" { code1(F_POW_ASG) ; } break; case 133: #line 802 "parse.y" { code2(_BUILTIN, bi_split) ; } break; case 134: #line 806 "parse.y" { yyval.start = yyvsp[-2].start ; check_array(yyvsp[0].stp) ; code_array(yyvsp[0].stp) ; } break; case 135: #line 813 "parse.y" { code2(_PUSHI, &fs_shadow) ; } break; case 136: #line 815 "parse.y" { if ( CDP(yyvsp[-1].start) == code_ptr - 2 ) { if ( code_ptr[-2].op == _MATCH0 ) RE_as_arg() ; else if ( code_ptr[-2].op == _PUSHS ) { CELL *cp = ZMALLOC(CELL) ; cp->type = C_STRING ; cp->ptr = code_ptr[-1].ptr ; cast_for_split(cp) ; code_ptr[-2].op = _PUSHC ; code_ptr[-1].ptr = (PTR) cp ; } } } break; case 137: #line 839 "parse.y" { check_array(yyvsp[-1].stp) ; code_array(yyvsp[-1].stp) ; code2(_BUILTIN, bi_alength) ; } break; case 138: #line 849 "parse.y" { yyval.start = yyvsp[-3].start ; check_array(yyvsp[-1].stp) ; code_array(yyvsp[-1].stp) ; code1(_PUSHINT) ; code1(1) ; code2(_BUILTIN, bi_asort) ; } break; case 139: #line 857 "parse.y" { yyval.start = yyvsp[-5].start ; check_array(yyvsp[-1].stp) ; code_array(yyvsp[-1].stp) ; check_array(yyvsp[-3].stp) ; code_array(yyvsp[-3].stp) ; code1(_PUSHINT) ; code1(2) ; code2(_BUILTIN, bi_asort) ; } break; case 140: #line 871 "parse.y" { yyval.start = yyvsp[-5].start ; check_array(yyvsp[-1].stp); code_array(yyvsp[-1].stp); code1(_PUSHINT); code1(3); code2(_BUILTIN, bi_match) ; } break; case 141: #line 878 "parse.y" { yyval.start = yyvsp[-3].start ; code1(_PUSHINT); code1(2); code2(_BUILTIN, bi_match) ; } break; case 142: #line 893 "parse.y" { INST *p1 = CDP(yyvsp[0].start) ; if ( p1 == code_ptr - 2 ) { if ( p1->op == _MATCH0 ) RE_as_arg() ; else if ( p1->op == _PUSHS ) { CELL *cp = ZMALLOC(CELL) ; cp->type = C_STRING ; cp->ptr = p1[1].ptr ; cast_to_RE(cp) ; p1->op = _PUSHC ; p1[1].ptr = (PTR) cp ; } } } break; case 143: #line 916 "parse.y" { yyval.start = code_offset ; code1(_EXIT0) ; } break; case 144: #line 919 "parse.y" { yyval.start = yyvsp[-1].start ; code1(_EXIT) ; } break; case 145: #line 921 "parse.y" { yyval.start = code_offset ; code1(_ABORT0) ; } break; case 146: #line 924 "parse.y" { yyval.start = yyvsp[-1].start ; code1(_ABORT) ; } break; case 147: #line 927 "parse.y" { yyval.start = code_offset ; code1(_RET0) ; } break; case 148: #line 930 "parse.y" { yyval.start = yyvsp[-1].start ; code1(_RET) ; } break; case 149: #line 936 "parse.y" { yyval.start = code_offset ; code2(F_PUSHA, &field[0]) ; code1(_PUSHINT) ; code1(0) ; code2(_BUILTIN, bi_getline) ; getline_flag = 0 ; } break; case 150: #line 943 "parse.y" { yyval.start = yyvsp[0].start ; code1(_PUSHINT) ; code1(0) ; code2(_BUILTIN, bi_getline) ; getline_flag = 0 ; } break; case 151: #line 949 "parse.y" { code1(_PUSHINT) ; code1(F_IN) ; code2(_BUILTIN, bi_getline) ; /* getline_flag already off in yylex() */ } break; case 152: #line 954 "parse.y" { code2(F_PUSHA, &field[0]) ; code1(_PUSHINT) ; code1(COP_IN) ; code2(_BUILTIN, bi_getline) ; } break; case 153: #line 959 "parse.y" { code1(_PUSHINT) ; code1(COP_IN) ; code2(_BUILTIN, bi_getline) ; } break; case 154: #line 964 "parse.y" { code2(F_PUSHA, &field[0]) ; code1(_PUSHINT) ; code1(PIPE_IN) ; code2(_BUILTIN, bi_getline) ; } break; case 155: #line 969 "parse.y" { code1(_PUSHINT) ; code1(PIPE_IN) ; code2(_BUILTIN, bi_getline) ; } break; case 156: #line 975 "parse.y" { getline_flag = 1 ; } break; case 159: #line 980 "parse.y" { yyval.start = code_offset ; code2(F_PUSHA, field+0) ; } break; case 160: #line 984 "parse.y" { yyval.start = yyvsp[-1].start ; } break; case 161: #line 992 "parse.y" { INST *p5 = CDP(yyvsp[-3].start) ; INST *p8 = CDP(yyvsp[0].start) ; if ( p8 - p5 == 2 && p5->op == _PUSHS ) { /* cast from STRING to REPL at compile time */ CELL *cp = ZMALLOC(CELL) ; cp->type = C_STRING ; cp->ptr = p5[1].ptr ; cast_to_REPL(cp) ; p5->op = _PUSHC ; p5[1].ptr = (PTR) cp ; } code2(_BUILTIN, yyvsp[-7].fp) ; yyval.start = yyvsp[-5].start ; } break; case 162: #line 1010 "parse.y" { yyval.fp = bi_gensub ; } break; case 163: #line 1014 "parse.y" { INST *p5 = CDP(yyvsp[-1].start) ; INST *p6 = CDP(yyvsp[0].start) ; if ( p6 - p5 == 2 && p5->op == _PUSHS ) { /* cast from STRING to REPL at compile time */ CELL *cp = ZMALLOC(CELL) ; cp->type = C_STRING ; cp->ptr = p5[1].ptr ; cast_to_REPL(cp) ; p5->op = _PUSHC ; p5[1].ptr = (PTR) cp ; } code2(_BUILTIN, yyvsp[-5].fp) ; yyval.start = yyvsp[-3].start ; } break; case 164: #line 1032 "parse.y" { yyval.fp = bi_sub ; } break; case 165: #line 1033 "parse.y" { yyval.fp = bi_gsub ; } break; case 166: #line 1038 "parse.y" { yyval.start = code_offset ; code2(F_PUSHA, &field[0]) ; } break; case 167: #line 1043 "parse.y" { yyval.start = yyvsp[-1].start ; } break; case 168: #line 1047 "parse.y" { yyval.start = code_offset ; code2(F_PUSHA, &field[0]) ; } break; case 169: #line 1051 "parse.y" { yyval.start = yyvsp[-1].start ; } break; case 170: #line 1059 "parse.y" { resize_fblock(yyvsp[-1].fbp) ; restore_ids() ; switch_code_to_main() ; } break; case 171: #line 1068 "parse.y" { eat_nl() ; scope = SCOPE_FUNCT ; active_funct = yyvsp[-3].fbp ; *main_code_p = active_code ; yyvsp[-3].fbp->nargs = yyvsp[-1].ival ; if ( yyvsp[-1].ival ) yyvsp[-3].fbp->typev = (char *) memset( zmalloc(yyvsp[-1].ival), ST_LOCAL_NONE, yyvsp[-1].ival) ; else yyvsp[-3].fbp->typev = (char *) 0 ; code_ptr = code_base = (INST *) zmalloc(INST_BYTES(PAGESZ)); code_limit = code_base + PAGESZ ; code_warn = code_limit - CODEWARN ; } break; case 172: #line 1088 "parse.y" { FBLOCK *fbp ; if ( yyvsp[0].stp->type == ST_NONE ) { yyvsp[0].stp->type = ST_FUNCT ; fbp = yyvsp[0].stp->stval.fbp = (FBLOCK *) zmalloc(sizeof(FBLOCK)) ; fbp->name = yyvsp[0].stp->name ; fbp->code = (INST*) 0 ; } else { type_error( yyvsp[0].stp ) ; /* this FBLOCK will not be put in the symbol table */ fbp = (FBLOCK*) zmalloc(sizeof(FBLOCK)) ; fbp->name = "" ; } yyval.fbp = fbp ; } break; case 173: #line 1111 "parse.y" { yyval.fbp = yyvsp[0].fbp ; if ( yyvsp[0].fbp->code ) compile_error("redefinition of %s" , yyvsp[0].fbp->name) ; } break; case 174: #line 1118 "parse.y" { yyval.ival = 0 ; } break; case 176: #line 1123 "parse.y" { yyvsp[0].stp = save_id(yyvsp[0].stp->name) ; yyvsp[0].stp->type = ST_LOCAL_NONE ; yyvsp[0].stp->offset = 0 ; yyval.ival = 1 ; } break; case 177: #line 1130 "parse.y" { if ( is_local(yyvsp[0].stp) ) compile_error("%s is duplicated in argument list", yyvsp[0].stp->name) ; else { yyvsp[0].stp = save_id(yyvsp[0].stp->name) ; yyvsp[0].stp->type = ST_LOCAL_NONE ; yyvsp[0].stp->offset = yyvsp[-2].ival ; yyval.ival = yyvsp[-2].ival + 1 ; } } break; case 178: #line 1144 "parse.y" { /* we may have to recover from a bungled function definition */ /* can have local ids, before code scope changes */ restore_ids() ; switch_code_to_main() ; } break; case 179: #line 1157 "parse.y" { yyval.start = yyvsp[-1].start ; code2(_CALL, yyvsp[-2].fbp) ; if ( yyvsp[0].ca_p ) code1(yyvsp[0].ca_p->arg_num+1) ; else code1(0) ; check_fcall(yyvsp[-2].fbp, scope, code_move_level, active_funct, yyvsp[0].ca_p, token_lineno) ; } break; case 180: #line 1169 "parse.y" { yyval.ca_p = (CA_REC *) 0 ; } break; case 181: #line 1171 "parse.y" { yyval.ca_p = yyvsp[0].ca_p ; yyval.ca_p->link = yyvsp[-1].ca_p ; yyval.ca_p->arg_num = yyvsp[-1].ca_p ? yyvsp[-1].ca_p->arg_num+1 : 0 ; } break; case 182: #line 1186 "parse.y" { yyval.ca_p = (CA_REC *) 0 ; } break; case 183: #line 1188 "parse.y" { yyval.ca_p = ZMALLOC(CA_REC) ; yyval.ca_p->link = yyvsp[-2].ca_p ; yyval.ca_p->type = CA_EXPR ; yyval.ca_p->arg_num = yyvsp[-2].ca_p ? yyvsp[-2].ca_p->arg_num+1 : 0 ; yyval.ca_p->call_offset = code_offset ; } break; case 184: #line 1195 "parse.y" { yyval.ca_p = ZMALLOC(CA_REC) ; yyval.ca_p->link = yyvsp[-2].ca_p ; yyval.ca_p->arg_num = yyvsp[-2].ca_p ? yyvsp[-2].ca_p->arg_num+1 : 0 ; code_call_id(yyval.ca_p, yyvsp[-1].stp) ; } break; case 185: #line 1204 "parse.y" { yyval.ca_p = ZMALLOC(CA_REC) ; yyval.ca_p->type = CA_EXPR ; yyval.ca_p->call_offset = code_offset ; } break; case 186: #line 1210 "parse.y" { yyval.ca_p = ZMALLOC(CA_REC) ; code_call_id(yyval.ca_p, yyvsp[-1].stp) ; } break; #line 2802 "y.tab.c" } yyssp -= yym; yystate = *yyssp; yyvsp -= yym; yym = yylhs[yyn]; if (yystate == 0 && yym == 0) { #if YYDEBUG if (yydebug) printf("%sdebug: after reduction, shifting from state 0 to\ state %d\n", YYPREFIX, YYFINAL); #endif yystate = YYFINAL; *++yyssp = YYFINAL; *++yyvsp = yyval; if (yychar < 0) { if ((yychar = yylex()) < 0) yychar = 0; #if YYDEBUG if (yydebug) { yys = 0; if (yychar <= YYMAXTOKEN) yys = yyname[yychar]; if (!yys) yys = "illegal-symbol"; printf("%sdebug: state %d, reading %d (%s)\n", YYPREFIX, YYFINAL, yychar, yys); } #endif } if (yychar == 0) goto yyaccept; goto yyloop; } if ((yyn = yygindex[yym]) && (yyn += yystate) >= 0 && yyn <= YYTABLESIZE && yycheck[yyn] == yystate) yystate = yytable[yyn]; else yystate = yydgoto[yym]; #if YYDEBUG if (yydebug) printf("%sdebug: after reduction, shifting from state %d \ to state %d\n", YYPREFIX, *yyssp, yystate); #endif if (yyssp >= yyss + yystacksize - 1) { goto yyoverflow; } *++yyssp = yystate; *++yyvsp = yyval; goto yyloop; yyoverflow: yyerror("yacc stack overflow"); yyabort: return (1); yyaccept: return (0); }