| /* A Bison parser, made by GNU Bison 3.0.2. */ |
| |
| /* Bison implementation for Yacc-like parsers in C |
| |
| Copyright (C) 1984, 1989-1990, 2000-2013 Free Software Foundation, Inc. |
| |
| This program is free software: you can redistribute it and/or modify |
| it under the terms of the GNU General Public License as published by |
| the Free Software Foundation, either version 3 of the License, or |
| (at your option) any later version. |
| |
| This program is distributed in the hope that it will be useful, |
| but WITHOUT ANY WARRANTY; without even the implied warranty of |
| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| GNU General Public License for more details. |
| |
| You should have received a copy of the GNU General Public License |
| along with this program. If not, see <http://www.gnu.org/licenses/>. */ |
| |
| /* As a special exception, you may create a larger work that contains |
| part or all of the Bison parser skeleton and distribute that work |
| under terms of your choice, so long as that work isn't itself a |
| parser generator using the skeleton or a modified version thereof |
| as a parser skeleton. Alternatively, if you modify or redistribute |
| the parser skeleton itself, you may (at your option) remove this |
| special exception, which will cause the skeleton and the resulting |
| Bison output files to be licensed under the GNU General Public |
| License without this special exception. |
| |
| This special exception was added by the Free Software Foundation in |
| version 2.2 of Bison. */ |
| |
| /* C LALR(1) parser skeleton written by Richard Stallman, by |
| simplifying the original so-called "semantic" parser. */ |
| |
| /* All symbols defined below should begin with yy or YY, to avoid |
| infringing on user name space. This should be done even for local |
| variables, as they might otherwise be expanded by user macros. |
| There are some unavoidable exceptions within include files to |
| define necessary library symbols; they are noted "INFRINGES ON |
| USER NAME SPACE" below. */ |
| |
| /* Identify Bison output. */ |
| #define YYBISON 1 |
| |
| /* Bison version. */ |
| #define YYBISON_VERSION "3.0.2" |
| |
| /* Skeleton name. */ |
| #define YYSKELETON_NAME "yacc.c" |
| |
| /* Pure parsers. */ |
| #define YYPURE 1 |
| |
| /* Push parsers. */ |
| #define YYPUSH 0 |
| |
| /* Pull parsers. */ |
| #define YYPULL 1 |
| |
| |
| |
| |
| /* Copy the first part of user declarations. */ |
| #line 1 "parser.y" /* yacc.c:339 */ |
| |
| #include <assert.h> |
| #include <math.h> |
| #include <stdio.h> |
| #include <string.h> |
| #include "compile.h" |
| #include "jv_alloc.h" |
| #define YYMALLOC jv_mem_alloc |
| #define YYFREE jv_mem_free |
| |
| #line 77 "parser.c" /* yacc.c:339 */ |
| |
| # ifndef YY_NULLPTR |
| # if defined __cplusplus && 201103L <= __cplusplus |
| # define YY_NULLPTR nullptr |
| # else |
| # define YY_NULLPTR 0 |
| # endif |
| # endif |
| |
| /* Enabling verbose error messages. */ |
| #ifdef YYERROR_VERBOSE |
| # undef YYERROR_VERBOSE |
| # define YYERROR_VERBOSE 1 |
| #else |
| # define YYERROR_VERBOSE 1 |
| #endif |
| |
| /* In a future release of Bison, this section will be replaced |
| by #include "y.tab.h". */ |
| #ifndef YY_YY_PARSER_H_INCLUDED |
| # define YY_YY_PARSER_H_INCLUDED |
| /* Debug traces. */ |
| #ifndef YYDEBUG |
| # define YYDEBUG 0 |
| #endif |
| #if YYDEBUG |
| extern int yydebug; |
| #endif |
| /* "%code requires" blocks. */ |
| #line 11 "parser.y" /* yacc.c:355 */ |
| |
| #include "locfile.h" |
| struct lexer_param; |
| |
| #define YYLTYPE location |
| #define YYLLOC_DEFAULT(Loc, Rhs, N) \ |
| do { \ |
| if (N) { \ |
| (Loc).start = YYRHSLOC(Rhs, 1).start; \ |
| (Loc).end = YYRHSLOC(Rhs, N).end; \ |
| } else { \ |
| (Loc).start = YYRHSLOC(Rhs, 0).end; \ |
| (Loc).end = YYRHSLOC(Rhs, 0).end; \ |
| } \ |
| } while (0) |
| |
| #line 124 "parser.c" /* yacc.c:355 */ |
| |
| /* Token type. */ |
| #ifndef YYTOKENTYPE |
| # define YYTOKENTYPE |
| enum yytokentype |
| { |
| INVALID_CHARACTER = 258, |
| IDENT = 259, |
| FIELD = 260, |
| LITERAL = 261, |
| FORMAT = 262, |
| REC = 263, |
| SETMOD = 264, |
| EQ = 265, |
| NEQ = 266, |
| DEFINEDOR = 267, |
| AS = 268, |
| DEF = 269, |
| MODULE = 270, |
| IMPORT = 271, |
| INCLUDE = 272, |
| IF = 273, |
| THEN = 274, |
| ELSE = 275, |
| ELSE_IF = 276, |
| REDUCE = 277, |
| FOREACH = 278, |
| END = 279, |
| AND = 280, |
| OR = 281, |
| TRY = 282, |
| CATCH = 283, |
| LABEL = 284, |
| BREAK = 285, |
| LOC = 286, |
| SETPIPE = 287, |
| SETPLUS = 288, |
| SETMINUS = 289, |
| SETMULT = 290, |
| SETDIV = 291, |
| SETDEFINEDOR = 292, |
| LESSEQ = 293, |
| GREATEREQ = 294, |
| QQSTRING_START = 295, |
| QQSTRING_TEXT = 296, |
| QQSTRING_INTERP_START = 297, |
| QQSTRING_INTERP_END = 298, |
| QQSTRING_END = 299, |
| FUNCDEF = 300, |
| NONOPT = 301 |
| }; |
| #endif |
| /* Tokens. */ |
| #define INVALID_CHARACTER 258 |
| #define IDENT 259 |
| #define FIELD 260 |
| #define LITERAL 261 |
| #define FORMAT 262 |
| #define REC 263 |
| #define SETMOD 264 |
| #define EQ 265 |
| #define NEQ 266 |
| #define DEFINEDOR 267 |
| #define AS 268 |
| #define DEF 269 |
| #define MODULE 270 |
| #define IMPORT 271 |
| #define INCLUDE 272 |
| #define IF 273 |
| #define THEN 274 |
| #define ELSE 275 |
| #define ELSE_IF 276 |
| #define REDUCE 277 |
| #define FOREACH 278 |
| #define END 279 |
| #define AND 280 |
| #define OR 281 |
| #define TRY 282 |
| #define CATCH 283 |
| #define LABEL 284 |
| #define BREAK 285 |
| #define LOC 286 |
| #define SETPIPE 287 |
| #define SETPLUS 288 |
| #define SETMINUS 289 |
| #define SETMULT 290 |
| #define SETDIV 291 |
| #define SETDEFINEDOR 292 |
| #define LESSEQ 293 |
| #define GREATEREQ 294 |
| #define QQSTRING_START 295 |
| #define QQSTRING_TEXT 296 |
| #define QQSTRING_INTERP_START 297 |
| #define QQSTRING_INTERP_END 298 |
| #define QQSTRING_END 299 |
| #define FUNCDEF 300 |
| #define NONOPT 301 |
| |
| /* Value type. */ |
| #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED |
| typedef union YYSTYPE YYSTYPE; |
| union YYSTYPE |
| { |
| #line 31 "parser.y" /* yacc.c:355 */ |
| |
| jv literal; |
| block blk; |
| |
| #line 233 "parser.c" /* yacc.c:355 */ |
| }; |
| # define YYSTYPE_IS_TRIVIAL 1 |
| # define YYSTYPE_IS_DECLARED 1 |
| #endif |
| |
| /* Location type. */ |
| #if ! defined YYLTYPE && ! defined YYLTYPE_IS_DECLARED |
| typedef struct YYLTYPE YYLTYPE; |
| struct YYLTYPE |
| { |
| int first_line; |
| int first_column; |
| int last_line; |
| int last_column; |
| }; |
| # define YYLTYPE_IS_DECLARED 1 |
| # define YYLTYPE_IS_TRIVIAL 1 |
| #endif |
| |
| |
| |
| int yyparse (block* answer, int* errors, struct locfile* locations, struct lexer_param* lexer_param_ptr); |
| |
| #endif /* !YY_YY_PARSER_H_INCLUDED */ |
| |
| /* Copy the second part of user declarations. */ |
| #line 118 "parser.y" /* yacc.c:358 */ |
| |
| #include "lexer.h" |
| struct lexer_param { |
| yyscan_t lexer; |
| }; |
| #define FAIL(loc, msg) \ |
| do { \ |
| location l = loc; \ |
| yyerror(&l, answer, errors, locations, lexer_param_ptr, msg); \ |
| /*YYERROR*/; \ |
| } while (0) |
| |
| void yyerror(YYLTYPE* loc, block* answer, int* errors, |
| struct locfile* locations, struct lexer_param* lexer_param_ptr, const char *s){ |
| (*errors)++; |
| if (strstr(s, "unexpected")) { |
| #ifdef WIN32 |
| locfile_locate(locations, *loc, "jq: error: %s (Windows cmd shell quoting issues?)", s); |
| #else |
| locfile_locate(locations, *loc, "jq: error: %s (Unix shell quoting issues?)", s); |
| #endif |
| } else { |
| locfile_locate(locations, *loc, "jq: error: %s", s); |
| } |
| } |
| |
| int yylex(YYSTYPE* yylval, YYLTYPE* yylloc, block* answer, int* errors, |
| struct locfile* locations, struct lexer_param* lexer_param_ptr) { |
| yyscan_t lexer = lexer_param_ptr->lexer; |
| int tok = jq_yylex(yylval, yylloc, lexer); |
| if ((tok == LITERAL || tok == QQSTRING_TEXT) && !jv_is_valid(yylval->literal)) { |
| jv msg = jv_invalid_get_msg(jv_copy(yylval->literal)); |
| if (jv_get_kind(msg) == JV_KIND_STRING) { |
| FAIL(*yylloc, jv_string_value(msg)); |
| } else { |
| FAIL(*yylloc, "Invalid literal"); |
| } |
| jv_free(msg); |
| jv_free(yylval->literal); |
| yylval->literal = jv_null(); |
| } |
| return tok; |
| } |
| |
| static block gen_dictpair(block k, block v) { |
| return BLOCK(gen_subexp(k), gen_subexp(v), gen_op_simple(INSERT)); |
| } |
| |
| static block gen_index(block obj, block key) { |
| return BLOCK(gen_subexp(key), obj, gen_op_simple(INDEX)); |
| } |
| |
| static block gen_index_opt(block obj, block key) { |
| return BLOCK(gen_subexp(key), obj, gen_op_simple(INDEX_OPT)); |
| } |
| |
| static block gen_slice_index(block obj, block start, block end, opcode idx_op) { |
| block key = BLOCK(gen_subexp(gen_const(jv_object())), |
| gen_subexp(gen_const(jv_string("start"))), |
| gen_subexp(start), |
| gen_op_simple(INSERT), |
| gen_subexp(gen_const(jv_string("end"))), |
| gen_subexp(end), |
| gen_op_simple(INSERT)); |
| return BLOCK(key, obj, gen_op_simple(idx_op)); |
| } |
| |
| static block constant_fold(block a, block b, int op) { |
| if (!block_is_single(a) || !block_is_const(a) || |
| !block_is_single(b) || !block_is_const(b)) |
| return gen_noop(); |
| if (block_const_kind(a) != block_const_kind(b)) |
| return gen_noop(); |
| |
| jv res = jv_invalid(); |
| |
| if (block_const_kind(a) == JV_KIND_NUMBER) { |
| double na = jv_number_value(block_const(a)); |
| double nb = jv_number_value(block_const(b)); |
| switch (op) { |
| case '+': res = jv_number(na + nb); break; |
| case '-': res = jv_number(na - nb); break; |
| case '*': res = jv_number(na * nb); break; |
| case '/': res = jv_number(na / nb); break; |
| case EQ: res = (na == nb ? jv_true() : jv_false()); break; |
| case NEQ: res = (na != nb ? jv_true() : jv_false()); break; |
| case '<': res = (na < nb ? jv_true() : jv_false()); break; |
| case '>': res = (na > nb ? jv_true() : jv_false()); break; |
| case LESSEQ: res = (na <= nb ? jv_true() : jv_false()); break; |
| case GREATEREQ: res = (na >= nb ? jv_true() : jv_false()); break; |
| default: break; |
| } |
| } else if (op == '+' && block_const_kind(a) == JV_KIND_STRING) { |
| res = jv_string_concat(block_const(a), block_const(b)); |
| } else { |
| return gen_noop(); |
| } |
| |
| if (jv_get_kind(res) == JV_KIND_INVALID) |
| return gen_noop(); |
| |
| block_free(a); |
| block_free(b); |
| return gen_const(res); |
| } |
| |
| static block gen_binop(block a, block b, int op) { |
| block folded = constant_fold(a, b, op); |
| if (!block_is_noop(folded)) |
| return folded; |
| |
| const char* funcname = 0; |
| switch (op) { |
| case '+': funcname = "_plus"; break; |
| case '-': funcname = "_minus"; break; |
| case '*': funcname = "_multiply"; break; |
| case '/': funcname = "_divide"; break; |
| case '%': funcname = "_mod"; break; |
| case EQ: funcname = "_equal"; break; |
| case NEQ: funcname = "_notequal"; break; |
| case '<': funcname = "_less"; break; |
| case '>': funcname = "_greater"; break; |
| case LESSEQ: funcname = "_lesseq"; break; |
| case GREATEREQ: funcname = "_greatereq"; break; |
| } |
| assert(funcname); |
| |
| return gen_call(funcname, BLOCK(gen_lambda(a), gen_lambda(b))); |
| } |
| |
| static block gen_format(block a, jv fmt) { |
| return BLOCK(a, gen_call("format", BLOCK(gen_lambda(gen_const(fmt))))); |
| } |
| |
| static block gen_definedor_assign(block object, block val) { |
| block tmp = gen_op_var_fresh(STOREV, "tmp"); |
| return BLOCK(gen_op_simple(DUP), |
| val, tmp, |
| gen_call("_modify", BLOCK(gen_lambda(object), |
| gen_lambda(gen_definedor(gen_noop(), |
| gen_op_bound(LOADV, tmp)))))); |
| } |
| |
| static block gen_update(block object, block val, int optype) { |
| block tmp = gen_op_var_fresh(STOREV, "tmp"); |
| return BLOCK(gen_op_simple(DUP), |
| val, |
| tmp, |
| gen_call("_modify", BLOCK(gen_lambda(object), |
| gen_lambda(gen_binop(gen_noop(), |
| gen_op_bound(LOADV, tmp), |
| optype))))); |
| } |
| |
| |
| #line 416 "parser.c" /* yacc.c:358 */ |
| |
| #ifdef short |
| # undef short |
| #endif |
| |
| #ifdef YYTYPE_UINT8 |
| typedef YYTYPE_UINT8 yytype_uint8; |
| #else |
| typedef unsigned char yytype_uint8; |
| #endif |
| |
| #ifdef YYTYPE_INT8 |
| typedef YYTYPE_INT8 yytype_int8; |
| #else |
| typedef signed char yytype_int8; |
| #endif |
| |
| #ifdef YYTYPE_UINT16 |
| typedef YYTYPE_UINT16 yytype_uint16; |
| #else |
| typedef unsigned short int yytype_uint16; |
| #endif |
| |
| #ifdef YYTYPE_INT16 |
| typedef YYTYPE_INT16 yytype_int16; |
| #else |
| typedef short int yytype_int16; |
| #endif |
| |
| #ifndef YYSIZE_T |
| # ifdef __SIZE_TYPE__ |
| # define YYSIZE_T __SIZE_TYPE__ |
| # elif defined size_t |
| # define YYSIZE_T size_t |
| # elif ! defined YYSIZE_T |
| # include <stddef.h> /* INFRINGES ON USER NAME SPACE */ |
| # define YYSIZE_T size_t |
| # else |
| # define YYSIZE_T unsigned int |
| # endif |
| #endif |
| |
| #define YYSIZE_MAXIMUM ((YYSIZE_T) -1) |
| |
| #ifndef YY_ |
| # if defined YYENABLE_NLS && YYENABLE_NLS |
| # if ENABLE_NLS |
| # include <libintl.h> /* INFRINGES ON USER NAME SPACE */ |
| # define YY_(Msgid) dgettext ("bison-runtime", Msgid) |
| # endif |
| # endif |
| # ifndef YY_ |
| # define YY_(Msgid) Msgid |
| # endif |
| #endif |
| |
| #ifndef YY_ATTRIBUTE |
| # if (defined __GNUC__ \ |
| && (2 < __GNUC__ || (__GNUC__ == 2 && 96 <= __GNUC_MINOR__))) \ |
| || defined __SUNPRO_C && 0x5110 <= __SUNPRO_C |
| # define YY_ATTRIBUTE(Spec) __attribute__(Spec) |
| # else |
| # define YY_ATTRIBUTE(Spec) /* empty */ |
| # endif |
| #endif |
| |
| #ifndef YY_ATTRIBUTE_PURE |
| # define YY_ATTRIBUTE_PURE YY_ATTRIBUTE ((__pure__)) |
| #endif |
| |
| #ifndef YY_ATTRIBUTE_UNUSED |
| # define YY_ATTRIBUTE_UNUSED YY_ATTRIBUTE ((__unused__)) |
| #endif |
| |
| #if !defined _Noreturn \ |
| && (!defined __STDC_VERSION__ || __STDC_VERSION__ < 201112) |
| # if defined _MSC_VER && 1200 <= _MSC_VER |
| # define _Noreturn __declspec (noreturn) |
| # else |
| # define _Noreturn YY_ATTRIBUTE ((__noreturn__)) |
| # endif |
| #endif |
| |
| /* Suppress unused-variable warnings by "using" E. */ |
| #if ! defined lint || defined __GNUC__ |
| # define YYUSE(E) ((void) (E)) |
| #else |
| # define YYUSE(E) /* empty */ |
| #endif |
| |
| #if defined __GNUC__ && 407 <= __GNUC__ * 100 + __GNUC_MINOR__ |
| /* Suppress an incorrect diagnostic about yylval being uninitialized. */ |
| # define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \ |
| _Pragma ("GCC diagnostic push") \ |
| _Pragma ("GCC diagnostic ignored \"-Wuninitialized\"")\ |
| _Pragma ("GCC diagnostic ignored \"-Wmaybe-uninitialized\"") |
| # define YY_IGNORE_MAYBE_UNINITIALIZED_END \ |
| _Pragma ("GCC diagnostic pop") |
| #else |
| # define YY_INITIAL_VALUE(Value) Value |
| #endif |
| #ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN |
| # define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN |
| # define YY_IGNORE_MAYBE_UNINITIALIZED_END |
| #endif |
| #ifndef YY_INITIAL_VALUE |
| # define YY_INITIAL_VALUE(Value) /* Nothing. */ |
| #endif |
| |
| |
| #if ! defined yyoverflow || YYERROR_VERBOSE |
| |
| /* The parser invokes alloca or malloc; define the necessary symbols. */ |
| |
| # ifdef YYSTACK_USE_ALLOCA |
| # if YYSTACK_USE_ALLOCA |
| # ifdef __GNUC__ |
| # define YYSTACK_ALLOC __builtin_alloca |
| # elif defined __BUILTIN_VA_ARG_INCR |
| # include <alloca.h> /* INFRINGES ON USER NAME SPACE */ |
| # elif defined _AIX |
| # define YYSTACK_ALLOC __alloca |
| # elif defined _MSC_VER |
| # include <malloc.h> /* INFRINGES ON USER NAME SPACE */ |
| # define alloca _alloca |
| # else |
| # define YYSTACK_ALLOC alloca |
| # if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS |
| # include <stdlib.h> /* INFRINGES ON USER NAME SPACE */ |
| /* Use EXIT_SUCCESS as a witness for stdlib.h. */ |
| # ifndef EXIT_SUCCESS |
| # define EXIT_SUCCESS 0 |
| # endif |
| # endif |
| # endif |
| # endif |
| # endif |
| |
| # ifdef YYSTACK_ALLOC |
| /* Pacify GCC's 'empty if-body' warning. */ |
| # define YYSTACK_FREE(Ptr) do { /* empty */; } while (0) |
| # ifndef YYSTACK_ALLOC_MAXIMUM |
| /* The OS might guarantee only one guard page at the bottom of the stack, |
| and a page size can be as small as 4096 bytes. So we cannot safely |
| invoke alloca (N) if N exceeds 4096. Use a slightly smaller number |
| to allow for a few compiler-allocated temporary stack slots. */ |
| # define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */ |
| # endif |
| # else |
| # define YYSTACK_ALLOC YYMALLOC |
| # define YYSTACK_FREE YYFREE |
| # ifndef YYSTACK_ALLOC_MAXIMUM |
| # define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM |
| # endif |
| # if (defined __cplusplus && ! defined EXIT_SUCCESS \ |
| && ! ((defined YYMALLOC || defined malloc) \ |
| && (defined YYFREE || defined free))) |
| # include <stdlib.h> /* INFRINGES ON USER NAME SPACE */ |
| # ifndef EXIT_SUCCESS |
| # define EXIT_SUCCESS 0 |
| # endif |
| # endif |
| # ifndef YYMALLOC |
| # define YYMALLOC malloc |
| # if ! defined malloc && ! defined EXIT_SUCCESS |
| void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */ |
| # endif |
| # endif |
| # ifndef YYFREE |
| # define YYFREE free |
| # if ! defined free && ! defined EXIT_SUCCESS |
| void free (void *); /* INFRINGES ON USER NAME SPACE */ |
| # endif |
| # endif |
| # endif |
| #endif /* ! defined yyoverflow || YYERROR_VERBOSE */ |
| |
| |
| #if (! defined yyoverflow \ |
| && (! defined __cplusplus \ |
| || (defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL \ |
| && defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL))) |
| |
| /* A type that is properly aligned for any stack member. */ |
| union yyalloc |
| { |
| yytype_int16 yyss_alloc; |
| YYSTYPE yyvs_alloc; |
| YYLTYPE yyls_alloc; |
| }; |
| |
| /* The size of the maximum gap between one aligned stack and the next. */ |
| # define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1) |
| |
| /* The size of an array large to enough to hold all stacks, each with |
| N elements. */ |
| # define YYSTACK_BYTES(N) \ |
| ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE) + sizeof (YYLTYPE)) \ |
| + 2 * YYSTACK_GAP_MAXIMUM) |
| |
| # define YYCOPY_NEEDED 1 |
| |
| /* Relocate STACK from its old location to the new one. The |
| local variables YYSIZE and YYSTACKSIZE give the old and new number of |
| elements in the stack, and YYPTR gives the new location of the |
| stack. Advance YYPTR to a properly aligned location for the next |
| stack. */ |
| # define YYSTACK_RELOCATE(Stack_alloc, Stack) \ |
| do \ |
| { \ |
| YYSIZE_T yynewbytes; \ |
| YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \ |
| Stack = &yyptr->Stack_alloc; \ |
| yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \ |
| yyptr += yynewbytes / sizeof (*yyptr); \ |
| } \ |
| while (0) |
| |
| #endif |
| |
| #if defined YYCOPY_NEEDED && YYCOPY_NEEDED |
| /* Copy COUNT objects from SRC to DST. The source and destination do |
| not overlap. */ |
| # ifndef YYCOPY |
| # if defined __GNUC__ && 1 < __GNUC__ |
| # define YYCOPY(Dst, Src, Count) \ |
| __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src))) |
| # else |
| # define YYCOPY(Dst, Src, Count) \ |
| do \ |
| { \ |
| YYSIZE_T yyi; \ |
| for (yyi = 0; yyi < (Count); yyi++) \ |
| (Dst)[yyi] = (Src)[yyi]; \ |
| } \ |
| while (0) |
| # endif |
| # endif |
| #endif /* !YYCOPY_NEEDED */ |
| |
| /* YYFINAL -- State number of the termination state. */ |
| #define YYFINAL 27 |
| /* YYLAST -- Last index in YYTABLE. */ |
| #define YYLAST 2110 |
| |
| /* YYNTOKENS -- Number of terminals. */ |
| #define YYNTOKENS 68 |
| /* YYNNTS -- Number of nonterminals. */ |
| #define YYNNTS 26 |
| /* YYNRULES -- Number of rules. */ |
| #define YYNRULES 156 |
| /* YYNSTATES -- Number of states. */ |
| #define YYNSTATES 310 |
| |
| /* YYTRANSLATE[YYX] -- Symbol number corresponding to YYX as returned |
| by yylex, with out-of-bounds checking. */ |
| #define YYUNDEFTOK 2 |
| #define YYMAXUTOK 301 |
| |
| #define YYTRANSLATE(YYX) \ |
| ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK) |
| |
| /* YYTRANSLATE[TOKEN-NUM] -- Symbol number corresponding to TOKEN-NUM |
| as returned by yylex, without out-of-bounds checking. */ |
| static const yytype_uint8 yytranslate[] = |
| { |
| 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, |
| 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, |
| 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, |
| 2, 2, 2, 2, 2, 2, 61, 55, 2, 2, |
| 59, 60, 53, 51, 47, 52, 63, 54, 2, 2, |
| 2, 2, 2, 2, 2, 2, 2, 2, 62, 58, |
| 49, 48, 50, 57, 2, 2, 2, 2, 2, 2, |
| 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, |
| 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, |
| 2, 64, 2, 65, 2, 2, 2, 2, 2, 2, |
| 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, |
| 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, |
| 2, 2, 2, 66, 46, 67, 2, 2, 2, 2, |
| 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, |
| 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, |
| 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, |
| 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, |
| 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, |
| 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, |
| 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, |
| 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, |
| 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, |
| 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, |
| 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, |
| 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, |
| 2, 2, 2, 2, 2, 2, 1, 2, 3, 4, |
| 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, |
| 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, |
| 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, |
| 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, |
| 45, 56 |
| }; |
| |
| #if YYDEBUG |
| /* YYRLINE[YYN] -- Source line where rule number YYN was defined. */ |
| static const yytype_uint16 yyrline[] = |
| { |
| 0, 276, 276, 279, 284, 287, 297, 300, 305, 308, |
| 313, 317, 321, 325, 329, 333, 336, 341, 345, 349, |
| 354, 361, 365, 369, 373, 377, 381, 385, 389, 393, |
| 397, 401, 405, 409, 413, 417, 421, 425, 431, 437, |
| 441, 445, 449, 453, 457, 461, 465, 469, 474, 483, |
| 490, 496, 508, 519, 533, 538, 544, 547, 552, 557, |
| 564, 564, 568, 568, 575, 578, 581, 587, 590, 595, |
| 598, 601, 607, 610, 613, 621, 625, 628, 631, 634, |
| 637, 640, 643, 646, 649, 653, 659, 662, 665, 668, |
| 671, 674, 677, 680, 683, 686, 689, 692, 695, 698, |
| 701, 704, 707, 714, 718, 722, 734, 739, 740, 741, |
| 742, 745, 748, 753, 758, 762, 765, 770, 773, 778, |
| 781, 786, 789, 792, 795, 798, 803, 806, 809, 812, |
| 815, 818, 821, 824, 827, 830, 833, 836, 839, 842, |
| 845, 848, 851, 854, 857, 862, 865, 866, 867, 870, |
| 873, 876, 879, 883, 887, 891, 894 |
| }; |
| #endif |
| |
| #if YYDEBUG || YYERROR_VERBOSE || 1 |
| /* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM. |
| First, the terminals, then, starting at YYNTOKENS, nonterminals. */ |
| static const char *const yytname[] = |
| { |
| "$end", "error", "$undefined", "INVALID_CHARACTER", "IDENT", "FIELD", |
| "LITERAL", "FORMAT", "\"..\"", "\"%=\"", "\"==\"", "\"!=\"", "\"//\"", |
| "\"as\"", "\"def\"", "\"module\"", "\"import\"", "\"include\"", "\"if\"", |
| "\"then\"", "\"else\"", "\"elif\"", "\"reduce\"", "\"foreach\"", |
| "\"end\"", "\"and\"", "\"or\"", "\"try\"", "\"catch\"", "\"label\"", |
| "\"break\"", "\"__loc__\"", "\"|=\"", "\"+=\"", "\"-=\"", "\"*=\"", |
| "\"/=\"", "\"//=\"", "\"<=\"", "\">=\"", "QQSTRING_START", |
| "QQSTRING_TEXT", "QQSTRING_INTERP_START", "QQSTRING_INTERP_END", |
| "QQSTRING_END", "FUNCDEF", "'|'", "','", "'='", "'<'", "'>'", "'+'", |
| "'-'", "'*'", "'/'", "'%'", "NONOPT", "'?'", "';'", "'('", "')'", "'$'", |
| "':'", "'.'", "'['", "']'", "'{'", "'}'", "$accept", "TopLevel", |
| "Module", "Imports", "FuncDefs", "Exp", "Import", "FuncDef", "Params", |
| "Param", "String", "@1", "@2", "QQString", "ElseBody", "ExpD", "Term", |
| "Args", "Arg", "Pattern", "ArrayPats", "ObjPats", "ObjPat", "Keyword", |
| "MkDict", "MkDictPair", YY_NULLPTR |
| }; |
| #endif |
| |
| # ifdef YYPRINT |
| /* YYTOKNUM[NUM] -- (External) token number corresponding to the |
| (internal) symbol number NUM (which must be that of a token). */ |
| static const yytype_uint16 yytoknum[] = |
| { |
| 0, 256, 257, 258, 259, 260, 261, 262, 263, 264, |
| 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, |
| 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, |
| 285, 286, 287, 288, 289, 290, 291, 292, 293, 294, |
| 295, 296, 297, 298, 299, 300, 124, 44, 61, 60, |
| 62, 43, 45, 42, 47, 37, 301, 63, 59, 40, |
| 41, 36, 58, 46, 91, 93, 123, 125 |
| }; |
| # endif |
| |
| #define YYPACT_NINF -152 |
| |
| #define yypact_value_is_default(Yystate) \ |
| (!!((Yystate) == (-152))) |
| |
| #define YYTABLE_NINF -146 |
| |
| #define yytable_value_is_error(Yytable_value) \ |
| (!!((Yytable_value) == (-146))) |
| |
| /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing |
| STATE-NUM. */ |
| static const yytype_int16 yypact[] = |
| { |
| 22, 828, 42, 46, 9, -2, -152, 27, -152, 55, |
| 828, 871, 871, 828, 20, 0, -152, 828, 466, 23, |
| 276, 439, 341, 1374, 828, -152, 1, -152, 3, 3, |
| 828, 46, 828, -152, -152, -18, 1823, 6, 8, 50, |
| 107, -152, 109, -152, -8, 57, 1209, -152, -152, -152, |
| 114, 27, 65, 61, -152, 1010, -19, 68, -152, -152, |
| -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, |
| -152, -152, -152, -152, -152, -152, -152, 530, 127, 72, |
| 74, 71, 92, 828, 828, 828, 828, 828, 828, 828, |
| 828, 828, 828, 828, 828, 828, 828, 828, 828, 828, |
| 828, 828, 828, 828, 828, 828, 828, -152, -152, 1987, |
| 83, -26, 3, 190, 131, 648, -152, 1987, 828, -152, |
| 1987, -7, -152, -152, 18, 828, 557, -26, -26, 621, |
| 99, -152, 16, -152, -152, -152, -152, -152, -152, 397, |
| -152, 865, 88, 1242, -152, 865, 865, -152, 397, 2053, |
| 336, 336, 2020, 928, 108, 2053, 2053, 2053, 2053, 2053, |
| 2053, 336, 336, 1987, 2020, 2053, 336, 336, -8, -8, |
| 93, 93, 93, -152, 145, -26, 929, 105, 96, 89, |
| 828, 98, 961, 19, -152, 1424, -152, 828, -152, 79, |
| -152, 152, 17, -152, 1474, -152, 1774, 110, 111, -152, |
| -152, 828, -152, 828, -152, 117, -152, 865, 120, 10, |
| 106, 112, 120, 120, -152, -152, -152, -13, 113, 828, |
| 163, 115, -11, -152, 116, 828, -152, -152, 1059, -152, |
| 711, 119, 738, 168, -152, -152, -152, -152, 18, 121, |
| -152, 828, 828, -152, 828, 828, 1987, 1856, -152, 865, |
| 865, 865, -26, -152, -26, 1275, -152, -26, 929, -152, |
| -26, 1987, 124, 125, 1108, -152, -152, 1524, 801, -152, |
| 828, 1905, 1954, 1574, 1624, -152, 120, 120, 120, -152, |
| -152, 122, -152, -152, -152, -152, -152, 128, -152, -152, |
| 1674, 1724, -152, 828, 828, 828, -26, -152, -152, -152, |
| 1774, 1308, 1157, -152, -152, -152, 828, -152, 1341, -152 |
| }; |
| |
| /* YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM. |
| Performed when YYTABLE does not specify something else to do. Zero |
| means the default is an error. */ |
| static const yytype_uint8 yydefact[] = |
| { |
| 4, 0, 0, 6, 105, 81, 96, 98, 73, 0, |
| 0, 0, 0, 0, 0, 0, 60, 0, 0, 0, |
| 0, 0, 0, 0, 0, 97, 47, 1, 0, 0, |
| 8, 6, 0, 77, 62, 0, 0, 0, 0, 18, |
| 0, 75, 0, 64, 32, 0, 0, 104, 103, 84, |
| 0, 0, 83, 0, 101, 0, 0, 154, 126, 127, |
| 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, |
| 138, 139, 140, 141, 142, 143, 144, 0, 0, 152, |
| 0, 0, 146, 0, 0, 0, 0, 0, 0, 0, |
| 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 0, 0, 0, 0, 0, 0, 0, 21, 5, 10, |
| 80, 0, 0, 0, 0, 0, 3, 2, 8, 7, |
| 113, 0, 111, 64, 0, 0, 0, 0, 0, 0, |
| 0, 74, 0, 107, 99, 85, 79, 108, 100, 0, |
| 110, 0, 0, 0, 153, 0, 0, 102, 0, 40, |
| 41, 42, 25, 24, 23, 27, 31, 34, 36, 39, |
| 26, 45, 46, 28, 29, 22, 43, 44, 30, 33, |
| 35, 37, 38, 76, 0, 0, 0, 0, 82, 0, |
| 0, 89, 0, 0, 50, 0, 9, 0, 106, 0, |
| 59, 0, 0, 56, 0, 16, 0, 0, 0, 19, |
| 17, 0, 65, 0, 61, 0, 148, 0, 149, 71, |
| 0, 0, 151, 150, 147, 114, 117, 0, 0, 0, |
| 0, 0, 0, 119, 0, 0, 78, 109, 0, 88, |
| 0, 87, 0, 0, 52, 112, 63, 58, 0, 0, |
| 54, 0, 0, 15, 0, 0, 20, 0, 70, 0, |
| 0, 0, 0, 115, 0, 0, 121, 0, 0, 116, |
| 0, 11, 95, 94, 0, 86, 49, 0, 0, 57, |
| 0, 0, 0, 0, 0, 66, 69, 156, 155, 118, |
| 122, 0, 124, 120, 123, 92, 91, 93, 51, 48, |
| 0, 0, 68, 0, 0, 0, 0, 90, 53, 55, |
| 0, 0, 0, 125, 67, 12, 0, 14, 0, 13 |
| }; |
| |
| /* YYPGOTO[NTERM-NUM]. */ |
| static const yytype_int16 yypgoto[] = |
| { |
| -152, -152, -152, 142, 69, -1, -152, -12, -152, -50, |
| 4, -152, -152, 66, -110, -141, -4, -152, 5, -125, |
| -152, -152, -65, -151, -109, -152 |
| }; |
| |
| /* YYDEFGOTO[NTERM-NUM]. */ |
| static const yytype_int16 yydefgoto[] = |
| { |
| -1, 2, 3, 30, 116, 109, 31, 24, 192, 193, |
| 25, 43, 123, 132, 243, 208, 26, 121, 122, 177, |
| 217, 222, 223, 80, 81, 82 |
| }; |
| |
| /* YYTABLE[YYPACT[STATE-NUM]] -- What to do in state STATE-NUM. If |
| positive, shift that token. If negative, reduce the rule whose |
| number is the opposite. If YYTABLE_NINF, syntax error. */ |
| static const yytype_int16 yytable[] = |
| { |
| 23, 41, 197, 198, 212, 213, 110, 37, 38, 36, |
| 51, 110, 39, 110, 111, 110, 44, 46, 118, 127, |
| 55, 128, 190, 232, 52, 224, 79, 47, 139, 117, |
| 206, 120, 114, 115, 252, 174, 258, 1, 175, 214, |
| 176, 124, 27, 16, 125, 104, 105, 106, 140, 107, |
| 216, 187, 253, 188, 48, 33, 259, 202, 203, 35, |
| 204, 42, 28, 29, 112, 113, 248, 34, 32, 112, |
| 113, 112, 113, 112, 113, 238, 143, 239, 129, 191, |
| 233, 40, 149, 150, 151, 152, 153, 154, 155, 156, |
| 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, |
| 167, 168, 169, 170, 171, 172, 118, 224, 276, 277, |
| 278, 130, 182, 131, 185, 135, 178, 133, 84, 85, |
| 202, 203, 136, 236, 194, 196, 137, 279, 200, 280, |
| 141, 144, 282, 87, 145, 284, 146, 209, 147, 148, |
| 173, 209, 209, 79, 183, 201, 95, 96, 210, 215, |
| 107, 225, 79, 226, 227, 229, 237, 100, 101, 102, |
| 103, 104, 105, 106, 139, 107, 249, 256, 250, 244, |
| 245, 303, 268, 119, 251, 254, 265, 257, 260, 228, |
| 221, 285, 286, 270, 296, 297, 120, 186, 269, 189, |
| 304, 179, 235, 283, 4, 5, 6, 7, 8, 0, |
| 246, 0, 247, 209, 9, 0, 0, 0, 10, 0, |
| 0, 0, 11, 12, 0, 0, 0, 13, 255, 14, |
| 15, 0, 0, 0, 261, 0, 0, 0, 0, 264, |
| 16, 267, 0, 0, 0, 0, 0, 0, 0, 0, |
| 271, 272, 17, 273, 274, 209, 209, 209, 0, 18, |
| 0, 19, 180, 20, 21, 181, 22, 0, 0, 0, |
| 0, 0, 221, 0, 0, 0, 0, 290, 0, 291, |
| 0, 0, 0, 0, 0, 0, -72, 49, 0, 0, |
| 50, -72, 0, 51, 0, -72, -72, -72, -72, -72, |
| 0, 0, 300, 301, 302, -72, -72, -72, 0, 0, |
| -72, -72, -72, 0, -72, 308, 0, 0, -72, -72, |
| -72, -72, -72, -72, -72, -72, 16, 0, 0, -72, |
| 0, 0, -72, -72, -72, -72, -72, -72, -72, -72, |
| -72, -72, 0, -72, -72, 0, -72, 0, -72, -72, |
| -72, -72, 56, -72, 0, 57, -146, -146, 51, 0, |
| 0, 0, 0, 0, 58, 59, 60, 61, 62, 63, |
| 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, |
| 74, 75, 76, 0, -146, -146, 0, 0, 0, 0, |
| 0, 16, 0, 0, 0, -146, -146, 102, 103, 104, |
| 105, 106, 0, 107, 0, 0, 0, 0, 205, 0, |
| 77, 57, 78, 0, 51, 0, 0, 0, -145, 0, |
| 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, |
| 68, 69, 70, 71, 72, 73, 74, 75, 76, 0, |
| 0, 0, 0, 0, 0, 0, 0, 16, 0, 0, |
| 53, 0, 0, 4, 5, 6, 7, 8, 0, 0, |
| 0, 0, 0, 9, 0, 0, 77, 10, 78, 0, |
| 0, 11, 12, 0, -145, 0, 13, 45, 14, 15, |
| 4, 5, 6, 7, 8, 0, 0, 0, 0, 16, |
| 9, 0, 0, 0, 10, 0, 0, 0, 11, 12, |
| 0, 17, 0, 13, 0, 14, 15, 0, 18, 0, |
| 19, 0, 20, 21, 54, 22, 16, 0, 0, 0, |
| 0, 0, 0, 0, 0, 0, 0, 0, 17, 0, |
| 0, 0, 0, 0, 0, 18, 0, 19, 0, 20, |
| 21, 142, 22, 0, 4, 5, 6, 7, 8, 0, |
| 0, 0, 0, 0, 9, 0, 0, 0, 10, 0, |
| 0, 0, 11, 12, 0, 0, 0, 13, 195, 14, |
| 15, 4, 5, 6, 7, 8, 0, 0, 0, 0, |
| 16, 9, 0, 0, 0, 10, 0, 0, 0, 11, |
| 12, 0, 17, 0, 13, 0, 14, 15, 0, 18, |
| 0, 19, 0, 20, 21, 0, 22, 16, 0, 0, |
| 0, 0, 0, 0, 0, 0, 0, 0, 0, 17, |
| 0, 0, 0, 0, 0, 0, 18, 0, 19, 0, |
| 20, 21, 199, 22, 0, 4, 5, 6, 7, 8, |
| 0, 0, 0, 0, 0, 9, 0, 0, 0, 10, |
| 0, 0, 0, 11, 12, 0, 0, 0, 13, 0, |
| 14, 15, 4, 5, 6, 7, 8, 0, 0, 0, |
| 0, 16, 9, 0, 0, 0, 10, 0, 0, 0, |
| 11, 12, 0, 17, 0, 13, 0, 14, 15, 0, |
| 18, 0, 19, 0, 20, 21, 0, 22, 16, 0, |
| 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 17, 0, 0, 0, 0, 0, 184, 18, 0, 19, |
| 0, 20, 21, 0, 22, 4, 5, 6, 7, 8, |
| 0, 0, 0, 0, 0, 9, 0, 0, 0, 10, |
| 0, 0, 0, 11, 12, 0, 0, 0, 13, 0, |
| 14, 15, 4, 5, 6, 7, 8, 0, 0, 0, |
| 0, 16, 9, 0, 0, 0, 10, 0, 0, 0, |
| 11, 12, 0, 17, 0, 13, 0, 14, 15, 0, |
| 18, 0, 19, 0, 20, 21, 263, 22, 16, 0, |
| 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 17, 0, 0, 0, 0, 0, 266, 18, 0, 19, |
| 0, 20, 21, 0, 22, 4, 5, 6, 7, 8, |
| 0, 0, 0, 0, 0, 9, 0, 0, 0, 10, |
| 0, 0, 0, 11, 12, 0, 0, 0, 13, 0, |
| 14, 15, 4, 5, 6, 7, 8, 0, 0, 0, |
| 0, 16, 9, 0, 0, 0, 10, 0, 0, 0, |
| 11, 12, 0, 17, 0, 13, 0, 14, 15, 289, |
| 18, 0, 19, 0, 20, 21, 0, 22, 16, 4, |
| 5, 6, 7, 8, 0, 4, 5, 6, 7, 8, |
| 17, 0, 0, 0, 0, 0, 0, 18, 0, 19, |
| 0, 20, 21, 0, 22, 15, 0, 0, 0, 0, |
| 0, 15, 0, 0, 0, 16, 0, 0, 0, 0, |
| 0, 16, 0, 0, 0, 0, 0, 207, 0, 0, |
| 0, 0, 0, 0, 18, 0, 19, 0, 20, 21, |
| 18, 22, 19, 218, 20, 21, 51, 22, 84, 85, |
| 0, 0, 58, 59, 60, 61, 62, 63, 64, 65, |
| 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, |
| 76, 0, 0, 0, 0, 0, 95, 96, 0, 16, |
| 83, 84, 85, 86, 0, 0, 0, 100, 101, 102, |
| 103, 104, 105, 106, 0, 107, 87, 88, 219, 0, |
| 220, 0, 0, 89, 90, 91, 92, 93, 94, 95, |
| 96, 0, 0, 0, 0, 0, 0, 97, 98, 99, |
| 100, 101, 102, 103, 104, 105, 106, 0, 107, 83, |
| 84, 85, 86, 230, 0, 0, 231, 0, 0, 0, |
| 0, 0, 0, 0, 0, 87, 88, 0, 0, 0, |
| 0, 0, 89, 90, 91, 92, 93, 94, 95, 96, |
| 0, 0, 0, 0, 0, 0, 97, 98, 99, 100, |
| 101, 102, 103, 104, 105, 106, 0, 107, 83, 84, |
| 85, 86, 0, 0, 0, 138, 0, 0, 0, 0, |
| 0, 0, 0, 0, 87, 88, 0, 0, 0, 0, |
| 0, 89, 90, 91, 92, 93, 94, 95, 96, 0, |
| 0, 0, 0, 0, 0, 97, 98, 99, 100, 101, |
| 102, 103, 104, 105, 106, 0, 107, 83, 84, 85, |
| 86, 0, 0, 0, 262, 0, 0, 0, 0, 0, |
| 0, 0, 0, 87, 88, 0, 0, 0, 0, 0, |
| 89, 90, 91, 92, 93, 94, 95, 96, 0, 0, |
| 0, 0, 0, 0, 97, 98, 99, 100, 101, 102, |
| 103, 104, 105, 106, 0, 107, 83, 84, 85, 86, |
| 0, 0, 0, 287, 0, 0, 0, 0, 0, 0, |
| 0, 0, 87, 88, 0, 0, 0, 0, 0, 89, |
| 90, 91, 92, 93, 94, 95, 96, 0, 0, 0, |
| 0, 0, 0, 97, 98, 99, 100, 101, 102, 103, |
| 104, 105, 106, 0, 107, 306, 0, 307, 83, 84, |
| 85, 86, 0, 0, 0, 0, 0, 0, 0, 0, |
| 0, 0, 0, 0, 87, 88, 0, 0, 0, 0, |
| 0, 89, 90, 91, 92, 93, 94, 95, 96, 0, |
| 0, 83, 84, 85, 86, 97, 98, 99, 100, 101, |
| 102, 103, 104, 105, 106, 0, 107, 87, 88, 134, |
| 0, 0, 0, 0, 89, 90, 91, 92, 93, 94, |
| 95, 96, 0, 0, 83, 84, 85, 86, 97, 98, |
| 99, 100, 101, 102, 103, 104, 105, 106, 0, 107, |
| 87, 88, 211, 0, 0, 0, 0, 89, 90, 91, |
| 92, 93, 94, 95, 96, 0, 0, 83, 84, 85, |
| 86, 97, 98, 99, 100, 101, 102, 103, 104, 105, |
| 106, 0, 107, 87, 88, 281, 0, 0, 0, 0, |
| 89, 90, 91, 92, 93, 94, 95, 96, 0, 0, |
| 83, 84, 85, 86, 97, 98, 99, 100, 101, 102, |
| 103, 104, 105, 106, 0, 107, 87, 88, 305, 0, |
| 0, 0, 0, 89, 90, 91, 92, 93, 94, 95, |
| 96, 0, 0, 83, 84, 85, 86, 97, 98, 99, |
| 100, 101, 102, 103, 104, 105, 106, 0, 107, 87, |
| 88, 309, 0, 0, 0, 0, 89, 90, 91, 92, |
| 93, 94, 95, 96, 0, 0, 0, 0, 0, 0, |
| 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, |
| 0, 107, 108, 83, 84, 85, 86, 0, 0, 0, |
| 0, 0, 0, 0, 0, 0, 0, 0, 0, 87, |
| 88, 0, 0, 0, 0, 0, 89, 90, 91, 92, |
| 93, 94, 95, 96, 0, 0, 0, 0, 0, 0, |
| 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, |
| 0, 107, 234, 83, 84, 85, 86, 0, 0, 0, |
| 0, 0, 0, 0, 0, 0, 0, 0, 0, 87, |
| 88, 0, 0, 0, 0, 0, 89, 90, 91, 92, |
| 93, 94, 95, 96, 0, 0, 0, 0, 0, 0, |
| 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, |
| 0, 107, 240, 83, 84, 85, 86, 0, 0, 0, |
| 0, 0, 0, 0, 0, 0, 0, 0, 0, 87, |
| 88, 0, 0, 0, 0, 0, 89, 90, 91, 92, |
| 93, 94, 95, 96, 0, 0, 0, 0, 0, 0, |
| 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, |
| 0, 107, 288, 83, 84, 85, 86, 0, 0, 0, |
| 0, 0, 0, 0, 0, 0, 0, 0, 0, 87, |
| 88, 0, 0, 0, 0, 0, 89, 90, 91, 92, |
| 93, 94, 95, 96, 0, 0, 0, 0, 0, 0, |
| 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, |
| 0, 107, 294, 83, 84, 85, 86, 0, 0, 0, |
| 0, 0, 0, 0, 0, 0, 0, 0, 0, 87, |
| 88, 0, 0, 0, 0, 0, 89, 90, 91, 92, |
| 93, 94, 95, 96, 0, 0, 0, 0, 0, 0, |
| 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, |
| 0, 107, 295, 83, 84, 85, 86, 0, 0, 0, |
| 0, 0, 0, 0, 0, 0, 0, 0, 0, 87, |
| 88, 0, 0, 0, 0, 0, 89, 90, 91, 92, |
| 93, 94, 95, 96, 0, 0, 0, 0, 0, 0, |
| 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, |
| 0, 107, 298, 83, 84, 85, 86, 0, 0, 0, |
| 0, 0, 0, 0, 0, 0, 0, 0, 0, 87, |
| 88, 0, 0, 0, 0, 0, 89, 90, 91, 92, |
| 93, 94, 95, 96, 0, 0, 0, 0, 0, 0, |
| 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, |
| 0, 107, 299, 83, 84, 85, 86, 0, 0, 0, |
| 0, 0, 0, 0, 241, 242, 0, 0, 0, 87, |
| 88, 0, 0, 0, 0, 0, 89, 90, 91, 92, |
| 93, 94, 95, 96, 0, 0, 0, 0, 0, 0, |
| 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, |
| 0, 107, 83, 84, 85, 86, 0, 0, 0, 0, |
| 0, 0, 126, 0, 0, 0, 0, 0, 87, 88, |
| 0, 0, 0, 0, 0, 89, 90, 91, 92, 93, |
| 94, 95, 96, 0, 0, 83, 84, 85, 86, 97, |
| 98, 99, 100, 101, 102, 103, 104, 105, 106, 0, |
| 107, 87, 88, 0, 0, 0, 0, 0, 89, 90, |
| 91, 92, 93, 94, 95, 96, 0, 0, 0, 275, |
| 0, 0, 97, 98, 99, 100, 101, 102, 103, 104, |
| 105, 106, 0, 107, 83, 84, 85, 86, 0, 0, |
| 0, 0, 0, 0, 0, 0, 0, 0, 0, 292, |
| 87, 88, 0, 0, 0, 0, 0, 89, 90, 91, |
| 92, 93, 94, 95, 96, 0, 0, 0, 0, 0, |
| 0, 97, 98, 99, 100, 101, 102, 103, 104, 105, |
| 106, 0, 107, 83, 84, 85, 86, 0, 0, 0, |
| 0, 0, 0, 293, 0, 0, 0, 0, 0, 87, |
| 88, 0, 0, 0, 0, 0, 89, 90, 91, 92, |
| 93, 94, 95, 96, 0, 0, 83, 84, 85, 86, |
| 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, |
| 0, 107, 87, 88, 0, 0, 0, 0, 0, 89, |
| 90, 91, 92, 93, 94, 95, 96, 0, 0, 83, |
| 84, 85, 86, 97, 98, 99, 100, 101, 102, 103, |
| 104, 105, 106, 0, 107, 87, 88, 0, 0, 0, |
| 0, 0, 89, 90, 91, 92, 93, 94, 95, 96, |
| 0, 0, -146, 84, 85, 0, 0, 0, 99, 100, |
| 101, 102, 103, 104, 105, 106, 0, 107, 87, 88, |
| 0, 0, 0, 0, 0, -146, -146, -146, -146, -146, |
| -146, 95, 96, 0, 0, 0, 0, 0, 0, 0, |
| 0, -146, 100, 101, 102, 103, 104, 105, 106, 0, |
| 107 |
| }; |
| |
| static const yytype_int16 yycheck[] = |
| { |
| 1, 1, 127, 128, 145, 146, 5, 11, 12, 10, |
| 7, 5, 13, 5, 13, 5, 17, 18, 30, 13, |
| 21, 13, 4, 4, 20, 176, 22, 4, 47, 30, |
| 139, 32, 28, 29, 47, 61, 47, 15, 64, 148, |
| 66, 59, 0, 40, 62, 53, 54, 55, 67, 57, |
| 175, 58, 65, 60, 31, 57, 67, 41, 42, 4, |
| 44, 61, 16, 17, 63, 64, 207, 40, 59, 63, |
| 64, 63, 64, 63, 64, 58, 77, 60, 28, 61, |
| 61, 61, 83, 84, 85, 86, 87, 88, 89, 90, |
| 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, |
| 101, 102, 103, 104, 105, 106, 118, 258, 249, 250, |
| 251, 4, 113, 4, 115, 1, 112, 60, 10, 11, |
| 41, 42, 57, 44, 125, 126, 65, 252, 129, 254, |
| 62, 4, 257, 25, 62, 260, 62, 141, 67, 47, |
| 57, 145, 146, 139, 13, 46, 38, 39, 60, 4, |
| 57, 46, 148, 57, 65, 57, 4, 49, 50, 51, |
| 52, 53, 54, 55, 47, 57, 46, 4, 62, 59, |
| 59, 296, 4, 31, 62, 62, 57, 62, 62, 180, |
| 176, 57, 57, 62, 62, 57, 187, 118, 238, 123, |
| 300, 1, 187, 258, 4, 5, 6, 7, 8, -1, |
| 201, -1, 203, 207, 14, -1, -1, -1, 18, -1, |
| -1, -1, 22, 23, -1, -1, -1, 27, 219, 29, |
| 30, -1, -1, -1, 225, -1, -1, -1, -1, 230, |
| 40, 232, -1, -1, -1, -1, -1, -1, -1, -1, |
| 241, 242, 52, 244, 245, 249, 250, 251, -1, 59, |
| -1, 61, 62, 63, 64, 65, 66, -1, -1, -1, |
| -1, -1, 258, -1, -1, -1, -1, 268, -1, 270, |
| -1, -1, -1, -1, -1, -1, 0, 1, -1, -1, |
| 4, 5, -1, 7, -1, 9, 10, 11, 12, 13, |
| -1, -1, 293, 294, 295, 19, 20, 21, -1, -1, |
| 24, 25, 26, -1, 28, 306, -1, -1, 32, 33, |
| 34, 35, 36, 37, 38, 39, 40, -1, -1, 43, |
| -1, -1, 46, 47, 48, 49, 50, 51, 52, 53, |
| 54, 55, -1, 57, 58, -1, 60, -1, 62, 63, |
| 64, 65, 1, 67, -1, 4, 10, 11, 7, -1, |
| -1, -1, -1, -1, 13, 14, 15, 16, 17, 18, |
| 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, |
| 29, 30, 31, -1, 38, 39, -1, -1, -1, -1, |
| -1, 40, -1, -1, -1, 49, 50, 51, 52, 53, |
| 54, 55, -1, 57, -1, -1, -1, -1, 1, -1, |
| 59, 4, 61, -1, 7, -1, -1, -1, 67, -1, |
| 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, |
| 23, 24, 25, 26, 27, 28, 29, 30, 31, -1, |
| -1, -1, -1, -1, -1, -1, -1, 40, -1, -1, |
| 1, -1, -1, 4, 5, 6, 7, 8, -1, -1, |
| -1, -1, -1, 14, -1, -1, 59, 18, 61, -1, |
| -1, 22, 23, -1, 67, -1, 27, 1, 29, 30, |
| 4, 5, 6, 7, 8, -1, -1, -1, -1, 40, |
| 14, -1, -1, -1, 18, -1, -1, -1, 22, 23, |
| -1, 52, -1, 27, -1, 29, 30, -1, 59, -1, |
| 61, -1, 63, 64, 65, 66, 40, -1, -1, -1, |
| -1, -1, -1, -1, -1, -1, -1, -1, 52, -1, |
| -1, -1, -1, -1, -1, 59, -1, 61, -1, 63, |
| 64, 1, 66, -1, 4, 5, 6, 7, 8, -1, |
| -1, -1, -1, -1, 14, -1, -1, -1, 18, -1, |
| -1, -1, 22, 23, -1, -1, -1, 27, 1, 29, |
| 30, 4, 5, 6, 7, 8, -1, -1, -1, -1, |
| 40, 14, -1, -1, -1, 18, -1, -1, -1, 22, |
| 23, -1, 52, -1, 27, -1, 29, 30, -1, 59, |
| -1, 61, -1, 63, 64, -1, 66, 40, -1, -1, |
| -1, -1, -1, -1, -1, -1, -1, -1, -1, 52, |
| -1, -1, -1, -1, -1, -1, 59, -1, 61, -1, |
| 63, 64, 1, 66, -1, 4, 5, 6, 7, 8, |
| -1, -1, -1, -1, -1, 14, -1, -1, -1, 18, |
| -1, -1, -1, 22, 23, -1, -1, -1, 27, -1, |
| 29, 30, 4, 5, 6, 7, 8, -1, -1, -1, |
| -1, 40, 14, -1, -1, -1, 18, -1, -1, -1, |
| 22, 23, -1, 52, -1, 27, -1, 29, 30, -1, |
| 59, -1, 61, -1, 63, 64, -1, 66, 40, -1, |
| -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| 52, -1, -1, -1, -1, -1, 58, 59, -1, 61, |
| -1, 63, 64, -1, 66, 4, 5, 6, 7, 8, |
| -1, -1, -1, -1, -1, 14, -1, -1, -1, 18, |
| -1, -1, -1, 22, 23, -1, -1, -1, 27, -1, |
| 29, 30, 4, 5, 6, 7, 8, -1, -1, -1, |
| -1, 40, 14, -1, -1, -1, 18, -1, -1, -1, |
| 22, 23, -1, 52, -1, 27, -1, 29, 30, -1, |
| 59, -1, 61, -1, 63, 64, 65, 66, 40, -1, |
| -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| 52, -1, -1, -1, -1, -1, 58, 59, -1, 61, |
| -1, 63, 64, -1, 66, 4, 5, 6, 7, 8, |
| -1, -1, -1, -1, -1, 14, -1, -1, -1, 18, |
| -1, -1, -1, 22, 23, -1, -1, -1, 27, -1, |
| 29, 30, 4, 5, 6, 7, 8, -1, -1, -1, |
| -1, 40, 14, -1, -1, -1, 18, -1, -1, -1, |
| 22, 23, -1, 52, -1, 27, -1, 29, 30, 58, |
| 59, -1, 61, -1, 63, 64, -1, 66, 40, 4, |
| 5, 6, 7, 8, -1, 4, 5, 6, 7, 8, |
| 52, -1, -1, -1, -1, -1, -1, 59, -1, 61, |
| -1, 63, 64, -1, 66, 30, -1, -1, -1, -1, |
| -1, 30, -1, -1, -1, 40, -1, -1, -1, -1, |
| -1, 40, -1, -1, -1, -1, -1, 52, -1, -1, |
| -1, -1, -1, -1, 59, -1, 61, -1, 63, 64, |
| 59, 66, 61, 4, 63, 64, 7, 66, 10, 11, |
| -1, -1, 13, 14, 15, 16, 17, 18, 19, 20, |
| 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, |
| 31, -1, -1, -1, -1, -1, 38, 39, -1, 40, |
| 9, 10, 11, 12, -1, -1, -1, 49, 50, 51, |
| 52, 53, 54, 55, -1, 57, 25, 26, 59, -1, |
| 61, -1, -1, 32, 33, 34, 35, 36, 37, 38, |
| 39, -1, -1, -1, -1, -1, -1, 46, 47, 48, |
| 49, 50, 51, 52, 53, 54, 55, -1, 57, 9, |
| 10, 11, 12, 62, -1, -1, 65, -1, -1, -1, |
| -1, -1, -1, -1, -1, 25, 26, -1, -1, -1, |
| -1, -1, 32, 33, 34, 35, 36, 37, 38, 39, |
| -1, -1, -1, -1, -1, -1, 46, 47, 48, 49, |
| 50, 51, 52, 53, 54, 55, -1, 57, 9, 10, |
| 11, 12, -1, -1, -1, 65, -1, -1, -1, -1, |
| -1, -1, -1, -1, 25, 26, -1, -1, -1, -1, |
| -1, 32, 33, 34, 35, 36, 37, 38, 39, -1, |
| -1, -1, -1, -1, -1, 46, 47, 48, 49, 50, |
| 51, 52, 53, 54, 55, -1, 57, 9, 10, 11, |
| 12, -1, -1, -1, 65, -1, -1, -1, -1, -1, |
| -1, -1, -1, 25, 26, -1, -1, -1, -1, -1, |
| 32, 33, 34, 35, 36, 37, 38, 39, -1, -1, |
| -1, -1, -1, -1, 46, 47, 48, 49, 50, 51, |
| 52, 53, 54, 55, -1, 57, 9, 10, 11, 12, |
| -1, -1, -1, 65, -1, -1, -1, -1, -1, -1, |
| -1, -1, 25, 26, -1, -1, -1, -1, -1, 32, |
| 33, 34, 35, 36, 37, 38, 39, -1, -1, -1, |
| -1, -1, -1, 46, 47, 48, 49, 50, 51, 52, |
| 53, 54, 55, -1, 57, 58, -1, 60, 9, 10, |
| 11, 12, -1, -1, -1, -1, -1, -1, -1, -1, |
| -1, -1, -1, -1, 25, 26, -1, -1, -1, -1, |
| -1, 32, 33, 34, 35, 36, 37, 38, 39, -1, |
| -1, 9, 10, 11, 12, 46, 47, 48, 49, 50, |
| 51, 52, 53, 54, 55, -1, 57, 25, 26, 60, |
| -1, -1, -1, -1, 32, 33, 34, 35, 36, 37, |
| 38, 39, -1, -1, 9, 10, 11, 12, 46, 47, |
| 48, 49, 50, 51, 52, 53, 54, 55, -1, 57, |
| 25, 26, 60, -1, -1, -1, -1, 32, 33, 34, |
| 35, 36, 37, 38, 39, -1, -1, 9, 10, 11, |
| 12, 46, 47, 48, 49, 50, 51, 52, 53, 54, |
| 55, -1, 57, 25, 26, 60, -1, -1, -1, -1, |
| 32, 33, 34, 35, 36, 37, 38, 39, -1, -1, |
| 9, 10, 11, 12, 46, 47, 48, 49, 50, 51, |
| 52, 53, 54, 55, -1, 57, 25, 26, 60, -1, |
| -1, -1, -1, 32, 33, 34, 35, 36, 37, 38, |
| 39, -1, -1, 9, 10, 11, 12, 46, 47, 48, |
| 49, 50, 51, 52, 53, 54, 55, -1, 57, 25, |
| 26, 60, -1, -1, -1, -1, 32, 33, 34, 35, |
| 36, 37, 38, 39, -1, -1, -1, -1, -1, -1, |
| 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, |
| -1, 57, 58, 9, 10, 11, 12, -1, -1, -1, |
| -1, -1, -1, -1, -1, -1, -1, -1, -1, 25, |
| 26, -1, -1, -1, -1, -1, 32, 33, 34, 35, |
| 36, 37, 38, 39, -1, -1, -1, -1, -1, -1, |
| 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, |
| -1, 57, 58, 9, 10, 11, 12, -1, -1, -1, |
| -1, -1, -1, -1, -1, -1, -1, -1, -1, 25, |
| 26, -1, -1, -1, -1, -1, 32, 33, 34, 35, |
| 36, 37, 38, 39, -1, -1, -1, -1, -1, -1, |
| 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, |
| -1, 57, 58, 9, 10, 11, 12, -1, -1, -1, |
| -1, -1, -1, -1, -1, -1, -1, -1, -1, 25, |
| 26, -1, -1, -1, -1, -1, 32, 33, 34, 35, |
| 36, 37, 38, 39, -1, -1, -1, -1, -1, -1, |
| 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, |
| -1, 57, 58, 9, 10, 11, 12, -1, -1, -1, |
| -1, -1, -1, -1, -1, -1, -1, -1, -1, 25, |
| 26, -1, -1, -1, -1, -1, 32, 33, 34, 35, |
| 36, 37, 38, 39, -1, -1, -1, -1, -1, -1, |
| 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, |
| -1, 57, 58, 9, 10, 11, 12, -1, -1, -1, |
| -1, -1, -1, -1, -1, -1, -1, -1, -1, 25, |
| 26, -1, -1, -1, -1, -1, 32, 33, 34, 35, |
| 36, 37, 38, 39, -1, -1, -1, -1, -1, -1, |
| 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, |
| -1, 57, 58, 9, 10, 11, 12, -1, -1, -1, |
| -1, -1, -1, -1, -1, -1, -1, -1, -1, 25, |
| 26, -1, -1, -1, -1, -1, 32, 33, 34, 35, |
| 36, 37, 38, 39, -1, -1, -1, -1, -1, -1, |
| 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, |
| -1, 57, 58, 9, 10, 11, 12, -1, -1, -1, |
| -1, -1, -1, -1, -1, -1, -1, -1, -1, 25, |
| 26, -1, -1, -1, -1, -1, 32, 33, 34, 35, |
| 36, 37, 38, 39, -1, -1, -1, -1, -1, -1, |
| 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, |
| -1, 57, 58, 9, 10, 11, 12, -1, -1, -1, |
| -1, -1, -1, -1, 20, 21, -1, -1, -1, 25, |
| 26, -1, -1, -1, -1, -1, 32, 33, 34, 35, |
| 36, 37, 38, 39, -1, -1, -1, -1, -1, -1, |
| 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, |
| -1, 57, 9, 10, 11, 12, -1, -1, -1, -1, |
| -1, -1, 19, -1, -1, -1, -1, -1, 25, 26, |
| -1, -1, -1, -1, -1, 32, 33, 34, 35, 36, |
| 37, 38, 39, -1, -1, 9, 10, 11, 12, 46, |
| 47, 48, 49, 50, 51, 52, 53, 54, 55, -1, |
| 57, 25, 26, -1, -1, -1, -1, -1, 32, 33, |
| 34, 35, 36, 37, 38, 39, -1, -1, -1, 43, |
| -1, -1, 46, 47, 48, 49, 50, 51, 52, 53, |
| 54, 55, -1, 57, 9, 10, 11, 12, -1, -1, |
| -1, -1, -1, -1, -1, -1, -1, -1, -1, 24, |
| 25, 26, -1, -1, -1, -1, -1, 32, 33, 34, |
| 35, 36, 37, 38, 39, -1, -1, -1, -1, -1, |
| -1, 46, 47, 48, 49, 50, 51, 52, 53, 54, |
| 55, -1, 57, 9, 10, 11, 12, -1, -1, -1, |
| -1, -1, -1, 19, -1, -1, -1, -1, -1, 25, |
| 26, -1, -1, -1, -1, -1, 32, 33, 34, 35, |
| 36, 37, 38, 39, -1, -1, 9, 10, 11, 12, |
| 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, |
| -1, 57, 25, 26, -1, -1, -1, -1, -1, 32, |
| 33, 34, 35, 36, 37, 38, 39, -1, -1, 9, |
| 10, 11, 12, 46, 47, 48, 49, 50, 51, 52, |
| 53, 54, 55, -1, 57, 25, 26, -1, -1, -1, |
| -1, -1, 32, 33, 34, 35, 36, 37, 38, 39, |
| -1, -1, 9, 10, 11, -1, -1, -1, 48, 49, |
| 50, 51, 52, 53, 54, 55, -1, 57, 25, 26, |
| -1, -1, -1, -1, -1, 32, 33, 34, 35, 36, |
| 37, 38, 39, -1, -1, -1, -1, -1, -1, -1, |
| -1, 48, 49, 50, 51, 52, 53, 54, 55, -1, |
| 57 |
| }; |
| |
| /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing |
| symbol of state STATE-NUM. */ |
| static const yytype_uint8 yystos[] = |
| { |
| 0, 15, 69, 70, 4, 5, 6, 7, 8, 14, |
| 18, 22, 23, 27, 29, 30, 40, 52, 59, 61, |
| 63, 64, 66, 73, 75, 78, 84, 0, 16, 17, |
| 71, 74, 59, 57, 40, 4, 73, 84, 84, 73, |
| 61, 1, 61, 79, 73, 1, 73, 4, 31, 1, |
| 4, 7, 78, 1, 65, 73, 1, 4, 13, 14, |
| 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, |
| 25, 26, 27, 28, 29, 30, 31, 59, 61, 78, |
| 91, 92, 93, 9, 10, 11, 12, 25, 26, 32, |
| 33, 34, 35, 36, 37, 38, 39, 46, 47, 48, |
| 49, 50, 51, 52, 53, 54, 55, 57, 58, 73, |
| 5, 13, 63, 64, 78, 78, 72, 73, 75, 71, |
| 73, 85, 86, 80, 59, 62, 19, 13, 13, 28, |
| 4, 4, 81, 60, 60, 1, 57, 65, 65, 47, |
| 67, 62, 1, 73, 4, 62, 62, 67, 47, 73, |
| 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, |
| 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, |
| 73, 73, 73, 57, 61, 64, 66, 87, 78, 1, |
| 62, 65, 73, 13, 58, 73, 72, 58, 60, 81, |
| 4, 61, 76, 77, 73, 1, 73, 87, 87, 1, |
| 73, 46, 41, 42, 44, 1, 92, 52, 83, 84, |
| 60, 60, 83, 83, 92, 4, 87, 88, 4, 59, |
| 61, 78, 89, 90, 91, 46, 57, 65, 73, 57, |
| 62, 65, 4, 61, 58, 86, 44, 4, 58, 60, |
| 58, 20, 21, 82, 59, 59, 73, 73, 83, 46, |
| 62, 62, 47, 65, 62, 73, 4, 62, 47, 67, |
| 62, 73, 65, 65, 73, 57, 58, 73, 4, 77, |
| 62, 73, 73, 73, 73, 43, 83, 83, 83, 87, |
| 87, 60, 87, 90, 87, 57, 57, 65, 58, 58, |
| 73, 73, 24, 19, 58, 58, 62, 57, 58, 58, |
| 73, 73, 73, 87, 82, 60, 58, 60, 73, 60 |
| }; |
| |
| /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */ |
| static const yytype_uint8 yyr1[] = |
| { |
| 0, 68, 69, 69, 70, 70, 71, 71, 72, 72, |
| 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, |
| 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, |
| 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, |
| 73, 73, 73, 73, 73, 73, 73, 73, 74, 74, |
| 74, 74, 74, 74, 75, 75, 76, 76, 77, 77, |
| 79, 78, 80, 78, 81, 81, 81, 82, 82, 83, |
| 83, 83, 84, 84, 84, 84, 84, 84, 84, 84, |
| 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, |
| 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, |
| 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, |
| 84, 85, 85, 86, 87, 87, 87, 88, 88, 89, |
| 89, 90, 90, 90, 90, 90, 91, 91, 91, 91, |
| 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, |
| 91, 91, 91, 91, 91, 92, 92, 92, 92, 93, |
| 93, 93, 93, 93, 93, 93, 93 |
| }; |
| |
| /* YYR2[YYN] -- Number of symbols on the right hand side of rule YYN. */ |
| static const yytype_uint8 yyr2[] = |
| { |
| 0, 2, 3, 3, 0, 3, 0, 2, 0, 2, |
| 2, 5, 9, 11, 9, 5, 4, 4, 2, 4, |
| 5, 2, 3, 3, 3, 3, 3, 3, 3, 3, |
| 3, 3, 2, 3, 3, 3, 3, 3, 3, 3, |
| 3, 3, 3, 3, 3, 3, 3, 1, 6, 5, |
| 3, 6, 4, 7, 5, 8, 1, 3, 2, 1, |
| 0, 4, 0, 5, 0, 2, 4, 5, 3, 3, |
| 2, 1, 1, 1, 3, 2, 3, 2, 4, 3, |
| 2, 1, 3, 2, 2, 3, 5, 4, 4, 3, |
| 7, 6, 6, 6, 5, 5, 1, 1, 1, 3, |
| 3, 2, 3, 2, 2, 1, 4, 3, 3, 4, |
| 3, 1, 3, 1, 2, 3, 3, 1, 3, 1, |
| 3, 2, 3, 3, 3, 5, 1, 1, 1, 1, |
| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, |
| 1, 1, 1, 1, 1, 0, 1, 3, 3, 3, |
| 3, 3, 1, 2, 1, 5, 5 |
| }; |
| |
| |
| #define yyerrok (yyerrstatus = 0) |
| #define yyclearin (yychar = YYEMPTY) |
| #define YYEMPTY (-2) |
| #define YYEOF 0 |
| |
| #define YYACCEPT goto yyacceptlab |
| #define YYABORT goto yyabortlab |
| #define YYERROR goto yyerrorlab |
| |
| |
| #define YYRECOVERING() (!!yyerrstatus) |
| |
| #define YYBACKUP(Token, Value) \ |
| do \ |
| if (yychar == YYEMPTY) \ |
| { \ |
| yychar = (Token); \ |
| yylval = (Value); \ |
| YYPOPSTACK (yylen); \ |
| yystate = *yyssp; \ |
| goto yybackup; \ |
| } \ |
| else \ |
| { \ |
| yyerror (&yylloc, answer, errors, locations, lexer_param_ptr, YY_("syntax error: cannot back up")); \ |
| YYERROR; \ |
| } \ |
| while (0) |
| |
| /* Error token number */ |
| #define YYTERROR 1 |
| #define YYERRCODE 256 |
| |
| |
| /* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N]. |
| If N is 0, then set CURRENT to the empty location which ends |
| the previous symbol: RHS[0] (always defined). */ |
| |
| #ifndef YYLLOC_DEFAULT |
| # define YYLLOC_DEFAULT(Current, Rhs, N) \ |
| do \ |
| if (N) \ |
| { \ |
| (Current).first_line = YYRHSLOC (Rhs, 1).first_line; \ |
| (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \ |
| (Current).last_line = YYRHSLOC (Rhs, N).last_line; \ |
| (Current).last_column = YYRHSLOC (Rhs, N).last_column; \ |
| } \ |
| else \ |
| { \ |
| (Current).first_line = (Current).last_line = \ |
| YYRHSLOC (Rhs, 0).last_line; \ |
| (Current).first_column = (Current).last_column = \ |
| YYRHSLOC (Rhs, 0).last_column; \ |
| } \ |
| while (0) |
| #endif |
| |
| #define YYRHSLOC(Rhs, K) ((Rhs)[K]) |
| |
| |
| /* Enable debugging if requested. */ |
| #if YYDEBUG |
| |
| # ifndef YYFPRINTF |
| # include <stdio.h> /* INFRINGES ON USER NAME SPACE */ |
| # define YYFPRINTF fprintf |
| # endif |
| |
| # define YYDPRINTF(Args) \ |
| do { \ |
| if (yydebug) \ |
| YYFPRINTF Args; \ |
| } while (0) |
| |
| |
| /* YY_LOCATION_PRINT -- Print the location on the stream. |
| This macro was not mandated originally: define only if we know |
| we won't break user code: when these are the locations we know. */ |
| |
| #ifndef YY_LOCATION_PRINT |
| # if defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL |
| |
| /* Print *YYLOCP on YYO. Private, do not rely on its existence. */ |
| |
| YY_ATTRIBUTE_UNUSED |
| static unsigned |
| yy_location_print_ (FILE *yyo, YYLTYPE const * const yylocp) |
| { |
| unsigned res = 0; |
| int end_col = 0 != yylocp->last_column ? yylocp->last_column - 1 : 0; |
| if (0 <= yylocp->first_line) |
| { |
| res += YYFPRINTF (yyo, "%d", yylocp->first_line); |
| if (0 <= yylocp->first_column) |
| res += YYFPRINTF (yyo, ".%d", yylocp->first_column); |
| } |
| if (0 <= yylocp->last_line) |
| { |
| if (yylocp->first_line < yylocp->last_line) |
| { |
| res += YYFPRINTF (yyo, "-%d", yylocp->last_line); |
| if (0 <= end_col) |
| res += YYFPRINTF (yyo, ".%d", end_col); |
| } |
| else if (0 <= end_col && yylocp->first_column < end_col) |
| res += YYFPRINTF (yyo, "-%d", end_col); |
| } |
| return res; |
| } |
| |
| # define YY_LOCATION_PRINT(File, Loc) \ |
| yy_location_print_ (File, &(Loc)) |
| |
| # else |
| # define YY_LOCATION_PRINT(File, Loc) ((void) 0) |
| # endif |
| #endif |
| |
| |
| # define YY_SYMBOL_PRINT(Title, Type, Value, Location) \ |
| do { \ |
| if (yydebug) \ |
| { \ |
| YYFPRINTF (stderr, "%s ", Title); \ |
| yy_symbol_print (stderr, \ |
| Type, Value, Location, answer, errors, locations, lexer_param_ptr); \ |
| YYFPRINTF (stderr, "\n"); \ |
| } \ |
| } while (0) |
| |
| |
| /*----------------------------------------. |
| | Print this symbol's value on YYOUTPUT. | |
| `----------------------------------------*/ |
| |
| static void |
| yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep, YYLTYPE const * const yylocationp, block* answer, int* errors, struct locfile* locations, struct lexer_param* lexer_param_ptr) |
| { |
| FILE *yyo = yyoutput; |
| YYUSE (yyo); |
| YYUSE (yylocationp); |
| YYUSE (answer); |
| YYUSE (errors); |
| YYUSE (locations); |
| YYUSE (lexer_param_ptr); |
| if (!yyvaluep) |
| return; |
| # ifdef YYPRINT |
| if (yytype < YYNTOKENS) |
| YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep); |
| # endif |
| YYUSE (yytype); |
| } |
| |
| |
| /*--------------------------------. |
| | Print this symbol on YYOUTPUT. | |
| `--------------------------------*/ |
| |
| static void |
| yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep, YYLTYPE const * const yylocationp, block* answer, int* errors, struct locfile* locations, struct lexer_param* lexer_param_ptr) |
| { |
| YYFPRINTF (yyoutput, "%s %s (", |
| yytype < YYNTOKENS ? "token" : "nterm", yytname[yytype]); |
| |
| YY_LOCATION_PRINT (yyoutput, *yylocationp); |
| YYFPRINTF (yyoutput, ": "); |
| yy_symbol_value_print (yyoutput, yytype, yyvaluep, yylocationp, answer, errors, locations, lexer_param_ptr); |
| YYFPRINTF (yyoutput, ")"); |
| } |
| |
| /*------------------------------------------------------------------. |
| | yy_stack_print -- Print the state stack from its BOTTOM up to its | |
| | TOP (included). | |
| `------------------------------------------------------------------*/ |
| |
| static void |
| yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop) |
| { |
| YYFPRINTF (stderr, "Stack now"); |
| for (; yybottom <= yytop; yybottom++) |
| { |
| int yybot = *yybottom; |
| YYFPRINTF (stderr, " %d", yybot); |
| } |
| YYFPRINTF (stderr, "\n"); |
| } |
| |
| # define YY_STACK_PRINT(Bottom, Top) \ |
| do { \ |
| if (yydebug) \ |
| yy_stack_print ((Bottom), (Top)); \ |
| } while (0) |
| |
| |
| /*------------------------------------------------. |
| | Report that the YYRULE is going to be reduced. | |
| `------------------------------------------------*/ |
| |
| static void |
| yy_reduce_print (yytype_int16 *yyssp, YYSTYPE *yyvsp, YYLTYPE *yylsp, int yyrule, block* answer, int* errors, struct locfile* locations, struct lexer_param* lexer_param_ptr) |
| { |
| unsigned long int yylno = yyrline[yyrule]; |
| int yynrhs = yyr2[yyrule]; |
| int yyi; |
| YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n", |
| yyrule - 1, yylno); |
| /* The symbols being reduced. */ |
| for (yyi = 0; yyi < yynrhs; yyi++) |
| { |
| YYFPRINTF (stderr, " $%d = ", yyi + 1); |
| yy_symbol_print (stderr, |
| yystos[yyssp[yyi + 1 - yynrhs]], |
| &(yyvsp[(yyi + 1) - (yynrhs)]) |
| , &(yylsp[(yyi + 1) - (yynrhs)]) , answer, errors, locations, lexer_param_ptr); |
| YYFPRINTF (stderr, "\n"); |
| } |
| } |
| |
| # define YY_REDUCE_PRINT(Rule) \ |
| do { \ |
| if (yydebug) \ |
| yy_reduce_print (yyssp, yyvsp, yylsp, Rule, answer, errors, locations, lexer_param_ptr); \ |
| } while (0) |
| |
| /* Nonzero means print parse trace. It is left uninitialized so that |
| multiple parsers can coexist. */ |
| int yydebug; |
| #else /* !YYDEBUG */ |
| # define YYDPRINTF(Args) |
| # define YY_SYMBOL_PRINT(Title, Type, Value, Location) |
| # define YY_STACK_PRINT(Bottom, Top) |
| # define YY_REDUCE_PRINT(Rule) |
| #endif /* !YYDEBUG */ |
| |
| |
| /* YYINITDEPTH -- initial size of the parser's stacks. */ |
| #ifndef YYINITDEPTH |
| # define YYINITDEPTH 200 |
| #endif |
| |
| /* YYMAXDEPTH -- maximum size the stacks can grow to (effective only |
| if the built-in stack extension method is used). |
| |
| Do not make this value too large; the results are undefined if |
| YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH) |
| evaluated with infinite-precision integer arithmetic. */ |
| |
| #ifndef YYMAXDEPTH |
| # define YYMAXDEPTH 10000 |
| #endif |
| |
| |
| #if YYERROR_VERBOSE |
| |
| # ifndef yystrlen |
| # if defined __GLIBC__ && defined _STRING_H |
| # define yystrlen strlen |
| # else |
| /* Return the length of YYSTR. */ |
| static YYSIZE_T |
| yystrlen (const char *yystr) |
| { |
| YYSIZE_T yylen; |
| for (yylen = 0; yystr[yylen]; yylen++) |
| continue; |
| return yylen; |
| } |
| # endif |
| # endif |
| |
| # ifndef yystpcpy |
| # if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE |
| # define yystpcpy stpcpy |
| # else |
| /* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in |
| YYDEST. */ |
| static char * |
| yystpcpy (char *yydest, const char *yysrc) |
| { |
| char *yyd = yydest; |
| const char *yys = yysrc; |
| |
| while ((*yyd++ = *yys++) != '\0') |
| continue; |
| |
| return yyd - 1; |
| } |
| # endif |
| # endif |
| |
| # ifndef yytnamerr |
| /* Copy to YYRES the contents of YYSTR after stripping away unnecessary |
| quotes and backslashes, so that it's suitable for yyerror. The |
| heuristic is that double-quoting is unnecessary unless the string |
| contains an apostrophe, a comma, or backslash (other than |
| backslash-backslash). YYSTR is taken from yytname. If YYRES is |
| null, do not copy; instead, return the length of what the result |
| would have been. */ |
| static YYSIZE_T |
| yytnamerr (char *yyres, const char *yystr) |
| { |
| if (*yystr == '"') |
| { |
| YYSIZE_T yyn = 0; |
| char const *yyp = yystr; |
| |
| for (;;) |
| switch (*++yyp) |
| { |
| case '\'': |
| case ',': |
| goto do_not_strip_quotes; |
| |
| case '\\': |
| if (*++yyp != '\\') |
| goto do_not_strip_quotes; |
| /* Fall through. */ |
| default: |
| if (yyres) |
| yyres[yyn] = *yyp; |
| yyn++; |
| break; |
| |
| case '"': |
| if (yyres) |
| yyres[yyn] = '\0'; |
| return yyn; |
| } |
| do_not_strip_quotes: ; |
| } |
| |
| if (! yyres) |
| return yystrlen (yystr); |
| |
| return yystpcpy (yyres, yystr) - yyres; |
| } |
| # endif |
| |
| /* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message |
| about the unexpected token YYTOKEN for the state stack whose top is |
| YYSSP. |
| |
| Return 0 if *YYMSG was successfully written. Return 1 if *YYMSG is |
| not large enough to hold the message. In that case, also set |
| *YYMSG_ALLOC to the required number of bytes. Return 2 if the |
| required number of bytes is too large to store. */ |
| static int |
| yysyntax_error (YYSIZE_T *yymsg_alloc, char **yymsg, |
| yytype_int16 *yyssp, int yytoken) |
| { |
| YYSIZE_T yysize0 = yytnamerr (YY_NULLPTR, yytname[yytoken]); |
| YYSIZE_T yysize = yysize0; |
| enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 }; |
| /* Internationalized format string. */ |
| const char *yyformat = YY_NULLPTR; |
| /* Arguments of yyformat. */ |
| char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM]; |
| /* Number of reported tokens (one for the "unexpected", one per |
| "expected"). */ |
| int yycount = 0; |
| |
| /* There are many possibilities here to consider: |
| - If this state is a consistent state with a default action, then |
| the only way this function was invoked is if the default action |
| is an error action. In that case, don't check for expected |
| tokens because there are none. |
| - The only way there can be no lookahead present (in yychar) is if |
| this state is a consistent state with a default action. Thus, |
| detecting the absence of a lookahead is sufficient to determine |
| that there is no unexpected or expected token to report. In that |
| case, just report a simple "syntax error". |
| - Don't assume there isn't a lookahead just because this state is a |
| consistent state with a default action. There might have been a |
| previous inconsistent state, consistent state with a non-default |
| action, or user semantic action that manipulated yychar. |
| - Of course, the expected token list depends on states to have |
| correct lookahead information, and it depends on the parser not |
| to perform extra reductions after fetching a lookahead from the |
| scanner and before detecting a syntax error. Thus, state merging |
| (from LALR or IELR) and default reductions corrupt the expected |
| token list. However, the list is correct for canonical LR with |
| one exception: it will still contain any token that will not be |
| accepted due to an error action in a later state. |
| */ |
| if (yytoken != YYEMPTY) |
| { |
| int yyn = yypact[*yyssp]; |
| yyarg[yycount++] = yytname[yytoken]; |
| if (!yypact_value_is_default (yyn)) |
| { |
| /* Start YYX at -YYN if negative to avoid negative indexes in |
| YYCHECK. In other words, skip the first -YYN actions for |
| this state because they are default actions. */ |
| int yyxbegin = yyn < 0 ? -yyn : 0; |
| /* Stay within bounds of both yycheck and yytname. */ |
| int yychecklim = YYLAST - yyn + 1; |
| int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS; |
| int yyx; |
| |
| for (yyx = yyxbegin; yyx < yyxend; ++yyx) |
| if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR |
| && !yytable_value_is_error (yytable[yyx + yyn])) |
| { |
| if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM) |
| { |
| yycount = 1; |
| yysize = yysize0; |
| break; |
| } |
| yyarg[yycount++] = yytname[yyx]; |
| { |
| YYSIZE_T yysize1 = yysize + yytnamerr (YY_NULLPTR, yytname[yyx]); |
| if (! (yysize <= yysize1 |
| && yysize1 <= YYSTACK_ALLOC_MAXIMUM)) |
| return 2; |
| yysize = yysize1; |
| } |
| } |
| } |
| } |
| |
| switch (yycount) |
| { |
| # define YYCASE_(N, S) \ |
| case N: \ |
| yyformat = S; \ |
| break |
| YYCASE_(0, YY_("syntax error")); |
| YYCASE_(1, YY_("syntax error, unexpected %s")); |
| YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s")); |
| YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s")); |
| YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s")); |
| YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s")); |
| # undef YYCASE_ |
| } |
| |
| { |
| YYSIZE_T yysize1 = yysize + yystrlen (yyformat); |
| if (! (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM)) |
| return 2; |
| yysize = yysize1; |
| } |
| |
| if (*yymsg_alloc < yysize) |
| { |
| *yymsg_alloc = 2 * yysize; |
| if (! (yysize <= *yymsg_alloc |
| && *yymsg_alloc <= YYSTACK_ALLOC_MAXIMUM)) |
| *yymsg_alloc = YYSTACK_ALLOC_MAXIMUM; |
| return 1; |
| } |
| |
| /* Avoid sprintf, as that infringes on the user's name space. |
| Don't have undefined behavior even if the translation |
| produced a string with the wrong number of "%s"s. */ |
| { |
| char *yyp = *yymsg; |
| int yyi = 0; |
| while ((*yyp = *yyformat) != '\0') |
| if (*yyp == '%' && yyformat[1] == 's' && yyi < yycount) |
| { |
| yyp += yytnamerr (yyp, yyarg[yyi++]); |
| yyformat += 2; |
| } |
| else |
| { |
| yyp++; |
| yyformat++; |
| } |
| } |
| return 0; |
| } |
| #endif /* YYERROR_VERBOSE */ |
| |
| /*-----------------------------------------------. |
| | Release the memory associated to this symbol. | |
| `-----------------------------------------------*/ |
| |
| static void |
| yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep, YYLTYPE *yylocationp, block* answer, int* errors, struct locfile* locations, struct lexer_param* lexer_param_ptr) |
| { |
| YYUSE (yyvaluep); |
| YYUSE (yylocationp); |
| YYUSE (answer); |
| YYUSE (errors); |
| YYUSE (locations); |
| YYUSE (lexer_param_ptr); |
| if (!yymsg) |
| yymsg = "Deleting"; |
| YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp); |
| |
| YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN |
| switch (yytype) |
| { |
| case 4: /* IDENT */ |
| #line 36 "parser.y" /* yacc.c:1257 */ |
| { jv_free(((*yyvaluep).literal)); } |
| #line 1892 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 5: /* FIELD */ |
| #line 36 "parser.y" /* yacc.c:1257 */ |
| { jv_free(((*yyvaluep).literal)); } |
| #line 1898 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 6: /* LITERAL */ |
| #line 36 "parser.y" /* yacc.c:1257 */ |
| { jv_free(((*yyvaluep).literal)); } |
| #line 1904 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 7: /* FORMAT */ |
| #line 36 "parser.y" /* yacc.c:1257 */ |
| { jv_free(((*yyvaluep).literal)); } |
| #line 1910 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 41: /* QQSTRING_TEXT */ |
| #line 36 "parser.y" /* yacc.c:1257 */ |
| { jv_free(((*yyvaluep).literal)); } |
| #line 1916 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 70: /* Module */ |
| #line 37 "parser.y" /* yacc.c:1257 */ |
| { block_free(((*yyvaluep).blk)); } |
| #line 1922 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 71: /* Imports */ |
| #line 37 "parser.y" /* yacc.c:1257 */ |
| { block_free(((*yyvaluep).blk)); } |
| #line 1928 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 72: /* FuncDefs */ |
| #line 37 "parser.y" /* yacc.c:1257 */ |
| { block_free(((*yyvaluep).blk)); } |
| #line 1934 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 73: /* Exp */ |
| #line 37 "parser.y" /* yacc.c:1257 */ |
| { block_free(((*yyvaluep).blk)); } |
| #line 1940 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 74: /* Import */ |
| #line 37 "parser.y" /* yacc.c:1257 */ |
| { block_free(((*yyvaluep).blk)); } |
| #line 1946 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 75: /* FuncDef */ |
| #line 37 "parser.y" /* yacc.c:1257 */ |
| { block_free(((*yyvaluep).blk)); } |
| #line 1952 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 76: /* Params */ |
| #line 37 "parser.y" /* yacc.c:1257 */ |
| { block_free(((*yyvaluep).blk)); } |
| #line 1958 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 77: /* Param */ |
| #line 37 "parser.y" /* yacc.c:1257 */ |
| { block_free(((*yyvaluep).blk)); } |
| #line 1964 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 78: /* String */ |
| #line 37 "parser.y" /* yacc.c:1257 */ |
| { block_free(((*yyvaluep).blk)); } |
| #line 1970 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 81: /* QQString */ |
| #line 37 "parser.y" /* yacc.c:1257 */ |
| { block_free(((*yyvaluep).blk)); } |
| #line 1976 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 82: /* ElseBody */ |
| #line 37 "parser.y" /* yacc.c:1257 */ |
| { block_free(((*yyvaluep).blk)); } |
| #line 1982 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 83: /* ExpD */ |
| #line 37 "parser.y" /* yacc.c:1257 */ |
| { block_free(((*yyvaluep).blk)); } |
| #line 1988 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 84: /* Term */ |
| #line 37 "parser.y" /* yacc.c:1257 */ |
| { block_free(((*yyvaluep).blk)); } |
| #line 1994 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 85: /* Args */ |
| #line 37 "parser.y" /* yacc.c:1257 */ |
| { block_free(((*yyvaluep).blk)); } |
| #line 2000 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 86: /* Arg */ |
| #line 37 "parser.y" /* yacc.c:1257 */ |
| { block_free(((*yyvaluep).blk)); } |
| #line 2006 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 87: /* Pattern */ |
| #line 37 "parser.y" /* yacc.c:1257 */ |
| { block_free(((*yyvaluep).blk)); } |
| #line 2012 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 88: /* ArrayPats */ |
| #line 37 "parser.y" /* yacc.c:1257 */ |
| { block_free(((*yyvaluep).blk)); } |
| #line 2018 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 89: /* ObjPats */ |
| #line 37 "parser.y" /* yacc.c:1257 */ |
| { block_free(((*yyvaluep).blk)); } |
| #line 2024 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 90: /* ObjPat */ |
| #line 37 "parser.y" /* yacc.c:1257 */ |
| { block_free(((*yyvaluep).blk)); } |
| #line 2030 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 91: /* Keyword */ |
| #line 36 "parser.y" /* yacc.c:1257 */ |
| { jv_free(((*yyvaluep).literal)); } |
| #line 2036 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 92: /* MkDict */ |
| #line 37 "parser.y" /* yacc.c:1257 */ |
| { block_free(((*yyvaluep).blk)); } |
| #line 2042 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| case 93: /* MkDictPair */ |
| #line 37 "parser.y" /* yacc.c:1257 */ |
| { block_free(((*yyvaluep).blk)); } |
| #line 2048 "parser.c" /* yacc.c:1257 */ |
| break; |
| |
| |
| default: |
| break; |
| } |
| YY_IGNORE_MAYBE_UNINITIALIZED_END |
| } |
| |
| |
| |
| |
| /*----------. |
| | yyparse. | |
| `----------*/ |
| |
| int |
| yyparse (block* answer, int* errors, struct locfile* locations, struct lexer_param* lexer_param_ptr) |
| { |
| /* The lookahead symbol. */ |
| int yychar; |
| |
| |
| /* The semantic value of the lookahead symbol. */ |
| /* Default value used for initialization, for pacifying older GCCs |
| or non-GCC compilers. */ |
| YY_INITIAL_VALUE (static YYSTYPE yyval_default;) |
| YYSTYPE yylval YY_INITIAL_VALUE (= yyval_default); |
| |
| /* Location data for the lookahead symbol. */ |
| static YYLTYPE yyloc_default |
| # if defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL |
| = { 1, 1, 1, 1 } |
| # endif |
| ; |
| YYLTYPE yylloc = yyloc_default; |
| |
| /* Number of syntax errors so far. */ |
| int yynerrs; |
| |
| int yystate; |
| /* Number of tokens to shift before error messages enabled. */ |
| int yyerrstatus; |
| |
| /* The stacks and their tools: |
| 'yyss': related to states. |
| 'yyvs': related to semantic values. |
| 'yyls': related to locations. |
| |
| Refer to the stacks through separate pointers, to allow yyoverflow |
| to reallocate them elsewhere. */ |
| |
| /* The state stack. */ |
| yytype_int16 yyssa[YYINITDEPTH]; |
| yytype_int16 *yyss; |
| yytype_int16 *yyssp; |
| |
| /* The semantic value stack. */ |
| YYSTYPE yyvsa[YYINITDEPTH]; |
| YYSTYPE *yyvs; |
| YYSTYPE *yyvsp; |
| |
| /* The location stack. */ |
| YYLTYPE yylsa[YYINITDEPTH]; |
| YYLTYPE *yyls; |
| YYLTYPE *yylsp; |
| |
| /* The locations where the error started and ended. */ |
| YYLTYPE yyerror_range[3]; |
| |
| YYSIZE_T yystacksize; |
| |
| int yyn; |
| int yyresult; |
| /* Lookahead token as an internal (translated) token number. */ |
| int yytoken = 0; |
| /* The variables used to return semantic value and location from the |
| action routines. */ |
| YYSTYPE yyval; |
| YYLTYPE yyloc; |
| |
| #if YYERROR_VERBOSE |
| /* Buffer for error messages, and its allocated size. */ |
| char yymsgbuf[128]; |
| char *yymsg = yymsgbuf; |
| YYSIZE_T yymsg_alloc = sizeof yymsgbuf; |
| #endif |
| |
| #define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N), yylsp -= (N)) |
| |
| /* The number of symbols on the RHS of the reduced rule. |
| Keep to zero when no symbol should be popped. */ |
| int yylen = 0; |
| |
| yyssp = yyss = yyssa; |
| yyvsp = yyvs = yyvsa; |
| yylsp = yyls = yylsa; |
| yystacksize = YYINITDEPTH; |
| |
| YYDPRINTF ((stderr, "Starting parse\n")); |
| |
| yystate = 0; |
| yyerrstatus = 0; |
| yynerrs = 0; |
| yychar = YYEMPTY; /* Cause a token to be read. */ |
| yylsp[0] = yylloc; |
| goto yysetstate; |
| |
| /*------------------------------------------------------------. |
| | yynewstate -- Push a new state, which is found in yystate. | |
| `------------------------------------------------------------*/ |
| yynewstate: |
| /* In all cases, when you get here, the value and location stacks |
| have just been pushed. So pushing a state here evens the stacks. */ |
| yyssp++; |
| |
| yysetstate: |
| *yyssp = yystate; |
| |
| if (yyss + yystacksize - 1 <= yyssp) |
| { |
| /* Get the current used size of the three stacks, in elements. */ |
| YYSIZE_T yysize = yyssp - yyss + 1; |
| |
| #ifdef yyoverflow |
| { |
| /* Give user a chance to reallocate the stack. Use copies of |
| these so that the &'s don't force the real ones into |
| memory. */ |
| YYSTYPE *yyvs1 = yyvs; |
| yytype_int16 *yyss1 = yyss; |
| YYLTYPE *yyls1 = yyls; |
| |
| /* Each stack pointer address is followed by the size of the |
| data in use in that stack, in bytes. This used to be a |
| conditional around just the two extra args, but that might |
| be undefined if yyoverflow is a macro. */ |
| yyoverflow (YY_("memory exhausted"), |
| &yyss1, yysize * sizeof (*yyssp), |
| &yyvs1, yysize * sizeof (*yyvsp), |
| &yyls1, yysize * sizeof (*yylsp), |
| &yystacksize); |
| |
| yyls = yyls1; |
| yyss = yyss1; |
| yyvs = yyvs1; |
| } |
| #else /* no yyoverflow */ |
| # ifndef YYSTACK_RELOCATE |
| goto yyexhaustedlab; |
| # else |
| /* Extend the stack our own way. */ |
| if (YYMAXDEPTH <= yystacksize) |
| goto yyexhaustedlab; |
| yystacksize *= 2; |
| if (YYMAXDEPTH < yystacksize) |
| yystacksize = YYMAXDEPTH; |
| |
| { |
| yytype_int16 *yyss1 = yyss; |
| union yyalloc *yyptr = |
| (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize)); |
| if (! yyptr) |
| goto yyexhaustedlab; |
| YYSTACK_RELOCATE (yyss_alloc, yyss); |
| YYSTACK_RELOCATE (yyvs_alloc, yyvs); |
| YYSTACK_RELOCATE (yyls_alloc, yyls); |
| # undef YYSTACK_RELOCATE |
| if (yyss1 != yyssa) |
| YYSTACK_FREE (yyss1); |
| } |
| # endif |
| #endif /* no yyoverflow */ |
| |
| yyssp = yyss + yysize - 1; |
| yyvsp = yyvs + yysize - 1; |
| yylsp = yyls + yysize - 1; |
| |
| YYDPRINTF ((stderr, "Stack size increased to %lu\n", |
| (unsigned long int) yystacksize)); |
| |
| if (yyss + yystacksize - 1 <= yyssp) |
| YYABORT; |
| } |
| |
| YYDPRINTF ((stderr, "Entering state %d\n", yystate)); |
| |
| if (yystate == YYFINAL) |
| YYACCEPT; |
| |
| goto yybackup; |
| |
| /*-----------. |
| | yybackup. | |
| `-----------*/ |
| yybackup: |
| |
| /* Do appropriate processing given the current state. Read a |
| lookahead token if we need one and don't already have one. */ |
| |
| /* First try to decide what to do without reference to lookahead token. */ |
| yyn = yypact[yystate]; |
| if (yypact_value_is_default (yyn)) |
| goto yydefault; |
| |
| /* Not known => get a lookahead token if don't already have one. */ |
| |
| /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */ |
| if (yychar == YYEMPTY) |
| { |
| YYDPRINTF ((stderr, "Reading a token: ")); |
| yychar = yylex (&yylval, &yylloc, answer, errors, locations, lexer_param_ptr); |
| } |
| |
| if (yychar <= YYEOF) |
| { |
| yychar = yytoken = YYEOF; |
| YYDPRINTF ((stderr, "Now at end of input.\n")); |
| } |
| else |
| { |
| yytoken = YYTRANSLATE (yychar); |
| YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc); |
| } |
| |
| /* If the proper action on seeing token YYTOKEN is to reduce or to |
| detect an error, take that action. */ |
| yyn += yytoken; |
| if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken) |
| goto yydefault; |
| yyn = yytable[yyn]; |
| if (yyn <= 0) |
| { |
| if (yytable_value_is_error (yyn)) |
| goto yyerrlab; |
| yyn = -yyn; |
| goto yyreduce; |
| } |
| |
| /* Count tokens shifted since error; after three, turn off error |
| status. */ |
| if (yyerrstatus) |
| yyerrstatus--; |
| |
| /* Shift the lookahead token. */ |
| YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc); |
| |
| /* Discard the shifted token. */ |
| yychar = YYEMPTY; |
| |
| yystate = yyn; |
| YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN |
| *++yyvsp = yylval; |
| YY_IGNORE_MAYBE_UNINITIALIZED_END |
| *++yylsp = yylloc; |
| goto yynewstate; |
| |
| |
| /*-----------------------------------------------------------. |
| | yydefault -- do the default action for the current state. | |
| `-----------------------------------------------------------*/ |
| yydefault: |
| yyn = yydefact[yystate]; |
| if (yyn == 0) |
| goto yyerrlab; |
| goto yyreduce; |
| |
| |
| /*-----------------------------. |
| | yyreduce -- Do a reduction. | |
| `-----------------------------*/ |
| yyreduce: |
| /* yyn is the number of a rule to reduce with. */ |
| yylen = yyr2[yyn]; |
| |
| /* If YYLEN is nonzero, implement the default value of the action: |
| '$$ = $1'. |
| |
| Otherwise, the following line sets YYVAL to garbage. |
| This behavior is undocumented and Bison |
| users should not rely upon it. Assigning to YYVAL |
| unconditionally makes the parser a bit smaller, and it avoids a |
| GCC warning that YYVAL may be used uninitialized. */ |
| yyval = yyvsp[1-yylen]; |
| |
| /* Default location. */ |
| YYLLOC_DEFAULT (yyloc, (yylsp - yylen), yylen); |
| YY_REDUCE_PRINT (yyn); |
| switch (yyn) |
| { |
| case 2: |
| #line 276 "parser.y" /* yacc.c:1646 */ |
| { |
| *answer = BLOCK((yyvsp[-2].blk), (yyvsp[-1].blk), gen_op_simple(TOP), (yyvsp[0].blk)); |
| } |
| #line 2344 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 3: |
| #line 279 "parser.y" /* yacc.c:1646 */ |
| { |
| *answer = BLOCK((yyvsp[-2].blk), (yyvsp[-1].blk), (yyvsp[0].blk)); |
| } |
| #line 2352 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 4: |
| #line 284 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_noop(); |
| } |
| #line 2360 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 5: |
| #line 287 "parser.y" /* yacc.c:1646 */ |
| { |
| if (!block_is_const((yyvsp[-1].blk))) { |
| FAIL((yyloc), "Module metadata must be constant."); |
| (yyval.blk) = gen_noop(); |
| } else { |
| (yyval.blk) = gen_module((yyvsp[-1].blk)); |
| } |
| } |
| #line 2373 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 6: |
| #line 297 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_noop(); |
| } |
| #line 2381 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 7: |
| #line 300 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = BLOCK((yyvsp[-1].blk), (yyvsp[0].blk)); |
| } |
| #line 2389 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 8: |
| #line 305 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_noop(); |
| } |
| #line 2397 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 9: |
| #line 308 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = block_bind((yyvsp[-1].blk), (yyvsp[0].blk), OP_IS_CALL_PSEUDO); |
| } |
| #line 2405 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 10: |
| #line 313 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = block_bind_referenced((yyvsp[-1].blk), (yyvsp[0].blk), OP_IS_CALL_PSEUDO); |
| } |
| #line 2413 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 11: |
| #line 317 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_destructure((yyvsp[-4].blk), (yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 2421 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 12: |
| #line 321 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_reduce((yyvsp[-7].blk), (yyvsp[-5].blk), (yyvsp[-3].blk), (yyvsp[-1].blk)); |
| } |
| #line 2429 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 13: |
| #line 325 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_foreach((yyvsp[-9].blk), (yyvsp[-7].blk), (yyvsp[-5].blk), (yyvsp[-3].blk), (yyvsp[-1].blk)); |
| } |
| #line 2437 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 14: |
| #line 329 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_foreach((yyvsp[-7].blk), (yyvsp[-5].blk), (yyvsp[-3].blk), (yyvsp[-1].blk), gen_noop()); |
| } |
| #line 2445 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 15: |
| #line 333 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_cond((yyvsp[-3].blk), (yyvsp[-1].blk), (yyvsp[0].blk)); |
| } |
| #line 2453 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 16: |
| #line 336 "parser.y" /* yacc.c:1646 */ |
| { |
| FAIL((yyloc), "Possibly unterminated 'if' statement"); |
| (yyval.blk) = (yyvsp[-2].blk); |
| } |
| #line 2462 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 17: |
| #line 341 "parser.y" /* yacc.c:1646 */ |
| { |
| //$$ = BLOCK(gen_op_target(FORK_OPT, $2), $2, $4); |
| (yyval.blk) = gen_try((yyvsp[-2].blk), gen_try_handler((yyvsp[0].blk))); |
| } |
| #line 2471 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 18: |
| #line 345 "parser.y" /* yacc.c:1646 */ |
| { |
| //$$ = BLOCK(gen_op_target(FORK_OPT, $2), $2, gen_op_simple(BACKTRACK)); |
| (yyval.blk) = gen_try((yyvsp[0].blk), gen_op_simple(BACKTRACK)); |
| } |
| #line 2480 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 19: |
| #line 349 "parser.y" /* yacc.c:1646 */ |
| { |
| FAIL((yyloc), "Possibly unterminated 'try' statement"); |
| (yyval.blk) = (yyvsp[-2].blk); |
| } |
| #line 2489 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 20: |
| #line 354 "parser.y" /* yacc.c:1646 */ |
| { |
| jv v = jv_string_fmt("*label-%s", jv_string_value((yyvsp[-2].literal))); |
| (yyval.blk) = gen_location((yyloc), locations, gen_label(jv_string_value(v), (yyvsp[0].blk))); |
| jv_free((yyvsp[-2].literal)); |
| jv_free(v); |
| } |
| #line 2500 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 21: |
| #line 361 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_try((yyvsp[-1].blk), gen_op_simple(BACKTRACK)); |
| } |
| #line 2508 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 22: |
| #line 365 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_call("_assign", BLOCK(gen_lambda((yyvsp[-2].blk)), gen_lambda((yyvsp[0].blk)))); |
| } |
| #line 2516 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 23: |
| #line 369 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_or((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 2524 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 24: |
| #line 373 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_and((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 2532 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 25: |
| #line 377 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_definedor((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 2540 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 26: |
| #line 381 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_definedor_assign((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 2548 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 27: |
| #line 385 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_call("_modify", BLOCK(gen_lambda((yyvsp[-2].blk)), gen_lambda((yyvsp[0].blk)))); |
| } |
| #line 2556 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 28: |
| #line 389 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = block_join((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 2564 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 29: |
| #line 393 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_both((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 2572 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 30: |
| #line 397 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_binop((yyvsp[-2].blk), (yyvsp[0].blk), '+'); |
| } |
| #line 2580 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 31: |
| #line 401 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_update((yyvsp[-2].blk), (yyvsp[0].blk), '+'); |
| } |
| #line 2588 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 32: |
| #line 405 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = BLOCK((yyvsp[0].blk), gen_call("_negate", gen_noop())); |
| } |
| #line 2596 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 33: |
| #line 409 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_binop((yyvsp[-2].blk), (yyvsp[0].blk), '-'); |
| } |
| #line 2604 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 34: |
| #line 413 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_update((yyvsp[-2].blk), (yyvsp[0].blk), '-'); |
| } |
| #line 2612 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 35: |
| #line 417 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_binop((yyvsp[-2].blk), (yyvsp[0].blk), '*'); |
| } |
| #line 2620 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 36: |
| #line 421 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_update((yyvsp[-2].blk), (yyvsp[0].blk), '*'); |
| } |
| #line 2628 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 37: |
| #line 425 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_binop((yyvsp[-2].blk), (yyvsp[0].blk), '/'); |
| if (block_is_const_inf((yyval.blk))) |
| FAIL((yyloc), "Division by zero?"); |
| } |
| #line 2638 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 38: |
| #line 431 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_binop((yyvsp[-2].blk), (yyvsp[0].blk), '%'); |
| if (block_is_const_inf((yyval.blk))) |
| FAIL((yyloc), "Remainder by zero?"); |
| } |
| #line 2648 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 39: |
| #line 437 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_update((yyvsp[-2].blk), (yyvsp[0].blk), '/'); |
| } |
| #line 2656 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 40: |
| #line 441 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_update((yyvsp[-2].blk), (yyvsp[0].blk), '%'); |
| } |
| #line 2664 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 41: |
| #line 445 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_binop((yyvsp[-2].blk), (yyvsp[0].blk), EQ); |
| } |
| #line 2672 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 42: |
| #line 449 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_binop((yyvsp[-2].blk), (yyvsp[0].blk), NEQ); |
| } |
| #line 2680 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 43: |
| #line 453 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_binop((yyvsp[-2].blk), (yyvsp[0].blk), '<'); |
| } |
| #line 2688 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 44: |
| #line 457 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_binop((yyvsp[-2].blk), (yyvsp[0].blk), '>'); |
| } |
| #line 2696 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 45: |
| #line 461 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_binop((yyvsp[-2].blk), (yyvsp[0].blk), LESSEQ); |
| } |
| #line 2704 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 46: |
| #line 465 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_binop((yyvsp[-2].blk), (yyvsp[0].blk), GREATEREQ); |
| } |
| #line 2712 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 47: |
| #line 469 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = (yyvsp[0].blk); |
| } |
| #line 2720 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 48: |
| #line 474 "parser.y" /* yacc.c:1646 */ |
| { |
| jv v = block_const((yyvsp[-4].blk)); |
| // XXX Make gen_import take only blocks and the int is_data so we |
| // don't have to free so much stuff here |
| (yyval.blk) = gen_import(jv_string_value(v), gen_noop(), jv_string_value((yyvsp[-1].literal)), 1); |
| block_free((yyvsp[-4].blk)); |
| jv_free((yyvsp[-1].literal)); |
| jv_free(v); |
| } |
| #line 2734 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 49: |
| #line 483 "parser.y" /* yacc.c:1646 */ |
| { |
| jv v = block_const((yyvsp[-3].blk)); |
| (yyval.blk) = gen_import(jv_string_value(v), gen_noop(), jv_string_value((yyvsp[-1].literal)), 0); |
| block_free((yyvsp[-3].blk)); |
| jv_free((yyvsp[-1].literal)); |
| jv_free(v); |
| } |
| #line 2746 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 50: |
| #line 490 "parser.y" /* yacc.c:1646 */ |
| { |
| jv v = block_const((yyvsp[-1].blk)); |
| (yyval.blk) = gen_import(jv_string_value(v), gen_noop(), NULL, 0); |
| block_free((yyvsp[-1].blk)); |
| jv_free(v); |
| } |
| #line 2757 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 51: |
| #line 496 "parser.y" /* yacc.c:1646 */ |
| { |
| if (!block_is_const((yyvsp[-1].blk))) { |
| FAIL((yyloc), "Module metadata must be constant."); |
| (yyval.blk) = gen_noop(); |
| } else { |
| jv v = block_const((yyvsp[-4].blk)); |
| (yyval.blk) = gen_import(jv_string_value(v), (yyvsp[-1].blk), jv_string_value((yyvsp[-2].literal)), 0); |
| jv_free(v); |
| } |
| block_free((yyvsp[-4].blk)); |
| jv_free((yyvsp[-2].literal)); |
| } |
| #line 2774 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 52: |
| #line 508 "parser.y" /* yacc.c:1646 */ |
| { |
| if (!block_is_const((yyvsp[-1].blk))) { |
| FAIL((yyloc), "Module metadata must be constant."); |
| (yyval.blk) = gen_noop(); |
| } else { |
| jv v = block_const((yyvsp[-2].blk)); |
| (yyval.blk) = gen_import(jv_string_value(v), (yyvsp[-1].blk), NULL, 0); |
| jv_free(v); |
| } |
| block_free((yyvsp[-2].blk)); |
| } |
| #line 2790 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 53: |
| #line 519 "parser.y" /* yacc.c:1646 */ |
| { |
| if (!block_is_const((yyvsp[-1].blk))) { |
| FAIL((yyloc), "Module metadata must be constant."); |
| (yyval.blk) = gen_noop(); |
| } else { |
| jv v = block_const((yyvsp[-5].blk)); |
| (yyval.blk) = gen_import(jv_string_value(v), (yyvsp[-1].blk), jv_string_value((yyvsp[-2].literal)), 1); |
| jv_free(v); |
| } |
| block_free((yyvsp[-5].blk)); |
| jv_free((yyvsp[-2].literal)); |
| } |
| #line 2807 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 54: |
| #line 533 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_function(jv_string_value((yyvsp[-3].literal)), gen_noop(), (yyvsp[-1].blk)); |
| jv_free((yyvsp[-3].literal)); |
| } |
| #line 2816 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 55: |
| #line 538 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_function(jv_string_value((yyvsp[-6].literal)), (yyvsp[-4].blk), (yyvsp[-1].blk)); |
| jv_free((yyvsp[-6].literal)); |
| } |
| #line 2825 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 56: |
| #line 544 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = (yyvsp[0].blk); |
| } |
| #line 2833 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 57: |
| #line 547 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = BLOCK((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 2841 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 58: |
| #line 552 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_param_regular(jv_string_value((yyvsp[0].literal))); |
| jv_free((yyvsp[0].literal)); |
| } |
| #line 2850 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 59: |
| #line 557 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_param(jv_string_value((yyvsp[0].literal))); |
| jv_free((yyvsp[0].literal)); |
| } |
| #line 2859 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 60: |
| #line 564 "parser.y" /* yacc.c:1646 */ |
| { (yyval.literal) = jv_string("text"); } |
| #line 2865 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 61: |
| #line 564 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = (yyvsp[-1].blk); |
| jv_free((yyvsp[-2].literal)); |
| } |
| #line 2874 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 62: |
| #line 568 "parser.y" /* yacc.c:1646 */ |
| { (yyval.literal) = (yyvsp[-1].literal); } |
| #line 2880 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 63: |
| #line 568 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = (yyvsp[-1].blk); |
| jv_free((yyvsp[-2].literal)); |
| } |
| #line 2889 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 64: |
| #line 575 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_const(jv_string("")); |
| } |
| #line 2897 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 65: |
| #line 578 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_binop((yyvsp[-1].blk), gen_const((yyvsp[0].literal)), '+'); |
| } |
| #line 2905 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 66: |
| #line 581 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_binop((yyvsp[-3].blk), gen_format((yyvsp[-1].blk), jv_copy((yyvsp[-4].literal))), '+'); |
| } |
| #line 2913 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 67: |
| #line 587 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_cond((yyvsp[-3].blk), (yyvsp[-1].blk), (yyvsp[0].blk)); |
| } |
| #line 2921 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 68: |
| #line 590 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = (yyvsp[-1].blk); |
| } |
| #line 2929 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 69: |
| #line 595 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = block_join((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 2937 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 70: |
| #line 598 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = BLOCK((yyvsp[0].blk), gen_call("_negate", gen_noop())); |
| } |
| #line 2945 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 71: |
| #line 601 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = (yyvsp[0].blk); |
| } |
| #line 2953 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 72: |
| #line 607 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_noop(); |
| } |
| #line 2961 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 73: |
| #line 610 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_call("recurse", gen_noop()); |
| } |
| #line 2969 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 74: |
| #line 613 "parser.y" /* yacc.c:1646 */ |
| { |
| jv v = jv_string_fmt("*label-%s", jv_string_value((yyvsp[0].literal))); // impossible symbol |
| (yyval.blk) = gen_location((yyloc), locations, |
| BLOCK(gen_op_unbound(LOADV, jv_string_value(v)), |
| gen_call("error", gen_noop()))); |
| jv_free(v); |
| jv_free((yyvsp[0].literal)); |
| } |
| #line 2982 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 75: |
| #line 621 "parser.y" /* yacc.c:1646 */ |
| { |
| FAIL((yyloc), "break requires a label to break to"); |
| (yyval.blk) = gen_noop(); |
| } |
| #line 2991 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 76: |
| #line 625 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_index_opt((yyvsp[-2].blk), gen_const((yyvsp[-1].literal))); |
| } |
| #line 2999 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 77: |
| #line 628 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_index_opt(gen_noop(), gen_const((yyvsp[-1].literal))); |
| } |
| #line 3007 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 78: |
| #line 631 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_index_opt((yyvsp[-3].blk), (yyvsp[-1].blk)); |
| } |
| #line 3015 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 79: |
| #line 634 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_index_opt(gen_noop(), (yyvsp[-1].blk)); |
| } |
| #line 3023 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 80: |
| #line 637 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_index((yyvsp[-1].blk), gen_const((yyvsp[0].literal))); |
| } |
| #line 3031 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 81: |
| #line 640 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_index(gen_noop(), gen_const((yyvsp[0].literal))); |
| } |
| #line 3039 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 82: |
| #line 643 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_index((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 3047 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 83: |
| #line 646 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_index(gen_noop(), (yyvsp[0].blk)); |
| } |
| #line 3055 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 84: |
| #line 649 "parser.y" /* yacc.c:1646 */ |
| { |
| FAIL((yyloc), "try .[\"field\"] instead of .field for unusually named fields"); |
| (yyval.blk) = gen_noop(); |
| } |
| #line 3064 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 85: |
| #line 653 "parser.y" /* yacc.c:1646 */ |
| { |
| jv_free((yyvsp[-1].literal)); |
| FAIL((yyloc), "try .[\"field\"] instead of .field for unusually named fields"); |
| (yyval.blk) = gen_noop(); |
| } |
| #line 3074 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 86: |
| #line 659 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_index_opt((yyvsp[-4].blk), (yyvsp[-2].blk)); |
| } |
| #line 3082 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 87: |
| #line 662 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_index((yyvsp[-3].blk), (yyvsp[-1].blk)); |
| } |
| #line 3090 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 88: |
| #line 665 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = block_join((yyvsp[-3].blk), gen_op_simple(EACH_OPT)); |
| } |
| #line 3098 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 89: |
| #line 668 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = block_join((yyvsp[-2].blk), gen_op_simple(EACH)); |
| } |
| #line 3106 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 90: |
| #line 671 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_slice_index((yyvsp[-6].blk), (yyvsp[-4].blk), (yyvsp[-2].blk), INDEX_OPT); |
| } |
| #line 3114 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 91: |
| #line 674 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_slice_index((yyvsp[-5].blk), (yyvsp[-3].blk), gen_const(jv_null()), INDEX_OPT); |
| } |
| #line 3122 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 92: |
| #line 677 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_slice_index((yyvsp[-5].blk), gen_const(jv_null()), (yyvsp[-2].blk), INDEX_OPT); |
| } |
| #line 3130 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 93: |
| #line 680 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_slice_index((yyvsp[-5].blk), (yyvsp[-3].blk), (yyvsp[-1].blk), INDEX); |
| } |
| #line 3138 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 94: |
| #line 683 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_slice_index((yyvsp[-4].blk), (yyvsp[-2].blk), gen_const(jv_null()), INDEX); |
| } |
| #line 3146 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 95: |
| #line 686 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_slice_index((yyvsp[-4].blk), gen_const(jv_null()), (yyvsp[-1].blk), INDEX); |
| } |
| #line 3154 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 96: |
| #line 689 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_const((yyvsp[0].literal)); |
| } |
| #line 3162 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 97: |
| #line 692 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = (yyvsp[0].blk); |
| } |
| #line 3170 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 98: |
| #line 695 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_format(gen_noop(), (yyvsp[0].literal)); |
| } |
| #line 3178 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 99: |
| #line 698 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = (yyvsp[-1].blk); |
| } |
| #line 3186 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 100: |
| #line 701 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_collect((yyvsp[-1].blk)); |
| } |
| #line 3194 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 101: |
| #line 704 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_const(jv_array()); |
| } |
| #line 3202 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 102: |
| #line 707 "parser.y" /* yacc.c:1646 */ |
| { |
| block o = gen_const_object((yyvsp[-1].blk)); |
| if (o.first != NULL) |
| (yyval.blk) = o; |
| else |
| (yyval.blk) = BLOCK(gen_subexp(gen_const(jv_object())), (yyvsp[-1].blk), gen_op_simple(POP)); |
| } |
| #line 3214 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 103: |
| #line 714 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_const(JV_OBJECT(jv_string("file"), jv_copy(locations->fname), |
| jv_string("line"), jv_number(locfile_get_line(locations, (yyloc).start) + 1))); |
| } |
| #line 3223 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 104: |
| #line 718 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_location((yyloc), locations, gen_op_unbound(LOADV, jv_string_value((yyvsp[0].literal)))); |
| jv_free((yyvsp[0].literal)); |
| } |
| #line 3232 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 105: |
| #line 722 "parser.y" /* yacc.c:1646 */ |
| { |
| const char *s = jv_string_value((yyvsp[0].literal)); |
| if (strcmp(s, "false") == 0) |
| (yyval.blk) = gen_const(jv_false()); |
| else if (strcmp(s, "true") == 0) |
| (yyval.blk) = gen_const(jv_true()); |
| else if (strcmp(s, "null") == 0) |
| (yyval.blk) = gen_const(jv_null()); |
| else |
| (yyval.blk) = gen_location((yyloc), locations, gen_call(s, gen_noop())); |
| jv_free((yyvsp[0].literal)); |
| } |
| #line 3249 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 106: |
| #line 734 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_call(jv_string_value((yyvsp[-3].literal)), (yyvsp[-1].blk)); |
| (yyval.blk) = gen_location((yylsp[-3]), locations, (yyval.blk)); |
| jv_free((yyvsp[-3].literal)); |
| } |
| #line 3259 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 107: |
| #line 739 "parser.y" /* yacc.c:1646 */ |
| { (yyval.blk) = gen_noop(); } |
| #line 3265 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 108: |
| #line 740 "parser.y" /* yacc.c:1646 */ |
| { (yyval.blk) = gen_noop(); } |
| #line 3271 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 109: |
| #line 741 "parser.y" /* yacc.c:1646 */ |
| { (yyval.blk) = (yyvsp[-3].blk); } |
| #line 3277 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 110: |
| #line 742 "parser.y" /* yacc.c:1646 */ |
| { (yyval.blk) = gen_noop(); } |
| #line 3283 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 111: |
| #line 745 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = (yyvsp[0].blk); |
| } |
| #line 3291 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 112: |
| #line 748 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = BLOCK((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 3299 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 113: |
| #line 753 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_lambda((yyvsp[0].blk)); |
| } |
| #line 3307 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 114: |
| #line 758 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_op_unbound(STOREV, jv_string_value((yyvsp[0].literal))); |
| jv_free((yyvsp[0].literal)); |
| } |
| #line 3316 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 115: |
| #line 762 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = BLOCK((yyvsp[-1].blk), gen_op_simple(POP)); |
| } |
| #line 3324 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 116: |
| #line 765 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = BLOCK((yyvsp[-1].blk), gen_op_simple(POP)); |
| } |
| #line 3332 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 117: |
| #line 770 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_array_matcher(gen_noop(), (yyvsp[0].blk)); |
| } |
| #line 3340 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 118: |
| #line 773 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_array_matcher((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 3348 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 119: |
| #line 778 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = (yyvsp[0].blk); |
| } |
| #line 3356 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 120: |
| #line 781 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = BLOCK((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 3364 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 121: |
| #line 786 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_object_matcher(gen_const((yyvsp[0].literal)), gen_op_unbound(STOREV, jv_string_value((yyvsp[0].literal)))); |
| } |
| #line 3372 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 122: |
| #line 789 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_object_matcher(gen_const((yyvsp[-2].literal)), (yyvsp[0].blk)); |
| } |
| #line 3380 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 123: |
| #line 792 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_object_matcher(gen_const((yyvsp[-2].literal)), (yyvsp[0].blk)); |
| } |
| #line 3388 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 124: |
| #line 795 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_object_matcher((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 3396 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 125: |
| #line 798 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_object_matcher((yyvsp[-3].blk), (yyvsp[0].blk)); |
| } |
| #line 3404 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 126: |
| #line 803 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.literal) = jv_string("as"); |
| } |
| #line 3412 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 127: |
| #line 806 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.literal) = jv_string("def"); |
| } |
| #line 3420 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 128: |
| #line 809 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.literal) = jv_string("module"); |
| } |
| #line 3428 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 129: |
| #line 812 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.literal) = jv_string("import"); |
| } |
| #line 3436 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 130: |
| #line 815 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.literal) = jv_string("include"); |
| } |
| #line 3444 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 131: |
| #line 818 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.literal) = jv_string("if"); |
| } |
| #line 3452 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 132: |
| #line 821 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.literal) = jv_string("then"); |
| } |
| #line 3460 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 133: |
| #line 824 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.literal) = jv_string("else"); |
| } |
| #line 3468 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 134: |
| #line 827 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.literal) = jv_string("elif"); |
| } |
| #line 3476 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 135: |
| #line 830 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.literal) = jv_string("reduce"); |
| } |
| #line 3484 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 136: |
| #line 833 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.literal) = jv_string("foreach"); |
| } |
| #line 3492 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 137: |
| #line 836 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.literal) = jv_string("end"); |
| } |
| #line 3500 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 138: |
| #line 839 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.literal) = jv_string("and"); |
| } |
| #line 3508 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 139: |
| #line 842 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.literal) = jv_string("or"); |
| } |
| #line 3516 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 140: |
| #line 845 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.literal) = jv_string("try"); |
| } |
| #line 3524 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 141: |
| #line 848 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.literal) = jv_string("catch"); |
| } |
| #line 3532 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 142: |
| #line 851 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.literal) = jv_string("label"); |
| } |
| #line 3540 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 143: |
| #line 854 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.literal) = jv_string("break"); |
| } |
| #line 3548 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 144: |
| #line 857 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.literal) = jv_string("__loc__"); |
| } |
| #line 3556 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 145: |
| #line 862 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk)=gen_noop(); |
| } |
| #line 3564 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 146: |
| #line 865 "parser.y" /* yacc.c:1646 */ |
| { (yyval.blk) = (yyvsp[0].blk); } |
| #line 3570 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 147: |
| #line 866 "parser.y" /* yacc.c:1646 */ |
| { (yyval.blk)=block_join((yyvsp[-2].blk), (yyvsp[0].blk)); } |
| #line 3576 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 148: |
| #line 867 "parser.y" /* yacc.c:1646 */ |
| { (yyval.blk) = (yyvsp[0].blk); } |
| #line 3582 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 149: |
| #line 870 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_dictpair(gen_const((yyvsp[-2].literal)), (yyvsp[0].blk)); |
| } |
| #line 3590 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 150: |
| #line 873 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_dictpair(gen_const((yyvsp[-2].literal)), (yyvsp[0].blk)); |
| } |
| #line 3598 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 151: |
| #line 876 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_dictpair((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 3606 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 152: |
| #line 879 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_dictpair((yyvsp[0].blk), BLOCK(gen_op_simple(POP), gen_op_simple(DUP2), |
| gen_op_simple(DUP2), gen_op_simple(INDEX))); |
| } |
| #line 3615 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 153: |
| #line 883 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_dictpair(gen_const((yyvsp[0].literal)), |
| gen_location((yyloc), locations, gen_op_unbound(LOADV, jv_string_value((yyvsp[0].literal))))); |
| } |
| #line 3624 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 154: |
| #line 887 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_dictpair(gen_const(jv_copy((yyvsp[0].literal))), |
| gen_index(gen_noop(), gen_const((yyvsp[0].literal)))); |
| } |
| #line 3633 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 155: |
| #line 891 "parser.y" /* yacc.c:1646 */ |
| { |
| (yyval.blk) = gen_dictpair((yyvsp[-3].blk), (yyvsp[0].blk)); |
| } |
| #line 3641 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| case 156: |
| #line 894 "parser.y" /* yacc.c:1646 */ |
| { (yyval.blk) = (yyvsp[0].blk); } |
| #line 3647 "parser.c" /* yacc.c:1646 */ |
| break; |
| |
| |
| #line 3651 "parser.c" /* yacc.c:1646 */ |
| default: break; |
| } |
| /* User semantic actions sometimes alter yychar, and that requires |
| that yytoken be updated with the new translation. We take the |
| approach of translating immediately before every use of yytoken. |
| One alternative is translating here after every semantic action, |
| but that translation would be missed if the semantic action invokes |
| YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or |
| if it invokes YYBACKUP. In the case of YYABORT or YYACCEPT, an |
| incorrect destructor might then be invoked immediately. In the |
| case of YYERROR or YYBACKUP, subsequent parser actions might lead |
| to an incorrect destructor call or verbose syntax error message |
| before the lookahead is translated. */ |
| YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc); |
| |
| YYPOPSTACK (yylen); |
| yylen = 0; |
| YY_STACK_PRINT (yyss, yyssp); |
| |
| *++yyvsp = yyval; |
| *++yylsp = yyloc; |
| |
| /* Now 'shift' the result of the reduction. Determine what state |
| that goes to, based on the state we popped back to and the rule |
| number reduced by. */ |
| |
| yyn = yyr1[yyn]; |
| |
| yystate = yypgoto[yyn - YYNTOKENS] + *yyssp; |
| if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp) |
| yystate = yytable[yystate]; |
| else |
| yystate = yydefgoto[yyn - YYNTOKENS]; |
| |
| goto yynewstate; |
| |
| |
| /*--------------------------------------. |
| | yyerrlab -- here on detecting error. | |
| `--------------------------------------*/ |
| yyerrlab: |
| /* Make sure we have latest lookahead translation. See comments at |
| user semantic actions for why this is necessary. */ |
| yytoken = yychar == YYEMPTY ? YYEMPTY : YYTRANSLATE (yychar); |
| |
| /* If not already recovering from an error, report this error. */ |
| if (!yyerrstatus) |
| { |
| ++yynerrs; |
| #if ! YYERROR_VERBOSE |
| yyerror (&yylloc, answer, errors, locations, lexer_param_ptr, YY_("syntax error")); |
| #else |
| # define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \ |
| yyssp, yytoken) |
| { |
| char const *yymsgp = YY_("syntax error"); |
| int yysyntax_error_status; |
| yysyntax_error_status = YYSYNTAX_ERROR; |
| if (yysyntax_error_status == 0) |
| yymsgp = yymsg; |
| else if (yysyntax_error_status == 1) |
| { |
| if (yymsg != yymsgbuf) |
| YYSTACK_FREE (yymsg); |
| yymsg = (char *) YYSTACK_ALLOC (yymsg_alloc); |
| if (!yymsg) |
| { |
| yymsg = yymsgbuf; |
| yymsg_alloc = sizeof yymsgbuf; |
| yysyntax_error_status = 2; |
| } |
| else |
| { |
| yysyntax_error_status = YYSYNTAX_ERROR; |
| yymsgp = yymsg; |
| } |
| } |
| yyerror (&yylloc, answer, errors, locations, lexer_param_ptr, yymsgp); |
| if (yysyntax_error_status == 2) |
| goto yyexhaustedlab; |
| } |
| # undef YYSYNTAX_ERROR |
| #endif |
| } |
| |
| yyerror_range[1] = yylloc; |
| |
| if (yyerrstatus == 3) |
| { |
| /* If just tried and failed to reuse lookahead token after an |
| error, discard it. */ |
| |
| if (yychar <= YYEOF) |
| { |
| /* Return failure if at end of input. */ |
| if (yychar == YYEOF) |
| YYABORT; |
| } |
| else |
| { |
| yydestruct ("Error: discarding", |
| yytoken, &yylval, &yylloc, answer, errors, locations, lexer_param_ptr); |
| yychar = YYEMPTY; |
| } |
| } |
| |
| /* Else will try to reuse lookahead token after shifting the error |
| token. */ |
| goto yyerrlab1; |
| |
| |
| /*---------------------------------------------------. |
| | yyerrorlab -- error raised explicitly by YYERROR. | |
| `---------------------------------------------------*/ |
| yyerrorlab: |
| |
| /* Pacify compilers like GCC when the user code never invokes |
| YYERROR and the label yyerrorlab therefore never appears in user |
| code. */ |
| if (/*CONSTCOND*/ 0) |
| goto yyerrorlab; |
| |
| yyerror_range[1] = yylsp[1-yylen]; |
| /* Do not reclaim the symbols of the rule whose action triggered |
| this YYERROR. */ |
| YYPOPSTACK (yylen); |
| yylen = 0; |
| YY_STACK_PRINT (yyss, yyssp); |
| yystate = *yyssp; |
| goto yyerrlab1; |
| |
| |
| /*-------------------------------------------------------------. |
| | yyerrlab1 -- common code for both syntax error and YYERROR. | |
| `-------------------------------------------------------------*/ |
| yyerrlab1: |
| yyerrstatus = 3; /* Each real token shifted decrements this. */ |
| |
| for (;;) |
| { |
| yyn = yypact[yystate]; |
| if (!yypact_value_is_default (yyn)) |
| { |
| yyn += YYTERROR; |
| if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR) |
| { |
| yyn = yytable[yyn]; |
| if (0 < yyn) |
| break; |
| } |
| } |
| |
| /* Pop the current state because it cannot handle the error token. */ |
| if (yyssp == yyss) |
| YYABORT; |
| |
| yyerror_range[1] = *yylsp; |
| yydestruct ("Error: popping", |
| yystos[yystate], yyvsp, yylsp, answer, errors, locations, lexer_param_ptr); |
| YYPOPSTACK (1); |
| yystate = *yyssp; |
| YY_STACK_PRINT (yyss, yyssp); |
| } |
| |
| YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN |
| *++yyvsp = yylval; |
| YY_IGNORE_MAYBE_UNINITIALIZED_END |
| |
| yyerror_range[2] = yylloc; |
| /* Using YYLLOC is tempting, but would change the location of |
| the lookahead. YYLOC is available though. */ |
| YYLLOC_DEFAULT (yyloc, yyerror_range, 2); |
| *++yylsp = yyloc; |
| |
| /* Shift the error token. */ |
| YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp); |
| |
| yystate = yyn; |
| goto yynewstate; |
| |
| |
| /*-------------------------------------. |
| | yyacceptlab -- YYACCEPT comes here. | |
| `-------------------------------------*/ |
| yyacceptlab: |
| yyresult = 0; |
| goto yyreturn; |
| |
| /*-----------------------------------. |
| | yyabortlab -- YYABORT comes here. | |
| `-----------------------------------*/ |
| yyabortlab: |
| yyresult = 1; |
| goto yyreturn; |
| |
| #if !defined yyoverflow || YYERROR_VERBOSE |
| /*-------------------------------------------------. |
| | yyexhaustedlab -- memory exhaustion comes here. | |
| `-------------------------------------------------*/ |
| yyexhaustedlab: |
| yyerror (&yylloc, answer, errors, locations, lexer_param_ptr, YY_("memory exhausted")); |
| yyresult = 2; |
| /* Fall through. */ |
| #endif |
| |
| yyreturn: |
| if (yychar != YYEMPTY) |
| { |
| /* Make sure we have latest lookahead translation. See comments at |
| user semantic actions for why this is necessary. */ |
| yytoken = YYTRANSLATE (yychar); |
| yydestruct ("Cleanup: discarding lookahead", |
| yytoken, &yylval, &yylloc, answer, errors, locations, lexer_param_ptr); |
| } |
| /* Do not reclaim the symbols of the rule whose action triggered |
| this YYABORT or YYACCEPT. */ |
| YYPOPSTACK (yylen); |
| YY_STACK_PRINT (yyss, yyssp); |
| while (yyssp != yyss) |
| { |
| yydestruct ("Cleanup: popping", |
| yystos[*yyssp], yyvsp, yylsp, answer, errors, locations, lexer_param_ptr); |
| YYPOPSTACK (1); |
| } |
| #ifndef yyoverflow |
| if (yyss != yyssa) |
| YYSTACK_FREE (yyss); |
| #endif |
| #if YYERROR_VERBOSE |
| if (yymsg != yymsgbuf) |
| YYSTACK_FREE (yymsg); |
| #endif |
| return yyresult; |
| } |
| #line 895 "parser.y" /* yacc.c:1906 */ |
| |
| |
| int jq_parse(struct locfile* locations, block* answer) { |
| struct lexer_param scanner; |
| YY_BUFFER_STATE buf; |
| jq_yylex_init_extra(0, &scanner.lexer); |
| buf = jq_yy_scan_bytes(locations->data, locations->length, scanner.lexer); |
| int errors = 0; |
| *answer = gen_noop(); |
| yyparse(answer, &errors, locations, &scanner); |
| jq_yy_delete_buffer(buf, scanner.lexer); |
| jq_yylex_destroy(scanner.lexer); |
| if (errors > 0) { |
| block_free(*answer); |
| *answer = gen_noop(); |
| } |
| return errors; |
| } |
| |
| int jq_parse_library(struct locfile* locations, block* answer) { |
| int errs = jq_parse(locations, answer); |
| if (errs) return errs; |
| if (block_has_main(*answer)) { |
| locfile_locate(locations, UNKNOWN_LOCATION, "jq: error: library should only have function definitions, not a main expression"); |
| return 1; |
| } |
| assert(block_has_only_binders_and_imports(*answer, OP_IS_CALL_PSEUDO)); |
| return 0; |
| } |