Annotation of OpenXM_contrib2/asir2018/parse/ytab.c, Revision 1.1
1.1 ! noro 1:
! 2: /* A Bison parser, made by GNU Bison 2.4.1. */
! 3:
! 4: /* Skeleton implementation for Bison's Yacc-like parsers in C
! 5:
! 6: Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006
! 7: Free Software Foundation, Inc.
! 8:
! 9: This program is free software: you can redistribute it and/or modify
! 10: it under the terms of the GNU General Public License as published by
! 11: the Free Software Foundation, either version 3 of the License, or
! 12: (at your option) any later version.
! 13:
! 14: This program is distributed in the hope that it will be useful,
! 15: but WITHOUT ANY WARRANTY; without even the implied warranty of
! 16: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! 17: GNU General Public License for more details.
! 18:
! 19: You should have received a copy of the GNU General Public License
! 20: along with this program. If not, see <http://www.gnu.org/licenses/>. */
! 21:
! 22: /* As a special exception, you may create a larger work that contains
! 23: part or all of the Bison parser skeleton and distribute that work
! 24: under terms of your choice, so long as that work isn't itself a
! 25: parser generator using the skeleton or a modified version thereof
! 26: as a parser skeleton. Alternatively, if you modify or redistribute
! 27: the parser skeleton itself, you may (at your option) remove this
! 28: special exception, which will cause the skeleton and the resulting
! 29: Bison output files to be licensed under the GNU General Public
! 30: License without this special exception.
! 31:
! 32: This special exception was added by the Free Software Foundation in
! 33: version 2.2 of Bison. */
! 34:
! 35: /* C LALR(1) parser skeleton written by Richard Stallman, by
! 36: simplifying the original so-called "semantic" parser. */
! 37:
! 38: /* All symbols defined below should begin with yy or YY, to avoid
! 39: infringing on user name space. This should be done even for local
! 40: variables, as they might otherwise be expanded by user macros.
! 41: There are some unavoidable exceptions within include files to
! 42: define necessary library symbols; they are noted "INFRINGES ON
! 43: USER NAME SPACE" below. */
! 44:
! 45: /* Identify Bison output. */
! 46: #define YYBISON 1
! 47:
! 48: /* Bison version. */
! 49: #define YYBISON_VERSION "2.4.1"
! 50:
! 51: /* Skeleton name. */
! 52: #define YYSKELETON_NAME "yacc.c"
! 53:
! 54: /* Pure parsers. */
! 55: #define YYPURE 0
! 56:
! 57: /* Push parsers. */
! 58: #define YYPUSH 0
! 59:
! 60: /* Pull parsers. */
! 61: #define YYPULL 1
! 62:
! 63: /* Using locations. */
! 64: #define YYLSP_NEEDED 0
! 65:
! 66:
! 67:
! 68: /* Copy the first part of user declarations. */
! 69:
! 70: /* Line 189 of yacc.c */
! 71: #line 50 "parse.y"
! 72:
! 73: #define malloc(x) Risa_GC_malloc(x)
! 74: #define realloc(x,y) Risa_GC_realloc(x,y)
! 75: #define free(x) Risa_GC_free(x)
! 76:
! 77: #if defined(TOWNS)
! 78: #include <alloca.h>
! 79: #endif
! 80: #include <ctype.h>
! 81: #include "ca.h"
! 82: #include <sys/types.h>
! 83: #include <sys/stat.h>
! 84: #include "parse.h"
! 85:
! 86: #define NOPR (prresult=0)
! 87:
! 88: extern int gdef,mgdef,ldef;
! 89: extern SNODE parse_snode;
! 90: extern int main_parser, allow_create_var;
! 91:
! 92: int prresult,saveresult;
! 93:
! 94: static int ind;
! 95: static FNODE t;
! 96: static NODE a,b;
! 97: static NODE2 a2;
! 98: static pointer val;
! 99: static QUOTE quote;
! 100: extern jmp_buf env;
! 101:
! 102:
! 103: /* Line 189 of yacc.c */
! 104: #line 105 "y.tab.c"
! 105:
! 106: /* Enabling traces. */
! 107: #ifndef YYDEBUG
! 108: # define YYDEBUG 0
! 109: #endif
! 110:
! 111: /* Enabling verbose error messages. */
! 112: #ifdef YYERROR_VERBOSE
! 113: # undef YYERROR_VERBOSE
! 114: # define YYERROR_VERBOSE 1
! 115: #else
! 116: # define YYERROR_VERBOSE 0
! 117: #endif
! 118:
! 119: /* Enabling the token table. */
! 120: #ifndef YYTOKEN_TABLE
! 121: # define YYTOKEN_TABLE 0
! 122: #endif
! 123:
! 124:
! 125: /* Tokens. */
! 126: #ifndef YYTOKENTYPE
! 127: # define YYTOKENTYPE
! 128: /* Put the tokens into the symbol table, so that GDB and other debuggers
! 129: know about them. */
! 130: enum yytokentype {
! 131: STRUCT = 258,
! 132: POINT = 259,
! 133: NEWSTRUCT = 260,
! 134: ANS = 261,
! 135: FDEF = 262,
! 136: PFDEF = 263,
! 137: MODDEF = 264,
! 138: MODEND = 265,
! 139: GLOBAL = 266,
! 140: MGLOBAL = 267,
! 141: LOCAL = 268,
! 142: LOCALF = 269,
! 143: CMP = 270,
! 144: OR = 271,
! 145: AND = 272,
! 146: CAR = 273,
! 147: CDR = 274,
! 148: QUOTED = 275,
! 149: COLONCOLON = 276,
! 150: DO = 277,
! 151: WHILE = 278,
! 152: FOR = 279,
! 153: IF = 280,
! 154: ELSE = 281,
! 155: BREAK = 282,
! 156: RETURN = 283,
! 157: CONTINUE = 284,
! 158: PARIF = 285,
! 159: MAP = 286,
! 160: RECMAP = 287,
! 161: TIMER = 288,
! 162: GF2NGEN = 289,
! 163: GFPNGEN = 290,
! 164: GFSNGEN = 291,
! 165: GETOPT = 292,
! 166: FOP_AND = 293,
! 167: FOP_OR = 294,
! 168: FOP_IMPL = 295,
! 169: FOP_REPL = 296,
! 170: FOP_EQUIV = 297,
! 171: FOP_NOT = 298,
! 172: LOP = 299,
! 173: FORMULA = 300,
! 174: UCASE = 301,
! 175: LCASE = 302,
! 176: STR = 303,
! 177: SELF = 304,
! 178: BOPASS = 305,
! 179: PLUS = 306,
! 180: MINUS = 307
! 181: };
! 182: #endif
! 183: /* Tokens. */
! 184: #define STRUCT 258
! 185: #define POINT 259
! 186: #define NEWSTRUCT 260
! 187: #define ANS 261
! 188: #define FDEF 262
! 189: #define PFDEF 263
! 190: #define MODDEF 264
! 191: #define MODEND 265
! 192: #define GLOBAL 266
! 193: #define MGLOBAL 267
! 194: #define LOCAL 268
! 195: #define LOCALF 269
! 196: #define CMP 270
! 197: #define OR 271
! 198: #define AND 272
! 199: #define CAR 273
! 200: #define CDR 274
! 201: #define QUOTED 275
! 202: #define COLONCOLON 276
! 203: #define DO 277
! 204: #define WHILE 278
! 205: #define FOR 279
! 206: #define IF 280
! 207: #define ELSE 281
! 208: #define BREAK 282
! 209: #define RETURN 283
! 210: #define CONTINUE 284
! 211: #define PARIF 285
! 212: #define MAP 286
! 213: #define RECMAP 287
! 214: #define TIMER 288
! 215: #define GF2NGEN 289
! 216: #define GFPNGEN 290
! 217: #define GFSNGEN 291
! 218: #define GETOPT 292
! 219: #define FOP_AND 293
! 220: #define FOP_OR 294
! 221: #define FOP_IMPL 295
! 222: #define FOP_REPL 296
! 223: #define FOP_EQUIV 297
! 224: #define FOP_NOT 298
! 225: #define LOP 299
! 226: #define FORMULA 300
! 227: #define UCASE 301
! 228: #define LCASE 302
! 229: #define STR 303
! 230: #define SELF 304
! 231: #define BOPASS 305
! 232: #define PLUS 306
! 233: #define MINUS 307
! 234:
! 235:
! 236:
! 237:
! 238: #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
! 239: typedef union YYSTYPE
! 240: {
! 241:
! 242: /* Line 214 of yacc.c */
! 243: #line 83 "parse.y"
! 244:
! 245: FNODE f;
! 246: SNODE s;
! 247: NODE n;
! 248: NODE2 n2;
! 249: int i;
! 250: pointer p;
! 251:
! 252:
! 253:
! 254: /* Line 214 of yacc.c */
! 255: #line 256 "y.tab.c"
! 256: } YYSTYPE;
! 257: # define YYSTYPE_IS_TRIVIAL 1
! 258: # define yystype YYSTYPE /* obsolescent; will be withdrawn */
! 259: # define YYSTYPE_IS_DECLARED 1
! 260: #endif
! 261:
! 262:
! 263: /* Copy the second part of user declarations. */
! 264:
! 265:
! 266: /* Line 264 of yacc.c */
! 267: #line 268 "y.tab.c"
! 268:
! 269: #ifdef short
! 270: # undef short
! 271: #endif
! 272:
! 273: #ifdef YYTYPE_UINT8
! 274: typedef YYTYPE_UINT8 yytype_uint8;
! 275: #else
! 276: typedef unsigned char yytype_uint8;
! 277: #endif
! 278:
! 279: #ifdef YYTYPE_INT8
! 280: typedef YYTYPE_INT8 yytype_int8;
! 281: #elif (defined __STDC__ || defined __C99__FUNC__ \
! 282: || defined __cplusplus || defined _MSC_VER)
! 283: typedef signed char yytype_int8;
! 284: #else
! 285: typedef short int yytype_int8;
! 286: #endif
! 287:
! 288: #ifdef YYTYPE_UINT16
! 289: typedef YYTYPE_UINT16 yytype_uint16;
! 290: #else
! 291: typedef unsigned short int yytype_uint16;
! 292: #endif
! 293:
! 294: #ifdef YYTYPE_INT16
! 295: typedef YYTYPE_INT16 yytype_int16;
! 296: #else
! 297: typedef short int yytype_int16;
! 298: #endif
! 299:
! 300: #ifndef YYSIZE_T
! 301: # ifdef __SIZE_TYPE__
! 302: # define YYSIZE_T __SIZE_TYPE__
! 303: # elif defined size_t
! 304: # define YYSIZE_T size_t
! 305: # elif ! defined YYSIZE_T && (defined __STDC__ || defined __C99__FUNC__ \
! 306: || defined __cplusplus || defined _MSC_VER)
! 307: # include <stddef.h> /* INFRINGES ON USER NAME SPACE */
! 308: # define YYSIZE_T size_t
! 309: # else
! 310: # define YYSIZE_T unsigned int
! 311: # endif
! 312: #endif
! 313:
! 314: #define YYSIZE_MAXIMUM ((YYSIZE_T) -1)
! 315:
! 316: #ifndef YY_
! 317: # if YYENABLE_NLS
! 318: # if ENABLE_NLS
! 319: # include <libintl.h> /* INFRINGES ON USER NAME SPACE */
! 320: # define YY_(msgid) dgettext ("bison-runtime", msgid)
! 321: # endif
! 322: # endif
! 323: # ifndef YY_
! 324: # define YY_(msgid) msgid
! 325: # endif
! 326: #endif
! 327:
! 328: /* Suppress unused-variable warnings by "using" E. */
! 329: #if ! defined lint || defined __GNUC__
! 330: # define YYUSE(e) ((void) (e))
! 331: #else
! 332: # define YYUSE(e) /* empty */
! 333: #endif
! 334:
! 335: /* Identity function, used to suppress warnings about constant conditions. */
! 336: #ifndef lint
! 337: # define YYID(n) (n)
! 338: #else
! 339: #if (defined __STDC__ || defined __C99__FUNC__ \
! 340: || defined __cplusplus || defined _MSC_VER)
! 341: static int
! 342: YYID (int yyi)
! 343: #else
! 344: static int
! 345: YYID (yyi)
! 346: int yyi;
! 347: #endif
! 348: {
! 349: return yyi;
! 350: }
! 351: #endif
! 352:
! 353: #if ! defined yyoverflow || YYERROR_VERBOSE
! 354:
! 355: /* The parser invokes alloca or malloc; define the necessary symbols. */
! 356:
! 357: # ifdef YYSTACK_USE_ALLOCA
! 358: # if YYSTACK_USE_ALLOCA
! 359: # ifdef __GNUC__
! 360: # define YYSTACK_ALLOC __builtin_alloca
! 361: # elif defined __BUILTIN_VA_ARG_INCR
! 362: # include <alloca.h> /* INFRINGES ON USER NAME SPACE */
! 363: # elif defined _AIX
! 364: # define YYSTACK_ALLOC __alloca
! 365: # elif defined _MSC_VER
! 366: # include <malloc.h> /* INFRINGES ON USER NAME SPACE */
! 367: # define alloca _alloca
! 368: # else
! 369: # define YYSTACK_ALLOC alloca
! 370: # if ! defined _ALLOCA_H && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
! 371: || defined __cplusplus || defined _MSC_VER)
! 372: # include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
! 373: # ifndef _STDLIB_H
! 374: # define _STDLIB_H 1
! 375: # endif
! 376: # endif
! 377: # endif
! 378: # endif
! 379: # endif
! 380:
! 381: # ifdef YYSTACK_ALLOC
! 382: /* Pacify GCC's `empty if-body' warning. */
! 383: # define YYSTACK_FREE(Ptr) do { /* empty */; } while (YYID (0))
! 384: # ifndef YYSTACK_ALLOC_MAXIMUM
! 385: /* The OS might guarantee only one guard page at the bottom of the stack,
! 386: and a page size can be as small as 4096 bytes. So we cannot safely
! 387: invoke alloca (N) if N exceeds 4096. Use a slightly smaller number
! 388: to allow for a few compiler-allocated temporary stack slots. */
! 389: # define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */
! 390: # endif
! 391: # else
! 392: # define YYSTACK_ALLOC YYMALLOC
! 393: # define YYSTACK_FREE YYFREE
! 394: # ifndef YYSTACK_ALLOC_MAXIMUM
! 395: # define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
! 396: # endif
! 397: # if (defined __cplusplus && ! defined _STDLIB_H \
! 398: && ! ((defined YYMALLOC || defined malloc) \
! 399: && (defined YYFREE || defined free)))
! 400: # include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
! 401: # ifndef _STDLIB_H
! 402: # define _STDLIB_H 1
! 403: # endif
! 404: # endif
! 405: # ifndef YYMALLOC
! 406: # define YYMALLOC malloc
! 407: # if ! defined malloc && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
! 408: || defined __cplusplus || defined _MSC_VER)
! 409: void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */
! 410: # endif
! 411: # endif
! 412: # ifndef YYFREE
! 413: # define YYFREE free
! 414: # if ! defined free && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
! 415: || defined __cplusplus || defined _MSC_VER)
! 416: void free (void *); /* INFRINGES ON USER NAME SPACE */
! 417: # endif
! 418: # endif
! 419: # endif
! 420: #endif /* ! defined yyoverflow || YYERROR_VERBOSE */
! 421:
! 422:
! 423: #if (! defined yyoverflow \
! 424: && (! defined __cplusplus \
! 425: || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL)))
! 426:
! 427: /* A type that is properly aligned for any stack member. */
! 428: union yyalloc
! 429: {
! 430: yytype_int16 yyss_alloc;
! 431: YYSTYPE yyvs_alloc;
! 432: };
! 433:
! 434: /* The size of the maximum gap between one aligned stack and the next. */
! 435: # define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1)
! 436:
! 437: /* The size of an array large to enough to hold all stacks, each with
! 438: N elements. */
! 439: # define YYSTACK_BYTES(N) \
! 440: ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \
! 441: + YYSTACK_GAP_MAXIMUM)
! 442:
! 443: /* Copy COUNT objects from FROM to TO. The source and destination do
! 444: not overlap. */
! 445: # ifndef YYCOPY
! 446: # if defined __GNUC__ && 1 < __GNUC__
! 447: # define YYCOPY(To, From, Count) \
! 448: __builtin_memcpy (To, From, (Count) * sizeof (*(From)))
! 449: # else
! 450: # define YYCOPY(To, From, Count) \
! 451: do \
! 452: { \
! 453: YYSIZE_T yyi; \
! 454: for (yyi = 0; yyi < (Count); yyi++) \
! 455: (To)[yyi] = (From)[yyi]; \
! 456: } \
! 457: while (YYID (0))
! 458: # endif
! 459: # endif
! 460:
! 461: /* Relocate STACK from its old location to the new one. The
! 462: local variables YYSIZE and YYSTACKSIZE give the old and new number of
! 463: elements in the stack, and YYPTR gives the new location of the
! 464: stack. Advance YYPTR to a properly aligned location for the next
! 465: stack. */
! 466: # define YYSTACK_RELOCATE(Stack_alloc, Stack) \
! 467: do \
! 468: { \
! 469: YYSIZE_T yynewbytes; \
! 470: YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \
! 471: Stack = &yyptr->Stack_alloc; \
! 472: yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
! 473: yyptr += yynewbytes / sizeof (*yyptr); \
! 474: } \
! 475: while (YYID (0))
! 476:
! 477: #endif
! 478:
! 479: /* YYFINAL -- State number of the termination state. */
! 480: #define YYFINAL 101
! 481: /* YYLAST -- Last index in YYTABLE. */
! 482: #define YYLAST 1284
! 483:
! 484: /* YYNTOKENS -- Number of terminals. */
! 485: #define YYNTOKENS 77
! 486: /* YYNNTS -- Number of nonterminals. */
! 487: #define YYNNTS 26
! 488: /* YYNRULES -- Number of rules. */
! 489: #define YYNRULES 114
! 490: /* YYNRULES -- Number of states. */
! 491: #define YYNSTATES 283
! 492:
! 493: /* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */
! 494: #define YYUNDEFTOK 2
! 495: #define YYMAXUTOK 307
! 496:
! 497: #define YYTRANSLATE(YYX) \
! 498: ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
! 499:
! 500: /* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX. */
! 501: static const yytype_uint8 yytranslate[] =
! 502: {
! 503: 0, 2, 2, 2, 2, 2, 2, 2, 2, 2,
! 504: 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
! 505: 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
! 506: 2, 2, 2, 64, 2, 2, 70, 56, 61, 2,
! 507: 67, 68, 53, 51, 71, 52, 2, 54, 2, 2,
! 508: 2, 2, 2, 2, 2, 2, 2, 2, 59, 69,
! 509: 75, 57, 76, 58, 2, 2, 2, 2, 2, 2,
! 510: 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
! 511: 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
! 512: 2, 73, 2, 74, 55, 2, 60, 2, 2, 2,
! 513: 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
! 514: 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
! 515: 2, 2, 2, 65, 72, 66, 2, 2, 2, 2,
! 516: 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
! 517: 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
! 518: 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
! 519: 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
! 520: 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
! 521: 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
! 522: 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
! 523: 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
! 524: 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
! 525: 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
! 526: 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
! 527: 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
! 528: 2, 2, 2, 2, 2, 2, 1, 2, 3, 4,
! 529: 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
! 530: 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
! 531: 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
! 532: 35, 36, 37, 38, 39, 40, 41, 42, 43, 44,
! 533: 45, 46, 47, 48, 49, 50, 62, 63
! 534: };
! 535:
! 536: #if YYDEBUG
! 537: /* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in
! 538: YYRHS. */
! 539: static const yytype_uint16 yyprhs[] =
! 540: {
! 541: 0, 0, 3, 5, 7, 8, 9, 15, 16, 17,
! 542: 23, 24, 25, 31, 35, 42, 45, 47, 50, 53,
! 543: 56, 60, 66, 74, 84, 90, 98, 107, 114, 115,
! 544: 116, 117, 130, 134, 137, 140, 142, 144, 145, 147,
! 545: 151, 153, 157, 159, 163, 165, 169, 170, 173, 174,
! 546: 176, 178, 182, 184, 188, 190, 192, 196, 198, 200,
! 547: 202, 204, 206, 208, 210, 215, 222, 229, 236, 244,
! 548: 249, 253, 262, 267, 274, 282, 292, 297, 302, 307,
! 549: 311, 313, 318, 322, 324, 330, 334, 338, 341, 344,
! 550: 348, 351, 354, 358, 362, 366, 370, 374, 378, 382,
! 551: 385, 389, 393, 396, 400, 404, 408, 412, 416, 420,
! 552: 426, 430, 435, 440, 446
! 553: };
! 554:
! 555: /* YYRHS -- A `-1'-separated list of the rules' RHS. */
! 556: static const yytype_int8 yyrhs[] =
! 557: {
! 558: 78, 0, -1, 79, -1, 89, -1, -1, -1, 11,
! 559: 80, 94, 81, 89, -1, -1, -1, 12, 82, 94,
! 560: 83, 89, -1, -1, -1, 13, 84, 94, 85, 89,
! 561: -1, 14, 93, 89, -1, 3, 99, 65, 92, 66,
! 562: 89, -1, 102, 89, -1, 91, -1, 27, 89, -1,
! 563: 29, 89, -1, 28, 89, -1, 28, 102, 89, -1,
! 564: 25, 67, 96, 68, 79, -1, 25, 67, 96, 68,
! 565: 79, 26, 79, -1, 24, 67, 96, 69, 96, 69,
! 566: 96, 68, 79, -1, 23, 67, 96, 68, 79, -1,
! 567: 22, 79, 23, 67, 96, 68, 89, -1, 47, 67,
! 568: 96, 68, 59, 57, 102, 89, -1, 8, 47, 67,
! 569: 96, 68, 89, -1, -1, -1, -1, 7, 47, 86,
! 570: 67, 87, 96, 88, 68, 90, 65, 95, 66, -1,
! 571: 9, 47, 89, -1, 10, 89, -1, 1, 89, -1,
! 572: 69, -1, 70, -1, -1, 48, -1, 65, 95, 66,
! 573: -1, 99, -1, 92, 71, 99, -1, 47, -1, 93,
! 574: 71, 47, -1, 46, -1, 94, 71, 46, -1, -1,
! 575: 95, 79, -1, -1, 97, -1, 102, -1, 97, 71,
! 576: 102, -1, 100, -1, 98, 71, 100, -1, 46, -1,
! 577: 47, -1, 99, 57, 102, -1, 48, -1, 45, -1,
! 578: 6, -1, 34, -1, 35, -1, 36, -1, 47, -1,
! 579: 47, 67, 96, 68, -1, 47, 67, 96, 72, 98,
! 580: 68, -1, 31, 67, 47, 71, 96, 68, -1, 32,
! 581: 67, 47, 71, 96, 68, -1, 47, 65, 96, 66,
! 582: 67, 96, 68, -1, 37, 67, 99, 68, -1, 37,
! 583: 67, 68, -1, 33, 67, 102, 71, 102, 71, 102,
! 584: 68, -1, 30, 67, 47, 68, -1, 30, 67, 47,
! 585: 71, 96, 68, -1, 67, 53, 102, 68, 67, 96,
! 586: 68, -1, 67, 53, 102, 68, 67, 96, 72, 98,
! 587: 68, -1, 46, 67, 96, 68, -1, 18, 67, 102,
! 588: 68, -1, 19, 67, 102, 68, -1, 67, 102, 68,
! 589: -1, 46, -1, 101, 73, 102, 74, -1, 101, 4,
! 590: 99, -1, 101, -1, 67, 3, 99, 68, 101, -1,
! 591: 102, 57, 102, -1, 102, 50, 102, -1, 102, 49,
! 592: -1, 49, 102, -1, 73, 96, 74, -1, 51, 102,
! 593: -1, 52, 102, -1, 102, 51, 102, -1, 102, 52,
! 594: 102, -1, 102, 53, 102, -1, 102, 54, 102, -1,
! 595: 102, 56, 102, -1, 102, 55, 102, -1, 102, 15,
! 596: 102, -1, 64, 102, -1, 102, 16, 102, -1, 102,
! 597: 17, 102, -1, 43, 102, -1, 102, 38, 102, -1,
! 598: 102, 39, 102, -1, 102, 40, 102, -1, 102, 41,
! 599: 102, -1, 102, 42, 102, -1, 102, 44, 102, -1,
! 600: 102, 58, 102, 59, 102, -1, 75, 96, 76, -1,
! 601: 5, 67, 99, 68, -1, 20, 67, 102, 68, -1,
! 602: 73, 96, 72, 102, 74, -1, 60, 102, -1
! 603: };
! 604:
! 605: /* YYRLINE[YYN] -- source line where rule number YYN was defined. */
! 606: static const yytype_uint16 yyrline[] =
! 607: {
! 608: 0, 130, 130, 139, 141, 141, 141, 143, 143, 143,
! 609: 145, 145, 145, 147, 149, 151, 153, 155, 157, 159,
! 610: 161, 163, 165, 167, 169, 171, 173, 175, 177, 177,
! 611: 177, 177, 183, 189, 191, 194, 196, 200, 201, 204,
! 612: 207, 209, 212, 214, 217, 219, 223, 224, 228, 229,
! 613: 232, 234, 237, 239, 242, 244, 247, 250, 252, 254,
! 614: 256, 258, 260, 262, 283, 290, 297, 303, 309, 314,
! 615: 318, 322, 326, 333, 340, 344, 349, 363, 365, 367,
! 616: 369, 382, 392, 395, 397, 399, 401, 403, 405, 407,
! 617: 409, 411, 413, 415, 417, 419, 421, 423, 425, 427,
! 618: 429, 431, 433, 435, 437, 439, 441, 443, 445, 447,
! 619: 449, 451, 453, 455, 457
! 620: };
! 621: #endif
! 622:
! 623: #if YYDEBUG || YYERROR_VERBOSE || YYTOKEN_TABLE
! 624: /* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
! 625: First, the terminals, then, starting at YYNTOKENS, nonterminals. */
! 626: static const char *const yytname[] =
! 627: {
! 628: "$end", "error", "$undefined", "STRUCT", "POINT", "NEWSTRUCT", "ANS",
! 629: "FDEF", "PFDEF", "MODDEF", "MODEND", "GLOBAL", "MGLOBAL", "LOCAL",
! 630: "LOCALF", "CMP", "OR", "AND", "CAR", "CDR", "QUOTED", "COLONCOLON", "DO",
! 631: "WHILE", "FOR", "IF", "ELSE", "BREAK", "RETURN", "CONTINUE", "PARIF",
! 632: "MAP", "RECMAP", "TIMER", "GF2NGEN", "GFPNGEN", "GFSNGEN", "GETOPT",
! 633: "FOP_AND", "FOP_OR", "FOP_IMPL", "FOP_REPL", "FOP_EQUIV", "FOP_NOT",
! 634: "LOP", "FORMULA", "UCASE", "LCASE", "STR", "SELF", "BOPASS", "'+'",
! 635: "'-'", "'*'", "'/'", "'^'", "'%'", "'='", "'?'", "':'", "'`'", "'&'",
! 636: "PLUS", "MINUS", "'!'", "'{'", "'}'", "'('", "')'", "';'", "'$'", "','",
! 637: "'|'", "'['", "']'", "'<'", "'>'", "$accept", "start", "stat", "$@1",
! 638: "$@2", "$@3", "$@4", "$@5", "$@6", "$@7", "$@8", "$@9", "tail", "desc",
! 639: "complex", "members", "vars", "pvars", "stats", "node", "_node",
! 640: "optlist", "rawstr", "opt", "pexpr", "expr", 0
! 641: };
! 642: #endif
! 643:
! 644: # ifdef YYPRINT
! 645: /* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to
! 646: token YYLEX-NUM. */
! 647: static const yytype_uint16 yytoknum[] =
! 648: {
! 649: 0, 256, 257, 258, 259, 260, 261, 262, 263, 264,
! 650: 265, 266, 267, 268, 269, 270, 271, 272, 273, 274,
! 651: 275, 276, 277, 278, 279, 280, 281, 282, 283, 284,
! 652: 285, 286, 287, 288, 289, 290, 291, 292, 293, 294,
! 653: 295, 296, 297, 298, 299, 300, 301, 302, 303, 304,
! 654: 305, 43, 45, 42, 47, 94, 37, 61, 63, 58,
! 655: 96, 38, 306, 307, 33, 123, 125, 40, 41, 59,
! 656: 36, 44, 124, 91, 93, 60, 62
! 657: };
! 658: # endif
! 659:
! 660: /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */
! 661: static const yytype_uint8 yyr1[] =
! 662: {
! 663: 0, 77, 78, 79, 80, 81, 79, 82, 83, 79,
! 664: 84, 85, 79, 79, 79, 79, 79, 79, 79, 79,
! 665: 79, 79, 79, 79, 79, 79, 79, 79, 86, 87,
! 666: 88, 79, 79, 79, 79, 89, 89, 90, 90, 91,
! 667: 92, 92, 93, 93, 94, 94, 95, 95, 96, 96,
! 668: 97, 97, 98, 98, 99, 99, 100, 101, 101, 101,
! 669: 101, 101, 101, 101, 101, 101, 101, 101, 101, 101,
! 670: 101, 101, 101, 101, 101, 101, 101, 101, 101, 101,
! 671: 101, 101, 101, 102, 102, 102, 102, 102, 102, 102,
! 672: 102, 102, 102, 102, 102, 102, 102, 102, 102, 102,
! 673: 102, 102, 102, 102, 102, 102, 102, 102, 102, 102,
! 674: 102, 102, 102, 102, 102
! 675: };
! 676:
! 677: /* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */
! 678: static const yytype_uint8 yyr2[] =
! 679: {
! 680: 0, 2, 1, 1, 0, 0, 5, 0, 0, 5,
! 681: 0, 0, 5, 3, 6, 2, 1, 2, 2, 2,
! 682: 3, 5, 7, 9, 5, 7, 8, 6, 0, 0,
! 683: 0, 12, 3, 2, 2, 1, 1, 0, 1, 3,
! 684: 1, 3, 1, 3, 1, 3, 0, 2, 0, 1,
! 685: 1, 3, 1, 3, 1, 1, 3, 1, 1, 1,
! 686: 1, 1, 1, 1, 4, 6, 6, 6, 7, 4,
! 687: 3, 8, 4, 6, 7, 9, 4, 4, 4, 3,
! 688: 1, 4, 3, 1, 5, 3, 3, 2, 2, 3,
! 689: 2, 2, 3, 3, 3, 3, 3, 3, 3, 2,
! 690: 3, 3, 2, 3, 3, 3, 3, 3, 3, 5,
! 691: 3, 4, 4, 5, 2
! 692: };
! 693:
! 694: /* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state
! 695: STATE-NUM when YYTABLE doesn't specify something else to do. Zero
! 696: means the default is an error. */
! 697: static const yytype_uint8 yydefact[] =
! 698: {
! 699: 0, 0, 0, 0, 59, 0, 0, 0, 0, 4,
! 700: 7, 10, 0, 0, 0, 0, 0, 0, 0, 0,
! 701: 0, 0, 0, 0, 0, 0, 0, 60, 61, 62,
! 702: 0, 0, 58, 80, 63, 57, 0, 0, 0, 0,
! 703: 0, 46, 0, 35, 36, 48, 48, 0, 2, 3,
! 704: 16, 83, 0, 34, 54, 55, 0, 0, 28, 0,
! 705: 0, 33, 0, 0, 0, 42, 0, 0, 0, 0,
! 706: 0, 48, 48, 48, 17, 63, 19, 0, 18, 0,
! 707: 0, 0, 0, 0, 102, 48, 48, 48, 88, 90,
! 708: 91, 114, 99, 0, 0, 0, 0, 0, 49, 50,
! 709: 0, 1, 0, 0, 0, 0, 0, 0, 0, 0,
! 710: 0, 0, 0, 87, 0, 0, 0, 0, 0, 0,
! 711: 0, 0, 0, 15, 0, 0, 0, 48, 32, 44,
! 712: 5, 8, 11, 0, 13, 0, 0, 0, 0, 0,
! 713: 0, 0, 48, 20, 0, 0, 0, 0, 70, 0,
! 714: 0, 0, 0, 39, 47, 0, 0, 79, 0, 89,
! 715: 0, 110, 82, 0, 98, 100, 101, 103, 104, 105,
! 716: 106, 107, 108, 86, 92, 93, 94, 95, 97, 96,
! 717: 85, 0, 0, 40, 111, 29, 0, 0, 0, 0,
! 718: 0, 43, 77, 78, 112, 48, 0, 48, 0, 0,
! 719: 72, 48, 48, 48, 0, 69, 76, 0, 64, 0,
! 720: 0, 0, 0, 51, 81, 0, 0, 0, 48, 0,
! 721: 45, 6, 9, 12, 0, 24, 0, 21, 64, 0,
! 722: 0, 0, 0, 48, 0, 0, 0, 52, 0, 84,
! 723: 48, 113, 109, 14, 41, 30, 27, 0, 48, 0,
! 724: 73, 66, 67, 0, 0, 0, 65, 0, 0, 0,
! 725: 0, 25, 0, 22, 0, 68, 0, 53, 56, 74,
! 726: 0, 37, 0, 71, 26, 0, 38, 0, 23, 75,
! 727: 46, 0, 31
! 728: };
! 729:
! 730: /* YYDEFGOTO[NTERM-NUM]. */
! 731: static const yytype_int16 yydefgoto[] =
! 732: {
! 733: -1, 47, 154, 62, 188, 63, 189, 64, 190, 126,
! 734: 218, 260, 49, 277, 50, 182, 66, 130, 93, 97,
! 735: 98, 235, 236, 237, 51, 99
! 736: };
! 737:
! 738: /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
! 739: STATE-NUM. */
! 740: #define YYPACT_NINF -65
! 741: static const yytype_int16 yypact[] =
! 742: {
! 743: 476, -36, 83, -64, -65, -27, 3, 18, -36, -65,
! 744: -65, -65, 26, 13, 21, 24, 476, 35, 60, 64,
! 745: -36, 597, -36, 68, 71, 72, 74, -65, -65, -65,
! 746: 75, 707, -65, 76, 25, -65, 707, 707, 707, 707,
! 747: 707, -65, 547, -65, -65, 707, 707, 137, -65, -65,
! 748: -65, -2, 864, -65, -65, -65, 79, 83, -65, 78,
! 749: -36, -65, 100, 100, 100, -65, -12, 707, 707, 707,
! 750: 124, 707, 707, 707, -65, 58, -65, 864, -65, 101,
! 751: 102, 104, 707, -33, 1184, 707, 707, 707, 106, -26,
! 752: -26, 1184, 106, 334, 83, 707, 908, 54, 85, 1124,
! 753: 81, -65, 83, 707, 707, 707, 707, 707, 707, 707,
! 754: 707, 707, 707, -65, 707, 707, 707, 707, 707, 707,
! 755: 707, 707, 707, -65, 83, 91, 105, 707, -65, -65,
! 756: 103, 103, 103, 126, -65, 939, 970, 1001, 111, 115,
! 757: 116, 127, 707, -65, -17, 129, 131, 776, -65, 140,
! 758: 141, 144, -53, -65, -65, 143, 1032, -65, 707, -65,
! 759: 707, -65, -65, 260, 23, 273, 135, 1228, 210, 1203,
! 760: 190, 45, -8, 1124, -26, -26, -45, -45, -45, -45,
! 761: 1124, 1094, -60, -65, -65, -65, 145, 157, -36, -36,
! 762: -36, -65, -65, -65, -65, 707, 476, 707, 476, -50,
! 763: -65, 707, 707, 707, 707, -65, -65, 147, 153, 83,
! 764: 134, 149, 745, 1124, -65, 707, -36, 83, 707, -36,
! 765: -65, -65, -65, -65, 150, -65, 152, 193, -65, 154,
! 766: 156, 163, 820, 707, 176, -16, 178, -65, 657, -2,
! 767: 707, -65, 1154, -65, -65, -65, -65, -36, 707, 476,
! 768: -65, -65, -65, 707, 168, 707, -65, 83, 707, -19,
! 769: 169, -65, 172, -65, 1063, -65, 864, -65, 1124, -65,
! 770: 83, 204, 476, -65, -65, -5, -65, 191, -65, -65,
! 771: -65, 405, -65
! 772: };
! 773:
! 774: /* YYPGOTO[NTERM-NUM]. */
! 775: static const yytype_int8 yypgoto[] =
! 776: {
! 777: -65, -65, 1, -65, -65, -65, -65, -65, -65, -65,
! 778: -65, -65, 4, -65, -65, -65, -65, 70, -23, 90,
! 779: -65, -10, 30, 10, 59, 0
! 780: };
! 781:
! 782: /* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If
! 783: positive, shift that token. If negative, reduce the rule which
! 784: number is the opposite. If zero, do what YYDEFACT says.
! 785: If YYTABLE_NINF, syntax error. */
! 786: #define YYTABLE_NINF -1
! 787: static const yytype_uint16 yytable[] =
! 788: {
! 789: 52, 48, 102, 57, 113, 53, 216, 104, 105, 106,
! 790: 119, 217, 61, 54, 55, 208, 52, 70, 228, 209,
! 791: 58, 77, 209, 113, 74, 76, 78, 117, 118, 119,
! 792: 120, 84, 56, 43, 44, 148, 88, 89, 90, 91,
! 793: 92, 113, 96, 115, 116, 117, 118, 119, 120, 269,
! 794: 59, 200, 256, 270, 201, 257, 123, 43, 44, 133,
! 795: 104, 105, 106, 279, 128, 60, 257, 135, 136, 137,
! 796: 134, 103, 113, 65, 115, 116, 117, 118, 119, 120,
! 797: 67, 143, 147, 107, 108, 109, 110, 125, 68, 112,
! 798: 86, 69, 87, 52, 113, 156, 115, 116, 117, 118,
! 799: 119, 120, 71, 163, 164, 165, 166, 167, 168, 169,
! 800: 170, 171, 172, 149, 173, 174, 175, 176, 177, 178,
! 801: 179, 180, 181, 86, 155, 142, 158, 72, 159, 54,
! 802: 55, 73, 162, 131, 132, 79, 100, 101, 80, 81,
! 803: 4, 82, 83, 85, 124, 127, 129, 138, 144, 145,
! 804: 104, 146, 13, 14, 183, 113, 160, 161, 212, 184,
! 805: 213, 139, 140, 141, 23, 24, 25, 26, 27, 28,
! 806: 29, 30, 185, 191, 187, 150, 151, 152, 195, 32,
! 807: 33, 75, 35, 196, 113, 197, 115, 116, 117, 118,
! 808: 119, 120, 221, 222, 223, 198, 52, 225, 52, 227,
! 809: 202, 238, 203, 220, 232, 104, 105, 106, 205, 206,
! 810: 207, 210, 234, 219, 233, 242, 240, 186, 247, 249,
! 811: 243, 248, 250, 246, 251, 104, 105, 106, 107, 108,
! 812: 109, 252, 199, 255, 112, 258, 265, 271, 96, 113,
! 813: 272, 115, 116, 117, 118, 119, 120, 244, 107, 52,
! 814: 263, 261, 276, 264, 112, 266, 280, 281, 268, 113,
! 815: 275, 115, 116, 117, 118, 119, 120, 267, 0, 239,
! 816: 274, 0, 52, 278, 0, 104, 105, 106, 0, 0,
! 817: 0, 52, 0, 0, 0, 224, 0, 226, 104, 0,
! 818: 106, 229, 230, 231, 0, 0, 0, 0, 107, 108,
! 819: 109, 110, 111, 0, 112, 0, 0, 0, 245, 113,
! 820: 114, 115, 116, 117, 118, 119, 120, 121, 122, 0,
! 821: 0, 0, 113, 254, 115, 116, 117, 118, 119, 120,
! 822: 259, 0, 0, 0, 214, 1, 0, 2, 262, 3,
! 823: 4, 5, 6, 7, 8, 9, 10, 11, 12, 0,
! 824: 0, 0, 13, 14, 15, 0, 16, 17, 18, 19,
! 825: 0, 20, 21, 22, 23, 24, 25, 26, 27, 28,
! 826: 29, 30, 0, 0, 0, 0, 0, 31, 0, 32,
! 827: 33, 34, 35, 36, 0, 37, 38, 0, 0, 0,
! 828: 0, 0, 0, 0, 39, 0, 0, 0, 40, 41,
! 829: 153, 42, 0, 43, 44, 0, 1, 45, 2, 46,
! 830: 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,
! 831: 0, 0, 0, 13, 14, 15, 0, 16, 17, 18,
! 832: 19, 0, 20, 21, 22, 23, 24, 25, 26, 27,
! 833: 28, 29, 30, 0, 0, 0, 0, 0, 31, 0,
! 834: 32, 33, 34, 35, 36, 0, 37, 38, 0, 0,
! 835: 0, 0, 0, 0, 0, 39, 0, 0, 0, 40,
! 836: 41, 282, 42, 0, 43, 44, 0, 1, 45, 2,
! 837: 46, 3, 4, 5, 6, 7, 8, 9, 10, 11,
! 838: 12, 0, 0, 0, 13, 14, 15, 0, 16, 17,
! 839: 18, 19, 0, 20, 21, 22, 23, 24, 25, 26,
! 840: 27, 28, 29, 30, 0, 0, 0, 0, 0, 31,
! 841: 0, 32, 33, 34, 35, 36, 0, 37, 38, 0,
! 842: 0, 0, 0, 0, 0, 0, 39, 0, 0, 0,
! 843: 40, 41, 0, 42, 0, 43, 44, 0, 0, 45,
! 844: 94, 46, 3, 4, 0, 0, 0, 0, 0, 0,
! 845: 0, 0, 0, 0, 0, 13, 14, 15, 0, 0,
! 846: 0, 0, 0, 0, 0, 0, 0, 23, 24, 25,
! 847: 26, 27, 28, 29, 30, 0, 0, 0, 0, 0,
! 848: 31, 0, 32, 33, 75, 35, 36, 0, 37, 38,
! 849: 95, 0, 3, 4, 0, 0, 0, 39, 0, 0,
! 850: 0, 40, 0, 0, 42, 13, 14, 15, 0, 0,
! 851: 45, 0, 46, 0, 0, 0, 0, 23, 24, 25,
! 852: 26, 27, 28, 29, 30, 0, 0, 0, 0, 0,
! 853: 31, 0, 32, 33, 75, 35, 36, 0, 37, 38,
! 854: 0, 0, 0, 0, 0, 0, 0, 39, 0, 0,
! 855: 0, 40, 3, 4, 42, 0, 43, 44, 0, 0,
! 856: 45, 0, 46, 0, 0, 13, 14, 15, 0, 0,
! 857: 0, 0, 0, 0, 0, 0, 0, 23, 24, 25,
! 858: 26, 27, 28, 29, 30, 0, 0, 0, 0, 0,
! 859: 31, 0, 32, 33, 75, 35, 36, 0, 37, 38,
! 860: 95, 0, 3, 4, 0, 0, 0, 39, 0, 0,
! 861: 0, 40, 0, 0, 42, 13, 14, 15, 0, 0,
! 862: 45, 0, 46, 0, 0, 0, 0, 23, 24, 25,
! 863: 26, 27, 28, 29, 30, 0, 0, 0, 0, 0,
! 864: 31, 0, 32, 33, 75, 35, 36, 0, 37, 38,
! 865: 104, 105, 106, 0, 0, 0, 0, 39, 0, 0,
! 866: 0, 40, 0, 0, 42, 0, 0, 0, 0, 0,
! 867: 45, 0, 46, 107, 108, 109, 110, 111, 0, 112,
! 868: 0, 104, 105, 106, 113, 114, 115, 116, 117, 118,
! 869: 119, 120, 121, 122, 0, 0, 0, 0, 0, 0,
! 870: 0, 0, 0, 0, 107, 108, 109, 110, 111, 241,
! 871: 112, 0, 0, 0, 0, 113, 114, 115, 116, 117,
! 872: 118, 119, 120, 121, 122, 104, 105, 106, 0, 0,
! 873: 0, 0, 0, 0, 0, 0, 0, 204, 0, 0,
! 874: 0, 0, 0, 0, 0, 0, 0, 0, 107, 108,
! 875: 109, 110, 111, 0, 112, 0, 0, 0, 0, 113,
! 876: 114, 115, 116, 117, 118, 119, 120, 121, 122, 104,
! 877: 105, 106, 0, 0, 0, 0, 0, 0, 0, 0,
! 878: 0, 253, 0, 0, 0, 0, 0, 0, 0, 0,
! 879: 0, 0, 107, 108, 109, 110, 111, 0, 112, 0,
! 880: 0, 0, 0, 113, 114, 115, 116, 117, 118, 119,
! 881: 120, 121, 122, 104, 105, 106, 0, 0, 0, 0,
! 882: 0, 0, 0, 43, 44, 0, 0, 0, 0, 0,
! 883: 0, 0, 0, 0, 0, 0, 107, 108, 109, 110,
! 884: 111, 0, 112, 0, 104, 105, 106, 113, 114, 115,
! 885: 116, 117, 118, 119, 120, 121, 122, 0, 0, 0,
! 886: 0, 0, 0, 0, 0, 0, 157, 107, 108, 109,
! 887: 110, 111, 0, 112, 0, 104, 105, 106, 113, 114,
! 888: 115, 116, 117, 118, 119, 120, 121, 122, 0, 0,
! 889: 0, 0, 0, 0, 0, 0, 0, 192, 107, 108,
! 890: 109, 110, 111, 0, 112, 0, 104, 105, 106, 113,
! 891: 114, 115, 116, 117, 118, 119, 120, 121, 122, 0,
! 892: 0, 0, 0, 0, 0, 0, 0, 0, 193, 107,
! 893: 108, 109, 110, 111, 0, 112, 0, 104, 105, 106,
! 894: 113, 114, 115, 116, 117, 118, 119, 120, 121, 122,
! 895: 0, 0, 0, 0, 0, 0, 0, 0, 0, 194,
! 896: 107, 108, 109, 110, 111, 0, 112, 0, 104, 105,
! 897: 106, 113, 114, 115, 116, 117, 118, 119, 120, 121,
! 898: 122, 0, 0, 0, 0, 0, 0, 0, 0, 0,
! 899: 211, 107, 108, 109, 110, 111, 0, 112, 0, 104,
! 900: 105, 106, 113, 114, 115, 116, 117, 118, 119, 120,
! 901: 121, 122, 0, 0, 0, 0, 0, 0, 0, 0,
! 902: 0, 273, 107, 108, 109, 110, 111, 0, 112, 104,
! 903: 105, 106, 0, 113, 114, 115, 116, 117, 118, 119,
! 904: 120, 121, 122, 215, 0, 0, 0, 0, 0, 0,
! 905: 0, 0, 107, 108, 109, 110, 111, 0, 112, 104,
! 906: 105, 106, 0, 113, 114, 115, 116, 117, 118, 119,
! 907: 120, 121, 122, 0, 0, 0, 0, 0, 0, 0,
! 908: 0, 0, 107, 108, 109, 110, 111, 0, 112, 104,
! 909: 105, 106, 0, 113, 0, 115, 116, 117, 118, 119,
! 910: 120, 0, 122, 0, 0, 0, 0, 0, 104, 105,
! 911: 106, 0, 107, 108, 109, 110, 111, 0, 112, 0,
! 912: 0, 0, 0, 113, 0, 115, 116, 117, 118, 119,
! 913: 120, 107, 108, 104, 105, 106, 0, 112, 0, 0,
! 914: 0, 0, 113, 0, 115, 116, 117, 118, 119, 120,
! 915: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
! 916: 0, 0, 112, 0, 0, 0, 0, 113, 0, 115,
! 917: 116, 117, 118, 119, 120
! 918: };
! 919:
! 920: static const yytype_int16 yycheck[] =
! 921: {
! 922: 0, 0, 4, 67, 49, 1, 66, 15, 16, 17,
! 923: 55, 71, 8, 46, 47, 68, 16, 16, 68, 72,
! 924: 47, 21, 72, 49, 20, 21, 22, 53, 54, 55,
! 925: 56, 31, 2, 69, 70, 68, 36, 37, 38, 39,
! 926: 40, 49, 42, 51, 52, 53, 54, 55, 56, 68,
! 927: 47, 68, 68, 72, 71, 71, 52, 69, 70, 71,
! 928: 15, 16, 17, 68, 60, 47, 71, 67, 68, 69,
! 929: 66, 73, 49, 47, 51, 52, 53, 54, 55, 56,
! 930: 67, 77, 82, 38, 39, 40, 41, 57, 67, 44,
! 931: 65, 67, 67, 93, 49, 95, 51, 52, 53, 54,
! 932: 55, 56, 67, 103, 104, 105, 106, 107, 108, 109,
! 933: 110, 111, 112, 83, 114, 115, 116, 117, 118, 119,
! 934: 120, 121, 122, 65, 94, 67, 72, 67, 74, 46,
! 935: 47, 67, 102, 63, 64, 67, 46, 0, 67, 67,
! 936: 6, 67, 67, 67, 65, 67, 46, 23, 47, 47,
! 937: 15, 47, 18, 19, 124, 49, 71, 76, 158, 68,
! 938: 160, 71, 72, 73, 30, 31, 32, 33, 34, 35,
! 939: 36, 37, 67, 47, 71, 85, 86, 87, 67, 45,
! 940: 46, 47, 48, 68, 49, 69, 51, 52, 53, 54,
! 941: 55, 56, 188, 189, 190, 68, 196, 196, 198, 198,
! 942: 71, 67, 71, 46, 204, 15, 16, 17, 68, 68,
! 943: 66, 68, 59, 68, 67, 215, 67, 127, 68, 26,
! 944: 216, 69, 68, 219, 68, 15, 16, 17, 38, 39,
! 945: 40, 68, 142, 57, 44, 57, 68, 68, 238, 49,
! 946: 68, 51, 52, 53, 54, 55, 56, 217, 38, 249,
! 947: 249, 247, 48, 253, 44, 255, 65, 280, 258, 49,
! 948: 270, 51, 52, 53, 54, 55, 56, 257, -1, 210,
! 949: 266, -1, 272, 272, -1, 15, 16, 17, -1, -1,
! 950: -1, 281, -1, -1, -1, 195, -1, 197, 15, -1,
! 951: 17, 201, 202, 203, -1, -1, -1, -1, 38, 39,
! 952: 40, 41, 42, -1, 44, -1, -1, -1, 218, 49,
! 953: 50, 51, 52, 53, 54, 55, 56, 57, 58, -1,
! 954: -1, -1, 49, 233, 51, 52, 53, 54, 55, 56,
! 955: 240, -1, -1, -1, 74, 1, -1, 3, 248, 5,
! 956: 6, 7, 8, 9, 10, 11, 12, 13, 14, -1,
! 957: -1, -1, 18, 19, 20, -1, 22, 23, 24, 25,
! 958: -1, 27, 28, 29, 30, 31, 32, 33, 34, 35,
! 959: 36, 37, -1, -1, -1, -1, -1, 43, -1, 45,
! 960: 46, 47, 48, 49, -1, 51, 52, -1, -1, -1,
! 961: -1, -1, -1, -1, 60, -1, -1, -1, 64, 65,
! 962: 66, 67, -1, 69, 70, -1, 1, 73, 3, 75,
! 963: 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
! 964: -1, -1, -1, 18, 19, 20, -1, 22, 23, 24,
! 965: 25, -1, 27, 28, 29, 30, 31, 32, 33, 34,
! 966: 35, 36, 37, -1, -1, -1, -1, -1, 43, -1,
! 967: 45, 46, 47, 48, 49, -1, 51, 52, -1, -1,
! 968: -1, -1, -1, -1, -1, 60, -1, -1, -1, 64,
! 969: 65, 66, 67, -1, 69, 70, -1, 1, 73, 3,
! 970: 75, 5, 6, 7, 8, 9, 10, 11, 12, 13,
! 971: 14, -1, -1, -1, 18, 19, 20, -1, 22, 23,
! 972: 24, 25, -1, 27, 28, 29, 30, 31, 32, 33,
! 973: 34, 35, 36, 37, -1, -1, -1, -1, -1, 43,
! 974: -1, 45, 46, 47, 48, 49, -1, 51, 52, -1,
! 975: -1, -1, -1, -1, -1, -1, 60, -1, -1, -1,
! 976: 64, 65, -1, 67, -1, 69, 70, -1, -1, 73,
! 977: 3, 75, 5, 6, -1, -1, -1, -1, -1, -1,
! 978: -1, -1, -1, -1, -1, 18, 19, 20, -1, -1,
! 979: -1, -1, -1, -1, -1, -1, -1, 30, 31, 32,
! 980: 33, 34, 35, 36, 37, -1, -1, -1, -1, -1,
! 981: 43, -1, 45, 46, 47, 48, 49, -1, 51, 52,
! 982: 53, -1, 5, 6, -1, -1, -1, 60, -1, -1,
! 983: -1, 64, -1, -1, 67, 18, 19, 20, -1, -1,
! 984: 73, -1, 75, -1, -1, -1, -1, 30, 31, 32,
! 985: 33, 34, 35, 36, 37, -1, -1, -1, -1, -1,
! 986: 43, -1, 45, 46, 47, 48, 49, -1, 51, 52,
! 987: -1, -1, -1, -1, -1, -1, -1, 60, -1, -1,
! 988: -1, 64, 5, 6, 67, -1, 69, 70, -1, -1,
! 989: 73, -1, 75, -1, -1, 18, 19, 20, -1, -1,
! 990: -1, -1, -1, -1, -1, -1, -1, 30, 31, 32,
! 991: 33, 34, 35, 36, 37, -1, -1, -1, -1, -1,
! 992: 43, -1, 45, 46, 47, 48, 49, -1, 51, 52,
! 993: 53, -1, 5, 6, -1, -1, -1, 60, -1, -1,
! 994: -1, 64, -1, -1, 67, 18, 19, 20, -1, -1,
! 995: 73, -1, 75, -1, -1, -1, -1, 30, 31, 32,
! 996: 33, 34, 35, 36, 37, -1, -1, -1, -1, -1,
! 997: 43, -1, 45, 46, 47, 48, 49, -1, 51, 52,
! 998: 15, 16, 17, -1, -1, -1, -1, 60, -1, -1,
! 999: -1, 64, -1, -1, 67, -1, -1, -1, -1, -1,
! 1000: 73, -1, 75, 38, 39, 40, 41, 42, -1, 44,
! 1001: -1, 15, 16, 17, 49, 50, 51, 52, 53, 54,
! 1002: 55, 56, 57, 58, -1, -1, -1, -1, -1, -1,
! 1003: -1, -1, -1, -1, 38, 39, 40, 41, 42, 74,
! 1004: 44, -1, -1, -1, -1, 49, 50, 51, 52, 53,
! 1005: 54, 55, 56, 57, 58, 15, 16, 17, -1, -1,
! 1006: -1, -1, -1, -1, -1, -1, -1, 71, -1, -1,
! 1007: -1, -1, -1, -1, -1, -1, -1, -1, 38, 39,
! 1008: 40, 41, 42, -1, 44, -1, -1, -1, -1, 49,
! 1009: 50, 51, 52, 53, 54, 55, 56, 57, 58, 15,
! 1010: 16, 17, -1, -1, -1, -1, -1, -1, -1, -1,
! 1011: -1, 71, -1, -1, -1, -1, -1, -1, -1, -1,
! 1012: -1, -1, 38, 39, 40, 41, 42, -1, 44, -1,
! 1013: -1, -1, -1, 49, 50, 51, 52, 53, 54, 55,
! 1014: 56, 57, 58, 15, 16, 17, -1, -1, -1, -1,
! 1015: -1, -1, -1, 69, 70, -1, -1, -1, -1, -1,
! 1016: -1, -1, -1, -1, -1, -1, 38, 39, 40, 41,
! 1017: 42, -1, 44, -1, 15, 16, 17, 49, 50, 51,
! 1018: 52, 53, 54, 55, 56, 57, 58, -1, -1, -1,
! 1019: -1, -1, -1, -1, -1, -1, 68, 38, 39, 40,
! 1020: 41, 42, -1, 44, -1, 15, 16, 17, 49, 50,
! 1021: 51, 52, 53, 54, 55, 56, 57, 58, -1, -1,
! 1022: -1, -1, -1, -1, -1, -1, -1, 68, 38, 39,
! 1023: 40, 41, 42, -1, 44, -1, 15, 16, 17, 49,
! 1024: 50, 51, 52, 53, 54, 55, 56, 57, 58, -1,
! 1025: -1, -1, -1, -1, -1, -1, -1, -1, 68, 38,
! 1026: 39, 40, 41, 42, -1, 44, -1, 15, 16, 17,
! 1027: 49, 50, 51, 52, 53, 54, 55, 56, 57, 58,
! 1028: -1, -1, -1, -1, -1, -1, -1, -1, -1, 68,
! 1029: 38, 39, 40, 41, 42, -1, 44, -1, 15, 16,
! 1030: 17, 49, 50, 51, 52, 53, 54, 55, 56, 57,
! 1031: 58, -1, -1, -1, -1, -1, -1, -1, -1, -1,
! 1032: 68, 38, 39, 40, 41, 42, -1, 44, -1, 15,
! 1033: 16, 17, 49, 50, 51, 52, 53, 54, 55, 56,
! 1034: 57, 58, -1, -1, -1, -1, -1, -1, -1, -1,
! 1035: -1, 68, 38, 39, 40, 41, 42, -1, 44, 15,
! 1036: 16, 17, -1, 49, 50, 51, 52, 53, 54, 55,
! 1037: 56, 57, 58, 59, -1, -1, -1, -1, -1, -1,
! 1038: -1, -1, 38, 39, 40, 41, 42, -1, 44, 15,
! 1039: 16, 17, -1, 49, 50, 51, 52, 53, 54, 55,
! 1040: 56, 57, 58, -1, -1, -1, -1, -1, -1, -1,
! 1041: -1, -1, 38, 39, 40, 41, 42, -1, 44, 15,
! 1042: 16, 17, -1, 49, -1, 51, 52, 53, 54, 55,
! 1043: 56, -1, 58, -1, -1, -1, -1, -1, 15, 16,
! 1044: 17, -1, 38, 39, 40, 41, 42, -1, 44, -1,
! 1045: -1, -1, -1, 49, -1, 51, 52, 53, 54, 55,
! 1046: 56, 38, 39, 15, 16, 17, -1, 44, -1, -1,
! 1047: -1, -1, 49, -1, 51, 52, 53, 54, 55, 56,
! 1048: -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
! 1049: -1, -1, 44, -1, -1, -1, -1, 49, -1, 51,
! 1050: 52, 53, 54, 55, 56
! 1051: };
! 1052:
! 1053: /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
! 1054: symbol of state STATE-NUM. */
! 1055: static const yytype_uint8 yystos[] =
! 1056: {
! 1057: 0, 1, 3, 5, 6, 7, 8, 9, 10, 11,
! 1058: 12, 13, 14, 18, 19, 20, 22, 23, 24, 25,
! 1059: 27, 28, 29, 30, 31, 32, 33, 34, 35, 36,
! 1060: 37, 43, 45, 46, 47, 48, 49, 51, 52, 60,
! 1061: 64, 65, 67, 69, 70, 73, 75, 78, 79, 89,
! 1062: 91, 101, 102, 89, 46, 47, 99, 67, 47, 47,
! 1063: 47, 89, 80, 82, 84, 47, 93, 67, 67, 67,
! 1064: 79, 67, 67, 67, 89, 47, 89, 102, 89, 67,
! 1065: 67, 67, 67, 67, 102, 67, 65, 67, 102, 102,
! 1066: 102, 102, 102, 95, 3, 53, 102, 96, 97, 102,
! 1067: 96, 0, 4, 73, 15, 16, 17, 38, 39, 40,
! 1068: 41, 42, 44, 49, 50, 51, 52, 53, 54, 55,
! 1069: 56, 57, 58, 89, 65, 99, 86, 67, 89, 46,
! 1070: 94, 94, 94, 71, 89, 102, 102, 102, 23, 96,
! 1071: 96, 96, 67, 89, 47, 47, 47, 102, 68, 99,
! 1072: 96, 96, 96, 66, 79, 99, 102, 68, 72, 74,
! 1073: 71, 76, 99, 102, 102, 102, 102, 102, 102, 102,
! 1074: 102, 102, 102, 102, 102, 102, 102, 102, 102, 102,
! 1075: 102, 102, 92, 99, 68, 67, 96, 71, 81, 83,
! 1076: 85, 47, 68, 68, 68, 67, 68, 69, 68, 96,
! 1077: 68, 71, 71, 71, 71, 68, 68, 66, 68, 72,
! 1078: 68, 68, 102, 102, 74, 59, 66, 71, 87, 68,
! 1079: 46, 89, 89, 89, 96, 79, 96, 79, 68, 96,
! 1080: 96, 96, 102, 67, 59, 98, 99, 100, 67, 101,
! 1081: 67, 74, 102, 89, 99, 96, 89, 68, 69, 26,
! 1082: 68, 68, 68, 71, 96, 57, 68, 71, 57, 96,
! 1083: 88, 89, 96, 79, 102, 68, 102, 100, 102, 68,
! 1084: 72, 68, 68, 68, 89, 98, 48, 90, 79, 68,
! 1085: 65, 95, 66
! 1086: };
! 1087:
! 1088: #define yyerrok (yyerrstatus = 0)
! 1089: #define yyclearin (yychar = YYEMPTY)
! 1090: #define YYEMPTY (-2)
! 1091: #define YYEOF 0
! 1092:
! 1093: #define YYACCEPT goto yyacceptlab
! 1094: #define YYABORT goto yyabortlab
! 1095: #define YYERROR goto yyerrorlab
! 1096:
! 1097:
! 1098: /* Like YYERROR except do call yyerror. This remains here temporarily
! 1099: to ease the transition to the new meaning of YYERROR, for GCC.
! 1100: Once GCC version 2 has supplanted version 1, this can go. */
! 1101:
! 1102: #define YYFAIL goto yyerrlab
! 1103:
! 1104: #define YYRECOVERING() (!!yyerrstatus)
! 1105:
! 1106: #define YYBACKUP(Token, Value) \
! 1107: do \
! 1108: if (yychar == YYEMPTY && yylen == 1) \
! 1109: { \
! 1110: yychar = (Token); \
! 1111: yylval = (Value); \
! 1112: yytoken = YYTRANSLATE (yychar); \
! 1113: YYPOPSTACK (1); \
! 1114: goto yybackup; \
! 1115: } \
! 1116: else \
! 1117: { \
! 1118: yyerror (YY_("syntax error: cannot back up")); \
! 1119: YYERROR; \
! 1120: } \
! 1121: while (YYID (0))
! 1122:
! 1123:
! 1124: #define YYTERROR 1
! 1125: #define YYERRCODE 256
! 1126:
! 1127:
! 1128: /* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N].
! 1129: If N is 0, then set CURRENT to the empty location which ends
! 1130: the previous symbol: RHS[0] (always defined). */
! 1131:
! 1132: #define YYRHSLOC(Rhs, K) ((Rhs)[K])
! 1133: #ifndef YYLLOC_DEFAULT
! 1134: # define YYLLOC_DEFAULT(Current, Rhs, N) \
! 1135: do \
! 1136: if (YYID (N)) \
! 1137: { \
! 1138: (Current).first_line = YYRHSLOC (Rhs, 1).first_line; \
! 1139: (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \
! 1140: (Current).last_line = YYRHSLOC (Rhs, N).last_line; \
! 1141: (Current).last_column = YYRHSLOC (Rhs, N).last_column; \
! 1142: } \
! 1143: else \
! 1144: { \
! 1145: (Current).first_line = (Current).last_line = \
! 1146: YYRHSLOC (Rhs, 0).last_line; \
! 1147: (Current).first_column = (Current).last_column = \
! 1148: YYRHSLOC (Rhs, 0).last_column; \
! 1149: } \
! 1150: while (YYID (0))
! 1151: #endif
! 1152:
! 1153:
! 1154: /* YY_LOCATION_PRINT -- Print the location on the stream.
! 1155: This macro was not mandated originally: define only if we know
! 1156: we won't break user code: when these are the locations we know. */
! 1157:
! 1158: #ifndef YY_LOCATION_PRINT
! 1159: # if YYLTYPE_IS_TRIVIAL
! 1160: # define YY_LOCATION_PRINT(File, Loc) \
! 1161: fprintf (File, "%d.%d-%d.%d", \
! 1162: (Loc).first_line, (Loc).first_column, \
! 1163: (Loc).last_line, (Loc).last_column)
! 1164: # else
! 1165: # define YY_LOCATION_PRINT(File, Loc) ((void) 0)
! 1166: # endif
! 1167: #endif
! 1168:
! 1169:
! 1170: /* YYLEX -- calling `yylex' with the right arguments. */
! 1171:
! 1172: #ifdef YYLEX_PARAM
! 1173: # define YYLEX yylex (YYLEX_PARAM)
! 1174: #else
! 1175: # define YYLEX yylex ()
! 1176: #endif
! 1177:
! 1178: /* Enable debugging if requested. */
! 1179: #if YYDEBUG
! 1180:
! 1181: # ifndef YYFPRINTF
! 1182: # include <stdio.h> /* INFRINGES ON USER NAME SPACE */
! 1183: # define YYFPRINTF fprintf
! 1184: # endif
! 1185:
! 1186: # define YYDPRINTF(Args) \
! 1187: do { \
! 1188: if (yydebug) \
! 1189: YYFPRINTF Args; \
! 1190: } while (YYID (0))
! 1191:
! 1192: # define YY_SYMBOL_PRINT(Title, Type, Value, Location) \
! 1193: do { \
! 1194: if (yydebug) \
! 1195: { \
! 1196: YYFPRINTF (stderr, "%s ", Title); \
! 1197: yy_symbol_print (stderr, \
! 1198: Type, Value); \
! 1199: YYFPRINTF (stderr, "\n"); \
! 1200: } \
! 1201: } while (YYID (0))
! 1202:
! 1203:
! 1204: /*--------------------------------.
! 1205: | Print this symbol on YYOUTPUT. |
! 1206: `--------------------------------*/
! 1207:
! 1208: /*ARGSUSED*/
! 1209: #if (defined __STDC__ || defined __C99__FUNC__ \
! 1210: || defined __cplusplus || defined _MSC_VER)
! 1211: static void
! 1212: yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
! 1213: #else
! 1214: static void
! 1215: yy_symbol_value_print (yyoutput, yytype, yyvaluep)
! 1216: FILE *yyoutput;
! 1217: int yytype;
! 1218: YYSTYPE const * const yyvaluep;
! 1219: #endif
! 1220: {
! 1221: if (!yyvaluep)
! 1222: return;
! 1223: # ifdef YYPRINT
! 1224: if (yytype < YYNTOKENS)
! 1225: YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep);
! 1226: # else
! 1227: YYUSE (yyoutput);
! 1228: # endif
! 1229: switch (yytype)
! 1230: {
! 1231: default:
! 1232: break;
! 1233: }
! 1234: }
! 1235:
! 1236:
! 1237: /*--------------------------------.
! 1238: | Print this symbol on YYOUTPUT. |
! 1239: `--------------------------------*/
! 1240:
! 1241: #if (defined __STDC__ || defined __C99__FUNC__ \
! 1242: || defined __cplusplus || defined _MSC_VER)
! 1243: static void
! 1244: yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
! 1245: #else
! 1246: static void
! 1247: yy_symbol_print (yyoutput, yytype, yyvaluep)
! 1248: FILE *yyoutput;
! 1249: int yytype;
! 1250: YYSTYPE const * const yyvaluep;
! 1251: #endif
! 1252: {
! 1253: if (yytype < YYNTOKENS)
! 1254: YYFPRINTF (yyoutput, "token %s (", yytname[yytype]);
! 1255: else
! 1256: YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]);
! 1257:
! 1258: yy_symbol_value_print (yyoutput, yytype, yyvaluep);
! 1259: YYFPRINTF (yyoutput, ")");
! 1260: }
! 1261:
! 1262: /*------------------------------------------------------------------.
! 1263: | yy_stack_print -- Print the state stack from its BOTTOM up to its |
! 1264: | TOP (included). |
! 1265: `------------------------------------------------------------------*/
! 1266:
! 1267: #if (defined __STDC__ || defined __C99__FUNC__ \
! 1268: || defined __cplusplus || defined _MSC_VER)
! 1269: static void
! 1270: yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop)
! 1271: #else
! 1272: static void
! 1273: yy_stack_print (yybottom, yytop)
! 1274: yytype_int16 *yybottom;
! 1275: yytype_int16 *yytop;
! 1276: #endif
! 1277: {
! 1278: YYFPRINTF (stderr, "Stack now");
! 1279: for (; yybottom <= yytop; yybottom++)
! 1280: {
! 1281: int yybot = *yybottom;
! 1282: YYFPRINTF (stderr, " %d", yybot);
! 1283: }
! 1284: YYFPRINTF (stderr, "\n");
! 1285: }
! 1286:
! 1287: # define YY_STACK_PRINT(Bottom, Top) \
! 1288: do { \
! 1289: if (yydebug) \
! 1290: yy_stack_print ((Bottom), (Top)); \
! 1291: } while (YYID (0))
! 1292:
! 1293:
! 1294: /*------------------------------------------------.
! 1295: | Report that the YYRULE is going to be reduced. |
! 1296: `------------------------------------------------*/
! 1297:
! 1298: #if (defined __STDC__ || defined __C99__FUNC__ \
! 1299: || defined __cplusplus || defined _MSC_VER)
! 1300: static void
! 1301: yy_reduce_print (YYSTYPE *yyvsp, int yyrule)
! 1302: #else
! 1303: static void
! 1304: yy_reduce_print (yyvsp, yyrule)
! 1305: YYSTYPE *yyvsp;
! 1306: int yyrule;
! 1307: #endif
! 1308: {
! 1309: int yynrhs = yyr2[yyrule];
! 1310: int yyi;
! 1311: unsigned long int yylno = yyrline[yyrule];
! 1312: YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n",
! 1313: yyrule - 1, yylno);
! 1314: /* The symbols being reduced. */
! 1315: for (yyi = 0; yyi < yynrhs; yyi++)
! 1316: {
! 1317: YYFPRINTF (stderr, " $%d = ", yyi + 1);
! 1318: yy_symbol_print (stderr, yyrhs[yyprhs[yyrule] + yyi],
! 1319: &(yyvsp[(yyi + 1) - (yynrhs)])
! 1320: );
! 1321: YYFPRINTF (stderr, "\n");
! 1322: }
! 1323: }
! 1324:
! 1325: # define YY_REDUCE_PRINT(Rule) \
! 1326: do { \
! 1327: if (yydebug) \
! 1328: yy_reduce_print (yyvsp, Rule); \
! 1329: } while (YYID (0))
! 1330:
! 1331: /* Nonzero means print parse trace. It is left uninitialized so that
! 1332: multiple parsers can coexist. */
! 1333: int yydebug;
! 1334: #else /* !YYDEBUG */
! 1335: # define YYDPRINTF(Args)
! 1336: # define YY_SYMBOL_PRINT(Title, Type, Value, Location)
! 1337: # define YY_STACK_PRINT(Bottom, Top)
! 1338: # define YY_REDUCE_PRINT(Rule)
! 1339: #endif /* !YYDEBUG */
! 1340:
! 1341:
! 1342: /* YYINITDEPTH -- initial size of the parser's stacks. */
! 1343: #ifndef YYINITDEPTH
! 1344: # define YYINITDEPTH 200
! 1345: #endif
! 1346:
! 1347: /* YYMAXDEPTH -- maximum size the stacks can grow to (effective only
! 1348: if the built-in stack extension method is used).
! 1349:
! 1350: Do not make this value too large; the results are undefined if
! 1351: YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH)
! 1352: evaluated with infinite-precision integer arithmetic. */
! 1353:
! 1354: #ifndef YYMAXDEPTH
! 1355: # define YYMAXDEPTH 10000
! 1356: #endif
! 1357:
! 1358:
! 1359:
! 1360: #if YYERROR_VERBOSE
! 1361:
! 1362: # ifndef yystrlen
! 1363: # if defined __GLIBC__ && defined _STRING_H
! 1364: # define yystrlen strlen
! 1365: # else
! 1366: /* Return the length of YYSTR. */
! 1367: #if (defined __STDC__ || defined __C99__FUNC__ \
! 1368: || defined __cplusplus || defined _MSC_VER)
! 1369: static YYSIZE_T
! 1370: yystrlen (const char *yystr)
! 1371: #else
! 1372: static YYSIZE_T
! 1373: yystrlen (yystr)
! 1374: const char *yystr;
! 1375: #endif
! 1376: {
! 1377: YYSIZE_T yylen;
! 1378: for (yylen = 0; yystr[yylen]; yylen++)
! 1379: continue;
! 1380: return yylen;
! 1381: }
! 1382: # endif
! 1383: # endif
! 1384:
! 1385: # ifndef yystpcpy
! 1386: # if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE
! 1387: # define yystpcpy stpcpy
! 1388: # else
! 1389: /* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in
! 1390: YYDEST. */
! 1391: #if (defined __STDC__ || defined __C99__FUNC__ \
! 1392: || defined __cplusplus || defined _MSC_VER)
! 1393: static char *
! 1394: yystpcpy (char *yydest, const char *yysrc)
! 1395: #else
! 1396: static char *
! 1397: yystpcpy (yydest, yysrc)
! 1398: char *yydest;
! 1399: const char *yysrc;
! 1400: #endif
! 1401: {
! 1402: char *yyd = yydest;
! 1403: const char *yys = yysrc;
! 1404:
! 1405: while ((*yyd++ = *yys++) != '\0')
! 1406: continue;
! 1407:
! 1408: return yyd - 1;
! 1409: }
! 1410: # endif
! 1411: # endif
! 1412:
! 1413: # ifndef yytnamerr
! 1414: /* Copy to YYRES the contents of YYSTR after stripping away unnecessary
! 1415: quotes and backslashes, so that it's suitable for yyerror. The
! 1416: heuristic is that double-quoting is unnecessary unless the string
! 1417: contains an apostrophe, a comma, or backslash (other than
! 1418: backslash-backslash). YYSTR is taken from yytname. If YYRES is
! 1419: null, do not copy; instead, return the length of what the result
! 1420: would have been. */
! 1421: static YYSIZE_T
! 1422: yytnamerr (char *yyres, const char *yystr)
! 1423: {
! 1424: if (*yystr == '"')
! 1425: {
! 1426: YYSIZE_T yyn = 0;
! 1427: char const *yyp = yystr;
! 1428:
! 1429: for (;;)
! 1430: switch (*++yyp)
! 1431: {
! 1432: case '\'':
! 1433: case ',':
! 1434: goto do_not_strip_quotes;
! 1435:
! 1436: case '\\':
! 1437: if (*++yyp != '\\')
! 1438: goto do_not_strip_quotes;
! 1439: /* Fall through. */
! 1440: default:
! 1441: if (yyres)
! 1442: yyres[yyn] = *yyp;
! 1443: yyn++;
! 1444: break;
! 1445:
! 1446: case '"':
! 1447: if (yyres)
! 1448: yyres[yyn] = '\0';
! 1449: return yyn;
! 1450: }
! 1451: do_not_strip_quotes: ;
! 1452: }
! 1453:
! 1454: if (! yyres)
! 1455: return yystrlen (yystr);
! 1456:
! 1457: return yystpcpy (yyres, yystr) - yyres;
! 1458: }
! 1459: # endif
! 1460:
! 1461: /* Copy into YYRESULT an error message about the unexpected token
! 1462: YYCHAR while in state YYSTATE. Return the number of bytes copied,
! 1463: including the terminating null byte. If YYRESULT is null, do not
! 1464: copy anything; just return the number of bytes that would be
! 1465: copied. As a special case, return 0 if an ordinary "syntax error"
! 1466: message will do. Return YYSIZE_MAXIMUM if overflow occurs during
! 1467: size calculation. */
! 1468: static YYSIZE_T
! 1469: yysyntax_error (char *yyresult, int yystate, int yychar)
! 1470: {
! 1471: int yyn = yypact[yystate];
! 1472:
! 1473: if (! (YYPACT_NINF < yyn && yyn <= YYLAST))
! 1474: return 0;
! 1475: else
! 1476: {
! 1477: int yytype = YYTRANSLATE (yychar);
! 1478: YYSIZE_T yysize0 = yytnamerr (0, yytname[yytype]);
! 1479: YYSIZE_T yysize = yysize0;
! 1480: YYSIZE_T yysize1;
! 1481: int yysize_overflow = 0;
! 1482: enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 };
! 1483: char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM];
! 1484: int yyx;
! 1485:
! 1486: # if 0
! 1487: /* This is so xgettext sees the translatable formats that are
! 1488: constructed on the fly. */
! 1489: YY_("syntax error, unexpected %s");
! 1490: YY_("syntax error, unexpected %s, expecting %s");
! 1491: YY_("syntax error, unexpected %s, expecting %s or %s");
! 1492: YY_("syntax error, unexpected %s, expecting %s or %s or %s");
! 1493: YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s");
! 1494: # endif
! 1495: char *yyfmt;
! 1496: char const *yyf;
! 1497: static char const yyunexpected[] = "syntax error, unexpected %s";
! 1498: static char const yyexpecting[] = ", expecting %s";
! 1499: static char const yyor[] = " or %s";
! 1500: char yyformat[sizeof yyunexpected
! 1501: + sizeof yyexpecting - 1
! 1502: + ((YYERROR_VERBOSE_ARGS_MAXIMUM - 2)
! 1503: * (sizeof yyor - 1))];
! 1504: char const *yyprefix = yyexpecting;
! 1505:
! 1506: /* Start YYX at -YYN if negative to avoid negative indexes in
! 1507: YYCHECK. */
! 1508: int yyxbegin = yyn < 0 ? -yyn : 0;
! 1509:
! 1510: /* Stay within bounds of both yycheck and yytname. */
! 1511: int yychecklim = YYLAST - yyn + 1;
! 1512: int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
! 1513: int yycount = 1;
! 1514:
! 1515: yyarg[0] = yytname[yytype];
! 1516: yyfmt = yystpcpy (yyformat, yyunexpected);
! 1517:
! 1518: for (yyx = yyxbegin; yyx < yyxend; ++yyx)
! 1519: if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR)
! 1520: {
! 1521: if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM)
! 1522: {
! 1523: yycount = 1;
! 1524: yysize = yysize0;
! 1525: yyformat[sizeof yyunexpected - 1] = '\0';
! 1526: break;
! 1527: }
! 1528: yyarg[yycount++] = yytname[yyx];
! 1529: yysize1 = yysize + yytnamerr (0, yytname[yyx]);
! 1530: yysize_overflow |= (yysize1 < yysize);
! 1531: yysize = yysize1;
! 1532: yyfmt = yystpcpy (yyfmt, yyprefix);
! 1533: yyprefix = yyor;
! 1534: }
! 1535:
! 1536: yyf = YY_(yyformat);
! 1537: yysize1 = yysize + yystrlen (yyf);
! 1538: yysize_overflow |= (yysize1 < yysize);
! 1539: yysize = yysize1;
! 1540:
! 1541: if (yysize_overflow)
! 1542: return YYSIZE_MAXIMUM;
! 1543:
! 1544: if (yyresult)
! 1545: {
! 1546: /* Avoid sprintf, as that infringes on the user's name space.
! 1547: Don't have undefined behavior even if the translation
! 1548: produced a string with the wrong number of "%s"s. */
! 1549: char *yyp = yyresult;
! 1550: int yyi = 0;
! 1551: while ((*yyp = *yyf) != '\0')
! 1552: {
! 1553: if (*yyp == '%' && yyf[1] == 's' && yyi < yycount)
! 1554: {
! 1555: yyp += yytnamerr (yyp, yyarg[yyi++]);
! 1556: yyf += 2;
! 1557: }
! 1558: else
! 1559: {
! 1560: yyp++;
! 1561: yyf++;
! 1562: }
! 1563: }
! 1564: }
! 1565: return yysize;
! 1566: }
! 1567: }
! 1568: #endif /* YYERROR_VERBOSE */
! 1569:
! 1570:
! 1571: /*-----------------------------------------------.
! 1572: | Release the memory associated to this symbol. |
! 1573: `-----------------------------------------------*/
! 1574:
! 1575: /*ARGSUSED*/
! 1576: #if (defined __STDC__ || defined __C99__FUNC__ \
! 1577: || defined __cplusplus || defined _MSC_VER)
! 1578: static void
! 1579: yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep)
! 1580: #else
! 1581: static void
! 1582: yydestruct (yymsg, yytype, yyvaluep)
! 1583: const char *yymsg;
! 1584: int yytype;
! 1585: YYSTYPE *yyvaluep;
! 1586: #endif
! 1587: {
! 1588: YYUSE (yyvaluep);
! 1589:
! 1590: if (!yymsg)
! 1591: yymsg = "Deleting";
! 1592: YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp);
! 1593:
! 1594: switch (yytype)
! 1595: {
! 1596:
! 1597: default:
! 1598: break;
! 1599: }
! 1600: }
! 1601:
! 1602: /* Prevent warnings from -Wmissing-prototypes. */
! 1603: #ifdef YYPARSE_PARAM
! 1604: #if defined __STDC__ || defined __cplusplus
! 1605: int yyparse (void *YYPARSE_PARAM);
! 1606: #else
! 1607: int yyparse ();
! 1608: #endif
! 1609: #else /* ! YYPARSE_PARAM */
! 1610: #if defined __STDC__ || defined __cplusplus
! 1611: int yyparse (void);
! 1612: #else
! 1613: int yyparse ();
! 1614: #endif
! 1615: #endif /* ! YYPARSE_PARAM */
! 1616:
! 1617:
! 1618: /* The lookahead symbol. */
! 1619: int yychar;
! 1620:
! 1621: /* The semantic value of the lookahead symbol. */
! 1622: YYSTYPE yylval;
! 1623:
! 1624: /* Number of syntax errors so far. */
! 1625: int yynerrs;
! 1626:
! 1627:
! 1628:
! 1629: /*-------------------------.
! 1630: | yyparse or yypush_parse. |
! 1631: `-------------------------*/
! 1632:
! 1633: #ifdef YYPARSE_PARAM
! 1634: #if (defined __STDC__ || defined __C99__FUNC__ \
! 1635: || defined __cplusplus || defined _MSC_VER)
! 1636: int
! 1637: yyparse (void *YYPARSE_PARAM)
! 1638: #else
! 1639: int
! 1640: yyparse (YYPARSE_PARAM)
! 1641: void *YYPARSE_PARAM;
! 1642: #endif
! 1643: #else /* ! YYPARSE_PARAM */
! 1644: #if (defined __STDC__ || defined __C99__FUNC__ \
! 1645: || defined __cplusplus || defined _MSC_VER)
! 1646: int
! 1647: yyparse (void)
! 1648: #else
! 1649: int
! 1650: yyparse ()
! 1651:
! 1652: #endif
! 1653: #endif
! 1654: {
! 1655:
! 1656:
! 1657: int yystate;
! 1658: /* Number of tokens to shift before error messages enabled. */
! 1659: int yyerrstatus;
! 1660:
! 1661: /* The stacks and their tools:
! 1662: `yyss': related to states.
! 1663: `yyvs': related to semantic values.
! 1664:
! 1665: Refer to the stacks thru separate pointers, to allow yyoverflow
! 1666: to reallocate them elsewhere. */
! 1667:
! 1668: /* The state stack. */
! 1669: yytype_int16 yyssa[YYINITDEPTH];
! 1670: yytype_int16 *yyss;
! 1671: yytype_int16 *yyssp;
! 1672:
! 1673: /* The semantic value stack. */
! 1674: YYSTYPE yyvsa[YYINITDEPTH];
! 1675: YYSTYPE *yyvs;
! 1676: YYSTYPE *yyvsp;
! 1677:
! 1678: YYSIZE_T yystacksize;
! 1679:
! 1680: int yyn;
! 1681: int yyresult;
! 1682: /* Lookahead token as an internal (translated) token number. */
! 1683: int yytoken;
! 1684: /* The variables used to return semantic value and location from the
! 1685: action routines. */
! 1686: YYSTYPE yyval;
! 1687:
! 1688: #if YYERROR_VERBOSE
! 1689: /* Buffer for error messages, and its allocated size. */
! 1690: char yymsgbuf[128];
! 1691: char *yymsg = yymsgbuf;
! 1692: YYSIZE_T yymsg_alloc = sizeof yymsgbuf;
! 1693: #endif
! 1694:
! 1695: #define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N))
! 1696:
! 1697: /* The number of symbols on the RHS of the reduced rule.
! 1698: Keep to zero when no symbol should be popped. */
! 1699: int yylen = 0;
! 1700:
! 1701: yytoken = 0;
! 1702: yyss = yyssa;
! 1703: yyvs = yyvsa;
! 1704: yystacksize = YYINITDEPTH;
! 1705:
! 1706: YYDPRINTF ((stderr, "Starting parse\n"));
! 1707:
! 1708: yystate = 0;
! 1709: yyerrstatus = 0;
! 1710: yynerrs = 0;
! 1711: yychar = YYEMPTY; /* Cause a token to be read. */
! 1712:
! 1713: /* Initialize stack pointers.
! 1714: Waste one element of value and location stack
! 1715: so that they stay on the same level as the state stack.
! 1716: The wasted elements are never initialized. */
! 1717: yyssp = yyss;
! 1718: yyvsp = yyvs;
! 1719:
! 1720: goto yysetstate;
! 1721:
! 1722: /*------------------------------------------------------------.
! 1723: | yynewstate -- Push a new state, which is found in yystate. |
! 1724: `------------------------------------------------------------*/
! 1725: yynewstate:
! 1726: /* In all cases, when you get here, the value and location stacks
! 1727: have just been pushed. So pushing a state here evens the stacks. */
! 1728: yyssp++;
! 1729:
! 1730: yysetstate:
! 1731: *yyssp = yystate;
! 1732:
! 1733: if (yyss + yystacksize - 1 <= yyssp)
! 1734: {
! 1735: /* Get the current used size of the three stacks, in elements. */
! 1736: YYSIZE_T yysize = yyssp - yyss + 1;
! 1737:
! 1738: #ifdef yyoverflow
! 1739: {
! 1740: /* Give user a chance to reallocate the stack. Use copies of
! 1741: these so that the &'s don't force the real ones into
! 1742: memory. */
! 1743: YYSTYPE *yyvs1 = yyvs;
! 1744: yytype_int16 *yyss1 = yyss;
! 1745:
! 1746: /* Each stack pointer address is followed by the size of the
! 1747: data in use in that stack, in bytes. This used to be a
! 1748: conditional around just the two extra args, but that might
! 1749: be undefined if yyoverflow is a macro. */
! 1750: yyoverflow (YY_("memory exhausted"),
! 1751: &yyss1, yysize * sizeof (*yyssp),
! 1752: &yyvs1, yysize * sizeof (*yyvsp),
! 1753: &yystacksize);
! 1754:
! 1755: yyss = yyss1;
! 1756: yyvs = yyvs1;
! 1757: }
! 1758: #else /* no yyoverflow */
! 1759: # ifndef YYSTACK_RELOCATE
! 1760: goto yyexhaustedlab;
! 1761: # else
! 1762: /* Extend the stack our own way. */
! 1763: if (YYMAXDEPTH <= yystacksize)
! 1764: goto yyexhaustedlab;
! 1765: yystacksize *= 2;
! 1766: if (YYMAXDEPTH < yystacksize)
! 1767: yystacksize = YYMAXDEPTH;
! 1768:
! 1769: {
! 1770: yytype_int16 *yyss1 = yyss;
! 1771: union yyalloc *yyptr =
! 1772: (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
! 1773: if (! yyptr)
! 1774: goto yyexhaustedlab;
! 1775: YYSTACK_RELOCATE (yyss_alloc, yyss);
! 1776: YYSTACK_RELOCATE (yyvs_alloc, yyvs);
! 1777: # undef YYSTACK_RELOCATE
! 1778: if (yyss1 != yyssa)
! 1779: YYSTACK_FREE (yyss1);
! 1780: }
! 1781: # endif
! 1782: #endif /* no yyoverflow */
! 1783:
! 1784: yyssp = yyss + yysize - 1;
! 1785: yyvsp = yyvs + yysize - 1;
! 1786:
! 1787: YYDPRINTF ((stderr, "Stack size increased to %lu\n",
! 1788: (unsigned long int) yystacksize));
! 1789:
! 1790: if (yyss + yystacksize - 1 <= yyssp)
! 1791: YYABORT;
! 1792: }
! 1793:
! 1794: YYDPRINTF ((stderr, "Entering state %d\n", yystate));
! 1795:
! 1796: if (yystate == YYFINAL)
! 1797: YYACCEPT;
! 1798:
! 1799: goto yybackup;
! 1800:
! 1801: /*-----------.
! 1802: | yybackup. |
! 1803: `-----------*/
! 1804: yybackup:
! 1805:
! 1806: /* Do appropriate processing given the current state. Read a
! 1807: lookahead token if we need one and don't already have one. */
! 1808:
! 1809: /* First try to decide what to do without reference to lookahead token. */
! 1810: yyn = yypact[yystate];
! 1811: if (yyn == YYPACT_NINF)
! 1812: goto yydefault;
! 1813:
! 1814: /* Not known => get a lookahead token if don't already have one. */
! 1815:
! 1816: /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */
! 1817: if (yychar == YYEMPTY)
! 1818: {
! 1819: YYDPRINTF ((stderr, "Reading a token: "));
! 1820: yychar = YYLEX;
! 1821: }
! 1822:
! 1823: if (yychar <= YYEOF)
! 1824: {
! 1825: yychar = yytoken = YYEOF;
! 1826: YYDPRINTF ((stderr, "Now at end of input.\n"));
! 1827: }
! 1828: else
! 1829: {
! 1830: yytoken = YYTRANSLATE (yychar);
! 1831: YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc);
! 1832: }
! 1833:
! 1834: /* If the proper action on seeing token YYTOKEN is to reduce or to
! 1835: detect an error, take that action. */
! 1836: yyn += yytoken;
! 1837: if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)
! 1838: goto yydefault;
! 1839: yyn = yytable[yyn];
! 1840: if (yyn <= 0)
! 1841: {
! 1842: if (yyn == 0 || yyn == YYTABLE_NINF)
! 1843: goto yyerrlab;
! 1844: yyn = -yyn;
! 1845: goto yyreduce;
! 1846: }
! 1847:
! 1848: /* Count tokens shifted since error; after three, turn off error
! 1849: status. */
! 1850: if (yyerrstatus)
! 1851: yyerrstatus--;
! 1852:
! 1853: /* Shift the lookahead token. */
! 1854: YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
! 1855:
! 1856: /* Discard the shifted token. */
! 1857: yychar = YYEMPTY;
! 1858:
! 1859: yystate = yyn;
! 1860: *++yyvsp = yylval;
! 1861:
! 1862: goto yynewstate;
! 1863:
! 1864:
! 1865: /*-----------------------------------------------------------.
! 1866: | yydefault -- do the default action for the current state. |
! 1867: `-----------------------------------------------------------*/
! 1868: yydefault:
! 1869: yyn = yydefact[yystate];
! 1870: if (yyn == 0)
! 1871: goto yyerrlab;
! 1872: goto yyreduce;
! 1873:
! 1874:
! 1875: /*-----------------------------.
! 1876: | yyreduce -- Do a reduction. |
! 1877: `-----------------------------*/
! 1878: yyreduce:
! 1879: /* yyn is the number of a rule to reduce with. */
! 1880: yylen = yyr2[yyn];
! 1881:
! 1882: /* If YYLEN is nonzero, implement the default value of the action:
! 1883: `$$ = $1'.
! 1884:
! 1885: Otherwise, the following line sets YYVAL to garbage.
! 1886: This behavior is undocumented and Bison
! 1887: users should not rely upon it. Assigning to YYVAL
! 1888: unconditionally makes the parser a bit smaller, and it avoids a
! 1889: GCC warning that YYVAL may be used uninitialized. */
! 1890: yyval = yyvsp[1-yylen];
! 1891:
! 1892:
! 1893: YY_REDUCE_PRINT (yyn);
! 1894: switch (yyn)
! 1895: {
! 1896: case 2:
! 1897:
! 1898: /* Line 1455 of yacc.c */
! 1899: #line 131 "parse.y"
! 1900: {
! 1901: parse_snode = (yyvsp[(1) - (1)].s);
! 1902: if ( yychar >= 0 )
! 1903: fprintf(stderr,
! 1904: "Warning: a token was wasted after an 'if' statement without 'else'.\n");
! 1905: YYACCEPT;
! 1906: }
! 1907: break;
! 1908:
! 1909: case 3:
! 1910:
! 1911: /* Line 1455 of yacc.c */
! 1912: #line 140 "parse.y"
! 1913: { (yyval.s) = 0; }
! 1914: break;
! 1915:
! 1916: case 4:
! 1917:
! 1918: /* Line 1455 of yacc.c */
! 1919: #line 141 "parse.y"
! 1920: { gdef=1; }
! 1921: break;
! 1922:
! 1923: case 5:
! 1924:
! 1925: /* Line 1455 of yacc.c */
! 1926: #line 141 "parse.y"
! 1927: { gdef=0; }
! 1928: break;
! 1929:
! 1930: case 6:
! 1931:
! 1932: /* Line 1455 of yacc.c */
! 1933: #line 142 "parse.y"
! 1934: { (yyval.s) = 0; NOPR; }
! 1935: break;
! 1936:
! 1937: case 7:
! 1938:
! 1939: /* Line 1455 of yacc.c */
! 1940: #line 143 "parse.y"
! 1941: { mgdef=1; }
! 1942: break;
! 1943:
! 1944: case 8:
! 1945:
! 1946: /* Line 1455 of yacc.c */
! 1947: #line 143 "parse.y"
! 1948: { mgdef=0; }
! 1949: break;
! 1950:
! 1951: case 9:
! 1952:
! 1953: /* Line 1455 of yacc.c */
! 1954: #line 144 "parse.y"
! 1955: { (yyval.s) = 0; NOPR; }
! 1956: break;
! 1957:
! 1958: case 10:
! 1959:
! 1960: /* Line 1455 of yacc.c */
! 1961: #line 145 "parse.y"
! 1962: { ldef=1; }
! 1963: break;
! 1964:
! 1965: case 11:
! 1966:
! 1967: /* Line 1455 of yacc.c */
! 1968: #line 145 "parse.y"
! 1969: { ldef=0; }
! 1970: break;
! 1971:
! 1972: case 12:
! 1973:
! 1974: /* Line 1455 of yacc.c */
! 1975: #line 146 "parse.y"
! 1976: { (yyval.s) = 0; NOPR; }
! 1977: break;
! 1978:
! 1979: case 13:
! 1980:
! 1981: /* Line 1455 of yacc.c */
! 1982: #line 148 "parse.y"
! 1983: { appenduflist((yyvsp[(2) - (3)].n)); (yyval.s) = 0; NOPR; }
! 1984: break;
! 1985:
! 1986: case 14:
! 1987:
! 1988: /* Line 1455 of yacc.c */
! 1989: #line 150 "parse.y"
! 1990: { structdef((yyvsp[(2) - (6)].p),(yyvsp[(4) - (6)].n)); (yyval.s) = 0; NOPR; }
! 1991: break;
! 1992:
! 1993: case 15:
! 1994:
! 1995: /* Line 1455 of yacc.c */
! 1996: #line 152 "parse.y"
! 1997: { (yyval.s) = mksnode(1,S_SINGLE,(yyvsp[(1) - (2)].f)); }
! 1998: break;
! 1999:
! 2000: case 16:
! 2001:
! 2002: /* Line 1455 of yacc.c */
! 2003: #line 154 "parse.y"
! 2004: { (yyval.s) = (yyvsp[(1) - (1)].s); }
! 2005: break;
! 2006:
! 2007: case 17:
! 2008:
! 2009: /* Line 1455 of yacc.c */
! 2010: #line 156 "parse.y"
! 2011: { (yyval.s) = mksnode(0,S_BREAK); }
! 2012: break;
! 2013:
! 2014: case 18:
! 2015:
! 2016: /* Line 1455 of yacc.c */
! 2017: #line 158 "parse.y"
! 2018: { (yyval.s) = mksnode(0,S_CONTINUE); }
! 2019: break;
! 2020:
! 2021: case 19:
! 2022:
! 2023: /* Line 1455 of yacc.c */
! 2024: #line 160 "parse.y"
! 2025: { (yyval.s) = mksnode(1,S_RETURN,NULLP); }
! 2026: break;
! 2027:
! 2028: case 20:
! 2029:
! 2030: /* Line 1455 of yacc.c */
! 2031: #line 162 "parse.y"
! 2032: { (yyval.s) = mksnode(1,S_RETURN,(yyvsp[(2) - (3)].f)); }
! 2033: break;
! 2034:
! 2035: case 21:
! 2036:
! 2037: /* Line 1455 of yacc.c */
! 2038: #line 164 "parse.y"
! 2039: { (yyval.s) = mksnode(4,S_IFELSE,(yyvsp[(1) - (5)].i),(yyvsp[(3) - (5)].n),(yyvsp[(5) - (5)].s),NULLP); (yyvsp[(5) - (5)].s)?(yyval.s)->ln=(yyvsp[(5) - (5)].s)->ln:0; NOPR; }
! 2040: break;
! 2041:
! 2042: case 22:
! 2043:
! 2044: /* Line 1455 of yacc.c */
! 2045: #line 166 "parse.y"
! 2046: { (yyval.s) = mksnode(4,S_IFELSE,(yyvsp[(1) - (7)].i),(yyvsp[(3) - (7)].n),(yyvsp[(5) - (7)].s),(yyvsp[(7) - (7)].s)); (yyvsp[(7) - (7)].s)?(yyval.s)->ln=(yyvsp[(7) - (7)].s)->ln:0; NOPR; }
! 2047: break;
! 2048:
! 2049: case 23:
! 2050:
! 2051: /* Line 1455 of yacc.c */
! 2052: #line 168 "parse.y"
! 2053: { (yyval.s) = mksnode(5,S_FOR,(yyvsp[(1) - (9)].i),(yyvsp[(3) - (9)].n),(yyvsp[(5) - (9)].n)?(yyvsp[(5) - (9)].n):ONENODE,(yyvsp[(7) - (9)].n),(yyvsp[(9) - (9)].s)); (yyvsp[(9) - (9)].s)?(yyval.s)->ln=(yyvsp[(9) - (9)].s)->ln:0; NOPR; }
! 2054: break;
! 2055:
! 2056: case 24:
! 2057:
! 2058: /* Line 1455 of yacc.c */
! 2059: #line 170 "parse.y"
! 2060: { (yyval.s) = mksnode(5,S_FOR,(yyvsp[(1) - (5)].i),NULLP,(yyvsp[(3) - (5)].n),NULLP,(yyvsp[(5) - (5)].s)); (yyvsp[(5) - (5)].s)?(yyval.s)->ln=(yyvsp[(5) - (5)].s)->ln:0; NOPR; }
! 2061: break;
! 2062:
! 2063: case 25:
! 2064:
! 2065: /* Line 1455 of yacc.c */
! 2066: #line 172 "parse.y"
! 2067: { (yyval.s) = mksnode(3,S_DO,(yyvsp[(1) - (7)].i),(yyvsp[(2) - (7)].s),(yyvsp[(5) - (7)].n)); NOPR; }
! 2068: break;
! 2069:
! 2070: case 26:
! 2071:
! 2072: /* Line 1455 of yacc.c */
! 2073: #line 174 "parse.y"
! 2074: { (yyval.s) = mksnode(3,S_PFDEF,(yyvsp[(1) - (8)].p),(yyvsp[(3) - (8)].n),(yyvsp[(7) - (8)].f)); NOPR; }
! 2075: break;
! 2076:
! 2077: case 27:
! 2078:
! 2079: /* Line 1455 of yacc.c */
! 2080: #line 176 "parse.y"
! 2081: { (yyval.s) = mksnode(3,S_PFDEF,(yyvsp[(2) - (6)].p),(yyvsp[(4) - (6)].n),NULLP); NOPR; }
! 2082: break;
! 2083:
! 2084: case 28:
! 2085:
! 2086: /* Line 1455 of yacc.c */
! 2087: #line 177 "parse.y"
! 2088: { mkpvs((yyvsp[(2) - (2)].p)); }
! 2089: break;
! 2090:
! 2091: case 29:
! 2092:
! 2093: /* Line 1455 of yacc.c */
! 2094: #line 177 "parse.y"
! 2095: { ldef = 1; }
! 2096: break;
! 2097:
! 2098: case 30:
! 2099:
! 2100: /* Line 1455 of yacc.c */
! 2101: #line 177 "parse.y"
! 2102: { ldef = -1; }
! 2103: break;
! 2104:
! 2105: case 31:
! 2106:
! 2107: /* Line 1455 of yacc.c */
! 2108: #line 178 "parse.y"
! 2109: {
! 2110: mkuf((yyvsp[(2) - (12)].p),asir_infile->name,(yyvsp[(6) - (12)].n),
! 2111: mksnode(1,S_CPLX,(yyvsp[(11) - (12)].n)),(yyvsp[(1) - (12)].i),asir_infile->ln,(yyvsp[(9) - (12)].p),CUR_MODULE);
! 2112: (yyval.s) = 0; NOPR;
! 2113: }
! 2114: break;
! 2115:
! 2116: case 32:
! 2117:
! 2118: /* Line 1455 of yacc.c */
! 2119: #line 184 "parse.y"
! 2120: {
! 2121: CUR_MODULE = mkmodule((yyvsp[(2) - (3)].p));
! 2122: MPVS = CUR_MODULE->pvs;
! 2123: (yyval.s) = mksnode(1,S_MODULE,CUR_MODULE); NOPR;
! 2124: }
! 2125: break;
! 2126:
! 2127: case 33:
! 2128:
! 2129: /* Line 1455 of yacc.c */
! 2130: #line 190 "parse.y"
! 2131: { CUR_MODULE = 0; MPVS = 0; (yyval.s) = mksnode(1,S_MODULE,NULLP); NOPR; }
! 2132: break;
! 2133:
! 2134: case 34:
! 2135:
! 2136: /* Line 1455 of yacc.c */
! 2137: #line 192 "parse.y"
! 2138: { yyerrok; (yyval.s) = 0; }
! 2139: break;
! 2140:
! 2141: case 35:
! 2142:
! 2143: /* Line 1455 of yacc.c */
! 2144: #line 195 "parse.y"
! 2145: { if ( main_parser ) prresult = 1; }
! 2146: break;
! 2147:
! 2148: case 36:
! 2149:
! 2150: /* Line 1455 of yacc.c */
! 2151: #line 197 "parse.y"
! 2152: { if ( main_parser ) prresult = 0; }
! 2153: break;
! 2154:
! 2155: case 37:
! 2156:
! 2157: /* Line 1455 of yacc.c */
! 2158: #line 200 "parse.y"
! 2159: { (yyval.p) = 0; }
! 2160: break;
! 2161:
! 2162: case 38:
! 2163:
! 2164: /* Line 1455 of yacc.c */
! 2165: #line 202 "parse.y"
! 2166: { (yyval.p) = (yyvsp[(1) - (1)].p); }
! 2167: break;
! 2168:
! 2169: case 39:
! 2170:
! 2171: /* Line 1455 of yacc.c */
! 2172: #line 205 "parse.y"
! 2173: { (yyval.s) = mksnode(1,S_CPLX,(yyvsp[(2) - (3)].n)); }
! 2174: break;
! 2175:
! 2176: case 40:
! 2177:
! 2178: /* Line 1455 of yacc.c */
! 2179: #line 208 "parse.y"
! 2180: { MKNODE((yyval.n),(yyvsp[(1) - (1)].p),0); }
! 2181: break;
! 2182:
! 2183: case 41:
! 2184:
! 2185: /* Line 1455 of yacc.c */
! 2186: #line 210 "parse.y"
! 2187: { appendtonode((yyvsp[(1) - (3)].n),(yyvsp[(3) - (3)].p),&(yyval.n)); }
! 2188: break;
! 2189:
! 2190: case 42:
! 2191:
! 2192: /* Line 1455 of yacc.c */
! 2193: #line 213 "parse.y"
! 2194: { MKNODE((yyval.n),(yyvsp[(1) - (1)].p),0); }
! 2195: break;
! 2196:
! 2197: case 43:
! 2198:
! 2199: /* Line 1455 of yacc.c */
! 2200: #line 215 "parse.y"
! 2201: { appendtonode((yyvsp[(1) - (3)].n),(yyvsp[(3) - (3)].p),&(yyval.n)); }
! 2202: break;
! 2203:
! 2204: case 44:
! 2205:
! 2206: /* Line 1455 of yacc.c */
! 2207: #line 218 "parse.y"
! 2208: { val = (pointer)makepvar((yyvsp[(1) - (1)].p)); MKNODE((yyval.n),val,0); }
! 2209: break;
! 2210:
! 2211: case 45:
! 2212:
! 2213: /* Line 1455 of yacc.c */
! 2214: #line 220 "parse.y"
! 2215: { appendtonode((yyvsp[(1) - (3)].n),(pointer)makepvar((yyvsp[(3) - (3)].p)),&(yyval.n)); }
! 2216: break;
! 2217:
! 2218: case 46:
! 2219:
! 2220: /* Line 1455 of yacc.c */
! 2221: #line 223 "parse.y"
! 2222: { (yyval.n) = 0; }
! 2223: break;
! 2224:
! 2225: case 47:
! 2226:
! 2227: /* Line 1455 of yacc.c */
! 2228: #line 225 "parse.y"
! 2229: { appendtonode((yyvsp[(1) - (2)].n),(pointer)(yyvsp[(2) - (2)].s),&(yyval.n)); }
! 2230: break;
! 2231:
! 2232: case 48:
! 2233:
! 2234: /* Line 1455 of yacc.c */
! 2235: #line 228 "parse.y"
! 2236: { (yyval.n) = 0; }
! 2237: break;
! 2238:
! 2239: case 49:
! 2240:
! 2241: /* Line 1455 of yacc.c */
! 2242: #line 230 "parse.y"
! 2243: { (yyval.n) = (yyvsp[(1) - (1)].n); }
! 2244: break;
! 2245:
! 2246: case 50:
! 2247:
! 2248: /* Line 1455 of yacc.c */
! 2249: #line 233 "parse.y"
! 2250: { MKNODE((yyval.n),(yyvsp[(1) - (1)].f),0); }
! 2251: break;
! 2252:
! 2253: case 51:
! 2254:
! 2255: /* Line 1455 of yacc.c */
! 2256: #line 235 "parse.y"
! 2257: { appendtonode((yyvsp[(1) - (3)].n),(pointer)(yyvsp[(3) - (3)].f),&(yyval.n)); }
! 2258: break;
! 2259:
! 2260: case 52:
! 2261:
! 2262: /* Line 1455 of yacc.c */
! 2263: #line 238 "parse.y"
! 2264: { MKNODE((yyval.n),(yyvsp[(1) - (1)].f),0); }
! 2265: break;
! 2266:
! 2267: case 53:
! 2268:
! 2269: /* Line 1455 of yacc.c */
! 2270: #line 240 "parse.y"
! 2271: { appendtonode((yyvsp[(1) - (3)].n),(pointer)(yyvsp[(3) - (3)].f),&(yyval.n)); }
! 2272: break;
! 2273:
! 2274: case 54:
! 2275:
! 2276: /* Line 1455 of yacc.c */
! 2277: #line 243 "parse.y"
! 2278: { (yyval.p) = (yyvsp[(1) - (1)].p); }
! 2279: break;
! 2280:
! 2281: case 55:
! 2282:
! 2283: /* Line 1455 of yacc.c */
! 2284: #line 245 "parse.y"
! 2285: { (yyval.p) = (yyvsp[(1) - (1)].p); }
! 2286: break;
! 2287:
! 2288: case 56:
! 2289:
! 2290: /* Line 1455 of yacc.c */
! 2291: #line 248 "parse.y"
! 2292: { (yyval.f) = mkfnode(2,I_OPT,(yyvsp[(1) - (3)].p),(yyvsp[(3) - (3)].f)); }
! 2293: break;
! 2294:
! 2295: case 57:
! 2296:
! 2297: /* Line 1455 of yacc.c */
! 2298: #line 251 "parse.y"
! 2299: { (yyval.f) = mkfnode(1,I_STR,(yyvsp[(1) - (1)].p)); }
! 2300: break;
! 2301:
! 2302: case 58:
! 2303:
! 2304: /* Line 1455 of yacc.c */
! 2305: #line 253 "parse.y"
! 2306: { (yyval.f) = mkfnode(1,I_FORMULA,(yyvsp[(1) - (1)].p)); }
! 2307: break;
! 2308:
! 2309: case 59:
! 2310:
! 2311: /* Line 1455 of yacc.c */
! 2312: #line 255 "parse.y"
! 2313: { (yyval.f) = mkfnode(1,I_ANS,(yyvsp[(1) - (1)].i)); }
! 2314: break;
! 2315:
! 2316: case 60:
! 2317:
! 2318: /* Line 1455 of yacc.c */
! 2319: #line 257 "parse.y"
! 2320: { (yyval.f) = mkfnode(0,I_GF2NGEN); }
! 2321: break;
! 2322:
! 2323: case 61:
! 2324:
! 2325: /* Line 1455 of yacc.c */
! 2326: #line 259 "parse.y"
! 2327: { (yyval.f) = mkfnode(0,I_GFPNGEN); }
! 2328: break;
! 2329:
! 2330: case 62:
! 2331:
! 2332: /* Line 1455 of yacc.c */
! 2333: #line 261 "parse.y"
! 2334: { (yyval.f) = mkfnode(0,I_GFSNGEN); }
! 2335: break;
! 2336:
! 2337: case 63:
! 2338:
! 2339: /* Line 1455 of yacc.c */
! 2340: #line 263 "parse.y"
! 2341: {
! 2342: FUNC f;
! 2343:
! 2344: searchf(noargsysf,(yyvsp[(1) - (1)].p),&f);
! 2345: if ( f )
! 2346: (yyval.f) = mkfnode(2,I_FUNC,f,NULLP);
! 2347: else {
! 2348: searchc((yyvsp[(1) - (1)].p),&f);
! 2349: if ( f )
! 2350: (yyval.f) = mkfnode(2,I_FUNC,f,mkfnode(1,I_LIST,NULLP));
! 2351: else {
! 2352: gen_searchf_searchonly((yyvsp[(1) - (1)].p),(FUNC *)&f);
! 2353: if ( f )
! 2354: makesrvar(f,(P *)&val);
! 2355: else
! 2356: makevar((yyvsp[(1) - (1)].p),(P *)&val);
! 2357: (yyval.f) = mkfnode(1,I_FORMULA,val);
! 2358: }
! 2359: }
! 2360: }
! 2361: break;
! 2362:
! 2363: case 64:
! 2364:
! 2365: /* Line 1455 of yacc.c */
! 2366: #line 284 "parse.y"
! 2367: {
! 2368: gen_searchf((yyvsp[(1) - (4)].p),(FUNC *)&val);
! 2369: print_crossref(val);
! 2370: (yyval.f) = mkfnode(2,I_FUNC,val,mkfnode(1,I_LIST,(yyvsp[(3) - (4)].n)));
! 2371: }
! 2372: break;
! 2373:
! 2374: case 65:
! 2375:
! 2376: /* Line 1455 of yacc.c */
! 2377: #line 291 "parse.y"
! 2378: {
! 2379: gen_searchf((yyvsp[(1) - (6)].p),(FUNC *)&val);
! 2380: print_crossref(val);
! 2381: (yyval.f) = mkfnode(3,I_FUNC_OPT,val,
! 2382: mkfnode(1,I_LIST,(yyvsp[(3) - (6)].n)),mkfnode(1,I_LIST,(yyvsp[(5) - (6)].n)));
! 2383: }
! 2384: break;
! 2385:
! 2386: case 66:
! 2387:
! 2388: /* Line 1455 of yacc.c */
! 2389: #line 298 "parse.y"
! 2390: {
! 2391: gen_searchf((yyvsp[(3) - (6)].p),(FUNC *)&val);
! 2392: print_crossref(val);
! 2393: (yyval.f) = mkfnode(2,I_MAP,val,mkfnode(1,I_LIST,(yyvsp[(5) - (6)].n)));
! 2394: }
! 2395: break;
! 2396:
! 2397: case 67:
! 2398:
! 2399: /* Line 1455 of yacc.c */
! 2400: #line 304 "parse.y"
! 2401: {
! 2402: gen_searchf((yyvsp[(3) - (6)].p),(FUNC *)&val);
! 2403: print_crossref(val);
! 2404: (yyval.f) = mkfnode(2,I_RECMAP,val,mkfnode(1,I_LIST,(yyvsp[(5) - (6)].n)));
! 2405: }
! 2406: break;
! 2407:
! 2408: case 68:
! 2409:
! 2410: /* Line 1455 of yacc.c */
! 2411: #line 310 "parse.y"
! 2412: {
! 2413: searchpf((yyvsp[(1) - (7)].p),(FUNC *)&val);
! 2414: (yyval.f) = mkfnode(3,I_PFDERIV,val,mkfnode(1,I_LIST,(yyvsp[(6) - (7)].n)),mkfnode(1,I_LIST,(yyvsp[(3) - (7)].n)));
! 2415: }
! 2416: break;
! 2417:
! 2418: case 69:
! 2419:
! 2420: /* Line 1455 of yacc.c */
! 2421: #line 315 "parse.y"
! 2422: {
! 2423: (yyval.f) = mkfnode(2,I_GETOPT,(yyvsp[(3) - (4)].p));
! 2424: }
! 2425: break;
! 2426:
! 2427: case 70:
! 2428:
! 2429: /* Line 1455 of yacc.c */
! 2430: #line 319 "parse.y"
! 2431: {
! 2432: (yyval.f) = mkfnode(2,I_GETOPT,NULLP);
! 2433: }
! 2434: break;
! 2435:
! 2436: case 71:
! 2437:
! 2438: /* Line 1455 of yacc.c */
! 2439: #line 323 "parse.y"
! 2440: {
! 2441: (yyval.f) = mkfnode(3,I_TIMER,(yyvsp[(3) - (8)].f),(yyvsp[(5) - (8)].f),(yyvsp[(7) - (8)].f));
! 2442: }
! 2443: break;
! 2444:
! 2445: case 72:
! 2446:
! 2447: /* Line 1455 of yacc.c */
! 2448: #line 327 "parse.y"
! 2449: {
! 2450: searchf(parif,(yyvsp[(3) - (4)].p),(FUNC *)&val);
! 2451: if ( !val )
! 2452: mkparif((yyvsp[(3) - (4)].p),(FUNC *)&val);
! 2453: (yyval.f) = mkfnode(2,I_FUNC,val,NULLP);
! 2454: }
! 2455: break;
! 2456:
! 2457: case 73:
! 2458:
! 2459: /* Line 1455 of yacc.c */
! 2460: #line 334 "parse.y"
! 2461: {
! 2462: searchf(parif,(yyvsp[(3) - (6)].p),(FUNC *)&val);
! 2463: if ( !val )
! 2464: mkparif((yyvsp[(3) - (6)].p),(FUNC *)&val);
! 2465: (yyval.f) = mkfnode(2,I_FUNC,val,mkfnode(1,I_LIST,(yyvsp[(5) - (6)].n)));
! 2466: }
! 2467: break;
! 2468:
! 2469: case 74:
! 2470:
! 2471: /* Line 1455 of yacc.c */
! 2472: #line 341 "parse.y"
! 2473: {
! 2474: (yyval.f) = mkfnode(2,I_IFUNC,(yyvsp[(3) - (7)].f),mkfnode(1,I_LIST,(yyvsp[(6) - (7)].n)),NULLP);
! 2475: }
! 2476: break;
! 2477:
! 2478: case 75:
! 2479:
! 2480: /* Line 1455 of yacc.c */
! 2481: #line 345 "parse.y"
! 2482: {
! 2483: (yyval.f) = mkfnode(3,I_IFUNC,(yyvsp[(3) - (9)].f),mkfnode(1,I_LIST,(yyvsp[(6) - (9)].n)),
! 2484: mkfnode(1,I_LIST,(yyvsp[(8) - (9)].n)));
! 2485: }
! 2486: break;
! 2487:
! 2488: case 76:
! 2489:
! 2490: /* Line 1455 of yacc.c */
! 2491: #line 350 "parse.y"
! 2492: {
! 2493: if ( main_parser || allow_create_var )
! 2494: t = mkfnode(2,I_PVAR,makepvar((yyvsp[(1) - (4)].p)),NULLP);
! 2495: else {
! 2496: ind = searchpvar((yyvsp[(1) - (4)].p));
! 2497: if ( ind == -1 ) {
! 2498: fprintf(stderr,"%s : no such variable.\n",(yyvsp[(1) - (4)].p));
! 2499: YYABORT;
! 2500: } else
! 2501: t = mkfnode(2,I_PVAR,ind,NULLP);
! 2502: }
! 2503: (yyval.f) = mkfnode(2,I_IFUNC,t,mkfnode(1,I_LIST,(yyvsp[(3) - (4)].n)));
! 2504: }
! 2505: break;
! 2506:
! 2507: case 77:
! 2508:
! 2509: /* Line 1455 of yacc.c */
! 2510: #line 364 "parse.y"
! 2511: { (yyval.f) = mkfnode(1,I_CAR,(yyvsp[(3) - (4)].f)); }
! 2512: break;
! 2513:
! 2514: case 78:
! 2515:
! 2516: /* Line 1455 of yacc.c */
! 2517: #line 366 "parse.y"
! 2518: { (yyval.f) = mkfnode(1,I_CDR,(yyvsp[(3) - (4)].f)); }
! 2519: break;
! 2520:
! 2521: case 79:
! 2522:
! 2523: /* Line 1455 of yacc.c */
! 2524: #line 368 "parse.y"
! 2525: { (yyval.f) = mkfnode(1,I_PAREN,(yyvsp[(2) - (3)].f)); }
! 2526: break;
! 2527:
! 2528: case 80:
! 2529:
! 2530: /* Line 1455 of yacc.c */
! 2531: #line 370 "parse.y"
! 2532: {
! 2533: if ( main_parser || allow_create_var )
! 2534: (yyval.f) = mkfnode(2,I_PVAR,makepvar((yyvsp[(1) - (1)].p)),NULLP);
! 2535: else {
! 2536: ind = searchpvar((yyvsp[(1) - (1)].p));
! 2537: if ( ind == -1 ) {
! 2538: fprintf(stderr,"%s : no such variable.\n",(yyvsp[(1) - (1)].p));
! 2539: YYABORT;
! 2540: } else
! 2541: (yyval.f) = mkfnode(2,I_PVAR,ind,NULLP);
! 2542: }
! 2543: }
! 2544: break;
! 2545:
! 2546: case 81:
! 2547:
! 2548: /* Line 1455 of yacc.c */
! 2549: #line 383 "parse.y"
! 2550: {
! 2551: if ( (yyvsp[(1) - (4)].f)->id == I_PVAR || (yyvsp[(1) - (4)].f)->id == I_INDEX ) {
! 2552: appendtonode((NODE)(yyvsp[(1) - (4)].f)->arg[1],(pointer)(yyvsp[(3) - (4)].f),&a);
! 2553: (yyvsp[(1) - (4)].f)->arg[1] = (pointer)a; (yyval.f) = (yyvsp[(1) - (4)].f);
! 2554: } else {
! 2555: MKNODE(a,(yyvsp[(3) - (4)].f),0);
! 2556: (yyval.f) = mkfnode(2,I_INDEX,(pointer)(yyvsp[(1) - (4)].f),a);
! 2557: }
! 2558: }
! 2559: break;
! 2560:
! 2561: case 82:
! 2562:
! 2563: /* Line 1455 of yacc.c */
! 2564: #line 393 "parse.y"
! 2565: { (yyval.f) = mkfnode(2,I_POINT,(yyvsp[(1) - (3)].f),(yyvsp[(3) - (3)].p)); }
! 2566: break;
! 2567:
! 2568: case 83:
! 2569:
! 2570: /* Line 1455 of yacc.c */
! 2571: #line 396 "parse.y"
! 2572: { (yyval.f) = (yyvsp[(1) - (1)].f); }
! 2573: break;
! 2574:
! 2575: case 84:
! 2576:
! 2577: /* Line 1455 of yacc.c */
! 2578: #line 398 "parse.y"
! 2579: { (yyval.f) = mkfnode(3,I_CAST,structtoindex((yyvsp[(3) - (5)].p)),(yyvsp[(5) - (5)].f),NULLP); }
! 2580: break;
! 2581:
! 2582: case 85:
! 2583:
! 2584: /* Line 1455 of yacc.c */
! 2585: #line 400 "parse.y"
! 2586: { (yyval.f) = mkfnode(2,I_ASSPVAR,(yyvsp[(1) - (3)].f),(yyvsp[(3) - (3)].f)); }
! 2587: break;
! 2588:
! 2589: case 86:
! 2590:
! 2591: /* Line 1455 of yacc.c */
! 2592: #line 402 "parse.y"
! 2593: { (yyval.f) = mkfnode(2,I_ASSPVAR,(yyvsp[(1) - (3)].f),mkfnode(3,I_BOP,(yyvsp[(2) - (3)].p),(yyvsp[(1) - (3)].f),(yyvsp[(3) - (3)].f))); }
! 2594: break;
! 2595:
! 2596: case 87:
! 2597:
! 2598: /* Line 1455 of yacc.c */
! 2599: #line 404 "parse.y"
! 2600: { (yyval.f) = mkfnode(2,I_POSTSELF,(yyvsp[(2) - (2)].p),(yyvsp[(1) - (2)].f)); }
! 2601: break;
! 2602:
! 2603: case 88:
! 2604:
! 2605: /* Line 1455 of yacc.c */
! 2606: #line 406 "parse.y"
! 2607: { (yyval.f) = mkfnode(2,I_PRESELF,(yyvsp[(1) - (2)].p),(yyvsp[(2) - (2)].f)); }
! 2608: break;
! 2609:
! 2610: case 89:
! 2611:
! 2612: /* Line 1455 of yacc.c */
! 2613: #line 408 "parse.y"
! 2614: { (yyval.f) = mkfnode(1,I_LIST,(yyvsp[(2) - (3)].n)); }
! 2615: break;
! 2616:
! 2617: case 90:
! 2618:
! 2619: /* Line 1455 of yacc.c */
! 2620: #line 410 "parse.y"
! 2621: { (yyval.f) = (yyvsp[(2) - (2)].f); }
! 2622: break;
! 2623:
! 2624: case 91:
! 2625:
! 2626: /* Line 1455 of yacc.c */
! 2627: #line 412 "parse.y"
! 2628: { (yyval.f) = mkfnode(1,I_MINUS,(yyvsp[(2) - (2)].f)); }
! 2629: break;
! 2630:
! 2631: case 92:
! 2632:
! 2633: /* Line 1455 of yacc.c */
! 2634: #line 414 "parse.y"
! 2635: { (yyval.f) = mkfnode(3,I_BOP,(yyvsp[(2) - (3)].p),(yyvsp[(1) - (3)].f),(yyvsp[(3) - (3)].f)); }
! 2636: break;
! 2637:
! 2638: case 93:
! 2639:
! 2640: /* Line 1455 of yacc.c */
! 2641: #line 416 "parse.y"
! 2642: { (yyval.f) = mkfnode(3,I_BOP,(yyvsp[(2) - (3)].p),(yyvsp[(1) - (3)].f),(yyvsp[(3) - (3)].f)); }
! 2643: break;
! 2644:
! 2645: case 94:
! 2646:
! 2647: /* Line 1455 of yacc.c */
! 2648: #line 418 "parse.y"
! 2649: { (yyval.f) = mkfnode(3,I_BOP,(yyvsp[(2) - (3)].p),(yyvsp[(1) - (3)].f),(yyvsp[(3) - (3)].f)); }
! 2650: break;
! 2651:
! 2652: case 95:
! 2653:
! 2654: /* Line 1455 of yacc.c */
! 2655: #line 420 "parse.y"
! 2656: { (yyval.f) = mkfnode(3,I_BOP,(yyvsp[(2) - (3)].p),(yyvsp[(1) - (3)].f),(yyvsp[(3) - (3)].f)); }
! 2657: break;
! 2658:
! 2659: case 96:
! 2660:
! 2661: /* Line 1455 of yacc.c */
! 2662: #line 422 "parse.y"
! 2663: { (yyval.f) = mkfnode(3,I_BOP,(yyvsp[(2) - (3)].p),(yyvsp[(1) - (3)].f),(yyvsp[(3) - (3)].f)); }
! 2664: break;
! 2665:
! 2666: case 97:
! 2667:
! 2668: /* Line 1455 of yacc.c */
! 2669: #line 424 "parse.y"
! 2670: { (yyval.f) = mkfnode(3,I_BOP,(yyvsp[(2) - (3)].p),(yyvsp[(1) - (3)].f),(yyvsp[(3) - (3)].f)); }
! 2671: break;
! 2672:
! 2673: case 98:
! 2674:
! 2675: /* Line 1455 of yacc.c */
! 2676: #line 426 "parse.y"
! 2677: { (yyval.f) = mkfnode(3,I_COP,(yyvsp[(2) - (3)].i),(yyvsp[(1) - (3)].f),(yyvsp[(3) - (3)].f)); }
! 2678: break;
! 2679:
! 2680: case 99:
! 2681:
! 2682: /* Line 1455 of yacc.c */
! 2683: #line 428 "parse.y"
! 2684: { (yyval.f) = mkfnode(1,I_NOT,(yyvsp[(2) - (2)].f)); }
! 2685: break;
! 2686:
! 2687: case 100:
! 2688:
! 2689: /* Line 1455 of yacc.c */
! 2690: #line 430 "parse.y"
! 2691: { (yyval.f) = mkfnode(2,I_OR,(yyvsp[(1) - (3)].f),(yyvsp[(3) - (3)].f)); }
! 2692: break;
! 2693:
! 2694: case 101:
! 2695:
! 2696: /* Line 1455 of yacc.c */
! 2697: #line 432 "parse.y"
! 2698: { (yyval.f) = mkfnode(2,I_AND,(yyvsp[(1) - (3)].f),(yyvsp[(3) - (3)].f)); }
! 2699: break;
! 2700:
! 2701: case 102:
! 2702:
! 2703: /* Line 1455 of yacc.c */
! 2704: #line 434 "parse.y"
! 2705: { (yyval.f) = mkfnode(3,I_LOP,(yyvsp[(1) - (2)].i),(yyvsp[(2) - (2)].f),NULLP); }
! 2706: break;
! 2707:
! 2708: case 103:
! 2709:
! 2710: /* Line 1455 of yacc.c */
! 2711: #line 436 "parse.y"
! 2712: { (yyval.f) = mkfnode(3,I_LOP,(yyvsp[(2) - (3)].i),(yyvsp[(1) - (3)].f),(yyvsp[(3) - (3)].f)); }
! 2713: break;
! 2714:
! 2715: case 104:
! 2716:
! 2717: /* Line 1455 of yacc.c */
! 2718: #line 438 "parse.y"
! 2719: { (yyval.f) = mkfnode(3,I_LOP,(yyvsp[(2) - (3)].i),(yyvsp[(1) - (3)].f),(yyvsp[(3) - (3)].f)); }
! 2720: break;
! 2721:
! 2722: case 105:
! 2723:
! 2724: /* Line 1455 of yacc.c */
! 2725: #line 440 "parse.y"
! 2726: { (yyval.f) = mkfnode(3,I_LOP,(yyvsp[(2) - (3)].i),(yyvsp[(1) - (3)].f),(yyvsp[(3) - (3)].f)); }
! 2727: break;
! 2728:
! 2729: case 106:
! 2730:
! 2731: /* Line 1455 of yacc.c */
! 2732: #line 442 "parse.y"
! 2733: { (yyval.f) = mkfnode(3,I_LOP,(yyvsp[(2) - (3)].i),(yyvsp[(1) - (3)].f),(yyvsp[(3) - (3)].f)); }
! 2734: break;
! 2735:
! 2736: case 107:
! 2737:
! 2738: /* Line 1455 of yacc.c */
! 2739: #line 444 "parse.y"
! 2740: { (yyval.f) = mkfnode(3,I_LOP,(yyvsp[(2) - (3)].i),(yyvsp[(1) - (3)].f),(yyvsp[(3) - (3)].f)); }
! 2741: break;
! 2742:
! 2743: case 108:
! 2744:
! 2745: /* Line 1455 of yacc.c */
! 2746: #line 446 "parse.y"
! 2747: { (yyval.f) = mkfnode(3,I_LOP,(yyvsp[(2) - (3)].i),(yyvsp[(1) - (3)].f),(yyvsp[(3) - (3)].f)); }
! 2748: break;
! 2749:
! 2750: case 109:
! 2751:
! 2752: /* Line 1455 of yacc.c */
! 2753: #line 448 "parse.y"
! 2754: { (yyval.f) = mkfnode(3,I_CE,(yyvsp[(1) - (5)].f),(yyvsp[(3) - (5)].f),(yyvsp[(5) - (5)].f)); }
! 2755: break;
! 2756:
! 2757: case 110:
! 2758:
! 2759: /* Line 1455 of yacc.c */
! 2760: #line 450 "parse.y"
! 2761: { (yyval.f) = mkfnode(1,I_EV,(yyvsp[(2) - (3)].n)); }
! 2762: break;
! 2763:
! 2764: case 111:
! 2765:
! 2766: /* Line 1455 of yacc.c */
! 2767: #line 452 "parse.y"
! 2768: { (yyval.f) = mkfnode(1,I_NEWCOMP,(int)structtoindex((yyvsp[(3) - (4)].p))); }
! 2769: break;
! 2770:
! 2771: case 112:
! 2772:
! 2773: /* Line 1455 of yacc.c */
! 2774: #line 454 "parse.y"
! 2775: { MKQUOTE(quote,(yyvsp[(3) - (4)].f)); (yyval.f) = mkfnode(1,I_FORMULA,(pointer)quote); }
! 2776: break;
! 2777:
! 2778: case 113:
! 2779:
! 2780: /* Line 1455 of yacc.c */
! 2781: #line 456 "parse.y"
! 2782: { (yyval.f) = mkfnode(2,I_CONS,(yyvsp[(2) - (5)].n),(yyvsp[(4) - (5)].f)); }
! 2783: break;
! 2784:
! 2785: case 114:
! 2786:
! 2787: /* Line 1455 of yacc.c */
! 2788: #line 458 "parse.y"
! 2789: { MKQUOTE(quote,(yyvsp[(2) - (2)].f)); (yyval.f) = mkfnode(1,I_FORMULA,(pointer)quote); }
! 2790: break;
! 2791:
! 2792:
! 2793:
! 2794: /* Line 1455 of yacc.c */
! 2795: #line 2796 "y.tab.c"
! 2796: default: break;
! 2797: }
! 2798: YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc);
! 2799:
! 2800: YYPOPSTACK (yylen);
! 2801: yylen = 0;
! 2802: YY_STACK_PRINT (yyss, yyssp);
! 2803:
! 2804: *++yyvsp = yyval;
! 2805:
! 2806: /* Now `shift' the result of the reduction. Determine what state
! 2807: that goes to, based on the state we popped back to and the rule
! 2808: number reduced by. */
! 2809:
! 2810: yyn = yyr1[yyn];
! 2811:
! 2812: yystate = yypgoto[yyn - YYNTOKENS] + *yyssp;
! 2813: if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp)
! 2814: yystate = yytable[yystate];
! 2815: else
! 2816: yystate = yydefgoto[yyn - YYNTOKENS];
! 2817:
! 2818: goto yynewstate;
! 2819:
! 2820:
! 2821: /*------------------------------------.
! 2822: | yyerrlab -- here on detecting error |
! 2823: `------------------------------------*/
! 2824: yyerrlab:
! 2825: /* If not already recovering from an error, report this error. */
! 2826: if (!yyerrstatus)
! 2827: {
! 2828: ++yynerrs;
! 2829: #if ! YYERROR_VERBOSE
! 2830: yyerror (YY_("syntax error"));
! 2831: #else
! 2832: {
! 2833: YYSIZE_T yysize = yysyntax_error (0, yystate, yychar);
! 2834: if (yymsg_alloc < yysize && yymsg_alloc < YYSTACK_ALLOC_MAXIMUM)
! 2835: {
! 2836: YYSIZE_T yyalloc = 2 * yysize;
! 2837: if (! (yysize <= yyalloc && yyalloc <= YYSTACK_ALLOC_MAXIMUM))
! 2838: yyalloc = YYSTACK_ALLOC_MAXIMUM;
! 2839: if (yymsg != yymsgbuf)
! 2840: YYSTACK_FREE (yymsg);
! 2841: yymsg = (char *) YYSTACK_ALLOC (yyalloc);
! 2842: if (yymsg)
! 2843: yymsg_alloc = yyalloc;
! 2844: else
! 2845: {
! 2846: yymsg = yymsgbuf;
! 2847: yymsg_alloc = sizeof yymsgbuf;
! 2848: }
! 2849: }
! 2850:
! 2851: if (0 < yysize && yysize <= yymsg_alloc)
! 2852: {
! 2853: (void) yysyntax_error (yymsg, yystate, yychar);
! 2854: yyerror (yymsg);
! 2855: }
! 2856: else
! 2857: {
! 2858: yyerror (YY_("syntax error"));
! 2859: if (yysize != 0)
! 2860: goto yyexhaustedlab;
! 2861: }
! 2862: }
! 2863: #endif
! 2864: }
! 2865:
! 2866:
! 2867:
! 2868: if (yyerrstatus == 3)
! 2869: {
! 2870: /* If just tried and failed to reuse lookahead token after an
! 2871: error, discard it. */
! 2872:
! 2873: if (yychar <= YYEOF)
! 2874: {
! 2875: /* Return failure if at end of input. */
! 2876: if (yychar == YYEOF)
! 2877: YYABORT;
! 2878: }
! 2879: else
! 2880: {
! 2881: yydestruct ("Error: discarding",
! 2882: yytoken, &yylval);
! 2883: yychar = YYEMPTY;
! 2884: }
! 2885: }
! 2886:
! 2887: /* Else will try to reuse lookahead token after shifting the error
! 2888: token. */
! 2889: goto yyerrlab1;
! 2890:
! 2891:
! 2892: /*---------------------------------------------------.
! 2893: | yyerrorlab -- error raised explicitly by YYERROR. |
! 2894: `---------------------------------------------------*/
! 2895: yyerrorlab:
! 2896:
! 2897: /* Pacify compilers like GCC when the user code never invokes
! 2898: YYERROR and the label yyerrorlab therefore never appears in user
! 2899: code. */
! 2900: if (/*CONSTCOND*/ 0)
! 2901: goto yyerrorlab;
! 2902:
! 2903: /* Do not reclaim the symbols of the rule which action triggered
! 2904: this YYERROR. */
! 2905: YYPOPSTACK (yylen);
! 2906: yylen = 0;
! 2907: YY_STACK_PRINT (yyss, yyssp);
! 2908: yystate = *yyssp;
! 2909: goto yyerrlab1;
! 2910:
! 2911:
! 2912: /*-------------------------------------------------------------.
! 2913: | yyerrlab1 -- common code for both syntax error and YYERROR. |
! 2914: `-------------------------------------------------------------*/
! 2915: yyerrlab1:
! 2916: yyerrstatus = 3; /* Each real token shifted decrements this. */
! 2917:
! 2918: for (;;)
! 2919: {
! 2920: yyn = yypact[yystate];
! 2921: if (yyn != YYPACT_NINF)
! 2922: {
! 2923: yyn += YYTERROR;
! 2924: if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
! 2925: {
! 2926: yyn = yytable[yyn];
! 2927: if (0 < yyn)
! 2928: break;
! 2929: }
! 2930: }
! 2931:
! 2932: /* Pop the current state because it cannot handle the error token. */
! 2933: if (yyssp == yyss)
! 2934: YYABORT;
! 2935:
! 2936:
! 2937: yydestruct ("Error: popping",
! 2938: yystos[yystate], yyvsp);
! 2939: YYPOPSTACK (1);
! 2940: yystate = *yyssp;
! 2941: YY_STACK_PRINT (yyss, yyssp);
! 2942: }
! 2943:
! 2944: *++yyvsp = yylval;
! 2945:
! 2946:
! 2947: /* Shift the error token. */
! 2948: YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp);
! 2949:
! 2950: yystate = yyn;
! 2951: goto yynewstate;
! 2952:
! 2953:
! 2954: /*-------------------------------------.
! 2955: | yyacceptlab -- YYACCEPT comes here. |
! 2956: `-------------------------------------*/
! 2957: yyacceptlab:
! 2958: yyresult = 0;
! 2959: goto yyreturn;
! 2960:
! 2961: /*-----------------------------------.
! 2962: | yyabortlab -- YYABORT comes here. |
! 2963: `-----------------------------------*/
! 2964: yyabortlab:
! 2965: yyresult = 1;
! 2966: goto yyreturn;
! 2967:
! 2968: #if !defined(yyoverflow) || YYERROR_VERBOSE
! 2969: /*-------------------------------------------------.
! 2970: | yyexhaustedlab -- memory exhaustion comes here. |
! 2971: `-------------------------------------------------*/
! 2972: yyexhaustedlab:
! 2973: yyerror (YY_("memory exhausted"));
! 2974: yyresult = 2;
! 2975: /* Fall through. */
! 2976: #endif
! 2977:
! 2978: yyreturn:
! 2979: if (yychar != YYEMPTY)
! 2980: yydestruct ("Cleanup: discarding lookahead",
! 2981: yytoken, &yylval);
! 2982: /* Do not reclaim the symbols of the rule which action triggered
! 2983: this YYABORT or YYACCEPT. */
! 2984: YYPOPSTACK (yylen);
! 2985: YY_STACK_PRINT (yyss, yyssp);
! 2986: while (yyssp != yyss)
! 2987: {
! 2988: yydestruct ("Cleanup: popping",
! 2989: yystos[*yyssp], yyvsp);
! 2990: YYPOPSTACK (1);
! 2991: }
! 2992: #ifndef yyoverflow
! 2993: if (yyss != yyssa)
! 2994: YYSTACK_FREE (yyss);
! 2995: #endif
! 2996: #if YYERROR_VERBOSE
! 2997: if (yymsg != yymsgbuf)
! 2998: YYSTACK_FREE (yymsg);
! 2999: #endif
! 3000: /* Make sure YYID is used. */
! 3001: return YYID (yyresult);
! 3002: }
! 3003:
! 3004:
! 3005:
! 3006: /* Line 1675 of yacc.c */
! 3007: #line 460 "parse.y"
! 3008:
! 3009:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>