File: parse.c

package info (click to toggle)
mawk 1.3.3-11
links: PTS
area: main
in suites: etch, etch-m68k, sarge
size: 1,244 kB
ctags: 1,512
sloc: ansic: 13,008; sh: 1,337; yacc: 994; awk: 629; makefile: 150
file content (2621 lines) | stat: -rw-r--r-- 90,299 bytes
parent folder | download | duplicates (7)
#ifndef lint
static char yysccsid[] = "@(#)yaccpar	1.9 (Berkeley) modified 12/17/94";
#endif
#define YYBYACC_M  1
#define YYMAJOR 1
#define YYMINOR 9
#define yyclearin (yychar=(-1))
#define yyerrok (yyerrflag=0)
#define YYRECOVERING (yyerrflag!=0)
#define YYPREFIX "yy"
#line 80 "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 124 "parse.y"
typedef union{
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 ;
} YYSTYPE;
#line 68 "y.tab.c"
#define UNEXPECTED 257
#define BAD_DECIMAL 258
#define NL 259
#define SEMI_COLON 260
#define LBRACE 261
#define RBRACE 262
#define LBOX 263
#define RBOX 264
#define COMMA 265
#define IO_OUT 266
#define ASSIGN 267
#define ADD_ASG 268
#define SUB_ASG 269
#define MUL_ASG 270
#define DIV_ASG 271
#define MOD_ASG 272
#define POW_ASG 273
#define QMARK 274
#define COLON 275
#define OR 276
#define AND 277
#define IN 278
#define MATCH 279
#define EQ 280
#define NEQ 281
#define LT 282
#define LTE 283
#define GT 284
#define GTE 285
#define CAT 286
#define GETLINE 287
#define PLUS 288
#define MINUS 289
#define MUL 290
#define DIV 291
#define MOD 292
#define NOT 293
#define UMINUS 294
#define IO_IN 295
#define PIPE 296
#define POW 297
#define INC_or_DEC 298
#define DOLLAR 299
#define FIELD 300
#define LPAREN 301
#define RPAREN 302
#define DOUBLE 303
#define STRING_ 304
#define RE 305
#define ID 306
#define D_ID 307
#define FUNCT_ID 308
#define BUILTIN 309
#define LENGTH 310
#define PRINT 311
#define PRINTF 312
#define SPLIT 313
#define MATCH_FUNC 314
#define SUB 315
#define GSUB 316
#define DO 317
#define WHILE 318
#define FOR 319
#define BREAK 320
#define CONTINUE 321
#define IF 322
#define ELSE 323
#define DELETE 324
#define BEGIN 325
#define END 326
#define EXIT 327
#define NEXT 328
#define RETURN 329
#define FUNCTION 330
#define YYERRCODE 256
short yylhs[] = {                                        -1,
    0,    0,   36,   36,   36,   37,   40,   37,   41,   37,
   42,   37,   43,   44,   37,    1,    1,    2,    2,    3,
    3,    4,    4,    4,    4,    4,    4,    4,    4,   45,
   45,   13,   13,   13,   13,   13,   13,   13,   13,   13,
   13,   13,   13,   13,   13,   13,   46,   13,   47,   13,
   48,   49,   13,   14,   14,   15,   15,   15,   15,   15,
   15,   15,   15,   15,   15,   15,   15,   15,   15,   15,
   15,   15,   15,   15,   10,   25,   25,   26,   26,    8,
    8,    5,    4,   27,   27,    6,    6,    6,    7,    7,
   50,   50,   17,    4,   51,    4,   52,    4,   16,    4,
    4,   18,   18,   19,   19,   53,   53,   13,   13,   10,
   15,   15,    4,    4,   20,    4,   11,   11,   11,   11,
   11,   15,   13,   13,   13,   13,   13,   13,   13,   15,
   22,   54,   54,   15,   23,    4,    4,   21,   21,   15,
   15,   15,   15,   15,   55,   12,   12,    9,    9,   15,
   28,   28,   24,   24,   38,   29,   30,   30,   34,   34,
   35,   35,   39,   15,   31,   31,   32,   32,   32,   33,
   33,
};
short yylen[] = {                                         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,
};
short yydefred[] = {                                      0,
  163,    0,  145,    0,    0,    0,    0,    0,  117,    0,
   56,   57,   60,    0,   82,   82,   81,    0,    0,  151,
  152,    7,    9,    0,    0,    6,   70,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    1,    3,    4,
    0,    0,    0,   30,   31,   84,   85,   97,    0,    0,
    0,    0,    0,    0,    0,    0,    0,   22,    0,   20,
    0,    0,    0,    0,    0,   28,   82,   24,    0,    0,
    0,    0,    0,    0,    0,    0,    0,   72,   74,    0,
  120,    0,    0,    0,   71,    0,    0,    0,    0,    0,
    0,    0,  157,  158,    2,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
   73,   13,   51,   47,   49,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,  132,  130,    0,  155,    0,    5,  148,
  146,  147,    0,   17,   25,    0,    0,   26,   27,    0,
    0,    0,  136,   29,    0,  138,    0,   16,   21,   23,
  100,    0,  104,    0,    0,  116,    0,    0,    0,    0,
    0,    0,    0,    0,    0,  121,    0,   59,    0,    0,
  164,    0,    0,    0,    0,    8,   10,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,  108,    0,   40,   41,   42,
   43,   44,   45,   18,   12,   19,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,  161,    0,    0,  149,
    0,  102,    0,    0,    0,    0,  114,  137,  139,   95,
    0,  105,  106,    0,    0,    0,    0,    0,   86,    0,
    0,    0,    0,    0,    0,    0,    0,    0,  165,    0,
    0,  166,    0,    0,    0,    0,    0,    0,    0,  144,
  133,    0,  156,    0,   99,    0,  103,   93,    0,   96,
  107,  101,   88,    0,    0,    0,    0,    0,    0,    0,
    0,  109,    0,  169,  171,  168,  170,   80,  131,    0,
    0,   52,    0,  162,    0,    0,    0,    0,   83,    0,
    0,    0,  110,  119,  112,  134,   15,    0,    0,  153,
  150,  115,    0,    0,    0,    0,  113,   98,  154,
};
short yydgoto[] = {                                      25,
   58,  215,   59,   60,   86,  247,   82,   27,   28,   29,
   30,  143,   61,   32,   33,   62,   63,   64,  165,   65,
   66,   34,  226,  321,  249,  250,   67,   35,   36,   37,
  181,  182,  262,  228,  229,   38,   39,   40,   41,   91,
   92,  124,  202,  301,   68,  204,  205,  203,  318,  286,
  241,   69,  245,  135,   42,
};
short yysindex[] = {                                     36,
    0,  282,    0, 2247, 2247, 2247,  -50, 2157,    0, 2277,
    0,    0,    0, -296,    0,    0,    0, -286, -250,    0,
    0,    0,    0, -245,   36,    0,    0, 2247, 2123, 2170,
 2551, 2247,  267, -257, -237, -188, -219,    0,    0,    0,
 -188,  -31, -124,    0,    0,    0,    0,    0, -212, -204,
 -226, -226, -162, -165,   71, -226,   71,    0,  134,    0,
 2503,  356,  356, 1794,  356,    0,    0,    0,  356, 2277,
 -296, -152, -229, -229, -229, -114,    0,    0,    0,    0,
    0, -221, 2150, 2097,    0,  -94, -122, -111, 2277, 2277,
 -188, -188,    0,    0,    0, -106, 2277, 2277, 2277, 2277,
 2277, 2277, 2277, 2277, 2277, 2277, 2277, 2277, 2277, 2277,
    0,    0,    0,    0,    0,  -96, 2277, 2277, 2277, 2277,
 2277, 2277, 2277,  -62,  267, 2247, 2247, 2247, 2247, 2247,
  -76, 2247, 2277,    0,    0, 2277,    0,  -90,    0,    0,
    0,    0,  -75,    0,    0, 2277, 1824,    0,    0, 2277,
 -226, 2503,    0,    0, 2503,    0, -226,    0,    0,    0,
    0,  -79,    0, 2515, 2187,    0, 2307,  -89, 2410,  -51,
  -74,  -17,  -15, 2277,  -26,    0, 2277,    0, 2277,  -43,
    0, 2337, 2277, 2572, 2593,    0,    0, 2617, 2617, 2617,
 2617, 2617, 2617, 2617, 2617, 2617, 2617, 2617, 2617, 2617,
 2617, 2277, 2277, 2277, 2277,    0,  200,    0,    0,    0,
    0,    0,    0,    0,    0,    0,  -83,  -83, -229, -229,
 -229,  -50, -106, 2422, 2617,   -3,    0,  -37,    2,    0,
 2437,    0, -266, 2530, 2449,    8,    0,    0,    0,    0,
  356,    0,    0, 2464,  356, 2217,    6, 2617,    0,    9,
  -25, 2277, 2277, 2277, 2617,  -21, 2617, -187,    0, -243,
 2124,    0,  -12,  -19, 2277, 2617, 2605, 2626,  350,    0,
    0, 2277,    0,  -11,    0,  -10,    0,    0, 2277,    0,
    0,    0,    0, -218, 2277, -226, 2277, 2277, -179, -112,
 -109,    0,   -4,    0,    0,    0,    0,    0,    0,    7,
  -62,    0, 2151,    0,   11, -105,  -26, 2617,    0, 2617,
 2476,   -4,    0,    0,    0,    0,    0, 2277,  -50,    0,
    0,    0, -226, -226, 2617,   12,    0,    0,    0,
};
short yyrindex[] = {                                      0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,  601,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0, 1587,
  -59,  -42, 1645,    0,    0,    0,    0,    0,    0,    0,
    0, 1413,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
  543,  659,  891,  949, 1007,    0,  427,    0,    0,  485,
    0,    0, 1924,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0, 1065,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0, 1703,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,   13,    0,    0,
    0,    0,  717,    0,    0,    0,    0,    0,    0,    0,
   28,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,  208,    0,    0,    0,    0, -206,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0, 2367,
    0,    0,   15,    0,    0,    0,    0,   18,   41,  287,
  361, 1982, 1990, 2002, 2010, 2022, 2030, 2042, 2050, 2062,
 2070,    0,    0,    0,    0,    0,  139,    0,    0,    0,
    0,    0,    0,    0,    0,    0, 1471, 1529, 1123, 1181,
 1239, 1355,  775,    0, -170,    0,    0,    0,   19,    0,
    0,    0, 1760,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,  -95, -172,    0, -223,
    0,    0,    0,    0, -169,    0, -125,    0,    0, 1878,
    0,    0,    0,    0,    0,  -34,    0, -236,  213,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0, 1297,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0, -116,  -78,    0,  -71,
    0,  833,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0, 2082,    0,    0,    0,    0,
};
short yygindex[] = {                                      0,
   21,  -20,    0,  -49,    3,    0,   52,    0,    0,   -7,
   -1, -205,    1,    0,   44,    0,    0,    0,    0,    0,
    0,    0,   34,    0,  120, -137,    0,    0,    0,    0,
    0,    0,    0,    0,    0,  279,    0,    0,    0,    0,
    0,    0,    0,    0,  106,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,
};
#define YYTABLESIZE 2911
short yytable[] = {                                      78,
   31,   85,   72,   72,   72,   79,   72,  133,   83,  159,
   84,  276,  161,  162,   89,  166,  270,   87,   88,  168,
   26,  294,   48,   48,   48,   31,   72,   48,   48,   48,
   72,   85,   44,   45,  141,   77,   77,   48,   48,   48,
  142,  258,   77,  174,  134,   26,  174,   73,   74,   75,
   90,   81,   76,   76,   85,  152,  137,  155,  295,   76,
   93,  139,   94,  136,  164,   48,  131,  132,   83,  167,
  169,   96,    2,  170,  171,  125,  293,  287,   77,  172,
  175,  138,  173,  307,  312,  287,   78,   78,  146,  184,
  185,   78,   78,   78,  135,   90,  147,  188,  189,  190,
  191,  192,  193,  194,  195,  196,  197,  198,  199,  200,
  201,  186,  187,  326,  289,  290,  291,  207,  208,  209,
  210,  211,  212,  213,   72,   72,   72,   72,   72,   78,
   72,  135,   90,  224,   44,   45,  225,  144,  150,   89,
  151,  306,   87,   87,  214,  111,  231,  234,  145,   87,
  235,  313,  287,  236,  314,  287,  148,  149,  323,  287,
  153,  154,  156,   91,   91,  244,  160,  248,  179,  217,
  218,  219,  220,  221,  255,  223,   89,  257,  180,  248,
   92,   92,  261,  248,    8,    9,   76,   79,   79,  183,
  132,  280,   79,   79,   79,  282,   44,   45,    2,   11,
   11,   11,  266,  267,  268,  269,  128,  129,  130,  206,
  222,  252,  131,  132,  141,  227,   32,   32,   32,  230,
  142,   32,   32,   32,   14,   14,   14,  176,  251,  216,
   79,   32,   32,   32,   32,   32,   32,   32,   32,   32,
   32,   32,   32,  240,   83,  253,   84,  254,    8,    9,
   76,  256,  248,  248,  248,   77,  237,  238,  259,   32,
  239,  272,  145,  140,  273,  225,  274,    8,    9,   76,
  279,  285,  303,  287,   77,  288,   33,   33,   33,  248,
  317,   33,   33,   33,  292,  308,  299,  310,  311,  298,
   82,    1,   33,  315,  304,  305,    2,  284,  300,   34,
   34,   34,  263,   95,   34,   34,   34,    0,  316,    0,
    0,  141,  322,  329,  159,   34,   76,  142,  325,   33,
  160,  214,    3,    4,    5,    0,    0,    0,    6,   44,
   45,    0,    0,    7,    8,    9,   10,    0,   11,   12,
   13,   14,   34,   15,   16,   17,    0,    0,   18,   19,
   20,   21,    0,    0,    0,    0,    0,    3,    4,    5,
   22,   23,    0,    6,    0,   24,    0,    0,    7,    8,
    9,   10,    0,   11,   12,   13,   14,    0,   15,   16,
   17,    0,    0,   18,   19,   20,   21,    0,    0,  157,
    0,  309,   44,   45,    2,  158,    0,   46,   46,   46,
    0,    0,   46,   46,   46,    0,  216,    0,    0,    0,
    0,    0,   46,   46,   46,   46,   46,   46,    0,    0,
    3,    4,    5,    0,    0,    0,    6,    0,  327,  328,
    0,    7,    8,    9,   10,    0,   11,   12,   13,   14,
   46,   15,   16,   17,   46,   47,   18,   19,   20,   21,
   48,   49,   50,   51,   52,   53,    0,   54,    0,    0,
   55,   56,   57,   94,    0,    0,   94,   94,   94,   94,
    0,   50,   50,   50,    0,    0,   50,   50,   50,  118,
  119,  120,  121,  122,  123,    0,   50,   50,   50,   50,
    0,    0,    0,    0,   94,   94,   94,    0,    0,    0,
   94,    0,    0,    0,    0,   94,   94,   94,   94,    0,
   94,   94,   94,   94,   50,   94,   94,   94,   94,   94,
   94,   94,   94,   94,   94,   94,   94,   94,   94,   94,
    0,   94,    0,    0,   94,   94,   94,   43,    0,    0,
   44,   45,    2,    0,    0,   35,   35,   35,    0,    0,
   35,   35,   35,    0,  126,  127,  128,  129,  130,    0,
    0,   35,  131,  132,    0,    0,    0,    0,    3,    4,
    5,    0,    0,    0,    6,    0,    0,    0,    0,    7,
    8,    9,   10,    0,   11,   12,   13,   14,   35,   15,
   16,   17,   46,   47,   18,   19,   20,   21,   48,   49,
   50,   51,   52,   53,    0,   54,    0,    0,   55,   56,
   57,  157,    0,    0,   44,   45,    2,    0,    0,   36,
   36,   36,    0,    0,   36,   36,   36,  116,  117,  118,
  119,  120,  121,  122,  123,   36,    0,    0,    0,    0,
    0,    0,    3,    4,    5,    0,    0,    0,    6,    0,
    0,    0,    0,    7,    8,    9,   10,    0,   11,   12,
   13,   14,   36,   15,   16,   17,   46,   47,   18,   19,
   20,   21,   48,   49,   50,   51,   52,   53,    0,   54,
    0,    0,   55,   56,   57,   75,   75,   75,    0,   82,
   75,   75,   75,   75,   75,   75,   75,   75,   75,   75,
   75,   75,   75,   75,   75,   75,   75,   75,   75,   75,
   75,   75,    0,   75,   75,   75,   75,   75,   75,   75,
    0,   75,   75,   75,   75,   75,   75,   75,   75,   75,
   75,   75,   75,    0,   75,   75,   75,    0,    0,   75,
   75,   75,   75,  118,  118,  118,    0,   82,  118,  118,
  118,  118,  118,  118,  118,  118,  118,  118,  118,  118,
  118,  118,  118,  118,  118,  118,  118,  118,  118,  118,
    0,  118,  118,  118,  118,  118,  118,  118,    0,  118,
  118,  118,  118,  118,  118,  118,  118,  118,  118,  118,
  118,    0,  118,  118,  118,    0,    0,  118,  118,  118,
  118,   58,   58,   58,    0,   82,   58,   58,   58,   58,
   58,   58,   58,   58,   58,   58,   58,   58,   58,   58,
   58,   58,   58,   58,   58,   58,   58,   58,    0,   58,
   58,   58,   58,   58,   58,   58,    0,   58,   58,   58,
    0,   58,   58,   58,   58,   58,   58,   58,   58,    0,
   58,   58,   58,    0,    0,   58,   58,   58,   58,   58,
   58,   58,    0,   82,   58,   58,   58,   75,   75,   75,
   75,   75,   75,   75,   58,   58,   58,   58,   58,   58,
   58,   58,   58,   58,   58,   58,    0,   58,   58,   58,
   58,   58,   58,   58,    0,    0,   58,   58,    0,   58,
   58,   58,   58,   58,   58,   58,   58,    0,   58,   58,
   58,    0,    0,   58,   58,   58,   58,  122,  122,  122,
    0,    0,  122,  122,  122,  122,  122,  122,  122,  122,
  122,  122,  122,  122,  122,  122,  122,  122,  122,  122,
  122,  122,  122,  122,    0,  122,  122,  122,  122,  122,
  122,  122,    0,  122,  122,  122,    0,  122,  122,  122,
  122,  122,  122,  122,  122,    0,  122,  122,  122,    0,
    0,  122,  122,  122,  122,  141,  141,  141,    0,    0,
  141,  141,  141,  141,  141,  141,  141,  141,  141,  141,
  141,  141,  141,  141,  141,  141,  141,  141,  141,  141,
  141,  141,    0,  141,  141,  141,  141,  141,  141,  141,
    0,    0,  141,  141,  141,  141,  141,  141,  141,  141,
  141,  141,  141,    0,  141,  141,  141,    0,    0,  141,
  141,  141,  141,   66,   66,   66,    0,    0,   66,   66,
   66,   66,   66,   66,   66,   66,   66,   66,   66,   66,
   66,   66,   66,   66,   66,   66,   66,   66,   66,   66,
    0,   66,   66,   66,   66,   66,   66,   66,    0,   66,
   66,    0,   66,   66,   66,   66,   66,   66,   66,   66,
   66,    0,   66,   66,   66,    0,    0,   66,   66,   66,
   66,  111,  111,  111,    0,    0,  111,  111,  111,  111,
  111,  111,  111,  111,  111,  111,  111,  111,  111,  111,
  111,  111,  111,  111,  111,  111,  111,  111,    0,  111,
  111,  111,  111,  111,  111,  111,    0,  111,  111,  111,
    0,  111,  111,  111,  111,  111,  111,  111,  111,    0,
  111,  111,  111,    0,    0,  111,  111,  111,  111,   68,
   68,   68,    0,    0,   68,   68,   68,   68,   68,   68,
   68,   68,   68,   68,   68,   68,   68,   68,   68,   68,
   68,   68,   68,   68,   68,   68,    0,   68,   68,   68,
   68,   68,   68,   68,    0,   68,    0,    0,   68,   68,
   68,   68,   68,   68,   68,   68,   68,    0,   68,   68,
   68,    0,    0,   68,   68,   68,   68,   69,   69,   69,
    0,    0,   69,   69,   69,   69,   69,   69,   69,   69,
   69,   69,   69,   69,   69,   69,   69,   69,   69,   69,
   69,   69,   69,   69,    0,   69,   69,   69,   69,   69,
   69,   69,    0,   69,    0,    0,   69,   69,   69,   69,
   69,   69,   69,   69,   69,    0,   69,   69,   69,    0,
    0,   69,   69,   69,   69,   67,   67,   67,    0,    0,
   67,   67,   67,   67,   67,   67,   67,   67,   67,   67,
   67,   67,   67,   67,   67,   67,   67,   67,   67,   67,
   67,   67,    0,   67,   67,   67,   67,   67,   67,   67,
    0,   67,    0,    0,   67,   67,   67,   67,   67,   67,
   67,   67,   67,    0,   67,   67,   67,    0,    0,   67,
   67,   67,   67,  142,  142,  142,    0,    0,  142,  142,
  142,  142,  142,  142,  142,  142,  142,  142,  142,  142,
  142,  142,  142,  142,  142,  142,  142,  142,  142,  142,
    0,  142,  142,  142,  142,  142,  142,  142,    0,  142,
    0,    0,  142,  142,  142,  142,  142,  142,  142,  142,
  142,    0,  142,  142,  142,    0,    0,  142,  142,  142,
  142,   63,   63,   63,    0,    0,   63,   63,   63,   63,
   63,   63,   63,   63,   63,   63,   63,   63,   63,   63,
   63,   63,   63,   63,   63,   63,   63,   63,    0,   63,
   63,   63,   63,   63,   63,   63,    0,   63,    0,    0,
   63,   63,   63,   63,   63,   63,   63,   63,   63,    0,
   63,   63,   63,    0,    0,   63,   63,   63,   63,   64,
   64,   64,    0,    0,   64,   64,   64,   64,   64,   64,
   64,   64,   64,   64,   64,   64,   64,   64,   64,   64,
   64,   64,   64,   64,   64,   64,    0,   64,   64,   64,
   64,   64,   64,   64,    0,   64,    0,    0,   64,   64,
   64,   64,   64,   64,   64,   64,   64,    0,   64,   64,
   64,    0,    0,   64,   64,   64,   64,   65,   65,   65,
    0,    0,   65,   65,   65,   65,   65,   65,   65,   65,
   65,   65,   65,   65,   65,   65,   65,   65,   65,   65,
   65,   65,   65,   65,    0,   65,   65,   65,   65,   65,
   65,   65,    0,   65,    0,    0,   65,   65,   65,   65,
   65,   65,   65,   65,   65,    0,   65,   65,   65,    0,
    0,   65,   65,   65,   65,  111,  111,  111,    0,    0,
  111,  111,  111,  110,  110,  110,  110,  110,  110,  110,
  111,  111,  111,  111,  111,  111,  111,  111,  111,  111,
  111,  111,    0,  111,  111,  111,  111,  111,  111,  111,
    0,    0,  111,  111,    0,  111,  111,  111,  111,  111,
  111,  111,  111,    0,  111,  111,  111,    0,    0,  111,
  111,  111,  111,  143,  143,  143,    0,    0,  143,  143,
  143,  143,  143,  143,  143,  143,  143,  143,  143,  143,
  143,  143,  143,  143,  143,  143,  143,  143,  143,  143,
    0,  143,  143,  143,  143,  143,  143,  143,    0,  143,
  143,  143,  143,    0,    0,    0,  143,  143,  143,  143,
    0,    0,  143,  143,  143,    0,    0,  143,  143,  143,
  143,  140,  140,  140,    0,    0,  140,  140,  140,  140,
  140,  140,  140,  140,  140,  140,  140,  140,  140,  140,
  140,  140,  140,  140,  140,  140,  140,  140,    0,  140,
  140,  140,  140,  140,  140,  140,    0,    0,  140,  140,
  140,    0,    0,    0,  140,  140,  140,  140,    0,    0,
  140,  140,  140,    0,    0,  140,  140,  140,  140,   61,
   61,   61,    0,    0,   61,   61,   61,   61,   61,   61,
   61,   61,   61,   61,   61,   61,   61,   61,   61,   61,
   61,   61,   61,   61,   61,   61,    0,   61,   61,   61,
    0,    0,    0,   61,    0,   61,    0,    0,   61,   61,
   61,   61,   61,   61,   61,   61,   61,    0,   61,   61,
   61,    0,    0,   61,   61,   61,   61,   62,   62,   62,
    0,    0,   62,   62,   62,   62,   62,   62,   62,   62,
   62,   62,   62,   62,   62,   62,   62,   62,   62,   62,
   62,   62,   62,   62,    0,   62,   62,   62,    0,    0,
    0,   62,    0,   62,    0,    0,   62,   62,   62,   62,
   62,   62,   62,   62,   62,    0,   62,   62,   62,    0,
    0,   62,   62,   62,   62,  122,  122,  122,    0,    0,
  122,  122,  122,    0,    0,    0,    0,    0,    0,    0,
  122,  122,  122,  122,  122,  122,  122,  122,  122,  122,
  122,  122,    0,  122,  122,  122,  122,  122,  122,  122,
    0,    0,  122,  122,    0,  122,  122,  122,  122,  122,
  122,  122,  122,    0,  122,  122,  122,    0,    0,  122,
  122,  122,  122,   54,   54,   54,    0,    0,   54,   54,
   54,    0,    0,    0,    0,    0,    0,    0,   54,   54,
   54,   54,   54,   54,   54,   54,   54,   54,   54,   54,
    0,   54,    0,    0,    0,    0,    0,   54,    0,    0,
    0,    0,   54,   54,   54,   54,   54,   54,   54,   54,
   54,    0,   54,   54,   54,    0,    0,   54,   54,   54,
   54,   55,   55,   55,    0,    0,   55,   55,   55,    0,
    0,    0,    0,    0,    0,    0,   55,   55,   55,   55,
   55,   55,   55,   55,   55,   55,   55,   55,    0,   55,
    0,    0,    0,    0,    0,   55,    0,    0,    0,    0,
   55,   55,   55,   55,   55,   55,   55,   55,   55,    0,
   55,   55,   55,    0,    0,   55,   55,   55,   55,   58,
    0,    0,   82,    0,    0,    0,   75,   75,   75,   75,
   75,   75,   75,   58,    0,   58,   58,    0,   58,   58,
   58,   58,   58,   58,   58,    0,   58,   58,   58,   58,
   58,   58,   58,  163,    0,   58,   58,    0,   58,   58,
   58,    0,   58,   58,   58,   58,    0,   58,   58,   58,
    0,    0,   58,   58,   58,   58,    0,    0,    0,    0,
    3,    4,    5,  232,    0,    0,    6,    0,    0,    0,
    0,    7,    8,    9,   10,    0,   11,   12,   13,   14,
    0,   15,   16,   17,    0,    0,   18,   19,   20,   21,
    3,    4,    5,    0,    0,    0,    6,    0,    0,    0,
    0,    7,    8,    9,   10,    0,   11,   12,   13,  233,
    0,   15,   16,   17,    0,    0,   18,   19,   20,   21,
   82,    0,    0,    0,   75,   75,   75,   75,   75,   75,
   75,   58,    0,   58,   58,   58,   58,   58,   58,   58,
   58,   58,   58,    0,   58,   58,   58,   58,   58,   58,
   58,    0,    0,   58,   58,    0,   58,   58,   58,    0,
   58,   58,   58,   58,    0,   58,   58,   58,  122,    0,
   58,   58,   58,   58,    0,    0,    0,  122,    0,  122,
  122,  122,  122,  122,  122,  122,  122,  122,  122,    0,
  122,  122,  122,  122,  122,  122,  122,    0,    0,  122,
  122,    0,  122,  122,  122,    0,  122,  122,  122,  122,
    0,  122,  122,  122,    0,    0,  122,  122,  122,  122,
   37,   37,   37,    0,    0,   37,   37,   37,   38,   38,
   38,    0,    0,   38,   38,   38,   37,    0,    0,    0,
   39,   39,   39,    0,   38,   39,   39,   39,  123,  123,
  123,    0,    0,  123,  123,  123,   39,    0,    0,    0,
  124,  124,  124,   37,  123,  124,  124,  124,  125,  125,
  125,   38,    0,  125,  125,  125,  124,    0,    0,    0,
  126,  126,  126,   39,  125,  126,  126,  126,  127,  127,
  127,  123,    0,  127,  127,  127,  126,    0,    0,    0,
  128,  128,  128,  124,  127,  128,  128,  128,  129,  129,
  129,  125,    0,  129,  129,  129,  128,    0,    0,    0,
   53,   53,   53,  126,  129,   53,   53,   53,    0,    0,
    0,  127,    0,    0,    0,    0,   53,    0,    0,    0,
    0,  177,    0,  128,    0,    0,    0,    0,    0,    0,
  113,  129,  114,  115,  116,  117,  118,  119,  120,  121,
  122,  123,    0,   53,    0,    0,    0,    0,  296,   97,
   98,   99,  100,  101,  102,  103,    0,  113,  178,  114,
  115,  116,  117,  118,  119,  120,  121,  122,  123,    0,
    0,    0,    0,    0,    0,  319,  104,  105,  106,  107,
  108,  109,  110,    0,  113,  297,  114,  115,  116,  117,
  118,  119,  120,  121,  122,  123,  104,  105,  106,  107,
  108,  109,  110,    3,    4,    5,    0,  111,    0,    6,
    0,  176,  320,    0,    7,    8,    9,   70,    0,   11,
   12,   13,   71,   80,   15,   16,   17,  111,    0,   18,
   19,   20,   21,    3,    4,    5,    0,    0,    0,    6,
    0,    0,    0,    0,    7,    8,    9,   10,  243,   11,
   12,   13,   14,    0,   15,   16,   17,    0,    0,   18,
   19,   20,   21,    3,    4,    5,    0,    0,    0,    6,
    0,    0,    0,    0,    7,    8,    9,   10,  283,   11,
   12,   13,   14,    0,   15,   16,   17,    0,    0,   18,
   19,   20,   21,    3,    4,    5,    0,    0,    0,    6,
    0,    0,    0,    0,    7,    8,    9,   70,    0,   11,
   12,   13,   71,    0,   15,   16,   17,    0,    0,   18,
   19,   20,   21,    3,    4,    5,    0,    0,    0,    6,
    0,    0,    0,    0,    7,    8,    9,   10,    0,   11,
   12,   13,   14,    0,   15,   16,   17,    0,    0,   18,
   19,   20,   21,    3,    4,    5,    0,    0,    0,    6,
    0,    0,    0,    0,    7,    8,    9,  246,    0,   11,
   12,   13,   14,    0,   15,   16,   17,    0,    0,   18,
   19,   20,   21,    3,    4,    5,    0,    0,    0,    6,
    0,    0,    0,    0,    7,    8,    9,   10,    0,   11,
   12,   13,  260,    0,   15,   16,   17,    0,    0,   18,
   19,   20,   21,  167,  167,  167,    0,    0,    0,  167,
    0,    0,    0,    0,  167,  167,  167,  167,    0,  167,
  167,  167,  167,    0,  167,  167,  167,    0,    0,  167,
  167,  167,  167,  113,    0,  114,  115,  116,  117,  118,
  119,  120,  121,  122,  123,  113,    0,  114,  115,  116,
  117,  118,  119,  120,  121,  122,  123,    0,    0,    0,
  113,  178,  114,  115,  116,  117,  118,  119,  120,  121,
  122,  123,  113,  271,  114,  115,  116,  117,  118,  119,
  120,  121,  122,  123,    0,    0,    0,  113,  275,  114,
  115,  116,  117,  118,  119,  120,  121,  122,  123,  113,
  278,  114,  115,  116,  117,  118,  119,  120,  121,  122,
  123,   44,   45,    0,    0,  281,    0,    0,    0,    0,
    0,    0,    0,    0,  242,    0,  113,  324,  114,  115,
  116,  117,  118,  119,  120,  121,  122,  123,  113,  277,
  114,  115,  116,  117,  118,  119,  120,  121,  122,  123,
    0,    0,    0,  113,    0,  114,  115,  116,  117,  118,
  119,  120,  121,  122,  123,  112,    0,    0,    0,    0,
    0,    0,    0,    0,  113,    0,  114,  115,  116,  117,
  118,  119,  120,  121,  122,  123,  264,    0,    0,    0,
    0,    0,    0,    0,    0,  113,    0,  114,  115,  116,
  117,  118,  119,  120,  121,  122,  123,  265,    0,    0,
    0,    0,    0,    0,    0,    0,  113,    0,  114,  115,
  116,  117,  118,  119,  120,  121,  122,  123,  113,  302,
  114,  115,  116,  117,  118,  119,  120,  121,  122,  123,
  113,    0,  114,  115,  116,  117,  118,  119,  120,  121,
  122,  123,  115,  116,  117,  118,  119,  120,  121,  122,
  123,
};
short yycheck[] = {                                       7,
    0,  298,    4,    5,    6,    7,    8,  265,   10,   59,
   10,  278,   62,   63,  301,   65,  222,   15,   16,   69,
    0,  265,  259,  260,  261,   25,   28,  264,  265,  266,
   32,  298,  259,  260,   42,  259,  260,  274,  275,  276,
   42,  179,  266,  265,  302,   25,  265,    4,    5,    6,
  301,    8,  259,  260,  298,   55,   36,   57,  302,  266,
  306,   41,  308,  301,   64,  302,  296,  297,   70,   67,
   70,   28,  261,   71,   76,   32,  264,  265,  302,   77,
  302,  301,   80,  302,  264,  265,  259,  260,  301,   89,
   90,  264,  265,  266,  265,  265,  301,   97,   98,   99,
  100,  101,  102,  103,  104,  105,  106,  107,  108,  109,
  110,   91,   92,  319,  252,  253,  254,  117,  118,  119,
  120,  121,  122,  123,  126,  127,  128,  129,  130,  302,
  132,  302,  302,  133,  259,  260,  136,  262,  301,  265,
  306,  279,  259,  260,  124,  298,  146,  147,   43,  266,
  150,  264,  265,  151,  264,  265,   51,   52,  264,  265,
   55,   56,   57,  259,  260,  165,   61,  167,  263,  126,
  127,  128,  129,  130,  174,  132,  302,  177,  301,  179,
  259,  260,  182,  183,  299,  300,  301,  259,  260,  301,
  297,  241,  264,  265,  266,  245,  259,  260,  261,  259,
  260,  261,  202,  203,  204,  205,  290,  291,  292,  306,
  287,  263,  296,  297,  222,  306,  259,  260,  261,  295,
  222,  264,  265,  266,  259,  260,  261,  302,  318,  124,
  302,  274,  275,  276,  277,  278,  279,  280,  281,  282,
  283,  284,  285,  323,  246,  263,  246,  263,  299,  300,
  301,  278,  252,  253,  254,  306,  151,  152,  302,  302,
  155,  265,  157,  295,  302,  265,  265,  299,  300,  301,
  263,  266,  272,  265,  306,  301,  259,  260,  261,  279,
  301,  264,  265,  266,  306,  285,  306,  287,  288,  302,
  263,  256,  275,  298,  306,  306,  261,  246,  265,  259,
  260,  261,  183,   25,  264,  265,  266,   -1,  302,   -1,
   -1,  319,  302,  302,  302,  275,  302,  319,  318,  302,
  302,  301,  287,  288,  289,   -1,   -1,   -1,  293,  259,
  260,   -1,   -1,  298,  299,  300,  301,   -1,  303,  304,
  305,  306,  302,  308,  309,  310,   -1,   -1,  313,  314,
  315,  316,   -1,   -1,   -1,   -1,   -1,  287,  288,  289,
  325,  326,   -1,  293,   -1,  330,   -1,   -1,  298,  299,
  300,  301,   -1,  303,  304,  305,  306,   -1,  308,  309,
  310,   -1,   -1,  313,  314,  315,  316,   -1,   -1,  256,
   -1,  286,  259,  260,  261,  262,   -1,  259,  260,  261,
   -1,   -1,  264,  265,  266,   -1,  301,   -1,   -1,   -1,
   -1,   -1,  274,  275,  276,  277,  278,  279,   -1,   -1,
  287,  288,  289,   -1,   -1,   -1,  293,   -1,  323,  324,
   -1,  298,  299,  300,  301,   -1,  303,  304,  305,  306,
  302,  308,  309,  310,  311,  312,  313,  314,  315,  316,
  317,  318,  319,  320,  321,  322,   -1,  324,   -1,   -1,
  327,  328,  329,  256,   -1,   -1,  259,  260,  261,  262,
   -1,  259,  260,  261,   -1,   -1,  264,  265,  266,  280,
  281,  282,  283,  284,  285,   -1,  274,  275,  276,  277,
   -1,   -1,   -1,   -1,  287,  288,  289,   -1,   -1,   -1,
  293,   -1,   -1,   -1,   -1,  298,  299,  300,  301,   -1,
  303,  304,  305,  306,  302,  308,  309,  310,  311,  312,
  313,  314,  315,  316,  317,  318,  319,  320,  321,  322,
   -1,  324,   -1,   -1,  327,  328,  329,  256,   -1,   -1,
  259,  260,  261,   -1,   -1,  259,  260,  261,   -1,   -1,
  264,  265,  266,   -1,  288,  289,  290,  291,  292,   -1,
   -1,  275,  296,  297,   -1,   -1,   -1,   -1,  287,  288,
  289,   -1,   -1,   -1,  293,   -1,   -1,   -1,   -1,  298,
  299,  300,  301,   -1,  303,  304,  305,  306,  302,  308,
  309,  310,  311,  312,  313,  314,  315,  316,  317,  318,
  319,  320,  321,  322,   -1,  324,   -1,   -1,  327,  328,
  329,  256,   -1,   -1,  259,  260,  261,   -1,   -1,  259,
  260,  261,   -1,   -1,  264,  265,  266,  278,  279,  280,
  281,  282,  283,  284,  285,  275,   -1,   -1,   -1,   -1,
   -1,   -1,  287,  288,  289,   -1,   -1,   -1,  293,   -1,
   -1,   -1,   -1,  298,  299,  300,  301,   -1,  303,  304,
  305,  306,  302,  308,  309,  310,  311,  312,  313,  314,
  315,  316,  317,  318,  319,  320,  321,  322,   -1,  324,
   -1,   -1,  327,  328,  329,  259,  260,  261,   -1,  263,
  264,  265,  266,  267,  268,  269,  270,  271,  272,  273,
  274,  275,  276,  277,  278,  279,  280,  281,  282,  283,
  284,  285,   -1,  287,  288,  289,  290,  291,  292,  293,
   -1,  295,  296,  297,  298,  299,  300,  301,  302,  303,
  304,  305,  306,   -1,  308,  309,  310,   -1,   -1,  313,
  314,  315,  316,  259,  260,  261,   -1,  263,  264,  265,
  266,  267,  268,  269,  270,  271,  272,  273,  274,  275,
  276,  277,  278,  279,  280,  281,  282,  283,  284,  285,
   -1,  287,  288,  289,  290,  291,  292,  293,   -1,  295,
  296,  297,  298,  299,  300,  301,  302,  303,  304,  305,
  306,   -1,  308,  309,  310,   -1,   -1,  313,  314,  315,
  316,  259,  260,  261,   -1,  263,  264,  265,  266,  267,
  268,  269,  270,  271,  272,  273,  274,  275,  276,  277,
  278,  279,  280,  281,  282,  283,  284,  285,   -1,  287,
  288,  289,  290,  291,  292,  293,   -1,  295,  296,  297,
   -1,  299,  300,  301,  302,  303,  304,  305,  306,   -1,
  308,  309,  310,   -1,   -1,  313,  314,  315,  316,  259,
  260,  261,   -1,  263,  264,  265,  266,  267,  268,  269,
  270,  271,  272,  273,  274,  275,  276,  277,  278,  279,
  280,  281,  282,  283,  284,  285,   -1,  287,  288,  289,
  290,  291,  292,  293,   -1,   -1,  296,  297,   -1,  299,
  300,  301,  302,  303,  304,  305,  306,   -1,  308,  309,
  310,   -1,   -1,  313,  314,  315,  316,  259,  260,  261,
   -1,   -1,  264,  265,  266,  267,  268,  269,  270,  271,
  272,  273,  274,  275,  276,  277,  278,  279,  280,  281,
  282,  283,  284,  285,   -1,  287,  288,  289,  290,  291,
  292,  293,   -1,  295,  296,  297,   -1,  299,  300,  301,
  302,  303,  304,  305,  306,   -1,  308,  309,  310,   -1,
   -1,  313,  314,  315,  316,  259,  260,  261,   -1,   -1,
  264,  265,  266,  267,  268,  269,  270,  271,  272,  273,
  274,  275,  276,  277,  278,  279,  280,  281,  282,  283,
  284,  285,   -1,  287,  288,  289,  290,  291,  292,  293,
   -1,   -1,  296,  297,  298,  299,  300,  301,  302,  303,
  304,  305,  306,   -1,  308,  309,  310,   -1,   -1,  313,
  314,  315,  316,  259,  260,  261,   -1,   -1,  264,  265,
  266,  267,  268,  269,  270,  271,  272,  273,  274,  275,
  276,  277,  278,  279,  280,  281,  282,  283,  284,  285,
   -1,  287,  288,  289,  290,  291,  292,  293,   -1,  295,
  296,   -1,  298,  299,  300,  301,  302,  303,  304,  305,
  306,   -1,  308,  309,  310,   -1,   -1,  313,  314,  315,
  316,  259,  260,  261,   -1,   -1,  264,  265,  266,  267,
  268,  269,  270,  271,  272,  273,  274,  275,  276,  277,
  278,  279,  280,  281,  282,  283,  284,  285,   -1,  287,
  288,  289,  290,  291,  292,  293,   -1,  295,  296,  297,
   -1,  299,  300,  301,  302,  303,  304,  305,  306,   -1,
  308,  309,  310,   -1,   -1,  313,  314,  315,  316,  259,
  260,  261,   -1,   -1,  264,  265,  266,  267,  268,  269,
  270,  271,  272,  273,  274,  275,  276,  277,  278,  279,
  280,  281,  282,  283,  284,  285,   -1,  287,  288,  289,
  290,  291,  292,  293,   -1,  295,   -1,   -1,  298,  299,
  300,  301,  302,  303,  304,  305,  306,   -1,  308,  309,
  310,   -1,   -1,  313,  314,  315,  316,  259,  260,  261,
   -1,   -1,  264,  265,  266,  267,  268,  269,  270,  271,
  272,  273,  274,  275,  276,  277,  278,  279,  280,  281,
  282,  283,  284,  285,   -1,  287,  288,  289,  290,  291,
  292,  293,   -1,  295,   -1,   -1,  298,  299,  300,  301,
  302,  303,  304,  305,  306,   -1,  308,  309,  310,   -1,
   -1,  313,  314,  315,  316,  259,  260,  261,   -1,   -1,
  264,  265,  266,  267,  268,  269,  270,  271,  272,  273,
  274,  275,  276,  277,  278,  279,  280,  281,  282,  283,
  284,  285,   -1,  287,  288,  289,  290,  291,  292,  293,
   -1,  295,   -1,   -1,  298,  299,  300,  301,  302,  303,
  304,  305,  306,   -1,  308,  309,  310,   -1,   -1,  313,
  314,  315,  316,  259,  260,  261,   -1,   -1,  264,  265,
  266,  267,  268,  269,  270,  271,  272,  273,  274,  275,
  276,  277,  278,  279,  280,  281,  282,  283,  284,  285,
   -1,  287,  288,  289,  290,  291,  292,  293,   -1,  295,
   -1,   -1,  298,  299,  300,  301,  302,  303,  304,  305,
  306,   -1,  308,  309,  310,   -1,   -1,  313,  314,  315,
  316,  259,  260,  261,   -1,   -1,  264,  265,  266,  267,
  268,  269,  270,  271,  272,  273,  274,  275,  276,  277,
  278,  279,  280,  281,  282,  283,  284,  285,   -1,  287,
  288,  289,  290,  291,  292,  293,   -1,  295,   -1,   -1,
  298,  299,  300,  301,  302,  303,  304,  305,  306,   -1,
  308,  309,  310,   -1,   -1,  313,  314,  315,  316,  259,
  260,  261,   -1,   -1,  264,  265,  266,  267,  268,  269,
  270,  271,  272,  273,  274,  275,  276,  277,  278,  279,
  280,  281,  282,  283,  284,  285,   -1,  287,  288,  289,
  290,  291,  292,  293,   -1,  295,   -1,   -1,  298,  299,
  300,  301,  302,  303,  304,  305,  306,   -1,  308,  309,
  310,   -1,   -1,  313,  314,  315,  316,  259,  260,  261,
   -1,   -1,  264,  265,  266,  267,  268,  269,  270,  271,
  272,  273,  274,  275,  276,  277,  278,  279,  280,  281,
  282,  283,  284,  285,   -1,  287,  288,  289,  290,  291,
  292,  293,   -1,  295,   -1,   -1,  298,  299,  300,  301,
  302,  303,  304,  305,  306,   -1,  308,  309,  310,   -1,
   -1,  313,  314,  315,  316,  259,  260,  261,   -1,   -1,
  264,  265,  266,  267,  268,  269,  270,  271,  272,  273,
  274,  275,  276,  277,  278,  279,  280,  281,  282,  283,
  284,  285,   -1,  287,  288,  289,  290,  291,  292,  293,
   -1,   -1,  296,  297,   -1,  299,  300,  301,  302,  303,
  304,  305,  306,   -1,  308,  309,  310,   -1,   -1,  313,
  314,  315,  316,  259,  260,  261,   -1,   -1,  264,  265,
  266,  267,  268,  269,  270,  271,  272,  273,  274,  275,
  276,  277,  278,  279,  280,  281,  282,  283,  284,  285,
   -1,  287,  288,  289,  290,  291,  292,  293,   -1,  295,
  296,  297,  298,   -1,   -1,   -1,  302,  303,  304,  305,
   -1,   -1,  308,  309,  310,   -1,   -1,  313,  314,  315,
  316,  259,  260,  261,   -1,   -1,  264,  265,  266,  267,
  268,  269,  270,  271,  272,  273,  274,  275,  276,  277,
  278,  279,  280,  281,  282,  283,  284,  285,   -1,  287,
  288,  289,  290,  291,  292,  293,   -1,   -1,  296,  297,
  298,   -1,   -1,   -1,  302,  303,  304,  305,   -1,   -1,
  308,  309,  310,   -1,   -1,  313,  314,  315,  316,  259,
  260,  261,   -1,   -1,  264,  265,  266,  267,  268,  269,
  270,  271,  272,  273,  274,  275,  276,  277,  278,  279,
  280,  281,  282,  283,  284,  285,   -1,  287,  288,  289,
   -1,   -1,   -1,  293,   -1,  295,   -1,   -1,  298,  299,
  300,  301,  302,  303,  304,  305,  306,   -1,  308,  309,
  310,   -1,   -1,  313,  314,  315,  316,  259,  260,  261,
   -1,   -1,  264,  265,  266,  267,  268,  269,  270,  271,
  272,  273,  274,  275,  276,  277,  278,  279,  280,  281,
  282,  283,  284,  285,   -1,  287,  288,  289,   -1,   -1,
   -1,  293,   -1,  295,   -1,   -1,  298,  299,  300,  301,
  302,  303,  304,  305,  306,   -1,  308,  309,  310,   -1,
   -1,  313,  314,  315,  316,  259,  260,  261,   -1,   -1,
  264,  265,  266,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
  274,  275,  276,  277,  278,  279,  280,  281,  282,  283,
  284,  285,   -1,  287,  288,  289,  290,  291,  292,  293,
   -1,   -1,  296,  297,   -1,  299,  300,  301,  302,  303,
  304,  305,  306,   -1,  308,  309,  310,   -1,   -1,  313,
  314,  315,  316,  259,  260,  261,   -1,   -1,  264,  265,
  266,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  274,  275,
  276,  277,  278,  279,  280,  281,  282,  283,  284,  285,
   -1,  287,   -1,   -1,   -1,   -1,   -1,  293,   -1,   -1,
   -1,   -1,  298,  299,  300,  301,  302,  303,  304,  305,
  306,   -1,  308,  309,  310,   -1,   -1,  313,  314,  315,
  316,  259,  260,  261,   -1,   -1,  264,  265,  266,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,  274,  275,  276,  277,
  278,  279,  280,  281,  282,  283,  284,  285,   -1,  287,
   -1,   -1,   -1,   -1,   -1,  293,   -1,   -1,   -1,   -1,
  298,  299,  300,  301,  302,  303,  304,  305,  306,   -1,
  308,  309,  310,   -1,   -1,  313,  314,  315,  316,  260,
   -1,   -1,  263,   -1,   -1,   -1,  267,  268,  269,  270,
  271,  272,  273,  274,   -1,  276,  277,   -1,  279,  280,
  281,  282,  283,  284,  285,   -1,  287,  288,  289,  290,
  291,  292,  293,  260,   -1,  296,  297,   -1,  299,  300,
  301,   -1,  303,  304,  305,  306,   -1,  308,  309,  310,
   -1,   -1,  313,  314,  315,  316,   -1,   -1,   -1,   -1,
  287,  288,  289,  260,   -1,   -1,  293,   -1,   -1,   -1,
   -1,  298,  299,  300,  301,   -1,  303,  304,  305,  306,
   -1,  308,  309,  310,   -1,   -1,  313,  314,  315,  316,
  287,  288,  289,   -1,   -1,   -1,  293,   -1,   -1,   -1,
   -1,  298,  299,  300,  301,   -1,  303,  304,  305,  306,
   -1,  308,  309,  310,   -1,   -1,  313,  314,  315,  316,
  263,   -1,   -1,   -1,  267,  268,  269,  270,  271,  272,
  273,  274,   -1,  276,  277,  278,  279,  280,  281,  282,
  283,  284,  285,   -1,  287,  288,  289,  290,  291,  292,
  293,   -1,   -1,  296,  297,   -1,  299,  300,  301,   -1,
  303,  304,  305,  306,   -1,  308,  309,  310,  265,   -1,
  313,  314,  315,  316,   -1,   -1,   -1,  274,   -1,  276,
  277,  278,  279,  280,  281,  282,  283,  284,  285,   -1,
  287,  288,  289,  290,  291,  292,  293,   -1,   -1,  296,
  297,   -1,  299,  300,  301,   -1,  303,  304,  305,  306,
   -1,  308,  309,  310,   -1,   -1,  313,  314,  315,  316,
  259,  260,  261,   -1,   -1,  264,  265,  266,  259,  260,
  261,   -1,   -1,  264,  265,  266,  275,   -1,   -1,   -1,
  259,  260,  261,   -1,  275,  264,  265,  266,  259,  260,
  261,   -1,   -1,  264,  265,  266,  275,   -1,   -1,   -1,
  259,  260,  261,  302,  275,  264,  265,  266,  259,  260,
  261,  302,   -1,  264,  265,  266,  275,   -1,   -1,   -1,
  259,  260,  261,  302,  275,  264,  265,  266,  259,  260,
  261,  302,   -1,  264,  265,  266,  275,   -1,   -1,   -1,
  259,  260,  261,  302,  275,  264,  265,  266,  259,  260,
  261,  302,   -1,  264,  265,  266,  275,   -1,   -1,   -1,
  259,  260,  261,  302,  275,  264,  265,  266,   -1,   -1,
   -1,  302,   -1,   -1,   -1,   -1,  275,   -1,   -1,   -1,
   -1,  265,   -1,  302,   -1,   -1,   -1,   -1,   -1,   -1,
  274,  302,  276,  277,  278,  279,  280,  281,  282,  283,
  284,  285,   -1,  302,   -1,   -1,   -1,   -1,  265,  267,
  268,  269,  270,  271,  272,  273,   -1,  274,  302,  276,
  277,  278,  279,  280,  281,  282,  283,  284,  285,   -1,
   -1,   -1,   -1,   -1,   -1,  265,  267,  268,  269,  270,
  271,  272,  273,   -1,  274,  302,  276,  277,  278,  279,
  280,  281,  282,  283,  284,  285,  267,  268,  269,  270,
  271,  272,  273,  287,  288,  289,   -1,  298,   -1,  293,
   -1,  302,  302,   -1,  298,  299,  300,  301,   -1,  303,
  304,  305,  306,  307,  308,  309,  310,  298,   -1,  313,
  314,  315,  316,  287,  288,  289,   -1,   -1,   -1,  293,
   -1,   -1,   -1,   -1,  298,  299,  300,  301,  302,  303,
  304,  305,  306,   -1,  308,  309,  310,   -1,   -1,  313,
  314,  315,  316,  287,  288,  289,   -1,   -1,   -1,  293,
   -1,   -1,   -1,   -1,  298,  299,  300,  301,  302,  303,
  304,  305,  306,   -1,  308,  309,  310,   -1,   -1,  313,
  314,  315,  316,  287,  288,  289,   -1,   -1,   -1,  293,
   -1,   -1,   -1,   -1,  298,  299,  300,  301,   -1,  303,
  304,  305,  306,   -1,  308,  309,  310,   -1,   -1,  313,
  314,  315,  316,  287,  288,  289,   -1,   -1,   -1,  293,
   -1,   -1,   -1,   -1,  298,  299,  300,  301,   -1,  303,
  304,  305,  306,   -1,  308,  309,  310,   -1,   -1,  313,
  314,  315,  316,  287,  288,  289,   -1,   -1,   -1,  293,
   -1,   -1,   -1,   -1,  298,  299,  300,  301,   -1,  303,
  304,  305,  306,   -1,  308,  309,  310,   -1,   -1,  313,
  314,  315,  316,  287,  288,  289,   -1,   -1,   -1,  293,
   -1,   -1,   -1,   -1,  298,  299,  300,  301,   -1,  303,
  304,  305,  306,   -1,  308,  309,  310,   -1,   -1,  313,
  314,  315,  316,  287,  288,  289,   -1,   -1,   -1,  293,
   -1,   -1,   -1,   -1,  298,  299,  300,  301,   -1,  303,
  304,  305,  306,   -1,  308,  309,  310,   -1,   -1,  313,
  314,  315,  316,  274,   -1,  276,  277,  278,  279,  280,
  281,  282,  283,  284,  285,  274,   -1,  276,  277,  278,
  279,  280,  281,  282,  283,  284,  285,   -1,   -1,   -1,
  274,  302,  276,  277,  278,  279,  280,  281,  282,  283,
  284,  285,  274,  302,  276,  277,  278,  279,  280,  281,
  282,  283,  284,  285,   -1,   -1,   -1,  274,  302,  276,
  277,  278,  279,  280,  281,  282,  283,  284,  285,  274,
  302,  276,  277,  278,  279,  280,  281,  282,  283,  284,
  285,  259,  260,   -1,   -1,  302,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,  260,   -1,  274,  302,  276,  277,
  278,  279,  280,  281,  282,  283,  284,  285,  274,  260,
  276,  277,  278,  279,  280,  281,  282,  283,  284,  285,
   -1,   -1,   -1,  274,   -1,  276,  277,  278,  279,  280,
  281,  282,  283,  284,  285,  265,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,  274,   -1,  276,  277,  278,  279,
  280,  281,  282,  283,  284,  285,  265,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,  274,   -1,  276,  277,  278,
  279,  280,  281,  282,  283,  284,  285,  265,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,  274,   -1,  276,  277,
  278,  279,  280,  281,  282,  283,  284,  285,  274,  275,
  276,  277,  278,  279,  280,  281,  282,  283,  284,  285,
  274,   -1,  276,  277,  278,  279,  280,  281,  282,  283,
  284,  285,  277,  278,  279,  280,  281,  282,  283,  284,
  285,
};
#define YYFINAL 25
#ifndef YYDEBUG
#define YYDEBUG 0
#endif
#define YYMAXTOKEN 330
#if YYDEBUG
char *yyname[] = {
"end-of-file",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"UNEXPECTED","BAD_DECIMAL","NL",
"SEMI_COLON","LBRACE","RBRACE","LBOX","RBOX","COMMA","IO_OUT","ASSIGN",
"ADD_ASG","SUB_ASG","MUL_ASG","DIV_ASG","MOD_ASG","POW_ASG","QMARK","COLON",
"OR","AND","IN","MATCH","EQ","NEQ","LT","LTE","GT","GTE","CAT","GETLINE","PLUS",
"MINUS","MUL","DIV","MOD","NOT","UMINUS","IO_IN","PIPE","POW","INC_or_DEC",
"DOLLAR","FIELD","LPAREN","RPAREN","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",
};
char *yyrule[] = {
"$accept : program",
"program : program_block",
"program : program program_block",
"program_block : PA_block",
"program_block : function_def",
"program_block : outside_error block",
"PA_block : block",
"$$1 :",
"PA_block : BEGIN $$1 block",
"$$2 :",
"PA_block : END $$2 block",
"$$3 :",
"PA_block : expr $$3 block_or_separator",
"$$4 :",
"$$5 :",
"PA_block : expr COMMA $$4 expr $$5 block_or_separator",
"block : LBRACE statement_list RBRACE",
"block : LBRACE error RBRACE",
"block_or_separator : block",
"block_or_separator : separator",
"statement_list : statement",
"statement_list : statement_list statement",
"statement : block",
"statement : expr separator",
"statement : separator",
"statement : error separator",
"statement : BREAK separator",
"statement : CONTINUE separator",
"statement : return_statement",
"statement : NEXT separator",
"separator : NL",
"separator : SEMI_COLON",
"expr : cat_expr",
"expr : lvalue ASSIGN expr",
"expr : lvalue ADD_ASG expr",
"expr : lvalue SUB_ASG expr",
"expr : lvalue MUL_ASG expr",
"expr : lvalue DIV_ASG expr",
"expr : lvalue MOD_ASG expr",
"expr : lvalue POW_ASG expr",
"expr : expr EQ expr",
"expr : expr NEQ expr",
"expr : expr LT expr",
"expr : expr LTE expr",
"expr : expr GT expr",
"expr : expr GTE expr",
"expr : expr MATCH expr",
"$$6 :",
"expr : expr OR $$6 expr",
"$$7 :",
"expr : expr AND $$7 expr",
"$$8 :",
"$$9 :",
"expr : expr QMARK $$8 expr COLON $$9 expr",
"cat_expr : p_expr",
"cat_expr : cat_expr p_expr",
"p_expr : DOUBLE",
"p_expr : STRING_",
"p_expr : ID",
"p_expr : LPAREN expr RPAREN",
"p_expr : RE",
"p_expr : p_expr PLUS p_expr",
"p_expr : p_expr MINUS p_expr",
"p_expr : p_expr MUL p_expr",
"p_expr : p_expr DIV p_expr",
"p_expr : p_expr MOD p_expr",
"p_expr : p_expr POW p_expr",
"p_expr : NOT p_expr",
"p_expr : PLUS p_expr",
"p_expr : MINUS p_expr",
"p_expr : builtin",
"p_expr : ID INC_or_DEC",
"p_expr : INC_or_DEC lvalue",
"p_expr : field INC_or_DEC",
"p_expr : INC_or_DEC field",
"lvalue : ID",
"arglist :",
"arglist : args",
"args : expr",
"args : args COMMA expr",
"builtin : BUILTIN mark LPAREN arglist RPAREN",
"builtin : LENGTH",
"mark :",
"statement : print mark pr_args pr_direction separator",
"print : PRINT",
"print : PRINTF",
"pr_args : arglist",
"pr_args : LPAREN arg2 RPAREN",
"pr_args : LPAREN RPAREN",
"arg2 : expr COMMA expr",
"arg2 : arg2 COMMA expr",
"pr_direction :",
"pr_direction : IO_OUT expr",
"if_front : IF LPAREN expr RPAREN",
"statement : if_front statement",
"else : ELSE",
"statement : if_front statement else statement",
"do : DO",
"statement : do statement WHILE LPAREN expr RPAREN separator",
"while_front : WHILE LPAREN expr RPAREN",
"statement : while_front statement",
"statement : for1 for2 for3 statement",
"for1 : FOR LPAREN SEMI_COLON",
"for1 : FOR LPAREN expr SEMI_COLON",
"for2 : SEMI_COLON",
"for2 : expr SEMI_COLON",
"for3 : RPAREN",
"for3 : expr RPAREN",
"expr : expr IN ID",
"expr : LPAREN arg2 RPAREN IN ID",
"lvalue : ID mark LBOX args RBOX",
"p_expr : ID mark LBOX args RBOX",
"p_expr : ID mark LBOX args RBOX INC_or_DEC",
"statement : DELETE ID mark LBOX args RBOX separator",
"statement : DELETE ID separator",
"array_loop_front : FOR LPAREN ID IN ID RPAREN",
"statement : array_loop_front statement",
"field : FIELD",
"field : DOLLAR D_ID",
"field : DOLLAR D_ID mark LBOX args RBOX",
"field : DOLLAR p_expr",
"field : LPAREN field RPAREN",
"p_expr : field",
"expr : field ASSIGN expr",
"expr : field ADD_ASG expr",
"expr : field SUB_ASG expr",
"expr : field MUL_ASG expr",
"expr : field DIV_ASG expr",
"expr : field MOD_ASG expr",
"expr : field POW_ASG expr",
"p_expr : split_front split_back",
"split_front : SPLIT LPAREN expr COMMA ID",
"split_back : RPAREN",
"split_back : COMMA expr RPAREN",
"p_expr : MATCH_FUNC LPAREN expr COMMA re_arg RPAREN",
"re_arg : expr",
"statement : EXIT separator",
"statement : EXIT expr separator",
"return_statement : RETURN separator",
"return_statement : RETURN expr separator",
"p_expr : getline",
"p_expr : getline fvalue",
"p_expr : getline_file p_expr",
"p_expr : p_expr PIPE GETLINE",
"p_expr : p_expr PIPE GETLINE fvalue",
"getline : GETLINE",
"fvalue : lvalue",
"fvalue : field",
"getline_file : getline IO_IN",
"getline_file : getline fvalue IO_IN",
"p_expr : sub_or_gsub LPAREN re_arg COMMA expr sub_back",
"sub_or_gsub : SUB",
"sub_or_gsub : GSUB",
"sub_back : RPAREN",
"sub_back : COMMA fvalue RPAREN",
"function_def : funct_start block",
"funct_start : funct_head LPAREN f_arglist RPAREN",
"funct_head : FUNCTION ID",
"funct_head : FUNCTION FUNCT_ID",
"f_arglist :",
"f_arglist : f_args",
"f_args : ID",
"f_args : f_args COMMA ID",
"outside_error : error",
"p_expr : FUNCT_ID mark call_args",
"call_args : LPAREN RPAREN",
"call_args : ca_front ca_back",
"ca_front : LPAREN",
"ca_front : ca_front expr COMMA",
"ca_front : ca_front ID COMMA",
"ca_back : expr RPAREN",
"ca_back : ID RPAREN",
};
#endif
#ifdef YYPURE
#undef YYGLOBAL
#define YYLEX()   yylex(&yylval)
#else
#define YYLEX()   yylex()
#endif

