--- parser3/src/main/compile.tab.C 2013/09/30 19:44:16 1.157 +++ parser3/src/main/compile.tab.C 2016/07/19 16:36:53 1.172 @@ -1,20 +1,19 @@ -/* A Bison parser, made by GNU Bison 2.4.3. */ +/* A Bison parser, made by GNU Bison 3.0.2. */ + +/* Bison implementation for Yacc-like parsers in C + + Copyright (C) 1984, 1989-1990, 2000-2013 Free Software Foundation, Inc. -/* Skeleton implementation for Bison's Yacc-like parsers in C - - Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006, - 2009, 2010 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 . */ @@ -27,7 +26,7 @@ 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. */ @@ -45,7 +44,7 @@ #define YYBISON 1 /* Bison version. */ -#define YYBISON_VERSION "2.4.3" +#define YYBISON_VERSION "3.0.2" /* Skeleton name. */ #define YYSKELETON_NAME "yacc.c" @@ -59,26 +58,22 @@ /* Pull parsers. */ #define YYPULL 1 -/* Using locations. */ -#define YYLSP_NEEDED 0 /* Copy the first part of user declarations. */ - -/* Line 189 of yacc.c */ -#line 1 "compile.y" +#line 1 "compile.y" /* yacc.c:339 */ /** @file Parser: compiler(lexical parser and grammar). - Copyright (c) 2001-2012 Art. Lebedev Studio (http://www.artlebedev.com) + Copyright (c) 2001-2015 Art. Lebedev Studio (http://www.artlebedev.com) Author: Alexander Petrosyan (http://design.ru/paf) */ -volatile const char * IDENT_COMPILE_Y = "$Id: compile.tab.C,v 1.157 2013/09/30 19:44:16 moko Exp $"; +volatile const char * IDENT_COMPILE_Y = "$Id: compile.tab.C,v 1.172 2016/07/19 16:36:53 moko Exp $"; /** @todo parser4: @@ -92,12 +87,12 @@ volatile const char * IDENT_COMPILE_Y = */ #define YYSTYPE ArrayOperation* -#define YYPARSE_PARAM pc -#define YYLEX_PARAM pc #define YYDEBUG 1 -#define YYERROR_VERBOSE 1 -#define yyerror(msg) real_yyerror((Parse_control *)pc, msg) +#define YYERROR_VERBOSE 1 +#define yyerror(pc, msg) real_yyerror(pc, msg) #define YYPRINT(file, type, value) yyprint(file, type, value) +#define YYMALLOC pa_malloc +#define YYFREE pa_free // includes @@ -111,11 +106,9 @@ volatile const char * IDENT_COMPILE_Y = // defines +#define CLASS_NAME "CLASS" #define USE_CONTROL_METHOD_NAME "USE" #define OPTIONS_CONTROL_METHOD_NAME "OPTIONS" -#define OPTION_ALL_VARS_LOCAL_NAME "locals" -#define OPTION_PARTIAL_CLASS "partial" -#define REM_OPERATOR_NAME "rem" // forwards @@ -129,26 +122,33 @@ static const VString vempty; // local convinient inplace typecast & var #undef PC -#define PC (*(Parse_control *)pc) +#define PC (*pc) #undef POOL #define POOL (*PC.pool) #ifndef DOXYGEN -#define CLASS_ADD if(PC.class_add()){ \ - strncpy(PC.error, PC.cclass->name().cstr(), MAX_STRING/2); \ - strcat(PC.error, " - class is already defined"); \ - YYERROR; \ +#define CLASS_ADD if(PC.class_add()){ \ + strncpy(PC.error, PC.cclass->type(), MAX_STRING/2); \ + strcat(PC.error, " - class is already defined"); \ + YYERROR; \ } +#define PC_ERROR(header, value, footer){ \ + strcpy(PC.error, header); \ + strncat(PC.error, value, MAX_STRING/2); \ + strcat(PC.error, footer); \ +} -/* Line 189 of yacc.c */ -#line 147 "compile.tab.C" +#line 144 "compile.tab.C" /* yacc.c:339 */ -/* Enabling traces. */ -#ifndef YYDEBUG -# define YYDEBUG 0 -#endif +# ifndef YY_NULLPTR +# if defined __cplusplus && 201103L <= __cplusplus +# define YY_NULLPTR nullptr +# else +# define YY_NULLPTR 0 +# endif +# endif /* Enabling verbose error messages. */ #ifdef YYERROR_VERBOSE @@ -158,68 +158,70 @@ static const VString vempty; # define YYERROR_VERBOSE 0 #endif -/* Enabling the token table. */ -#ifndef YYTOKEN_TABLE -# define YYTOKEN_TABLE 0 -#endif +/* Debug traces. */ +#ifndef YYDEBUG +# define YYDEBUG 0 +#endif +#if YYDEBUG +extern int yydebug; +#endif -/* Tokens. */ +/* Token type. */ #ifndef YYTOKENTYPE # define YYTOKENTYPE - /* Put the tokens into the symbol table, so that GDB and other debuggers - know about them. */ - enum yytokentype { - EON = 258, - STRING = 259, - BOGUS = 260, - BAD_STRING_COMPARISON_OPERATOR = 261, - BAD_HEX_LITERAL = 262, - BAD_METHOD_DECL_START = 263, - BAD_METHOD_PARAMETER_NAME_CHARACTER = 264, - BAD_NONWHITESPACE_CHARACTER_IN_EXPLICIT_RESULT_MODE = 265, - LAND = 266, - LOR = 267, - LXOR = 268, - NXOR = 269, - NLE = 270, - NGE = 271, - NEQ = 272, - NNE = 273, - NSL = 274, - NSR = 275, - SLT = 276, - SGT = 277, - SLE = 278, - SGE = 279, - SEQ = 280, - SNE = 281, - DEF = 282, - IN = 283, - FEXISTS = 284, - DEXISTS = 285, - IS = 286, - LITERAL_TRUE = 287, - LITERAL_FALSE = 288, - NUNARY = 289 - }; + enum yytokentype + { + EON = 258, + STRING = 259, + BOGUS = 260, + BAD_STRING_COMPARISON_OPERATOR = 261, + BAD_HEX_LITERAL = 262, + BAD_METHOD_DECL_START = 263, + BAD_METHOD_PARAMETER_NAME_CHARACTER = 264, + LAND = 265, + LOR = 266, + LXOR = 267, + NXOR = 268, + NLE = 269, + NGE = 270, + NEQ = 271, + NNE = 272, + NSL = 273, + NSR = 274, + SLT = 275, + SGT = 276, + SLE = 277, + SGE = 278, + SEQ = 279, + SNE = 280, + DEF = 281, + IN = 282, + FEXISTS = 283, + DEXISTS = 284, + IS = 285, + LITERAL_TRUE = 286, + LITERAL_FALSE = 287, + NUNARY = 288 + }; #endif - - +/* Value type. */ #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED typedef int YYSTYPE; # define YYSTYPE_IS_TRIVIAL 1 -# define yystype YYSTYPE /* obsolescent; will be withdrawn */ # define YYSTYPE_IS_DECLARED 1 #endif -/* Copy the second part of user declarations. */ + +int yyparse (Parse_control* pc); + -/* Line 264 of yacc.c */ -#line 223 "compile.tab.C" +/* Copy the second part of user declarations. */ + +#line 225 "compile.tab.C" /* yacc.c:358 */ #ifdef short # undef short @@ -233,11 +235,8 @@ typedef unsigned char yytype_uint8; #ifdef YYTYPE_INT8 typedef YYTYPE_INT8 yytype_int8; -#elif (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) -typedef signed char yytype_int8; #else -typedef short int yytype_int8; +typedef signed char yytype_int8; #endif #ifdef YYTYPE_UINT16 @@ -257,8 +256,7 @@ typedef short int yytype_int16; # define YYSIZE_T __SIZE_TYPE__ # elif defined size_t # define YYSIZE_T size_t -# elif ! defined YYSIZE_T && (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) +# elif ! defined YYSIZE_T # include /* INFRINGES ON USER NAME SPACE */ # define YYSIZE_T size_t # else @@ -272,38 +270,67 @@ typedef short int yytype_int16; # if defined YYENABLE_NLS && YYENABLE_NLS # if ENABLE_NLS # include /* INFRINGES ON USER NAME SPACE */ -# define YY_(msgid) dgettext ("bison-runtime", msgid) +# define YY_(Msgid) dgettext ("bison-runtime", Msgid) # endif # endif # ifndef YY_ -# define YY_(msgid) msgid +# define YY_(Msgid) Msgid +# endif +#endif + +#ifndef YY_ATTRIBUTE +# if (defined __GNUC__ \ + && (2 < __GNUC__ || (__GNUC__ == 2 && 96 <= __GNUC_MINOR__))) \ + || defined __SUNPRO_C && 0x5110 <= __SUNPRO_C +# define YY_ATTRIBUTE(Spec) __attribute__(Spec) +# else +# define YY_ATTRIBUTE(Spec) /* empty */ +# endif +#endif + +#ifndef YY_ATTRIBUTE_PURE +# define YY_ATTRIBUTE_PURE YY_ATTRIBUTE ((__pure__)) +#endif + +#ifndef YY_ATTRIBUTE_UNUSED +# define YY_ATTRIBUTE_UNUSED YY_ATTRIBUTE ((__unused__)) +#endif + +#if !defined _Noreturn \ + && (!defined __STDC_VERSION__ || __STDC_VERSION__ < 201112) +# if defined _MSC_VER && 1200 <= _MSC_VER +# define _Noreturn __declspec (noreturn) +# else +# define _Noreturn YY_ATTRIBUTE ((__noreturn__)) # endif #endif /* Suppress unused-variable warnings by "using" E. */ #if ! defined lint || defined __GNUC__ -# define YYUSE(e) ((void) (e)) +# define YYUSE(E) ((void) (E)) #else -# define YYUSE(e) /* empty */ +# define YYUSE(E) /* empty */ #endif -/* Identity function, used to suppress warnings about constant conditions. */ -#ifndef lint -# define YYID(n) (n) +#if defined __GNUC__ && 407 <= __GNUC__ * 100 + __GNUC_MINOR__ +/* Suppress an incorrect diagnostic about yylval being uninitialized. */ +# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \ + _Pragma ("GCC diagnostic push") \ + _Pragma ("GCC diagnostic ignored \"-Wuninitialized\"")\ + _Pragma ("GCC diagnostic ignored \"-Wmaybe-uninitialized\"") +# define YY_IGNORE_MAYBE_UNINITIALIZED_END \ + _Pragma ("GCC diagnostic pop") #else -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) -static int -YYID (int yyi) -#else -static int -YYID (yyi) - int yyi; +# define YY_INITIAL_VALUE(Value) Value #endif -{ - return yyi; -} +#ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN +# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN +# define YY_IGNORE_MAYBE_UNINITIALIZED_END #endif +#ifndef YY_INITIAL_VALUE +# define YY_INITIAL_VALUE(Value) /* Nothing. */ +#endif + #if ! defined yyoverflow || YYERROR_VERBOSE @@ -322,11 +349,11 @@ YYID (yyi) # define alloca _alloca # else # define YYSTACK_ALLOC alloca -# if ! defined _ALLOCA_H && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) +# if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS # include /* INFRINGES ON USER NAME SPACE */ -# ifndef _STDLIB_H -# define _STDLIB_H 1 + /* Use EXIT_SUCCESS as a witness for stdlib.h. */ +# ifndef EXIT_SUCCESS +# define EXIT_SUCCESS 0 # endif # endif # endif @@ -334,8 +361,8 @@ YYID (yyi) # endif # ifdef YYSTACK_ALLOC - /* Pacify GCC's `empty if-body' warning. */ -# define YYSTACK_FREE(Ptr) do { /* empty */; } while (YYID (0)) + /* 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 @@ -349,25 +376,23 @@ YYID (yyi) # ifndef YYSTACK_ALLOC_MAXIMUM # define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM # endif -# if (defined __cplusplus && ! defined _STDLIB_H \ +# if (defined __cplusplus && ! defined EXIT_SUCCESS \ && ! ((defined YYMALLOC || defined malloc) \ - && (defined YYFREE || defined free))) + && (defined YYFREE || defined free))) # include /* INFRINGES ON USER NAME SPACE */ -# ifndef _STDLIB_H -# define _STDLIB_H 1 +# ifndef EXIT_SUCCESS +# define EXIT_SUCCESS 0 # endif # endif # ifndef YYMALLOC # define YYMALLOC malloc -# if ! defined malloc && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) +# 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 _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) +# if ! defined free && ! defined EXIT_SUCCESS void free (void *); /* INFRINGES ON USER NAME SPACE */ # endif # endif @@ -377,7 +402,7 @@ void free (void *); /* INFRINGES ON USER #if (! defined yyoverflow \ && (! defined __cplusplus \ - || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL))) + || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL))) /* A type that is properly aligned for any stack member. */ union yyalloc @@ -395,79 +420,85 @@ union yyalloc ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \ + YYSTACK_GAP_MAXIMUM) -/* Copy COUNT objects from FROM to TO. The source and destination do - not overlap. */ -# ifndef YYCOPY -# if defined __GNUC__ && 1 < __GNUC__ -# define YYCOPY(To, From, Count) \ - __builtin_memcpy (To, From, (Count) * sizeof (*(From))) -# else -# define YYCOPY(To, From, Count) \ - do \ - { \ - YYSIZE_T yyi; \ - for (yyi = 0; yyi < (Count); yyi++) \ - (To)[yyi] = (From)[yyi]; \ - } \ - while (YYID (0)) -# endif -# endif +# define YYCOPY_NEEDED 1 /* Relocate STACK from its old location to the new one. The local variables YYSIZE and YYSTACKSIZE give the old and new number of elements in the stack, and YYPTR gives the new location of the stack. Advance YYPTR to a properly aligned location for the next stack. */ -# define YYSTACK_RELOCATE(Stack_alloc, Stack) \ - do \ - { \ - YYSIZE_T yynewbytes; \ - YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \ - Stack = &yyptr->Stack_alloc; \ - yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \ - yyptr += yynewbytes / sizeof (*yyptr); \ - } \ - while (YYID (0)) +# define YYSTACK_RELOCATE(Stack_alloc, Stack) \ + do \ + { \ + YYSIZE_T yynewbytes; \ + YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \ + Stack = &yyptr->Stack_alloc; \ + yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \ + yyptr += yynewbytes / sizeof (*yyptr); \ + } \ + while (0) #endif +#if defined YYCOPY_NEEDED && YYCOPY_NEEDED +/* Copy COUNT objects from SRC to DST. The source and destination do + not overlap. */ +# ifndef YYCOPY +# if defined __GNUC__ && 1 < __GNUC__ +# define YYCOPY(Dst, Src, Count) \ + __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src))) +# else +# define YYCOPY(Dst, Src, Count) \ + do \ + { \ + YYSIZE_T yyi; \ + for (yyi = 0; yyi < (Count); yyi++) \ + (Dst)[yyi] = (Src)[yyi]; \ + } \ + while (0) +# endif +# endif +#endif /* !YYCOPY_NEEDED */ + /* YYFINAL -- State number of the termination state. */ #define YYFINAL 51 /* YYLAST -- Last index in YYTABLE. */ -#define YYLAST 470 +#define YYLAST 473 /* YYNTOKENS -- Number of terminals. */ -#define YYNTOKENS 62 +#define YYNTOKENS 61 /* YYNNTS -- Number of nonterminals. */ #define YYNNTS 89 /* YYNRULES -- Number of rules. */ #define YYNRULES 172 -/* YYNRULES -- Number of states. */ +/* YYNSTATES -- Number of states. */ #define YYNSTATES 263 -/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */ +/* YYTRANSLATE[YYX] -- Symbol number corresponding to YYX as returned + by yylex, with out-of-bounds checking. */ #define YYUNDEFTOK 2 -#define YYMAXUTOK 289 +#define YYMAXUTOK 288 -#define YYTRANSLATE(YYX) \ +#define YYTRANSLATE(YYX) \ ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK) -/* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX. */ +/* YYTRANSLATE[TOKEN-NUM] -- Symbol number corresponding to TOKEN-NUM + as returned by yylex, without out-of-bounds checking. */ static const yytype_uint8 yytranslate[] = { 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 48, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 47, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 46, 60, 2, 52, 43, 37, 61, - 56, 57, 40, 38, 2, 39, 55, 41, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 59, 51, - 34, 2, 35, 2, 47, 2, 2, 2, 2, 2, + 2, 2, 2, 45, 59, 2, 51, 42, 36, 60, + 55, 56, 39, 37, 2, 38, 54, 40, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 58, 50, + 33, 2, 34, 2, 46, 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, 49, 42, 50, 58, 2, 2, 2, 2, 2, + 2, 48, 41, 49, 57, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 53, 36, 54, 45, 2, 2, 2, + 2, 2, 2, 52, 35, 53, 44, 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, @@ -483,120 +514,42 @@ static const yytype_uint8 yytranslate[] 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, 44 + 25, 26, 27, 28, 29, 30, 31, 32, 43 }; #if YYDEBUG -/* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in - YYRHS. */ -static const yytype_uint16 yyprhs[] = -{ - 0, 0, 3, 5, 7, 9, 12, 14, 16, 18, - 23, 25, 27, 29, 32, 35, 37, 39, 40, 49, - 51, 53, 57, 59, 61, 63, 67, 69, 71, 73, - 75, 77, 80, 82, 84, 86, 88, 90, 92, 95, - 98, 100, 104, 106, 108, 110, 113, 115, 118, 122, - 124, 126, 128, 130, 133, 136, 138, 140, 142, 143, - 144, 150, 154, 158, 160, 162, 164, 166, 168, 170, - 173, 175, 176, 177, 184, 186, 188, 191, 193, 195, - 197, 198, 199, 205, 209, 213, 215, 219, 221, 225, - 227, 231, 233, 235, 237, 239, 241, 243, 245, 248, - 250, 253, 256, 258, 260, 263, 265, 267, 269, 271, - 274, 277, 278, 279, 285, 287, 289, 292, 295, 297, - 299, 302, 305, 307, 309, 311, 313, 315, 317, 321, - 325, 329, 332, 335, 338, 341, 344, 347, 350, 353, - 357, 361, 365, 369, 373, 377, 381, 385, 389, 393, - 397, 401, 405, 409, 413, 417, 421, 425, 429, 433, - 437, 441, 445, 449, 453, 457, 461, 463, 465, 467, - 468, 470, 472 -}; - -/* YYRHS -- A `-1'-separated list of the rules' RHS. */ -static const yytype_int16 yyrhs[] = -{ - 63, 0, -1, 65, -1, 64, -1, 66, -1, 64, - 66, -1, 79, -1, 67, -1, 72, -1, 47, 4, - 48, 68, -1, 150, -1, 69, -1, 70, -1, 69, - 70, -1, 71, 48, -1, 150, -1, 4, -1, -1, - 47, 4, 75, 74, 78, 48, 73, 79, -1, 150, - -1, 75, -1, 49, 76, 50, -1, 150, -1, 77, - -1, 4, -1, 77, 51, 4, -1, 150, -1, 4, - -1, 150, -1, 80, -1, 81, -1, 80, 81, -1, - 146, -1, 82, -1, 83, -1, 91, -1, 106, -1, - 84, -1, 52, 85, -1, 87, 3, -1, 86, -1, - 53, 87, 54, -1, 88, -1, 89, -1, 90, -1, - 139, 90, -1, 129, -1, 126, 129, -1, 52, 92, - 96, -1, 93, -1, 94, -1, 95, -1, 125, -1, - 55, 125, -1, 139, 125, -1, 97, -1, 100, -1, - 101, -1, -1, -1, 49, 98, 102, 99, 50, -1, - 56, 142, 57, -1, 53, 79, 54, -1, 147, -1, - 4, -1, 103, -1, 104, -1, 105, -1, 82, -1, - 81, 80, -1, 107, -1, -1, -1, 58, 108, 110, - 109, 111, 3, -1, 87, -1, 112, -1, 111, 112, - -1, 113, -1, 116, -1, 117, -1, -1, -1, 49, - 114, 118, 115, 50, -1, 56, 119, 57, -1, 53, - 120, 54, -1, 121, -1, 118, 51, 121, -1, 122, - -1, 119, 51, 122, -1, 123, -1, 120, 51, 123, - -1, 124, -1, 142, -1, 79, -1, 147, -1, 4, - -1, 103, -1, 130, -1, 126, 130, -1, 127, -1, - 126, 127, -1, 128, 55, -1, 130, -1, 130, -1, - 4, 5, -1, 4, -1, 131, -1, 132, -1, 133, - -1, 52, 136, -1, 4, 137, -1, -1, -1, 49, - 134, 80, 135, 50, -1, 4, -1, 138, -1, 137, - 138, -1, 52, 136, -1, 140, -1, 141, -1, 4, - 59, -1, 140, 59, -1, 143, -1, 144, -1, 148, - -1, 149, -1, 84, -1, 107, -1, 60, 145, 60, - -1, 61, 145, 61, -1, 56, 143, 57, -1, 39, - 143, -1, 38, 143, -1, 45, 143, -1, 46, 143, - -1, 27, 143, -1, 28, 143, -1, 29, 143, -1, - 30, 143, -1, 143, 39, 143, -1, 143, 38, 143, - -1, 143, 40, 143, -1, 143, 41, 143, -1, 143, - 43, 143, -1, 143, 42, 143, -1, 143, 19, 143, - -1, 143, 20, 143, -1, 143, 37, 143, -1, 143, - 36, 143, -1, 143, 14, 143, -1, 143, 11, 143, - -1, 143, 12, 143, -1, 143, 13, 143, -1, 143, - 34, 143, -1, 143, 35, 143, -1, 143, 15, 143, - -1, 143, 16, 143, -1, 143, 17, 143, -1, 143, - 18, 143, -1, 143, 21, 143, -1, 143, 22, 143, - -1, 143, 23, 143, -1, 143, 24, 143, -1, 143, - 25, 143, -1, 143, 26, 143, -1, 143, 31, 143, - -1, 4, -1, 79, -1, 4, -1, -1, 32, -1, - 33, -1, -1 -}; - -/* YYRLINE[YYN] -- source line where rule number YYN was defined. */ + /* YYRLINE[YYN] -- Source line where rule number YYN was defined. */ static const yytype_uint16 yyrline[] = { - 0, 140, 140, 147, 149, 149, 150, 152, 152, 154, - 263, 263, 264, 264, 265, 266, 266, 268, 268, 316, - 316, 317, 318, 318, 319, 319, 321, 321, 325, 325, - 327, 327, 328, 328, 329, 329, 329, 333, 374, 375, - 375, 376, 378, 379, 380, 433, 434, 434, 438, 451, - 452, 453, 454, 480, 485, 488, 489, 490, 492, 495, - 492, 503, 511, 518, 519, 520, 522, 528, 529, 529, - 533, 545, 548, 545, 593, 595, 595, 597, 598, 599, - 601, 604, 601, 607, 608, 610, 611, 614, 615, 618, - 619, 621, 624, 638, 643, 644, 645, 650, 650, 652, - 652, 653, 654, 662, 667, 670, 671, 672, 673, 675, - 679, 688, 691, 688, 699, 704, 704, 705, 711, 712, - 714, 727, 739, 741, 742, 743, 744, 745, 746, 747, - 748, 750, 751, 752, 753, 754, 755, 756, 757, 759, - 760, 761, 762, 763, 764, 765, 766, 767, 768, 769, - 770, 771, 772, 773, 774, 775, 776, 777, 778, 779, - 780, 781, 782, 783, 784, 785, 788, 793, 814, 819, - 820, 821, 823 + 0, 145, 145, 149, 151, 151, 152, 154, 154, 156, + 250, 250, 251, 251, 252, 253, 253, 255, 255, 303, + 303, 304, 305, 305, 306, 306, 308, 308, 312, 312, + 314, 314, 315, 315, 316, 316, 316, 320, 351, 352, + 352, 353, 355, 356, 357, 406, 407, 407, 411, 424, + 425, 426, 427, 449, 454, 457, 458, 459, 461, 464, + 461, 472, 480, 487, 488, 489, 491, 497, 498, 498, + 502, 513, 516, 513, 565, 581, 581, 583, 584, 585, + 587, 590, 587, 593, 594, 596, 597, 600, 601, 604, + 605, 607, 610, 624, 629, 630, 631, 636, 636, 638, + 638, 639, 640, 652, 661, 664, 665, 666, 667, 669, + 673, 682, 685, 682, 698, 703, 703, 704, 710, 711, + 713, 732, 744, 746, 747, 748, 749, 750, 751, 752, + 753, 755, 756, 757, 758, 759, 760, 761, 762, 764, + 765, 766, 767, 768, 769, 770, 771, 772, 773, 774, + 775, 776, 777, 778, 779, 780, 781, 782, 783, 784, + 785, 786, 787, 788, 789, 790, 793, 798, 819, 824, + 825, 826, 828 }; #endif -#if YYDEBUG || YYERROR_VERBOSE || YYTOKEN_TABLE +#if YYDEBUG || YYERROR_VERBOSE || 0 /* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM. First, the terminals, then, starting at YYNTOKENS, nonterminals. */ static const char *const yytname[] = { "$end", "error", "$undefined", "EON", "STRING", "BOGUS", "BAD_STRING_COMPARISON_OPERATOR", "BAD_HEX_LITERAL", - "BAD_METHOD_DECL_START", "BAD_METHOD_PARAMETER_NAME_CHARACTER", - "BAD_NONWHITESPACE_CHARACTER_IN_EXPLICIT_RESULT_MODE", "\"&&\"", + "BAD_METHOD_DECL_START", "BAD_METHOD_PARAMETER_NAME_CHARACTER", "\"&&\"", "\"||\"", "\"!||\"", "\"!|\"", "\"<=\"", "\">=\"", "\"==\"", "\"!=\"", "\"<<\"", "\">>\"", "\"lt\"", "\"gt\"", "\"le\"", "\"ge\"", "\"eq\"", "\"ne\"", "\"def\"", "\"in\"", "\"-f\"", "\"-d\"", "\"is\"", "\"true\"", @@ -627,74 +580,71 @@ static const char *const yytname[] = "subvar_ref_name_rdive", "subvar_get_writes", "subvar__get_write", "class_prefix", "class_static_prefix", "class_constructor_prefix", "expr_value", "expr", "double_or_STRING", "string_inside_quotes_value", - "write_string", "empty_value", "true_value", "false_value", "empty", 0 + "write_string", "empty_value", "true_value", "false_value", "empty", YY_NULLPTR }; #endif # ifdef YYPRINT -/* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to - token YYLEX-NUM. */ +/* YYTOKNUM[NUM] -- (External) token number corresponding to the + (internal) symbol number NUM (which must be that of a token). */ static const yytype_uint16 yytoknum[] = { 0, 256, 257, 258, 259, 260, 261, 262, 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, - 285, 286, 287, 288, 60, 62, 124, 38, 43, 45, - 42, 47, 92, 37, 289, 126, 33, 64, 10, 91, - 93, 59, 36, 123, 125, 46, 40, 41, 94, 58, - 34, 39 + 285, 286, 287, 60, 62, 124, 38, 43, 45, 42, + 47, 92, 37, 288, 126, 33, 64, 10, 91, 93, + 59, 36, 123, 125, 46, 40, 41, 94, 58, 34, + 39 }; # endif -/* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */ -static const yytype_uint8 yyr1[] = -{ - 0, 62, 63, 63, 64, 64, 65, 66, 66, 67, - 68, 68, 69, 69, 70, 71, 71, 73, 72, 74, - 74, 75, 76, 76, 77, 77, 78, 78, 79, 79, - 80, 80, 81, 81, 82, 82, 82, 83, 84, 85, - 85, 86, 87, 87, 88, 89, 90, 90, 91, 92, - 92, 92, 93, 94, 95, 96, 96, 96, 98, 99, - 97, 100, 101, 102, 102, 102, 103, 104, 105, 105, - 106, 108, 109, 107, 110, 111, 111, 112, 112, 112, - 114, 115, 113, 116, 117, 118, 118, 119, 119, 120, - 120, 121, 122, 123, 124, 124, 124, 125, 125, 126, - 126, 127, 128, 129, 129, 130, 130, 130, 130, 131, - 132, 134, 135, 133, 136, 137, 137, 138, 139, 139, - 140, 141, 142, 143, 143, 143, 143, 143, 143, 143, - 143, 143, 143, 143, 143, 143, 143, 143, 143, 143, - 143, 143, 143, 143, 143, 143, 143, 143, 143, 143, - 143, 143, 143, 143, 143, 143, 143, 143, 143, 143, - 143, 143, 143, 143, 143, 143, 144, 145, 146, 147, - 148, 149, 150 -}; +#define YYPACT_NINF -107 -/* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */ -static const yytype_uint8 yyr2[] = +#define yypact_value_is_default(Yystate) \ + (!!((Yystate) == (-107))) + +#define YYTABLE_NINF -173 + +#define yytable_value_is_error(Yytable_value) \ + 0 + + /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing + STATE-NUM. */ +static const yytype_int16 yypact[] = { - 0, 2, 1, 1, 1, 2, 1, 1, 1, 4, - 1, 1, 1, 2, 2, 1, 1, 0, 8, 1, - 1, 3, 1, 1, 1, 3, 1, 1, 1, 1, - 1, 2, 1, 1, 1, 1, 1, 1, 2, 2, - 1, 3, 1, 1, 1, 2, 1, 2, 3, 1, - 1, 1, 1, 2, 2, 1, 1, 1, 0, 0, - 5, 3, 3, 1, 1, 1, 1, 1, 1, 2, - 1, 0, 0, 6, 1, 1, 2, 1, 1, 1, - 0, 0, 5, 3, 3, 1, 3, 1, 3, 1, - 3, 1, 1, 1, 1, 1, 1, 1, 2, 1, - 2, 2, 1, 1, 2, 1, 1, 1, 1, 2, - 2, 0, 0, 5, 1, 1, 2, 2, 1, 1, - 2, 2, 1, 1, 1, 1, 1, 1, 3, 3, - 3, 2, 2, 2, 2, 2, 2, 2, 2, 3, - 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, - 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, - 3, 3, 3, 3, 3, 3, 1, 1, 1, 0, - 1, 1, 0 + 12, -107, 9, 41, -107, 23, -21, -107, -107, -107, + -107, -107, 27, -107, -107, -107, -107, -107, -107, -107, + -107, -107, 34, 10, -107, 37, 106, 108, -107, -107, + 24, -107, -107, -107, -31, -107, -107, -107, -107, 110, + -107, -6, -107, 16, -107, -107, -107, 110, 42, -107, + 106, -107, -107, -107, 63, 103, 65, -107, 37, -107, + 77, -107, 27, -107, -107, 88, 110, 76, 110, 77, + -107, 108, 76, -107, -107, 27, 28, -107, -107, -107, + -107, 29, -107, -107, 16, -107, -107, -107, -107, -107, + -107, -107, -107, 4, -107, 96, 100, -107, 104, 102, + -107, 141, -107, -107, -107, -107, 27, -107, 76, 39, + 109, -107, 28, 28, 28, 28, -107, -107, 28, 28, + 28, 28, 67, 28, 27, 27, -107, -107, 120, 324, + -107, -107, -107, -26, -107, -107, -107, -107, 151, -107, + 130, -107, 129, 132, 27, 82, -107, -107, -107, -107, + -107, -107, 425, 425, 425, 425, -107, -107, -107, -107, + 277, -107, 123, 119, -107, 28, 28, 28, 28, 28, + 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, + 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, + 28, 28, -107, 27, 28, 46, -107, -107, -107, -107, + -107, -107, -107, 27, 148, -107, -107, -107, 387, 150, + 357, 98, 417, 417, 290, 290, 192, 192, 417, 417, + 417, 417, 290, 290, 425, 417, 417, 183, 431, 81, + 81, -107, -107, -107, -107, 40, -107, -14, -107, -10, + -107, -107, -107, -107, 27, -107, 99, -107, 149, -107, + -107, -107, 27, -107, 28, -107, -107, 40, 155, -107, + -107, -107, -107 }; -/* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state - STATE-NUM when YYTABLE doesn't specify something else to do. Zero - means the default is an error. */ + /* 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[] = { 172, 168, 0, 0, 71, 0, 3, 2, 4, 7, @@ -726,7 +676,21 @@ static const yytype_uint8 yydefact[] = 88, 86, 82 }; -/* YYDEFGOTO[NTERM-NUM]. */ + /* YYPGOTO[NTERM-NUM]. */ +static const yytype_int16 yypgoto[] = +{ + -107, -107, -107, -107, 194, -107, -107, -107, 105, -107, + -107, -107, -107, 156, -107, -107, -107, 1, -58, -7, + -106, -107, 0, -107, -107, -15, -107, -107, -40, -107, + -107, -107, -107, -107, -107, -107, -107, -107, -107, -107, + -107, 97, -107, -107, -107, 2, -107, -107, -107, -107, + 22, -107, -107, -107, -107, -107, -107, -107, -107, -46, + -28, -25, -107, -9, 6, -19, -107, -29, 3, -107, + -107, -107, -107, -107, 178, -107, 179, 235, -107, -107, + 164, 95, -107, 116, -107, 133, -107, -107, 49 +}; + + /* YYDEFGOTO[NTERM-NUM]. */ static const yytype_int16 yydefgoto[] = { -1, 5, 6, 7, 8, 9, 92, 93, 94, 95, @@ -740,294 +704,227 @@ static const yytype_int16 yydefgoto[] = 241, 129, 130, 162, 20, 251, 131, 132, 21 }; -/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing - STATE-NUM. */ -#define YYPACT_NINF -107 -static const yytype_int16 yypact[] = -{ - 14, -107, 13, 45, -107, 28, -15, -107, -107, -107, - -107, -107, 21, -107, -107, -107, -107, -107, -107, -107, - -107, -107, 73, 19, -107, 50, 6, 44, -107, -107, - 87, -107, -107, -107, -34, -107, -107, -107, -107, 65, - -107, 48, -107, 5, -107, -107, -107, 65, 24, -107, - 6, -107, -107, -107, 88, 109, 74, -107, 50, -107, - 76, -107, 21, -107, -107, 86, 65, 101, 65, 76, - -107, 44, 101, -107, -107, 21, 7, -107, -107, -107, - -107, 18, -107, -107, 5, -107, -107, -107, -107, -107, - -107, -107, -107, 9, -107, 94, 99, -107, 93, 112, - -107, 146, -107, -107, -107, -107, 21, -107, 101, 29, - 110, -107, 7, 7, 7, 7, -107, -107, 7, 7, - 7, 7, 52, 7, 21, 21, -107, -107, 113, 323, - -107, -107, -107, 92, -107, -107, -107, -107, 165, -107, - 144, -107, 147, 149, 21, 80, -107, -107, -107, -107, - -107, -107, 96, 96, 96, 96, -107, -107, -107, -107, - 276, -107, 138, 139, -107, 7, 7, 7, 7, 7, - 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, - 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, - 7, 7, -107, 21, 7, 35, -107, -107, -107, -107, - -107, -107, -107, 21, 154, -107, -107, -107, 419, 389, - 356, 284, 135, 135, 148, 148, 191, 191, 135, 135, - 135, 135, 148, 148, 96, 135, 135, 182, 427, 140, - 140, -107, -107, -107, -107, 37, -107, 31, -107, -30, - -107, -107, -107, -107, 21, -107, 108, -107, 155, -107, - -107, -107, 21, -107, 7, -107, -107, 37, 161, -107, - -107, -107, -107 -}; - -/* YYPGOTO[NTERM-NUM]. */ -static const yytype_int16 yypgoto[] = -{ - -107, -107, -107, -107, 206, -107, -107, -107, 124, -107, - -107, -107, -107, 170, -107, -107, -107, 1, -58, -7, - -106, -107, 0, -107, -107, -6, -107, -107, -21, -107, - -107, -107, -107, -107, -107, -107, -107, -107, -107, -107, - -107, 118, -107, -107, -107, 2, -107, -107, -107, -107, - 43, -107, -107, -107, -107, -107, -107, -107, -107, -17, - -13, -16, -107, -18, 4, 41, -107, -23, 3, -107, - -107, -107, -107, -107, 181, -107, 183, 239, -107, -107, - 171, 95, -107, 123, -107, 142, -107, -107, 64 -}; - -/* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If - positive, shift that token. If negative, reduce the rule which - number is the opposite. If zero, do what YYDEFACT says. - If YYTABLE_NINF, syntax error. */ -#define YYTABLE_NINF -173 + /* 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[] = { - 16, 11, 19, 145, 106, 53, 43, 39, -103, 70, - 23, 111, 16, 91, 19, 74, 83, 22, 1, 75, - 65, 254, 76, 57, 57, 1, 86, 255, 51, 87, - 72, 71, 2, 143, 112, 113, 114, 115, 242, 116, - 117, 246, 84, 83, 89, 118, 119, 86, 69, 23, - 43, 39, 120, 121, 63, 24, 23, -172, 25, 122, - -102, 2, 16, 123, 19, 4, 3, 124, 125, 81, - 58, 58, 4, 3, 108, 16, 110, 19, 59, 4, - 82, 3, 252, 88, 192, 253, 203, 4, 193, 3, - 73, 194, 91, 24, 24, 4, 25, 25, 26, 53, - 27, 24, 144, 85, 25, 26, 16, 82, 19, 16, - 168, 19, 82, 97, 24, 173, 174, 25, 96, 100, - 103, 54, 55, 55, 16, 16, 19, 19, 58, 145, - -68, -68, 184, 185, 186, 187, 188, 189, 190, 191, - 107, 192, 136, 137, 16, 193, 19, -15, 194, 168, - 139, 145, 171, 172, 173, 174, -102, 135, -95, -95, - 179, 180, 168, 138, 151, 141, 181, 173, 174, 200, - 164, 184, 185, 186, 187, 188, 189, 190, 191, 181, - 188, 189, 190, 191, 184, 185, 186, 187, 188, 189, - 190, 191, 201, 16, 236, 19, 53, 202, 206, -64, - 207, 173, 174, 16, 245, 19, 257, 152, 153, 154, - 155, 262, 52, 156, 157, 158, 159, 134, 160, 185, - 186, 187, 188, 189, 190, 191, 102, 147, 144, 186, - 187, 188, 189, 190, 191, 16, 259, 19, 243, 104, - 261, 260, 47, 105, 16, 256, 19, 128, 163, 0, - 144, 150, 16, 236, 19, 0, 0, 16, 0, 19, + 16, 11, 19, 145, 106, 53, 43, 86, 91, 39, + 83, 65, 16, 22, 19, 57, 1, 74, 70, -103, + 82, 75, 192, 51, 76, 2, 193, 73, 86, 194, + 72, 1, 111, 71, 57, 89, 252, 83, 87, 253, + 254, 63, 84, 143, 246, 23, 255, 82, 85, 242, + 43, -172, 82, 39, 112, 113, 114, 115, 2, 116, + 117, 58, 16, 3, 19, 118, 119, 91, 59, 4, + -102, 23, 120, 121, 108, 16, 110, 19, 3, 122, + 58, 54, 55, 123, 4, 4, 203, 124, 125, 24, + 3, 3, 25, 26, 192, 27, 4, 4, 193, 53, + 88, 194, 144, 96, 100, 103, 16, 97, 19, 16, + 23, 19, 69, 55, 81, 24, 173, 174, 25, 26, + 188, 189, 190, 191, 16, 16, 19, 19, 58, 145, + -102, -68, -68, 184, 185, 186, 187, 188, 189, 190, + 191, 107, 135, 136, 16, 139, 19, -15, -95, -95, + 141, 145, 138, 137, 24, 200, 24, 25, 24, 25, + 165, 25, 151, 168, 169, 170, 171, 172, 173, 174, + 175, 176, 177, 178, 179, 180, 164, 201, 202, 207, + 181, -64, 206, 182, 183, 184, 185, 186, 187, 188, + 189, 190, 191, 16, 236, 19, 53, 245, 134, 257, + 52, 173, 174, 16, 262, 19, 147, 152, 153, 154, + 155, 261, 102, 156, 157, 158, 159, 243, 160, 185, + 186, 187, 188, 189, 190, 191, 260, 259, 144, 186, + 187, 188, 189, 190, 191, 16, 104, 19, 47, 105, + 128, 163, 150, 0, 16, 256, 19, 0, 0, 0, + 144, 0, 16, 236, 19, 0, 0, 16, 0, 19, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, - 178, 179, 180, 173, 174, 0, 0, 181, 0, 0, + 178, 179, 180, 168, 0, 0, 0, 181, 173, 174, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, - 184, 185, 186, 187, 188, 189, 190, 191, 0, 0, - 0, 0, 0, 205, 165, 166, 167, 168, 169, 170, + 181, 0, 0, 0, 0, 184, 185, 186, 187, 188, + 189, 190, 191, 205, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 0, 0, 0, 0, 181, 0, 0, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 165, 166, 0, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 0, 0, 0, 0, 181, 0, 0, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, - 165, 0, 0, 168, 169, 170, 171, 172, 173, 174, - 175, 176, 177, 178, 179, 180, 0, 0, 0, 0, - 181, 0, 0, 182, 183, 184, 185, 186, 187, 188, - 189, 190, 191, 168, 169, 170, 171, 172, 173, 174, - 175, 176, 177, 178, 179, 180, 173, 174, 0, 0, - 181, 0, 0, 182, 183, 184, 185, 186, 187, 188, - 189, 190, 191, 0, 0, 186, 187, 188, 189, 190, - 191 + 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, + 178, 179, 180, 0, 0, 0, 0, 181, 0, 0, + 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, + 168, 0, 0, 171, 172, 173, 174, 0, 168, 0, + 0, 179, 180, 173, 174, 0, 0, 181, 0, 173, + 174, 0, 184, 185, 186, 187, 188, 189, 190, 191, + 184, 185, 186, 187, 188, 189, 190, 191, 186, 187, + 188, 189, 190, 191 }; static const yytype_int16 yycheck[] = { - 0, 0, 0, 109, 62, 12, 3, 3, 3, 27, - 4, 4, 12, 4, 12, 49, 39, 4, 4, 53, - 26, 51, 56, 5, 5, 4, 47, 57, 0, 47, - 27, 27, 47, 4, 27, 28, 29, 30, 3, 32, - 33, 4, 39, 66, 50, 38, 39, 68, 4, 4, - 47, 47, 45, 46, 4, 49, 4, 48, 52, 52, - 55, 47, 62, 56, 62, 58, 52, 60, 61, 4, - 52, 52, 58, 52, 71, 75, 75, 75, 59, 58, - 39, 52, 51, 59, 49, 54, 144, 58, 53, 52, - 3, 56, 4, 49, 49, 58, 52, 52, 53, 106, - 55, 49, 109, 55, 52, 53, 106, 66, 106, 109, - 14, 109, 71, 4, 49, 19, 20, 52, 54, 55, - 56, 48, 49, 49, 124, 125, 124, 125, 52, 235, - 50, 51, 36, 37, 38, 39, 40, 41, 42, 43, - 54, 49, 48, 50, 144, 53, 144, 48, 56, 14, - 4, 257, 17, 18, 19, 20, 55, 93, 50, 51, - 25, 26, 14, 51, 54, 101, 31, 19, 20, 4, - 57, 36, 37, 38, 39, 40, 41, 42, 43, 31, - 40, 41, 42, 43, 36, 37, 38, 39, 40, 41, - 42, 43, 48, 193, 193, 193, 203, 50, 60, 50, - 61, 19, 20, 203, 50, 203, 51, 112, 113, 114, - 115, 50, 6, 118, 119, 120, 121, 93, 123, 37, - 38, 39, 40, 41, 42, 43, 56, 109, 235, 38, - 39, 40, 41, 42, 43, 235, 252, 235, 195, 58, - 257, 254, 3, 60, 244, 244, 244, 76, 125, -1, - 257, 109, 252, 252, 252, -1, -1, 257, -1, 257, + 0, 0, 0, 109, 62, 12, 3, 47, 4, 3, + 39, 26, 12, 4, 12, 5, 4, 48, 27, 3, + 39, 52, 48, 0, 55, 46, 52, 3, 68, 55, + 27, 4, 4, 27, 5, 50, 50, 66, 47, 53, + 50, 4, 39, 4, 4, 4, 56, 66, 54, 3, + 47, 47, 71, 47, 26, 27, 28, 29, 46, 31, + 32, 51, 62, 51, 62, 37, 38, 4, 58, 57, + 54, 4, 44, 45, 71, 75, 75, 75, 51, 51, + 51, 47, 48, 55, 57, 57, 144, 59, 60, 48, + 51, 51, 51, 52, 48, 54, 57, 57, 52, 106, + 58, 55, 109, 54, 55, 56, 106, 4, 106, 109, + 4, 109, 4, 48, 4, 48, 18, 19, 51, 52, + 39, 40, 41, 42, 124, 125, 124, 125, 51, 235, + 54, 49, 50, 35, 36, 37, 38, 39, 40, 41, + 42, 53, 93, 47, 144, 4, 144, 47, 49, 50, + 101, 257, 50, 49, 48, 4, 48, 51, 48, 51, + 10, 51, 53, 13, 14, 15, 16, 17, 18, 19, + 20, 21, 22, 23, 24, 25, 56, 47, 49, 60, + 30, 49, 59, 33, 34, 35, 36, 37, 38, 39, + 40, 41, 42, 193, 193, 193, 203, 49, 93, 50, + 6, 18, 19, 203, 49, 203, 109, 112, 113, 114, + 115, 257, 56, 118, 119, 120, 121, 195, 123, 36, + 37, 38, 39, 40, 41, 42, 254, 252, 235, 37, + 38, 39, 40, 41, 42, 235, 58, 235, 3, 60, + 76, 125, 109, -1, 244, 244, 244, -1, -1, -1, + 257, -1, 252, 252, 252, -1, -1, 257, -1, 257, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, - 185, 186, 187, 188, 189, 190, 191, 11, 12, 13, - 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, - 24, 25, 26, 19, 20, -1, -1, 31, -1, -1, - 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, - 36, 37, 38, 39, 40, 41, 42, 43, -1, -1, - -1, -1, -1, 57, 11, 12, 13, 14, 15, 16, - 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, - -1, -1, -1, -1, 31, -1, -1, 34, 35, 36, - 37, 38, 39, 40, 41, 42, 43, 11, 12, -1, - 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, - 24, 25, 26, -1, -1, -1, -1, 31, -1, -1, - 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, - 11, -1, -1, 14, 15, 16, 17, 18, 19, 20, - 21, 22, 23, 24, 25, 26, -1, -1, -1, -1, - 31, -1, -1, 34, 35, 36, 37, 38, 39, 40, - 41, 42, 43, 14, 15, 16, 17, 18, 19, 20, - 21, 22, 23, 24, 25, 26, 19, 20, -1, -1, - 31, -1, -1, 34, 35, 36, 37, 38, 39, 40, - 41, 42, 43, -1, -1, 38, 39, 40, 41, 42, - 43 + 185, 186, 187, 188, 189, 190, 191, 10, 11, 12, + 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, + 23, 24, 25, 13, -1, -1, -1, 30, 18, 19, + 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, + 30, -1, -1, -1, -1, 35, 36, 37, 38, 39, + 40, 41, 42, 56, 10, 11, 12, 13, 14, 15, + 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, + -1, -1, -1, -1, 30, -1, -1, 33, 34, 35, + 36, 37, 38, 39, 40, 41, 42, 10, 11, -1, + 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, + 23, 24, 25, -1, -1, -1, -1, 30, -1, -1, + 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, + 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, + 23, 24, 25, -1, -1, -1, -1, 30, -1, -1, + 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, + 13, -1, -1, 16, 17, 18, 19, -1, 13, -1, + -1, 24, 25, 18, 19, -1, -1, 30, -1, 18, + 19, -1, 35, 36, 37, 38, 39, 40, 41, 42, + 35, 36, 37, 38, 39, 40, 41, 42, 37, 38, + 39, 40, 41, 42 }; -/* YYSTOS[STATE-NUM] -- The (internal number of the) accessing - symbol of state STATE-NUM. */ + /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing + symbol of state STATE-NUM. */ static const yytype_uint8 yystos[] = { - 0, 4, 47, 52, 58, 63, 64, 65, 66, 67, - 72, 79, 80, 81, 82, 83, 84, 91, 106, 107, - 146, 150, 4, 4, 49, 52, 53, 55, 85, 86, - 87, 88, 89, 90, 92, 93, 94, 95, 125, 126, - 127, 128, 129, 130, 131, 132, 133, 139, 140, 141, - 108, 0, 66, 81, 48, 49, 75, 5, 52, 59, - 137, 138, 134, 4, 136, 87, 126, 130, 139, 4, - 125, 126, 130, 3, 49, 53, 56, 96, 97, 100, - 101, 4, 127, 129, 130, 55, 90, 125, 59, 87, - 110, 4, 68, 69, 70, 71, 150, 4, 76, 77, - 150, 74, 75, 150, 136, 138, 80, 54, 130, 98, - 79, 4, 27, 28, 29, 30, 32, 33, 38, 39, - 45, 46, 52, 56, 60, 61, 84, 107, 142, 143, - 144, 148, 149, 109, 70, 150, 48, 50, 51, 4, - 78, 150, 135, 4, 81, 82, 102, 103, 104, 105, - 147, 54, 143, 143, 143, 143, 143, 143, 143, 143, - 143, 79, 145, 145, 57, 11, 12, 13, 14, 15, - 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, - 26, 31, 34, 35, 36, 37, 38, 39, 40, 41, - 42, 43, 49, 53, 56, 111, 112, 113, 116, 117, - 4, 48, 50, 80, 99, 57, 60, 61, 143, 143, - 143, 143, 143, 143, 143, 143, 143, 143, 143, 143, - 143, 143, 143, 143, 143, 143, 143, 143, 143, 143, - 143, 143, 143, 143, 143, 114, 79, 120, 123, 119, - 122, 142, 3, 112, 73, 50, 4, 103, 118, 121, - 124, 147, 51, 54, 51, 57, 79, 51, 115, 123, - 122, 121, 50 + 0, 4, 46, 51, 57, 62, 63, 64, 65, 66, + 71, 78, 79, 80, 81, 82, 83, 90, 105, 106, + 145, 149, 4, 4, 48, 51, 52, 54, 84, 85, + 86, 87, 88, 89, 91, 92, 93, 94, 124, 125, + 126, 127, 128, 129, 130, 131, 132, 138, 139, 140, + 107, 0, 65, 80, 47, 48, 74, 5, 51, 58, + 136, 137, 133, 4, 135, 86, 125, 129, 138, 4, + 124, 125, 129, 3, 48, 52, 55, 95, 96, 99, + 100, 4, 126, 128, 129, 54, 89, 124, 58, 86, + 109, 4, 67, 68, 69, 70, 149, 4, 75, 76, + 149, 73, 74, 149, 135, 137, 79, 53, 129, 97, + 78, 4, 26, 27, 28, 29, 31, 32, 37, 38, + 44, 45, 51, 55, 59, 60, 83, 106, 141, 142, + 143, 147, 148, 108, 69, 149, 47, 49, 50, 4, + 77, 149, 134, 4, 80, 81, 101, 102, 103, 104, + 146, 53, 142, 142, 142, 142, 142, 142, 142, 142, + 142, 78, 144, 144, 56, 10, 11, 12, 13, 14, + 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, + 25, 30, 33, 34, 35, 36, 37, 38, 39, 40, + 41, 42, 48, 52, 55, 110, 111, 112, 115, 116, + 4, 47, 49, 79, 98, 56, 59, 60, 142, 142, + 142, 142, 142, 142, 142, 142, 142, 142, 142, 142, + 142, 142, 142, 142, 142, 142, 142, 142, 142, 142, + 142, 142, 142, 142, 142, 113, 78, 119, 122, 118, + 121, 141, 3, 111, 72, 49, 4, 102, 117, 120, + 123, 146, 50, 53, 50, 56, 78, 50, 114, 122, + 121, 120, 49 }; -#define yyerrok (yyerrstatus = 0) -#define yyclearin (yychar = YYEMPTY) -#define YYEMPTY (-2) -#define YYEOF 0 - -#define YYACCEPT goto yyacceptlab -#define YYABORT goto yyabortlab -#define YYERROR goto yyerrorlab - - -/* Like YYERROR except do call yyerror. This remains here temporarily - to ease the transition to the new meaning of YYERROR, for GCC. - Once GCC version 2 has supplanted version 1, this can go. However, - YYFAIL appears to be in use. Nevertheless, it is formally deprecated - in Bison 2.4.2's NEWS entry, where a plan to phase it out is - discussed. */ - -#define YYFAIL goto yyerrlab -#if defined YYFAIL - /* This is here to suppress warnings from the GCC cpp's - -Wunused-macros. Normally we don't worry about that warning, but - some users do, and we want to make it easy for users to remove - YYFAIL uses, which will produce warnings from Bison 2.5. */ -#endif + /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */ +static const yytype_uint8 yyr1[] = +{ + 0, 61, 62, 62, 63, 63, 64, 65, 65, 66, + 67, 67, 68, 68, 69, 70, 70, 72, 71, 73, + 73, 74, 75, 75, 76, 76, 77, 77, 78, 78, + 79, 79, 80, 80, 81, 81, 81, 82, 83, 84, + 84, 85, 86, 86, 87, 88, 89, 89, 90, 91, + 91, 91, 92, 93, 94, 95, 95, 95, 97, 98, + 96, 99, 100, 101, 101, 101, 102, 103, 104, 104, + 105, 107, 108, 106, 109, 110, 110, 111, 111, 111, + 113, 114, 112, 115, 116, 117, 117, 118, 118, 119, + 119, 120, 121, 122, 123, 123, 123, 124, 124, 125, + 125, 126, 127, 128, 128, 129, 129, 129, 129, 130, + 131, 133, 134, 132, 135, 136, 136, 137, 138, 138, + 139, 140, 141, 142, 142, 142, 142, 142, 142, 142, + 142, 142, 142, 142, 142, 142, 142, 142, 142, 142, + 142, 142, 142, 142, 142, 142, 142, 142, 142, 142, + 142, 142, 142, 142, 142, 142, 142, 142, 142, 142, + 142, 142, 142, 142, 142, 142, 143, 144, 145, 146, + 147, 148, 149 +}; -#define YYRECOVERING() (!!yyerrstatus) + /* YYR2[YYN] -- Number of symbols on the right hand side of rule YYN. */ +static const yytype_uint8 yyr2[] = +{ + 0, 2, 1, 1, 1, 2, 1, 1, 1, 4, + 1, 1, 1, 2, 2, 1, 1, 0, 8, 1, + 1, 3, 1, 1, 1, 3, 1, 1, 1, 1, + 1, 2, 1, 1, 1, 1, 1, 1, 2, 2, + 1, 3, 1, 1, 1, 2, 1, 2, 3, 1, + 1, 1, 1, 2, 2, 1, 1, 1, 0, 0, + 5, 3, 3, 1, 1, 1, 1, 1, 1, 2, + 1, 0, 0, 6, 1, 1, 2, 1, 1, 1, + 0, 0, 5, 3, 3, 1, 3, 1, 3, 1, + 3, 1, 1, 1, 1, 1, 1, 1, 2, 1, + 2, 2, 1, 1, 2, 1, 1, 1, 1, 2, + 2, 0, 0, 5, 1, 1, 2, 2, 1, 1, + 2, 2, 1, 1, 1, 1, 1, 1, 3, 3, + 3, 2, 2, 2, 2, 2, 2, 2, 2, 3, + 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, + 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, + 3, 3, 3, 3, 3, 3, 1, 1, 1, 0, + 1, 1, 0 +}; -#define YYBACKUP(Token, Value) \ -do \ - if (yychar == YYEMPTY && yylen == 1) \ - { \ - yychar = (Token); \ - yylval = (Value); \ - yytoken = YYTRANSLATE (yychar); \ - YYPOPSTACK (1); \ - goto yybackup; \ - } \ - else \ - { \ - yyerror (YY_("syntax error: cannot back up")); \ - YYERROR; \ - } \ -while (YYID (0)) - - -#define YYTERROR 1 -#define YYERRCODE 256 - - -/* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N]. - If N is 0, then set CURRENT to the empty location which ends - the previous symbol: RHS[0] (always defined). */ - -#define YYRHSLOC(Rhs, K) ((Rhs)[K]) -#ifndef YYLLOC_DEFAULT -# define YYLLOC_DEFAULT(Current, Rhs, N) \ - do \ - if (YYID (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 (YYID (0)) -#endif +#define yyerrok (yyerrstatus = 0) +#define yyclearin (yychar = YYEMPTY) +#define YYEMPTY (-2) +#define YYEOF 0 + +#define YYACCEPT goto yyacceptlab +#define YYABORT goto yyabortlab +#define YYERROR goto yyerrorlab -/* YY_LOCATION_PRINT -- Print the location on the stream. - This macro was not mandated originally: define only if we know - we won't break user code: when these are the locations we know. */ -#ifndef YY_LOCATION_PRINT -# if defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL -# define YY_LOCATION_PRINT(File, Loc) \ - fprintf (File, "%d.%d-%d.%d", \ - (Loc).first_line, (Loc).first_column, \ - (Loc).last_line, (Loc).last_column) -# else -# define YY_LOCATION_PRINT(File, Loc) ((void) 0) -# endif -#endif +#define YYRECOVERING() (!!yyerrstatus) +#define YYBACKUP(Token, Value) \ +do \ + if (yychar == YYEMPTY) \ + { \ + yychar = (Token); \ + yylval = (Value); \ + YYPOPSTACK (yylen); \ + yystate = *yyssp; \ + goto yybackup; \ + } \ + else \ + { \ + yyerror (pc, YY_("syntax error: cannot back up")); \ + YYERROR; \ + } \ +while (0) + +/* Error token number */ +#define YYTERROR 1 +#define YYERRCODE 256 -/* YYLEX -- calling `yylex' with the right arguments. */ -#ifdef YYLEX_PARAM -# define YYLEX yylex (&yylval, YYLEX_PARAM) -#else -# define YYLEX yylex (&yylval) -#endif /* Enable debugging if requested. */ #if YYDEBUG @@ -1037,54 +934,47 @@ while (YYID (0)) # define YYFPRINTF fprintf # endif -# define YYDPRINTF(Args) \ -do { \ - if (yydebug) \ - YYFPRINTF Args; \ -} while (YYID (0)) - -# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \ -do { \ - if (yydebug) \ - { \ - YYFPRINTF (stderr, "%s ", Title); \ - yy_symbol_print (stderr, \ - Type, Value); \ - YYFPRINTF (stderr, "\n"); \ - } \ -} while (YYID (0)) +# define YYDPRINTF(Args) \ +do { \ + if (yydebug) \ + YYFPRINTF Args; \ +} while (0) +/* This macro is provided for backward compatibility. */ +#ifndef YY_LOCATION_PRINT +# define YY_LOCATION_PRINT(File, Loc) ((void) 0) +#endif -/*--------------------------------. -| Print this symbol on YYOUTPUT. | -`--------------------------------*/ -/*ARGSUSED*/ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) -static void -yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep) -#else +# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \ +do { \ + if (yydebug) \ + { \ + YYFPRINTF (stderr, "%s ", Title); \ + yy_symbol_print (stderr, \ + Type, Value, pc); \ + YYFPRINTF (stderr, "\n"); \ + } \ +} while (0) + + +/*----------------------------------------. +| Print this symbol's value on YYOUTPUT. | +`----------------------------------------*/ + static void -yy_symbol_value_print (yyoutput, yytype, yyvaluep) - FILE *yyoutput; - int yytype; - YYSTYPE const * const yyvaluep; -#endif +yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep, Parse_control* pc) { + FILE *yyo = yyoutput; + YYUSE (yyo); + YYUSE (pc); if (!yyvaluep) return; # ifdef YYPRINT if (yytype < YYNTOKENS) YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep); -# else - YYUSE (yyoutput); # endif - switch (yytype) - { - default: - break; - } + YYUSE (yytype); } @@ -1092,24 +982,13 @@ yy_symbol_value_print (yyoutput, yytype, | Print this symbol on YYOUTPUT. | `--------------------------------*/ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) -static void -yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep) -#else static void -yy_symbol_print (yyoutput, yytype, yyvaluep) - FILE *yyoutput; - int yytype; - YYSTYPE const * const yyvaluep; -#endif +yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep, Parse_control* pc) { - if (yytype < YYNTOKENS) - YYFPRINTF (yyoutput, "token %s (", yytname[yytype]); - else - YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]); + YYFPRINTF (yyoutput, "%s %s (", + yytype < YYNTOKENS ? "token" : "nterm", yytname[yytype]); - yy_symbol_value_print (yyoutput, yytype, yyvaluep); + yy_symbol_value_print (yyoutput, yytype, yyvaluep, pc); YYFPRINTF (yyoutput, ")"); } @@ -1118,16 +997,8 @@ yy_symbol_print (yyoutput, yytype, yyval | TOP (included). | `------------------------------------------------------------------*/ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) static void yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop) -#else -static void -yy_stack_print (yybottom, yytop) - yytype_int16 *yybottom; - yytype_int16 *yytop; -#endif { YYFPRINTF (stderr, "Stack now"); for (; yybottom <= yytop; yybottom++) @@ -1138,49 +1009,42 @@ yy_stack_print (yybottom, yytop) YYFPRINTF (stderr, "\n"); } -# define YY_STACK_PRINT(Bottom, Top) \ -do { \ - if (yydebug) \ - yy_stack_print ((Bottom), (Top)); \ -} while (YYID (0)) +# 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. | `------------------------------------------------*/ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) static void -yy_reduce_print (YYSTYPE *yyvsp, int yyrule) -#else -static void -yy_reduce_print (yyvsp, yyrule) - YYSTYPE *yyvsp; - int yyrule; -#endif +yy_reduce_print (yytype_int16 *yyssp, YYSTYPE *yyvsp, int yyrule, Parse_control* pc) { + unsigned long int yylno = yyrline[yyrule]; int yynrhs = yyr2[yyrule]; int yyi; - unsigned long int yylno = yyrline[yyrule]; YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n", - yyrule - 1, yylno); + yyrule - 1, yylno); /* The symbols being reduced. */ for (yyi = 0; yyi < yynrhs; yyi++) { YYFPRINTF (stderr, " $%d = ", yyi + 1); - yy_symbol_print (stderr, yyrhs[yyprhs[yyrule] + yyi], - &(yyvsp[(yyi + 1) - (yynrhs)]) - ); + yy_symbol_print (stderr, + yystos[yyssp[yyi + 1 - yynrhs]], + &(yyvsp[(yyi + 1) - (yynrhs)]) + , pc); YYFPRINTF (stderr, "\n"); } } -# define YY_REDUCE_PRINT(Rule) \ -do { \ - if (yydebug) \ - yy_reduce_print (yyvsp, Rule); \ -} while (YYID (0)) +# define YY_REDUCE_PRINT(Rule) \ +do { \ + if (yydebug) \ + yy_reduce_print (yyssp, yyvsp, Rule, pc); \ +} while (0) /* Nonzero means print parse trace. It is left uninitialized so that multiple parsers can coexist. */ @@ -1194,7 +1058,7 @@ int yydebug; /* YYINITDEPTH -- initial size of the parser's stacks. */ -#ifndef YYINITDEPTH +#ifndef YYINITDEPTH # define YYINITDEPTH 200 #endif @@ -1209,7 +1073,6 @@ int yydebug; # define YYMAXDEPTH 10000 #endif - #if YYERROR_VERBOSE @@ -1218,15 +1081,8 @@ int yydebug; # define yystrlen strlen # else /* Return the length of YYSTR. */ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) static YYSIZE_T yystrlen (const char *yystr) -#else -static YYSIZE_T -yystrlen (yystr) - const char *yystr; -#endif { YYSIZE_T yylen; for (yylen = 0; yystr[yylen]; yylen++) @@ -1242,16 +1098,8 @@ yystrlen (yystr) # else /* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in YYDEST. */ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) static char * yystpcpy (char *yydest, const char *yysrc) -#else -static char * -yystpcpy (yydest, yysrc) - char *yydest; - const char *yysrc; -#endif { char *yyd = yydest; const char *yys = yysrc; @@ -1281,27 +1129,27 @@ yytnamerr (char *yyres, const char *yyst char const *yyp = yystr; for (;;) - switch (*++yyp) - { - case '\'': - case ',': - goto do_not_strip_quotes; - - case '\\': - if (*++yyp != '\\') - goto do_not_strip_quotes; - /* Fall through. */ - default: - if (yyres) - yyres[yyn] = *yyp; - yyn++; - break; - - case '"': - if (yyres) - yyres[yyn] = '\0'; - return yyn; - } + switch (*++yyp) + { + case '\'': + case ',': + goto do_not_strip_quotes; + + case '\\': + if (*++yyp != '\\') + goto do_not_strip_quotes; + /* Fall through. */ + default: + if (yyres) + yyres[yyn] = *yyp; + yyn++; + break; + + case '"': + if (yyres) + yyres[yyn] = '\0'; + return yyn; + } do_not_strip_quotes: ; } @@ -1312,197 +1160,179 @@ yytnamerr (char *yyres, const char *yyst } # endif -/* Copy into YYRESULT an error message about the unexpected token - YYCHAR while in state YYSTATE. Return the number of bytes copied, - including the terminating null byte. If YYRESULT is null, do not - copy anything; just return the number of bytes that would be - copied. As a special case, return 0 if an ordinary "syntax error" - message will do. Return YYSIZE_MAXIMUM if overflow occurs during - size calculation. */ -static YYSIZE_T -yysyntax_error (char *yyresult, int yystate, int yychar) +/* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message + about the unexpected token YYTOKEN for the state stack whose top is + YYSSP. + + Return 0 if *YYMSG was successfully written. Return 1 if *YYMSG is + not large enough to hold the message. In that case, also set + *YYMSG_ALLOC to the required number of bytes. Return 2 if the + required number of bytes is too large to store. */ +static int +yysyntax_error (YYSIZE_T *yymsg_alloc, char **yymsg, + yytype_int16 *yyssp, int yytoken) { - int yyn = yypact[yystate]; + YYSIZE_T yysize0 = yytnamerr (YY_NULLPTR, yytname[yytoken]); + YYSIZE_T yysize = yysize0; + enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 }; + /* Internationalized format string. */ + const char *yyformat = YY_NULLPTR; + /* Arguments of yyformat. */ + char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM]; + /* Number of reported tokens (one for the "unexpected", one per + "expected"). */ + int yycount = 0; + + /* There are many possibilities here to consider: + - If this state is a consistent state with a default action, then + the only way this function was invoked is if the default action + is an error action. In that case, don't check for expected + tokens because there are none. + - The only way there can be no lookahead present (in yychar) is if + this state is a consistent state with a default action. Thus, + detecting the absence of a lookahead is sufficient to determine + that there is no unexpected or expected token to report. In that + case, just report a simple "syntax error". + - Don't assume there isn't a lookahead just because this state is a + consistent state with a default action. There might have been a + previous inconsistent state, consistent state with a non-default + action, or user semantic action that manipulated yychar. + - Of course, the expected token list depends on states to have + correct lookahead information, and it depends on the parser not + to perform extra reductions after fetching a lookahead from the + scanner and before detecting a syntax error. Thus, state merging + (from LALR or IELR) and default reductions corrupt the expected + token list. However, the list is correct for canonical LR with + one exception: it will still contain any token that will not be + accepted due to an error action in a later state. + */ + if (yytoken != YYEMPTY) + { + int yyn = yypact[*yyssp]; + yyarg[yycount++] = yytname[yytoken]; + if (!yypact_value_is_default (yyn)) + { + /* Start YYX at -YYN if negative to avoid negative indexes in + YYCHECK. In other words, skip the first -YYN actions for + this state because they are default actions. */ + int yyxbegin = yyn < 0 ? -yyn : 0; + /* Stay within bounds of both yycheck and yytname. */ + int yychecklim = YYLAST - yyn + 1; + int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS; + int yyx; + + for (yyx = yyxbegin; yyx < yyxend; ++yyx) + if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR + && !yytable_value_is_error (yytable[yyx + yyn])) + { + if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM) + { + yycount = 1; + yysize = yysize0; + break; + } + yyarg[yycount++] = yytname[yyx]; + { + YYSIZE_T yysize1 = yysize + yytnamerr (YY_NULLPTR, yytname[yyx]); + if (! (yysize <= yysize1 + && yysize1 <= YYSTACK_ALLOC_MAXIMUM)) + return 2; + yysize = yysize1; + } + } + } + } - if (! (YYPACT_NINF < yyn && yyn <= YYLAST)) - return 0; - else + switch (yycount) { - int yytype = YYTRANSLATE (yychar); - YYSIZE_T yysize0 = yytnamerr (0, yytname[yytype]); - YYSIZE_T yysize = yysize0; - YYSIZE_T yysize1; - int yysize_overflow = 0; - enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 }; - char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM]; - int yyx; - -# if 0 - /* This is so xgettext sees the translatable formats that are - constructed on the fly. */ - YY_("syntax error, unexpected %s"); - YY_("syntax error, unexpected %s, expecting %s"); - YY_("syntax error, unexpected %s, expecting %s or %s"); - YY_("syntax error, unexpected %s, expecting %s or %s or %s"); - YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s"); -# endif - char *yyfmt; - char const *yyf; - static char const yyunexpected[] = "syntax error, unexpected %s"; - static char const yyexpecting[] = ", expecting %s"; - static char const yyor[] = " or %s"; - char yyformat[sizeof yyunexpected - + sizeof yyexpecting - 1 - + ((YYERROR_VERBOSE_ARGS_MAXIMUM - 2) - * (sizeof yyor - 1))]; - char const *yyprefix = yyexpecting; - - /* Start YYX at -YYN if negative to avoid negative indexes in - YYCHECK. */ - 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 yycount = 1; - - yyarg[0] = yytname[yytype]; - yyfmt = yystpcpy (yyformat, yyunexpected); - - for (yyx = yyxbegin; yyx < yyxend; ++yyx) - if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR) - { - if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM) - { - yycount = 1; - yysize = yysize0; - yyformat[sizeof yyunexpected - 1] = '\0'; - break; - } - yyarg[yycount++] = yytname[yyx]; - yysize1 = yysize + yytnamerr (0, yytname[yyx]); - yysize_overflow |= (yysize1 < yysize); - yysize = yysize1; - yyfmt = yystpcpy (yyfmt, yyprefix); - yyprefix = yyor; - } - - yyf = YY_(yyformat); - yysize1 = yysize + yystrlen (yyf); - yysize_overflow |= (yysize1 < yysize); - yysize = yysize1; - - if (yysize_overflow) - return YYSIZE_MAXIMUM; +# define YYCASE_(N, S) \ + case N: \ + yyformat = S; \ + break + YYCASE_(0, YY_("syntax error")); + YYCASE_(1, YY_("syntax error, unexpected %s")); + YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s")); + YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s")); + YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s")); + YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s")); +# undef YYCASE_ + } - if (yyresult) - { - /* 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 = yyresult; - int yyi = 0; - while ((*yyp = *yyf) != '\0') - { - if (*yyp == '%' && yyf[1] == 's' && yyi < yycount) - { - yyp += yytnamerr (yyp, yyarg[yyi++]); - yyf += 2; - } - else - { - yyp++; - yyf++; - } - } - } - return yysize; + { + YYSIZE_T yysize1 = yysize + yystrlen (yyformat); + if (! (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM)) + return 2; + yysize = yysize1; + } + + if (*yymsg_alloc < yysize) + { + *yymsg_alloc = 2 * yysize; + if (! (yysize <= *yymsg_alloc + && *yymsg_alloc <= YYSTACK_ALLOC_MAXIMUM)) + *yymsg_alloc = YYSTACK_ALLOC_MAXIMUM; + return 1; } + + /* Avoid sprintf, as that infringes on the user's name space. + Don't have undefined behavior even if the translation + produced a string with the wrong number of "%s"s. */ + { + char *yyp = *yymsg; + int yyi = 0; + while ((*yyp = *yyformat) != '\0') + if (*yyp == '%' && yyformat[1] == 's' && yyi < yycount) + { + yyp += yytnamerr (yyp, yyarg[yyi++]); + yyformat += 2; + } + else + { + yyp++; + yyformat++; + } + } + return 0; } #endif /* YYERROR_VERBOSE */ - /*-----------------------------------------------. | Release the memory associated to this symbol. | `-----------------------------------------------*/ -/*ARGSUSED*/ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) -static void -yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep) -#else static void -yydestruct (yymsg, yytype, yyvaluep) - const char *yymsg; - int yytype; - YYSTYPE *yyvaluep; -#endif +yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep, Parse_control* pc) { YYUSE (yyvaluep); - + YYUSE (pc); if (!yymsg) yymsg = "Deleting"; YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp); - switch (yytype) - { - - default: - break; - } + YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN + YYUSE (yytype); + YY_IGNORE_MAYBE_UNINITIALIZED_END } -/* Prevent warnings from -Wmissing-prototypes. */ -#ifdef YYPARSE_PARAM -#if defined __STDC__ || defined __cplusplus -int yyparse (void *YYPARSE_PARAM); -#else -int yyparse (); -#endif -#else /* ! YYPARSE_PARAM */ -#if defined __STDC__ || defined __cplusplus -int yyparse (void); -#else -int yyparse (); -#endif -#endif /* ! YYPARSE_PARAM */ +/*----------. +| yyparse. | +`----------*/ - -/*-------------------------. -| yyparse or yypush_parse. | -`-------------------------*/ - -#ifdef YYPARSE_PARAM -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) -int -yyparse (void *YYPARSE_PARAM) -#else -int -yyparse (YYPARSE_PARAM) - void *YYPARSE_PARAM; -#endif -#else /* ! YYPARSE_PARAM */ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) -int -yyparse (void) -#else int -yyparse () - -#endif -#endif +yyparse (Parse_control* pc) { /* The lookahead symbol. */ int yychar; + /* The semantic value of the lookahead symbol. */ -YYSTYPE yylval; +/* 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); /* Number of syntax errors so far. */ int yynerrs; @@ -1512,10 +1342,10 @@ YYSTYPE yylval; int yyerrstatus; /* The stacks and their tools: - `yyss': related to states. - `yyvs': related to semantic values. + 'yyss': related to states. + 'yyvs': related to semantic values. - Refer to the stacks thru separate pointers, to allow yyoverflow + Refer to the stacks through separate pointers, to allow yyoverflow to reallocate them elsewhere. */ /* The state stack. */ @@ -1533,7 +1363,7 @@ YYSTYPE yylval; int yyn; int yyresult; /* Lookahead token as an internal (translated) token number. */ - int yytoken; + int yytoken = 0; /* The variables used to return semantic value and location from the action routines. */ YYSTYPE yyval; @@ -1551,9 +1381,8 @@ YYSTYPE yylval; Keep to zero when no symbol should be popped. */ int yylen = 0; - yytoken = 0; - yyss = yyssa; - yyvs = yyvsa; + yyssp = yyss = yyssa; + yyvsp = yyvs = yyvsa; yystacksize = YYINITDEPTH; YYDPRINTF ((stderr, "Starting parse\n")); @@ -1562,14 +1391,6 @@ YYSTYPE yylval; yyerrstatus = 0; yynerrs = 0; yychar = YYEMPTY; /* Cause a token to be read. */ - - /* Initialize stack pointers. - Waste one element of value and location stack - so that they stay on the same level as the state stack. - The wasted elements are never initialized. */ - yyssp = yyss; - yyvsp = yyvs; - goto yysetstate; /*------------------------------------------------------------. @@ -1590,23 +1411,23 @@ YYSTYPE yylval; #ifdef yyoverflow { - /* Give user a chance to reallocate the stack. Use copies of - these so that the &'s don't force the real ones into - memory. */ - YYSTYPE *yyvs1 = yyvs; - yytype_int16 *yyss1 = yyss; - - /* Each stack pointer address is followed by the size of the - data in use in that stack, in bytes. This used to be a - conditional around just the two extra args, but that might - be undefined if yyoverflow is a macro. */ - yyoverflow (YY_("memory exhausted"), - &yyss1, yysize * sizeof (*yyssp), - &yyvs1, yysize * sizeof (*yyvsp), - &yystacksize); + /* Give user a chance to reallocate the stack. Use copies of + these so that the &'s don't force the real ones into + memory. */ + YYSTYPE *yyvs1 = yyvs; + yytype_int16 *yyss1 = yyss; + + /* Each stack pointer address is followed by the size of the + data in use in that stack, in bytes. This used to be a + conditional around just the two extra args, but that might + be undefined if yyoverflow is a macro. */ + yyoverflow (YY_("memory exhausted"), + &yyss1, yysize * sizeof (*yyssp), + &yyvs1, yysize * sizeof (*yyvsp), + &yystacksize); - yyss = yyss1; - yyvs = yyvs1; + yyss = yyss1; + yyvs = yyvs1; } #else /* no yyoverflow */ # ifndef YYSTACK_RELOCATE @@ -1614,22 +1435,22 @@ YYSTYPE yylval; # else /* Extend the stack our own way. */ if (YYMAXDEPTH <= yystacksize) - goto yyexhaustedlab; + goto yyexhaustedlab; yystacksize *= 2; if (YYMAXDEPTH < yystacksize) - yystacksize = YYMAXDEPTH; + yystacksize = YYMAXDEPTH; { - yytype_int16 *yyss1 = yyss; - union yyalloc *yyptr = - (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize)); - if (! yyptr) - goto yyexhaustedlab; - YYSTACK_RELOCATE (yyss_alloc, yyss); - YYSTACK_RELOCATE (yyvs_alloc, yyvs); + yytype_int16 *yyss1 = yyss; + union yyalloc *yyptr = + (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize)); + if (! yyptr) + goto yyexhaustedlab; + YYSTACK_RELOCATE (yyss_alloc, yyss); + YYSTACK_RELOCATE (yyvs_alloc, yyvs); # undef YYSTACK_RELOCATE - if (yyss1 != yyssa) - YYSTACK_FREE (yyss1); + if (yyss1 != yyssa) + YYSTACK_FREE (yyss1); } # endif #endif /* no yyoverflow */ @@ -1638,10 +1459,10 @@ YYSTYPE yylval; yyvsp = yyvs + yysize - 1; YYDPRINTF ((stderr, "Stack size increased to %lu\n", - (unsigned long int) yystacksize)); + (unsigned long int) yystacksize)); if (yyss + yystacksize - 1 <= yyssp) - YYABORT; + YYABORT; } YYDPRINTF ((stderr, "Entering state %d\n", yystate)); @@ -1661,7 +1482,7 @@ yybackup: /* First try to decide what to do without reference to lookahead token. */ yyn = yypact[yystate]; - if (yyn == YYPACT_NINF) + if (yypact_value_is_default (yyn)) goto yydefault; /* Not known => get a lookahead token if don't already have one. */ @@ -1670,7 +1491,7 @@ yybackup: if (yychar == YYEMPTY) { YYDPRINTF ((stderr, "Reading a token: ")); - yychar = YYLEX; + yychar = yylex (&yylval, pc); } if (yychar <= YYEOF) @@ -1692,8 +1513,8 @@ yybackup: yyn = yytable[yyn]; if (yyn <= 0) { - if (yyn == 0 || yyn == YYTABLE_NINF) - goto yyerrlab; + if (yytable_value_is_error (yyn)) + goto yyerrlab; yyn = -yyn; goto yyreduce; } @@ -1710,7 +1531,9 @@ yybackup: yychar = YYEMPTY; yystate = yyn; + YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN *++yyvsp = yylval; + YY_IGNORE_MAYBE_UNINITIALIZED_END goto yynewstate; @@ -1733,7 +1556,7 @@ yyreduce: yylen = yyr2[yyn]; /* If YYLEN is nonzero, implement the default value of the action: - `$$ = $1'. + '$$ = $1'. Otherwise, the following line sets YYVAL to garbage. This behavior is undocumented and Bison @@ -1747,29 +1570,21 @@ yyreduce: switch (yyn) { case 2: - -/* Line 1464 of yacc.c */ -#line 140 "compile.y" +#line 145 "compile.y" /* yacc.c:1646 */ { - Method* method=new Method(Method::CT_ANY, - 0, 0, /*min, max numbered_params_count*/ - 0/*param_names*/, 0/*local_names*/, - (yyvsp[(1) - (1)])/*parser_code*/, 0/*native_code*/); + Method* method=new Method(Method::CT_ANY, 0, 0 /*min, max numbered_params_count*/, 0 /*param_names*/, 0 /*local_names*/, (yyvsp[0]) /*parser_code*/, 0 /*native_code*/); PC.cclass->set_method(PC.alias_method(main_method_name), method); -;} +} +#line 1579 "compile.tab.C" /* yacc.c:1646 */ break; case 9: - -/* Line 1464 of yacc.c */ -#line 155 "compile.y" +#line 157 "compile.y" /* yacc.c:1646 */ { - const String& command=LA2S(*(yyvsp[(2) - (4)]))->trim(String::TRIM_END); - YYSTYPE strings_code=(yyvsp[(4) - (4)]); + const String& command=LA2S(*(yyvsp[-2]))->trim(String::TRIM_END); + YYSTYPE strings_code=(yyvsp[0]); if(strings_code->count()<1*OPERATIONS_PER_OPVALUE) { - strcpy(PC.error, "@"); - strcat(PC.error, command.cstr()); - strcat(PC.error, " is empty"); + PC_ERROR("@", command.cstr(), " is empty"); YYERROR; } if(command==CLASS_NAME) { @@ -1780,27 +1595,26 @@ yyreduce: // creating the class VStateless_class* cclass=new VClass; PC.cclass_new=cclass; - PC.cclass_new->set_name(name); + PC.cclass_new->set_type(name.cstr()); + PC.append=false; } else { - strcpy(PC.error, "@"CLASS_NAME" must contain only one line with class name (contains more then one)"); + strcpy(PC.error, "@" CLASS_NAME " must contain only one line with class name (contains more then one)"); YYERROR; } } else if(command==USE_CONTROL_METHOD_NAME) { CLASS_ADD; - for(size_t i=0; icount(); i+=OPERATIONS_PER_OPVALUE) - PC.request.use_file(PC.request.main_class, LA2S(*strings_code, i)->trim(String::TRIM_END), PC.request.get_used_filename(PC.file_no)); + for(size_t i=0; icount(); i+=OPERATIONS_PER_OPVALUE){ + PC.request.use_file(PC.request.main_class, LA2S(*strings_code, i)->trim(String::TRIM_END), + PC.request.get_used_filename(PC.file_no), strings_code->get(i+1).origin); + } } else if(command==BASE_NAME) { if(PC.append){ - strcpy(PC.error, "can't set base while appending methods to class '"); - strncat(PC.error, PC.cclass->name().cstr(), MAX_STRING/2); - strcat(PC.error, "'"); + PC_ERROR("can't set base while appending methods to class '", PC.cclass->type(), "'"); YYERROR; } CLASS_ADD; if(PC.cclass->base_class()) { // already changed from default? - strcpy(PC.error, "class already have a base '"); - strncat(PC.error, PC.cclass->base_class()->name().cstr(), MAX_STRING/2); - strcat(PC.error, "'"); + PC_ERROR("class already have a base '", PC.cclass->base_class()->type(), "'"); YYERROR; } if(strings_code->count()==1*OPERATIONS_PER_OPVALUE) { @@ -1809,36 +1623,32 @@ yyreduce: // @CLASS == @BASE sanity check if(VStateless_class *base_class=base_class_value->get_class()) { if(PC.cclass==base_class) { - strcpy(PC.error, "@"CLASS_NAME" equals @"BASE_NAME); + strcpy(PC.error, "@" CLASS_NAME " equals @" BASE_NAME); YYERROR; } PC.cclass->get_class()->set_base(base_class); } else { // they asked to derive from a class without methods ['env' & co] - strcpy(PC.error, base_name.cstr()); - strcat(PC.error, ": you can not derive from this class in @"BASE_NAME); + PC_ERROR("'", base_name.cstr(), "': you can not derive from this class in @" BASE_NAME); YYERROR; } } else { - strcpy(PC.error, base_name.cstr()); - strcat(PC.error, ": undefined class in @"BASE_NAME); + PC_ERROR("'", base_name.cstr(), "': undefined class in @" BASE_NAME); YYERROR; } } else { - strcpy(PC.error, "@"BASE_NAME" must contain sole name"); + strcpy(PC.error, "@" BASE_NAME " must contain sole name"); YYERROR; } } else if(command==OPTIONS_CONTROL_METHOD_NAME) { for(size_t i=0; icount(); i+=OPERATIONS_PER_OPVALUE) { const String& option=LA2S(*strings_code, i)->trim(String::TRIM_END); - if(option==OPTION_ALL_VARS_LOCAL_NAME){ + if(option==Symbols::LOCALS_SYMBOL){ PC.set_all_vars_local(); - } else if(option==OPTION_PARTIAL_CLASS){ + } else if(option==Symbols::PARTIAL_SYMBOL){ if(PC.cclass_new){ if(VStateless_class* existed=PC.get_existed_class(PC.cclass_new)){ if(!PC.reuse_existed_class(existed)){ - strcpy(PC.error, "can't append methods to '"); - strncat(PC.error, PC.cclass_new->name().cstr(), MAX_STRING/2); - strcat(PC.error, "' - the class wasn't marked as partial"); + PC_ERROR("can't append methods to '", PC.cclass_new->type(), "' - the class wasn't marked as partial"); YYERROR; } } else { @@ -1846,49 +1656,39 @@ yyreduce: PC.cclass_new->set_partial(); } } else { - strcpy(PC.error, "'"OPTION_PARTIAL_CLASS"' option should be used straight after @"CLASS_NAME); + strcpy(PC.error, "'partial' option should be used straight after @" CLASS_NAME); YYERROR; } - } else if(option==method_call_type_static){ + } else if(option==Symbols::STATIC_SYMBOL){ PC.set_methods_call_type(Method::CT_STATIC); - } else if(option==method_call_type_dynamic){ + } else if(option==Symbols::DYNAMIC_SYMBOL){ PC.set_methods_call_type(Method::CT_DYNAMIC); } else { - strcpy(PC.error, "'"); - strncat(PC.error, option.cstr(), MAX_STRING/2); - strcat(PC.error, "' invalid option. valid options are " - "'"OPTION_PARTIAL_CLASS"', '"OPTION_ALL_VARS_LOCAL_NAME"'" - ", '"METHOD_CALL_TYPE_STATIC"' and '"METHOD_CALL_TYPE_DYNAMIC"'" - ); + PC_ERROR("'", option.cstr(), "' invalid option. valid options are 'partial', 'locals', 'static' and 'dynamic'"); YYERROR; } } } else { - strcpy(PC.error, "'"); - strncat(PC.error, command.cstr(), MAX_STRING/2); - strcat(PC.error, "' invalid special name. valid names are " - "'"CLASS_NAME"', '"USE_CONTROL_METHOD_NAME"', '"BASE_NAME"' and '"OPTIONS_CONTROL_METHOD_NAME"'."); + PC_ERROR("'", command.cstr(), "' invalid special name. valid names are '" CLASS_NAME "', '" USE_CONTROL_METHOD_NAME "', '" BASE_NAME "' and '" OPTIONS_CONTROL_METHOD_NAME "'."); YYERROR; } -;} +} +#line 1677 "compile.tab.C" /* yacc.c:1646 */ break; case 13: - -/* Line 1464 of yacc.c */ -#line 264 "compile.y" - { (yyval)=(yyvsp[(1) - (2)]); P(*(yyval), *(yyvsp[(2) - (2)])); ;} +#line 251 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-1]); P(*(yyval), *(yyvsp[0])); } +#line 1683 "compile.tab.C" /* yacc.c:1646 */ break; case 17: - -/* Line 1464 of yacc.c */ -#line 268 "compile.y" +#line 255 "compile.y" /* yacc.c:1646 */ { CLASS_ADD; PC.explicit_result=false; - YYSTYPE params_names_code=(yyvsp[(3) - (6)]); + YYSTYPE params_names_code=(yyvsp[-3]); ArrayString* params_names=0; if(int size=params_names_code->count()) { params_names=new ArrayString; @@ -1896,16 +1696,16 @@ yyreduce: *params_names+=LA2S(*params_names_code, i); } - YYSTYPE locals_names_code=(yyvsp[(4) - (6)]); + YYSTYPE locals_names_code=(yyvsp[-2]); ArrayString* locals_names=0; bool all_vars_local=false; if(int size=locals_names_code->count()) { locals_names=new ArrayString; for(int i=0; i(&(yyval))=method; -;} +} +#line 1727 "compile.tab.C" /* yacc.c:1646 */ break; case 18: - -/* Line 1464 of yacc.c */ -#line 306 "compile.y" +#line 293 "compile.y" /* yacc.c:1646 */ { - Method* method=reinterpret_cast((yyvsp[(7) - (8)])); + Method* method=reinterpret_cast((yyvsp[-1])); // fill in the code - method->parser_code=(yyvsp[(8) - (8)]); + method->parser_code=(yyvsp[0]); // register in class - const String& name=*LA2S(*(yyvsp[(2) - (8)])); + const String& name=*LA2S(*(yyvsp[-6])); PC.cclass->set_method(PC.alias_method(name), method); -;} +} +#line 1741 "compile.tab.C" /* yacc.c:1646 */ break; case 21: - -/* Line 1464 of yacc.c */ -#line 317 "compile.y" - {(yyval)=(yyvsp[(2) - (3)]);;} +#line 304 "compile.y" /* yacc.c:1646 */ + {(yyval)=(yyvsp[-1]);} +#line 1747 "compile.tab.C" /* yacc.c:1646 */ break; case 25: - -/* Line 1464 of yacc.c */ -#line 319 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); ;} +#line 306 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); } +#line 1753 "compile.tab.C" /* yacc.c:1646 */ break; case 31: - -/* Line 1464 of yacc.c */ -#line 327 "compile.y" - { (yyval)=(yyvsp[(1) - (2)]); P(*(yyval), *(yyvsp[(2) - (2)])); ;} +#line 314 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-1]); P(*(yyval), *(yyvsp[0])); } +#line 1759 "compile.tab.C" /* yacc.c:1646 */ break; case 37: - -/* Line 1464 of yacc.c */ -#line 333 "compile.y" +#line 320 "compile.y" /* yacc.c:1646 */ { (yyval)=N(); - YYSTYPE code=(yyvsp[(1) - (1)]); + YYSTYPE code=(yyvsp[0]); size_t count=code->count(); #ifdef OPTIMIZE_BYTECODE_GET_ELEMENT - if( - count!=3 - || !maybe_change_first_opcode(*code, OP::OP_VALUE__GET_ELEMENT, /*=>*/OP::OP_VALUE__GET_ELEMENT__WRITE) - ) + if(count!=3 || !change_first(*code, OP::OP_VALUE__GET_ELEMENT, /*=>*/OP::OP_VALUE__GET_ELEMENT__WRITE) ) #endif #ifdef OPTIMIZE_BYTECODE_GET_SELF_ELEMENT - if( - count!=3 - || !maybe_change_first_opcode(*code, OP::OP_WITH_SELF__VALUE__GET_ELEMENT, /*=>*/OP::OP_WITH_SELF__VALUE__GET_ELEMENT__WRITE) - ) + if(count!=3 || !change_first(*code, OP::OP_WITH_SELF__VALUE__GET_ELEMENT, /*=>*/OP::OP_WITH_SELF__VALUE__GET_ELEMENT__WRITE) ) #endif #ifdef OPTIMIZE_BYTECODE_GET_OBJECT_ELEMENT - if( - count!=5 - || !maybe_change_first_opcode(*code, OP::OP_GET_OBJECT_ELEMENT, /*=>*/OP::OP_GET_OBJECT_ELEMENT__WRITE) - ) + if(count!=5 || !change_first(*code, OP::OP_GET_OBJECT_ELEMENT, /*=>*/OP::OP_GET_OBJECT_ELEMENT__WRITE) ) #endif #ifdef OPTIMIZE_BYTECODE_GET_OBJECT_VAR_ELEMENT - if( - count!=5 - || !maybe_change_first_opcode(*code, OP::OP_GET_OBJECT_VAR_ELEMENT, /*=>*/OP::OP_GET_OBJECT_VAR_ELEMENT__WRITE) - ) + if(count!=5 || !change_first(*code, OP::OP_GET_OBJECT_VAR_ELEMENT, /*=>*/OP::OP_GET_OBJECT_VAR_ELEMENT__WRITE) ) +#endif + +#ifdef OPTIMIZE_BYTECODE_GET_ELEMENT__SPECIAL + if(!change(*code, count-1/* last */, OP::OP_GET_ELEMENT__SPECIAL, /*=>*/OP::OP_GET_ELEMENT__SPECIAL__WRITE) ) #endif + { - changetail_or_append(*code, - OP::OP_GET_ELEMENT, false, /*=>*/OP::OP_GET_ELEMENT__WRITE, - /*or */OP::OP_WRITE_VALUE - ); /* value=pop; wcontext.write(value) */ + change_or_append(*code, count-1 /* last */, OP::OP_GET_ELEMENT, /*=>*/OP::OP_GET_ELEMENT__WRITE, /*or */OP::OP_WRITE_VALUE ); /* value=pop; wcontext.write(value) */ } P(*(yyval), *code); -;} +} +#line 1795 "compile.tab.C" /* yacc.c:1646 */ break; case 38: - -/* Line 1464 of yacc.c */ -#line 374 "compile.y" - { (yyval)=(yyvsp[(2) - (2)]); ;} +#line 351 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[0]); } +#line 1801 "compile.tab.C" /* yacc.c:1646 */ break; case 41: - -/* Line 1464 of yacc.c */ -#line 376 "compile.y" - { (yyval)=(yyvsp[(2) - (3)]); ;} +#line 353 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-1]); } +#line 1807 "compile.tab.C" /* yacc.c:1646 */ break; case 44: - -/* Line 1464 of yacc.c */ -#line 380 "compile.y" +#line 357 "compile.y" /* yacc.c:1646 */ { (yyval)=N(); - YYSTYPE diving_code=(yyvsp[(1) - (1)]); + YYSTYPE diving_code=(yyvsp[0]); size_t count=diving_code->count(); if(maybe_make_self(*(yyval), *diving_code, count)) { @@ -2048,11 +1830,7 @@ yyreduce: #endif #ifdef OPTIMIZE_BYTECODE_GET_ELEMENT - if( - count>=4 - && (*diving_code)[0].code==OP::OP_VALUE - && (*diving_code)[3].code==OP::OP_GET_ELEMENT - ){ + if(count>=4 && (*diving_code)[0].code==OP::OP_VALUE && (*diving_code)[3].code==OP::OP_GET_ELEMENT ){ // optimization O(*(yyval), (PC.in_call_value && count==4) @@ -2078,59 +1856,51 @@ yyreduce: } #endif /* diving code; stack: current context */ -;} +} +#line 1861 "compile.tab.C" /* yacc.c:1646 */ break; case 45: - -/* Line 1464 of yacc.c */ -#line 433 "compile.y" - { (yyval)=(yyvsp[(1) - (2)]); P(*(yyval), *(yyvsp[(2) - (2)])); ;} +#line 406 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-1]); P(*(yyval), *(yyvsp[0])); } +#line 1867 "compile.tab.C" /* yacc.c:1646 */ break; case 47: - -/* Line 1464 of yacc.c */ -#line 434 "compile.y" - { (yyval)=(yyvsp[(1) - (2)]); P(*(yyval), *(yyvsp[(2) - (2)])); ;} +#line 407 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-1]); P(*(yyval), *(yyvsp[0])); } +#line 1873 "compile.tab.C" /* yacc.c:1646 */ break; case 48: - -/* Line 1464 of yacc.c */ -#line 438 "compile.y" +#line 411 "compile.y" /* yacc.c:1646 */ { (yyval)=N(); #ifdef OPTIMIZE_BYTECODE_CONSTRUCT - if(maybe_optimize_construct(*(yyval), *(yyvsp[(2) - (3)]), *(yyvsp[(3) - (3)]))){ + if(maybe_optimize_construct(*(yyval), *(yyvsp[-1]), *(yyvsp[0]))){ // $a(expr), $.a(expr), $a[value], $.a[value], $self.a[value], $self.a(expr) } else #endif { - P(*(yyval), *(yyvsp[(2) - (3)])); /* stack: context,name */ - P(*(yyval), *(yyvsp[(3) - (3)])); /* stack: context,name,constructor_value */ + P(*(yyval), *(yyvsp[-1])); /* stack: context,name */ + P(*(yyval), *(yyvsp[0])); /* stack: context,name,constructor_value */ } -;} +} +#line 1890 "compile.tab.C" /* yacc.c:1646 */ break; case 52: - -/* Line 1464 of yacc.c */ -#line 454 "compile.y" +#line 427 "compile.y" /* yacc.c:1646 */ { (yyval)=N(); - YYSTYPE diving_code=(yyvsp[(1) - (1)]); + YYSTYPE diving_code=(yyvsp[0]); size_t count=diving_code->count(); if(maybe_make_self(*(yyval), *diving_code, count)) { // $self. } else #ifdef OPTIMIZE_BYTECODE_GET_ELEMENT - if( - count>=4 - && (*diving_code)[0].code==OP::OP_VALUE - && (*diving_code)[3].code==OP::OP_GET_ELEMENT - ){ + if(count>=4 && (*diving_code)[0].code==OP::OP_VALUE && (*diving_code)[3].code==OP::OP_GET_ELEMENT ){ O(*(yyval), OP::OP_WITH_ROOT__VALUE__GET_ELEMENT); P(*(yyval), *diving_code, 1/*offset*/, 2/*limit*/); // copy origin+value if(count>4) @@ -2142,153 +1912,139 @@ yyreduce: P(*(yyval), *diving_code); } /* diving code; stack: current context */ -;} +} +#line 1917 "compile.tab.C" /* yacc.c:1646 */ break; case 53: - -/* Line 1464 of yacc.c */ -#line 480 "compile.y" +#line 449 "compile.y" /* yacc.c:1646 */ { (yyval)=N(); O(*(yyval), OP::OP_WITH_WRITE); /* stack: starting context */ - P(*(yyval), *(yyvsp[(2) - (2)])); /* diving code; stack: context,name */ -;} + P(*(yyval), *(yyvsp[0])); /* diving code; stack: context,name */ +} +#line 1927 "compile.tab.C" /* yacc.c:1646 */ break; case 54: - -/* Line 1464 of yacc.c */ -#line 485 "compile.y" - { (yyval)=(yyvsp[(1) - (2)]); P(*(yyval), *(yyvsp[(2) - (2)])); ;} +#line 454 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-1]); P(*(yyval), *(yyvsp[0])); } +#line 1933 "compile.tab.C" /* yacc.c:1646 */ break; case 58: - -/* Line 1464 of yacc.c */ -#line 492 "compile.y" +#line 461 "compile.y" /* yacc.c:1646 */ { // allow $result_or_other_variable[ letters here any time ] *reinterpret_cast(&(yyval))=PC.explicit_result; PC.explicit_result=false; -;} +} +#line 1942 "compile.tab.C" /* yacc.c:1646 */ break; case 59: - -/* Line 1464 of yacc.c */ -#line 495 "compile.y" +#line 464 "compile.y" /* yacc.c:1646 */ { - PC.explicit_result=*reinterpret_cast(&(yyvsp[(2) - (3)])); -;} + PC.explicit_result=*reinterpret_cast(&(yyvsp[-1])); +} +#line 1950 "compile.tab.C" /* yacc.c:1646 */ break; case 60: - -/* Line 1464 of yacc.c */ -#line 497 "compile.y" +#line 466 "compile.y" /* yacc.c:1646 */ { // stack: context, name - (yyval)=(yyvsp[(3) - (5)]); // stack: context, name, value + (yyval)=(yyvsp[-2]); // stack: context, name, value O(*(yyval), OP::OP_CONSTRUCT_VALUE); /* value=pop; name=pop; context=pop; construct(context,name,value) */ -;} +} +#line 1960 "compile.tab.C" /* yacc.c:1646 */ break; case 61: - -/* Line 1464 of yacc.c */ -#line 503 "compile.y" +#line 472 "compile.y" /* yacc.c:1646 */ { (yyval)=N(); O(*(yyval), OP::OP_PREPARE_TO_EXPRESSION); // stack: context, name - P(*(yyval), *(yyvsp[(2) - (3)])); // stack: context, name, value + P(*(yyval), *(yyvsp[-1])); // stack: context, name, value O(*(yyval), OP::OP_CONSTRUCT_EXPR); /* value=pop->as_expr_result; name=pop; context=pop; construct(context,name,value) */ -;} +} +#line 1972 "compile.tab.C" /* yacc.c:1646 */ break; case 62: - -/* Line 1464 of yacc.c */ -#line 511 "compile.y" +#line 480 "compile.y" /* yacc.c:1646 */ { // stack: context, name (yyval)=N(); - OA(*(yyval), OP::OP_CURLY_CODE__CONSTRUCT, (yyvsp[(2) - (3)])); /* code=pop; name=pop; context=pop; construct(context,name,junction(code)) */ -;} + OA(*(yyval), OP::OP_CURLY_CODE__CONSTRUCT, (yyvsp[-1])); /* code=pop; name=pop; context=pop; construct(context,name,junction(code)) */ +} +#line 1982 "compile.tab.C" /* yacc.c:1646 */ break; case 66: - -/* Line 1464 of yacc.c */ -#line 522 "compile.y" +#line 491 "compile.y" /* yacc.c:1646 */ { (yyval)=N(); - OA(*(yyval), OP::OP_OBJECT_POOL, (yyvsp[(1) - (1)])); /* stack: empty write context */ + OA(*(yyval), OP::OP_OBJECT_POOL, (yyvsp[0])); /* stack: empty write context */ /* some code that writes to that context */ /* context=pop; stack: context.value() */ -;} +} +#line 1993 "compile.tab.C" /* yacc.c:1646 */ break; case 69: - -/* Line 1464 of yacc.c */ -#line 529 "compile.y" - { (yyval)=(yyvsp[(1) - (2)]); P(*(yyval), *(yyvsp[(2) - (2)])); ;} +#line 498 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-1]); P(*(yyval), *(yyvsp[0])); } +#line 1999 "compile.tab.C" /* yacc.c:1646 */ break; case 70: - -/* Line 1464 of yacc.c */ -#line 533 "compile.y" +#line 502 "compile.y" /* yacc.c:1646 */ { + size_t count=(yyvsp[0])->count(); #ifdef OPTIMIZE_BYTECODE_CUT_REM_OPERATOR - if((*(yyvsp[(1) - (1)])).count()) + if(count) #endif { - (yyval)=(yyvsp[(1) - (1)]); /* stack: value */ - if(!maybe_change_first_opcode(*(yyval), OP::OP_CONSTRUCT_OBJECT, /*=>*/OP::OP_CONSTRUCT_OBJECT__WRITE)) - changetail_or_append(*(yyval), - OP::OP_CALL, true, /*=>*/ OP::OP_CALL__WRITE, - /*or */OP::OP_WRITE_VALUE); /* value=pop; wcontext.write(value) */ + (yyval)=(yyvsp[0]); /* stack: value */ + if(!change_first(*(yyval), OP::OP_CONSTRUCT_OBJECT, /*=>*/ OP::OP_CONSTRUCT_OBJECT__WRITE)) + change_or_append(*(yyval), count-2 /* second last */, OP::OP_CALL, /*=>*/ OP::OP_CALL__WRITE, /*or */ OP::OP_WRITE_VALUE); /* value=pop; wcontext.write(value) */ } -;} +} +#line 2015 "compile.tab.C" /* yacc.c:1646 */ break; case 71: - -/* Line 1464 of yacc.c */ -#line 545 "compile.y" +#line 513 "compile.y" /* yacc.c:1646 */ { - PC.in_call_value=true; - ;} + PC.in_call_value=true; +} +#line 2023 "compile.tab.C" /* yacc.c:1646 */ break; case 72: - -/* Line 1464 of yacc.c */ -#line 548 "compile.y" +#line 516 "compile.y" /* yacc.c:1646 */ { - PC.in_call_value=false; - ;} + PC.in_call_value=false; +} +#line 2031 "compile.tab.C" /* yacc.c:1646 */ break; case 73: - -/* Line 1464 of yacc.c */ -#line 551 "compile.y" +#line 519 "compile.y" /* yacc.c:1646 */ { /* ^field.$method{vasya} */ #ifdef OPTIMIZE_BYTECODE_CUT_REM_OPERATOR #ifdef OPTIMIZE_BYTECODE_GET_ELEMENT - const String* operator_name=LA2S(*(yyvsp[(3) - (6)]), 0, OP::OP_VALUE__GET_ELEMENT_OR_OPERATOR); + const String* operator_name=LA2S(*(yyvsp[-3]), 0, OP::OP_VALUE__GET_ELEMENT_OR_OPERATOR); #else - const String* operator_name=LA2S(*(yyvsp[(3) - (6)]), 1); + const String* operator_name=LA2S(*(yyvsp[-3]), 1); #endif - if(operator_name && *operator_name==REM_OPERATOR_NAME){ + if(operator_name && SYMBOLS_EQ(*operator_name,REM_SYMBOL)){ (yyval)=N(); } else #endif { - YYSTYPE params_code=(yyvsp[(5) - (6)]); + YYSTYPE params_code=(yyvsp[-1]); if(params_code->count()==3) { // probably [] case. [OP::OP_VALUE+origin+Void] if(Value* value=LA2V(*params_code)) // it is OP_VALUE+origin+value? if(const String * string=value->get_string()) @@ -2297,15 +2053,19 @@ yyreduce: } /* stack: context, method_junction */ - YYSTYPE var_code=(yyvsp[(3) - (6)]); + YYSTYPE var_code=(yyvsp[-3]); if( var_code->count()==8 - && (*var_code)[0].code==OP::OP_VALUE__GET_CLASS + && ( (*var_code)[0].code==OP::OP_VALUE__GET_CLASS || (*var_code)[0].code==OP::OP_VALUE__GET_BASE_CLASS ) && (*var_code)[3].code==OP::OP_PREPARE_TO_CONSTRUCT_OBJECT && (*var_code)[4].code==OP::OP_VALUE +#ifdef FEATURE_GET_ELEMENT4CALL + && (*var_code)[7].code==OP::OP_GET_ELEMENT4CALL +#else && (*var_code)[7].code==OP::OP_GET_ELEMENT +#endif ){ - yyval=N(); + (yyval)=N(); O(*(yyval), OP::OP_CONSTRUCT_OBJECT); P(*(yyval), *var_code, 1/*offset*/, 2/*limit*/); // class name P(*(yyval), *var_code, 5/*offset*/, 2/*limit*/); // constructor name @@ -2316,92 +2076,101 @@ yyreduce: OA(*(yyval), OP::OP_CALL, params_code); // method_frame=make frame(pop junction); ncontext=pop; call(ncontext,method_frame) stack: value } } -;} +} +#line 2081 "compile.tab.C" /* yacc.c:1646 */ break; - case 76: + case 74: +#line 565 "compile.y" /* yacc.c:1646 */ + { +#ifdef FEATURE_GET_ELEMENT4CALL + size_t count=(yyvsp[0])->count(); + if(count){ + (yyval)=(yyvsp[0]); +#ifdef OPTIMIZE_BYTECODE_GET_OBJECT_ELEMENT + !(count==5 && change_first(*(yyval), OP::OP_GET_OBJECT_ELEMENT, OP::OP_GET_OBJECT_ELEMENT4CALL)) && +#endif +#ifdef OPTIMIZE_BYTECODE_GET_OBJECT_VAR_ELEMENT + !(count==5 && change_first(*(yyval), OP::OP_GET_OBJECT_VAR_ELEMENT, OP::OP_GET_OBJECT_VAR_ELEMENT4CALL)) && +#endif + !change(*(yyval), count-1, OP::OP_GET_ELEMENT, OP::OP_GET_ELEMENT4CALL); + } +#endif +} +#line 2101 "compile.tab.C" /* yacc.c:1646 */ + break; -/* Line 1464 of yacc.c */ -#line 595 "compile.y" - { (yyval)=(yyvsp[(1) - (2)]); P(*(yyval), *(yyvsp[(2) - (2)])); ;} + case 76: +#line 581 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-1]); P(*(yyval), *(yyvsp[0])); } +#line 2107 "compile.tab.C" /* yacc.c:1646 */ break; case 80: - -/* Line 1464 of yacc.c */ -#line 601 "compile.y" +#line 587 "compile.y" /* yacc.c:1646 */ { // allow ^call[ letters here any time ] *reinterpret_cast(&(yyval))=PC.explicit_result; PC.explicit_result=false; -;} +} +#line 2116 "compile.tab.C" /* yacc.c:1646 */ break; case 81: - -/* Line 1464 of yacc.c */ -#line 604 "compile.y" +#line 590 "compile.y" /* yacc.c:1646 */ { - PC.explicit_result=*reinterpret_cast(&(yyvsp[(2) - (3)])); -;} + PC.explicit_result=*reinterpret_cast(&(yyvsp[-1])); +} +#line 2124 "compile.tab.C" /* yacc.c:1646 */ break; case 82: - -/* Line 1464 of yacc.c */ -#line 606 "compile.y" - {(yyval)=(yyvsp[(3) - (5)]);;} +#line 592 "compile.y" /* yacc.c:1646 */ + {(yyval)=(yyvsp[-2]);} +#line 2130 "compile.tab.C" /* yacc.c:1646 */ break; case 83: - -/* Line 1464 of yacc.c */ -#line 607 "compile.y" - {(yyval)=(yyvsp[(2) - (3)]);;} +#line 593 "compile.y" /* yacc.c:1646 */ + {(yyval)=(yyvsp[-1]);} +#line 2136 "compile.tab.C" /* yacc.c:1646 */ break; case 84: - -/* Line 1464 of yacc.c */ -#line 608 "compile.y" - {(yyval)=(yyvsp[(2) - (3)]);;} +#line 594 "compile.y" /* yacc.c:1646 */ + {(yyval)=(yyvsp[-1]);} +#line 2142 "compile.tab.C" /* yacc.c:1646 */ break; case 86: - -/* Line 1464 of yacc.c */ -#line 611 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); ;} +#line 597 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); } +#line 2148 "compile.tab.C" /* yacc.c:1646 */ break; case 88: - -/* Line 1464 of yacc.c */ -#line 615 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); ;} +#line 601 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); } +#line 2154 "compile.tab.C" /* yacc.c:1646 */ break; case 90: - -/* Line 1464 of yacc.c */ -#line 619 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); ;} +#line 605 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); } +#line 2160 "compile.tab.C" /* yacc.c:1646 */ break; case 91: - -/* Line 1464 of yacc.c */ -#line 621 "compile.y" +#line 607 "compile.y" /* yacc.c:1646 */ { - (yyval)=(yyvsp[(1) - (1)]); -;} + (yyval)=(yyvsp[0]); +} +#line 2168 "compile.tab.C" /* yacc.c:1646 */ break; case 92: - -/* Line 1464 of yacc.c */ -#line 624 "compile.y" +#line 610 "compile.y" /* yacc.c:1646 */ { - YYSTYPE expr_code=(yyvsp[(1) - (1)]); + YYSTYPE expr_code=(yyvsp[0]); if(expr_code->count()==3 && (*expr_code)[0].code==OP::OP_VALUE) { // optimizing (double/bool/incidently 'string' too) case. [OP::OP_VALUE+origin+Double]. no evaluating (yyval)=expr_code; @@ -2413,461 +2182,425 @@ yyreduce: (yyval)=N(); OA(*(yyval), OP::OP_EXPR_CODE__STORE_PARAM, code); } -;} +} +#line 2187 "compile.tab.C" /* yacc.c:1646 */ break; case 93: - -/* Line 1464 of yacc.c */ -#line 638 "compile.y" +#line 624 "compile.y" /* yacc.c:1646 */ { (yyval)=N(); - OA(*(yyval), OP::OP_CURLY_CODE__STORE_PARAM, (yyvsp[(1) - (1)])); -;} + OA(*(yyval), OP::OP_CURLY_CODE__STORE_PARAM, (yyvsp[0])); +} +#line 2196 "compile.tab.C" /* yacc.c:1646 */ break; case 98: - -/* Line 1464 of yacc.c */ -#line 650 "compile.y" - { (yyval)=(yyvsp[(1) - (2)]); P(*(yyval), *(yyvsp[(2) - (2)])); ;} +#line 636 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-1]); P(*(yyval), *(yyvsp[0])); } +#line 2202 "compile.tab.C" /* yacc.c:1646 */ break; case 100: - -/* Line 1464 of yacc.c */ -#line 652 "compile.y" - { (yyval)=(yyvsp[(1) - (2)]); P(*(yyval), *(yyvsp[(2) - (2)])); ;} +#line 638 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-1]); P(*(yyval), *(yyvsp[0])); } +#line 2208 "compile.tab.C" /* yacc.c:1646 */ break; case 102: - -/* Line 1464 of yacc.c */ -#line 654 "compile.y" +#line 640 "compile.y" /* yacc.c:1646 */ { // we know that name_advance1 not called from ^xxx context // so we'll not check for operator call possibility as we do in name_advance2 /* stack: context */ - (yyval)=(yyvsp[(1) - (1)]); /* stack: context,name */ + (yyval)=(yyvsp[0]); /* stack: context,name */ +#ifdef OPTIMIZE_BYTECODE_GET_ELEMENT__SPECIAL + O(*(yyval), is_special_element(*(yyval)) ? OP::OP_GET_ELEMENT__SPECIAL : OP::OP_GET_ELEMENT); +#else O(*(yyval), OP::OP_GET_ELEMENT); /* name=pop; context=pop; stack: context.get_element(name) */ -;} +#endif +} +#line 2225 "compile.tab.C" /* yacc.c:1646 */ break; case 103: - -/* Line 1464 of yacc.c */ -#line 662 "compile.y" +#line 652 "compile.y" /* yacc.c:1646 */ { /* stack: context */ - (yyval)=(yyvsp[(1) - (1)]); /* stack: context,name */ + (yyval)=(yyvsp[0]); /* stack: context,name */ +#ifdef OPTIMIZE_BYTECODE_GET_ELEMENT__SPECIAL + O(*(yyval), is_special_element(*(yyval)) ? OP::OP_GET_ELEMENT__SPECIAL : OP::OP_GET_ELEMENT); +#else O(*(yyval), OP::OP_GET_ELEMENT); /* name=pop; context=pop; stack: context.get_element(name) */ -;} +#endif +} +#line 2239 "compile.tab.C" /* yacc.c:1646 */ break; case 109: - -/* Line 1464 of yacc.c */ -#line 675 "compile.y" +#line 669 "compile.y" /* yacc.c:1646 */ { - (yyval)=(yyvsp[(2) - (2)]); + (yyval)=(yyvsp[0]); O(*(yyval), OP::OP_GET_ELEMENT); -;} +} +#line 2248 "compile.tab.C" /* yacc.c:1646 */ break; case 110: - -/* Line 1464 of yacc.c */ -#line 679 "compile.y" +#line 673 "compile.y" /* yacc.c:1646 */ { YYSTYPE code; { - change_string_literal_to_write_string_literal(*(code=(yyvsp[(1) - (2)]))); - P(*code, *(yyvsp[(2) - (2)])); + change_string_literal_to_write_string_literal(*(code=(yyvsp[-1]))); + P(*code, *(yyvsp[0])); } (yyval)=N(); OA(*(yyval), OP::OP_STRING_POOL, code); -;} +} +#line 2262 "compile.tab.C" /* yacc.c:1646 */ break; case 111: - -/* Line 1464 of yacc.c */ -#line 688 "compile.y" +#line 682 "compile.y" /* yacc.c:1646 */ { // allow $result_or_other_variable[ letters here any time ] *reinterpret_cast(&(yyval))=PC.explicit_result; PC.explicit_result=false; -;} +} +#line 2271 "compile.tab.C" /* yacc.c:1646 */ break; case 112: - -/* Line 1464 of yacc.c */ -#line 691 "compile.y" +#line 685 "compile.y" /* yacc.c:1646 */ { - PC.explicit_result=*reinterpret_cast(&(yyvsp[(2) - (3)])); -;} + PC.explicit_result=*reinterpret_cast(&(yyvsp[-1])); +} +#line 2279 "compile.tab.C" /* yacc.c:1646 */ break; case 113: - -/* Line 1464 of yacc.c */ -#line 693 "compile.y" +#line 687 "compile.y" /* yacc.c:1646 */ { (yyval)=N(); - OA(*(yyval), OP::OP_OBJECT_POOL, (yyvsp[(3) - (5)])); /* stack: empty write context */ - /* some code that writes to that context */ - /* context=pop; stack: context.value() */ -;} +#ifdef OPTIMIZE_BYTECODE_GET_ELEMENT__SPECIAL + if(!maybe_append_simple_diving_code(*(yyval), *(yyvsp[-2]))) +#endif + { + OA(*(yyval), OP::OP_OBJECT_POOL, (yyvsp[-2])); /* stack: empty write context */ + /* some code that writes to that context */ + /* context=pop; stack: context.value() */ + } +} +#line 2295 "compile.tab.C" /* yacc.c:1646 */ break; case 114: - -/* Line 1464 of yacc.c */ -#line 699 "compile.y" +#line 698 "compile.y" /* yacc.c:1646 */ { (yyval)=N(); O(*(yyval), OP::OP_WITH_READ); - P(*(yyval), *(yyvsp[(1) - (1)])); -;} + P(*(yyval), *(yyvsp[0])); +} +#line 2305 "compile.tab.C" /* yacc.c:1646 */ break; case 116: - -/* Line 1464 of yacc.c */ -#line 704 "compile.y" - { (yyval)=(yyvsp[(1) - (2)]); P(*(yyval), *(yyvsp[(2) - (2)])); ;} +#line 703 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-1]); P(*(yyval), *(yyvsp[0])); } +#line 2311 "compile.tab.C" /* yacc.c:1646 */ break; case 117: - -/* Line 1464 of yacc.c */ -#line 705 "compile.y" +#line 704 "compile.y" /* yacc.c:1646 */ { - (yyval)=(yyvsp[(2) - (2)]); + (yyval)=(yyvsp[0]); O(*(yyval), OP::OP_GET_ELEMENT__WRITE); -;} +} +#line 2320 "compile.tab.C" /* yacc.c:1646 */ break; case 120: - -/* Line 1464 of yacc.c */ -#line 714 "compile.y" +#line 713 "compile.y" /* yacc.c:1646 */ { - (yyval)=(yyvsp[(1) - (2)]); // stack: class name string + (yyval)=(yyvsp[-1]); // stack: class name string + OP::OPCODE code = OP::OP_VALUE__GET_CLASS; if(*LA2S(*(yyval)) == BASE_NAME) { // pseudo BASE class if(VStateless_class* base=PC.cclass->base_class()) { - change_string_literal_value(*(yyval), base->name()); + change_string_literal_value(*(yyval), *new String(base->type())); } else { strcpy(PC.error, "no base class declared"); YYERROR; } + code = OP::OP_VALUE__GET_BASE_CLASS; + } else { + Value *base=PC.request.get_class(*LA2S(*(yyval))); + if(base && PC.cclass->derived_from(*base->get_class())) + code = OP::OP_VALUE__GET_BASE_CLASS; } // optimized OP_VALUE+origin+string+OP_GET_CLASS => OP_VALUE__GET_CLASS+origin+string - maybe_change_first_opcode(*(yyval), OP::OP_VALUE, OP::OP_VALUE__GET_CLASS); -;} + change_first(*(yyval), OP::OP_VALUE, code); +} +#line 2344 "compile.tab.C" /* yacc.c:1646 */ break; case 121: - -/* Line 1464 of yacc.c */ -#line 727 "compile.y" +#line 732 "compile.y" /* yacc.c:1646 */ { - (yyval)=(yyvsp[(1) - (2)]); + (yyval)=(yyvsp[-1]); if(!PC.in_call_value) { strcpy(PC.error, ":: not allowed here"); YYERROR; } O(*(yyval), OP::OP_PREPARE_TO_CONSTRUCT_OBJECT); -;} +} +#line 2357 "compile.tab.C" /* yacc.c:1646 */ break; case 128: - -/* Line 1464 of yacc.c */ -#line 746 "compile.y" - { (yyval) = (yyvsp[(2) - (3)]); ;} +#line 751 "compile.y" /* yacc.c:1646 */ + { (yyval) = (yyvsp[-1]); } +#line 2363 "compile.tab.C" /* yacc.c:1646 */ break; case 129: - -/* Line 1464 of yacc.c */ -#line 747 "compile.y" - { (yyval) = (yyvsp[(2) - (3)]); ;} +#line 752 "compile.y" /* yacc.c:1646 */ + { (yyval) = (yyvsp[-1]); } +#line 2369 "compile.tab.C" /* yacc.c:1646 */ break; case 130: - -/* Line 1464 of yacc.c */ -#line 748 "compile.y" - { (yyval) = (yyvsp[(2) - (3)]); ;} +#line 753 "compile.y" /* yacc.c:1646 */ + { (yyval) = (yyvsp[-1]); } +#line 2375 "compile.tab.C" /* yacc.c:1646 */ break; case 131: - -/* Line 1464 of yacc.c */ -#line 750 "compile.y" - { (yyval)=(yyvsp[(2) - (2)]); O(*(yyval), OP::OP_NEG); ;} +#line 755 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[0]); O(*(yyval), OP::OP_NEG); } +#line 2381 "compile.tab.C" /* yacc.c:1646 */ break; case 132: - -/* Line 1464 of yacc.c */ -#line 751 "compile.y" - { (yyval)=(yyvsp[(2) - (2)]); ;} +#line 756 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[0]); } +#line 2387 "compile.tab.C" /* yacc.c:1646 */ break; case 133: - -/* Line 1464 of yacc.c */ -#line 752 "compile.y" - { (yyval)=(yyvsp[(2) - (2)]); O(*(yyval), OP::OP_INV); ;} +#line 757 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[0]); O(*(yyval), OP::OP_INV); } +#line 2393 "compile.tab.C" /* yacc.c:1646 */ break; case 134: - -/* Line 1464 of yacc.c */ -#line 753 "compile.y" - { (yyval)=(yyvsp[(2) - (2)]); O(*(yyval), OP::OP_NOT); ;} +#line 758 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[0]); O(*(yyval), OP::OP_NOT); } +#line 2399 "compile.tab.C" /* yacc.c:1646 */ break; case 135: - -/* Line 1464 of yacc.c */ -#line 754 "compile.y" - { (yyval)=(yyvsp[(2) - (2)]); O(*(yyval), OP::OP_DEF); ;} +#line 759 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[0]); O(*(yyval), OP::OP_DEF); } +#line 2405 "compile.tab.C" /* yacc.c:1646 */ break; case 136: - -/* Line 1464 of yacc.c */ -#line 755 "compile.y" - { (yyval)=(yyvsp[(2) - (2)]); O(*(yyval), OP::OP_IN); ;} +#line 760 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[0]); O(*(yyval), OP::OP_IN); } +#line 2411 "compile.tab.C" /* yacc.c:1646 */ break; case 137: - -/* Line 1464 of yacc.c */ -#line 756 "compile.y" - { (yyval)=(yyvsp[(2) - (2)]); O(*(yyval), OP::OP_FEXISTS); ;} +#line 761 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[0]); O(*(yyval), OP::OP_FEXISTS); } +#line 2417 "compile.tab.C" /* yacc.c:1646 */ break; case 138: - -/* Line 1464 of yacc.c */ -#line 757 "compile.y" - { (yyval)=(yyvsp[(2) - (2)]); O(*(yyval), OP::OP_DEXISTS); ;} +#line 762 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[0]); O(*(yyval), OP::OP_DEXISTS); } +#line 2423 "compile.tab.C" /* yacc.c:1646 */ break; case 139: - -/* Line 1464 of yacc.c */ -#line 759 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_SUB); ;} +#line 764 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_SUB); } +#line 2429 "compile.tab.C" /* yacc.c:1646 */ break; case 140: - -/* Line 1464 of yacc.c */ -#line 760 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_ADD); ;} +#line 765 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_ADD); } +#line 2435 "compile.tab.C" /* yacc.c:1646 */ break; case 141: - -/* Line 1464 of yacc.c */ -#line 761 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_MUL); ;} +#line 766 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_MUL); } +#line 2441 "compile.tab.C" /* yacc.c:1646 */ break; case 142: - -/* Line 1464 of yacc.c */ -#line 762 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_DIV); ;} +#line 767 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_DIV); } +#line 2447 "compile.tab.C" /* yacc.c:1646 */ break; case 143: - -/* Line 1464 of yacc.c */ -#line 763 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_MOD); ;} +#line 768 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_MOD); } +#line 2453 "compile.tab.C" /* yacc.c:1646 */ break; case 144: - -/* Line 1464 of yacc.c */ -#line 764 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_INTDIV); ;} +#line 769 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_INTDIV); } +#line 2459 "compile.tab.C" /* yacc.c:1646 */ break; case 145: - -/* Line 1464 of yacc.c */ -#line 765 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_BIN_SL); ;} +#line 770 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_BIN_SL); } +#line 2465 "compile.tab.C" /* yacc.c:1646 */ break; case 146: - -/* Line 1464 of yacc.c */ -#line 766 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_BIN_SR); ;} +#line 771 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_BIN_SR); } +#line 2471 "compile.tab.C" /* yacc.c:1646 */ break; case 147: - -/* Line 1464 of yacc.c */ -#line 767 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_BIN_AND); ;} +#line 772 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_BIN_AND); } +#line 2477 "compile.tab.C" /* yacc.c:1646 */ break; case 148: - -/* Line 1464 of yacc.c */ -#line 768 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_BIN_OR); ;} +#line 773 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_BIN_OR); } +#line 2483 "compile.tab.C" /* yacc.c:1646 */ break; case 149: - -/* Line 1464 of yacc.c */ -#line 769 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_BIN_XOR); ;} +#line 774 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_BIN_XOR); } +#line 2489 "compile.tab.C" /* yacc.c:1646 */ break; case 150: - -/* Line 1464 of yacc.c */ -#line 770 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); OA(*(yyval), OP::OP_NESTED_CODE, (yyvsp[(3) - (3)])); O(*(yyval), OP::OP_LOG_AND); ;} +#line 775 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); OA(*(yyval), OP::OP_NESTED_CODE, (yyvsp[0])); O(*(yyval), OP::OP_LOG_AND); } +#line 2495 "compile.tab.C" /* yacc.c:1646 */ break; case 151: - -/* Line 1464 of yacc.c */ -#line 771 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); OA(*(yyval), OP::OP_NESTED_CODE, (yyvsp[(3) - (3)])); O(*(yyval), OP::OP_LOG_OR); ;} +#line 776 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); OA(*(yyval), OP::OP_NESTED_CODE, (yyvsp[0])); O(*(yyval), OP::OP_LOG_OR); } +#line 2501 "compile.tab.C" /* yacc.c:1646 */ break; case 152: - -/* Line 1464 of yacc.c */ -#line 772 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_LOG_XOR); ;} +#line 777 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_LOG_XOR); } +#line 2507 "compile.tab.C" /* yacc.c:1646 */ break; case 153: - -/* Line 1464 of yacc.c */ -#line 773 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_NUM_LT); ;} +#line 778 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_NUM_LT); } +#line 2513 "compile.tab.C" /* yacc.c:1646 */ break; case 154: - -/* Line 1464 of yacc.c */ -#line 774 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_NUM_GT); ;} +#line 779 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_NUM_GT); } +#line 2519 "compile.tab.C" /* yacc.c:1646 */ break; case 155: - -/* Line 1464 of yacc.c */ -#line 775 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_NUM_LE); ;} +#line 780 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_NUM_LE); } +#line 2525 "compile.tab.C" /* yacc.c:1646 */ break; case 156: - -/* Line 1464 of yacc.c */ -#line 776 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_NUM_GE); ;} +#line 781 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_NUM_GE); } +#line 2531 "compile.tab.C" /* yacc.c:1646 */ break; case 157: - -/* Line 1464 of yacc.c */ -#line 777 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_NUM_EQ); ;} +#line 782 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_NUM_EQ); } +#line 2537 "compile.tab.C" /* yacc.c:1646 */ break; case 158: - -/* Line 1464 of yacc.c */ -#line 778 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_NUM_NE); ;} +#line 783 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_NUM_NE); } +#line 2543 "compile.tab.C" /* yacc.c:1646 */ break; case 159: - -/* Line 1464 of yacc.c */ -#line 779 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_STR_LT); ;} +#line 784 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_STR_LT); } +#line 2549 "compile.tab.C" /* yacc.c:1646 */ break; case 160: - -/* Line 1464 of yacc.c */ -#line 780 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_STR_GT); ;} +#line 785 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_STR_GT); } +#line 2555 "compile.tab.C" /* yacc.c:1646 */ break; case 161: - -/* Line 1464 of yacc.c */ -#line 781 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_STR_LE); ;} +#line 786 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_STR_LE); } +#line 2561 "compile.tab.C" /* yacc.c:1646 */ break; case 162: - -/* Line 1464 of yacc.c */ -#line 782 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_STR_GE); ;} +#line 787 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_STR_GE); } +#line 2567 "compile.tab.C" /* yacc.c:1646 */ break; case 163: - -/* Line 1464 of yacc.c */ -#line 783 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_STR_EQ); ;} +#line 788 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_STR_EQ); } +#line 2573 "compile.tab.C" /* yacc.c:1646 */ break; case 164: - -/* Line 1464 of yacc.c */ -#line 784 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_STR_NE); ;} +#line 789 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_STR_NE); } +#line 2579 "compile.tab.C" /* yacc.c:1646 */ break; case 165: - -/* Line 1464 of yacc.c */ -#line 785 "compile.y" - { (yyval)=(yyvsp[(1) - (3)]); P(*(yyval), *(yyvsp[(3) - (3)])); O(*(yyval), OP::OP_IS); ;} +#line 790 "compile.y" /* yacc.c:1646 */ + { (yyval)=(yyvsp[-2]); P(*(yyval), *(yyvsp[0])); O(*(yyval), OP::OP_IS); } +#line 2585 "compile.tab.C" /* yacc.c:1646 */ break; case 166: - -/* Line 1464 of yacc.c */ -#line 788 "compile.y" +#line 793 "compile.y" /* yacc.c:1646 */ { // optimized OP_STRING => OP_VALUE for doubles - maybe_change_string_literal_to_double_literal(*((yyval)=(yyvsp[(1) - (1)]))); -;} + maybe_change_string_literal_to_double_literal(*((yyval)=(yyvsp[0]))); +} +#line 2594 "compile.tab.C" /* yacc.c:1646 */ break; case 167: - -/* Line 1464 of yacc.c */ -#line 793 "compile.y" +#line 798 "compile.y" /* yacc.c:1646 */ { #ifdef OPTIMIZE_BYTECODE_STRING_POOL // it brakes ^if(" 09 "){...} - YYSTYPE code=(yyvsp[(1) - (1)]); + YYSTYPE code=(yyvsp[0]); (yyval)=N(); - if(code->count()==3 && maybe_change_first_opcode(*code, OP::OP_STRING__WRITE, OP::OP_VALUE)){ + if(code->count()==3 && change_first(*code, OP::OP_STRING__WRITE, OP::OP_VALUE)){ // optimized OP_STRING__WRITE+origin+value => OP_VALUE+origin+value without starting OP_STRING_POOL P(*(yyval), *code); } else { @@ -2875,57 +2608,62 @@ yyreduce: } #else (yyval)=N(); - OA(*(yyval), OP::OP_STRING_POOL, (yyvsp[(1) - (1)])); /* stack: empty write context */ + OA(*(yyval), OP::OP_STRING_POOL, (yyvsp[0])); /* stack: empty write context */ #endif /* some code that writes to that context */ /* context=pop; stack: context.get_string() */ -;} +} +#line 2617 "compile.tab.C" /* yacc.c:1646 */ break; case 168: - -/* Line 1464 of yacc.c */ -#line 814 "compile.y" +#line 819 "compile.y" /* yacc.c:1646 */ { // optimized OP_STRING+OP_WRITE_VALUE => OP_STRING__WRITE - change_string_literal_to_write_string_literal(*((yyval)=(yyvsp[(1) - (1)]))); -;} + change_string_literal_to_write_string_literal(*((yyval)=(yyvsp[0]))); +} +#line 2626 "compile.tab.C" /* yacc.c:1646 */ break; case 169: - -/* Line 1464 of yacc.c */ -#line 819 "compile.y" - { (yyval)=VL(/*we know that we will not change it*/const_cast(&vempty), 0, 0, 0); ;} +#line 824 "compile.y" /* yacc.c:1646 */ + { (yyval)=VL(/*we know that we will not change it*/const_cast(&vempty), 0, 0, 0); } +#line 2632 "compile.tab.C" /* yacc.c:1646 */ break; case 170: - -/* Line 1464 of yacc.c */ -#line 820 "compile.y" - { (yyval) = VL(/*we know that we will not change it*/const_cast(&vtrue), 0, 0, 0); ;} +#line 825 "compile.y" /* yacc.c:1646 */ + { (yyval) = VL(/*we know that we will not change it*/const_cast(&vtrue), 0, 0, 0); } +#line 2638 "compile.tab.C" /* yacc.c:1646 */ break; case 171: - -/* Line 1464 of yacc.c */ -#line 821 "compile.y" - { (yyval) = VL(/*we know that we will not change it*/const_cast(&vfalse), 0, 0, 0); ;} +#line 826 "compile.y" /* yacc.c:1646 */ + { (yyval) = VL(/*we know that we will not change it*/const_cast(&vfalse), 0, 0, 0); } +#line 2644 "compile.tab.C" /* yacc.c:1646 */ break; case 172: - -/* Line 1464 of yacc.c */ -#line 823 "compile.y" - { (yyval)=N(); ;} +#line 828 "compile.y" /* yacc.c:1646 */ + { (yyval)=N(); } +#line 2650 "compile.tab.C" /* yacc.c:1646 */ break; - -/* Line 1464 of yacc.c */ -#line 2927 "compile.tab.C" +#line 2654 "compile.tab.C" /* yacc.c:1646 */ default: break; } + /* User semantic actions sometimes alter yychar, and that requires + that yytoken be updated with the new translation. We take the + approach of translating immediately before every use of yytoken. + One alternative is translating here after every semantic action, + but that translation would be missed if the semantic action invokes + YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or + if it invokes YYBACKUP. In the case of YYABORT or YYACCEPT, an + incorrect destructor might then be invoked immediately. In the + case of YYERROR or YYBACKUP, subsequent parser actions might lead + to an incorrect destructor call or verbose syntax error message + before the lookahead is translated. */ YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc); YYPOPSTACK (yylen); @@ -2934,7 +2672,7 @@ yyreduce: *++yyvsp = yyval; - /* Now `shift' the result of the reduction. Determine what state + /* 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. */ @@ -2949,48 +2687,51 @@ yyreduce: goto yynewstate; -/*------------------------------------. -| yyerrlab -- here on detecting error | -`------------------------------------*/ +/*--------------------------------------. +| yyerrlab -- here on detecting error. | +`--------------------------------------*/ yyerrlab: + /* Make sure we have latest lookahead translation. See comments at + user semantic actions for why this is necessary. */ + yytoken = yychar == YYEMPTY ? YYEMPTY : YYTRANSLATE (yychar); + /* If not already recovering from an error, report this error. */ if (!yyerrstatus) { ++yynerrs; #if ! YYERROR_VERBOSE - yyerror (YY_("syntax error")); + yyerror (pc, YY_("syntax error")); #else +# define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \ + yyssp, yytoken) { - YYSIZE_T yysize = yysyntax_error (0, yystate, yychar); - if (yymsg_alloc < yysize && yymsg_alloc < YYSTACK_ALLOC_MAXIMUM) - { - YYSIZE_T yyalloc = 2 * yysize; - if (! (yysize <= yyalloc && yyalloc <= YYSTACK_ALLOC_MAXIMUM)) - yyalloc = YYSTACK_ALLOC_MAXIMUM; - if (yymsg != yymsgbuf) - YYSTACK_FREE (yymsg); - yymsg = (char *) YYSTACK_ALLOC (yyalloc); - if (yymsg) - yymsg_alloc = yyalloc; - else - { - yymsg = yymsgbuf; - yymsg_alloc = sizeof yymsgbuf; - } - } - - if (0 < yysize && yysize <= yymsg_alloc) - { - (void) yysyntax_error (yymsg, yystate, yychar); - yyerror (yymsg); - } - else - { - yyerror (YY_("syntax error")); - if (yysize != 0) - goto yyexhaustedlab; - } + char const *yymsgp = YY_("syntax error"); + int yysyntax_error_status; + yysyntax_error_status = YYSYNTAX_ERROR; + if (yysyntax_error_status == 0) + yymsgp = yymsg; + else if (yysyntax_error_status == 1) + { + if (yymsg != yymsgbuf) + YYSTACK_FREE (yymsg); + yymsg = (char *) YYSTACK_ALLOC (yymsg_alloc); + if (!yymsg) + { + yymsg = yymsgbuf; + yymsg_alloc = sizeof yymsgbuf; + yysyntax_error_status = 2; + } + else + { + yysyntax_error_status = YYSYNTAX_ERROR; + yymsgp = yymsg; + } + } + yyerror (pc, yymsgp); + if (yysyntax_error_status == 2) + goto yyexhaustedlab; } +# undef YYSYNTAX_ERROR #endif } @@ -2999,20 +2740,20 @@ yyerrlab: if (yyerrstatus == 3) { /* If just tried and failed to reuse lookahead token after an - error, discard it. */ + error, discard it. */ if (yychar <= YYEOF) - { - /* Return failure if at end of input. */ - if (yychar == YYEOF) - YYABORT; - } + { + /* Return failure if at end of input. */ + if (yychar == YYEOF) + YYABORT; + } else - { - yydestruct ("Error: discarding", - yytoken, &yylval); - yychar = YYEMPTY; - } + { + yydestruct ("Error: discarding", + yytoken, &yylval, pc); + yychar = YYEMPTY; + } } /* Else will try to reuse lookahead token after shifting the error @@ -3031,7 +2772,7 @@ yyerrorlab: if (/*CONSTCOND*/ 0) goto yyerrorlab; - /* Do not reclaim the symbols of the rule which action triggered + /* Do not reclaim the symbols of the rule whose action triggered this YYERROR. */ YYPOPSTACK (yylen); yylen = 0; @@ -3044,35 +2785,37 @@ yyerrorlab: | yyerrlab1 -- common code for both syntax error and YYERROR. | `-------------------------------------------------------------*/ yyerrlab1: - yyerrstatus = 3; /* Each real token shifted decrements this. */ + yyerrstatus = 3; /* Each real token shifted decrements this. */ for (;;) { yyn = yypact[yystate]; - if (yyn != YYPACT_NINF) - { - yyn += YYTERROR; - if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR) - { - yyn = yytable[yyn]; - if (0 < yyn) - break; - } - } + if (!yypact_value_is_default (yyn)) + { + yyn += YYTERROR; + if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR) + { + yyn = yytable[yyn]; + if (0 < yyn) + break; + } + } /* Pop the current state because it cannot handle the error token. */ if (yyssp == yyss) - YYABORT; + YYABORT; yydestruct ("Error: popping", - yystos[yystate], yyvsp); + yystos[yystate], yyvsp, pc); YYPOPSTACK (1); yystate = *yyssp; YY_STACK_PRINT (yyss, yyssp); } + YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN *++yyvsp = yylval; + YY_IGNORE_MAYBE_UNINITIALIZED_END /* Shift the error token. */ @@ -3096,28 +2839,33 @@ yyabortlab: yyresult = 1; goto yyreturn; -#if !defined(yyoverflow) || YYERROR_VERBOSE +#if !defined yyoverflow || YYERROR_VERBOSE /*-------------------------------------------------. | yyexhaustedlab -- memory exhaustion comes here. | `-------------------------------------------------*/ yyexhaustedlab: - yyerror (YY_("memory exhausted")); + yyerror (pc, YY_("memory exhausted")); yyresult = 2; /* Fall through. */ #endif yyreturn: if (yychar != YYEMPTY) - yydestruct ("Cleanup: discarding lookahead", - yytoken, &yylval); - /* Do not reclaim the symbols of the rule which action triggered + { + /* 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, pc); + } + /* Do not reclaim the symbols of the rule whose action triggered this YYABORT or YYACCEPT. */ YYPOPSTACK (yylen); YY_STACK_PRINT (yyss, yyssp); while (yyssp != yyss) { yydestruct ("Cleanup: popping", - yystos[*yyssp], yyvsp); + yystos[*yyssp], yyvsp, pc); YYPOPSTACK (1); } #ifndef yyoverflow @@ -3128,14 +2876,9 @@ yyreturn: if (yymsg != yymsgbuf) YYSTACK_FREE (yymsg); #endif - /* Make sure YYID is used. */ - return YYID (yyresult); + return yyresult; } - - - -/* Line 1684 of yacc.c */ -#line 825 "compile.y" +#line 830 "compile.y" /* yacc.c:1906 */ #endif @@ -3334,13 +3077,12 @@ default: } if(pc.explicit_result && c) switch(c) { + default: + pc.string.append(c); case '\n': case ' ': case '\t': begin=pc.source; begin_pos=pc.pos; - continue; // skip it - default: - result=BAD_NONWHITESPACE_CHARACTER_IN_EXPLICIT_RESULT_MODE; - goto break2; + continue; } break; @@ -3363,8 +3105,8 @@ default: case '"': case '\'': if( - pc.ls == LS_EXPRESSION_STRING_QUOTED && c=='"' || - pc.ls == LS_EXPRESSION_STRING_APOSTROFED && c=='\'') { + (pc.ls == LS_EXPRESSION_STRING_QUOTED && c=='"') || + (pc.ls == LS_EXPRESSION_STRING_APOSTROFED && c=='\'') ) { pop_LS(pc); //"abc". | 'abc'. RC; } @@ -3437,11 +3179,12 @@ default: case LS_METHOD_ROUND: switch(c) { case ')': - if(--lexical_brackets_nestage==0) + if(--lexical_brackets_nestage==0) { if(pc.ls==LS_METHOD_ROUND) // method round param ended pc.ls=LS_METHOD_AFTER; // look for method end else // pc.ls==LS_VAR_ROUND // variable constructor ended pop_LS(pc); // return to normal life + } RC; case '#': // comment start skipping if(end!=begin) { @@ -3866,13 +3609,12 @@ default: } if(pc.explicit_result && c) switch(c) { + default: + pc.string.append(c); case '\n': case ' ': case '\t': begin=pc.source; begin_pos=pc.pos; - continue; // skip it - default: - result=BAD_NONWHITESPACE_CHARACTER_IN_EXPLICIT_RESULT_MODE; - goto break2; + continue; } break; @@ -3881,17 +3623,17 @@ default: pc.ls=LS_METHOD_SQUARE; lexical_brackets_nestage=1; RC; - } + } if(c=='{') {/* ]{ }{ ){ */ pc.ls=LS_METHOD_CURLY; lexical_brackets_nestage=1; RC; - } + } if(c=='(') {/* ]( }( )( */ pc.ls=LS_METHOD_ROUND; lexical_brackets_nestage=1; RC; - } + } pop_LS(pc); pc.ungetc(); result=EON; @@ -3917,9 +3659,12 @@ break2: } if(!pc.string.is_empty()) { // something accumulated? // create STRING value: array of OP_VALUE+origin+vstring - *lvalp=VL( - new VString(*new String(pc.string, String::L_CLEAN)), - pc.file_no, pc.string_start.line, pc.string_start.col); +#ifdef SYMBOLS_CACHING + Value *lookup=symbols->get(pc.string); +#else + Value *lookup=0; +#endif + *lvalp=VL(lookup ? lookup : new VString(*new String(pc.string, String::L_CLEAN)), pc.file_no, pc.string_start.line, pc.string_start.col); // new pieces storage pc.string.clear(); pc.string_start.clear(); @@ -3933,12 +3678,11 @@ break2: } static int real_yyerror(Parse_control *pc, const char *s) { // Called by yyparse on error - strncpy(PC.error, s, MAX_STRING); - return 1; + strncpy(PC.error, s, MAX_STRING); + return 1; } static void yyprint(FILE *file, int type, YYSTYPE value) { if(type==STRING) fprintf(file, " \"%s\"", LA2S(*value)->cstr()); } -