+
+/* A Bison parser, made by GNU Bison 2.4.1. */
+
+/* Skeleton implementation for Bison's Yacc-like parsers in C
+
+ Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006
+ Free Software Foundation, Inc.
+
+ This program is free software: you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+/* As a special exception, you may create a larger work that contains
+ part or all of the Bison parser skeleton and distribute that work
+ under terms of your choice, so long as that work isn't itself a
+ parser generator using the skeleton or a modified version thereof
+ as a parser skeleton. Alternatively, if you modify or redistribute
+ the parser skeleton itself, you may (at your option) remove this
+ special exception, which will cause the skeleton and the resulting
+ Bison output files to be licensed under the GNU General Public
+ License without this special exception.
+
+ This special exception was added by the Free Software Foundation in
+ version 2.2 of Bison. */
+
+/* C LALR(1) parser skeleton written by Richard Stallman, by
+ simplifying the original so-called "semantic" parser. */
+
+/* All symbols defined below should begin with yy or YY, to avoid
+ infringing on user name space. This should be done even for local
+ variables, as they might otherwise be expanded by user macros.
+ There are some unavoidable exceptions within include files to
+ define necessary library symbols; they are noted "INFRINGES ON
+ USER NAME SPACE" below. */
+
+/* Identify Bison output. */
+#define YYBISON 1
+
+/* Bison version. */
+#define YYBISON_VERSION "2.4.1"
+
+/* Skeleton name. */
+#define YYSKELETON_NAME "yacc.c"
+
+/* Pure parsers. */
+#define YYPURE 0
+
+/* Push parsers. */
+#define YYPUSH 0
+
+/* Pull parsers. */
+#define YYPULL 1
+
+/* Using locations. */
+#define YYLSP_NEEDED 0
+
+
+
+/* Copy the first part of user declarations. */
+
+/* Line 189 of yacc.c */
+#line 79 "parse.y"
+
+#include <stdio.h>
+#include "mawk.h"
+#include "symtype.h"
+#include "code.h"
+#include "memory.h"
+#include "bi_funct.h"
+#include "bi_vars.h"
+#include "jmp.h"
+#include "field.h"
+#include "files.h"
+
+
+#define YYMAXDEPTH 200
+
+
+extern void PROTO( eat_nl, (void) ) ;
+static void PROTO( resize_fblock, (FBLOCK *) ) ;
+static void PROTO( switch_code_to_main, (void)) ;
+static void PROTO( code_array, (SYMTAB *) ) ;
+static void PROTO( code_call_id, (CA_REC *, SYMTAB *) ) ;
+static void PROTO( field_A2I, (void)) ;
+static void PROTO( check_var, (SYMTAB *) ) ;
+static void PROTO( check_array, (SYMTAB *) ) ;
+static void PROTO( RE_as_arg, (void)) ;
+
+static int scope ;
+static FBLOCK *active_funct ;
+ /* when scope is SCOPE_FUNCT */
+
+#define code_address(x) if( is_local(x) ) \
+ code2op(L_PUSHA, (x)->offset) ;\
+ else code2(_PUSHA, (x)->stval.cp)
+
+#define CDP(x) (code_base+(x))
+/* WARNING: These CDP() calculations become invalid after calls
+ that might change code_base. Which are: code2(), code2op(),
+ code_jmp() and code_pop().
+*/
+
+/* this nonsense caters to MSDOS large model */
+#define CODE_FE_PUSHA() code_ptr->ptr = (PTR) 0 ; code1(FE_PUSHA)
+
+
+
+/* Line 189 of yacc.c */
+#line 119 "y.tab.c"
+
+/* Enabling traces. */
+#ifndef YYDEBUG
+# define YYDEBUG 0
+#endif
+
+/* Enabling verbose error messages. */
+#ifdef YYERROR_VERBOSE
+# undef YYERROR_VERBOSE
+# define YYERROR_VERBOSE 1
+#else
+# define YYERROR_VERBOSE 0
+#endif
+
+/* Enabling the token table. */
+#ifndef YYTOKEN_TABLE
+# define YYTOKEN_TABLE 0
+#endif
+
+
+/* Tokens. */
+#ifndef YYTOKENTYPE
+# define YYTOKENTYPE
+ /* Put the tokens into the symbol table, so that GDB and other debuggers
+ know about them. */
+ enum yytokentype {
+ UNEXPECTED = 258,
+ BAD_DECIMAL = 259,
+ NL = 260,
+ SEMI_COLON = 261,
+ LBRACE = 262,
+ RBRACE = 263,
+ LBOX = 264,
+ RBOX = 265,
+ COMMA = 266,
+ IO_OUT = 267,
+ POW_ASG = 268,
+ MOD_ASG = 269,
+ DIV_ASG = 270,
+ MUL_ASG = 271,
+ SUB_ASG = 272,
+ ADD_ASG = 273,
+ ASSIGN = 274,
+ COLON = 275,
+ QMARK = 276,
+ OR = 277,
+ AND = 278,
+ IN = 279,
+ MATCH = 280,
+ GTE = 281,
+ GT = 282,
+ LTE = 283,
+ LT = 284,
+ NEQ = 285,
+ EQ = 286,
+ CAT = 287,
+ GETLINE = 288,
+ MINUS = 289,
+ PLUS = 290,
+ MOD = 291,
+ DIV = 292,
+ MUL = 293,
+ UMINUS = 294,
+ NOT = 295,
+ PIPE = 296,
+ IO_IN = 297,
+ POW = 298,
+ INC_or_DEC = 299,
+ FIELD = 300,
+ DOLLAR = 301,
+ RPAREN = 302,
+ LPAREN = 303,
+ DOUBLE = 304,
+ STRING_ = 305,
+ RE = 306,
+ ID = 307,
+ D_ID = 308,
+ FUNCT_ID = 309,
+ BUILTIN = 310,
+ LENGTH = 311,
+ PRINT = 312,
+ PRINTF = 313,
+ SPLIT = 314,
+ MATCH_FUNC = 315,
+ SUB = 316,
+ GSUB = 317,
+ DO = 318,
+ WHILE = 319,
+ FOR = 320,
+ BREAK = 321,
+ CONTINUE = 322,
+ IF = 323,
+ ELSE = 324,
+ DELETE = 325,
+ BEGIN = 326,
+ END = 327,
+ EXIT = 328,
+ NEXT = 329,
+ RETURN = 330,
+ FUNCTION = 331
+ };
+#endif
+/* Tokens. */
+#define UNEXPECTED 258
+#define BAD_DECIMAL 259
+#define NL 260
+#define SEMI_COLON 261
+#define LBRACE 262
+#define RBRACE 263
+#define LBOX 264
+#define RBOX 265
+#define COMMA 266
+#define IO_OUT 267
+#define POW_ASG 268
+#define MOD_ASG 269
+#define DIV_ASG 270
+#define MUL_ASG 271
+#define SUB_ASG 272
+#define ADD_ASG 273
+#define ASSIGN 274
+#define COLON 275
+#define QMARK 276
+#define OR 277
+#define AND 278
+#define IN 279
+#define MATCH 280
+#define GTE 281
+#define GT 282
+#define LTE 283
+#define LT 284
+#define NEQ 285
+#define EQ 286
+#define CAT 287
+#define GETLINE 288
+#define MINUS 289
+#define PLUS 290
+#define MOD 291
+#define DIV 292
+#define MUL 293
+#define UMINUS 294
+#define NOT 295
+#define PIPE 296
+#define IO_IN 297
+#define POW 298
+#define INC_or_DEC 299
+#define FIELD 300
+#define DOLLAR 301
+#define RPAREN 302
+#define LPAREN 303
+#define DOUBLE 304
+#define STRING_ 305
+#define RE 306
+#define ID 307
+#define D_ID 308
+#define FUNCT_ID 309
+#define BUILTIN 310
+#define LENGTH 311
+#define PRINT 312
+#define PRINTF 313
+#define SPLIT 314
+#define MATCH_FUNC 315
+#define SUB 316
+#define GSUB 317
+#define DO 318
+#define WHILE 319
+#define FOR 320
+#define BREAK 321
+#define CONTINUE 322
+#define IF 323
+#define ELSE 324
+#define DELETE 325
+#define BEGIN 326
+#define END 327
+#define EXIT 328
+#define NEXT 329
+#define RETURN 330
+#define FUNCTION 331
+
+
+
+
+#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
+typedef union YYSTYPE
+{
+
+/* Line 214 of yacc.c */
+#line 124 "parse.y"
+
+CELL *cp ;
+SYMTAB *stp ;
+int start ; /* code starting address as offset from code_base */
+PF_CP fp ; /* ptr to a (print/printf) or (sub/gsub) function */
+BI_REC *bip ; /* ptr to info about a builtin */
+FBLOCK *fbp ; /* ptr to a function block */
+ARG2_REC *arg2p ;
+CA_REC *ca_p ;
+int ival ;
+PTR ptr ;
+
+
+
+/* Line 214 of yacc.c */
+#line 322 "y.tab.c"
+} YYSTYPE;
+# define YYSTYPE_IS_TRIVIAL 1
+# define yystype YYSTYPE /* obsolescent; will be withdrawn */
+# define YYSTYPE_IS_DECLARED 1
+#endif
+
+
+/* Copy the second part of user declarations. */
+
+
+/* Line 264 of yacc.c */
+#line 334 "y.tab.c"
+
+#ifdef short
+# undef short
+#endif
+
+#ifdef YYTYPE_UINT8
+typedef YYTYPE_UINT8 yytype_uint8;
+#else
+typedef unsigned char yytype_uint8;
+#endif
+
+#ifdef YYTYPE_INT8
+typedef YYTYPE_INT8 yytype_int8;
+#elif (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+typedef signed char yytype_int8;
+#else
+typedef short int yytype_int8;
+#endif
+
+#ifdef YYTYPE_UINT16
+typedef YYTYPE_UINT16 yytype_uint16;
+#else
+typedef unsigned short int yytype_uint16;
+#endif
+
+#ifdef YYTYPE_INT16
+typedef YYTYPE_INT16 yytype_int16;
+#else
+typedef short int yytype_int16;
+#endif
+
+#ifndef YYSIZE_T
+# ifdef __SIZE_TYPE__
+# define YYSIZE_T __SIZE_TYPE__
+# elif defined size_t
+# define YYSIZE_T size_t
+# elif ! defined YYSIZE_T && (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+# include <stddef.h> /* INFRINGES ON USER NAME SPACE */
+# define YYSIZE_T size_t
+# else
+# define YYSIZE_T unsigned int
+# endif
+#endif
+
+#define YYSIZE_MAXIMUM ((YYSIZE_T) -1)
+
+#ifndef YY_
+# if YYENABLE_NLS
+# if ENABLE_NLS
+# include <libintl.h> /* INFRINGES ON USER NAME SPACE */
+# define YY_(msgid) dgettext ("bison-runtime", msgid)
+# endif
+# endif
+# ifndef YY_
+# define YY_(msgid) msgid
+# endif
+#endif
+
+/* Suppress unused-variable warnings by "using" E. */
+#if ! defined lint || defined __GNUC__
+# define YYUSE(e) ((void) (e))
+#else
+# define YYUSE(e) /* empty */
+#endif
+
+/* Identity function, used to suppress warnings about constant conditions. */
+#ifndef lint
+# define YYID(n) (n)
+#else
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static int
+YYID (int yyi)
+#else
+static int
+YYID (yyi)
+ int yyi;
+#endif
+{
+ return yyi;
+}
+#endif
+
+#if ! defined yyoverflow || YYERROR_VERBOSE
+
+/* The parser invokes alloca or malloc; define the necessary symbols. */
+
+# ifdef YYSTACK_USE_ALLOCA
+# if YYSTACK_USE_ALLOCA
+# ifdef __GNUC__
+# define YYSTACK_ALLOC __builtin_alloca
+# elif defined __BUILTIN_VA_ARG_INCR
+# include <alloca.h> /* INFRINGES ON USER NAME SPACE */
+# elif defined _AIX
+# define YYSTACK_ALLOC __alloca
+# elif defined _MSC_VER
+# include <malloc.h> /* INFRINGES ON USER NAME SPACE */
+# define alloca _alloca
+# else
+# define YYSTACK_ALLOC alloca
+# if ! defined _ALLOCA_H && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
+# ifndef _STDLIB_H
+# define _STDLIB_H 1
+# endif
+# endif
+# endif
+# endif
+# endif
+
+# ifdef YYSTACK_ALLOC
+ /* Pacify GCC's `empty if-body' warning. */
+# 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 */
+# endif
+# else
+# define YYSTACK_ALLOC YYMALLOC
+# define YYSTACK_FREE YYFREE
+# ifndef YYSTACK_ALLOC_MAXIMUM
+# define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
+# endif
+# if (defined __cplusplus && ! defined _STDLIB_H \
+ && ! ((defined YYMALLOC || defined malloc) \
+ && (defined YYFREE || defined free)))
+# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
+# ifndef _STDLIB_H
+# define _STDLIB_H 1
+# endif
+# endif
+# ifndef YYMALLOC
+# 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 */
+# 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 */
+# endif
+# endif
+# endif
+#endif /* ! defined yyoverflow || YYERROR_VERBOSE */
+
+
+#if (! defined yyoverflow \
+ && (! defined __cplusplus \
+ || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL)))
+
+/* A type that is properly aligned for any stack member. */
+union yyalloc
+{
+ yytype_int16 yyss_alloc;
+ YYSTYPE yyvs_alloc;
+};
+
+/* The size of the maximum gap between one aligned stack and the next. */
+# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1)
+
+/* The size of an array large to enough to hold all stacks, each with
+ N elements. */
+# define YYSTACK_BYTES(N) \
+ ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \
+ + YYSTACK_GAP_MAXIMUM)
+
+/* Copy COUNT objects from FROM to TO. The source and destination do
+ not overlap. */
+# ifndef YYCOPY
+# if defined __GNUC__ && 1 < __GNUC__
+# define YYCOPY(To, From, Count) \
+ __builtin_memcpy (To, From, (Count) * sizeof (*(From)))
+# else
+# define YYCOPY(To, From, Count) \
+ do \
+ { \
+ YYSIZE_T yyi; \
+ for (yyi = 0; yyi < (Count); yyi++) \
+ (To)[yyi] = (From)[yyi]; \
+ } \
+ while (YYID (0))
+# endif
+# endif
+
+/* Relocate STACK from its old location to the new one. The
+ local variables YYSIZE and YYSTACKSIZE give the old and new number of
+ elements in the stack, and YYPTR gives the new location of the
+ stack. Advance YYPTR to a properly aligned location for the next
+ stack. */
+# define YYSTACK_RELOCATE(Stack_alloc, Stack) \
+ do \
+ { \
+ YYSIZE_T yynewbytes; \
+ YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \
+ Stack = &yyptr->Stack_alloc; \
+ yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
+ yyptr += yynewbytes / sizeof (*yyptr); \
+ } \
+ while (YYID (0))
+
+#endif
+
+/* YYFINAL -- State number of the termination state. */
+#define YYFINAL 95
+/* YYLAST -- Last index in YYTABLE. */
+#define YYLAST 1173
+
+/* YYNTOKENS -- Number of terminals. */
+#define YYNTOKENS 77
+/* YYNNTS -- Number of nonterminals. */
+#define YYNNTS 57
+/* YYNRULES -- Number of rules. */
+#define YYNRULES 172
+/* YYNRULES -- Number of states. */
+#define YYNSTATES 331
+
+/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */
+#define YYUNDEFTOK 2
+#define YYMAXUTOK 331
+
+#define YYTRANSLATE(YYX) \
+ ((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, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 1, 2, 3, 4,
+ 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
+ 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
+ 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
+ 35, 36, 37, 38, 39, 40, 41, 42, 43, 44,
+ 45, 46, 47, 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, 73, 74,
+ 75, 76
+};
+
+#if YYDEBUG
+/* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in
+ YYRHS. */
+static const yytype_uint16 yyprhs[] =
+{
+ 0, 0, 3, 5, 8, 10, 12, 15, 17, 18,
+ 22, 23, 27, 28, 32, 33, 34, 41, 45, 49,
+ 51, 53, 55, 58, 60, 63, 65, 68, 71, 74,
+ 76, 79, 81, 83, 85, 89, 93, 97, 101, 105,
+ 109, 113, 117, 121, 125, 129, 133, 137, 141, 142,
+ 147, 148, 153, 154, 155, 163, 165, 168, 170, 172,
+ 174, 178, 180, 184, 188, 192, 196, 200, 204, 207,
+ 210, 213, 215, 218, 221, 224, 227, 229, 230, 232,
+ 234, 238, 244, 246, 247, 253, 255, 257, 259, 263,
+ 266, 270, 274, 275, 278, 283, 286, 288, 293, 295,
+ 303, 308, 311, 316, 320, 325, 327, 330, 332, 335,
+ 339, 345, 351, 357, 364, 372, 376, 383, 386, 388,
+ 391, 398, 401, 405, 407, 411, 415, 419, 423, 427,
+ 431, 435, 438, 444, 446, 450, 457, 459, 462, 466,
+ 469, 473, 475, 478, 481, 485, 490, 492, 494, 496,
+ 499, 503, 510, 512, 514, 516, 520, 523, 528, 531,
+ 534, 535, 537, 539, 543, 545, 549, 552, 555, 557,
+ 561, 565, 568
+};
+
+/* YYRHS -- A `-1'-separated list of the rules' RHS. */
+static const yytype_int16 yyrhs[] =
+{
+ 78, 0, -1, 79, -1, 78, 79, -1, 80, -1,
+ 125, -1, 130, 86, -1, 86, -1, -1, 71, 81,
+ 86, -1, -1, 72, 82, 86, -1, -1, 91, 83,
+ 87, -1, -1, -1, 91, 11, 84, 91, 85, 87,
+ -1, 7, 88, 8, -1, 7, 1, 8, -1, 86,
+ -1, 90, -1, 89, -1, 88, 89, -1, 86, -1,
+ 91, 90, -1, 90, -1, 1, 90, -1, 66, 90,
+ -1, 67, 90, -1, 119, -1, 74, 90, -1, 5,
+ -1, 6, -1, 96, -1, 98, 19, 91, -1, 98,
+ 18, 91, -1, 98, 17, 91, -1, 98, 16, 91,
+ -1, 98, 15, 91, -1, 98, 14, 91, -1, 98,
+ 13, 91, -1, 91, 31, 91, -1, 91, 30, 91,
+ -1, 91, 29, 91, -1, 91, 28, 91, -1, 91,
+ 27, 91, -1, 91, 26, 91, -1, 91, 25, 91,
+ -1, -1, 91, 22, 92, 91, -1, -1, 91, 23,
+ 93, 91, -1, -1, -1, 91, 21, 94, 91, 20,
+ 95, 91, -1, 97, -1, 96, 97, -1, 49, -1,
+ 50, -1, 52, -1, 48, 91, 47, -1, 51, -1,
+ 97, 35, 97, -1, 97, 34, 97, -1, 97, 38,
+ 97, -1, 97, 37, 97, -1, 97, 36, 97, -1,
+ 97, 43, 97, -1, 40, 97, -1, 35, 97, -1,
+ 34, 97, -1, 101, -1, 52, 44, -1, 44, 98,
+ -1, 115, 44, -1, 44, 115, -1, 52, -1, -1,
+ 100, -1, 91, -1, 100, 11, 91, -1, 55, 102,
+ 48, 99, 47, -1, 56, -1, -1, 103, 102, 104,
+ 106, 90, -1, 57, -1, 58, -1, 99, -1, 48,
+ 105, 47, -1, 48, 47, -1, 91, 11, 91, -1,
+ 105, 11, 91, -1, -1, 12, 91, -1, 68, 48,
+ 91, 47, -1, 107, 89, -1, 69, -1, 107, 89,
+ 108, 89, -1, 63, -1, 109, 89, 64, 48, 91,
+ 47, 90, -1, 64, 48, 91, 47, -1, 110, 89,
+ -1, 111, 112, 113, 89, -1, 65, 48, 6, -1,
+ 65, 48, 91, 6, -1, 6, -1, 91, 6, -1,
+ 47, -1, 91, 47, -1, 91, 24, 52, -1, 48,
+ 105, 47, 24, 52, -1, 52, 102, 9, 100, 10,
+ -1, 52, 102, 9, 100, 10, -1, 52, 102, 9,
+ 100, 10, 44, -1, 70, 52, 102, 9, 100, 10,
+ 90, -1, 70, 52, 90, -1, 65, 48, 52, 24,
+ 52, 47, -1, 114, 89, -1, 45, -1, 46, 53,
+ -1, 46, 53, 102, 9, 100, 10, -1, 46, 97,
+ -1, 48, 115, 47, -1, 115, -1, 115, 19, 91,
+ -1, 115, 18, 91, -1, 115, 17, 91, -1, 115,
+ 16, 91, -1, 115, 15, 91, -1, 115, 14, 91,
+ -1, 115, 13, 91, -1, 116, 117, -1, 59, 48,
+ 91, 11, 52, -1, 47, -1, 11, 91, 47, -1,
+ 60, 48, 91, 11, 118, 47, -1, 91, -1, 73,
+ 90, -1, 73, 91, 90, -1, 75, 90, -1, 75,
+ 91, 90, -1, 120, -1, 120, 121, -1, 122, 97,
+ -1, 97, 41, 33, -1, 97, 41, 33, 121, -1,
+ 33, -1, 98, -1, 115, -1, 120, 42, -1, 120,
+ 121, 42, -1, 123, 48, 118, 11, 91, 124, -1,
+ 61, -1, 62, -1, 47, -1, 11, 121, 47, -1,
+ 126, 86, -1, 127, 48, 128, 47, -1, 76, 52,
+ -1, 76, 54, -1, -1, 129, -1, 52, -1, 129,
+ 11, 52, -1, 1, -1, 54, 102, 131, -1, 48,
+ 47, -1, 132, 133, -1, 48, -1, 132, 91, 11,
+ -1, 132, 52, 11, -1, 91, 47, -1, 52, 47,
+ -1
+};
+
+/* YYRLINE[YYN] -- source line where rule number YYN was defined. */
+static const yytype_uint16 yyrline[] =
+{
+ 0, 200, 200, 201, 204, 205, 206, 209, 215, 214,
+ 221, 220, 227, 226, 234, 250, 233, 263, 265, 271,
+ 272, 279, 280, 284, 285, 287, 289, 295, 298, 301,
+ 305, 313, 313, 316, 317, 318, 319, 320, 321, 322,
+ 323, 324, 325, 326, 327, 328, 329, 331, 359, 358,
+ 366, 365, 372, 373, 372, 378, 379, 383, 385, 387,
+ 395, 399, 403, 404, 405, 406, 407, 408, 409, 411,
+ 413, 415, 418, 426, 433, 437, 444, 453, 454, 457,
+ 459, 464, 475, 485, 489, 498, 499, 502, 503, 507,
+ 511, 516, 520, 521, 528, 533, 537, 541, 550, 555,
+ 561, 581, 607, 631, 632, 636, 637, 654, 658, 671,
+ 676, 687, 700, 712, 729, 737, 748, 762, 779, 781,
+ 790, 804, 806, 810, 814, 815, 816, 817, 818, 819,
+ 820, 826, 830, 837, 839, 863, 870, 893, 896, 900,
+ 903, 909, 916, 922, 927, 932, 939, 941, 941, 943,
+ 947, 955, 974, 975, 979, 984, 992, 1001, 1020, 1043,
+ 1050, 1051, 1054, 1060, 1073, 1086, 1098, 1100, 1115, 1117,
+ 1124, 1133, 1139
+};
+#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", "UNEXPECTED", "BAD_DECIMAL", "NL",
+ "SEMI_COLON", "LBRACE", "RBRACE", "LBOX", "RBOX", "COMMA", "IO_OUT",
+ "POW_ASG", "MOD_ASG", "DIV_ASG", "MUL_ASG", "SUB_ASG", "ADD_ASG",
+ "ASSIGN", "COLON", "QMARK", "OR", "AND", "IN", "MATCH", "GTE", "GT",
+ "LTE", "LT", "NEQ", "EQ", "CAT", "GETLINE", "MINUS", "PLUS", "MOD",
+ "DIV", "MUL", "UMINUS", "NOT", "PIPE", "IO_IN", "POW", "INC_or_DEC",
+ "FIELD", "DOLLAR", "RPAREN", "LPAREN", "DOUBLE", "STRING_", "RE", "ID",
+ "D_ID", "FUNCT_ID", "BUILTIN", "LENGTH", "PRINT", "PRINTF", "SPLIT",
+ "MATCH_FUNC", "SUB", "GSUB", "DO", "WHILE", "FOR", "BREAK", "CONTINUE",
+ "IF", "ELSE", "DELETE", "BEGIN", "END", "EXIT", "NEXT", "RETURN",
+ "FUNCTION", "$accept", "program", "program_block", "PA_block", "$@1",
+ "$@2", "$@3", "$@4", "$@5", "block", "block_or_separator",
+ "statement_list", "statement", "separator", "expr", "$@6", "$@7", "$@8",
+ "$@9", "cat_expr", "p_expr", "lvalue", "arglist", "args", "builtin",
+ "mark", "print", "pr_args", "arg2", "pr_direction", "if_front", "else",
+ "do", "while_front", "for1", "for2", "for3", "array_loop_front", "field",
+ "split_front", "split_back", "re_arg", "return_statement", "getline",
+ "fvalue", "getline_file", "sub_or_gsub", "sub_back", "function_def",
+ "funct_start", "funct_head", "f_arglist", "f_args", "outside_error",
+ "call_args", "ca_front", "ca_back", 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, 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, 310, 311, 312, 313, 314,
+ 315, 316, 317, 318, 319, 320, 321, 322, 323, 324,
+ 325, 326, 327, 328, 329, 330, 331
+};
+# endif
+
+/* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */
+static const yytype_uint8 yyr1[] =
+{
+ 0, 77, 78, 78, 79, 79, 79, 80, 81, 80,
+ 82, 80, 83, 80, 84, 85, 80, 86, 86, 87,
+ 87, 88, 88, 89, 89, 89, 89, 89, 89, 89,
+ 89, 90, 90, 91, 91, 91, 91, 91, 91, 91,
+ 91, 91, 91, 91, 91, 91, 91, 91, 92, 91,
+ 93, 91, 94, 95, 91, 96, 96, 97, 97, 97,
+ 97, 97, 97, 97, 97, 97, 97, 97, 97, 97,
+ 97, 97, 97, 97, 97, 97, 98, 99, 99, 100,
+ 100, 101, 101, 102, 89, 103, 103, 104, 104, 104,
+ 105, 105, 106, 106, 107, 89, 108, 89, 109, 89,
+ 110, 89, 89, 111, 111, 112, 112, 113, 113, 91,
+ 91, 98, 97, 97, 89, 89, 114, 89, 115, 115,
+ 115, 115, 115, 97, 91, 91, 91, 91, 91, 91,
+ 91, 97, 116, 117, 117, 97, 118, 89, 89, 119,
+ 119, 97, 97, 97, 97, 97, 120, 121, 121, 122,
+ 122, 97, 123, 123, 124, 124, 125, 126, 127, 127,
+ 128, 128, 129, 129, 130, 97, 131, 131, 132, 132,
+ 132, 133, 133
+};
+
+/* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */
+static const yytype_uint8 yyr2[] =
+{
+ 0, 2, 1, 2, 1, 1, 2, 1, 0, 3,
+ 0, 3, 0, 3, 0, 0, 6, 3, 3, 1,
+ 1, 1, 2, 1, 2, 1, 2, 2, 2, 1,
+ 2, 1, 1, 1, 3, 3, 3, 3, 3, 3,
+ 3, 3, 3, 3, 3, 3, 3, 3, 0, 4,
+ 0, 4, 0, 0, 7, 1, 2, 1, 1, 1,
+ 3, 1, 3, 3, 3, 3, 3, 3, 2, 2,
+ 2, 1, 2, 2, 2, 2, 1, 0, 1, 1,
+ 3, 5, 1, 0, 5, 1, 1, 1, 3, 2,
+ 3, 3, 0, 2, 4, 2, 1, 4, 1, 7,
+ 4, 2, 4, 3, 4, 1, 2, 1, 2, 3,
+ 5, 5, 5, 6, 7, 3, 6, 2, 1, 2,
+ 6, 2, 3, 1, 3, 3, 3, 3, 3, 3,
+ 3, 2, 5, 1, 3, 6, 1, 2, 3, 2,
+ 3, 1, 2, 2, 3, 4, 1, 1, 1, 2,
+ 3, 6, 1, 1, 1, 3, 2, 4, 2, 2,
+ 0, 1, 1, 3, 1, 3, 2, 2, 1, 3,
+ 3, 2, 2
+};
+
+/* 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[] =
+{
+ 0, 164, 0, 146, 0, 0, 0, 0, 118, 0,
+ 0, 57, 58, 61, 59, 83, 83, 82, 0, 0,
+ 152, 153, 8, 10, 0, 0, 2, 4, 7, 12,
+ 33, 55, 0, 71, 123, 0, 141, 0, 0, 5,
+ 0, 0, 0, 0, 31, 32, 85, 86, 98, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 23, 0,
+ 21, 25, 0, 83, 0, 0, 0, 0, 0, 29,
+ 0, 59, 70, 123, 69, 68, 0, 76, 73, 75,
+ 119, 121, 0, 0, 123, 72, 0, 0, 0, 0,
+ 0, 0, 0, 158, 159, 1, 3, 14, 52, 48,
+ 50, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 56, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 74, 0, 133, 131, 149, 147, 148, 142,
+ 143, 0, 156, 160, 6, 18, 26, 0, 0, 27,
+ 28, 0, 83, 137, 0, 30, 139, 0, 0, 17,
+ 22, 24, 77, 95, 0, 101, 105, 0, 0, 117,
+ 0, 0, 0, 0, 0, 0, 60, 0, 0, 122,
+ 0, 168, 165, 0, 77, 0, 0, 9, 11, 0,
+ 0, 0, 0, 109, 47, 46, 45, 44, 43, 42,
+ 41, 19, 13, 20, 63, 62, 66, 65, 64, 144,
+ 67, 40, 39, 38, 37, 36, 35, 34, 130, 129,
+ 128, 127, 126, 125, 124, 0, 150, 136, 0, 162,
+ 0, 161, 0, 103, 59, 0, 0, 115, 0, 138,
+ 140, 0, 79, 87, 78, 92, 96, 0, 0, 106,
+ 107, 0, 0, 0, 0, 0, 90, 91, 0, 0,
+ 166, 59, 0, 167, 0, 0, 0, 15, 0, 49,
+ 51, 145, 134, 0, 157, 0, 100, 0, 104, 94,
+ 0, 89, 0, 0, 0, 0, 97, 0, 108, 102,
+ 0, 0, 0, 110, 112, 170, 172, 169, 171, 81,
+ 132, 0, 0, 53, 0, 163, 0, 0, 88, 80,
+ 93, 84, 0, 112, 111, 120, 113, 135, 16, 0,
+ 0, 154, 151, 116, 0, 0, 54, 0, 114, 99,
+ 155
+};
+
+/* YYDEFGOTO[NTERM-NUM]. */
+static const yytype_int16 yydefgoto[] =
+{
+ -1, 25, 26, 27, 91, 92, 109, 189, 302, 58,
+ 202, 59, 60, 61, 62, 191, 192, 190, 319, 30,
+ 31, 32, 243, 244, 33, 86, 63, 245, 83, 285,
+ 64, 247, 65, 66, 67, 168, 252, 68, 34, 35,
+ 135, 228, 69, 36, 139, 37, 38, 322, 39, 40,
+ 41, 230, 231, 42, 182, 183, 263
+};
+
+/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
+ STATE-NUM. */
+#define YYPACT_NINF -189
+static const yytype_int16 yypact[] =
+{
+ 324, -189, 457, -189, 799, 799, 799, 1, -189, 709,
+ 829, -189, -189, -189, 389, -189, -189, -189, -39, -26,
+ -189, -189, -189, -189, 39, 289, -189, -189, -189, 1077,
+ 799, 129, 966, -189, 466, 3, 35, 799, -21, -189,
+ 29, -3, 29, 18, -189, -189, -189, -189, -189, 40,
+ 69, 34, 34, 86, -1, 594, 34, 594, -189, 386,
+ -189, -189, 706, -189, 528, 528, 528, 624, 528, -189,
+ 829, 10, 51, 14, 51, 51, 30, 128, -189, -189,
+ 128, -189, 446, 5, 704, -189, 130, 94, 104, 829,
+ 829, 29, 29, -189, -189, -189, -189, -189, -189, -189,
+ -189, 105, 829, 829, 829, 829, 829, 829, 829, 26,
+ 129, 799, 799, 799, 799, 799, 136, 799, 829, 829,
+ 829, 829, 829, 829, 829, 829, 829, 829, 829, 829,
+ 829, 829, -189, 829, -189, -189, -189, -189, -189, 119,
+ 73, 829, -189, 121, -189, -189, -189, 829, 654, -189,
+ -189, 829, 34, -189, 706, -189, -189, 706, 34, -189,
+ -189, -189, 859, 102, 110, -189, -189, 1045, 739, -189,
+ 931, 167, 131, 170, 172, 829, -189, 829, 158, -189,
+ 829, 140, -189, 889, 829, 1098, 1119, -189, -189, 829,
+ 829, 829, 829, -189, 70, -189, -189, -189, -189, -189,
+ -189, -189, -189, -189, 23, 23, 51, 51, 51, 1,
+ 143, 1142, 1142, 1142, 1142, 1142, 1142, 1142, 1142, 1142,
+ 1142, 1142, 1142, 1142, 1142, 942, -189, 1142, 177, -189,
+ 146, 187, 969, -189, 216, 1056, 980, -189, 192, -189,
+ -189, 769, 1142, -189, 193, 190, -189, 528, 157, -189,
+ -189, 1007, 528, 829, 829, 829, 1142, 1142, 154, 52,
+ -189, 199, 517, -189, 162, 159, 829, 1142, 1131, 387,
+ 595, -189, -189, 829, -189, 168, -189, 171, -189, -189,
+ 829, -189, 9, 829, 829, 34, -189, 829, -189, -189,
+ 61, 135, 139, -189, 537, -189, -189, -189, -189, -189,
+ -189, 175, 26, -189, 586, -189, 179, 145, 158, 1142,
+ 1142, -189, 1018, 180, -189, -189, -189, -189, -189, 829,
+ 1, -189, -189, -189, 34, 34, 1142, 189, -189, -189,
+ -189
+};
+
+/* YYPGOTO[NTERM-NUM]. */
+static const yytype_int16 yypgoto[] =
+{
+ -189, -189, 194, -189, -189, -189, -189, -189, -189, 44,
+ -75, -189, -53, -14, 0, -189, -189, -189, -189, -189,
+ 191, -6, 53, -95, -189, 2, -189, -189, 4, -189,
+ -189, -189, -189, -189, -189, -189, -189, -189, -2, -189,
+ -189, -28, -189, -189, -188, -189, -189, -189, -189, -189,
+ -189, -189, -189, -189, -189, -189, -189
+};
+
+/* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If
+ positive, shift that token. If negative, reduce the rule which
+ number is the opposite. If zero, do what YYDEFACT says.
+ If YYTABLE_NINF, syntax error. */
+#define YYTABLE_NINF -112
+static const yytype_int16 yytable[] =
+{
+ 29, 78, 73, 73, 73, 79, 160, 73, 84, 89,
+ 82, 163, 164, 165, 133, 169, 177, 87, 88, -83,
+ 177, 271, 90, 44, 45, 29, 145, 141, 73, 146,
+ 137, 44, 45, 2, 138, 73, 2, 149, 150, 44,
+ 45, 153, 155, 156, 28, 143, 8, 9, 161, 76,
+ 134, 152, 178, 77, 85, 154, 308, 157, 132, 113,
+ 114, 115, 294, 283, 116, 162, 117, 167, 84, 28,
+ 170, 313, 283, 171, 172, 8, 9, 136, 76, 173,
+ 8, 9, 174, 76, 142, 259, 144, 77, 147, 185,
+ 186, 93, 116, 94, 117, 203, 103, 104, 105, 106,
+ 107, 108, 194, 195, 196, 197, 198, 199, 200, 73,
+ 73, 73, 73, 73, -112, 73, 117, 148, 211, 212,
+ 213, 214, 215, 216, 217, 218, 219, 220, 221, 222,
+ 223, 224, 327, 225, 151, 187, 188, -83, 237, 180,
+ 239, 227, 181, 240, 146, 314, 283, 232, 235, 315,
+ 283, 236, 184, 201, 238, 324, 283, 193, 290, 291,
+ 292, 226, 242, 111, 112, 113, 114, 115, 251, 209,
+ 116, 246, 117, 229, 248, 256, 253, 257, 179, 254,
+ 242, 255, 258, 262, 242, 307, 117, 260, 273, 267,
+ 268, 269, 270, 274, 286, 72, 74, 75, 275, 289,
+ 81, 280, 284, 137, 283, 287, 293, 138, -83, 299,
+ 295, 300, -76, -76, -76, -76, -76, -76, -76, 96,
+ 305, 110, 317, 306, 316, -83, 323, 318, 140, -76,
+ -76, -76, -76, -76, -76, -76, 330, 264, 301, 84,
+ 277, 82, 0, 85, 0, 282, 296, 0, 0, 0,
+ 0, 0, 0, 242, 242, 242, 0, 0, 0, 0,
+ 85, 0, 0, 0, 0, 0, 227, 0, 0, 0,
+ 0, 311, 0, 304, 0, 0, 0, 0, 0, 0,
+ 242, 0, 0, 309, 310, 0, 0, 312, 203, 95,
+ 1, 0, 0, 0, 0, 0, 2, 0, 0, 0,
+ 0, 0, 204, 205, 206, 207, 208, 0, 210, 0,
+ 328, 329, 0, 0, 137, 0, 0, 0, 138, 326,
+ 0, 0, 3, 4, 5, 1, 0, 0, 0, 6,
+ 0, 2, 0, 7, 8, 9, 0, 10, 11, 12,
+ 13, 14, 0, 15, 16, 17, 201, 0, 18, 19,
+ 20, 21, 0, 0, 0, 0, 0, 3, 4, 5,
+ 22, 23, 0, 0, 6, 24, 0, 0, 7, 8,
+ 9, 0, 10, 11, 12, 13, 14, 0, 15, 16,
+ 17, 0, 0, 18, 19, 20, 21, 158, 0, 0,
+ 0, 44, 45, 2, 159, 22, 23, 0, -83, 0,
+ 24, 0, -76, -76, -76, -76, -76, -76, -76, 0,
+ 100, 101, 102, 103, 104, 105, 106, 107, 108, 3,
+ 4, 5, 0, 0, 0, 0, 6, 0, 0, 0,
+ 7, 8, 9, 85, 10, 11, 12, 13, 14, 0,
+ 15, 16, 17, 46, 47, 18, 19, 20, 21, 48,
+ 49, 50, 51, 52, 53, 0, 54, 175, 43, 55,
+ 56, 57, 44, 45, 2, 0, 0, 98, 99, 100,
+ 101, 102, 103, 104, 105, 106, 107, 108, 0, 125,
+ 126, 127, 128, 129, 130, 131, 0, 0, 0, 0,
+ 3, 4, 5, 176, 0, 0, 0, 6, 0, 0,
+ 0, 7, 8, 9, 0, 10, 11, 12, 13, 14,
+ 132, 15, 16, 17, 46, 47, 18, 19, 20, 21,
+ 48, 49, 50, 51, 52, 53, 0, 54, 297, 158,
+ 55, 56, 57, 44, 45, 2, 0, 0, 98, 99,
+ 100, 101, 102, 103, 104, 105, 106, 107, 108, 0,
+ -111, -111, -111, -111, -111, -111, -111, 0, 0, 0,
+ 0, 3, 4, 5, 298, 0, 0, 0, 6, 0,
+ 0, 0, 7, 8, 9, 0, 10, 11, 12, 13,
+ 14, 316, 15, 16, 17, 46, 47, 18, 19, 20,
+ 21, 48, 49, 50, 51, 52, 53, 320, 54, 44,
+ 45, 55, 56, 57, 0, 0, 0, 98, 99, 100,
+ 101, 102, 103, 104, 105, 106, 107, 108, 0, 101,
+ 102, 103, 104, 105, 106, 107, 108, 3, 4, 5,
+ 166, 0, 0, 321, 6, 0, 0, 0, 7, 8,
+ 9, 0, 10, 11, 12, 13, 14, 0, 15, 16,
+ 17, 0, 0, 18, 19, 20, 21, 3, 4, 5,
+ 233, 0, 0, 0, 6, 0, 0, 0, 7, 8,
+ 9, 0, 10, 11, 12, 13, 14, 0, 15, 16,
+ 17, 0, 0, 18, 19, 20, 21, 3, 4, 5,
+ 0, 0, 0, 0, 6, 0, 0, 0, 7, 8,
+ 9, 0, 10, 11, 12, 13, 234, 0, 15, 16,
+ 17, 44, 45, 18, 19, 20, 21, 125, 126, 127,
+ 128, 129, 130, 131, 0, 0, 0, 98, 99, 100,
+ 101, 102, 103, 104, 105, 106, 107, 108, 0, 0,
+ 0, 0, 3, 4, 5, 0, 0, 0, 132, 6,
+ 0, 179, 0, 7, 8, 9, 0, 70, 11, 12,
+ 13, 71, 80, 15, 16, 17, 0, 0, 18, 19,
+ 20, 21, 3, 4, 5, 0, 0, 0, 0, 6,
+ 0, 0, 0, 7, 8, 9, 250, 10, 11, 12,
+ 13, 14, 0, 15, 16, 17, 0, 0, 18, 19,
+ 20, 21, 3, 4, 5, 0, 0, 0, 0, 6,
+ 0, 0, 0, 7, 8, 9, 281, 10, 11, 12,
+ 13, 14, 0, 15, 16, 17, 0, 0, 18, 19,
+ 20, 21, 3, 4, 5, 0, 0, 0, 0, 6,
+ 0, 0, 0, 7, 8, 9, 0, 70, 11, 12,
+ 13, 71, 0, 15, 16, 17, 0, 0, 18, 19,
+ 20, 21, 3, 4, 5, 0, 0, 0, 0, 6,
+ 0, 0, 0, 7, 8, 9, 0, 10, 11, 12,
+ 13, 14, 0, 15, 16, 17, 0, 0, 18, 19,
+ 20, 21, 3, 4, 5, 0, 0, 0, 0, 6,
+ 0, 0, 0, 7, 8, 9, 0, 241, 11, 12,
+ 13, 14, 0, 15, 16, 17, 0, 0, 18, 19,
+ 20, 21, 3, 4, 5, 0, 0, 0, 0, 6,
+ 0, 0, 0, 7, 8, 9, 0, 10, 11, 12,
+ 13, 261, 0, 15, 16, 17, 0, 0, 18, 19,
+ 20, 21, 98, 99, 100, 101, 102, 103, 104, 105,
+ 106, 107, 108, 98, 99, 100, 101, 102, 103, 104,
+ 105, 106, 107, 108, 0, 0, 0, 0, 176, 118,
+ 119, 120, 121, 122, 123, 124, 0, 0, 0, 272,
+ 98, 99, 100, 101, 102, 103, 104, 105, 106, 107,
+ 108, 98, 99, 100, 101, 102, 103, 104, 105, 106,
+ 107, 108, 0, 0, 0, 0, 276, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 279, 98, 99,
+ 100, 101, 102, 103, 104, 105, 106, 107, 108, 98,
+ 99, 100, 101, 102, 103, 104, 105, 106, 107, 108,
+ 0, 249, 0, 0, 288, 0, 0, 0, 0, 0,
+ 0, 0, 278, 0, 0, 325, 98, 99, 100, 101,
+ 102, 103, 104, 105, 106, 107, 108, 98, 99, 100,
+ 101, 102, 103, 104, 105, 106, 107, 108, 97, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 98, 99,
+ 100, 101, 102, 103, 104, 105, 106, 107, 108, 265,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 98,
+ 99, 100, 101, 102, 103, 104, 105, 106, 107, 108,
+ 266, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 98, 99, 100, 101, 102, 103, 104, 105, 106, 107,
+ 108, 303, 98, 99, 100, 101, 102, 103, 104, 105,
+ 106, 107, 108, 98, 99, 100, 101, 102, 103, 104,
+ 105, 106, 107, 108
+};
+
+static const yytype_int16 yycheck[] =
+{
+ 0, 7, 4, 5, 6, 7, 59, 9, 10, 48,
+ 10, 64, 65, 66, 11, 68, 11, 15, 16, 9,
+ 11, 209, 48, 5, 6, 25, 8, 48, 30, 43,
+ 36, 5, 6, 7, 36, 37, 7, 51, 52, 5,
+ 6, 55, 56, 57, 0, 48, 45, 46, 62, 48,
+ 47, 52, 47, 52, 44, 55, 47, 57, 44, 36,
+ 37, 38, 10, 11, 41, 63, 43, 67, 70, 25,
+ 70, 10, 11, 71, 76, 45, 46, 42, 48, 77,
+ 45, 46, 80, 48, 40, 180, 42, 52, 48, 89,
+ 90, 52, 41, 54, 43, 109, 26, 27, 28, 29,
+ 30, 31, 102, 103, 104, 105, 106, 107, 108, 111,
+ 112, 113, 114, 115, 41, 117, 43, 48, 118, 119,
+ 120, 121, 122, 123, 124, 125, 126, 127, 128, 129,
+ 130, 131, 320, 133, 48, 91, 92, 9, 152, 9,
+ 154, 141, 48, 157, 158, 10, 11, 147, 148, 10,
+ 11, 151, 48, 109, 152, 10, 11, 52, 253, 254,
+ 255, 42, 162, 34, 35, 36, 37, 38, 168, 33,
+ 41, 69, 43, 52, 64, 175, 9, 177, 47, 9,
+ 180, 9, 24, 183, 184, 280, 43, 47, 11, 189,
+ 190, 191, 192, 47, 247, 4, 5, 6, 11, 252,
+ 9, 9, 12, 209, 11, 48, 52, 209, 9, 47,
+ 11, 52, 13, 14, 15, 16, 17, 18, 19, 25,
+ 52, 30, 47, 52, 44, 9, 47, 302, 37, 13,
+ 14, 15, 16, 17, 18, 19, 47, 184, 266, 241,
+ 24, 241, -1, 44, -1, 241, 47, -1, -1, -1,
+ -1, -1, -1, 253, 254, 255, -1, -1, -1, -1,
+ 44, -1, -1, -1, -1, -1, 266, -1, -1, -1,
+ -1, 285, -1, 273, -1, -1, -1, -1, -1, -1,
+ 280, -1, -1, 283, 284, -1, -1, 287, 302, 0,
+ 1, -1, -1, -1, -1, -1, 7, -1, -1, -1,
+ -1, -1, 111, 112, 113, 114, 115, -1, 117, -1,
+ 324, 325, -1, -1, 320, -1, -1, -1, 320, 319,
+ -1, -1, 33, 34, 35, 1, -1, -1, -1, 40,
+ -1, 7, -1, 44, 45, 46, -1, 48, 49, 50,
+ 51, 52, -1, 54, 55, 56, 302, -1, 59, 60,
+ 61, 62, -1, -1, -1, -1, -1, 33, 34, 35,
+ 71, 72, -1, -1, 40, 76, -1, -1, 44, 45,
+ 46, -1, 48, 49, 50, 51, 52, -1, 54, 55,
+ 56, -1, -1, 59, 60, 61, 62, 1, -1, -1,
+ -1, 5, 6, 7, 8, 71, 72, -1, 9, -1,
+ 76, -1, 13, 14, 15, 16, 17, 18, 19, -1,
+ 23, 24, 25, 26, 27, 28, 29, 30, 31, 33,
+ 34, 35, -1, -1, -1, -1, 40, -1, -1, -1,
+ 44, 45, 46, 44, 48, 49, 50, 51, 52, -1,
+ 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
+ 64, 65, 66, 67, 68, -1, 70, 11, 1, 73,
+ 74, 75, 5, 6, 7, -1, -1, 21, 22, 23,
+ 24, 25, 26, 27, 28, 29, 30, 31, -1, 13,
+ 14, 15, 16, 17, 18, 19, -1, -1, -1, -1,
+ 33, 34, 35, 47, -1, -1, -1, 40, -1, -1,
+ -1, 44, 45, 46, -1, 48, 49, 50, 51, 52,
+ 44, 54, 55, 56, 57, 58, 59, 60, 61, 62,
+ 63, 64, 65, 66, 67, 68, -1, 70, 11, 1,
+ 73, 74, 75, 5, 6, 7, -1, -1, 21, 22,
+ 23, 24, 25, 26, 27, 28, 29, 30, 31, -1,
+ 13, 14, 15, 16, 17, 18, 19, -1, -1, -1,
+ -1, 33, 34, 35, 47, -1, -1, -1, 40, -1,
+ -1, -1, 44, 45, 46, -1, 48, 49, 50, 51,
+ 52, 44, 54, 55, 56, 57, 58, 59, 60, 61,
+ 62, 63, 64, 65, 66, 67, 68, 11, 70, 5,
+ 6, 73, 74, 75, -1, -1, -1, 21, 22, 23,
+ 24, 25, 26, 27, 28, 29, 30, 31, -1, 24,
+ 25, 26, 27, 28, 29, 30, 31, 33, 34, 35,
+ 6, -1, -1, 47, 40, -1, -1, -1, 44, 45,
+ 46, -1, 48, 49, 50, 51, 52, -1, 54, 55,
+ 56, -1, -1, 59, 60, 61, 62, 33, 34, 35,
+ 6, -1, -1, -1, 40, -1, -1, -1, 44, 45,
+ 46, -1, 48, 49, 50, 51, 52, -1, 54, 55,
+ 56, -1, -1, 59, 60, 61, 62, 33, 34, 35,
+ -1, -1, -1, -1, 40, -1, -1, -1, 44, 45,
+ 46, -1, 48, 49, 50, 51, 52, -1, 54, 55,
+ 56, 5, 6, 59, 60, 61, 62, 13, 14, 15,
+ 16, 17, 18, 19, -1, -1, -1, 21, 22, 23,
+ 24, 25, 26, 27, 28, 29, 30, 31, -1, -1,
+ -1, -1, 33, 34, 35, -1, -1, -1, 44, 40,
+ -1, 47, -1, 44, 45, 46, -1, 48, 49, 50,
+ 51, 52, 53, 54, 55, 56, -1, -1, 59, 60,
+ 61, 62, 33, 34, 35, -1, -1, -1, -1, 40,
+ -1, -1, -1, 44, 45, 46, 47, 48, 49, 50,
+ 51, 52, -1, 54, 55, 56, -1, -1, 59, 60,
+ 61, 62, 33, 34, 35, -1, -1, -1, -1, 40,
+ -1, -1, -1, 44, 45, 46, 47, 48, 49, 50,
+ 51, 52, -1, 54, 55, 56, -1, -1, 59, 60,
+ 61, 62, 33, 34, 35, -1, -1, -1, -1, 40,
+ -1, -1, -1, 44, 45, 46, -1, 48, 49, 50,
+ 51, 52, -1, 54, 55, 56, -1, -1, 59, 60,
+ 61, 62, 33, 34, 35, -1, -1, -1, -1, 40,
+ -1, -1, -1, 44, 45, 46, -1, 48, 49, 50,
+ 51, 52, -1, 54, 55, 56, -1, -1, 59, 60,
+ 61, 62, 33, 34, 35, -1, -1, -1, -1, 40,
+ -1, -1, -1, 44, 45, 46, -1, 48, 49, 50,
+ 51, 52, -1, 54, 55, 56, -1, -1, 59, 60,
+ 61, 62, 33, 34, 35, -1, -1, -1, -1, 40,
+ -1, -1, -1, 44, 45, 46, -1, 48, 49, 50,
+ 51, 52, -1, 54, 55, 56, -1, -1, 59, 60,
+ 61, 62, 21, 22, 23, 24, 25, 26, 27, 28,
+ 29, 30, 31, 21, 22, 23, 24, 25, 26, 27,
+ 28, 29, 30, 31, -1, -1, -1, -1, 47, 13,
+ 14, 15, 16, 17, 18, 19, -1, -1, -1, 47,
+ 21, 22, 23, 24, 25, 26, 27, 28, 29, 30,
+ 31, 21, 22, 23, 24, 25, 26, 27, 28, 29,
+ 30, 31, -1, -1, -1, -1, 47, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, 47, 21, 22,
+ 23, 24, 25, 26, 27, 28, 29, 30, 31, 21,
+ 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
+ -1, 6, -1, -1, 47, -1, -1, -1, -1, -1,
+ -1, -1, 6, -1, -1, 47, 21, 22, 23, 24,
+ 25, 26, 27, 28, 29, 30, 31, 21, 22, 23,
+ 24, 25, 26, 27, 28, 29, 30, 31, 11, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, 21, 22,
+ 23, 24, 25, 26, 27, 28, 29, 30, 31, 11,
+ -1, -1, -1, -1, -1, -1, -1, -1, -1, 21,
+ 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
+ 11, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ 21, 22, 23, 24, 25, 26, 27, 28, 29, 30,
+ 31, 20, 21, 22, 23, 24, 25, 26, 27, 28,
+ 29, 30, 31, 21, 22, 23, 24, 25, 26, 27,
+ 28, 29, 30, 31
+};
+
+/* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
+ symbol of state STATE-NUM. */
+static const yytype_uint8 yystos[] =
+{
+ 0, 1, 7, 33, 34, 35, 40, 44, 45, 46,
+ 48, 49, 50, 51, 52, 54, 55, 56, 59, 60,
+ 61, 62, 71, 72, 76, 78, 79, 80, 86, 91,
+ 96, 97, 98, 101, 115, 116, 120, 122, 123, 125,
+ 126, 127, 130, 1, 5, 6, 57, 58, 63, 64,
+ 65, 66, 67, 68, 70, 73, 74, 75, 86, 88,
+ 89, 90, 91, 103, 107, 109, 110, 111, 114, 119,
+ 48, 52, 97, 115, 97, 97, 48, 52, 98, 115,
+ 53, 97, 91, 105, 115, 44, 102, 102, 102, 48,
+ 48, 81, 82, 52, 54, 0, 79, 11, 21, 22,
+ 23, 24, 25, 26, 27, 28, 29, 30, 31, 83,
+ 97, 34, 35, 36, 37, 38, 41, 43, 13, 14,
+ 15, 16, 17, 18, 19, 13, 14, 15, 16, 17,
+ 18, 19, 44, 11, 47, 117, 42, 98, 115, 121,
+ 97, 48, 86, 48, 86, 8, 90, 48, 48, 90,
+ 90, 48, 52, 90, 91, 90, 90, 91, 1, 8,
+ 89, 90, 102, 89, 89, 89, 6, 91, 112, 89,
+ 91, 102, 115, 102, 102, 11, 47, 11, 47, 47,
+ 9, 48, 131, 132, 48, 91, 91, 86, 86, 84,
+ 94, 92, 93, 52, 91, 91, 91, 91, 91, 91,
+ 91, 86, 87, 90, 97, 97, 97, 97, 97, 33,
+ 97, 91, 91, 91, 91, 91, 91, 91, 91, 91,
+ 91, 91, 91, 91, 91, 91, 42, 91, 118, 52,
+ 128, 129, 91, 6, 52, 91, 91, 90, 102, 90,
+ 90, 48, 91, 99, 100, 104, 69, 108, 64, 6,
+ 47, 91, 113, 9, 9, 9, 91, 91, 24, 100,
+ 47, 52, 91, 133, 99, 11, 11, 91, 91, 91,
+ 91, 121, 47, 11, 47, 11, 47, 24, 6, 47,
+ 9, 47, 105, 11, 12, 106, 89, 48, 47, 89,
+ 100, 100, 100, 52, 10, 11, 47, 11, 47, 47,
+ 52, 118, 85, 20, 91, 52, 52, 100, 47, 91,
+ 91, 90, 91, 10, 10, 10, 44, 47, 87, 95,
+ 11, 47, 124, 47, 10, 47, 91, 121, 90, 90,
+ 47
+};
+
+#define yyerrok (yyerrstatus = 0)
+#define yyclearin (yychar = YYEMPTY)
+#define YYEMPTY (-2)
+#define YYEOF 0
+
+#define YYACCEPT goto yyacceptlab
+#define YYABORT goto yyabortlab
+#define YYERROR goto yyerrorlab
+
+
+/* Like YYERROR except do call yyerror. This remains here temporarily
+ to ease the transition to the new meaning of YYERROR, for GCC.
+ Once GCC version 2 has supplanted version 1, this can go. */
+
+#define YYFAIL goto yyerrlab
+
+#define YYRECOVERING() (!!yyerrstatus)
+
+#define YYBACKUP(Token, Value) \
+do \
+ if (yychar == YYEMPTY && yylen == 1) \
+ { \
+ yychar = (Token); \
+ yylval = (Value); \
+ yytoken = YYTRANSLATE (yychar); \
+ YYPOPSTACK (1); \
+ goto yybackup; \
+ } \
+ else \
+ { \
+ yyerror (YY_("syntax error: cannot back up")); \
+ YYERROR; \
+ } \
+while (YYID (0))
+
+
+#define YYTERROR 1
+#define YYERRCODE 256
+
+
+/* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N].
+ If N is 0, then set CURRENT to the empty location which ends
+ the previous symbol: RHS[0] (always defined). */
+
+#define YYRHSLOC(Rhs, K) ((Rhs)[K])
+#ifndef YYLLOC_DEFAULT
+# define YYLLOC_DEFAULT(Current, Rhs, N) \
+ do \
+ if (YYID (N)) \
+ { \
+ (Current).first_line = YYRHSLOC (Rhs, 1).first_line; \
+ (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \
+ (Current).last_line = YYRHSLOC (Rhs, N).last_line; \
+ (Current).last_column = YYRHSLOC (Rhs, N).last_column; \
+ } \
+ else \
+ { \
+ (Current).first_line = (Current).last_line = \
+ YYRHSLOC (Rhs, 0).last_line; \
+ (Current).first_column = (Current).last_column = \
+ YYRHSLOC (Rhs, 0).last_column; \
+ } \
+ while (YYID (0))
+#endif
+
+
+/* YY_LOCATION_PRINT -- Print the location on the stream.
+ This macro was not mandated originally: define only if we know
+ we won't break user code: when these are the locations we know. */
+
+#ifndef YY_LOCATION_PRINT
+# if YYLTYPE_IS_TRIVIAL
+# define YY_LOCATION_PRINT(File, Loc) \
+ fprintf (File, "%d.%d-%d.%d", \
+ (Loc).first_line, (Loc).first_column, \
+ (Loc).last_line, (Loc).last_column)
+# else
+# define YY_LOCATION_PRINT(File, Loc) ((void) 0)
+# endif
+#endif
+
+
+/* YYLEX -- calling `yylex' with the right arguments. */
+
+#ifdef YYLEX_PARAM
+# define YYLEX yylex (YYLEX_PARAM)
+#else
+# define YYLEX yylex ()
+#endif
+
+/* Enable debugging if requested. */
+#if YYDEBUG
+
+# ifndef YYFPRINTF
+# include <stdio.h> /* INFRINGES ON USER NAME SPACE */
+# define YYFPRINTF fprintf
+# endif
+
+# define YYDPRINTF(Args) \
+do { \
+ if (yydebug) \
+ YYFPRINTF Args; \
+} while (YYID (0))
+
+# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \
+do { \
+ if (yydebug) \
+ { \
+ YYFPRINTF (stderr, "%s ", Title); \
+ yy_symbol_print (stderr, \
+ Type, Value); \
+ YYFPRINTF (stderr, "\n"); \
+ } \
+} while (YYID (0))
+
+
+/*--------------------------------.
+| Print this symbol on YYOUTPUT. |
+`--------------------------------*/
+
+/*ARGSUSED*/
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static void
+yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
+#else
+static void
+yy_symbol_value_print (yyoutput, yytype, yyvaluep)
+ FILE *yyoutput;
+ int yytype;
+ YYSTYPE const * const yyvaluep;
+#endif
+{
+ if (!yyvaluep)
+ return;
+# ifdef YYPRINT
+ if (yytype < YYNTOKENS)
+ YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep);
+# else
+ YYUSE (yyoutput);
+# endif
+ switch (yytype)
+ {
+ default:
+ break;
+ }
+}
+
+
+/*--------------------------------.
+| Print this symbol on YYOUTPUT. |
+`--------------------------------*/
+
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static void
+yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
+#else
+static void
+yy_symbol_print (yyoutput, yytype, yyvaluep)
+ FILE *yyoutput;
+ int yytype;
+ YYSTYPE const * const yyvaluep;
+#endif
+{
+ if (yytype < YYNTOKENS)
+ YYFPRINTF (yyoutput, "token %s (", yytname[yytype]);
+ else
+ YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]);
+
+ yy_symbol_value_print (yyoutput, yytype, yyvaluep);
+ YYFPRINTF (yyoutput, ")");
+}
+
+/*------------------------------------------------------------------.
+| yy_stack_print -- Print the state stack from its BOTTOM up to its |
+| TOP (included). |
+`------------------------------------------------------------------*/
+
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static void
+yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop)
+#else
+static void
+yy_stack_print (yybottom, yytop)
+ yytype_int16 *yybottom;
+ yytype_int16 *yytop;
+#endif
+{
+ YYFPRINTF (stderr, "Stack now");
+ for (; yybottom <= yytop; yybottom++)
+ {
+ int yybot = *yybottom;
+ YYFPRINTF (stderr, " %d", yybot);
+ }
+ YYFPRINTF (stderr, "\n");
+}
+
+# define YY_STACK_PRINT(Bottom, Top) \
+do { \
+ if (yydebug) \
+ yy_stack_print ((Bottom), (Top)); \
+} while (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, int yyrule)
+#else
+static void
+yy_reduce_print (yyvsp, yyrule)
+ YYSTYPE *yyvsp;
+ 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++)
+ {
+ YYFPRINTF (stderr, " $%d = ", yyi + 1);
+ yy_symbol_print (stderr, yyrhs[yyprhs[yyrule] + yyi],
+ &(yyvsp[(yyi + 1) - (yynrhs)])
+ );
+ YYFPRINTF (stderr, "\n");
+ }
+}
+
+# define YY_REDUCE_PRINT(Rule) \
+do { \
+ if (yydebug) \
+ yy_reduce_print (yyvsp, Rule); \
+} while (YYID (0))
+
+/* Nonzero means print parse trace. It is left uninitialized so that
+ multiple parsers can coexist. */
+int yydebug;
+#else /* !YYDEBUG */
+# define YYDPRINTF(Args)
+# define YY_SYMBOL_PRINT(Title, Type, Value, Location)
+# define YY_STACK_PRINT(Bottom, Top)
+# define YY_REDUCE_PRINT(Rule)
+#endif /* !YYDEBUG */
+
+
+/* YYINITDEPTH -- initial size of the parser's stacks. */
+#ifndef YYINITDEPTH
+# define YYINITDEPTH 200
+#endif
+
+/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only
+ if the built-in stack extension method is used).
+
+ Do not make this value too large; the results are undefined if
+ YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH)
+ evaluated with infinite-precision integer arithmetic. */
+
+#ifndef YYMAXDEPTH
+# define YYMAXDEPTH 10000
+#endif
+
+\f
+
+#if YYERROR_VERBOSE
+
+# ifndef yystrlen
+# if defined __GLIBC__ && defined _STRING_H
+# define yystrlen strlen
+# else
+/* Return the length of YYSTR. */
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static YYSIZE_T
+yystrlen (const char *yystr)
+#else
+static YYSIZE_T
+yystrlen (yystr)
+ const char *yystr;
+#endif
+{
+ YYSIZE_T yylen;
+ for (yylen = 0; yystr[yylen]; yylen++)
+ continue;
+ return yylen;
+}
+# endif
+# endif
+
+# ifndef yystpcpy
+# if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE
+# define yystpcpy stpcpy
+# else
+/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in
+ YYDEST. */
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static char *
+yystpcpy (char *yydest, const char *yysrc)
+#else
+static char *
+yystpcpy (yydest, yysrc)
+ char *yydest;
+ const char *yysrc;
+#endif
+{
+ char *yyd = yydest;
+ const char *yys = yysrc;
+
+ while ((*yyd++ = *yys++) != '\0')
+ continue;
+
+ return yyd - 1;
+}
+# endif
+# endif
+
+# ifndef yytnamerr
+/* Copy to YYRES the contents of YYSTR after stripping away unnecessary
+ quotes and backslashes, so that it's suitable for yyerror. The
+ heuristic is that double-quoting is unnecessary unless the string
+ contains an apostrophe, a comma, or backslash (other than
+ backslash-backslash). YYSTR is taken from yytname. If YYRES is
+ null, do not copy; instead, return the length of what the result
+ would have been. */
+static YYSIZE_T
+yytnamerr (char *yyres, const char *yystr)
+{
+ if (*yystr == '"')
+ {
+ YYSIZE_T yyn = 0;
+ char const *yyp = yystr;
+
+ for (;;)
+ switch (*++yyp)
+ {
+ case '\'':
+ case ',':
+ goto do_not_strip_quotes;
+
+ case '\\':
+ if (*++yyp != '\\')
+ goto do_not_strip_quotes;
+ /* Fall through. */
+ default:
+ if (yyres)
+ yyres[yyn] = *yyp;
+ yyn++;
+ break;
+
+ case '"':
+ if (yyres)
+ yyres[yyn] = '\0';
+ return yyn;
+ }
+ do_not_strip_quotes: ;
+ }
+
+ if (! yyres)
+ return yystrlen (yystr);
+
+ return yystpcpy (yyres, yystr) - yyres;
+}
+# endif
+
+/* Copy into YYRESULT an error message about the unexpected token
+ YYCHAR while in state YYSTATE. Return the number of bytes copied,
+ including the terminating null byte. If YYRESULT is null, do not
+ copy anything; just return the number of bytes that would be
+ copied. As a special case, return 0 if an ordinary "syntax error"
+ message will do. Return YYSIZE_MAXIMUM if overflow occurs during
+ size calculation. */
+static YYSIZE_T
+yysyntax_error (char *yyresult, int yystate, int yychar)
+{
+ int yyn = yypact[yystate];
+
+ 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;
+
+# if 0
+ /* This is so xgettext sees the translatable formats that are
+ constructed on the fly. */
+ YY_("syntax error, unexpected %s");
+ YY_("syntax error, unexpected %s, expecting %s");
+ YY_("syntax error, unexpected %s, expecting %s or %s");
+ YY_("syntax error, unexpected %s, expecting %s or %s or %s");
+ YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s");
+# endif
+ char *yyfmt;
+ char const *yyf;
+ static char const yyunexpected[] = "syntax error, unexpected %s";
+ static char const yyexpecting[] = ", expecting %s";
+ static char const yyor[] = " or %s";
+ char yyformat[sizeof yyunexpected
+ + sizeof yyexpecting - 1
+ + ((YYERROR_VERBOSE_ARGS_MAXIMUM - 2)
+ * (sizeof yyor - 1))];
+ char const *yyprefix = yyexpecting;
+
+ /* Start YYX at -YYN if negative to avoid negative indexes in
+ YYCHECK. */
+ int yyxbegin = yyn < 0 ? -yyn : 0;
+
+ /* Stay within bounds of both yycheck and yytname. */
+ int yychecklim = YYLAST - yyn + 1;
+ int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
+ int yycount = 1;
+
+ yyarg[0] = yytname[yytype];
+ yyfmt = yystpcpy (yyformat, yyunexpected);
+
+ for (yyx = yyxbegin; yyx < yyxend; ++yyx)
+ if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR)
+ {
+ if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM)
+ {
+ yycount = 1;
+ yysize = yysize0;
+ yyformat[sizeof yyunexpected - 1] = '\0';
+ break;
+ }
+ yyarg[yycount++] = yytname[yyx];
+ yysize1 = yysize + yytnamerr (0, yytname[yyx]);
+ yysize_overflow |= (yysize1 < yysize);
+ yysize = yysize1;
+ yyfmt = yystpcpy (yyfmt, yyprefix);
+ yyprefix = yyor;
+ }
+
+ yyf = YY_(yyformat);
+ yysize1 = yysize + yystrlen (yyf);
+ yysize_overflow |= (yysize1 < yysize);
+ yysize = yysize1;
+
+ if (yysize_overflow)
+ return YYSIZE_MAXIMUM;
+
+ 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 */
+\f
+
+/*-----------------------------------------------.
+| Release the memory associated to this symbol. |
+`-----------------------------------------------*/
+
+/*ARGSUSED*/
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static void
+yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep)
+#else
+static void
+yydestruct (yymsg, yytype, yyvaluep)
+ const char *yymsg;
+ int yytype;
+ YYSTYPE *yyvaluep;
+#endif
+{
+ YYUSE (yyvaluep);
+
+ if (!yymsg)
+ yymsg = "Deleting";
+ YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp);
+
+ switch (yytype)
+ {
+
+ default:
+ break;
+ }
+}
+
+/* Prevent warnings from -Wmissing-prototypes. */
+#ifdef YYPARSE_PARAM
+#if defined __STDC__ || defined __cplusplus
+int yyparse (void *YYPARSE_PARAM);
+#else
+int yyparse ();
+#endif
+#else /* ! YYPARSE_PARAM */
+#if defined __STDC__ || defined __cplusplus
+int yyparse (void);
+#else
+int yyparse ();
+#endif
+#endif /* ! YYPARSE_PARAM */
+
+
+/* The lookahead symbol. */
+int yychar;
+
+/* The semantic value of the lookahead symbol. */
+YYSTYPE yylval;
+
+/* Number of syntax errors so far. */
+int yynerrs;
+
+
+
+/*-------------------------.
+| yyparse or yypush_parse. |
+`-------------------------*/
+
+#ifdef YYPARSE_PARAM
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+int
+yyparse (void *YYPARSE_PARAM)
+#else
+int
+yyparse (YYPARSE_PARAM)
+ void *YYPARSE_PARAM;
+#endif
+#else /* ! YYPARSE_PARAM */
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+int
+yyparse (void)
+#else
+int
+yyparse ()
+
+#endif
+#endif
+{
+
+
+ int yystate;
+ /* Number of tokens to shift before error messages enabled. */
+ int yyerrstatus;
+
+ /* The stacks and their tools:
+ `yyss': related to states.
+ `yyvs': related to semantic values.
+
+ Refer to the stacks thru separate pointers, to allow yyoverflow
+ to reallocate them elsewhere. */
+
+ /* The state stack. */
+ yytype_int16 yyssa[YYINITDEPTH];
+ yytype_int16 *yyss;
+ yytype_int16 *yyssp;
+
+ /* The semantic value stack. */
+ YYSTYPE yyvsa[YYINITDEPTH];
+ YYSTYPE *yyvs;
+ YYSTYPE *yyvsp;
+
+ YYSIZE_T yystacksize;
+
+ int yyn;
+ int yyresult;
+ /* Lookahead token as an internal (translated) token number. */
+ int yytoken;
+ /* The variables used to return semantic value and location from the
+ action routines. */
+ YYSTYPE yyval;
+
+#if YYERROR_VERBOSE
+ /* Buffer for error messages, and its allocated size. */
+ char yymsgbuf[128];
+ char *yymsg = yymsgbuf;
+ YYSIZE_T yymsg_alloc = sizeof yymsgbuf;
+#endif
+
+#define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N))
+
+ /* The number of symbols on the RHS of the reduced rule.
+ Keep to zero when no symbol should be popped. */
+ int yylen = 0;
+
+ yytoken = 0;
+ yyss = yyssa;
+ yyvs = yyvsa;
+ yystacksize = YYINITDEPTH;
+
+ YYDPRINTF ((stderr, "Starting parse\n"));
+
+ 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. */
+ yyssp = yyss;
+ yyvsp = yyvs;
+
+ goto yysetstate;
+
+/*------------------------------------------------------------.
+| yynewstate -- Push a new state, which is found in yystate. |
+`------------------------------------------------------------*/
+ yynewstate:
+ /* In all cases, when you get here, the value and location stacks
+ have just been pushed. So pushing a state here evens the stacks. */
+ yyssp++;
+
+ yysetstate:
+ *yyssp = yystate;
+
+ if (yyss + yystacksize - 1 <= yyssp)
+ {
+ /* Get the current used size of the three stacks, in elements. */
+ YYSIZE_T yysize = yyssp - yyss + 1;
+
+#ifdef yyoverflow
+ {
+ /* Give user a chance to reallocate the stack. Use copies of
+ these so that the &'s don't force the real ones into
+ memory. */
+ YYSTYPE *yyvs1 = yyvs;
+ yytype_int16 *yyss1 = yyss;
+
+ /* Each stack pointer address is followed by the size of the
+ data in use in that stack, in bytes. This used to be a
+ conditional around just the two extra args, but that might
+ be undefined if yyoverflow is a macro. */
+ yyoverflow (YY_("memory exhausted"),
+ &yyss1, yysize * sizeof (*yyssp),
+ &yyvs1, yysize * sizeof (*yyvsp),
+ &yystacksize);
+
+ yyss = yyss1;
+ yyvs = yyvs1;
+ }
+#else /* no yyoverflow */
+# ifndef YYSTACK_RELOCATE
+ goto yyexhaustedlab;
+# else
+ /* Extend the stack our own way. */
+ if (YYMAXDEPTH <= yystacksize)
+ goto yyexhaustedlab;
+ yystacksize *= 2;
+ if (YYMAXDEPTH < yystacksize)
+ yystacksize = YYMAXDEPTH;
+
+ {
+ yytype_int16 *yyss1 = yyss;
+ union yyalloc *yyptr =
+ (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
+ if (! yyptr)
+ goto yyexhaustedlab;
+ YYSTACK_RELOCATE (yyss_alloc, yyss);
+ YYSTACK_RELOCATE (yyvs_alloc, yyvs);
+# undef YYSTACK_RELOCATE
+ if (yyss1 != yyssa)
+ YYSTACK_FREE (yyss1);
+ }
+# endif
+#endif /* no yyoverflow */
+
+ yyssp = yyss + yysize - 1;
+ yyvsp = yyvs + yysize - 1;
+
+ YYDPRINTF ((stderr, "Stack size increased to %lu\n",
+ (unsigned long int) yystacksize));
+
+ if (yyss + yystacksize - 1 <= yyssp)
+ YYABORT;
+ }
+
+ YYDPRINTF ((stderr, "Entering state %d\n", yystate));
+
+ if (yystate == YYFINAL)
+ YYACCEPT;
+
+ goto yybackup;
+
+/*-----------.
+| yybackup. |
+`-----------*/
+yybackup:
+
+ /* Do appropriate processing given the current state. Read a
+ lookahead token if we need one and don't already have one. */
+
+ /* First try to decide what to do without reference to lookahead token. */
+ yyn = yypact[yystate];
+ if (yyn == YYPACT_NINF)
+ goto yydefault;
+
+ /* Not known => get a lookahead token if don't already have one. */
+
+ /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */
+ if (yychar == YYEMPTY)
+ {
+ YYDPRINTF ((stderr, "Reading a token: "));
+ yychar = YYLEX;
+ }
+
+ if (yychar <= YYEOF)
+ {
+ yychar = yytoken = YYEOF;
+ YYDPRINTF ((stderr, "Now at end of input.\n"));
+ }
+ else
+ {
+ yytoken = YYTRANSLATE (yychar);
+ YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc);
+ }
+
+ /* If the proper action on seeing token YYTOKEN is to reduce or to
+ detect an error, take that action. */
+ yyn += yytoken;
+ if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)
+ goto yydefault;
+ yyn = yytable[yyn];
+ if (yyn <= 0)
+ {
+ if (yyn == 0 || yyn == YYTABLE_NINF)
+ goto yyerrlab;
+ yyn = -yyn;
+ goto yyreduce;
+ }
+
+ /* Count tokens shifted since error; after three, turn off error
+ status. */
+ if (yyerrstatus)
+ yyerrstatus--;
+
+ /* Shift the lookahead token. */
+ YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
+
+ /* Discard the shifted token. */
+ yychar = YYEMPTY;
+
+ yystate = yyn;
+ *++yyvsp = yylval;
+
+ goto yynewstate;
+
+
+/*-----------------------------------------------------------.
+| yydefault -- do the default action for the current state. |
+`-----------------------------------------------------------*/
+yydefault:
+ yyn = yydefact[yystate];
+ if (yyn == 0)
+ goto yyerrlab;
+ goto yyreduce;
+
+
+/*-----------------------------.
+| yyreduce -- Do a reduction. |
+`-----------------------------*/
+yyreduce:
+ /* yyn is the number of a rule to reduce with. */
+ yylen = yyr2[yyn];
+
+ /* If YYLEN is nonzero, implement the default value of the action:
+ `$$ = $1'.
+
+ Otherwise, the following line sets YYVAL to garbage.
+ This behavior is undocumented and Bison
+ users should not rely upon it. Assigning to YYVAL
+ unconditionally makes the parser a bit smaller, and it avoids a
+ GCC warning that YYVAL may be used uninitialized. */
+ yyval = yyvsp[1-yylen];
+
+
+ YY_REDUCE_PRINT (yyn);
+ switch (yyn)
+ {
+ case 7:
+
+/* Line 1455 of yacc.c */
+#line 210 "parse.y"
+ { /* this do nothing action removes a vacuous warning
+ from Bison */
+ }
+ break;
+
+ case 8:
+
+/* Line 1455 of yacc.c */
+#line 215 "parse.y"
+ { be_setup(scope = SCOPE_BEGIN) ; }
+ break;
+
+ case 9:
+
+/* Line 1455 of yacc.c */
+#line 218 "parse.y"
+ { switch_code_to_main() ; }
+ break;
+
+ case 10:
+
+/* Line 1455 of yacc.c */
+#line 221 "parse.y"
+ { be_setup(scope = SCOPE_END) ; }
+ break;
+
+ case 11:
+
+/* Line 1455 of yacc.c */
+#line 224 "parse.y"
+ { switch_code_to_main() ; }
+ break;
+
+ case 12:
+
+/* Line 1455 of yacc.c */
+#line 227 "parse.y"
+ { code_jmp(_JZ, (INST*)0) ; }
+ break;
+
+ case 13:
+
+/* Line 1455 of yacc.c */
+#line 230 "parse.y"
+ { patch_jmp( code_ptr ) ; }
+ break;
+
+ case 14:
+
+/* Line 1455 of yacc.c */
+#line 234 "parse.y"
+ {
+ INST *p1 = CDP((yyvsp[(1) - (2)].start)) ;
+ int len ;
+
+ code_push(p1, code_ptr - p1, scope, active_funct) ;
+ code_ptr = p1 ;
+
+ code2op(_RANGE, 1) ;
+ code_ptr += 3 ;
+ len = code_pop(code_ptr) ;
+ code_ptr += len ;
+ code1(_STOP) ;
+ p1 = CDP((yyvsp[(1) - (2)].start)) ;
+ p1[2].op = code_ptr - (p1+1) ;
+ }
+ break;
+
+ case 15:
+
+/* Line 1455 of yacc.c */
+#line 250 "parse.y"
+ { code1(_STOP) ; }
+ break;
+
+ case 16:
+
+/* Line 1455 of yacc.c */
+#line 253 "parse.y"
+ {
+ INST *p1 = CDP((yyvsp[(1) - (6)].start)) ;
+
+ p1[3].op = CDP((yyvsp[(6) - (6)].start)) - (p1+1) ;
+ p1[4].op = code_ptr - (p1+1) ;
+ }
+ break;
+
+ case 17:
+
+/* Line 1455 of yacc.c */
+#line 264 "parse.y"
+ { (yyval.start) = (yyvsp[(2) - (3)].start) ; }
+ break;
+
+ case 18:
+
+/* Line 1455 of yacc.c */
+#line 266 "parse.y"
+ { (yyval.start) = code_offset ; /* does nothing won't be executed */
+ print_flag = getline_flag = paren_cnt = 0 ;
+ yyerrok ; }
+ break;
+
+ case 20:
+
+/* Line 1455 of yacc.c */
+#line 273 "parse.y"
+ { (yyval.start) = code_offset ;
+ code1(_PUSHINT) ; code1(0) ;
+ code2(_PRINT, bi_print) ;
+ }
+ break;
+
+ case 24:
+
+/* Line 1455 of yacc.c */
+#line 286 "parse.y"
+ { code1(_POP) ; }
+ break;
+
+ case 25:
+
+/* Line 1455 of yacc.c */
+#line 288 "parse.y"
+ { (yyval.start) = code_offset ; }
+ break;
+
+ case 26:
+
+/* Line 1455 of yacc.c */
+#line 290 "parse.y"
+ { (yyval.start) = code_offset ;
+ print_flag = getline_flag = 0 ;
+ paren_cnt = 0 ;
+ yyerrok ;
+ }
+ break;
+
+ case 27:
+
+/* Line 1455 of yacc.c */
+#line 296 "parse.y"
+ { (yyval.start) = code_offset ; BC_insert('B', code_ptr+1) ;
+ code2(_JMP, 0) /* don't use code_jmp ! */ ; }
+ break;
+
+ case 28:
+
+/* Line 1455 of yacc.c */
+#line 299 "parse.y"
+ { (yyval.start) = code_offset ; BC_insert('C', code_ptr+1) ;
+ code2(_JMP, 0) ; }
+ break;
+
+ case 29:
+
+/* Line 1455 of yacc.c */
+#line 302 "parse.y"
+ { if ( scope != SCOPE_FUNCT )
+ compile_error("return outside function body") ;
+ }
+ break;
+
+ case 30:
+
+/* Line 1455 of yacc.c */
+#line 306 "parse.y"
+ { if ( scope != SCOPE_MAIN )
+ compile_error( "improper use of next" ) ;
+ (yyval.start) = code_offset ;
+ code1(_NEXT) ;
+ }
+ break;
+
+ case 34:
+
+/* Line 1455 of yacc.c */
+#line 317 "parse.y"
+ { code1(_ASSIGN) ; }
+ break;
+
+ case 35:
+
+/* Line 1455 of yacc.c */
+#line 318 "parse.y"
+ { code1(_ADD_ASG) ; }
+ break;
+
+ case 36:
+
+/* Line 1455 of yacc.c */
+#line 319 "parse.y"
+ { code1(_SUB_ASG) ; }
+ break;
+
+ case 37:
+
+/* Line 1455 of yacc.c */
+#line 320 "parse.y"
+ { code1(_MUL_ASG) ; }
+ break;
+
+ case 38:
+
+/* Line 1455 of yacc.c */
+#line 321 "parse.y"
+ { code1(_DIV_ASG) ; }
+ break;
+
+ case 39:
+
+/* Line 1455 of yacc.c */
+#line 322 "parse.y"
+ { code1(_MOD_ASG) ; }
+ break;
+
+ case 40:
+
+/* Line 1455 of yacc.c */
+#line 323 "parse.y"
+ { code1(_POW_ASG) ; }
+ break;
+
+ case 41:
+
+/* Line 1455 of yacc.c */
+#line 324 "parse.y"
+ { code1(_EQ) ; }
+ break;
+
+ case 42:
+
+/* Line 1455 of yacc.c */
+#line 325 "parse.y"
+ { code1(_NEQ) ; }
+ break;
+
+ case 43:
+
+/* Line 1455 of yacc.c */
+#line 326 "parse.y"
+ { code1(_LT) ; }
+ break;
+
+ case 44:
+
+/* Line 1455 of yacc.c */
+#line 327 "parse.y"
+ { code1(_LTE) ; }
+ break;
+
+ case 45:
+
+/* Line 1455 of yacc.c */
+#line 328 "parse.y"
+ { code1(_GT) ; }
+ break;
+
+ case 46:
+
+/* Line 1455 of yacc.c */
+#line 329 "parse.y"
+ { code1(_GTE) ; }
+ break;
+
+ case 47:
+
+/* Line 1455 of yacc.c */
+#line 332 "parse.y"
+ {
+ INST *p3 = CDP((yyvsp[(3) - (3)].start)) ;
+
+ if ( p3 == code_ptr - 2 )
+ {
+ if ( p3->op == _MATCH0 ) p3->op = _MATCH1 ;
+
+ else /* check for string */
+ if ( p3->op == _PUSHS )
+ { CELL *cp = ZMALLOC(CELL) ;
+
+ cp->type = C_STRING ;
+ cp->ptr = p3[1].ptr ;
+ cast_to_RE(cp) ;
+ code_ptr -= 2 ;
+ code2(_MATCH1, cp->ptr) ;
+ ZFREE(cp) ;
+ }
+ else code1(_MATCH2) ;
+ }
+ else code1(_MATCH2) ;
+
+ if ( !(yyvsp[(2) - (3)].ival) ) code1(_NOT) ;
+ }
+ break;
+
+ case 48:
+
+/* Line 1455 of yacc.c */
+#line 359 "parse.y"
+ { code1(_TEST) ;
+ code_jmp(_LJNZ, (INST*)0) ;
+ }
+ break;
+
+ case 49:
+
+/* Line 1455 of yacc.c */
+#line 363 "parse.y"
+ { code1(_TEST) ; patch_jmp(code_ptr) ; }
+ break;
+
+ case 50:
+
+/* Line 1455 of yacc.c */
+#line 366 "parse.y"
+ { code1(_TEST) ;
+ code_jmp(_LJZ, (INST*)0) ;
+ }
+ break;
+
+ case 51:
+
+/* Line 1455 of yacc.c */
+#line 370 "parse.y"
+ { code1(_TEST) ; patch_jmp(code_ptr) ; }
+ break;
+
+ case 52:
+
+/* Line 1455 of yacc.c */
+#line 372 "parse.y"
+ { code_jmp(_JZ, (INST*)0) ; }
+ break;
+
+ case 53:
+
+/* Line 1455 of yacc.c */
+#line 373 "parse.y"
+ { code_jmp(_JMP, (INST*)0) ; }
+ break;
+
+ case 54:
+
+/* Line 1455 of yacc.c */
+#line 375 "parse.y"
+ { patch_jmp(code_ptr) ; patch_jmp(CDP((yyvsp[(7) - (7)].start))) ; }
+ break;
+
+ case 56:
+
+/* Line 1455 of yacc.c */
+#line 380 "parse.y"
+ { code1(_CAT) ; }
+ break;
+
+ case 57:
+
+/* Line 1455 of yacc.c */
+#line 384 "parse.y"
+ { (yyval.start) = code_offset ; code2(_PUSHD, (yyvsp[(1) - (1)].ptr)) ; }
+ break;
+
+ case 58:
+
+/* Line 1455 of yacc.c */
+#line 386 "parse.y"
+ { (yyval.start) = code_offset ; code2(_PUSHS, (yyvsp[(1) - (1)].ptr)) ; }
+ break;
+
+ case 59:
+
+/* Line 1455 of yacc.c */
+#line 388 "parse.y"
+ { check_var((yyvsp[(1) - (1)].stp)) ;
+ (yyval.start) = code_offset ;
+ if ( is_local((yyvsp[(1) - (1)].stp)) )
+ { code2op(L_PUSHI, (yyvsp[(1) - (1)].stp)->offset) ; }
+ else code2(_PUSHI, (yyvsp[(1) - (1)].stp)->stval.cp) ;
+ }
+ break;
+
+ case 60:
+
+/* Line 1455 of yacc.c */
+#line 396 "parse.y"
+ { (yyval.start) = (yyvsp[(2) - (3)].start) ; }
+ break;
+
+ case 61:
+
+/* Line 1455 of yacc.c */
+#line 400 "parse.y"
+ { (yyval.start) = code_offset ; code2(_MATCH0, (yyvsp[(1) - (1)].ptr)) ; }
+ break;
+
+ case 62:
+
+/* Line 1455 of yacc.c */
+#line 403 "parse.y"
+ { code1(_ADD) ; }
+ break;
+
+ case 63:
+
+/* Line 1455 of yacc.c */
+#line 404 "parse.y"
+ { code1(_SUB) ; }
+ break;
+
+ case 64:
+
+/* Line 1455 of yacc.c */
+#line 405 "parse.y"
+ { code1(_MUL) ; }
+ break;
+
+ case 65:
+
+/* Line 1455 of yacc.c */
+#line 406 "parse.y"
+ { code1(_DIV) ; }
+ break;
+
+ case 66:
+
+/* Line 1455 of yacc.c */
+#line 407 "parse.y"
+ { code1(_MOD) ; }
+ break;
+
+ case 67:
+
+/* Line 1455 of yacc.c */
+#line 408 "parse.y"
+ { code1(_POW) ; }
+ break;
+
+ case 68:
+
+/* Line 1455 of yacc.c */
+#line 410 "parse.y"
+ { (yyval.start) = (yyvsp[(2) - (2)].start) ; code1(_NOT) ; }
+ break;
+
+ case 69:
+
+/* Line 1455 of yacc.c */
+#line 412 "parse.y"
+ { (yyval.start) = (yyvsp[(2) - (2)].start) ; code1(_UPLUS) ; }
+ break;
+
+ case 70:
+
+/* Line 1455 of yacc.c */
+#line 414 "parse.y"
+ { (yyval.start) = (yyvsp[(2) - (2)].start) ; code1(_UMINUS) ; }
+ break;
+
+ case 72:
+
+/* Line 1455 of yacc.c */
+#line 419 "parse.y"
+ { check_var((yyvsp[(1) - (2)].stp)) ;
+ (yyval.start) = code_offset ;
+ code_address((yyvsp[(1) - (2)].stp)) ;
+
+ if ( (yyvsp[(2) - (2)].ival) == '+' ) code1(_POST_INC) ;
+ else code1(_POST_DEC) ;
+ }
+ break;
+
+ case 73:
+
+/* Line 1455 of yacc.c */
+#line 427 "parse.y"
+ { (yyval.start) = (yyvsp[(2) - (2)].start) ;
+ if ( (yyvsp[(1) - (2)].ival) == '+' ) code1(_PRE_INC) ;
+ else code1(_PRE_DEC) ;
+ }
+ break;
+
+ case 74:
+
+/* Line 1455 of yacc.c */
+#line 434 "parse.y"
+ { if ((yyvsp[(2) - (2)].ival) == '+' ) code1(F_POST_INC ) ;
+ else code1(F_POST_DEC) ;
+ }
+ break;
+
+ case 75:
+
+/* Line 1455 of yacc.c */
+#line 438 "parse.y"
+ { (yyval.start) = (yyvsp[(2) - (2)].start) ;
+ if ( (yyvsp[(1) - (2)].ival) == '+' ) code1(F_PRE_INC) ;
+ else code1( F_PRE_DEC) ;
+ }
+ break;
+
+ case 76:
+
+/* Line 1455 of yacc.c */
+#line 445 "parse.y"
+ { (yyval.start) = code_offset ;
+ check_var((yyvsp[(1) - (1)].stp)) ;
+ code_address((yyvsp[(1) - (1)].stp)) ;
+ }
+ break;
+
+ case 77:
+
+/* Line 1455 of yacc.c */
+#line 453 "parse.y"
+ { (yyval.ival) = 0 ; }
+ break;
+
+ case 79:
+
+/* Line 1455 of yacc.c */
+#line 458 "parse.y"
+ { (yyval.ival) = 1 ; }
+ break;
+
+ case 80:
+
+/* Line 1455 of yacc.c */
+#line 460 "parse.y"
+ { (yyval.ival) = (yyvsp[(1) - (3)].ival) + 1 ; }
+ break;
+
+ case 81:
+
+/* Line 1455 of yacc.c */
+#line 465 "parse.y"
+ { BI_REC *p = (yyvsp[(1) - (5)].bip) ;
+ (yyval.start) = (yyvsp[(2) - (5)].start) ;
+ if ( (int)p->min_args > (yyvsp[(4) - (5)].ival) || (int)p->max_args < (yyvsp[(4) - (5)].ival) )
+ compile_error(
+ "wrong number of arguments in call to %s" ,
+ p->name ) ;
+ if ( p->min_args != p->max_args ) /* variable args */
+ { code1(_PUSHINT) ; code1((yyvsp[(4) - (5)].ival)) ; }
+ code2(_BUILTIN , p->fp) ;
+ }
+ break;
+
+ case 82:
+
+/* Line 1455 of yacc.c */
+#line 476 "parse.y"
+ {
+ (yyval.start) = code_offset ;
+ code1(_PUSHINT) ; code1(0) ;
+ code2(_BUILTIN, (yyvsp[(1) - (1)].bip)->fp) ;
+ }
+ break;
+
+ case 83:
+
+/* Line 1455 of yacc.c */
+#line 485 "parse.y"
+ { (yyval.start) = code_offset ; }
+ break;
+
+ case 84:
+
+/* Line 1455 of yacc.c */
+#line 490 "parse.y"
+ { code2(_PRINT, (yyvsp[(1) - (5)].fp)) ;
+ if ( (yyvsp[(1) - (5)].fp) == bi_printf && (yyvsp[(3) - (5)].ival) == 0 )
+ compile_error("no arguments in call to printf") ;
+ print_flag = 0 ;
+ (yyval.start) = (yyvsp[(2) - (5)].start) ;
+ }
+ break;
+
+ case 85:
+
+/* Line 1455 of yacc.c */
+#line 498 "parse.y"
+ { (yyval.fp) = bi_print ; print_flag = 1 ;}
+ break;
+
+ case 86:
+
+/* Line 1455 of yacc.c */
+#line 499 "parse.y"
+ { (yyval.fp) = bi_printf ; print_flag = 1 ; }
+ break;
+
+ case 87:
+
+/* Line 1455 of yacc.c */
+#line 502 "parse.y"
+ { code2op(_PUSHINT, (yyvsp[(1) - (1)].ival)) ; }
+ break;
+
+ case 88:
+
+/* Line 1455 of yacc.c */
+#line 504 "parse.y"
+ { (yyval.ival) = (yyvsp[(2) - (3)].arg2p)->cnt ; zfree((yyvsp[(2) - (3)].arg2p),sizeof(ARG2_REC)) ;
+ code2op(_PUSHINT, (yyval.ival)) ;
+ }
+ break;
+
+ case 89:
+
+/* Line 1455 of yacc.c */
+#line 508 "parse.y"
+ { (yyval.ival)=0 ; code2op(_PUSHINT, 0) ; }
+ break;
+
+ case 90:
+
+/* Line 1455 of yacc.c */
+#line 512 "parse.y"
+ { (yyval.arg2p) = (ARG2_REC*) zmalloc(sizeof(ARG2_REC)) ;
+ (yyval.arg2p)->start = (yyvsp[(1) - (3)].start) ;
+ (yyval.arg2p)->cnt = 2 ;
+ }
+ break;
+
+ case 91:
+
+/* Line 1455 of yacc.c */
+#line 517 "parse.y"
+ { (yyval.arg2p) = (yyvsp[(1) - (3)].arg2p) ; (yyval.arg2p)->cnt++ ; }
+ break;
+
+ case 93:
+
+/* Line 1455 of yacc.c */
+#line 522 "parse.y"
+ { code2op(_PUSHINT, (yyvsp[(1) - (2)].ival)) ; }
+ break;
+
+ case 94:
+
+/* Line 1455 of yacc.c */
+#line 529 "parse.y"
+ { (yyval.start) = (yyvsp[(3) - (4)].start) ; eat_nl() ; code_jmp(_JZ, (INST*)0) ; }
+ break;
+
+ case 95:
+
+/* Line 1455 of yacc.c */
+#line 534 "parse.y"
+ { patch_jmp( code_ptr ) ; }
+ break;
+
+ case 96:
+
+/* Line 1455 of yacc.c */
+#line 537 "parse.y"
+ { eat_nl() ; code_jmp(_JMP, (INST*)0) ; }
+ break;
+
+ case 97:
+
+/* Line 1455 of yacc.c */
+#line 542 "parse.y"
+ { patch_jmp(code_ptr) ;
+ patch_jmp(CDP((yyvsp[(4) - (4)].start))) ;
+ }
+ break;
+
+ case 98:
+
+/* Line 1455 of yacc.c */
+#line 551 "parse.y"
+ { eat_nl() ; BC_new() ; }
+ break;
+
+ case 99:
+
+/* Line 1455 of yacc.c */
+#line 556 "parse.y"
+ { (yyval.start) = (yyvsp[(2) - (7)].start) ;
+ code_jmp(_JNZ, CDP((yyvsp[(2) - (7)].start))) ;
+ BC_clear(code_ptr, CDP((yyvsp[(5) - (7)].start))) ; }
+ break;
+
+ case 100:
+
+/* Line 1455 of yacc.c */
+#line 562 "parse.y"
+ { eat_nl() ; BC_new() ;
+ (yyval.start) = (yyvsp[(3) - (4)].start) ;
+
+ /* check if const expression */
+ if ( code_ptr - 2 == CDP((yyvsp[(3) - (4)].start)) &&
+ code_ptr[-2].op == _PUSHD &&
+ *(double*)code_ptr[-1].ptr != 0.0
+ )
+ code_ptr -= 2 ;
+ else
+ { INST *p3 = CDP((yyvsp[(3) - (4)].start)) ;
+ code_push(p3, code_ptr-p3, scope, active_funct) ;
+ code_ptr = p3 ;
+ code2(_JMP, (INST*)0) ; /* code2() not code_jmp() */
+ }
+ }
+ break;
+
+ case 101:
+
+/* Line 1455 of yacc.c */
+#line 582 "parse.y"
+ {
+ int saved_offset ;
+ int len ;
+ INST *p1 = CDP((yyvsp[(1) - (2)].start)) ;
+ INST *p2 = CDP((yyvsp[(2) - (2)].start)) ;
+
+ if ( p1 != p2 ) /* real test in loop */
+ {
+ p1[1].op = code_ptr-(p1+1) ;
+ saved_offset = code_offset ;
+ len = code_pop(code_ptr) ;
+ code_ptr += len ;
+ code_jmp(_JNZ, CDP((yyvsp[(2) - (2)].start))) ;
+ BC_clear(code_ptr, CDP(saved_offset)) ;
+ }
+ else /* while(1) */
+ {
+ code_jmp(_JMP, p1) ;
+ BC_clear(code_ptr, CDP((yyvsp[(2) - (2)].start))) ;
+ }
+ }
+ break;
+
+ case 102:
+
+/* Line 1455 of yacc.c */
+#line 608 "parse.y"
+ {
+ int cont_offset = code_offset ;
+ unsigned len = code_pop(code_ptr) ;
+ INST *p2 = CDP((yyvsp[(2) - (4)].start)) ;
+ INST *p4 = CDP((yyvsp[(4) - (4)].start)) ;
+
+ code_ptr += len ;
+
+ if ( p2 != p4 ) /* real test in for2 */
+ {
+ p4[-1].op = code_ptr - p4 + 1 ;
+ len = code_pop(code_ptr) ;
+ code_ptr += len ;
+ code_jmp(_JNZ, CDP((yyvsp[(4) - (4)].start))) ;
+ }
+ else /* for(;;) */
+ code_jmp(_JMP, p4) ;
+
+ BC_clear(code_ptr, CDP(cont_offset)) ;
+
+ }
+ break;
+
+ case 103:
+
+/* Line 1455 of yacc.c */
+#line 631 "parse.y"
+ { (yyval.start) = code_offset ; }
+ break;
+
+ case 104:
+
+/* Line 1455 of yacc.c */
+#line 633 "parse.y"
+ { (yyval.start) = (yyvsp[(3) - (4)].start) ; code1(_POP) ; }
+ break;
+
+ case 105:
+
+/* Line 1455 of yacc.c */
+#line 636 "parse.y"
+ { (yyval.start) = code_offset ; }
+ break;
+
+ case 106:
+
+/* Line 1455 of yacc.c */
+#line 638 "parse.y"
+ {
+ if ( code_ptr - 2 == CDP((yyvsp[(1) - (2)].start)) &&
+ code_ptr[-2].op == _PUSHD &&
+ * (double*) code_ptr[-1].ptr != 0.0
+ )
+ code_ptr -= 2 ;
+ else
+ {
+ INST *p1 = CDP((yyvsp[(1) - (2)].start)) ;
+ code_push(p1, code_ptr-p1, scope, active_funct) ;
+ code_ptr = p1 ;
+ code2(_JMP, (INST*)0) ;
+ }
+ }
+ break;
+
+ case 107:
+
+/* Line 1455 of yacc.c */
+#line 655 "parse.y"
+ { eat_nl() ; BC_new() ;
+ code_push((INST*)0,0, scope, active_funct) ;
+ }
+ break;
+
+ case 108:
+
+/* Line 1455 of yacc.c */
+#line 659 "parse.y"
+ { INST *p1 = CDP((yyvsp[(1) - (2)].start)) ;
+
+ eat_nl() ; BC_new() ;
+ code1(_POP) ;
+ code_push(p1, code_ptr - p1, scope, active_funct) ;
+ code_ptr -= code_ptr - p1 ;
+ }
+ break;
+
+ case 109:
+
+/* Line 1455 of yacc.c */
+#line 672 "parse.y"
+ { check_array((yyvsp[(3) - (3)].stp)) ;
+ code_array((yyvsp[(3) - (3)].stp)) ;
+ code1(A_TEST) ;
+ }
+ break;
+
+ case 110:
+
+/* Line 1455 of yacc.c */
+#line 677 "parse.y"
+ { (yyval.start) = (yyvsp[(2) - (5)].arg2p)->start ;
+ code2op(A_CAT, (yyvsp[(2) - (5)].arg2p)->cnt) ;
+ zfree((yyvsp[(2) - (5)].arg2p), sizeof(ARG2_REC)) ;
+
+ check_array((yyvsp[(5) - (5)].stp)) ;
+ code_array((yyvsp[(5) - (5)].stp)) ;
+ code1(A_TEST) ;
+ }
+ break;
+
+ case 111:
+
+/* Line 1455 of yacc.c */
+#line 688 "parse.y"
+ {
+ if ( (yyvsp[(4) - (5)].ival) > 1 )
+ { code2op(A_CAT, (yyvsp[(4) - (5)].ival)) ; }
+
+ check_array((yyvsp[(1) - (5)].stp)) ;
+ if( is_local((yyvsp[(1) - (5)].stp)) )
+ { code2op(LAE_PUSHA, (yyvsp[(1) - (5)].stp)->offset) ; }
+ else code2(AE_PUSHA, (yyvsp[(1) - (5)].stp)->stval.array) ;
+ (yyval.start) = (yyvsp[(2) - (5)].start) ;
+ }
+ break;
+
+ case 112:
+
+/* Line 1455 of yacc.c */
+#line 701 "parse.y"
+ {
+ if ( (yyvsp[(4) - (5)].ival) > 1 )
+ { code2op(A_CAT, (yyvsp[(4) - (5)].ival)) ; }
+
+ check_array((yyvsp[(1) - (5)].stp)) ;
+ if( is_local((yyvsp[(1) - (5)].stp)) )
+ { code2op(LAE_PUSHI, (yyvsp[(1) - (5)].stp)->offset) ; }
+ else code2(AE_PUSHI, (yyvsp[(1) - (5)].stp)->stval.array) ;
+ (yyval.start) = (yyvsp[(2) - (5)].start) ;
+ }
+ break;
+
+ case 113:
+
+/* Line 1455 of yacc.c */
+#line 713 "parse.y"
+ {
+ if ( (yyvsp[(4) - (6)].ival) > 1 )
+ { code2op(A_CAT,(yyvsp[(4) - (6)].ival)) ; }
+
+ check_array((yyvsp[(1) - (6)].stp)) ;
+ if( is_local((yyvsp[(1) - (6)].stp)) )
+ { code2op(LAE_PUSHA, (yyvsp[(1) - (6)].stp)->offset) ; }
+ else code2(AE_PUSHA, (yyvsp[(1) - (6)].stp)->stval.array) ;
+ if ( (yyvsp[(6) - (6)].ival) == '+' ) code1(_POST_INC) ;
+ else code1(_POST_DEC) ;
+
+ (yyval.start) = (yyvsp[(2) - (6)].start) ;
+ }
+ break;
+
+ case 114:
+
+/* Line 1455 of yacc.c */
+#line 730 "parse.y"
+ {
+ (yyval.start) = (yyvsp[(3) - (7)].start) ;
+ if ( (yyvsp[(5) - (7)].ival) > 1 ) { code2op(A_CAT, (yyvsp[(5) - (7)].ival)) ; }
+ check_array((yyvsp[(2) - (7)].stp)) ;
+ code_array((yyvsp[(2) - (7)].stp)) ;
+ code1(A_DEL) ;
+ }
+ break;
+
+ case 115:
+
+/* Line 1455 of yacc.c */
+#line 738 "parse.y"
+ {
+ (yyval.start) = code_offset ;
+ check_array((yyvsp[(2) - (3)].stp)) ;
+ code_array((yyvsp[(2) - (3)].stp)) ;
+ code1(DEL_A) ;
+ }
+ break;
+
+ case 116:
+
+/* Line 1455 of yacc.c */
+#line 749 "parse.y"
+ { eat_nl() ; BC_new() ;
+ (yyval.start) = code_offset ;
+
+ check_var((yyvsp[(3) - (6)].stp)) ;
+ code_address((yyvsp[(3) - (6)].stp)) ;
+ check_array((yyvsp[(5) - (6)].stp)) ;
+ code_array((yyvsp[(5) - (6)].stp)) ;
+
+ code2(SET_ALOOP, (INST*)0) ;
+ }
+ break;
+
+ case 117:
+
+/* Line 1455 of yacc.c */
+#line 763 "parse.y"
+ {
+ INST *p2 = CDP((yyvsp[(2) - (2)].start)) ;
+
+ p2[-1].op = code_ptr - p2 + 1 ;
+ BC_clear( code_ptr+2 , code_ptr) ;
+ code_jmp(ALOOP, p2) ;
+ code1(POP_AL) ;
+ }
+ break;
+
+ case 118:
+
+/* Line 1455 of yacc.c */
+#line 780 "parse.y"
+ { (yyval.start) = code_offset ; code2(F_PUSHA, (yyvsp[(1) - (1)].cp)) ; }
+ break;
+
+ case 119:
+
+/* Line 1455 of yacc.c */
+#line 782 "parse.y"
+ { check_var((yyvsp[(2) - (2)].stp)) ;
+ (yyval.start) = code_offset ;
+ if ( is_local((yyvsp[(2) - (2)].stp)) )
+ { code2op(L_PUSHI, (yyvsp[(2) - (2)].stp)->offset) ; }
+ else code2(_PUSHI, (yyvsp[(2) - (2)].stp)->stval.cp) ;
+
+ CODE_FE_PUSHA() ;
+ }
+ break;
+
+ case 120:
+
+/* Line 1455 of yacc.c */
+#line 791 "parse.y"
+ {
+ if ( (yyvsp[(5) - (6)].ival) > 1 )
+ { code2op(A_CAT, (yyvsp[(5) - (6)].ival)) ; }
+
+ check_array((yyvsp[(2) - (6)].stp)) ;
+ if( is_local((yyvsp[(2) - (6)].stp)) )
+ { code2op(LAE_PUSHI, (yyvsp[(2) - (6)].stp)->offset) ; }
+ else code2(AE_PUSHI, (yyvsp[(2) - (6)].stp)->stval.array) ;
+
+ CODE_FE_PUSHA() ;
+
+ (yyval.start) = (yyvsp[(3) - (6)].start) ;
+ }
+ break;
+
+ case 121:
+
+/* Line 1455 of yacc.c */
+#line 805 "parse.y"
+ { (yyval.start) = (yyvsp[(2) - (2)].start) ; CODE_FE_PUSHA() ; }
+ break;
+
+ case 122:
+
+/* Line 1455 of yacc.c */
+#line 807 "parse.y"
+ { (yyval.start) = (yyvsp[(2) - (3)].start) ; }
+ break;
+
+ case 123:
+
+/* Line 1455 of yacc.c */
+#line 811 "parse.y"
+ { field_A2I() ; }
+ break;
+
+ case 124:
+
+/* Line 1455 of yacc.c */
+#line 814 "parse.y"
+ { code1(F_ASSIGN) ; }
+ break;
+
+ case 125:
+
+/* Line 1455 of yacc.c */
+#line 815 "parse.y"
+ { code1(F_ADD_ASG) ; }
+ break;
+
+ case 126:
+
+/* Line 1455 of yacc.c */
+#line 816 "parse.y"
+ { code1(F_SUB_ASG) ; }
+ break;
+
+ case 127:
+
+/* Line 1455 of yacc.c */
+#line 817 "parse.y"
+ { code1(F_MUL_ASG) ; }
+ break;
+
+ case 128:
+
+/* Line 1455 of yacc.c */
+#line 818 "parse.y"
+ { code1(F_DIV_ASG) ; }
+ break;
+
+ case 129:
+
+/* Line 1455 of yacc.c */
+#line 819 "parse.y"
+ { code1(F_MOD_ASG) ; }
+ break;
+
+ case 130:
+
+/* Line 1455 of yacc.c */
+#line 820 "parse.y"
+ { code1(F_POW_ASG) ; }
+ break;
+
+ case 131:
+
+/* Line 1455 of yacc.c */
+#line 827 "parse.y"
+ { code2(_BUILTIN, bi_split) ; }
+ break;
+
+ case 132:
+
+/* Line 1455 of yacc.c */
+#line 831 "parse.y"
+ { (yyval.start) = (yyvsp[(3) - (5)].start) ;
+ check_array((yyvsp[(5) - (5)].stp)) ;
+ code_array((yyvsp[(5) - (5)].stp)) ;
+ }
+ break;
+
+ case 133:
+
+/* Line 1455 of yacc.c */
+#line 838 "parse.y"
+ { code2(_PUSHI, &fs_shadow) ; }
+ break;
+
+ case 134:
+
+/* Line 1455 of yacc.c */
+#line 840 "parse.y"
+ {
+ if ( CDP((yyvsp[(2) - (3)].start)) == code_ptr - 2 )
+ {
+ if ( code_ptr[-2].op == _MATCH0 )
+ RE_as_arg() ;
+ else
+ if ( code_ptr[-2].op == _PUSHS )
+ { CELL *cp = ZMALLOC(CELL) ;
+
+ cp->type = C_STRING ;
+ cp->ptr = code_ptr[-1].ptr ;
+ cast_for_split(cp) ;
+ code_ptr[-2].op = _PUSHC ;
+ code_ptr[-1].ptr = (PTR) cp ;
+ }
+ }
+ }
+ break;
+
+ case 135:
+
+/* Line 1455 of yacc.c */
+#line 864 "parse.y"
+ { (yyval.start) = (yyvsp[(3) - (6)].start) ;
+ code2(_BUILTIN, bi_match) ;
+ }
+ break;
+
+ case 136:
+
+/* Line 1455 of yacc.c */
+#line 871 "parse.y"
+ {
+ INST *p1 = CDP((yyvsp[(1) - (1)].start)) ;
+
+ if ( p1 == code_ptr - 2 )
+ {
+ if ( p1->op == _MATCH0 ) RE_as_arg() ;
+ else
+ if ( p1->op == _PUSHS )
+ { CELL *cp = ZMALLOC(CELL) ;
+
+ cp->type = C_STRING ;
+ cp->ptr = p1[1].ptr ;
+ cast_to_RE(cp) ;
+ p1->op = _PUSHC ;
+ p1[1].ptr = (PTR) cp ;
+ }
+ }
+ }
+ break;
+
+ case 137:
+
+/* Line 1455 of yacc.c */
+#line 894 "parse.y"
+ { (yyval.start) = code_offset ;
+ code1(_EXIT0) ; }
+ break;
+
+ case 138:
+
+/* Line 1455 of yacc.c */
+#line 897 "parse.y"
+ { (yyval.start) = (yyvsp[(2) - (3)].start) ; code1(_EXIT) ; }
+ break;
+
+ case 139:
+
+/* Line 1455 of yacc.c */
+#line 901 "parse.y"
+ { (yyval.start) = code_offset ;
+ code1(_RET0) ; }
+ break;
+
+ case 140:
+
+/* Line 1455 of yacc.c */
+#line 904 "parse.y"
+ { (yyval.start) = (yyvsp[(2) - (3)].start) ; code1(_RET) ; }
+ break;
+
+ case 141:
+
+/* Line 1455 of yacc.c */
+#line 910 "parse.y"
+ { (yyval.start) = code_offset ;
+ code2(F_PUSHA, &field[0]) ;
+ code1(_PUSHINT) ; code1(0) ;
+ code2(_BUILTIN, bi_getline) ;
+ getline_flag = 0 ;
+ }
+ break;
+
+ case 142:
+
+/* Line 1455 of yacc.c */
+#line 917 "parse.y"
+ { (yyval.start) = (yyvsp[(2) - (2)].start) ;
+ code1(_PUSHINT) ; code1(0) ;
+ code2(_BUILTIN, bi_getline) ;
+ getline_flag = 0 ;
+ }
+ break;
+
+ case 143:
+
+/* Line 1455 of yacc.c */
+#line 923 "parse.y"
+ { code1(_PUSHINT) ; code1(F_IN) ;
+ code2(_BUILTIN, bi_getline) ;
+ /* getline_flag already off in yylex() */
+ }
+ break;
+
+ case 144:
+
+/* Line 1455 of yacc.c */
+#line 928 "parse.y"
+ { code2(F_PUSHA, &field[0]) ;
+ code1(_PUSHINT) ; code1(PIPE_IN) ;
+ code2(_BUILTIN, bi_getline) ;
+ }
+ break;
+
+ case 145:
+
+/* Line 1455 of yacc.c */
+#line 933 "parse.y"
+ {
+ code1(_PUSHINT) ; code1(PIPE_IN) ;
+ code2(_BUILTIN, bi_getline) ;
+ }
+ break;
+
+ case 146:
+
+/* Line 1455 of yacc.c */
+#line 939 "parse.y"
+ { getline_flag = 1 ; }
+ break;
+
+ case 149:
+
+/* Line 1455 of yacc.c */
+#line 944 "parse.y"
+ { (yyval.start) = code_offset ;
+ code2(F_PUSHA, field+0) ;
+ }
+ break;
+
+ case 150:
+
+/* Line 1455 of yacc.c */
+#line 948 "parse.y"
+ { (yyval.start) = (yyvsp[(2) - (3)].start) ; }
+ break;
+
+ case 151:
+
+/* Line 1455 of yacc.c */
+#line 956 "parse.y"
+ {
+ INST *p5 = CDP((yyvsp[(5) - (6)].start)) ;
+ INST *p6 = CDP((yyvsp[(6) - (6)].start)) ;
+
+ if ( p6 - p5 == 2 && p5->op == _PUSHS )
+ { /* cast from STRING to REPL at compile time */
+ CELL *cp = ZMALLOC(CELL) ;
+ cp->type = C_STRING ;
+ cp->ptr = p5[1].ptr ;
+ cast_to_REPL(cp) ;
+ p5->op = _PUSHC ;
+ p5[1].ptr = (PTR) cp ;
+ }
+ code2(_BUILTIN, (yyvsp[(1) - (6)].fp)) ;
+ (yyval.start) = (yyvsp[(3) - (6)].start) ;
+ }
+ break;
+
+ case 152:
+
+/* Line 1455 of yacc.c */
+#line 974 "parse.y"
+ { (yyval.fp) = bi_sub ; }
+ break;
+
+ case 153:
+
+/* Line 1455 of yacc.c */
+#line 975 "parse.y"
+ { (yyval.fp) = bi_gsub ; }
+ break;
+
+ case 154:
+
+/* Line 1455 of yacc.c */
+#line 980 "parse.y"
+ { (yyval.start) = code_offset ;
+ code2(F_PUSHA, &field[0]) ;
+ }
+ break;
+
+ case 155:
+
+/* Line 1455 of yacc.c */
+#line 985 "parse.y"
+ { (yyval.start) = (yyvsp[(2) - (3)].start) ; }
+ break;
+
+ case 156:
+
+/* Line 1455 of yacc.c */
+#line 993 "parse.y"
+ {
+ resize_fblock((yyvsp[(1) - (2)].fbp)) ;
+ restore_ids() ;
+ switch_code_to_main() ;
+ }
+ break;
+
+ case 157:
+
+/* Line 1455 of yacc.c */
+#line 1002 "parse.y"
+ { eat_nl() ;
+ scope = SCOPE_FUNCT ;
+ active_funct = (yyvsp[(1) - (4)].fbp) ;
+ *main_code_p = active_code ;
+
+ (yyvsp[(1) - (4)].fbp)->nargs = (yyvsp[(3) - (4)].ival) ;
+ if ( (yyvsp[(3) - (4)].ival) )
+ (yyvsp[(1) - (4)].fbp)->typev = (char *)
+ memset( zmalloc((yyvsp[(3) - (4)].ival)), ST_LOCAL_NONE, (yyvsp[(3) - (4)].ival)) ;
+ else (yyvsp[(1) - (4)].fbp)->typev = (char *) 0 ;
+
+ code_ptr = code_base =
+ (INST *) zmalloc(INST_BYTES(PAGESZ));
+ code_limit = code_base + PAGESZ ;
+ code_warn = code_limit - CODEWARN ;
+ }
+ break;
+
+ case 158:
+
+/* Line 1455 of yacc.c */
+#line 1021 "parse.y"
+ { FBLOCK *fbp ;
+
+ if ( (yyvsp[(2) - (2)].stp)->type == ST_NONE )
+ {
+ (yyvsp[(2) - (2)].stp)->type = ST_FUNCT ;
+ fbp = (yyvsp[(2) - (2)].stp)->stval.fbp =
+ (FBLOCK *) zmalloc(sizeof(FBLOCK)) ;
+ fbp->name = (yyvsp[(2) - (2)].stp)->name ;
+ fbp->code = (INST*) 0 ;
+ }
+ else
+ {
+ type_error( (yyvsp[(2) - (2)].stp) ) ;
+
+ /* this FBLOCK will not be put in
+ the symbol table */
+ fbp = (FBLOCK*) zmalloc(sizeof(FBLOCK)) ;
+ fbp->name = "" ;
+ }
+ (yyval.fbp) = fbp ;
+ }
+ break;
+
+ case 159:
+
+/* Line 1455 of yacc.c */
+#line 1044 "parse.y"
+ { (yyval.fbp) = (yyvsp[(2) - (2)].fbp) ;
+ if ( (yyvsp[(2) - (2)].fbp)->code )
+ compile_error("redefinition of %s" , (yyvsp[(2) - (2)].fbp)->name) ;
+ }
+ break;
+
+ case 160:
+
+/* Line 1455 of yacc.c */
+#line 1050 "parse.y"
+ { (yyval.ival) = 0 ; }
+ break;
+
+ case 162:
+
+/* Line 1455 of yacc.c */
+#line 1055 "parse.y"
+ { (yyvsp[(1) - (1)].stp) = save_id((yyvsp[(1) - (1)].stp)->name) ;
+ (yyvsp[(1) - (1)].stp)->type = ST_LOCAL_NONE ;
+ (yyvsp[(1) - (1)].stp)->offset = 0 ;
+ (yyval.ival) = 1 ;
+ }
+ break;
+
+ case 163:
+
+/* Line 1455 of yacc.c */
+#line 1061 "parse.y"
+ { if ( is_local((yyvsp[(3) - (3)].stp)) )
+ compile_error("%s is duplicated in argument list",
+ (yyvsp[(3) - (3)].stp)->name) ;
+ else
+ { (yyvsp[(3) - (3)].stp) = save_id((yyvsp[(3) - (3)].stp)->name) ;
+ (yyvsp[(3) - (3)].stp)->type = ST_LOCAL_NONE ;
+ (yyvsp[(3) - (3)].stp)->offset = (yyvsp[(1) - (3)].ival) ;
+ (yyval.ival) = (yyvsp[(1) - (3)].ival) + 1 ;
+ }
+ }
+ break;
+
+ case 164:
+
+/* Line 1455 of yacc.c */
+#line 1074 "parse.y"
+ { /* we may have to recover from a bungled function
+ definition */
+ /* can have local ids, before code scope
+ changes */
+ restore_ids() ;
+
+ switch_code_to_main() ;
+ }
+ break;
+
+ case 165:
+
+/* Line 1455 of yacc.c */
+#line 1087 "parse.y"
+ { (yyval.start) = (yyvsp[(2) - (3)].start) ;
+ code2(_CALL, (yyvsp[(1) - (3)].fbp)) ;
+
+ if ( (yyvsp[(3) - (3)].ca_p) ) code1((yyvsp[(3) - (3)].ca_p)->arg_num+1) ;
+ else code1(0) ;
+
+ check_fcall((yyvsp[(1) - (3)].fbp), scope, code_move_level, active_funct,
+ (yyvsp[(3) - (3)].ca_p), token_lineno) ;
+ }
+ break;
+
+ case 166:
+
+/* Line 1455 of yacc.c */
+#line 1099 "parse.y"
+ { (yyval.ca_p) = (CA_REC *) 0 ; }
+ break;
+
+ case 167:
+
+/* Line 1455 of yacc.c */
+#line 1101 "parse.y"
+ { (yyval.ca_p) = (yyvsp[(2) - (2)].ca_p) ;
+ (yyval.ca_p)->link = (yyvsp[(1) - (2)].ca_p) ;
+ (yyval.ca_p)->arg_num = (yyvsp[(1) - (2)].ca_p) ? (yyvsp[(1) - (2)].ca_p)->arg_num+1 : 0 ;
+ }
+ break;
+
+ case 168:
+
+/* Line 1455 of yacc.c */
+#line 1116 "parse.y"
+ { (yyval.ca_p) = (CA_REC *) 0 ; }
+ break;
+
+ case 169:
+
+/* Line 1455 of yacc.c */
+#line 1118 "parse.y"
+ { (yyval.ca_p) = ZMALLOC(CA_REC) ;
+ (yyval.ca_p)->link = (yyvsp[(1) - (3)].ca_p) ;
+ (yyval.ca_p)->type = CA_EXPR ;
+ (yyval.ca_p)->arg_num = (yyvsp[(1) - (3)].ca_p) ? (yyvsp[(1) - (3)].ca_p)->arg_num+1 : 0 ;
+ (yyval.ca_p)->call_offset = code_offset ;
+ }
+ break;
+
+ case 170:
+
+/* Line 1455 of yacc.c */
+#line 1125 "parse.y"
+ { (yyval.ca_p) = ZMALLOC(CA_REC) ;
+ (yyval.ca_p)->link = (yyvsp[(1) - (3)].ca_p) ;
+ (yyval.ca_p)->arg_num = (yyvsp[(1) - (3)].ca_p) ? (yyvsp[(1) - (3)].ca_p)->arg_num+1 : 0 ;
+
+ code_call_id((yyval.ca_p), (yyvsp[(2) - (3)].stp)) ;
+ }
+ break;
+
+ case 171:
+
+/* Line 1455 of yacc.c */
+#line 1134 "parse.y"
+ { (yyval.ca_p) = ZMALLOC(CA_REC) ;
+ (yyval.ca_p)->type = CA_EXPR ;
+ (yyval.ca_p)->call_offset = code_offset ;
+ }
+ break;
+
+ case 172:
+
+/* Line 1455 of yacc.c */
+#line 1140 "parse.y"
+ { (yyval.ca_p) = ZMALLOC(CA_REC) ;
+ code_call_id((yyval.ca_p), (yyvsp[(1) - (2)].stp)) ;
+ }
+ break;
+
+
+
+/* Line 1455 of yacc.c */
+#line 3517 "y.tab.c"
+ default: break;
+ }
+ YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc);
+
+ YYPOPSTACK (yylen);
+ yylen = 0;
+ YY_STACK_PRINT (yyss, yyssp);
+
+ *++yyvsp = yyval;
+
+ /* Now `shift' the result of the reduction. Determine what state
+ that goes to, based on the state we popped back to and the rule
+ number reduced by. */
+
+ yyn = yyr1[yyn];
+
+ yystate = yypgoto[yyn - YYNTOKENS] + *yyssp;
+ if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp)
+ yystate = yytable[yystate];
+ else
+ yystate = yydefgoto[yyn - YYNTOKENS];
+
+ goto yynewstate;
+
+
+/*------------------------------------.
+| yyerrlab -- here on detecting error |
+`------------------------------------*/
+yyerrlab:
+ /* If not already recovering from an error, report this error. */
+ if (!yyerrstatus)
+ {
+ ++yynerrs;
+#if ! YYERROR_VERBOSE
+ 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;
+ }
+ }
+#endif
+ }
+
+
+
+ if (yyerrstatus == 3)
+ {
+ /* If just tried and failed to reuse lookahead token after an
+ error, discard it. */
+
+ if (yychar <= YYEOF)
+ {
+ /* Return failure if at end of input. */
+ if (yychar == YYEOF)
+ YYABORT;
+ }
+ else
+ {
+ yydestruct ("Error: discarding",
+ yytoken, &yylval);
+ yychar = YYEMPTY;
+ }
+ }
+
+ /* Else will try to reuse lookahead token after shifting the error
+ token. */
+ goto yyerrlab1;
+
+
+/*---------------------------------------------------.
+| yyerrorlab -- error raised explicitly by YYERROR. |
+`---------------------------------------------------*/
+yyerrorlab:
+
+ /* Pacify compilers like GCC when the user code never invokes
+ YYERROR and the label yyerrorlab therefore never appears in user
+ code. */
+ if (/*CONSTCOND*/ 0)
+ goto yyerrorlab;
+
+ /* 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. */
+
+ 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;
+
+
+ yydestruct ("Error: popping",
+ yystos[yystate], yyvsp);
+ YYPOPSTACK (1);
+ yystate = *yyssp;
+ YY_STACK_PRINT (yyss, yyssp);
+ }
+
+ *++yyvsp = yylval;
+
+
+ /* Shift the error token. */
+ YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp);
+
+ yystate = yyn;
+ goto yynewstate;
+
+
+/*-------------------------------------.
+| yyacceptlab -- YYACCEPT comes here. |
+`-------------------------------------*/
+yyacceptlab:
+ yyresult = 0;
+ goto yyreturn;
+
+/*-----------------------------------.
+| yyabortlab -- YYABORT comes here. |
+`-----------------------------------*/
+yyabortlab:
+ yyresult = 1;
+ goto yyreturn;
+
+#if !defined(yyoverflow) || YYERROR_VERBOSE
+/*-------------------------------------------------.
+| yyexhaustedlab -- memory exhaustion comes here. |
+`-------------------------------------------------*/
+yyexhaustedlab:
+ yyerror (YY_("memory exhausted"));
+ yyresult = 2;
+ /* Fall through. */
+#endif
+
+yyreturn:
+ if (yychar != YYEMPTY)
+ yydestruct ("Cleanup: discarding lookahead",
+ yytoken, &yylval);
+ /* Do not reclaim the symbols of the rule which action triggered
+ this YYABORT or YYACCEPT. */
+ YYPOPSTACK (yylen);
+ YY_STACK_PRINT (yyss, yyssp);
+ while (yyssp != yyss)
+ {
+ yydestruct ("Cleanup: popping",
+ yystos[*yyssp], yyvsp);
+ YYPOPSTACK (1);
+ }
+#ifndef yyoverflow
+ if (yyss != yyssa)
+ YYSTACK_FREE (yyss);
+#endif
+#if YYERROR_VERBOSE
+ if (yymsg != yymsgbuf)
+ YYSTACK_FREE (yymsg);
+#endif
+ /* Make sure YYID is used. */
+ return YYID (yyresult);
+}
+
+
+
+/* Line 1675 of yacc.c */
+#line 1148 "parse.y"
+
+
+/* resize the code for a user function */
+
+static void resize_fblock( fbp )
+ FBLOCK *fbp ;
+{
+ CODEBLOCK *p = ZMALLOC(CODEBLOCK) ;
+ unsigned dummy ;
+
+ code2op(_RET0, _HALT) ;
+ /* make sure there is always a return */
+
+ *p = active_code ;
+ fbp->code = code_shrink(p, &dummy) ;
+ /* code_shrink() zfrees p */
+
+ if ( dump_code_flag ) add_to_fdump_list(fbp) ;
+}
+
+
+/* convert FE_PUSHA to FE_PUSHI
+ or F_PUSH to F_PUSHI
+*/
+
+static void field_A2I()
+{ CELL *cp ;
+
+ if ( code_ptr[-1].op == FE_PUSHA &&
+ code_ptr[-1].ptr == (PTR) 0)
+ /* On most architectures, the two tests are the same; a good
+ compiler might eliminate one. On LM_DOS, and possibly other
+ segmented architectures, they are not */
+ { code_ptr[-1].op = FE_PUSHI ; }
+ else
+ {
+ cp = (CELL *) code_ptr[-1].ptr ;
+
+ if ( cp == field ||
+
+#ifdef MSDOS
+ SAMESEG(cp,field) &&
+#endif
+ cp > NF && cp <= LAST_PFIELD )
+ {
+ code_ptr[-2].op = _PUSHI ;
+ }
+ else if ( cp == NF )
+ { code_ptr[-2].op = NF_PUSHI ; code_ptr-- ; }
+
+ else
+ {
+ code_ptr[-2].op = F_PUSHI ;
+ code_ptr -> op = field_addr_to_index( code_ptr[-1].ptr ) ;
+ code_ptr++ ;
+ }
+ }
+}
+
+/* we've seen an ID in a context where it should be a VAR,
+ check that's consistent with previous usage */
+
+static void check_var( p )
+ register SYMTAB *p ;
+{
+ switch(p->type)
+ {
+ case ST_NONE : /* new id */
+ p->type = ST_VAR ;
+ p->stval.cp = ZMALLOC(CELL) ;
+ p->stval.cp->type = C_NOINIT ;
+ break ;
+
+ case ST_LOCAL_NONE :
+ p->type = ST_LOCAL_VAR ;
+ active_funct->typev[p->offset] = ST_LOCAL_VAR ;
+ break ;
+
+ case ST_VAR :
+ case ST_LOCAL_VAR : break ;
+
+ default :
+ type_error(p) ;
+ break ;
+ }
+}
+
+/* we've seen an ID in a context where it should be an ARRAY,
+ check that's consistent with previous usage */
+static void check_array(p)
+ register SYMTAB *p ;
+{
+ switch(p->type)
+ {
+ case ST_NONE : /* a new array */
+ p->type = ST_ARRAY ;
+ p->stval.array = new_ARRAY() ;
+ break ;
+
+ case ST_ARRAY :
+ case ST_LOCAL_ARRAY :
+ break ;
+
+ case ST_LOCAL_NONE :
+ p->type = ST_LOCAL_ARRAY ;
+ active_funct->typev[p->offset] = ST_LOCAL_ARRAY ;
+ break ;
+
+ default : type_error(p) ; break ;
+ }
+}
+
+static void code_array(p)
+ register SYMTAB *p ;
+{
+ if ( is_local(p) ) code2op(LA_PUSHA, p->offset) ;
+ else code2(A_PUSHA, p->stval.array) ;
+}
+
+
+/* we've seen an ID as an argument to a user defined function */
+
+static void code_call_id( p, ip )
+ register CA_REC *p ;
+ register SYMTAB *ip ;
+{ static CELL dummy ;
+
+ p->call_offset = code_offset ;
+ /* This always get set now. So that fcall:relocate_arglist
+ works. */
+
+ switch( ip->type )
+ {
+ case ST_VAR :
+ p->type = CA_EXPR ;
+ code2(_PUSHI, ip->stval.cp) ;
+ break ;
+
+ case ST_LOCAL_VAR :
+ p->type = CA_EXPR ;
+ code2op(L_PUSHI, ip->offset) ;
+ break ;
+
+ case ST_ARRAY :
+ p->type = CA_ARRAY ;
+ code2(A_PUSHA, ip->stval.array) ;
+ break ;
+
+ case ST_LOCAL_ARRAY :
+ p->type = CA_ARRAY ;
+ code2op(LA_PUSHA, ip->offset) ;
+ break ;
+
+ /* not enough info to code it now; it will have to
+ be patched later */
+
+ case ST_NONE :
+ p->type = ST_NONE ;
+ p->sym_p = ip ;
+ code2(_PUSHI, &dummy) ;
+ break ;
+
+ case ST_LOCAL_NONE :
+ p->type = ST_LOCAL_NONE ;
+ p->type_p = & active_funct->typev[ip->offset] ;
+ code2op(L_PUSHI, ip->offset) ;
+ break ;
+
+
+#ifdef DEBUG
+ default :
+ bozo("code_call_id") ;
+#endif
+
+ }
+}
+
+/* an RE by itself was coded as _MATCH0 , change to
+ push as an expression */
+
+static void RE_as_arg()
+{ CELL *cp = ZMALLOC(CELL) ;
+
+ code_ptr -= 2 ;
+ cp->type = C_RE ;
+ cp->ptr = code_ptr[1].ptr ;
+ code2(_PUSHC, cp) ;
+}
+
+/* reset the active_code back to the MAIN block */
+static void
+switch_code_to_main()
+{
+ switch(scope)
+ {
+ case SCOPE_BEGIN :
+ *begin_code_p = active_code ;
+ active_code = *main_code_p ;
+ break ;
+
+ case SCOPE_END :
+ *end_code_p = active_code ;
+ active_code = *main_code_p ;
+ break ;
+
+ case SCOPE_FUNCT :
+ active_code = *main_code_p ;
+ break ;
+
+ case SCOPE_MAIN :
+ break ;
+ }
+ active_funct = (FBLOCK*) 0 ;
+ scope = SCOPE_MAIN ;
+}
+
+
+void
+parse()
+{
+ if ( yyparse() || compile_error_count != 0 ) mawk_exit(2) ;
+
+ scan_cleanup() ;
+ set_code() ;
+ /* code must be set before call to resolve_fcalls() */
+ if ( resolve_list ) resolve_fcalls() ;
+
+ if ( compile_error_count != 0 ) mawk_exit(2) ;
+ if ( dump_code_flag ) { dump_code() ; mawk_exit(0) ; }
+}
+
+