#ifdef YYSTACKSIZE
#undef YYMAXDEPTH
#define YYMAXDEPTH YYSTACKSIZE
#else
#ifdef YYMAXDEPTH
#define YYSTACKSIZE YYMAXDEPTH
#else
#define YYSTACKSIZE 500
#define YYMAXDEPTH 500
#endif
#endif

#ifdef  YYGLOBAL   /* get the standard byacc */
int yydebug;
int yynerrs;
int yyerrflag;
int yychar;
short *yyssp;
YYSTYPE *yyvsp;
YYSTYPE yyval;
YYSTYPE yylval;
short yyss[YYSTACKSIZE];
YYSTYPE yyvs[YYSTACKSIZE];
#else             
/* move everything but yydebug and yylval local to yyparse().
   YYPURE moves yylval too */
int yydebug ;
#ifndef  YYPURE
YYSTYPE  yylval ;
#endif
#endif
#define yystacksize YYSTACKSIZE
#line 1144 "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) ; }
}

#line 1362 "y.tab.c"
#define YYABORT goto yyabort
#define YYREJECT goto yyabort
#define YYACCEPT goto yyaccept
#define YYERROR goto yyerrlab
int
yyparse()
{
    register int yym, yyn, yystate;
#ifdef  YYPURE
    YYSTYPE yylval ;
#endif

#ifndef   YYGLOBAL   
    int yynerrs;
    int yyerrflag;
    int yychar;
    short *yyssp;
    YYSTYPE *yyvsp;
    YYSTYPE yyval;
    short yyss[YYSTACKSIZE];
    YYSTYPE yyvs[YYSTACKSIZE];
#endif
#if YYDEBUG
    register char *yys;
    extern char *getenv();

    if (yys = getenv("YYDEBUG"))
    {
        yyn = *yys;
        if (yyn >= '0' && yyn <= '9')
            yydebug = yyn - '0';
    }
#endif

    yynerrs = 0;
    yyerrflag = 0;
    yychar = (-1);

    yyssp = yyss;
    yyvsp = yyvs;
    *yyssp = yystate = 0;

yyloop:
    if (yyn = yydefred[yystate]) goto yyreduce;
    if (yychar < 0)
    {
        if ((yychar = YYLEX()) < 0) yychar = 0;
#if YYDEBUG
        if (yydebug)
        {
            yys = 0;
            if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
            if (!yys) yys = "illegal-symbol";
            printf("%sdebug: state %d, reading %d (%s)\n",
                    YYPREFIX, yystate, yychar, yys);
        }
#endif
    }
    if ((yyn = yysindex[yystate]) && (yyn += yychar) >= 0 &&
            yyn <= YYTABLESIZE && yycheck[yyn] == yychar)
    {
#if YYDEBUG
        if (yydebug)
            printf("%sdebug: state %d, shifting to state %d\n",
                    YYPREFIX, yystate, yytable[yyn]);
#endif
        if (yyssp >= yyss + yystacksize - 1)
        {
            goto yyoverflow;
        }
        *++yyssp = yystate = yytable[yyn];
        *++yyvsp = yylval;
        yychar = (-1);
        if (yyerrflag > 0)  --yyerrflag;
        goto yyloop;
    }
    if ((yyn = yyrindex[yystate]) && (yyn += yychar) >= 0 &&
            yyn <= YYTABLESIZE && yycheck[yyn] == yychar)
    {
        yyn = yytable[yyn];
        goto yyreduce;
    }
    if (yyerrflag) goto yyinrecovery;
#ifdef lint
    goto yynewerror;
#endif
yynewerror:
    yyerror("syntax error");
#ifdef lint
    goto yyerrlab;
#endif
yyerrlab:
    ++yynerrs;
yyinrecovery:
    if (yyerrflag < 3)
    {
        yyerrflag = 3;
        for (;;)
        {
            if ((yyn = yysindex[*yyssp]) && (yyn += YYERRCODE) >= 0 &&
                    yyn <= YYTABLESIZE && yycheck[yyn] == YYERRCODE)
            {
#if YYDEBUG
                if (yydebug)
                    printf("%sdebug: state %d, error recovery shifting\
 to state %d\n", YYPREFIX, *yyssp, yytable[yyn]);
#endif
                if (yyssp >= yyss + yystacksize - 1)
                {
                    goto yyoverflow;
                }
                *++yyssp = yystate = yytable[yyn];
                *++yyvsp = yylval;
                goto yyloop;
            }
            else
            {
#if YYDEBUG
                if (yydebug)
                    printf("%sdebug: error recovery discarding state %d\n",
                            YYPREFIX, *yyssp);
#endif
                if (yyssp <= yyss) goto yyabort;
                --yyssp;
                --yyvsp;
            }
        }
    }
    else
    {
        if (yychar == 0) goto yyabort;
#if YYDEBUG
        if (yydebug)
        {
            yys = 0;
            if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
            if (!yys) yys = "illegal-symbol";
            printf("%sdebug: state %d, error recovery discards token %d (%s)\n",
                    YYPREFIX, yystate, yychar, yys);
        }
#endif
        yychar = (-1);
        goto yyloop;
    }
yyreduce:
#if YYDEBUG
    if (yydebug)
        printf("%sdebug: state %d, reducing by rule %d (%s)\n",
                YYPREFIX, yystate, yyn, yyrule[yyn]);
#endif
    yym = yylen[yyn];
    yyval = yyvsp[1-yym];
    switch (yyn)
    {
case 6:
#line 210 "parse.y"
{ /* this do nothing action removes a vacuous warning
                  from Bison */
             }
break;
case 7:
#line 215 "parse.y"
{ be_setup(scope = SCOPE_BEGIN) ; }
break;
case 8:
#line 218 "parse.y"
{ switch_code_to_main() ; }
break;
case 9:
#line 221 "parse.y"
{ be_setup(scope = SCOPE_END) ; }
break;
case 10:
#line 224 "parse.y"
{ switch_code_to_main() ; }
break;
case 11:
#line 227 "parse.y"
{ code_jmp(_JZ, (INST*)0) ; }
break;
case 12:
#line 230 "parse.y"
{ patch_jmp( code_ptr ) ; }
break;
case 13:
#line 234 "parse.y"
{ 
	       INST *p1 = CDP(yyvsp[-1].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].start) ;
               p1[2].op = code_ptr - (p1+1) ;
             }
break;
case 14:
#line 250 "parse.y"
{ code1(_STOP) ; }
break;
case 15:
#line 253 "parse.y"
{ 
	       INST *p1 = CDP(yyvsp[-5].start) ;
	       
	       p1[3].op = CDP(yyvsp[0].start) - (p1+1) ;
               p1[4].op = code_ptr - (p1+1) ;
             }
break;
case 16:
#line 264 "parse.y"
{ yyval.start = yyvsp[-1].start ; }
break;
case 17:
#line 266 "parse.y"
{ yyval.start = code_offset ; /* does nothing won't be executed */
              print_flag = getline_flag = paren_cnt = 0 ;
              yyerrok ; }
break;
case 19:
#line 273 "parse.y"
{ yyval.start = code_offset ;
                       code1(_PUSHINT) ; code1(0) ;
                       code2(_PRINT, bi_print) ;
                     }
break;
case 23:
#line 285 "parse.y"
{ code1(_POP) ; }
break;
case 24:
#line 287 "parse.y"
{ yyval.start = code_offset ; }
break;
case 25:
#line 289 "parse.y"
{ yyval.start = code_offset ;
                print_flag = getline_flag = 0 ;
                paren_cnt = 0 ;
                yyerrok ;
              }
break;
case 26:
#line 295 "parse.y"
{ yyval.start = code_offset ; BC_insert('B', code_ptr+1) ;
               code2(_JMP, 0) /* don't use code_jmp ! */ ; }
break;
case 27:
#line 298 "parse.y"
{ yyval.start = code_offset ; BC_insert('C', code_ptr+1) ;
               code2(_JMP, 0) ; }
break;
case 28:
#line 301 "parse.y"
{ if ( scope != SCOPE_FUNCT )
                     compile_error("return outside function body") ;
             }
break;
case 29:
#line 305 "parse.y"
{ if ( scope != SCOPE_MAIN )
                   compile_error( "improper use of next" ) ;
                yyval.start = code_offset ; 
                code1(_NEXT) ;
              }
break;
case 33:
#line 316 "parse.y"
{ code1(_ASSIGN) ; }
break;
case 34:
#line 317 "parse.y"
{ code1(_ADD_ASG) ; }
break;
case 35:
#line 318 "parse.y"
{ code1(_SUB_ASG) ; }
break;
case 36:
#line 319 "parse.y"
{ code1(_MUL_ASG) ; }
break;
case 37:
#line 320 "parse.y"
{ code1(_DIV_ASG) ; }
break;
case 38:
#line 321 "parse.y"
{ code1(_MOD_ASG) ; }
break;
case 39:
#line 322 "parse.y"
{ code1(_POW_ASG) ; }
break;
case 40:
#line 323 "parse.y"
{ code1(_EQ) ; }
break;
case 41:
#line 324 "parse.y"
{ code1(_NEQ) ; }
break;
case 42:
#line 325 "parse.y"
{ code1(_LT) ; }
break;
case 43:
#line 326 "parse.y"
{ code1(_LTE) ; }
break;
case 44:
#line 327 "parse.y"
{ code1(_GT) ; }
break;
case 45:
#line 328 "parse.y"
{ code1(_GTE) ; }
break;
case 46:
#line 331 "parse.y"
{
	    INST *p3 = CDP(yyvsp[0].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[-1].ival ) code1(_NOT) ;
          }
break;
case 47:
#line 358 "parse.y"
{ code1(_TEST) ;
                code_jmp(_LJNZ, (INST*)0) ;
              }
break;
case 48:
#line 362 "parse.y"
{ code1(_TEST) ; patch_jmp(code_ptr) ; }
break;
case 49:
#line 365 "parse.y"
{ code1(_TEST) ; 
		code_jmp(_LJZ, (INST*)0) ;
	      }
break;
case 50:
#line 369 "parse.y"
{ code1(_TEST) ; patch_jmp(code_ptr) ; }
break;
case 51:
#line 371 "parse.y"
{ code_jmp(_JZ, (INST*)0) ; }
break;
case 52:
#line 372 "parse.y"
{ code_jmp(_JMP, (INST*)0) ; }
break;
case 53:
#line 374 "parse.y"
{ patch_jmp(code_ptr) ; patch_jmp(CDP(yyvsp[0].start)) ; }
break;
case 55:
#line 379 "parse.y"
{ code1(_CAT) ; }
break;
case 56:
#line 383 "parse.y"
{  yyval.start = code_offset ; code2(_PUSHD, yyvsp[0].ptr) ; }
break;
case 57:
#line 385 "parse.y"
{ yyval.start = code_offset ; code2(_PUSHS, yyvsp[0].ptr) ; }
break;
case 58:
#line 387 "parse.y"
{ check_var(yyvsp[0].stp) ;
            yyval.start = code_offset ;
            if ( is_local(yyvsp[0].stp) )
            { code2op(L_PUSHI, yyvsp[0].stp->offset) ; }
            else code2(_PUSHI, yyvsp[0].stp->stval.cp) ;
          }
break;
case 59:
#line 395 "parse.y"
{ yyval.start = yyvsp[-1].start ; }
break;
case 60:
#line 399 "parse.y"
{ yyval.start = code_offset ; code2(_MATCH0, yyvsp[0].ptr) ; }
break;
case 61:
#line 402 "parse.y"
{ code1(_ADD) ; }
break;
case 62:
#line 403 "parse.y"
{ code1(_SUB) ; }
break;
case 63:
#line 404 "parse.y"
{ code1(_MUL) ; }
break;
case 64:
#line 405 "parse.y"
{ code1(_DIV) ; }
break;
case 65:
#line 406 "parse.y"
{ code1(_MOD) ; }
break;
case 66:
#line 407 "parse.y"
{ code1(_POW) ; }
break;
case 67:
#line 409 "parse.y"
{ yyval.start = yyvsp[0].start ; code1(_NOT) ; }
break;
case 68:
#line 411 "parse.y"
{ yyval.start = yyvsp[0].start ; code1(_UPLUS) ; }
break;
case 69:
#line 413 "parse.y"
{ yyval.start = yyvsp[0].start ; code1(_UMINUS) ; }
break;
case 71:
#line 418 "parse.y"
{ check_var(yyvsp[-1].stp) ;
             yyval.start = code_offset ;
             code_address(yyvsp[-1].stp) ;

             if ( yyvsp[0].ival == '+' )  code1(_POST_INC) ;
             else  code1(_POST_DEC) ;
           }
break;
case 72:
#line 426 "parse.y"
{ yyval.start = yyvsp[0].start ; 
              if ( yyvsp[-1].ival == '+' ) code1(_PRE_INC) ;
              else  code1(_PRE_DEC) ;
            }
break;
case 73:
#line 433 "parse.y"
{ if (yyvsp[0].ival == '+' ) code1(F_POST_INC ) ; 
             else  code1(F_POST_DEC) ;
           }
break;
case 74:
#line 437 "parse.y"
{ yyval.start = yyvsp[0].start ; 
             if ( yyvsp[-1].ival == '+' ) code1(F_PRE_INC) ;
             else  code1( F_PRE_DEC) ; 
           }
break;
case 75:
#line 444 "parse.y"
{ yyval.start = code_offset ; 
          check_var(yyvsp[0].stp) ;
          code_address(yyvsp[0].stp) ;
        }
break;
case 76:
#line 452 "parse.y"
{ yyval.ival = 0 ; }
break;
case 78:
#line 457 "parse.y"
{ yyval.ival = 1 ; }
break;
case 79:
#line 459 "parse.y"
{ yyval.ival = yyvsp[-2].ival + 1 ; }
break;
case 80:
#line 464 "parse.y"
{ BI_REC *p = yyvsp[-4].bip ;
          yyval.start = yyvsp[-3].start ;
          if ( (int)p->min_args > yyvsp[-1].ival || (int)p->max_args < yyvsp[-1].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[-1].ival) ; }
          code2(_BUILTIN , p->fp) ;
        }
