| /* A Bison parser, made by GNU Bison 3.8.2. */ |
| |
| /* Bison implementation for Yacc-like parsers in C |
| |
| Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2021 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 <https://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. */ |
| |
| /* DO NOT RELY ON FEATURES THAT ARE NOT DOCUMENTED in the manual, |
| especially those whose name start with YY_ or yy_. They are |
| private implementation details that can be changed or removed. */ |
| |
| /* 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, and Bison version. */ |
| #define YYBISON 30802 |
| |
| /* Bison version string. */ |
| #define YYBISON_VERSION "3.8.2" |
| |
| /* Skeleton name. */ |
| #define YYSKELETON_NAME "yacc.c" |
| |
| /* Pure parsers. */ |
| #define YYPURE 1 |
| |
| /* Push parsers. */ |
| #define YYPUSH 0 |
| |
| /* Pull parsers. */ |
| #define YYPULL 1 |
| |
| |
| |
| |
| /* First part of user prologue. */ |
| #line 1 "src/parser.y" |
| |
| #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 82 "src/parser.c" |
| |
| # ifndef YY_CAST |
| # ifdef __cplusplus |
| # define YY_CAST(Type, Val) static_cast<Type> (Val) |
| # define YY_REINTERPRET_CAST(Type, Val) reinterpret_cast<Type> (Val) |
| # else |
| # define YY_CAST(Type, Val) ((Type) (Val)) |
| # define YY_REINTERPRET_CAST(Type, Val) ((Type) (Val)) |
| # endif |
| # endif |
| # ifndef YY_NULLPTR |
| # if defined __cplusplus |
| # if 201103L <= __cplusplus |
| # define YY_NULLPTR nullptr |
| # else |
| # define YY_NULLPTR 0 |
| # endif |
| # else |
| # define YY_NULLPTR ((void*)0) |
| # endif |
| # endif |
| |
| /* Use api.header.include to #include this header |
| instead of duplicating it here. */ |
| #ifndef YY_YY_SRC_PARSER_H_INCLUDED |
| # define YY_YY_SRC_PARSER_H_INCLUDED |
| /* Debug traces. */ |
| #ifndef YYDEBUG |
| # define YYDEBUG 0 |
| #endif |
| #if YYDEBUG |
| extern int yydebug; |
| #endif |
| /* "%code requires" blocks. */ |
| #line 11 "src/parser.y" |
| |
| #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 134 "src/parser.c" |
| |
| /* Token kinds. */ |
| #ifndef YYTOKENTYPE |
| # define YYTOKENTYPE |
| enum yytokentype |
| { |
| YYEMPTY = -2, |
| YYEOF = 0, /* "end of file" */ |
| YYerror = 256, /* error */ |
| YYUNDEF = 257, /* "invalid token" */ |
| INVALID_CHARACTER = 258, /* INVALID_CHARACTER */ |
| IDENT = 259, /* IDENT */ |
| FIELD = 260, /* FIELD */ |
| BINDING = 261, /* BINDING */ |
| LITERAL = 262, /* LITERAL */ |
| FORMAT = 263, /* FORMAT */ |
| REC = 264, /* ".." */ |
| SETMOD = 265, /* "%=" */ |
| EQ = 266, /* "==" */ |
| NEQ = 267, /* "!=" */ |
| DEFINEDOR = 268, /* "//" */ |
| AS = 269, /* "as" */ |
| DEF = 270, /* "def" */ |
| MODULE = 271, /* "module" */ |
| IMPORT = 272, /* "import" */ |
| INCLUDE = 273, /* "include" */ |
| IF = 274, /* "if" */ |
| THEN = 275, /* "then" */ |
| ELSE = 276, /* "else" */ |
| ELSE_IF = 277, /* "elif" */ |
| REDUCE = 278, /* "reduce" */ |
| FOREACH = 279, /* "foreach" */ |
| END = 280, /* "end" */ |
| AND = 281, /* "and" */ |
| OR = 282, /* "or" */ |
| TRY = 283, /* "try" */ |
| CATCH = 284, /* "catch" */ |
| LABEL = 285, /* "label" */ |
| BREAK = 286, /* "break" */ |
| LOC = 287, /* "$__loc__" */ |
| SETPIPE = 288, /* "|=" */ |
| SETPLUS = 289, /* "+=" */ |
| SETMINUS = 290, /* "-=" */ |
| SETMULT = 291, /* "*=" */ |
| SETDIV = 292, /* "/=" */ |
| SETDEFINEDOR = 293, /* "//=" */ |
| LESSEQ = 294, /* "<=" */ |
| GREATEREQ = 295, /* ">=" */ |
| ALTERNATION = 296, /* "?//" */ |
| QQSTRING_START = 297, /* QQSTRING_START */ |
| QQSTRING_TEXT = 298, /* QQSTRING_TEXT */ |
| QQSTRING_INTERP_START = 299, /* QQSTRING_INTERP_START */ |
| QQSTRING_INTERP_END = 300, /* QQSTRING_INTERP_END */ |
| QQSTRING_END = 301, /* QQSTRING_END */ |
| FUNCDEF = 302, /* FUNCDEF */ |
| NONOPT = 303 /* NONOPT */ |
| }; |
| typedef enum yytokentype yytoken_kind_t; |
| #endif |
| /* Token kinds. */ |
| #define YYEMPTY -2 |
| #define YYEOF 0 |
| #define YYerror 256 |
| #define YYUNDEF 257 |
| #define INVALID_CHARACTER 258 |
| #define IDENT 259 |
| #define FIELD 260 |
| #define BINDING 261 |
| #define LITERAL 262 |
| #define FORMAT 263 |
| #define REC 264 |
| #define SETMOD 265 |
| #define EQ 266 |
| #define NEQ 267 |
| #define DEFINEDOR 268 |
| #define AS 269 |
| #define DEF 270 |
| #define MODULE 271 |
| #define IMPORT 272 |
| #define INCLUDE 273 |
| #define IF 274 |
| #define THEN 275 |
| #define ELSE 276 |
| #define ELSE_IF 277 |
| #define REDUCE 278 |
| #define FOREACH 279 |
| #define END 280 |
| #define AND 281 |
| #define OR 282 |
| #define TRY 283 |
| #define CATCH 284 |
| #define LABEL 285 |
| #define BREAK 286 |
| #define LOC 287 |
| #define SETPIPE 288 |
| #define SETPLUS 289 |
| #define SETMINUS 290 |
| #define SETMULT 291 |
| #define SETDIV 292 |
| #define SETDEFINEDOR 293 |
| #define LESSEQ 294 |
| #define GREATEREQ 295 |
| #define ALTERNATION 296 |
| #define QQSTRING_START 297 |
| #define QQSTRING_TEXT 298 |
| #define QQSTRING_INTERP_START 299 |
| #define QQSTRING_INTERP_END 300 |
| #define QQSTRING_END 301 |
| #define FUNCDEF 302 |
| #define NONOPT 303 |
| |
| /* Value type. */ |
| #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED |
| union YYSTYPE |
| { |
| #line 31 "src/parser.y" |
| |
| jv literal; |
| block blk; |
| |
| #line 255 "src/parser.c" |
| |
| }; |
| typedef union YYSTYPE YYSTYPE; |
| # 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_SRC_PARSER_H_INCLUDED */ |
| /* Symbol kind. */ |
| enum yysymbol_kind_t |
| { |
| YYSYMBOL_YYEMPTY = -2, |
| YYSYMBOL_YYEOF = 0, /* "end of file" */ |
| YYSYMBOL_YYerror = 1, /* error */ |
| YYSYMBOL_YYUNDEF = 2, /* "invalid token" */ |
| YYSYMBOL_INVALID_CHARACTER = 3, /* INVALID_CHARACTER */ |
| YYSYMBOL_IDENT = 4, /* IDENT */ |
| YYSYMBOL_FIELD = 5, /* FIELD */ |
| YYSYMBOL_BINDING = 6, /* BINDING */ |
| YYSYMBOL_LITERAL = 7, /* LITERAL */ |
| YYSYMBOL_FORMAT = 8, /* FORMAT */ |
| YYSYMBOL_REC = 9, /* ".." */ |
| YYSYMBOL_SETMOD = 10, /* "%=" */ |
| YYSYMBOL_EQ = 11, /* "==" */ |
| YYSYMBOL_NEQ = 12, /* "!=" */ |
| YYSYMBOL_DEFINEDOR = 13, /* "//" */ |
| YYSYMBOL_AS = 14, /* "as" */ |
| YYSYMBOL_DEF = 15, /* "def" */ |
| YYSYMBOL_MODULE = 16, /* "module" */ |
| YYSYMBOL_IMPORT = 17, /* "import" */ |
| YYSYMBOL_INCLUDE = 18, /* "include" */ |
| YYSYMBOL_IF = 19, /* "if" */ |
| YYSYMBOL_THEN = 20, /* "then" */ |
| YYSYMBOL_ELSE = 21, /* "else" */ |
| YYSYMBOL_ELSE_IF = 22, /* "elif" */ |
| YYSYMBOL_REDUCE = 23, /* "reduce" */ |
| YYSYMBOL_FOREACH = 24, /* "foreach" */ |
| YYSYMBOL_END = 25, /* "end" */ |
| YYSYMBOL_AND = 26, /* "and" */ |
| YYSYMBOL_OR = 27, /* "or" */ |
| YYSYMBOL_TRY = 28, /* "try" */ |
| YYSYMBOL_CATCH = 29, /* "catch" */ |
| YYSYMBOL_LABEL = 30, /* "label" */ |
| YYSYMBOL_BREAK = 31, /* "break" */ |
| YYSYMBOL_LOC = 32, /* "$__loc__" */ |
| YYSYMBOL_SETPIPE = 33, /* "|=" */ |
| YYSYMBOL_SETPLUS = 34, /* "+=" */ |
| YYSYMBOL_SETMINUS = 35, /* "-=" */ |
| YYSYMBOL_SETMULT = 36, /* "*=" */ |
| YYSYMBOL_SETDIV = 37, /* "/=" */ |
| YYSYMBOL_SETDEFINEDOR = 38, /* "//=" */ |
| YYSYMBOL_LESSEQ = 39, /* "<=" */ |
| YYSYMBOL_GREATEREQ = 40, /* ">=" */ |
| YYSYMBOL_ALTERNATION = 41, /* "?//" */ |
| YYSYMBOL_QQSTRING_START = 42, /* QQSTRING_START */ |
| YYSYMBOL_QQSTRING_TEXT = 43, /* QQSTRING_TEXT */ |
| YYSYMBOL_QQSTRING_INTERP_START = 44, /* QQSTRING_INTERP_START */ |
| YYSYMBOL_QQSTRING_INTERP_END = 45, /* QQSTRING_INTERP_END */ |
| YYSYMBOL_QQSTRING_END = 46, /* QQSTRING_END */ |
| YYSYMBOL_FUNCDEF = 47, /* FUNCDEF */ |
| YYSYMBOL_48_ = 48, /* '|' */ |
| YYSYMBOL_49_ = 49, /* ',' */ |
| YYSYMBOL_50_ = 50, /* '=' */ |
| YYSYMBOL_51_ = 51, /* '<' */ |
| YYSYMBOL_52_ = 52, /* '>' */ |
| YYSYMBOL_53_ = 53, /* '+' */ |
| YYSYMBOL_54_ = 54, /* '-' */ |
| YYSYMBOL_55_ = 55, /* '*' */ |
| YYSYMBOL_56_ = 56, /* '/' */ |
| YYSYMBOL_57_ = 57, /* '%' */ |
| YYSYMBOL_NONOPT = 58, /* NONOPT */ |
| YYSYMBOL_59_ = 59, /* '?' */ |
| YYSYMBOL_60_ = 60, /* ';' */ |
| YYSYMBOL_61_ = 61, /* '(' */ |
| YYSYMBOL_62_ = 62, /* ')' */ |
| YYSYMBOL_63_ = 63, /* ':' */ |
| YYSYMBOL_64_ = 64, /* '.' */ |
| YYSYMBOL_65_ = 65, /* '[' */ |
| YYSYMBOL_66_ = 66, /* ']' */ |
| YYSYMBOL_67_ = 67, /* '{' */ |
| YYSYMBOL_68_ = 68, /* '}' */ |
| YYSYMBOL_69_ = 69, /* '$' */ |
| YYSYMBOL_YYACCEPT = 70, /* $accept */ |
| YYSYMBOL_TopLevel = 71, /* TopLevel */ |
| YYSYMBOL_Module = 72, /* Module */ |
| YYSYMBOL_Imports = 73, /* Imports */ |
| YYSYMBOL_FuncDefs = 74, /* FuncDefs */ |
| YYSYMBOL_Exp = 75, /* Exp */ |
| YYSYMBOL_Import = 76, /* Import */ |
| YYSYMBOL_ImportWhat = 77, /* ImportWhat */ |
| YYSYMBOL_ImportFrom = 78, /* ImportFrom */ |
| YYSYMBOL_FuncDef = 79, /* FuncDef */ |
| YYSYMBOL_Params = 80, /* Params */ |
| YYSYMBOL_Param = 81, /* Param */ |
| YYSYMBOL_NoFormat = 82, /* NoFormat */ |
| YYSYMBOL_String = 83, /* String */ |
| YYSYMBOL_84_1 = 84, /* @1 */ |
| YYSYMBOL_QQString = 85, /* QQString */ |
| YYSYMBOL_ElseBody = 86, /* ElseBody */ |
| YYSYMBOL_ExpD = 87, /* ExpD */ |
| YYSYMBOL_Term = 88, /* Term */ |
| YYSYMBOL_Args = 89, /* Args */ |
| YYSYMBOL_Arg = 90, /* Arg */ |
| YYSYMBOL_RepPatterns = 91, /* RepPatterns */ |
| YYSYMBOL_Patterns = 92, /* Patterns */ |
| YYSYMBOL_Pattern = 93, /* Pattern */ |
| YYSYMBOL_ArrayPats = 94, /* ArrayPats */ |
| YYSYMBOL_ObjPats = 95, /* ObjPats */ |
| YYSYMBOL_ObjPat = 96, /* ObjPat */ |
| YYSYMBOL_Keyword = 97, /* Keyword */ |
| YYSYMBOL_MkDict = 98, /* MkDict */ |
| YYSYMBOL_MkDictPair = 99 /* MkDictPair */ |
| }; |
| typedef enum yysymbol_kind_t yysymbol_kind_t; |
| |
| |
| /* Second part of user prologue. */ |
| #line 126 "src/parser.y" |
| |
| #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; |
| } |
| |
| /* Returns string message if the block is a constant that is not valid as an |
| * object key. */ |
| static jv check_object_key(block k) { |
| if (block_is_const(k) && block_const_kind(k) != JV_KIND_STRING) { |
| char errbuf[15]; |
| return jv_string_fmt("Cannot use %s (%s) as object key", |
| jv_kind_name(block_const_kind(k)), |
| jv_dump_string_trunc(block_const(k), errbuf, sizeof(errbuf))); |
| } |
| return jv_invalid(); |
| } |
| |
| 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 (op == '+') { |
| if (block_const_kind(a) == JV_KIND_NULL) { |
| block_free(a); |
| return b; |
| } |
| if (block_const_kind(b) == JV_KIND_NULL) { |
| block_free(b); |
| return a; |
| } |
| } |
| if (block_const_kind(a) != block_const_kind(b)) |
| return gen_noop(); |
| |
| jv res = jv_invalid(); |
| |
| if (block_const_kind(a) == JV_KIND_NUMBER) { |
| jv jv_a = block_const(a); |
| jv jv_b = block_const(b); |
| |
| double na = jv_number_value(jv_a); |
| double nb = jv_number_value(jv_b); |
| |
| int cmp = jv_cmp(jv_a, jv_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 = (cmp == 0 ? jv_true() : jv_false()); break; |
| case NEQ: res = (cmp != 0 ? jv_true() : jv_false()); break; |
| case '<': res = (cmp < 0 ? jv_true() : jv_false()); break; |
| case '>': res = (cmp > 0 ? jv_true() : jv_false()); break; |
| case LESSEQ: res = (cmp <= 0 ? jv_true() : jv_false()); break; |
| case GREATEREQ: res = (cmp >= 0 ? 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", 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))))); |
| } |
| |
| static block gen_loc_object(location *loc, struct locfile *locations) { |
| return gen_const(JV_OBJECT(jv_string("file"), jv_copy(locations->fname), |
| jv_string("line"), jv_number(locfile_get_line(locations, loc->start) + 1))); |
| } |
| |
| |
| #line 578 "src/parser.c" |
| |
| |
| #ifdef short |
| # undef short |
| #endif |
| |
| /* On compilers that do not define __PTRDIFF_MAX__ etc., make sure |
| <limits.h> and (if available) <stdint.h> are included |
| so that the code can choose integer types of a good width. */ |
| |
| #ifndef __PTRDIFF_MAX__ |
| # include <limits.h> /* INFRINGES ON USER NAME SPACE */ |
| # if defined __STDC_VERSION__ && 199901 <= __STDC_VERSION__ |
| # include <stdint.h> /* INFRINGES ON USER NAME SPACE */ |
| # define YY_STDINT_H |
| # endif |
| #endif |
| |
| /* Narrow types that promote to a signed type and that can represent a |
| signed or unsigned integer of at least N bits. In tables they can |
| save space and decrease cache pressure. Promoting to a signed type |
| helps avoid bugs in integer arithmetic. */ |
| |
| #ifdef __INT_LEAST8_MAX__ |
| typedef __INT_LEAST8_TYPE__ yytype_int8; |
| #elif defined YY_STDINT_H |
| typedef int_least8_t yytype_int8; |
| #else |
| typedef signed char yytype_int8; |
| #endif |
| |
| #ifdef __INT_LEAST16_MAX__ |
| typedef __INT_LEAST16_TYPE__ yytype_int16; |
| #elif defined YY_STDINT_H |
| typedef int_least16_t yytype_int16; |
| #else |
| typedef short yytype_int16; |
| #endif |
| |
| /* Work around bug in HP-UX 11.23, which defines these macros |
| incorrectly for preprocessor constants. This workaround can likely |
| be removed in 2023, as HPE has promised support for HP-UX 11.23 |
| (aka HP-UX 11i v2) only through the end of 2022; see Table 2 of |
| <https://h20195.www2.hpe.com/V2/getpdf.aspx/4AA4-7673ENW.pdf>. */ |
| #ifdef __hpux |
| # undef UINT_LEAST8_MAX |
| # undef UINT_LEAST16_MAX |
| # define UINT_LEAST8_MAX 255 |
| # define UINT_LEAST16_MAX 65535 |
| #endif |
| |
| #if defined __UINT_LEAST8_MAX__ && __UINT_LEAST8_MAX__ <= __INT_MAX__ |
| typedef __UINT_LEAST8_TYPE__ yytype_uint8; |
| #elif (!defined __UINT_LEAST8_MAX__ && defined YY_STDINT_H \ |
| && UINT_LEAST8_MAX <= INT_MAX) |
| typedef uint_least8_t yytype_uint8; |
| #elif !defined __UINT_LEAST8_MAX__ && UCHAR_MAX <= INT_MAX |
| typedef unsigned char yytype_uint8; |
| #else |
| typedef short yytype_uint8; |
| #endif |
| |
| #if defined __UINT_LEAST16_MAX__ && __UINT_LEAST16_MAX__ <= __INT_MAX__ |
| typedef __UINT_LEAST16_TYPE__ yytype_uint16; |
| #elif (!defined __UINT_LEAST16_MAX__ && defined YY_STDINT_H \ |
| && UINT_LEAST16_MAX <= INT_MAX) |
| typedef uint_least16_t yytype_uint16; |
| #elif !defined __UINT_LEAST16_MAX__ && USHRT_MAX <= INT_MAX |
| typedef unsigned short yytype_uint16; |
| #else |
| typedef int yytype_uint16; |
| #endif |
| |
| #ifndef YYPTRDIFF_T |
| # if defined __PTRDIFF_TYPE__ && defined __PTRDIFF_MAX__ |
| # define YYPTRDIFF_T __PTRDIFF_TYPE__ |
| # define YYPTRDIFF_MAXIMUM __PTRDIFF_MAX__ |
| # elif defined PTRDIFF_MAX |
| # ifndef ptrdiff_t |
| # include <stddef.h> /* INFRINGES ON USER NAME SPACE */ |
| # endif |
| # define YYPTRDIFF_T ptrdiff_t |
| # define YYPTRDIFF_MAXIMUM PTRDIFF_MAX |
| # else |
| # define YYPTRDIFF_T long |
| # define YYPTRDIFF_MAXIMUM LONG_MAX |
| # endif |
| #endif |
| |
| #ifndef YYSIZE_T |
| # ifdef __SIZE_TYPE__ |
| # define YYSIZE_T __SIZE_TYPE__ |
| # elif defined size_t |
| # define YYSIZE_T size_t |
| # elif defined __STDC_VERSION__ && 199901 <= __STDC_VERSION__ |
| # include <stddef.h> /* INFRINGES ON USER NAME SPACE */ |
| # define YYSIZE_T size_t |
| # else |
| # define YYSIZE_T unsigned |
| # endif |
| #endif |
| |
| #define YYSIZE_MAXIMUM \ |
| YY_CAST (YYPTRDIFF_T, \ |
| (YYPTRDIFF_MAXIMUM < YY_CAST (YYSIZE_T, -1) \ |
| ? YYPTRDIFF_MAXIMUM \ |
| : YY_CAST (YYSIZE_T, -1))) |
| |
| #define YYSIZEOF(X) YY_CAST (YYPTRDIFF_T, sizeof (X)) |
| |
| |
| /* Stored state numbers (used for stacks). */ |
| typedef yytype_int16 yy_state_t; |
| |
| /* State numbers in computations. */ |
| typedef int yy_state_fast_t; |
| |
| #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_PURE |
| # if defined __GNUC__ && 2 < __GNUC__ + (96 <= __GNUC_MINOR__) |
| # define YY_ATTRIBUTE_PURE __attribute__ ((__pure__)) |
| # else |
| # define YY_ATTRIBUTE_PURE |
| # endif |
| #endif |
| |
| #ifndef YY_ATTRIBUTE_UNUSED |
| # if defined __GNUC__ && 2 < __GNUC__ + (7 <= __GNUC_MINOR__) |
| # define YY_ATTRIBUTE_UNUSED __attribute__ ((__unused__)) |
| # else |
| # define YY_ATTRIBUTE_UNUSED |
| # endif |
| #endif |
| |
| /* Suppress unused-variable warnings by "using" E. */ |
| #if ! defined lint || defined __GNUC__ |
| # define YY_USE(E) ((void) (E)) |
| #else |
| # define YY_USE(E) /* empty */ |
| #endif |
| |
| /* Suppress an incorrect diagnostic about yylval being uninitialized. */ |
| #if defined __GNUC__ && ! defined __ICC && 406 <= __GNUC__ * 100 + __GNUC_MINOR__ |
| # if __GNUC__ * 100 + __GNUC_MINOR__ < 407 |
| # define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \ |
| _Pragma ("GCC diagnostic push") \ |
| _Pragma ("GCC diagnostic ignored \"-Wuninitialized\"") |
| # else |
| # define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \ |
| _Pragma ("GCC diagnostic push") \ |
| _Pragma ("GCC diagnostic ignored \"-Wuninitialized\"") \ |
| _Pragma ("GCC diagnostic ignored \"-Wmaybe-uninitialized\"") |
| # endif |
| # 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 __cplusplus && defined __GNUC__ && ! defined __ICC && 6 <= __GNUC__ |
| # define YY_IGNORE_USELESS_CAST_BEGIN \ |
| _Pragma ("GCC diagnostic push") \ |
| _Pragma ("GCC diagnostic ignored \"-Wuseless-cast\"") |
| # define YY_IGNORE_USELESS_CAST_END \ |
| _Pragma ("GCC diagnostic pop") |
| #endif |
| #ifndef YY_IGNORE_USELESS_CAST_BEGIN |
| # define YY_IGNORE_USELESS_CAST_BEGIN |
| # define YY_IGNORE_USELESS_CAST_END |
| #endif |
| |
| |
| #define YY_ASSERT(E) ((void) (0 && (E))) |
| |
| #if 1 |
| |
| /* 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 /* 1 */ |
| |
| #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 |
| { |
| yy_state_t 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 (YYSIZEOF (union yyalloc) - 1) |
| |
| /* The size of an array large to enough to hold all stacks, each with |
| N elements. */ |
| # define YYSTACK_BYTES(N) \ |
| ((N) * (YYSIZEOF (yy_state_t) + YYSIZEOF (YYSTYPE) \ |
| + YYSIZEOF (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 \ |
| { \ |
| YYPTRDIFF_T yynewbytes; \ |
| YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \ |
| Stack = &yyptr->Stack_alloc; \ |
| yynewbytes = yystacksize * YYSIZEOF (*Stack) + YYSTACK_GAP_MAXIMUM; \ |
| yyptr += yynewbytes / YYSIZEOF (*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, YY_CAST (YYSIZE_T, (Count)) * sizeof (*(Src))) |
| # else |
| # define YYCOPY(Dst, Src, Count) \ |
| do \ |
| { \ |
| YYPTRDIFF_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 29 |
| /* YYLAST -- Last index in YYTABLE. */ |
| #define YYLAST 2039 |
| |
| /* YYNTOKENS -- Number of terminals. */ |
| #define YYNTOKENS 70 |
| /* YYNNTS -- Number of nonterminals. */ |
| #define YYNNTS 30 |
| /* YYNRULES -- Number of rules. */ |
| #define YYNRULES 170 |
| /* YYNSTATES -- Number of states. */ |
| #define YYNSTATES 318 |
| |
| /* YYMAXUTOK -- Last valid token kind. */ |
| #define YYMAXUTOK 303 |
| |
| |
| /* YYTRANSLATE(TOKEN-NUM) -- Symbol number corresponding to TOKEN-NUM |
| as returned by yylex, with out-of-bounds checking. */ |
| #define YYTRANSLATE(YYX) \ |
| (0 <= (YYX) && (YYX) <= YYMAXUTOK \ |
| ? YY_CAST (yysymbol_kind_t, yytranslate[YYX]) \ |
| : YYSYMBOL_YYUNDEF) |
| |
| /* YYTRANSLATE[TOKEN-NUM] -- Symbol number corresponding to TOKEN-NUM |
| as returned by yylex. */ |
| static const yytype_int8 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, 69, 57, 2, 2, |
| 61, 62, 55, 53, 49, 54, 64, 56, 2, 2, |
| 2, 2, 2, 2, 2, 2, 2, 2, 63, 60, |
| 51, 50, 52, 59, 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, 65, 2, 66, 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, 67, 48, 68, 2, 2, 2, 2, |
| 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, |
| 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, |
| 2, 2, 2, 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, 46, 47, 58 |
| }; |
| |
| #if YYDEBUG |
| /* YYRLINE[YYN] -- Source line where rule number YYN was defined. */ |
| static const yytype_int16 yyrline[] = |
| { |
| 0, 313, 313, 316, 321, 324, 339, 342, 347, 350, |
| 355, 359, 362, 366, 370, 374, 377, 382, 385, 388, |
| 393, 400, 404, 408, 412, 416, 420, 424, 428, 432, |
| 436, 440, 444, 448, 452, 456, 460, 464, 470, 476, |
| 480, 484, 488, 492, 496, 500, 504, 508, 513, 516, |
| 533, 542, 549, 557, 568, 573, 579, 582, 587, 591, |
| 598, 603, 607, 607, 614, 617, 620, 626, 629, 632, |
| 637, 640, 643, 649, 652, 655, 663, 667, 670, 673, |
| 676, 679, 682, 685, 688, 691, 695, 701, 704, 707, |
| 710, 713, 716, 719, 722, 725, 728, 731, 734, 737, |
| 740, 743, 746, 749, 752, 755, 758, 761, 783, 787, |
| 791, 794, 806, 811, 812, 813, 814, 817, 820, 825, |
| 830, 833, 838, 841, 846, 850, 853, 858, 861, 866, |
| 869, 874, 877, 880, 883, 886, 889, 897, 903, 906, |
| 909, 912, 915, 918, 921, 924, 927, 930, 933, 936, |
| 939, 942, 945, 948, 951, 954, 959, 962, 963, 964, |
| 967, 970, 973, 976, 980, 985, 989, 993, 997, 1001, |
| 1009 |
| }; |
| #endif |
| |
| /** Accessing symbol of state STATE. */ |
| #define YY_ACCESSING_SYMBOL(State) YY_CAST (yysymbol_kind_t, yystos[State]) |
| |
| #if 1 |
| /* The user-facing name of the symbol whose (internal) number is |
| YYSYMBOL. No bounds checking. */ |
| static const char *yysymbol_name (yysymbol_kind_t yysymbol) YY_ATTRIBUTE_UNUSED; |
| |
| /* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM. |
| First, the terminals, then, starting at YYNTOKENS, nonterminals. */ |
| static const char *const yytname[] = |
| { |
| "\"end of file\"", "error", "\"invalid token\"", "INVALID_CHARACTER", |
| "IDENT", "FIELD", "BINDING", "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", "ImportWhat", "ImportFrom", "FuncDef", |
| "Params", "Param", "NoFormat", "String", "@1", "QQString", "ElseBody", |
| "ExpD", "Term", "Args", "Arg", "RepPatterns", "Patterns", "Pattern", |
| "ArrayPats", "ObjPats", "ObjPat", "Keyword", "MkDict", "MkDictPair", YY_NULLPTR |
| }; |
| |
| static const char * |
| yysymbol_name (yysymbol_kind_t yysymbol) |
| { |
| return yytname[yysymbol]; |
| } |
| #endif |
| |
| #define YYPACT_NINF (-159) |
| |
| #define yypact_value_is_default(Yyn) \ |
| ((Yyn) == YYPACT_NINF) |
| |
| #define YYTABLE_NINF (-157) |
| |
| #define yytable_value_is_error(Yyn) \ |
| ((Yyn) == YYTABLE_NINF) |
| |
| /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing |
| STATE-NUM. */ |
| static const yytype_int16 yypact[] = |
| { |
| -13, 868, 7, 41, -44, -30, -159, -159, -2, -159, |
| 65, 868, 449, 449, 868, 66, 36, -159, -159, 868, |
| 418, 285, 351, 582, 4, 1356, 868, -159, 10, -159, |
| -4, -4, 868, 41, 670, 868, -159, -159, -18, 1712, |
| 47, 51, 54, 32, -159, -159, -159, -6, 46, 1186, |
| -159, 112, -2, 58, 52, -159, 997, -24, 64, 68, |
| -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, |
| -159, -159, -159, -159, -159, -159, -159, -159, -159, 868, |
| 69, 72, 60, 92, 75, 868, 868, 868, 868, 868, |
| 868, 868, 868, 868, 868, 868, 868, 868, 868, 868, |
| 868, 868, 868, 868, 868, 868, 868, 868, 868, -159, |
| -159, 1880, 86, -5, 6, 166, 132, -159, -159, -159, |
| 1880, 868, -159, -159, 1407, 1880, 63, -159, -159, 73, |
| 868, 469, -5, -5, 520, 868, 11, -159, -159, -159, |
| -159, -159, -159, 638, 207, -159, 207, 207, 1220, 207, |
| 207, -159, 638, 146, 1948, 581, 581, 1914, 784, 1980, |
| 1948, 1948, 1948, 1948, 1948, 1948, 581, 581, 1880, 1914, |
| 1948, 581, 581, -6, -6, 95, 95, 95, -159, -159, |
| -5, 930, 114, 110, 118, 736, 101, 96, 868, 102, |
| 963, 120, -159, -159, 868, -159, 24, -159, -159, 76, |
| -159, 1458, -159, 1662, 103, 104, -159, -159, 1880, -159, |
| 868, -159, -47, -159, 207, 115, 17, 115, 115, 105, |
| 115, 115, -159, -159, -159, -19, 106, 113, 116, 868, |
| 117, -22, -159, 119, -5, 868, 107, 1031, -159, -159, |
| 1065, -159, 802, 124, -159, -159, -159, -159, 73, 125, |
| -159, 868, 868, -159, -159, 868, 868, 1746, -159, 207, |
| 207, -5, -159, -5, -5, -5, 1254, -5, 930, -159, |
| -5, 136, 1880, -159, 133, 140, 141, 1099, -159, -159, |
| 868, 1796, 1846, 1509, 1560, -159, 115, 115, -159, -159, |
| -159, -159, 138, -159, -159, -159, -159, -159, -159, 143, |
| 1611, -159, 868, 868, 868, -5, -159, -159, 1662, 1288, |
| 1133, -159, -159, -159, 868, -159, 1322, -159 |
| }; |
| |
| /* 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, 111, 82, 109, 101, 103, 74, |
| 0, 0, 0, 0, 0, 0, 0, 110, 60, 0, |
| 0, 0, 0, 0, 0, 0, 0, 102, 47, 1, |
| 0, 0, 8, 6, 0, 0, 78, 62, 0, 0, |
| 0, 0, 18, 0, 76, 75, 64, 32, 0, 0, |
| 85, 0, 0, 84, 0, 106, 0, 0, 166, 165, |
| 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, |
| 148, 149, 150, 151, 152, 153, 154, 155, 167, 0, |
| 163, 168, 0, 157, 0, 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, 81, 0, 0, 0, 0, 53, 52, 3, |
| 2, 8, 7, 48, 0, 119, 0, 117, 64, 0, |
| 0, 0, 0, 0, 0, 0, 0, 113, 104, 86, |
| 80, 114, 105, 0, 0, 116, 0, 0, 0, 0, |
| 0, 107, 0, 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, 77, 124, |
| 0, 0, 0, 0, 123, 0, 83, 0, 0, 92, |
| 0, 0, 9, 49, 0, 112, 0, 59, 58, 0, |
| 56, 0, 16, 0, 0, 0, 19, 17, 20, 65, |
| 0, 61, 0, 159, 0, 170, 72, 160, 164, 0, |
| 162, 161, 158, 108, 127, 0, 0, 0, 131, 0, |
| 0, 0, 129, 0, 0, 0, 94, 0, 79, 115, |
| 0, 91, 0, 88, 51, 50, 118, 63, 0, 0, |
| 54, 0, 0, 69, 15, 0, 0, 0, 71, 0, |
| 0, 0, 125, 0, 0, 0, 0, 0, 0, 126, |
| 0, 122, 11, 93, 90, 100, 99, 0, 87, 57, |
| 0, 0, 0, 0, 0, 66, 70, 169, 128, 137, |
| 133, 132, 0, 135, 130, 134, 89, 97, 96, 98, |
| 0, 68, 0, 0, 0, 0, 95, 55, 0, 0, |
| 0, 136, 67, 12, 0, 14, 0, 13 |
| }; |
| |
| /* YYPGOTO[NTERM-NUM]. */ |
| static const yytype_int16 yypgoto[] = |
| { |
| -159, -159, -159, 145, 74, -1, -159, -159, 172, -12, |
| -159, -43, -159, 5, -159, 78, -104, -138, -7, -159, |
| 16, -159, -69, -114, -159, -159, -51, -158, -111, -159 |
| }; |
| |
| /* YYDEFGOTO[NTERM-NUM]. */ |
| static const yytype_uint8 yydefgoto[] = |
| { |
| 0, 2, 3, 32, 119, 111, 33, 34, 116, 26, |
| 199, 200, 46, 27, 128, 136, 254, 215, 28, 126, |
| 127, 182, 183, 184, 225, 231, 232, 81, 82, 83 |
| }; |
| |
| /* 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[] = |
| { |
| 25, 179, 143, 1, 52, 40, 41, 29, 217, 218, |
| 39, 220, 221, 42, 52, 112, 144, 35, 47, 49, |
| 121, 56, 112, 233, 113, 143, 53, 268, 80, 36, |
| 261, 120, 213, 124, 125, 117, 117, 44, 18, 144, |
| 37, 222, 45, 129, 145, 130, 269, 262, 18, 106, |
| 107, 108, 112, 109, 209, 210, 112, 211, 30, 31, |
| 180, 132, 181, 204, 205, 133, 224, 209, 210, 38, |
| 247, 185, 43, 84, 114, 115, 258, 197, 148, 198, |
| 135, 114, 115, 134, 154, 155, 156, 157, 158, 159, |
| 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, |
| 170, 171, 172, 173, 174, 175, 176, 177, 137, 121, |
| 233, 114, 115, 139, 190, 114, 115, 140, 141, 186, |
| 271, 286, 287, 194, 244, 195, 245, 146, 151, 201, |
| 203, 147, 149, 207, 208, 150, 248, 216, 249, 216, |
| 216, 152, 216, 216, 153, 178, 191, 288, 80, 289, |
| 290, 291, 223, 293, 109, 234, 295, 80, 235, -121, |
| 238, 241, 239, 259, 255, 256, 273, 187, 260, 263, |
| 4, 5, 6, 7, 8, 9, 264, -120, 122, 265, |
| 267, 10, 270, 278, 237, 11, 230, 240, 280, 12, |
| 13, 311, 296, 125, 14, 192, 15, 16, 17, 297, |
| 298, 305, 306, 118, 312, 279, 196, 216, 18, 257, |
| 246, 4, 5, 6, 7, 8, 9, 294, 0, 0, |
| 19, 0, 0, 0, 0, 0, 0, 20, 266, 188, |
| 21, 22, 189, 23, 272, 24, 0, 0, 16, 17, |
| 0, 277, 0, 0, 0, 0, 0, 0, 0, 18, |
| 281, 282, 216, 216, 283, 284, 0, 0, 0, 0, |
| 0, 214, 0, 0, 0, 0, 0, 0, 20, 0, |
| 0, 21, 22, 230, 23, 0, 24, 0, 0, 300, |
| 0, 0, 0, 0, 0, -73, 50, 0, 0, 51, |
| -73, 0, 0, 52, 0, -73, -73, -73, -73, -73, |
| 0, 308, 309, 310, 0, -73, -73, -73, 0, 0, |
| -73, -73, -73, 316, -73, 0, 0, 0, -73, -73, |
| -73, -73, -73, -73, -73, -73, 0, 18, 0, 0, |
| -73, 0, 0, -73, -73, -73, -73, -73, -73, -73, |
| -73, -73, -73, 0, -73, -73, 0, -73, -73, -73, |
| -73, -73, 54, -73, 0, 4, 5, 6, 7, 8, |
| 9, 0, 0, 0, 0, 0, 10, 0, 0, 0, |
| 11, 0, 0, 0, 12, 13, 0, 0, 0, 14, |
| 0, 15, 16, 17, 0, 0, 0, 0, 0, 0, |
| 0, 0, 0, 18, 0, 0, 0, 0, 0, 0, |
| 0, 0, 0, 0, 0, 19, 0, 0, 0, 0, |
| 0, 0, 20, 0, 0, 21, 22, 55, 23, 48, |
| 24, 0, 4, 5, 6, 7, 8, 9, 0, 0, |
| 0, 0, 0, 10, 0, 0, 0, 11, 0, 0, |
| 0, 12, 13, 0, 0, 0, 14, 0, 15, 16, |
| 17, 0, 0, 4, 5, 6, 7, 8, 9, 0, |
| 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 202, 0, 19, 4, 5, 6, 7, 8, 9, 20, |
| 16, 17, 21, 22, 10, 23, 0, 24, 11, 0, |
| 0, 18, 12, 13, 0, 0, 0, 14, 0, 15, |
| 16, 17, 0, 0, 0, 0, 0, 0, 0, 0, |
| 20, 18, 0, 21, 22, 0, 23, 0, 24, 0, |
| 0, 206, 0, 19, 4, 5, 6, 7, 8, 9, |
| 20, 0, 0, 21, 22, 10, 23, 0, 24, 11, |
| 0, 0, 0, 12, 13, 0, 0, 0, 14, 0, |
| 15, 16, 17, 0, 0, 0, 0, 0, 0, 0, |
| 0, 0, 18, 0, 0, 0, 0, 0, 0, 0, |
| 0, 0, 0, 0, 19, 0, 0, 0, 0, 0, |
| 0, 20, 0, 57, 21, 22, 58, 23, 59, 24, |
| 52, 0, -157, -157, 0, 0, 60, 61, 62, 63, |
| 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, |
| 74, 75, 76, 77, 78, 0, 0, 0, 0, 0, |
| -157, -157, 0, 0, 18, 0, 0, 0, 0, 0, |
| 0, 0, -157, -157, 104, 105, 106, 107, 108, 212, |
| 109, 0, 58, 79, 59, 0, 52, 0, 0, 0, |
| -156, 0, 60, 61, 62, 63, 64, 65, 66, 67, |
| 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, |
| 78, 0, 0, 0, 4, 5, 6, 7, 8, 9, |
| 18, 0, 0, 0, 0, 10, 0, 0, 0, 11, |
| 0, 0, 0, 12, 13, 0, 0, 0, 14, 79, |
| 15, 16, 17, 0, 0, 0, -156, 0, 0, 0, |
| 0, 0, 18, 0, 0, 0, 0, 0, 0, 0, |
| 0, 0, 0, 0, 19, 0, 0, 0, 0, 0, |
| 123, 20, 0, 0, 21, 22, 0, 23, 0, 24, |
| 4, 5, 6, 7, 8, 9, 0, 0, 0, 0, |
| 0, 10, 0, 0, 0, 11, 0, 0, 0, 12, |
| 13, 0, 0, 0, 14, 0, 15, 16, 17, 0, |
| 0, 0, 0, 0, 0, 0, 0, 0, 18, 0, |
| 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 19, 0, 0, 0, 0, 86, 87, 20, 0, 0, |
| 21, 22, 236, 23, 0, 24, 4, 5, 6, 7, |
| 8, 9, 0, 0, 0, 0, 0, 10, 0, 0, |
| 0, 11, 0, 97, 98, 12, 13, 0, 0, 0, |
| 14, 0, 15, 16, 17, 102, 103, 104, 105, 106, |
| 107, 108, 0, 109, 18, 0, 0, 0, 0, 0, |
| 0, 0, 0, 0, 0, 0, 19, 0, 0, 0, |
| 0, 0, 0, 20, 0, 0, 21, 22, 276, 23, |
| 0, 24, 4, 5, 6, 7, 8, 9, 0, 0, |
| 0, 0, 0, 10, 0, 0, 0, 11, 0, 0, |
| 0, 12, 13, 0, 0, 0, 14, 0, 15, 16, |
| 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 0, 0, 19, 0, 0, 0, 0, 0, 0, 20, |
| 0, 226, 21, 22, 227, 23, 228, 24, 52, 0, |
| 0, 0, 0, 0, 60, 61, 62, 63, 64, 65, |
| 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, |
| 76, 77, 0, 0, 0, 0, 0, 0, 0, 0, |
| 0, 0, 18, 85, 86, 87, 88, 0, 0, 0, |
| 0, 0, 0, 0, 0, 0, 0, 0, 0, 89, |
| 90, 229, 0, 0, 0, 0, 91, 92, 93, 94, |
| 95, 96, 97, 98, 0, 0, 0, 85, 86, 87, |
| 88, 99, 100, 101, 102, 103, 104, 105, 106, 107, |
| 108, 0, 109, 89, 90, 0, 242, 0, 0, 243, |
| 91, 92, 93, 94, 95, 96, 97, 98, 0, 0, |
| 0, 85, 86, 87, 88, 99, 100, 101, 102, 103, |
| 104, 105, 106, 107, 108, 0, 109, 89, 90, 0, |
| 0, 0, 0, 142, 91, 92, 93, 94, 95, 96, |
| 97, 98, 0, 0, 0, 85, 86, 87, 88, 99, |
| 100, 101, 102, 103, 104, 105, 106, 107, 108, 0, |
| 109, 89, 90, 0, 0, 0, 0, 274, 91, 92, |
| 93, 94, 95, 96, 97, 98, 0, 0, 0, 85, |
| 86, 87, 88, 99, 100, 101, 102, 103, 104, 105, |
| 106, 107, 108, 0, 109, 89, 90, 0, 0, 0, |
| 0, 275, 91, 92, 93, 94, 95, 96, 97, 98, |
| 0, 0, 0, 85, 86, 87, 88, 99, 100, 101, |
| 102, 103, 104, 105, 106, 107, 108, 0, 109, 89, |
| 90, 0, 0, 0, 0, 299, 91, 92, 93, 94, |
| 95, 96, 97, 98, 0, 0, 0, 0, 0, 0, |
| 0, 99, 100, 101, 102, 103, 104, 105, 106, 107, |
| 108, 0, 109, 314, 0, 315, 85, 86, 87, 88, |
| 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 0, 0, 89, 90, 0, 0, 0, 0, 0, 91, |
| 92, 93, 94, 95, 96, 97, 98, 0, 0, 0, |
| 85, 86, 87, 88, 99, 100, 101, 102, 103, 104, |
| 105, 106, 107, 108, 0, 109, 89, 90, 138, 0, |
| 0, 0, 0, 91, 92, 93, 94, 95, 96, 97, |
| 98, 0, 0, 0, 85, 86, 87, 88, 99, 100, |
| 101, 102, 103, 104, 105, 106, 107, 108, 0, 109, |
| 89, 90, 219, 0, 0, 0, 0, 91, 92, 93, |
| 94, 95, 96, 97, 98, 0, 0, 0, 85, 86, |
| 87, 88, 99, 100, 101, 102, 103, 104, 105, 106, |
| 107, 108, 0, 109, 89, 90, 292, 0, 0, 0, |
| 0, 91, 92, 93, 94, 95, 96, 97, 98, 0, |
| 0, 0, 85, 86, 87, 88, 99, 100, 101, 102, |
| 103, 104, 105, 106, 107, 108, 0, 109, 89, 90, |
| 313, 0, 0, 0, 0, 91, 92, 93, 94, 95, |
| 96, 97, 98, 0, 0, 0, 85, 86, 87, 88, |
| 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, |
| 0, 109, 89, 90, 317, 0, 0, 0, 0, 91, |
| 92, 93, 94, 95, 96, 97, 98, 0, 0, 0, |
| 0, 0, 0, 0, 99, 100, 101, 102, 103, 104, |
| 105, 106, 107, 108, 0, 109, 110, 85, 86, 87, |
| 88, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 0, 0, 0, 89, 90, 0, 0, 0, 0, 0, |
| 91, 92, 93, 94, 95, 96, 97, 98, 0, 0, |
| 0, 0, 0, 0, 0, 99, 100, 101, 102, 103, |
| 104, 105, 106, 107, 108, 0, 109, 193, 85, 86, |
| 87, 88, 0, 0, 0, 0, 0, 0, 0, 0, |
| 0, 0, 0, 0, 89, 90, 0, 0, 0, 0, |
| 0, 91, 92, 93, 94, 95, 96, 97, 98, 0, |
| 0, 0, 0, 0, 0, 0, 99, 100, 101, 102, |
| 103, 104, 105, 106, 107, 108, 0, 109, 250, 85, |
| 86, 87, 88, 0, 0, 0, 0, 0, 0, 0, |
| 0, 0, 0, 0, 0, 89, 90, 0, 0, 0, |
| 0, 0, 91, 92, 93, 94, 95, 96, 97, 98, |
| 0, 0, 0, 0, 0, 0, 0, 99, 100, 101, |
| 102, 103, 104, 105, 106, 107, 108, 0, 109, 303, |
| 85, 86, 87, 88, 0, 0, 0, 0, 0, 0, |
| 0, 0, 0, 0, 0, 0, 89, 90, 0, 0, |
| 0, 0, 0, 91, 92, 93, 94, 95, 96, 97, |
| 98, 0, 0, 0, 0, 0, 0, 0, 99, 100, |
| 101, 102, 103, 104, 105, 106, 107, 108, 0, 109, |
| 304, 85, 86, 87, 88, 0, 0, 0, 0, 0, |
| 0, 0, 0, 0, 0, 0, 0, 89, 90, 0, |
| 0, 0, 0, 0, 91, 92, 93, 94, 95, 96, |
| 97, 98, 0, 0, 0, 0, 0, 0, 0, 99, |
| 100, 101, 102, 103, 104, 105, 106, 107, 108, 0, |
| 109, 307, 85, 86, 87, 88, 0, 0, 0, 0, |
| 0, 0, 0, 251, 252, 0, 0, 253, 89, 90, |
| 0, 0, 0, 0, 0, 91, 92, 93, 94, 95, |
| 96, 97, 98, 0, 0, 0, 0, 0, 0, 0, |
| 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, |
| 0, 109, 85, 86, 87, 88, 0, 0, 0, 0, |
| 0, 0, 131, 0, 0, 0, 0, 0, 89, 90, |
| 0, 0, 0, 0, 0, 91, 92, 93, 94, 95, |
| 96, 97, 98, 0, 0, 0, 85, 86, 87, 88, |
| 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, |
| 0, 109, 89, 90, 0, 0, 0, 0, 0, 91, |
| 92, 93, 94, 95, 96, 97, 98, 0, 0, 0, |
| 0, 285, 0, 0, 99, 100, 101, 102, 103, 104, |
| 105, 106, 107, 108, 0, 109, 85, 86, 87, 88, |
| 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 0, 301, 89, 90, 0, 0, 0, 0, 0, 91, |
| 92, 93, 94, 95, 96, 97, 98, 0, 0, 0, |
| 0, 0, 0, 0, 99, 100, 101, 102, 103, 104, |
| 105, 106, 107, 108, 0, 109, 85, 86, 87, 88, |
| 0, 0, 0, 0, 0, 0, 302, 0, 0, 0, |
| 0, 0, 89, 90, 0, 0, 0, 0, 0, 91, |
| 92, 93, 94, 95, 96, 97, 98, 0, 0, 0, |
| 85, 86, 87, 88, 99, 100, 101, 102, 103, 104, |
| 105, 106, 107, 108, 0, 109, 89, 90, 0, 0, |
| 0, 0, 0, 91, 92, 93, 94, 95, 96, 97, |
| 98, 0, 0, 0, 85, 86, 87, 88, 99, 100, |
| 101, 102, 103, 104, 105, 106, 107, 108, 0, 109, |
| 89, 90, 0, 0, 0, 0, 0, 91, 92, 93, |
| 94, 95, 96, 97, 98, 0, 0, 0, -157, 86, |
| 87, 0, 0, 0, 101, 102, 103, 104, 105, 106, |
| 107, 108, 0, 109, 89, 90, 0, 0, 0, 0, |
| 0, -157, -157, -157, -157, -157, -157, 97, 98, 0, |
| 0, 86, 87, 0, 0, 0, 0, 0, -157, 102, |
| 103, 104, 105, 106, 107, 108, 89, 109, 0, 0, |
| 0, 0, 0, 0, 0, 0, 0, 0, 0, 97, |
| 98, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| 0, 102, 103, 104, 105, 106, 107, 108, 0, 109 |
| }; |
| |
| static const yytype_int16 yycheck[] = |
| { |
| 1, 6, 49, 16, 8, 12, 13, 0, 146, 147, |
| 11, 149, 150, 14, 8, 5, 63, 61, 19, 20, |
| 32, 22, 5, 181, 14, 49, 21, 49, 23, 59, |
| 49, 32, 143, 34, 35, 30, 31, 1, 42, 63, |
| 42, 152, 6, 61, 68, 63, 68, 66, 42, 55, |
| 56, 57, 5, 59, 43, 44, 5, 46, 17, 18, |
| 65, 14, 67, 132, 133, 14, 180, 43, 44, 4, |
| 46, 65, 6, 69, 64, 65, 214, 4, 79, 6, |
| 48, 64, 65, 29, 85, 86, 87, 88, 89, 90, |
| 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, |
| 101, 102, 103, 104, 105, 106, 107, 108, 62, 121, |
| 268, 64, 65, 1, 115, 64, 65, 59, 66, 114, |
| 234, 259, 260, 60, 4, 62, 6, 63, 68, 130, |
| 131, 63, 63, 134, 135, 63, 60, 144, 62, 146, |
| 147, 49, 149, 150, 69, 59, 14, 261, 143, 263, |
| 264, 265, 6, 267, 59, 41, 270, 152, 48, 41, |
| 59, 59, 66, 48, 61, 61, 59, 1, 63, 63, |
| 4, 5, 6, 7, 8, 9, 63, 41, 33, 63, |
| 63, 15, 63, 59, 185, 19, 181, 188, 63, 23, |
| 24, 305, 59, 194, 28, 121, 30, 31, 32, 59, |
| 59, 63, 59, 31, 308, 248, 128, 214, 42, 210, |
| 194, 4, 5, 6, 7, 8, 9, 268, -1, -1, |
| 54, -1, -1, -1, -1, -1, -1, 61, 229, 63, |
| 64, 65, 66, 67, 235, 69, -1, -1, 31, 32, |
| -1, 242, -1, -1, -1, -1, -1, -1, -1, 42, |
| 251, 252, 259, 260, 255, 256, -1, -1, -1, -1, |
| -1, 54, -1, -1, -1, -1, -1, -1, 61, -1, |
| -1, 64, 65, 268, 67, -1, 69, -1, -1, 280, |
| -1, -1, -1, -1, -1, 0, 1, -1, -1, 4, |
| 5, -1, -1, 8, -1, 10, 11, 12, 13, 14, |
| -1, 302, 303, 304, -1, 20, 21, 22, -1, -1, |
| 25, 26, 27, 314, 29, -1, -1, -1, 33, 34, |
| 35, 36, 37, 38, 39, 40, -1, 42, -1, -1, |
| 45, -1, -1, 48, 49, 50, 51, 52, 53, 54, |
| 55, 56, 57, -1, 59, 60, -1, 62, 63, 64, |
| 65, 66, 1, 68, -1, 4, 5, 6, 7, 8, |
| 9, -1, -1, -1, -1, -1, 15, -1, -1, -1, |
| 19, -1, -1, -1, 23, 24, -1, -1, -1, 28, |
| -1, 30, 31, 32, -1, -1, -1, -1, -1, -1, |
| -1, -1, -1, 42, -1, -1, -1, -1, -1, -1, |
| -1, -1, -1, -1, -1, 54, -1, -1, -1, -1, |
| -1, -1, 61, -1, -1, 64, 65, 66, 67, 1, |
| 69, -1, 4, 5, 6, 7, 8, 9, -1, -1, |
| -1, -1, -1, 15, -1, -1, -1, 19, -1, -1, |
| -1, 23, 24, -1, -1, -1, 28, -1, 30, 31, |
| 32, -1, -1, 4, 5, 6, 7, 8, 9, -1, |
| 42, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| 1, -1, 54, 4, 5, 6, 7, 8, 9, 61, |
| 31, 32, 64, 65, 15, 67, -1, 69, 19, -1, |
| -1, 42, 23, 24, -1, -1, -1, 28, -1, 30, |
| 31, 32, -1, -1, -1, -1, -1, -1, -1, -1, |
| 61, 42, -1, 64, 65, -1, 67, -1, 69, -1, |
| -1, 1, -1, 54, 4, 5, 6, 7, 8, 9, |
| 61, -1, -1, 64, 65, 15, 67, -1, 69, 19, |
| -1, -1, -1, 23, 24, -1, -1, -1, 28, -1, |
| 30, 31, 32, -1, -1, -1, -1, -1, -1, -1, |
| -1, -1, 42, -1, -1, -1, -1, -1, -1, -1, |
| -1, -1, -1, -1, 54, -1, -1, -1, -1, -1, |
| -1, 61, -1, 1, 64, 65, 4, 67, 6, 69, |
| 8, -1, 11, 12, -1, -1, 14, 15, 16, 17, |
| 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, |
| 28, 29, 30, 31, 32, -1, -1, -1, -1, -1, |
| 39, 40, -1, -1, 42, -1, -1, -1, -1, -1, |
| -1, -1, 51, 52, 53, 54, 55, 56, 57, 1, |
| 59, -1, 4, 61, 6, -1, 8, -1, -1, -1, |
| 68, -1, 14, 15, 16, 17, 18, 19, 20, 21, |
| 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, |
| 32, -1, -1, -1, 4, 5, 6, 7, 8, 9, |
| 42, -1, -1, -1, -1, 15, -1, -1, -1, 19, |
| -1, -1, -1, 23, 24, -1, -1, -1, 28, 61, |
| 30, 31, 32, -1, -1, -1, 68, -1, -1, -1, |
| -1, -1, 42, -1, -1, -1, -1, -1, -1, -1, |
| -1, -1, -1, -1, 54, -1, -1, -1, -1, -1, |
| 60, 61, -1, -1, 64, 65, -1, 67, -1, 69, |
| 4, 5, 6, 7, 8, 9, -1, -1, -1, -1, |
| -1, 15, -1, -1, -1, 19, -1, -1, -1, 23, |
| 24, -1, -1, -1, 28, -1, 30, 31, 32, -1, |
| -1, -1, -1, -1, -1, -1, -1, -1, 42, -1, |
| -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| 54, -1, -1, -1, -1, 11, 12, 61, -1, -1, |
| 64, 65, 66, 67, -1, 69, 4, 5, 6, 7, |
| 8, 9, -1, -1, -1, -1, -1, 15, -1, -1, |
| -1, 19, -1, 39, 40, 23, 24, -1, -1, -1, |
| 28, -1, 30, 31, 32, 51, 52, 53, 54, 55, |
| 56, 57, -1, 59, 42, -1, -1, -1, -1, -1, |
| -1, -1, -1, -1, -1, -1, 54, -1, -1, -1, |
| -1, -1, -1, 61, -1, -1, 64, 65, 66, 67, |
| -1, 69, 4, 5, 6, 7, 8, 9, -1, -1, |
| -1, -1, -1, 15, -1, -1, -1, 19, -1, -1, |
| -1, 23, 24, -1, -1, -1, 28, -1, 30, 31, |
| 32, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| 42, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| -1, -1, 54, -1, -1, -1, -1, -1, -1, 61, |
| -1, 1, 64, 65, 4, 67, 6, 69, 8, -1, |
| -1, -1, -1, -1, 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, |
| -1, -1, 42, 10, 11, 12, 13, -1, -1, -1, |
| -1, -1, -1, -1, -1, -1, -1, -1, -1, 26, |
| 27, 61, -1, -1, -1, -1, 33, 34, 35, 36, |
| 37, 38, 39, 40, -1, -1, -1, 10, 11, 12, |
| 13, 48, 49, 50, 51, 52, 53, 54, 55, 56, |
| 57, -1, 59, 26, 27, -1, 63, -1, -1, 66, |
| 33, 34, 35, 36, 37, 38, 39, 40, -1, -1, |
| -1, 10, 11, 12, 13, 48, 49, 50, 51, 52, |
| 53, 54, 55, 56, 57, -1, 59, 26, 27, -1, |
| -1, -1, -1, 66, 33, 34, 35, 36, 37, 38, |
| 39, 40, -1, -1, -1, 10, 11, 12, 13, 48, |
| 49, 50, 51, 52, 53, 54, 55, 56, 57, -1, |
| 59, 26, 27, -1, -1, -1, -1, 66, 33, 34, |
| 35, 36, 37, 38, 39, 40, -1, -1, -1, 10, |
| 11, 12, 13, 48, 49, 50, 51, 52, 53, 54, |
| 55, 56, 57, -1, 59, 26, 27, -1, -1, -1, |
| -1, 66, 33, 34, 35, 36, 37, 38, 39, 40, |
| -1, -1, -1, 10, 11, 12, 13, 48, 49, 50, |
| 51, 52, 53, 54, 55, 56, 57, -1, 59, 26, |
| 27, -1, -1, -1, -1, 66, 33, 34, 35, 36, |
| 37, 38, 39, 40, -1, -1, -1, -1, -1, -1, |
| -1, 48, 49, 50, 51, 52, 53, 54, 55, 56, |
| 57, -1, 59, 60, -1, 62, 10, 11, 12, 13, |
| -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| -1, -1, 26, 27, -1, -1, -1, -1, -1, 33, |
| 34, 35, 36, 37, 38, 39, 40, -1, -1, -1, |
| 10, 11, 12, 13, 48, 49, 50, 51, 52, 53, |
| 54, 55, 56, 57, -1, 59, 26, 27, 62, -1, |
| -1, -1, -1, 33, 34, 35, 36, 37, 38, 39, |
| 40, -1, -1, -1, 10, 11, 12, 13, 48, 49, |
| 50, 51, 52, 53, 54, 55, 56, 57, -1, 59, |
| 26, 27, 62, -1, -1, -1, -1, 33, 34, 35, |
| 36, 37, 38, 39, 40, -1, -1, -1, 10, 11, |
| 12, 13, 48, 49, 50, 51, 52, 53, 54, 55, |
| 56, 57, -1, 59, 26, 27, 62, -1, -1, -1, |
| -1, 33, 34, 35, 36, 37, 38, 39, 40, -1, |
| -1, -1, 10, 11, 12, 13, 48, 49, 50, 51, |
| 52, 53, 54, 55, 56, 57, -1, 59, 26, 27, |
| 62, -1, -1, -1, -1, 33, 34, 35, 36, 37, |
| 38, 39, 40, -1, -1, -1, 10, 11, 12, 13, |
| 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, |
| -1, 59, 26, 27, 62, -1, -1, -1, -1, 33, |
| 34, 35, 36, 37, 38, 39, 40, -1, -1, -1, |
| -1, -1, -1, -1, 48, 49, 50, 51, 52, 53, |
| 54, 55, 56, 57, -1, 59, 60, 10, 11, 12, |
| 13, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| -1, -1, -1, 26, 27, -1, -1, -1, -1, -1, |
| 33, 34, 35, 36, 37, 38, 39, 40, -1, -1, |
| -1, -1, -1, -1, -1, 48, 49, 50, 51, 52, |
| 53, 54, 55, 56, 57, -1, 59, 60, 10, 11, |
| 12, 13, -1, -1, -1, -1, -1, -1, -1, -1, |
| -1, -1, -1, -1, 26, 27, -1, -1, -1, -1, |
| -1, 33, 34, 35, 36, 37, 38, 39, 40, -1, |
| -1, -1, -1, -1, -1, -1, 48, 49, 50, 51, |
| 52, 53, 54, 55, 56, 57, -1, 59, 60, 10, |
| 11, 12, 13, -1, -1, -1, -1, -1, -1, -1, |
| -1, -1, -1, -1, -1, 26, 27, -1, -1, -1, |
| -1, -1, 33, 34, 35, 36, 37, 38, 39, 40, |
| -1, -1, -1, -1, -1, -1, -1, 48, 49, 50, |
| 51, 52, 53, 54, 55, 56, 57, -1, 59, 60, |
| 10, 11, 12, 13, -1, -1, -1, -1, -1, -1, |
| -1, -1, -1, -1, -1, -1, 26, 27, -1, -1, |
| -1, -1, -1, 33, 34, 35, 36, 37, 38, 39, |
| 40, -1, -1, -1, -1, -1, -1, -1, 48, 49, |
| 50, 51, 52, 53, 54, 55, 56, 57, -1, 59, |
| 60, 10, 11, 12, 13, -1, -1, -1, -1, -1, |
| -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, |
| -1, -1, -1, -1, 33, 34, 35, 36, 37, 38, |
| 39, 40, -1, -1, -1, -1, -1, -1, -1, 48, |
| 49, 50, 51, 52, 53, 54, 55, 56, 57, -1, |
| 59, 60, 10, 11, 12, 13, -1, -1, -1, -1, |
| -1, -1, -1, 21, 22, -1, -1, 25, 26, 27, |
| -1, -1, -1, -1, -1, 33, 34, 35, 36, 37, |
| 38, 39, 40, -1, -1, -1, -1, -1, -1, -1, |
| 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, |
| -1, 59, 10, 11, 12, 13, -1, -1, -1, -1, |
| -1, -1, 20, -1, -1, -1, -1, -1, 26, 27, |
| -1, -1, -1, -1, -1, 33, 34, 35, 36, 37, |
| 38, 39, 40, -1, -1, -1, 10, 11, 12, 13, |
| 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, |
| -1, 59, 26, 27, -1, -1, -1, -1, -1, 33, |
| 34, 35, 36, 37, 38, 39, 40, -1, -1, -1, |
| -1, 45, -1, -1, 48, 49, 50, 51, 52, 53, |
| 54, 55, 56, 57, -1, 59, 10, 11, 12, 13, |
| -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| -1, 25, 26, 27, -1, -1, -1, -1, -1, 33, |
| 34, 35, 36, 37, 38, 39, 40, -1, -1, -1, |
| -1, -1, -1, -1, 48, 49, 50, 51, 52, 53, |
| 54, 55, 56, 57, -1, 59, 10, 11, 12, 13, |
| -1, -1, -1, -1, -1, -1, 20, -1, -1, -1, |
| -1, -1, 26, 27, -1, -1, -1, -1, -1, 33, |
| 34, 35, 36, 37, 38, 39, 40, -1, -1, -1, |
| 10, 11, 12, 13, 48, 49, 50, 51, 52, 53, |
| 54, 55, 56, 57, -1, 59, 26, 27, -1, -1, |
| -1, -1, -1, 33, 34, 35, 36, 37, 38, 39, |
| 40, -1, -1, -1, 10, 11, 12, 13, 48, 49, |
| 50, 51, 52, 53, 54, 55, 56, 57, -1, 59, |
| 26, 27, -1, -1, -1, -1, -1, 33, 34, 35, |
| 36, 37, 38, 39, 40, -1, -1, -1, 10, 11, |
| 12, -1, -1, -1, 50, 51, 52, 53, 54, 55, |
| 56, 57, -1, 59, 26, 27, -1, -1, -1, -1, |
| -1, 33, 34, 35, 36, 37, 38, 39, 40, -1, |
| -1, 11, 12, -1, -1, -1, -1, -1, 50, 51, |
| 52, 53, 54, 55, 56, 57, 26, 59, -1, -1, |
| -1, -1, -1, -1, -1, -1, -1, -1, -1, 39, |
| 40, -1, -1, -1, -1, -1, -1, -1, -1, -1, |
| -1, 51, 52, 53, 54, 55, 56, 57, -1, 59 |
| }; |
| |
| /* YYSTOS[STATE-NUM] -- The symbol kind of the accessing symbol of |
| state STATE-NUM. */ |
| static const yytype_int8 yystos[] = |
| { |
| 0, 16, 71, 72, 4, 5, 6, 7, 8, 9, |
| 15, 19, 23, 24, 28, 30, 31, 32, 42, 54, |
| 61, 64, 65, 67, 69, 75, 79, 83, 88, 0, |
| 17, 18, 73, 76, 77, 61, 59, 42, 4, 75, |
| 88, 88, 75, 6, 1, 6, 82, 75, 1, 75, |
| 1, 4, 8, 83, 1, 66, 75, 1, 4, 6, |
| 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, |
| 24, 25, 26, 27, 28, 29, 30, 31, 32, 61, |
| 83, 97, 98, 99, 69, 10, 11, 12, 13, 26, |
| 27, 33, 34, 35, 36, 37, 38, 39, 40, 48, |
| 49, 50, 51, 52, 53, 54, 55, 56, 57, 59, |
| 60, 75, 5, 14, 64, 65, 78, 83, 78, 74, |
| 75, 79, 73, 60, 75, 75, 89, 90, 84, 61, |
| 63, 20, 14, 14, 29, 48, 85, 62, 62, 1, |
| 59, 66, 66, 49, 63, 68, 63, 63, 75, 63, |
| 63, 68, 49, 69, 75, 75, 75, 75, 75, 75, |
| 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, |
| 75, 75, 75, 75, 75, 75, 75, 75, 59, 6, |
| 65, 67, 91, 92, 93, 65, 83, 1, 63, 66, |
| 75, 14, 74, 60, 60, 62, 85, 4, 6, 80, |
| 81, 75, 1, 75, 92, 92, 1, 75, 75, 43, |
| 44, 46, 1, 98, 54, 87, 88, 87, 87, 62, |
| 87, 87, 98, 6, 93, 94, 1, 4, 6, 61, |
| 83, 95, 96, 97, 41, 48, 66, 75, 59, 66, |
| 75, 59, 63, 66, 4, 6, 90, 46, 60, 62, |
| 60, 21, 22, 25, 86, 61, 61, 75, 87, 48, |
| 63, 49, 66, 63, 63, 63, 75, 63, 49, 68, |
| 63, 93, 75, 59, 66, 66, 66, 75, 59, 81, |
| 63, 75, 75, 75, 75, 45, 87, 87, 93, 93, |
| 93, 93, 62, 93, 96, 93, 59, 59, 59, 66, |
| 75, 25, 20, 60, 60, 63, 59, 60, 75, 75, |
| 75, 93, 86, 62, 60, 62, 75, 62 |
| }; |
| |
| /* YYR1[RULE-NUM] -- Symbol kind of the left-hand side of rule RULE-NUM. */ |
| static const yytype_int8 yyr1[] = |
| { |
| 0, 70, 71, 71, 72, 72, 73, 73, 74, 74, |
| 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, |
| 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, |
| 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, |
| 75, 75, 75, 75, 75, 75, 75, 75, 76, 76, |
| 77, 77, 77, 78, 79, 79, 80, 80, 81, 81, |
| 82, 83, 84, 83, 85, 85, 85, 86, 86, 86, |
| 87, 87, 87, 88, 88, 88, 88, 88, 88, 88, |
| 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, |
| 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, |
| 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, |
| 88, 88, 88, 88, 88, 88, 88, 89, 89, 90, |
| 91, 91, 92, 92, 93, 93, 93, 94, 94, 95, |
| 95, 96, 96, 96, 96, 96, 96, 96, 97, 97, |
| 97, 97, 97, 97, 97, 97, 97, 97, 97, 97, |
| 97, 97, 97, 97, 97, 97, 98, 98, 98, 98, |
| 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, |
| 99 |
| }; |
| |
| /* YYR2[RULE-NUM] -- Number of symbols on the right-hand side of rule RULE-NUM. */ |
| static const yytype_int8 yyr2[] = |
| { |
| 0, 2, 3, 3, 0, 3, 0, 2, 0, 2, |
| 2, 5, 9, 11, 9, 5, 4, 4, 2, 4, |
| 4, 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, 2, 3, |
| 4, 4, 2, 1, 5, 8, 1, 3, 1, 1, |
| 0, 4, 0, 5, 0, 2, 4, 5, 3, 1, |
| 3, 2, 1, 1, 1, 2, 2, 3, 2, 4, |
| 3, 2, 1, 3, 2, 2, 3, 5, 4, 6, |
| 5, 4, 3, 5, 4, 7, 6, 6, 6, 5, |
| 5, 1, 1, 1, 3, 3, 2, 3, 4, 1, |
| 1, 1, 4, 3, 3, 4, 3, 1, 3, 1, |
| 3, 1, 3, 1, 1, 3, 3, 1, 3, 1, |
| 3, 1, 3, 3, 3, 3, 5, 3, 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, 3, 1, 1, 1, 1, 5, |
| 3 |
| }; |
| |
| |
| enum { YYENOMEM = -2 }; |
| |
| #define yyerrok (yyerrstatus = 0) |
| #define yyclearin (yychar = YYEMPTY) |
| |
| #define YYACCEPT goto yyacceptlab |
| #define YYABORT goto yyabortlab |
| #define YYERROR goto yyerrorlab |
| #define YYNOMEM goto yyexhaustedlab |
| |
| |
| #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) |
| |
| /* Backward compatibility with an undocumented macro. |
| Use YYerror or YYUNDEF. */ |
| #define YYERRCODE YYUNDEF |
| |
| /* 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) |
| |
| |
| /* YYLOCATION_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 YYLOCATION_PRINT |
| |
| # if defined YY_LOCATION_PRINT |
| |
| /* Temporary convenience wrapper in case some people defined the |
| undocumented and private YY_LOCATION_PRINT macros. */ |
| # define YYLOCATION_PRINT(File, Loc) YY_LOCATION_PRINT(File, *(Loc)) |
| |
| # elif defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL |
| |
| /* Print *YYLOCP on YYO. Private, do not rely on its existence. */ |
| |
| YY_ATTRIBUTE_UNUSED |
| static int |
| yy_location_print_ (FILE *yyo, YYLTYPE const * const yylocp) |
| { |
| int 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 YYLOCATION_PRINT yy_location_print_ |
| |
| /* Temporary convenience wrapper in case some people defined the |
| undocumented and private YY_LOCATION_PRINT macros. */ |
| # define YY_LOCATION_PRINT(File, Loc) YYLOCATION_PRINT(File, &(Loc)) |
| |
| # else |
| |
| # define YYLOCATION_PRINT(File, Loc) ((void) 0) |
| /* Temporary convenience wrapper in case some people defined the |
| undocumented and private YY_LOCATION_PRINT macros. */ |
| # define YY_LOCATION_PRINT YYLOCATION_PRINT |
| |
| # endif |
| # endif /* !defined YYLOCATION_PRINT */ |
| |
| |
| # define YY_SYMBOL_PRINT(Title, Kind, Value, Location) \ |
| do { \ |
| if (yydebug) \ |
| { \ |
| YYFPRINTF (stderr, "%s ", Title); \ |
| yy_symbol_print (stderr, \ |
| Kind, Value, Location, answer, errors, locations, lexer_param_ptr); \ |
| YYFPRINTF (stderr, "\n"); \ |
| } \ |
| } while (0) |
| |
| |
| /*-----------------------------------. |
| | Print this symbol's value on YYO. | |
| `-----------------------------------*/ |
| |
| static void |
| yy_symbol_value_print (FILE *yyo, |
| yysymbol_kind_t yykind, YYSTYPE const * const yyvaluep, YYLTYPE const * const yylocationp, block* answer, int* errors, struct locfile* locations, struct lexer_param* lexer_param_ptr) |
| { |
| FILE *yyoutput = yyo; |
| YY_USE (yyoutput); |
| YY_USE (yylocationp); |
| YY_USE (answer); |
| YY_USE (errors); |
| YY_USE (locations); |
| YY_USE (lexer_param_ptr); |
| if (!yyvaluep) |
| return; |
| YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN |
| YY_USE (yykind); |
| YY_IGNORE_MAYBE_UNINITIALIZED_END |
| } |
| |
| |
| /*---------------------------. |
| | Print this symbol on YYO. | |
| `---------------------------*/ |
| |
| static void |
| yy_symbol_print (FILE *yyo, |
| yysymbol_kind_t yykind, YYSTYPE const * const yyvaluep, YYLTYPE const * const yylocationp, block* answer, int* errors, struct locfile* locations, struct lexer_param* lexer_param_ptr) |
| { |
| YYFPRINTF (yyo, "%s %s (", |
| yykind < YYNTOKENS ? "token" : "nterm", yysymbol_name (yykind)); |
| |
| YYLOCATION_PRINT (yyo, yylocationp); |
| YYFPRINTF (yyo, ": "); |
| yy_symbol_value_print (yyo, yykind, yyvaluep, yylocationp, answer, errors, locations, lexer_param_ptr); |
| YYFPRINTF (yyo, ")"); |
| } |
| |
| /*------------------------------------------------------------------. |
| | yy_stack_print -- Print the state stack from its BOTTOM up to its | |
| | TOP (included). | |
| `------------------------------------------------------------------*/ |
| |
| static void |
| yy_stack_print (yy_state_t *yybottom, yy_state_t *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 (yy_state_t *yyssp, YYSTYPE *yyvsp, YYLTYPE *yylsp, |
| int yyrule, block* answer, int* errors, struct locfile* locations, struct lexer_param* lexer_param_ptr) |
| { |
| int yylno = yyrline[yyrule]; |
| int yynrhs = yyr2[yyrule]; |
| int yyi; |
| YYFPRINTF (stderr, "Reducing stack by rule %d (line %d):\n", |
| yyrule - 1, yylno); |
| /* The symbols being reduced. */ |
| for (yyi = 0; yyi < yynrhs; yyi++) |
| { |
| YYFPRINTF (stderr, " $%d = ", yyi + 1); |
| yy_symbol_print (stderr, |
| YY_ACCESSING_SYMBOL (+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) ((void) 0) |
| # define YY_SYMBOL_PRINT(Title, Kind, 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 |
| |
| |
| /* Context of a parse error. */ |
| typedef struct |
| { |
| yy_state_t *yyssp; |
| yysymbol_kind_t yytoken; |
| YYLTYPE *yylloc; |
| } yypcontext_t; |
| |
| /* Put in YYARG at most YYARGN of the expected tokens given the |
| current YYCTX, and return the number of tokens stored in YYARG. If |
| YYARG is null, return the number of expected tokens (guaranteed to |
| be less than YYNTOKENS). Return YYENOMEM on memory exhaustion. |
| Return 0 if there are more than YYARGN expected tokens, yet fill |
| YYARG up to YYARGN. */ |
| static int |
| yypcontext_expected_tokens (const yypcontext_t *yyctx, |
| yysymbol_kind_t yyarg[], int yyargn) |
| { |
| /* Actual size of YYARG. */ |
| int yycount = 0; |
| int yyn = yypact[+*yyctx->yyssp]; |
| 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 != YYSYMBOL_YYerror |
| && !yytable_value_is_error (yytable[yyx + yyn])) |
| { |
| if (!yyarg) |
| ++yycount; |
| else if (yycount == yyargn) |
| return 0; |
| else |
| yyarg[yycount++] = YY_CAST (yysymbol_kind_t, yyx); |
| } |
| } |
| if (yyarg && yycount == 0 && 0 < yyargn) |
| yyarg[0] = YYSYMBOL_YYEMPTY; |
| return yycount; |
| } |
| |
| |
| |
| |
| #ifndef yystrlen |
| # if defined __GLIBC__ && defined _STRING_H |
| # define yystrlen(S) (YY_CAST (YYPTRDIFF_T, strlen (S))) |
| # else |
| /* Return the length of YYSTR. */ |
| static YYPTRDIFF_T |
| yystrlen (const char *yystr) |
| { |
| YYPTRDIFF_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 YYPTRDIFF_T |
| yytnamerr (char *yyres, const char *yystr) |
| { |
| if (*yystr == '"') |
| { |
| YYPTRDIFF_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; |
| else |
| goto append; |
| |
| append: |
| default: |
| if (yyres) |
| yyres[yyn] = *yyp; |
| yyn++; |
| break; |
| |
| case '"': |
| if (yyres) |
| yyres[yyn] = '\0'; |
| return yyn; |
| } |
| do_not_strip_quotes: ; |
| } |
| |
| if (yyres) |
| return yystpcpy (yyres, yystr) - yyres; |
| else |
| return yystrlen (yystr); |
| } |
| #endif |
| |
| |
| static int |
| yy_syntax_error_arguments (const yypcontext_t *yyctx, |
| yysymbol_kind_t yyarg[], int yyargn) |
| { |
| /* Actual size of YYARG. */ |
| 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 (yyctx->yytoken != YYSYMBOL_YYEMPTY) |
| { |
| int yyn; |
| if (yyarg) |
| yyarg[yycount] = yyctx->yytoken; |
| ++yycount; |
| yyn = yypcontext_expected_tokens (yyctx, |
| yyarg ? yyarg + 1 : yyarg, yyargn - 1); |
| if (yyn == YYENOMEM) |
| return YYENOMEM; |
| else |
| yycount += yyn; |
| } |
| return yycount; |
| } |
| |
| /* 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 YYENOMEM if the |
| required number of bytes is too large to store. */ |
| static int |
| yysyntax_error (YYPTRDIFF_T *yymsg_alloc, char **yymsg, |
| const yypcontext_t *yyctx) |
| { |
| enum { YYARGS_MAX = 5 }; |
| /* Internationalized format string. */ |
| const char *yyformat = YY_NULLPTR; |
| /* Arguments of yyformat: reported tokens (one for the "unexpected", |
| one per "expected"). */ |
| yysymbol_kind_t yyarg[YYARGS_MAX]; |
| /* Cumulated lengths of YYARG. */ |
| YYPTRDIFF_T yysize = 0; |
| |
| /* Actual size of YYARG. */ |
| int yycount = yy_syntax_error_arguments (yyctx, yyarg, YYARGS_MAX); |
| if (yycount == YYENOMEM) |
| return YYENOMEM; |
| |
| switch (yycount) |
| { |
| #define YYCASE_(N, S) \ |
| case N: \ |
| yyformat = S; \ |
| break |
| default: /* Avoid compiler warnings. */ |
| 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_ |
| } |
| |
| /* Compute error message size. Don't count the "%s"s, but reserve |
| room for the terminator. */ |
| yysize = yystrlen (yyformat) - 2 * yycount + 1; |
| { |
| int yyi; |
| for (yyi = 0; yyi < yycount; ++yyi) |
| { |
| YYPTRDIFF_T yysize1 |
| = yysize + yytnamerr (YY_NULLPTR, yytname[yyarg[yyi]]); |
| if (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM) |
| yysize = yysize1; |
| else |
| return YYENOMEM; |
| } |
| } |
| |
| 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, yytname[yyarg[yyi++]]); |
| yyformat += 2; |
| } |
| else |
| { |
| ++yyp; |
| ++yyformat; |
| } |
| } |
| return 0; |
| } |
| |
| |
| /*-----------------------------------------------. |
| | Release the memory associated to this symbol. | |
| `-----------------------------------------------*/ |
| |
| static void |
| yydestruct (const char *yymsg, |
| yysymbol_kind_t yykind, YYSTYPE *yyvaluep, YYLTYPE *yylocationp, block* answer, int* errors, struct locfile* locations, struct lexer_param* lexer_param_ptr) |
| { |
| YY_USE (yyvaluep); |
| YY_USE (yylocationp); |
| YY_USE (answer); |
| YY_USE (errors); |
| YY_USE (locations); |
| YY_USE (lexer_param_ptr); |
| if (!yymsg) |
| yymsg = "Deleting"; |
| YY_SYMBOL_PRINT (yymsg, yykind, yyvaluep, yylocationp); |
| |
| YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN |
| switch (yykind) |
| { |
| case YYSYMBOL_IDENT: /* IDENT */ |
| #line 36 "src/parser.y" |
| { jv_free(((*yyvaluep).literal)); } |
| #line 2199 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_FIELD: /* FIELD */ |
| #line 36 "src/parser.y" |
| { jv_free(((*yyvaluep).literal)); } |
| #line 2205 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_BINDING: /* BINDING */ |
| #line 36 "src/parser.y" |
| { jv_free(((*yyvaluep).literal)); } |
| #line 2211 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_LITERAL: /* LITERAL */ |
| #line 36 "src/parser.y" |
| { jv_free(((*yyvaluep).literal)); } |
| #line 2217 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_FORMAT: /* FORMAT */ |
| #line 36 "src/parser.y" |
| { jv_free(((*yyvaluep).literal)); } |
| #line 2223 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_QQSTRING_TEXT: /* QQSTRING_TEXT */ |
| #line 36 "src/parser.y" |
| { jv_free(((*yyvaluep).literal)); } |
| #line 2229 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_Module: /* Module */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2235 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_Imports: /* Imports */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2241 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_FuncDefs: /* FuncDefs */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2247 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_Exp: /* Exp */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2253 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_Import: /* Import */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2259 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_ImportWhat: /* ImportWhat */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2265 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_ImportFrom: /* ImportFrom */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2271 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_FuncDef: /* FuncDef */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2277 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_Params: /* Params */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2283 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_Param: /* Param */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2289 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_NoFormat: /* NoFormat */ |
| #line 36 "src/parser.y" |
| { jv_free(((*yyvaluep).literal)); } |
| #line 2295 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_String: /* String */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2301 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_QQString: /* QQString */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2307 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_ElseBody: /* ElseBody */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2313 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_ExpD: /* ExpD */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2319 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_Term: /* Term */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2325 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_Args: /* Args */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2331 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_Arg: /* Arg */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2337 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_RepPatterns: /* RepPatterns */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2343 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_Patterns: /* Patterns */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2349 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_Pattern: /* Pattern */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2355 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_ArrayPats: /* ArrayPats */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2361 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_ObjPats: /* ObjPats */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2367 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_ObjPat: /* ObjPat */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2373 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_Keyword: /* Keyword */ |
| #line 36 "src/parser.y" |
| { jv_free(((*yyvaluep).literal)); } |
| #line 2379 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_MkDict: /* MkDict */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2385 "src/parser.c" |
| break; |
| |
| case YYSYMBOL_MkDictPair: /* MkDictPair */ |
| #line 37 "src/parser.y" |
| { block_free(((*yyvaluep).blk)); } |
| #line 2391 "src/parser.c" |
| break; |
| |
| default: |
| break; |
| } |
| YY_IGNORE_MAYBE_UNINITIALIZED_END |
| } |
| |
| |
| |
| |
| |
| |
| /*----------. |
| | yyparse. | |
| `----------*/ |
| |
| int |
| yyparse (block* answer, int* errors, struct locfile* locations, struct lexer_param* lexer_param_ptr) |
| { |
| /* Lookahead token kind. */ |
| 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 = 0; |
| |
| yy_state_fast_t yystate = 0; |
| /* Number of tokens to shift before error messages enabled. */ |
| int yyerrstatus = 0; |
| |
| /* Refer to the stacks through separate pointers, to allow yyoverflow |
| to reallocate them elsewhere. */ |
| |
| /* Their size. */ |
| YYPTRDIFF_T yystacksize = YYINITDEPTH; |
| |
| /* The state stack: array, bottom, top. */ |
| yy_state_t yyssa[YYINITDEPTH]; |
| yy_state_t *yyss = yyssa; |
| yy_state_t *yyssp = yyss; |
| |
| /* The semantic value stack: array, bottom, top. */ |
| YYSTYPE yyvsa[YYINITDEPTH]; |
| YYSTYPE *yyvs = yyvsa; |
| YYSTYPE *yyvsp = yyvs; |
| |
| /* The location stack: array, bottom, top. */ |
| YYLTYPE yylsa[YYINITDEPTH]; |
| YYLTYPE *yyls = yylsa; |
| YYLTYPE *yylsp = yyls; |
| |
| int yyn; |
| /* The return value of yyparse. */ |
| int yyresult; |
| /* Lookahead symbol kind. */ |
| yysymbol_kind_t yytoken = YYSYMBOL_YYEMPTY; |
| /* The variables used to return semantic value and location from the |
| action routines. */ |
| YYSTYPE yyval; |
| YYLTYPE yyloc; |
| |
| /* The locations where the error started and ended. */ |
| YYLTYPE yyerror_range[3]; |
| |
| /* Buffer for error messages, and its allocated size. */ |
| char yymsgbuf[128]; |
| char *yymsg = yymsgbuf; |
| YYPTRDIFF_T yymsg_alloc = sizeof yymsgbuf; |
| |
| #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; |
| |
| YYDPRINTF ((stderr, "Starting parse\n")); |
| |
| 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 -- set current state (the top of the stack) to yystate. | |
| `--------------------------------------------------------------------*/ |
| yysetstate: |
| YYDPRINTF ((stderr, "Entering state %d\n", yystate)); |
| YY_ASSERT (0 <= yystate && yystate < YYNSTATES); |
| YY_IGNORE_USELESS_CAST_BEGIN |
| *yyssp = YY_CAST (yy_state_t, yystate); |
| YY_IGNORE_USELESS_CAST_END |
| YY_STACK_PRINT (yyss, yyssp); |
| |
| if (yyss + yystacksize - 1 <= yyssp) |
| #if !defined yyoverflow && !defined YYSTACK_RELOCATE |
| YYNOMEM; |
| #else |
| { |
| /* Get the current used size of the three stacks, in elements. */ |
| YYPTRDIFF_T yysize = yyssp - yyss + 1; |
| |
| # if defined 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. */ |
| yy_state_t *yyss1 = yyss; |
| YYSTYPE *yyvs1 = yyvs; |
| 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 * YYSIZEOF (*yyssp), |
| &yyvs1, yysize * YYSIZEOF (*yyvsp), |
| &yyls1, yysize * YYSIZEOF (*yylsp), |
| &yystacksize); |
| yyss = yyss1; |
| yyvs = yyvs1; |
| yyls = yyls1; |
| } |
| # else /* defined YYSTACK_RELOCATE */ |
| /* Extend the stack our own way. */ |
| if (YYMAXDEPTH <= yystacksize) |
| YYNOMEM; |
| yystacksize *= 2; |
| if (YYMAXDEPTH < yystacksize) |
| yystacksize = YYMAXDEPTH; |
| |
| { |
| yy_state_t *yyss1 = yyss; |
| union yyalloc *yyptr = |
| YY_CAST (union yyalloc *, |
| YYSTACK_ALLOC (YY_CAST (YYSIZE_T, YYSTACK_BYTES (yystacksize)))); |
| if (! yyptr) |
| YYNOMEM; |
| 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 |
| |
| yyssp = yyss + yysize - 1; |
| yyvsp = yyvs + yysize - 1; |
| yylsp = yyls + yysize - 1; |
| |
| YY_IGNORE_USELESS_CAST_BEGIN |
| YYDPRINTF ((stderr, "Stack size increased to %ld\n", |
| YY_CAST (long, yystacksize))); |
| YY_IGNORE_USELESS_CAST_END |
| |
| if (yyss + yystacksize - 1 <= yyssp) |
| YYABORT; |
| } |
| #endif /* !defined yyoverflow && !defined YYSTACK_RELOCATE */ |
| |
| |
| 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 empty, or end-of-input, or a valid lookahead. */ |
| if (yychar == YYEMPTY) |
| { |
| YYDPRINTF ((stderr, "Reading a token\n")); |
| yychar = yylex (&yylval, &yylloc, answer, errors, locations, lexer_param_ptr); |
| } |
| |
| if (yychar <= YYEOF) |
| { |
| yychar = YYEOF; |
| yytoken = YYSYMBOL_YYEOF; |
| YYDPRINTF ((stderr, "Now at end of input.\n")); |
| } |
| else if (yychar == YYerror) |
| { |
| /* The scanner already issued an error message, process directly |
| to error recovery. But do not keep the error token as |
| lookahead, it is too special and may lead us to an endless |
| loop in error recovery. */ |
| yychar = YYUNDEF; |
| yytoken = YYSYMBOL_YYerror; |
| yyerror_range[1] = yylloc; |
| goto yyerrlab1; |
| } |
| 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); |
| yystate = yyn; |
| YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN |
| *++yyvsp = yylval; |
| YY_IGNORE_MAYBE_UNINITIALIZED_END |
| *++yylsp = yylloc; |
| |
| /* Discard the shifted token. */ |
| yychar = YYEMPTY; |
| 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); |
| yyerror_range[1] = yyloc; |
| YY_REDUCE_PRINT (yyn); |
| switch (yyn) |
| { |
| case 2: /* TopLevel: Module Imports Exp */ |
| #line 313 "src/parser.y" |
| { |
| *answer = BLOCK((yyvsp[-2].blk), (yyvsp[-1].blk), gen_op_simple(TOP), (yyvsp[0].blk)); |
| } |
| #line 2699 "src/parser.c" |
| break; |
| |
| case 3: /* TopLevel: Module Imports FuncDefs */ |
| #line 316 "src/parser.y" |
| { |
| *answer = BLOCK((yyvsp[-2].blk), (yyvsp[-1].blk), (yyvsp[0].blk)); |
| } |
| #line 2707 "src/parser.c" |
| break; |
| |
| case 4: /* Module: %empty */ |
| #line 321 "src/parser.y" |
| { |
| (yyval.blk) = gen_noop(); |
| } |
| #line 2715 "src/parser.c" |
| break; |
| |
| case 5: /* Module: "module" Exp ';' */ |
| #line 324 "src/parser.y" |
| { |
| if (!block_is_const((yyvsp[-1].blk))) { |
| FAIL((yyloc), "Module metadata must be constant"); |
| (yyval.blk) = gen_noop(); |
| block_free((yyvsp[-1].blk)); |
| } else if (block_const_kind((yyvsp[-1].blk)) != JV_KIND_OBJECT) { |
| FAIL((yyloc), "Module metadata must be an object"); |
| (yyval.blk) = gen_noop(); |
| block_free((yyvsp[-1].blk)); |
| } else { |
| (yyval.blk) = gen_module((yyvsp[-1].blk)); |
| } |
| } |
| #line 2733 "src/parser.c" |
| break; |
| |
| case 6: /* Imports: %empty */ |
| #line 339 "src/parser.y" |
| { |
| (yyval.blk) = gen_noop(); |
| } |
| #line 2741 "src/parser.c" |
| break; |
| |
| case 7: /* Imports: Import Imports */ |
| #line 342 "src/parser.y" |
| { |
| (yyval.blk) = BLOCK((yyvsp[-1].blk), (yyvsp[0].blk)); |
| } |
| #line 2749 "src/parser.c" |
| break; |
| |
| case 8: /* FuncDefs: %empty */ |
| #line 347 "src/parser.y" |
| { |
| (yyval.blk) = gen_noop(); |
| } |
| #line 2757 "src/parser.c" |
| break; |
| |
| case 9: /* FuncDefs: FuncDef FuncDefs */ |
| #line 350 "src/parser.y" |
| { |
| (yyval.blk) = block_join((yyvsp[-1].blk), (yyvsp[0].blk)); |
| } |
| #line 2765 "src/parser.c" |
| break; |
| |
| case 10: /* Exp: FuncDef Exp */ |
| #line 355 "src/parser.y" |
| { |
| (yyval.blk) = block_bind_referenced((yyvsp[-1].blk), (yyvsp[0].blk), OP_IS_CALL_PSEUDO); |
| } |
| #line 2773 "src/parser.c" |
| break; |
| |
| case 11: /* Exp: Term "as" Patterns '|' Exp */ |
| #line 359 "src/parser.y" |
| { |
| (yyval.blk) = gen_destructure((yyvsp[-4].blk), (yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 2781 "src/parser.c" |
| break; |
| |
| case 12: /* Exp: "reduce" Term "as" Patterns '(' Exp ';' Exp ')' */ |
| #line 362 "src/parser.y" |
| { |
| (yyval.blk) = gen_reduce((yyvsp[-7].blk), (yyvsp[-5].blk), (yyvsp[-3].blk), (yyvsp[-1].blk)); |
| } |
| #line 2789 "src/parser.c" |
| break; |
| |
| case 13: /* Exp: "foreach" Term "as" Patterns '(' Exp ';' Exp ';' Exp ')' */ |
| #line 366 "src/parser.y" |
| { |
| (yyval.blk) = gen_foreach((yyvsp[-9].blk), (yyvsp[-7].blk), (yyvsp[-5].blk), (yyvsp[-3].blk), (yyvsp[-1].blk)); |
| } |
| #line 2797 "src/parser.c" |
| break; |
| |
| case 14: /* Exp: "foreach" Term "as" Patterns '(' Exp ';' Exp ')' */ |
| #line 370 "src/parser.y" |
| { |
| (yyval.blk) = gen_foreach((yyvsp[-7].blk), (yyvsp[-5].blk), (yyvsp[-3].blk), (yyvsp[-1].blk), gen_noop()); |
| } |
| #line 2805 "src/parser.c" |
| break; |
| |
| case 15: /* Exp: "if" Exp "then" Exp ElseBody */ |
| #line 374 "src/parser.y" |
| { |
| (yyval.blk) = gen_cond((yyvsp[-3].blk), (yyvsp[-1].blk), (yyvsp[0].blk)); |
| } |
| #line 2813 "src/parser.c" |
| break; |
| |
| case 16: /* Exp: "if" Exp "then" error */ |
| #line 377 "src/parser.y" |
| { |
| FAIL((yyloc), "Possibly unterminated 'if' statement"); |
| (yyval.blk) = (yyvsp[-2].blk); |
| } |
| #line 2822 "src/parser.c" |
| break; |
| |
| case 17: /* Exp: "try" Exp "catch" Exp */ |
| #line 382 "src/parser.y" |
| { |
| (yyval.blk) = gen_try((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 2830 "src/parser.c" |
| break; |
| |
| case 18: /* Exp: "try" Exp */ |
| #line 385 "src/parser.y" |
| { |
| (yyval.blk) = gen_try((yyvsp[0].blk), gen_op_simple(BACKTRACK)); |
| } |
| #line 2838 "src/parser.c" |
| break; |
| |
| case 19: /* Exp: "try" Exp "catch" error */ |
| #line 388 "src/parser.y" |
| { |
| FAIL((yyloc), "Possibly unterminated 'try' statement"); |
| (yyval.blk) = (yyvsp[-2].blk); |
| } |
| #line 2847 "src/parser.c" |
| break; |
| |
| case 20: /* Exp: "label" BINDING '|' Exp */ |
| #line 393 "src/parser.y" |
| { |
| 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 2858 "src/parser.c" |
| break; |
| |
| case 21: /* Exp: Exp '?' */ |
| #line 400 "src/parser.y" |
| { |
| (yyval.blk) = gen_try((yyvsp[-1].blk), gen_op_simple(BACKTRACK)); |
| } |
| #line 2866 "src/parser.c" |
| break; |
| |
| case 22: /* Exp: Exp '=' Exp */ |
| #line 404 "src/parser.y" |
| { |
| (yyval.blk) = gen_call("_assign", BLOCK(gen_lambda((yyvsp[-2].blk)), gen_lambda((yyvsp[0].blk)))); |
| } |
| #line 2874 "src/parser.c" |
| break; |
| |
| case 23: /* Exp: Exp "or" Exp */ |
| #line 408 "src/parser.y" |
| { |
| (yyval.blk) = gen_or((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 2882 "src/parser.c" |
| break; |
| |
| case 24: /* Exp: Exp "and" Exp */ |
| #line 412 "src/parser.y" |
| { |
| (yyval.blk) = gen_and((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 2890 "src/parser.c" |
| break; |
| |
| case 25: /* Exp: Exp "//" Exp */ |
| #line 416 "src/parser.y" |
| { |
| (yyval.blk) = gen_definedor((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 2898 "src/parser.c" |
| break; |
| |
| case 26: /* Exp: Exp "//=" Exp */ |
| #line 420 "src/parser.y" |
| { |
| (yyval.blk) = gen_definedor_assign((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 2906 "src/parser.c" |
| break; |
| |
| case 27: /* Exp: Exp "|=" Exp */ |
| #line 424 "src/parser.y" |
| { |
| (yyval.blk) = gen_call("_modify", BLOCK(gen_lambda((yyvsp[-2].blk)), gen_lambda((yyvsp[0].blk)))); |
| } |
| #line 2914 "src/parser.c" |
| break; |
| |
| case 28: /* Exp: Exp '|' Exp */ |
| #line 428 "src/parser.y" |
| { |
| (yyval.blk) = block_join((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 2922 "src/parser.c" |
| break; |
| |
| case 29: /* Exp: Exp ',' Exp */ |
| #line 432 "src/parser.y" |
| { |
| (yyval.blk) = gen_both((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 2930 "src/parser.c" |
| break; |
| |
| case 30: /* Exp: Exp '+' Exp */ |
| #line 436 "src/parser.y" |
| { |
| (yyval.blk) = gen_binop((yyvsp[-2].blk), (yyvsp[0].blk), '+'); |
| } |
| #line 2938 "src/parser.c" |
| break; |
| |
| case 31: /* Exp: Exp "+=" Exp */ |
| #line 440 "src/parser.y" |
| { |
| (yyval.blk) = gen_update((yyvsp[-2].blk), (yyvsp[0].blk), '+'); |
| } |
| #line 2946 "src/parser.c" |
| break; |
| |
| case 32: /* Exp: '-' Exp */ |
| #line 444 "src/parser.y" |
| { |
| (yyval.blk) = BLOCK((yyvsp[0].blk), gen_call("_negate", gen_noop())); |
| } |
| #line 2954 "src/parser.c" |
| break; |
| |
| case 33: /* Exp: Exp '-' Exp */ |
| #line 448 "src/parser.y" |
| { |
| (yyval.blk) = gen_binop((yyvsp[-2].blk), (yyvsp[0].blk), '-'); |
| } |
| #line 2962 "src/parser.c" |
| break; |
| |
| case 34: /* Exp: Exp "-=" Exp */ |
| #line 452 "src/parser.y" |
| { |
| (yyval.blk) = gen_update((yyvsp[-2].blk), (yyvsp[0].blk), '-'); |
| } |
| #line 2970 "src/parser.c" |
| break; |
| |
| case 35: /* Exp: Exp '*' Exp */ |
| #line 456 "src/parser.y" |
| { |
| (yyval.blk) = gen_binop((yyvsp[-2].blk), (yyvsp[0].blk), '*'); |
| } |
| #line 2978 "src/parser.c" |
| break; |
| |
| case 36: /* Exp: Exp "*=" Exp */ |
| #line 460 "src/parser.y" |
| { |
| (yyval.blk) = gen_update((yyvsp[-2].blk), (yyvsp[0].blk), '*'); |
| } |
| #line 2986 "src/parser.c" |
| break; |
| |
| case 37: /* Exp: Exp '/' Exp */ |
| #line 464 "src/parser.y" |
| { |
| (yyval.blk) = gen_binop((yyvsp[-2].blk), (yyvsp[0].blk), '/'); |
| if (block_is_const_inf((yyval.blk))) |
| FAIL((yyloc), "Division by zero?"); |
| } |
| #line 2996 "src/parser.c" |
| break; |
| |
| case 38: /* Exp: Exp '%' Exp */ |
| #line 470 "src/parser.y" |
| { |
| (yyval.blk) = gen_binop((yyvsp[-2].blk), (yyvsp[0].blk), '%'); |
| if (block_is_const_inf((yyval.blk))) |
| FAIL((yyloc), "Remainder by zero?"); |
| } |
| #line 3006 "src/parser.c" |
| break; |
| |
| case 39: /* Exp: Exp "/=" Exp */ |
| #line 476 "src/parser.y" |
| { |
| (yyval.blk) = gen_update((yyvsp[-2].blk), (yyvsp[0].blk), '/'); |
| } |
| #line 3014 "src/parser.c" |
| break; |
| |
| case 40: /* Exp: Exp "%=" Exp */ |
| #line 480 "src/parser.y" |
| { |
| (yyval.blk) = gen_update((yyvsp[-2].blk), (yyvsp[0].blk), '%'); |
| } |
| #line 3022 "src/parser.c" |
| break; |
| |
| case 41: /* Exp: Exp "==" Exp */ |
| #line 484 "src/parser.y" |
| { |
| (yyval.blk) = gen_binop((yyvsp[-2].blk), (yyvsp[0].blk), EQ); |
| } |
| #line 3030 "src/parser.c" |
| break; |
| |
| case 42: /* Exp: Exp "!=" Exp */ |
| #line 488 "src/parser.y" |
| { |
| (yyval.blk) = gen_binop((yyvsp[-2].blk), (yyvsp[0].blk), NEQ); |
| } |
| #line 3038 "src/parser.c" |
| break; |
| |
| case 43: /* Exp: Exp '<' Exp */ |
| #line 492 "src/parser.y" |
| { |
| (yyval.blk) = gen_binop((yyvsp[-2].blk), (yyvsp[0].blk), '<'); |
| } |
| #line 3046 "src/parser.c" |
| break; |
| |
| case 44: /* Exp: Exp '>' Exp */ |
| #line 496 "src/parser.y" |
| { |
| (yyval.blk) = gen_binop((yyvsp[-2].blk), (yyvsp[0].blk), '>'); |
| } |
| #line 3054 "src/parser.c" |
| break; |
| |
| case 45: /* Exp: Exp "<=" Exp */ |
| #line 500 "src/parser.y" |
| { |
| (yyval.blk) = gen_binop((yyvsp[-2].blk), (yyvsp[0].blk), LESSEQ); |
| } |
| #line 3062 "src/parser.c" |
| break; |
| |
| case 46: /* Exp: Exp ">=" Exp */ |
| #line 504 "src/parser.y" |
| { |
| (yyval.blk) = gen_binop((yyvsp[-2].blk), (yyvsp[0].blk), GREATEREQ); |
| } |
| #line 3070 "src/parser.c" |
| break; |
| |
| case 47: /* Exp: Term */ |
| #line 508 "src/parser.y" |
| { |
| (yyval.blk) = (yyvsp[0].blk); |
| } |
| #line 3078 "src/parser.c" |
| break; |
| |
| case 48: /* Import: ImportWhat ';' */ |
| #line 513 "src/parser.y" |
| { |
| (yyval.blk) = (yyvsp[-1].blk); |
| } |
| #line 3086 "src/parser.c" |
| break; |
| |
| case 49: /* Import: ImportWhat Exp ';' */ |
| #line 516 "src/parser.y" |
| { |
| if (!block_is_const((yyvsp[-1].blk))) { |
| FAIL((yyloc), "Module metadata must be constant"); |
| (yyval.blk) = gen_noop(); |
| block_free((yyvsp[-2].blk)); |
| block_free((yyvsp[-1].blk)); |
| } else if (block_const_kind((yyvsp[-1].blk)) != JV_KIND_OBJECT) { |
| FAIL((yyloc), "Module metadata must be an object"); |
| (yyval.blk) = gen_noop(); |
| block_free((yyvsp[-2].blk)); |
| block_free((yyvsp[-1].blk)); |
| } else { |
| (yyval.blk) = gen_import_meta((yyvsp[-2].blk), (yyvsp[-1].blk)); |
| } |
| } |
| #line 3106 "src/parser.c" |
| break; |
| |
| case 50: /* ImportWhat: "import" ImportFrom "as" BINDING */ |
| #line 533 "src/parser.y" |
| { |
| jv v = block_const((yyvsp[-2].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), jv_string_value((yyvsp[0].literal)), 1); |
| block_free((yyvsp[-2].blk)); |
| jv_free((yyvsp[0].literal)); |
| jv_free(v); |
| } |
| #line 3120 "src/parser.c" |
| break; |
| |
| case 51: /* ImportWhat: "import" ImportFrom "as" IDENT */ |
| #line 542 "src/parser.y" |
| { |
| jv v = block_const((yyvsp[-2].blk)); |
| (yyval.blk) = gen_import(jv_string_value(v), jv_string_value((yyvsp[0].literal)), 0); |
| block_free((yyvsp[-2].blk)); |
| jv_free((yyvsp[0].literal)); |
| jv_free(v); |
| } |
| #line 3132 "src/parser.c" |
| break; |
| |
| case 52: /* ImportWhat: "include" ImportFrom */ |
| #line 549 "src/parser.y" |
| { |
| jv v = block_const((yyvsp[0].blk)); |
| (yyval.blk) = gen_import(jv_string_value(v), NULL, 0); |
| block_free((yyvsp[0].blk)); |
| jv_free(v); |
| } |
| #line 3143 "src/parser.c" |
| break; |
| |
| case 53: /* ImportFrom: String */ |
| #line 557 "src/parser.y" |
| { |
| if (!block_is_const((yyvsp[0].blk))) { |
| FAIL((yyloc), "Import path must be constant"); |
| (yyval.blk) = gen_const(jv_string("")); |
| block_free((yyvsp[0].blk)); |
| } else { |
| (yyval.blk) = (yyvsp[0].blk); |
| } |
| } |
| #line 3157 "src/parser.c" |
| break; |
| |
| case 54: /* FuncDef: "def" IDENT ':' Exp ';' */ |
| #line 568 "src/parser.y" |
| { |
| (yyval.blk) = gen_function(jv_string_value((yyvsp[-3].literal)), gen_noop(), (yyvsp[-1].blk)); |
| jv_free((yyvsp[-3].literal)); |
| } |
| #line 3166 "src/parser.c" |
| break; |
| |
| case 55: /* FuncDef: "def" IDENT '(' Params ')' ':' Exp ';' */ |
| #line 573 "src/parser.y" |
| { |
| (yyval.blk) = gen_function(jv_string_value((yyvsp[-6].literal)), (yyvsp[-4].blk), (yyvsp[-1].blk)); |
| jv_free((yyvsp[-6].literal)); |
| } |
| #line 3175 "src/parser.c" |
| break; |
| |
| case 56: /* Params: Param */ |
| #line 579 "src/parser.y" |
| { |
| (yyval.blk) = (yyvsp[0].blk); |
| } |
| #line 3183 "src/parser.c" |
| break; |
| |
| case 57: /* Params: Params ';' Param */ |
| #line 582 "src/parser.y" |
| { |
| (yyval.blk) = BLOCK((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 3191 "src/parser.c" |
| break; |
| |
| case 58: /* Param: BINDING */ |
| #line 587 "src/parser.y" |
| { |
| (yyval.blk) = gen_param_regular(jv_string_value((yyvsp[0].literal))); |
| jv_free((yyvsp[0].literal)); |
| } |
| #line 3200 "src/parser.c" |
| break; |
| |
| case 59: /* Param: IDENT */ |
| #line 591 "src/parser.y" |
| { |
| (yyval.blk) = gen_param(jv_string_value((yyvsp[0].literal))); |
| jv_free((yyvsp[0].literal)); |
| } |
| #line 3209 "src/parser.c" |
| break; |
| |
| case 60: /* NoFormat: %empty */ |
| #line 598 "src/parser.y" |
| { |
| (yyval.literal) = jv_string("text"); |
| } |
| #line 3217 "src/parser.c" |
| break; |
| |
| case 61: /* String: QQSTRING_START NoFormat QQString QQSTRING_END */ |
| #line 603 "src/parser.y" |
| { |
| (yyval.blk) = (yyvsp[-1].blk); |
| jv_free((yyvsp[-2].literal)); |
| } |
| #line 3226 "src/parser.c" |
| break; |
| |
| case 62: /* @1: %empty */ |
| #line 607 "src/parser.y" |
| { (yyval.literal) = (yyvsp[-1].literal); } |
| #line 3232 "src/parser.c" |
| break; |
| |
| case 63: /* String: FORMAT QQSTRING_START @1 QQString QQSTRING_END */ |
| #line 607 "src/parser.y" |
| { |
| (yyval.blk) = (yyvsp[-1].blk); |
| jv_free((yyvsp[-2].literal)); |
| } |
| #line 3241 "src/parser.c" |
| break; |
| |
| case 64: /* QQString: %empty */ |
| #line 614 "src/parser.y" |
| { |
| (yyval.blk) = gen_const(jv_string("")); |
| } |
| #line 3249 "src/parser.c" |
| break; |
| |
| case 65: /* QQString: QQString QQSTRING_TEXT */ |
| #line 617 "src/parser.y" |
| { |
| (yyval.blk) = gen_binop((yyvsp[-1].blk), gen_const((yyvsp[0].literal)), '+'); |
| } |
| #line 3257 "src/parser.c" |
| break; |
| |
| case 66: /* QQString: QQString QQSTRING_INTERP_START Exp QQSTRING_INTERP_END */ |
| #line 620 "src/parser.y" |
| { |
| (yyval.blk) = gen_binop((yyvsp[-3].blk), gen_format((yyvsp[-1].blk), jv_copy((yyvsp[-4].literal))), '+'); |
| } |
| #line 3265 "src/parser.c" |
| break; |
| |
| case 67: /* ElseBody: "elif" Exp "then" Exp ElseBody */ |
| #line 626 "src/parser.y" |
| { |
| (yyval.blk) = gen_cond((yyvsp[-3].blk), (yyvsp[-1].blk), (yyvsp[0].blk)); |
| } |
| #line 3273 "src/parser.c" |
| break; |
| |
| case 68: /* ElseBody: "else" Exp "end" */ |
| #line 629 "src/parser.y" |
| { |
| (yyval.blk) = (yyvsp[-1].blk); |
| } |
| #line 3281 "src/parser.c" |
| break; |
| |
| case 69: /* ElseBody: "end" */ |
| #line 632 "src/parser.y" |
| { |
| (yyval.blk) = gen_noop(); |
| } |
| #line 3289 "src/parser.c" |
| break; |
| |
| case 70: /* ExpD: ExpD '|' ExpD */ |
| #line 637 "src/parser.y" |
| { |
| (yyval.blk) = block_join((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 3297 "src/parser.c" |
| break; |
| |
| case 71: /* ExpD: '-' ExpD */ |
| #line 640 "src/parser.y" |
| { |
| (yyval.blk) = BLOCK((yyvsp[0].blk), gen_call("_negate", gen_noop())); |
| } |
| #line 3305 "src/parser.c" |
| break; |
| |
| case 72: /* ExpD: Term */ |
| #line 643 "src/parser.y" |
| { |
| (yyval.blk) = (yyvsp[0].blk); |
| } |
| #line 3313 "src/parser.c" |
| break; |
| |
| case 73: /* Term: '.' */ |
| #line 649 "src/parser.y" |
| { |
| (yyval.blk) = gen_noop(); |
| } |
| #line 3321 "src/parser.c" |
| break; |
| |
| case 74: /* Term: ".." */ |
| #line 652 "src/parser.y" |
| { |
| (yyval.blk) = gen_call("recurse", gen_noop()); |
| } |
| #line 3329 "src/parser.c" |
| break; |
| |
| case 75: /* Term: "break" BINDING */ |
| #line 655 "src/parser.y" |
| { |
| 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 3342 "src/parser.c" |
| break; |
| |
| case 76: /* Term: "break" error */ |
| #line 663 "src/parser.y" |
| { |
| FAIL((yyloc), "break requires a label to break to"); |
| (yyval.blk) = gen_noop(); |
| } |
| #line 3351 "src/parser.c" |
| break; |
| |
| case 77: /* Term: Term FIELD '?' */ |
| #line 667 "src/parser.y" |
| { |
| (yyval.blk) = gen_index_opt((yyvsp[-2].blk), gen_const((yyvsp[-1].literal))); |
| } |
| #line 3359 "src/parser.c" |
| break; |
| |
| case 78: /* Term: FIELD '?' */ |
| #line 670 "src/parser.y" |
| { |
| (yyval.blk) = gen_index_opt(gen_noop(), gen_const((yyvsp[-1].literal))); |
| } |
| #line 3367 "src/parser.c" |
| break; |
| |
| case 79: /* Term: Term '.' String '?' */ |
| #line 673 "src/parser.y" |
| { |
| (yyval.blk) = gen_index_opt((yyvsp[-3].blk), (yyvsp[-1].blk)); |
| } |
| #line 3375 "src/parser.c" |
| break; |
| |
| case 80: /* Term: '.' String '?' */ |
| #line 676 "src/parser.y" |
| { |
| (yyval.blk) = gen_index_opt(gen_noop(), (yyvsp[-1].blk)); |
| } |
| #line 3383 "src/parser.c" |
| break; |
| |
| case 81: /* Term: Term FIELD */ |
| #line 679 "src/parser.y" |
| { |
| (yyval.blk) = gen_index((yyvsp[-1].blk), gen_const((yyvsp[0].literal))); |
| } |
| #line 3391 "src/parser.c" |
| break; |
| |
| case 82: /* Term: FIELD */ |
| #line 682 "src/parser.y" |
| { |
| (yyval.blk) = gen_index(gen_noop(), gen_const((yyvsp[0].literal))); |
| } |
| #line 3399 "src/parser.c" |
| break; |
| |
| case 83: /* Term: Term '.' String */ |
| #line 685 "src/parser.y" |
| { |
| (yyval.blk) = gen_index((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 3407 "src/parser.c" |
| break; |
| |
| case 84: /* Term: '.' String */ |
| #line 688 "src/parser.y" |
| { |
| (yyval.blk) = gen_index(gen_noop(), (yyvsp[0].blk)); |
| } |
| #line 3415 "src/parser.c" |
| break; |
| |
| case 85: /* Term: '.' error */ |
| #line 691 "src/parser.y" |
| { |
| FAIL((yyloc), "try .[\"field\"] instead of .field for unusually named fields"); |
| (yyval.blk) = gen_noop(); |
| } |
| #line 3424 "src/parser.c" |
| break; |
| |
| case 86: /* Term: '.' IDENT error */ |
| #line 695 "src/parser.y" |
| { |
| jv_free((yyvsp[-1].literal)); |
| FAIL((yyloc), "try .[\"field\"] instead of .field for unusually named fields"); |
| (yyval.blk) = gen_noop(); |
| } |
| #line 3434 "src/parser.c" |
| break; |
| |
| case 87: /* Term: Term '[' Exp ']' '?' */ |
| #line 701 "src/parser.y" |
| { |
| (yyval.blk) = gen_index_opt((yyvsp[-4].blk), (yyvsp[-2].blk)); |
| } |
| #line 3442 "src/parser.c" |
| break; |
| |
| case 88: /* Term: Term '[' Exp ']' */ |
| #line 704 "src/parser.y" |
| { |
| (yyval.blk) = gen_index((yyvsp[-3].blk), (yyvsp[-1].blk)); |
| } |
| #line 3450 "src/parser.c" |
| break; |
| |
| case 89: /* Term: Term '.' '[' Exp ']' '?' */ |
| #line 707 "src/parser.y" |
| { |
| (yyval.blk) = gen_index_opt((yyvsp[-5].blk), (yyvsp[-2].blk)); |
| } |
| #line 3458 "src/parser.c" |
| break; |
| |
| case 90: /* Term: Term '.' '[' Exp ']' */ |
| #line 710 "src/parser.y" |
| { |
| (yyval.blk) = gen_index((yyvsp[-4].blk), (yyvsp[-1].blk)); |
| } |
| #line 3466 "src/parser.c" |
| break; |
| |
| case 91: /* Term: Term '[' ']' '?' */ |
| #line 713 "src/parser.y" |
| { |
| (yyval.blk) = block_join((yyvsp[-3].blk), gen_op_simple(EACH_OPT)); |
| } |
| #line 3474 "src/parser.c" |
| break; |
| |
| case 92: /* Term: Term '[' ']' */ |
| #line 716 "src/parser.y" |
| { |
| (yyval.blk) = block_join((yyvsp[-2].blk), gen_op_simple(EACH)); |
| } |
| #line 3482 "src/parser.c" |
| break; |
| |
| case 93: /* Term: Term '.' '[' ']' '?' */ |
| #line 719 "src/parser.y" |
| { |
| (yyval.blk) = block_join((yyvsp[-4].blk), gen_op_simple(EACH_OPT)); |
| } |
| #line 3490 "src/parser.c" |
| break; |
| |
| case 94: /* Term: Term '.' '[' ']' */ |
| #line 722 "src/parser.y" |
| { |
| (yyval.blk) = block_join((yyvsp[-3].blk), gen_op_simple(EACH)); |
| } |
| #line 3498 "src/parser.c" |
| break; |
| |
| case 95: /* Term: Term '[' Exp ':' Exp ']' '?' */ |
| #line 725 "src/parser.y" |
| { |
| (yyval.blk) = gen_slice_index((yyvsp[-6].blk), (yyvsp[-4].blk), (yyvsp[-2].blk), INDEX_OPT); |
| } |
| #line 3506 "src/parser.c" |
| break; |
| |
| case 96: /* Term: Term '[' Exp ':' ']' '?' */ |
| #line 728 "src/parser.y" |
| { |
| (yyval.blk) = gen_slice_index((yyvsp[-5].blk), (yyvsp[-3].blk), gen_const(jv_null()), INDEX_OPT); |
| } |
| #line 3514 "src/parser.c" |
| break; |
| |
| case 97: /* Term: Term '[' ':' Exp ']' '?' */ |
| #line 731 "src/parser.y" |
| { |
| (yyval.blk) = gen_slice_index((yyvsp[-5].blk), gen_const(jv_null()), (yyvsp[-2].blk), INDEX_OPT); |
| } |
| #line 3522 "src/parser.c" |
| break; |
| |
| case 98: /* Term: Term '[' Exp ':' Exp ']' */ |
| #line 734 "src/parser.y" |
| { |
| (yyval.blk) = gen_slice_index((yyvsp[-5].blk), (yyvsp[-3].blk), (yyvsp[-1].blk), INDEX); |
| } |
| #line 3530 "src/parser.c" |
| break; |
| |
| case 99: /* Term: Term '[' Exp ':' ']' */ |
| #line 737 "src/parser.y" |
| { |
| (yyval.blk) = gen_slice_index((yyvsp[-4].blk), (yyvsp[-2].blk), gen_const(jv_null()), INDEX); |
| } |
| #line 3538 "src/parser.c" |
| break; |
| |
| case 100: /* Term: Term '[' ':' Exp ']' */ |
| #line 740 "src/parser.y" |
| { |
| (yyval.blk) = gen_slice_index((yyvsp[-4].blk), gen_const(jv_null()), (yyvsp[-1].blk), INDEX); |
| } |
| #line 3546 "src/parser.c" |
| break; |
| |
| case 101: /* Term: LITERAL */ |
| #line 743 "src/parser.y" |
| { |
| (yyval.blk) = gen_const((yyvsp[0].literal)); |
| } |
| #line 3554 "src/parser.c" |
| break; |
| |
| case 102: /* Term: String */ |
| #line 746 "src/parser.y" |
| { |
| (yyval.blk) = (yyvsp[0].blk); |
| } |
| #line 3562 "src/parser.c" |
| break; |
| |
| case 103: /* Term: FORMAT */ |
| #line 749 "src/parser.y" |
| { |
| (yyval.blk) = gen_format(gen_noop(), (yyvsp[0].literal)); |
| } |
| #line 3570 "src/parser.c" |
| break; |
| |
| case 104: /* Term: '(' Exp ')' */ |
| #line 752 "src/parser.y" |
| { |
| (yyval.blk) = (yyvsp[-1].blk); |
| } |
| #line 3578 "src/parser.c" |
| break; |
| |
| case 105: /* Term: '[' Exp ']' */ |
| #line 755 "src/parser.y" |
| { |
| (yyval.blk) = gen_collect((yyvsp[-1].blk)); |
| } |
| #line 3586 "src/parser.c" |
| break; |
| |
| case 106: /* Term: '[' ']' */ |
| #line 758 "src/parser.y" |
| { |
| (yyval.blk) = gen_const(jv_array()); |
| } |
| #line 3594 "src/parser.c" |
| break; |
| |
| case 107: /* Term: '{' MkDict '}' */ |
| #line 761 "src/parser.y" |
| { |
| 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 3606 "src/parser.c" |
| break; |
| |
| case 108: /* Term: '$' '$' '$' BINDING */ |
| #line 783 "src/parser.y" |
| { |
| (yyval.blk) = gen_location((yyloc), locations, gen_op_unbound(LOADVN, jv_string_value((yyvsp[0].literal)))); |
| jv_free((yyvsp[0].literal)); |
| } |
| #line 3615 "src/parser.c" |
| break; |
| |
| case 109: /* Term: BINDING */ |
| #line 787 "src/parser.y" |
| { |
| (yyval.blk) = gen_location((yyloc), locations, gen_op_unbound(LOADV, jv_string_value((yyvsp[0].literal)))); |
| jv_free((yyvsp[0].literal)); |
| } |
| #line 3624 "src/parser.c" |
| break; |
| |
| case 110: /* Term: "$__loc__" */ |
| #line 791 "src/parser.y" |
| { |
| (yyval.blk) = gen_loc_object(&(yyloc), locations); |
| } |
| #line 3632 "src/parser.c" |
| break; |
| |
| case 111: /* Term: IDENT */ |
| #line 794 "src/parser.y" |
| { |
| 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 3649 "src/parser.c" |
| break; |
| |
| case 112: /* Term: IDENT '(' Args ')' */ |
| #line 806 "src/parser.y" |
| { |
| (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 3659 "src/parser.c" |
| break; |
| |
| case 113: /* Term: '(' error ')' */ |
| #line 811 "src/parser.y" |
| { (yyval.blk) = gen_noop(); } |
| #line 3665 "src/parser.c" |
| break; |
| |
| case 114: /* Term: '[' error ']' */ |
| #line 812 "src/parser.y" |
| { (yyval.blk) = gen_noop(); } |
| #line 3671 "src/parser.c" |
| break; |
| |
| case 115: /* Term: Term '[' error ']' */ |
| #line 813 "src/parser.y" |
| { (yyval.blk) = (yyvsp[-3].blk); } |
| #line 3677 "src/parser.c" |
| break; |
| |
| case 116: /* Term: '{' error '}' */ |
| #line 814 "src/parser.y" |
| { (yyval.blk) = gen_noop(); } |
| #line 3683 "src/parser.c" |
| break; |
| |
| case 117: /* Args: Arg */ |
| #line 817 "src/parser.y" |
| { |
| (yyval.blk) = (yyvsp[0].blk); |
| } |
| #line 3691 "src/parser.c" |
| break; |
| |
| case 118: /* Args: Args ';' Arg */ |
| #line 820 "src/parser.y" |
| { |
| (yyval.blk) = BLOCK((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 3699 "src/parser.c" |
| break; |
| |
| case 119: /* Arg: Exp */ |
| #line 825 "src/parser.y" |
| { |
| (yyval.blk) = gen_lambda((yyvsp[0].blk)); |
| } |
| #line 3707 "src/parser.c" |
| break; |
| |
| case 120: /* RepPatterns: RepPatterns "?//" Pattern */ |
| #line 830 "src/parser.y" |
| { |
| (yyval.blk) = BLOCK((yyvsp[-2].blk), gen_destructure_alt((yyvsp[0].blk))); |
| } |
| #line 3715 "src/parser.c" |
| break; |
| |
| case 121: /* RepPatterns: Pattern */ |
| #line 833 "src/parser.y" |
| { |
| (yyval.blk) = gen_destructure_alt((yyvsp[0].blk)); |
| } |
| #line 3723 "src/parser.c" |
| break; |
| |
| case 122: /* Patterns: RepPatterns "?//" Pattern */ |
| #line 838 "src/parser.y" |
| { |
| (yyval.blk) = BLOCK((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 3731 "src/parser.c" |
| break; |
| |
| case 123: /* Patterns: Pattern */ |
| #line 841 "src/parser.y" |
| { |
| (yyval.blk) = (yyvsp[0].blk); |
| } |
| #line 3739 "src/parser.c" |
| break; |
| |
| case 124: /* Pattern: BINDING */ |
| #line 846 "src/parser.y" |
| { |
| (yyval.blk) = gen_op_unbound(STOREV, jv_string_value((yyvsp[0].literal))); |
| jv_free((yyvsp[0].literal)); |
| } |
| #line 3748 "src/parser.c" |
| break; |
| |
| case 125: /* Pattern: '[' ArrayPats ']' */ |
| #line 850 "src/parser.y" |
| { |
| (yyval.blk) = BLOCK((yyvsp[-1].blk), gen_op_simple(POP)); |
| } |
| #line 3756 "src/parser.c" |
| break; |
| |
| case 126: /* Pattern: '{' ObjPats '}' */ |
| #line 853 "src/parser.y" |
| { |
| (yyval.blk) = BLOCK((yyvsp[-1].blk), gen_op_simple(POP)); |
| } |
| #line 3764 "src/parser.c" |
| break; |
| |
| case 127: /* ArrayPats: Pattern */ |
| #line 858 "src/parser.y" |
| { |
| (yyval.blk) = gen_array_matcher(gen_noop(), (yyvsp[0].blk)); |
| } |
| #line 3772 "src/parser.c" |
| break; |
| |
| case 128: /* ArrayPats: ArrayPats ',' Pattern */ |
| #line 861 "src/parser.y" |
| { |
| (yyval.blk) = gen_array_matcher((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 3780 "src/parser.c" |
| break; |
| |
| case 129: /* ObjPats: ObjPat */ |
| #line 866 "src/parser.y" |
| { |
| (yyval.blk) = (yyvsp[0].blk); |
| } |
| #line 3788 "src/parser.c" |
| break; |
| |
| case 130: /* ObjPats: ObjPats ',' ObjPat */ |
| #line 869 "src/parser.y" |
| { |
| (yyval.blk) = BLOCK((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 3796 "src/parser.c" |
| break; |
| |
| case 131: /* ObjPat: BINDING */ |
| #line 874 "src/parser.y" |
| { |
| (yyval.blk) = gen_object_matcher(gen_const((yyvsp[0].literal)), gen_op_unbound(STOREV, jv_string_value((yyvsp[0].literal)))); |
| } |
| #line 3804 "src/parser.c" |
| break; |
| |
| case 132: /* ObjPat: BINDING ':' Pattern */ |
| #line 877 "src/parser.y" |
| { |
| (yyval.blk) = gen_object_matcher(gen_const((yyvsp[-2].literal)), BLOCK(gen_op_simple(DUP), gen_op_unbound(STOREV, jv_string_value((yyvsp[-2].literal))), (yyvsp[0].blk))); |
| } |
| #line 3812 "src/parser.c" |
| break; |
| |
| case 133: /* ObjPat: IDENT ':' Pattern */ |
| #line 880 "src/parser.y" |
| { |
| (yyval.blk) = gen_object_matcher(gen_const((yyvsp[-2].literal)), (yyvsp[0].blk)); |
| } |
| #line 3820 "src/parser.c" |
| break; |
| |
| case 134: /* ObjPat: Keyword ':' Pattern */ |
| #line 883 "src/parser.y" |
| { |
| (yyval.blk) = gen_object_matcher(gen_const((yyvsp[-2].literal)), (yyvsp[0].blk)); |
| } |
| #line 3828 "src/parser.c" |
| break; |
| |
| case 135: /* ObjPat: String ':' Pattern */ |
| #line 886 "src/parser.y" |
| { |
| (yyval.blk) = gen_object_matcher((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 3836 "src/parser.c" |
| break; |
| |
| case 136: /* ObjPat: '(' Exp ')' ':' Pattern */ |
| #line 889 "src/parser.y" |
| { |
| jv msg = check_object_key((yyvsp[-3].blk)); |
| if (jv_is_valid(msg)) { |
| FAIL((yyloc), jv_string_value(msg)); |
| } |
| jv_free(msg); |
| (yyval.blk) = gen_object_matcher((yyvsp[-3].blk), (yyvsp[0].blk)); |
| } |
| #line 3849 "src/parser.c" |
| break; |
| |
| case 137: /* ObjPat: error ':' Pattern */ |
| #line 897 "src/parser.y" |
| { |
| FAIL((yyloc), "May need parentheses around object key expression"); |
| (yyval.blk) = (yyvsp[0].blk); |
| } |
| #line 3858 "src/parser.c" |
| break; |
| |
| case 138: /* Keyword: "as" */ |
| #line 903 "src/parser.y" |
| { |
| (yyval.literal) = jv_string("as"); |
| } |
| #line 3866 "src/parser.c" |
| break; |
| |
| case 139: /* Keyword: "def" */ |
| #line 906 "src/parser.y" |
| { |
| (yyval.literal) = jv_string("def"); |
| } |
| #line 3874 "src/parser.c" |
| break; |
| |
| case 140: /* Keyword: "module" */ |
| #line 909 "src/parser.y" |
| { |
| (yyval.literal) = jv_string("module"); |
| } |
| #line 3882 "src/parser.c" |
| break; |
| |
| case 141: /* Keyword: "import" */ |
| #line 912 "src/parser.y" |
| { |
| (yyval.literal) = jv_string("import"); |
| } |
| #line 3890 "src/parser.c" |
| break; |
| |
| case 142: /* Keyword: "include" */ |
| #line 915 "src/parser.y" |
| { |
| (yyval.literal) = jv_string("include"); |
| } |
| #line 3898 "src/parser.c" |
| break; |
| |
| case 143: /* Keyword: "if" */ |
| #line 918 "src/parser.y" |
| { |
| (yyval.literal) = jv_string("if"); |
| } |
| #line 3906 "src/parser.c" |
| break; |
| |
| case 144: /* Keyword: "then" */ |
| #line 921 "src/parser.y" |
| { |
| (yyval.literal) = jv_string("then"); |
| } |
| #line 3914 "src/parser.c" |
| break; |
| |
| case 145: /* Keyword: "else" */ |
| #line 924 "src/parser.y" |
| { |
| (yyval.literal) = jv_string("else"); |
| } |
| #line 3922 "src/parser.c" |
| break; |
| |
| case 146: /* Keyword: "elif" */ |
| #line 927 "src/parser.y" |
| { |
| (yyval.literal) = jv_string("elif"); |
| } |
| #line 3930 "src/parser.c" |
| break; |
| |
| case 147: /* Keyword: "reduce" */ |
| #line 930 "src/parser.y" |
| { |
| (yyval.literal) = jv_string("reduce"); |
| } |
| #line 3938 "src/parser.c" |
| break; |
| |
| case 148: /* Keyword: "foreach" */ |
| #line 933 "src/parser.y" |
| { |
| (yyval.literal) = jv_string("foreach"); |
| } |
| #line 3946 "src/parser.c" |
| break; |
| |
| case 149: /* Keyword: "end" */ |
| #line 936 "src/parser.y" |
| { |
| (yyval.literal) = jv_string("end"); |
| } |
| #line 3954 "src/parser.c" |
| break; |
| |
| case 150: /* Keyword: "and" */ |
| #line 939 "src/parser.y" |
| { |
| (yyval.literal) = jv_string("and"); |
| } |
| #line 3962 "src/parser.c" |
| break; |
| |
| case 151: /* Keyword: "or" */ |
| #line 942 "src/parser.y" |
| { |
| (yyval.literal) = jv_string("or"); |
| } |
| #line 3970 "src/parser.c" |
| break; |
| |
| case 152: /* Keyword: "try" */ |
| #line 945 "src/parser.y" |
| { |
| (yyval.literal) = jv_string("try"); |
| } |
| #line 3978 "src/parser.c" |
| break; |
| |
| case 153: /* Keyword: "catch" */ |
| #line 948 "src/parser.y" |
| { |
| (yyval.literal) = jv_string("catch"); |
| } |
| #line 3986 "src/parser.c" |
| break; |
| |
| case 154: /* Keyword: "label" */ |
| #line 951 "src/parser.y" |
| { |
| (yyval.literal) = jv_string("label"); |
| } |
| #line 3994 "src/parser.c" |
| break; |
| |
| case 155: /* Keyword: "break" */ |
| #line 954 "src/parser.y" |
| { |
| (yyval.literal) = jv_string("break"); |
| } |
| #line 4002 "src/parser.c" |
| break; |
| |
| case 156: /* MkDict: %empty */ |
| #line 959 "src/parser.y" |
| { |
| (yyval.blk)=gen_noop(); |
| } |
| #line 4010 "src/parser.c" |
| break; |
| |
| case 157: /* MkDict: MkDictPair */ |
| #line 962 "src/parser.y" |
| { (yyval.blk) = (yyvsp[0].blk); } |
| #line 4016 "src/parser.c" |
| break; |
| |
| case 158: /* MkDict: MkDictPair ',' MkDict */ |
| #line 963 "src/parser.y" |
| { (yyval.blk)=block_join((yyvsp[-2].blk), (yyvsp[0].blk)); } |
| #line 4022 "src/parser.c" |
| break; |
| |
| case 159: /* MkDict: error ',' MkDict */ |
| #line 964 "src/parser.y" |
| { (yyval.blk) = (yyvsp[0].blk); } |
| #line 4028 "src/parser.c" |
| break; |
| |
| case 160: /* MkDictPair: IDENT ':' ExpD */ |
| #line 967 "src/parser.y" |
| { |
| (yyval.blk) = gen_dictpair(gen_const((yyvsp[-2].literal)), (yyvsp[0].blk)); |
| } |
| #line 4036 "src/parser.c" |
| break; |
| |
| case 161: /* MkDictPair: Keyword ':' ExpD */ |
| #line 970 "src/parser.y" |
| { |
| (yyval.blk) = gen_dictpair(gen_const((yyvsp[-2].literal)), (yyvsp[0].blk)); |
| } |
| #line 4044 "src/parser.c" |
| break; |
| |
| case 162: /* MkDictPair: String ':' ExpD */ |
| #line 973 "src/parser.y" |
| { |
| (yyval.blk) = gen_dictpair((yyvsp[-2].blk), (yyvsp[0].blk)); |
| } |
| #line 4052 "src/parser.c" |
| break; |
| |
| case 163: /* MkDictPair: String */ |
| #line 976 "src/parser.y" |
| { |
| (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 4061 "src/parser.c" |
| break; |
| |
| case 164: /* MkDictPair: BINDING ':' ExpD */ |
| #line 980 "src/parser.y" |
| { |
| (yyval.blk) = gen_dictpair(gen_location((yyloc), locations, gen_op_unbound(LOADV, jv_string_value((yyvsp[-2].literal)))), |
| (yyvsp[0].blk)); |
| jv_free((yyvsp[-2].literal)); |
| } |
| #line 4071 "src/parser.c" |
| break; |
| |
| case 165: /* MkDictPair: BINDING */ |
| #line 985 "src/parser.y" |
| { |
| (yyval.blk) = gen_dictpair(gen_const((yyvsp[0].literal)), |
| gen_location((yyloc), locations, gen_op_unbound(LOADV, jv_string_value((yyvsp[0].literal))))); |
| } |
| #line 4080 "src/parser.c" |
| break; |
| |
| case 166: /* MkDictPair: IDENT */ |
| #line 989 "src/parser.y" |
| { |
| (yyval.blk) = gen_dictpair(gen_const(jv_copy((yyvsp[0].literal))), |
| gen_index(gen_noop(), gen_const((yyvsp[0].literal)))); |
| } |
| #line 4089 "src/parser.c" |
| break; |
| |
| case 167: /* MkDictPair: "$__loc__" */ |
| #line 993 "src/parser.y" |
| { |
| (yyval.blk) = gen_dictpair(gen_const(jv_string("__loc__")), |
| gen_loc_object(&(yyloc), locations)); |
| } |
| #line 4098 "src/parser.c" |
| break; |
| |
| case 168: /* MkDictPair: Keyword */ |
| #line 997 "src/parser.y" |
| { |
| (yyval.blk) = gen_dictpair(gen_const(jv_copy((yyvsp[0].literal))), |
| gen_index(gen_noop(), gen_const((yyvsp[0].literal)))); |
| } |
| #line 4107 "src/parser.c" |
| break; |
| |
| case 169: /* MkDictPair: '(' Exp ')' ':' ExpD */ |
| #line 1001 "src/parser.y" |
| { |
| jv msg = check_object_key((yyvsp[-3].blk)); |
| if (jv_is_valid(msg)) { |
| FAIL((yyloc), jv_string_value(msg)); |
| } |
| jv_free(msg); |
| (yyval.blk) = gen_dictpair((yyvsp[-3].blk), (yyvsp[0].blk)); |
| } |
| #line 4120 "src/parser.c" |
| break; |
| |
| case 170: /* MkDictPair: error ':' ExpD */ |
| #line 1009 "src/parser.y" |
| { |
| FAIL((yyloc), "May need parentheses around object key expression"); |
| (yyval.blk) = (yyvsp[0].blk); |
| } |
| #line 4129 "src/parser.c" |
| break; |
| |
| |
| #line 4133 "src/parser.c" |
| |
| 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 ("-> $$ =", YY_CAST (yysymbol_kind_t, yyr1[yyn]), &yyval, &yyloc); |
| |
| YYPOPSTACK (yylen); |
| yylen = 0; |
| |
| *++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. */ |
| { |
| const int yylhs = yyr1[yyn] - YYNTOKENS; |
| const int yyi = yypgoto[yylhs] + *yyssp; |
| yystate = (0 <= yyi && yyi <= YYLAST && yycheck[yyi] == *yyssp |
| ? yytable[yyi] |
| : yydefgoto[yylhs]); |
| } |
| |
| 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 ? YYSYMBOL_YYEMPTY : YYTRANSLATE (yychar); |
| /* If not already recovering from an error, report this error. */ |
| if (!yyerrstatus) |
| { |
| ++yynerrs; |
| { |
| yypcontext_t yyctx |
| = {yyssp, yytoken, &yylloc}; |
| char const *yymsgp = YY_("syntax error"); |
| int yysyntax_error_status; |
| yysyntax_error_status = yysyntax_error (&yymsg_alloc, &yymsg, &yyctx); |
| if (yysyntax_error_status == 0) |
| yymsgp = yymsg; |
| else if (yysyntax_error_status == -1) |
| { |
| if (yymsg != yymsgbuf) |
| YYSTACK_FREE (yymsg); |
| yymsg = YY_CAST (char *, |
| YYSTACK_ALLOC (YY_CAST (YYSIZE_T, yymsg_alloc))); |
| if (yymsg) |
| { |
| yysyntax_error_status |
| = yysyntax_error (&yymsg_alloc, &yymsg, &yyctx); |
| yymsgp = yymsg; |
| } |
| else |
| { |
| yymsg = yymsgbuf; |
| yymsg_alloc = sizeof yymsgbuf; |
| yysyntax_error_status = YYENOMEM; |
| } |
| } |
| yyerror (&yylloc, answer, errors, locations, lexer_param_ptr, yymsgp); |
| if (yysyntax_error_status == YYENOMEM) |
| YYNOMEM; |
| } |
| } |
| |
| 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 when the user code never invokes YYERROR and the |
| label yyerrorlab therefore never appears in user code. */ |
| if (0) |
| YYERROR; |
| ++yynerrs; |
| |
| /* 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. */ |
| |
| /* Pop stack until we find a state that shifts the error token. */ |
| for (;;) |
| { |
| yyn = yypact[yystate]; |
| if (!yypact_value_is_default (yyn)) |
| { |
| yyn += YYSYMBOL_YYerror; |
| if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYSYMBOL_YYerror) |
| { |
| 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", |
| YY_ACCESSING_SYMBOL (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; |
| ++yylsp; |
| YYLLOC_DEFAULT (*yylsp, yyerror_range, 2); |
| |
| /* Shift the error token. */ |
| YY_SYMBOL_PRINT ("Shifting", YY_ACCESSING_SYMBOL (yyn), yyvsp, yylsp); |
| |
| yystate = yyn; |
| goto yynewstate; |
| |
| |
| /*-------------------------------------. |
| | yyacceptlab -- YYACCEPT comes here. | |
| `-------------------------------------*/ |
| yyacceptlab: |
| yyresult = 0; |
| goto yyreturnlab; |
| |
| |
| /*-----------------------------------. |
| | yyabortlab -- YYABORT comes here. | |
| `-----------------------------------*/ |
| yyabortlab: |
| yyresult = 1; |
| goto yyreturnlab; |
| |
| |
| /*-----------------------------------------------------------. |
| | yyexhaustedlab -- YYNOMEM (memory exhaustion) comes here. | |
| `-----------------------------------------------------------*/ |
| yyexhaustedlab: |
| yyerror (&yylloc, answer, errors, locations, lexer_param_ptr, YY_("memory exhausted")); |
| yyresult = 2; |
| goto yyreturnlab; |
| |
| |
| /*----------------------------------------------------------. |
| | yyreturnlab -- parsing is finished, clean up and return. | |
| `----------------------------------------------------------*/ |
| yyreturnlab: |
| 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", |
| YY_ACCESSING_SYMBOL (+*yyssp), yyvsp, yylsp, answer, errors, locations, lexer_param_ptr); |
| YYPOPSTACK (1); |
| } |
| #ifndef yyoverflow |
| if (yyss != yyssa) |
| YYSTACK_FREE (yyss); |
| #endif |
| if (yymsg != yymsgbuf) |
| YYSTACK_FREE (yymsg); |
| return yyresult; |
| } |
| |
| #line 1013 "src/parser.y" |
| |
| |
| 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; |
| } |