#ifndef lint static char const yyrcsid[] = "$FreeBSD: src/usr.bin/yacc/skeleton.c,v 1.28.2.1 2001/07/19 05:46:39 peter Exp $"; #endif #include #define YYBYACC 1 #define YYMAJOR 1 #define YYMINOR 9 #define YYLEX yylex() #define YYEMPTY -1 #define yyclearin (yychar=(YYEMPTY)) #define yyerrok (yyerrflag=0) #define YYRECOVERING() (yyerrflag!=0) #if defined(__cplusplus) || __STDC__ static int yygrowstack(void); #else static int yygrowstack(); #endif #define YYPREFIX "yy" #line 51 "parse.y" #define malloc(x) GC_malloc(x) #define realloc(x,y) GC_realloc(x,y) #define free(x) GC_free(x) #if defined(TOWNS) #include #endif #include #include "ca.h" #include #include #include "parse.h" #define NOPR (prresult=0) extern int gdef,mgdef,ldef; extern SNODE parse_snode; extern int main_parser, allow_create_var; int prresult; static int ind; static FNODE t; static NODE a,b; static NODE2 a2; static pointer val; static QUOTE quote; extern jmp_buf env; #line 83 "parse.y" typedef union { FNODE f; SNODE s; NODE n; NODE2 n2; int i; pointer p; } YYSTYPE; #line 59 "y.tab.c" #define YYERRCODE 256 #define STRUCT 257 #define POINT 258 #define NEWSTRUCT 259 #define ANS 260 #define FDEF 261 #define PFDEF 262 #define MODDEF 263 #define MODEND 264 #define GLOBAL 265 #define MGLOBAL 266 #define LOCAL 267 #define LOCALF 268 #define CMP 269 #define OR 270 #define AND 271 #define CAR 272 #define CDR 273 #define QUOTED 274 #define COLONCOLON 275 #define DO 276 #define WHILE 277 #define FOR 278 #define IF 279 #define ELSE 280 #define BREAK 281 #define RETURN 282 #define CONTINUE 283 #define PARIF 284 #define MAP 285 #define RECMAP 286 #define TIMER 287 #define GF2NGEN 288 #define GFPNGEN 289 #define GFSNGEN 290 #define GETOPT 291 #define FOP_AND 292 #define FOP_OR 293 #define FOP_IMPL 294 #define FOP_REPL 295 #define FOP_EQUIV 296 #define FOP_NOT 297 #define LOP 298 #define FORMULA 299 #define UCASE 300 #define LCASE 301 #define STR 302 #define SELF 303 #define BOPASS 304 #define PLUS 305 #define MINUS 306 const short yylhs[] = { -1, 0, 6, 16, 17, 6, 18, 19, 6, 20, 21, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 22, 23, 24, 6, 6, 6, 6, 15, 15, 1, 1, 7, 13, 13, 12, 12, 11, 11, 8, 8, 9, 9, 10, 10, 14, 14, 2, 2, 5, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, }; const short yylen[] = { 2, 1, 1, 0, 0, 5, 0, 0, 5, 0, 0, 5, 3, 6, 2, 1, 2, 2, 2, 3, 5, 7, 9, 5, 7, 8, 6, 0, 0, 0, 12, 3, 2, 2, 1, 1, 0, 1, 3, 1, 3, 1, 3, 1, 3, 0, 2, 0, 1, 1, 3, 1, 3, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 4, 6, 6, 6, 7, 4, 3, 8, 4, 6, 7, 4, 4, 3, 1, 4, 3, 1, 5, 3, 3, 2, 2, 3, 2, 2, 3, 3, 3, 3, 3, 3, 3, 2, 3, 3, 2, 3, 3, 3, 3, 3, 3, 5, 3, 4, 4, 2, }; const short yydefred[] = { 0, 0, 0, 0, 58, 0, 0, 0, 0, 3, 6, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 59, 60, 61, 0, 0, 57, 77, 0, 56, 0, 0, 0, 0, 0, 45, 0, 34, 35, 0, 0, 0, 0, 0, 1, 15, 2, 33, 53, 54, 0, 0, 27, 0, 0, 32, 0, 0, 0, 41, 0, 0, 0, 0, 0, 0, 0, 0, 16, 0, 0, 18, 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0, 14, 0, 0, 0, 0, 0, 0, 31, 43, 0, 0, 0, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 19, 0, 0, 0, 0, 69, 0, 0, 0, 38, 46, 0, 0, 76, 86, 0, 107, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 79, 0, 39, 0, 108, 28, 0, 0, 0, 0, 0, 42, 74, 75, 109, 0, 0, 0, 0, 0, 71, 0, 0, 0, 0, 68, 0, 0, 0, 0, 0, 0, 0, 78, 0, 0, 0, 0, 44, 5, 8, 11, 0, 23, 0, 0, 63, 0, 0, 0, 0, 0, 0, 0, 51, 0, 0, 0, 0, 0, 13, 40, 29, 26, 0, 0, 0, 72, 65, 66, 0, 0, 0, 0, 64, 0, 0, 0, 24, 0, 21, 0, 67, 0, 0, 52, 73, 0, 0, 70, 25, 37, 0, 22, 45, 0, 30, }; const short yydgoto[] = { 47, 268, 229, 96, 49, 230, 151, 51, 92, 97, 98, 128, 66, 179, 231, 52, 62, 184, 63, 185, 64, 186, 124, 212, 253, }; const short yysindex[] = { 377, -28, -273, -33, 0, -289, -287, -280, -28, 0, 0, 0, -278, -11, -1, 3, 377, 16, 23, 25, -28, 412, -28, 37, 39, 40, 41, 0, 0, 0, 42, 720, 0, 0, -37, 0, 720, 720, 720, 720, 720, 0, 434, 0, 0, 720, 720, 0, 1868, -89, 0, 0, 0, 0, 0, 0, -90, -273, 0, 44, -28, 0, -226, -226, -226, 0, -27, 720, 720, 720, -183, 720, 720, 720, 0, -34, 1868, 0, 0, -197, -194, -182, 720, 10, 476, 720, 720, -185, 17, 17, 476, -185, 276, -273, 720, 1999, 2350, 27, 77, 60, 720, 720, 720, 720, 720, 720, 720, 720, 720, 0, 720, 720, 720, 720, 720, 720, 720, 720, 720, 0, -273, 720, -273, 82, 85, 720, 0, 0, 84, 84, 84, -172, 0, 2014, 2057, 2087, 96, 100, 78, 108, 720, 0, -19, 98, 113, 2132, 0, 119, 36, -25, 0, 0, 121, 2145, 0, 0, 720, 0, -7, 147, 101, 156, 1374, 2507, 2363, 2074, -32, 2350, 17, 17, -94, -94, -94, -94, 2350, 2193, 0, 2277, 0, -40, 0, 0, 122, -136, -28, -28, -28, 0, 0, 0, 0, 720, 377, 720, 377, -23, 0, 720, 720, 720, 720, 0, 125, 109, -273, 642, 126, 2350, 720, 0, -28, -273, 720, -28, 0, 0, 0, 0, 127, 0, 111, -107, 0, 133, 134, 135, 2235, 720, 116, 124, 0, 11, 699, -89, 720, 2471, 0, 0, 0, 0, -28, 720, 377, 0, 0, 0, 720, 145, 720, 720, 0, -273, 146, 150, 0, 159, 0, 2409, 0, 1868, 2350, 0, 0, -122, 377, 0, 0, 0, 65, 0, 0, 328, 0, }; const short yyrindex[] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1517, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 104, 140, 0, 0, 793, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 163, 148, 163, 0, 756, 0, 0, 0, 0, 0, 0, 0, 0, 371, 80, -21, 1094, 1554, 1590, 422, 1131, 0, 0, 0, 0, 34, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 163, 0, 0, -17, -12, -10, 0, 0, 0, 0, 0, 0, 0, 0, 0, -21, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1778, 1929, 47, 1971, 54, 1681, 1289, 9, 904, 1036, 1626, 1665, 1168, 1204, 1242, 1279, 1392, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 163, 0, 148, 0, 0, 0, 163, 163, 163, 0, 0, 0, 1710, 0, 0, 0, 458, 0, 0, 0, 0, 163, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 163, 0, 0, 0, 0, 0, 830, 163, 1317, 0, 0, 0, 0, 0, 163, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 32, 0, 0, 87, 0, 0, 0, 0, 0, 0, 0, 0, 0, }; const short yygindex[] = { 0, 0, 856, 114, 6, -39, 139, 0, -57, 2604, 0, -6, 0, 0, 0, 2575, 0, 0, 0, 0, 0, 0, 0, 0, 0, }; #define YYTABLESIZE 2845 const short yytable[] = { 115, 20, 121, 86, 211, 116, 140, 57, 44, 44, 113, 111, 58, 112, 59, 114, 203, 131, 222, 4, 47, 60, 196, 65, 7, 197, 10, 54, 55, 67, 116, 43, 43, 122, 20, 113, 111, 20, 112, 68, 114, 20, 4, 69, 20, 104, 20, 7, 48, 10, 104, 146, 250, 104, 116, 251, 71, 129, 130, 113, 20, 20, 115, 72, 114, 73, 48, 104, 104, 48, 104, 104, 104, 55, 127, 49, 55, 79, 49, 80, 81, 82, 83, 98, 125, 210, 85, 115, 98, 85, 101, 98, 20, 49, 136, 101, 49, 20, 101, 204, 48, 204, 104, 47, 142, 98, 98, 143, 98, 98, 98, 115, 101, 101, 48, 101, 101, 101, 109, 144, 155, 156, 157, 180, 20, 181, 20, 49, 183, 187, 48, 48, 48, 104, 104, 76, 191, 193, 116, 50, 98, 192, 198, 113, 111, 84, 112, 101, 114, 194, 87, 88, 89, 90, 91, 70, 95, 199, 49, 49, 201, 202, 205, 213, 214, 227, 234, 228, 240, 120, 241, 98, 98, 242, 243, 244, 245, 248, 101, 101, 267, 133, 134, 135, 116, 249, 258, 262, 270, 113, 111, 263, 112, 116, 114, 115, 145, 47, 113, 111, 264, 112, 47, 114, 47, 47, 48, 47, 153, 109, 36, 233, 261, 271, 158, 159, 160, 161, 162, 163, 164, 165, 166, 0, 167, 168, 169, 170, 171, 172, 173, 174, 175, 0, 0, 177, 0, 100, 101, 102, 0, 115, 0, 0, 0, 0, 0, 0, 0, 0, 115, 0, 0, 0, 0, 0, 0, 20, 20, 0, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 207, 109, 0, 20, 20, 20, 0, 20, 20, 20, 20, 0, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 0, 0, 0, 109, 0, 20, 0, 20, 20, 20, 20, 20, 104, 48, 0, 48, 40, 54, 55, 44, 104, 226, 0, 42, 98, 98, 37, 109, 38, 235, 0, 0, 0, 0, 0, 0, 0, 0, 219, 0, 221, 0, 43, 46, 0, 0, 98, 98, 98, 98, 98, 0, 98, 95, 101, 101, 101, 101, 98, 0, 0, 0, 0, 48, 0, 101, 0, 257, 40, 259, 260, 44, 0, 0, 45, 42, 0, 100, 37, 39, 38, 0, 0, 0, 0, 48, 0, 0, 256, 0, 0, 0, 48, 0, 43, 46, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 41, 0, 150, 0, 269, 109, 0, 0, 99, 0, 0, 40, 0, 99, 44, 0, 99, 100, 42, 102, 45, 37, 0, 38, 0, 39, 100, 101, 102, 0, 99, 99, 0, 99, 99, 99, 0, 43, 46, 0, 0, 0, 0, 0, 0, 0, 40, 0, 0, 44, 0, 109, 41, 42, 272, 108, 37, 0, 38, 110, 109, 0, 0, 0, 110, 99, 0, 110, 40, 45, 0, 0, 43, 46, 39, 42, 0, 94, 37, 0, 38, 110, 110, 0, 110, 110, 110, 0, 0, 0, 0, 0, 0, 0, 0, 46, 99, 99, 0, 0, 50, 41, 0, 50, 45, 0, 0, 0, 0, 39, 0, 0, 0, 0, 116, 0, 110, 0, 50, 113, 111, 50, 112, 0, 114, 0, 45, 0, 0, 0, 0, 39, 0, 1, 2, 0, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 0, 110, 110, 13, 14, 15, 50, 16, 17, 18, 19, 0, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 0, 0, 115, 0, 0, 31, 0, 32, 33, 34, 35, 36, 0, 0, 50, 50, 1, 2, 0, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 0, 0, 0, 13, 14, 15, 0, 16, 17, 18, 19, 0, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 0, 0, 0, 0, 0, 31, 0, 32, 33, 34, 35, 36, 0, 1, 2, 0, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 0, 0, 0, 13, 14, 15, 0, 16, 17, 18, 19, 0, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 0, 0, 3, 4, 0, 31, 99, 32, 33, 34, 35, 36, 0, 232, 0, 13, 14, 15, 0, 0, 0, 0, 93, 0, 3, 4, 0, 23, 24, 25, 26, 27, 28, 29, 30, 0, 0, 13, 14, 15, 31, 0, 32, 33, 75, 35, 36, 0, 0, 23, 24, 25, 26, 27, 28, 29, 30, 110, 0, 0, 0, 0, 31, 40, 32, 33, 75, 35, 36, 0, 42, 0, 94, 37, 0, 38, 100, 101, 102, 0, 0, 0, 0, 0, 40, 0, 0, 0, 0, 0, 46, 42, 0, 0, 37, 0, 38, 0, 0, 103, 104, 105, 106, 107, 0, 108, 0, 0, 0, 0, 109, 46, 0, 0, 0, 0, 0, 0, 0, 0, 0, 45, 0, 62, 62, 0, 39, 0, 62, 62, 62, 62, 62, 0, 62, 0, 0, 0, 0, 0, 0, 0, 45, 0, 0, 62, 62, 39, 62, 62, 62, 0, 0, 0, 0, 0, 0, 0, 0, 0, 80, 80, 0, 0, 0, 80, 80, 80, 80, 80, 0, 80, 0, 0, 0, 0, 0, 0, 62, 0, 62, 62, 80, 80, 0, 80, 80, 80, 0, 56, 0, 0, 0, 0, 0, 0, 0, 81, 81, 0, 0, 0, 81, 81, 81, 81, 81, 0, 81, 0, 0, 62, 62, 0, 0, 0, 0, 80, 80, 81, 81, 0, 81, 81, 81, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 123, 13, 14, 0, 80, 80, 0, 0, 0, 0, 81, 81, 0, 23, 24, 25, 26, 27, 28, 29, 30, 0, 0, 0, 0, 0, 147, 105, 32, 33, 75, 35, 105, 0, 0, 105, 152, 0, 0, 0, 0, 81, 81, 0, 0, 3, 4, 0, 0, 105, 105, 0, 105, 105, 105, 0, 0, 0, 13, 14, 15, 0, 0, 176, 0, 178, 3, 4, 0, 0, 23, 24, 25, 26, 27, 28, 29, 30, 0, 13, 14, 15, 0, 31, 105, 32, 33, 75, 35, 36, 0, 23, 24, 25, 26, 27, 28, 29, 30, 0, 0, 62, 0, 0, 31, 0, 32, 33, 75, 35, 36, 0, 62, 62, 62, 105, 105, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 62, 62, 62, 62, 62, 0, 62, 0, 0, 0, 0, 62, 62, 0, 80, 80, 80, 0, 0, 237, 0, 0, 0, 0, 83, 0, 0, 0, 0, 83, 0, 0, 83, 0, 0, 0, 0, 80, 80, 80, 80, 80, 0, 80, 0, 0, 83, 83, 80, 80, 83, 81, 81, 81, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 81, 81, 81, 81, 81, 0, 81, 83, 85, 85, 0, 81, 81, 85, 85, 85, 85, 85, 0, 85, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 0, 85, 85, 85, 0, 0, 83, 83, 0, 0, 0, 0, 0, 96, 96, 0, 0, 0, 96, 96, 96, 96, 96, 0, 96, 0, 0, 0, 0, 0, 0, 0, 0, 85, 85, 96, 96, 0, 96, 96, 96, 0, 105, 105, 105, 105, 105, 0, 105, 0, 91, 91, 0, 0, 105, 91, 91, 91, 91, 91, 0, 91, 0, 0, 85, 85, 0, 0, 0, 0, 96, 96, 91, 91, 0, 91, 91, 91, 0, 0, 0, 0, 0, 0, 0, 0, 92, 92, 0, 0, 0, 92, 92, 92, 92, 92, 0, 92, 0, 0, 0, 96, 96, 0, 0, 0, 0, 91, 92, 92, 0, 92, 92, 92, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 94, 94, 0, 0, 0, 94, 94, 94, 94, 94, 0, 94, 0, 0, 91, 91, 0, 0, 0, 92, 0, 0, 94, 94, 0, 94, 94, 94, 0, 0, 0, 0, 0, 0, 0, 0, 0, 93, 93, 0, 0, 0, 93, 93, 93, 93, 93, 103, 93, 0, 92, 92, 103, 0, 0, 103, 0, 94, 0, 93, 93, 0, 93, 93, 93, 0, 0, 0, 0, 103, 103, 0, 103, 103, 103, 106, 0, 0, 0, 0, 106, 0, 0, 106, 0, 85, 85, 85, 94, 94, 0, 0, 0, 0, 93, 0, 0, 106, 106, 0, 106, 106, 0, 0, 103, 0, 0, 0, 85, 85, 85, 85, 85, 0, 85, 0, 0, 0, 0, 0, 85, 0, 96, 96, 96, 93, 93, 0, 0, 0, 0, 0, 106, 116, 0, 103, 103, 0, 113, 111, 0, 112, 0, 114, 0, 96, 96, 96, 96, 96, 82, 96, 0, 0, 0, 82, 0, 96, 82, 91, 91, 91, 0, 106, 106, 0, 0, 0, 0, 0, 0, 0, 82, 82, 0, 0, 82, 0, 0, 0, 0, 0, 91, 91, 91, 91, 91, 0, 91, 0, 115, 0, 0, 0, 91, 92, 92, 92, 0, 0, 0, 0, 0, 0, 0, 0, 0, 82, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 92, 92, 92, 92, 92, 0, 92, 0, 0, 0, 0, 0, 92, 0, 0, 94, 94, 94, 0, 0, 82, 82, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 94, 94, 94, 94, 94, 0, 94, 0, 0, 0, 0, 0, 94, 0, 93, 93, 93, 0, 0, 62, 62, 0, 0, 0, 0, 62, 62, 0, 62, 0, 62, 0, 0, 0, 0, 0, 0, 93, 93, 93, 93, 93, 62, 93, 62, 0, 62, 0, 0, 93, 103, 103, 0, 0, 0, 0, 87, 0, 0, 103, 0, 87, 0, 87, 87, 87, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 0, 62, 87, 87, 0, 87, 87, 87, 0, 0, 0, 106, 0, 0, 0, 0, 88, 0, 0, 0, 0, 88, 0, 88, 88, 88, 0, 0, 0, 0, 0, 0, 0, 100, 101, 102, 0, 87, 88, 88, 0, 88, 88, 88, 0, 0, 0, 0, 0, 0, 0, 0, 89, 0, 0, 0, 103, 89, 0, 89, 89, 89, 108, 0, 0, 0, 0, 109, 87, 87, 0, 0, 0, 88, 89, 89, 0, 89, 89, 89, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 90, 0, 0, 0, 0, 90, 0, 90, 90, 90, 0, 0, 0, 88, 88, 0, 102, 0, 89, 0, 0, 102, 90, 90, 102, 90, 90, 90, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 102, 102, 0, 102, 102, 102, 0, 63, 63, 0, 0, 89, 89, 63, 63, 0, 63, 0, 63, 90, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 63, 0, 63, 0, 63, 102, 62, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 62, 62, 62, 90, 90, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 63, 0, 0, 63, 102, 102, 0, 0, 62, 62, 62, 62, 62, 95, 62, 0, 0, 0, 95, 62, 62, 95, 87, 87, 87, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 95, 95, 0, 95, 95, 95, 0, 0, 0, 0, 87, 87, 87, 87, 87, 0, 87, 0, 0, 0, 0, 0, 87, 88, 88, 88, 0, 0, 0, 0, 0, 0, 0, 0, 0, 95, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 88, 88, 88, 88, 88, 0, 88, 0, 0, 0, 0, 0, 88, 89, 89, 89, 0, 0, 0, 0, 95, 95, 44, 116, 0, 0, 0, 0, 113, 111, 0, 112, 0, 114, 0, 0, 89, 89, 89, 89, 89, 0, 89, 0, 0, 43, 0, 117, 89, 118, 0, 0, 90, 90, 90, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 90, 90, 90, 90, 90, 115, 90, 0, 97, 0, 0, 63, 90, 97, 0, 0, 97, 0, 102, 102, 102, 0, 63, 63, 63, 0, 0, 0, 102, 0, 97, 97, 0, 97, 97, 97, 0, 0, 0, 0, 0, 0, 0, 0, 0, 63, 63, 63, 63, 63, 100, 63, 0, 0, 0, 100, 63, 63, 100, 0, 0, 0, 0, 0, 0, 97, 0, 0, 0, 0, 0, 0, 100, 100, 0, 100, 100, 100, 0, 116, 0, 0, 0, 154, 113, 111, 0, 112, 0, 114, 95, 95, 95, 0, 116, 0, 97, 97, 188, 113, 111, 0, 112, 117, 114, 118, 0, 100, 0, 0, 0, 0, 0, 95, 95, 95, 95, 95, 117, 95, 118, 0, 0, 0, 0, 95, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 115, 116, 100, 100, 0, 189, 113, 111, 0, 112, 0, 114, 0, 0, 0, 115, 0, 0, 116, 0, 0, 0, 0, 113, 111, 117, 112, 118, 114, 0, 0, 116, 0, 0, 0, 190, 113, 111, 0, 112, 0, 114, 0, 0, 100, 101, 102, 0, 0, 0, 0, 0, 0, 0, 0, 117, 0, 118, 115, 0, 0, 0, 0, 0, 0, 0, 0, 103, 104, 105, 106, 107, 0, 108, 0, 115, 116, 0, 109, 110, 0, 113, 111, 200, 112, 0, 114, 0, 115, 116, 0, 0, 0, 206, 113, 111, 0, 112, 0, 114, 117, 0, 118, 0, 0, 0, 97, 0, 0, 0, 0, 0, 0, 117, 0, 118, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 97, 97, 97, 97, 97, 115, 97, 0, 0, 116, 0, 0, 97, 0, 113, 111, 0, 112, 115, 114, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 208, 0, 0, 117, 0, 118, 0, 0, 0, 0, 0, 0, 100, 100, 100, 100, 100, 100, 101, 102, 0, 116, 0, 0, 100, 0, 113, 111, 246, 112, 0, 114, 100, 101, 102, 0, 115, 0, 0, 0, 103, 104, 105, 106, 107, 117, 108, 118, 0, 0, 0, 109, 110, 0, 0, 103, 104, 105, 106, 107, 0, 108, 0, 116, 0, 0, 109, 110, 113, 111, 0, 112, 0, 114, 0, 100, 101, 102, 115, 0, 0, 0, 0, 0, 0, 0, 0, 117, 0, 118, 0, 0, 100, 101, 102, 0, 0, 0, 103, 104, 105, 106, 107, 0, 108, 100, 101, 102, 0, 109, 110, 0, 0, 0, 0, 103, 104, 105, 106, 209, 115, 108, 0, 0, 0, 0, 109, 0, 103, 104, 105, 106, 107, 0, 108, 0, 116, 0, 0, 109, 110, 113, 111, 0, 112, 0, 114, 0, 0, 116, 100, 101, 102, 0, 113, 111, 0, 112, 0, 114, 117, 0, 118, 100, 101, 102, 0, 0, 0, 0, 0, 0, 0, 103, 104, 105, 106, 107, 0, 108, 0, 0, 0, 0, 109, 110, 103, 104, 105, 106, 107, 0, 108, 115, 0, 116, 0, 109, 110, 265, 113, 111, 0, 112, 0, 114, 115, 0, 0, 0, 0, 100, 101, 102, 0, 0, 0, 0, 0, 117, 0, 118, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 103, 104, 105, 106, 107, 0, 108, 0, 0, 0, 0, 109, 110, 0, 0, 0, 0, 0, 115, 100, 101, 102, 0, 116, 0, 0, 0, 0, 113, 111, 0, 112, 0, 114, 0, 0, 0, 0, 0, 0, 0, 0, 103, 104, 105, 106, 107, 0, 108, 118, 0, 0, 0, 109, 110, 0, 0, 0, 0, 116, 0, 100, 101, 102, 113, 111, 0, 112, 0, 114, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 115, 0, 0, 0, 103, 104, 105, 106, 107, 0, 108, 53, 0, 0, 0, 109, 110, 0, 61, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 74, 77, 78, 0, 0, 0, 115, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 100, 101, 102, 0, 119, 0, 0, 0, 0, 0, 0, 0, 0, 100, 101, 102, 126, 0, 0, 0, 0, 0, 132, 103, 104, 105, 106, 107, 0, 108, 0, 99, 141, 0, 109, 110, 103, 104, 105, 0, 0, 0, 108, 0, 0, 0, 0, 109, 0, 0, 0, 0, 0, 0, 0, 0, 137, 138, 139, 100, 101, 102, 0, 0, 0, 0, 0, 0, 0, 0, 148, 149, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 103, 104, 105, 106, 107, 0, 108, 0, 0, 0, 0, 109, 110, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 182, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 100, 101, 102, 0, 195, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 215, 216, 217, 0, 103, 104, 105, 106, 107, 0, 108, 0, 0, 0, 0, 109, 0, 100, 101, 102, 0, 0, 0, 0, 0, 0, 236, 0, 0, 239, 0, 0, 0, 0, 0, 0, 218, 0, 220, 0, 103, 104, 223, 224, 225, 0, 108, 0, 0, 0, 0, 109, 0, 0, 0, 0, 254, 238, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 247, 0, 0, 266, 0, 0, 0, 252, 0, 0, 0, 0, 0, 0, 255, }; const short yycheck[] = { 94, 0, 91, 40, 44, 37, 40, 40, 36, 36, 42, 43, 301, 45, 301, 47, 41, 44, 41, 36, 41, 301, 41, 301, 36, 44, 36, 300, 301, 40, 37, 59, 59, 123, 33, 42, 43, 36, 45, 40, 47, 40, 59, 40, 43, 36, 45, 59, 41, 59, 41, 41, 41, 44, 37, 44, 40, 63, 64, 42, 59, 60, 94, 40, 47, 40, 59, 58, 59, 62, 61, 62, 63, 41, 300, 41, 44, 40, 44, 40, 40, 40, 40, 36, 40, 125, 123, 94, 41, 123, 36, 44, 91, 59, 277, 41, 62, 96, 44, 124, 93, 124, 93, 124, 301, 58, 59, 301, 61, 62, 63, 94, 58, 59, 0, 61, 62, 63, 303, 301, 93, 44, 62, 41, 123, 40, 125, 93, 44, 301, 16, 124, 125, 124, 125, 21, 40, 59, 37, 0, 93, 41, 44, 42, 43, 31, 45, 93, 47, 41, 36, 37, 38, 39, 40, 16, 42, 44, 124, 125, 41, 125, 41, 41, 300, 40, 40, 58, 41, 258, 59, 124, 125, 280, 41, 41, 41, 61, 124, 125, 302, 67, 68, 69, 37, 61, 41, 41, 123, 42, 43, 41, 45, 37, 47, 94, 82, 93, 42, 43, 41, 45, 62, 47, 41, 125, 92, 59, 94, 303, 123, 205, 251, 270, 100, 101, 102, 103, 104, 105, 106, 107, 108, -1, 110, 111, 112, 113, 114, 115, 116, 117, 118, -1, -1, 121, -1, 269, 270, 271, -1, 94, -1, -1, -1, -1, -1, -1, -1, -1, 94, -1, -1, -1, -1, -1, -1, 256, 257, -1, 259, 260, 261, 262, 263, 264, 265, 266, 267, 268, 156, 303, -1, 272, 273, 274, -1, 276, 277, 278, 279, -1, 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, 291, -1, -1, -1, 303, -1, 297, -1, 299, 300, 301, 302, 303, 296, 192, -1, 194, 33, 300, 301, 36, 304, 200, -1, 40, 270, 271, 43, 303, 45, 208, -1, -1, -1, -1, -1, -1, -1, -1, 192, -1, 194, -1, 59, 60, -1, -1, 292, 293, 294, 295, 296, -1, 298, 232, 293, 294, 295, 296, 304, -1, -1, -1, -1, 242, -1, 304, -1, 246, 33, 248, 249, 36, -1, -1, 91, 40, -1, 269, 43, 96, 45, -1, -1, -1, -1, 264, -1, -1, 242, -1, -1, -1, 271, -1, 59, 60, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 123, -1, 125, -1, 264, 303, -1, -1, 36, -1, -1, 33, -1, 41, 36, -1, 44, 269, 40, 271, 91, 43, -1, 45, -1, 96, 269, 270, 271, -1, 58, 59, -1, 61, 62, 63, -1, 59, 60, -1, -1, -1, -1, -1, -1, -1, 33, -1, -1, 36, -1, 303, 123, 40, 125, 298, 43, -1, 45, 36, 303, -1, -1, -1, 41, 93, -1, 44, 33, 91, -1, -1, 59, 60, 96, 40, -1, 42, 43, -1, 45, 58, 59, -1, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, 60, 124, 125, -1, -1, 41, 123, -1, 44, 91, -1, -1, -1, -1, 96, -1, -1, -1, -1, 37, -1, 93, -1, 59, 42, 43, 62, 45, -1, 47, -1, 91, -1, -1, -1, -1, 96, -1, 256, 257, -1, 259, 260, 261, 262, 263, 264, 265, 266, 267, 268, -1, 124, 125, 272, 273, 274, 93, 276, 277, 278, 279, -1, 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, 291, -1, -1, 94, -1, -1, 297, -1, 299, 300, 301, 302, 303, -1, -1, 124, 125, 256, 257, -1, 259, 260, 261, 262, 263, 264, 265, 266, 267, 268, -1, -1, -1, 272, 273, 274, -1, 276, 277, 278, 279, -1, 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, 291, -1, -1, -1, -1, -1, 297, -1, 299, 300, 301, 302, 303, -1, 256, 257, -1, 259, 260, 261, 262, 263, 264, 265, 266, 267, 268, -1, -1, -1, 272, 273, 274, -1, 276, 277, 278, 279, -1, 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, 291, -1, -1, 259, 260, -1, 297, 304, 299, 300, 301, 302, 303, -1, 40, -1, 272, 273, 274, -1, -1, -1, -1, 257, -1, 259, 260, -1, 284, 285, 286, 287, 288, 289, 290, 291, -1, -1, 272, 273, 274, 297, -1, 299, 300, 301, 302, 303, -1, -1, 284, 285, 286, 287, 288, 289, 290, 291, 304, -1, -1, -1, -1, 297, 33, 299, 300, 301, 302, 303, -1, 40, -1, 42, 43, -1, 45, 269, 270, 271, -1, -1, -1, -1, -1, 33, -1, -1, -1, -1, -1, 60, 40, -1, -1, 43, -1, 45, -1, -1, 292, 293, 294, 295, 296, -1, 298, -1, -1, -1, -1, 303, 60, -1, -1, -1, -1, -1, -1, -1, -1, -1, 91, -1, 36, 37, -1, 96, -1, 41, 42, 43, 44, 45, -1, 47, -1, -1, -1, -1, -1, -1, -1, 91, -1, -1, 58, 59, 96, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, 36, 37, -1, -1, -1, 41, 42, 43, 44, 45, -1, 47, -1, -1, -1, -1, -1, -1, 91, -1, 93, 94, 58, 59, -1, 61, 62, 63, -1, 2, -1, -1, -1, -1, -1, -1, -1, 36, 37, -1, -1, -1, 41, 42, 43, 44, 45, -1, 47, -1, -1, 124, 125, -1, -1, -1, -1, 93, 94, 58, 59, -1, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, 260, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 57, 272, 273, -1, 124, 125, -1, -1, -1, -1, 93, 94, -1, 284, 285, 286, 287, 288, 289, 290, 291, -1, -1, -1, -1, -1, 83, 36, 299, 300, 301, 302, 41, -1, -1, 44, 93, -1, -1, -1, -1, 124, 125, -1, -1, 259, 260, -1, -1, 58, 59, -1, 61, 62, 63, -1, -1, -1, 272, 273, 274, -1, -1, 120, -1, 122, 259, 260, -1, -1, 284, 285, 286, 287, 288, 289, 290, 291, -1, 272, 273, 274, -1, 297, 93, 299, 300, 301, 302, 303, -1, 284, 285, 286, 287, 288, 289, 290, 291, -1, -1, 258, -1, -1, 297, -1, 299, 300, 301, 302, 303, -1, 269, 270, 271, 124, 125, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 292, 293, 294, 295, 296, -1, 298, -1, -1, -1, -1, 303, 304, -1, 269, 270, 271, -1, -1, 211, -1, -1, -1, -1, 36, -1, -1, -1, -1, 41, -1, -1, 44, -1, -1, -1, -1, 292, 293, 294, 295, 296, -1, 298, -1, -1, 58, 59, 303, 304, 62, 269, 270, 271, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 292, 293, 294, 295, 296, -1, 298, 93, 36, 37, -1, 303, 304, 41, 42, 43, 44, 45, -1, 47, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 58, 59, -1, 61, 62, 63, -1, -1, 124, 125, -1, -1, -1, -1, -1, 36, 37, -1, -1, -1, 41, 42, 43, 44, 45, -1, 47, -1, -1, -1, -1, -1, -1, -1, -1, 93, 94, 58, 59, -1, 61, 62, 63, -1, 292, 293, 294, 295, 296, -1, 298, -1, 36, 37, -1, -1, 304, 41, 42, 43, 44, 45, -1, 47, -1, -1, 124, 125, -1, -1, -1, -1, 93, 94, 58, 59, -1, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, 36, 37, -1, -1, -1, 41, 42, 43, 44, 45, -1, 47, -1, -1, -1, 124, 125, -1, -1, -1, -1, 93, 58, 59, -1, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 36, 37, -1, -1, -1, 41, 42, 43, 44, 45, -1, 47, -1, -1, 124, 125, -1, -1, -1, 93, -1, -1, 58, 59, -1, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, 36, 37, -1, -1, -1, 41, 42, 43, 44, 45, 36, 47, -1, 124, 125, 41, -1, -1, 44, -1, 93, -1, 58, 59, -1, 61, 62, 63, -1, -1, -1, -1, 58, 59, -1, 61, 62, 63, 36, -1, -1, -1, -1, 41, -1, -1, 44, -1, 269, 270, 271, 124, 125, -1, -1, -1, -1, 93, -1, -1, 58, 59, -1, 61, 62, -1, -1, 93, -1, -1, -1, 292, 293, 294, 295, 296, -1, 298, -1, -1, -1, -1, -1, 304, -1, 269, 270, 271, 124, 125, -1, -1, -1, -1, -1, 93, 37, -1, 124, 125, -1, 42, 43, -1, 45, -1, 47, -1, 292, 293, 294, 295, 296, 36, 298, -1, -1, -1, 41, -1, 304, 44, 269, 270, 271, -1, 124, 125, -1, -1, -1, -1, -1, -1, -1, 58, 59, -1, -1, 62, -1, -1, -1, -1, -1, 292, 293, 294, 295, 296, -1, 298, -1, 94, -1, -1, -1, 304, 269, 270, 271, -1, -1, -1, -1, -1, -1, -1, -1, -1, 93, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 292, 293, 294, 295, 296, -1, 298, -1, -1, -1, -1, -1, 304, -1, -1, 269, 270, 271, -1, -1, 124, 125, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 292, 293, 294, 295, 296, -1, 298, -1, -1, -1, -1, -1, 304, -1, 269, 270, 271, -1, -1, 36, 37, -1, -1, -1, -1, 42, 43, -1, 45, -1, 47, -1, -1, -1, -1, -1, -1, 292, 293, 294, 295, 296, 59, 298, 61, -1, 63, -1, -1, 304, 295, 296, -1, -1, -1, -1, 36, -1, -1, 304, -1, 41, -1, 43, 44, 45, -1, -1, -1, -1, -1, -1, -1, -1, 91, -1, -1, 94, 58, 59, -1, 61, 62, 63, -1, -1, -1, 304, -1, -1, -1, -1, 36, -1, -1, -1, -1, 41, -1, 43, 44, 45, -1, -1, -1, -1, -1, -1, -1, 269, 270, 271, -1, 93, 58, 59, -1, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, 36, -1, -1, -1, 292, 41, -1, 43, 44, 45, 298, -1, -1, -1, -1, 303, 124, 125, -1, -1, -1, 93, 58, 59, -1, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 36, -1, -1, -1, -1, 41, -1, 43, 44, 45, -1, -1, -1, 124, 125, -1, 36, -1, 93, -1, -1, 41, 58, 59, 44, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 58, 59, -1, 61, 62, 63, -1, 36, 37, -1, -1, 124, 125, 42, 43, -1, 45, -1, 47, 93, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 59, -1, 61, -1, 63, 93, 258, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 269, 270, 271, 124, 125, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 91, -1, -1, 94, 124, 125, -1, -1, 292, 293, 294, 295, 296, 36, 298, -1, -1, -1, 41, 303, 304, 44, 269, 270, 271, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 58, 59, -1, 61, 62, 63, -1, -1, -1, -1, 292, 293, 294, 295, 296, -1, 298, -1, -1, -1, -1, -1, 304, 269, 270, 271, -1, -1, -1, -1, -1, -1, -1, -1, -1, 93, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 292, 293, 294, 295, 296, -1, 298, -1, -1, -1, -1, -1, 304, 269, 270, 271, -1, -1, -1, -1, 124, 125, 36, 37, -1, -1, -1, -1, 42, 43, -1, 45, -1, 47, -1, -1, 292, 293, 294, 295, 296, -1, 298, -1, -1, 59, -1, 61, 304, 63, -1, -1, 269, 270, 271, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 292, 293, 294, 295, 296, 94, 298, -1, 36, -1, -1, 258, 304, 41, -1, -1, 44, -1, 294, 295, 296, -1, 269, 270, 271, -1, -1, -1, 304, -1, 58, 59, -1, 61, 62, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, 292, 293, 294, 295, 296, 36, 298, -1, -1, -1, 41, 303, 304, 44, -1, -1, -1, -1, -1, -1, 93, -1, -1, -1, -1, -1, -1, 58, 59, -1, 61, 62, 63, -1, 37, -1, -1, -1, 41, 42, 43, -1, 45, -1, 47, 269, 270, 271, -1, 37, -1, 124, 125, 41, 42, 43, -1, 45, 61, 47, 63, -1, 93, -1, -1, -1, -1, -1, 292, 293, 294, 295, 296, 61, 298, 63, -1, -1, -1, -1, 304, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 94, 37, 124, 125, -1, 41, 42, 43, -1, 45, -1, 47, -1, -1, -1, 94, -1, -1, 37, -1, -1, -1, -1, 42, 43, 61, 45, 63, 47, -1, -1, 37, -1, -1, -1, 41, 42, 43, -1, 45, -1, 47, -1, -1, 269, 270, 271, -1, -1, -1, -1, -1, -1, -1, -1, 61, -1, 63, 94, -1, -1, -1, -1, -1, -1, -1, -1, 292, 293, 294, 295, 296, -1, 298, -1, 94, 37, -1, 303, 304, -1, 42, 43, 44, 45, -1, 47, -1, 94, 37, -1, -1, -1, 41, 42, 43, -1, 45, -1, 47, 61, -1, 63, -1, -1, -1, 270, -1, -1, -1, -1, -1, -1, 61, -1, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 292, 293, 294, 295, 296, 94, 298, -1, -1, 37, -1, -1, 304, -1, 42, 43, -1, 45, 94, 47, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 58, -1, -1, 61, -1, 63, -1, -1, -1, -1, -1, -1, 292, 293, 294, 295, 296, 269, 270, 271, -1, 37, -1, -1, 304, -1, 42, 43, 44, 45, -1, 47, 269, 270, 271, -1, 94, -1, -1, -1, 292, 293, 294, 295, 296, 61, 298, 63, -1, -1, -1, 303, 304, -1, -1, 292, 293, 294, 295, 296, -1, 298, -1, 37, -1, -1, 303, 304, 42, 43, -1, 45, -1, 47, -1, 269, 270, 271, 94, -1, -1, -1, -1, -1, -1, -1, -1, 61, -1, 63, -1, -1, 269, 270, 271, -1, -1, -1, 292, 293, 294, 295, 296, -1, 298, 269, 270, 271, -1, 303, 304, -1, -1, -1, -1, 292, 293, 294, 295, 93, 94, 298, -1, -1, -1, -1, 303, -1, 292, 293, 294, 295, 296, -1, 298, -1, 37, -1, -1, 303, 304, 42, 43, -1, 45, -1, 47, -1, -1, 37, 269, 270, 271, -1, 42, 43, -1, 45, -1, 47, 61, -1, 63, 269, 270, 271, -1, -1, -1, -1, -1, -1, -1, 292, 293, 294, 295, 296, -1, 298, -1, -1, -1, -1, 303, 304, 292, 293, 294, 295, 296, -1, 298, 94, -1, 37, -1, 303, 304, 41, 42, 43, -1, 45, -1, 47, 94, -1, -1, -1, -1, 269, 270, 271, -1, -1, -1, -1, -1, 61, -1, 63, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 292, 293, 294, 295, 296, -1, 298, -1, -1, -1, -1, 303, 304, -1, -1, -1, -1, -1, 94, 269, 270, 271, -1, 37, -1, -1, -1, -1, 42, 43, -1, 45, -1, 47, -1, -1, -1, -1, -1, -1, -1, -1, 292, 293, 294, 295, 296, -1, 298, 63, -1, -1, -1, 303, 304, -1, -1, -1, -1, 37, -1, 269, 270, 271, 42, 43, -1, 45, -1, 47, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 94, -1, -1, -1, 292, 293, 294, 295, 296, -1, 298, 1, -1, -1, -1, 303, 304, -1, 8, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 20, 21, 22, -1, -1, -1, 94, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 269, 270, 271, -1, 48, -1, -1, -1, -1, -1, -1, -1, -1, 269, 270, 271, 60, -1, -1, -1, -1, -1, 66, 292, 293, 294, 295, 296, -1, 298, -1, 46, 76, -1, 303, 304, 292, 293, 294, -1, -1, -1, 298, -1, -1, -1, -1, 303, -1, -1, -1, -1, -1, -1, -1, -1, 71, 72, 73, 269, 270, 271, -1, -1, -1, -1, -1, -1, -1, -1, 85, 86, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 292, 293, 294, 295, 296, -1, 298, -1, -1, -1, -1, 303, 304, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 125, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 269, 270, 271, -1, 140, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 184, 185, 186, -1, 292, 293, 294, 295, 296, -1, 298, -1, -1, -1, -1, 303, -1, 269, 270, 271, -1, -1, -1, -1, -1, -1, 210, -1, -1, 213, -1, -1, -1, -1, -1, -1, 191, -1, 193, -1, 292, 293, 197, 198, 199, -1, 298, -1, -1, -1, -1, 303, -1, -1, -1, -1, 240, 212, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 227, -1, -1, 259, -1, -1, -1, 234, -1, -1, -1, -1, -1, -1, 241, }; #define YYFINAL 47 #ifndef YYDEBUG #define YYDEBUG 0 #endif #define YYMAXTOKEN 306 #if YYDEBUG const char * const 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,"STRUCT", "POINT","NEWSTRUCT","ANS","FDEF","PFDEF","MODDEF","MODEND","GLOBAL","MGLOBAL", "LOCAL","LOCALF","CMP","OR","AND","CAR","CDR","QUOTED","COLONCOLON","DO", "WHILE","FOR","IF","ELSE","BREAK","RETURN","CONTINUE","PARIF","MAP","RECMAP", "TIMER","GF2NGEN","GFPNGEN","GFSNGEN","GETOPT","FOP_AND","FOP_OR","FOP_IMPL", "FOP_REPL","FOP_EQUIV","FOP_NOT","LOP","FORMULA","UCASE","LCASE","STR","SELF", "BOPASS","PLUS","MINUS", }; const char * const yyrule[] = { "$accept : start", "start : stat", "stat : tail", "$$1 :", "$$2 :", "stat : GLOBAL $$1 pvars $$2 tail", "$$3 :", "$$4 :", "stat : MGLOBAL $$3 pvars $$4 tail", "$$5 :", "$$6 :", "stat : LOCAL $$5 pvars $$6 tail", "stat : LOCALF vars tail", "stat : STRUCT rawstr '{' members '}' tail", "stat : expr tail", "stat : complex", "stat : BREAK tail", "stat : CONTINUE tail", "stat : RETURN tail", "stat : RETURN expr tail", "stat : IF '(' node ')' stat", "stat : IF '(' node ')' stat ELSE stat", "stat : FOR '(' node ';' node ';' node ')' stat", "stat : WHILE '(' node ')' stat", "stat : DO stat WHILE '(' node ')' tail", "stat : LCASE '(' node ')' ':' '=' expr tail", "stat : PFDEF LCASE '(' node ')' tail", "$$7 :", "$$8 :", "$$9 :", "stat : FDEF LCASE $$7 '(' $$8 node $$9 ')' desc '{' stats '}'", "stat : MODDEF LCASE tail", "stat : MODEND tail", "stat : error tail", "tail : ';'", "tail : '$'", "desc :", "desc : STR", "complex : '{' stats '}'", "members : rawstr", "members : members ',' rawstr", "vars : LCASE", "vars : vars ',' LCASE", "pvars : UCASE", "pvars : pvars ',' UCASE", "stats :", "stats : stats stat", "node :", "node : _node", "_node : expr", "_node : _node ',' expr", "optlist : opt", "optlist : optlist ',' opt", "rawstr : UCASE", "rawstr : LCASE", "opt : rawstr '=' expr", "pexpr : STR", "pexpr : FORMULA", "pexpr : ANS", "pexpr : GF2NGEN", "pexpr : GFPNGEN", "pexpr : GFSNGEN", "pexpr : LCASE", "pexpr : LCASE '(' node ')'", "pexpr : LCASE '(' node '|' optlist ')'", "pexpr : MAP '(' LCASE ',' node ')'", "pexpr : RECMAP '(' LCASE ',' node ')'", "pexpr : LCASE '{' node '}' '(' node ')'", "pexpr : GETOPT '(' rawstr ')'", "pexpr : GETOPT '(' ')'", "pexpr : TIMER '(' expr ',' expr ',' expr ')'", "pexpr : PARIF '(' LCASE ')'", "pexpr : PARIF '(' LCASE ',' node ')'", "pexpr : '(' '*' expr ')' '(' node ')'", "pexpr : CAR '(' expr ')'", "pexpr : CDR '(' expr ')'", "pexpr : '(' expr ')'", "pexpr : UCASE", "pexpr : pexpr '[' expr ']'", "pexpr : pexpr POINT rawstr", "expr : pexpr", "expr : '(' STRUCT rawstr ')' pexpr", "expr : expr '=' expr", "expr : expr BOPASS expr", "expr : expr SELF", "expr : SELF expr", "expr : '[' node ']'", "expr : '+' expr", "expr : '-' expr", "expr : expr '+' expr", "expr : expr '-' expr", "expr : expr '*' expr", "expr : expr '/' expr", "expr : expr '%' expr", "expr : expr '^' expr", "expr : expr CMP expr", "expr : '!' expr", "expr : expr OR expr", "expr : expr AND expr", "expr : FOP_NOT expr", "expr : expr FOP_AND expr", "expr : expr FOP_OR expr", "expr : expr FOP_IMPL expr", "expr : expr FOP_REPL expr", "expr : expr FOP_EQUIV expr", "expr : expr LOP expr", "expr : expr '?' expr ':' expr", "expr : '<' node '>'", "expr : NEWSTRUCT '(' rawstr ')'", "expr : QUOTED '(' expr ')'", "expr : '`' expr", }; #endif #if YYDEBUG #include #endif #ifdef YYSTACKSIZE #undef YYMAXDEPTH #define YYMAXDEPTH YYSTACKSIZE #else #ifdef YYMAXDEPTH #define YYSTACKSIZE YYMAXDEPTH #else #define YYSTACKSIZE 10000 #define YYMAXDEPTH 10000 #endif #endif #define YYINITSTACKSIZE 200 int yydebug; int yynerrs; int yyerrflag; int yychar; short *yyssp; YYSTYPE *yyvsp; YYSTYPE yyval; YYSTYPE yylval; short *yyss; short *yysslim; YYSTYPE *yyvs; int yystacksize; /* allocate initial stack or double stack size, up to YYMAXDEPTH */ static int yygrowstack() { int newsize, i; short *newss; YYSTYPE *newvs; if ((newsize = yystacksize) == 0) newsize = YYINITSTACKSIZE; else if (newsize >= YYMAXDEPTH) return -1; else if ((newsize *= 2) > YYMAXDEPTH) newsize = YYMAXDEPTH; i = yyssp - yyss; newss = yyss ? (short *)realloc(yyss, newsize * sizeof *newss) : (short *)malloc(newsize * sizeof *newss); if (newss == NULL) return -1; yyss = newss; yyssp = newss + i; newvs = yyvs ? (YYSTYPE *)realloc(yyvs, newsize * sizeof *newvs) : (YYSTYPE *)malloc(newsize * sizeof *newvs); if (newvs == NULL) return -1; yyvs = newvs; yyvsp = newvs + i; yystacksize = newsize; yysslim = yyss + newsize - 1; return 0; } #define YYABORT goto yyabort #define YYREJECT goto yyabort #define YYACCEPT goto yyaccept #define YYERROR goto yyerrlab #ifndef YYPARSE_PARAM #if defined(__cplusplus) || __STDC__ #define YYPARSE_PARAM_ARG void #define YYPARSE_PARAM_DECL #else /* ! ANSI-C/C++ */ #define YYPARSE_PARAM_ARG #define YYPARSE_PARAM_DECL #endif /* ANSI-C/C++ */ #else /* YYPARSE_PARAM */ #ifndef YYPARSE_PARAM_TYPE #define YYPARSE_PARAM_TYPE void * #endif #if defined(__cplusplus) || __STDC__ #define YYPARSE_PARAM_ARG YYPARSE_PARAM_TYPE YYPARSE_PARAM #define YYPARSE_PARAM_DECL #else /* ! ANSI-C/C++ */ #define YYPARSE_PARAM_ARG YYPARSE_PARAM #define YYPARSE_PARAM_DECL YYPARSE_PARAM_TYPE YYPARSE_PARAM; #endif /* ANSI-C/C++ */ #endif /* ! YYPARSE_PARAM */ int yyparse (YYPARSE_PARAM_ARG) YYPARSE_PARAM_DECL { register int yym, yyn, yystate; #if YYDEBUG register const char *yys; if ((yys = getenv("YYDEBUG"))) { yyn = *yys; if (yyn >= '0' && yyn <= '9') yydebug = yyn - '0'; } #endif yynerrs = 0; yyerrflag = 0; yychar = (-1); if (yyss == NULL && yygrowstack()) goto yyoverflow; yyssp = yyss; yyvsp = yyvs; *yyssp = yystate = 0; yyloop: if ((yyn = yydefred[yystate])) goto yyreduce; if (yychar < 0) { if ((yychar = yylex()) < 0) yychar = 0; #if YYDEBUG if (yydebug) { yys = 0; if (yychar <= YYMAXTOKEN) yys = yyname[yychar]; if (!yys) yys = "illegal-symbol"; 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 >= yysslim && yygrowstack()) { 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; #if defined(lint) || defined(__GNUC__) goto yynewerror; #endif yynewerror: yyerror("syntax error"); #if defined(lint) || defined(__GNUC__) 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 >= yysslim && yygrowstack()) { 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 1: #line 131 "parse.y" { parse_snode = yyvsp[0].s; YYACCEPT; } break; case 2: #line 134 "parse.y" { yyval.s = 0; } break; case 3: #line 135 "parse.y" { gdef=1; } break; case 4: #line 135 "parse.y" { gdef=0; } break; case 5: #line 136 "parse.y" { yyval.s = 0; NOPR; } break; case 6: #line 137 "parse.y" { mgdef=1; } break; case 7: #line 137 "parse.y" { mgdef=0; } break; case 8: #line 138 "parse.y" { yyval.s = 0; NOPR; } break; case 9: #line 139 "parse.y" { ldef=1; } break; case 10: #line 139 "parse.y" { ldef=0; } break; case 11: #line 140 "parse.y" { yyval.s = 0; NOPR; } break; case 12: #line 142 "parse.y" { appenduflist(yyvsp[-1].n); yyval.s = 0; NOPR; } break; case 13: #line 144 "parse.y" { structdef(yyvsp[-4].p,yyvsp[-2].n); yyval.s = 0; NOPR; } break; case 14: #line 146 "parse.y" { yyval.s = mksnode(1,S_SINGLE,yyvsp[-1].f); } break; case 15: #line 148 "parse.y" { yyval.s = yyvsp[0].s; } break; case 16: #line 150 "parse.y" { yyval.s = mksnode(0,S_BREAK); } break; case 17: #line 152 "parse.y" { yyval.s = mksnode(0,S_CONTINUE); } break; case 18: #line 154 "parse.y" { yyval.s = mksnode(1,S_RETURN,0); } break; case 19: #line 156 "parse.y" { yyval.s = mksnode(1,S_RETURN,yyvsp[-1].f); } break; case 20: #line 158 "parse.y" { yyval.s = mksnode(4,S_IFELSE,yyvsp[-4].i,yyvsp[-2].n,yyvsp[0].s,0); yyvsp[0].s?yyval.s->ln=yyvsp[0].s->ln:0; NOPR; } break; case 21: #line 160 "parse.y" { yyval.s = mksnode(4,S_IFELSE,yyvsp[-6].i,yyvsp[-4].n,yyvsp[-2].s,yyvsp[0].s); yyvsp[0].s?yyval.s->ln=yyvsp[0].s->ln:0; NOPR; } break; case 22: #line 162 "parse.y" { yyval.s = mksnode(5,S_FOR,yyvsp[-8].i,yyvsp[-6].n,yyvsp[-4].n?yyvsp[-4].n:ONENODE,yyvsp[-2].n,yyvsp[0].s); yyvsp[0].s?yyval.s->ln=yyvsp[0].s->ln:0; NOPR; } break; case 23: #line 164 "parse.y" { yyval.s = mksnode(5,S_FOR,yyvsp[-4].i,0,yyvsp[-2].n,0,yyvsp[0].s); yyvsp[0].s?yyval.s->ln=yyvsp[0].s->ln:0; NOPR; } break; case 24: #line 166 "parse.y" { yyval.s = mksnode(3,S_DO,yyvsp[-6].i,yyvsp[-5].s,yyvsp[-2].n); } break; case 25: #line 168 "parse.y" { yyval.s = mksnode(3,S_PFDEF,yyvsp[-7].p,yyvsp[-5].n,yyvsp[-1].f); NOPR; } break; case 26: #line 170 "parse.y" { yyval.s = mksnode(3,S_PFDEF,yyvsp[-4].p,yyvsp[-2].n,0); NOPR; } break; case 27: #line 171 "parse.y" { mkpvs(yyvsp[0].p); } break; case 28: #line 171 "parse.y" { ldef = 1; } break; case 29: #line 171 "parse.y" { ldef = -1; } break; case 30: #line 172 "parse.y" { mkuf(yyvsp[-10].p,asir_infile->name,yyvsp[-6].n, mksnode(1,S_CPLX,yyvsp[-1].n),yyvsp[-11].i,asir_infile->ln,yyvsp[-3].p,CUR_MODULE); yyval.s = 0; NOPR; } break; case 31: #line 178 "parse.y" { CUR_MODULE = mkmodule(yyvsp[-1].p); MPVS = CUR_MODULE->pvs; yyval.s = 0; NOPR; } break; case 32: #line 180 "parse.y" { CUR_MODULE = 0; MPVS = 0; yyval.s = 0; NOPR; } break; case 33: #line 182 "parse.y" { yyerrok; yyval.s = 0; } break; case 34: #line 185 "parse.y" { if ( main_parser ) prresult = 1; } break; case 35: #line 187 "parse.y" { if ( main_parser ) prresult = 0; } break; case 36: #line 190 "parse.y" { yyval.p = 0; } break; case 37: #line 192 "parse.y" { yyval.p = yyvsp[0].p; } break; case 38: #line 195 "parse.y" { yyval.s = mksnode(1,S_CPLX,yyvsp[-1].n); } break; case 39: #line 198 "parse.y" { MKNODE(yyval.n,yyvsp[0].p,0); } break; case 40: #line 200 "parse.y" { appendtonode(yyvsp[-2].n,yyvsp[0].p,&yyval.n); } break; case 41: #line 203 "parse.y" { MKNODE(yyval.n,yyvsp[0].p,0); } break; case 42: #line 205 "parse.y" { appendtonode(yyvsp[-2].n,yyvsp[0].p,&yyval.n); } break; case 43: #line 208 "parse.y" { val = (pointer)makepvar(yyvsp[0].p); MKNODE(yyval.n,val,0); } break; case 44: #line 210 "parse.y" { appendtonode(yyvsp[-2].n,(pointer)makepvar(yyvsp[0].p),&yyval.n); } break; case 45: #line 213 "parse.y" { yyval.n = 0; } break; case 46: #line 215 "parse.y" { appendtonode(yyvsp[-1].n,(pointer)yyvsp[0].s,&yyval.n); } break; case 47: #line 218 "parse.y" { yyval.n = 0; } break; case 48: #line 220 "parse.y" { yyval.n = yyvsp[0].n; } break; case 49: #line 223 "parse.y" { MKNODE(yyval.n,yyvsp[0].f,0); } break; case 50: #line 225 "parse.y" { appendtonode(yyvsp[-2].n,(pointer)yyvsp[0].f,&yyval.n); } break; case 51: #line 228 "parse.y" { MKNODE(yyval.n,yyvsp[0].f,0); } break; case 52: #line 230 "parse.y" { appendtonode(yyvsp[-2].n,(pointer)yyvsp[0].f,&yyval.n); } break; case 53: #line 233 "parse.y" { yyval.p = yyvsp[0].p; } break; case 54: #line 235 "parse.y" { yyval.p = yyvsp[0].p; } break; case 55: #line 238 "parse.y" { yyval.f = mkfnode(2,I_OPT,yyvsp[-2].p,yyvsp[0].f); } break; case 56: #line 241 "parse.y" { yyval.f = mkfnode(1,I_STR,yyvsp[0].p); } break; case 57: #line 243 "parse.y" { yyval.f = mkfnode(1,I_FORMULA,yyvsp[0].p); } break; case 58: #line 245 "parse.y" { yyval.f = mkfnode(1,I_ANS,yyvsp[0].i); } break; case 59: #line 247 "parse.y" { yyval.f = mkfnode(0,I_GF2NGEN); } break; case 60: #line 249 "parse.y" { yyval.f = mkfnode(0,I_GFPNGEN); } break; case 61: #line 251 "parse.y" { yyval.f = mkfnode(0,I_GFSNGEN); } break; case 62: #line 253 "parse.y" { FUNC f; searchf(noargsysf,yyvsp[0].p,&f); if ( f ) yyval.f = mkfnode(2,I_FUNC,f,0); else { searchc(yyvsp[0].p,&f); if ( f ) yyval.f = mkfnode(2,I_FUNC,f,mkfnode(1,I_LIST,0)); else { searchf(sysf,yyvsp[0].p,&f); if ( !f ) searchf(ubinf,yyvsp[0].p,&f); if ( !f ) searchpf(yyvsp[0].p,&f); if ( !f ) searchf(usrf,yyvsp[0].p,&f); if ( f ) makesrvar(f,(P *)&val); else makevar(yyvsp[0].p,(P *)&val); yyval.f = mkfnode(1,I_FORMULA,val); } } } break; case 63: #line 280 "parse.y" { gen_searchf(yyvsp[-3].p,(FUNC *)&val); print_crossref(val); yyval.f = mkfnode(2,I_FUNC,val,mkfnode(1,I_LIST,yyvsp[-1].n)); } break; case 64: #line 287 "parse.y" { gen_searchf(yyvsp[-5].p,(FUNC *)&val); print_crossref(val); yyval.f = mkfnode(3,I_FUNC_OPT,val, mkfnode(1,I_LIST,yyvsp[-3].n),mkfnode(1,I_LIST,yyvsp[-1].n)); } break; case 65: #line 294 "parse.y" { gen_searchf(yyvsp[-3].p,(FUNC *)&val); print_crossref(val); yyval.f = mkfnode(2,I_MAP,val,mkfnode(1,I_LIST,yyvsp[-1].n)); } break; case 66: #line 300 "parse.y" { gen_searchf(yyvsp[-3].p,(FUNC *)&val); print_crossref(val); yyval.f = mkfnode(2,I_RECMAP,val,mkfnode(1,I_LIST,yyvsp[-1].n)); } break; case 67: #line 306 "parse.y" { searchpf(yyvsp[-6].p,(FUNC *)&val); yyval.f = mkfnode(2,I_PFDERIV,val,mkfnode(1,I_LIST,yyvsp[-1].n),mkfnode(1,I_LIST,yyvsp[-4].n)); } break; case 68: #line 311 "parse.y" { yyval.f = mkfnode(2,I_GETOPT,yyvsp[-1].p); } break; case 69: #line 315 "parse.y" { yyval.f = mkfnode(2,I_GETOPT,0); } break; case 70: #line 319 "parse.y" { yyval.f = mkfnode(3,I_TIMER,yyvsp[-5].f,yyvsp[-3].f,yyvsp[-1].f); } break; case 71: #line 323 "parse.y" { searchf(parif,yyvsp[-1].p,(FUNC *)&val); if ( !val ) mkparif(yyvsp[-1].p,(FUNC *)&val); yyval.f = mkfnode(2,I_FUNC,val,0); } break; case 72: #line 330 "parse.y" { searchf(parif,yyvsp[-3].p,(FUNC *)&val); if ( !val ) mkparif(yyvsp[-3].p,(FUNC *)&val); yyval.f = mkfnode(2,I_FUNC,val,mkfnode(1,I_LIST,yyvsp[-1].n)); } break; case 73: #line 337 "parse.y" { yyval.f = mkfnode(2,I_IFUNC,yyvsp[-4].f,mkfnode(1,I_LIST,yyvsp[-1].n)); } break; case 74: #line 341 "parse.y" { yyval.f = mkfnode(1,I_CAR,yyvsp[-1].f); } break; case 75: #line 343 "parse.y" { yyval.f = mkfnode(1,I_CDR,yyvsp[-1].f); } break; case 76: #line 345 "parse.y" { yyval.f = mkfnode(1,I_PAREN,yyvsp[-1].f); } break; case 77: #line 347 "parse.y" { if ( main_parser || allow_create_var ) yyval.f = mkfnode(2,I_PVAR,makepvar(yyvsp[0].p),0); else { ind = searchpvar(yyvsp[0].p); if ( ind == -1 ) { fprintf(stderr,"%s : no such variable.\n",yyvsp[0].p); YYABORT; } else yyval.f = mkfnode(2,I_PVAR,ind,0); } } break; case 78: #line 360 "parse.y" { if ( yyvsp[-3].f->id == I_PVAR || yyvsp[-3].f->id == I_INDEX ) { appendtonode((NODE)yyvsp[-3].f->arg[1],(pointer)yyvsp[-1].f,&a); yyvsp[-3].f->arg[1] = (pointer)a; yyval.f = yyvsp[-3].f; } else { MKNODE(a,yyvsp[-1].f,0); yyval.f = mkfnode(2,I_INDEX,(pointer)yyvsp[-3].f,a); } } break; case 79: #line 370 "parse.y" { yyval.f = mkfnode(2,I_POINT,yyvsp[-2].f,yyvsp[0].p); } break; case 80: #line 373 "parse.y" { yyval.f = yyvsp[0].f; } break; case 81: #line 375 "parse.y" { yyval.f = mkfnode(3,I_CAST,structtoindex(yyvsp[-2].p),yyvsp[0].f,0); } break; case 82: #line 377 "parse.y" { yyval.f = mkfnode(2,I_ASSPVAR,yyvsp[-2].f,yyvsp[0].f); } break; case 83: #line 379 "parse.y" { yyval.f = mkfnode(2,I_ASSPVAR,yyvsp[-2].f,mkfnode(3,I_BOP,yyvsp[-1].p,yyvsp[-2].f,yyvsp[0].f)); } break; case 84: #line 381 "parse.y" { yyval.f = mkfnode(2,I_POSTSELF,yyvsp[0].p,yyvsp[-1].f); } break; case 85: #line 383 "parse.y" { yyval.f = mkfnode(2,I_PRESELF,yyvsp[-1].p,yyvsp[0].f); } break; case 86: #line 385 "parse.y" { yyval.f = mkfnode(1,I_LIST,yyvsp[-1].n); } break; case 87: #line 387 "parse.y" { yyval.f = yyvsp[0].f; } break; case 88: #line 389 "parse.y" { yyval.f = mkfnode(1,I_MINUS,yyvsp[0].f); } break; case 89: #line 391 "parse.y" { yyval.f = mkfnode(3,I_BOP,yyvsp[-1].p,yyvsp[-2].f,yyvsp[0].f); } break; case 90: #line 393 "parse.y" { yyval.f = mkfnode(3,I_BOP,yyvsp[-1].p,yyvsp[-2].f,yyvsp[0].f); } break; case 91: #line 395 "parse.y" { yyval.f = mkfnode(3,I_BOP,yyvsp[-1].p,yyvsp[-2].f,yyvsp[0].f); } break; case 92: #line 397 "parse.y" { yyval.f = mkfnode(3,I_BOP,yyvsp[-1].p,yyvsp[-2].f,yyvsp[0].f); } break; case 93: #line 399 "parse.y" { yyval.f = mkfnode(3,I_BOP,yyvsp[-1].p,yyvsp[-2].f,yyvsp[0].f); } break; case 94: #line 401 "parse.y" { yyval.f = mkfnode(3,I_BOP,yyvsp[-1].p,yyvsp[-2].f,yyvsp[0].f); } break; case 95: #line 403 "parse.y" { yyval.f = mkfnode(3,I_COP,yyvsp[-1].i,yyvsp[-2].f,yyvsp[0].f); } break; case 96: #line 405 "parse.y" { yyval.f = mkfnode(1,I_NOT,yyvsp[0].f); } break; case 97: #line 407 "parse.y" { yyval.f = mkfnode(2,I_OR,yyvsp[-2].f,yyvsp[0].f); } break; case 98: #line 409 "parse.y" { yyval.f = mkfnode(2,I_AND,yyvsp[-2].f,yyvsp[0].f); } break; case 99: #line 411 "parse.y" { yyval.f = mkfnode(3,I_LOP,yyvsp[-1].i,yyvsp[0].f,0); } break; case 100: #line 413 "parse.y" { yyval.f = mkfnode(3,I_LOP,yyvsp[-1].i,yyvsp[-2].f,yyvsp[0].f); } break; case 101: #line 415 "parse.y" { yyval.f = mkfnode(3,I_LOP,yyvsp[-1].i,yyvsp[-2].f,yyvsp[0].f); } break; case 102: #line 417 "parse.y" { yyval.f = mkfnode(3,I_LOP,yyvsp[-1].i,yyvsp[-2].f,yyvsp[0].f); } break; case 103: #line 419 "parse.y" { yyval.f = mkfnode(3,I_LOP,yyvsp[-1].i,yyvsp[-2].f,yyvsp[0].f); } break; case 104: #line 421 "parse.y" { yyval.f = mkfnode(3,I_LOP,yyvsp[-1].i,yyvsp[-2].f,yyvsp[0].f); } break; case 105: #line 423 "parse.y" { yyval.f = mkfnode(3,I_LOP,yyvsp[-1].i,yyvsp[-2].f,yyvsp[0].f); } break; case 106: #line 425 "parse.y" { yyval.f = mkfnode(3,I_CE,yyvsp[-4].f,yyvsp[-2].f,yyvsp[0].f); } break; case 107: #line 427 "parse.y" { yyval.f = mkfnode(1,I_EV,yyvsp[-1].n); } break; case 108: #line 429 "parse.y" { yyval.f = mkfnode(1,I_NEWCOMP,(int)structtoindex(yyvsp[-1].p)); } break; case 109: #line 431 "parse.y" { MKQUOTE(quote,yyvsp[-1].f); yyval.f = mkfnode(1,I_FORMULA,(pointer)quote); } break; case 110: #line 433 "parse.y" { MKQUOTE(quote,yyvsp[0].f); yyval.f = mkfnode(1,I_FORMULA,(pointer)quote); } break; #line 1695 "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 >= yysslim && yygrowstack()) { goto yyoverflow; } *++yyssp = yystate; *++yyvsp = yyval; goto yyloop; yyoverflow: yyerror("yacc stack overflow"); yyabort: return (1); yyaccept: return (0); }