break;
case 81:
#line 475 "parse.y"
{
	    yyval.start = code_offset ;
	    code1(_PUSHINT) ; code1(0) ;
	    code2(_BUILTIN, yyvsp[0].bip->fp) ;
	  }
break;
case 82:
#line 484 "parse.y"
{ yyval.start = code_offset ; }
break;
case 83:
#line 488 "parse.y"
{ code2(_PRINT, yyvsp[-4].fp) ; 
              if ( yyvsp[-4].fp == bi_printf && yyvsp[-2].ival == 0 )
                    compile_error("no arguments in call to printf") ;
              print_flag = 0 ;
              yyval.start = yyvsp[-3].start ;
            }
break;
case 84:
#line 496 "parse.y"
{ yyval.fp = bi_print ; print_flag = 1 ;}
break;
case 85:
#line 497 "parse.y"
{ yyval.fp = bi_printf ; print_flag = 1 ; }
break;
case 86:
#line 500 "parse.y"
{ code2op(_PUSHINT, yyvsp[0].ival) ; }
break;
case 87:
#line 502 "parse.y"
{ yyval.ival = yyvsp[-1].arg2p->cnt ; zfree(yyvsp[-1].arg2p,sizeof(ARG2_REC)) ; 
             code2op(_PUSHINT, yyval.ival) ; 
           }
