diff options
Diffstat (limited to 'src/map/magic-interpreter-parser.c')
-rw-r--r-- | src/map/magic-interpreter-parser.c | 4304 |
1 files changed, 2298 insertions, 2006 deletions
diff --git a/src/map/magic-interpreter-parser.c b/src/map/magic-interpreter-parser.c index 7ff9fb4..9449d75 100644 --- a/src/map/magic-interpreter-parser.c +++ b/src/map/magic-interpreter-parser.c @@ -72,61 +72,62 @@ #ifndef YYTOKENTYPE # define YYTOKENTYPE /* Put the tokens into the symbol table, so that GDB and other debuggers - know about them. */ - enum yytokentype { - INT = 258, - STRING = 259, - ID = 260, - DIR = 261, - CONST = 262, - PROCEDURE = 263, - CALL = 264, - SILENT = 265, - LOCAL = 266, - NONMAGIC = 267, - SHL = 268, - SHR = 269, - EQ = 270, - NEQ = 271, - GTE = 272, - LTE = 273, - ANDAND = 274, - OROR = 275, - SCRIPT_DATA = 276, - TO = 277, - TOWARDS = 278, - TELEPORT_ANCHOR = 279, - SPELL = 280, - LET = 281, - IN = 282, - END = 283, - DARROW = 284, - STRING_TY = 285, - REQUIRE = 286, - CATALYSTS = 287, - COMPONENTS = 288, - MANA = 289, - CASTTIME = 290, - SKIP = 291, - ABORT = 292, - BREAK = 293, - EFFECT = 294, - ATEND = 295, - ATTRIGGER = 296, - PC_F = 297, - NPC_F = 298, - MOB_F = 299, - ENTITY_F = 300, - TARGET_F = 301, - IF = 302, - THEN = 303, - ELSE = 304, - FOREACH = 305, - FOR = 306, - DO = 307, - SLEEP = 308, - OR = 309 - }; + * know about them. */ +enum yytokentype +{ + INT = 258, + STRING = 259, + ID = 260, + DIR = 261, + CONST = 262, + PROCEDURE = 263, + CALL = 264, + SILENT = 265, + LOCAL = 266, + NONMAGIC = 267, + SHL = 268, + SHR = 269, + EQ = 270, + NEQ = 271, + GTE = 272, + LTE = 273, + ANDAND = 274, + OROR = 275, + SCRIPT_DATA = 276, + TO = 277, + TOWARDS = 278, + TELEPORT_ANCHOR = 279, + SPELL = 280, + LET = 281, + IN = 282, + END = 283, + DARROW = 284, + STRING_TY = 285, + REQUIRE = 286, + CATALYSTS = 287, + COMPONENTS = 288, + MANA = 289, + CASTTIME = 290, + SKIP = 291, + ABORT = 292, + BREAK = 293, + EFFECT = 294, + ATEND = 295, + ATTRIGGER = 296, + PC_F = 297, + NPC_F = 298, + MOB_F = 299, + ENTITY_F = 300, + TARGET_F = 301, + IF = 302, + THEN = 303, + ELSE = 304, + FOREACH = 305, + FOR = 306, + DO = 307, + SLEEP = 308, + OR = 309 +}; #endif /* Tokens. */ #define INT 258 @@ -182,9 +183,6 @@ #define SLEEP 308 #define OR 309 - - - /* Copy the first part of user declarations. */ #line 1 "magic-interpreter-parser.y" @@ -194,67 +192,50 @@ magic_conf_t magic_conf; -static int -intern_id(char *id_name); +static int intern_id (char *id_name); +static expr_t *fun_expr (char *name, int args_nr, expr_t ** args, int line, + int column); -static expr_t * -fun_expr(char *name, int args_nr, expr_t **args, int line, int column); - -static expr_t * -dot_expr(expr_t *lhs, int id); +static expr_t *dot_expr (expr_t * lhs, int id); #define BIN_EXPR(x, name, arg1, arg2, line, column) { expr_t *e[2]; e[0] = arg1; e[1] = arg2; x = fun_expr(name, 2, e, line, column); } static int failed_flag = 0; -static void -magic_frontend_error(const char *msg); - -static void -fail(int line, int column, char *fmt, ...); - -static spell_t * -new_spell(spellguard_t *guard); +static void magic_frontend_error (const char *msg); -static spellguard_t * -spellguard_implication(spellguard_t *a, spellguard_t *b); +static void fail (int line, int column, char *fmt, ...); -static spellguard_t * -new_spellguard(int ty); +static spell_t *new_spell (spellguard_t * guard); -static effect_t * -new_effect(int ty); +static spellguard_t *spellguard_implication (spellguard_t * a, + spellguard_t * b); -static effect_t * -set_effect_continuation(effect_t *src, effect_t *continuation); +static spellguard_t *new_spellguard (int ty); -static void -add_spell(spell_t *spell, int line_nr); +static effect_t *new_effect (int ty); -static void -add_teleport_anchor(teleport_anchor_t *anchor, int line_nr); +static effect_t *set_effect_continuation (effect_t * src, + effect_t * continuation); -static effect_t * -op_effect(char *name, int args_nr, expr_t **args, int line, int column); +static void add_spell (spell_t * spell, int line_nr); -int -magic_frontend_lex(); +static void add_teleport_anchor (teleport_anchor_t * anchor, int line_nr); -static void -install_proc(proc_t *proc); +static effect_t *op_effect (char *name, int args_nr, expr_t ** args, int line, + int column); -static effect_t * -call_proc(char *name, int args_nr, expr_t **args, int line_nr, int column); - -static void -bind_constant(char *name, val_t *val, int line_nr); +int magic_frontend_lex (); -static val_t * -find_constant(char *name); +static void install_proc (proc_t * proc); +static effect_t *call_proc (char *name, int args_nr, expr_t ** args, + int line_nr, int column); +static void bind_constant (char *name, val_t * val, int line_nr); +static val_t *find_constant (char *name); /* Enabling traces. */ #ifndef YYDEBUG @@ -278,29 +259,39 @@ find_constant(char *name); typedef union YYSTYPE #line 74 "magic-interpreter-parser.y" { - int i; + int i; char *s; - int op; + int op; magic_conf_t *magic_conf; val_t value; expr_t *expr; e_location_t location; e_area_t area; args_rec_t arg_list; - struct { int letdefs_nr; letdef_t *letdefs; } letdefs; + struct + { + int letdefs_nr; + letdef_t *letdefs; + } letdefs; spell_t *spell; - struct { int id, ty; } spellarg_def; + struct + { + int id, ty; + } spellarg_def; letdef_t vardef; spellguard_t *spellguard; component_t *components; - struct {int id, count; } component; + struct + { + int id, count; + } component; effect_t *effect; proc_t *proc; } /* Line 187 of yacc.c. */ #line 302 "magic-interpreter-parser.c" - YYSTYPE; -# define yystype YYSTYPE /* obsolescent; will be withdrawn */ +YYSTYPE; +# define yystype YYSTYPE /* obsolescent; will be withdrawn */ # define YYSTYPE_IS_DECLARED 1 # define YYSTYPE_IS_TRIVIAL 1 #endif @@ -308,20 +299,18 @@ typedef union YYSTYPE #if ! defined YYLTYPE && ! defined YYLTYPE_IS_DECLARED typedef struct YYLTYPE { - int first_line; - int first_column; - int last_line; - int last_column; + int first_line; + int first_column; + int last_line; + int last_column; } YYLTYPE; -# define yyltype YYLTYPE /* obsolescent; will be withdrawn */ +# define yyltype YYLTYPE /* obsolescent; will be withdrawn */ # define YYLTYPE_IS_DECLARED 1 # define YYLTYPE_IS_TRIVIAL 1 #endif - /* Copy the second part of user declarations. */ - /* Line 216 of yacc.c. */ #line 327 "magic-interpreter-parser.c" @@ -363,7 +352,7 @@ typedef short int yytype_int16; # define YYSIZE_T size_t # elif ! defined YYSIZE_T && (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) -# include <stddef.h> /* INFRINGES ON USER NAME SPACE */ +# include <stddef.h> /* INFRINGES ON USER NAME SPACE */ # define YYSIZE_T size_t # else # define YYSIZE_T unsigned int @@ -375,7 +364,7 @@ typedef short int yytype_int16; #ifndef YY_ # if YYENABLE_NLS # if ENABLE_NLS -# include <libintl.h> /* INFRINGES ON USER NAME SPACE */ +# include <libintl.h> /* INFRINGES ON USER NAME SPACE */ # define YY_(msgid) dgettext ("bison-runtime", msgid) # endif # endif @@ -388,7 +377,7 @@ typedef short int yytype_int16; #if ! defined lint || defined __GNUC__ # define YYUSE(e) ((void) (e)) #else -# define YYUSE(e) /* empty */ +# define YYUSE(e) /* empty */ #endif /* Identity function, used to suppress warnings about constant conditions. */ @@ -397,15 +386,13 @@ typedef short int yytype_int16; #else #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) -static int -YYID (int i) +static int YYID (int i) #else -static int -YYID (i) - int i; +static int YYID (i) + int i; #endif { - return i; + return i; } #endif @@ -418,17 +405,17 @@ YYID (i) # ifdef __GNUC__ # define YYSTACK_ALLOC __builtin_alloca # elif defined __BUILTIN_VA_ARG_INCR -# include <alloca.h> /* INFRINGES ON USER NAME SPACE */ +# include <alloca.h> /* INFRINGES ON USER NAME SPACE */ # elif defined _AIX # define YYSTACK_ALLOC __alloca # elif defined _MSC_VER -# include <malloc.h> /* INFRINGES ON USER NAME SPACE */ +# include <malloc.h> /* INFRINGES ON USER NAME SPACE */ # 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) -# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */ +# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */ # ifndef _STDLIB_H # define _STDLIB_H 1 # endif @@ -442,10 +429,10 @@ YYID (i) # define YYSTACK_FREE(Ptr) do { /* empty */; } while (YYID (0)) # ifndef YYSTACK_ALLOC_MAXIMUM /* The OS might guarantee only one guard page at the bottom of the stack, - and a page size can be as small as 4096 bytes. So we cannot safely - invoke alloca (N) if N exceeds 4096. Use a slightly smaller number - to allow for a few compiler-allocated temporary stack slots. */ -# define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */ + * and a page size can be as small as 4096 bytes. So we cannot safely + * invoke alloca (N) if N exceeds 4096. Use a slightly smaller number + * to allow for a few compiler-allocated temporary stack slots. */ +# define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */ # endif # else # define YYSTACK_ALLOC YYMALLOC @@ -456,7 +443,7 @@ YYID (i) # if (defined __cplusplus && ! defined _STDLIB_H \ && ! ((defined YYMALLOC || defined malloc) \ && (defined YYFREE || defined free))) -# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */ +# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */ # ifndef _STDLIB_H # define _STDLIB_H 1 # endif @@ -465,20 +452,19 @@ YYID (i) # define YYMALLOC malloc # if ! defined malloc && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) -void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */ +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) -void free (void *); /* INFRINGES ON USER NAME SPACE */ +void free (void *); /* INFRINGES ON USER NAME SPACE */ # endif # endif # endif #endif /* ! defined yyoverflow || YYERROR_VERBOSE */ - #if (! defined yyoverflow \ && (! defined __cplusplus \ || (defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL \ @@ -487,8 +473,8 @@ void free (void *); /* INFRINGES ON USER NAME SPACE */ /* A type that is properly aligned for any stack member. */ union yyalloc { - yytype_int16 yyss; - YYSTYPE yyvs; + yytype_int16 yyss; + YYSTYPE yyvs; YYLTYPE yyls; }; @@ -559,279 +545,267 @@ union yyalloc ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK) /* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX. */ -static const yytype_uint8 yytranslate[] = -{ - 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 14, 23, 2, - 73, 74, 12, 10, 16, 11, 17, 13, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 18, 19, - 8, 7, 9, 2, 15, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 21, 2, 22, 24, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 20, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 1, 2, 3, 4, - 5, 6, 25, 26, 27, 28, 29, 30, 31, 32, - 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, - 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, - 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, - 63, 64, 65, 66, 67, 68, 69, 70, 71, 72 +static const yytype_uint8 yytranslate[] = { + 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 14, 23, 2, + 73, 74, 12, 10, 16, 11, 17, 13, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 18, 19, + 8, 7, 9, 2, 15, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 21, 2, 22, 24, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 20, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 1, 2, 3, 4, + 5, 6, 25, 26, 27, 28, 29, 30, 31, 32, + 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, + 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, + 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, + 63, 64, 65, 66, 67, 68, 69, 70, 71, 72 }; #if YYDEBUG /* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in YYRHS. */ -static const yytype_uint16 yyprhs[] = -{ - 0, 0, 3, 4, 8, 9, 12, 13, 15, 17, - 21, 25, 30, 37, 45, 54, 55, 58, 61, 64, - 65, 71, 73, 75, 77, 79, 81, 83, 85, 87, - 91, 95, 99, 103, 107, 111, 115, 119, 123, 127, - 131, 135, 139, 143, 147, 151, 155, 159, 163, 168, - 172, 176, 177, 179, 181, 185, 194, 196, 205, 215, - 217, 222, 224, 228, 232, 234, 238, 242, 246, 251, - 252, 255, 256, 259, 261, 265, 269, 271, 275, 278, - 281, 284, 287, 290, 294, 296, 300, 304, 306, 308, - 310, 312, 314, 316, 318, 320, 322, 326, 329, 332, - 335, 338, 343, 351, 360, 367, 372, 376, 382, 384, - 391, 392 +static const yytype_uint16 yyprhs[] = { + 0, 0, 3, 4, 8, 9, 12, 13, 15, 17, + 21, 25, 30, 37, 45, 54, 55, 58, 61, 64, + 65, 71, 73, 75, 77, 79, 81, 83, 85, 87, + 91, 95, 99, 103, 107, 111, 115, 119, 123, 127, + 131, 135, 139, 143, 147, 151, 155, 159, 163, 168, + 172, 176, 177, 179, 181, 185, 194, 196, 205, 215, + 217, 222, 224, 228, 232, 234, 238, 242, 246, 251, + 252, 255, 256, 259, 261, 265, 269, 271, 275, 278, + 281, 284, 287, 290, 294, 296, 300, 304, 306, 308, + 310, 312, 314, 316, 318, 320, 322, 326, 329, 332, + 335, 338, 343, 351, 360, 367, 372, 376, 382, 384, + 391, 392 }; /* YYRHS -- A `-1'-separated list of the rules' RHS. */ -static const yytype_int8 yyrhs[] = -{ - 76, 0, -1, -1, 80, 77, 76, -1, -1, 77, - 19, -1, -1, 79, -1, 5, -1, 79, 16, 5, - -1, 5, 7, 85, -1, 25, 5, 7, 85, -1, - 42, 5, 18, 85, 7, 85, -1, 26, 5, 73, - 78, 74, 7, 106, -1, 81, 43, 5, 82, 18, - 85, 7, 90, -1, -1, 29, 81, -1, 30, 81, - -1, 28, 81, -1, -1, 73, 5, 18, 83, 74, - -1, 60, -1, 48, -1, 6, -1, 3, -1, 4, - -1, 84, -1, 5, -1, 89, -1, 85, 10, 85, - -1, 85, 11, 85, -1, 85, 12, 85, -1, 85, - 14, 85, -1, 85, 13, 85, -1, 85, 8, 85, - -1, 85, 9, 85, -1, 85, 23, 85, -1, 85, - 24, 85, -1, 85, 20, 85, -1, 85, 31, 85, - -1, 85, 32, 85, -1, 85, 36, 85, -1, 85, - 35, 85, -1, 85, 37, 85, -1, 85, 38, 85, - -1, 85, 33, 85, -1, 85, 7, 85, -1, 85, - 34, 85, -1, 5, 73, 86, 74, -1, 73, 85, - 74, -1, 85, 17, 5, -1, -1, 87, -1, 85, - -1, 87, 16, 85, -1, 15, 73, 85, 16, 85, - 16, 85, 74, -1, 88, -1, 88, 15, 10, 73, - 85, 16, 85, 74, -1, 88, 41, 85, 18, 73, - 85, 16, 85, 74, -1, 93, -1, 44, 91, 45, - 93, -1, 77, -1, 91, 92, 77, -1, 5, 7, - 85, -1, 94, -1, 94, 20, 93, -1, 97, 47, - 94, -1, 73, 93, 74, -1, 57, 106, 95, 96, - -1, -1, 59, 106, -1, -1, 58, 106, -1, 99, - -1, 97, 72, 97, -1, 73, 98, 74, -1, 97, - -1, 97, 16, 98, -1, 49, 85, -1, 50, 100, - -1, 51, 100, -1, 52, 85, -1, 53, 85, -1, - 21, 101, 22, -1, 102, -1, 101, 16, 102, -1, - 3, 12, 103, -1, 103, -1, 4, -1, 3, -1, - 60, -1, 62, -1, 63, -1, 43, -1, 64, -1, - 61, -1, 73, 106, 74, -1, 54, 19, -1, 55, - 19, -1, 46, 19, -1, 56, 19, -1, 5, 7, - 85, 19, -1, 68, 104, 5, 45, 85, 70, 105, - -1, 69, 5, 7, 85, 40, 85, 70, 105, -1, - 65, 85, 66, 105, 67, 105, -1, 65, 85, 66, - 105, -1, 71, 85, 19, -1, 5, 73, 86, 74, - 19, -1, 39, -1, 27, 5, 73, 86, 74, 19, - -1, -1, 105, 77, 106, -1 +static const yytype_int8 yyrhs[] = { + 76, 0, -1, -1, 80, 77, 76, -1, -1, 77, + 19, -1, -1, 79, -1, 5, -1, 79, 16, 5, + -1, 5, 7, 85, -1, 25, 5, 7, 85, -1, + 42, 5, 18, 85, 7, 85, -1, 26, 5, 73, + 78, 74, 7, 106, -1, 81, 43, 5, 82, 18, + 85, 7, 90, -1, -1, 29, 81, -1, 30, 81, + -1, 28, 81, -1, -1, 73, 5, 18, 83, 74, + -1, 60, -1, 48, -1, 6, -1, 3, -1, 4, + -1, 84, -1, 5, -1, 89, -1, 85, 10, 85, + -1, 85, 11, 85, -1, 85, 12, 85, -1, 85, + 14, 85, -1, 85, 13, 85, -1, 85, 8, 85, + -1, 85, 9, 85, -1, 85, 23, 85, -1, 85, + 24, 85, -1, 85, 20, 85, -1, 85, 31, 85, + -1, 85, 32, 85, -1, 85, 36, 85, -1, 85, + 35, 85, -1, 85, 37, 85, -1, 85, 38, 85, + -1, 85, 33, 85, -1, 85, 7, 85, -1, 85, + 34, 85, -1, 5, 73, 86, 74, -1, 73, 85, + 74, -1, 85, 17, 5, -1, -1, 87, -1, 85, + -1, 87, 16, 85, -1, 15, 73, 85, 16, 85, + 16, 85, 74, -1, 88, -1, 88, 15, 10, 73, + 85, 16, 85, 74, -1, 88, 41, 85, 18, 73, + 85, 16, 85, 74, -1, 93, -1, 44, 91, 45, + 93, -1, 77, -1, 91, 92, 77, -1, 5, 7, + 85, -1, 94, -1, 94, 20, 93, -1, 97, 47, + 94, -1, 73, 93, 74, -1, 57, 106, 95, 96, + -1, -1, 59, 106, -1, -1, 58, 106, -1, 99, + -1, 97, 72, 97, -1, 73, 98, 74, -1, 97, + -1, 97, 16, 98, -1, 49, 85, -1, 50, 100, + -1, 51, 100, -1, 52, 85, -1, 53, 85, -1, + 21, 101, 22, -1, 102, -1, 101, 16, 102, -1, + 3, 12, 103, -1, 103, -1, 4, -1, 3, -1, + 60, -1, 62, -1, 63, -1, 43, -1, 64, -1, + 61, -1, 73, 106, 74, -1, 54, 19, -1, 55, + 19, -1, 46, 19, -1, 56, 19, -1, 5, 7, + 85, 19, -1, 68, 104, 5, 45, 85, 70, 105, + -1, 69, 5, 7, 85, 40, 85, 70, 105, -1, + 65, 85, 66, 105, 67, 105, -1, 65, 85, 66, + 105, -1, 71, 85, 19, -1, 5, 73, 86, 74, + 19, -1, 39, -1, 27, 5, 73, 86, 74, 19, + -1, -1, 105, 77, 106, -1 }; /* YYRLINE[YYN] -- source line where rule number YYN was defined. */ -static const yytype_uint16 yyrline[] = -{ - 0, 213, 213, 214, 220, 221, 227, 228, 232, 238, - 245, 256, 262, 273, 282, 295, 296, 301, 306, 314, - 315, 321, 323, 328, 331, 334, 340, 343, 354, 357, - 359, 361, 363, 365, 367, 369, 371, 373, 375, 377, - 379, 381, 383, 385, 387, 389, 391, 393, 396, 401, - 403, 408, 409, 414, 419, 426, 430, 434, 440, 450, - 452, 461, 465, 474, 487, 489, 498, 500, 502, 513, - 514, 520, 521, 526, 528, 534, 539, 541, 546, 550, - 554, 558, 562, 569, 574, 578, 585, 587, 592, 601, - 606, 608, 610, 612, 614, 616, 621, 623, 625, 627, - 629, 631, 642, 649, 656, 662, 668, 672, 676, 683, - 690, 691 +static const yytype_uint16 yyrline[] = { + 0, 213, 213, 214, 220, 221, 227, 228, 232, 238, + 245, 256, 262, 273, 282, 295, 296, 301, 306, 314, + 315, 321, 323, 328, 331, 334, 340, 343, 354, 357, + 359, 361, 363, 365, 367, 369, 371, 373, 375, 377, + 379, 381, 383, 385, 387, 389, 391, 393, 396, 401, + 403, 408, 409, 414, 419, 426, 430, 434, 440, 450, + 452, 461, 465, 474, 487, 489, 498, 500, 502, 513, + 514, 520, 521, 526, 528, 534, 539, 541, 546, 550, + 554, 558, 562, 569, 574, 578, 585, 587, 592, 601, + 606, 608, 610, 612, 614, 616, 621, 623, 625, 627, + 629, 631, 642, 649, 656, 662, 668, 672, 676, 683, + 690, 691 }; #endif #if YYDEBUG || YYERROR_VERBOSE || YYTOKEN_TABLE /* 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", "INT", "STRING", "ID", "DIR", "'='", - "'<'", "'>'", "'+'", "'-'", "'*'", "'/'", "'%'", "'@'", "','", "'.'", - "':'", "';'", "'|'", "'['", "']'", "'&'", "'^'", "CONST", "PROCEDURE", - "CALL", "SILENT", "LOCAL", "NONMAGIC", "SHL", "SHR", "EQ", "NEQ", "GTE", - "LTE", "ANDAND", "OROR", "SCRIPT_DATA", "TO", "TOWARDS", - "TELEPORT_ANCHOR", "SPELL", "LET", "IN", "END", "DARROW", "STRING_TY", - "REQUIRE", "CATALYSTS", "COMPONENTS", "MANA", "CASTTIME", "SKIP", - "ABORT", "BREAK", "EFFECT", "ATEND", "ATTRIGGER", "PC_F", "NPC_F", - "MOB_F", "ENTITY_F", "TARGET_F", "IF", "THEN", "ELSE", "FOREACH", "FOR", - "DO", "SLEEP", "OR", "'('", "')'", "$accept", "spellconf", "semicolons", - "proc_formals_list", "proc_formals_list_ne", "spellconf_option", - "spell_flags", "argopt", "arg_ty", "value", "expr", "arg_list", - "arg_list_ne", "location", "area", "spelldef", "defs", "def", - "spellbody_list", "spellbody", "maybe_trigger", "maybe_end", - "spellguard", "spellguard_list", "prereq", "items", "item_list", "item", - "item_name", "selection", "effect", "effect_list", 0 +static const char *const yytname[] = { + "$end", "error", "$undefined", "INT", "STRING", "ID", "DIR", "'='", + "'<'", "'>'", "'+'", "'-'", "'*'", "'/'", "'%'", "'@'", "','", "'.'", + "':'", "';'", "'|'", "'['", "']'", "'&'", "'^'", "CONST", "PROCEDURE", + "CALL", "SILENT", "LOCAL", "NONMAGIC", "SHL", "SHR", "EQ", "NEQ", "GTE", + "LTE", "ANDAND", "OROR", "SCRIPT_DATA", "TO", "TOWARDS", + "TELEPORT_ANCHOR", "SPELL", "LET", "IN", "END", "DARROW", "STRING_TY", + "REQUIRE", "CATALYSTS", "COMPONENTS", "MANA", "CASTTIME", "SKIP", + "ABORT", "BREAK", "EFFECT", "ATEND", "ATTRIGGER", "PC_F", "NPC_F", + "MOB_F", "ENTITY_F", "TARGET_F", "IF", "THEN", "ELSE", "FOREACH", "FOR", + "DO", "SLEEP", "OR", "'('", "')'", "$accept", "spellconf", "semicolons", + "proc_formals_list", "proc_formals_list_ne", "spellconf_option", + "spell_flags", "argopt", "arg_ty", "value", "expr", "arg_list", + "arg_list_ne", "location", "area", "spelldef", "defs", "def", + "spellbody_list", "spellbody", "maybe_trigger", "maybe_end", + "spellguard", "spellguard_list", "prereq", "items", "item_list", "item", + "item_name", "selection", "effect", "effect_list", 0 }; #endif # ifdef YYPRINT /* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to token YYLEX-NUM. */ -static const yytype_uint16 yytoknum[] = -{ - 0, 256, 257, 258, 259, 260, 261, 61, 60, 62, - 43, 45, 42, 47, 37, 64, 44, 46, 58, 59, - 124, 91, 93, 38, 94, 262, 263, 264, 265, 266, - 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, - 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, - 287, 288, 289, 290, 291, 292, 293, 294, 295, 296, - 297, 298, 299, 300, 301, 302, 303, 304, 305, 306, - 307, 308, 309, 40, 41 +static const yytype_uint16 yytoknum[] = { + 0, 256, 257, 258, 259, 260, 261, 61, 60, 62, + 43, 45, 42, 47, 37, 64, 44, 46, 58, 59, + 124, 91, 93, 38, 94, 262, 263, 264, 265, 266, + 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, + 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, + 287, 288, 289, 290, 291, 292, 293, 294, 295, 296, + 297, 298, 299, 300, 301, 302, 303, 304, 305, 306, + 307, 308, 309, 40, 41 }; # endif /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */ -static const yytype_uint8 yyr1[] = -{ - 0, 75, 76, 76, 77, 77, 78, 78, 79, 79, - 80, 80, 80, 80, 80, 81, 81, 81, 81, 82, - 82, 83, 83, 84, 84, 84, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 86, 86, 87, 87, 88, 89, 89, 89, 90, - 90, 91, 91, 92, 93, 93, 94, 94, 94, 95, - 95, 96, 96, 97, 97, 97, 98, 98, 99, 99, - 99, 99, 99, 100, 101, 101, 102, 102, 103, 103, - 104, 104, 104, 104, 104, 104, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 106, 106 +static const yytype_uint8 yyr1[] = { + 0, 75, 76, 76, 77, 77, 78, 78, 79, 79, + 80, 80, 80, 80, 80, 81, 81, 81, 81, 82, + 82, 83, 83, 84, 84, 84, 85, 85, 85, 85, + 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, + 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, + 85, 86, 86, 87, 87, 88, 89, 89, 89, 90, + 90, 91, 91, 92, 93, 93, 94, 94, 94, 95, + 95, 96, 96, 97, 97, 97, 98, 98, 99, 99, + 99, 99, 99, 100, 101, 101, 102, 102, 103, 103, + 104, 104, 104, 104, 104, 104, 105, 105, 105, 105, + 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, + 106, 106 }; /* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */ -static const yytype_uint8 yyr2[] = -{ - 0, 2, 0, 3, 0, 2, 0, 1, 1, 3, - 3, 4, 6, 7, 8, 0, 2, 2, 2, 0, - 5, 1, 1, 1, 1, 1, 1, 1, 1, 3, - 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, - 3, 3, 3, 3, 3, 3, 3, 3, 4, 3, - 3, 0, 1, 1, 3, 8, 1, 8, 9, 1, - 4, 1, 3, 3, 1, 3, 3, 3, 4, 0, - 2, 0, 2, 1, 3, 3, 1, 3, 2, 2, - 2, 2, 2, 3, 1, 3, 3, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 3, 2, 2, 2, - 2, 4, 7, 8, 6, 4, 3, 5, 1, 6, - 0, 3 +static const yytype_uint8 yyr2[] = { + 0, 2, 0, 3, 0, 2, 0, 1, 1, 3, + 3, 4, 6, 7, 8, 0, 2, 2, 2, 0, + 5, 1, 1, 1, 1, 1, 1, 1, 1, 3, + 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, + 3, 3, 3, 3, 3, 3, 3, 3, 4, 3, + 3, 0, 1, 1, 3, 8, 1, 8, 9, 1, + 4, 1, 3, 3, 1, 3, 3, 3, 4, 0, + 2, 0, 2, 1, 3, 3, 1, 3, 2, 2, + 2, 2, 2, 3, 1, 3, 3, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 3, 2, 2, 2, + 2, 4, 7, 8, 6, 4, 3, 5, 1, 6, + 0, 3 }; /* 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. */ -static const yytype_uint8 yydefact[] = -{ - 2, 0, 0, 0, 15, 15, 15, 0, 0, 4, - 0, 0, 0, 0, 18, 16, 17, 0, 1, 2, - 0, 24, 25, 27, 23, 0, 0, 26, 10, 56, - 28, 0, 6, 0, 5, 3, 19, 51, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 11, 8, 0, 7, 0, 0, 0, 53, - 0, 52, 0, 49, 46, 34, 35, 29, 30, 31, - 33, 32, 50, 38, 36, 37, 39, 40, 45, 47, - 42, 41, 43, 44, 0, 0, 0, 0, 0, 0, - 0, 48, 0, 0, 0, 0, 110, 9, 46, 0, - 0, 54, 0, 0, 0, 0, 0, 108, 0, 0, - 0, 0, 0, 0, 0, 0, 110, 4, 13, 22, - 21, 0, 0, 0, 0, 0, 0, 51, 0, 99, - 97, 98, 100, 0, 93, 90, 95, 91, 92, 94, - 0, 0, 0, 0, 110, 20, 4, 0, 0, 0, - 0, 0, 110, 0, 14, 59, 64, 0, 73, 0, - 0, 0, 0, 0, 51, 0, 0, 0, 106, 96, - 111, 61, 0, 78, 0, 79, 80, 81, 82, 69, - 0, 76, 0, 0, 0, 0, 55, 57, 0, 101, - 0, 0, 105, 0, 0, 0, 0, 4, 89, 88, - 0, 84, 87, 110, 71, 67, 0, 75, 0, 65, - 66, 0, 74, 58, 107, 0, 0, 0, 0, 0, - 60, 62, 0, 0, 83, 70, 110, 68, 76, 77, - 109, 104, 0, 0, 63, 89, 86, 85, 72, 102, - 0, 103 +static const yytype_uint8 yydefact[] = { + 2, 0, 0, 0, 15, 15, 15, 0, 0, 4, + 0, 0, 0, 0, 18, 16, 17, 0, 1, 2, + 0, 24, 25, 27, 23, 0, 0, 26, 10, 56, + 28, 0, 6, 0, 5, 3, 19, 51, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 11, 8, 0, 7, 0, 0, 0, 53, + 0, 52, 0, 49, 46, 34, 35, 29, 30, 31, + 33, 32, 50, 38, 36, 37, 39, 40, 45, 47, + 42, 41, 43, 44, 0, 0, 0, 0, 0, 0, + 0, 48, 0, 0, 0, 0, 110, 9, 46, 0, + 0, 54, 0, 0, 0, 0, 0, 108, 0, 0, + 0, 0, 0, 0, 0, 0, 110, 4, 13, 22, + 21, 0, 0, 0, 0, 0, 0, 51, 0, 99, + 97, 98, 100, 0, 93, 90, 95, 91, 92, 94, + 0, 0, 0, 0, 110, 20, 4, 0, 0, 0, + 0, 0, 110, 0, 14, 59, 64, 0, 73, 0, + 0, 0, 0, 0, 51, 0, 0, 0, 106, 96, + 111, 61, 0, 78, 0, 79, 80, 81, 82, 69, + 0, 76, 0, 0, 0, 0, 55, 57, 0, 101, + 0, 0, 105, 0, 0, 0, 0, 4, 89, 88, + 0, 84, 87, 110, 71, 67, 0, 75, 0, 65, + 66, 0, 74, 58, 107, 0, 0, 0, 0, 0, + 60, 62, 0, 0, 83, 70, 110, 68, 76, 77, + 109, 104, 0, 0, 63, 89, 86, 85, 72, 102, + 0, 103 }; /* YYDEFGOTO[NTERM-NUM]. */ -static const yytype_int16 yydefgoto[] = -{ - -1, 8, 19, 64, 65, 9, 10, 68, 131, 27, - 69, 70, 71, 29, 30, 164, 182, 207, 190, 166, - 214, 237, 167, 192, 168, 185, 210, 211, 212, 150, - 127, 128 +static const yytype_int16 yydefgoto[] = { + -1, 8, 19, 64, 65, 9, 10, 68, 131, 27, + 69, 70, 71, 29, 30, 164, 182, 207, 190, 166, + 214, 237, 167, 192, 168, 185, 210, 211, 212, 150, + 127, 128 }; /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing STATE-NUM. */ #define YYPACT_NINF -175 -static const yytype_int16 yypact[] = -{ - 351, 7, 14, 18, 41, 41, 41, 51, 59, -175, - 22, 1, 60, 5, -175, -175, -175, 64, -175, 275, - 78, -175, -175, 17, -175, 28, 1, -175, 773, -13, - -175, 1, 81, 1, -175, -175, 29, 1, 1, 223, - 1, 1, 1, 1, 1, 1, 1, 1, 99, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 95, 1, 773, -175, 33, 96, 805, 104, 92, 773, - 39, 108, 549, -175, 46, 930, 930, 951, 951, 221, - 221, 221, -175, 46, 46, 46, 46, 46, 930, 930, - 930, 930, 900, 869, 47, 581, 125, 128, 1, 112, - 1, -175, 1, 1, 1, 61, 156, -175, 477, -35, - 837, 773, 613, 645, 1, 2, 140, -175, 139, 143, - 144, 146, 1, 93, 142, 1, 156, -175, -175, -175, - -175, 103, 91, 1, 1, 677, 1, 1, 97, -175, - -175, -175, -175, 455, -175, -175, -175, -175, -175, -175, - 162, 161, 709, 105, 132, -175, -175, 1, 148, 148, - 1, 1, 156, 123, -175, -175, 164, 13, -175, 255, - 299, 1, 741, 107, 1, 156, 137, 1, -175, -175, - -175, 166, 6, 773, 58, -175, -175, 773, 773, 130, - 116, 8, 117, 460, 460, 66, -175, -175, 331, -175, - 174, 120, 131, 1, 515, 192, 460, -175, 194, -175, - -4, -175, -175, 156, 149, -175, 66, -175, 460, -175, - -175, 66, -175, -175, -175, 185, 156, 375, 1, 1, - -175, 166, 69, 58, -175, -175, 156, -175, -6, -175, - -175, -175, 156, 415, 773, -175, -175, -175, -175, -175, - 156, -175 +static const yytype_int16 yypact[] = { + 351, 7, 14, 18, 41, 41, 41, 51, 59, -175, + 22, 1, 60, 5, -175, -175, -175, 64, -175, 275, + 78, -175, -175, 17, -175, 28, 1, -175, 773, -13, + -175, 1, 81, 1, -175, -175, 29, 1, 1, 223, + 1, 1, 1, 1, 1, 1, 1, 1, 99, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 95, 1, 773, -175, 33, 96, 805, 104, 92, 773, + 39, 108, 549, -175, 46, 930, 930, 951, 951, 221, + 221, 221, -175, 46, 46, 46, 46, 46, 930, 930, + 930, 930, 900, 869, 47, 581, 125, 128, 1, 112, + 1, -175, 1, 1, 1, 61, 156, -175, 477, -35, + 837, 773, 613, 645, 1, 2, 140, -175, 139, 143, + 144, 146, 1, 93, 142, 1, 156, -175, -175, -175, + -175, 103, 91, 1, 1, 677, 1, 1, 97, -175, + -175, -175, -175, 455, -175, -175, -175, -175, -175, -175, + 162, 161, 709, 105, 132, -175, -175, 1, 148, 148, + 1, 1, 156, 123, -175, -175, 164, 13, -175, 255, + 299, 1, 741, 107, 1, 156, 137, 1, -175, -175, + -175, 166, 6, 773, 58, -175, -175, 773, 773, 130, + 116, 8, 117, 460, 460, 66, -175, -175, 331, -175, + 174, 120, 131, 1, 515, 192, 460, -175, 194, -175, + -4, -175, -175, 156, 149, -175, 66, -175, 460, -175, + -175, 66, -175, -175, -175, 185, 156, 375, 1, 1, + -175, 166, 69, 58, -175, -175, 156, -175, -6, -175, + -175, -175, 156, 415, 773, -175, -175, -175, -175, -175, + 156, -175 }; /* YYPGOTO[NTERM-NUM]. */ -static const yytype_int16 yypgoto[] = -{ - -175, 189, -119, -175, -175, -175, 94, -175, -175, -175, - -11, -120, -175, -175, -175, -175, -175, -175, -129, 15, - -175, -175, -137, -3, -175, 55, -175, -18, -16, -175, - -174, -105 +static const yytype_int16 yypgoto[] = { + -175, 189, -119, -175, -175, -175, 94, -175, -175, -175, + -11, -120, -175, -175, -175, -175, -175, -175, -129, 15, + -175, -175, -137, -3, -175, 55, -175, -18, -16, -175, + -174, -105 }; /* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If @@ -839,242 +813,239 @@ static const yytype_int16 yypgoto[] = number is the opposite. If zero, do what YYDEFACT says. If YYTABLE_NINF, syntax error. */ #define YYTABLE_NINF -16 -static const yytype_int16 yytable[] = -{ - 28, 202, 60, 165, 21, 22, 23, 24, 154, 136, - 216, 205, 233, 129, 11, 39, 25, 173, 234, 12, - 62, 153, 66, 13, 216, 130, 191, 72, 61, 74, - 75, 76, 77, 78, 79, 80, 81, 181, 83, 84, - 85, 86, 87, 88, 89, 90, 91, 92, 93, 180, - 95, 206, 241, 40, 201, 194, 17, 189, 222, 18, - 194, 208, 209, 48, 219, 20, 195, 31, 249, 4, - 5, 6, 245, 209, 26, 137, 251, 230, 32, 238, - 195, 191, 33, 36, 238, 195, 63, 108, 231, 110, - 37, 111, 112, 113, 21, 22, 23, 24, 14, 15, - 16, 38, 67, 135, 82, 94, 25, 96, 235, 99, - 100, 143, 97, 101, 152, 157, 158, 159, 160, 161, - 104, 74, 169, 170, 102, 172, 21, 22, 23, 24, - 109, 248, 106, 107, 114, 156, 144, 115, 25, 221, - 157, 158, 159, 160, 161, 138, 183, 151, 162, 187, - 188, 34, 39, 145, 146, 147, 148, 149, 139, 116, - 198, 115, 140, 141, 163, 142, 204, 176, 177, 184, - 174, 117, 157, 158, 159, 160, 161, 155, 118, 179, - 162, 200, 203, 116, 193, 34, 119, 120, 121, 213, - 215, 217, 227, 224, 225, 117, 163, 122, 226, 229, - 123, 124, 118, 125, 240, 126, 232, 236, 35, 220, - 119, 120, 121, 239, 186, 247, 246, 243, 244, 0, - 0, 122, 0, 0, 123, 124, 0, 125, 40, 126, - 40, 41, 42, 43, 44, 45, 46, 47, 48, 0, - 48, 49, 0, 49, 50, 51, 50, 51, 0, 0, - 0, 0, 52, 53, 52, 53, 54, 55, 56, 57, - 58, 59, 40, 41, 42, 43, 44, 45, 46, 47, - 0, 0, 48, 0, 0, 49, 0, 0, 50, 51, - 1, 0, 0, 0, 0, 0, 52, 53, 54, 55, - 56, 57, 58, 59, 34, 0, 0, 73, 0, 0, - 2, 3, 0, 4, 5, 6, 40, 41, 42, 43, - 44, 45, 46, 47, 0, 0, 48, 7, -15, 49, - 0, 0, 50, 51, 0, 0, 0, 0, 0, 196, - 52, 53, 54, 55, 56, 57, 58, 59, 40, 41, - 42, 43, 44, 45, 46, 47, 0, 0, 48, 0, - 0, 49, 0, 0, 50, 51, 1, 0, 0, 0, - 0, 0, 52, 53, 54, 55, 56, 57, 58, 59, - 0, 0, 0, 197, 0, 0, 2, 3, 0, 4, - 5, 6, 40, 41, 42, 43, 44, 45, 46, 47, - 0, 0, 48, 7, -15, 49, 0, 0, 50, 51, - 0, 0, 0, 0, 0, 223, 52, 53, 54, 55, - 56, 57, 58, 59, 0, 0, 0, 0, 0, 0, - 0, 0, 40, 41, 42, 43, 44, 45, 46, 47, - 0, 0, 48, 0, 0, 49, 0, 0, 50, 51, - 0, 0, 0, 0, 0, 242, 52, 53, 54, 55, - 56, 57, 58, 59, 0, 0, 0, 0, 0, 0, - 0, 0, 40, 41, 42, 43, 44, 45, 46, 47, - 0, 0, 48, 0, 0, 49, 0, -12, 50, 51, - 0, 0, -12, 0, 40, 250, 52, 53, 54, 55, - 56, 57, 58, 59, 48, 0, -12, 0, 0, 0, - 0, 0, -12, -12, 0, -12, -12, -12, 0, 157, - 158, 159, 160, 161, 0, 0, 0, 162, 0, -12, - -12, 175, 40, 41, 42, 43, 44, 45, 46, 47, - 0, 0, 48, 218, 0, 49, 0, 0, 50, 51, - 0, 0, 0, 0, 0, 0, 52, 53, 54, 55, - 56, 57, 58, 59, 0, 228, 40, 41, 42, 43, - 44, 45, 46, 47, 0, 103, 48, 0, 0, 49, - 0, 0, 50, 51, 0, 0, 0, 0, 0, 0, - 52, 53, 54, 55, 56, 57, 58, 59, 40, 41, - 42, 43, 44, 45, 46, 47, 0, 0, 48, 105, - 0, 49, 0, 0, 50, 51, 0, 0, 0, 0, - 0, 0, 52, 53, 54, 55, 56, 57, 58, 59, - 40, 41, 42, 43, 44, 45, 46, 47, 0, 133, - 48, 0, 0, 49, 0, 0, 50, 51, 0, 0, - 0, 0, 0, 0, 52, 53, 54, 55, 56, 57, - 58, 59, 40, 41, 42, 43, 44, 45, 46, 47, - 0, 134, 48, 0, 0, 49, 0, 0, 50, 51, - 0, 0, 0, 0, 0, 0, 52, 53, 54, 55, - 56, 57, 58, 59, 40, 41, 42, 43, 44, 45, - 46, 47, 0, 171, 48, 0, 0, 49, 0, 0, - 50, 51, 0, 0, 0, 0, 0, 0, 52, 53, - 54, 55, 56, 57, 58, 59, 40, 41, 42, 43, - 44, 45, 46, 47, 0, 0, 48, 0, 178, 49, - 0, 0, 50, 51, 0, 0, 0, 0, 0, 0, - 52, 53, 54, 55, 56, 57, 58, 59, 40, 41, - 42, 43, 44, 45, 46, 47, 0, 0, 48, 0, - 199, 49, 0, 0, 50, 51, 0, 0, 0, 0, - 0, 0, 52, 53, 54, 55, 56, 57, 58, 59, - 40, 41, 42, 43, 44, 45, 46, 47, 0, 0, - 48, 0, 0, 49, 0, 0, 50, 51, 0, 0, - 0, 0, 0, 0, 52, 53, 54, 55, 56, 57, - 58, 59, 98, 41, 42, 43, 44, 45, 46, 47, - 0, 0, 48, 0, 0, 49, 0, 0, 50, 51, - 0, 0, 0, 0, 0, 0, 52, 53, 54, 55, - 56, 57, 58, 59, 132, 41, 42, 43, 44, 45, - 46, 47, 0, 0, 48, 0, 0, 49, 0, 0, - 50, 51, 0, 0, 0, 0, 0, 0, 52, 53, - 54, 55, 56, 57, 58, 59, 40, 41, 42, 43, - 44, 45, 46, 47, 0, 0, 48, 0, 0, 49, - 0, 0, 50, 51, 0, 0, 0, 0, 0, 0, - 52, 53, 54, 55, 56, 57, 58, 40, 41, 42, - 43, 44, 45, 46, 47, 0, 0, 48, 0, 0, - 49, 0, 0, 50, 51, 0, 0, 0, 0, 0, - 0, 52, 53, 54, 55, 56, 57, 40, 0, 0, - 43, 44, 45, 46, 47, 0, 0, 48, 0, 0, - 49, 0, 0, 50, 51, 0, 0, 0, 40, 0, - 0, 52, 53, 45, 46, 47, 0, 0, 48, 0, - 0, 49, 0, 0, 50, 51, 0, 0, 0, 0, - 0, 0, 52, 53 +static const yytype_int16 yytable[] = { + 28, 202, 60, 165, 21, 22, 23, 24, 154, 136, + 216, 205, 233, 129, 11, 39, 25, 173, 234, 12, + 62, 153, 66, 13, 216, 130, 191, 72, 61, 74, + 75, 76, 77, 78, 79, 80, 81, 181, 83, 84, + 85, 86, 87, 88, 89, 90, 91, 92, 93, 180, + 95, 206, 241, 40, 201, 194, 17, 189, 222, 18, + 194, 208, 209, 48, 219, 20, 195, 31, 249, 4, + 5, 6, 245, 209, 26, 137, 251, 230, 32, 238, + 195, 191, 33, 36, 238, 195, 63, 108, 231, 110, + 37, 111, 112, 113, 21, 22, 23, 24, 14, 15, + 16, 38, 67, 135, 82, 94, 25, 96, 235, 99, + 100, 143, 97, 101, 152, 157, 158, 159, 160, 161, + 104, 74, 169, 170, 102, 172, 21, 22, 23, 24, + 109, 248, 106, 107, 114, 156, 144, 115, 25, 221, + 157, 158, 159, 160, 161, 138, 183, 151, 162, 187, + 188, 34, 39, 145, 146, 147, 148, 149, 139, 116, + 198, 115, 140, 141, 163, 142, 204, 176, 177, 184, + 174, 117, 157, 158, 159, 160, 161, 155, 118, 179, + 162, 200, 203, 116, 193, 34, 119, 120, 121, 213, + 215, 217, 227, 224, 225, 117, 163, 122, 226, 229, + 123, 124, 118, 125, 240, 126, 232, 236, 35, 220, + 119, 120, 121, 239, 186, 247, 246, 243, 244, 0, + 0, 122, 0, 0, 123, 124, 0, 125, 40, 126, + 40, 41, 42, 43, 44, 45, 46, 47, 48, 0, + 48, 49, 0, 49, 50, 51, 50, 51, 0, 0, + 0, 0, 52, 53, 52, 53, 54, 55, 56, 57, + 58, 59, 40, 41, 42, 43, 44, 45, 46, 47, + 0, 0, 48, 0, 0, 49, 0, 0, 50, 51, + 1, 0, 0, 0, 0, 0, 52, 53, 54, 55, + 56, 57, 58, 59, 34, 0, 0, 73, 0, 0, + 2, 3, 0, 4, 5, 6, 40, 41, 42, 43, + 44, 45, 46, 47, 0, 0, 48, 7, -15, 49, + 0, 0, 50, 51, 0, 0, 0, 0, 0, 196, + 52, 53, 54, 55, 56, 57, 58, 59, 40, 41, + 42, 43, 44, 45, 46, 47, 0, 0, 48, 0, + 0, 49, 0, 0, 50, 51, 1, 0, 0, 0, + 0, 0, 52, 53, 54, 55, 56, 57, 58, 59, + 0, 0, 0, 197, 0, 0, 2, 3, 0, 4, + 5, 6, 40, 41, 42, 43, 44, 45, 46, 47, + 0, 0, 48, 7, -15, 49, 0, 0, 50, 51, + 0, 0, 0, 0, 0, 223, 52, 53, 54, 55, + 56, 57, 58, 59, 0, 0, 0, 0, 0, 0, + 0, 0, 40, 41, 42, 43, 44, 45, 46, 47, + 0, 0, 48, 0, 0, 49, 0, 0, 50, 51, + 0, 0, 0, 0, 0, 242, 52, 53, 54, 55, + 56, 57, 58, 59, 0, 0, 0, 0, 0, 0, + 0, 0, 40, 41, 42, 43, 44, 45, 46, 47, + 0, 0, 48, 0, 0, 49, 0, -12, 50, 51, + 0, 0, -12, 0, 40, 250, 52, 53, 54, 55, + 56, 57, 58, 59, 48, 0, -12, 0, 0, 0, + 0, 0, -12, -12, 0, -12, -12, -12, 0, 157, + 158, 159, 160, 161, 0, 0, 0, 162, 0, -12, + -12, 175, 40, 41, 42, 43, 44, 45, 46, 47, + 0, 0, 48, 218, 0, 49, 0, 0, 50, 51, + 0, 0, 0, 0, 0, 0, 52, 53, 54, 55, + 56, 57, 58, 59, 0, 228, 40, 41, 42, 43, + 44, 45, 46, 47, 0, 103, 48, 0, 0, 49, + 0, 0, 50, 51, 0, 0, 0, 0, 0, 0, + 52, 53, 54, 55, 56, 57, 58, 59, 40, 41, + 42, 43, 44, 45, 46, 47, 0, 0, 48, 105, + 0, 49, 0, 0, 50, 51, 0, 0, 0, 0, + 0, 0, 52, 53, 54, 55, 56, 57, 58, 59, + 40, 41, 42, 43, 44, 45, 46, 47, 0, 133, + 48, 0, 0, 49, 0, 0, 50, 51, 0, 0, + 0, 0, 0, 0, 52, 53, 54, 55, 56, 57, + 58, 59, 40, 41, 42, 43, 44, 45, 46, 47, + 0, 134, 48, 0, 0, 49, 0, 0, 50, 51, + 0, 0, 0, 0, 0, 0, 52, 53, 54, 55, + 56, 57, 58, 59, 40, 41, 42, 43, 44, 45, + 46, 47, 0, 171, 48, 0, 0, 49, 0, 0, + 50, 51, 0, 0, 0, 0, 0, 0, 52, 53, + 54, 55, 56, 57, 58, 59, 40, 41, 42, 43, + 44, 45, 46, 47, 0, 0, 48, 0, 178, 49, + 0, 0, 50, 51, 0, 0, 0, 0, 0, 0, + 52, 53, 54, 55, 56, 57, 58, 59, 40, 41, + 42, 43, 44, 45, 46, 47, 0, 0, 48, 0, + 199, 49, 0, 0, 50, 51, 0, 0, 0, 0, + 0, 0, 52, 53, 54, 55, 56, 57, 58, 59, + 40, 41, 42, 43, 44, 45, 46, 47, 0, 0, + 48, 0, 0, 49, 0, 0, 50, 51, 0, 0, + 0, 0, 0, 0, 52, 53, 54, 55, 56, 57, + 58, 59, 98, 41, 42, 43, 44, 45, 46, 47, + 0, 0, 48, 0, 0, 49, 0, 0, 50, 51, + 0, 0, 0, 0, 0, 0, 52, 53, 54, 55, + 56, 57, 58, 59, 132, 41, 42, 43, 44, 45, + 46, 47, 0, 0, 48, 0, 0, 49, 0, 0, + 50, 51, 0, 0, 0, 0, 0, 0, 52, 53, + 54, 55, 56, 57, 58, 59, 40, 41, 42, 43, + 44, 45, 46, 47, 0, 0, 48, 0, 0, 49, + 0, 0, 50, 51, 0, 0, 0, 0, 0, 0, + 52, 53, 54, 55, 56, 57, 58, 40, 41, 42, + 43, 44, 45, 46, 47, 0, 0, 48, 0, 0, + 49, 0, 0, 50, 51, 0, 0, 0, 0, 0, + 0, 52, 53, 54, 55, 56, 57, 40, 0, 0, + 43, 44, 45, 46, 47, 0, 0, 48, 0, 0, + 49, 0, 0, 50, 51, 0, 0, 0, 40, 0, + 0, 52, 53, 45, 46, 47, 0, 0, 48, 0, + 0, 49, 0, 0, 50, 51, 0, 0, 0, 0, + 0, 0, 52, 53 }; -static const yytype_int16 yycheck[] = -{ - 11, 175, 15, 132, 3, 4, 5, 6, 127, 7, - 16, 5, 16, 48, 7, 26, 15, 137, 22, 5, - 31, 126, 33, 5, 16, 60, 163, 38, 41, 40, - 41, 42, 43, 44, 45, 46, 47, 156, 49, 50, - 51, 52, 53, 54, 55, 56, 57, 58, 59, 154, - 61, 45, 226, 7, 174, 47, 5, 162, 195, 0, - 47, 3, 4, 17, 193, 43, 72, 7, 242, 28, - 29, 30, 3, 4, 73, 73, 250, 206, 73, 216, - 72, 218, 18, 5, 221, 72, 5, 98, 207, 100, - 73, 102, 103, 104, 3, 4, 5, 6, 4, 5, - 6, 73, 73, 114, 5, 10, 15, 74, 213, 5, - 18, 122, 16, 74, 125, 49, 50, 51, 52, 53, - 73, 132, 133, 134, 16, 136, 3, 4, 5, 6, - 18, 236, 7, 5, 73, 44, 43, 5, 15, 73, - 49, 50, 51, 52, 53, 5, 157, 5, 57, 160, - 161, 19, 163, 60, 61, 62, 63, 64, 19, 27, - 171, 5, 19, 19, 73, 19, 177, 5, 7, 21, - 73, 39, 49, 50, 51, 52, 53, 74, 46, 74, - 57, 74, 45, 27, 20, 19, 54, 55, 56, 59, - 74, 74, 203, 19, 74, 39, 73, 65, 67, 7, - 68, 69, 46, 71, 19, 73, 12, 58, 19, 194, - 54, 55, 56, 216, 159, 233, 232, 228, 229, -1, - -1, 65, -1, -1, 68, 69, -1, 71, 7, 73, - 7, 8, 9, 10, 11, 12, 13, 14, 17, -1, - 17, 20, -1, 20, 23, 24, 23, 24, -1, -1, - -1, -1, 31, 32, 31, 32, 33, 34, 35, 36, - 37, 38, 7, 8, 9, 10, 11, 12, 13, 14, - -1, -1, 17, -1, -1, 20, -1, -1, 23, 24, - 5, -1, -1, -1, -1, -1, 31, 32, 33, 34, - 35, 36, 37, 38, 19, -1, -1, 74, -1, -1, - 25, 26, -1, 28, 29, 30, 7, 8, 9, 10, - 11, 12, 13, 14, -1, -1, 17, 42, 43, 20, - -1, -1, 23, 24, -1, -1, -1, -1, -1, 74, - 31, 32, 33, 34, 35, 36, 37, 38, 7, 8, - 9, 10, 11, 12, 13, 14, -1, -1, 17, -1, - -1, 20, -1, -1, 23, 24, 5, -1, -1, -1, - -1, -1, 31, 32, 33, 34, 35, 36, 37, 38, - -1, -1, -1, 74, -1, -1, 25, 26, -1, 28, - 29, 30, 7, 8, 9, 10, 11, 12, 13, 14, - -1, -1, 17, 42, 43, 20, -1, -1, 23, 24, - -1, -1, -1, -1, -1, 74, 31, 32, 33, 34, - 35, 36, 37, 38, -1, -1, -1, -1, -1, -1, - -1, -1, 7, 8, 9, 10, 11, 12, 13, 14, - -1, -1, 17, -1, -1, 20, -1, -1, 23, 24, - -1, -1, -1, -1, -1, 70, 31, 32, 33, 34, - 35, 36, 37, 38, -1, -1, -1, -1, -1, -1, - -1, -1, 7, 8, 9, 10, 11, 12, 13, 14, - -1, -1, 17, -1, -1, 20, -1, 0, 23, 24, - -1, -1, 5, -1, 7, 70, 31, 32, 33, 34, - 35, 36, 37, 38, 17, -1, 19, -1, -1, -1, - -1, -1, 25, 26, -1, 28, 29, 30, -1, 49, - 50, 51, 52, 53, -1, -1, -1, 57, -1, 42, - 43, 66, 7, 8, 9, 10, 11, 12, 13, 14, - -1, -1, 17, 73, -1, 20, -1, -1, 23, 24, - -1, -1, -1, -1, -1, -1, 31, 32, 33, 34, - 35, 36, 37, 38, -1, 40, 7, 8, 9, 10, - 11, 12, 13, 14, -1, 16, 17, -1, -1, 20, - -1, -1, 23, 24, -1, -1, -1, -1, -1, -1, - 31, 32, 33, 34, 35, 36, 37, 38, 7, 8, - 9, 10, 11, 12, 13, 14, -1, -1, 17, 18, - -1, 20, -1, -1, 23, 24, -1, -1, -1, -1, - -1, -1, 31, 32, 33, 34, 35, 36, 37, 38, - 7, 8, 9, 10, 11, 12, 13, 14, -1, 16, - 17, -1, -1, 20, -1, -1, 23, 24, -1, -1, - -1, -1, -1, -1, 31, 32, 33, 34, 35, 36, - 37, 38, 7, 8, 9, 10, 11, 12, 13, 14, - -1, 16, 17, -1, -1, 20, -1, -1, 23, 24, - -1, -1, -1, -1, -1, -1, 31, 32, 33, 34, - 35, 36, 37, 38, 7, 8, 9, 10, 11, 12, - 13, 14, -1, 16, 17, -1, -1, 20, -1, -1, - 23, 24, -1, -1, -1, -1, -1, -1, 31, 32, - 33, 34, 35, 36, 37, 38, 7, 8, 9, 10, - 11, 12, 13, 14, -1, -1, 17, -1, 19, 20, - -1, -1, 23, 24, -1, -1, -1, -1, -1, -1, - 31, 32, 33, 34, 35, 36, 37, 38, 7, 8, - 9, 10, 11, 12, 13, 14, -1, -1, 17, -1, - 19, 20, -1, -1, 23, 24, -1, -1, -1, -1, - -1, -1, 31, 32, 33, 34, 35, 36, 37, 38, - 7, 8, 9, 10, 11, 12, 13, 14, -1, -1, - 17, -1, -1, 20, -1, -1, 23, 24, -1, -1, - -1, -1, -1, -1, 31, 32, 33, 34, 35, 36, - 37, 38, 7, 8, 9, 10, 11, 12, 13, 14, - -1, -1, 17, -1, -1, 20, -1, -1, 23, 24, - -1, -1, -1, -1, -1, -1, 31, 32, 33, 34, - 35, 36, 37, 38, 7, 8, 9, 10, 11, 12, - 13, 14, -1, -1, 17, -1, -1, 20, -1, -1, - 23, 24, -1, -1, -1, -1, -1, -1, 31, 32, - 33, 34, 35, 36, 37, 38, 7, 8, 9, 10, - 11, 12, 13, 14, -1, -1, 17, -1, -1, 20, - -1, -1, 23, 24, -1, -1, -1, -1, -1, -1, - 31, 32, 33, 34, 35, 36, 37, 7, 8, 9, - 10, 11, 12, 13, 14, -1, -1, 17, -1, -1, - 20, -1, -1, 23, 24, -1, -1, -1, -1, -1, - -1, 31, 32, 33, 34, 35, 36, 7, -1, -1, - 10, 11, 12, 13, 14, -1, -1, 17, -1, -1, - 20, -1, -1, 23, 24, -1, -1, -1, 7, -1, - -1, 31, 32, 12, 13, 14, -1, -1, 17, -1, - -1, 20, -1, -1, 23, 24, -1, -1, -1, -1, - -1, -1, 31, 32 +static const yytype_int16 yycheck[] = { + 11, 175, 15, 132, 3, 4, 5, 6, 127, 7, + 16, 5, 16, 48, 7, 26, 15, 137, 22, 5, + 31, 126, 33, 5, 16, 60, 163, 38, 41, 40, + 41, 42, 43, 44, 45, 46, 47, 156, 49, 50, + 51, 52, 53, 54, 55, 56, 57, 58, 59, 154, + 61, 45, 226, 7, 174, 47, 5, 162, 195, 0, + 47, 3, 4, 17, 193, 43, 72, 7, 242, 28, + 29, 30, 3, 4, 73, 73, 250, 206, 73, 216, + 72, 218, 18, 5, 221, 72, 5, 98, 207, 100, + 73, 102, 103, 104, 3, 4, 5, 6, 4, 5, + 6, 73, 73, 114, 5, 10, 15, 74, 213, 5, + 18, 122, 16, 74, 125, 49, 50, 51, 52, 53, + 73, 132, 133, 134, 16, 136, 3, 4, 5, 6, + 18, 236, 7, 5, 73, 44, 43, 5, 15, 73, + 49, 50, 51, 52, 53, 5, 157, 5, 57, 160, + 161, 19, 163, 60, 61, 62, 63, 64, 19, 27, + 171, 5, 19, 19, 73, 19, 177, 5, 7, 21, + 73, 39, 49, 50, 51, 52, 53, 74, 46, 74, + 57, 74, 45, 27, 20, 19, 54, 55, 56, 59, + 74, 74, 203, 19, 74, 39, 73, 65, 67, 7, + 68, 69, 46, 71, 19, 73, 12, 58, 19, 194, + 54, 55, 56, 216, 159, 233, 232, 228, 229, -1, + -1, 65, -1, -1, 68, 69, -1, 71, 7, 73, + 7, 8, 9, 10, 11, 12, 13, 14, 17, -1, + 17, 20, -1, 20, 23, 24, 23, 24, -1, -1, + -1, -1, 31, 32, 31, 32, 33, 34, 35, 36, + 37, 38, 7, 8, 9, 10, 11, 12, 13, 14, + -1, -1, 17, -1, -1, 20, -1, -1, 23, 24, + 5, -1, -1, -1, -1, -1, 31, 32, 33, 34, + 35, 36, 37, 38, 19, -1, -1, 74, -1, -1, + 25, 26, -1, 28, 29, 30, 7, 8, 9, 10, + 11, 12, 13, 14, -1, -1, 17, 42, 43, 20, + -1, -1, 23, 24, -1, -1, -1, -1, -1, 74, + 31, 32, 33, 34, 35, 36, 37, 38, 7, 8, + 9, 10, 11, 12, 13, 14, -1, -1, 17, -1, + -1, 20, -1, -1, 23, 24, 5, -1, -1, -1, + -1, -1, 31, 32, 33, 34, 35, 36, 37, 38, + -1, -1, -1, 74, -1, -1, 25, 26, -1, 28, + 29, 30, 7, 8, 9, 10, 11, 12, 13, 14, + -1, -1, 17, 42, 43, 20, -1, -1, 23, 24, + -1, -1, -1, -1, -1, 74, 31, 32, 33, 34, + 35, 36, 37, 38, -1, -1, -1, -1, -1, -1, + -1, -1, 7, 8, 9, 10, 11, 12, 13, 14, + -1, -1, 17, -1, -1, 20, -1, -1, 23, 24, + -1, -1, -1, -1, -1, 70, 31, 32, 33, 34, + 35, 36, 37, 38, -1, -1, -1, -1, -1, -1, + -1, -1, 7, 8, 9, 10, 11, 12, 13, 14, + -1, -1, 17, -1, -1, 20, -1, 0, 23, 24, + -1, -1, 5, -1, 7, 70, 31, 32, 33, 34, + 35, 36, 37, 38, 17, -1, 19, -1, -1, -1, + -1, -1, 25, 26, -1, 28, 29, 30, -1, 49, + 50, 51, 52, 53, -1, -1, -1, 57, -1, 42, + 43, 66, 7, 8, 9, 10, 11, 12, 13, 14, + -1, -1, 17, 73, -1, 20, -1, -1, 23, 24, + -1, -1, -1, -1, -1, -1, 31, 32, 33, 34, + 35, 36, 37, 38, -1, 40, 7, 8, 9, 10, + 11, 12, 13, 14, -1, 16, 17, -1, -1, 20, + -1, -1, 23, 24, -1, -1, -1, -1, -1, -1, + 31, 32, 33, 34, 35, 36, 37, 38, 7, 8, + 9, 10, 11, 12, 13, 14, -1, -1, 17, 18, + -1, 20, -1, -1, 23, 24, -1, -1, -1, -1, + -1, -1, 31, 32, 33, 34, 35, 36, 37, 38, + 7, 8, 9, 10, 11, 12, 13, 14, -1, 16, + 17, -1, -1, 20, -1, -1, 23, 24, -1, -1, + -1, -1, -1, -1, 31, 32, 33, 34, 35, 36, + 37, 38, 7, 8, 9, 10, 11, 12, 13, 14, + -1, 16, 17, -1, -1, 20, -1, -1, 23, 24, + -1, -1, -1, -1, -1, -1, 31, 32, 33, 34, + 35, 36, 37, 38, 7, 8, 9, 10, 11, 12, + 13, 14, -1, 16, 17, -1, -1, 20, -1, -1, + 23, 24, -1, -1, -1, -1, -1, -1, 31, 32, + 33, 34, 35, 36, 37, 38, 7, 8, 9, 10, + 11, 12, 13, 14, -1, -1, 17, -1, 19, 20, + -1, -1, 23, 24, -1, -1, -1, -1, -1, -1, + 31, 32, 33, 34, 35, 36, 37, 38, 7, 8, + 9, 10, 11, 12, 13, 14, -1, -1, 17, -1, + 19, 20, -1, -1, 23, 24, -1, -1, -1, -1, + -1, -1, 31, 32, 33, 34, 35, 36, 37, 38, + 7, 8, 9, 10, 11, 12, 13, 14, -1, -1, + 17, -1, -1, 20, -1, -1, 23, 24, -1, -1, + -1, -1, -1, -1, 31, 32, 33, 34, 35, 36, + 37, 38, 7, 8, 9, 10, 11, 12, 13, 14, + -1, -1, 17, -1, -1, 20, -1, -1, 23, 24, + -1, -1, -1, -1, -1, -1, 31, 32, 33, 34, + 35, 36, 37, 38, 7, 8, 9, 10, 11, 12, + 13, 14, -1, -1, 17, -1, -1, 20, -1, -1, + 23, 24, -1, -1, -1, -1, -1, -1, 31, 32, + 33, 34, 35, 36, 37, 38, 7, 8, 9, 10, + 11, 12, 13, 14, -1, -1, 17, -1, -1, 20, + -1, -1, 23, 24, -1, -1, -1, -1, -1, -1, + 31, 32, 33, 34, 35, 36, 37, 7, 8, 9, + 10, 11, 12, 13, 14, -1, -1, 17, -1, -1, + 20, -1, -1, 23, 24, -1, -1, -1, -1, -1, + -1, 31, 32, 33, 34, 35, 36, 7, -1, -1, + 10, 11, 12, 13, 14, -1, -1, 17, -1, -1, + 20, -1, -1, 23, 24, -1, -1, -1, 7, -1, + -1, 31, 32, 12, 13, 14, -1, -1, 17, -1, + -1, 20, -1, -1, 23, 24, -1, -1, -1, -1, + -1, -1, 31, 32 }; /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing symbol of state STATE-NUM. */ -static const yytype_uint8 yystos[] = -{ - 0, 5, 25, 26, 28, 29, 30, 42, 76, 80, - 81, 7, 5, 5, 81, 81, 81, 5, 0, 77, - 43, 3, 4, 5, 6, 15, 73, 84, 85, 88, - 89, 7, 73, 18, 19, 76, 5, 73, 73, 85, - 7, 8, 9, 10, 11, 12, 13, 14, 17, 20, - 23, 24, 31, 32, 33, 34, 35, 36, 37, 38, - 15, 41, 85, 5, 78, 79, 85, 73, 82, 85, - 86, 87, 85, 74, 85, 85, 85, 85, 85, 85, - 85, 85, 5, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 10, 85, 74, 16, 7, 5, - 18, 74, 16, 16, 73, 18, 7, 5, 85, 18, - 85, 85, 85, 85, 73, 5, 27, 39, 46, 54, - 55, 56, 65, 68, 69, 71, 73, 105, 106, 48, - 60, 83, 7, 16, 16, 85, 7, 73, 5, 19, - 19, 19, 19, 85, 43, 60, 61, 62, 63, 64, - 104, 5, 85, 106, 77, 74, 44, 49, 50, 51, - 52, 53, 57, 73, 90, 93, 94, 97, 99, 85, - 85, 16, 85, 86, 73, 66, 5, 7, 19, 74, - 106, 77, 91, 85, 21, 100, 100, 85, 85, 106, - 93, 97, 98, 20, 47, 72, 74, 74, 85, 19, - 74, 86, 105, 45, 85, 5, 45, 92, 3, 4, - 101, 102, 103, 59, 95, 74, 16, 74, 73, 93, - 94, 73, 97, 74, 19, 74, 67, 85, 40, 7, - 93, 77, 12, 16, 22, 106, 58, 96, 97, 98, - 19, 105, 70, 85, 85, 3, 103, 102, 106, 105, - 70, 105 +static const yytype_uint8 yystos[] = { + 0, 5, 25, 26, 28, 29, 30, 42, 76, 80, + 81, 7, 5, 5, 81, 81, 81, 5, 0, 77, + 43, 3, 4, 5, 6, 15, 73, 84, 85, 88, + 89, 7, 73, 18, 19, 76, 5, 73, 73, 85, + 7, 8, 9, 10, 11, 12, 13, 14, 17, 20, + 23, 24, 31, 32, 33, 34, 35, 36, 37, 38, + 15, 41, 85, 5, 78, 79, 85, 73, 82, 85, + 86, 87, 85, 74, 85, 85, 85, 85, 85, 85, + 85, 85, 5, 85, 85, 85, 85, 85, 85, 85, + 85, 85, 85, 85, 10, 85, 74, 16, 7, 5, + 18, 74, 16, 16, 73, 18, 7, 5, 85, 18, + 85, 85, 85, 85, 73, 5, 27, 39, 46, 54, + 55, 56, 65, 68, 69, 71, 73, 105, 106, 48, + 60, 83, 7, 16, 16, 85, 7, 73, 5, 19, + 19, 19, 19, 85, 43, 60, 61, 62, 63, 64, + 104, 5, 85, 106, 77, 74, 44, 49, 50, 51, + 52, 53, 57, 73, 90, 93, 94, 97, 99, 85, + 85, 16, 85, 86, 73, 66, 5, 7, 19, 74, + 106, 77, 91, 85, 21, 100, 100, 85, 85, 106, + 93, 97, 98, 20, 47, 72, 74, 74, 85, 19, + 74, 86, 105, 45, 85, 5, 45, 92, 3, 4, + 101, 102, 103, 59, 95, 74, 16, 74, 73, 93, + 94, 73, 97, 74, 19, 74, 67, 85, 40, 7, + 93, 77, 12, 16, 22, 106, 58, 96, 97, 98, + 19, 105, 70, 85, 85, 3, 103, 102, 106, 105, + 70, 105 }; #define yyerrok (yyerrstatus = 0) @@ -1086,7 +1057,6 @@ static const yytype_uint8 yystos[] = #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. */ @@ -1112,11 +1082,9 @@ do \ } \ 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). */ @@ -1142,7 +1110,6 @@ while (YYID (0)) while (YYID (0)) #endif - /* 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. */ @@ -1158,7 +1125,6 @@ while (YYID (0)) # endif #endif - /* YYLEX -- calling `yylex' with the right arguments. */ #ifdef YYLEX_PARAM @@ -1171,7 +1137,7 @@ while (YYID (0)) #if YYDEBUG # ifndef YYFPRINTF -# include <stdio.h> /* INFRINGES ON USER NAME SPACE */ +# include <stdio.h> /* INFRINGES ON USER NAME SPACE */ # define YYFPRINTF fprintf # endif @@ -1192,42 +1158,41 @@ do { \ } \ } while (YYID (0)) - /*--------------------------------. | Print this symbol on YYOUTPUT. | `--------------------------------*/ -/*ARGSUSED*/ + /*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, YYLTYPE const * const yylocationp) +yy_symbol_value_print (FILE * yyoutput, int yytype, + YYSTYPE const *const yyvaluep, + YYLTYPE const *const yylocationp) #else -static void -yy_symbol_value_print (yyoutput, yytype, yyvaluep, yylocationp) - FILE *yyoutput; - int yytype; - YYSTYPE const * const yyvaluep; - YYLTYPE const * const yylocationp; +static void yy_symbol_value_print (yyoutput, yytype, yyvaluep, yylocationp) + FILE *yyoutput; + int yytype; + YYSTYPE const *const yyvaluep; + YYLTYPE const *const yylocationp; #endif { - if (!yyvaluep) - return; - YYUSE (yylocationp); + if (!yyvaluep) + return; + YYUSE (yylocationp); # ifdef YYPRINT - if (yytype < YYNTOKENS) - YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep); + if (yytype < YYNTOKENS) + YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep); # else - YYUSE (yyoutput); + YYUSE (yyoutput); # endif - switch (yytype) + switch (yytype) { - default: - break; + default: + break; } } - /*--------------------------------. | Print this symbol on YYOUTPUT. | `--------------------------------*/ @@ -1235,25 +1200,25 @@ yy_symbol_value_print (yyoutput, yytype, yyvaluep, yylocationp) #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) static void -yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep, YYLTYPE const * const yylocationp) +yy_symbol_print (FILE * yyoutput, int yytype, YYSTYPE const *const yyvaluep, + YYLTYPE const *const yylocationp) #else -static void -yy_symbol_print (yyoutput, yytype, yyvaluep, yylocationp) - FILE *yyoutput; - int yytype; - YYSTYPE const * const yyvaluep; - YYLTYPE const * const yylocationp; +static void yy_symbol_print (yyoutput, yytype, yyvaluep, yylocationp) + FILE *yyoutput; + int yytype; + YYSTYPE const *const yyvaluep; + YYLTYPE const *const yylocationp; #endif { - if (yytype < YYNTOKENS) - YYFPRINTF (yyoutput, "token %s (", yytname[yytype]); - else - YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]); - - YY_LOCATION_PRINT (yyoutput, *yylocationp); - YYFPRINTF (yyoutput, ": "); - yy_symbol_value_print (yyoutput, yytype, yyvaluep, yylocationp); - YYFPRINTF (yyoutput, ")"); + if (yytype < YYNTOKENS) + YYFPRINTF (yyoutput, "token %s (", yytname[yytype]); + else + YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]); + + YY_LOCATION_PRINT (yyoutput, *yylocationp); + YYFPRINTF (yyoutput, ": "); + yy_symbol_value_print (yyoutput, yytype, yyvaluep, yylocationp); + YYFPRINTF (yyoutput, ")"); } /*------------------------------------------------------------------. @@ -1263,19 +1228,17 @@ yy_symbol_print (yyoutput, yytype, yyvaluep, yylocationp) #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) -static void -yy_stack_print (yytype_int16 *bottom, yytype_int16 *top) +static void yy_stack_print (yytype_int16 * bottom, yytype_int16 * top) #else -static void -yy_stack_print (bottom, top) - yytype_int16 *bottom; - yytype_int16 *top; +static void yy_stack_print (bottom, top) + yytype_int16 *bottom; + yytype_int16 *top; #endif { - YYFPRINTF (stderr, "Stack now"); - for (; bottom <= top; ++bottom) - YYFPRINTF (stderr, " %d", *bottom); - YYFPRINTF (stderr, "\n"); + YYFPRINTF (stderr, "Stack now"); + for (; bottom <= top; ++bottom) + YYFPRINTF (stderr, " %d", *bottom); + YYFPRINTF (stderr, "\n"); } # define YY_STACK_PRINT(Bottom, Top) \ @@ -1284,36 +1247,33 @@ do { \ yy_stack_print ((Bottom), (Top)); \ } while (YYID (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, YYLTYPE *yylsp, int yyrule) +static void yy_reduce_print (YYSTYPE * yyvsp, YYLTYPE * yylsp, int yyrule) #else -static void -yy_reduce_print (yyvsp, yylsp, yyrule) - YYSTYPE *yyvsp; - YYLTYPE *yylsp; - int yyrule; +static void yy_reduce_print (yyvsp, yylsp, yyrule) + YYSTYPE *yyvsp; + YYLTYPE *yylsp; + int yyrule; #endif { - 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); - /* The symbols being reduced. */ - for (yyi = 0; yyi < yynrhs; yyi++) + 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); + /* The symbols being reduced. */ + for (yyi = 0; yyi < yynrhs; yyi++) { - fprintf (stderr, " $%d = ", yyi + 1); - yy_symbol_print (stderr, yyrhs[yyprhs[yyrule] + yyi], - &(yyvsp[(yyi + 1) - (yynrhs)]) - , &(yylsp[(yyi + 1) - (yynrhs)]) ); - fprintf (stderr, "\n"); + fprintf (stderr, " $%d = ", yyi + 1); + yy_symbol_print (stderr, yyrhs[yyprhs[yyrule] + yyi], + &(yyvsp[(yyi + 1) - (yynrhs)]), + &(yylsp[(yyi + 1) - (yynrhs)])); + fprintf (stderr, "\n"); } } @@ -1325,7 +1285,7 @@ do { \ /* Nonzero means print parse trace. It is left uninitialized so that multiple parsers can coexist. */ -int yydebug; +int yydebug; #else /* !YYDEBUG */ # define YYDPRINTF(Args) # define YY_SYMBOL_PRINT(Title, Type, Value, Location) @@ -1333,7 +1293,6 @@ int yydebug; # define YY_REDUCE_PRINT(Rule) #endif /* !YYDEBUG */ - /* YYINITDEPTH -- initial size of the parser's stacks. */ #ifndef YYINITDEPTH # define YYINITDEPTH 200 @@ -1349,9 +1308,7 @@ int yydebug; #ifndef YYMAXDEPTH # define YYMAXDEPTH 10000 #endif - - #if YYERROR_VERBOSE # ifndef yystrlen @@ -1361,18 +1318,16 @@ int yydebug; /* Return the length of YYSTR. */ #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) -static YYSIZE_T -yystrlen (const char *yystr) +static YYSIZE_T yystrlen (const char *yystr) #else -static YYSIZE_T -yystrlen (yystr) - const char *yystr; +static YYSIZE_T yystrlen (yystr) + const char *yystr; #endif { - YYSIZE_T yylen; - for (yylen = 0; yystr[yylen]; yylen++) - continue; - return yylen; + YYSIZE_T yylen; + for (yylen = 0; yystr[yylen]; yylen++) + continue; + return yylen; } # endif # endif @@ -1385,22 +1340,20 @@ yystrlen (yystr) YYDEST. */ #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) -static char * -yystpcpy (char *yydest, const char *yysrc) +static char *yystpcpy (char *yydest, const char *yysrc) #else -static char * -yystpcpy (yydest, yysrc) - char *yydest; - const char *yysrc; +static char *yystpcpy (yydest, yysrc) + char *yydest; + const char *yysrc; #endif { - char *yyd = yydest; - const char *yys = yysrc; + char *yyd = yydest; + const char *yys = yysrc; - while ((*yyd++ = *yys++) != '\0') - continue; + while ((*yyd++ = *yys++) != '\0') + continue; - return yyd - 1; + return yyd - 1; } # endif # endif @@ -1413,43 +1366,42 @@ yystpcpy (yydest, yysrc) backslash-backslash). YYSTR is taken from yytname. If YYRES is null, do not copy; instead, return the length of what the result would have been. */ -static YYSIZE_T -yytnamerr (char *yyres, const char *yystr) +static YYSIZE_T yytnamerr (char *yyres, const char *yystr) { - if (*yystr == '"') + if (*yystr == '"') { - YYSIZE_T yyn = 0; - char const *yyp = yystr; - - for (;;) - switch (*++yyp) - { - case '\'': - case ',': - goto do_not_strip_quotes; - - case '\\': - if (*++yyp != '\\') - goto do_not_strip_quotes; - /* Fall through. */ - default: - if (yyres) - yyres[yyn] = *yyp; - yyn++; - break; - - case '"': - if (yyres) - yyres[yyn] = '\0'; - return yyn; - } - do_not_strip_quotes: ; + YYSIZE_T yyn = 0; + char const *yyp = yystr; + + for (;;) + switch (*++yyp) + { + case '\'': + case ',': + goto do_not_strip_quotes; + + case '\\': + if (*++yyp != '\\') + goto do_not_strip_quotes; + /* Fall through. */ + default: + if (yyres) + yyres[yyn] = *yyp; + yyn++; + break; + + case '"': + if (yyres) + yyres[yyn] = '\0'; + return yyn; + } + do_not_strip_quotes:; } - if (! yyres) - return yystrlen (yystr); + if (!yyres) + return yystrlen (yystr); - return yystpcpy (yyres, yystr) - yyres; + return yystpcpy (yyres, yystr) - yyres; } # endif @@ -1460,174 +1412,168 @@ yytnamerr (char *yyres, const char *yystr) 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) +static YYSIZE_T yysyntax_error (char *yyresult, int yystate, int yychar) { - int yyn = yypact[yystate]; + int yyn = yypact[yystate]; - if (! (YYPACT_NINF < yyn && yyn <= YYLAST)) - return 0; - else + if (!(YYPACT_NINF < yyn && yyn <= YYLAST)) + return 0; + else { - 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; + 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"); + /* 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; - - 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; + 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; + + 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; } } #endif /* YYERROR_VERBOSE */ - /*-----------------------------------------------. | Release the memory associated to this symbol. | `-----------------------------------------------*/ -/*ARGSUSED*/ + /*ARGSUSED*/ #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) static void -yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep, YYLTYPE *yylocationp) +yydestruct (const char *yymsg, int yytype, YYSTYPE * yyvaluep, + YYLTYPE * yylocationp) #else -static void -yydestruct (yymsg, yytype, yyvaluep, yylocationp) - const char *yymsg; - int yytype; - YYSTYPE *yyvaluep; - YYLTYPE *yylocationp; +static void yydestruct (yymsg, yytype, yyvaluep, yylocationp) + const char *yymsg; + int yytype; + YYSTYPE *yyvaluep; + YYLTYPE *yylocationp; #endif { - YYUSE (yyvaluep); - YYUSE (yylocationp); + YYUSE (yyvaluep); + YYUSE (yylocationp); - if (!yymsg) - yymsg = "Deleting"; - YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp); + if (!yymsg) + yymsg = "Deleting"; + YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp); - switch (yytype) + switch (yytype) { - default: - break; + default: + break; } } - /* Prevent warnings from -Wmissing-prototypes. */ #ifdef YYPARSE_PARAM #if defined __STDC__ || defined __cplusplus -int yyparse (void *YYPARSE_PARAM); +int yyparse (void *YYPARSE_PARAM); #else -int yyparse (); +int yyparse (); #endif #else /* ! YYPARSE_PARAM */ #if defined __STDC__ || defined __cplusplus -int yyparse (void); +int yyparse (void); #else -int yyparse (); +int yyparse (); #endif #endif /* ! YYPARSE_PARAM */ - - /* The look-ahead symbol. */ -int yychar; +int yychar; /* The semantic value of the look-ahead symbol. */ YYSTYPE yylval; /* Number of syntax errors so far. */ -int yynerrs; +int yynerrs; /* Location data for the look-ahead symbol. */ YYLTYPE yylloc; - - /*----------. | yyparse. | `----------*/ @@ -1635,1622 +1581,1968 @@ YYLTYPE yylloc; #ifdef YYPARSE_PARAM #if (defined __STDC__ || defined __C99__FUNC__ \ || defined __cplusplus || defined _MSC_VER) -int -yyparse (void *YYPARSE_PARAM) +int yyparse (void *YYPARSE_PARAM) #else -int -yyparse (YYPARSE_PARAM) - void *YYPARSE_PARAM; +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) +int yyparse (void) #else -int -yyparse () - +int yyparse () #endif #endif { - - int yystate; - int yyn; - int yyresult; - /* Number of tokens to shift before error messages enabled. */ - int yyerrstatus; - /* Look-ahead token as an internal (translated) token number. */ - int yytoken = 0; + + int yystate; + int yyn; + int yyresult; + /* Number of tokens to shift before error messages enabled. */ + int yyerrstatus; + /* Look-ahead token as an internal (translated) token number. */ + int yytoken = 0; #if YYERROR_VERBOSE - /* Buffer for error messages, and its allocated size. */ - char yymsgbuf[128]; - char *yymsg = yymsgbuf; - YYSIZE_T yymsg_alloc = sizeof yymsgbuf; + /* Buffer for error messages, and its allocated size. */ + char yymsgbuf[128]; + char *yymsg = yymsgbuf; + YYSIZE_T yymsg_alloc = sizeof yymsgbuf; #endif - /* Three stacks and their tools: - `yyss': related to states, - `yyvs': related to semantic values, - `yyls': related to locations. - - Refer to the stacks thru separate pointers, to allow yyoverflow - to reallocate them elsewhere. */ - - /* The state stack. */ - yytype_int16 yyssa[YYINITDEPTH]; - yytype_int16 *yyss = yyssa; - yytype_int16 *yyssp; - - /* The semantic value stack. */ - YYSTYPE yyvsa[YYINITDEPTH]; - YYSTYPE *yyvs = yyvsa; - YYSTYPE *yyvsp; + /* Three stacks and their tools: + * `yyss': related to states, + * `yyvs': related to semantic values, + * `yyls': related to locations. + * + * Refer to the stacks thru separate pointers, to allow yyoverflow + * to reallocate them elsewhere. */ + + /* The state stack. */ + yytype_int16 yyssa[YYINITDEPTH]; + yytype_int16 *yyss = yyssa; + yytype_int16 *yyssp; + + /* The semantic value stack. */ + YYSTYPE yyvsa[YYINITDEPTH]; + YYSTYPE *yyvs = yyvsa; + YYSTYPE *yyvsp; - /* The location stack. */ - YYLTYPE yylsa[YYINITDEPTH]; - YYLTYPE *yyls = yylsa; - YYLTYPE *yylsp; - /* The locations where the error started and ended. */ - YYLTYPE yyerror_range[2]; + /* The location stack. */ + YYLTYPE yylsa[YYINITDEPTH]; + YYLTYPE *yyls = yylsa; + YYLTYPE *yylsp; + /* The locations where the error started and ended. */ + YYLTYPE yyerror_range[2]; #define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N), yylsp -= (N)) - YYSIZE_T yystacksize = YYINITDEPTH; + YYSIZE_T yystacksize = YYINITDEPTH; - /* The variables used to return semantic value and location from the - action routines. */ - YYSTYPE yyval; - YYLTYPE yyloc; + /* The variables used to return semantic value and location from the + * action routines. */ + YYSTYPE yyval; + YYLTYPE yyloc; - /* The number of symbols on the RHS of the reduced rule. - Keep to zero when no symbol should be popped. */ - int yylen = 0; + /* The number of symbols on the RHS of the reduced rule. + * Keep to zero when no symbol should be popped. */ + int yylen = 0; - YYDPRINTF ((stderr, "Starting parse\n")); + YYDPRINTF ((stderr, "Starting parse\n")); - yystate = 0; - yyerrstatus = 0; - yynerrs = 0; - yychar = YYEMPTY; /* Cause a token to be read. */ + yystate = 0; + 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. */ + /* 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; - yylsp = yyls; + yyssp = yyss; + yyvsp = yyvs; + yylsp = yyls; #if YYLTYPE_IS_TRIVIAL - /* Initialize the default location before parsing starts. */ - yylloc.first_line = yylloc.last_line = 1; - yylloc.first_column = yylloc.last_column = 0; + /* Initialize the default location before parsing starts. */ + yylloc.first_line = yylloc.last_line = 1; + yylloc.first_column = yylloc.last_column = 0; #endif - goto yysetstate; + goto yysetstate; /*------------------------------------------------------------. | yynewstate -- Push a new state, which is found in yystate. | `------------------------------------------------------------*/ - yynewstate: - /* In all cases, when you get here, the value and location stacks - have just been pushed. So pushing a state here evens the stacks. */ - yyssp++; + yynewstate: + /* In all cases, when you get here, the value and location stacks + * have just been pushed. So pushing a state here evens the stacks. */ + yyssp++; - yysetstate: - *yyssp = yystate; + yysetstate: + *yyssp = yystate; - if (yyss + yystacksize - 1 <= yyssp) + if (yyss + yystacksize - 1 <= yyssp) { - /* Get the current used size of the three stacks, in elements. */ - YYSIZE_T yysize = yyssp - yyss + 1; + /* Get the current used size of the three stacks, in elements. */ + YYSIZE_T yysize = yyssp - yyss + 1; #ifdef yyoverflow - { - /* Give user a chance to reallocate the stack. Use copies of - these so that the &'s don't force the real ones into - memory. */ - YYSTYPE *yyvs1 = yyvs; - yytype_int16 *yyss1 = yyss; - YYLTYPE *yyls1 = yyls; - - /* Each stack pointer address is followed by the size of the - data in use in that stack, in bytes. This used to be a - conditional around just the two extra args, but that might - be undefined if yyoverflow is a macro. */ - yyoverflow (YY_("memory exhausted"), - &yyss1, yysize * sizeof (*yyssp), - &yyvs1, yysize * sizeof (*yyvsp), - &yyls1, yysize * sizeof (*yylsp), - &yystacksize); - yyls = yyls1; - yyss = yyss1; - yyvs = yyvs1; - } + { + /* Give user a chance to reallocate the stack. Use copies of + * these so that the &'s don't force the real ones into + * memory. */ + YYSTYPE *yyvs1 = yyvs; + yytype_int16 *yyss1 = yyss; + YYLTYPE *yyls1 = yyls; + + /* Each stack pointer address is followed by the size of the + * data in use in that stack, in bytes. This used to be a + * conditional around just the two extra args, but that might + * be undefined if yyoverflow is a macro. */ + yyoverflow (YY_ ("memory exhausted"), + &yyss1, yysize * sizeof (*yyssp), + &yyvs1, yysize * sizeof (*yyvsp), + &yyls1, yysize * sizeof (*yylsp), &yystacksize); + yyls = yyls1; + yyss = yyss1; + yyvs = yyvs1; + } #else /* no yyoverflow */ # ifndef YYSTACK_RELOCATE - goto yyexhaustedlab; + goto yyexhaustedlab; # else - /* Extend the stack our own way. */ - if (YYMAXDEPTH <= yystacksize) - goto yyexhaustedlab; - yystacksize *= 2; - if (YYMAXDEPTH < yystacksize) - yystacksize = YYMAXDEPTH; - - { - yytype_int16 *yyss1 = yyss; - union yyalloc *yyptr = - (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize)); - if (! yyptr) - goto yyexhaustedlab; - YYSTACK_RELOCATE (yyss); - YYSTACK_RELOCATE (yyvs); - YYSTACK_RELOCATE (yyls); + /* Extend the stack our own way. */ + if (YYMAXDEPTH <= yystacksize) + goto yyexhaustedlab; + yystacksize *= 2; + if (YYMAXDEPTH < yystacksize) + yystacksize = YYMAXDEPTH; + + { + yytype_int16 *yyss1 = yyss; + union yyalloc *yyptr = + (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize)); + if (!yyptr) + goto yyexhaustedlab; + YYSTACK_RELOCATE (yyss); + YYSTACK_RELOCATE (yyvs); + YYSTACK_RELOCATE (yyls); # undef YYSTACK_RELOCATE - if (yyss1 != yyssa) - YYSTACK_FREE (yyss1); - } + if (yyss1 != yyssa) + YYSTACK_FREE (yyss1); + } # endif #endif /* no yyoverflow */ - yyssp = yyss + yysize - 1; - yyvsp = yyvs + yysize - 1; - yylsp = yyls + yysize - 1; + yyssp = yyss + yysize - 1; + yyvsp = yyvs + yysize - 1; + yylsp = yyls + yysize - 1; - YYDPRINTF ((stderr, "Stack size increased to %lu\n", - (unsigned long int) yystacksize)); + YYDPRINTF ((stderr, "Stack size increased to %lu\n", + (unsigned long int) yystacksize)); - if (yyss + yystacksize - 1 <= yyssp) - YYABORT; + if (yyss + yystacksize - 1 <= yyssp) + YYABORT; } - YYDPRINTF ((stderr, "Entering state %d\n", yystate)); + YYDPRINTF ((stderr, "Entering state %d\n", yystate)); - goto yybackup; + goto yybackup; /*-----------. | yybackup. | `-----------*/ -yybackup: + yybackup: - /* Do appropriate processing given the current state. Read a - look-ahead token if we need one and don't already have one. */ + /* Do appropriate processing given the current state. Read a + * look-ahead token if we need one and don't already have one. */ - /* First try to decide what to do without reference to look-ahead token. */ - yyn = yypact[yystate]; - if (yyn == YYPACT_NINF) - goto yydefault; + /* First try to decide what to do without reference to look-ahead token. */ + yyn = yypact[yystate]; + if (yyn == YYPACT_NINF) + goto yydefault; - /* Not known => get a look-ahead token if don't already have one. */ + /* Not known => get a look-ahead token if don't already have one. */ - /* YYCHAR is either YYEMPTY or YYEOF or a valid look-ahead symbol. */ - if (yychar == YYEMPTY) + /* YYCHAR is either YYEMPTY or YYEOF or a valid look-ahead symbol. */ + if (yychar == YYEMPTY) { - YYDPRINTF ((stderr, "Reading a token: ")); - yychar = YYLEX; + YYDPRINTF ((stderr, "Reading a token: ")); + yychar = YYLEX; } - if (yychar <= YYEOF) + if (yychar <= YYEOF) { - yychar = yytoken = YYEOF; - YYDPRINTF ((stderr, "Now at end of input.\n")); + yychar = yytoken = YYEOF; + YYDPRINTF ((stderr, "Now at end of input.\n")); } - else + else { - yytoken = YYTRANSLATE (yychar); - YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc); + yytoken = YYTRANSLATE (yychar); + YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc); } - /* If the proper action on seeing token YYTOKEN is to reduce or to - detect an error, take that action. */ - yyn += yytoken; - if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken) - goto yydefault; - yyn = yytable[yyn]; - if (yyn <= 0) + /* If the proper action on seeing token YYTOKEN is to reduce or to + * detect an error, take that action. */ + yyn += yytoken; + if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken) + goto yydefault; + yyn = yytable[yyn]; + if (yyn <= 0) { - if (yyn == 0 || yyn == YYTABLE_NINF) - goto yyerrlab; - yyn = -yyn; - goto yyreduce; + if (yyn == 0 || yyn == YYTABLE_NINF) + goto yyerrlab; + yyn = -yyn; + goto yyreduce; } - if (yyn == YYFINAL) - YYACCEPT; - - /* Count tokens shifted since error; after three, turn off error - status. */ - if (yyerrstatus) - yyerrstatus--; + if (yyn == YYFINAL) + YYACCEPT; - /* Shift the look-ahead token. */ - YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc); + /* Count tokens shifted since error; after three, turn off error + * status. */ + if (yyerrstatus) + yyerrstatus--; - /* Discard the shifted token unless it is eof. */ - if (yychar != YYEOF) - yychar = YYEMPTY; + /* Shift the look-ahead token. */ + YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc); - yystate = yyn; - *++yyvsp = yylval; - *++yylsp = yylloc; - goto yynewstate; + /* Discard the shifted token unless it is eof. */ + if (yychar != YYEOF) + yychar = YYEMPTY; + yystate = yyn; + *++yyvsp = yylval; + *++yylsp = yylloc; + goto yynewstate; /*-----------------------------------------------------------. | yydefault -- do the default action for the current state. | `-----------------------------------------------------------*/ -yydefault: - yyn = yydefact[yystate]; - if (yyn == 0) - goto yyerrlab; - goto yyreduce; - + yydefault: + yyn = yydefact[yystate]; + if (yyn == 0) + goto yyerrlab; + goto yyreduce; /*-----------------------------. | yyreduce -- Do a reduction. | `-----------------------------*/ -yyreduce: - /* yyn is the number of a rule to reduce with. */ - yylen = yyr2[yyn]; - - /* If YYLEN is nonzero, implement the default value of the action: - `$$ = $1'. - - Otherwise, the following line sets YYVAL to garbage. - This behavior is undocumented and Bison - users should not rely upon it. Assigning to YYVAL - unconditionally makes the parser a bit smaller, and it avoids a - GCC warning that YYVAL may be used uninitialized. */ - yyval = yyvsp[1-yylen]; - - /* Default location. */ - YYLLOC_DEFAULT (yyloc, (yylsp - yylen), yylen); - YY_REDUCE_PRINT (yyn); - switch (yyn) + yyreduce: + /* yyn is the number of a rule to reduce with. */ + yylen = yyr2[yyn]; + + /* If YYLEN is nonzero, implement the default value of the action: + * `$$ = $1'. + * + * Otherwise, the following line sets YYVAL to garbage. + * This behavior is undocumented and Bison + * users should not rely upon it. Assigning to YYVAL + * unconditionally makes the parser a bit smaller, and it avoids a + * GCC warning that YYVAL may be used uninitialized. */ + yyval = yyvsp[1 - yylen]; + + /* Default location. */ + YYLLOC_DEFAULT (yyloc, (yylsp - yylen), yylen); + YY_REDUCE_PRINT (yyn); + switch (yyn) { case 2: #line 213 "magic-interpreter-parser.y" - {;} - break; + {; + } + break; - case 3: + case 3: #line 215 "magic-interpreter-parser.y" - {;} - break; + {; + } + break; - case 4: + case 4: #line 220 "magic-interpreter-parser.y" - {;} - break; + {; + } + break; - case 5: + case 5: #line 222 "magic-interpreter-parser.y" - {;} - break; + {; + } + break; - case 6: + case 6: #line 227 "magic-interpreter-parser.y" - { (yyval.proc) = aCalloc(sizeof(proc_t), 1); ;} - break; + { + (yyval.proc) = aCalloc (sizeof (proc_t), 1);; + } + break; - case 7: + case 7: #line 229 "magic-interpreter-parser.y" - { (yyval.proc) = (yyvsp[(1) - (1)].proc); ;} - break; + { + (yyval.proc) = (yyvsp[(1) - (1)].proc);; + } + break; - case 8: + case 8: #line 233 "magic-interpreter-parser.y" - { (yyval.proc) = aCalloc(sizeof(proc_t), 1); - (yyval.proc)->args_nr = 1; - (yyval.proc)->args = malloc(sizeof(int)); - (yyval.proc)->args[0] = intern_id((yyvsp[(1) - (1)].s)); - ;} - break; - - case 9: + { + (yyval.proc) = aCalloc (sizeof (proc_t), 1); + (yyval.proc)->args_nr = 1; + (yyval.proc)->args = malloc (sizeof (int)); + (yyval.proc)->args[0] = intern_id ((yyvsp[(1) - (1)].s)); + ; + } + break; + + case 9: #line 239 "magic-interpreter-parser.y" - { (yyval.proc) = (yyvsp[(1) - (3)].proc); - (yyval.proc)->args = realloc((yyval.proc)->args, sizeof(int) * (1 + (yyval.proc)->args_nr)); - (yyval.proc)->args[(yyval.proc)->args_nr++] = intern_id((yyvsp[(3) - (3)].s)); - ;} - break; + { + (yyval.proc) = (yyvsp[(1) - (3)].proc); + (yyval.proc)->args = + realloc ((yyval.proc)->args, + sizeof (int) * (1 + (yyval.proc)->args_nr)); + (yyval.proc)->args[(yyval.proc)->args_nr++] = + intern_id ((yyvsp[(3) - (3)].s)); + ; + } + break; - case 10: + case 10: #line 246 "magic-interpreter-parser.y" - { - int var_id; - if (find_constant((yyvsp[(1) - (3)].s))) { - fail((yylsp[(1) - (3)]).first_line, 0, "Attempt to redefine constant `%s' as global\n", (yyvsp[(1) - (3)].s)); - free((yyvsp[(1) - (3)].s)); - } else { - var_id = intern_id((yyvsp[(1) - (3)].s)); - magic_eval(&magic_default_env, &magic_conf.vars[var_id], (yyvsp[(3) - (3)].expr)); - } - ;} - break; - - case 11: + { + int var_id; + if (find_constant ((yyvsp[(1) - (3)].s))) + { + fail ((yylsp[(1) - (3)]).first_line, 0, + "Attempt to redefine constant `%s' as global\n", + (yyvsp[(1) - (3)].s)); + free ((yyvsp[(1) - (3)].s)); + } + else + { + var_id = intern_id ((yyvsp[(1) - (3)].s)); + magic_eval (&magic_default_env, &magic_conf.vars[var_id], + (yyvsp[(3) - (3)].expr)); + } + ; + } + break; + + case 11: #line 257 "magic-interpreter-parser.y" - { - val_t var; - magic_eval(&magic_default_env, &var, (yyvsp[(4) - (4)].expr)); - bind_constant((yyvsp[(2) - (4)].s), &var, (yylsp[(1) - (4)]).first_line); - ;} - break; + { + val_t var; + magic_eval (&magic_default_env, &var, (yyvsp[(4) - (4)].expr)); + bind_constant ((yyvsp[(2) - (4)].s), &var, + (yylsp[(1) - (4)]).first_line); + ; + } + break; - case 12: + case 12: #line 263 "magic-interpreter-parser.y" - { - teleport_anchor_t *anchor = calloc(sizeof(teleport_anchor_t), 1); - anchor->name = (yyvsp[(2) - (6)].s); - anchor->invocation = magic_eval_str(&magic_default_env, (yyvsp[(4) - (6)].expr)); - anchor->location = (yyvsp[(6) - (6)].expr); - - if (!failed_flag) - add_teleport_anchor(anchor, (yylsp[(1) - (6)]).first_line); - failed_flag = 0; - ;} - break; - - case 13: + { + teleport_anchor_t *anchor = + calloc (sizeof (teleport_anchor_t), 1); + anchor->name = (yyvsp[(2) - (6)].s); + anchor->invocation = + magic_eval_str (&magic_default_env, (yyvsp[(4) - (6)].expr)); + anchor->location = (yyvsp[(6) - (6)].expr); + + if (!failed_flag) + add_teleport_anchor (anchor, (yylsp[(1) - (6)]).first_line); + failed_flag = 0; + ; + } + break; + + case 13: #line 274 "magic-interpreter-parser.y" - { - proc_t *proc = (yyvsp[(4) - (7)].proc); - proc->name = (yyvsp[(2) - (7)].s); - proc->body = (yyvsp[(7) - (7)].effect); - if (!failed_flag) - install_proc(proc); - failed_flag = 0; - ;} - break; - - case 14: + { + proc_t *proc = (yyvsp[(4) - (7)].proc); + proc->name = (yyvsp[(2) - (7)].s); + proc->body = (yyvsp[(7) - (7)].effect); + if (!failed_flag) + install_proc (proc); + failed_flag = 0; + ; + } + break; + + case 14: #line 283 "magic-interpreter-parser.y" - { spell_t *spell = (yyvsp[(8) - (8)].spell); - spell->name = (yyvsp[(3) - (8)].s); - spell->invocation = magic_eval_str(&magic_default_env, (yyvsp[(6) - (8)].expr)); - spell->arg = (yyvsp[(4) - (8)].spellarg_def).id; - spell->spellarg_ty = (yyvsp[(4) - (8)].spellarg_def).ty; - spell->flags = (yyvsp[(1) - (8)].i); - if (!failed_flag) - add_spell(spell, (yylsp[(1) - (8)]).first_line); - failed_flag = 0; - ;} - break; - - case 15: + { + spell_t *spell = (yyvsp[(8) - (8)].spell); + spell->name = (yyvsp[(3) - (8)].s); + spell->invocation = + magic_eval_str (&magic_default_env, (yyvsp[(6) - (8)].expr)); + spell->arg = (yyvsp[(4) - (8)].spellarg_def).id; + spell->spellarg_ty = (yyvsp[(4) - (8)].spellarg_def).ty; + spell->flags = (yyvsp[(1) - (8)].i); + if (!failed_flag) + add_spell (spell, (yylsp[(1) - (8)]).first_line); + failed_flag = 0; + ; + } + break; + + case 15: #line 295 "magic-interpreter-parser.y" - { (yyval.i) = 0; ;} - break; + { + (yyval.i) = 0;; + } + break; - case 16: + case 16: #line 297 "magic-interpreter-parser.y" - { if ((yyvsp[(2) - (2)].i) & SPELL_FLAG_LOCAL) - fail((yylsp[(1) - (2)]).first_line, (yylsp[(1) - (2)]).first_column, "`LOCAL' specified more than once"); - (yyval.i) = (yyvsp[(2) - (2)].i) | SPELL_FLAG_LOCAL; - ;} - break; + { + if ((yyvsp[(2) - (2)].i) & SPELL_FLAG_LOCAL) + fail ((yylsp[(1) - (2)]).first_line, + (yylsp[(1) - (2)]).first_column, + "`LOCAL' specified more than once"); + (yyval.i) = (yyvsp[(2) - (2)].i) | SPELL_FLAG_LOCAL; + ; + } + break; - case 17: + case 17: #line 302 "magic-interpreter-parser.y" - { if ((yyvsp[(2) - (2)].i) & SPELL_FLAG_NONMAGIC) - fail((yylsp[(1) - (2)]).first_line, (yylsp[(1) - (2)]).first_column, "`NONMAGIC' specified more than once"); - (yyval.i) = (yyvsp[(2) - (2)].i) | SPELL_FLAG_NONMAGIC; - ;} - break; + { + if ((yyvsp[(2) - (2)].i) & SPELL_FLAG_NONMAGIC) + fail ((yylsp[(1) - (2)]).first_line, + (yylsp[(1) - (2)]).first_column, + "`NONMAGIC' specified more than once"); + (yyval.i) = (yyvsp[(2) - (2)].i) | SPELL_FLAG_NONMAGIC; + ; + } + break; - case 18: + case 18: #line 307 "magic-interpreter-parser.y" - { if ((yyvsp[(2) - (2)].i) & SPELL_FLAG_SILENT) - fail((yylsp[(1) - (2)]).first_line, (yylsp[(1) - (2)]).first_column, "`SILENT' specified more than once"); - (yyval.i) = (yyvsp[(2) - (2)].i) | SPELL_FLAG_SILENT; - ;} - break; + { + if ((yyvsp[(2) - (2)].i) & SPELL_FLAG_SILENT) + fail ((yylsp[(1) - (2)]).first_line, + (yylsp[(1) - (2)]).first_column, + "`SILENT' specified more than once"); + (yyval.i) = (yyvsp[(2) - (2)].i) | SPELL_FLAG_SILENT; + ; + } + break; - case 19: + case 19: #line 314 "magic-interpreter-parser.y" - { (yyval.spellarg_def).ty = SPELLARG_NONE; ;} - break; + { + (yyval.spellarg_def).ty = SPELLARG_NONE;; + } + break; - case 20: + case 20: #line 316 "magic-interpreter-parser.y" - { (yyval.spellarg_def).id = intern_id((yyvsp[(2) - (5)].s)); - (yyval.spellarg_def).ty = (yyvsp[(4) - (5)].i); ;} - break; + { + (yyval.spellarg_def).id = intern_id ((yyvsp[(2) - (5)].s)); + (yyval.spellarg_def).ty = (yyvsp[(4) - (5)].i);; + } + break; - case 21: + case 21: #line 322 "magic-interpreter-parser.y" - { (yyval.i) = SPELLARG_PC; ;} - break; + { + (yyval.i) = SPELLARG_PC;; + } + break; - case 22: + case 22: #line 324 "magic-interpreter-parser.y" - { (yyval.i) = SPELLARG_STRING; ;} - break; + { + (yyval.i) = SPELLARG_STRING;; + } + break; - case 23: + case 23: #line 329 "magic-interpreter-parser.y" - { (yyval.value).ty = TY_DIR; - (yyval.value).v.v_int = (yyvsp[(1) - (1)].i); ;} - break; + { + (yyval.value).ty = TY_DIR; + (yyval.value).v.v_int = (yyvsp[(1) - (1)].i);; + } + break; - case 24: + case 24: #line 332 "magic-interpreter-parser.y" - { (yyval.value).ty = TY_INT; - (yyval.value).v.v_int = (yyvsp[(1) - (1)].i); ;} - break; + { + (yyval.value).ty = TY_INT; + (yyval.value).v.v_int = (yyvsp[(1) - (1)].i);; + } + break; - case 25: + case 25: #line 335 "magic-interpreter-parser.y" - { (yyval.value).ty = TY_STRING; - (yyval.value).v.v_string = (yyvsp[(1) - (1)].s); ;} - break; + { + (yyval.value).ty = TY_STRING; + (yyval.value).v.v_string = (yyvsp[(1) - (1)].s);; + } + break; - case 26: + case 26: #line 341 "magic-interpreter-parser.y" - { (yyval.expr) = magic_new_expr(EXPR_VAL); - (yyval.expr)->e.e_val = (yyvsp[(1) - (1)].value); ;} - break; + { + (yyval.expr) = magic_new_expr (EXPR_VAL); + (yyval.expr)->e.e_val = (yyvsp[(1) - (1)].value);; + } + break; - case 27: + case 27: #line 344 "magic-interpreter-parser.y" - { - val_t *val; - if ((val = find_constant((yyvsp[(1) - (1)].s)))) { - (yyval.expr) = magic_new_expr(EXPR_VAL); - (yyval.expr)->e.e_val = *val; - } else { - (yyval.expr) = magic_new_expr(EXPR_ID); - (yyval.expr)->e.e_id = intern_id((yyvsp[(1) - (1)].s)); - } - ;} - break; - - case 28: + { + val_t *val; + if ((val = find_constant ((yyvsp[(1) - (1)].s)))) + { + (yyval.expr) = magic_new_expr (EXPR_VAL); + (yyval.expr)->e.e_val = *val; + } + else + { + (yyval.expr) = magic_new_expr (EXPR_ID); + (yyval.expr)->e.e_id = intern_id ((yyvsp[(1) - (1)].s)); + } + ; + } + break; + + case 28: #line 355 "magic-interpreter-parser.y" - { (yyval.expr) = magic_new_expr(EXPR_AREA); - (yyval.expr)->e.e_area = (yyvsp[(1) - (1)].area); ;} - break; + { + (yyval.expr) = magic_new_expr (EXPR_AREA); + (yyval.expr)->e.e_area = (yyvsp[(1) - (1)].area);; + } + break; - case 29: + case 29: #line 358 "magic-interpreter-parser.y" - { BIN_EXPR((yyval.expr), "+", (yyvsp[(1) - (3)].expr), (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, (yylsp[(1) - (3)]).first_column); ;} - break; + { + BIN_EXPR ((yyval.expr), "+", (yyvsp[(1) - (3)].expr), + (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, + (yylsp[(1) - (3)]).first_column);; + } + break; - case 30: + case 30: #line 360 "magic-interpreter-parser.y" - { BIN_EXPR((yyval.expr), "-", (yyvsp[(1) - (3)].expr), (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, (yylsp[(1) - (3)]).first_column); ;} - break; + { + BIN_EXPR ((yyval.expr), "-", (yyvsp[(1) - (3)].expr), + (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, + (yylsp[(1) - (3)]).first_column);; + } + break; - case 31: + case 31: #line 362 "magic-interpreter-parser.y" - { BIN_EXPR((yyval.expr), "*", (yyvsp[(1) - (3)].expr), (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, (yylsp[(1) - (3)]).first_column); ;} - break; + { + BIN_EXPR ((yyval.expr), "*", (yyvsp[(1) - (3)].expr), + (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, + (yylsp[(1) - (3)]).first_column);; + } + break; - case 32: + case 32: #line 364 "magic-interpreter-parser.y" - { BIN_EXPR((yyval.expr), "%", (yyvsp[(1) - (3)].expr), (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, (yylsp[(1) - (3)]).first_column); ;} - break; + { + BIN_EXPR ((yyval.expr), "%", (yyvsp[(1) - (3)].expr), + (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, + (yylsp[(1) - (3)]).first_column);; + } + break; - case 33: + case 33: #line 366 "magic-interpreter-parser.y" - { BIN_EXPR((yyval.expr), "/", (yyvsp[(1) - (3)].expr), (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, (yylsp[(1) - (3)]).first_column); ;} - break; + { + BIN_EXPR ((yyval.expr), "/", (yyvsp[(1) - (3)].expr), + (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, + (yylsp[(1) - (3)]).first_column);; + } + break; - case 34: + case 34: #line 368 "magic-interpreter-parser.y" - { BIN_EXPR((yyval.expr), ">", (yyvsp[(3) - (3)].expr), (yyvsp[(1) - (3)].expr), (yylsp[(1) - (3)]).first_line, (yylsp[(1) - (3)]).first_column); ;} - break; + { + BIN_EXPR ((yyval.expr), ">", (yyvsp[(3) - (3)].expr), + (yyvsp[(1) - (3)].expr), (yylsp[(1) - (3)]).first_line, + (yylsp[(1) - (3)]).first_column);; + } + break; - case 35: + case 35: #line 370 "magic-interpreter-parser.y" - { BIN_EXPR((yyval.expr), ">", (yyvsp[(1) - (3)].expr), (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, (yylsp[(1) - (3)]).first_column); ;} - break; + { + BIN_EXPR ((yyval.expr), ">", (yyvsp[(1) - (3)].expr), + (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, + (yylsp[(1) - (3)]).first_column);; + } + break; - case 36: + case 36: #line 372 "magic-interpreter-parser.y" - { BIN_EXPR((yyval.expr), "&", (yyvsp[(1) - (3)].expr), (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, (yylsp[(1) - (3)]).first_column); ;} - break; + { + BIN_EXPR ((yyval.expr), "&", (yyvsp[(1) - (3)].expr), + (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, + (yylsp[(1) - (3)]).first_column);; + } + break; - case 37: + case 37: #line 374 "magic-interpreter-parser.y" - { BIN_EXPR((yyval.expr), "^", (yyvsp[(1) - (3)].expr), (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, (yylsp[(1) - (3)]).first_column); ;} - break; + { + BIN_EXPR ((yyval.expr), "^", (yyvsp[(1) - (3)].expr), + (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, + (yylsp[(1) - (3)]).first_column);; + } + break; - case 38: + case 38: #line 376 "magic-interpreter-parser.y" - { BIN_EXPR((yyval.expr), "|", (yyvsp[(1) - (3)].expr), (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, (yylsp[(1) - (3)]).first_column); ;} - break; + { + BIN_EXPR ((yyval.expr), "|", (yyvsp[(1) - (3)].expr), + (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, + (yylsp[(1) - (3)]).first_column);; + } + break; - case 39: + case 39: #line 378 "magic-interpreter-parser.y" - { BIN_EXPR((yyval.expr), "<<", (yyvsp[(1) - (3)].expr), (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, (yylsp[(1) - (3)]).first_column); ;} - break; + { + BIN_EXPR ((yyval.expr), "<<", (yyvsp[(1) - (3)].expr), + (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, + (yylsp[(1) - (3)]).first_column);; + } + break; - case 40: + case 40: #line 380 "magic-interpreter-parser.y" - { BIN_EXPR((yyval.expr), ">>", (yyvsp[(1) - (3)].expr), (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, (yylsp[(1) - (3)]).first_column); ;} - break; + { + BIN_EXPR ((yyval.expr), ">>", (yyvsp[(1) - (3)].expr), + (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, + (yylsp[(1) - (3)]).first_column);; + } + break; - case 41: + case 41: #line 382 "magic-interpreter-parser.y" - { BIN_EXPR((yyval.expr), ">=", (yyvsp[(3) - (3)].expr), (yyvsp[(1) - (3)].expr), (yylsp[(1) - (3)]).first_line, (yylsp[(1) - (3)]).first_column); ;} - break; + { + BIN_EXPR ((yyval.expr), ">=", (yyvsp[(3) - (3)].expr), + (yyvsp[(1) - (3)].expr), (yylsp[(1) - (3)]).first_line, + (yylsp[(1) - (3)]).first_column);; + } + break; - case 42: + case 42: #line 384 "magic-interpreter-parser.y" - { BIN_EXPR((yyval.expr), ">=", (yyvsp[(1) - (3)].expr), (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, (yylsp[(1) - (3)]).first_column); ;} - break; + { + BIN_EXPR ((yyval.expr), ">=", (yyvsp[(1) - (3)].expr), + (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, + (yylsp[(1) - (3)]).first_column);; + } + break; - case 43: + case 43: #line 386 "magic-interpreter-parser.y" - { BIN_EXPR((yyval.expr), "&&", (yyvsp[(1) - (3)].expr), (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, (yylsp[(1) - (3)]).first_column); ;} - break; + { + BIN_EXPR ((yyval.expr), "&&", (yyvsp[(1) - (3)].expr), + (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, + (yylsp[(1) - (3)]).first_column);; + } + break; - case 44: + case 44: #line 388 "magic-interpreter-parser.y" - { BIN_EXPR((yyval.expr), "||", (yyvsp[(1) - (3)].expr), (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, (yylsp[(1) - (3)]).first_column); ;} - break; + { + BIN_EXPR ((yyval.expr), "||", (yyvsp[(1) - (3)].expr), + (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, + (yylsp[(1) - (3)]).first_column);; + } + break; - case 45: + case 45: #line 390 "magic-interpreter-parser.y" - { BIN_EXPR((yyval.expr), "=", (yyvsp[(1) - (3)].expr), (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, (yylsp[(1) - (3)]).first_column); ;} - break; + { + BIN_EXPR ((yyval.expr), "=", (yyvsp[(1) - (3)].expr), + (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, + (yylsp[(1) - (3)]).first_column);; + } + break; - case 46: + case 46: #line 392 "magic-interpreter-parser.y" - { BIN_EXPR((yyval.expr), "=", (yyvsp[(1) - (3)].expr), (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, (yylsp[(1) - (3)]).first_column); ;} - break; + { + BIN_EXPR ((yyval.expr), "=", (yyvsp[(1) - (3)].expr), + (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, + (yylsp[(1) - (3)]).first_column);; + } + break; - case 47: + case 47: #line 394 "magic-interpreter-parser.y" - { BIN_EXPR((yyval.expr), "=", (yyvsp[(1) - (3)].expr), (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, (yylsp[(1) - (3)]).first_column); - (yyval.expr) = fun_expr("not", 1, &(yyval.expr), (yylsp[(1) - (3)]).first_line, (yylsp[(1) - (3)]).first_column); ;} - break; + { + BIN_EXPR ((yyval.expr), "=", (yyvsp[(1) - (3)].expr), + (yyvsp[(3) - (3)].expr), (yylsp[(1) - (3)]).first_line, + (yylsp[(1) - (3)]).first_column); + (yyval.expr) = + fun_expr ("not", 1, &(yyval.expr), + (yylsp[(1) - (3)]).first_line, + (yylsp[(1) - (3)]).first_column);; + } + break; - case 48: + case 48: #line 397 "magic-interpreter-parser.y" - { (yyval.expr) = fun_expr((yyvsp[(1) - (4)].s), (yyvsp[(3) - (4)].arg_list).args_nr, (yyvsp[(3) - (4)].arg_list).args, (yylsp[(1) - (4)]).first_line, (yylsp[(1) - (4)]).first_column); - if ((yyvsp[(3) - (4)].arg_list).args) - free((yyvsp[(3) - (4)].arg_list).args); - free((yyvsp[(1) - (4)].s)); ;} - break; + { + (yyval.expr) = + fun_expr ((yyvsp[(1) - (4)].s), + (yyvsp[(3) - (4)].arg_list).args_nr, + (yyvsp[(3) - (4)].arg_list).args, + (yylsp[(1) - (4)]).first_line, + (yylsp[(1) - (4)]).first_column); + if ((yyvsp[(3) - (4)].arg_list).args) + free ((yyvsp[(3) - (4)].arg_list).args); + free ((yyvsp[(1) - (4)].s));; + } + break; - case 49: + case 49: #line 402 "magic-interpreter-parser.y" - { (yyval.expr) = (yyvsp[(2) - (3)].expr); ;} - break; + { + (yyval.expr) = (yyvsp[(2) - (3)].expr);; + } + break; - case 50: + case 50: #line 404 "magic-interpreter-parser.y" - { (yyval.expr) = dot_expr((yyvsp[(1) - (3)].expr), intern_id((yyvsp[(3) - (3)].s))); ;} - break; + { + (yyval.expr) = + dot_expr ((yyvsp[(1) - (3)].expr), + intern_id ((yyvsp[(3) - (3)].s)));; + } + break; - case 51: + case 51: #line 408 "magic-interpreter-parser.y" - { (yyval.arg_list).args_nr = 0; ;} - break; + { + (yyval.arg_list).args_nr = 0;; + } + break; - case 52: + case 52: #line 410 "magic-interpreter-parser.y" - { (yyval.arg_list) = (yyvsp[(1) - (1)].arg_list) ;} - break; + { + (yyval.arg_list) = (yyvsp[(1) - (1)].arg_list); + } + break; - case 53: + case 53: #line 415 "magic-interpreter-parser.y" - { (yyval.arg_list).args = aCalloc(sizeof(expr_t *), 1); - (yyval.arg_list).args_nr = 1; - (yyval.arg_list).args[0] = (yyvsp[(1) - (1)].expr); - ;} - break; + { + (yyval.arg_list).args = aCalloc (sizeof (expr_t *), 1); + (yyval.arg_list).args_nr = 1; + (yyval.arg_list).args[0] = (yyvsp[(1) - (1)].expr); + ; + } + break; - case 54: + case 54: #line 420 "magic-interpreter-parser.y" - { (yyval.arg_list).args = realloc((yyval.arg_list).args, (1 + (yyval.arg_list).args_nr) * sizeof(expr_t *)); - (yyval.arg_list).args[(yyval.arg_list).args_nr++] = (yyvsp[(3) - (3)].expr); - ;} - break; + { + (yyval.arg_list).args = + realloc ((yyval.arg_list).args, + (1 + (yyval.arg_list).args_nr) * sizeof (expr_t *)); + (yyval.arg_list).args[(yyval.arg_list).args_nr++] = + (yyvsp[(3) - (3)].expr); + ; + } + break; - case 55: + case 55: #line 427 "magic-interpreter-parser.y" - { (yyval.location).m = (yyvsp[(3) - (8)].expr); (yyval.location).x = (yyvsp[(5) - (8)].expr); (yyval.location).y = (yyvsp[(7) - (8)].expr); ;} - break; + { + (yyval.location).m = (yyvsp[(3) - (8)].expr); + (yyval.location).x = (yyvsp[(5) - (8)].expr); + (yyval.location).y = (yyvsp[(7) - (8)].expr);; + } + break; - case 56: + case 56: #line 431 "magic-interpreter-parser.y" - { (yyval.area).ty = AREA_LOCATION; - (yyval.area).a.a_loc = (yyvsp[(1) - (1)].location); - ;} - break; + { + (yyval.area).ty = AREA_LOCATION; + (yyval.area).a.a_loc = (yyvsp[(1) - (1)].location); + ; + } + break; - case 57: + case 57: #line 435 "magic-interpreter-parser.y" - { (yyval.area).ty = AREA_RECT; - (yyval.area).a.a_rect.loc = (yyvsp[(1) - (8)].location); - (yyval.area).a.a_rect.width = (yyvsp[(5) - (8)].expr); - (yyval.area).a.a_rect.height = (yyvsp[(7) - (8)].expr); - ;} - break; - - case 58: + { + (yyval.area).ty = AREA_RECT; + (yyval.area).a.a_rect.loc = (yyvsp[(1) - (8)].location); + (yyval.area).a.a_rect.width = (yyvsp[(5) - (8)].expr); + (yyval.area).a.a_rect.height = (yyvsp[(7) - (8)].expr); + ; + } + break; + + case 58: #line 441 "magic-interpreter-parser.y" - { (yyval.area).ty = AREA_BAR; - (yyval.area).a.a_bar.loc = (yyvsp[(1) - (9)].location); - (yyval.area).a.a_bar.width = (yyvsp[(6) - (9)].expr); - (yyval.area).a.a_bar.depth = (yyvsp[(8) - (9)].expr); - (yyval.area).a.a_bar.dir = (yyvsp[(3) - (9)].expr); - ;} - break; - - case 59: + { + (yyval.area).ty = AREA_BAR; + (yyval.area).a.a_bar.loc = (yyvsp[(1) - (9)].location); + (yyval.area).a.a_bar.width = (yyvsp[(6) - (9)].expr); + (yyval.area).a.a_bar.depth = (yyvsp[(8) - (9)].expr); + (yyval.area).a.a_bar.dir = (yyvsp[(3) - (9)].expr); + ; + } + break; + + case 59: #line 451 "magic-interpreter-parser.y" - { (yyval.spell) = new_spell((yyvsp[(1) - (1)].spellguard)); ;} - break; + { + (yyval.spell) = new_spell ((yyvsp[(1) - (1)].spellguard));; + } + break; - case 60: + case 60: #line 453 "magic-interpreter-parser.y" - { (yyval.spell) = new_spell((yyvsp[(4) - (4)].spellguard)); - (yyval.spell)->letdefs_nr = (yyvsp[(2) - (4)].letdefs).letdefs_nr; - (yyval.spell)->letdefs = (yyvsp[(2) - (4)].letdefs).letdefs; - (yyval.spell)->spellguard = (yyvsp[(4) - (4)].spellguard); - ;} - break; - - case 61: + { + (yyval.spell) = new_spell ((yyvsp[(4) - (4)].spellguard)); + (yyval.spell)->letdefs_nr = (yyvsp[(2) - (4)].letdefs).letdefs_nr; + (yyval.spell)->letdefs = (yyvsp[(2) - (4)].letdefs).letdefs; + (yyval.spell)->spellguard = (yyvsp[(4) - (4)].spellguard); + ; + } + break; + + case 61: #line 462 "magic-interpreter-parser.y" - { (yyval.letdefs).letdefs_nr = 0; - (yyval.letdefs).letdefs = (letdef_t *) malloc(1); - ;} - break; + { + (yyval.letdefs).letdefs_nr = 0; + (yyval.letdefs).letdefs = (letdef_t *) malloc (1); + ; + } + break; - case 62: + case 62: #line 466 "magic-interpreter-parser.y" - { (yyval.letdefs) = (yyvsp[(1) - (3)].letdefs); - (yyval.letdefs).letdefs_nr++; - (yyval.letdefs).letdefs = realloc((yyval.letdefs).letdefs, sizeof(letdef_t) * (yyval.letdefs).letdefs_nr); - (yyval.letdefs).letdefs[(yyvsp[(1) - (3)].letdefs).letdefs_nr] = (yyvsp[(2) - (3)].vardef); - ;} - break; - - case 63: + { + (yyval.letdefs) = (yyvsp[(1) - (3)].letdefs); + (yyval.letdefs).letdefs_nr++; + (yyval.letdefs).letdefs = + realloc ((yyval.letdefs).letdefs, + sizeof (letdef_t) * (yyval.letdefs).letdefs_nr); + (yyval.letdefs).letdefs[(yyvsp[(1) - (3)].letdefs).letdefs_nr] = + (yyvsp[(2) - (3)].vardef); + ; + } + break; + + case 63: #line 475 "magic-interpreter-parser.y" - { - if (find_constant((yyvsp[(1) - (3)].s))) { - fail((yylsp[(1) - (3)]).first_line, (yylsp[(1) - (3)]).first_column, "Attempt to re-define constant `%s' as LET-bound variable.\n", (yyvsp[(1) - (3)].s)); - free((yyvsp[(1) - (3)].s)); - } else { - (yyval.vardef).id = intern_id((yyvsp[(1) - (3)].s)); - (yyval.vardef).expr = (yyvsp[(3) - (3)].expr); - } - ;} - break; - - case 64: + { + if (find_constant ((yyvsp[(1) - (3)].s))) + { + fail ((yylsp[(1) - (3)]).first_line, + (yylsp[(1) - (3)]).first_column, + "Attempt to re-define constant `%s' as LET-bound variable.\n", + (yyvsp[(1) - (3)].s)); + free ((yyvsp[(1) - (3)].s)); + } + else + { + (yyval.vardef).id = intern_id ((yyvsp[(1) - (3)].s)); + (yyval.vardef).expr = (yyvsp[(3) - (3)].expr); + } + ; + } + break; + + case 64: #line 488 "magic-interpreter-parser.y" - { (yyval.spellguard) = (yyvsp[(1) - (1)].spellguard); ;} - break; + { + (yyval.spellguard) = (yyvsp[(1) - (1)].spellguard);; + } + break; - case 65: + case 65: #line 490 "magic-interpreter-parser.y" - { spellguard_t *sg = new_spellguard(SPELLGUARD_CHOICE); - sg->next = (yyvsp[(1) - (3)].spellguard); - sg->s.s_alt = (yyvsp[(3) - (3)].spellguard); - (yyval.spellguard) = sg; - ;} - break; - - case 66: + { + spellguard_t *sg = new_spellguard (SPELLGUARD_CHOICE); + sg->next = (yyvsp[(1) - (3)].spellguard); + sg->s.s_alt = (yyvsp[(3) - (3)].spellguard); + (yyval.spellguard) = sg; + ; + } + break; + + case 66: #line 499 "magic-interpreter-parser.y" - { (yyval.spellguard) = spellguard_implication((yyvsp[(1) - (3)].spellguard), (yyvsp[(3) - (3)].spellguard)); ;} - break; + { + (yyval.spellguard) = + spellguard_implication ((yyvsp[(1) - (3)].spellguard), + (yyvsp[(3) - (3)].spellguard));; + } + break; - case 67: + case 67: #line 501 "magic-interpreter-parser.y" - { (yyval.spellguard) = (yyvsp[(2) - (3)].spellguard); ;} - break; + { + (yyval.spellguard) = (yyvsp[(2) - (3)].spellguard);; + } + break; - case 68: + case 68: #line 503 "magic-interpreter-parser.y" - { spellguard_t *sg = new_spellguard(SPELLGUARD_EFFECT); - sg->s.s_effect.effect = (yyvsp[(2) - (4)].effect); - sg->s.s_effect.at_trigger = (yyvsp[(3) - (4)].effect); - sg->s.s_effect.at_end = (yyvsp[(4) - (4)].effect); - (yyval.spellguard) = sg; - ;} - break; - - case 69: + { + spellguard_t *sg = new_spellguard (SPELLGUARD_EFFECT); + sg->s.s_effect.effect = (yyvsp[(2) - (4)].effect); + sg->s.s_effect.at_trigger = (yyvsp[(3) - (4)].effect); + sg->s.s_effect.at_end = (yyvsp[(4) - (4)].effect); + (yyval.spellguard) = sg; + ; + } + break; + + case 69: #line 513 "magic-interpreter-parser.y" - { (yyval.effect) = NULL; ;} - break; + { + (yyval.effect) = NULL;; + } + break; - case 70: + case 70: #line 515 "magic-interpreter-parser.y" - { (yyval.effect) = (yyvsp[(2) - (2)].effect); ;} - break; + { + (yyval.effect) = (yyvsp[(2) - (2)].effect);; + } + break; - case 71: + case 71: #line 520 "magic-interpreter-parser.y" - { (yyval.effect) = NULL; ;} - break; + { + (yyval.effect) = NULL;; + } + break; - case 72: + case 72: #line 522 "magic-interpreter-parser.y" - { (yyval.effect) = (yyvsp[(2) - (2)].effect); ;} - break; + { + (yyval.effect) = (yyvsp[(2) - (2)].effect);; + } + break; - case 73: + case 73: #line 527 "magic-interpreter-parser.y" - { (yyval.spellguard) = (yyvsp[(1) - (1)].spellguard); ;} - break; + { + (yyval.spellguard) = (yyvsp[(1) - (1)].spellguard);; + } + break; - case 74: + case 74: #line 529 "magic-interpreter-parser.y" - { spellguard_t *sg = new_spellguard(SPELLGUARD_CHOICE); - sg->next = (yyvsp[(1) - (3)].spellguard); - sg->s.s_alt = (yyvsp[(3) - (3)].spellguard); - (yyval.spellguard) = sg; - ;} - break; - - case 75: + { + spellguard_t *sg = new_spellguard (SPELLGUARD_CHOICE); + sg->next = (yyvsp[(1) - (3)].spellguard); + sg->s.s_alt = (yyvsp[(3) - (3)].spellguard); + (yyval.spellguard) = sg; + ; + } + break; + + case 75: #line 535 "magic-interpreter-parser.y" - { (yyval.spellguard) = (yyvsp[(2) - (3)].spellguard); ;} - break; + { + (yyval.spellguard) = (yyvsp[(2) - (3)].spellguard);; + } + break; - case 76: + case 76: #line 540 "magic-interpreter-parser.y" - { (yyval.spellguard) = (yyvsp[(1) - (1)].spellguard); ;} - break; + { + (yyval.spellguard) = (yyvsp[(1) - (1)].spellguard);; + } + break; - case 77: + case 77: #line 542 "magic-interpreter-parser.y" - { (yyval.spellguard) = spellguard_implication ((yyvsp[(1) - (3)].spellguard), (yyvsp[(3) - (3)].spellguard)); ;} - break; + { + (yyval.spellguard) = + spellguard_implication ((yyvsp[(1) - (3)].spellguard), + (yyvsp[(3) - (3)].spellguard));; + } + break; - case 78: + case 78: #line 547 "magic-interpreter-parser.y" - { (yyval.spellguard) = new_spellguard(SPELLGUARD_CONDITION); - (yyval.spellguard)->s.s_condition = (yyvsp[(2) - (2)].expr); - ;} - break; + { + (yyval.spellguard) = new_spellguard (SPELLGUARD_CONDITION); + (yyval.spellguard)->s.s_condition = (yyvsp[(2) - (2)].expr); + ; + } + break; - case 79: + case 79: #line 551 "magic-interpreter-parser.y" - { (yyval.spellguard) = new_spellguard(SPELLGUARD_CATALYSTS); - (yyval.spellguard)->s.s_catalysts = (yyvsp[(2) - (2)].components); - ;} - break; + { + (yyval.spellguard) = new_spellguard (SPELLGUARD_CATALYSTS); + (yyval.spellguard)->s.s_catalysts = (yyvsp[(2) - (2)].components); + ; + } + break; - case 80: + case 80: #line 555 "magic-interpreter-parser.y" - { (yyval.spellguard) = new_spellguard(SPELLGUARD_COMPONENTS); - (yyval.spellguard)->s.s_components = (yyvsp[(2) - (2)].components); - ;} - break; + { + (yyval.spellguard) = new_spellguard (SPELLGUARD_COMPONENTS); + (yyval.spellguard)->s.s_components = + (yyvsp[(2) - (2)].components); + ; + } + break; - case 81: + case 81: #line 559 "magic-interpreter-parser.y" - { (yyval.spellguard) = new_spellguard(SPELLGUARD_MANA); - (yyval.spellguard)->s.s_mana = (yyvsp[(2) - (2)].expr); - ;} - break; + { + (yyval.spellguard) = new_spellguard (SPELLGUARD_MANA); + (yyval.spellguard)->s.s_mana = (yyvsp[(2) - (2)].expr); + ; + } + break; - case 82: + case 82: #line 563 "magic-interpreter-parser.y" - { (yyval.spellguard) = new_spellguard(SPELLGUARD_CASTTIME); - (yyval.spellguard)->s.s_casttime = (yyvsp[(2) - (2)].expr); - ;} - break; + { + (yyval.spellguard) = new_spellguard (SPELLGUARD_CASTTIME); + (yyval.spellguard)->s.s_casttime = (yyvsp[(2) - (2)].expr); + ; + } + break; - case 83: + case 83: #line 570 "magic-interpreter-parser.y" - { (yyval.components) = (yyvsp[(2) - (3)].components); ;} - break; + { + (yyval.components) = (yyvsp[(2) - (3)].components);; + } + break; - case 84: + case 84: #line 575 "magic-interpreter-parser.y" - { (yyval.components) = NULL; - magic_add_component(&(yyval.components), (yyvsp[(1) - (1)].component).id, (yyvsp[(1) - (1)].component).count); - ;} - break; + { + (yyval.components) = NULL; + magic_add_component (&(yyval.components), + (yyvsp[(1) - (1)].component).id, + (yyvsp[(1) - (1)].component).count); + ; + } + break; - case 85: + case 85: #line 579 "magic-interpreter-parser.y" - { (yyval.components) = (yyvsp[(1) - (3)].components); - magic_add_component(&(yyval.components), (yyvsp[(3) - (3)].component).id, (yyvsp[(3) - (3)].component).count); - ;} - break; + { + (yyval.components) = (yyvsp[(1) - (3)].components); + magic_add_component (&(yyval.components), + (yyvsp[(3) - (3)].component).id, + (yyvsp[(3) - (3)].component).count); + ; + } + break; - case 86: + case 86: #line 586 "magic-interpreter-parser.y" - { (yyval.component).id = (yyvsp[(3) - (3)].i); (yyval.component).count = (yyvsp[(1) - (3)].i); ;} - break; + { + (yyval.component).id = (yyvsp[(3) - (3)].i); + (yyval.component).count = (yyvsp[(1) - (3)].i);; + } + break; - case 87: + case 87: #line 588 "magic-interpreter-parser.y" - { (yyval.component).id = (yyvsp[(1) - (1)].i); (yyval.component).count = 1; ;} - break; + { + (yyval.component).id = (yyvsp[(1) - (1)].i); + (yyval.component).count = 1;; + } + break; - case 88: + case 88: #line 593 "magic-interpreter-parser.y" - { struct item_data *item = itemdb_searchname((yyvsp[(1) - (1)].s)); - if (!item) { - fail ((yylsp[(1) - (1)]).first_line, (yylsp[(1) - (1)]).first_column, "Unknown item `%s'\n", (yyvsp[(1) - (1)].s)); - (yyval.i) = 0; - } else - (yyval.i) = item->nameid; - free ((yyvsp[(1) - (1)].s)); - ;} - break; - - case 89: + { + struct item_data *item = itemdb_searchname ((yyvsp[(1) - (1)].s)); + if (!item) + { + fail ((yylsp[(1) - (1)]).first_line, + (yylsp[(1) - (1)]).first_column, "Unknown item `%s'\n", + (yyvsp[(1) - (1)].s)); + (yyval.i) = 0; + } + else + (yyval.i) = item->nameid; + free ((yyvsp[(1) - (1)].s)); + ; + } + break; + + case 89: #line 602 "magic-interpreter-parser.y" - { (yyval.i) = (yyvsp[(1) - (1)].i); ;} - break; + { + (yyval.i) = (yyvsp[(1) - (1)].i);; + } + break; - case 90: + case 90: #line 607 "magic-interpreter-parser.y" - { (yyval.i) = FOREACH_FILTER_PC; ;} - break; + { + (yyval.i) = FOREACH_FILTER_PC;; + } + break; - case 91: + case 91: #line 609 "magic-interpreter-parser.y" - { (yyval.i) = FOREACH_FILTER_MOB; ;} - break; + { + (yyval.i) = FOREACH_FILTER_MOB;; + } + break; - case 92: + case 92: #line 611 "magic-interpreter-parser.y" - { (yyval.i) = FOREACH_FILTER_ENTITY; ;} - break; + { + (yyval.i) = FOREACH_FILTER_ENTITY;; + } + break; - case 93: + case 93: #line 613 "magic-interpreter-parser.y" - { (yyval.i) = FOREACH_FILTER_SPELL; ;} - break; + { + (yyval.i) = FOREACH_FILTER_SPELL;; + } + break; - case 94: + case 94: #line 615 "magic-interpreter-parser.y" - { (yyval.i) = FOREACH_FILTER_TARGET; ;} - break; + { + (yyval.i) = FOREACH_FILTER_TARGET;; + } + break; - case 95: + case 95: #line 617 "magic-interpreter-parser.y" - { (yyval.i) = FOREACH_FILTER_NPC; ;} - break; + { + (yyval.i) = FOREACH_FILTER_NPC;; + } + break; - case 96: + case 96: #line 622 "magic-interpreter-parser.y" - { (yyval.effect) = (yyvsp[(2) - (3)].effect); ;} - break; + { + (yyval.effect) = (yyvsp[(2) - (3)].effect);; + } + break; - case 97: + case 97: #line 624 "magic-interpreter-parser.y" - { (yyval.effect) = new_effect(EFFECT_SKIP); ;} - break; + { + (yyval.effect) = new_effect (EFFECT_SKIP);; + } + break; - case 98: + case 98: #line 626 "magic-interpreter-parser.y" - { (yyval.effect) = new_effect(EFFECT_ABORT); ;} - break; + { + (yyval.effect) = new_effect (EFFECT_ABORT);; + } + break; - case 99: + case 99: #line 628 "magic-interpreter-parser.y" - { (yyval.effect) = new_effect(EFFECT_END); ;} - break; + { + (yyval.effect) = new_effect (EFFECT_END);; + } + break; - case 100: + case 100: #line 630 "magic-interpreter-parser.y" - { (yyval.effect) = new_effect(EFFECT_BREAK); ;} - break; + { + (yyval.effect) = new_effect (EFFECT_BREAK);; + } + break; - case 101: + case 101: #line 632 "magic-interpreter-parser.y" - { - if (find_constant((yyvsp[(1) - (4)].s))) { - fail((yylsp[(1) - (4)]).first_line, (yylsp[(1) - (4)]).first_column, "Attempt to re-define constant `%s' in assignment.", (yyvsp[(1) - (4)].s)); - free((yyvsp[(1) - (4)].s)); - } else { - (yyval.effect) = new_effect(EFFECT_ASSIGN); - (yyval.effect)->e.e_assign.id = intern_id((yyvsp[(1) - (4)].s)); - (yyval.effect)->e.e_assign.expr = (yyvsp[(3) - (4)].expr); - } - ;} - break; - - case 102: + { + if (find_constant ((yyvsp[(1) - (4)].s))) + { + fail ((yylsp[(1) - (4)]).first_line, + (yylsp[(1) - (4)]).first_column, + "Attempt to re-define constant `%s' in assignment.", + (yyvsp[(1) - (4)].s)); + free ((yyvsp[(1) - (4)].s)); + } + else + { + (yyval.effect) = new_effect (EFFECT_ASSIGN); + (yyval.effect)->e.e_assign.id = + intern_id ((yyvsp[(1) - (4)].s)); + (yyval.effect)->e.e_assign.expr = (yyvsp[(3) - (4)].expr); + } + ; + } + break; + + case 102: #line 643 "magic-interpreter-parser.y" - { (yyval.effect) = new_effect(EFFECT_FOREACH); - (yyval.effect)->e.e_foreach.id = intern_id((yyvsp[(3) - (7)].s)); - (yyval.effect)->e.e_foreach.area = (yyvsp[(5) - (7)].expr); - (yyval.effect)->e.e_foreach.body = (yyvsp[(7) - (7)].effect); - (yyval.effect)->e.e_foreach.filter = (yyvsp[(2) - (7)].i); - ;} - break; - - case 103: + { + (yyval.effect) = new_effect (EFFECT_FOREACH); + (yyval.effect)->e.e_foreach.id = intern_id ((yyvsp[(3) - (7)].s)); + (yyval.effect)->e.e_foreach.area = (yyvsp[(5) - (7)].expr); + (yyval.effect)->e.e_foreach.body = (yyvsp[(7) - (7)].effect); + (yyval.effect)->e.e_foreach.filter = (yyvsp[(2) - (7)].i); + ; + } + break; + + case 103: #line 650 "magic-interpreter-parser.y" - { (yyval.effect) = new_effect(EFFECT_FOR); - (yyval.effect)->e.e_for.id = intern_id((yyvsp[(2) - (8)].s)); - (yyval.effect)->e.e_for.start = (yyvsp[(4) - (8)].expr); - (yyval.effect)->e.e_for.stop = (yyvsp[(6) - (8)].expr); - (yyval.effect)->e.e_for.body = (yyvsp[(8) - (8)].effect); - ;} - break; - - case 104: + { + (yyval.effect) = new_effect (EFFECT_FOR); + (yyval.effect)->e.e_for.id = intern_id ((yyvsp[(2) - (8)].s)); + (yyval.effect)->e.e_for.start = (yyvsp[(4) - (8)].expr); + (yyval.effect)->e.e_for.stop = (yyvsp[(6) - (8)].expr); + (yyval.effect)->e.e_for.body = (yyvsp[(8) - (8)].effect); + ; + } + break; + + case 104: #line 657 "magic-interpreter-parser.y" - { (yyval.effect) = new_effect(EFFECT_IF); - (yyval.effect)->e.e_if.cond = (yyvsp[(2) - (6)].expr); - (yyval.effect)->e.e_if.true_branch = (yyvsp[(4) - (6)].effect); - (yyval.effect)->e.e_if.false_branch = (yyvsp[(6) - (6)].effect); - ;} - break; - - case 105: + { + (yyval.effect) = new_effect (EFFECT_IF); + (yyval.effect)->e.e_if.cond = (yyvsp[(2) - (6)].expr); + (yyval.effect)->e.e_if.true_branch = (yyvsp[(4) - (6)].effect); + (yyval.effect)->e.e_if.false_branch = (yyvsp[(6) - (6)].effect); + ; + } + break; + + case 105: #line 663 "magic-interpreter-parser.y" - { (yyval.effect) = new_effect(EFFECT_IF); - (yyval.effect)->e.e_if.cond = (yyvsp[(2) - (4)].expr); - (yyval.effect)->e.e_if.true_branch = (yyvsp[(4) - (4)].effect); - (yyval.effect)->e.e_if.false_branch = new_effect(EFFECT_SKIP); - ;} - break; - - case 106: + { + (yyval.effect) = new_effect (EFFECT_IF); + (yyval.effect)->e.e_if.cond = (yyvsp[(2) - (4)].expr); + (yyval.effect)->e.e_if.true_branch = (yyvsp[(4) - (4)].effect); + (yyval.effect)->e.e_if.false_branch = new_effect (EFFECT_SKIP); + ; + } + break; + + case 106: #line 669 "magic-interpreter-parser.y" - { (yyval.effect) = new_effect(EFFECT_SLEEP); - (yyval.effect)->e.e_sleep = (yyvsp[(2) - (3)].expr); - ;} - break; + { + (yyval.effect) = new_effect (EFFECT_SLEEP); + (yyval.effect)->e.e_sleep = (yyvsp[(2) - (3)].expr); + ; + } + break; - case 107: + case 107: #line 673 "magic-interpreter-parser.y" - { (yyval.effect) = op_effect((yyvsp[(1) - (5)].s), (yyvsp[(3) - (5)].arg_list).args_nr, (yyvsp[(3) - (5)].arg_list).args, (yylsp[(1) - (5)]).first_line, (yylsp[(1) - (5)]).first_column); - free((yyvsp[(1) - (5)].s)); - ;} - break; + { + (yyval.effect) = + op_effect ((yyvsp[(1) - (5)].s), + (yyvsp[(3) - (5)].arg_list).args_nr, + (yyvsp[(3) - (5)].arg_list).args, + (yylsp[(1) - (5)]).first_line, + (yylsp[(1) - (5)]).first_column); + free ((yyvsp[(1) - (5)].s)); + ; + } + break; - case 108: + case 108: #line 677 "magic-interpreter-parser.y" - { (yyval.effect) = new_effect(EFFECT_SCRIPT); - (yyval.effect)->e.e_script = parse_script((unsigned char *) (yyvsp[(1) - (1)].s), (yylsp[(1) - (1)]).first_line); - free((yyvsp[(1) - (1)].s)); - if ((yyval.effect)->e.e_script == NULL) - fail((yylsp[(1) - (1)]).first_line, (yylsp[(1) - (1)]).first_column, "Failed to compile script\n"); - ;} - break; - - case 109: + { + (yyval.effect) = new_effect (EFFECT_SCRIPT); + (yyval.effect)->e.e_script = + parse_script ((unsigned char *) (yyvsp[(1) - (1)].s), + (yylsp[(1) - (1)]).first_line); + free ((yyvsp[(1) - (1)].s)); + if ((yyval.effect)->e.e_script == NULL) + fail ((yylsp[(1) - (1)]).first_line, + (yylsp[(1) - (1)]).first_column, + "Failed to compile script\n"); + ; + } + break; + + case 109: #line 684 "magic-interpreter-parser.y" - { (yyval.effect) = call_proc((yyvsp[(2) - (6)].s), (yyvsp[(4) - (6)].arg_list).args_nr, (yyvsp[(4) - (6)].arg_list).args, (yylsp[(1) - (6)]).first_line, (yylsp[(1) - (6)]).first_column); - free((yyvsp[(2) - (6)].s)); - ;} - break; + { + (yyval.effect) = + call_proc ((yyvsp[(2) - (6)].s), + (yyvsp[(4) - (6)].arg_list).args_nr, + (yyvsp[(4) - (6)].arg_list).args, + (yylsp[(1) - (6)]).first_line, + (yylsp[(1) - (6)]).first_column); + free ((yyvsp[(2) - (6)].s)); + ; + } + break; - case 110: + case 110: #line 690 "magic-interpreter-parser.y" - { (yyval.effect) = new_effect(EFFECT_SKIP); ;} - break; + { + (yyval.effect) = new_effect (EFFECT_SKIP);; + } + break; - case 111: + case 111: #line 692 "magic-interpreter-parser.y" - { (yyval.effect) = set_effect_continuation((yyvsp[(1) - (3)].effect), (yyvsp[(3) - (3)].effect)); ;} - break; - + { + (yyval.effect) = + set_effect_continuation ((yyvsp[(1) - (3)].effect), + (yyvsp[(3) - (3)].effect));; + } + break; /* Line 1267 of yacc.c. */ #line 2645 "magic-interpreter-parser.c" - default: break; + default: + break; } - YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc); - - YYPOPSTACK (yylen); - yylen = 0; - YY_STACK_PRINT (yyss, yyssp); + YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc); - *++yyvsp = yyval; - *++yylsp = yyloc; + YYPOPSTACK (yylen); + yylen = 0; + YY_STACK_PRINT (yyss, yyssp); - /* 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. */ + *++yyvsp = yyval; + *++yylsp = yyloc; - yyn = yyr1[yyn]; + /* 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. */ - yystate = yypgoto[yyn - YYNTOKENS] + *yyssp; - if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp) - yystate = yytable[yystate]; - else - yystate = yydefgoto[yyn - YYNTOKENS]; + yyn = yyr1[yyn]; - goto yynewstate; + yystate = yypgoto[yyn - YYNTOKENS] + *yyssp; + if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp) + yystate = yytable[yystate]; + else + yystate = yydefgoto[yyn - YYNTOKENS]; + goto yynewstate; /*------------------------------------. | yyerrlab -- here on detecting error | `------------------------------------*/ -yyerrlab: - /* If not already recovering from an error, report this error. */ - if (!yyerrstatus) + yyerrlab: + /* If not already recovering from an error, report this error. */ + if (!yyerrstatus) { - ++yynerrs; + ++yynerrs; #if ! YYERROR_VERBOSE - yyerror (YY_("syntax error")); + yyerror (YY_ ("syntax error")); #else - { - 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; - } - } + { + 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; + } + } #endif } - yyerror_range[0] = yylloc; + yyerror_range[0] = yylloc; - if (yyerrstatus == 3) + if (yyerrstatus == 3) { - /* If just tried and failed to reuse look-ahead token after an - error, discard it. */ - - if (yychar <= YYEOF) - { - /* Return failure if at end of input. */ - if (yychar == YYEOF) - YYABORT; - } - else - { - yydestruct ("Error: discarding", - yytoken, &yylval, &yylloc); - yychar = YYEMPTY; - } + /* If just tried and failed to reuse look-ahead token after an + * error, discard it. */ + + if (yychar <= YYEOF) + { + /* Return failure if at end of input. */ + if (yychar == YYEOF) + YYABORT; + } + else + { + yydestruct ("Error: discarding", yytoken, &yylval, &yylloc); + yychar = YYEMPTY; + } } - /* Else will try to reuse look-ahead token after shifting the error - token. */ - goto yyerrlab1; - + /* Else will try to reuse look-ahead token after shifting the error + * token. */ + goto yyerrlab1; /*---------------------------------------------------. | yyerrorlab -- error raised explicitly by YYERROR. | `---------------------------------------------------*/ -yyerrorlab: - - /* Pacify compilers like GCC when the user code never invokes - YYERROR and the label yyerrorlab therefore never appears in user - code. */ - if (/*CONSTCOND*/ 0) - goto yyerrorlab; - - yyerror_range[0] = yylsp[1-yylen]; - /* Do not reclaim the symbols of the rule which action triggered - this YYERROR. */ - YYPOPSTACK (yylen); - yylen = 0; - YY_STACK_PRINT (yyss, yyssp); - yystate = *yyssp; - goto yyerrlab1; - + yyerrorlab: + + /* Pacify compilers like GCC when the user code never invokes + * YYERROR and the label yyerrorlab therefore never appears in user + * code. */ + if ( /*CONSTCOND*/ 0) + goto yyerrorlab; + + yyerror_range[0] = yylsp[1 - yylen]; + /* Do not reclaim the symbols of the rule which action triggered + * this YYERROR. */ + YYPOPSTACK (yylen); + yylen = 0; + YY_STACK_PRINT (yyss, yyssp); + yystate = *yyssp; + goto yyerrlab1; /*-------------------------------------------------------------. | yyerrlab1 -- common code for both syntax error and YYERROR. | `-------------------------------------------------------------*/ -yyerrlab1: - yyerrstatus = 3; /* Each real token shifted decrements this. */ + yyerrlab1: + yyerrstatus = 3; /* Each real token shifted decrements this. */ - for (;;) + 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; - } - } - - /* Pop the current state because it cannot handle the error token. */ - if (yyssp == yyss) - YYABORT; - - yyerror_range[0] = *yylsp; - yydestruct ("Error: popping", - yystos[yystate], yyvsp, yylsp); - YYPOPSTACK (1); - yystate = *yyssp; - YY_STACK_PRINT (yyss, yyssp); - } + 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 (yyn == YYFINAL) - YYACCEPT; + /* Pop the current state because it cannot handle the error token. */ + if (yyssp == yyss) + YYABORT; + + yyerror_range[0] = *yylsp; + yydestruct ("Error: popping", yystos[yystate], yyvsp, yylsp); + YYPOPSTACK (1); + yystate = *yyssp; + YY_STACK_PRINT (yyss, yyssp); + } - *++yyvsp = yylval; + if (yyn == YYFINAL) + YYACCEPT; - yyerror_range[1] = yylloc; - /* Using YYLLOC is tempting, but would change the location of - the look-ahead. YYLOC is available though. */ - YYLLOC_DEFAULT (yyloc, (yyerror_range - 1), 2); - *++yylsp = yyloc; + *++yyvsp = yylval; - /* Shift the error token. */ - YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp); + yyerror_range[1] = yylloc; + /* Using YYLLOC is tempting, but would change the location of + * the look-ahead. YYLOC is available though. */ + YYLLOC_DEFAULT (yyloc, (yyerror_range - 1), 2); + *++yylsp = yyloc; - yystate = yyn; - goto yynewstate; + /* Shift the error token. */ + YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp); + yystate = yyn; + goto yynewstate; /*-------------------------------------. | yyacceptlab -- YYACCEPT comes here. | `-------------------------------------*/ -yyacceptlab: - yyresult = 0; - goto yyreturn; + yyacceptlab: + yyresult = 0; + goto yyreturn; /*-----------------------------------. | yyabortlab -- YYABORT comes here. | `-----------------------------------*/ -yyabortlab: - yyresult = 1; - goto yyreturn; + yyabortlab: + yyresult = 1; + goto yyreturn; #ifndef yyoverflow /*-------------------------------------------------. | yyexhaustedlab -- memory exhaustion comes here. | `-------------------------------------------------*/ -yyexhaustedlab: - yyerror (YY_("memory exhausted")); - yyresult = 2; - /* Fall through. */ + yyexhaustedlab: + yyerror (YY_ ("memory exhausted")); + yyresult = 2; + /* Fall through. */ #endif -yyreturn: - if (yychar != YYEOF && yychar != YYEMPTY) - yydestruct ("Cleanup: discarding lookahead", - yytoken, &yylval, &yylloc); - /* Do not reclaim the symbols of the rule which action triggered - this YYABORT or YYACCEPT. */ - YYPOPSTACK (yylen); - YY_STACK_PRINT (yyss, yyssp); - while (yyssp != yyss) + yyreturn: + if (yychar != YYEOF && yychar != YYEMPTY) + yydestruct ("Cleanup: discarding lookahead", + yytoken, &yylval, &yylloc); + /* Do not reclaim the symbols of the rule which action triggered + * this YYABORT or YYACCEPT. */ + YYPOPSTACK (yylen); + YY_STACK_PRINT (yyss, yyssp); + while (yyssp != yyss) { - yydestruct ("Cleanup: popping", - yystos[*yyssp], yyvsp, yylsp); - YYPOPSTACK (1); + yydestruct ("Cleanup: popping", yystos[*yyssp], yyvsp, yylsp); + YYPOPSTACK (1); } #ifndef yyoverflow - if (yyss != yyssa) - YYSTACK_FREE (yyss); + if (yyss != yyssa) + YYSTACK_FREE (yyss); #endif #if YYERROR_VERBOSE - if (yymsg != yymsgbuf) - YYSTACK_FREE (yymsg); + if (yymsg != yymsgbuf) + YYSTACK_FREE (yymsg); #endif - /* Make sure YYID is used. */ - return YYID (yyresult); + /* Make sure YYID is used. */ + return YYID (yyresult); } - #line 696 "magic-interpreter-parser.y" - /* We do incremental realloc here to store our results. Since this happens only once * during startup for a relatively manageable set of configs, it should be fine. */ -static int -intern_id(char *id_name) +static int intern_id (char *id_name) { - int i; + int i; - for (i = 0; i < magic_conf.vars_nr; i++) - if (!strcmp(id_name, magic_conf.var_name[i])) { - free(id_name); - return i; - } + for (i = 0; i < magic_conf.vars_nr; i++) + if (!strcmp (id_name, magic_conf.var_name[i])) + { + free (id_name); + return i; + } - /* Must add new */ - i = magic_conf.vars_nr++; - magic_conf.var_name = realloc(magic_conf.var_name, magic_conf.vars_nr * sizeof(char *)); - magic_conf.var_name[i] = id_name; - magic_conf.vars = realloc(magic_conf.vars, magic_conf.vars_nr * sizeof(val_t)); - magic_conf.vars[i].ty = TY_UNDEF; + /* Must add new */ + i = magic_conf.vars_nr++; + magic_conf.var_name = + realloc (magic_conf.var_name, magic_conf.vars_nr * sizeof (char *)); + magic_conf.var_name[i] = id_name; + magic_conf.vars = + realloc (magic_conf.vars, magic_conf.vars_nr * sizeof (val_t)); + magic_conf.vars[i].ty = TY_UNDEF; - return i; + return i; } -static void -add_spell(spell_t *spell, int line_nr) +static void add_spell (spell_t * spell, int line_nr) { - int index = magic_conf.spells_nr; - int i; + int index = magic_conf.spells_nr; + int i; - for (i = 0; i < index; i++) { - if (!strcmp(magic_conf.spells[i]->name, spell->name)) { - fail(line_nr, 0, "Attempt to redefine spell `%s'\n", spell->name); - return; - } - if (!strcmp(magic_conf.spells[i]->invocation, spell->invocation)) { - fail(line_nr, 0, "Attempt to redefine spell invocation `%s' between spells `%s' and `%s'\n", - spell->invocation, magic_conf.spells[i]->name, spell->name); - return; - } + for (i = 0; i < index; i++) + { + if (!strcmp (magic_conf.spells[i]->name, spell->name)) + { + fail (line_nr, 0, "Attempt to redefine spell `%s'\n", + spell->name); + return; + } + if (!strcmp (magic_conf.spells[i]->invocation, spell->invocation)) + { + fail (line_nr, 0, + "Attempt to redefine spell invocation `%s' between spells `%s' and `%s'\n", + spell->invocation, magic_conf.spells[i]->name, spell->name); + return; } - magic_conf.spells_nr++; + } + magic_conf.spells_nr++; - magic_conf.spells = realloc(magic_conf.spells, magic_conf.spells_nr * sizeof (spell_t*)); - magic_conf.spells[index] = spell; + magic_conf.spells = + realloc (magic_conf.spells, + magic_conf.spells_nr * sizeof (spell_t *)); + magic_conf.spells[index] = spell; - } -static void -add_teleport_anchor(teleport_anchor_t *anchor, int line_nr) +static void add_teleport_anchor (teleport_anchor_t * anchor, int line_nr) { - int index = magic_conf.anchors_nr; - int i; + int index = magic_conf.anchors_nr; + int i; - for (i = 0; i < index; i++) { - if (!strcmp(magic_conf.anchors[i]->name, anchor->name)) { - fail(line_nr, 0, "Attempt to redefine teleport anchor `%s'\n", anchor->name); - return; - } - if (!strcmp(magic_conf.anchors[i]->invocation, anchor->invocation)) { - fail(line_nr, 0, "Attempt to redefine anchor invocation `%s' between anchors `%s' and `%s'\n", - anchor->invocation, magic_conf.anchors[i]->name, anchor->name); - return; - } + for (i = 0; i < index; i++) + { + if (!strcmp (magic_conf.anchors[i]->name, anchor->name)) + { + fail (line_nr, 0, "Attempt to redefine teleport anchor `%s'\n", + anchor->name); + return; } - magic_conf.anchors_nr++; + if (!strcmp (magic_conf.anchors[i]->invocation, anchor->invocation)) + { + fail (line_nr, 0, + "Attempt to redefine anchor invocation `%s' between anchors `%s' and `%s'\n", + anchor->invocation, magic_conf.anchors[i]->name, + anchor->name); + return; + } + } + magic_conf.anchors_nr++; - magic_conf.anchors = realloc(magic_conf.anchors, magic_conf.anchors_nr * sizeof (teleport_anchor_t*)); - magic_conf.anchors[index] = anchor; + magic_conf.anchors = + realloc (magic_conf.anchors, + magic_conf.anchors_nr * sizeof (teleport_anchor_t *)); + magic_conf.anchors[index] = anchor; } - -static void -fail(int line, int column, char *fmt, ...) +static void fail (int line, int column, char *fmt, ...) { - va_list ap; - fprintf(stderr, "[magic-init] L%d:%d: ", line, column); - va_start(ap, fmt); - vfprintf(stderr, fmt, ap); - failed_flag = 1; + va_list ap; + fprintf (stderr, "[magic-init] L%d:%d: ", line, column); + va_start (ap, fmt); + vfprintf (stderr, fmt, ap); + failed_flag = 1; } -static expr_t * -dot_expr(expr_t *expr, int id) +static expr_t *dot_expr (expr_t * expr, int id) { - expr_t *retval = magic_new_expr(EXPR_SPELLFIELD); - retval->e.e_field.id = id; - retval->e.e_field.expr = expr; + expr_t *retval = magic_new_expr (EXPR_SPELLFIELD); + retval->e.e_field.id = id; + retval->e.e_field.expr = expr; - return retval; + return retval; } -static expr_t * -fun_expr(char *name, int args_nr, expr_t **args, int line, int column) +static expr_t *fun_expr (char *name, int args_nr, expr_t ** args, int line, + int column) { - int id; - expr_t *expr; - fun_t *fun = magic_get_fun(name, &id); + int id; + expr_t *expr; + fun_t *fun = magic_get_fun (name, &id); - if (!fun) { - fail(line, column, "Unknown function `%s'\n", name); - } else if (strlen(fun->signature) != args_nr) { - fail(line, column, "Incorrect number of arguments to function `%s': Expected %d, found %d\n", name, strlen(fun->signature), args_nr); - fun = NULL; - } + if (!fun) + { + fail (line, column, "Unknown function `%s'\n", name); + } + else if (strlen (fun->signature) != args_nr) + { + fail (line, column, + "Incorrect number of arguments to function `%s': Expected %d, found %d\n", + name, strlen (fun->signature), args_nr); + fun = NULL; + } - if (fun) { - int i; + if (fun) + { + int i; - expr = magic_new_expr(EXPR_FUNAPP); - expr->e.e_funapp.line_nr = line; - expr->e.e_funapp.column = column; - expr->e.e_funapp.id = id; - expr->e.e_funapp.args_nr = args_nr; + expr = magic_new_expr (EXPR_FUNAPP); + expr->e.e_funapp.line_nr = line; + expr->e.e_funapp.column = column; + expr->e.e_funapp.id = id; + expr->e.e_funapp.args_nr = args_nr; - for (i = 0; i < args_nr; i++) - expr->e.e_funapp.args[i] = args[i]; - } else { /* failure */ - expr = magic_new_expr(EXPR_VAL); - expr->e.e_val.ty = TY_FAIL; - } + for (i = 0; i < args_nr; i++) + expr->e.e_funapp.args[i] = args[i]; + } + else + { /* failure */ + expr = magic_new_expr (EXPR_VAL); + expr->e.e_val.ty = TY_FAIL; + } - return expr; + return expr; } -static spell_t * -new_spell(spellguard_t *guard) +static spell_t *new_spell (spellguard_t * guard) { - static int spell_counter = 0; + static int spell_counter = 0; - spell_t *retval = calloc(1, sizeof(spell_t)); - retval->index = ++spell_counter; - retval->spellguard = guard; - return retval; + spell_t *retval = calloc (1, sizeof (spell_t)); + retval->index = ++spell_counter; + retval->spellguard = guard; + return retval; } -static spellguard_t * -new_spellguard(int ty) +static spellguard_t *new_spellguard (int ty) { - spellguard_t *retval = calloc(1, sizeof(spellguard_t)); - retval->ty = ty; - return retval; + spellguard_t *retval = calloc (1, sizeof (spellguard_t)); + retval->ty = ty; + return retval; } -static spellguard_t * -spellguard_implication(spellguard_t *a, spellguard_t *b) +static spellguard_t *spellguard_implication (spellguard_t * a, + spellguard_t * b) { - spellguard_t *retval = a; - - if (a == b) /* This can happen due to reference sharing: - * e.g., - * (R0 -> (R1 | R2)) => (R3) - * yields - * (R0 -> (R1 -> R3 | R2 -> R3)) - * - * So if we now add => R4 to that, we want - * (R0 -> (R1 -> R3 -> R4 | R2 -> R3 -> R4)) - * - * but we only need to add it once, because the R3 reference is shared. - */ - return retval; - - /* If the premise is a disjunction, b is the continuation of _all_ branches */ - if (a->ty == SPELLGUARD_CHOICE) - spellguard_implication(a->s.s_alt, b); - if (a->next) - spellguard_implication(a->next, b); - else - a->next = b; - - + spellguard_t *retval = a; + + if (a == b) /* This can happen due to reference sharing: + * e.g., + * (R0 -> (R1 | R2)) => (R3) + * yields + * (R0 -> (R1 -> R3 | R2 -> R3)) + * + * So if we now add => R4 to that, we want + * (R0 -> (R1 -> R3 -> R4 | R2 -> R3 -> R4)) + * + * but we only need to add it once, because the R3 reference is shared. + */ return retval; + + /* If the premise is a disjunction, b is the continuation of _all_ branches */ + if (a->ty == SPELLGUARD_CHOICE) + spellguard_implication (a->s.s_alt, b); + if (a->next) + spellguard_implication (a->next, b); + else + a->next = b; + + return retval; } -static effect_t * -new_effect(int ty) +static effect_t *new_effect (int ty) { - effect_t *effect = (effect_t *) calloc(1, sizeof(effect_t)); - effect->ty = ty; - return effect; + effect_t *effect = (effect_t *) calloc (1, sizeof (effect_t)); + effect->ty = ty; + return effect; } -static effect_t * -set_effect_continuation(effect_t *src, effect_t *continuation) +static effect_t *set_effect_continuation (effect_t * src, + effect_t * continuation) { - effect_t *retval = src; - /* This function is completely analogous to `spellguard_implication' above; read the control flow implications above first before pondering it. */ + effect_t *retval = src; + /* This function is completely analogous to `spellguard_implication' above; read the control flow implications above first before pondering it. */ - if (src == continuation) - return retval; + if (src == continuation) + return retval; - /* For FOR and FOREACH, we use special stack handlers and thus don't have to set - * the continuation. It's only IF that we need to handle in this fashion. */ - if (src->ty == EFFECT_IF) { - set_effect_continuation(src->e.e_if.true_branch, continuation); - set_effect_continuation(src->e.e_if.false_branch, continuation); - } - if (src->next) - set_effect_continuation(src->next, continuation); - else - src->next = continuation; + /* For FOR and FOREACH, we use special stack handlers and thus don't have to set + * the continuation. It's only IF that we need to handle in this fashion. */ + if (src->ty == EFFECT_IF) + { + set_effect_continuation (src->e.e_if.true_branch, continuation); + set_effect_continuation (src->e.e_if.false_branch, continuation); + } + if (src->next) + set_effect_continuation (src->next, continuation); + else + src->next = continuation; - return retval; + return retval; } -static effect_t * -op_effect(char *name, int args_nr, expr_t **args, int line, int column) +static effect_t *op_effect (char *name, int args_nr, expr_t ** args, int line, + int column) { - int id; - effect_t *effect; - op_t *op = magic_get_op(name, &id); + int id; + effect_t *effect; + op_t *op = magic_get_op (name, &id); - if (!op) - fail(line, column, "Unknown operation `%s'\n", name); - else if (strlen(op->signature) != args_nr) { - fail(line, column, "Incorrect number of arguments to operation `%s': Expected %d, found %d\n", name, strlen(op->signature), args_nr); - op = NULL; - } + if (!op) + fail (line, column, "Unknown operation `%s'\n", name); + else if (strlen (op->signature) != args_nr) + { + fail (line, column, + "Incorrect number of arguments to operation `%s': Expected %d, found %d\n", + name, strlen (op->signature), args_nr); + op = NULL; + } - if (op) { - int i; + if (op) + { + int i; - effect = new_effect(EFFECT_OP); - effect->e.e_op.line_nr = line; - effect->e.e_op.column = column; - effect->e.e_op.id = id; - effect->e.e_op.args_nr = args_nr; + effect = new_effect (EFFECT_OP); + effect->e.e_op.line_nr = line; + effect->e.e_op.column = column; + effect->e.e_op.id = id; + effect->e.e_op.args_nr = args_nr; - for (i = 0; i < args_nr; i++) - effect->e.e_op.args[i] = args[i]; - } else /* failure */ - effect = new_effect(EFFECT_SKIP); + for (i = 0; i < args_nr; i++) + effect->e.e_op.args[i] = args[i]; + } + else /* failure */ + effect = new_effect (EFFECT_SKIP); - return effect; + return effect; } - proc_t *procs = NULL; -int procs_nr = 0; +int procs_nr = 0; - -static void -install_proc(proc_t *proc) +static void install_proc (proc_t * proc) { - if (!procs) { - procs = proc; - procs_nr = 1; - } else { - procs = realloc(procs, sizeof(proc_t) * (1 + procs_nr)); - procs[procs_nr++] = *proc; - } + if (!procs) + { + procs = proc; + procs_nr = 1; + } + else + { + procs = realloc (procs, sizeof (proc_t) * (1 + procs_nr)); + procs[procs_nr++] = *proc; + } } -static effect_t * -call_proc(char *name, int args_nr, expr_t **args, int line_nr, int column) +static effect_t *call_proc (char *name, int args_nr, expr_t ** args, + int line_nr, int column) { - proc_t *p = NULL; - int i; - effect_t *retval; - - for (i = 0; i < procs_nr; i++) - if (!strcmp(procs[i].name, name)) { - p = &procs[i]; - break; - } - - if (!p) { - fail(line_nr, column, "Unknown procedure `%s'\n", name); - return new_effect(EFFECT_SKIP); + proc_t *p = NULL; + int i; + effect_t *retval; + + for (i = 0; i < procs_nr; i++) + if (!strcmp (procs[i].name, name)) + { + p = &procs[i]; + break; } - if (p->args_nr != args_nr) { - fail(line_nr, column, "Procedure %s/%d invoked with %d parameters\n", name, p->args_nr, args_nr); - return new_effect(EFFECT_SKIP); - } + if (!p) + { + fail (line_nr, column, "Unknown procedure `%s'\n", name); + return new_effect (EFFECT_SKIP); + } - retval = new_effect(EFFECT_CALL); - retval->e.e_call.body = p->body; - retval->e.e_call.args_nr = args_nr; - retval->e.e_call.formals = p->args; - retval->e.e_call.actuals = args; - return retval; + if (p->args_nr != args_nr) + { + fail (line_nr, column, "Procedure %s/%d invoked with %d parameters\n", + name, p->args_nr, args_nr); + return new_effect (EFFECT_SKIP); + } + + retval = new_effect (EFFECT_CALL); + retval->e.e_call.body = p->body; + retval->e.e_call.args_nr = args_nr; + retval->e.e_call.formals = p->args; + retval->e.e_call.actuals = args; + return retval; } -struct const_def_rec { - char *name; - val_t val; -} *const_defs = NULL; +struct const_def_rec +{ + char *name; + val_t val; +} *const_defs = NULL; -int const_defs_nr = 0; +int const_defs_nr = 0; -static void -bind_constant(char *name, val_t *val, int line_nr) +static void bind_constant (char *name, val_t * val, int line_nr) { - if (find_constant(name)) { - fail(line_nr, 0, "Redefinition of constant `%s'\n", name); - return; - } - - if (!const_defs) - const_defs = (struct const_def_rec *)malloc(sizeof(struct const_def_rec)); - else - const_defs = (struct const_def_rec *)realloc(const_defs, - (const_defs_nr + 1) * sizeof(struct const_def_rec)); + if (find_constant (name)) + { + fail (line_nr, 0, "Redefinition of constant `%s'\n", name); + return; + } - const_defs[const_defs_nr].name = name; - const_defs[const_defs_nr].val = *val; - ++const_defs_nr; + if (!const_defs) + const_defs = + (struct const_def_rec *) malloc (sizeof (struct const_def_rec)); + else + const_defs = (struct const_def_rec *) realloc (const_defs, + (const_defs_nr + + 1) * + sizeof (struct + const_def_rec)); + + const_defs[const_defs_nr].name = name; + const_defs[const_defs_nr].val = *val; + ++const_defs_nr; } -static val_t * -find_constant(char *name) +static val_t *find_constant (char *name) { - int i; - for (i = 0; i < const_defs_nr; i++) { - if (!strcmp(const_defs[i].name, name)) { - free(name); - return &const_defs[i].val; - } + int i; + for (i = 0; i < const_defs_nr; i++) + { + if (!strcmp (const_defs[i].name, name)) + { + free (name); + return &const_defs[i].val; } + } - return NULL; + return NULL; } - - - #define INTERN_ASSERT(name, id) { int zid = intern_id(name); if (zid != id) fprintf(stderr, "[magic-conf] INTERNAL ERROR: Builtin special var %s interned to %d, not %d as it should be!\n", name, zid, id); error_flag = 1; } extern FILE *magic_frontend_in; -int -magic_init(char *conffile) // must be called after itemdb initialisation +int magic_init (char *conffile) // must be called after itemdb initialisation { - int error_flag = 0; + int error_flag = 0; - magic_conf.vars_nr = 0; - magic_conf.var_name = (char **)malloc(1); - magic_conf.vars = (val_t *)malloc(1); + magic_conf.vars_nr = 0; + magic_conf.var_name = (char **) malloc (1); + magic_conf.vars = (val_t *) malloc (1); - magic_conf.obscure_chance = 95; - magic_conf.min_casttime = 100; + magic_conf.obscure_chance = 95; + magic_conf.min_casttime = 100; - magic_conf.spells_nr = 0; - magic_conf.spells = (spell_t **)malloc(1); + magic_conf.spells_nr = 0; + magic_conf.spells = (spell_t **) malloc (1); - magic_conf.anchors_nr = 0; - magic_conf.anchors = (teleport_anchor_t **)malloc(1); + magic_conf.anchors_nr = 0; + magic_conf.anchors = (teleport_anchor_t **) malloc (1); - INTERN_ASSERT("min_casttime", VAR_MIN_CASTTIME); - INTERN_ASSERT("obscure_chance", VAR_OBSCURE_CHANCE); - INTERN_ASSERT("caster", VAR_CASTER); - INTERN_ASSERT("spellpower", VAR_SPELLPOWER); - INTERN_ASSERT("self_spell", VAR_SPELL); - INTERN_ASSERT("self_invocation", VAR_INVOCATION); - INTERN_ASSERT("target", VAR_TARGET); - INTERN_ASSERT("script_target", VAR_SCRIPTTARGET); - INTERN_ASSERT("location", VAR_LOCATION); + INTERN_ASSERT ("min_casttime", VAR_MIN_CASTTIME); + INTERN_ASSERT ("obscure_chance", VAR_OBSCURE_CHANCE); + INTERN_ASSERT ("caster", VAR_CASTER); + INTERN_ASSERT ("spellpower", VAR_SPELLPOWER); + INTERN_ASSERT ("self_spell", VAR_SPELL); + INTERN_ASSERT ("self_invocation", VAR_INVOCATION); + INTERN_ASSERT ("target", VAR_TARGET); + INTERN_ASSERT ("script_target", VAR_SCRIPTTARGET); + INTERN_ASSERT ("location", VAR_LOCATION); - magic_frontend_in = fopen_(conffile, "r"); - if (!magic_frontend_in) { - fprintf(stderr, "[magic-conf] Magic configuration file `%s' not found -> no magic.\n", conffile); - return 0; - } - magic_frontend_parse(); + magic_frontend_in = fopen_ (conffile, "r"); + if (!magic_frontend_in) + { + fprintf (stderr, + "[magic-conf] Magic configuration file `%s' not found -> no magic.\n", + conffile); + return 0; + } + magic_frontend_parse (); - if (magic_conf.vars[VAR_MIN_CASTTIME].ty == TY_INT) - magic_conf.min_casttime = magic_conf.vars[VAR_MIN_CASTTIME].v.v_int; + if (magic_conf.vars[VAR_MIN_CASTTIME].ty == TY_INT) + magic_conf.min_casttime = magic_conf.vars[VAR_MIN_CASTTIME].v.v_int; - if (magic_conf.vars[VAR_OBSCURE_CHANCE].ty == TY_INT) - magic_conf.obscure_chance = magic_conf.vars[VAR_OBSCURE_CHANCE].v.v_int; + if (magic_conf.vars[VAR_OBSCURE_CHANCE].ty == TY_INT) + magic_conf.obscure_chance = + magic_conf.vars[VAR_OBSCURE_CHANCE].v.v_int; - printf("[magic-conf] Magic initialised; obscure at %d%%. %d spells, %d teleport anchors.\n", - magic_conf.obscure_chance, magic_conf.spells_nr, magic_conf.anchors_nr); + printf + ("[magic-conf] Magic initialised; obscure at %d%%. %d spells, %d teleport anchors.\n", + magic_conf.obscure_chance, magic_conf.spells_nr, + magic_conf.anchors_nr); - if (procs) - free(procs); - return error_flag; + if (procs) + free (procs); + return error_flag; } extern int magic_frontend_lineno; -static void -magic_frontend_error(const char *msg) +static void magic_frontend_error (const char *msg) { - fprintf(stderr, "[magic-conf] Parse error: %s at line %d\n", msg, magic_frontend_lineno); + fprintf (stderr, "[magic-conf] Parse error: %s at line %d\n", msg, + magic_frontend_lineno); failed_flag = 1; } - |