break;
case 88:
#line 506 "parse.y"
{ yyval.ival=0 ; code2op(_PUSHINT, 0) ; }
break;
case 89:
#line 510 "parse.y"
{ yyval.arg2p = (ARG2_REC*) zmalloc(sizeof(ARG2_REC)) ;
             yyval.arg2p->start = yyvsp[-2].start ;
             yyval.arg2p->cnt = 2 ;
           }
break;
case 90:
#line 515 "parse.y"
{ yyval.arg2p = yyvsp[-2].arg2p ; yyval.arg2p->cnt++ ; }
break;
case 92:
#line 520 "parse.y"
{ code2op(_PUSHINT, yyvsp[-1].ival) ; }
break;
case 93:
#line 527 "parse.y"
{  yyval.start = yyvsp[-1].start ; eat_nl() ; code_jmp(_JZ, (INST*)0) ; }
break;
case 94:
#line 532 "parse.y"
{ patch_jmp( code_ptr ) ;  }
break;
case 95:
#line 535 "parse.y"
{ eat_nl() ; code_jmp(_JMP, (INST*)0) ; }
break;
case 96:
#line 540 "parse.y"
{ patch_jmp(code_ptr) ; 
		  patch_jmp(CDP(yyvsp[0].start)) ; 
		}
break;
case 97:
#line 548 "parse.y"
{ eat_nl() ; BC_new() ; }
break;
case 98:
#line 553 "parse.y"
{ yyval.start = yyvsp[-5].start ;
          code_jmp(_JNZ, CDP(yyvsp[-5].start)) ; 
          BC_clear(code_ptr, CDP(yyvsp[-2].start)) ; }
break;
case 99:
#line 559 "parse.y"
{ eat_nl() ; BC_new() ;
                  yyval.start = yyvsp[-1].start ;

                  /* check if const expression */
                  if ( code_ptr - 2 == CDP(yyvsp[-1].start) &&
                       code_ptr[-2].op == _PUSHD &&
                       *(double*)code_ptr[-1].ptr != 0.0 
                     )
                     code_ptr -= 2 ;
                  else
		  { INST *p3 = CDP(yyvsp[-1].start) ;
		    code_push(p3, code_ptr-p3, scope, active_funct) ;
		    code_ptr = p3 ;
                    code2(_JMP, (INST*)0) ; /* code2() not code_jmp() */
		  }
                }
break;
case 100:
#line 579 "parse.y"
{ 
		  int  saved_offset ;
		  int len ;
		  INST *p1 = CDP(yyvsp[-1].start) ;
		  INST *p2 = CDP(yyvsp[0].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[0].start)) ;
		    BC_clear(code_ptr, CDP(saved_offset)) ;
		  }
		  else /* while(1) */
		  {
		    code_jmp(_JMP, p1) ;
		    BC_clear(code_ptr, CDP(yyvsp[0].start)) ;
		  }
                }
break;
case 101:
#line 605 "parse.y"
{ 
		  int cont_offset = code_offset ;
                  unsigned len = code_pop(code_ptr) ;
		  INST *p2 = CDP(yyvsp[-2].start) ;
		  INST *p4 = CDP(yyvsp[0].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[0].start)) ;
		  }
		  else /*  for(;;) */
		  code_jmp(_JMP, p4) ;

		  BC_clear(code_ptr, CDP(cont_offset)) ;

                }
break;
case 102:
#line 628 "parse.y"
{ yyval.start = code_offset ; }
break;
case 103:
#line 630 "parse.y"
{ yyval.start = yyvsp[-1].start ; code1(_POP) ; }
break;
case 104:
#line 633 "parse.y"
{ yyval.start = code_offset ; }
break;
case 105:
#line 635 "parse.y"
{ 
             if ( code_ptr - 2 == CDP(yyvsp[-1].start) &&
                  code_ptr[-2].op == _PUSHD &&
                  * (double*) code_ptr[-1].ptr != 0.0
                )
                    code_ptr -= 2 ;
             else   
	     {
	       INST *p1 = CDP(yyvsp[-1].start) ;
	       code_push(p1, code_ptr-p1, scope, active_funct) ;
	       code_ptr = p1 ;
	       code2(_JMP, (INST*)0) ;
	     }
           }
break;
case 106:
#line 652 "parse.y"
{ eat_nl() ; BC_new() ;
	     code_push((INST*)0,0, scope, active_funct) ;
	   }
break;
case 107:
#line 656 "parse.y"
{ INST *p1 = CDP(yyvsp[-1].start) ;
	   
	     eat_nl() ; BC_new() ; 
             code1(_POP) ;
             code_push(p1, code_ptr - p1, scope, active_funct) ;
             code_ptr -= code_ptr - p1 ;
           }
break;
case 108:
#line 669 "parse.y"
{ check_array(yyvsp[0].stp) ;
             code_array(yyvsp[0].stp) ; 
             code1(A_TEST) ; 
            }
break;
case 109:
#line 674 "parse.y"
{ yyval.start = yyvsp[-3].arg2p->start ;
             code2op(A_CAT, yyvsp[-3].arg2p->cnt) ;
             zfree(yyvsp[-3].arg2p, sizeof(ARG2_REC)) ;

             check_array(yyvsp[0].stp) ;
             code_array(yyvsp[0].stp) ;
             code1(A_TEST) ;
           }
break;
case 110:
#line 685 "parse.y"
{ 
             if ( yyvsp[-1].ival > 1 )
             { code2op(A_CAT, yyvsp[-1].ival) ; }

             check_array(yyvsp[-4].stp) ;
             if( is_local(yyvsp[-4].stp) )
             { code2op(LAE_PUSHA, yyvsp[-4].stp->offset) ; }
             else code2(AE_PUSHA, yyvsp[-4].stp->stval.array) ;
             yyval.start = yyvsp[-3].start ;
           }
break;
case 111:
#line 698 "parse.y"
{ 
             if ( yyvsp[-1].ival > 1 )
             { code2op(A_CAT, yyvsp[-1].ival) ; }

             check_array(yyvsp[-4].stp) ;
             if( is_local(yyvsp[-4].stp) )
             { code2op(LAE_PUSHI, yyvsp[-4].stp->offset) ; }
             else code2(AE_PUSHI, yyvsp[-4].stp->stval.array) ;
             yyval.start = yyvsp[-3].start ;
           }
break;
case 112:
#line 710 "parse.y"
{ 
             if ( yyvsp[-2].ival > 1 )
             { code2op(A_CAT,yyvsp[-2].ival) ; }

             check_array(yyvsp[-5].stp) ;
             if( is_local(yyvsp[-5].stp) )
             { code2op(LAE_PUSHA, yyvsp[-5].stp->offset) ; }
             else code2(AE_PUSHA, yyvsp[-5].stp->stval.array) ;
             if ( yyvsp[0].ival == '+' )  code1(_POST_INC) ;
             else  code1(_POST_DEC) ;

             yyval.start = yyvsp[-4].start ;
           }
break;
case 113:
#line 727 "parse.y"
{ 
               yyval.start = yyvsp[-4].start ;
               if ( yyvsp[-2].ival > 1 ) { code2op(A_CAT, yyvsp[-2].ival) ; }
               check_array(yyvsp[-5].stp) ;
               code_array(yyvsp[-5].stp) ;
               code1(A_DEL) ;
             }
break;
case 114:
#line 735 "parse.y"
{
		yyval.start = code_offset ;
		check_array(yyvsp[-1].stp) ;
		code_array(yyvsp[-1].stp) ;
		code1(DEL_A) ;
	     }
break;
case 115:
#line 746 "parse.y"
{ eat_nl() ; BC_new() ;
                      yyval.start = code_offset ;

                      check_var(yyvsp[-3].stp) ;
                      code_address(yyvsp[-3].stp) ;
                      check_array(yyvsp[-1].stp) ;
                      code_array(yyvsp[-1].stp) ;

                      code2(SET_ALOOP, (INST*)0) ;
                    }
break;
case 116:
#line 760 "parse.y"
{ 
		INST *p2 = CDP(yyvsp[0].start) ;

	        p2[-1].op = code_ptr - p2 + 1 ;
                BC_clear( code_ptr+2 , code_ptr) ;
		code_jmp(ALOOP, p2) ;
		code1(POP_AL) ;
              }
break;
case 117:
#line 777 "parse.y"
{ yyval.start = code_offset ; code2(F_PUSHA, yyvsp[0].cp) ; }
break;
case 118:
#line 779 "parse.y"
{ check_var(yyvsp[0].stp) ;
             yyval.start = code_offset ;
             if ( is_local(yyvsp[0].stp) )
             { code2op(L_PUSHI, yyvsp[0].stp->offset) ; }
             else code2(_PUSHI, yyvsp[0].stp->stval.cp) ;

	     CODE_FE_PUSHA() ;
           }
break;
case 119:
#line 788 "parse.y"
{ 
             if ( yyvsp[-1].ival > 1 )
             { code2op(A_CAT, yyvsp[-1].ival) ; }

             check_array(yyvsp[-4].stp) ;
             if( is_local(yyvsp[-4].stp) )
             { code2op(LAE_PUSHI, yyvsp[-4].stp->offset) ; }
             else code2(AE_PUSHI, yyvsp[-4].stp->stval.array) ;

	     CODE_FE_PUSHA()  ;

             yyval.start = yyvsp[-3].start ;
           }
break;
case 120:
#line 802 "parse.y"
{ yyval.start = yyvsp[0].start ;  CODE_FE_PUSHA() ; }
break;
case 121:
#line 804 "parse.y"
{ yyval.start = yyvsp[-1].start ; }
break;
case 122:
#line 808 "parse.y"
{ field_A2I() ; }
break;
case 123:
#line 811 "parse.y"
{ code1(F_ASSIGN) ; }
break;
case 124:
#line 812 "parse.y"
{ code1(F_ADD_ASG) ; }
break;
case 125:
#line 813 "parse.y"
{ code1(F_SUB_ASG) ; }
break;
case 126:
#line 814 "parse.y"
{ code1(F_MUL_ASG) ; }
break;
case 127:
#line 815 "parse.y"
{ code1(F_DIV_ASG) ; }
break;
case 128:
#line 816 "parse.y"
{ code1(F_MOD_ASG) ; }
break;
case 129:
#line 817 "parse.y"
{ code1(F_POW_ASG) ; }
break;
case 130:
#line 824 "parse.y"
{ code2(_BUILTIN, bi_split) ; }
break;
case 131:
#line 828 "parse.y"
{ yyval.start = yyvsp[-2].start ;
              check_array(yyvsp[0].stp) ;
              code_array(yyvsp[0].stp)  ;
            }
break;
case 132:
#line 835 "parse.y"
{ code2(_PUSHI, &fs_shadow) ; }
break;
case 133:
#line 837 "parse.y"
{ 
                  if ( CDP(yyvsp[-1].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 134:
#line 861 "parse.y"
{ yyval.start = yyvsp[-3].start ; 
          code2(_BUILTIN, bi_match) ;
        }
break;
case 135:
#line 868 "parse.y"
{
	       INST *p1 = CDP(yyvsp[0].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 136:
#line 891 "parse.y"
{ yyval.start = code_offset ;
                      code1(_EXIT0) ; }
break;
case 137:
#line 894 "parse.y"
{ yyval.start = yyvsp[-1].start ; code1(_EXIT) ; }
break;
case 138:
#line 897 "parse.y"
{ yyval.start = code_offset ;
                      code1(_RET0) ; }
break;
case 139:
#line 900 "parse.y"
{ yyval.start = yyvsp[-1].start ; code1(_RET) ; }
break;
case 140:
#line 905 "parse.y"
{ yyval.start = code_offset ;
            code2(F_PUSHA, &field[0]) ;
            code1(_PUSHINT) ; code1(0) ; 
            code2(_BUILTIN, bi_getline) ;
            getline_flag = 0 ;
          }
break;
case 141:
#line 912 "parse.y"
{ yyval.start = yyvsp[0].start ;
            code1(_PUSHINT) ; code1(0) ;
            code2(_BUILTIN, bi_getline) ;
            getline_flag = 0 ;
          }
break;
case 142:
#line 918 "parse.y"
{ code1(_PUSHINT) ; code1(F_IN) ;
            code2(_BUILTIN, bi_getline) ;
            /* getline_flag already off in yylex() */
          }
break;
case 143:
#line 923 "parse.y"
{ code2(F_PUSHA, &field[0]) ;
            code1(_PUSHINT) ; code1(PIPE_IN) ;
            code2(_BUILTIN, bi_getline) ;
          }
break;
case 144:
#line 928 "parse.y"
{ 
            code1(_PUSHINT) ; code1(PIPE_IN) ;
            code2(_BUILTIN, bi_getline) ;
          }
break;
case 145:
#line 934 "parse.y"
{ getline_flag = 1 ; }
break;
case 148:
#line 939 "parse.y"
{ yyval.start = code_offset ;
                   code2(F_PUSHA, field+0) ;
                 }
break;
case 149:
#line 943 "parse.y"
{ yyval.start = yyvsp[-1].start ; }
break;
case 150:
#line 951 "parse.y"
{
	     INST *p5 = CDP(yyvsp[-1].start) ;
	     INST *p6 = CDP(yyvsp[0].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[-5].fp) ;
             yyval.start = yyvsp[-3].start ;
           }
break;
case 151:
#line 969 "parse.y"
{ yyval.fp = bi_sub ; }
break;
case 152:
#line 970 "parse.y"
{ yyval.fp = bi_gsub ; }
break;
case 153:
#line 975 "parse.y"
{ yyval.start = code_offset ;
                  code2(F_PUSHA, &field[0]) ; 
                }
break;
case 154:
#line 980 "parse.y"
{ yyval.start = yyvsp[-1].start ; }
break;
case 155:
#line 988 "parse.y"
{ 
		   resize_fblock(yyvsp[-1].fbp) ;
                   restore_ids() ;
		   switch_code_to_main() ;
                 }
break;
case 156:
#line 997 "parse.y"
{ eat_nl() ;
                   scope = SCOPE_FUNCT ;
                   active_funct = yyvsp[-3].fbp ;
                   *main_code_p = active_code ;

		   yyvsp[-3].fbp->nargs = yyvsp[-1].ival ;
                   if ( yyvsp[-1].ival )
                        yyvsp[-3].fbp->typev = (char *)
			memset( zmalloc(yyvsp[-1].ival), ST_LOCAL_NONE, yyvsp[-1].ival) ;
                   else yyvsp[-3].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 157:
#line 1016 "parse.y"
{ FBLOCK  *fbp ;

                   if ( yyvsp[0].stp->type == ST_NONE )
                   {
                         yyvsp[0].stp->type = ST_FUNCT ;
                         fbp = yyvsp[0].stp->stval.fbp = 
                             (FBLOCK *) zmalloc(sizeof(FBLOCK)) ;
                         fbp->name = yyvsp[0].stp->name ;
			 fbp->code = (INST*) 0 ;
                   }
                   else
                   {
                         type_error( yyvsp[0].stp ) ;

                         /* this FBLOCK will not be put in
                            the symbol table */
                         fbp = (FBLOCK*) zmalloc(sizeof(FBLOCK)) ;
                         fbp->name = "" ;
                   }
                   yyval.fbp = fbp ;
                 }
break;
case 158:
#line 1039 "parse.y"
{ yyval.fbp = yyvsp[0].fbp ; 
                   if ( yyvsp[0].fbp->code ) 
                       compile_error("redefinition of %s" , yyvsp[0].fbp->name) ;
                 }
break;
case 159:
#line 1045 "parse.y"
{ yyval.ival = 0 ; }
break;
case 161:
#line 1050 "parse.y"
{ yyvsp[0].stp = save_id(yyvsp[0].stp->name) ;
                yyvsp[0].stp->type = ST_LOCAL_NONE ;
                yyvsp[0].stp->offset = 0 ;
                yyval.ival = 1 ;
              }
break;
case 162:
#line 1056 "parse.y"
{ if ( is_local(yyvsp[0].stp) ) 
                  compile_error("%s is duplicated in argument list",
                    yyvsp[0].stp->name) ;
                else
                { yyvsp[0].stp = save_id(yyvsp[0].stp->name) ;
                  yyvsp[0].stp->type = ST_LOCAL_NONE ;
                  yyvsp[0].stp->offset = yyvsp[-2].ival ;
                  yyval.ival = yyvsp[-2].ival + 1 ;
                }
              }
break;
case 163:
#line 1069 "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 164:
#line 1082 "parse.y"
{ yyval.start = yyvsp[-1].start ;
             code2(_CALL, yyvsp[-2].fbp) ;

             if ( yyvsp[0].ca_p )  code1(yyvsp[0].ca_p->arg_num+1) ;
             else  code1(0) ;
               
	     check_fcall(yyvsp[-2].fbp, scope, code_move_level, active_funct, 
			 yyvsp[0].ca_p, token_lineno) ;
           }
break;
case 165:
#line 1094 "parse.y"
{ yyval.ca_p = (CA_REC *) 0 ; }
break;
case 166:
#line 1096 "parse.y"
{ yyval.ca_p = yyvsp[0].ca_p ;
                 yyval.ca_p->link = yyvsp[-1].ca_p ;
                 yyval.ca_p->arg_num = yyvsp[-1].ca_p ? yyvsp[-1].ca_p->arg_num+1 : 0 ;
               }
break;
case 167:
#line 1111 "parse.y"
{ yyval.ca_p = (CA_REC *) 0 ; }
break;
case 168:
#line 1113 "parse.y"
{ yyval.ca_p = ZMALLOC(CA_REC) ;
                yyval.ca_p->link = yyvsp[-2].ca_p ;
                yyval.ca_p->type = CA_EXPR  ;
                yyval.ca_p->arg_num = yyvsp[-2].ca_p ? yyvsp[-2].ca_p->arg_num+1 : 0 ;
		yyval.ca_p->call_offset = code_offset ;
              }
break;
case 169:
#line 1120 "parse.y"
{ yyval.ca_p = ZMALLOC(CA_REC) ;
                yyval.ca_p->link = yyvsp[-2].ca_p ;
                yyval.ca_p->arg_num = yyvsp[-2].ca_p ? yyvsp[-2].ca_p->arg_num+1 : 0 ;

                code_call_id(yyval.ca_p, yyvsp[-1].stp) ;
              }
break;
case 170:
#line 1129 "parse.y"
{ yyval.ca_p = ZMALLOC(CA_REC) ;
                yyval.ca_p->type = CA_EXPR ;
		yyval.ca_p->call_offset = code_offset ;
              }
break;
case 171:
#line 1135 "parse.y"
{ yyval.ca_p = ZMALLOC(CA_REC) ;
                code_call_id(yyval.ca_p, yyvsp[-1].stp) ;
              }
break;
#line 2566 "y.tab.c"
    }
    yyssp -= yym;
    yystate = *yyssp;
    yyvsp -= yym;
    yym = yylhs[yyn];
    if (yystate == 0 && yym == 0)
    {
#if YYDEBUG
        if (yydebug)
            printf("%sdebug: after reduction, shifting from state 0 to\
 state %d\n", YYPREFIX, YYFINAL);
#endif
        yystate = YYFINAL;
        *++yyssp = YYFINAL;
        *++yyvsp = yyval;
        if (yychar < 0)
        {
            if ((yychar = YYLEX()) < 0) yychar = 0;
#if YYDEBUG
            if (yydebug)
            {
                yys = 0;
                if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                if (!yys) yys = "illegal-symbol";
                printf("%sdebug: state %d, reading %d (%s)\n",
                        YYPREFIX, YYFINAL, yychar, yys);
            }
#endif
        }
        if (yychar == 0) goto yyaccept;
        goto yyloop;
    }
    if ((yyn = yygindex[yym]) && (yyn += yystate) >= 0 &&
            yyn <= YYTABLESIZE && yycheck[yyn] == yystate)
        yystate = yytable[yyn];
    else
        yystate = yydgoto[yym];
#if YYDEBUG
    if (yydebug)
        printf("%sdebug: after reduction, shifting from state %d \
to state %d\n", YYPREFIX, *yyssp, yystate);
#endif
    if (yyssp >= yyss + yystacksize - 1)
    {
        goto yyoverflow;
    }
    *++yyssp = yystate;
    *++yyvsp = yyval;
    goto yyloop;
yyoverflow:
    yyerror("yacc stack overflow");
yyabort:
    return (1);
yyaccept:
    return (0);
}