/* A Bison parser, made by GNU Bison 3.8.2. */
/* Bison implementation for Yacc-like parsers in C
Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2021 Free Software Foundation,
Inc.
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see . */
/* As a special exception, you may create a larger work that contains
part or all of the Bison parser skeleton and distribute that work
under terms of your choice, so long as that work isn't itself a
parser generator using the skeleton or a modified version thereof
as a parser skeleton. Alternatively, if you modify or redistribute
the parser skeleton itself, you may (at your option) remove this
special exception, which will cause the skeleton and the resulting
Bison output files to be licensed under the GNU General Public
License without this special exception.
This special exception was added by the Free Software Foundation in
version 2.2 of Bison. */
/* C LALR(1) parser skeleton written by Richard Stallman, by
simplifying the original so-called "semantic" parser. */
/* DO NOT RELY ON FEATURES THAT ARE NOT DOCUMENTED in the manual,
especially those whose name start with YY_ or yy_. They are
private implementation details that can be changed or removed. */
/* All symbols defined below should begin with yy or YY, to avoid
infringing on user name space. This should be done even for local
variables, as they might otherwise be expanded by user macros.
There are some unavoidable exceptions within include files to
define necessary library symbols; they are noted "INFRINGES ON
USER NAME SPACE" below. */
/* Identify Bison output, and Bison version. */
#define YYBISON 30802
/* Bison version string. */
#define YYBISON_VERSION "3.8.2"
/* Skeleton name. */
#define YYSKELETON_NAME "yacc.c"
/* Pure parsers. */
#define YYPURE 0
/* Push parsers. */
#define YYPUSH 0
/* Pull parsers. */
#define YYPULL 1
/* First part of user prologue. */
#line 27 "htcobol.y"
//#define YYDEBUG 1
#define YYMAXDEPTH 1000
#include
#include
#include
#include
#if defined(SunOS)
va_list __builtin_va_alist;
#endif
#include
#include "htcoboly.h"
#include "htcoblib.h"
#include "htglobals.h"
/* #if 1 */
#if USE_PARSER_TEST_MODE
#define UNIMPLEMENTED(xyz)
#else
#define UNIMPLEMENTED(xyz) yyerror("`%s' is not currently implemented", xyz);
#endif
// walter
int fg=0, bg=0, co=0;
//struct lit *init_alphab=NULL, *init_alpha=NULL, *init_num=NULL, *init_numedt=NULL, *init_alphaedt=NULL;
// fim walter
extern int screen_io_enable,scr_line,scr_column;
extern int decimal_comma;
extern char currency_symbol;
extern int has_linkage;
extern int module_flag;
extern int nested_flag;
extern FILE *lexin;
extern FILE *o_src;
extern struct sym *screen_status_field; /* pointer to the screen status */
extern struct sym *cursor_field; /* pointer to the cursor field */
extern struct sym *curr_paragr,*curr_section;
extern struct sym *curr_field;
extern short curr_call_mode;
extern short curr_call_convention;
extern struct sym *pgm_id;
extern unsigned stack_offset; /* offset das variaveis na pilha */
extern unsigned global_offset; /* offset das variaveis globais (DATA) */
extern int paragr_num;
extern int loc_label;
extern char picture[];
extern int picix,piccnt,decimals,sign,v_flag,n_flag,pscale;
extern int at_linkage,stack_plus;
extern char *toktext;
extern int yylex(void);
extern struct index_to_table_list *index2table;
extern int pgm_segment;
extern int initial_flag;
extern struct lit *spe_lit_ZE;
extern struct lit *spe_lit_SP;
extern struct lit *spe_lit_LV;
extern struct lit *spe_lit_HV;
extern struct lit *spe_lit_QU;
struct sym *curr_file;
struct sym *alloc_filler( void );
int curr_division=0;
int need_subscripts=0;
static int is_var=0;
extern char *yytext;
extern int envdiv_bypass_save_sw;
extern int stabs_on_sw;
extern int HTG_prg_uses_fileio;
extern int HTG_prg_uses_term;
/* extern int HTG_prg_uses_dcall; */
unsigned long lbend, lbstart;
unsigned int perform_after_sw;
int write_advancing_sw;
int decl_lbl;
/* struct math_var *vl1, *vl2; */
struct math_ose *tmose=NULL;
struct ginfo *gic=NULL;
static void assert_numeric_sy (struct sym *sy);
static void assert_numeric_dest_sy (struct sym *sy);
static char err_msg_bad_form[] = "ill-formed %s statement";
#line 163 "htcobol.tab.c"
# ifndef YY_CAST
# ifdef __cplusplus
# define YY_CAST(Type, Val) static_cast (Val)
# define YY_REINTERPRET_CAST(Type, Val) reinterpret_cast (Val)
# else
# define YY_CAST(Type, Val) ((Type) (Val))
# define YY_REINTERPRET_CAST(Type, Val) ((Type) (Val))
# endif
# endif
# ifndef YY_NULLPTR
# if defined __cplusplus
# if 201103L <= __cplusplus
# define YY_NULLPTR nullptr
# else
# define YY_NULLPTR 0
# endif
# else
# define YY_NULLPTR ((void*)0)
# endif
# endif
#include "htcobol.tab.h"
/* Symbol kind. */
enum yysymbol_kind_t
{
YYSYMBOL_YYEMPTY = -2,
YYSYMBOL_YYEOF = 0, /* "end of file" */
YYSYMBOL_YYerror = 1, /* error */
YYSYMBOL_YYUNDEF = 2, /* "invalid token" */
YYSYMBOL_LOW_PREC = 3, /* LOW_PREC */
YYSYMBOL_IDSTRING = 4, /* IDSTRING */
YYSYMBOL_STRING = 5, /* STRING */
YYSYMBOL_VARIABLE = 6, /* VARIABLE */
YYSYMBOL_VARCOND = 7, /* VARCOND */
YYSYMBOL_SUBSCVAR = 8, /* SUBSCVAR */
YYSYMBOL_LABELSTR = 9, /* LABELSTR */
YYSYMBOL_CMD_LINE = 10, /* CMD_LINE */
YYSYMBOL_ENVIRONMENT_VARIABLE = 11, /* ENVIRONMENT_VARIABLE */
YYSYMBOL_INKEY = 12, /* INKEY */
YYSYMBOL_ESCKEY = 13, /* ESCKEY */
YYSYMBOL_CHAR = 14, /* CHAR */
YYSYMBOL_MULTIPLIER = 15, /* MULTIPLIER */
YYSYMBOL_USAGENUM = 16, /* USAGENUM */
YYSYMBOL_ZERONUM = 17, /* ZERONUM */
YYSYMBOL_CONDITIONAL = 18, /* CONDITIONAL */
YYSYMBOL_TO = 19, /* TO */
YYSYMBOL_IS = 20, /* IS */
YYSYMBOL_ARE = 21, /* ARE */
YYSYMBOL_THRU = 22, /* THRU */
YYSYMBOL_THAN = 23, /* THAN */
YYSYMBOL_NO = 24, /* NO */
YYSYMBOL_COMMENTING = 25, /* COMMENTING */
YYSYMBOL_DIRECTION = 26, /* DIRECTION */
YYSYMBOL_READ = 27, /* READ */
YYSYMBOL_WRITE = 28, /* WRITE */
YYSYMBOL_INPUT_OUTPUT = 29, /* INPUT_OUTPUT */
YYSYMBOL_RELEASE = 30, /* RELEASE */
YYSYMBOL_NLITERAL = 31, /* NLITERAL */
YYSYMBOL_CLITERAL = 32, /* CLITERAL */
YYSYMBOL_PORTNUM = 33, /* PORTNUM */
YYSYMBOL_DATE_TIME = 34, /* DATE_TIME */
YYSYMBOL_35_ = 35, /* '+' */
YYSYMBOL_36_ = 36, /* '-' */
YYSYMBOL_37_ = 37, /* '*' */
YYSYMBOL_38_ = 38, /* '/' */
YYSYMBOL_POW_OP = 39, /* POW_OP */
YYSYMBOL_OR = 40, /* OR */
YYSYMBOL_AND = 41, /* AND */
YYSYMBOL_ACCEPT = 42, /* ACCEPT */
YYSYMBOL_ACCESS = 43, /* ACCESS */
YYSYMBOL_ADD = 44, /* ADD */
YYSYMBOL_ADDRESS = 45, /* ADDRESS */
YYSYMBOL_ADVANCING = 46, /* ADVANCING */
YYSYMBOL_AFTER = 47, /* AFTER */
YYSYMBOL_ALL = 48, /* ALL */
YYSYMBOL_ALPHABET = 49, /* ALPHABET */
YYSYMBOL_ALPHABETIC = 50, /* ALPHABETIC */
YYSYMBOL_ALPHABETIC_LOWER = 51, /* ALPHABETIC_LOWER */
YYSYMBOL_ALPHABETIC_UPPER = 52, /* ALPHABETIC_UPPER */
YYSYMBOL_ALPHANUMERIC = 53, /* ALPHANUMERIC */
YYSYMBOL_ALPHANUMERIC_EDITED = 54, /* ALPHANUMERIC_EDITED */
YYSYMBOL_ALSO = 55, /* ALSO */
YYSYMBOL_ALTERNATE = 56, /* ALTERNATE */
YYSYMBOL_ANY = 57, /* ANY */
YYSYMBOL_AREA = 58, /* AREA */
YYSYMBOL_AREAS = 59, /* AREAS */
YYSYMBOL_ASSIGN = 60, /* ASSIGN */
YYSYMBOL_AT = 61, /* AT */
YYSYMBOL_AUTHOR = 62, /* AUTHOR */
YYSYMBOL_AUTO = 63, /* AUTO */
YYSYMBOL_BACKGROUNDCOLOR = 64, /* BACKGROUNDCOLOR */
YYSYMBOL_BEFORE = 65, /* BEFORE */
YYSYMBOL_BELL = 66, /* BELL */
YYSYMBOL_BLANK = 67, /* BLANK */
YYSYMBOL_BLINK = 68, /* BLINK */
YYSYMBOL_BLOCK = 69, /* BLOCK */
YYSYMBOL_BOTTOM = 70, /* BOTTOM */
YYSYMBOL_BY = 71, /* BY */
YYSYMBOL_CALL = 72, /* CALL */
YYSYMBOL_CALL_CONV_C = 73, /* CALL_CONV_C */
YYSYMBOL_CALL_CONV_STDCALL = 74, /* CALL_CONV_STDCALL */
YYSYMBOL_CALL_LOADLIB = 75, /* CALL_LOADLIB */
YYSYMBOL_CANCEL = 76, /* CANCEL */
YYSYMBOL_CENTER = 77, /* CENTER */
YYSYMBOL_CF = 78, /* CF */
YYSYMBOL_CH = 79, /* CH */
YYSYMBOL_CHAIN = 80, /* CHAIN */
YYSYMBOL_CHAINING = 81, /* CHAINING */
YYSYMBOL_CHARACTER = 82, /* CHARACTER */
YYSYMBOL_CHARACTERS = 83, /* CHARACTERS */
YYSYMBOL_CLASS = 84, /* CLASS */
YYSYMBOL_CLOSE = 85, /* CLOSE */
YYSYMBOL_CODE = 86, /* CODE */
YYSYMBOL_CODE_SET = 87, /* CODE_SET */
YYSYMBOL_COLLATING = 88, /* COLLATING */
YYSYMBOL_COLOR = 89, /* COLOR */
YYSYMBOL_COLUMN = 90, /* COLUMN */
YYSYMBOL_COLUMNS = 91, /* COLUMNS */
YYSYMBOL_COMMA = 92, /* COMMA */
YYSYMBOL_COMMON = 93, /* COMMON */
YYSYMBOL_COMPUTE = 94, /* COMPUTE */
YYSYMBOL_CONFIGURATION = 95, /* CONFIGURATION */
YYSYMBOL_CONSOLE = 96, /* CONSOLE */
YYSYMBOL_CONTAINS = 97, /* CONTAINS */
YYSYMBOL_CONTENT = 98, /* CONTENT */
YYSYMBOL_CONTINUE = 99, /* CONTINUE */
YYSYMBOL_CONTROL = 100, /* CONTROL */
YYSYMBOL_CONTROLS = 101, /* CONTROLS */
YYSYMBOL_CONVERTING = 102, /* CONVERTING */
YYSYMBOL_CORRESPONDING = 103, /* CORRESPONDING */
YYSYMBOL_COUNT = 104, /* COUNT */
YYSYMBOL_CURRENCY = 105, /* CURRENCY */
YYSYMBOL_CURSOR = 106, /* CURSOR */
YYSYMBOL_DATA = 107, /* DATA */
YYSYMBOL_DATE_COMPILED = 108, /* DATE_COMPILED */
YYSYMBOL_DATE_WRITTEN = 109, /* DATE_WRITTEN */
YYSYMBOL_DE = 110, /* DE */
YYSYMBOL_DEBUGGING = 111, /* DEBUGGING */
YYSYMBOL_DECIMAL_POINT = 112, /* DECIMAL_POINT */
YYSYMBOL_DECLARATIVES = 113, /* DECLARATIVES */
YYSYMBOL_DELETE = 114, /* DELETE */
YYSYMBOL_DELIMITED = 115, /* DELIMITED */
YYSYMBOL_DELIMITER = 116, /* DELIMITER */
YYSYMBOL_DEPENDING = 117, /* DEPENDING */
YYSYMBOL_DETAIL = 118, /* DETAIL */
YYSYMBOL_DISPLAY = 119, /* DISPLAY */
YYSYMBOL_DISPLAY_SCREEN = 120, /* DISPLAY_SCREEN */
YYSYMBOL_DIVIDE = 121, /* DIVIDE */
YYSYMBOL_DIVISION = 122, /* DIVISION */
YYSYMBOL_DOWN = 123, /* DOWN */
YYSYMBOL_DUPLICATES = 124, /* DUPLICATES */
YYSYMBOL_DYNAMIC = 125, /* DYNAMIC */
YYSYMBOL_ELSE = 126, /* ELSE */
YYSYMBOL_END = 127, /* END */
YYSYMBOL_END_ACCEPT = 128, /* END_ACCEPT */
YYSYMBOL_END_ADD = 129, /* END_ADD */
YYSYMBOL_END_CALL = 130, /* END_CALL */
YYSYMBOL_END_CALL_LOADLIB = 131, /* END_CALL_LOADLIB */
YYSYMBOL_END_CHAIN = 132, /* END_CHAIN */
YYSYMBOL_END_COMPUTE = 133, /* END_COMPUTE */
YYSYMBOL_END_DELETE = 134, /* END_DELETE */
YYSYMBOL_END_DISPLAY = 135, /* END_DISPLAY */
YYSYMBOL_END_DIVIDE = 136, /* END_DIVIDE */
YYSYMBOL_END_EVALUATE = 137, /* END_EVALUATE */
YYSYMBOL_END_IF = 138, /* END_IF */
YYSYMBOL_END_MULTIPLY = 139, /* END_MULTIPLY */
YYSYMBOL_END_OF_PAGE = 140, /* END_OF_PAGE */
YYSYMBOL_END_PERFORM = 141, /* END_PERFORM */
YYSYMBOL_END_READ = 142, /* END_READ */
YYSYMBOL_END_RETURN = 143, /* END_RETURN */
YYSYMBOL_END_REWRITE = 144, /* END_REWRITE */
YYSYMBOL_END_SEARCH = 145, /* END_SEARCH */
YYSYMBOL_END_START = 146, /* END_START */
YYSYMBOL_END_STRINGCMD = 147, /* END_STRINGCMD */
YYSYMBOL_END_SUBTRACT = 148, /* END_SUBTRACT */
YYSYMBOL_END_UNSTRING = 149, /* END_UNSTRING */
YYSYMBOL_END_WRITE = 150, /* END_WRITE */
YYSYMBOL_ENVIRONMENT = 151, /* ENVIRONMENT */
YYSYMBOL_EOL = 152, /* EOL */
YYSYMBOL_EOS = 153, /* EOS */
YYSYMBOL_ERASE = 154, /* ERASE */
YYSYMBOL_ERROR_TOK = 155, /* ERROR_TOK */
YYSYMBOL_EVALUATE = 156, /* EVALUATE */
YYSYMBOL_EXCEPTION = 157, /* EXCEPTION */
YYSYMBOL_EXIT = 158, /* EXIT */
YYSYMBOL_EXTEND = 159, /* EXTEND */
YYSYMBOL_EXTERNAL = 160, /* EXTERNAL */
YYSYMBOL_FALSE_TOK = 161, /* FALSE_TOK */
YYSYMBOL_FD = 162, /* FD */
YYSYMBOL_FILE_CONTROL = 163, /* FILE_CONTROL */
YYSYMBOL_FILE_ID = 164, /* FILE_ID */
YYSYMBOL_FILE_TOK = 165, /* FILE_TOK */
YYSYMBOL_FILLER = 166, /* FILLER */
YYSYMBOL_FINAL = 167, /* FINAL */
YYSYMBOL_FIRST = 168, /* FIRST */
YYSYMBOL_FOOTING = 169, /* FOOTING */
YYSYMBOL_FOR = 170, /* FOR */
YYSYMBOL_FOREGROUNDCOLOR = 171, /* FOREGROUNDCOLOR */
YYSYMBOL_FROM = 172, /* FROM */
YYSYMBOL_FULL = 173, /* FULL */
YYSYMBOL_FUNCTION = 174, /* FUNCTION */
YYSYMBOL_GENERATE = 175, /* GENERATE */
YYSYMBOL_GIVING = 176, /* GIVING */
YYSYMBOL_GLOBAL = 177, /* GLOBAL */
YYSYMBOL_GO = 178, /* GO */
YYSYMBOL_GOBACK = 179, /* GOBACK */
YYSYMBOL_GROUP = 180, /* GROUP */
YYSYMBOL_HEADING = 181, /* HEADING */
YYSYMBOL_HIGHLIGHT = 182, /* HIGHLIGHT */
YYSYMBOL_HIGHVALUES = 183, /* HIGHVALUES */
YYSYMBOL_IDENTIFICATION = 184, /* IDENTIFICATION */
YYSYMBOL_IF = 185, /* IF */
YYSYMBOL_IGNORE = 186, /* IGNORE */
YYSYMBOL_IN = 187, /* IN */
YYSYMBOL_INDEXED = 188, /* INDEXED */
YYSYMBOL_INDICATE = 189, /* INDICATE */
YYSYMBOL_INITIALIZE = 190, /* INITIALIZE */
YYSYMBOL_INITIAL_TOK = 191, /* INITIAL_TOK */
YYSYMBOL_INITIATE = 192, /* INITIATE */
YYSYMBOL_INPUT = 193, /* INPUT */
YYSYMBOL_INSPECT = 194, /* INSPECT */
YYSYMBOL_INSTALLATION = 195, /* INSTALLATION */
YYSYMBOL_INTO = 196, /* INTO */
YYSYMBOL_INVALID = 197, /* INVALID */
YYSYMBOL_I_O = 198, /* I_O */
YYSYMBOL_I_O_CONTROL = 199, /* I_O_CONTROL */
YYSYMBOL_JUSTIFIED = 200, /* JUSTIFIED */
YYSYMBOL_KEY = 201, /* KEY */
YYSYMBOL_LABEL = 202, /* LABEL */
YYSYMBOL_LAST = 203, /* LAST */
YYSYMBOL_LEADING = 204, /* LEADING */
YYSYMBOL_LEFT = 205, /* LEFT */
YYSYMBOL_LENGTH = 206, /* LENGTH */
YYSYMBOL_LIMIT = 207, /* LIMIT */
YYSYMBOL_LIMITS = 208, /* LIMITS */
YYSYMBOL_LINAGE = 209, /* LINAGE */
YYSYMBOL_LINE = 210, /* LINE */
YYSYMBOL_LINES = 211, /* LINES */
YYSYMBOL_LINKAGE = 212, /* LINKAGE */
YYSYMBOL_LISTSEP = 213, /* LISTSEP */
YYSYMBOL_LOCK = 214, /* LOCK */
YYSYMBOL_LOWER = 215, /* LOWER */
YYSYMBOL_LOWLIGHT = 216, /* LOWLIGHT */
YYSYMBOL_LOWVALUES = 217, /* LOWVALUES */
YYSYMBOL_LPAR = 218, /* LPAR */
YYSYMBOL_MERGE = 219, /* MERGE */
YYSYMBOL_MINUS = 220, /* MINUS */
YYSYMBOL_MODE = 221, /* MODE */
YYSYMBOL_MOVE = 222, /* MOVE */
YYSYMBOL_MULTIPLE = 223, /* MULTIPLE */
YYSYMBOL_MULTIPLY = 224, /* MULTIPLY */
YYSYMBOL_NATIVE = 225, /* NATIVE */
YYSYMBOL_NEGATIVE = 226, /* NEGATIVE */
YYSYMBOL_NEXT = 227, /* NEXT */
YYSYMBOL_NOECHO = 228, /* NOECHO */
YYSYMBOL_NOT = 229, /* NOT */
YYSYMBOL_NOTEXCEP = 230, /* NOTEXCEP */
YYSYMBOL_NULL_TOK = 231, /* NULL_TOK */
YYSYMBOL_NUMBER = 232, /* NUMBER */
YYSYMBOL_NUMBERS = 233, /* NUMBERS */
YYSYMBOL_NUMERIC = 234, /* NUMERIC */
YYSYMBOL_NUMERIC_EDITED = 235, /* NUMERIC_EDITED */
YYSYMBOL_OBJECT_COMPUTER = 236, /* OBJECT_COMPUTER */
YYSYMBOL_OCCURS = 237, /* OCCURS */
YYSYMBOL_OF = 238, /* OF */
YYSYMBOL_OFF = 239, /* OFF */
YYSYMBOL_OMITTED = 240, /* OMITTED */
YYSYMBOL_ON = 241, /* ON */
YYSYMBOL_ONLY = 242, /* ONLY */
YYSYMBOL_OPEN = 243, /* OPEN */
YYSYMBOL_OPTIONAL = 244, /* OPTIONAL */
YYSYMBOL_ORDER = 245, /* ORDER */
YYSYMBOL_ORGANIZATION = 246, /* ORGANIZATION */
YYSYMBOL_OTHER = 247, /* OTHER */
YYSYMBOL_OUTPUT = 248, /* OUTPUT */
YYSYMBOL_OVERFLOW_TOK = 249, /* OVERFLOW_TOK */
YYSYMBOL_PADDING = 250, /* PADDING */
YYSYMBOL_PAGE = 251, /* PAGE */
YYSYMBOL_PAGE_COUNTER = 252, /* PAGE_COUNTER */
YYSYMBOL_PARAGRAPH = 253, /* PARAGRAPH */
YYSYMBOL_PERFORM = 254, /* PERFORM */
YYSYMBOL_PF = 255, /* PF */
YYSYMBOL_PH = 256, /* PH */
YYSYMBOL_PICTURE = 257, /* PICTURE */
YYSYMBOL_PLUS = 258, /* PLUS */
YYSYMBOL_POINTER = 259, /* POINTER */
YYSYMBOL_POSITION = 260, /* POSITION */
YYSYMBOL_POSITIVE = 261, /* POSITIVE */
YYSYMBOL_PREVIOUS = 262, /* PREVIOUS */
YYSYMBOL_PROCEDURE = 263, /* PROCEDURE */
YYSYMBOL_PROCEED = 264, /* PROCEED */
YYSYMBOL_PROGRAM = 265, /* PROGRAM */
YYSYMBOL_PROGRAM_ID = 266, /* PROGRAM_ID */
YYSYMBOL_QUOTES = 267, /* QUOTES */
YYSYMBOL_RANDOM = 268, /* RANDOM */
YYSYMBOL_RD = 269, /* RD */
YYSYMBOL_READY = 270, /* READY */
YYSYMBOL_RECORD = 271, /* RECORD */
YYSYMBOL_RECORDS = 272, /* RECORDS */
YYSYMBOL_REDEFINES = 273, /* REDEFINES */
YYSYMBOL_REEL = 274, /* REEL */
YYSYMBOL_REFERENCE = 275, /* REFERENCE */
YYSYMBOL_RELATIVE = 276, /* RELATIVE */
YYSYMBOL_REMAINDER = 277, /* REMAINDER */
YYSYMBOL_REMOVAL = 278, /* REMOVAL */
YYSYMBOL_RENAMES = 279, /* RENAMES */
YYSYMBOL_REPLACING = 280, /* REPLACING */
YYSYMBOL_REPORT = 281, /* REPORT */
YYSYMBOL_REPORTS = 282, /* REPORTS */
YYSYMBOL_REQUIRED = 283, /* REQUIRED */
YYSYMBOL_RESERVE = 284, /* RESERVE */
YYSYMBOL_RESET = 285, /* RESET */
YYSYMBOL_RETURN = 286, /* RETURN */
YYSYMBOL_RETURNING = 287, /* RETURNING */
YYSYMBOL_REVERSEVIDEO = 288, /* REVERSEVIDEO */
YYSYMBOL_REWIND = 289, /* REWIND */
YYSYMBOL_REWRITE = 290, /* REWRITE */
YYSYMBOL_RF = 291, /* RF */
YYSYMBOL_RH = 292, /* RH */
YYSYMBOL_RIGHT = 293, /* RIGHT */
YYSYMBOL_ROUNDED = 294, /* ROUNDED */
YYSYMBOL_RUN = 295, /* RUN */
YYSYMBOL_SAME = 296, /* SAME */
YYSYMBOL_SCREEN = 297, /* SCREEN */
YYSYMBOL_SD = 298, /* SD */
YYSYMBOL_SEARCH = 299, /* SEARCH */
YYSYMBOL_SECTION = 300, /* SECTION */
YYSYMBOL_SECURE = 301, /* SECURE */
YYSYMBOL_SECURITY = 302, /* SECURITY */
YYSYMBOL_SELECT = 303, /* SELECT */
YYSYMBOL_SENTENCE = 304, /* SENTENCE */
YYSYMBOL_SEPARATE = 305, /* SEPARATE */
YYSYMBOL_SEQUENCE = 306, /* SEQUENCE */
YYSYMBOL_SEQUENTIAL = 307, /* SEQUENTIAL */
YYSYMBOL_SET = 308, /* SET */
YYSYMBOL_SIGN = 309, /* SIGN */
YYSYMBOL_SIZE = 310, /* SIZE */
YYSYMBOL_SORT = 311, /* SORT */
YYSYMBOL_SORT_MERGE = 312, /* SORT_MERGE */
YYSYMBOL_SOURCE = 313, /* SOURCE */
YYSYMBOL_SOURCE_COMPUTER = 314, /* SOURCE_COMPUTER */
YYSYMBOL_SPACES = 315, /* SPACES */
YYSYMBOL_SPECIAL_NAMES = 316, /* SPECIAL_NAMES */
YYSYMBOL_STANDARD = 317, /* STANDARD */
YYSYMBOL_STANDARD_1 = 318, /* STANDARD_1 */
YYSYMBOL_STANDARD_2 = 319, /* STANDARD_2 */
YYSYMBOL_START = 320, /* START */
YYSYMBOL_STATUS = 321, /* STATUS */
YYSYMBOL_STD_ERROR = 322, /* STD_ERROR */
YYSYMBOL_STD_OUTPUT = 323, /* STD_OUTPUT */
YYSYMBOL_STOP = 324, /* STOP */
YYSYMBOL_STRINGCMD = 325, /* STRINGCMD */
YYSYMBOL_SUBTRACT = 326, /* SUBTRACT */
YYSYMBOL_SUM = 327, /* SUM */
YYSYMBOL_SYNCHRONIZED = 328, /* SYNCHRONIZED */
YYSYMBOL_TALLYING = 329, /* TALLYING */
YYSYMBOL_TAPE = 330, /* TAPE */
YYSYMBOL_TCOBPROTO1 = 331, /* TCOBPROTO1 */
YYSYMBOL_TCOBPROTO2 = 332, /* TCOBPROTO2 */
YYSYMBOL_TERMINATE = 333, /* TERMINATE */
YYSYMBOL_TEST = 334, /* TEST */
YYSYMBOL_THEN = 335, /* THEN */
YYSYMBOL_TIMES = 336, /* TIMES */
YYSYMBOL_TOKDUMMY = 337, /* TOKDUMMY */
YYSYMBOL_TOP = 338, /* TOP */
YYSYMBOL_TRACE = 339, /* TRACE */
YYSYMBOL_TRAILING = 340, /* TRAILING */
YYSYMBOL_TRUE_TOK = 341, /* TRUE_TOK */
YYSYMBOL_TYPE = 342, /* TYPE */
YYSYMBOL_UNDERLINE = 343, /* UNDERLINE */
YYSYMBOL_UNIT = 344, /* UNIT */
YYSYMBOL_UNLOCK = 345, /* UNLOCK */
YYSYMBOL_UNSTRING = 346, /* UNSTRING */
YYSYMBOL_UNTIL = 347, /* UNTIL */
YYSYMBOL_UP = 348, /* UP */
YYSYMBOL_UPDATE = 349, /* UPDATE */
YYSYMBOL_UPON = 350, /* UPON */
YYSYMBOL_UPPER = 351, /* UPPER */
YYSYMBOL_USAGE = 352, /* USAGE */
YYSYMBOL_USE = 353, /* USE */
YYSYMBOL_USING = 354, /* USING */
YYSYMBOL_VALUE = 355, /* VALUE */
YYSYMBOL_VALUES = 356, /* VALUES */
YYSYMBOL_VARYING = 357, /* VARYING */
YYSYMBOL_WHEN = 358, /* WHEN */
YYSYMBOL_WITH = 359, /* WITH */
YYSYMBOL_WORKING_STORAGE = 360, /* WORKING_STORAGE */
YYSYMBOL_ZERO = 361, /* ZERO */
YYSYMBOL_PERIOD_TOK = 362, /* PERIOD_TOK */
YYSYMBOL_363_ = 363, /* '.' */
YYSYMBOL_364_ = 364, /* '(' */
YYSYMBOL_365_ = 365, /* ')' */
YYSYMBOL_366_ = 366, /* ',' */
YYSYMBOL_367_ = 367, /* ':' */
YYSYMBOL_YYACCEPT = 368, /* $accept */
YYSYMBOL_root_ = 369, /* root_ */
YYSYMBOL_program_sequences = 370, /* program_sequences */
YYSYMBOL_program_sequence = 371, /* program_sequence */
YYSYMBOL_372_1 = 372, /* $@1 */
YYSYMBOL_end_program = 373, /* end_program */
YYSYMBOL_374_2 = 374, /* $@2 */
YYSYMBOL_program = 375, /* program */
YYSYMBOL_identification_division = 376, /* identification_division */
YYSYMBOL_377_3 = 377, /* $@3 */
YYSYMBOL_378_4 = 378, /* $@4 */
YYSYMBOL_379_5 = 379, /* $@5 */
YYSYMBOL_programid_opts_opt = 380, /* programid_opts_opt */
YYSYMBOL_programid_program_opt = 381, /* programid_program_opt */
YYSYMBOL_identification_division_options_opt = 382, /* identification_division_options_opt */
YYSYMBOL_identification_division_option = 383, /* identification_division_option */
YYSYMBOL_environment_division_opt = 384, /* environment_division_opt */
YYSYMBOL_385_6 = 385, /* $@6 */
YYSYMBOL_configuration_opt = 386, /* configuration_opt */
YYSYMBOL_configuration_section = 387, /* configuration_section */
YYSYMBOL_configuration_option = 388, /* configuration_option */
YYSYMBOL_389_7 = 389, /* $@7 */
YYSYMBOL_390_8 = 390, /* $@8 */
YYSYMBOL_program_collating_opt = 391, /* program_collating_opt */
YYSYMBOL_collating_sequence = 392, /* collating_sequence */
YYSYMBOL_collating_opt = 393, /* collating_opt */
YYSYMBOL_debug_mode_opt = 394, /* debug_mode_opt */
YYSYMBOL_special_names_opt = 395, /* special_names_opt */
YYSYMBOL_special_names = 396, /* special_names */
YYSYMBOL_special_name = 397, /* special_name */
YYSYMBOL_currency_details = 398, /* currency_details */
YYSYMBOL_sign_opt = 399, /* sign_opt */
YYSYMBOL_special_name_class = 400, /* special_name_class */
YYSYMBOL_special_name_class_item_list = 401, /* special_name_class_item_list */
YYSYMBOL_special_name_class_item = 402, /* special_name_class_item */
YYSYMBOL_decimal_point_details = 403, /* decimal_point_details */
YYSYMBOL_screen_status_details = 404, /* screen_status_details */
YYSYMBOL_cursor_details = 405, /* cursor_details */
YYSYMBOL_switches_details_list = 406, /* switches_details_list */
YYSYMBOL_switches_details = 407, /* switches_details */
YYSYMBOL_408_9 = 408, /* $@9 */
YYSYMBOL_switch_on_opt = 409, /* switch_on_opt */
YYSYMBOL_switch_off_opt = 410, /* switch_off_opt */
YYSYMBOL_status_opt = 411, /* status_opt */
YYSYMBOL_alphabet_details = 412, /* alphabet_details */
YYSYMBOL_alphabet_type = 413, /* alphabet_type */
YYSYMBOL_alphabet_literal_list = 414, /* alphabet_literal_list */
YYSYMBOL_alphabet_literal_item = 415, /* alphabet_literal_item */
YYSYMBOL_alphabet_also_list = 416, /* alphabet_also_list */
YYSYMBOL_input_output_opt = 417, /* input_output_opt */
YYSYMBOL_input_output_section = 418, /* input_output_section */
YYSYMBOL_file_control_paragraph = 419, /* file_control_paragraph */
YYSYMBOL_i_o_control_paragraph = 420, /* i_o_control_paragraph */
YYSYMBOL_file_control = 421, /* file_control */
YYSYMBOL_file_select = 422, /* file_select */
YYSYMBOL_423_10 = 423, /* $@10 */
YYSYMBOL_select_clauses = 424, /* select_clauses */
YYSYMBOL_select_clause = 425, /* select_clause */
YYSYMBOL_file_opt = 426, /* file_opt */
YYSYMBOL_organization_opt = 427, /* organization_opt */
YYSYMBOL_assign_clause = 428, /* assign_clause */
YYSYMBOL_with_duplicates = 429, /* with_duplicates */
YYSYMBOL_optional_opt = 430, /* optional_opt */
YYSYMBOL_areas_opt = 431, /* areas_opt */
YYSYMBOL_is_opt = 432, /* is_opt */
YYSYMBOL_are_opt = 433, /* are_opt */
YYSYMBOL_mode_opt = 434, /* mode_opt */
YYSYMBOL_organization_options = 435, /* organization_options */
YYSYMBOL_access_options = 436, /* access_options */
YYSYMBOL_i_o_control_opt = 437, /* i_o_control_opt */
YYSYMBOL_i_o_control_list = 438, /* i_o_control_list */
YYSYMBOL_i_o_control_clause = 439, /* i_o_control_clause */
YYSYMBOL_i_o_control_same_clause = 440, /* i_o_control_same_clause */
YYSYMBOL_same_clause_options = 441, /* same_clause_options */
YYSYMBOL_i_o_control_multiple_file_tape_clause = 442, /* i_o_control_multiple_file_tape_clause */
YYSYMBOL_i_o_control_multiple_file_list = 443, /* i_o_control_multiple_file_list */
YYSYMBOL_i_o_control_multiple_file = 444, /* i_o_control_multiple_file */
YYSYMBOL_i_o_control_multiple_file_position_opt = 445, /* i_o_control_multiple_file_position_opt */
YYSYMBOL_tape_opt = 446, /* tape_opt */
YYSYMBOL_are_opta = 447, /* are_opta */
YYSYMBOL_for_opt = 448, /* for_opt */
YYSYMBOL_string_list = 449, /* string_list */
YYSYMBOL_name_list = 450, /* name_list */
YYSYMBOL_data_division_opt = 451, /* data_division_opt */
YYSYMBOL_452_11 = 452, /* $@11 */
YYSYMBOL_file_section_opt = 453, /* file_section_opt */
YYSYMBOL_454_12 = 454, /* $@12 */
YYSYMBOL_working_storage_opt = 455, /* working_storage_opt */
YYSYMBOL_456_13 = 456, /* $@13 */
YYSYMBOL_linkage_section_opt = 457, /* linkage_section_opt */
YYSYMBOL_458_14 = 458, /* $@14 */
YYSYMBOL_report_section_opt = 459, /* report_section_opt */
YYSYMBOL_report_sections = 460, /* report_sections */
YYSYMBOL_report_section = 461, /* report_section */
YYSYMBOL_462_15 = 462, /* $@15 */
YYSYMBOL_463_16 = 463, /* $@16 */
YYSYMBOL_464_17 = 464, /* $@17 */
YYSYMBOL_report_controls = 465, /* report_controls */
YYSYMBOL_report_control = 466, /* report_control */
YYSYMBOL_report_controls_control = 467, /* report_controls_control */
YYSYMBOL_report_controls_page = 468, /* report_controls_page */
YYSYMBOL_heading_opt = 469, /* heading_opt */
YYSYMBOL_line_lines_opt = 470, /* line_lines_opt */
YYSYMBOL_lines_opt = 471, /* lines_opt */
YYSYMBOL_control_is_are = 472, /* control_is_are */
YYSYMBOL_limit_is_are_opt = 473, /* limit_is_are_opt */
YYSYMBOL_footing_opt = 474, /* footing_opt */
YYSYMBOL_last_detail_opt = 475, /* last_detail_opt */
YYSYMBOL_first_detail_opt = 476, /* first_detail_opt */
YYSYMBOL_final_opt = 477, /* final_opt */
YYSYMBOL_report_break_list = 478, /* report_break_list */
YYSYMBOL_report_description = 479, /* report_description */
YYSYMBOL_report_item = 480, /* report_item */
YYSYMBOL_481_18 = 481, /* $@18 */
YYSYMBOL_report_clauses = 482, /* report_clauses */
YYSYMBOL_report_clause = 483, /* report_clause */
YYSYMBOL_report_clause_type = 484, /* report_clause_type */
YYSYMBOL_report_clause_type2 = 485, /* report_clause_type2 */
YYSYMBOL_486_19 = 486, /* $@19 */
YYSYMBOL_487_20 = 487, /* $@20 */
YYSYMBOL_488_21 = 488, /* $@21 */
YYSYMBOL_489_22 = 489, /* $@22 */
YYSYMBOL_report_clause_sign_is = 490, /* report_clause_sign_is */
YYSYMBOL_report_clause_picture = 491, /* report_clause_picture */
YYSYMBOL_492_23 = 492, /* $@23 */
YYSYMBOL_report_clause_usage_display = 493, /* report_clause_usage_display */
YYSYMBOL_report_clause_justified = 494, /* report_clause_justified */
YYSYMBOL_report_clause_next_group = 495, /* report_clause_next_group */
YYSYMBOL_report_clause_line = 496, /* report_clause_line */
YYSYMBOL_report_clause_line_is = 497, /* report_clause_line_is */
YYSYMBOL_report_clause_column = 498, /* report_clause_column */
YYSYMBOL_report_clause_column_is = 499, /* report_clause_column_is */
YYSYMBOL_report_clause_column_orientation = 500, /* report_clause_column_orientation */
YYSYMBOL_is_are_opt = 501, /* is_are_opt */
YYSYMBOL_report_clause_svs = 502, /* report_clause_svs */
YYSYMBOL_503_24 = 503, /* $@24 */
YYSYMBOL_504_25 = 504, /* $@25 */
YYSYMBOL_505_26 = 505, /* $@26 */
YYSYMBOL_gname_page_counter = 506, /* gname_page_counter */
YYSYMBOL_report_clause_group_indicate = 507, /* report_clause_group_indicate */
YYSYMBOL_report_clause_blank_zero = 508, /* report_clause_blank_zero */
YYSYMBOL_indicate_opt = 509, /* indicate_opt */
YYSYMBOL_upon_opt = 510, /* upon_opt */
YYSYMBOL_reset_opt = 511, /* reset_opt */
YYSYMBOL_number_opt = 512, /* number_opt */
YYSYMBOL_leading_trailing = 513, /* leading_trailing */
YYSYMBOL_right_opt = 514, /* right_opt */
YYSYMBOL_name_final_opt = 515, /* name_final_opt */
YYSYMBOL_integer_on_next_page = 516, /* integer_on_next_page */
YYSYMBOL_of_opt = 517, /* of_opt */
YYSYMBOL_screen_section_opt = 518, /* screen_section_opt */
YYSYMBOL_519_27 = 519, /* $@27 */
YYSYMBOL_screen_section = 520, /* screen_section */
YYSYMBOL_screen_item = 521, /* screen_item */
YYSYMBOL_522_28 = 522, /* $@28 */
YYSYMBOL_screen_clauses = 523, /* screen_clauses */
YYSYMBOL_524_29 = 524, /* $@29 */
YYSYMBOL_525_30 = 525, /* $@30 */
YYSYMBOL_526_31 = 526, /* $@31 */
YYSYMBOL_527_32 = 527, /* $@32 */
YYSYMBOL_528_33 = 528, /* $@33 */
YYSYMBOL_529_34 = 529, /* $@34 */
YYSYMBOL_screen_source_destination = 530, /* screen_source_destination */
YYSYMBOL_531_35 = 531, /* $@35 */
YYSYMBOL_532_36 = 532, /* $@36 */
YYSYMBOL_533_37 = 533, /* $@37 */
YYSYMBOL_screen_to_name = 534, /* screen_to_name */
YYSYMBOL_screen_attrib = 535, /* screen_attrib */
YYSYMBOL_screen_attribx = 536, /* screen_attribx */
YYSYMBOL_sign_clause = 537, /* sign_clause */
YYSYMBOL_separate_opt = 538, /* separate_opt */
YYSYMBOL_character_opt = 539, /* character_opt */
YYSYMBOL_sign_is_opt = 540, /* sign_is_opt */
YYSYMBOL_plus_minus_opt = 541, /* plus_minus_opt */
YYSYMBOL_number_is_opt = 542, /* number_is_opt */
YYSYMBOL_file_section = 543, /* file_section */
YYSYMBOL_544_38 = 544, /* $@38 */
YYSYMBOL_545_39 = 545, /* $@39 */
YYSYMBOL_546_40 = 546, /* $@40 */
YYSYMBOL_547_41 = 547, /* $@41 */
YYSYMBOL_548_42 = 548, /* $@42 */
YYSYMBOL_549_43 = 549, /* $@43 */
YYSYMBOL_file_description = 550, /* file_description */
YYSYMBOL_field_description = 551, /* field_description */
YYSYMBOL_552_44 = 552, /* $@44 */
YYSYMBOL_data_clauses = 553, /* data_clauses */
YYSYMBOL_redefines_clause = 554, /* redefines_clause */
YYSYMBOL_555_45 = 555, /* $@45 */
YYSYMBOL_redefines_var = 556, /* redefines_var */
YYSYMBOL_data_clause = 557, /* data_clause */
YYSYMBOL_558_46 = 558, /* $@46 */
YYSYMBOL_sync_options = 559, /* sync_options */
YYSYMBOL_thru_gname_opt = 560, /* thru_gname_opt */
YYSYMBOL_array_options = 561, /* array_options */
YYSYMBOL_562_47 = 562, /* $@47 */
YYSYMBOL_563_48 = 563, /* $@48 */
YYSYMBOL_564_49 = 564, /* $@49 */
YYSYMBOL_key_is_opt = 565, /* key_is_opt */
YYSYMBOL_indexed_by_opt = 566, /* indexed_by_opt */
YYSYMBOL_index_name_list = 567, /* index_name_list */
YYSYMBOL_usage_option = 568, /* usage_option */
YYSYMBOL_usage = 569, /* usage */
YYSYMBOL_value_option = 570, /* value_option */
YYSYMBOL_value_is_are = 571, /* value_is_are */
YYSYMBOL_value_list = 572, /* value_list */
YYSYMBOL_value = 573, /* value */
YYSYMBOL_pictures = 574, /* pictures */
YYSYMBOL_575_50 = 575, /* $@50 */
YYSYMBOL_picture = 576, /* picture */
YYSYMBOL_pic_elem = 577, /* pic_elem */
YYSYMBOL_multiplier_opt = 578, /* multiplier_opt */
YYSYMBOL_file_description_fd_clauses = 579, /* file_description_fd_clauses */
YYSYMBOL_file_description_sd_clauses = 580, /* file_description_sd_clauses */
YYSYMBOL_file_description_fd_clause = 581, /* file_description_fd_clause */
YYSYMBOL_file_description_sd_clause = 582, /* file_description_sd_clause */
YYSYMBOL_file_description_clause_block = 583, /* file_description_clause_block */
YYSYMBOL_file_description_clause_record = 584, /* file_description_clause_record */
YYSYMBOL_file_description_clause_label = 585, /* file_description_clause_label */
YYSYMBOL_file_description_clause_value = 586, /* file_description_clause_value */
YYSYMBOL_file_description_clause_data = 587, /* file_description_clause_data */
YYSYMBOL_file_description_clause_report = 588, /* file_description_clause_report */
YYSYMBOL_file_description_clause_code_set = 589, /* file_description_clause_code_set */
YYSYMBOL_file_description_clause_linage = 590, /* file_description_clause_linage */
YYSYMBOL_file_description_clause_linage_footing = 591, /* file_description_clause_linage_footing */
YYSYMBOL_file_description_clause_linage_top = 592, /* file_description_clause_linage_top */
YYSYMBOL_file_description_clause_linage_bottom = 593, /* file_description_clause_linage_bottom */
YYSYMBOL_lines_at_opt = 594, /* lines_at_opt */
YYSYMBOL_report_is_are = 595, /* report_is_are */
YYSYMBOL_var_strings = 596, /* var_strings */
YYSYMBOL_chars_or_recs_opt = 597, /* chars_or_recs_opt */
YYSYMBOL_to_integer_opt = 598, /* to_integer_opt */
YYSYMBOL_depend_rec_varying = 599, /* depend_rec_varying */
YYSYMBOL_from_rec_varying = 600, /* from_rec_varying */
YYSYMBOL_from_opt = 601, /* from_opt */
YYSYMBOL_to_rec_varying = 602, /* to_rec_varying */
YYSYMBOL_record_is_are = 603, /* record_is_are */
YYSYMBOL_std_or_omitt = 604, /* std_or_omitt */
YYSYMBOL_usage_opt = 605, /* usage_opt */
YYSYMBOL_times_opt = 606, /* times_opt */
YYSYMBOL_when_opt = 607, /* when_opt */
YYSYMBOL_contains_opt = 608, /* contains_opt */
YYSYMBOL_character_opts = 609, /* character_opts */
YYSYMBOL_order_opt = 610, /* order_opt */
YYSYMBOL_data_opt = 611, /* data_opt */
YYSYMBOL_working_storage_section = 612, /* working_storage_section */
YYSYMBOL_linkage_section = 613, /* linkage_section */
YYSYMBOL_procedure_division_opt = 614, /* procedure_division_opt */
YYSYMBOL_615_51 = 615, /* $@51 */
YYSYMBOL_616_52 = 616, /* $@52 */
YYSYMBOL_procedure_division = 617, /* procedure_division */
YYSYMBOL_procedure_decl = 618, /* procedure_decl */
YYSYMBOL_619_53 = 619, /* $@53 */
YYSYMBOL_620_54 = 620, /* $@54 */
YYSYMBOL_declaratives_opt = 621, /* declaratives_opt */
YYSYMBOL_622_55 = 622, /* $@55 */
YYSYMBOL_declaratives_division = 623, /* declaratives_division */
YYSYMBOL_declaratives_decl = 624, /* declaratives_decl */
YYSYMBOL_625_56 = 625, /* $@56 */
YYSYMBOL_626_57 = 626, /* $@57 */
YYSYMBOL_declaratives_procedure = 627, /* declaratives_procedure */
YYSYMBOL_628_58 = 628, /* $@58 */
YYSYMBOL_use_phrase = 629, /* use_phrase */
YYSYMBOL_use_phrase_exception_error = 630, /* use_phrase_exception_error */
YYSYMBOL_use_phrase_option = 631, /* use_phrase_option */
YYSYMBOL_procedure_section = 632, /* procedure_section */
YYSYMBOL_paragraph = 633, /* paragraph */
YYSYMBOL_dot_or_eos = 634, /* dot_or_eos */
YYSYMBOL_statement_list = 635, /* statement_list */
YYSYMBOL_statements = 636, /* statements */
YYSYMBOL_statement = 637, /* statement */
YYSYMBOL_perform_statement = 638, /* perform_statement */
YYSYMBOL_if_statement = 639, /* if_statement */
YYSYMBOL_640_59 = 640, /* $@59 */
YYSYMBOL_641_60 = 641, /* @60 */
YYSYMBOL_642_61 = 642, /* $@61 */
YYSYMBOL_search_statement = 643, /* search_statement */
YYSYMBOL_evaluate_statement = 644, /* evaluate_statement */
YYSYMBOL_645_62 = 645, /* @62 */
YYSYMBOL_646_63 = 646, /* $@63 */
YYSYMBOL_end_evaluate_or_eos = 647, /* end_evaluate_or_eos */
YYSYMBOL_selection_subject_set = 648, /* selection_subject_set */
YYSYMBOL_649_64 = 649, /* @64 */
YYSYMBOL_650_65 = 650, /* @65 */
YYSYMBOL_selection_subject = 651, /* selection_subject */
YYSYMBOL_when_case_list = 652, /* when_case_list */
YYSYMBOL_653_66 = 653, /* @66 */
YYSYMBOL_654_67 = 654, /* @67 */
YYSYMBOL_655_68 = 655, /* @68 */
YYSYMBOL_656_69 = 656, /* @69 */
YYSYMBOL_657_70 = 657, /* $@70 */
YYSYMBOL_when_case = 658, /* when_case */
YYSYMBOL_659_71 = 659, /* @71 */
YYSYMBOL_660_72 = 660, /* @72 */
YYSYMBOL_selection_object = 661, /* selection_object */
YYSYMBOL_sentence_or_nothing = 662, /* sentence_or_nothing */
YYSYMBOL_if_part = 663, /* if_part */
YYSYMBOL_664_73 = 664, /* @73 */
YYSYMBOL_conditional_statement = 665, /* conditional_statement */
YYSYMBOL_666_74 = 666, /* $@74 */
YYSYMBOL_667_75 = 667, /* $@75 */
YYSYMBOL_not_opt = 668, /* not_opt */
YYSYMBOL_end_if_opt = 669, /* end_if_opt */
YYSYMBOL_end_then_opt = 670, /* end_then_opt */
YYSYMBOL_search = 671, /* search */
YYSYMBOL_672_76 = 672, /* @76 */
YYSYMBOL_673_77 = 673, /* @77 */
YYSYMBOL_674_78 = 674, /* @78 */
YYSYMBOL_search_all = 675, /* search_all */
YYSYMBOL_676_79 = 676, /* @79 */
YYSYMBOL_677_80 = 677, /* $@80 */
YYSYMBOL_search_varying_opt = 678, /* search_varying_opt */
YYSYMBOL_search_at_end = 679, /* search_at_end */
YYSYMBOL_680_81 = 680, /* @81 */
YYSYMBOL_search_when_list = 681, /* search_when_list */
YYSYMBOL_search_when = 682, /* search_when */
YYSYMBOL_683_82 = 683, /* @82 */
YYSYMBOL_search_when_statement = 684, /* search_when_statement */
YYSYMBOL_search_when_conditional = 685, /* search_when_conditional */
YYSYMBOL_search_all_when_list = 686, /* search_all_when_list */
YYSYMBOL_search_all_when = 687, /* search_all_when */
YYSYMBOL_688_83 = 688, /* $@83 */
YYSYMBOL_689_84 = 689, /* @84 */
YYSYMBOL_search_all_when_statement = 690, /* search_all_when_statement */
YYSYMBOL_search_all_when_conditional = 691, /* search_all_when_conditional */
YYSYMBOL_692_85 = 692, /* @85 */
YYSYMBOL_end_search_opt = 693, /* end_search_opt */
YYSYMBOL_unlock_statement = 694, /* unlock_statement */
YYSYMBOL_proto_statement = 695, /* proto_statement */
YYSYMBOL_trace_statement = 696, /* trace_statement */
YYSYMBOL_initiate_statement = 697, /* initiate_statement */
YYSYMBOL_generate_statement = 698, /* generate_statement */
YYSYMBOL_terminate_statement = 699, /* terminate_statement */
YYSYMBOL_cancel_statement = 700, /* cancel_statement */
YYSYMBOL_merge_statement = 701, /* merge_statement */
YYSYMBOL_702_86 = 702, /* $@86 */
YYSYMBOL_703_87 = 703, /* $@87 */
YYSYMBOL_704_88 = 704, /* $@88 */
YYSYMBOL_merge_using = 705, /* merge_using */
YYSYMBOL_sort_statement = 706, /* sort_statement */
YYSYMBOL_sort_file = 707, /* sort_file */
YYSYMBOL_708_89 = 708, /* $@89 */
YYSYMBOL_709_90 = 709, /* $@90 */
YYSYMBOL_710_91 = 710, /* $@91 */
YYSYMBOL_sort_variable_indexed = 711, /* sort_variable_indexed */
YYSYMBOL_712_92 = 712, /* $@92 */
YYSYMBOL_sort_keys = 713, /* sort_keys */
YYSYMBOL_sort_keys_idx = 714, /* sort_keys_idx */
YYSYMBOL_sort_key = 715, /* sort_key */
YYSYMBOL_sort_key_idx = 716, /* sort_key_idx */
YYSYMBOL_sort_keys_names = 717, /* sort_keys_names */
YYSYMBOL_sort_keys_names_idx = 718, /* sort_keys_names_idx */
YYSYMBOL_sort_duplicates_opt = 719, /* sort_duplicates_opt */
YYSYMBOL_sort_collating_opt = 720, /* sort_collating_opt */
YYSYMBOL_sort_input = 721, /* sort_input */
YYSYMBOL_sort_output = 722, /* sort_output */
YYSYMBOL_sort_file_list = 723, /* sort_file_list */
YYSYMBOL_move_statement = 724, /* move_statement */
YYSYMBOL_initialize_statement = 725, /* initialize_statement */
YYSYMBOL_initialize_replacing_opt = 726, /* initialize_replacing_opt */
YYSYMBOL_initialize_replacing_lists = 727, /* initialize_replacing_lists */
YYSYMBOL_initialize_replacing_list = 728, /* initialize_replacing_list */
YYSYMBOL_initialize_type_list = 729, /* initialize_type_list */
YYSYMBOL_compute_statement = 730, /* compute_statement */
YYSYMBOL_compute_body = 731, /* compute_body */
YYSYMBOL_end_compute_opt = 732, /* end_compute_opt */
YYSYMBOL_add_statement = 733, /* add_statement */
YYSYMBOL_add_body = 734, /* add_body */
YYSYMBOL_add_to_opt = 735, /* add_to_opt */
YYSYMBOL_end_add_opt = 736, /* end_add_opt */
YYSYMBOL_subtract_statement = 737, /* subtract_statement */
YYSYMBOL_subtract_body = 738, /* subtract_body */
YYSYMBOL_end_subtract_opt = 739, /* end_subtract_opt */
YYSYMBOL_multiply_statement = 740, /* multiply_statement */
YYSYMBOL_multiply_body = 741, /* multiply_body */
YYSYMBOL_end_multiply_opt = 742, /* end_multiply_opt */
YYSYMBOL_divide_statement = 743, /* divide_statement */
YYSYMBOL_divide_body = 744, /* divide_body */
YYSYMBOL_end_divide_opt = 745, /* end_divide_opt */
YYSYMBOL_accept_statement = 746, /* accept_statement */
YYSYMBOL_accept_hardware = 747, /* accept_hardware */
YYSYMBOL_accept_chronological = 748, /* accept_chronological */
YYSYMBOL_accept_screen = 749, /* accept_screen */
YYSYMBOL_750_93 = 750, /* $@93 */
YYSYMBOL_751_94 = 751, /* @94 */
YYSYMBOL_752_95 = 752, /* $@95 */
YYSYMBOL_end_accept_opt = 753, /* end_accept_opt */
YYSYMBOL_display_statement = 754, /* display_statement */
YYSYMBOL_display_line = 755, /* display_line */
YYSYMBOL_display_screen = 756, /* display_screen */
YYSYMBOL_display_varlist = 757, /* display_varlist */
YYSYMBOL_display_upon = 758, /* display_upon */
YYSYMBOL_display_line_options = 759, /* display_line_options */
YYSYMBOL_end_display_opt = 760, /* end_display_opt */
YYSYMBOL_scr_line = 761, /* scr_line */
YYSYMBOL_scr_position = 762, /* scr_position */
YYSYMBOL_scr_line_position = 763, /* scr_line_position */
YYSYMBOL_accept_display_options = 764, /* accept_display_options */
YYSYMBOL_accept_display_option = 765, /* accept_display_option */
YYSYMBOL_open_statement = 766, /* open_statement */
YYSYMBOL_open_options = 767, /* open_options */
YYSYMBOL_open_mode = 768, /* open_mode */
YYSYMBOL_open_varlist = 769, /* open_varlist */
YYSYMBOL_close_statement = 770, /* close_statement */
YYSYMBOL_close_files = 771, /* close_files */
YYSYMBOL_close_file = 772, /* close_file */
YYSYMBOL_close_options_opt = 773, /* close_options_opt */
YYSYMBOL_close_options = 774, /* close_options */
YYSYMBOL_with_lock_opt = 775, /* with_lock_opt */
YYSYMBOL_return_statement = 776, /* return_statement */
YYSYMBOL_return_body = 777, /* return_body */
YYSYMBOL_read_statement = 778, /* read_statement */
YYSYMBOL_read_body = 779, /* read_body */
YYSYMBOL_read_next_opt = 780, /* read_next_opt */
YYSYMBOL_read_into_opt = 781, /* read_into_opt */
YYSYMBOL_read_key_opt = 782, /* read_key_opt */
YYSYMBOL_read_at_end_opt = 783, /* read_at_end_opt */
YYSYMBOL_784_96 = 784, /* $@96 */
YYSYMBOL_785_97 = 785, /* $@97 */
YYSYMBOL_on_end = 786, /* on_end */
YYSYMBOL_787_98 = 787, /* @98 */
YYSYMBOL_read_invalid_key_opt = 788, /* read_invalid_key_opt */
YYSYMBOL_read_invalid_key = 789, /* read_invalid_key */
YYSYMBOL_790_99 = 790, /* @99 */
YYSYMBOL_read_not_invalid_key = 791, /* read_not_invalid_key */
YYSYMBOL_792_100 = 792, /* @100 */
YYSYMBOL_end_read_opt = 793, /* end_read_opt */
YYSYMBOL_end_return_opt = 794, /* end_return_opt */
YYSYMBOL_release_statement = 795, /* release_statement */
YYSYMBOL_release_from_opt = 796, /* release_from_opt */
YYSYMBOL_write_statement = 797, /* write_statement */
YYSYMBOL_798_101 = 798, /* $@101 */
YYSYMBOL_write_from_opt = 799, /* write_from_opt */
YYSYMBOL_write_options = 800, /* write_options */
YYSYMBOL_end_write_opt = 801, /* end_write_opt */
YYSYMBOL_rewrite_statement = 802, /* rewrite_statement */
YYSYMBOL_803_102 = 803, /* $@102 */
YYSYMBOL_end_rewrite_opt = 804, /* end_rewrite_opt */
YYSYMBOL_delete_statement = 805, /* delete_statement */
YYSYMBOL_806_103 = 806, /* $@103 */
YYSYMBOL_end_delete_opt = 807, /* end_delete_opt */
YYSYMBOL_start_statement = 808, /* start_statement */
YYSYMBOL_809_104 = 809, /* $@104 */
YYSYMBOL_start_body = 810, /* start_body */
YYSYMBOL_end_start_opt = 811, /* end_start_opt */
YYSYMBOL_goto_statement = 812, /* goto_statement */
YYSYMBOL_goto_label = 813, /* goto_label */
YYSYMBOL_goto_label_list = 814, /* goto_label_list */
YYSYMBOL_call_statement = 815, /* call_statement */
YYSYMBOL_816_105 = 816, /* $@105 */
YYSYMBOL_817_106 = 817, /* @106 */
YYSYMBOL_818_107 = 818, /* @107 */
YYSYMBOL_819_108 = 819, /* @108 */
YYSYMBOL_820_109 = 820, /* $@109 */
YYSYMBOL_call_convention_opt = 821, /* call_convention_opt */
YYSYMBOL_call_loadlib_statement = 822, /* call_loadlib_statement */
YYSYMBOL_823_110 = 823, /* $@110 */
YYSYMBOL_end_call_loadlib_opt = 824, /* end_call_loadlib_opt */
YYSYMBOL_chain_statement = 825, /* chain_statement */
YYSYMBOL_826_111 = 826, /* $@111 */
YYSYMBOL_827_112 = 827, /* @112 */
YYSYMBOL_828_113 = 828, /* @113 */
YYSYMBOL_829_114 = 829, /* $@114 */
YYSYMBOL_exit_statement = 830, /* exit_statement */
YYSYMBOL_stop_statement = 831, /* stop_statement */
YYSYMBOL_stop_literal = 832, /* stop_literal */
YYSYMBOL_goback_statement = 833, /* goback_statement */
YYSYMBOL_var_list_name = 834, /* var_list_name */
YYSYMBOL_var_list_gname = 835, /* var_list_gname */
YYSYMBOL_rounded_opt = 836, /* rounded_opt */
YYSYMBOL_on_size_error_opt = 837, /* on_size_error_opt */
YYSYMBOL_838_115 = 838, /* $@115 */
YYSYMBOL_on_size_error = 839, /* on_size_error */
YYSYMBOL_840_116 = 840, /* @116 */
YYSYMBOL_size_opt = 841, /* size_opt */
YYSYMBOL_end_call_opt = 842, /* end_call_opt */
YYSYMBOL_end_chain_opt = 843, /* end_chain_opt */
YYSYMBOL_set_statement = 844, /* set_statement */
YYSYMBOL_set_list = 845, /* set_list */
YYSYMBOL_set_target = 846, /* set_target */
YYSYMBOL_set_variable = 847, /* set_variable */
YYSYMBOL_set_variable_or_nlit = 848, /* set_variable_or_nlit */
YYSYMBOL_address_of_opt = 849, /* address_of_opt */
YYSYMBOL_string_statement = 850, /* string_statement */
YYSYMBOL_851_117 = 851, /* $@117 */
YYSYMBOL_unstring_statement = 852, /* unstring_statement */
YYSYMBOL_853_118 = 853, /* $@118 */
YYSYMBOL_unstring_delimited = 854, /* unstring_delimited */
YYSYMBOL_unstring_delimited_vars = 855, /* unstring_delimited_vars */
YYSYMBOL_unstring_destinations = 856, /* unstring_destinations */
YYSYMBOL_unstring_dest_var = 857, /* unstring_dest_var */
YYSYMBOL_unstring_delim_opt = 858, /* unstring_delim_opt */
YYSYMBOL_unstring_count_opt = 859, /* unstring_count_opt */
YYSYMBOL_unstring_tallying = 860, /* unstring_tallying */
YYSYMBOL_all_opt = 861, /* all_opt */
YYSYMBOL_on_overflow_opt = 862, /* on_overflow_opt */
YYSYMBOL_863_119 = 863, /* $@119 */
YYSYMBOL_on_exception_or_overflow = 864, /* on_exception_or_overflow */
YYSYMBOL_865_120 = 865, /* @120 */
YYSYMBOL_exception_or_overflow = 866, /* exception_or_overflow */
YYSYMBOL_on_not_exception = 867, /* on_not_exception */
YYSYMBOL_868_121 = 868, /* @121 */
YYSYMBOL_on_overflow = 869, /* on_overflow */
YYSYMBOL_870_122 = 870, /* @122 */
YYSYMBOL_on_not_overflow = 871, /* on_not_overflow */
YYSYMBOL_872_123 = 872, /* @123 */
YYSYMBOL_invalid_key_opt = 873, /* invalid_key_opt */
YYSYMBOL_invalid_key_sentence = 874, /* invalid_key_sentence */
YYSYMBOL_875_124 = 875, /* @124 */
YYSYMBOL_not_invalid_key_sentence = 876, /* not_invalid_key_sentence */
YYSYMBOL_877_125 = 877, /* @125 */
YYSYMBOL_not_excep = 878, /* not_excep */
YYSYMBOL_string_with_pointer = 879, /* string_with_pointer */
YYSYMBOL_string_from_list = 880, /* string_from_list */
YYSYMBOL_string_from = 881, /* string_from */
YYSYMBOL_delimited_by = 882, /* delimited_by */
YYSYMBOL_end_stringcmd_opt = 883, /* end_stringcmd_opt */
YYSYMBOL_end_unstring_opt = 884, /* end_unstring_opt */
YYSYMBOL_inspect_statement = 885, /* inspect_statement */
YYSYMBOL_886_126 = 886, /* $@126 */
YYSYMBOL_converting_clause = 887, /* converting_clause */
YYSYMBOL_tallying_clause = 888, /* tallying_clause */
YYSYMBOL_tallying_list = 889, /* tallying_list */
YYSYMBOL_tallying_for_list = 890, /* tallying_for_list */
YYSYMBOL_replacing_clause = 891, /* replacing_clause */
YYSYMBOL_replacing_list = 892, /* replacing_list */
YYSYMBOL_replacing_by_list = 893, /* replacing_by_list */
YYSYMBOL_replacing_kind = 894, /* replacing_kind */
YYSYMBOL_inspect_before_after = 895, /* inspect_before_after */
YYSYMBOL_initial_opt = 896, /* initial_opt */
YYSYMBOL_expr = 897, /* expr */
YYSYMBOL_expr_opt = 898, /* expr_opt */
YYSYMBOL_using_options = 899, /* using_options */
YYSYMBOL_900_127 = 900, /* @127 */
YYSYMBOL_901_128 = 901, /* @128 */
YYSYMBOL_returning_options = 902, /* returning_options */
YYSYMBOL_dummy = 903, /* dummy */
YYSYMBOL_using_parameters = 904, /* using_parameters */
YYSYMBOL_parm_list = 905, /* parm_list */
YYSYMBOL_parameter = 906, /* parameter */
YYSYMBOL_parm_type = 907, /* parm_type */
YYSYMBOL_intrinsic_parm_list = 908, /* intrinsic_parm_list */
YYSYMBOL_intrinsic_parm = 909, /* intrinsic_parm */
YYSYMBOL_perform_range = 910, /* perform_range */
YYSYMBOL_perform_options = 911, /* perform_options */
YYSYMBOL_912_129 = 912, /* @129 */
YYSYMBOL_913_130 = 913, /* $@130 */
YYSYMBOL_914_131 = 914, /* @131 */
YYSYMBOL_915_132 = 915, /* @132 */
YYSYMBOL_916_133 = 916, /* $@133 */
YYSYMBOL_917_134 = 917, /* @134 */
YYSYMBOL_918_135 = 918, /* @135 */
YYSYMBOL_919_136 = 919, /* $@136 */
YYSYMBOL_920_137 = 920, /* @137 */
YYSYMBOL_921_138 = 921, /* @138 */
YYSYMBOL_922_139 = 922, /* @139 */
YYSYMBOL_perform_thru_opt = 923, /* perform_thru_opt */
YYSYMBOL_with_test_opt = 924, /* with_test_opt */
YYSYMBOL_perform_after_opt = 925, /* perform_after_opt */
YYSYMBOL_perform_after = 926, /* perform_after */
YYSYMBOL_927_140 = 927, /* @140 */
YYSYMBOL_perform_statements = 928, /* perform_statements */
YYSYMBOL_929_141 = 929, /* $@141 */
YYSYMBOL_before_after = 930, /* before_after */
YYSYMBOL_condition = 931, /* condition */
YYSYMBOL_932_142 = 932, /* $@142 */
YYSYMBOL_933_143 = 933, /* @143 */
YYSYMBOL_934_144 = 934, /* @144 */
YYSYMBOL_implied_op_condition = 935, /* implied_op_condition */
YYSYMBOL_sign_condition = 936, /* sign_condition */
YYSYMBOL_class_condition = 937, /* class_condition */
YYSYMBOL_extended_cond_op = 938, /* extended_cond_op */
YYSYMBOL_ext_cond = 939, /* ext_cond */
YYSYMBOL_cond_op = 940, /* cond_op */
YYSYMBOL_conditional = 941, /* conditional */
YYSYMBOL_comma_opt = 942, /* comma_opt */
YYSYMBOL_sep_opt = 943, /* sep_opt */
YYSYMBOL_key_opt = 944, /* key_opt */
YYSYMBOL_advancing_opt = 945, /* advancing_opt */
YYSYMBOL_than_to_opt = 946, /* than_to_opt */
YYSYMBOL_record_opt = 947, /* record_opt */
YYSYMBOL_at_opt = 948, /* at_opt */
YYSYMBOL_in_opt = 949, /* in_opt */
YYSYMBOL_in_of = 950, /* in_of */
YYSYMBOL_by_opt = 951, /* by_opt */
YYSYMBOL_with_opt = 952, /* with_opt */
YYSYMBOL_on_opt = 953, /* on_opt */
YYSYMBOL_gname_opt = 954, /* gname_opt */
YYSYMBOL_to_opt = 955, /* to_opt */
YYSYMBOL_name_var_list = 956, /* name_var_list */
YYSYMBOL_gname_list = 957, /* gname_list */
YYSYMBOL_gname = 958, /* gname */
YYSYMBOL_959_145 = 959, /* @145 */
YYSYMBOL_name_or_lit = 960, /* name_or_lit */
YYSYMBOL_noallname = 961, /* noallname */
YYSYMBOL_gliteral = 962, /* gliteral */
YYSYMBOL_without_all_literal = 963, /* without_all_literal */
YYSYMBOL_all_literal = 964, /* all_literal */
YYSYMBOL_special_literal = 965, /* special_literal */
YYSYMBOL_var_or_nliteral = 966, /* var_or_nliteral */
YYSYMBOL_nliteral = 967, /* nliteral */
YYSYMBOL_literal = 968, /* literal */
YYSYMBOL_signed_nliteral = 969, /* signed_nliteral */
YYSYMBOL_def_name_opt = 970, /* def_name_opt */
YYSYMBOL_def_name = 971, /* def_name */
YYSYMBOL_variable_indexed = 972, /* variable_indexed */
YYSYMBOL_filename = 973, /* filename */
YYSYMBOL_data_name = 974, /* data_name */
YYSYMBOL_cond_name = 975, /* cond_name */
YYSYMBOL_976_146 = 976, /* $@146 */
YYSYMBOL_name = 977, /* name */
YYSYMBOL_name_var = 978, /* name_var */
YYSYMBOL_variable = 979, /* variable */
YYSYMBOL_980_147 = 980, /* $@147 */
YYSYMBOL_qualified_var = 981, /* qualified_var */
YYSYMBOL_unqualified_var = 982, /* unqualified_var */
YYSYMBOL_subscripts = 983, /* subscripts */
YYSYMBOL_subscript = 984, /* subscript */
YYSYMBOL_integer = 985, /* integer */
YYSYMBOL_label = 986, /* label */
YYSYMBOL_anystring = 987 /* anystring */
};
typedef enum yysymbol_kind_t yysymbol_kind_t;
#ifdef short
# undef short
#endif
/* On compilers that do not define __PTRDIFF_MAX__ etc., make sure
and (if available) are included
so that the code can choose integer types of a good width. */
#ifndef __PTRDIFF_MAX__
# include /* INFRINGES ON USER NAME SPACE */
# if defined __STDC_VERSION__ && 199901 <= __STDC_VERSION__
# include /* INFRINGES ON USER NAME SPACE */
# define YY_STDINT_H
# endif
#endif
/* Narrow types that promote to a signed type and that can represent a
signed or unsigned integer of at least N bits. In tables they can
save space and decrease cache pressure. Promoting to a signed type
helps avoid bugs in integer arithmetic. */
#ifdef __INT_LEAST8_MAX__
typedef __INT_LEAST8_TYPE__ yytype_int8;
#elif defined YY_STDINT_H
typedef int_least8_t yytype_int8;
#else
typedef signed char yytype_int8;
#endif
#ifdef __INT_LEAST16_MAX__
typedef __INT_LEAST16_TYPE__ yytype_int16;
#elif defined YY_STDINT_H
typedef int_least16_t yytype_int16;
#else
typedef short yytype_int16;
#endif
/* Work around bug in HP-UX 11.23, which defines these macros
incorrectly for preprocessor constants. This workaround can likely
be removed in 2023, as HPE has promised support for HP-UX 11.23
(aka HP-UX 11i v2) only through the end of 2022; see Table 2 of
. */
#ifdef __hpux
# undef UINT_LEAST8_MAX
# undef UINT_LEAST16_MAX
# define UINT_LEAST8_MAX 255
# define UINT_LEAST16_MAX 65535
#endif
#if defined __UINT_LEAST8_MAX__ && __UINT_LEAST8_MAX__ <= __INT_MAX__
typedef __UINT_LEAST8_TYPE__ yytype_uint8;
#elif (!defined __UINT_LEAST8_MAX__ && defined YY_STDINT_H \
&& UINT_LEAST8_MAX <= INT_MAX)
typedef uint_least8_t yytype_uint8;
#elif !defined __UINT_LEAST8_MAX__ && UCHAR_MAX <= INT_MAX
typedef unsigned char yytype_uint8;
#else
typedef short yytype_uint8;
#endif
#if defined __UINT_LEAST16_MAX__ && __UINT_LEAST16_MAX__ <= __INT_MAX__
typedef __UINT_LEAST16_TYPE__ yytype_uint16;
#elif (!defined __UINT_LEAST16_MAX__ && defined YY_STDINT_H \
&& UINT_LEAST16_MAX <= INT_MAX)
typedef uint_least16_t yytype_uint16;
#elif !defined __UINT_LEAST16_MAX__ && USHRT_MAX <= INT_MAX
typedef unsigned short yytype_uint16;
#else
typedef int yytype_uint16;
#endif
#ifndef YYPTRDIFF_T
# if defined __PTRDIFF_TYPE__ && defined __PTRDIFF_MAX__
# define YYPTRDIFF_T __PTRDIFF_TYPE__
# define YYPTRDIFF_MAXIMUM __PTRDIFF_MAX__
# elif defined PTRDIFF_MAX
# ifndef ptrdiff_t
# include /* INFRINGES ON USER NAME SPACE */
# endif
# define YYPTRDIFF_T ptrdiff_t
# define YYPTRDIFF_MAXIMUM PTRDIFF_MAX
# else
# define YYPTRDIFF_T long
# define YYPTRDIFF_MAXIMUM LONG_MAX
# endif
#endif
#ifndef YYSIZE_T
# ifdef __SIZE_TYPE__
# define YYSIZE_T __SIZE_TYPE__
# elif defined size_t
# define YYSIZE_T size_t
# elif defined __STDC_VERSION__ && 199901 <= __STDC_VERSION__
# include /* INFRINGES ON USER NAME SPACE */
# define YYSIZE_T size_t
# else
# define YYSIZE_T unsigned
# endif
#endif
#define YYSIZE_MAXIMUM \
YY_CAST (YYPTRDIFF_T, \
(YYPTRDIFF_MAXIMUM < YY_CAST (YYSIZE_T, -1) \
? YYPTRDIFF_MAXIMUM \
: YY_CAST (YYSIZE_T, -1)))
#define YYSIZEOF(X) YY_CAST (YYPTRDIFF_T, sizeof (X))
/* Stored state numbers (used for stacks). */
typedef yytype_int16 yy_state_t;
/* State numbers in computations. */
typedef int yy_state_fast_t;
#ifndef YY_
# if defined YYENABLE_NLS && YYENABLE_NLS
# if ENABLE_NLS
# include /* INFRINGES ON USER NAME SPACE */
# define YY_(Msgid) dgettext ("bison-runtime", Msgid)
# endif
# endif
# ifndef YY_
# define YY_(Msgid) Msgid
# endif
#endif
#ifndef YY_ATTRIBUTE_PURE
# if defined __GNUC__ && 2 < __GNUC__ + (96 <= __GNUC_MINOR__)
# define YY_ATTRIBUTE_PURE __attribute__ ((__pure__))
# else
# define YY_ATTRIBUTE_PURE
# endif
#endif
#ifndef YY_ATTRIBUTE_UNUSED
# if defined __GNUC__ && 2 < __GNUC__ + (7 <= __GNUC_MINOR__)
# define YY_ATTRIBUTE_UNUSED __attribute__ ((__unused__))
# else
# define YY_ATTRIBUTE_UNUSED
# endif
#endif
/* Suppress unused-variable warnings by "using" E. */
#if ! defined lint || defined __GNUC__
# define YY_USE(E) ((void) (E))
#else
# define YY_USE(E) /* empty */
#endif
/* Suppress an incorrect diagnostic about yylval being uninitialized. */
#if defined __GNUC__ && ! defined __ICC && 406 <= __GNUC__ * 100 + __GNUC_MINOR__
# if __GNUC__ * 100 + __GNUC_MINOR__ < 407
# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \
_Pragma ("GCC diagnostic push") \
_Pragma ("GCC diagnostic ignored \"-Wuninitialized\"")
# else
# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \
_Pragma ("GCC diagnostic push") \
_Pragma ("GCC diagnostic ignored \"-Wuninitialized\"") \
_Pragma ("GCC diagnostic ignored \"-Wmaybe-uninitialized\"")
# endif
# define YY_IGNORE_MAYBE_UNINITIALIZED_END \
_Pragma ("GCC diagnostic pop")
#else
# define YY_INITIAL_VALUE(Value) Value
#endif
#ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
# define YY_IGNORE_MAYBE_UNINITIALIZED_END
#endif
#ifndef YY_INITIAL_VALUE
# define YY_INITIAL_VALUE(Value) /* Nothing. */
#endif
#if defined __cplusplus && defined __GNUC__ && ! defined __ICC && 6 <= __GNUC__
# define YY_IGNORE_USELESS_CAST_BEGIN \
_Pragma ("GCC diagnostic push") \
_Pragma ("GCC diagnostic ignored \"-Wuseless-cast\"")
# define YY_IGNORE_USELESS_CAST_END \
_Pragma ("GCC diagnostic pop")
#endif
#ifndef YY_IGNORE_USELESS_CAST_BEGIN
# define YY_IGNORE_USELESS_CAST_BEGIN
# define YY_IGNORE_USELESS_CAST_END
#endif
#define YY_ASSERT(E) ((void) (0 && (E)))
#if !defined yyoverflow
/* 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 /* INFRINGES ON USER NAME SPACE */
# elif defined _AIX
# define YYSTACK_ALLOC __alloca
# elif defined _MSC_VER
# include /* INFRINGES ON USER NAME SPACE */
# define alloca _alloca
# else
# define YYSTACK_ALLOC alloca
# if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS
# include /* INFRINGES ON USER NAME SPACE */
/* Use EXIT_SUCCESS as a witness for stdlib.h. */
# ifndef EXIT_SUCCESS
# define EXIT_SUCCESS 0
# endif
# endif
# endif
# endif
# endif
# ifdef YYSTACK_ALLOC
/* Pacify GCC's 'empty if-body' warning. */
# define YYSTACK_FREE(Ptr) do { /* empty */; } while (0)
# ifndef YYSTACK_ALLOC_MAXIMUM
/* The OS might guarantee only one guard page at the bottom of the stack,
and a page size can be as small as 4096 bytes. So we cannot safely
invoke alloca (N) if N exceeds 4096. Use a slightly smaller number
to allow for a few compiler-allocated temporary stack slots. */
# define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */
# endif
# else
# define YYSTACK_ALLOC YYMALLOC
# define YYSTACK_FREE YYFREE
# ifndef YYSTACK_ALLOC_MAXIMUM
# define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
# endif
# if (defined __cplusplus && ! defined EXIT_SUCCESS \
&& ! ((defined YYMALLOC || defined malloc) \
&& (defined YYFREE || defined free)))
# include /* INFRINGES ON USER NAME SPACE */
# ifndef EXIT_SUCCESS
# define EXIT_SUCCESS 0
# endif
# endif
# ifndef YYMALLOC
# define YYMALLOC malloc
# if ! defined malloc && ! defined EXIT_SUCCESS
void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */
# endif
# endif
# ifndef YYFREE
# define YYFREE free
# if ! defined free && ! defined EXIT_SUCCESS
void free (void *); /* INFRINGES ON USER NAME SPACE */
# endif
# endif
# endif
#endif /* !defined yyoverflow */
#if (! defined yyoverflow \
&& (! defined __cplusplus \
|| (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL)))
/* A type that is properly aligned for any stack member. */
union yyalloc
{
yy_state_t yyss_alloc;
YYSTYPE yyvs_alloc;
};
/* The size of the maximum gap between one aligned stack and the next. */
# define YYSTACK_GAP_MAXIMUM (YYSIZEOF (union yyalloc) - 1)
/* The size of an array large to enough to hold all stacks, each with
N elements. */
# define YYSTACK_BYTES(N) \
((N) * (YYSIZEOF (yy_state_t) + YYSIZEOF (YYSTYPE)) \
+ YYSTACK_GAP_MAXIMUM)
# define YYCOPY_NEEDED 1
/* Relocate STACK from its old location to the new one. The
local variables YYSIZE and YYSTACKSIZE give the old and new number of
elements in the stack, and YYPTR gives the new location of the
stack. Advance YYPTR to a properly aligned location for the next
stack. */
# define YYSTACK_RELOCATE(Stack_alloc, Stack) \
do \
{ \
YYPTRDIFF_T yynewbytes; \
YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \
Stack = &yyptr->Stack_alloc; \
yynewbytes = yystacksize * YYSIZEOF (*Stack) + YYSTACK_GAP_MAXIMUM; \
yyptr += yynewbytes / YYSIZEOF (*yyptr); \
} \
while (0)
#endif
#if defined YYCOPY_NEEDED && YYCOPY_NEEDED
/* Copy COUNT objects from SRC to DST. The source and destination do
not overlap. */
# ifndef YYCOPY
# if defined __GNUC__ && 1 < __GNUC__
# define YYCOPY(Dst, Src, Count) \
__builtin_memcpy (Dst, Src, YY_CAST (YYSIZE_T, (Count)) * sizeof (*(Src)))
# else
# define YYCOPY(Dst, Src, Count) \
do \
{ \
YYPTRDIFF_T yyi; \
for (yyi = 0; yyi < (Count); yyi++) \
(Dst)[yyi] = (Src)[yyi]; \
} \
while (0)
# endif
# endif
#endif /* !YYCOPY_NEEDED */
/* YYFINAL -- State number of the termination state. */
#define YYFINAL 8
/* YYLAST -- Last index in YYTABLE. */
#define YYLAST 4780
/* YYNTOKENS -- Number of terminals. */
#define YYNTOKENS 368
/* YYNNTS -- Number of nonterminals. */
#define YYNNTS 620
/* YYNRULES -- Number of rules. */
#define YYNRULES 1309
/* YYNSTATES -- Number of states. */
#define YYNSTATES 1999
/* YYMAXUTOK -- Last valid token kind. */
#define YYMAXUTOK 613
/* YYTRANSLATE(TOKEN-NUM) -- Symbol number corresponding to TOKEN-NUM
as returned by yylex, with out-of-bounds checking. */
#define YYTRANSLATE(YYX) \
(0 <= (YYX) && (YYX) <= YYMAXUTOK \
? YY_CAST (yysymbol_kind_t, yytranslate[YYX]) \
: YYSYMBOL_YYUNDEF)
/* YYTRANSLATE[TOKEN-NUM] -- Symbol number corresponding to TOKEN-NUM
as returned by yylex. */
static const yytype_int16 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,
364, 365, 37, 35, 366, 36, 363, 38, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 367, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 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,
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, 77, 78,
79, 80, 81, 82, 83, 84, 85, 86, 87, 88,
89, 90, 91, 92, 93, 94, 95, 96, 97, 98,
99, 100, 101, 102, 103, 104, 105, 106, 107, 108,
109, 110, 111, 112, 113, 114, 115, 116, 117, 118,
119, 120, 121, 122, 123, 124, 125, 126, 127, 128,
129, 130, 131, 132, 133, 134, 135, 136, 137, 138,
139, 140, 141, 142, 143, 144, 145, 146, 147, 148,
149, 150, 151, 152, 153, 154, 155, 156, 157, 158,
159, 160, 161, 162, 163, 164, 165, 166, 167, 168,
169, 170, 171, 172, 173, 174, 175, 176, 177, 178,
179, 180, 181, 182, 183, 184, 185, 186, 187, 188,
189, 190, 191, 192, 193, 194, 195, 196, 197, 198,
199, 200, 201, 202, 203, 204, 205, 206, 207, 208,
209, 210, 211, 212, 213, 214, 215, 216, 217, 218,
219, 220, 221, 222, 223, 224, 225, 226, 227, 228,
229, 230, 231, 232, 233, 234, 235, 236, 237, 238,
239, 240, 241, 242, 243, 244, 245, 246, 247, 248,
249, 250, 251, 252, 253, 254, 255, 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, 332, 333, 334, 335, 336, 337, 338,
339, 340, 341, 342, 343, 344, 345, 346, 347, 348,
349, 350, 351, 352, 353, 354, 355, 356, 357, 358,
359, 360, 361, 362
};
#if YYDEBUG
/* YYRLINE[YYN] -- Source line where rule number YYN was defined. */
static const yytype_int16 yyrline[] =
{
0, 309, 309, 312, 313, 314, 323, 324, 324, 325,
337, 336, 346, 356, 360, 368, 354, 373, 375, 376,
378, 379, 381, 383, 386, 387, 388, 389, 390, 397,
396, 405, 411, 412, 415, 416, 420, 419, 424, 423,
427, 428, 431, 432, 435, 437, 438, 441, 442, 444,
446, 447, 450, 451, 456, 457, 458, 459, 460, 461,
462, 467, 472, 473, 476, 479, 480, 483, 484, 488,
492, 496, 499, 500, 504, 503, 511, 512, 515, 516,
519, 520, 523, 530, 531, 532, 533, 536, 537, 540,
541, 542, 545, 546, 552, 553, 556, 557, 560, 562,
563, 570, 571, 576, 575, 600, 601, 604, 606, 607,
617, 618, 619, 620, 622, 623, 626, 627, 630, 631,
633, 634, 635, 636, 641, 644, 645, 648, 649, 651,
652, 653, 656, 657, 660, 661, 664, 665, 668, 669,
670, 671, 672, 675, 676, 677, 678, 683, 684, 688,
689, 692, 693, 696, 698, 699, 700, 701, 704, 707,
708, 711, 713, 714, 717, 718, 721, 722, 725, 726,
729, 730, 731, 734, 735, 736, 745, 744, 752, 758,
758, 760, 766, 766, 768, 774, 774, 776, 790, 792,
795, 796, 800, 802, 812, 799, 821, 822, 824, 825,
826, 827, 830, 833, 838, 839, 842, 843, 845, 847,
850, 851, 853, 855, 856, 858, 860, 862, 864, 866,
868, 870, 872, 874, 876, 879, 880, 884, 883, 900,
901, 904, 905, 906, 907, 908, 909, 910, 911, 912,
913, 914, 917, 920, 921, 922, 922, 924, 925, 925,
927, 928, 929, 930, 931, 931, 933, 934, 934, 936,
937, 940, 941, 945, 944, 951, 952, 955, 958, 961,
962, 963, 964, 967, 968, 969, 970, 973, 976, 977,
978, 979, 982, 983, 984, 985, 987, 989, 990, 993,
992, 996, 997, 998, 997, 1001, 1002, 1004, 1005, 1008,
1010, 1011, 1013, 1014, 1016, 1017, 1018, 1020, 1021, 1024,
1025, 1027, 1028, 1031, 1032, 1035, 1036, 1037, 1040, 1041,
1051, 1050, 1057, 1064, 1065, 1069, 1068, 1080, 1080, 1085,
1085, 1090, 1092, 1092, 1096, 1096, 1100, 1100, 1105, 1107,
1109, 1110, 1110, 1113, 1116, 1116, 1121, 1121, 1127, 1127,
1134, 1135, 1138, 1139, 1140, 1141, 1142, 1143, 1144, 1145,
1146, 1147, 1148, 1149, 1150, 1151, 1152, 1153, 1154, 1155,
1156, 1157, 1158, 1159, 1160, 1161, 1165, 1166, 1167, 1168,
1169, 1170, 1171, 1172, 1173, 1174, 1175, 1176, 1177, 1178,
1179, 1180, 1181, 1182, 1183, 1184, 1185, 1186, 1187, 1188,
1189, 1190, 1194, 1196, 1200, 1201, 1204, 1205, 1208, 1209,
1212, 1213, 1214, 1215, 1216, 1219, 1220, 1229, 1231, 1233,
1228, 1245, 1246, 1248, 1245, 1259, 1260, 1263, 1264, 1280,
1279, 1299, 1301, 1302, 1306, 1305, 1319, 1320, 1323, 1324,
1325, 1326, 1329, 1330, 1331, 1332, 1333, 1334, 1335, 1335,
1341, 1342, 1343, 1345, 1346, 1352, 1351, 1355, 1357, 1354,
1364, 1375, 1378, 1390, 1393, 1405, 1414, 1417, 1418, 1419,
1425, 1428, 1429, 1432, 1433, 1436, 1437, 1447, 1446, 1467,
1468, 1471, 1480, 1481, 1485, 1486, 1488, 1489, 1492, 1493,
1494, 1495, 1496, 1497, 1498, 1499, 1500, 1501, 1504, 1505,
1509, 1516, 1524, 1537, 1540, 1551, 1554, 1557, 1561, 1567,
1568, 1570, 1571, 1573, 1574, 1576, 1577, 1578, 1579, 1581,
1582, 1584, 1585, 1587, 1589, 1590, 1592, 1593, 1595, 1596,
1599, 1600, 1603, 1604, 1607, 1608, 1611, 1612, 1615, 1616,
1618, 1620, 1622, 1624, 1626, 1628, 1630, 1632, 1634, 1636,
1638, 1640, 1642, 1644, 1650, 1652, 1657, 1659, 1672, 1676,
1671, 1687, 1689, 1690, 1693, 1694, 1695, 1695, 1697, 1697,
1698, 1703, 1702, 1713, 1715, 1716, 1721, 1722, 1723, 1723,
1724, 1724, 1730, 1729, 1735, 1738, 1740, 1742, 1743, 1744,
1745, 1748, 1749, 1760, 1771, 1785, 1786, 1794, 1797, 1798,
1801, 1802, 1803, 1804, 1805, 1806, 1807, 1808, 1809, 1810,
1811, 1812, 1813, 1814, 1815, 1816, 1817, 1818, 1819, 1820,
1821, 1822, 1823, 1824, 1825, 1826, 1827, 1828, 1829, 1830,
1831, 1832, 1833, 1834, 1835, 1836, 1837, 1838, 1839, 1840,
1841, 1842, 1843, 1850, 1853, 1853, 1855, 1857, 1854, 1861,
1862, 1866, 1868, 1865, 1874, 1875, 1878, 1878, 1881, 1880,
1886, 1895, 1896, 1897, 1900, 1901, 1900, 1905, 1906, 1908,
1905, 1913, 1913, 1920, 1919, 1926, 1929, 1930, 1931, 1932,
1949, 1961, 1972, 1973, 1978, 1977, 1988, 1988, 1989, 1989,
1996, 1997, 1999, 2000, 2002, 2003, 2007, 2013, 2024, 2006,
2040, 2058, 2039, 2070, 2071, 2076, 2075, 2085, 2092, 2093,
2098, 2096, 2108, 2109, 2122, 2126, 2127, 2130, 2132, 2130,
2141, 2143, 2150, 2158, 2166, 2166, 2170, 2171, 2175, 2178,
2179, 2182, 2183, 2186, 2189, 2192, 2195, 2196, 2202, 2204,
2206, 2201, 2215, 2220, 2221, 2225, 2227, 2229, 2224, 2244,
2243, 2250, 2251, 2255, 2256, 2260, 2265, 2270, 2271, 2275,
2276, 2279, 2280, 2287, 2288, 2294, 2295, 2298, 2299, 2302,
2303, 2311, 2312, 2313, 2314, 2319, 2320, 2322, 2323, 2327,
2328, 2331, 2334, 2335, 2336, 2337, 2338, 2343, 2344, 2347,
2360, 2362, 2367, 2368, 2371, 2379, 2387, 2397, 2398, 2400,
2402, 2408, 2409, 2412, 2420, 2429, 2438, 2439, 2445, 2446,
2449, 2458, 2467, 2469, 2475, 2476, 2479, 2488, 2497, 2506,
2515, 2524, 2526, 2531, 2532, 2533, 2534, 2537, 2538, 2539,
2540, 2541, 2549, 2555, 2563, 2570, 2574, 2562, 2577, 2579,
2584, 2585, 2586, 2589, 2594, 2602, 2603, 2606, 2607, 2608,
2611, 2612, 2613, 2614, 2615, 2616, 2618, 2620, 2628, 2637,
2644, 2653, 2659, 2668, 2669, 2672, 2673, 2674, 2675, 2682,
2683, 2686, 2687, 2691, 2692, 2693, 2694, 2695, 2698, 2699,
2705, 2706, 2709, 2710, 2713, 2716, 2721, 2724, 2725, 2726,
2727, 2728, 2731, 2732, 2733, 2739, 2740, 2743, 2751, 2769,
2770, 2773, 2787, 2804, 2822, 2823, 2824, 2827, 2828, 2831,
2832, 2835, 2840, 2845, 2851, 2850, 2860, 2859, 2871, 2870,
2884, 2885, 2886, 2889, 2889, 2893, 2893, 2896, 2898, 2900,
2902, 2908, 2914, 2915, 2922, 2921, 2931, 2932, 2935, 2936,
2942, 2948, 2950, 2957, 2956, 2965, 2967, 2973, 2973, 2977,
2979, 2986, 2985, 2990, 2991, 2993, 2995, 3005, 3006, 3013,
3016, 3017, 3018, 3023, 3028, 3029, 3030, 3041, 3023, 3043,
3046, 3047, 3048, 3056, 3054, 3060, 3064, 3065, 3070, 3072,
3073, 3075, 3070, 3077, 3082, 3083, 3084, 3089, 3090, 3102,
3108, 3118, 3121, 3125, 3131, 3135, 3142, 3143, 3148, 3151,
3156, 3164, 3161, 3175, 3174, 3192, 3194, 3196, 3198, 3200,
3202, 3207, 3209, 3211, 3213, 3215, 3221, 3222, 3226, 3227,
3231, 3232, 3233, 3234, 3235, 3243, 3244, 3251, 3250, 3262,
3258, 3269, 3270, 3273, 3274, 3282, 3283, 3290, 3295, 3296,
3299, 3300, 3303, 3304, 3307, 3308, 3311, 3311, 3317, 3317,
3319, 3322, 3323, 3326, 3326, 3328, 3331, 3331, 3333, 3336,
3336, 3338, 3342, 3343, 3344, 3346, 3349, 3349, 3353, 3353,
3357, 3358, 3361, 3362, 3365, 3366, 3370, 3373, 3377, 3382,
3383, 3384, 3386, 3388, 3390, 3392, 3399, 3397, 3401, 3406,
3412, 3413, 3416, 3419, 3422, 3425, 3428, 3431, 3434, 3436,
3439, 3442, 3445, 3448, 3451, 3454, 3455, 3456, 3457, 3460,
3463, 3466, 3469, 3470, 3474, 3475, 3477, 3479, 3481, 3483,
3485, 3490, 3491, 3494, 3495, 3496, 3495, 3500, 3501, 3502,
3504, 3507, 3508, 3509, 3513, 3520, 3529, 3538, 3559, 3560,
3561, 3565, 3567, 3570, 3572, 3578, 3580, 3586, 3579, 3591,
3598, 3606, 3590, 3620, 3641, 3651, 3619, 3694, 3700, 3699,
3718, 3729, 3749, 3727, 3805, 3806, 3808, 3809, 3815, 3816,
3822, 3829, 3838, 3848, 3859, 3874, 3872, 3909, 3909, 3915,
3916, 3920, 3919, 3949, 3952, 3950, 3957, 3955, 3960, 3961,
3971, 3972, 3983, 3997, 3998, 3999, 4002, 4003, 4004, 4005,
4008, 4009, 4010, 4011, 4012, 4013, 4016, 4017, 4018, 4021,
4022, 4023, 4026, 4028, 4029, 4031, 4033, 4044, 4046, 4048,
4050, 4052, 4054, 4055, 4057, 4059, 4061, 4062, 4064, 4065,
4068, 4069, 4071, 4072, 4074, 4076, 4078, 4080, 4083, 4084,
4086, 4087, 4090, 4091, 4095, 4096, 4099, 4104, 4105, 4105,
4112, 4119, 4120, 4123, 4124, 4127, 4128, 4131, 4132, 4135,
4136, 4139, 4140, 4141, 4142, 4143, 4146, 4147, 4150, 4153,
4154, 4157, 4158, 4159, 4167, 4168, 4171, 4178, 4181, 4207,
4208, 4211, 4212, 4215, 4215, 4221, 4224, 4228, 4229, 4232,
4259, 4271, 4270, 4280, 4286, 4296, 4304, 4307, 4308, 4311,
4312, 4313, 4316, 4328, 4355, 4371, 4372, 4373, 4376, 4377
};
#endif
/** Accessing symbol of state STATE. */
#define YY_ACCESSING_SYMBOL(State) YY_CAST (yysymbol_kind_t, yystos[State])
#if YYDEBUG || 0
/* The user-facing name of the symbol whose (internal) number is
YYSYMBOL. No bounds checking. */
static const char *yysymbol_name (yysymbol_kind_t yysymbol) YY_ATTRIBUTE_UNUSED;
/* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
First, the terminals, then, starting at YYNTOKENS, nonterminals. */
static const char *const yytname[] =
{
"\"end of file\"", "error", "\"invalid token\"", "LOW_PREC", "IDSTRING",
"STRING", "VARIABLE", "VARCOND", "SUBSCVAR", "LABELSTR", "CMD_LINE",
"ENVIRONMENT_VARIABLE", "INKEY", "ESCKEY", "CHAR", "MULTIPLIER",
"USAGENUM", "ZERONUM", "CONDITIONAL", "TO", "IS", "ARE", "THRU", "THAN",
"NO", "COMMENTING", "DIRECTION", "READ", "WRITE", "INPUT_OUTPUT",
"RELEASE", "NLITERAL", "CLITERAL", "PORTNUM", "DATE_TIME", "'+'", "'-'",
"'*'", "'/'", "POW_OP", "OR", "AND", "ACCEPT", "ACCESS", "ADD",
"ADDRESS", "ADVANCING", "AFTER", "ALL", "ALPHABET", "ALPHABETIC",
"ALPHABETIC_LOWER", "ALPHABETIC_UPPER", "ALPHANUMERIC",
"ALPHANUMERIC_EDITED", "ALSO", "ALTERNATE", "ANY", "AREA", "AREAS",
"ASSIGN", "AT", "AUTHOR", "AUTO", "BACKGROUNDCOLOR", "BEFORE", "BELL",
"BLANK", "BLINK", "BLOCK", "BOTTOM", "BY", "CALL", "CALL_CONV_C",
"CALL_CONV_STDCALL", "CALL_LOADLIB", "CANCEL", "CENTER", "CF", "CH",
"CHAIN", "CHAINING", "CHARACTER", "CHARACTERS", "CLASS", "CLOSE", "CODE",
"CODE_SET", "COLLATING", "COLOR", "COLUMN", "COLUMNS", "COMMA", "COMMON",
"COMPUTE", "CONFIGURATION", "CONSOLE", "CONTAINS", "CONTENT", "CONTINUE",
"CONTROL", "CONTROLS", "CONVERTING", "CORRESPONDING", "COUNT",
"CURRENCY", "CURSOR", "DATA", "DATE_COMPILED", "DATE_WRITTEN", "DE",
"DEBUGGING", "DECIMAL_POINT", "DECLARATIVES", "DELETE", "DELIMITED",
"DELIMITER", "DEPENDING", "DETAIL", "DISPLAY", "DISPLAY_SCREEN",
"DIVIDE", "DIVISION", "DOWN", "DUPLICATES", "DYNAMIC", "ELSE", "END",
"END_ACCEPT", "END_ADD", "END_CALL", "END_CALL_LOADLIB", "END_CHAIN",
"END_COMPUTE", "END_DELETE", "END_DISPLAY", "END_DIVIDE", "END_EVALUATE",
"END_IF", "END_MULTIPLY", "END_OF_PAGE", "END_PERFORM", "END_READ",
"END_RETURN", "END_REWRITE", "END_SEARCH", "END_START", "END_STRINGCMD",
"END_SUBTRACT", "END_UNSTRING", "END_WRITE", "ENVIRONMENT", "EOL", "EOS",
"ERASE", "ERROR_TOK", "EVALUATE", "EXCEPTION", "EXIT", "EXTEND",
"EXTERNAL", "FALSE_TOK", "FD", "FILE_CONTROL", "FILE_ID", "FILE_TOK",
"FILLER", "FINAL", "FIRST", "FOOTING", "FOR", "FOREGROUNDCOLOR", "FROM",
"FULL", "FUNCTION", "GENERATE", "GIVING", "GLOBAL", "GO", "GOBACK",
"GROUP", "HEADING", "HIGHLIGHT", "HIGHVALUES", "IDENTIFICATION", "IF",
"IGNORE", "IN", "INDEXED", "INDICATE", "INITIALIZE", "INITIAL_TOK",
"INITIATE", "INPUT", "INSPECT", "INSTALLATION", "INTO", "INVALID", "I_O",
"I_O_CONTROL", "JUSTIFIED", "KEY", "LABEL", "LAST", "LEADING", "LEFT",
"LENGTH", "LIMIT", "LIMITS", "LINAGE", "LINE", "LINES", "LINKAGE",
"LISTSEP", "LOCK", "LOWER", "LOWLIGHT", "LOWVALUES", "LPAR", "MERGE",
"MINUS", "MODE", "MOVE", "MULTIPLE", "MULTIPLY", "NATIVE", "NEGATIVE",
"NEXT", "NOECHO", "NOT", "NOTEXCEP", "NULL_TOK", "NUMBER", "NUMBERS",
"NUMERIC", "NUMERIC_EDITED", "OBJECT_COMPUTER", "OCCURS", "OF", "OFF",
"OMITTED", "ON", "ONLY", "OPEN", "OPTIONAL", "ORDER", "ORGANIZATION",
"OTHER", "OUTPUT", "OVERFLOW_TOK", "PADDING", "PAGE", "PAGE_COUNTER",
"PARAGRAPH", "PERFORM", "PF", "PH", "PICTURE", "PLUS", "POINTER",
"POSITION", "POSITIVE", "PREVIOUS", "PROCEDURE", "PROCEED", "PROGRAM",
"PROGRAM_ID", "QUOTES", "RANDOM", "RD", "READY", "RECORD", "RECORDS",
"REDEFINES", "REEL", "REFERENCE", "RELATIVE", "REMAINDER", "REMOVAL",
"RENAMES", "REPLACING", "REPORT", "REPORTS", "REQUIRED", "RESERVE",
"RESET", "RETURN", "RETURNING", "REVERSEVIDEO", "REWIND", "REWRITE",
"RF", "RH", "RIGHT", "ROUNDED", "RUN", "SAME", "SCREEN", "SD", "SEARCH",
"SECTION", "SECURE", "SECURITY", "SELECT", "SENTENCE", "SEPARATE",
"SEQUENCE", "SEQUENTIAL", "SET", "SIGN", "SIZE", "SORT", "SORT_MERGE",
"SOURCE", "SOURCE_COMPUTER", "SPACES", "SPECIAL_NAMES", "STANDARD",
"STANDARD_1", "STANDARD_2", "START", "STATUS", "STD_ERROR", "STD_OUTPUT",
"STOP", "STRINGCMD", "SUBTRACT", "SUM", "SYNCHRONIZED", "TALLYING",
"TAPE", "TCOBPROTO1", "TCOBPROTO2", "TERMINATE", "TEST", "THEN", "TIMES",
"TOKDUMMY", "TOP", "TRACE", "TRAILING", "TRUE_TOK", "TYPE", "UNDERLINE",
"UNIT", "UNLOCK", "UNSTRING", "UNTIL", "UP", "UPDATE", "UPON", "UPPER",
"USAGE", "USE", "USING", "VALUE", "VALUES", "VARYING", "WHEN", "WITH",
"WORKING_STORAGE", "ZERO", "PERIOD_TOK", "'.'", "'('", "')'", "','",
"':'", "$accept", "root_", "program_sequences", "program_sequence",
"$@1", "end_program", "$@2", "program", "identification_division", "$@3",
"$@4", "$@5", "programid_opts_opt", "programid_program_opt",
"identification_division_options_opt", "identification_division_option",
"environment_division_opt", "$@6", "configuration_opt",
"configuration_section", "configuration_option", "$@7", "$@8",
"program_collating_opt", "collating_sequence", "collating_opt",
"debug_mode_opt", "special_names_opt", "special_names", "special_name",
"currency_details", "sign_opt", "special_name_class",
"special_name_class_item_list", "special_name_class_item",
"decimal_point_details", "screen_status_details", "cursor_details",
"switches_details_list", "switches_details", "$@9", "switch_on_opt",
"switch_off_opt", "status_opt", "alphabet_details", "alphabet_type",
"alphabet_literal_list", "alphabet_literal_item", "alphabet_also_list",
"input_output_opt", "input_output_section", "file_control_paragraph",
"i_o_control_paragraph", "file_control", "file_select", "$@10",
"select_clauses", "select_clause", "file_opt", "organization_opt",
"assign_clause", "with_duplicates", "optional_opt", "areas_opt",
"is_opt", "are_opt", "mode_opt", "organization_options",
"access_options", "i_o_control_opt", "i_o_control_list",
"i_o_control_clause", "i_o_control_same_clause", "same_clause_options",
"i_o_control_multiple_file_tape_clause",
"i_o_control_multiple_file_list", "i_o_control_multiple_file",
"i_o_control_multiple_file_position_opt", "tape_opt", "are_opta",
"for_opt", "string_list", "name_list", "data_division_opt", "$@11",
"file_section_opt", "$@12", "working_storage_opt", "$@13",
"linkage_section_opt", "$@14", "report_section_opt", "report_sections",
"report_section", "$@15", "$@16", "$@17", "report_controls",
"report_control", "report_controls_control", "report_controls_page",
"heading_opt", "line_lines_opt", "lines_opt", "control_is_are",
"limit_is_are_opt", "footing_opt", "last_detail_opt", "first_detail_opt",
"final_opt", "report_break_list", "report_description", "report_item",
"$@18", "report_clauses", "report_clause", "report_clause_type",
"report_clause_type2", "$@19", "$@20", "$@21", "$@22",
"report_clause_sign_is", "report_clause_picture", "$@23",
"report_clause_usage_display", "report_clause_justified",
"report_clause_next_group", "report_clause_line",
"report_clause_line_is", "report_clause_column",
"report_clause_column_is", "report_clause_column_orientation",
"is_are_opt", "report_clause_svs", "$@24", "$@25", "$@26",
"gname_page_counter", "report_clause_group_indicate",
"report_clause_blank_zero", "indicate_opt", "upon_opt", "reset_opt",
"number_opt", "leading_trailing", "right_opt", "name_final_opt",
"integer_on_next_page", "of_opt", "screen_section_opt", "$@27",
"screen_section", "screen_item", "$@28", "screen_clauses", "$@29",
"$@30", "$@31", "$@32", "$@33", "$@34", "screen_source_destination",
"$@35", "$@36", "$@37", "screen_to_name", "screen_attrib",
"screen_attribx", "sign_clause", "separate_opt", "character_opt",
"sign_is_opt", "plus_minus_opt", "number_is_opt", "file_section", "$@38",
"$@39", "$@40", "$@41", "$@42", "$@43", "file_description",
"field_description", "$@44", "data_clauses", "redefines_clause", "$@45",
"redefines_var", "data_clause", "$@46", "sync_options", "thru_gname_opt",
"array_options", "$@47", "$@48", "$@49", "key_is_opt", "indexed_by_opt",
"index_name_list", "usage_option", "usage", "value_option",
"value_is_are", "value_list", "value", "pictures", "$@50", "picture",
"pic_elem", "multiplier_opt", "file_description_fd_clauses",
"file_description_sd_clauses", "file_description_fd_clause",
"file_description_sd_clause", "file_description_clause_block",
"file_description_clause_record", "file_description_clause_label",
"file_description_clause_value", "file_description_clause_data",
"file_description_clause_report", "file_description_clause_code_set",
"file_description_clause_linage",
"file_description_clause_linage_footing",
"file_description_clause_linage_top",
"file_description_clause_linage_bottom", "lines_at_opt", "report_is_are",
"var_strings", "chars_or_recs_opt", "to_integer_opt",
"depend_rec_varying", "from_rec_varying", "from_opt", "to_rec_varying",
"record_is_are", "std_or_omitt", "usage_opt", "times_opt", "when_opt",
"contains_opt", "character_opts", "order_opt", "data_opt",
"working_storage_section", "linkage_section", "procedure_division_opt",
"$@51", "$@52", "procedure_division", "procedure_decl", "$@53", "$@54",
"declaratives_opt", "$@55", "declaratives_division", "declaratives_decl",
"$@56", "$@57", "declaratives_procedure", "$@58", "use_phrase",
"use_phrase_exception_error", "use_phrase_option", "procedure_section",
"paragraph", "dot_or_eos", "statement_list", "statements", "statement",
"perform_statement", "if_statement", "$@59", "@60", "$@61",
"search_statement", "evaluate_statement", "@62", "$@63",
"end_evaluate_or_eos", "selection_subject_set", "@64", "@65",
"selection_subject", "when_case_list", "@66", "@67", "@68", "@69",
"$@70", "when_case", "@71", "@72", "selection_object",
"sentence_or_nothing", "if_part", "@73", "conditional_statement", "$@74",
"$@75", "not_opt", "end_if_opt", "end_then_opt", "search", "@76", "@77",
"@78", "search_all", "@79", "$@80", "search_varying_opt",
"search_at_end", "@81", "search_when_list", "search_when", "@82",
"search_when_statement", "search_when_conditional",
"search_all_when_list", "search_all_when", "$@83", "@84",
"search_all_when_statement", "search_all_when_conditional", "@85",
"end_search_opt", "unlock_statement", "proto_statement",
"trace_statement", "initiate_statement", "generate_statement",
"terminate_statement", "cancel_statement", "merge_statement", "$@86",
"$@87", "$@88", "merge_using", "sort_statement", "sort_file", "$@89",
"$@90", "$@91", "sort_variable_indexed", "$@92", "sort_keys",
"sort_keys_idx", "sort_key", "sort_key_idx", "sort_keys_names",
"sort_keys_names_idx", "sort_duplicates_opt", "sort_collating_opt",
"sort_input", "sort_output", "sort_file_list", "move_statement",
"initialize_statement", "initialize_replacing_opt",
"initialize_replacing_lists", "initialize_replacing_list",
"initialize_type_list", "compute_statement", "compute_body",
"end_compute_opt", "add_statement", "add_body", "add_to_opt",
"end_add_opt", "subtract_statement", "subtract_body", "end_subtract_opt",
"multiply_statement", "multiply_body", "end_multiply_opt",
"divide_statement", "divide_body", "end_divide_opt", "accept_statement",
"accept_hardware", "accept_chronological", "accept_screen", "$@93",
"@94", "$@95", "end_accept_opt", "display_statement", "display_line",
"display_screen", "display_varlist", "display_upon",
"display_line_options", "end_display_opt", "scr_line", "scr_position",
"scr_line_position", "accept_display_options", "accept_display_option",
"open_statement", "open_options", "open_mode", "open_varlist",
"close_statement", "close_files", "close_file", "close_options_opt",
"close_options", "with_lock_opt", "return_statement", "return_body",
"read_statement", "read_body", "read_next_opt", "read_into_opt",
"read_key_opt", "read_at_end_opt", "$@96", "$@97", "on_end", "@98",
"read_invalid_key_opt", "read_invalid_key", "@99",
"read_not_invalid_key", "@100", "end_read_opt", "end_return_opt",
"release_statement", "release_from_opt", "write_statement", "$@101",
"write_from_opt", "write_options", "end_write_opt", "rewrite_statement",
"$@102", "end_rewrite_opt", "delete_statement", "$@103",
"end_delete_opt", "start_statement", "$@104", "start_body",
"end_start_opt", "goto_statement", "goto_label", "goto_label_list",
"call_statement", "$@105", "@106", "@107", "@108", "$@109",
"call_convention_opt", "call_loadlib_statement", "$@110",
"end_call_loadlib_opt", "chain_statement", "$@111", "@112", "@113",
"$@114", "exit_statement", "stop_statement", "stop_literal",
"goback_statement", "var_list_name", "var_list_gname", "rounded_opt",
"on_size_error_opt", "$@115", "on_size_error", "@116", "size_opt",
"end_call_opt", "end_chain_opt", "set_statement", "set_list",
"set_target", "set_variable", "set_variable_or_nlit", "address_of_opt",
"string_statement", "$@117", "unstring_statement", "$@118",
"unstring_delimited", "unstring_delimited_vars", "unstring_destinations",
"unstring_dest_var", "unstring_delim_opt", "unstring_count_opt",
"unstring_tallying", "all_opt", "on_overflow_opt", "$@119",
"on_exception_or_overflow", "@120", "exception_or_overflow",
"on_not_exception", "@121", "on_overflow", "@122", "on_not_overflow",
"@123", "invalid_key_opt", "invalid_key_sentence", "@124",
"not_invalid_key_sentence", "@125", "not_excep", "string_with_pointer",
"string_from_list", "string_from", "delimited_by", "end_stringcmd_opt",
"end_unstring_opt", "inspect_statement", "$@126", "converting_clause",
"tallying_clause", "tallying_list", "tallying_for_list",
"replacing_clause", "replacing_list", "replacing_by_list",
"replacing_kind", "inspect_before_after", "initial_opt", "expr",
"expr_opt", "using_options", "@127", "@128", "returning_options",
"dummy", "using_parameters", "parm_list", "parameter", "parm_type",
"intrinsic_parm_list", "intrinsic_parm", "perform_range",
"perform_options", "@129", "$@130", "@131", "@132", "$@133", "@134",
"@135", "$@136", "@137", "@138", "@139", "perform_thru_opt",
"with_test_opt", "perform_after_opt", "perform_after", "@140",
"perform_statements", "$@141", "before_after", "condition", "$@142",
"@143", "@144", "implied_op_condition", "sign_condition",
"class_condition", "extended_cond_op", "ext_cond", "cond_op",
"conditional", "comma_opt", "sep_opt", "key_opt", "advancing_opt",
"than_to_opt", "record_opt", "at_opt", "in_opt", "in_of", "by_opt",
"with_opt", "on_opt", "gname_opt", "to_opt", "name_var_list",
"gname_list", "gname", "@145", "name_or_lit", "noallname", "gliteral",
"without_all_literal", "all_literal", "special_literal",
"var_or_nliteral", "nliteral", "literal", "signed_nliteral",
"def_name_opt", "def_name", "variable_indexed", "filename", "data_name",
"cond_name", "$@146", "name", "name_var", "variable", "$@147",
"qualified_var", "unqualified_var", "subscripts", "subscript", "integer",
"label", "anystring", YY_NULLPTR
};
static const char *
yysymbol_name (yysymbol_kind_t yysymbol)
{
return yytname[yysymbol];
}
#endif
#define YYPACT_NINF (-1776)
#define yypact_value_is_default(Yyn) \
((Yyn) == YYPACT_NINF)
#define YYTABLE_NINF (-1289)
#define yytable_value_is_error(Yyn) \
0
/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
STATE-NUM. */
static const yytype_int16 yypact[] =
{
275, 44, 484, -1776, 275, 464, 346, 212, -1776, 512,
404, 275, -1776, 585, 622, 479, -1776, -1776, 595, 512,
398, 659, 535, 443, 811, -1776, 512, -1776, 485, 719,
-1776, -1776, -1776, 756, -1776, -1776, 856, 600, 880, 768,
-23, -1776, 559, 641, -1776, 653, 613, 3142, 3142, 619,
30, -1776, 629, 648, 684, 809, -1776, -1776, -1776, -1776,
-1776, 982, 996, 1415, 1022, -1776, -1776, -1776, -1776, -1776,
-136, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, 676,
835, 406, -54, -1776, -1776, 699, 410, 870, 126, -1776,
702, 774, 798, -1776, -1776, -1776, -1776, 723, -1776, 3142,
3142, -1776, -1776, -1776, 885, 978, -1776, 837, 837, -1776,
734, 743, 748, -1776, -1776, 749, -1776, 913, 41, -1776,
751, 817, 825, -1776, -1776, 760, 3142, -1776, 761, -1776,
-1776, -1776, -1776, -1776, -1776, -1776, 873, 842, 766, -1776,
-1776, -27, -1776, -1776, 776, 847, -1776, 3142, 3142, -1776,
510, 846, -1776, 1914, 374, 1141, 1144, -1776, 1146, 1149,
843, 1137, 1137, 841, -1776, 698, -1776, -1776, -1776, -1776,
-1776, -1776, 1153, -1776, 919, 842, -1776, -59, -1776, -1776,
981, -1776, -1776, 804, -82, -1776, -1776, 802, -1776, -1776,
-1776, 3142, 3142, 3142, 775, -1776, 444, -1776, -1776, 4434,
-1776, -1776, 806, 810, 813, 818, 823, -1776, 911, -7,
1137, 1137, -1776, 1137, 1186, 1102, 1137, -1776, -1776, 1137,
-1776, -1776, 134, -1776, 1031, 475, -1776, 321, -1776, -1776,
-1776, 1194, 1196, -1776, -1776, 134, 981, 934, -1776, -1776,
3142, -1776, 846, -1776, -1776, -1776, 904, -1776, -1776, 851,
852, -1776, -1776, -1776, 899, 899, 899, 899, 2652, 2589,
3142, 3178, 3209, 899, 899, -1776, 899, 3142, 3142, -1776,
593, 899, 1202, -1776, 2575, 3142, 899, 899, 899, 2638,
3142, 2136, 2150, 887, 888, 899, 899, 192, 822, 910,
899, 63, 347, 2658, 3142, 3142, 899, 899, 899, 3754,
-1776, -1776, -1776, -1776, -1776, 1096, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, -1776, -1776, 1136, 867, -1776, 871,
1123, 1282, 1204, 1206, -1776, -1776, 1234, 1235, -1776, -1776,
-1776, 918, -1776, -1776, -1776, 1184, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, -1776, -1776, -1776, 3321, 37, -1776,
-1776, 1105, 336, 1077, 1078, 1079, 3142, 1125, 2814, 1043,
894, -1776, 1415, -1776, 3142, 514, -1776, 101, 1124, 917,
967, 992, 1734, -1776, 1128, 77, -1776, -1776, -1776, -1776,
-1776, 654, 901, 2575, 2575, 1361, 947, -1776, -1776, 2644,
-1776, -24, 1027, 3142, 1034, 1250, 1135, 1207, -1776, -1776,
-1776, -1776, -1776, 2411, 899, -85, -55, -1776, 462, 1134,
4434, 945, 946, 1261, -1776, -1776, 1145, 992, 1077, -1776,
1276, 1142, -1776, -1776, 1055, 885, -1776, 51, 885, -1776,
-1776, 38, 1027, 1027, 602, 1093, -1776, -1776, -1776, -1776,
-1776, -16, -1776, 1182, 3142, 1150, 2828, -1776, 3142, -1776,
-1776, 1185, -1776, -1776, -1776, 1161, -1776, -1776, 999, -1776,
-1776, 1081, -1776, -1776, -1776, -1776, 1415, -1776, 701, 1285,
1204, -1776, -1776, -1776, -1776, -1776, -1776, 1212, -1776, 1140,
-1776, -1776, -1776, 1299, 981, 949, 1199, -1776, 4434, -1776,
-1776, -1776, 1269, -1776, -1776, -1776, -1776, -1776, 992, 3142,
471, 3142, -1776, 814, 3398, 2939, -1776, -1776, 3142, 1143,
1043, -1776, -1776, -1776, 3142, 1189, 968, 899, 365, 365,
-1776, -1776, -1776, 424, -1776, -1776, 1833, 967, -1776, 1043,
-1776, -1776, 106, -1776, 3607, 3142, -1776, -1776, 3142, 3142,
1268, 1538, 406, 406, -1776, 537, 580, -1776, -1776, 1333,
26, 744, 358, 1833, 1833, 1833, 1833, 1833, -1776, -1776,
-1776, -1776, 1137, -1776, -1776, -1776, -1776, -1776, -1776, 1287,
-1776, -1776, -1776, 990, 501, -1776, 120, -1776, -1776, -1776,
-1776, 132, -1776, 1302, -1776, 1312, 3142, 3142, -1776, -1776,
3142, 899, 514, -1776, 1323, 706, -1776, 899, -1776, -1776,
4434, 471, -1776, 654, 2607, -1776, -1776, 1138, -1776, 1142,
-1776, -1776, -1776, 976, -1776, -1776, -1776, 1293, 1270, 1271,
1324, 132, -1776, 1318, 132, 1148, -1776, -1776, -1776, 789,
-1776, 1155, 1137, 899, 3142, 1283, 2885, -1776, -1776, 3142,
-1776, 1283, 1151, 1130, -1776, -1776, 1137, -1776, -1776, 1415,
1415, 1300, 1326, -1776, 1115, 1172, -1776, 1356, -1776, 833,
393, 4, 769, -1776, -1776, 134, 1003, 1004, 3913, 135,
1138, -1776, -1776, -1776, -1776, 1321, -1776, 1245, 1342, 1245,
1245, 1245, 1056, 831, 1154, -1776, 1154, 1833, -1776, -1776,
-1776, -1776, -1776, 3518, 1230, 899, 186, -1776, 319, 899,
-1776, 968, -1776, -1776, -1776, -1776, -1776, 1110, 1112, 1103,
1177, -1776, 1833, 439, 1043, -1776, 602, -1776, -1776, -1776,
95, -1776, -1776, -1776, 1217, 186, 1218, -1776, 1044, -1776,
-1776, -1776, 1361, 947, 1027, 654, -1776, 3142, -1776, -1776,
-1776, -1776, -1776, 62, 1363, 912, 912, 1362, 1362, -1776,
62, 1833, 62, 1479, 1479, -1776, 1130, -1776, -1776, -1776,
-1776, -1776, 501, -1776, 1297, 1386, -1776, -1776, 899, 1126,
-25, -1776, 1148, 3142, 1388, 2986, -1776, 186, 1232, 514,
899, -1776, -1776, -1776, 2575, 1237, -1776, -1776, -1776, 486,
1074, 899, 69, 602, -1776, 360, 885, -1776, 311, 939,
939, 1293, -31, -1776, 1148, -31, -1776, -1776, 1278, -1776,
1148, 89, -151, -1776, -1776, 1014, 899, 186, 1239, 1368,
899, -1776, 4434, 1190, 1417, -1776, -1776, 1415, -1776, 1106,
1187, -1776, 1208, 1157, 1202, -1776, -1776, 1148, 1148, 1400,
-1776, -1776, 1111, 1137, 1173, 1356, -1776, -1776, -1776, 1429,
1212, 1137, 753, 753, 1137, 40, 1137, 1414, 1200, -1776,
549, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776,
1435, -1776, -1776, -1776, -1776, 1086, 395, 981, -1776, -1776,
-1776, 1137, 395, -1776, 1137, 1414, -1776, 581, -1776, -63,
-1776, -1776, -1776, -1776, -1776, 332, -1776, 1137, -1776, -1776,
-1776, -1776, -1776, -1776, -1776, 801, 1179, -53, 602, -1776,
3018, -1776, 1245, -1776, -1776, -1776, 1245, -1776, -1776, -1776,
1833, 1833, 1181, -1776, 981, 248, -1776, 883, 981, -1776,
-1776, 425, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, 57, -1776, 66, 1027, -1776, 1139, 186, 25,
-1776, -1776, -1776, -1776, -1776, -1776, 52, -1776, -1776, 1311,
-1776, 455, 899, -1776, 899, 1538, -1776, 82, 885, -1776,
672, -1776, 62, -1776, 1181, -1776, -1776, 1801, 1361, 947,
-1776, 1833, 1412, -1776, -1776, -1776, -1776, 1382, 120, 1284,
-1776, -1776, -1776, -1776, 899, -1776, 3142, 3142, -1776, 899,
-1776, 947, 3142, -1776, -1776, 899, -1776, -1776, 1330, -1776,
1397, -1776, 1231, 1315, -1776, -1776, 1334, -1776, 360, -1776,
-1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, 130, 79, 1340, 1276, 79, 4434, -1776, -1776,
-1776, 1448, 899, -1776, 1209, -1776, -1776, -1776, -1776, 66,
-1776, 899, -1776, 1427, 3142, 48, -1776, 1354, 1161, -1776,
1167, -1776, -1776, -1776, 1137, 1106, -1776, -1776, 1137, 1148,
896, 1137, 1137, 985, 1137, 507, 981, -1776, -1776, -1776,
981, 1467, 1137, 1414, 1468, -86, 929, 1118, 981, -1776,
-1776, -1776, 1313, 981, -1776, -1776, -1776, 981, -1776, 1117,
-1776, -1776, -1776, 36, 1137, 993, 885, -1776, -1776, -1776,
-1776, -1776, -1776, 1191, 1191, 605, -1776, 1454, 144, 76,
-1776, -1776, -1776, 1027, 1281, 442, 1339, -1776, 848, -1776,
-1776, 1181, 1181, -1776, -1776, -1776, 1131, -1776, -1776, -1776,
-1776, -1776, 1438, -1776, -1776, -1776, 885, 511, 1180, 1336,
-1776, 885, 885, -1776, -1776, 409, -1776, -1776, 1449, 419,
186, 967, 186, 967, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, 1181, 1448, 3142, -1776, -1776, 230,
1152, 899, -1776, -1776, -1776, 186, -1776, 1283, 1353, 2575,
1331, 1280, 4434, 1330, 1397, -1776, -1776, 1158, -1776, -1776,
-1776, -1776, -1776, -1776, 1325, 1276, -1776, -1776, -1776, 4434,
-1776, -1776, 899, 511, 186, 1368, -1776, 1169, 899, 1325,
1416, -1776, -1776, 1513, 1137, 113, 1137, -1776, -1776, 998,
998, -1776, -1776, -1776, 1514, 1516, -1776, -1776, -1776, 1518,
-1776, -1776, -1776, 1221, -1776, -1776, -1776, -1776, -1776, 1506,
-1776, -1776, -1776, -1776, 1524, -1776, -1776, -1776, -1776, -1776,
1319, 1325, 1512, 1137, 981, -1776, 981, -1776, 981, -1776,
-1776, -1776, -1776, -1776, -1776, 1511, 1453, -1776, -1776, 332,
332, -1776, -1776, -1776, -1776, 332, 1137, 1414, 869, -1776,
1359, -1776, -1776, -1776, 1370, 745, 1147, 1137, 458, -1776,
-1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, 1336,
-1776, 1309, -1776, -1776, -1776, 3038, -1776, 292, -1776, -1776,
-1776, -1776, -1776, 491, -1776, 492, 1292, -1776, -1776, -1776,
692, 499, -1776, 1470, -1776, -1776, -1776, -1776, 899, -1776,
-1776, -1776, -1776, 3142, -1776, 947, 3142, 1397, -1776, -1776,
-1776, -1776, 1158, -1776, 4434, 1192, -1776, 1298, -1776, -30,
-1776, 1395, 645, -1776, -1776, -1776, 3142, 1325, -1776, -1776,
899, 1325, -1776, -1776, 1546, -1776, -1776, -1776, -1776, -1776,
1548, -1776, -1776, -1776, -1776, -1776, -1776, 981, 199, -1776,
-83, 1244, 981, 1473, 998, -1776, 1222, 269, 1543, 885,
-1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, 1540, 1545,
981, 981, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, 332, -1776, 3554, 1210, -1776, 181, 899,
1148, 411, -1776, -1776, 1332, -1776, 4434, -1776, 4434, 1027,
-1776, 2031, -1776, -39, -1776, 1432, -1776, -1776, -1776, 899,
899, -1776, 127, -11, 1292, 1377, 1377, 120, -1776, 120,
120, 120, 899, -1776, 338, 1430, 1228, 1283, -1776, 1330,
885, -1776, -1776, 1084, 1192, -1776, -1776, -1776, 1314, 899,
-1776, -1776, -1776, 789, 1327, -1776, 899, -1776, -1776, 899,
-1776, -31, -1776, -1776, -1776, -1776, 31, 1409, -1776, 542,
-1776, -1776, -1776, -1776, 1462, 1148, 1392, -1776, 1566, -1776,
-1776, -1776, -1776, 848, 981, -1776, 134, 899, 899, 1351,
1084, 1351, 1084, 1084, -1776, -1776, -1776, 384, -1776, -1776,
930, -1776, -1776, -1776, 441, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, 81, -1776, -1776, -1776, 1148, 1387,
-1776, -1776, -1776, 1275, 409, 3038, -1776, -1776, -1776, 3142,
-1776, -1776, 4434, 511, 511, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, 765, 1533, -1776, 120, 120, -1776, 692,
-1776, -1776, 1520, -1776, 899, 1341, -1776, -1776, -1776, 3142,
1330, -1776, 1552, 1137, -1776, 65, -1776, 1137, 899, 338,
-1776, 1027, -1776, -1776, 1440, -1776, -1776, 1475, -1776, 1541,
468, 1265, 1397, -1776, 1512, 981, -1776, 1137, 1283, -1776,
-1776, 1424, -1776, -1776, -1776, -1776, 1137, 154, 1587, 154,
-1776, -1776, 1084, -1776, -1776, 1246, 1084, -1776, -1776, 1084,
-1776, -1776, 1562, -1776, -1776, -1776, 4434, -1776, 1245, -1776,
1380, -1776, -1776, -1776, -1776, -1776, -11, 1171, -1776, 107,
-1776, -1776, 692, 692, 692, 120, 899, 1137, 2575, 1264,
-1776, -1776, 4094, 1594, 4253, 1084, 654, -1776, 1364, 4434,
-1776, -1776, -1776, -1776, -1776, 1547, 929, 929, 1473, -1776,
1027, 1610, 134, 1137, 1451, 3505, -1776, -1776, -1776, -1776,
-1776, 1084, 899, -1776, 1084, -1776, -1776, -1776, -1776, -1776,
-1776, 4434, -1776, 1336, 1027, -1776, -1776, 1833, -1776, -1776,
654, 947, -1776, 885, 1316, -1776, -1776, 1202, 1320, -1776,
-1776, -1776, -1776, 1261, -1776, -1776, 929, -1776, -1776, 1509,
3142, -1776, 134, -1776, 981, 1505, 1425, 1086, 391, 47,
-1776, 1441, 1338, -1776, 78, 1414, 1447, -1776, 1137, -1776,
-1776, -1776, 1137, 1137, 1137, 3696, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, 174, -1776, 981, -1776, -1776, -1776,
1328, -1776, -1776, -1776, -1776, -1776, 1472, 1504, 1181, 692,
-1776, 1589, 2575, -1776, -1776, 1129, -1776, -1776, 4434, -1776,
1027, -1776, -1776, -1776, -1776, 1137, 1521, 1469, 1286, -1776,
-1776, 47, 47, -1776, 1064, 1414, -1776, -1776, -1776, -1776,
-1776, -1776, 1137, 1414, -1776, -1776, 1137, 1137, 286, 1137,
3142, 1422, 1522, 973, -1776, -1776, 981, 524, -1776, 1453,
-1776, -1776, -1776, 899, -1776, 947, -1776, -1776, -1776, 1639,
269, 981, 1137, 1137, -1776, -1776, 1137, 1414, -1776, -1776,
-1776, -1776, 266, -1776, 1343, 3056, 2986, -1776, -1776, 683,
-1776, -1776, 688, -1776, -1776, 696, -1776, -1776, -1776, -1776,
-1776, -1776, 1394, 1419, -1776, 4434, 1602, 1478, -1776, 1589,
-1776, -1776, -1776, 981, 981, -1776, -1776, 1401, 981, -1776,
-1776, 1543, 1453, -1776, -1776, -1776, 1301, 3076, 3076, -1776,
-1776, -1776, -1776, -1776, -1776, -1776, 1403, -1776, 899, 3142,
1517, -1776, -1776, -1776, -1776, -1776, -1776, 3142, 1374, -1776,
-1776, -1776, -1776, 3076, 3076, -1776, 1608, 1283, -1776, 2986,
3109, -1776, -1776, -1776, 899, 3142, -1776, -1776, 1614, 1317,
899, -1776, 1616, 2575, 899, 947, 1618, 899, -1776
};
/* YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM.
Performed when YYTABLE does not specify something else to do. Zero
means the default is an error. */
static const yytype_int16 yydefact[] =
{
0, 0, 0, 2, 4, 3, 31, 0, 1, 5,
0, 0, 6, 0, 178, 0, 9, 10, 0, 7,
0, 0, 561, 0, 0, 8, 0, 29, 0, 0,
12, 13, 11, 33, 176, 558, 0, 0, 95, 181,
1131, 14, 0, 0, 30, 0, 184, 0, 0, 0,
133, 35, 0, 0, 0, 187, 1295, 1296, 1288, 1271,
1270, 0, 0, 0, 0, 1264, 1265, 1263, 1261, 1262,
1215, 1244, 1247, 1255, 1256, 1258, 1257, 1269, 1246, 1287,
1290, 1293, 1215, 559, 132, 0, 0, 0, 0, 179,
0, 0, 189, 1272, 1273, 1260, 1259, 1250, 1216, 0,
0, 1291, 1230, 1231, 0, 573, 15, 20, 20, 41,
0, 0, 0, 34, 97, 0, 94, 99, 0, 182,
0, 0, 322, 1248, 1245, 0, 0, 1294, 0, 562,
22, 21, 19, 18, 38, 36, 0, 0, 0, 96,
425, 180, 555, 185, 0, 0, 177, 0, 1239, 1299,
1213, 1297, 571, 0, 16, 0, 0, 51, 0, 0,
63, 133, 133, 0, 40, 72, 52, 56, 60, 57,
58, 59, 54, 55, 128, 98, 101, 147, 417, 421,
183, 556, 191, 0, 1215, 1142, 1143, 0, 1238, 1292,
1214, 0, 0, 0, 0, 568, 0, 570, 563, 0,
564, 565, 0, 0, 0, 0, 0, 23, 43, 48,
133, 133, 62, 133, 0, 0, 133, 50, 53, 133,
73, 127, 0, 102, 0, 154, 100, 0, 149, 151,
152, 0, 0, 554, 1302, 1275, 186, 188, 320, 1249,
0, 1286, 1298, 1300, 1301, 584, 0, 574, 582, 0,
0, 596, 595, 594, 900, 0, 0, 826, 793, 969,
975, 0, 983, 881, 788, 642, 0, 842, 815, 651,
984, 0, 1240, 991, 0, 776, 0, 0, 0, 0,
809, 0, 1177, 0, 0, 896, 0, 0, 0, 0,
0, 0, 0, 802, 0, 0, 0, 0, 0, 0,
598, 618, 639, 641, 640, 644, 638, 634, 635, 631,
632, 633, 637, 627, 626, 743, 744, 600, 601, 602,
603, 604, 605, 606, 607, 823, 824, 825, 608, 840,
841, 609, 610, 612, 611, 613, 614, 615, 616, 617,
619, 622, 623, 624, 620, 621, 636, 625, 629, 630,
628, 24, 26, 25, 27, 28, 46, 0, 1235, 0,
0, 0, 0, 0, 71, 69, 0, 0, 1276, 1277,
103, 165, 155, 156, 157, 167, 148, 150, 418, 422,
429, 1274, 557, 192, 190, 324, 1141, 0, 0, 569,
593, 927, 904, 936, 932, 863, 0, 799, 797, 1215,
970, 973, 737, 736, 0, 880, 882, 894, 790, 0,
996, 1224, 863, 845, 821, 0, 656, 985, 986, 734,
1241, 0, 1285, 0, 0, 0, 684, 1114, 1189, 777,
733, 1091, 1236, 0, 0, 0, 812, 0, 877, 876,
873, 874, 875, 0, 0, 1304, 1305, 643, 0, 0,
0, 0, 0, 1164, 731, 732, 929, 1224, 936, 1278,
0, 726, 696, 175, 319, 1016, 1011, 0, 0, 1017,
173, 1296, 1236, 1236, 1065, 953, 990, 989, 987, 988,
1076, 1215, 1074, 1077, 0, 806, 0, 729, 0, 735,
728, 1032, 567, 599, 646, 692, 45, 42, 0, 39,
37, 0, 83, 84, 85, 82, 86, 87, 89, 67,
64, 65, 61, 70, 74, 106, 164, 546, 166, 169,
484, 486, 431, 0, 321, 584, 0, 575, 0, 576,
577, 586, 0, 583, 928, 899, 905, 906, 1224, 0,
938, 0, 931, 0, 838, 0, 800, 792, 0, 0,
1215, 994, 971, 972, 0, 977, 1123, 0, 888, 889,
884, 885, 886, 0, 791, 787, 0, 996, 997, 1215,
1225, 947, 0, 850, 856, 0, 822, 814, 0, 0,
652, 0, 1304, 1305, 957, 0, 959, 1283, 1183, 0,
0, 1221, 0, 0, 0, 0, 0, 0, 1197, 1198,
1199, 1194, 133, 1196, 1193, 1195, 1208, 1207, 1181, 1203,
1206, 1186, 1184, 694, 0, 775, 0, 1093, 1088, 1086,
1237, 738, 751, 0, 1289, 0, 0, 774, 813, 808,
0, 0, 871, 878, 0, 0, 1149, 0, 1145, 1178,
597, 0, 1146, 0, 1157, 930, 895, 907, 943, 726,
700, 727, 649, 704, 318, 1026, 174, 1025, 0, 0,
0, 749, 753, 0, 745, 1217, 1071, 1070, 951, 1062,
1063, 0, 133, 0, 0, 1232, 0, 807, 801, 0,
730, 1232, 0, 686, 693, 645, 133, 47, 88, 0,
0, 91, 0, 66, 77, 0, 547, 0, 168, 0,
133, 0, 133, 193, 323, 1275, 0, 0, 0, 0,
907, 937, 1180, 1179, 934, 1219, 933, 838, 0, 838,
838, 838, 0, 0, 307, 839, 307, 0, 833, 866,
867, 868, 864, 1234, 0, 0, 998, 798, 996, 0,
995, 1123, 976, 974, 1124, 979, 883, 0, 0, 0,
0, 892, 0, 998, 1215, 992, 1065, 847, 849, 848,
856, 857, 844, 846, 0, 998, 0, 658, 0, 663,
662, 657, 660, 661, 1236, 0, 961, 0, 1120, 1188,
1222, 1223, 1212, 0, 1200, 1117, 1118, 1115, 1116, 1119,
0, 1121, 0, 0, 0, 695, 686, 782, 783, 785,
784, 786, 778, 779, 552, 0, 1254, 1253, 1090, 1099,
46, 752, 1217, 0, 0, 771, 1242, 998, 0, 872,
0, 1303, 1307, 1306, 0, 0, 1167, 1177, 1165, 0,
0, 0, 897, 1065, 650, 707, 0, 697, 0, 0,
0, 1025, 761, 754, 1217, 761, 1218, 1066, 955, 1064,
1217, 0, 1073, 1075, 1233, 0, 0, 998, 0, 1044,
0, 647, 0, 0, 0, 90, 92, 0, 68, 81,
79, 115, 137, 0, 1240, 116, 118, 1217, 1217, 0,
104, 105, 0, 133, 162, 158, 159, 172, 170, 153,
546, 133, 0, 0, 133, 546, 133, 135, 0, 419,
0, 485, 490, 491, 492, 493, 494, 495, 497, 496,
0, 423, 487, 498, 499, 544, 450, 0, 477, 434,
448, 133, 450, 541, 133, 135, 430, 409, 441, 0,
433, 432, 438, 440, 442, 0, 439, 133, 196, 325,
581, 572, 579, 588, 587, 0, 0, 894, 1065, 1220,
0, 829, 838, 827, 830, 832, 838, 861, 862, 308,
0, 0, 860, 386, 0, 544, 389, 380, 0, 383,
393, 0, 399, 392, 384, 390, 385, 391, 398, 409,
865, 382, 0, 834, 996, 1236, 794, 0, 998, 1127,
1130, 980, 890, 891, 887, 893, 0, 789, 993, 949,
843, 0, 0, 820, 0, 0, 664, 0, 0, 962,
1213, 1201, 0, 1204, 1122, 1182, 1205, 0, 1192, 1190,
1187, 0, 1209, 1185, 685, 780, 553, 0, 0, 0,
1102, 1087, 764, 739, 0, 772, 0, 0, 811, 0,
879, 1150, 0, 1147, 1158, 0, 1160, 908, 0, 918,
1226, 898, 913, 945, 1227, 701, 0, 703, 707, 1023,
1022, 1021, 1024, 1012, 1020, 1252, 1251, 1014, 1267, 1268,
1266, 1013, 0, 763, 0, 0, 763, 0, 956, 952,
1068, 0, 0, 1027, 0, 1081, 1080, 1078, 1079, 996,
803, 0, 1045, 1031, 0, 1073, 1035, 1038, 692, 687,
0, 44, 93, 80, 133, 81, 75, 136, 133, 1217,
0, 133, 133, 131, 133, 0, 0, 161, 160, 171,
0, 0, 133, 135, 0, 0, 0, 0, 0, 519,
134, 520, 0, 0, 488, 489, 506, 0, 545, 0,
451, 452, 444, 542, 133, 0, 0, 408, 443, 471,
472, 445, 446, 405, 405, 470, 473, 475, 0, 133,
343, 590, 589, 1236, 909, 0, 941, 940, 208, 831,
828, 859, 858, 401, 377, 376, 0, 378, 379, 400,
388, 387, 0, 381, 395, 396, 0, 998, 0, 0,
795, 0, 0, 964, 1125, 1050, 950, 948, 0, 852,
998, 996, 998, 996, 659, 665, 654, 667, 655, 653,
958, 1284, 1202, 1210, 1191, 0, 0, 1111, 1097, 1098,
0, 755, 757, 773, 1243, 998, 1177, 1232, 0, 0,
0, 912, 0, 0, 1226, 946, 944, 0, 705, 698,
1019, 1015, 1018, 750, 1228, 756, 759, 746, 1067, 0,
954, 1046, 0, 998, 998, 1044, 1033, 1042, 0, 1228,
1040, 648, 689, 0, 133, 0, 133, 124, 1280, 120,
0, 108, 1279, 121, 0, 0, 129, 130, 114, 0,
1308, 1309, 138, 0, 140, 139, 107, 142, 163, 526,
507, 536, 537, 521, 505, 539, 538, 503, 1282, 1281,
208, 1228, 534, 133, 420, 427, 424, 447, 0, 543,
455, 479, 436, 437, 435, 453, 407, 402, 403, 0,
0, 467, 468, 469, 466, 0, 133, 135, 212, 194,
0, 197, 200, 201, 221, 1234, 0, 133, 901, 942,
935, 207, 209, 939, 206, 394, 397, 835, 796, 0,
1003, 1000, 1129, 1128, 965, 1232, 981, 0, 851, 854,
853, 855, 816, 1215, 819, 1215, 671, 668, 1211, 781,
1089, 1092, 1105, 0, 1108, 1106, 1107, 1104, 0, 740,
758, 810, 1151, 0, 1148, 1159, 0, 1226, 919, 911,
916, 717, 702, 715, 0, 0, 1229, 550, 760, 0,
1069, 1082, 1058, 1072, 805, 804, 0, 1228, 1029, 1036,
0, 1228, 1037, 76, 0, 144, 145, 143, 109, 146,
0, 122, 123, 111, 112, 110, 141, 0, 523, 522,
509, 1005, 0, 548, 0, 428, 542, 463, 478, 0,
449, 406, 404, 474, 476, 199, 210, 211, 0, 0,
0, 0, 198, 222, 223, 348, 329, 346, 327, 341,
344, 326, 338, 0, 340, 1234, 0, 592, 1215, 0,
1217, 1226, 902, 903, 920, 921, 0, 999, 0, 1236,
966, 1126, 1135, 0, 1136, 1009, 1051, 1052, 1048, 0,
0, 675, 686, 690, 671, 1113, 1113, 0, 1111, 0,
0, 1101, 742, 769, 0, 0, 0, 1232, 914, 0,
0, 716, 706, 0, 699, 708, 551, 762, 0, 0,
747, 1083, 1028, 1061, 0, 1034, 0, 1046, 1039, 0,
78, 126, 527, 524, 525, 500, 511, 0, 1006, 530,
535, 549, 501, 504, 0, 1217, 0, 456, 482, 480,
454, 213, 214, 208, 195, 225, 1275, 202, 0, 416,
0, 416, 0, 0, 339, 362, 334, 544, 365, 336,
356, 332, 359, 369, 0, 375, 368, 360, 366, 361,
367, 374, 331, 358, 0, 585, 910, 923, 1217, 0,
922, 836, 1004, 0, 1050, 1232, 1140, 1138, 1139, 0,
1010, 982, 0, 998, 998, 673, 666, 683, 676, 678,
691, 677, 672, 0, 669, 1112, 0, 0, 1111, 1094,
1111, 1111, 0, 770, 0, 0, 741, 1152, 1153, 0,
0, 917, 718, 133, 710, 0, 709, 133, 766, 0,
1047, 1236, 1056, 1043, 1084, 1041, 113, 0, 518, 516,
513, 0, 1226, 532, 534, 0, 457, 133, 1232, 483,
481, 204, 226, 227, 224, 349, 133, 414, 350, 414,
342, 345, 0, 353, 352, 0, 0, 354, 355, 0,
364, 363, 0, 357, 371, 372, 0, 925, 838, 1001,
1055, 1134, 1137, 1049, 817, 818, 690, 679, 681, 686,
1110, 1109, 1095, 1096, 1100, 0, 768, 133, 0, 0,
915, 724, 0, 0, 0, 0, 0, 748, 0, 0,
1085, 1030, 125, 517, 508, 0, 0, 0, 548, 531,
1236, 0, 0, 133, 219, 297, 415, 411, 413, 412,
410, 0, 0, 347, 0, 335, 370, 337, 333, 373,
924, 0, 837, 0, 1236, 967, 674, 0, 670, 1111,
0, 1154, 1161, 0, 0, 720, 719, 1240, 0, 712,
711, 714, 765, 1164, 1059, 1057, 0, 512, 510, 528,
0, 460, 462, 464, 0, 0, 217, 544, 282, 282,
266, 300, 311, 309, 286, 135, 0, 263, 133, 289,
292, 310, 133, 133, 133, 0, 229, 233, 236, 235,
234, 237, 232, 231, 0, 239, 0, 240, 241, 238,
0, 330, 351, 328, 926, 1002, 0, 1007, 680, 1103,
767, 1168, 0, 725, 721, 0, 713, 1144, 0, 514,
1236, 502, 458, 465, 205, 133, 0, 215, 0, 284,
283, 282, 282, 285, 286, 135, 301, 298, 312, 267,
287, 288, 133, 135, 273, 276, 133, 133, 0, 133,
0, 0, 0, 0, 228, 230, 0, 271, 277, 407,
1053, 1008, 968, 0, 1177, 1162, 723, 722, 1060, 0,
463, 0, 133, 133, 203, 299, 133, 135, 278, 281,
274, 275, 0, 479, 0, 0, 293, 257, 254, 0,
256, 247, 0, 259, 253, 0, 260, 252, 242, 265,
291, 272, 0, 0, 262, 0, 1169, 0, 1155, 1168,
529, 459, 220, 0, 0, 279, 280, 0, 0, 268,
315, 264, 407, 296, 290, 295, 302, 0, 0, 248,
245, 250, 244, 251, 243, 270, 0, 1054, 0, 0,
0, 1163, 218, 216, 317, 316, 261, 0, 304, 314,
258, 313, 255, 0, 0, 269, 1170, 1232, 1156, 303,
0, 294, 249, 246, 0, 0, 306, 305, 1171, 0,
0, 1175, 1172, 0, 0, 1176, 1173, 0, 1174
};
/* YYPGOTO[NTERM-NUM]. */
static const yytype_int16 yypgoto[] =
{
-1776, -1776, -1776, 1656, -1776, 752, -1776, 845, -1776, -1776,
-1776, -1776, -1776, 1563, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, 1329, -1776, -1776, -1776, -1776, 1507,
-1776, -1776, -1776, -1776, 1160, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, 569, -1776, -1776, -1776, 1170, -1776, -1776,
-1776, -1776, -1776, -1776, 1500, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, -41, -911, -1776, -1776, -1776, -1776,
-1776, 1452, -1776, -1776, -1776, -1776, 795, -1776, -1776, -1776,
536, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, 128, 388, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, 136, -1776, -1776, -121, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1035, -163, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, 969, -171, -1776, -1775, -1776, -1776,
-1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -712,
546, -1326, -1776, 32, 143, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, 568, -165, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, 784, -1776, -1776, -1776, -1776, -1776, -1776, -183, -1776,
-1776, -1776, -1776, 375, -1776, 390, 376, -1776, -188, -1776,
-1776, -1776, -1776, -1776, -1776, -1776, 1015, -1776, -1776, 1018,
-1776, -1776, -1776, -1776, -1776, -1776, 70, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, 71, 830, -1776, -1776, 288, -947,
-704, -1, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, 1344,
-1776, -1776, -1776, -1776, 1576, 1345, -1776, -827, -126, -252,
-1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, 729, -1776, -1776, -1776, -1776, -1776, -1776,
241, -1776, -1776, 42, 45, -1776, -1776, -541, -1776, -1776,
-1776, 638, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, 679, -1776, -1776, 225, -1776, -1776, -1776, -1776, 349,
-1776, -1776, -1776, -15, -1776, 1098, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, -1776, 1272, -1776, -437, 1088, -1776,
-1776, 905, -178, -1776, 112, -1020, -1776, -1776, -1776, -1776,
950, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, -1776, -694, -1776, -1776, -1776, -1776,
-1776, -1776, 994, -1776, -1776, -1776, 1346, -1776, -1776, -1776,
-423, 1122, -1776, -1776, 1211, -1776, -1776, 824, -1776, -1776,
-1776, -1776, -1776, 1046, -1776, 434, -1776, -1776, -1018, -1776,
-1776, -1776, -1776, 299, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, 1322, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, -1776, -1776, -414, 121, -531, -714,
-1776, -1320, -1776, -1776, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -476, -1776, -1776, -1776, -1776, -1776, -1776, -1776, 516,
-1776, -1776, -1776, 520, 251, -1776, 185, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, -1776, -577, -1776, -1776, 1114, -1776,
258, 689, -1776, 1113, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, -1776, -1776, -1776, -1414, 289, -327,
-1776, 1045, -1776, -1776, -1776, -1776, -1776, -1776, 193, -1776,
-1776, 1549, 33, -1776, -1776, -1776, -1776, -1776, -1776, -1776,
-1776, -1776, -1776, -1776, -1776, 17, 1156, -138, -1054, -1776,
-815, -1776, 1162, -267, -1776, -1776, -1776, 1001, -1776, -1776,
157, -549, 948, -745, 642, -119, -768, -1776, -1776, 80,
-1010, -725, -50, -662, -185, -404, -1776, -852, -1776, -46,
-47, -1776, -474, -995, -901, -357, -1776, -18, 956, -1371,
-58, -174, -688, -219, -273, -761, -915, -278, -1776, 435,
-590, -280, -1776, 1694, -1776, 1024, 1611, -513, -250, 541
};
/* YYDEFGOTO[NTERM-NUM]. */
static const yytype_int16 yydefgoto[] =
{
0, 2, 3, 4, 11, 12, 24, 5, 6, 36,
50, 130, 85, 132, 154, 207, 14, 33, 38, 87,
113, 156, 155, 357, 1032, 498, 359, 164, 165, 166,
167, 213, 168, 510, 511, 169, 170, 171, 172, 220,
694, 870, 1106, 1104, 173, 505, 506, 507, 691, 44,
116, 117, 139, 175, 176, 515, 695, 881, 882, 883,
1271, 1646, 222, 1278, 979, 1131, 1108, 1286, 1418, 226,
227, 228, 229, 375, 230, 885, 886, 1117, 517, 519,
699, 889, 465, 22, 39, 46, 118, 55, 142, 92,
181, 122, 237, 384, 523, 938, 1451, 1159, 1331, 1332,
1333, 1734, 1343, 1344, 1334, 1450, 1894, 1847, 1786, 1454,
1557, 1554, 1555, 1735, 1805, 1806, 1807, 1918, 1974, 1973,
1948, 1947, 1808, 1809, 1867, 1810, 1811, 1812, 1813, 1814,
1815, 1816, 1854, 1864, 1817, 1869, 1870, 1946, 1944, 1818,
1819, 1857, 1968, 1981, 960, 1820, 1859, 1970, 1939, 655,
146, 385, 524, 704, 1160, 1335, 1561, 1559, 1679, 1672,
1676, 1562, 1462, 1563, 1560, 1558, 1743, 1582, 980, 928,
1317, 1442, 929, 1741, 1667, 141, 231, 520, 1133, 232,
521, 1137, 1304, 1305, 522, 702, 930, 1145, 1314, 931,
1146, 1142, 1440, 932, 1437, 1730, 1890, 1546, 1547, 1782,
933, 1324, 934, 935, 1155, 1156, 936, 1144, 1438, 1549,
1660, 700, 701, 901, 912, 902, 903, 904, 905, 906,
907, 908, 909, 1536, 1650, 1724, 1651, 910, 1294, 1535,
1428, 1841, 1654, 1655, 1433, 1124, 1297, 937, 1310, 1139,
697, 1542, 1517, 1027, 180, 236, 30, 40, 105, 153,
198, 199, 249, 129, 194, 387, 527, 528, 706, 247,
388, 533, 946, 1466, 248, 201, 253, 639, 640, 300,
301, 302, 495, 683, 1098, 303, 304, 416, 768, 1209,
580, 581, 1005, 771, 1007, 1205, 1366, 1367, 1494, 1699,
1492, 1493, 1696, 1612, 1606, 305, 613, 1607, 862, 863,
1613, 685, 796, 461, 653, 1058, 1395, 649, 835, 1237,
837, 1055, 1394, 1514, 1515, 1714, 1770, 1634, 1392, 1393,
1510, 1712, 1766, 1632, 1763, 652, 306, 307, 308, 309,
310, 311, 312, 313, 810, 1220, 1504, 1379, 314, 315,
845, 1399, 1639, 316, 842, 621, 661, 622, 662, 1221,
1245, 1073, 1033, 1520, 1626, 1502, 317, 318, 615, 802,
803, 804, 319, 408, 565, 320, 397, 549, 547, 321,
485, 678, 322, 436, 629, 323, 414, 577, 324, 325,
326, 327, 1186, 1476, 1688, 728, 328, 329, 330, 412,
573, 760, 762, 729, 730, 731, 544, 732, 331, 443,
444, 632, 332, 405, 406, 560, 561, 562, 333, 456,
334, 391, 538, 832, 1338, 1051, 1630, 1509, 1052, 1232,
1473, 1474, 1686, 1475, 1751, 535, 646, 335, 542, 336,
948, 540, 714, 1340, 337, 833, 1236, 338, 756, 1197,
339, 848, 474, 1079, 340, 584, 585, 341, 400, 1354,
1480, 1594, 1827, 554, 342, 555, 743, 343, 404, 991,
1195, 1485, 344, 345, 479, 346, 409, 398, 569, 986,
1753, 1351, 1478, 1539, 1882, 1601, 347, 466, 467, 1241,
1063, 468, 348, 1251, 349, 1527, 682, 1093, 1095, 1096,
1260, 1412, 1408, 1094, 1401, 1402, 1356, 1602, 1488, 1755,
1925, 1523, 1719, 1640, 1838, 668, 669, 1077, 670, 1249,
671, 1083, 481, 482, 1087, 1522, 1721, 350, 809, 618,
619, 808, 1371, 1031, 1219, 1501, 1377, 1370, 1616, 425,
1015, 745, 990, 1355, 1193, 1194, 49, 1481, 1482, 1599,
184, 185, 1772, 447, 827, 1228, 824, 1226, 1505, 1708,
1831, 1960, 1229, 1832, 1929, 644, 448, 1884, 1926, 1993,
449, 450, 715, 588, 791, 794, 793, 1020, 606, 607,
608, 609, 1021, 610, 191, 99, 847, 950, 782, 571,
1056, 1397, 634, 1483, 451, 987, 187, 421, 815, 70,
427, 147, 1064, 805, 72, 73, 74, 75, 1067, 1068,
76, 77, 380, 381, 462, 1273, 1300, 428, 777, 78,
625, 79, 126, 80, 81, 150, 151, 235, 1773, 1287
};
/* YYTABLE[YYPACT[STATE-NUM]] -- What to do in state STATE-NUM. If
positive, shift that token. If negative, reduce the rule whose
number is the opposite. If YYTABLE_NINF, syntax error. */
static const yytype_int16 yytable[] =
{
71, 71, 82, 370, 508, 96, 234, 426, 470, 86,
469, 705, 1043, 855, 1150, 233, 472, 939, 1176, 859,
631, 981, 1110, 951, 360, 953, 954, 955, 623, 1477,
1231, 104, 453, 1217, 1157, 1099, 754, 816, 531, 997,
1233, -426, 140, 784, 1034, 95, 1608, 493, 1022, 1022,
84, 1003, 124, 125, -1215, 1308, -1215, -1215, 47, 1596,
84, 1540, 234, 496, -1278, 240, 611, 612, 663, 623,
657, 382, 56, 299, 57, 58, 1075, 98, 616, 149,
591, 1182, 1080, 591, 1619, 592, -1234, 593, 594, 595,
596, 597, 1648, -1234, 476, 477, 84, 589, 1860, 1861,
186, 188, 102, 1038, -1234, 1682, 1022, 591, -1234, 1111,
1112, 892, 598, 599, 600, 598, 599, 600, 1280, -1234,
214, 215, 1281, 1183, 1849, -1234, 56, 114, 57, 58,
1048, 98, 102, -1234, 736, 178, 56, 696, 57, 368,
734, 1153, 861, 1090, 149, 243, 244, 1683, 578, 508,
1609, 59, 60, 103, 1295, 61, 62, 590, -1236, 98,
1321, -1234, 1325, 1518, 224, 765, 7, 496, -426, 361,
362, 586, 363, 1972, 658, 366, 1326, 1327, 367, 999,
673, 838, 1605, 103, 811, 656, 1120, 650, 660, 1737,
1738, 1128, 56, 186, 57, 58, 1049, 98, 1982, 1983,
459, 1191, 757, -426, 1702, 59, 1703, 1704, 358, 61,
62, 399, 1292, 401, 403, 1389, 817, 623, 1610, 1206,
413, 415, 563, 1035, 1390, -426, -1133, 811, 71, 429,
761, 1296, 435, 437, 1011, 452, 1597, 225, 1415, 753,
460, 1013, 1649, 1016, -682, 483, 399, 487, 488, -1234,
1248, -1288, 1850, -426, 772, 1024, 1053, 663, 1169, 806,
623, 98, 1170, 1322, -682, 857, 785, 786, 787, 788,
789, 179, 1213, 579, 1190, 895, 358, 1154, 1372, -1278,
551, -1271, 1533, 239, 1729, 1184, 557, -1234, 601, 115,
943, 601, 944, 575, 602, 1545, 603, 59, 1050, 603,
369, 61, 62, 65, -426, 617, 358, -1234, -1132, 1684,
1862, 1863, 1192, 1373, 773, -1234, 1598, 56, 1081, 57,
58, 984, -426, 604, 1519, 988, 604, 1328, 358, -763,
1611, 48, 865, 866, -688, 776, 1213, 66, -426, -426,
1853, 1266, 59, 60, 96, 1829, 61, 62, 480, 399,
234, 550, 358, 56, -688, 57, 58, 556, 478, 733,
568, 1240, 674, 59, 60, 1072, 911, 61, 62, -515,
1008, 1166, 1309, 620, 1739, 558, 591, 1508, 59, 60,
63, 1416, 61, 62, 95, -46, 624, 67, 493, 733,
532, 779, -17, 828, 98, 63, 635, -133, 1374, 659,
962, -426, 708, 1323, 1143, 1388, 1185, 358, 598, 599,
600, 1382, 1740, 84, 486, 985, 1447, 778, 1157, 1444,
1417, 1054, 1400, 605, 1445, 996, 605, 620, 758, 759,
1685, 740, 1876, 1825, 1375, 68, 202, 399, 1329, 550,
1207, 680, 1089, 958, 1208, 559, 1223, 1224, 749, 1486,
755, 1173, 945, 1187, 358, 1179, 493, -461, 1174, 1,
358, 1233, 890, 1212, 1014, -682, 1018, 1018, 1849, -682,
1368, 1534, 1054, 1348, 593, 594, 595, 596, 597, 1198,
891, 69, 203, 204, 8, -682, 1362, -1226, 1364, -682,
1793, 1631, 711, 1937, 716, -1246, -1236, 13, 550, 1638,
892, 737, 1618, 107, 1620, 1621, 1622, 741, 1421, 1422,
1102, 1381, 1280, 820, 1624, 65, 1281, 545, 712, 1048,
-1215, 64, -1215, -1215, 1938, 1009, 1019, 1019, 763, 1648,
65, 764, 766, 635, 1410, 698, 713, 647, -515, 1404,
1405, 1487, 1059, -591, 224, 1175, 582, 1497, 982, 66,
1060, 797, 1061, 1924, 798, 799, 1057, 1041, 1253, 1070,
1070, 790, 1564, 536, 66, 1383, -1236, 1512, 583, 205,
1376, 1359, 1360, -533, 15, 1001, 1431, -533, -533, 814,
624, 1188, 1498, 818, 601, 1049, 1625, 783, 1200, -960,
1202, 10, 603, 102, 1673, 893, 1850, 830, 537, 67,
1140, 108, 894, 1288, 1706, 676, 1138, 1289, 1588, 1199,
750, -960, 1710, 568, 67, 1302, 1966, 225, 710, 604,
1675, 1700, 1701, 1851, 1852, 1225, 1801, 483, 750, 550,
1180, 851, 858, 1171, 1172, 998, -1213, -1213, 751, 10,
-1213, -1213, 1727, -169, 103, 864, 1680, 68, -7, 1591,
620, 1592, 1062, -1213, 774, 1470, 751, 1074, -1236, 900,
1074, 927, 68, 582, 895, 1069, 1069, 1084, 985, 17,
1363, 806, 1365, 1543, 896, 897, 206, 1254, 772, 1649,
620, 1674, 1526, 376, 1853, 583, 1529, 1471, 1141, 392,
393, 394, 395, 69, 1214, 1282, 1037, -960, 407, 410,
820, 411, 1587, 1499, 98, 98, 419, 20, 69, 1134,
1759, 430, 431, 432, 1653, 822, 1361, 1283, 1181, 605,
457, 458, 10, 689, 473, 475, 1135, 98, 1210, 21,
149, 489, 490, 491, 1681, 800, 801, 823, 773, 1495,
985, 1151, 1138, 234, 250, 23, 372, 158, 898, -1236,
775, 1922, 620, 1583, 1855, 899, 690, 1496, 1152, 1336,
27, 16, 1165, 780, 1455, 1923, 624, 781, 1489, 1490,
25, 56, 422, 57, 58, 1693, 245, 1657, 16, 1,
1065, 28, 159, 1284, 246, -540, 373, 374, -1213, 84,
234, 1357, 1242, -960, 234, 1436, 59, 60, 29, 665,
61, 62, 1246, 160, 161, 31, 251, 252, 1088, 636,
162, 1777, 1778, 63, 1285, 32, 1896, 1897, 163, 637,
1687, -1236, -1213, 463, 717, 718, 719, 720, 56, 422,
57, 666, 667, 1044, 887, 1456, 915, 56, 888, 57,
1848, 35, 1115, 1045, 567, 1629, 417, 34, 721, 9,
1121, 37, 1949, 1126, 1127, 1129, 19, 1951, 418, 1750,
41, 1839, 957, 26, 1950, 1953, 1315, 464, 1663, 1952,
-32, 109, -1213, -49, 157, 189, 190, 1954, -72, 633,
1147, 192, 193, 1149, 1865, 1765, 620, 1769, -540, 1694,
1695, 56, 1775, 57, -1236, 1243, 1158, 1267, 1247, -32,
42, 1268, -49, 1168, 1976, 56, 1347, 57, 58, 43,
1084, 1352, 1353, 1467, 1532, 1835, 56, 1457, 471, 58,
-1213, 51, 158, 56, 1824, 57, 58, 59, 60, 1269,
1988, 61, 62, 45, 1298, 566, 1992, 1553, 1556, 64,
1996, 52, 234, 1998, 1899, 56, 234, 57, 65, 595,
596, 597, 1901, 53, 234, 1458, 1161, 159, 1162, 234,
59, 60, 1385, 234, 61, 62, -1213, 552, 553, 916,
59, 190, 1398, 54, 61, 62, 1258, -32, 160, 161,
-49, 83, 66, 738, 90, 162, 1936, 611, 612, 624,
624, 88, 407, 163, 1752, 1227, 1732, -32, 1524, 1312,
-49, 1313, 918, 1268, 59, 60, 917, 722, 61, 62,
89, 1888, 59, 93, 738, 1085, 61, 62, 666, 667,
56, 91, 57, 58, 1122, 1123, 918, 94, -540, 59,
60, 97, 67, 61, 62, 1177, 1178, 1211, 190, 1635,
100, 1556, 919, 1276, 1277, 59, 60, 1256, 920, 61,
62, 807, 1272, 101, -32, 1459, 1270, -49, 1341, 1342,
217, 106, 63, 1263, 119, 738, 633, 1265, 1299, 1928,
1274, 1275, 825, 1279, 120, 1593, 1448, 1449, 921, 121,
68, 1291, 1677, 1678, 1860, 1861, 1668, 123, 1670, 1671,
56, 128, 57, 58, 747, 748, 134, 922, 1957, 1460,
924, 925, 131, 1311, 358, 135, 110, 1461, 852, -49,
136, 137, 138, 143, 738, 59, 60, 144, 1330, 61,
62, 923, 145, 152, 924, 925, 69, 148, 177, 752,
234, 926, 234, -32, 234, 56, -49, 57, 182, 1435,
806, 1435, 806, 806, 806, 174, 208, 183, 438, 209,
1465, 210, 212, 56, 211, 57, 58, 84, 219, 1550,
59, 60, 216, 221, 61, 62, 238, 241, 351, 1369,
410, 567, 352, 871, 410, 353, 356, -119, 59, 60,
354, -119, 61, 62, 111, 355, 112, -49, 64, -49,
1357, 364, -119, 1757, 365, 63, 371, 65, 1745, 378,
567, 379, 1747, 383, 250, 1748, 593, 594, 595, 596,
597, 1272, 1272, 389, 390, 872, 593, 594, 595, 596,
597, 420, 494, 1414, 496, 1420, 454, 455, 873, 499,
1633, 66, 874, 500, 501, -72, 509, 1718, 512, 513,
514, 1771, 518, 1029, 755, 1537, 755, 534, 516, 539,
541, 543, 567, 234, 546, 1040, 98, 564, 1069, 806,
806, 568, 1434, 570, 576, 587, 1047, 1821, 620, 627,
1823, 1844, 626, 1066, 628, 638, 234, 234, 630, 641,
1584, 67, 642, 643, 459, 1446, 1697, 651, 645, 71,
1468, 410, 567, 654, 672, 1097, 1469, 675, 677, 684,
681, 1877, 687, 1878, 703, 686, 439, 692, 1484, 696,
698, -580, 707, 59, 60, 1985, 709, 61, 62, 739,
742, 64, 744, 767, 1086, 795, 1780, 792, 812, 68,
65, 813, 821, 836, 831, 1698, 1506, 875, 464, 1507,
440, 839, 840, 841, 844, 441, 1647, 860, 806, 846,
1826, 591, 850, 592, 854, 867, 869, -688, 868, 1525,
-119, 884, 1595, 1921, 66, 940, 941, 949, 593, 594,
595, 596, 597, 725, 952, 69, 1272, 956, 1932, 591,
234, 592, -119, 598, 599, 600, 959, 983, 992, 1940,
993, 995, 994, 1002, 1004, 442, 593, 594, 595, 596,
597, 597, 1006, 1012, 1026, 1028, 1030, 1036, 1039, 1042,
1046, 598, 599, 600, 67, 1091, 1092, 1100, 876, 567,
1962, 1963, 1101, 567, 1078, 1965, 1105, 1103, 1109, 1107,
1828, 1113, 1114, 1116, 1119, 1130, 1889, 1201, 1132, 1203,
1136, 1761, 1163, 877, 1138, 1196, 59, 60, 878, 1189,
61, 62, 1215, 1216, 1218, 1065, 879, 1049, 1054, 1235,
1234, 1238, 68, 807, 1244, 65, 591, 1255, 1252, 1222,
1259, 1262, 1290, 1293, 410, 1301, 1320, 1303, 1307, -119,
1230, 1069, 1337, 1633, 1346, 56, 422, 57, 58, 1339,
1349, 1350, 1345, -117, 1384, 1358, 1316, 591, 1407, 66,
1907, 1908, 1065, 1386, 1065, 1065, 1378, 502, 69, 1387,
59, 60, 1396, 1783, 61, 62, 1391, 1250, 1413, 1423,
1411, 1424, 1909, 1425, 567, 1427, 410, 63, 1426, 1429,
1342, 1432, 1910, 1439, 880, 1441, 1452, 1453, 1479, 1491,
1911, 1500, 1521, 1516, 56, 422, 57, 58, 1484, 67,
1513, 1530, 1692, 1531, 1538, 1887, 1541, 1548, 1309, 601,
1551, 1589, 602, 1843, 1600, 1885, 1552, 603, 1615, 59,
60, 1627, 1585, 61, 62, 1628, 1642, 1637, 1652, 1656,
1658, 1659, 1709, 1666, 1588, 1689, 63, 601, 1605, 1720,
602, 1705, 1713, 1711, 604, 603, 1716, 68, 65, 1722,
503, 504, 1723, 1726, 1707, 1733, 1742, 1746, 1749, 1754,
234, 1762, 1767, 1774, 1065, 1781, 1731, 1776, 1065, 1785,
1834, 1065, 604, 1845, 1836, 1736, 1840, 1866, 1846, 1880,
1856, 1858, 66, 1879, 1881, 567, 1883, 567, 1893, 1892,
234, 1919, 234, 69, 1930, 1955, 1956, 1895, 1942, 1958,
1959, 1967, 1964, 64, 1975, 1984, 1380, 1065, 1978, 1980,
567, 1990, 65, 1994, 1991, 1997, 1760, 18, 1299, 1299,
693, 133, 218, 1912, 1264, 223, 688, 1913, 1914, 377,
1118, 1661, 67, 1065, 1875, 497, 1065, 1403, 1430, 567,
1662, 1898, 1784, 1097, 605, 961, 66, 1904, 778, 769,
1318, 1744, 234, 1915, 1669, 1306, 1148, 1931, 1017, 1443,
1463, 1464, 64, 1916, 1917, 1941, 913, 234, 1299, 914,
1725, 65, 605, 1125, 1544, 1728, 1995, 1779, 234, 200,
68, 529, 530, 1842, 1204, 1614, 1261, 1239, 1756, 1636,
-1215, 1511, -1215, -1215, 1758, 664, 67, 834, 1833, 843,
1076, 1717, 1025, 819, 1000, 66, 947, 1868, 574, 234,
234, 1871, 1872, 1873, 234, -1215, -1215, 423, 746, -1215,
-1215, 1164, 1472, 1590, 1409, 1406, 69, 1886, 1644, 1690,
648, 1641, -1215, 849, 1257, 1617, 989, 853, 1691, 386,
1837, 1961, 1715, 1830, 68, 1023, 1071, 1319, 127, 1082,
829, 1010, 242, 826, 1891, 67, 1419, 56, 422, 57,
58, 0, 0, 1503, 0, 1920, 0, 0, 0, 591,
0, 1900, 0, 71, 1906, 1902, 1903, 0, 1905, 0,
0, 0, 59, 60, 0, 0, 61, 62, 0, 56,
69, 57, 58, 424, 0, 1528, 0, 0, 0, 63,
0, 1933, 1934, 68, 0, 1935, 0, 0, 1945, 0,
0, 0, 0, 0, 59, 60, 0, 0, 61, 62,
0, 0, 0, 0, 0, 0, 0, 0, 0, 770,
0, 63, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 69,
1971, 1971, 424, 0, 1586, 0, 0, 0, -1215, 0,
0, 0, 1977, 0, -560, 195, 0, -1215, 0, 0,
71, 1979, 0, 196, 1603, 1604, 1971, 1971, 0, 0,
0, 0, 807, 1987, 807, 807, 807, 1623, 1989, 0,
0, -566, -566, 0, -566, 0, 0, 98, 1066, 0,
0, -1215, 0, 0, 1503, 0, -566, 0, -566, 0,
0, 1643, 0, 0, 1645, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 64, 0, 0, 0, 0,
0, 0, 0, 0, 65, 0, -566, 0, 0, -566,
-566, 0, 1664, 1665, -566, 1066, 0, 1066, 1066, -566,
0, -1215, 0, 0, 0, 0, 0, 64, -566, 0,
0, 0, 0, -566, 0, 0, 65, 0, 66, 0,
0, 0, 0, 0, 0, 0, 0, 0, -566, 0,
423, 0, 0, -566, 0, -566, 0, -1215, 0, -1215,
-1215, -560, 0, 0, 0, 0, 0, 0, 0, -1215,
66, 807, 807, 0, 0, 0, 0, 0, 0, 1503,
0, 0, -1215, -1215, 0, 0, -1215, -1215, 67, 0,
-566, 0, -566, 1623, 0, 0, 0, 0, 0, -1215,
0, 0, 0, 0, 572, 0, 0, 0, 0, -566,
0, 0, -566, -566, 0, -1215, 0, 0, -560, -566,
67, 0, -1215, 0, -566, 0, -566, 1066, -566, 0,
0, 1066, 0, 0, 1066, 0, 68, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, -1215,
0, 0, 0, -566, 0, 0, -566, 438, -566, 0,
807, 1623, 0, 0, 0, 0, 0, 0, 68, 0,
1066, 0, 0, 0, 0, 0, 56, -566, 57, 445,
0, 0, 69, -870, -870, 424, -870, 0, -566, 0,
0, 0, 0, 0, 0, 0, 1066, 1822, -870, 1066,
-870, 446, 60, 0, -566, 61, 62, 0, 0, 0,
0, 0, 0, 0, 69, 0, 0, 752, 63, -566,
-566, 0, 0, 0, -566, -1215, 0, 0, -870, 0,
0, -870, -870, -566, -1215, 0, -870, 0, 0, 0,
0, -870, -566, 0, 0, -566, 0, 0, 0, 0,
-870, 0, 0, 0, -566, -870, 0, 0, -566, -566,
-566, 0, 0, 0, 98, -566, -566, -566, -1215, 0,
-870, 0, 0, 0, 0, -870, 0, -870, 0, -566,
-566, 0, -870, 0, -870, -870, -870, 0, -870, -870,
-870, 0, -870, -870, -870, -870, 197, -870, -870, -870,
-870, -870, -870, -870, -870, -870, -870, 0, 0, 0,
0, 0, -870, 0, -870, 439, 0, 0, -1215, 0,
0, 0, 0, 0, 0, 0, -1215, 0, 0, 0,
0, -870, 0, 0, -870, -870, 0, 0, 1927, 0,
0, -870, 0, 0, 64, 0, -870, 0, -870, 440,
-870, 0, 0, 65, 441, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, -1215, 0, 0, 0,
0, 0, 0, 0, 0, -870, 0, 0, -870, 0,
-870, 0, 0, 0, 0, -870, -870, 66, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, -870,
0, 0, 0, 0, 442, 0, -1215, 0, 0, 0,
-870, 0, -1215, 1927, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, -870, 0, 0, 0,
0, 0, 438, 0, 0, 0, 0, 67, 0, 1927,
0, -870, -870, 0, 0, 1927, -870, 0, 0, 1927,
0, 0, 1927, 0, 0, -870, 0, 0, -869, -869,
0, -869, 0, 0, -870, 0, 0, -870, 0, 0,
0, 0, 0, -869, 0, -869, -870, 0, 0, 0,
-870, -870, -870, 0, 0, 68, 0, -870, -870, -870,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, -870, -870, -869, -1234, 0, -869, -869, 0, 0,
0, -869, 0, 0, -870, 0, -869, -1166, -870, 0,
0, 0, 0, 0, 0, -869, 0, -1166, 0, 358,
-869, 69, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, -869, 0, 0, 0, 0,
-869, 0, -869, 0, 0, 0, 0, -869, 0, -869,
-869, -869, 0, -869, -869, -869, 0, -869, -869, -869,
-869, 0, -869, -869, -869, -869, -869, -869, -869, -869,
-869, -869, 0, 0, 0, 0, 0, -869, 0, -869,
439, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 56, 422, 57, 58, 0, -869, 0, 0, -869,
-869, 0, 0, 0, 0, -963, -869, -963, -963, 0,
0, -869, 0, -869, 440, -869, 59, 60, 0, 441,
61, 62, 0, 56, 0, 57, 58, 0, 0, 0,
-963, -963, 0, 63, -963, -963, 0, 0, 0, 0,
-869, 0, 0, -869, 0, -869, 0, -963, 59, 60,
-869, -869, 61, 62, 56, 0, 57, 58, 0, 0,
-1215, 0, -1215, -1215, -869, 63, 0, 0, 56, 442,
57, 58, -963, -963, 56, -869, 57, 58, 0, 59,
60, 0, 0, 61, 62, -1215, -1215, 0, 0, -1215,
-1215, -869, 0, 59, 60, 0, 63, 61, 62, 59,
60, 0, -1215, 61, 62, 0, -869, -869, 0, 0,
63, -869, 0, 0, 0, 0, 63, 0, 0, 0,
-869, 0, 0, 0, 0, 0, 0, 0, 0, -869,
0, 0, -869, 0, 0, 0, 0, 0, 0, 0,
0, -869, 0, 0, 0, -869, -869, -869, 0, 0,
0, 433, -869, -869, -869, 0, 0, 0, 0, 64,
0, 0, 0, 0, 0, 396, -869, -869, 65, 0,
0, 484, 0, -963, 0, 0, 0, 0, 0, -869,
0, 0, -963, -869, 0, 0, 0, 0, 0, 0,
0, 64, 0, 0, 0, 0, 0, 0, 0, 0,
65, 0, 66, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 423, 0, -963, 0, 0, 0,
0, 0, 64, 0, 0, 0, 0, 0, -1215, 0,
56, 65, 57, 58, 66, 0, 64, -1215, 0, 0,
0, 0, 64, 548, 56, 65, 57, 58, 0, 0,
0, 65, 67, 0, 434, 59, 60, 0, 0, 61,
62, 0, 0, 0, 0, 66, -963, 98, 0, 59,
60, -1215, 63, 61, 62, 0, 0, 0, 0, 66,
0, 0, 0, 0, 67, 66, 63, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
68, 56, 0, 57, 58, 0, 0, 0, 0, 0,
0, 0, 0, 0, -963, 67, 0, 0, 0, 0,
0, -1215, 0, 0, 0, 0, 59, 60, 0, 67,
61, 62, 68, 0, 614, 67, 0, 0, 0, 0,
0, 0, 0, 63, 0, 0, 69, 0, 0, 424,
0, -1234, 0, 0, 0, 56, 0, 57, 58, 0,
-963, 0, 0, 68, -1166, 0, 0, 0, 735, -1215,
0, 0, 0, 0, -1166, 0, 358, 68, 69, 0,
59, 60, 0, 68, 61, 62, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 63, 64, 0,
0, 0, -1215, 0, -1215, -1215, 0, 65, 0, 69,
679, 0, 64, 0, 0, -1215, 0, 0, 0, 0,
0, 65, 0, 69, 0, 0, 0, -1215, -1215, 69,
0, -1215, -1215, 0, 56, 0, 57, 58, 0, 0,
0, 66, 0, 0, -1215, 0, 0, 0, 0, 0,
0, 0, 0, 0, 56, 66, 57, 58, 0, 59,
60, 0, 0, 61, 62, 0, 0, 856, 0, 64,
0, 0, 56, 0, 57, 58, 63, 0, 65, 59,
60, 0, 0, 61, 62, 0, 0, 0, 0, 0,
0, 67, 56, 0, 57, 58, 63, 59, 60, 0,
0, 61, 62, 0, 0, 67, 0, 0, 0, 0,
0, 0, 66, 0, 63, 0, 0, 59, 60, 854,
0, 61, 62, 64, 0, 56, 0, 57, 58, 0,
0, 0, 65, 0, 63, 0, 0, 0, 0, 68,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
59, 60, 0, 68, 61, 62, 0, 0, 56, 0,
57, 58, 67, 0, 0, 0, 66, 63, 0, 0,
-1215, 0, 0, 0, 0, 0, 0, 0, 0, -1215,
0, 0, 0, 59, 60, 69, 0, 61, 62, 0,
0, 0, 0, 0, 56, 0, 57, 58, 0, 69,
63, 0, 64, 0, 0, 0, 0, 0, 0, 98,
68, 65, 0, -1215, 0, 0, 67, 0, 0, 59,
60, 0, 64, 61, 62, -978, 0, -978, -978, 0,
0, 65, 0, 0, 0, 0, 402, 0, 0, 0,
64, 0, 0, 0, 0, 66, 0, 0, 0, 65,
-978, -978, 0, 1969, -978, -978, 69, 0, 0, 0,
64, 0, 0, -1215, 68, 66, 0, -978, 0, 65,
0, 0, 0, 0, 0, 0, 0, 0, 0, 1167,
0, 0, 0, 66, 0, 0, 1986, 0, 0, 0,
0, 0, 0, 64, 0, 67, 0, 0, 0, 0,
0, 0, 65, 66, 0, 0, 0, 0, 0, 0,
69, -1215, 0, 0, 0, 67, 0, 0, 1943, 0,
0, 0, 0, 0, 0, 0, 64, 0, 0, 0,
0, 0, 525, 67, 0, 65, 66, 0, 0, 0,
196, 0, 0, 68, 0, 0, 0, 0, 0, 0,
0, 0, 0, 67, 0, 0, 0, -1215, -578, -578,
0, -578, 64, 68, 0, 0, 0, 0, 0, 66,
0, 65, 0, -578, 0, -578, 0, 0, 0, 0,
0, 68, 0, 0, 0, 0, 67, 0, 0, 69,
0, 0, 0, -978, 0, 0, 0, 0, 0, 0,
0, 68, -978, -578, 0, 66, -578, -578, 0, 69,
0, -578, 0, 0, 0, 0, -578, 0, 0, 67,
0, 0, 0, 0, 0, -578, 0, 69, -1234, 0,
-578, 0, -1234, 0, 68, 0, -978, 0, 0, 0,
0, 0, 0, 0, 0, -578, 0, 69, 0, 0,
-578, 0, -578, 0, 0, 67, 0, 0, 526, 0,
0, 0, 0, 0, 0, 0, 0, 68, 0, 723,
0, -1234, -1234, 0, -1234, -1234, -1234, 0, 0, 0,
69, 0, 0, 0, 0, 0, -978, -578, 0, -578,
0, 0, 0, 0, 0, 0, 0, 0, 724, 0,
0, 0, 0, 68, 0, 0, -578, 0, 0, -578,
-578, 0, 0, 69, 0, 0, -578, 0, 0, 0,
0, -578, 0, -578, 0, -578, 0, 0, 0, 0,
0, 0, 0, 0, -978, 0, 725, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 84, 69,
-578, 0, 0, -578, 0, -578, 0, 0, 0, 0,
0, 0, -1234, 0, 0, -1236, 0, 0, 0, 0,
0, 0, 0, 0, -578, 0, 0, 0, 0, -1234,
-978, -1234, 1787, 0, 84, -578, 0, 0, 0, 0,
-1234, 963, 964, 0, 0, 965, 966, 0, 0, 0,
0, -578, 0, 0, 0, 1788, 1789, 0, -1234, 0,
0, 0, -1234, 0, 0, 0, -578, -578, 726, 0,
0, -578, 0, -1234, -1234, 0, 0, 1565, 1566, 0,
-578, 1567, 1568, 0, 1790, 0, -1234, -1234, 0, -578,
0, -1234, -578, 0, 0, 0, 0, 0, 0, 620,
0, -578, 0, 1569, 0, -578, -578, -578, 0, 0,
0, 0, -578, -578, -578, 0, 0, 0, 727, 0,
0, 0, 0, 0, 0, 0, -578, -578, 723, 0,
-1234, -1234, 967, -1234, -1234, -1234, 0, 0, 0, 0,
0, -1234, 0, 0, 0, 1791, -1234, 0, 0, 968,
0, 969, 0, 0, 0, 0, 0, 724, 0, -1234,
970, 0, 0, 0, 0, 1792, 0, -1234, 1570, 1793,
0, 0, 0, 0, 0, 1794, 1795, 0, 971, 0,
0, 0, -133, 0, 0, 1571, 0, 1572, 0, 0,
0, 0, 1796, 972, 973, 0, 1573, 0, -1234, 0,
0, -1234, 761, 0, 0, 0, 0, -1234, 0, -1234,
0, 0, 0, 0, 1574, 0, 0, 358, -133, 0,
0, -1234, 1797, 1787, 0, 0, 0, 0, 0, 1575,
1576, 0, 0, 0, 0, 0, 0, 0, -1234, 0,
-1234, 254, 255, 0, 256, 0, 1788, 1789, 0, -1234,
0, 0, 0, 0, 0, 0, 257, 0, 258, 0,
0, 974, 0, 0, 0, 0, 975, -1234, 0, 0,
0, -1234, 0, 0, 1798, 1790, 0, 726, 1799, 976,
0, 0, -1234, -1234, 0, 0, 259, 921, 0, 260,
261, 0, 1800, 0, 262, -1234, 0, 1577, 0, 263,
0, 0, 1578, 0, 0, 1801, 0, 1802, 264, 0,
0, 0, 0, 265, 0, 1579, 0, 1803, -133, 0,
1804, 977, 0, 921, 0, 0, 0, 727, 266, 978,
0, 0, 0, 267, 0, 268, 1791, 358, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-1234, 0, 0, 0, -133, -1234, 1792, 1580, 0, 0,
1793, 0, 0, 0, 0, 1581, 1794, 1795, -1234, 0,
269, 0, 270, 358, 0, 0, -1234, 0, 0, 0,
0, 0, 0, 1796, 0, 0, 0, 0, 0, 271,
0, 0, 272, 273, 0, 0, 0, 0, 0, 274,
254, 255, 0, 256, 275, 0, 276, -1234, 277, 0,
-1234, 0, 0, 1797, 0, 257, -1234, 258, -1234, 0,
0, 0, 0, 0, 0, 0, 358, 0, 0, 0,
0, 0, 0, 278, 0, 0, 279, 0, 280, 0,
0, 0, 0, 0, 0, 259, 0, 0, 260, 261,
0, 0, 0, 262, 0, 0, 0, 281, 263, 0,
0, 0, 0, 0, 0, 1798, 0, 264, 282, 1799,
0, 0, 265, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 1800, 283, 0, 0, 266, 0, 0,
0, 0, 267, 0, 268, 0, 1801, 0, 1802, 284,
285, 0, 0, 0, 286, 0, 0, 0, 1803, 0,
0, 1804, 0, 287, 0, 0, 0, 0, 1874, 0,
0, 0, 288, 0, 0, 289, 0, 0, 0, 269,
0, 270, 0, 0, 290, 0, 0, 0, 291, 292,
293, 0, 0, 0, 0, 294, 295, 296, 271, 0,
0, 272, 273, 0, 0, 0, 0, 0, 274, 297,
298, 0, 0, 275, 0, 276, 0, 277, 0, 0,
0, 0, 0, 0, 0, 0, 492, 0, 0, 0,
0, 254, 255, 0, 256, 0, 0, 0, 0, 0,
0, 0, 278, 0, 0, 279, 257, 280, 258, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 281, 0, 0, 0,
0, 0, 0, 0, 0, 0, 259, 282, 0, 260,
261, 0, 0, 0, 262, 0, 0, 0, 0, 263,
0, 0, 0, 283, 0, 0, 0, 0, 264, 0,
0, 0, 0, 265, 0, 0, 0, 0, 284, 285,
0, 0, 0, 286, 0, 0, 0, 0, 266, 0,
0, 0, 287, 267, 0, 268, 0, 0, 0, 0,
0, 288, 0, 0, 289, 0, 0, 0, 0, 0,
0, 0, 0, 290, 0, 0, 0, 291, 292, 293,
0, 0, 0, 0, 294, 295, 296, 0, 0, 0,
269, 0, 270, 0, 0, 0, 0, 0, 297, 298,
0, 0, 0, 0, 0, 0, 0, 0, 0, 271,
0, 0, 272, 273, 0, 942, 0, 0, 0, 274,
254, 255, 0, 256, 275, 0, 276, 0, 277, 0,
0, 0, 0, 0, 0, 257, 0, 258, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 278, 0, 0, 279, 0, 280, 0,
0, 1764, 0, 0, 0, 259, 0, 0, 260, 261,
0, 0, 0, 262, 0, 0, 0, 281, 263, 0,
0, 0, 0, 0, 0, 0, 0, 264, 282, 0,
0, 0, 265, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 283, 0, 0, 266, 0, 0,
0, 0, 267, 0, 268, 0, 0, 0, 0, 284,
285, 0, 0, 0, 286, 0, 0, 0, 0, 0,
0, 0, 0, 287, 0, 0, 0, 0, 0, 0,
0, 0, 288, 0, 0, 289, 0, 0, 0, 269,
0, 270, 0, 0, 290, 0, 0, 0, 291, 292,
293, 0, 0, 0, 0, 294, 295, 296, 271, 0,
0, 272, 273, 0, 0, 0, 0, 0, 274, 297,
298, 0, 0, 275, 0, 276, 0, 277, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 254, 255, 0, 256, 0, 0, 0, 0, 0,
0, 0, 278, 0, 0, 279, 257, 280, 258, 0,
1768, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 281, 0, 0, 0,
0, 0, 0, 0, 0, 0, 259, 282, 0, 260,
261, 0, 0, 0, 262, 0, 0, 0, 0, 263,
0, 0, 0, 283, 0, 0, 0, 0, 264, 0,
0, 0, 0, 265, 0, 0, 0, 0, 284, 285,
0, 0, 0, 286, 0, 0, 0, 0, 266, 0,
0, 0, 287, 267, 0, 268, 0, 0, 0, 0,
0, 288, 0, 0, 289, 0, 0, 0, 0, 0,
0, 0, 0, 290, 0, 0, 0, 291, 292, 293,
0, 0, 0, 0, 294, 295, 296, 0, 0, 0,
269, 0, 270, 0, 0, 0, 0, 0, 297, 298,
0, 0, 0, 0, 0, 0, 0, 0, 0, 271,
0, 0, 272, 273, 0, 0, 0, 0, 0, 274,
0, 0, 0, 0, 275, 0, 276, 0, 277, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 278, 0, 0, 279, 0, 280, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 281, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 282, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 283, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 284,
285, 0, 0, 0, 286, 0, 0, 0, 0, 0,
0, 0, 0, 287, 0, 0, 0, 0, 0, 0,
0, 0, 288, 0, 0, 289, 0, 0, 0, 0,
0, 0, 0, 0, 290, 0, 0, 0, 291, 292,
293, 0, 0, 0, 0, 294, 295, 296, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 297,
298
};
static const yytype_int16 yycheck[] =
{
47, 48, 48, 222, 361, 63, 180, 274, 288, 50,
288, 524, 827, 675, 925, 180, 289, 705, 965, 681,
443, 733, 874, 717, 209, 719, 720, 721, 432, 1349,
1048, 81, 282, 1028, 935, 862, 567, 627, 1, 753,
1050, 0, 1, 592, 812, 63, 57, 299, 793, 794,
20, 765, 99, 100, 6, 19, 8, 9, 81, 98,
20, 1432, 236, 88, 26, 184, 40, 41, 472, 473,
19, 236, 6, 199, 8, 9, 844, 213, 102, 126,
18, 24, 850, 18, 1498, 20, 169, 35, 36, 37,
38, 39, 61, 124, 31, 32, 20, 424, 20, 21,
147, 148, 187, 817, 111, 24, 851, 18, 259, 877,
878, 107, 50, 51, 52, 50, 51, 52, 5, 24,
161, 162, 9, 66, 77, 24, 6, 1, 8, 9,
61, 213, 187, 186, 548, 162, 6, 97, 8, 5,
544, 204, 683, 857, 191, 192, 193, 66, 71, 506,
161, 31, 32, 238, 240, 35, 36, 424, 26, 213,
16, 214, 86, 193, 223, 579, 122, 88, 127, 210,
211, 421, 213, 1948, 123, 216, 100, 101, 219, 756,
196, 657, 55, 238, 621, 465, 890, 460, 468, 35,
36, 895, 6, 240, 8, 9, 127, 213, 1973, 1974,
8, 176, 96, 162, 1618, 31, 1620, 1621, 359, 35,
36, 258, 1123, 260, 261, 1233, 630, 621, 229, 137,
267, 268, 407, 813, 1234, 184, 362, 664, 275, 275,
135, 317, 279, 280, 783, 282, 275, 296, 125, 566,
48, 790, 211, 792, 137, 292, 293, 294, 295, 154,
1077, 336, 205, 212, 581, 796, 833, 661, 952, 616,
664, 213, 956, 119, 137, 679, 593, 594, 595, 596,
597, 298, 1017, 196, 988, 271, 359, 340, 48, 241,
399, 336, 83, 365, 1655, 228, 405, 186, 226, 163,
155, 226, 157, 412, 229, 26, 234, 31, 229, 234,
166, 35, 36, 183, 263, 329, 359, 259, 362, 228,
232, 233, 287, 83, 581, 214, 355, 6, 229, 8,
9, 735, 281, 261, 354, 739, 261, 251, 359, 354,
341, 354, 689, 690, 227, 585, 1081, 217, 297, 298,
293, 1109, 31, 32, 402, 1759, 35, 36, 1, 396,
524, 398, 359, 6, 227, 8, 9, 404, 295, 544,
294, 231, 481, 31, 32, 841, 362, 35, 36, 338,
774, 948, 336, 241, 220, 274, 18, 1387, 31, 32,
48, 268, 35, 36, 402, 306, 433, 267, 640, 574,
353, 365, 362, 643, 213, 48, 446, 357, 168, 348,
727, 360, 528, 259, 917, 1232, 349, 359, 50, 51,
52, 1226, 258, 20, 293, 229, 1327, 365, 1319, 1320,
307, 61, 1249, 361, 1325, 752, 361, 241, 322, 323,
349, 550, 258, 1753, 204, 315, 62, 484, 362, 486,
358, 488, 856, 723, 362, 344, 1036, 1037, 24, 157,
569, 964, 317, 984, 359, 968, 708, 188, 210, 184,
359, 1471, 69, 1012, 791, 358, 793, 794, 77, 362,
1215, 272, 61, 1187, 35, 36, 37, 38, 39, 24,
87, 361, 108, 109, 0, 358, 1200, 127, 1202, 362,
204, 1509, 539, 227, 541, 176, 310, 151, 545, 1519,
107, 548, 1497, 93, 1499, 1500, 1501, 554, 1269, 1270,
867, 1225, 5, 632, 176, 183, 9, 396, 47, 61,
6, 174, 8, 9, 258, 775, 793, 794, 575, 61,
183, 578, 579, 583, 1259, 170, 65, 457, 70, 1253,
1254, 249, 231, 362, 223, 297, 9, 48, 733, 217,
239, 50, 241, 1879, 53, 54, 836, 824, 1089, 839,
840, 602, 1463, 227, 217, 1227, 157, 1394, 31, 195,
340, 152, 153, 31, 362, 760, 1301, 35, 36, 626,
627, 985, 83, 630, 226, 127, 248, 229, 1002, 9,
1004, 127, 234, 187, 210, 202, 205, 644, 262, 267,
205, 191, 209, 1116, 1624, 484, 358, 1120, 197, 154,
186, 31, 1630, 294, 267, 1128, 1942, 296, 538, 261,
1567, 1616, 1617, 232, 233, 1039, 340, 674, 186, 676,
205, 672, 679, 960, 961, 754, 31, 32, 214, 127,
35, 36, 1652, 278, 238, 686, 205, 315, 184, 1476,
241, 1478, 341, 48, 117, 197, 214, 842, 249, 700,
845, 702, 315, 9, 271, 839, 840, 852, 229, 265,
1201, 1028, 1203, 1434, 281, 282, 302, 1091, 1005, 211,
241, 297, 1407, 362, 293, 31, 1411, 229, 293, 254,
255, 256, 257, 361, 1021, 188, 815, 117, 263, 264,
819, 266, 1470, 204, 213, 213, 271, 122, 361, 160,
1705, 276, 277, 278, 172, 9, 297, 210, 293, 361,
285, 286, 127, 22, 289, 290, 177, 213, 1008, 107,
777, 296, 297, 298, 293, 234, 235, 31, 1005, 47,
229, 160, 358, 917, 300, 266, 271, 49, 355, 310,
213, 227, 241, 1465, 1789, 362, 55, 65, 177, 1163,
362, 9, 947, 19, 19, 241, 813, 23, 277, 277,
18, 6, 7, 8, 9, 1602, 1, 1545, 26, 184,
838, 122, 84, 276, 9, 16, 311, 312, 183, 20,
964, 1195, 1072, 213, 968, 1308, 31, 32, 263, 197,
35, 36, 1075, 105, 106, 362, 362, 363, 855, 347,
112, 1726, 1727, 48, 307, 4, 1851, 1852, 120, 357,
1588, 310, 217, 1, 10, 11, 12, 13, 6, 7,
8, 229, 230, 347, 1, 90, 67, 6, 5, 8,
1787, 122, 883, 357, 409, 1507, 253, 362, 34, 4,
891, 95, 169, 894, 895, 896, 11, 169, 265, 1686,
4, 1776, 31, 18, 181, 169, 1146, 45, 1556, 181,
0, 1, 267, 0, 1, 365, 366, 181, 5, 444,
921, 35, 36, 924, 1795, 1712, 241, 1714, 119, 1603,
1604, 6, 1719, 8, 249, 1073, 937, 1, 1076, 29,
300, 5, 29, 950, 1958, 6, 1186, 8, 9, 29,
1095, 1191, 1192, 1336, 1427, 1767, 6, 172, 8, 9,
315, 362, 49, 6, 1751, 8, 9, 31, 32, 33,
1984, 35, 36, 165, 5, 18, 1990, 1450, 1451, 174,
1994, 300, 1116, 1997, 1855, 6, 1120, 8, 183, 37,
38, 39, 1863, 300, 1128, 210, 155, 84, 157, 1133,
31, 32, 1229, 1137, 35, 36, 361, 73, 74, 200,
31, 366, 1245, 360, 35, 36, 1095, 107, 105, 106,
107, 362, 217, 548, 300, 112, 1897, 40, 41, 1036,
1037, 362, 557, 120, 1688, 1042, 1658, 127, 1402, 6,
127, 8, 257, 5, 31, 32, 237, 193, 35, 36,
362, 1838, 31, 31, 579, 1, 35, 36, 229, 230,
6, 212, 8, 9, 271, 272, 257, 31, 259, 31,
32, 9, 267, 35, 36, 152, 153, 365, 366, 1513,
364, 1554, 273, 58, 59, 31, 32, 1094, 279, 35,
36, 616, 1110, 218, 184, 310, 160, 184, 210, 211,
362, 362, 48, 1104, 362, 630, 631, 1108, 1126, 1884,
1111, 1112, 637, 1114, 300, 1479, 207, 208, 309, 281,
315, 1122, 152, 153, 20, 21, 1560, 364, 1562, 1563,
6, 113, 8, 9, 558, 559, 362, 328, 1925, 354,
355, 356, 265, 1144, 359, 362, 236, 362, 673, 236,
362, 362, 199, 362, 679, 31, 32, 300, 1159, 35,
36, 352, 297, 362, 355, 356, 361, 367, 362, 364,
1304, 362, 1306, 263, 1308, 6, 263, 8, 362, 1304,
1497, 1306, 1499, 1500, 1501, 303, 5, 300, 1, 5,
1335, 5, 309, 6, 5, 8, 9, 20, 5, 1439,
31, 32, 321, 244, 35, 36, 362, 365, 362, 1216,
735, 736, 362, 1, 739, 362, 265, 5, 31, 32,
362, 9, 35, 36, 314, 362, 316, 314, 174, 316,
1594, 5, 20, 22, 92, 48, 165, 183, 1672, 5,
765, 5, 1676, 269, 300, 1679, 35, 36, 37, 38,
39, 1269, 1270, 362, 362, 43, 35, 36, 37, 38,
39, 19, 126, 1264, 88, 1266, 339, 339, 56, 362,
1510, 217, 60, 362, 111, 362, 32, 1641, 32, 5,
5, 1715, 58, 808, 1363, 1430, 1365, 142, 330, 172,
172, 172, 817, 1427, 129, 820, 213, 133, 1432, 1616,
1617, 294, 1303, 271, 136, 364, 831, 1741, 241, 19,
1744, 1784, 238, 838, 139, 141, 1450, 1451, 71, 334,
1465, 267, 336, 22, 8, 1326, 1613, 145, 143, 1336,
1336, 856, 857, 238, 201, 860, 1337, 115, 148, 138,
115, 1814, 221, 1816, 5, 306, 159, 22, 1355, 97,
170, 362, 113, 31, 32, 1977, 47, 35, 36, 176,
131, 174, 354, 55, 310, 335, 1730, 40, 26, 315,
183, 19, 9, 357, 196, 1613, 1383, 165, 45, 1386,
193, 71, 71, 19, 26, 198, 1531, 196, 1705, 201,
1754, 18, 197, 20, 71, 55, 241, 227, 32, 1406,
188, 5, 1481, 1876, 217, 362, 362, 46, 35, 36,
37, 38, 39, 128, 32, 361, 1434, 321, 1891, 18,
1554, 20, 210, 50, 51, 52, 232, 157, 278, 1902,
278, 214, 289, 176, 176, 248, 35, 36, 37, 38,
39, 39, 358, 40, 107, 19, 280, 19, 176, 172,
336, 50, 51, 52, 267, 176, 48, 227, 246, 984,
1933, 1934, 5, 988, 146, 1938, 239, 321, 271, 221,
1757, 31, 321, 260, 5, 21, 1840, 1002, 238, 1004,
5, 1708, 263, 271, 358, 134, 31, 32, 276, 310,
35, 36, 40, 71, 170, 1513, 284, 127, 61, 144,
229, 127, 315, 1028, 124, 183, 18, 40, 259, 1034,
116, 304, 5, 5, 1039, 357, 22, 164, 361, 307,
1045, 1655, 201, 1763, 46, 6, 7, 8, 9, 150,
310, 155, 361, 321, 141, 46, 305, 18, 329, 217,
78, 79, 1560, 172, 1562, 1563, 354, 225, 361, 229,
31, 32, 187, 1732, 35, 36, 358, 1082, 5, 5,
104, 5, 100, 5, 1089, 19, 1091, 48, 307, 5,
211, 19, 110, 22, 362, 82, 177, 167, 229, 247,
118, 71, 147, 245, 6, 7, 8, 9, 1595, 267,
358, 5, 1599, 5, 310, 1835, 83, 14, 336, 226,
20, 229, 229, 1782, 132, 1832, 21, 234, 191, 31,
32, 141, 362, 35, 36, 347, 249, 263, 169, 117,
188, 15, 1629, 232, 197, 310, 48, 226, 55, 149,
229, 71, 1633, 41, 261, 234, 1637, 315, 183, 124,
318, 319, 61, 338, 263, 181, 19, 361, 46, 229,
1784, 347, 18, 249, 1672, 5, 1657, 70, 1676, 168,
304, 1679, 261, 118, 304, 1666, 117, 180, 203, 157,
189, 293, 217, 305, 130, 1200, 47, 1202, 169, 118,
1814, 119, 1816, 361, 5, 251, 227, 361, 305, 47,
172, 350, 251, 174, 251, 47, 1221, 1715, 141, 285,
1225, 47, 183, 47, 347, 47, 1707, 11, 1726, 1727,
510, 108, 165, 251, 1105, 175, 506, 255, 256, 227,
885, 1553, 267, 1741, 1805, 356, 1744, 1252, 1300, 1254,
1554, 1854, 1733, 1258, 361, 726, 217, 1868, 365, 161,
1154, 1669, 1876, 281, 1561, 1137, 922, 1890, 229, 1319,
1335, 1335, 174, 291, 292, 1903, 701, 1891, 1776, 701,
1650, 183, 361, 893, 1436, 1654, 1993, 1728, 1902, 153,
315, 387, 387, 1780, 1005, 1494, 1098, 1058, 1696, 1514,
6, 1392, 8, 9, 1699, 473, 267, 649, 1763, 661,
845, 1639, 802, 631, 760, 217, 710, 1798, 412, 1933,
1934, 1802, 1803, 1804, 1938, 31, 32, 229, 557, 35,
36, 947, 1338, 1474, 1258, 1255, 361, 1835, 1527, 1594,
458, 1523, 48, 669, 1095, 1496, 741, 674, 1595, 240,
1773, 1929, 1635, 1760, 315, 794, 840, 1155, 104, 851,
644, 777, 191, 641, 1845, 267, 1265, 6, 7, 8,
9, -1, -1, 1378, -1, 1873, -1, -1, -1, 18,
-1, 1862, -1, 1870, 1870, 1866, 1867, -1, 1869, -1,
-1, -1, 31, 32, -1, -1, 35, 36, -1, 6,
361, 8, 9, 364, -1, 1410, -1, -1, -1, 48,
-1, 1892, 1893, 315, -1, 1896, -1, -1, 1905, -1,
-1, -1, -1, -1, 31, 32, -1, -1, 35, 36,
-1, -1, -1, -1, -1, -1, -1, -1, -1, 341,
-1, 48, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, 361,
1947, 1948, 364, -1, 1469, -1, -1, -1, 174, -1,
-1, -1, 1959, -1, 0, 1, -1, 183, -1, -1,
1967, 1967, -1, 9, 1489, 1490, 1973, 1974, -1, -1,
-1, -1, 1497, 1980, 1499, 1500, 1501, 1502, 1985, -1,
-1, 27, 28, -1, 30, -1, -1, 213, 1513, -1,
-1, 217, -1, -1, 1519, -1, 42, -1, 44, -1,
-1, 1526, -1, -1, 1529, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, 174, -1, -1, -1, -1,
-1, -1, -1, -1, 183, -1, 72, -1, -1, 75,
76, -1, 1557, 1558, 80, 1560, -1, 1562, 1563, 85,
-1, 267, -1, -1, -1, -1, -1, 174, 94, -1,
-1, -1, -1, 99, -1, -1, 183, -1, 217, -1,
-1, -1, -1, -1, -1, -1, -1, -1, 114, -1,
229, -1, -1, 119, -1, 121, -1, 6, -1, 8,
9, 127, -1, -1, -1, -1, -1, -1, -1, 315,
217, 1616, 1617, -1, -1, -1, -1, -1, -1, 1624,
-1, -1, 31, 32, -1, -1, 35, 36, 267, -1,
156, -1, 158, 1638, -1, -1, -1, -1, -1, 48,
-1, -1, -1, -1, 350, -1, -1, -1, -1, 175,
-1, -1, 178, 179, -1, 361, -1, -1, 184, 185,
267, -1, 71, -1, 190, -1, 192, 1672, 194, -1,
-1, 1676, -1, -1, 1679, -1, 315, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, 98,
-1, -1, -1, 219, -1, -1, 222, 1, 224, -1,
1705, 1706, -1, -1, -1, -1, -1, -1, 315, -1,
1715, -1, -1, -1, -1, -1, 6, 243, 8, 9,
-1, -1, 361, 27, 28, 364, 30, -1, 254, -1,
-1, -1, -1, -1, -1, -1, 1741, 1742, 42, 1744,
44, 31, 32, -1, 270, 35, 36, -1, -1, -1,
-1, -1, -1, -1, 361, -1, -1, 364, 48, 285,
286, -1, -1, -1, 290, 174, -1, -1, 72, -1,
-1, 75, 76, 299, 183, -1, 80, -1, -1, -1,
-1, 85, 308, -1, -1, 311, -1, -1, -1, -1,
94, -1, -1, -1, 320, 99, -1, -1, 324, 325,
326, -1, -1, -1, 213, 331, 332, 333, 217, -1,
114, -1, -1, -1, -1, 119, -1, 121, -1, 345,
346, -1, 126, -1, 128, 129, 130, -1, 132, 133,
134, -1, 136, 137, 138, 139, 362, 141, 142, 143,
144, 145, 146, 147, 148, 149, 150, -1, -1, -1,
-1, -1, 156, -1, 158, 159, -1, -1, 267, -1,
-1, -1, -1, -1, -1, -1, 275, -1, -1, -1,
-1, 175, -1, -1, 178, 179, -1, -1, 1883, -1,
-1, 185, -1, -1, 174, -1, 190, -1, 192, 193,
194, -1, -1, 183, 198, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, 315, -1, -1, -1,
-1, -1, -1, -1, -1, 219, -1, -1, 222, -1,
224, -1, -1, -1, -1, 229, 230, 217, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, 243,
-1, -1, -1, -1, 248, -1, 355, -1, -1, -1,
254, -1, 361, 1958, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, 270, -1, -1, -1,
-1, -1, 1, -1, -1, -1, -1, 267, -1, 1984,
-1, 285, 286, -1, -1, 1990, 290, -1, -1, 1994,
-1, -1, 1997, -1, -1, 299, -1, -1, 27, 28,
-1, 30, -1, -1, 308, -1, -1, 311, -1, -1,
-1, -1, -1, 42, -1, 44, 320, -1, -1, -1,
324, 325, 326, -1, -1, 315, -1, 331, 332, 333,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, 345, 346, 72, 334, -1, 75, 76, -1, -1,
-1, 80, -1, -1, 358, -1, 85, 347, 362, -1,
-1, -1, -1, -1, -1, 94, -1, 357, -1, 359,
99, 361, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, 114, -1, -1, -1, -1,
119, -1, 121, -1, -1, -1, -1, 126, -1, 128,
129, 130, -1, 132, 133, 134, -1, 136, 137, 138,
139, -1, 141, 142, 143, 144, 145, 146, 147, 148,
149, 150, -1, -1, -1, -1, -1, 156, -1, 158,
159, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, 6, 7, 8, 9, -1, 175, -1, -1, 178,
179, -1, -1, -1, -1, 6, 185, 8, 9, -1,
-1, 190, -1, 192, 193, 194, 31, 32, -1, 198,
35, 36, -1, 6, -1, 8, 9, -1, -1, -1,
31, 32, -1, 48, 35, 36, -1, -1, -1, -1,
219, -1, -1, 222, -1, 224, -1, 48, 31, 32,
229, 230, 35, 36, 6, -1, 8, 9, -1, -1,
6, -1, 8, 9, 243, 48, -1, -1, 6, 248,
8, 9, 73, 74, 6, 254, 8, 9, -1, 31,
32, -1, -1, 35, 36, 31, 32, -1, -1, 35,
36, 270, -1, 31, 32, -1, 48, 35, 36, 31,
32, -1, 48, 35, 36, -1, 285, 286, -1, -1,
48, 290, -1, -1, -1, -1, 48, -1, -1, -1,
299, -1, -1, -1, -1, -1, -1, -1, -1, 308,
-1, -1, 311, -1, -1, -1, -1, -1, -1, -1,
-1, 320, -1, -1, -1, 324, 325, 326, -1, -1,
-1, 103, 331, 332, 333, -1, -1, -1, -1, 174,
-1, -1, -1, -1, -1, 103, 345, 346, 183, -1,
-1, 103, -1, 174, -1, -1, -1, -1, -1, 358,
-1, -1, 183, 362, -1, -1, -1, -1, -1, -1,
-1, 174, -1, -1, -1, -1, -1, -1, -1, -1,
183, -1, 217, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, 229, -1, 217, -1, -1, -1,
-1, -1, 174, -1, -1, -1, -1, -1, 174, -1,
6, 183, 8, 9, 217, -1, 174, 183, -1, -1,
-1, -1, 174, 19, 6, 183, 8, 9, -1, -1,
-1, 183, 267, -1, 206, 31, 32, -1, -1, 35,
36, -1, -1, -1, -1, 217, 267, 213, -1, 31,
32, 217, 48, 35, 36, -1, -1, -1, -1, 217,
-1, -1, -1, -1, 267, 217, 48, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
315, 6, -1, 8, 9, -1, -1, -1, -1, -1,
-1, -1, -1, -1, 315, 267, -1, -1, -1, -1,
-1, 267, -1, -1, -1, -1, 31, 32, -1, 267,
35, 36, 315, -1, 280, 267, -1, -1, -1, -1,
-1, -1, -1, 48, -1, -1, 361, -1, -1, 364,
-1, 334, -1, -1, -1, 6, -1, 8, 9, -1,
361, -1, -1, 315, 347, -1, -1, -1, 19, 315,
-1, -1, -1, -1, 357, -1, 359, 315, 361, -1,
31, 32, -1, 315, 35, 36, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, 48, 174, -1,
-1, -1, 6, -1, 8, 9, -1, 183, -1, 361,
172, -1, 174, -1, -1, 361, -1, -1, -1, -1,
-1, 183, -1, 361, -1, -1, -1, 31, 32, 361,
-1, 35, 36, -1, 6, -1, 8, 9, -1, -1,
-1, 217, -1, -1, 48, -1, -1, -1, -1, -1,
-1, -1, -1, -1, 6, 217, 8, 9, -1, 31,
32, -1, -1, 35, 36, -1, -1, 172, -1, 174,
-1, -1, 6, -1, 8, 9, 48, -1, 183, 31,
32, -1, -1, 35, 36, -1, -1, -1, -1, -1,
-1, 267, 6, -1, 8, 9, 48, 31, 32, -1,
-1, 35, 36, -1, -1, 267, -1, -1, -1, -1,
-1, -1, 217, -1, 48, -1, -1, 31, 32, 71,
-1, 35, 36, 174, -1, 6, -1, 8, 9, -1,
-1, -1, 183, -1, 48, -1, -1, -1, -1, 315,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
31, 32, -1, 315, 35, 36, -1, -1, 6, -1,
8, 9, 267, -1, -1, -1, 217, 48, -1, -1,
174, -1, -1, -1, -1, -1, -1, -1, -1, 183,
-1, -1, -1, 31, 32, 361, -1, 35, 36, -1,
-1, -1, -1, -1, 6, -1, 8, 9, -1, 361,
48, -1, 174, -1, -1, -1, -1, -1, -1, 213,
315, 183, -1, 217, -1, -1, 267, -1, -1, 31,
32, -1, 174, 35, 36, 6, -1, 8, 9, -1,
-1, 183, -1, -1, -1, -1, 48, -1, -1, -1,
174, -1, -1, -1, -1, 217, -1, -1, -1, 183,
31, 32, -1, 167, 35, 36, 361, -1, -1, -1,
174, -1, -1, 267, 315, 217, -1, 48, -1, 183,
-1, -1, -1, -1, -1, -1, -1, -1, -1, 251,
-1, -1, -1, 217, -1, -1, 167, -1, -1, -1,
-1, -1, -1, 174, -1, 267, -1, -1, -1, -1,
-1, -1, 183, 217, -1, -1, -1, -1, -1, -1,
361, 315, -1, -1, -1, 267, -1, -1, 252, -1,
-1, -1, -1, -1, -1, -1, 174, -1, -1, -1,
-1, -1, 1, 267, -1, 183, 217, -1, -1, -1,
9, -1, -1, 315, -1, -1, -1, -1, -1, -1,
-1, -1, -1, 267, -1, -1, -1, 361, 27, 28,
-1, 30, 174, 315, -1, -1, -1, -1, -1, 217,
-1, 183, -1, 42, -1, 44, -1, -1, -1, -1,
-1, 315, -1, -1, -1, -1, 267, -1, -1, 361,
-1, -1, -1, 174, -1, -1, -1, -1, -1, -1,
-1, 315, 183, 72, -1, 217, 75, 76, -1, 361,
-1, 80, -1, -1, -1, -1, 85, -1, -1, 267,
-1, -1, -1, -1, -1, 94, -1, 361, 20, -1,
99, -1, 24, -1, 315, -1, 217, -1, -1, -1,
-1, -1, -1, -1, -1, 114, -1, 361, -1, -1,
119, -1, 121, -1, -1, 267, -1, -1, 127, -1,
-1, -1, -1, -1, -1, -1, -1, 315, -1, 61,
-1, 63, 64, -1, 66, 67, 68, -1, -1, -1,
361, -1, -1, -1, -1, -1, 267, 156, -1, 158,
-1, -1, -1, -1, -1, -1, -1, -1, 90, -1,
-1, -1, -1, 315, -1, -1, 175, -1, -1, 178,
179, -1, -1, 361, -1, -1, 185, -1, -1, -1,
-1, 190, -1, 192, -1, 194, -1, -1, -1, -1,
-1, -1, -1, -1, 315, -1, 128, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, 20, 361,
219, -1, -1, 222, -1, 224, -1, -1, -1, -1,
-1, -1, 154, -1, -1, 157, -1, -1, -1, -1,
-1, -1, -1, -1, 243, -1, -1, -1, -1, 171,
361, 173, 67, -1, 20, 254, -1, -1, -1, -1,
182, 63, 64, -1, -1, 67, 68, -1, -1, -1,
-1, 270, -1, -1, -1, 90, 91, -1, 200, -1,
-1, -1, 204, -1, -1, -1, 285, 286, 210, -1,
-1, 290, -1, 215, 216, -1, -1, 63, 64, -1,
299, 67, 68, -1, 119, -1, 228, 20, -1, 308,
-1, 24, 311, -1, -1, -1, -1, -1, -1, 241,
-1, 320, -1, 89, -1, 324, 325, 326, -1, -1,
-1, -1, 331, 332, 333, -1, -1, -1, 260, -1,
-1, -1, -1, -1, -1, -1, 345, 346, 61, -1,
63, 64, 154, 66, 67, 68, -1, -1, -1, -1,
-1, 283, -1, -1, -1, 180, 288, -1, -1, 171,
-1, 173, -1, -1, -1, -1, -1, 90, -1, 301,
182, -1, -1, -1, -1, 200, -1, 309, 154, 204,
-1, -1, -1, -1, -1, 210, 211, -1, 200, -1,
-1, -1, 204, -1, -1, 171, -1, 173, -1, -1,
-1, -1, 227, 215, 216, -1, 182, -1, 340, -1,
-1, 343, 135, -1, -1, -1, -1, 349, -1, 351,
-1, -1, -1, -1, 200, -1, -1, 359, 204, -1,
-1, 154, 257, 67, -1, -1, -1, -1, -1, 215,
216, -1, -1, -1, -1, -1, -1, -1, 171, -1,
173, 27, 28, -1, 30, -1, 90, 91, -1, 182,
-1, -1, -1, -1, -1, -1, 42, -1, 44, -1,
-1, 283, -1, -1, -1, -1, 288, 200, -1, -1,
-1, 204, -1, -1, 309, 119, -1, 210, 313, 301,
-1, -1, 215, 216, -1, -1, 72, 309, -1, 75,
76, -1, 327, -1, 80, 228, -1, 283, -1, 85,
-1, -1, 288, -1, -1, 340, -1, 342, 94, -1,
-1, -1, -1, 99, -1, 301, -1, 352, 340, -1,
355, 343, -1, 309, -1, -1, -1, 260, 114, 351,
-1, -1, -1, 119, -1, 121, 180, 359, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
283, -1, -1, -1, 340, 288, 200, 343, -1, -1,
204, -1, -1, -1, -1, 351, 210, 211, 301, -1,
156, -1, 158, 359, -1, -1, 309, -1, -1, -1,
-1, -1, -1, 227, -1, -1, -1, -1, -1, 175,
-1, -1, 178, 179, -1, -1, -1, -1, -1, 185,
27, 28, -1, 30, 190, -1, 192, 340, 194, -1,
343, -1, -1, 257, -1, 42, 349, 44, 351, -1,
-1, -1, -1, -1, -1, -1, 359, -1, -1, -1,
-1, -1, -1, 219, -1, -1, 222, -1, 224, -1,
-1, -1, -1, -1, -1, 72, -1, -1, 75, 76,
-1, -1, -1, 80, -1, -1, -1, 243, 85, -1,
-1, -1, -1, -1, -1, 309, -1, 94, 254, 313,
-1, -1, 99, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, 327, 270, -1, -1, 114, -1, -1,
-1, -1, 119, -1, 121, -1, 340, -1, 342, 285,
286, -1, -1, -1, 290, -1, -1, -1, 352, -1,
-1, 355, -1, 299, -1, -1, -1, -1, 362, -1,
-1, -1, 308, -1, -1, 311, -1, -1, -1, 156,
-1, 158, -1, -1, 320, -1, -1, -1, 324, 325,
326, -1, -1, -1, -1, 331, 332, 333, 175, -1,
-1, 178, 179, -1, -1, -1, -1, -1, 185, 345,
346, -1, -1, 190, -1, 192, -1, 194, -1, -1,
-1, -1, -1, -1, -1, -1, 362, -1, -1, -1,
-1, 27, 28, -1, 30, -1, -1, -1, -1, -1,
-1, -1, 219, -1, -1, 222, 42, 224, 44, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, 243, -1, -1, -1,
-1, -1, -1, -1, -1, -1, 72, 254, -1, 75,
76, -1, -1, -1, 80, -1, -1, -1, -1, 85,
-1, -1, -1, 270, -1, -1, -1, -1, 94, -1,
-1, -1, -1, 99, -1, -1, -1, -1, 285, 286,
-1, -1, -1, 290, -1, -1, -1, -1, 114, -1,
-1, -1, 299, 119, -1, 121, -1, -1, -1, -1,
-1, 308, -1, -1, 311, -1, -1, -1, -1, -1,
-1, -1, -1, 320, -1, -1, -1, 324, 325, 326,
-1, -1, -1, -1, 331, 332, 333, -1, -1, -1,
156, -1, 158, -1, -1, -1, -1, -1, 345, 346,
-1, -1, -1, -1, -1, -1, -1, -1, -1, 175,
-1, -1, 178, 179, -1, 362, -1, -1, -1, 185,
27, 28, -1, 30, 190, -1, 192, -1, 194, -1,
-1, -1, -1, -1, -1, 42, -1, 44, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, 219, -1, -1, 222, -1, 224, -1,
-1, 227, -1, -1, -1, 72, -1, -1, 75, 76,
-1, -1, -1, 80, -1, -1, -1, 243, 85, -1,
-1, -1, -1, -1, -1, -1, -1, 94, 254, -1,
-1, -1, 99, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, 270, -1, -1, 114, -1, -1,
-1, -1, 119, -1, 121, -1, -1, -1, -1, 285,
286, -1, -1, -1, 290, -1, -1, -1, -1, -1,
-1, -1, -1, 299, -1, -1, -1, -1, -1, -1,
-1, -1, 308, -1, -1, 311, -1, -1, -1, 156,
-1, 158, -1, -1, 320, -1, -1, -1, 324, 325,
326, -1, -1, -1, -1, 331, 332, 333, 175, -1,
-1, 178, 179, -1, -1, -1, -1, -1, 185, 345,
346, -1, -1, 190, -1, 192, -1, 194, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, 27, 28, -1, 30, -1, -1, -1, -1, -1,
-1, -1, 219, -1, -1, 222, 42, 224, 44, -1,
227, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, 243, -1, -1, -1,
-1, -1, -1, -1, -1, -1, 72, 254, -1, 75,
76, -1, -1, -1, 80, -1, -1, -1, -1, 85,
-1, -1, -1, 270, -1, -1, -1, -1, 94, -1,
-1, -1, -1, 99, -1, -1, -1, -1, 285, 286,
-1, -1, -1, 290, -1, -1, -1, -1, 114, -1,
-1, -1, 299, 119, -1, 121, -1, -1, -1, -1,
-1, 308, -1, -1, 311, -1, -1, -1, -1, -1,
-1, -1, -1, 320, -1, -1, -1, 324, 325, 326,
-1, -1, -1, -1, 331, 332, 333, -1, -1, -1,
156, -1, 158, -1, -1, -1, -1, -1, 345, 346,
-1, -1, -1, -1, -1, -1, -1, -1, -1, 175,
-1, -1, 178, 179, -1, -1, -1, -1, -1, 185,
-1, -1, -1, -1, 190, -1, 192, -1, 194, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, 219, -1, -1, 222, -1, 224, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, 243, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, 254, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, 270, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, 285,
286, -1, -1, -1, 290, -1, -1, -1, -1, -1,
-1, -1, -1, 299, -1, -1, -1, -1, -1, -1,
-1, -1, 308, -1, -1, 311, -1, -1, -1, -1,
-1, -1, -1, -1, 320, -1, -1, -1, 324, 325,
326, -1, -1, -1, -1, 331, 332, 333, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, 345,
346
};
/* YYSTOS[STATE-NUM] -- The symbol kind of the accessing symbol of
state STATE-NUM. */
static const yytype_int16 yystos[] =
{
0, 184, 369, 370, 371, 375, 376, 122, 0, 375,
127, 372, 373, 151, 384, 362, 373, 265, 371, 375,
122, 107, 451, 266, 374, 373, 375, 362, 122, 263,
614, 362, 4, 385, 362, 122, 377, 95, 386, 452,
615, 4, 300, 29, 417, 165, 453, 81, 354, 904,
378, 362, 300, 300, 360, 455, 6, 8, 9, 31,
32, 35, 36, 48, 174, 183, 217, 267, 315, 361,
957, 958, 962, 963, 964, 965, 968, 969, 977, 979,
981, 982, 957, 362, 20, 380, 432, 387, 362, 362,
300, 212, 457, 31, 31, 965, 968, 9, 213, 943,
364, 218, 187, 238, 950, 616, 362, 93, 191, 1,
236, 314, 316, 388, 1, 163, 418, 419, 454, 362,
300, 281, 459, 364, 958, 958, 980, 981, 113, 621,
379, 265, 381, 381, 362, 362, 362, 362, 199, 420,
1, 543, 456, 362, 300, 297, 518, 959, 367, 958,
983, 984, 362, 617, 382, 390, 389, 1, 49, 84,
105, 106, 112, 120, 395, 396, 397, 398, 400, 403,
404, 405, 406, 412, 303, 421, 422, 362, 162, 298,
612, 458, 362, 300, 908, 909, 958, 954, 958, 365,
366, 942, 35, 36, 622, 1, 9, 362, 618, 619,
632, 633, 62, 108, 109, 195, 302, 383, 5, 5,
5, 5, 309, 399, 432, 432, 321, 362, 397, 5,
407, 244, 430, 422, 223, 296, 437, 438, 439, 440,
442, 544, 547, 551, 969, 985, 613, 460, 362, 365,
943, 365, 984, 958, 958, 1, 9, 627, 632, 620,
300, 362, 363, 634, 27, 28, 30, 42, 44, 72,
75, 76, 80, 85, 94, 99, 114, 119, 121, 156,
158, 175, 178, 179, 185, 190, 192, 194, 219, 222,
224, 243, 254, 270, 285, 286, 290, 299, 308, 311,
320, 324, 325, 326, 331, 332, 333, 345, 346, 636,
637, 638, 639, 643, 644, 663, 694, 695, 696, 697,
698, 699, 700, 701, 706, 707, 711, 724, 725, 730,
733, 737, 740, 743, 746, 747, 748, 749, 754, 755,
756, 766, 770, 776, 778, 795, 797, 802, 805, 808,
812, 815, 822, 825, 830, 831, 833, 844, 850, 852,
885, 362, 362, 362, 362, 362, 265, 391, 359, 394,
952, 432, 432, 432, 5, 92, 432, 432, 5, 166,
971, 165, 271, 311, 312, 441, 362, 439, 5, 5,
970, 971, 551, 269, 461, 519, 909, 623, 628, 362,
362, 779, 977, 977, 977, 977, 103, 734, 835, 958,
816, 958, 48, 958, 826, 771, 772, 977, 731, 834,
977, 977, 757, 958, 744, 958, 645, 253, 265, 977,
19, 955, 7, 229, 364, 897, 931, 958, 975, 957,
977, 977, 977, 103, 206, 958, 741, 958, 1, 159,
193, 198, 248, 767, 768, 9, 31, 911, 924, 928,
929, 952, 958, 986, 339, 339, 777, 977, 977, 8,
48, 671, 972, 1, 45, 450, 845, 846, 849, 975,
979, 8, 972, 977, 810, 977, 31, 32, 295, 832,
1, 880, 881, 958, 103, 738, 835, 958, 958, 977,
977, 977, 362, 637, 126, 640, 88, 392, 393, 362,
362, 111, 225, 318, 319, 413, 414, 415, 963, 32,
401, 402, 32, 5, 5, 423, 330, 446, 58, 447,
545, 548, 552, 462, 520, 1, 127, 624, 625, 627,
633, 1, 353, 629, 142, 793, 227, 262, 780, 172,
799, 172, 796, 172, 764, 835, 129, 736, 19, 735,
958, 943, 73, 74, 821, 823, 958, 943, 274, 344,
773, 774, 775, 952, 133, 732, 18, 977, 294, 836,
271, 947, 350, 758, 764, 943, 136, 745, 71, 196,
648, 649, 9, 31, 813, 814, 986, 364, 931, 897,
931, 18, 20, 35, 36, 37, 38, 39, 50, 51,
52, 226, 229, 234, 261, 361, 936, 937, 938, 939,
941, 40, 41, 664, 280, 726, 102, 329, 887, 888,
241, 713, 715, 953, 958, 978, 238, 19, 139, 742,
71, 768, 769, 977, 950, 950, 347, 357, 141, 635,
636, 334, 336, 22, 923, 143, 794, 947, 799, 675,
972, 145, 693, 672, 238, 517, 979, 19, 123, 348,
979, 714, 716, 953, 713, 197, 229, 230, 873, 874,
876, 878, 201, 196, 943, 115, 835, 148, 739, 172,
958, 115, 854, 641, 138, 669, 306, 221, 415, 22,
55, 416, 22, 402, 408, 424, 97, 608, 170, 448,
579, 580, 553, 5, 521, 985, 626, 113, 636, 47,
947, 958, 47, 65, 800, 930, 958, 10, 11, 12,
13, 34, 193, 61, 90, 128, 210, 260, 753, 761,
762, 763, 765, 952, 953, 19, 834, 958, 977, 176,
943, 958, 131, 824, 354, 899, 772, 448, 448, 24,
186, 214, 364, 897, 836, 943, 806, 96, 322, 323,
759, 135, 760, 958, 958, 834, 958, 55, 646, 161,
341, 651, 897, 931, 117, 213, 986, 976, 365, 365,
19, 23, 946, 229, 939, 897, 897, 897, 897, 897,
432, 932, 40, 934, 933, 335, 670, 50, 53, 54,
234, 235, 727, 728, 729, 961, 963, 977, 889, 886,
702, 715, 26, 19, 958, 956, 978, 834, 958, 769,
943, 9, 9, 31, 914, 977, 930, 912, 986, 924,
958, 196, 781, 803, 693, 676, 357, 678, 849, 71,
71, 19, 712, 716, 26, 708, 201, 944, 809, 876,
197, 432, 977, 881, 71, 951, 172, 834, 958, 951,
196, 665, 666, 667, 432, 963, 963, 55, 32, 241,
409, 1, 43, 56, 60, 165, 246, 271, 276, 284,
362, 425, 426, 427, 5, 443, 444, 1, 5, 449,
69, 87, 107, 202, 209, 271, 281, 282, 355, 362,
432, 581, 583, 584, 585, 586, 587, 588, 589, 590,
595, 362, 582, 584, 587, 67, 200, 237, 257, 273,
279, 309, 328, 352, 355, 356, 362, 432, 537, 540,
554, 557, 561, 568, 570, 571, 574, 605, 463, 970,
362, 362, 362, 155, 157, 317, 630, 781, 798, 46,
945, 753, 32, 753, 753, 753, 321, 31, 979, 232,
512, 512, 897, 63, 64, 67, 68, 154, 171, 173,
182, 200, 215, 216, 283, 288, 301, 343, 351, 432,
536, 537, 952, 157, 834, 229, 837, 953, 834, 899,
900, 827, 278, 278, 289, 214, 897, 837, 943, 873,
760, 952, 176, 837, 176, 650, 358, 652, 953, 986,
983, 939, 40, 939, 897, 898, 939, 229, 897, 931,
935, 940, 941, 935, 665, 728, 107, 611, 19, 977,
280, 891, 392, 720, 944, 978, 19, 943, 837, 176,
977, 931, 172, 928, 347, 357, 336, 977, 61, 127,
229, 783, 786, 873, 61, 679, 948, 979, 673, 231,
239, 241, 341, 848, 960, 968, 977, 966, 967, 969,
979, 966, 849, 719, 952, 944, 719, 875, 146, 811,
944, 229, 940, 879, 952, 1, 310, 882, 958, 834,
837, 176, 48, 855, 861, 856, 857, 977, 642, 635,
227, 5, 963, 321, 411, 239, 410, 221, 434, 271,
955, 944, 944, 31, 321, 432, 260, 445, 444, 5,
608, 432, 271, 272, 603, 603, 432, 432, 608, 432,
21, 433, 238, 546, 160, 177, 5, 549, 358, 607,
205, 293, 559, 985, 575, 555, 558, 432, 559, 432,
433, 160, 177, 204, 340, 572, 573, 962, 432, 465,
522, 155, 157, 263, 775, 952, 873, 251, 958, 753,
753, 897, 897, 985, 210, 297, 607, 152, 153, 985,
205, 293, 24, 66, 228, 349, 750, 836, 953, 310,
837, 176, 287, 902, 903, 828, 134, 807, 24, 154,
834, 977, 834, 977, 651, 653, 137, 358, 362, 647,
979, 365, 939, 941, 897, 40, 71, 961, 170, 892,
703, 717, 977, 978, 978, 834, 915, 958, 913, 920,
977, 786, 787, 948, 229, 144, 804, 677, 127, 679,
231, 847, 979, 720, 124, 718, 972, 720, 635, 877,
977, 851, 259, 836, 834, 40, 958, 879, 943, 116,
858, 669, 304, 432, 411, 432, 944, 1, 5, 33,
160, 428, 968, 973, 432, 432, 58, 59, 431, 432,
5, 9, 188, 210, 276, 307, 435, 987, 985, 985,
5, 432, 433, 5, 596, 240, 317, 604, 5, 968,
974, 357, 985, 164, 550, 551, 550, 361, 19, 336,
606, 432, 6, 8, 556, 979, 305, 538, 538, 942,
22, 16, 119, 259, 569, 86, 100, 101, 251, 362,
432, 466, 467, 468, 472, 523, 953, 201, 782, 150,
801, 210, 211, 470, 471, 361, 46, 979, 837, 310,
155, 839, 979, 979, 817, 901, 864, 953, 46, 152,
153, 297, 837, 836, 837, 836, 654, 655, 941, 958,
895, 890, 48, 83, 168, 204, 340, 894, 354, 705,
977, 837, 928, 951, 141, 931, 172, 229, 635, 786,
948, 358, 686, 687, 680, 674, 187, 949, 972, 709,
635, 862, 863, 977, 837, 837, 861, 329, 860, 857,
949, 104, 859, 5, 432, 125, 268, 307, 436, 987,
432, 973, 973, 5, 5, 5, 307, 19, 598, 5,
471, 949, 19, 602, 432, 551, 985, 562, 576, 22,
560, 82, 539, 573, 962, 962, 432, 433, 207, 208,
473, 464, 177, 167, 477, 19, 90, 172, 210, 310,
354, 362, 530, 571, 574, 952, 631, 768, 957, 432,
197, 229, 783, 788, 789, 791, 751, 839, 840, 229,
818, 905, 906, 951, 958, 829, 157, 249, 866, 277,
277, 247, 658, 659, 656, 47, 65, 48, 83, 204,
71, 893, 723, 977, 704, 916, 958, 958, 948, 785,
688, 687, 635, 358, 681, 682, 245, 610, 193, 354,
721, 147, 883, 869, 953, 958, 949, 853, 977, 949,
5, 5, 985, 83, 272, 597, 591, 952, 310, 841,
967, 83, 609, 973, 606, 26, 565, 566, 14, 577,
979, 20, 21, 985, 479, 480, 985, 478, 533, 525,
532, 524, 529, 531, 962, 63, 64, 67, 68, 89,
154, 171, 173, 182, 200, 215, 216, 283, 288, 301,
343, 351, 535, 537, 952, 362, 977, 944, 197, 229,
791, 635, 635, 953, 819, 943, 98, 275, 355, 907,
132, 843, 865, 977, 977, 55, 662, 665, 57, 161,
229, 341, 661, 668, 658, 191, 896, 896, 961, 895,
961, 961, 961, 977, 176, 248, 722, 141, 347, 951,
784, 786, 691, 979, 685, 960, 682, 263, 723, 710,
871, 878, 249, 977, 862, 977, 429, 952, 61, 211,
592, 594, 169, 172, 600, 601, 117, 944, 188, 15,
578, 470, 480, 970, 977, 977, 232, 542, 960, 542,
960, 960, 527, 210, 297, 607, 528, 152, 153, 526,
205, 293, 24, 66, 228, 349, 790, 944, 752, 310,
864, 906, 958, 635, 837, 837, 660, 897, 975, 657,
961, 961, 895, 895, 895, 71, 723, 263, 917, 958,
786, 41, 689, 432, 683, 938, 432, 722, 953, 870,
149, 884, 124, 61, 593, 594, 338, 948, 602, 967,
563, 432, 951, 181, 469, 481, 432, 35, 36, 220,
258, 541, 19, 534, 541, 960, 361, 960, 960, 46,
635, 792, 753, 838, 229, 867, 661, 22, 662, 961,
432, 931, 347, 692, 227, 635, 690, 18, 227, 635,
684, 960, 910, 986, 249, 635, 70, 974, 974, 609,
953, 5, 567, 971, 432, 168, 476, 67, 90, 91,
119, 180, 200, 204, 210, 211, 227, 257, 309, 313,
327, 340, 342, 352, 355, 482, 483, 484, 490, 491,
493, 494, 495, 496, 497, 498, 499, 502, 507, 508,
513, 960, 977, 960, 635, 839, 953, 820, 897, 895,
910, 918, 921, 691, 304, 955, 304, 923, 872, 974,
117, 599, 958, 971, 985, 118, 203, 475, 607, 77,
205, 232, 233, 293, 500, 500, 189, 509, 293, 514,
20, 21, 232, 233, 501, 433, 180, 492, 432, 503,
504, 432, 432, 432, 362, 483, 258, 985, 985, 305,
157, 130, 842, 47, 925, 931, 968, 979, 635, 953,
564, 432, 118, 169, 474, 361, 500, 500, 501, 433,
432, 433, 432, 432, 513, 432, 957, 78, 79, 100,
110, 118, 251, 255, 256, 281, 291, 292, 485, 119,
968, 985, 227, 241, 539, 868, 926, 977, 928, 922,
5, 566, 985, 432, 432, 432, 433, 227, 258, 516,
985, 576, 305, 252, 506, 958, 505, 489, 488, 169,
181, 169, 181, 169, 181, 251, 227, 635, 47, 172,
919, 925, 985, 985, 251, 985, 539, 350, 510, 167,
515, 958, 515, 487, 486, 251, 926, 958, 141, 957,
285, 511, 515, 515, 47, 951, 167, 958, 926, 958,
47, 347, 926, 927, 47, 931, 926, 47, 926
};
/* YYR1[RULE-NUM] -- Symbol kind of the left-hand side of rule RULE-NUM. */
static const yytype_int16 yyr1[] =
{
0, 368, 369, 370, 370, 370, 371, 372, 371, 371,
374, 373, 375, 377, 378, 379, 376, 380, 380, 380,
381, 381, 382, 382, 383, 383, 383, 383, 383, 385,
384, 384, 386, 386, 387, 387, 389, 388, 390, 388,
388, 388, 391, 391, 392, 393, 393, 394, 394, 395,
395, 395, 396, 396, 397, 397, 397, 397, 397, 397,
397, 398, 399, 399, 400, 401, 401, 402, 402, 403,
404, 405, 406, 406, 408, 407, 409, 409, 410, 410,
411, 411, 412, 413, 413, 413, 413, 414, 414, 415,
415, 415, 416, 416, 417, 417, 418, 418, 419, 420,
420, 421, 421, 423, 422, 424, 424, 425, 425, 425,
425, 425, 425, 425, 425, 425, 426, 426, 427, 427,
428, 428, 428, 428, 428, 429, 429, 430, 430, 431,
431, 431, 432, 432, 433, 433, 434, 434, 435, 435,
435, 435, 435, 436, 436, 436, 436, 437, 437, 438,
438, 439, 439, 440, 441, 441, 441, 441, 442, 443,
443, 444, 445, 445, 446, 446, 447, 447, 448, 448,
449, 449, 449, 450, 450, 450, 452, 451, 451, 454,
453, 453, 456, 455, 455, 458, 457, 457, 459, 459,
460, 460, 462, 463, 464, 461, 465, 465, 466, 466,
466, 466, 467, 468, 469, 469, 470, 470, 471, 471,
472, 472, 473, 473, 473, 474, 474, 475, 475, 476,
476, 477, 477, 478, 478, 479, 479, 481, 480, 482,
482, 483, 483, 483, 483, 483, 483, 483, 483, 483,
483, 483, 484, 485, 485, 486, 485, 485, 487, 485,
485, 485, 485, 485, 488, 485, 485, 489, 485, 485,
485, 490, 490, 492, 491, 493, 493, 494, 495, 496,
496, 496, 496, 497, 497, 497, 497, 498, 499, 499,
499, 499, 500, 500, 500, 500, 501, 501, 501, 503,
502, 502, 504, 505, 502, 506, 506, 507, 507, 508,
509, 509, 510, 510, 511, 511, 511, 512, 512, 513,
513, 514, 514, 515, 515, 516, 516, 516, 517, 517,
519, 518, 518, 520, 520, 522, 521, 524, 523, 525,
523, 523, 526, 523, 527, 523, 528, 523, 523, 523,
523, 529, 523, 523, 531, 530, 532, 530, 533, 530,
534, 534, 535, 535, 535, 535, 535, 535, 535, 535,
535, 535, 535, 535, 535, 535, 535, 535, 535, 535,
535, 535, 535, 535, 535, 535, 536, 536, 536, 536,
536, 536, 536, 536, 536, 536, 536, 536, 536, 536,
536, 536, 536, 536, 536, 536, 536, 536, 536, 536,
536, 536, 537, 537, 538, 538, 539, 539, 540, 540,
541, 541, 541, 541, 541, 542, 542, 544, 545, 546,
543, 547, 548, 549, 543, 543, 543, 550, 550, 552,
551, 553, 553, 553, 555, 554, 556, 556, 557, 557,
557, 557, 557, 557, 557, 557, 557, 557, 558, 557,
559, 559, 559, 560, 560, 562, 561, 563, 564, 561,
565, 565, 566, 566, 567, 567, 568, 569, 569, 569,
570, 571, 571, 572, 572, 573, 573, 575, 574, 576,
576, 577, 578, 578, 579, 579, 580, 580, 581, 581,
581, 581, 581, 581, 581, 581, 581, 581, 582, 582,
583, 584, 584, 585, 586, 587, 588, 589, 590, 591,
591, 592, 592, 593, 593, 594, 594, 594, 594, 595,
595, 596, 596, 597, 597, 597, 598, 598, 599, 599,
600, 600, 601, 601, 602, 602, 603, 603, 604, 604,
605, 605, 606, 606, 607, 607, 608, 608, 609, 609,
610, 610, 611, 611, 612, 612, 613, 613, 615, 616,
614, 614, 617, 617, 618, 618, 619, 618, 620, 618,
618, 622, 621, 621, 623, 623, 624, 624, 625, 624,
626, 624, 628, 627, 627, 629, 629, 630, 630, 630,
630, 631, 631, 632, 633, 634, 634, 635, 636, 636,
637, 637, 637, 637, 637, 637, 637, 637, 637, 637,
637, 637, 637, 637, 637, 637, 637, 637, 637, 637,
637, 637, 637, 637, 637, 637, 637, 637, 637, 637,
637, 637, 637, 637, 637, 637, 637, 637, 637, 637,
637, 637, 637, 638, 640, 639, 641, 642, 639, 643,
643, 645, 646, 644, 647, 647, 649, 648, 650, 648,
651, 651, 651, 651, 653, 654, 652, 655, 656, 657,
652, 659, 658, 660, 658, 658, 661, 661, 661, 661,
661, 661, 662, 662, 664, 663, 666, 665, 667, 665,
668, 668, 669, 669, 670, 670, 672, 673, 674, 671,
676, 677, 675, 678, 678, 680, 679, 679, 681, 681,
683, 682, 684, 684, 685, 686, 686, 688, 689, 687,
690, 690, 691, 691, 692, 691, 693, 693, 694, 695,
695, 696, 696, 697, 698, 699, 700, 700, 702, 703,
704, 701, 705, 706, 706, 708, 709, 710, 707, 712,
711, 713, 713, 714, 714, 715, 716, 717, 717, 718,
718, 719, 719, 720, 720, 721, 721, 722, 722, 723,
723, 724, 724, 724, 724, 725, 725, 726, 726, 727,
727, 728, 729, 729, 729, 729, 729, 730, 730, 731,
732, 732, 733, 733, 734, 734, 734, 735, 735, 736,
736, 737, 737, 738, 738, 738, 739, 739, 740, 740,
741, 741, 742, 742, 743, 743, 744, 744, 744, 744,
744, 745, 745, 746, 746, 746, 746, 747, 747, 747,
747, 747, 748, 749, 750, 751, 752, 749, 753, 753,
754, 754, 754, 755, 756, 757, 757, 758, 758, 758,
759, 759, 759, 759, 759, 759, 760, 760, 761, 762,
762, 763, 763, 764, 764, 765, 765, 765, 765, 766,
766, 767, 767, 768, 768, 768, 768, 768, 769, 769,
770, 770, 771, 771, 772, 773, 773, 774, 774, 774,
774, 774, 775, 775, 775, 776, 776, 777, 777, 778,
778, 779, 779, 779, 780, 780, 780, 781, 781, 782,
782, 783, 783, 783, 784, 783, 785, 783, 787, 786,
788, 788, 788, 790, 789, 792, 791, 793, 793, 794,
794, 795, 796, 796, 798, 797, 799, 799, 800, 800,
800, 801, 801, 803, 802, 804, 804, 806, 805, 807,
807, 809, 808, 810, 810, 811, 811, 812, 812, 813,
814, 814, 814, 816, 817, 818, 819, 820, 815, 815,
821, 821, 821, 823, 822, 822, 824, 824, 826, 827,
828, 829, 825, 825, 830, 830, 830, 831, 831, 832,
832, 833, 834, 834, 835, 835, 836, 836, 837, 837,
837, 838, 837, 840, 839, 841, 841, 842, 842, 843,
843, 844, 845, 845, 845, 845, 846, 846, 847, 847,
848, 848, 848, 848, 848, 849, 849, 851, 850, 853,
852, 854, 854, 855, 855, 856, 856, 857, 858, 858,
859, 859, 860, 860, 861, 861, 863, 862, 865, 864,
864, 866, 866, 868, 867, 867, 870, 869, 869, 872,
871, 871, 873, 873, 873, 873, 875, 874, 877, 876,
878, 878, 879, 879, 880, 880, 880, 881, 881, 882,
882, 882, 883, 883, 884, 884, 886, 885, 885, 887,
888, 888, 889, 889, 890, 890, 890, 890, 891, 891,
892, 892, 892, 893, 893, 894, 894, 894, 894, 895,
895, 895, 896, 896, 897, 897, 897, 897, 897, 897,
897, 898, 898, 899, 900, 901, 899, 902, 902, 902,
903, 904, 904, 904, 905, 905, 906, 906, 907, 907,
907, 908, 908, 909, 910, 911, 912, 913, 911, 914,
915, 916, 911, 917, 918, 919, 911, 911, 920, 911,
911, 921, 922, 911, 923, 923, 924, 924, 925, 925,
925, 925, 925, 925, 925, 927, 926, 929, 928, 930,
930, 932, 931, 931, 933, 931, 934, 931, 931, 931,
935, 935, 935, 936, 936, 936, 937, 937, 937, 937,
938, 938, 938, 938, 938, 938, 939, 939, 939, 940,
940, 940, 941, 942, 942, 943, 943, 944, 944, 945,
945, 946, 946, 946, 947, 947, 948, 948, 949, 949,
950, 950, 951, 951, 952, 952, 953, 953, 954, 954,
955, 955, 956, 956, 957, 957, 958, 958, 959, 958,
958, 960, 960, 961, 961, 962, 962, 963, 963, 964,
964, 965, 965, 965, 965, 965, 966, 966, 967, 968,
968, 969, 969, 969, 970, 970, 971, 971, 972, 973,
973, 974, 974, 976, 975, 975, 977, 977, 977, 978,
979, 980, 979, 981, 981, 982, 982, 983, 983, 984,
984, 984, 985, 986, 986, 986, 986, 986, 987, 987
};
/* YYR2[RULE-NUM] -- Number of symbols on the right-hand side of rule RULE-NUM. */
static const yytype_int8 yyr2[] =
{
0, 2, 1, 1, 1, 2, 2, 0, 4, 3,
0, 4, 4, 0, 0, 0, 12, 0, 3, 3,
0, 1, 0, 2, 2, 2, 2, 2, 2, 0,
6, 0, 4, 0, 2, 0, 0, 6, 0, 6,
3, 1, 2, 0, 4, 1, 0, 3, 0, 0,
2, 1, 1, 2, 1, 1, 1, 1, 1, 1,
1, 4, 1, 0, 4, 1, 2, 1, 3, 3,
4, 3, 0, 2, 0, 6, 4, 0, 4, 0,
1, 0, 4, 1, 1, 1, 1, 1, 2, 1,
3, 2, 2, 3, 4, 0, 2, 1, 3, 0,
3, 1, 2, 0, 6, 2, 0, 3, 3, 4,
4, 4, 4, 6, 3, 1, 1, 0, 1, 0,
1, 1, 2, 2, 1, 2, 0, 1, 0, 1,
1, 0, 1, 0, 1, 0, 1, 0, 1, 1,
1, 2, 1, 1, 1, 1, 1, 0, 2, 1,
2, 1, 1, 5, 0, 1, 1, 1, 5, 1,
2, 2, 0, 2, 1, 0, 1, 0, 1, 0,
1, 2, 1, 1, 2, 1, 0, 9, 0, 0,
5, 0, 0, 5, 0, 0, 5, 0, 4, 0,
2, 0, 0, 0, 0, 8, 0, 2, 2, 2,
1, 1, 3, 8, 0, 3, 1, 1, 0, 1,
2, 2, 0, 2, 2, 0, 3, 0, 4, 0,
4, 0, 1, 0, 2, 1, 2, 0, 5, 1,
2, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 3, 2, 2, 0, 4, 1, 0, 4,
2, 2, 1, 1, 0, 3, 1, 0, 3, 1,
1, 5, 3, 0, 4, 3, 1, 2, 4, 5,
4, 2, 3, 2, 3, 3, 2, 2, 3, 4,
4, 3, 0, 1, 1, 1, 0, 1, 1, 0,
4, 3, 0, 0, 6, 1, 1, 0, 2, 3,
0, 1, 0, 2, 0, 2, 2, 0, 1, 1,
1, 0, 1, 1, 1, 1, 2, 2, 1, 0,
0, 5, 0, 2, 0, 0, 5, 0, 6, 0,
6, 3, 0, 5, 0, 5, 0, 5, 2, 3,
2, 0, 4, 0, 0, 3, 0, 4, 0, 3,
0, 2, 2, 2, 2, 2, 1, 2, 1, 1,
1, 1, 1, 2, 2, 1, 1, 1, 1, 1,
3, 2, 2, 3, 1, 1, 2, 2, 2, 2,
1, 2, 1, 1, 1, 1, 1, 2, 2, 1,
1, 1, 1, 1, 3, 2, 2, 3, 1, 1,
2, 2, 3, 3, 2, 0, 1, 0, 2, 1,
1, 1, 1, 1, 0, 2, 0, 0, 0, 0,
9, 0, 0, 0, 9, 1, 0, 1, 2, 0,
5, 0, 2, 2, 0, 3, 1, 1, 1, 1,
1, 1, 1, 2, 2, 2, 2, 3, 0, 4,
0, 1, 1, 0, 2, 0, 5, 0, 0, 11,
4, 0, 4, 0, 1, 2, 3, 1, 1, 1,
2, 2, 2, 1, 3, 1, 3, 0, 4, 0,
2, 2, 0, 1, 0, 2, 0, 2, 2, 2,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
5, 5, 9, 3, 5, 3, 2, 3, 7, 0,
4, 0, 3, 0, 3, 0, 1, 2, 1, 2,
2, 1, 2, 0, 1, 1, 0, 2, 0, 3,
0, 2, 1, 0, 0, 2, 2, 2, 1, 1,
0, 1, 0, 1, 0, 1, 0, 1, 0, 1,
0, 1, 0, 1, 2, 0, 0, 2, 0, 0,
8, 0, 0, 2, 1, 1, 0, 3, 0, 3,
1, 0, 8, 0, 0, 2, 1, 1, 0, 3,
0, 3, 0, 3, 1, 7, 1, 1, 1, 2,
2, 1, 1, 3, 2, 1, 1, 1, 1, 2,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 2, 0, 3, 0, 0, 6, 3,
4, 0, 0, 6, 1, 1, 0, 2, 0, 4,
1, 1, 1, 1, 0, 0, 5, 0, 0, 0,
7, 0, 2, 0, 4, 1, 1, 1, 1, 2,
4, 2, 0, 1, 0, 5, 0, 2, 0, 3,
0, 1, 0, 1, 0, 1, 0, 0, 0, 7,
0, 0, 5, 2, 0, 0, 4, 0, 1, 2,
0, 4, 1, 2, 3, 1, 2, 0, 0, 5,
1, 2, 5, 5, 0, 4, 0, 1, 2, 2,
3, 2, 2, 2, 2, 2, 2, 2, 0, 0,
0, 9, 2, 1, 1, 0, 0, 0, 10, 0,
6, 1, 2, 1, 2, 4, 4, 1, 2, 1,
2, 0, 4, 0, 1, 4, 2, 4, 2, 1,
2, 4, 5, 6, 3, 3, 1, 0, 2, 1,
2, 4, 1, 1, 1, 1, 1, 3, 1, 4,
0, 1, 3, 1, 4, 5, 6, 0, 2, 0,
1, 3, 1, 4, 6, 6, 0, 1, 3, 1,
6, 4, 0, 1, 3, 1, 6, 9, 9, 6,
4, 0, 1, 1, 1, 1, 1, 5, 6, 5,
5, 6, 5, 4, 0, 0, 0, 11, 0, 1,
1, 1, 1, 5, 4, 1, 3, 2, 2, 2,
0, 4, 3, 4, 4, 4, 0, 1, 3, 3,
2, 2, 2, 0, 2, 2, 1, 1, 1, 2,
1, 2, 3, 1, 1, 1, 1, 1, 1, 3,
2, 1, 1, 3, 2, 1, 1, 3, 1, 1,
3, 3, 2, 3, 0, 3, 1, 3, 4, 3,
1, 6, 7, 7, 0, 1, 1, 0, 2, 0,
3, 3, 2, 1, 0, 6, 0, 5, 0, 3,
1, 1, 2, 0, 4, 0, 5, 0, 1, 0,
1, 3, 0, 2, 0, 7, 0, 2, 0, 4,
3, 0, 1, 0, 6, 0, 1, 0, 6, 0,
1, 0, 5, 1, 5, 0, 1, 3, 6, 1,
1, 2, 3, 0, 0, 0, 0, 0, 13, 1,
0, 1, 1, 0, 4, 1, 1, 0, 0, 0,
0, 0, 9, 1, 1, 2, 2, 2, 2, 1,
1, 1, 3, 4, 2, 3, 0, 1, 0, 4,
3, 0, 8, 0, 3, 0, 1, 0, 1, 0,
1, 2, 4, 4, 4, 5, 1, 1, 1, 1,
1, 1, 1, 1, 1, 0, 2, 0, 8, 0,
10, 3, 0, 2, 4, 1, 3, 3, 0, 3,
0, 3, 0, 3, 0, 1, 0, 3, 0, 4,
0, 1, 1, 0, 5, 0, 0, 4, 0, 0,
5, 0, 1, 1, 2, 0, 0, 4, 0, 5,
1, 1, 3, 0, 1, 3, 1, 1, 4, 1,
1, 1, 0, 1, 0, 1, 0, 5, 3, 5,
2, 0, 4, 0, 3, 4, 4, 0, 2, 0,
5, 3, 0, 5, 0, 1, 1, 1, 1, 4,
4, 0, 1, 0, 1, 3, 3, 3, 3, 3,
3, 0, 1, 0, 0, 0, 5, 0, 2, 2,
0, 0, 2, 2, 3, 1, 1, 3, 1, 1,
1, 3, 1, 1, 2, 2, 0, 0, 6, 0,
0, 0, 8, 0, 0, 0, 15, 2, 0, 6,
4, 0, 0, 14, 0, 2, 0, 3, 0, 2,
4, 6, 8, 10, 12, 0, 8, 0, 2, 1,
1, 0, 4, 2, 0, 4, 0, 4, 3, 1,
1, 2, 1, 1, 1, 1, 1, 1, 1, 1,
2, 3, 4, 1, 3, 3, 1, 1, 1, 1,
2, 3, 2, 0, 1, 0, 1, 0, 1, 0,
1, 0, 1, 1, 0, 1, 0, 1, 0, 1,
1, 1, 0, 1, 0, 1, 0, 1, 1, 0,
0, 1, 1, 3, 1, 3, 1, 1, 0, 6,
2, 1, 1, 1, 1, 1, 1, 1, 1, 2,
2, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 2, 2, 1, 0, 1, 1, 1, 1,
1, 1, 1, 0, 5, 1, 6, 1, 1, 1,
1, 0, 5, 1, 3, 1, 1, 1, 3, 1,
3, 3, 1, 3, 1, 1, 3, 3, 1, 1
};
enum { YYENOMEM = -2 };
#define yyerrok (yyerrstatus = 0)
#define yyclearin (yychar = YYEMPTY)
#define YYACCEPT goto yyacceptlab
#define YYABORT goto yyabortlab
#define YYERROR goto yyerrorlab
#define YYNOMEM goto yyexhaustedlab
#define YYRECOVERING() (!!yyerrstatus)
#define YYBACKUP(Token, Value) \
do \
if (yychar == YYEMPTY) \
{ \
yychar = (Token); \
yylval = (Value); \
YYPOPSTACK (yylen); \
yystate = *yyssp; \
goto yybackup; \
} \
else \
{ \
yyerror (YY_("syntax error: cannot back up")); \
YYERROR; \
} \
while (0)
/* Backward compatibility with an undocumented macro.
Use YYerror or YYUNDEF. */
#define YYERRCODE YYUNDEF
/* Enable debugging if requested. */
#if YYDEBUG
# ifndef YYFPRINTF
# include /* INFRINGES ON USER NAME SPACE */
# define YYFPRINTF fprintf
# endif
# define YYDPRINTF(Args) \
do { \
if (yydebug) \
YYFPRINTF Args; \
} while (0)
# define YY_SYMBOL_PRINT(Title, Kind, Value, Location) \
do { \
if (yydebug) \
{ \
YYFPRINTF (stderr, "%s ", Title); \
yy_symbol_print (stderr, \
Kind, Value); \
YYFPRINTF (stderr, "\n"); \
} \
} while (0)
/*-----------------------------------.
| Print this symbol's value on YYO. |
`-----------------------------------*/
static void
yy_symbol_value_print (FILE *yyo,
yysymbol_kind_t yykind, YYSTYPE const * const yyvaluep)
{
FILE *yyoutput = yyo;
YY_USE (yyoutput);
if (!yyvaluep)
return;
YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
YY_USE (yykind);
YY_IGNORE_MAYBE_UNINITIALIZED_END
}
/*---------------------------.
| Print this symbol on YYO. |
`---------------------------*/
static void
yy_symbol_print (FILE *yyo,
yysymbol_kind_t yykind, YYSTYPE const * const yyvaluep)
{
YYFPRINTF (yyo, "%s %s (",
yykind < YYNTOKENS ? "token" : "nterm", yysymbol_name (yykind));
yy_symbol_value_print (yyo, yykind, yyvaluep);
YYFPRINTF (yyo, ")");
}
/*------------------------------------------------------------------.
| yy_stack_print -- Print the state stack from its BOTTOM up to its |
| TOP (included). |
`------------------------------------------------------------------*/
static void
yy_stack_print (yy_state_t *yybottom, yy_state_t *yytop)
{
YYFPRINTF (stderr, "Stack now");
for (; yybottom <= yytop; yybottom++)
{
int yybot = *yybottom;
YYFPRINTF (stderr, " %d", yybot);
}
YYFPRINTF (stderr, "\n");
}
# define YY_STACK_PRINT(Bottom, Top) \
do { \
if (yydebug) \
yy_stack_print ((Bottom), (Top)); \
} while (0)
/*------------------------------------------------.
| Report that the YYRULE is going to be reduced. |
`------------------------------------------------*/
static void
yy_reduce_print (yy_state_t *yyssp, YYSTYPE *yyvsp,
int yyrule)
{
int yylno = yyrline[yyrule];
int yynrhs = yyr2[yyrule];
int yyi;
YYFPRINTF (stderr, "Reducing stack by rule %d (line %d):\n",
yyrule - 1, yylno);
/* The symbols being reduced. */
for (yyi = 0; yyi < yynrhs; yyi++)
{
YYFPRINTF (stderr, " $%d = ", yyi + 1);
yy_symbol_print (stderr,
YY_ACCESSING_SYMBOL (+yyssp[yyi + 1 - yynrhs]),
&yyvsp[(yyi + 1) - (yynrhs)]);
YYFPRINTF (stderr, "\n");
}
}
# define YY_REDUCE_PRINT(Rule) \
do { \
if (yydebug) \
yy_reduce_print (yyssp, yyvsp, Rule); \
} while (0)
/* Nonzero means print parse trace. It is left uninitialized so that
multiple parsers can coexist. */
int yydebug;
#else /* !YYDEBUG */
# define YYDPRINTF(Args) ((void) 0)
# define YY_SYMBOL_PRINT(Title, Kind, Value, Location)
# define YY_STACK_PRINT(Bottom, Top)
# define YY_REDUCE_PRINT(Rule)
#endif /* !YYDEBUG */
/* YYINITDEPTH -- initial size of the parser's stacks. */
#ifndef YYINITDEPTH
# define YYINITDEPTH 200
#endif
/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only
if the built-in stack extension method is used).
Do not make this value too large; the results are undefined if
YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH)
evaluated with infinite-precision integer arithmetic. */
#ifndef YYMAXDEPTH
# define YYMAXDEPTH 10000
#endif
/*-----------------------------------------------.
| Release the memory associated to this symbol. |
`-----------------------------------------------*/
static void
yydestruct (const char *yymsg,
yysymbol_kind_t yykind, YYSTYPE *yyvaluep)
{
YY_USE (yyvaluep);
if (!yymsg)
yymsg = "Deleting";
YY_SYMBOL_PRINT (yymsg, yykind, yyvaluep, yylocationp);
YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
YY_USE (yykind);
YY_IGNORE_MAYBE_UNINITIALIZED_END
}
/* Lookahead token kind. */
int yychar;
/* The semantic value of the lookahead symbol. */
YYSTYPE yylval;
/* Number of syntax errors so far. */
int yynerrs;
/*----------.
| yyparse. |
`----------*/
int
yyparse (void)
{
yy_state_fast_t yystate = 0;
/* Number of tokens to shift before error messages enabled. */
int yyerrstatus = 0;
/* Refer to the stacks through separate pointers, to allow yyoverflow
to reallocate them elsewhere. */
/* Their size. */
YYPTRDIFF_T yystacksize = YYINITDEPTH;
/* The state stack: array, bottom, top. */
yy_state_t yyssa[YYINITDEPTH];
yy_state_t *yyss = yyssa;
yy_state_t *yyssp = yyss;
/* The semantic value stack: array, bottom, top. */
YYSTYPE yyvsa[YYINITDEPTH];
YYSTYPE *yyvs = yyvsa;
YYSTYPE *yyvsp = yyvs;
int yyn;
/* The return value of yyparse. */
int yyresult;
/* Lookahead symbol kind. */
yysymbol_kind_t yytoken = YYSYMBOL_YYEMPTY;
/* The variables used to return semantic value and location from the
action routines. */
YYSTYPE yyval;
#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;
YYDPRINTF ((stderr, "Starting parse\n"));
yychar = YYEMPTY; /* Cause a token to be read. */
goto yysetstate;
/*------------------------------------------------------------.
| yynewstate -- push a new state, which is found in yystate. |
`------------------------------------------------------------*/
yynewstate:
/* In all cases, when you get here, the value and location stacks
have just been pushed. So pushing a state here evens the stacks. */
yyssp++;
/*--------------------------------------------------------------------.
| yysetstate -- set current state (the top of the stack) to yystate. |
`--------------------------------------------------------------------*/
yysetstate:
YYDPRINTF ((stderr, "Entering state %d\n", yystate));
YY_ASSERT (0 <= yystate && yystate < YYNSTATES);
YY_IGNORE_USELESS_CAST_BEGIN
*yyssp = YY_CAST (yy_state_t, yystate);
YY_IGNORE_USELESS_CAST_END
YY_STACK_PRINT (yyss, yyssp);
if (yyss + yystacksize - 1 <= yyssp)
#if !defined yyoverflow && !defined YYSTACK_RELOCATE
YYNOMEM;
#else
{
/* Get the current used size of the three stacks, in elements. */
YYPTRDIFF_T yysize = yyssp - yyss + 1;
# if defined yyoverflow
{
/* Give user a chance to reallocate the stack. Use copies of
these so that the &'s don't force the real ones into
memory. */
yy_state_t *yyss1 = yyss;
YYSTYPE *yyvs1 = yyvs;
/* Each stack pointer address is followed by the size of the
data in use in that stack, in bytes. This used to be a
conditional around just the two extra args, but that might
be undefined if yyoverflow is a macro. */
yyoverflow (YY_("memory exhausted"),
&yyss1, yysize * YYSIZEOF (*yyssp),
&yyvs1, yysize * YYSIZEOF (*yyvsp),
&yystacksize);
yyss = yyss1;
yyvs = yyvs1;
}
# else /* defined YYSTACK_RELOCATE */
/* Extend the stack our own way. */
if (YYMAXDEPTH <= yystacksize)
YYNOMEM;
yystacksize *= 2;
if (YYMAXDEPTH < yystacksize)
yystacksize = YYMAXDEPTH;
{
yy_state_t *yyss1 = yyss;
union yyalloc *yyptr =
YY_CAST (union yyalloc *,
YYSTACK_ALLOC (YY_CAST (YYSIZE_T, YYSTACK_BYTES (yystacksize))));
if (! yyptr)
YYNOMEM;
YYSTACK_RELOCATE (yyss_alloc, yyss);
YYSTACK_RELOCATE (yyvs_alloc, yyvs);
# undef YYSTACK_RELOCATE
if (yyss1 != yyssa)
YYSTACK_FREE (yyss1);
}
# endif
yyssp = yyss + yysize - 1;
yyvsp = yyvs + yysize - 1;
YY_IGNORE_USELESS_CAST_BEGIN
YYDPRINTF ((stderr, "Stack size increased to %ld\n",
YY_CAST (long, yystacksize)));
YY_IGNORE_USELESS_CAST_END
if (yyss + yystacksize - 1 <= yyssp)
YYABORT;
}
#endif /* !defined yyoverflow && !defined YYSTACK_RELOCATE */
if (yystate == YYFINAL)
YYACCEPT;
goto yybackup;
/*-----------.
| yybackup. |
`-----------*/
yybackup:
/* Do appropriate processing given the current state. Read a
lookahead token if we need one and don't already have one. */
/* First try to decide what to do without reference to lookahead token. */
yyn = yypact[yystate];
if (yypact_value_is_default (yyn))
goto yydefault;
/* Not known => get a lookahead token if don't already have one. */
/* YYCHAR is either empty, or end-of-input, or a valid lookahead. */
if (yychar == YYEMPTY)
{
YYDPRINTF ((stderr, "Reading a token\n"));
yychar = yylex ();
}
if (yychar <= YYEOF)
{
yychar = YYEOF;
yytoken = YYSYMBOL_YYEOF;
YYDPRINTF ((stderr, "Now at end of input.\n"));
}
else if (yychar == YYerror)
{
/* The scanner already issued an error message, process directly
to error recovery. But do not keep the error token as
lookahead, it is too special and may lead us to an endless
loop in error recovery. */
yychar = YYUNDEF;
yytoken = YYSYMBOL_YYerror;
goto yyerrlab1;
}
else
{
yytoken = YYTRANSLATE (yychar);
YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc);
}
/* If the proper action on seeing token YYTOKEN is to reduce or to
detect an error, take that action. */
yyn += yytoken;
if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)
goto yydefault;
yyn = yytable[yyn];
if (yyn <= 0)
{
if (yytable_value_is_error (yyn))
goto yyerrlab;
yyn = -yyn;
goto yyreduce;
}
/* Count tokens shifted since error; after three, turn off error
status. */
if (yyerrstatus)
yyerrstatus--;
/* Shift the lookahead token. */
YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
yystate = yyn;
YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
*++yyvsp = yylval;
YY_IGNORE_MAYBE_UNINITIALIZED_END
/* Discard the shifted token. */
yychar = YYEMPTY;
goto yynewstate;
/*-----------------------------------------------------------.
| yydefault -- do the default action for the current state. |
`-----------------------------------------------------------*/
yydefault:
yyn = yydefact[yystate];
if (yyn == 0)
goto yyerrlab;
goto yyreduce;
/*-----------------------------.
| yyreduce -- do a reduction. |
`-----------------------------*/
yyreduce:
/* yyn is the number of a rule to reduce with. */
yylen = yyr2[yyn];
/* If YYLEN is nonzero, implement the default value of the action:
'$$ = $1'.
Otherwise, the following line sets YYVAL to garbage.
This behavior is undocumented and Bison
users should not rely upon it. Assigning to YYVAL
unconditionally makes the parser a bit smaller, and it avoids a
GCC warning that YYVAL may be used uninitialized. */
yyval = yyvsp[1-yylen];
YY_REDUCE_PRINT (yyn);
switch (yyn)
{
case 2: /* root_: program_sequences */
#line 309 "htcobol.y"
{ gen_main_rtn(); }
#line 4439 "htcobol.tab.c"
break;
case 3: /* program_sequences: program */
#line 312 "htcobol.y"
{ pgm_segment++; (yyval.ival)=1; }
#line 4445 "htcobol.tab.c"
break;
case 4: /* program_sequences: program_sequence */
#line 313 "htcobol.y"
{ (yyval.ival)=1 ; }
#line 4451 "htcobol.tab.c"
break;
case 5: /* program_sequences: program_sequence program */
#line 314 "htcobol.y"
{ (yyval.ival)=1 ; }
#line 4457 "htcobol.tab.c"
break;
case 6: /* program_sequence: program end_program */
#line 323 "htcobol.y"
{ pgm_segment++ ; (yyval.ival) = 1; }
#line 4463 "htcobol.tab.c"
break;
case 7: /* $@1: %empty */
#line 324 "htcobol.y"
{ pgm_segment++ ; nested_flag = 1; }
#line 4469 "htcobol.tab.c"
break;
case 8: /* program_sequence: program $@1 program_sequence end_program */
#line 324 "htcobol.y"
{ (yyval.ival) = 1; }
#line 4475 "htcobol.tab.c"
break;
case 9: /* program_sequence: program_sequence program end_program */
#line 325 "htcobol.y"
{pgm_segment++ ; nested_flag = 1; (yyval.ival) = 1; }
#line 4481 "htcobol.tab.c"
break;
case 10: /* $@2: %empty */
#line 337 "htcobol.y"
{ clear_symtab(); clear_offsets();
curr_division= CDIV_IDENT; }
#line 4488 "htcobol.tab.c"
break;
case 11: /* end_program: END PROGRAM $@2 IDSTRING */
#line 340 "htcobol.y"
{ curr_division = CDIV_COMMENT; }
#line 4494 "htcobol.tab.c"
break;
case 13: /* $@3: %empty */
#line 356 "htcobol.y"
{
curr_division = CDIV_IDENT;
}
#line 4502 "htcobol.tab.c"
break;
case 14: /* $@4: %empty */
#line 360 "htcobol.y"
{
curr_division = CINITIAL;
if (pgm_header((yyvsp[0].str)) != 0) {
yyerror("Invalid character(s) in PROGRAM-ID name");
/* YYABORT; */
}
}
#line 4514 "htcobol.tab.c"
break;
case 15: /* $@5: %empty */
#line 368 "htcobol.y"
{
define_special_fields();
}
#line 4522 "htcobol.tab.c"
break;
case 18: /* programid_opts_opt: is_opt INITIAL_TOK programid_program_opt */
#line 375 "htcobol.y"
{ initial_flag=1; }
#line 4528 "htcobol.tab.c"
break;
case 19: /* programid_opts_opt: is_opt COMMON programid_program_opt */
#line 376 "htcobol.y"
{ UNIMPLEMENTED("PROGRAM-ID ... COMMON clause") }
#line 4534 "htcobol.tab.c"
break;
case 21: /* programid_program_opt: PROGRAM */
#line 379 "htcobol.y"
{ }
#line 4540 "htcobol.tab.c"
break;
case 24: /* identification_division_option: AUTHOR PERIOD_TOK */
#line 386 "htcobol.y"
{ curr_division = CDIV_COMMENT1; }
#line 4546 "htcobol.tab.c"
break;
case 25: /* identification_division_option: DATE_WRITTEN PERIOD_TOK */
#line 387 "htcobol.y"
{ curr_division = CDIV_COMMENT1; }
#line 4552 "htcobol.tab.c"
break;
case 26: /* identification_division_option: DATE_COMPILED PERIOD_TOK */
#line 388 "htcobol.y"
{ curr_division = CDIV_COMMENT1; }
#line 4558 "htcobol.tab.c"
break;
case 27: /* identification_division_option: INSTALLATION PERIOD_TOK */
#line 389 "htcobol.y"
{ curr_division = CDIV_COMMENT1; }
#line 4564 "htcobol.tab.c"
break;
case 28: /* identification_division_option: SECURITY PERIOD_TOK */
#line 390 "htcobol.y"
{ curr_division = CDIV_COMMENT1; }
#line 4570 "htcobol.tab.c"
break;
case 29: /* $@6: %empty */
#line 397 "htcobol.y"
{
curr_division = CDIV_ENVIR;
}
#line 4578 "htcobol.tab.c"
break;
case 30: /* environment_division_opt: ENVIRONMENT DIVISION PERIOD_TOK $@6 configuration_opt input_output_opt */
#line 402 "htcobol.y"
{
curr_division = CINITIAL;
}
#line 4586 "htcobol.tab.c"
break;
case 34: /* configuration_section: configuration_section configuration_option */
#line 415 "htcobol.y"
{ }
#line 4592 "htcobol.tab.c"
break;
case 35: /* configuration_section: %empty */
#line 416 "htcobol.y"
{ }
#line 4598 "htcobol.tab.c"
break;
case 36: /* $@7: %empty */
#line 420 "htcobol.y"
{ envdiv_bypass_save_sw=1; }
#line 4604 "htcobol.tab.c"
break;
case 37: /* configuration_option: SOURCE_COMPUTER PERIOD_TOK $@7 STRING debug_mode_opt PERIOD_TOK */
#line 422 "htcobol.y"
{ envdiv_bypass_save_sw=0; }
#line 4610 "htcobol.tab.c"
break;
case 38: /* $@8: %empty */
#line 424 "htcobol.y"
{ envdiv_bypass_save_sw=1; }
#line 4616 "htcobol.tab.c"
break;
case 39: /* configuration_option: OBJECT_COMPUTER PERIOD_TOK $@8 STRING program_collating_opt PERIOD_TOK */
#line 426 "htcobol.y"
{ envdiv_bypass_save_sw=0; }
#line 4622 "htcobol.tab.c"
break;
case 41: /* configuration_option: error */
#line 428 "htcobol.y"
{ yyerror("invalid format in CONFIGURATION SECTION"); }
#line 4628 "htcobol.tab.c"
break;
case 45: /* collating_opt: COLLATING */
#line 437 "htcobol.y"
{ }
#line 4634 "htcobol.tab.c"
break;
case 46: /* collating_opt: %empty */
#line 438 "htcobol.y"
{ }
#line 4640 "htcobol.tab.c"
break;
case 47: /* debug_mode_opt: with_opt DEBUGGING MODE */
#line 441 "htcobol.y"
{ stabs_on_sw = 1; }
#line 4646 "htcobol.tab.c"
break;
case 48: /* debug_mode_opt: %empty */
#line 442 "htcobol.y"
{ }
#line 4652 "htcobol.tab.c"
break;
case 51: /* special_names_opt: error */
#line 447 "htcobol.y"
{ yyerror("invalid format in SPECIAL-NAMES clause");}
#line 4658 "htcobol.tab.c"
break;
case 61: /* currency_details: CURRENCY sign_opt is_opt CLITERAL */
#line 467 "htcobol.y"
{
currency_symbol = (yyvsp[0].lval)->name[0];
}
#line 4666 "htcobol.tab.c"
break;
case 64: /* special_name_class: CLASS STRING is_opt special_name_class_item_list */
#line 476 "htcobol.y"
{}
#line 4672 "htcobol.tab.c"
break;
case 65: /* special_name_class_item_list: special_name_class_item */
#line 479 "htcobol.y"
{}
#line 4678 "htcobol.tab.c"
break;
case 66: /* special_name_class_item_list: special_name_class_item_list special_name_class_item */
#line 480 "htcobol.y"
{}
#line 4684 "htcobol.tab.c"
break;
case 67: /* special_name_class_item: CLITERAL */
#line 483 "htcobol.y"
{}
#line 4690 "htcobol.tab.c"
break;
case 68: /* special_name_class_item: CLITERAL THRU CLITERAL */
#line 484 "htcobol.y"
{}
#line 4696 "htcobol.tab.c"
break;
case 69: /* decimal_point_details: DECIMAL_POINT is_opt COMMA */
#line 488 "htcobol.y"
{
decimal_comma=1; }
#line 4703 "htcobol.tab.c"
break;
case 70: /* screen_status_details: DISPLAY_SCREEN STATUS is_opt STRING */
#line 493 "htcobol.y"
{ screen_status_field=(yyvsp[0].sval); }
#line 4709 "htcobol.tab.c"
break;
case 71: /* cursor_details: CURSOR is_opt STRING */
#line 497 "htcobol.y"
{ cursor_field=(yyvsp[0].sval); }
#line 4715 "htcobol.tab.c"
break;
case 74: /* $@9: %empty */
#line 504 "htcobol.y"
{if ((yyvsp[-2].sval)->name[0] != 'S' || (yyvsp[-2].sval)->name[1] != 'W')
yyerror("Invalid switch name");
define_switch_field((yyvsp[0].sval), (yyvsp[-2].sval));}
#line 4723 "htcobol.tab.c"
break;
case 75: /* switches_details: STRING is_opt STRING $@9 switch_on_opt switch_off_opt */
#line 508 "htcobol.y"
{ close_fields();}
#line 4729 "htcobol.tab.c"
break;
case 76: /* switch_on_opt: ON status_opt is_opt STRING */
#line 511 "htcobol.y"
{save_switch_value((yyvsp[0].sval), 1);}
#line 4735 "htcobol.tab.c"
break;
case 78: /* switch_off_opt: OFF status_opt is_opt STRING */
#line 515 "htcobol.y"
{save_switch_value((yyvsp[0].sval), 0);}
#line 4741 "htcobol.tab.c"
break;
case 82: /* alphabet_details: ALPHABET STRING is_opt alphabet_type */
#line 524 "htcobol.y"
{
(yyvsp[-2].sval)->defined=1;
UNIMPLEMENTED("Alphabet clause")
}
#line 4750 "htcobol.tab.c"
break;
case 83: /* alphabet_type: NATIVE */
#line 530 "htcobol.y"
{ }
#line 4756 "htcobol.tab.c"
break;
case 84: /* alphabet_type: STANDARD_1 */
#line 531 "htcobol.y"
{ }
#line 4762 "htcobol.tab.c"
break;
case 85: /* alphabet_type: STANDARD_2 */
#line 532 "htcobol.y"
{ }
#line 4768 "htcobol.tab.c"
break;
case 86: /* alphabet_type: alphabet_literal_list */
#line 533 "htcobol.y"
{ }
#line 4774 "htcobol.tab.c"
break;
case 89: /* alphabet_literal_item: without_all_literal */
#line 540 "htcobol.y"
{ }
#line 4780 "htcobol.tab.c"
break;
case 90: /* alphabet_literal_item: without_all_literal THRU without_all_literal */
#line 541 "htcobol.y"
{ }
#line 4786 "htcobol.tab.c"
break;
case 91: /* alphabet_literal_item: without_all_literal alphabet_also_list */
#line 542 "htcobol.y"
{ }
#line 4792 "htcobol.tab.c"
break;
case 94: /* input_output_opt: INPUT_OUTPUT SECTION PERIOD_TOK input_output_section */
#line 552 "htcobol.y"
{ }
#line 4798 "htcobol.tab.c"
break;
case 96: /* input_output_section: file_control_paragraph i_o_control_paragraph */
#line 556 "htcobol.y"
{ }
#line 4804 "htcobol.tab.c"
break;
case 97: /* input_output_section: error */
#line 557 "htcobol.y"
{ yyerror("INPUT-OUTPUT SECTION format wrong"); }
#line 4810 "htcobol.tab.c"
break;
case 98: /* file_control_paragraph: FILE_CONTROL PERIOD_TOK file_control */
#line 560 "htcobol.y"
{ }
#line 4816 "htcobol.tab.c"
break;
case 100: /* i_o_control_paragraph: I_O_CONTROL PERIOD_TOK i_o_control_opt */
#line 563 "htcobol.y"
{ }
#line 4822 "htcobol.tab.c"
break;
case 103: /* $@10: %empty */
#line 576 "htcobol.y"
{
(yyvsp[0].sval)->type='F'; /* mark as file variable */
curr_file=(yyvsp[0].sval);
(yyvsp[0].sval)->pic=0; /* suppose not indexed yet */
(yyvsp[0].sval)->defined=1;
(yyvsp[0].sval)->parent=NULL; /* assume no STATUS yet
this is "file status" var in files */
(yyvsp[0].sval)->organization = 2;
(yyvsp[0].sval)->access_mode = 1;
(yyvsp[0].sval)->times=-1;
(yyvsp[0].sval)->alternate=NULL; /* reset alternate key list */
(yyvsp[0].sval)->flags.optional=(yyvsp[-1].ival); /* according to keyword */
(yyvsp[0].sval)->refmod_redef.declarative=NULL; /* no declarative yet */
}
#line 4841 "htcobol.tab.c"
break;
case 104: /* file_select: SELECT optional_opt def_name $@10 select_clauses PERIOD_TOK */
#line 591 "htcobol.y"
{
if ((curr_file->organization==ORG_INDEXED) &&
!(curr_file->ix_desc)) {
yyerror("indexed file must have a record key");
YYABORT;
}
}
#line 4853 "htcobol.tab.c"
break;
case 107: /* select_clause: organization_opt is_opt organization_options */
#line 605 "htcobol.y"
{ curr_file->organization=(yyvsp[0].ival); }
#line 4859 "htcobol.tab.c"
break;
case 108: /* select_clause: ASSIGN to_opt assign_clause */
#line 606 "htcobol.y"
{ curr_file->filenamevar=(yyvsp[0].sval);}
#line 4865 "htcobol.tab.c"
break;
case 109: /* select_clause: ACCESS mode_opt is_opt access_options */
#line 608 "htcobol.y"
{
/*{ curr_file->access_mode=$4; }*/
if (curr_file->access_mode < 5) {
curr_file->access_mode=(yyvsp[0].ival);
}
else {
curr_file->access_mode = (yyvsp[0].ival) + 5;
}
}
#line 4879 "htcobol.tab.c"
break;
case 110: /* select_clause: file_opt STATUS is_opt STRING */
#line 617 "htcobol.y"
{ curr_file->parent=(yyvsp[0].sval); }
#line 4885 "htcobol.tab.c"
break;
case 111: /* select_clause: RECORD key_opt is_opt STRING */
#line 618 "htcobol.y"
{ curr_file->ix_desc=(yyvsp[0].sval); }
#line 4891 "htcobol.tab.c"
break;
case 112: /* select_clause: RELATIVE key_opt is_opt STRING */
#line 619 "htcobol.y"
{ curr_file->ix_desc=(yyvsp[0].sval); }
#line 4897 "htcobol.tab.c"
break;
case 113: /* select_clause: ALTERNATE RECORD key_opt is_opt STRING with_duplicates */
#line 621 "htcobol.y"
{ add_alternate_key((yyvsp[-1].sval),(yyvsp[0].ival)); }
#line 4903 "htcobol.tab.c"
break;
case 115: /* select_clause: error */
#line 623 "htcobol.y"
{ yyerror("invalid clause in select"); }
#line 4909 "htcobol.tab.c"
break;
case 118: /* organization_opt: ORGANIZATION */
#line 630 "htcobol.y"
{ }
#line 4915 "htcobol.tab.c"
break;
case 120: /* assign_clause: PORTNUM */
#line 633 "htcobol.y"
{ (yyval.sval)=NULL; }
#line 4921 "htcobol.tab.c"
break;
case 121: /* assign_clause: filename */
#line 634 "htcobol.y"
{ (yyval.sval)=(yyvsp[0].sval); }
#line 4927 "htcobol.tab.c"
break;
case 122: /* assign_clause: PORTNUM filename */
#line 635 "htcobol.y"
{ (yyval.sval)=(yyvsp[0].sval); }
#line 4933 "htcobol.tab.c"
break;
case 123: /* assign_clause: EXTERNAL filename */
#line 637 "htcobol.y"
{
curr_file->access_mode = curr_file->access_mode + 5;
(yyval.sval)=(yyvsp[0].sval);
}
#line 4942 "htcobol.tab.c"
break;
case 124: /* assign_clause: error */
#line 641 "htcobol.y"
{ yyerror("Invalid ASSIGN clause in SELECT statement"); }
#line 4948 "htcobol.tab.c"
break;
case 125: /* with_duplicates: with_opt DUPLICATES */
#line 644 "htcobol.y"
{ (yyval.ival)=1; }
#line 4954 "htcobol.tab.c"
break;
case 126: /* with_duplicates: %empty */
#line 645 "htcobol.y"
{ (yyval.ival)=0; }
#line 4960 "htcobol.tab.c"
break;
case 127: /* optional_opt: OPTIONAL */
#line 648 "htcobol.y"
{ (yyval.ival)=1; }
#line 4966 "htcobol.tab.c"
break;
case 128: /* optional_opt: %empty */
#line 649 "htcobol.y"
{ (yyval.ival)=0; }
#line 4972 "htcobol.tab.c"
break;
case 132: /* is_opt: IS */
#line 656 "htcobol.y"
{ }
#line 4978 "htcobol.tab.c"
break;
case 134: /* are_opt: ARE */
#line 660 "htcobol.y"
{ }
#line 4984 "htcobol.tab.c"
break;
case 138: /* organization_options: INDEXED */
#line 668 "htcobol.y"
{ (yyval.ival)=1; }
#line 4990 "htcobol.tab.c"
break;
case 139: /* organization_options: SEQUENTIAL */
#line 669 "htcobol.y"
{ (yyval.ival)=2; }
#line 4996 "htcobol.tab.c"
break;
case 140: /* organization_options: RELATIVE */
#line 670 "htcobol.y"
{ (yyval.ival)=3; }
#line 5002 "htcobol.tab.c"
break;
case 141: /* organization_options: LINE SEQUENTIAL */
#line 671 "htcobol.y"
{ (yyval.ival)=4; }
#line 5008 "htcobol.tab.c"
break;
case 142: /* organization_options: anystring */
#line 672 "htcobol.y"
{ yyerror("invalid option, %s",(yyvsp[0].sval)->name); }
#line 5014 "htcobol.tab.c"
break;
case 143: /* access_options: SEQUENTIAL */
#line 675 "htcobol.y"
{ (yyval.ival)=1; }
#line 5020 "htcobol.tab.c"
break;
case 144: /* access_options: DYNAMIC */
#line 676 "htcobol.y"
{ (yyval.ival)=2; }
#line 5026 "htcobol.tab.c"
break;
case 145: /* access_options: RANDOM */
#line 677 "htcobol.y"
{ (yyval.ival)=3; }
#line 5032 "htcobol.tab.c"
break;
case 146: /* access_options: anystring */
#line 679 "htcobol.y"
{ yyerror("invalid access option, %s", (yyvsp[0].sval)->name); }
#line 5038 "htcobol.tab.c"
break;
case 148: /* i_o_control_opt: i_o_control_list PERIOD_TOK */
#line 684 "htcobol.y"
{ UNIMPLEMENTED("I-O-CONTROL paragraph") }
#line 5044 "htcobol.tab.c"
break;
case 155: /* same_clause_options: RECORD */
#line 699 "htcobol.y"
{ }
#line 5050 "htcobol.tab.c"
break;
case 156: /* same_clause_options: SORT */
#line 700 "htcobol.y"
{ }
#line 5056 "htcobol.tab.c"
break;
case 157: /* same_clause_options: SORT_MERGE */
#line 701 "htcobol.y"
{ }
#line 5062 "htcobol.tab.c"
break;
case 161: /* i_o_control_multiple_file: STRING i_o_control_multiple_file_position_opt */
#line 711 "htcobol.y"
{ }
#line 5068 "htcobol.tab.c"
break;
case 163: /* i_o_control_multiple_file_position_opt: POSITION integer */
#line 714 "htcobol.y"
{ }
#line 5074 "htcobol.tab.c"
break;
case 170: /* string_list: STRING */
#line 729 "htcobol.y"
{ (yyval.sval) = (yyvsp[0].sval); }
#line 5080 "htcobol.tab.c"
break;
case 171: /* string_list: string_list STRING */
#line 730 "htcobol.y"
{ (yyval.sval) = (yyvsp[0].sval); }
#line 5086 "htcobol.tab.c"
break;
case 172: /* string_list: error */
#line 731 "htcobol.y"
{ yyerror("string expected"); }
#line 5092 "htcobol.tab.c"
break;
case 173: /* name_list: variable */
#line 734 "htcobol.y"
{ (yyval.sval) = (struct sym *)chain_var((yyvsp[0].sval)); }
#line 5098 "htcobol.tab.c"
break;
case 174: /* name_list: name_list variable */
#line 735 "htcobol.y"
{ (yyval.sval) = (struct sym *)chain_var((yyvsp[0].sval)); }
#line 5104 "htcobol.tab.c"
break;
case 175: /* name_list: error */
#line 736 "htcobol.y"
{ yyerror("variable expected"); }
#line 5110 "htcobol.tab.c"
break;
case 176: /* $@11: %empty */
#line 745 "htcobol.y"
{ curr_division = CDIV_DATA; }
#line 5116 "htcobol.tab.c"
break;
case 177: /* data_division_opt: DATA DIVISION PERIOD_TOK $@11 file_section_opt working_storage_opt linkage_section_opt report_section_opt screen_section_opt */
#line 751 "htcobol.y"
{ curr_division = CINITIAL; }
#line 5122 "htcobol.tab.c"
break;
case 179: /* $@12: %empty */
#line 758 "htcobol.y"
{ curr_field=NULL; }
#line 5128 "htcobol.tab.c"
break;
case 180: /* file_section_opt: FILE_TOK SECTION PERIOD_TOK $@12 file_section */
#line 759 "htcobol.y"
{ close_fields(); }
#line 5134 "htcobol.tab.c"
break;
case 182: /* $@13: %empty */
#line 766 "htcobol.y"
{ curr_field=NULL; }
#line 5140 "htcobol.tab.c"
break;
case 183: /* working_storage_opt: WORKING_STORAGE SECTION PERIOD_TOK $@13 working_storage_section */
#line 767 "htcobol.y"
{ close_fields(); }
#line 5146 "htcobol.tab.c"
break;
case 185: /* $@14: %empty */
#line 774 "htcobol.y"
{ at_linkage=1; curr_field=NULL; has_linkage++; }
#line 5152 "htcobol.tab.c"
break;
case 186: /* linkage_section_opt: LINKAGE SECTION PERIOD_TOK $@14 linkage_section */
#line 775 "htcobol.y"
{ close_fields(); at_linkage=0; }
#line 5158 "htcobol.tab.c"
break;
case 188: /* report_section_opt: REPORT SECTION PERIOD_TOK report_sections */
#line 791 "htcobol.y"
{ }
#line 5164 "htcobol.tab.c"
break;
case 192: /* $@15: %empty */
#line 800 "htcobol.y"
{ /*curr_division = CDIV_FD;*/ }
#line 5170 "htcobol.tab.c"
break;
case 193: /* $@16: %empty */
#line 802 "htcobol.y"
{
(yyvsp[0].sval)->type='W';
(yyvsp[0].sval)->picstr = 0;
(yyvsp[0].sval)->parent = 0;
(yyvsp[0].sval)->clone = 0;
(yyvsp[0].sval)->times = -1;
curr_division = CDIV_PROC;
UNIMPLEMENTED("Report Section")
}
#line 5184 "htcobol.tab.c"
break;
case 194: /* $@17: %empty */
#line 812 "htcobol.y"
{
curr_division = CDIV_DATA;
}
#line 5192 "htcobol.tab.c"
break;
case 195: /* report_section: RD $@15 STRING $@16 report_controls PERIOD_TOK $@17 report_description */
#line 816 "htcobol.y"
{
/* update_report_field($4); */
/* define_field(1,$4); */
}
#line 5201 "htcobol.tab.c"
break;
case 198: /* report_control: is_opt GLOBAL */
#line 824 "htcobol.y"
{ }
#line 5207 "htcobol.tab.c"
break;
case 199: /* report_control: CODE gliteral */
#line 825 "htcobol.y"
{ }
#line 5213 "htcobol.tab.c"
break;
case 200: /* report_control: report_controls_control */
#line 826 "htcobol.y"
{ }
#line 5219 "htcobol.tab.c"
break;
case 201: /* report_control: report_controls_page */
#line 827 "htcobol.y"
{ }
#line 5225 "htcobol.tab.c"
break;
case 224: /* report_break_list: report_break_list name */
#line 876 "htcobol.y"
{ (yyvsp[0].sval)->defined=1; }
#line 5231 "htcobol.tab.c"
break;
case 227: /* $@18: %empty */
#line 884 "htcobol.y"
{
if ((yyvsp[0].sval) == NULL) {
(yyvsp[0].sval) = alloc_filler();
picix=piccnt=v_flag=n_flag=decimals=pscale=0;
picture[picix]=0;
}
define_field((yyvsp[-1].ival),(yyvsp[0].sval));
curr_division = CDIV_DATA;
}
#line 5245 "htcobol.tab.c"
break;
case 228: /* report_item: integer def_name_opt $@18 report_clauses PERIOD_TOK */
#line 894 "htcobol.y"
{
update_report_field((yyvsp[-3].sval));
curr_division = CDIV_DATA;
}
#line 5254 "htcobol.tab.c"
break;
case 231: /* report_clause: report_clause_line */
#line 904 "htcobol.y"
{ }
#line 5260 "htcobol.tab.c"
break;
case 232: /* report_clause: report_clause_next_group */
#line 905 "htcobol.y"
{ }
#line 5266 "htcobol.tab.c"
break;
case 233: /* report_clause: report_clause_type */
#line 906 "htcobol.y"
{ }
#line 5272 "htcobol.tab.c"
break;
case 234: /* report_clause: report_clause_usage_display */
#line 907 "htcobol.y"
{ }
#line 5278 "htcobol.tab.c"
break;
case 235: /* report_clause: report_clause_picture */
#line 908 "htcobol.y"
{ }
#line 5284 "htcobol.tab.c"
break;
case 236: /* report_clause: report_clause_sign_is */
#line 909 "htcobol.y"
{ }
#line 5290 "htcobol.tab.c"
break;
case 237: /* report_clause: report_clause_justified */
#line 910 "htcobol.y"
{ }
#line 5296 "htcobol.tab.c"
break;
case 238: /* report_clause: report_clause_blank_zero */
#line 911 "htcobol.y"
{ }
#line 5302 "htcobol.tab.c"
break;
case 239: /* report_clause: report_clause_column */
#line 912 "htcobol.y"
{ }
#line 5308 "htcobol.tab.c"
break;
case 240: /* report_clause: report_clause_svs */
#line 913 "htcobol.y"
{ }
#line 5314 "htcobol.tab.c"
break;
case 241: /* report_clause: report_clause_group_indicate */
#line 914 "htcobol.y"
{ }
#line 5320 "htcobol.tab.c"
break;
case 242: /* report_clause_type: TYPE is_opt report_clause_type2 */
#line 917 "htcobol.y"
{ }
#line 5326 "htcobol.tab.c"
break;
case 243: /* report_clause_type2: REPORT HEADING */
#line 920 "htcobol.y"
{ }
#line 5332 "htcobol.tab.c"
break;
case 244: /* report_clause_type2: PAGE HEADING */
#line 921 "htcobol.y"
{ }
#line 5338 "htcobol.tab.c"
break;
case 245: /* $@19: %empty */
#line 922 "htcobol.y"
{ curr_division = CDIV_PROC; }
#line 5344 "htcobol.tab.c"
break;
case 246: /* report_clause_type2: CONTROL HEADING $@19 name_final_opt */
#line 923 "htcobol.y"
{ curr_division = CDIV_DATA; }
#line 5350 "htcobol.tab.c"
break;
case 247: /* report_clause_type2: DETAIL */
#line 924 "htcobol.y"
{ }
#line 5356 "htcobol.tab.c"
break;
case 248: /* $@20: %empty */
#line 925 "htcobol.y"
{ curr_division = CDIV_PROC; }
#line 5362 "htcobol.tab.c"
break;
case 249: /* report_clause_type2: CONTROL FOOTING $@20 name_final_opt */
#line 926 "htcobol.y"
{ curr_division = CDIV_DATA; }
#line 5368 "htcobol.tab.c"
break;
case 250: /* report_clause_type2: PAGE FOOTING */
#line 927 "htcobol.y"
{ }
#line 5374 "htcobol.tab.c"
break;
case 251: /* report_clause_type2: REPORT FOOTING */
#line 928 "htcobol.y"
{ }
#line 5380 "htcobol.tab.c"
break;
case 252: /* report_clause_type2: RH */
#line 929 "htcobol.y"
{ }
#line 5386 "htcobol.tab.c"
break;
case 253: /* report_clause_type2: PH */
#line 930 "htcobol.y"
{ }
#line 5392 "htcobol.tab.c"
break;
case 254: /* $@21: %empty */
#line 931 "htcobol.y"
{ curr_division = CDIV_PROC; }
#line 5398 "htcobol.tab.c"
break;
case 255: /* report_clause_type2: CH $@21 name_final_opt */
#line 932 "htcobol.y"
{ curr_division = CDIV_DATA; }
#line 5404 "htcobol.tab.c"
break;
case 256: /* report_clause_type2: DE */
#line 933 "htcobol.y"
{ }
#line 5410 "htcobol.tab.c"
break;
case 257: /* $@22: %empty */
#line 934 "htcobol.y"
{ curr_division = CDIV_PROC; }
#line 5416 "htcobol.tab.c"
break;
case 258: /* report_clause_type2: CF $@22 name_final_opt */
#line 935 "htcobol.y"
{ curr_division = CDIV_DATA; }
#line 5422 "htcobol.tab.c"
break;
case 259: /* report_clause_type2: PF */
#line 936 "htcobol.y"
{ }
#line 5428 "htcobol.tab.c"
break;
case 260: /* report_clause_type2: RF */
#line 937 "htcobol.y"
{ }
#line 5434 "htcobol.tab.c"
break;
case 261: /* report_clause_sign_is: SIGN is_opt leading_trailing SEPARATE character_opt */
#line 940 "htcobol.y"
{ }
#line 5440 "htcobol.tab.c"
break;
case 262: /* report_clause_sign_is: leading_trailing SEPARATE character_opt */
#line 941 "htcobol.y"
{ }
#line 5446 "htcobol.tab.c"
break;
case 263: /* $@23: %empty */
#line 945 "htcobol.y"
{
curr_division = CDIV_PIC;
}
#line 5454 "htcobol.tab.c"
break;
case 264: /* report_clause_picture: PICTURE $@23 is_opt picture */
#line 948 "htcobol.y"
{ curr_division = CDIV_DATA; }
#line 5460 "htcobol.tab.c"
break;
case 265: /* report_clause_usage_display: USAGE is_opt DISPLAY */
#line 951 "htcobol.y"
{ }
#line 5466 "htcobol.tab.c"
break;
case 266: /* report_clause_usage_display: DISPLAY */
#line 952 "htcobol.y"
{ }
#line 5472 "htcobol.tab.c"
break;
case 269: /* report_clause_line: report_clause_line_is integer ON NEXT PAGE */
#line 961 "htcobol.y"
{ }
#line 5478 "htcobol.tab.c"
break;
case 270: /* report_clause_line: report_clause_line_is integer NEXT PAGE */
#line 962 "htcobol.y"
{ }
#line 5484 "htcobol.tab.c"
break;
case 271: /* report_clause_line: report_clause_line_is integer */
#line 963 "htcobol.y"
{ }
#line 5490 "htcobol.tab.c"
break;
case 272: /* report_clause_line: report_clause_line_is PLUS integer */
#line 964 "htcobol.y"
{ }
#line 5496 "htcobol.tab.c"
break;
case 277: /* report_clause_column: report_clause_column_is integer */
#line 973 "htcobol.y"
{ }
#line 5502 "htcobol.tab.c"
break;
case 278: /* report_clause_column_is: COLUMN report_clause_column_orientation is_are_opt */
#line 976 "htcobol.y"
{ (yyval.ival)=(yyvsp[-1].ival); }
#line 5508 "htcobol.tab.c"
break;
case 279: /* report_clause_column_is: COLUMN NUMBER report_clause_column_orientation is_opt */
#line 977 "htcobol.y"
{ (yyval.ival)=(yyvsp[-1].ival); }
#line 5514 "htcobol.tab.c"
break;
case 280: /* report_clause_column_is: COLUMN NUMBERS report_clause_column_orientation are_opt */
#line 978 "htcobol.y"
{ (yyval.ival)=(yyvsp[-1].ival); }
#line 5520 "htcobol.tab.c"
break;
case 281: /* report_clause_column_is: COLUMNS report_clause_column_orientation are_opt */
#line 979 "htcobol.y"
{ (yyval.ival)=(yyvsp[-1].ival); }
#line 5526 "htcobol.tab.c"
break;
case 282: /* report_clause_column_orientation: %empty */
#line 982 "htcobol.y"
{ (yyval.ival)=0; }
#line 5532 "htcobol.tab.c"
break;
case 283: /* report_clause_column_orientation: LEFT */
#line 983 "htcobol.y"
{ (yyval.ival)=0; }
#line 5538 "htcobol.tab.c"
break;
case 284: /* report_clause_column_orientation: CENTER */
#line 984 "htcobol.y"
{ (yyval.ival)=1; }
#line 5544 "htcobol.tab.c"
break;
case 285: /* report_clause_column_orientation: RIGHT */
#line 985 "htcobol.y"
{ (yyval.ival)=2; }
#line 5550 "htcobol.tab.c"
break;
case 287: /* is_are_opt: IS */
#line 989 "htcobol.y"
{ }
#line 5556 "htcobol.tab.c"
break;
case 288: /* is_are_opt: ARE */
#line 990 "htcobol.y"
{ }
#line 5562 "htcobol.tab.c"
break;
case 289: /* $@24: %empty */
#line 993 "htcobol.y"
{ curr_division = CDIV_PROC; }
#line 5568 "htcobol.tab.c"
break;
case 290: /* report_clause_svs: SOURCE $@24 is_opt gname_page_counter */
#line 995 "htcobol.y"
{ curr_division = CDIV_DATA; }
#line 5574 "htcobol.tab.c"
break;
case 291: /* report_clause_svs: VALUE is_opt literal */
#line 996 "htcobol.y"
{ }
#line 5580 "htcobol.tab.c"
break;
case 292: /* $@25: %empty */
#line 997 "htcobol.y"
{ curr_division = CDIV_PROC; }
#line 5586 "htcobol.tab.c"
break;
case 293: /* $@26: %empty */
#line 998 "htcobol.y"
{ curr_division = CDIV_DATA; }
#line 5592 "htcobol.tab.c"
break;
case 294: /* report_clause_svs: SUM $@25 gname_list $@26 upon_opt reset_opt */
#line 999 "htcobol.y"
{ }
#line 5598 "htcobol.tab.c"
break;
case 295: /* gname_page_counter: gname */
#line 1001 "htcobol.y"
{ }
#line 5604 "htcobol.tab.c"
break;
case 296: /* gname_page_counter: PAGE_COUNTER */
#line 1002 "htcobol.y"
{ }
#line 5610 "htcobol.tab.c"
break;
case 298: /* report_clause_group_indicate: GROUP indicate_opt */
#line 1005 "htcobol.y"
{ }
#line 5616 "htcobol.tab.c"
break;
case 299: /* report_clause_blank_zero: BLANK when_opt ZERO */
#line 1008 "htcobol.y"
{ }
#line 5622 "htcobol.tab.c"
break;
case 301: /* indicate_opt: INDICATE */
#line 1011 "htcobol.y"
{ }
#line 5628 "htcobol.tab.c"
break;
case 303: /* upon_opt: UPON gname_list */
#line 1014 "htcobol.y"
{ }
#line 5634 "htcobol.tab.c"
break;
case 305: /* reset_opt: RESET gname */
#line 1017 "htcobol.y"
{ }
#line 5640 "htcobol.tab.c"
break;
case 306: /* reset_opt: RESET FINAL */
#line 1018 "htcobol.y"
{ }
#line 5646 "htcobol.tab.c"
break;
case 308: /* number_opt: NUMBER */
#line 1021 "htcobol.y"
{ }
#line 5652 "htcobol.tab.c"
break;
case 309: /* leading_trailing: LEADING */
#line 1024 "htcobol.y"
{ }
#line 5658 "htcobol.tab.c"
break;
case 310: /* leading_trailing: TRAILING */
#line 1025 "htcobol.y"
{ }
#line 5664 "htcobol.tab.c"
break;
case 312: /* right_opt: RIGHT */
#line 1028 "htcobol.y"
{ }
#line 5670 "htcobol.tab.c"
break;
case 313: /* name_final_opt: gname */
#line 1031 "htcobol.y"
{ }
#line 5676 "htcobol.tab.c"
break;
case 314: /* name_final_opt: FINAL */
#line 1032 "htcobol.y"
{ }
#line 5682 "htcobol.tab.c"
break;
case 315: /* integer_on_next_page: integer */
#line 1035 "htcobol.y"
{ }
#line 5688 "htcobol.tab.c"
break;
case 316: /* integer_on_next_page: PLUS integer */
#line 1036 "htcobol.y"
{ }
#line 5694 "htcobol.tab.c"
break;
case 317: /* integer_on_next_page: NEXT PAGE */
#line 1037 "htcobol.y"
{ }
#line 5700 "htcobol.tab.c"
break;
case 320: /* $@27: %empty */
#line 1051 "htcobol.y"
{
screen_io_enable++;
curr_field=NULL;
HTG_prg_uses_term = 1;
}
#line 5710 "htcobol.tab.c"
break;
case 321: /* screen_section_opt: SCREEN SECTION PERIOD_TOK $@27 screen_section */
#line 1056 "htcobol.y"
{ close_fields(); }
#line 5716 "htcobol.tab.c"
break;
case 325: /* $@28: %empty */
#line 1069 "htcobol.y"
{
if ((yyvsp[0].sval) == NULL) {
(yyvsp[0].sval) = alloc_filler();
}
picix=piccnt=v_flag=n_flag=decimals=pscale=0;
picture[picix]=0;
define_field((yyvsp[-1].ival),(yyvsp[0].sval));
}
#line 5729 "htcobol.tab.c"
break;
case 326: /* screen_item: integer def_name_opt $@28 screen_clauses PERIOD_TOK */
#line 1077 "htcobol.y"
{ update_screen_field((yyvsp[-3].sval),(yyvsp[-1].sival)); }
#line 5735 "htcobol.tab.c"
break;
case 327: /* $@29: %empty */
#line 1080 "htcobol.y"
{ curr_division = CDIV_PROC; }
#line 5741 "htcobol.tab.c"
break;
case 328: /* screen_clauses: screen_clauses LINE $@29 number_is_opt plus_minus_opt name_or_lit */
#line 1083 "htcobol.y"
{ curr_division = CDIV_DATA;
scr_set_line((yyvsp[-5].sival),(yyvsp[0].sval),(yyvsp[-1].ival)); (yyval.sival)=(yyvsp[-5].sival); }
#line 5748 "htcobol.tab.c"
break;
case 329: /* $@30: %empty */
#line 1085 "htcobol.y"
{ curr_division = CDIV_PROC; }
#line 5754 "htcobol.tab.c"
break;
case 330: /* screen_clauses: screen_clauses COLUMN $@30 number_is_opt plus_minus_opt name_or_lit */
#line 1088 "htcobol.y"
{ curr_division = CDIV_DATA;
scr_set_column((yyvsp[-5].sival),(yyvsp[0].sval),(yyvsp[-1].ival)); (yyval.sival)=(yyvsp[-5].sival); }
#line 5761 "htcobol.tab.c"
break;
case 331: /* screen_clauses: screen_clauses with_opt screen_attrib */
#line 1091 "htcobol.y"
{ (yyvsp[-2].sival)->attr |= (yyvsp[0].ival); (yyval.sival)=(yyvsp[-2].sival); }
#line 5767 "htcobol.tab.c"
break;
case 332: /* $@31: %empty */
#line 1092 "htcobol.y"
{ curr_division = CDIV_PROC; }
#line 5773 "htcobol.tab.c"
break;
case 333: /* screen_clauses: screen_clauses with_opt FOREGROUNDCOLOR $@31 name_or_lit */
#line 1093 "htcobol.y"
{ curr_division = CDIV_DATA;
(yyvsp[-4].sival)->color = NULL;
(yyvsp[-4].sival)->foreground = (yyvsp[0].sval); (yyval.sival)=(yyvsp[-4].sival); }
#line 5781 "htcobol.tab.c"
break;
case 334: /* $@32: %empty */
#line 1096 "htcobol.y"
{ curr_division = CDIV_PROC; }
#line 5787 "htcobol.tab.c"
break;
case 335: /* screen_clauses: screen_clauses with_opt BACKGROUNDCOLOR $@32 name_or_lit */
#line 1097 "htcobol.y"
{ curr_division = CDIV_DATA;
(yyvsp[-4].sival)->color = NULL;
(yyvsp[-4].sival)->background = (yyvsp[0].sval); (yyval.sival)=(yyvsp[-4].sival); }
#line 5795 "htcobol.tab.c"
break;
case 336: /* $@33: %empty */
#line 1100 "htcobol.y"
{ curr_division = CDIV_PROC; }
#line 5801 "htcobol.tab.c"
break;
case 337: /* screen_clauses: screen_clauses with_opt COLOR $@33 name_or_lit */
#line 1101 "htcobol.y"
{ curr_division = CDIV_DATA;
(yyvsp[-4].sival)->foreground = NULL;
(yyvsp[-4].sival)->background = NULL;
(yyvsp[-4].sival)->color = (yyvsp[0].sval); (yyval.sival)=(yyvsp[-4].sival); }
#line 5810 "htcobol.tab.c"
break;
case 339: /* screen_clauses: screen_clauses value_is_are gliteral */
#line 1108 "htcobol.y"
{ curr_field->value = (yyvsp[0].lval); (yyval.sival)=(yyvsp[-2].sival); }
#line 5816 "htcobol.tab.c"
break;
case 341: /* $@34: %empty */
#line 1110 "htcobol.y"
{ curr_division = CDIV_PROC; }
#line 5822 "htcobol.tab.c"
break;
case 342: /* screen_clauses: screen_clauses SIZE $@34 name_or_lit */
#line 1111 "htcobol.y"
{ curr_division = CDIV_DATA;
(yyvsp[-3].sival)->size = (yyvsp[0].sval); (yyval.sival)=(yyvsp[-3].sival); }
#line 5829 "htcobol.tab.c"
break;
case 343: /* screen_clauses: %empty */
#line 1113 "htcobol.y"
{ (yyval.sival) = alloc_scr_info(); }
#line 5835 "htcobol.tab.c"
break;
case 344: /* $@35: %empty */
#line 1116 "htcobol.y"
{ curr_division = CDIV_PROC; }
#line 5841 "htcobol.tab.c"
break;
case 345: /* screen_source_destination: USING $@35 name_or_lit */
#line 1117 "htcobol.y"
{
curr_division = CDIV_DATA;
(yyvsp[-3].sival)->from = (yyvsp[-3].sival)->to = (yyvsp[0].sval);
}
#line 5850 "htcobol.tab.c"
break;
case 346: /* $@36: %empty */
#line 1121 "htcobol.y"
{ curr_division = CDIV_PROC; }
#line 5856 "htcobol.tab.c"
break;
case 347: /* screen_source_destination: FROM $@36 name_or_lit screen_to_name */
#line 1123 "htcobol.y"
{
curr_division = CDIV_DATA;
(yyvsp[-4].sival)->from = (yyvsp[-1].sval); (yyvsp[-4].sival)->to = (yyvsp[0].sval);
}
#line 5865 "htcobol.tab.c"
break;
case 348: /* $@37: %empty */
#line 1127 "htcobol.y"
{ curr_division = CDIV_PROC; }
#line 5871 "htcobol.tab.c"
break;
case 349: /* screen_source_destination: TO $@37 name */
#line 1128 "htcobol.y"
{
curr_division = CDIV_DATA;
(yyvsp[-3].sival)->from = NULL; (yyvsp[-3].sival)->to = (yyvsp[0].sval);
}
#line 5880 "htcobol.tab.c"
break;
case 350: /* screen_to_name: %empty */
#line 1134 "htcobol.y"
{ (yyval.sval)=NULL; }
#line 5886 "htcobol.tab.c"
break;
case 351: /* screen_to_name: TO name */
#line 1135 "htcobol.y"
{ (yyval.sval) = (yyvsp[0].sval); }
#line 5892 "htcobol.tab.c"
break;
case 352: /* screen_attrib: BLANK SCREEN */
#line 1138 "htcobol.y"
{ (yyval.ival) = SCR_BLANK_SCREEN; }
#line 5898 "htcobol.tab.c"
break;
case 353: /* screen_attrib: BLANK LINE */
#line 1139 "htcobol.y"
{ (yyval.ival) = SCR_BLANK_LINE; }
#line 5904 "htcobol.tab.c"
break;
case 354: /* screen_attrib: ERASE EOL */
#line 1140 "htcobol.y"
{ (yyval.ival) = SCR_ERASE_EOL; }
#line 5910 "htcobol.tab.c"
break;
case 355: /* screen_attrib: ERASE EOS */
#line 1141 "htcobol.y"
{ (yyval.ival) = SCR_ERASE_EOS; }
#line 5916 "htcobol.tab.c"
break;
case 356: /* screen_attrib: ERASE */
#line 1142 "htcobol.y"
{ (yyval.ival) = SCR_ERASE_EOL; }
#line 5922 "htcobol.tab.c"
break;
case 357: /* screen_attrib: with_opt BELL */
#line 1143 "htcobol.y"
{ (yyval.ival) = SCR_BELL; }
#line 5928 "htcobol.tab.c"
break;
case 358: /* screen_attrib: sign_clause */
#line 1144 "htcobol.y"
{ (yyval.ival) = (yyvsp[0].ival); }
#line 5934 "htcobol.tab.c"
break;
case 359: /* screen_attrib: FULL */
#line 1145 "htcobol.y"
{ (yyval.ival) = SCR_FULL; }
#line 5940 "htcobol.tab.c"
break;
case 360: /* screen_attrib: REQUIRED */
#line 1146 "htcobol.y"
{ (yyval.ival) = SCR_REQUIRED; }
#line 5946 "htcobol.tab.c"
break;
case 361: /* screen_attrib: SECURE */
#line 1147 "htcobol.y"
{ (yyval.ival) = SCR_SECURE; }
#line 5952 "htcobol.tab.c"
break;
case 362: /* screen_attrib: AUTO */
#line 1148 "htcobol.y"
{ (yyval.ival) = SCR_AUTO; }
#line 5958 "htcobol.tab.c"
break;
case 363: /* screen_attrib: JUSTIFIED RIGHT */
#line 1149 "htcobol.y"
{ (yyval.ival) = SCR_JUST_RIGHT; }
#line 5964 "htcobol.tab.c"
break;
case 364: /* screen_attrib: JUSTIFIED LEFT */
#line 1150 "htcobol.y"
{ (yyval.ival) = SCR_JUST_LEFT; }
#line 5970 "htcobol.tab.c"
break;
case 365: /* screen_attrib: BLINK */
#line 1151 "htcobol.y"
{ (yyval.ival) = SCR_BLINK; }
#line 5976 "htcobol.tab.c"
break;
case 366: /* screen_attrib: REVERSEVIDEO */
#line 1152 "htcobol.y"
{ (yyval.ival) = SCR_REVERSE_VIDEO; }
#line 5982 "htcobol.tab.c"
break;
case 367: /* screen_attrib: UNDERLINE */
#line 1153 "htcobol.y"
{ (yyval.ival) = SCR_UNDERLINE; }
#line 5988 "htcobol.tab.c"
break;
case 368: /* screen_attrib: LOWLIGHT */
#line 1154 "htcobol.y"
{ (yyval.ival) = SCR_LOWLIGHT; }
#line 5994 "htcobol.tab.c"
break;
case 369: /* screen_attrib: HIGHLIGHT */
#line 1155 "htcobol.y"
{ (yyval.ival) = SCR_HIGHLIGHT; }
#line 6000 "htcobol.tab.c"
break;
case 370: /* screen_attrib: BLANK when_opt ZERO */
#line 1156 "htcobol.y"
{ (yyval.ival) = SCR_BLANK_WHEN_ZERO; }
#line 6006 "htcobol.tab.c"
break;
case 371: /* screen_attrib: with_opt NOECHO */
#line 1157 "htcobol.y"
{ (yyval.ival) = SCR_NOECHO; }
#line 6012 "htcobol.tab.c"
break;
case 372: /* screen_attrib: with_opt UPDATE */
#line 1158 "htcobol.y"
{ (yyval.ival) = SCR_UPDATE; }
#line 6018 "htcobol.tab.c"
break;
case 373: /* screen_attrib: with_opt NO ADVANCING */
#line 1159 "htcobol.y"
{ (yyval.ival) = SCR_NO_ADVANCING; }
#line 6024 "htcobol.tab.c"
break;
case 374: /* screen_attrib: UPPER */
#line 1160 "htcobol.y"
{ (yyval.ival) = SCR_UPPER; }
#line 6030 "htcobol.tab.c"
break;
case 375: /* screen_attrib: LOWER */
#line 1161 "htcobol.y"
{ (yyval.ival) = SCR_LOWER; }
#line 6036 "htcobol.tab.c"
break;
case 376: /* screen_attribx: BLANK SCREEN */
#line 1165 "htcobol.y"
{ (yyval.ival) = SCR_BLANK_SCREEN; }
#line 6042 "htcobol.tab.c"
break;
case 377: /* screen_attribx: BLANK LINE */
#line 1166 "htcobol.y"
{ (yyval.ival) = SCR_BLANK_LINE; }
#line 6048 "htcobol.tab.c"
break;
case 378: /* screen_attribx: ERASE EOL */
#line 1167 "htcobol.y"
{ (yyval.ival) = SCR_ERASE_EOL; }
#line 6054 "htcobol.tab.c"
break;
case 379: /* screen_attribx: ERASE EOS */
#line 1168 "htcobol.y"
{ (yyval.ival) = SCR_ERASE_EOS; }
#line 6060 "htcobol.tab.c"
break;
case 380: /* screen_attribx: ERASE */
#line 1169 "htcobol.y"
{ (yyval.ival) = SCR_ERASE_EOL; }
#line 6066 "htcobol.tab.c"
break;
case 381: /* screen_attribx: with_opt BELL */
#line 1170 "htcobol.y"
{ (yyval.ival) = SCR_BELL; }
#line 6072 "htcobol.tab.c"
break;
case 382: /* screen_attribx: sign_clause */
#line 1171 "htcobol.y"
{ (yyval.ival) = (yyvsp[0].ival); }
#line 6078 "htcobol.tab.c"
break;
case 383: /* screen_attribx: FULL */
#line 1172 "htcobol.y"
{ (yyval.ival) = SCR_FULL; }
#line 6084 "htcobol.tab.c"
break;
case 384: /* screen_attribx: REQUIRED */
#line 1173 "htcobol.y"
{ (yyval.ival) = SCR_REQUIRED; }
#line 6090 "htcobol.tab.c"
break;
case 385: /* screen_attribx: SECURE */
#line 1174 "htcobol.y"
{ (yyval.ival) = SCR_SECURE; }
#line 6096 "htcobol.tab.c"
break;
case 386: /* screen_attribx: AUTO */
#line 1175 "htcobol.y"
{ (yyval.ival) = SCR_AUTO; }
#line 6102 "htcobol.tab.c"
break;
case 387: /* screen_attribx: JUSTIFIED RIGHT */
#line 1176 "htcobol.y"
{ (yyval.ival) = SCR_JUST_RIGHT; }
#line 6108 "htcobol.tab.c"
break;
case 388: /* screen_attribx: JUSTIFIED LEFT */
#line 1177 "htcobol.y"
{ (yyval.ival) = SCR_JUST_LEFT; }
#line 6114 "htcobol.tab.c"
break;
case 389: /* screen_attribx: BLINK */
#line 1178 "htcobol.y"
{ (yyval.ival) = SCR_BLINK; }
#line 6120 "htcobol.tab.c"
break;
case 390: /* screen_attribx: REVERSEVIDEO */
#line 1179 "htcobol.y"
{ (yyval.ival) = SCR_REVERSE_VIDEO; }
#line 6126 "htcobol.tab.c"
break;
case 391: /* screen_attribx: UNDERLINE */
#line 1180 "htcobol.y"
{ (yyval.ival) = SCR_UNDERLINE; }
#line 6132 "htcobol.tab.c"
break;
case 392: /* screen_attribx: LOWLIGHT */
#line 1181 "htcobol.y"
{ (yyval.ival) = SCR_LOWLIGHT; }
#line 6138 "htcobol.tab.c"
break;
case 393: /* screen_attribx: HIGHLIGHT */
#line 1182 "htcobol.y"
{ (yyval.ival) = SCR_HIGHLIGHT; }
#line 6144 "htcobol.tab.c"
break;
case 394: /* screen_attribx: BLANK when_opt ZERO */
#line 1183 "htcobol.y"
{ (yyval.ival) = SCR_BLANK_WHEN_ZERO; }
#line 6150 "htcobol.tab.c"
break;
case 395: /* screen_attribx: with_opt NOECHO */
#line 1184 "htcobol.y"
{ (yyval.ival) = SCR_NOECHO; }
#line 6156 "htcobol.tab.c"
break;
case 396: /* screen_attribx: with_opt UPDATE */
#line 1185 "htcobol.y"
{ (yyval.ival) = SCR_UPDATE; }
#line 6162 "htcobol.tab.c"
break;
case 397: /* screen_attribx: with_opt NO ADVANCING */
#line 1186 "htcobol.y"
{ (yyval.ival) = SCR_NO_ADVANCING; }
#line 6168 "htcobol.tab.c"
break;
case 398: /* screen_attribx: UPPER */
#line 1187 "htcobol.y"
{ (yyval.ival) = SCR_UPPER; }
#line 6174 "htcobol.tab.c"
break;
case 399: /* screen_attribx: LOWER */
#line 1188 "htcobol.y"
{ (yyval.ival) = SCR_LOWER; }
#line 6180 "htcobol.tab.c"
break;
case 400: /* screen_attribx: FOREGROUNDCOLOR integer */
#line 1189 "htcobol.y"
{ (yyval.ival) = 0; fg = (yyvsp[0].ival); }
#line 6186 "htcobol.tab.c"
break;
case 401: /* screen_attribx: BACKGROUNDCOLOR integer */
#line 1190 "htcobol.y"
{ (yyval.ival) = 0; bg = (yyvsp[0].ival); }
#line 6192 "htcobol.tab.c"
break;
case 402: /* sign_clause: sign_is_opt LEADING separate_opt */
#line 1195 "htcobol.y"
{ (yyval.ival) = SCR_SIGN_LEADING | (yyvsp[0].ival); }
#line 6198 "htcobol.tab.c"
break;
case 403: /* sign_clause: sign_is_opt TRAILING separate_opt */
#line 1197 "htcobol.y"
{ (yyval.ival) = (yyvsp[0].ival); }
#line 6204 "htcobol.tab.c"
break;
case 404: /* separate_opt: SEPARATE character_opt */
#line 1200 "htcobol.y"
{ (yyval.ival) = SCR_SIGN_SEPARATE; }
#line 6210 "htcobol.tab.c"
break;
case 405: /* separate_opt: %empty */
#line 1201 "htcobol.y"
{ (yyval.ival) = 0; }
#line 6216 "htcobol.tab.c"
break;
case 410: /* plus_minus_opt: PLUS */
#line 1212 "htcobol.y"
{ (yyval.ival) = 1; }
#line 6222 "htcobol.tab.c"
break;
case 411: /* plus_minus_opt: '+' */
#line 1213 "htcobol.y"
{ (yyval.ival) = 1; }
#line 6228 "htcobol.tab.c"
break;
case 412: /* plus_minus_opt: MINUS */
#line 1214 "htcobol.y"
{ (yyval.ival) = -1; }
#line 6234 "htcobol.tab.c"
break;
case 413: /* plus_minus_opt: '-' */
#line 1215 "htcobol.y"
{ (yyval.ival) = -1; }
#line 6240 "htcobol.tab.c"
break;
case 414: /* plus_minus_opt: %empty */
#line 1216 "htcobol.y"
{ (yyval.ival) = 0; }
#line 6246 "htcobol.tab.c"
break;
case 417: /* $@38: %empty */
#line 1229 "htcobol.y"
{ curr_division = CDIV_FD; }
#line 6252 "htcobol.tab.c"
break;
case 418: /* $@39: %empty */
#line 1231 "htcobol.y"
{ curr_division = CDIV_DATA; }
#line 6258 "htcobol.tab.c"
break;
case 419: /* $@40: %empty */
#line 1233 "htcobol.y"
{
curr_field=NULL;
if ((yyvsp[-3].sval)->filenamevar == NULL) {
yyerror("External file name not defined for file %s", (yyvsp[-3].sval)->name);
}
}
#line 6269 "htcobol.tab.c"
break;
case 420: /* file_section: file_section FD $@38 STRING $@39 file_description_fd_clauses PERIOD_TOK $@40 file_description */
#line 1240 "htcobol.y"
{
close_fields();
alloc_file_entry((yyvsp[-5].sval));
gen_fdesc((yyvsp[-5].sval),(yyvsp[0].sval));
}
#line 6279 "htcobol.tab.c"
break;
case 421: /* $@41: %empty */
#line 1245 "htcobol.y"
{ curr_division = CDIV_FD; }
#line 6285 "htcobol.tab.c"
break;
case 422: /* $@42: %empty */
#line 1246 "htcobol.y"
{ curr_division = CDIV_DATA; }
#line 6291 "htcobol.tab.c"
break;
case 423: /* $@43: %empty */
#line 1248 "htcobol.y"
{
(yyvsp[-3].sval)->organization=2;
curr_field=NULL;
}
#line 6300 "htcobol.tab.c"
break;
case 424: /* file_section: file_section SD $@41 STRING $@42 file_description_sd_clauses PERIOD_TOK $@43 file_description */
#line 1253 "htcobol.y"
{
close_fields();
alloc_file_entry((yyvsp[-5].sval));
(yyvsp[-5].sval)->sort_file = 1;
gen_fdesc((yyvsp[-5].sval),(yyvsp[0].sval));
}
#line 6311 "htcobol.tab.c"
break;
case 425: /* file_section: error */
#line 1259 "htcobol.y"
{ yyerror("missing or invalid file description entry"); }
#line 6317 "htcobol.tab.c"
break;
case 427: /* file_description: field_description */
#line 1263 "htcobol.y"
{ (yyval.sval)=(yyvsp[0].sval); }
#line 6323 "htcobol.tab.c"
break;
case 428: /* file_description: file_description field_description */
#line 1265 "htcobol.y"
{
if (((yyvsp[0].sval) != NULL) && ((yyvsp[0].sval)->level == 1)) {
/* multiple 01 records (for a file descriptor) */
(yyvsp[0].sval)->redefines=(yyvsp[-1].sval);
(yyval.sval)=(yyvsp[0].sval);
}
else
(yyval.sval)=(yyvsp[-1].sval);
}
#line 6337 "htcobol.tab.c"
break;
case 429: /* $@44: %empty */
#line 1280 "htcobol.y"
{
picix=piccnt=v_flag=n_flag=decimals=pscale=0;
if ((yyvsp[-1].ival) == 78) {
yyerror("level 78 not supported");
}
if ((yyvsp[0].sval)==NULL) {
define_field((yyvsp[-1].ival),alloc_filler());
}
else {
define_field((yyvsp[-1].ival),(yyvsp[0].sval));
}
}
#line 6354 "htcobol.tab.c"
break;
case 430: /* field_description: integer def_name_opt $@44 data_clauses PERIOD_TOK */
#line 1293 "htcobol.y"
{
(yyval.sval)=(yyvsp[-3].sval);
if (((yyval.sval) == NULL) || ((yyval.sval)->level != 66))
update_field(curr_field);
}
#line 6364 "htcobol.tab.c"
break;
case 434: /* $@45: %empty */
#line 1306 "htcobol.y"
{ curr_division = CDIV_PROC; /* parsing variable */ }
#line 6370 "htcobol.tab.c"
break;
case 435: /* redefines_clause: REDEFINES $@45 redefines_var */
#line 1308 "htcobol.y"
{
curr_division = CDIV_DATA;
if ((yyvsp[(-2) - (3)].sval) != NULL) {
(yyvsp[(-2) - (3)].sval)->redefines = lookup_for_redefines((yyvsp[0].sval));
}
else {
yywarn("cannot redefine an unnamed field");
}
}
#line 6384 "htcobol.tab.c"
break;
case 436: /* redefines_var: VARIABLE */
#line 1319 "htcobol.y"
{ (yyval.sval)=(yyvsp[0].sval); }
#line 6390 "htcobol.tab.c"
break;
case 437: /* redefines_var: SUBSCVAR */
#line 1320 "htcobol.y"
{ (yyval.sval)=(yyvsp[0].sval); }
#line 6396 "htcobol.tab.c"
break;
case 441: /* data_clause: sign_clause */
#line 1326 "htcobol.y"
{
curr_field->flags.separate_sign = ((yyvsp[0].ival) & SCR_SIGN_SEPARATE) ? 1 : 0;
curr_field->flags.leading_sign = ((yyvsp[0].ival) & SCR_SIGN_LEADING) ? 1 : 0; }
#line 6404 "htcobol.tab.c"
break;
case 443: /* data_clause: SYNCHRONIZED sync_options */
#line 1330 "htcobol.y"
{curr_field->flags.sync=1;}
#line 6410 "htcobol.tab.c"
break;
case 444: /* data_clause: JUSTIFIED sync_options */
#line 1331 "htcobol.y"
{if ((yyvsp[0].ival) != 2) curr_field->flags.just_r=1;}
#line 6416 "htcobol.tab.c"
break;
case 445: /* data_clause: is_opt EXTERNAL */
#line 1332 "htcobol.y"
{save_named_sect(curr_field);}
#line 6422 "htcobol.tab.c"
break;
case 446: /* data_clause: is_opt GLOBAL */
#line 1333 "htcobol.y"
{}
#line 6428 "htcobol.tab.c"
break;
case 447: /* data_clause: BLANK when_opt ZERO */
#line 1334 "htcobol.y"
{ curr_field->flags.blank=1; }
#line 6434 "htcobol.tab.c"
break;
case 448: /* $@46: %empty */
#line 1335 "htcobol.y"
{ curr_division = CDIV_PROC /* for parsing variable */; }
#line 6440 "htcobol.tab.c"
break;
case 449: /* data_clause: RENAMES $@46 variable thru_gname_opt */
#line 1337 "htcobol.y"
{ curr_division = CDIV_DATA;
update_renames_field((yyvsp[-1].sval), (yyvsp[0].sval));}
#line 6447 "htcobol.tab.c"
break;
case 450: /* sync_options: %empty */
#line 1341 "htcobol.y"
{(yyval.ival)=0;}
#line 6453 "htcobol.tab.c"
break;
case 451: /* sync_options: LEFT */
#line 1342 "htcobol.y"
{(yyval.ival)=2;}
#line 6459 "htcobol.tab.c"
break;
case 452: /* sync_options: RIGHT */
#line 1343 "htcobol.y"
{(yyval.ival)=1;}
#line 6465 "htcobol.tab.c"
break;
case 453: /* thru_gname_opt: %empty */
#line 1345 "htcobol.y"
{ (yyval.sval) = NULL;}
#line 6471 "htcobol.tab.c"
break;
case 454: /* thru_gname_opt: THRU variable */
#line 1346 "htcobol.y"
{ (yyval.sval) = (yyvsp[0].sval);}
#line 6477 "htcobol.tab.c"
break;
case 455: /* $@47: %empty */
#line 1352 "htcobol.y"
{ curr_field->times = (yyvsp[-1].ival); curr_field->occurs_flg++; }
#line 6483 "htcobol.tab.c"
break;
case 457: /* $@48: %empty */
#line 1355 "htcobol.y"
{ curr_division = CDIV_PROC; /* needed for parsing variable */ }
#line 6489 "htcobol.tab.c"
break;
case 458: /* $@49: %empty */
#line 1357 "htcobol.y"
{
curr_division = CDIV_DATA;
create_occurs_info((yyvsp[-7].ival),(yyvsp[-5].ival),(yyvsp[0].sval));
}
#line 6498 "htcobol.tab.c"
break;
case 460: /* key_is_opt: DIRECTION key_opt is_opt STRING */
#line 1365 "htcobol.y"
{
(yyvsp[0].sval)->level=0;
if ((yyvsp[-3].ival) == ASCENDING) {
(yyvsp[0].sval)->level=-1;
}
if ((yyvsp[-3].ival) == DESCENDING) {
(yyvsp[0].sval)->level=-2;
}
(yyval.sval)=(yyvsp[0].sval);
}
#line 6513 "htcobol.tab.c"
break;
case 461: /* key_is_opt: %empty */
#line 1375 "htcobol.y"
{ (yyval.sval)=NULL; }
#line 6519 "htcobol.tab.c"
break;
case 462: /* indexed_by_opt: key_is_opt INDEXED by_opt index_name_list */
#line 1379 "htcobol.y"
{
/*define_implicit_field($4, $1, curr_field->times);*/
/* Fix Me: Does not work, thus dup vars can be defined
if ($4->defined) {
yyerror("variable redefined, '%s'",$4->name);
$4->defined=1;
}
else {
define_implicit_field($4, $1, curr_field->times);
} */
}
#line 6535 "htcobol.tab.c"
break;
case 464: /* index_name_list: def_name */
#line 1394 "htcobol.y"
{
define_implicit_field((yyvsp[0].sval), (yyvsp[(-2) - (1)].sval), curr_field->times);
/* Fix Me: Does not work, thus dup vars can be defined
if ($4->defined) {
yyerror("variable redefined, '%s'",$4->name);
$4->defined=1;
}
else {
define_implicit_field($4, $1, curr_field->times);
} */
}
#line 6551 "htcobol.tab.c"
break;
case 465: /* index_name_list: index_name_list def_name */
#line 1406 "htcobol.y"
{
define_implicit_field((yyvsp[0].sval),(yyvsp[(-2) - (2)].sval),curr_field->times);
}
#line 6559 "htcobol.tab.c"
break;
case 466: /* usage_option: usage_opt is_opt usage */
#line 1414 "htcobol.y"
{ set_usage(curr_field, (yyvsp[0].ival)); }
#line 6565 "htcobol.tab.c"
break;
case 467: /* usage: USAGENUM */
#line 1417 "htcobol.y"
{ (yyval.ival)=(yyvsp[0].ival); }
#line 6571 "htcobol.tab.c"
break;
case 468: /* usage: DISPLAY */
#line 1418 "htcobol.y"
{ (yyval.ival)=USAGE_DISPLAY; }
#line 6577 "htcobol.tab.c"
break;
case 469: /* usage: POINTER */
#line 1419 "htcobol.y"
{ (yyval.ival)=USAGE_POINTER; }
#line 6583 "htcobol.tab.c"
break;
case 475: /* value: gliteral */
#line 1436 "htcobol.y"
{ set_variable_values((yyvsp[0].lval),(yyvsp[0].lval)); }
#line 6589 "htcobol.tab.c"
break;
case 476: /* value: gliteral THRU gliteral */
#line 1438 "htcobol.y"
{
set_variable_values((yyvsp[-2].lval),(yyvsp[0].lval));
}
#line 6597 "htcobol.tab.c"
break;
case 477: /* $@50: %empty */
#line 1447 "htcobol.y"
{
curr_division = CDIV_PIC;
/* first pic char found */
picix=piccnt=v_flag=n_flag=decimals=pscale=0;
picture[picix]=0;
}
#line 6608 "htcobol.tab.c"
break;
case 478: /* pictures: PICTURE $@50 is_opt picture */
#line 1454 "htcobol.y"
{
/* finish picture */
picture[picix+2]=0;
curr_field->decimals=decimals;
curr_field->pscale=pscale;
if (curr_field->type == DTYPE_DISPLAY && piccnt > 18) {
yyerror("Maximum elementary numeric item size of %s > 18 digits exceeded", curr_field->name);
}
if (curr_field->type == DTYPE_ALPHANUMERIC && piccnt > 12750) {
yyerror("Maximum elementary alphanumeric item size of %s > 12750 exceeded", curr_field->name);
}
}
#line 6625 "htcobol.tab.c"
break;
case 481: /* pic_elem: CHAR multiplier_opt */
#line 1472 "htcobol.y"
{
if (!save_pic_char ( (yyvsp[-1].ival), (yyvsp[0].ival) )) {
yyerror("invalid char in picture");
YYERROR;
}
}
#line 6636 "htcobol.tab.c"
break;
case 482: /* multiplier_opt: %empty */
#line 1480 "htcobol.y"
{ (yyval.ival) = 1; }
#line 6642 "htcobol.tab.c"
break;
case 483: /* multiplier_opt: MULTIPLIER */
#line 1481 "htcobol.y"
{ (yyval.ival) = (yyvsp[0].ival); }
#line 6648 "htcobol.tab.c"
break;
case 488: /* file_description_fd_clause: is_opt EXTERNAL */
#line 1492 "htcobol.y"
{ (yyvsp[-2].sval)->type = 'K'; }
#line 6654 "htcobol.tab.c"
break;
case 489: /* file_description_fd_clause: is_opt GLOBAL */
#line 1493 "htcobol.y"
{ (yyvsp[-2].sval)->type = 'J'; }
#line 6660 "htcobol.tab.c"
break;
case 500: /* file_description_clause_block: BLOCK contains_opt integer to_integer_opt chars_or_recs_opt */
#line 1511 "htcobol.y"
{
/* unimplemented - clause ignored */
}
#line 6668 "htcobol.tab.c"
break;
case 501: /* file_description_clause_record: RECORD contains_opt integer to_rec_varying character_opts */
#line 1518 "htcobol.y"
{
if ((yyvsp[-1].lval) != NULL) {
UNIMPLEMENTED ("RECORD CONTAINS integer1 TO integer2 CHARACTERS clause")
/* unimplemented */
}
}
#line 6679 "htcobol.tab.c"
break;
case 502: /* file_description_clause_record: RECORD is_opt VARYING in_opt size_opt from_rec_varying to_rec_varying character_opts depend_rec_varying */
#line 1527 "htcobol.y"
{
if ((yyvsp[0].sval) != NULL) {
set_rec_varying_info( (yyvsp[(-2) - (9)].sval),(yyvsp[-3].lval),(yyvsp[-2].lval),(yyvsp[0].sval) );
}
else {
yyerror("clause \'DEPENDING ON data-name-1\' is missing");
}
}
#line 6692 "htcobol.tab.c"
break;
case 503: /* file_description_clause_label: LABEL record_is_are std_or_omitt */
#line 1537 "htcobol.y"
{ /* obsolete */ }
#line 6698 "htcobol.tab.c"
break;
case 504: /* file_description_clause_value: VALUE OF FILE_ID is_opt filename */
#line 1541 "htcobol.y"
{
if ((yyvsp[(-2) - (5)].sval)->filenamevar != NULL) {
yyerror("Re-defining file name defined in SELECT statement");
}
else {
(yyvsp[(-2) - (5)].sval)->filenamevar = (yyvsp[0].sval);
}
}
#line 6711 "htcobol.tab.c"
break;
case 505: /* file_description_clause_data: DATA record_is_are var_strings */
#line 1551 "htcobol.y"
{ /* obsolete */ }
#line 6717 "htcobol.tab.c"
break;
case 506: /* file_description_clause_report: report_is_are STRING */
#line 1554 "htcobol.y"
{ save_report( (yyvsp[0].sval),(yyvsp[-2].sval) ); }
#line 6723 "htcobol.tab.c"
break;
case 507: /* file_description_clause_code_set: CODE_SET is_opt STRING */
#line 1558 "htcobol.y"
{ UNIMPLEMENTED ("Code-set is alphabet") /* unimplemented */ }
#line 6729 "htcobol.tab.c"
break;
case 508: /* file_description_clause_linage: LINAGE is_opt data_name lines_opt file_description_clause_linage_footing file_description_clause_linage_top file_description_clause_linage_bottom */
#line 1565 "htcobol.y"
{ UNIMPLEMENTED ("Linage is clause") /* unimplemented */ }
#line 6735 "htcobol.tab.c"
break;
case 510: /* file_description_clause_linage_footing: with_opt FOOTING at_opt data_name */
#line 1568 "htcobol.y"
{ /* unimplemented */ }
#line 6741 "htcobol.tab.c"
break;
case 512: /* file_description_clause_linage_top: lines_at_opt TOP data_name */
#line 1571 "htcobol.y"
{ /* unimplemented */ }
#line 6747 "htcobol.tab.c"
break;
case 514: /* file_description_clause_linage_bottom: lines_at_opt BOTTOM data_name */
#line 1574 "htcobol.y"
{ /* unimplemented */ }
#line 6753 "htcobol.tab.c"
break;
case 521: /* var_strings: STRING */
#line 1584 "htcobol.y"
{ }
#line 6759 "htcobol.tab.c"
break;
case 522: /* var_strings: var_strings STRING */
#line 1585 "htcobol.y"
{ }
#line 6765 "htcobol.tab.c"
break;
case 527: /* to_integer_opt: TO integer */
#line 1593 "htcobol.y"
{ }
#line 6771 "htcobol.tab.c"
break;
case 528: /* depend_rec_varying: %empty */
#line 1595 "htcobol.y"
{ (yyval.sval) = NULL; }
#line 6777 "htcobol.tab.c"
break;
case 529: /* depend_rec_varying: DEPENDING on_opt STRING */
#line 1596 "htcobol.y"
{ (yyval.sval) = (yyvsp[0].sval); }
#line 6783 "htcobol.tab.c"
break;
case 530: /* from_rec_varying: %empty */
#line 1599 "htcobol.y"
{ (yyval.lval) = NULL; }
#line 6789 "htcobol.tab.c"
break;
case 531: /* from_rec_varying: from_opt nliteral */
#line 1600 "htcobol.y"
{ (yyval.lval) = (yyvsp[0].lval); }
#line 6795 "htcobol.tab.c"
break;
case 534: /* to_rec_varying: %empty */
#line 1607 "htcobol.y"
{ (yyval.lval) = NULL; }
#line 6801 "htcobol.tab.c"
break;
case 535: /* to_rec_varying: TO nliteral */
#line 1608 "htcobol.y"
{ (yyval.lval) = (yyvsp[0].lval); }
#line 6807 "htcobol.tab.c"
break;
case 558: /* $@51: %empty */
#line 1672 "htcobol.y"
{
curr_division = CDIV_PROC;
}
#line 6815 "htcobol.tab.c"
break;
case 559: /* $@52: %empty */
#line 1676 "htcobol.y"
{
proc_header((yyvsp[-1].ival));
}
#line 6823 "htcobol.tab.c"
break;
case 560: /* procedure_division_opt: PROCEDURE DIVISION $@51 using_parameters PERIOD_TOK $@52 declaratives_opt procedure_division */
#line 1681 "htcobol.y"
{
/* close procedure_division sections & paragraphs */
close_section(); /* this also closes paragraph */
resolve_labels();
proc_trail((yyvsp[-4].ival));
}
#line 6834 "htcobol.tab.c"
break;
case 564: /* procedure_decl: procedure_section */
#line 1693 "htcobol.y"
{ close_section(); open_section((yyvsp[0].sval)); }
#line 6840 "htcobol.tab.c"
break;
case 565: /* procedure_decl: paragraph */
#line 1694 "htcobol.y"
{ close_paragr(); open_paragr((yyvsp[0].sval)); }
#line 6846 "htcobol.tab.c"
break;
case 566: /* $@53: %empty */
#line 1695 "htcobol.y"
{free_expr_list(); stabs_line();}
#line 6852 "htcobol.tab.c"
break;
case 568: /* $@54: %empty */
#line 1697 "htcobol.y"
{ yyerror("unknown or wrong statement"); }
#line 6858 "htcobol.tab.c"
break;
case 570: /* procedure_decl: PERIOD_TOK */
#line 1698 "htcobol.y"
{ }
#line 6864 "htcobol.tab.c"
break;
case 571: /* $@55: %empty */
#line 1703 "htcobol.y"
{
decl_lbl=loc_label++;
gen_jmplabel(decl_lbl);
}
#line 6873 "htcobol.tab.c"
break;
case 572: /* declaratives_opt: DECLARATIVES PERIOD_TOK $@55 declaratives_procedure declaratives_division END DECLARATIVES PERIOD_TOK */
#line 1710 "htcobol.y"
{
gen_dstlabel(decl_lbl);
}
#line 6881 "htcobol.tab.c"
break;
case 577: /* declaratives_decl: paragraph */
#line 1722 "htcobol.y"
{ close_paragr(); open_paragr((yyvsp[0].sval)); }
#line 6887 "htcobol.tab.c"
break;
case 578: /* $@56: %empty */
#line 1723 "htcobol.y"
{free_expr_list(); stabs_line();}
#line 6893 "htcobol.tab.c"
break;
case 580: /* $@57: %empty */
#line 1724 "htcobol.y"
{ yyerror("unknown or wrong statement"); }
#line 6899 "htcobol.tab.c"
break;
case 582: /* $@58: %empty */
#line 1730 "htcobol.y"
{
close_section();
open_section((yyvsp[0].sval));
}
#line 6908 "htcobol.tab.c"
break;
case 584: /* declaratives_procedure: error */
#line 1735 "htcobol.y"
{ yyerror("section name expected"); }
#line 6914 "htcobol.tab.c"
break;
case 585: /* use_phrase: USE AFTER use_phrase_exception_error PROCEDURE on_opt use_phrase_option PERIOD_TOK */
#line 1739 "htcobol.y"
{ /* mark_decl_list($6); */ }
#line 6920 "htcobol.tab.c"
break;
case 586: /* use_phrase: error */
#line 1740 "htcobol.y"
{ yyerror("use statement expected"); }
#line 6926 "htcobol.tab.c"
break;
case 591: /* use_phrase_option: gname_list */
#line 1748 "htcobol.y"
{ (yyval.glistval)=(yyvsp[0].glistval); }
#line 6932 "htcobol.tab.c"
break;
case 592: /* use_phrase_option: open_mode */
#line 1750 "htcobol.y"
{
(yyval.glistval)=NULL;
UNIMPLEMENTED ("Declaratives open-mode clause")
/* unimplemented */
}
#line 6942 "htcobol.tab.c"
break;
case 593: /* procedure_section: LABELSTR SECTION PERIOD_TOK */
#line 1761 "htcobol.y"
{
struct sym *lab=(yyvsp[-2].sval);
if (lab->defined != 0) {
lab = install(lab->name,SYTB_LAB,2);
}
lab->defined = 1;
(yyval.sval)=lab;
}
#line 6955 "htcobol.tab.c"
break;
case 594: /* paragraph: LABELSTR dot_or_eos */
#line 1772 "htcobol.y"
{
struct sym *lab=(yyvsp[-1].sval);
if (lab->defined != 0) {
if ((lab=lookup_label(lab,curr_section))==NULL) {
lab = install((yyvsp[-1].sval)->name,SYTB_LAB,2);
}
}
lab->parent = curr_section;
lab->defined=1;
(yyval.sval)=lab;
}
#line 6971 "htcobol.tab.c"
break;
case 597: /* statement_list: statements */
#line 1794 "htcobol.y"
{ }
#line 6977 "htcobol.tab.c"
break;
case 642: /* statement: CONTINUE */
#line 1843 "htcobol.y"
{ stabs_line(); }
#line 6983 "htcobol.tab.c"
break;
case 644: /* $@59: %empty */
#line 1853 "htcobol.y"
{ gen_dstlabel((yyvsp[0].dval)); }
#line 6989 "htcobol.tab.c"
break;
case 646: /* @60: %empty */
#line 1855 "htcobol.y"
{ (yyval.dval)=gen_passlabel(); gen_dstlabel((yyvsp[-1].dval)); }
#line 6995 "htcobol.tab.c"
break;
case 647: /* $@61: %empty */
#line 1857 "htcobol.y"
{ gen_dstlabel((yyvsp[-1].dval)); }
#line 7001 "htcobol.tab.c"
break;
case 651: /* @62: %empty */
#line 1866 "htcobol.y"
{ (yyval.ival) = gen_evaluate_start(); }
#line 7007 "htcobol.tab.c"
break;
case 652: /* $@63: %empty */
#line 1868 "htcobol.y"
{ compute_subject_set_size((yyvsp[0].ssbjval)); }
#line 7013 "htcobol.tab.c"
break;
case 653: /* evaluate_statement: EVALUATE @62 selection_subject_set $@63 when_case_list end_evaluate_or_eos */
#line 1871 "htcobol.y"
{ release_sel_subject((yyvsp[-4].ival),(yyvsp[-3].ssbjval)); }
#line 7019 "htcobol.tab.c"
break;
case 656: /* @64: %empty */
#line 1878 "htcobol.y"
{ (yyval.sval)=NULL; /* to store non-numeric symbols */ }
#line 7025 "htcobol.tab.c"
break;
case 657: /* selection_subject_set: @64 selection_subject */
#line 1879 "htcobol.y"
{ (yyval.ssbjval)=save_sel_subject((yyvsp[0].ival),NULL,(yyvsp[-1].sval)); }
#line 7031 "htcobol.tab.c"
break;
case 658: /* @65: %empty */
#line 1881 "htcobol.y"
{ (yyval.sval)=NULL; /* to store non-numeric symbols */ }
#line 7037 "htcobol.tab.c"
break;
case 659: /* selection_subject_set: selection_subject_set ALSO @65 selection_subject */
#line 1883 "htcobol.y"
{ (yyval.ssbjval)=save_sel_subject((yyvsp[0].ival),(yyvsp[-3].ssbjval),(yyvsp[-1].sval)); }
#line 7043 "htcobol.tab.c"
break;
case 660: /* selection_subject: expr */
#line 1887 "htcobol.y"
{
if (push_expr((yyvsp[0].sval)))
(yyval.ival)=SSUBJ_EXPR;
else {
(yyvsp[-1].sval) = (yyvsp[0].sval);
(yyval.ival)=SSUBJ_STR;
}
}
#line 7056 "htcobol.tab.c"
break;
case 661: /* selection_subject: condition */
#line 1895 "htcobol.y"
{ push_condition(); (yyval.ival)=SSUBJ_COND; }
#line 7062 "htcobol.tab.c"
break;
case 662: /* selection_subject: TRUE_TOK */
#line 1896 "htcobol.y"
{ (yyval.ival)=SSUBJ_TRUE; }
#line 7068 "htcobol.tab.c"
break;
case 663: /* selection_subject: FALSE_TOK */
#line 1897 "htcobol.y"
{ (yyval.ival)=SSUBJ_FALSE; }
#line 7074 "htcobol.tab.c"
break;
case 664: /* @66: %empty */
#line 1900 "htcobol.y"
{ (yyval.ival) = loc_label++; /* mark end of "when" case */ }
#line 7080 "htcobol.tab.c"
break;
case 665: /* @67: %empty */
#line 1901 "htcobol.y"
{ (yyval.ssbjval)=(yyvsp[(-1) - (2)].ssbjval); /* store inherited subject set */ }
#line 7086 "htcobol.tab.c"
break;
case 666: /* when_case_list: WHEN @66 @67 when_case sentence_or_nothing */
#line 1904 "htcobol.y"
{ (yyval.ival)=gen_end_when((yyvsp[(-2) - (5)].ival),(yyvsp[-3].ival),(yyvsp[0].ival)); }
#line 7092 "htcobol.tab.c"
break;
case 667: /* @68: %empty */
#line 1905 "htcobol.y"
{ (yyval.ival) = loc_label++; }
#line 7098 "htcobol.tab.c"
break;
case 668: /* @69: %empty */
#line 1906 "htcobol.y"
{ (yyval.ssbjval)=(yyvsp[(-1) - (3)].ssbjval); }
#line 7104 "htcobol.tab.c"
break;
case 669: /* $@70: %empty */
#line 1908 "htcobol.y"
{ gen_bypass_when_case((yyvsp[-4].ival)); }
#line 7110 "htcobol.tab.c"
break;
case 670: /* when_case_list: when_case_list WHEN @68 @69 when_case $@70 sentence_or_nothing */
#line 1910 "htcobol.y"
{ (yyval.ival)=gen_end_when((yyvsp[(-2) - (7)].ival),(yyvsp[-4].ival),(yyvsp[0].ival)); }
#line 7116 "htcobol.tab.c"
break;
case 671: /* @71: %empty */
#line 1913 "htcobol.y"
{ (yyval.sval) = NULL; }
#line 7122 "htcobol.tab.c"
break;
case 672: /* when_case: @71 selection_object */
#line 1915 "htcobol.y"
{
gen_when_check(0,(yyvsp[-2].ssbjval),(yyvsp[0].ival),(yyvsp[(-1) - (2)].ival),(yyvsp[-1].sval));
(yyval.ival)=0;
}
#line 7131 "htcobol.tab.c"
break;
case 673: /* @72: %empty */
#line 1920 "htcobol.y"
{ (yyval.sval) = NULL; }
#line 7137 "htcobol.tab.c"
break;
case 674: /* when_case: when_case ALSO @72 selection_object */
#line 1922 "htcobol.y"
{
gen_when_check((yyvsp[-3].ival)+1,(yyvsp[-4].ssbjval),(yyvsp[0].ival),(yyvsp[(-1) - (4)].ival),(yyvsp[-1].sval));
(yyval.ival)=(yyvsp[-3].ival)+1;
}
#line 7146 "htcobol.tab.c"
break;
case 675: /* when_case: OTHER */
#line 1926 "htcobol.y"
{ (yyval.ival)=-1; }
#line 7152 "htcobol.tab.c"
break;
case 676: /* selection_object: ANY */
#line 1929 "htcobol.y"
{ (yyval.ival)=SOBJ_ANY; }
#line 7158 "htcobol.tab.c"
break;
case 677: /* selection_object: TRUE_TOK */
#line 1930 "htcobol.y"
{ (yyval.ival)=SOBJ_TRUE; }
#line 7164 "htcobol.tab.c"
break;
case 678: /* selection_object: FALSE_TOK */
#line 1931 "htcobol.y"
{ (yyval.ival)=SOBJ_FALSE; }
#line 7170 "htcobol.tab.c"
break;
case 679: /* selection_object: not_opt expr */
#line 1933 "htcobol.y"
{
if (push_expr((yyvsp[0].sval))) {
if ((yyvsp[-1].ival))
(yyval.ival)=SOBJ_NEGEXPR;
else
(yyval.ival)=SOBJ_EXPR;
}
else {
/* non-numeric comparation */
(yyvsp[-2].sval) = (yyvsp[0].sval);
if ((yyvsp[-1].ival))
(yyval.ival)=SOBJ_NEGSTR;
else
(yyval.ival)=SOBJ_STR;
}
}
#line 7191 "htcobol.tab.c"
break;
case 680: /* selection_object: not_opt expr THRU expr */
#line 1950 "htcobol.y"
{
if (push_expr((yyvsp[0].sval)) && push_expr((yyvsp[-2].sval))) {
if ((yyvsp[-3].ival))
(yyval.ival)=SOBJ_NEGRANGE;
else
(yyval.ival)=SOBJ_RANGE;
}
else {
yyerror("ranges only accepted for numeric variables");
}
}
#line 7207 "htcobol.tab.c"
break;
case 681: /* selection_object: not_opt cond_name */
#line 1962 "htcobol.y"
{
gen_condition((yyvsp[0].sval));
if ((yyvsp[-1].ival))
(yyval.ival)=SOBJ_NEGCOND;
else
(yyval.ival)=SOBJ_COND;
}
#line 7219 "htcobol.tab.c"
break;
case 682: /* sentence_or_nothing: %empty */
#line 1972 "htcobol.y"
{ (yyval.ival) = 0; }
#line 7225 "htcobol.tab.c"
break;
case 683: /* sentence_or_nothing: conditional_statement */
#line 1973 "htcobol.y"
{ (yyval.ival) = 1; }
#line 7231 "htcobol.tab.c"
break;
case 684: /* @73: %empty */
#line 1978 "htcobol.y"
{ (yyval.dval)=gen_testif(); }
#line 7237 "htcobol.tab.c"
break;
case 685: /* if_part: IF condition @73 end_then_opt conditional_statement */
#line 1980 "htcobol.y"
{ (yyval.dval)=(yyvsp[-2].dval); }
#line 7243 "htcobol.tab.c"
break;
case 686: /* $@74: %empty */
#line 1988 "htcobol.y"
{ stabs_line(); }
#line 7249 "htcobol.tab.c"
break;
case 688: /* $@75: %empty */
#line 1989 "htcobol.y"
{ stabs_line(); }
#line 7255 "htcobol.tab.c"
break;
case 690: /* not_opt: %empty */
#line 1996 "htcobol.y"
{ (yyval.ival)=0; }
#line 7261 "htcobol.tab.c"
break;
case 691: /* not_opt: NOT */
#line 1997 "htcobol.y"
{ (yyval.ival)=1; }
#line 7267 "htcobol.tab.c"
break;
case 696: /* @76: %empty */
#line 2007 "htcobol.y"
{
(yyval.dval)=loc_label++; /* determine END label name */
gen_marklabel();
/* yydebug=1; */
}
#line 7277 "htcobol.tab.c"
break;
case 697: /* @77: %empty */
#line 2013 "htcobol.y"
{
(yyval.dval)=loc_label++; /* determine search loop start label */
if ((yyvsp[0].sval) == NULL) {
(yyvsp[0].sval)=determine_table_index_name((yyvsp[-2].sval));
if ((yyvsp[0].sval) == NULL) {
yyerror("Unable to determine search index for table '%s'", (yyvsp[-2].sval)->name);
}
}
gen_jmplabel((yyval.dval)); /* generate GOTO search loop start */
}
#line 7292 "htcobol.tab.c"
break;
case 698: /* @78: %empty */
#line 2024 "htcobol.y"
{
gen_jmplabel((yyvsp[-3].dval)); /* generate GOTO END */
gen_dstlabel((yyvsp[-1].dval)); /* generate search loop start label */
(yyval.dval) = (yyvsp[-3].dval);
}
#line 7302 "htcobol.tab.c"
break;
case 699: /* search: variable_indexed @76 search_varying_opt @77 search_at_end @78 search_when_list */
#line 2030 "htcobol.y"
{
/* increment loop index, check for end */
gen_SearchLoopCheck((yyvsp[-2].dval), (yyvsp[-4].sval), (yyvsp[-6].sval));
gen_jmplabel((yyvsp[-3].dval)); /* generate goto search loop start label */
gen_dstlabel((yyvsp[-5].dval)); /* generate END label */
}
#line 7314 "htcobol.tab.c"
break;
case 700: /* @79: %empty */
#line 2040 "htcobol.y"
{
lbend=loc_label++; /* determine END label name */
gen_marklabel();
lbstart=loc_label++; /* determine search_all loop start label */
(yyval.sval)=determine_table_index_name((yyvsp[0].sval));
if ((yyval.sval) == NULL) {
yyerror("Unable to determine search index for table '%s'", (yyvsp[0].sval)->name);
}
else {
/* Initilize and store search table index boundaries */
Initialize_SearchAll_Boundaries((yyvsp[0].sval), (yyval.sval));
}
gen_jmplabel(lbstart); /* generate GOTO search_all loop start */
}
#line 7336 "htcobol.tab.c"
break;
case 701: /* $@80: %empty */
#line 2058 "htcobol.y"
{
gen_jmplabel(lbend); /* generate GOTO END */
gen_dstlabel(lbstart); /* generate search loop start label */
}
#line 7345 "htcobol.tab.c"
break;
case 702: /* search_all: variable_indexed @79 search_at_end $@80 search_all_when_list */
#line 2063 "htcobol.y"
{
/* adjust loop index, check for end */
gen_SearchAllLoopCheck((yyvsp[-2].dval), (yyvsp[-3].sval), (yyvsp[-4].sval), curr_field, lbstart, lbend);
}
#line 7354 "htcobol.tab.c"
break;
case 703: /* search_varying_opt: VARYING variable */
#line 2070 "htcobol.y"
{ (yyval.sval)=(yyvsp[0].sval); }
#line 7360 "htcobol.tab.c"
break;
case 704: /* search_varying_opt: %empty */
#line 2071 "htcobol.y"
{ (yyval.sval)=NULL; }
#line 7366 "htcobol.tab.c"
break;
case 705: /* @81: %empty */
#line 2076 "htcobol.y"
{
(yyval.dval)=loc_label++; /* determine ATEND label name */
gen_dstlabel((yyval.dval)); /* determine ATEND label name */
}
#line 7375 "htcobol.tab.c"
break;
case 706: /* search_at_end: at_opt END @81 statement_list */
#line 2081 "htcobol.y"
{
(yyval.dval)=(yyvsp[-1].dval);
}
#line 7383 "htcobol.tab.c"
break;
case 707: /* search_at_end: %empty */
#line 2085 "htcobol.y"
{
(yyval.dval)=loc_label++; /* determine ATEND label name */
gen_dstlabel((yyval.dval)); /* determine ATEND label name */
}
#line 7392 "htcobol.tab.c"
break;
case 708: /* search_when_list: search_when */
#line 2092 "htcobol.y"
{ (yyval.dval)=(yyvsp[0].dval); }
#line 7398 "htcobol.tab.c"
break;
case 709: /* search_when_list: search_when_list search_when */
#line 2093 "htcobol.y"
{ (yyval.dval)=(yyvsp[-1].dval); }
#line 7404 "htcobol.tab.c"
break;
case 710: /* @82: %empty */
#line 2098 "htcobol.y"
{ (yyval.dval)=gen_testif(); }
#line 7410 "htcobol.tab.c"
break;
case 711: /* search_when: WHEN search_when_conditional @82 search_when_statement */
#line 2100 "htcobol.y"
{
(yyval.dval) = (yyvsp[-4].dval);
gen_jmplabel((yyval.dval)); /* generate GOTO END */
gen_dstlabel((yyvsp[-1].dval));
}
#line 7420 "htcobol.tab.c"
break;
case 714: /* search_when_conditional: name_or_lit extended_cond_op name_or_lit */
#line 2122 "htcobol.y"
{ gen_compare((yyvsp[-2].sval),(yyvsp[-1].ival),(yyvsp[0].sval)); }
#line 7426 "htcobol.tab.c"
break;
case 717: /* $@83: %empty */
#line 2130 "htcobol.y"
{ curr_field = NULL; }
#line 7432 "htcobol.tab.c"
break;
case 718: /* @84: %empty */
#line 2132 "htcobol.y"
{ (yyval.dval)=gen_testif(); }
#line 7438 "htcobol.tab.c"
break;
case 719: /* search_all_when: WHEN $@83 search_all_when_conditional @84 search_all_when_statement */
#line 2134 "htcobol.y"
{
gen_jmplabel(lbend); /* generate GOTO END */
gen_dstlabel((yyvsp[-1].dval));
}
#line 7447 "htcobol.tab.c"
break;
case 722: /* search_all_when_conditional: variable is_opt CONDITIONAL to_opt variable */
#line 2151 "htcobol.y"
{
if ((yyvsp[-2].ival) != EQUAL)
yyerror("Only = conditional allowed in search all statement");
if (curr_field == NULL)
curr_field = (yyvsp[-4].sval);
gen_compare((yyvsp[-4].sval),(yyvsp[-2].ival),(yyvsp[0].sval));
}
#line 7459 "htcobol.tab.c"
break;
case 723: /* search_all_when_conditional: variable is_opt CONDITIONAL to_opt literal */
#line 2159 "htcobol.y"
{
if ((yyvsp[-2].ival) != EQUAL)
yyerror("Only = conditional allowed in search all statement");
if (curr_field == NULL)
curr_field = (yyvsp[-4].sval);
gen_compare((yyvsp[-4].sval),(yyvsp[-2].ival),(struct sym *)(yyvsp[0].lval));
}
#line 7471 "htcobol.tab.c"
break;
case 724: /* @85: %empty */
#line 2166 "htcobol.y"
{ (yyval.dval)=gen_andstart(); }
#line 7477 "htcobol.tab.c"
break;
case 725: /* search_all_when_conditional: search_all_when_conditional AND @85 search_all_when_conditional */
#line 2167 "htcobol.y"
{ gen_dstlabel((yyvsp[-1].dval)); }
#line 7483 "htcobol.tab.c"
break;
case 728: /* unlock_statement: UNLOCK name */
#line 2175 "htcobol.y"
{ gen_unlock((yyvsp[0].sval)); }
#line 7489 "htcobol.tab.c"
break;
case 729: /* proto_statement: TCOBPROTO1 gname */
#line 2178 "htcobol.y"
{ gen_tcob_proto1( (yyvsp[0].sval) ); }
#line 7495 "htcobol.tab.c"
break;
case 730: /* proto_statement: TCOBPROTO2 gname gname */
#line 2179 "htcobol.y"
{ gen_tcob_proto2( (yyvsp[-1].sval),(yyvsp[0].sval) ); }
#line 7501 "htcobol.tab.c"
break;
case 731: /* trace_statement: READY TRACE */
#line 2182 "htcobol.y"
{ }
#line 7507 "htcobol.tab.c"
break;
case 732: /* trace_statement: RESET TRACE */
#line 2183 "htcobol.y"
{ }
#line 7513 "htcobol.tab.c"
break;
case 736: /* cancel_statement: CANCEL gname */
#line 2195 "htcobol.y"
{ gen_cancel((yyvsp[0].sval)); }
#line 7519 "htcobol.tab.c"
break;
case 737: /* cancel_statement: CANCEL ALL */
#line 2196 "htcobol.y"
{ gen_cancel(NULL); }
#line 7525 "htcobol.tab.c"
break;
case 738: /* $@86: %empty */
#line 2202 "htcobol.y"
{ sort_keys_append((yyvsp[-1].sval), (yyvsp[0].glistval)); }
#line 7531 "htcobol.tab.c"
break;
case 739: /* $@87: %empty */
#line 2204 "htcobol.y"
{ gen_sort((yyvsp[-3].sval)); }
#line 7537 "htcobol.tab.c"
break;
case 740: /* $@88: %empty */
#line 2206 "htcobol.y"
{ gen_sort_using((yyvsp[-5].sval), (yyvsp[0].snval)); }
#line 7543 "htcobol.tab.c"
break;
case 741: /* merge_statement: MERGE name sort_keys $@86 sort_collating_opt $@87 merge_using $@88 sort_output */
#line 2208 "htcobol.y"
{
if ((yyvsp[0].snval) != NULL) {
gen_sort_giving((yyvsp[-7].sval), (yyvsp[0].snval));
}
}
#line 7553 "htcobol.tab.c"
break;
case 742: /* merge_using: USING sort_file_list */
#line 2215 "htcobol.y"
{ (yyval.snval)=(yyvsp[0].snval); }
#line 7559 "htcobol.tab.c"
break;
case 745: /* $@89: %empty */
#line 2225 "htcobol.y"
{ sort_keys_append((yyvsp[-1].sval), (yyvsp[0].glistval)); }
#line 7565 "htcobol.tab.c"
break;
case 746: /* $@90: %empty */
#line 2227 "htcobol.y"
{ gen_sort((yyvsp[-4].sval)); }
#line 7571 "htcobol.tab.c"
break;
case 747: /* $@91: %empty */
#line 2229 "htcobol.y"
{
if ((yyvsp[0].snval) != NULL) {
gen_sort_using((yyvsp[-6].sval), (yyvsp[0].snval));
}
}
#line 7581 "htcobol.tab.c"
break;
case 748: /* sort_file: SORT name sort_keys $@89 sort_duplicates_opt sort_collating_opt $@90 sort_input $@91 sort_output */
#line 2235 "htcobol.y"
{
if ((yyvsp[0].snval) != NULL) {
gen_sort_giving((yyvsp[-8].sval), (yyvsp[0].snval));
}
}
#line 7591 "htcobol.tab.c"
break;
case 749: /* $@92: %empty */
#line 2244 "htcobol.y"
{ sort_keys_append((yyvsp[-1].sval), (yyvsp[0].glistval)); }
#line 7597 "htcobol.tab.c"
break;
case 750: /* sort_variable_indexed: SORT variable_indexed sort_keys_idx $@92 sort_duplicates_opt sort_collating_opt */
#line 2246 "htcobol.y"
{ gen_sort((yyvsp[-4].sval)); }
#line 7603 "htcobol.tab.c"
break;
case 751: /* sort_keys: sort_key */
#line 2250 "htcobol.y"
{ (yyval.glistval)=sort_keys_list_append(NULL, (yyvsp[0].glistval)); }
#line 7609 "htcobol.tab.c"
break;
case 752: /* sort_keys: sort_keys sort_key */
#line 2251 "htcobol.y"
{ (yyval.glistval)=sort_keys_list_append((yyvsp[-1].glistval), (yyvsp[0].glistval)); }
#line 7615 "htcobol.tab.c"
break;
case 753: /* sort_keys_idx: sort_key_idx */
#line 2255 "htcobol.y"
{ (yyval.glistval)=sort_keys_list_append(NULL, (yyvsp[0].glistval)); }
#line 7621 "htcobol.tab.c"
break;
case 754: /* sort_keys_idx: sort_keys_idx sort_key_idx */
#line 2256 "htcobol.y"
{ (yyval.glistval)=sort_keys_list_append((yyvsp[-1].glistval), (yyvsp[0].glistval)); }
#line 7627 "htcobol.tab.c"
break;
case 755: /* sort_key: on_opt DIRECTION key_opt sort_keys_names */
#line 2261 "htcobol.y"
{ (yyval.glistval)=sort_key_list_create((yyvsp[0].glistval), (yyvsp[-2].ival)); }
#line 7633 "htcobol.tab.c"
break;
case 756: /* sort_key_idx: on_opt DIRECTION key_opt sort_keys_names_idx */
#line 2266 "htcobol.y"
{ (yyval.glistval)=sort_key_list_create((yyvsp[0].glistval), (yyvsp[-2].ival)); }
#line 7639 "htcobol.tab.c"
break;
case 757: /* sort_keys_names: name */
#line 2270 "htcobol.y"
{ (yyval.glistval) = gvar_list_append(NULL, (yyvsp[0].sval), source_lineno); }
#line 7645 "htcobol.tab.c"
break;
case 758: /* sort_keys_names: sort_keys_names name */
#line 2271 "htcobol.y"
{ (yyval.glistval) = gvar_list_append((yyvsp[-1].glistval), (yyvsp[0].sval), source_lineno); }
#line 7651 "htcobol.tab.c"
break;
case 759: /* sort_keys_names_idx: variable_indexed */
#line 2275 "htcobol.y"
{ (yyval.glistval) = gvar_list_append(NULL, (yyvsp[0].sval), source_lineno); }
#line 7657 "htcobol.tab.c"
break;
case 760: /* sort_keys_names_idx: sort_keys_names_idx variable_indexed */
#line 2276 "htcobol.y"
{ (yyval.glistval) = gvar_list_append((yyvsp[-1].glistval), (yyvsp[0].sval), source_lineno); }
#line 7663 "htcobol.tab.c"
break;
case 762: /* sort_duplicates_opt: with_opt DUPLICATES in_opt order_opt */
#line 2281 "htcobol.y"
{
UNIMPLEMENTED ("SORT with duplicates in order clause")
/* unimplemented */
}
#line 7672 "htcobol.tab.c"
break;
case 764: /* sort_collating_opt: collating_sequence */
#line 2289 "htcobol.y"
{ UNIMPLEMENTED ("SORT/MERGE collating sequence clause") /* unimplemented */ }
#line 7678 "htcobol.tab.c"
break;
case 765: /* sort_input: INPUT PROCEDURE is_opt perform_range */
#line 2294 "htcobol.y"
{ (yyval.snval)=NULL; }
#line 7684 "htcobol.tab.c"
break;
case 766: /* sort_input: USING sort_file_list */
#line 2295 "htcobol.y"
{ (yyval.snval)=(yyvsp[0].snval); }
#line 7690 "htcobol.tab.c"
break;
case 767: /* sort_output: OUTPUT PROCEDURE is_opt perform_range */
#line 2298 "htcobol.y"
{ (yyval.snval)=NULL; }
#line 7696 "htcobol.tab.c"
break;
case 768: /* sort_output: GIVING sort_file_list */
#line 2299 "htcobol.y"
{ (yyval.snval)=(yyvsp[0].snval); }
#line 7702 "htcobol.tab.c"
break;
case 769: /* sort_file_list: name */
#line 2302 "htcobol.y"
{ (yyval.snval) = alloc_sortfile_node((yyvsp[0].sval)); }
#line 7708 "htcobol.tab.c"
break;
case 770: /* sort_file_list: sort_file_list name */
#line 2304 "htcobol.y"
{
(yyvsp[-1].snval)->next = alloc_sortfile_node((yyvsp[0].sval)); (yyval.snval)=(yyvsp[-1].snval);
}
#line 7716 "htcobol.tab.c"
break;
case 771: /* move_statement: MOVE gname TO name_var_list */
#line 2311 "htcobol.y"
{ gen_moves((yyvsp[-2].sval), (yyvsp[0].glistval)); }
#line 7722 "htcobol.tab.c"
break;
case 772: /* move_statement: MOVE CORRESPONDING name_var TO name_var */
#line 2312 "htcobol.y"
{ gen_movecorr((yyvsp[-2].sval), (yyvsp[0].sval)); }
#line 7728 "htcobol.tab.c"
break;
case 773: /* move_statement: MOVE LENGTH OF gname TO name_var */
#line 2313 "htcobol.y"
{ gen_movelength((yyvsp[-2].sval), (yyvsp[0].sval)); }
#line 7734 "htcobol.tab.c"
break;
case 774: /* move_statement: MOVE gname TO */
#line 2314 "htcobol.y"
{ yyerror("Expected variable"); }
#line 7740 "htcobol.tab.c"
break;
case 775: /* initialize_statement: INITIALIZE gname_list initialize_replacing_opt */
#line 2319 "htcobol.y"
{ gen_initializes((yyvsp[-1].glistval)); }
#line 7746 "htcobol.tab.c"
break;
case 776: /* initialize_statement: INITIALIZE */
#line 2320 "htcobol.y"
{ yyerror("INITIALIZE: expected a variable name");}
#line 7752 "htcobol.tab.c"
break;
case 778: /* initialize_replacing_opt: REPLACING initialize_replacing_lists */
#line 2324 "htcobol.y"
{ UNIMPLEMENTED ("INITIALIZE ... REPLACING clause") }
#line 7758 "htcobol.tab.c"
break;
case 781: /* initialize_replacing_list: initialize_type_list data_opt BY gname */
#line 2331 "htcobol.y"
{ /* not implimented */ }
#line 7764 "htcobol.tab.c"
break;
case 782: /* initialize_type_list: ALPHABETIC */
#line 2334 "htcobol.y"
{ }
#line 7770 "htcobol.tab.c"
break;
case 783: /* initialize_type_list: ALPHANUMERIC */
#line 2335 "htcobol.y"
{ }
#line 7776 "htcobol.tab.c"
break;
case 784: /* initialize_type_list: NUMERIC */
#line 2336 "htcobol.y"
{ }
#line 7782 "htcobol.tab.c"
break;
case 785: /* initialize_type_list: ALPHANUMERIC_EDITED */
#line 2337 "htcobol.y"
{ }
#line 7788 "htcobol.tab.c"
break;
case 786: /* initialize_type_list: NUMERIC_EDITED */
#line 2338 "htcobol.y"
{ }
#line 7794 "htcobol.tab.c"
break;
case 788: /* compute_statement: COMPUTE */
#line 2344 "htcobol.y"
{ yyerror(err_msg_bad_form, "COMPUTE");}
#line 7800 "htcobol.tab.c"
break;
case 789: /* compute_body: var_list_name CONDITIONAL expr on_size_error_opt */
#line 2348 "htcobol.y"
{
if ((yyvsp[-2].ival) != EQUAL)
yyerror("= expected");
else if ((yyvsp[0].mose) == NULL)
gen_compute1((yyvsp[-3].mval), (yyvsp[-1].sval));
else
gen_compute2((yyvsp[-3].mval), (yyvsp[-1].sval), (yyvsp[0].mose));
delete_mathvar_info((yyvsp[-3].mval));
if ((yyvsp[0].mose) != NULL)
tmose = NULL;
}
#line 7816 "htcobol.tab.c"
break;
case 793: /* add_statement: ADD */
#line 2368 "htcobol.y"
{ yyerror(err_msg_bad_form, "ADD");}
#line 7822 "htcobol.tab.c"
break;
case 794: /* add_body: var_list_gname TO var_list_name on_size_error_opt */
#line 2372 "htcobol.y"
{
gen_add1((yyvsp[-3].mval), (yyvsp[-1].mval), (yyvsp[0].mose));
delete_mathvar_info((yyvsp[-3].mval));
delete_mathvar_info((yyvsp[-1].mval));
if ((yyvsp[0].mose) != NULL)
tmose = NULL;
}
#line 7834 "htcobol.tab.c"
break;
case 795: /* add_body: var_list_gname add_to_opt GIVING var_list_name on_size_error_opt */
#line 2380 "htcobol.y"
{
gen_add2((yyvsp[-4].mval), (yyvsp[-1].mval), (yyvsp[-3].sval), (yyvsp[0].mose));
delete_mathvar_info((yyvsp[-4].mval));
delete_mathvar_info((yyvsp[-1].mval));
if ((yyvsp[0].mose) != NULL)
tmose = NULL;
}
#line 7846 "htcobol.tab.c"
break;
case 796: /* add_body: CORRESPONDING var_list_gname TO var_list_name rounded_opt on_size_error_opt */
#line 2388 "htcobol.y"
{
gen_addcorr1((yyvsp[-4].mval), (yyvsp[-2].mval), (yyvsp[-1].ival), (yyvsp[0].mose));
delete_mathvar_info((yyvsp[-4].mval));
delete_mathvar_info((yyvsp[-2].mval));
if ((yyvsp[0].mose) != NULL)
tmose = NULL;
}
#line 7858 "htcobol.tab.c"
break;
case 797: /* add_to_opt: %empty */
#line 2397 "htcobol.y"
{ (yyval.sval) = NULL; }
#line 7864 "htcobol.tab.c"
break;
case 798: /* add_to_opt: TO gname */
#line 2398 "htcobol.y"
{ (yyval.sval) = (yyvsp[0].sval); }
#line 7870 "htcobol.tab.c"
break;
case 802: /* subtract_statement: SUBTRACT */
#line 2409 "htcobol.y"
{ yyerror(err_msg_bad_form, "SUBTRACT");}
#line 7876 "htcobol.tab.c"
break;
case 803: /* subtract_body: var_list_gname FROM var_list_name on_size_error_opt */
#line 2413 "htcobol.y"
{
gen_subtract1((yyvsp[-3].mval), (yyvsp[-1].mval), (yyvsp[0].mose));
delete_mathvar_info((yyvsp[-3].mval));
delete_mathvar_info((yyvsp[-1].mval));
if ((yyvsp[0].mose) != NULL)
tmose = NULL;
}
#line 7888 "htcobol.tab.c"
break;
case 804: /* subtract_body: var_list_gname FROM gname GIVING var_list_name on_size_error_opt */
#line 2421 "htcobol.y"
{
assert_numeric_sy((yyvsp[-3].sval));
gen_subtract2((yyvsp[-5].mval), (yyvsp[-1].mval), (yyvsp[-3].sval), (yyvsp[0].mose));
delete_mathvar_info((yyvsp[-5].mval));
delete_mathvar_info((yyvsp[-1].mval));
if ((yyvsp[0].mose) != NULL)
tmose = NULL;
}
#line 7901 "htcobol.tab.c"
break;
case 805: /* subtract_body: CORRESPONDING var_list_gname FROM var_list_name rounded_opt on_size_error_opt */
#line 2430 "htcobol.y"
{
gen_subtractcorr1((yyvsp[-4].mval), (yyvsp[-2].mval), (yyvsp[-1].ival), (yyvsp[0].mose));
delete_mathvar_info((yyvsp[-4].mval));
delete_mathvar_info((yyvsp[-2].mval));
if ((yyvsp[0].mose) != NULL)
tmose = NULL;
}
#line 7913 "htcobol.tab.c"
break;
case 809: /* multiply_statement: MULTIPLY */
#line 2446 "htcobol.y"
{ yyerror(err_msg_bad_form, "MULTIPLY");}
#line 7919 "htcobol.tab.c"
break;
case 810: /* multiply_body: gname BY gname GIVING var_list_name on_size_error_opt */
#line 2450 "htcobol.y"
{
assert_numeric_sy((yyvsp[-5].sval));
assert_numeric_sy((yyvsp[-3].sval));
gen_multiply2((yyvsp[-1].mval), (yyvsp[-5].sval), (yyvsp[-3].sval), (yyvsp[0].mose));
delete_mathvar_info((yyvsp[-1].mval));
if ((yyvsp[0].mose) != NULL)
tmose = NULL;
}
#line 7932 "htcobol.tab.c"
break;
case 811: /* multiply_body: gname BY var_list_name on_size_error_opt */
#line 2459 "htcobol.y"
{
assert_numeric_sy((yyvsp[-3].sval));
gen_multiply1((yyvsp[-1].mval), (yyvsp[-3].sval), (yyvsp[0].mose));
delete_mathvar_info((yyvsp[-1].mval));
if ((yyvsp[0].mose) != NULL)
tmose = NULL;
}
#line 7944 "htcobol.tab.c"
break;
case 815: /* divide_statement: DIVIDE */
#line 2476 "htcobol.y"
{ yyerror(err_msg_bad_form, "DIVIDE");}
#line 7950 "htcobol.tab.c"
break;
case 816: /* divide_body: gname BY gname GIVING var_list_name on_size_error_opt */
#line 2480 "htcobol.y"
{
assert_numeric_sy((yyvsp[-5].sval));
assert_numeric_sy((yyvsp[-3].sval));
gen_divide2((yyvsp[-1].mval), (yyvsp[-5].sval), (yyvsp[-3].sval), (yyvsp[0].mose));
delete_mathvar_info((yyvsp[-1].mval));
if ((yyvsp[0].mose) != NULL)
tmose = NULL;
}
#line 7963 "htcobol.tab.c"
break;
case 817: /* divide_body: gname BY gname GIVING name rounded_opt REMAINDER name on_size_error_opt */
#line 2489 "htcobol.y"
{
assert_numeric_sy((yyvsp[-8].sval));
assert_numeric_sy((yyvsp[-6].sval));
assert_numeric_dest_sy((yyvsp[-4].sval));
gen_divide4((yyvsp[-8].sval), (yyvsp[-6].sval), (yyvsp[-4].sval), (yyvsp[-1].sval), (yyvsp[-3].ival), (yyvsp[0].mose));
if ((yyvsp[0].mose) != NULL)
tmose = NULL;
}
#line 7976 "htcobol.tab.c"
break;
case 818: /* divide_body: gname INTO gname GIVING name rounded_opt REMAINDER name on_size_error_opt */
#line 2498 "htcobol.y"
{
assert_numeric_sy((yyvsp[-8].sval));
assert_numeric_sy((yyvsp[-6].sval));
assert_numeric_dest_sy((yyvsp[-4].sval));
gen_divide4((yyvsp[-6].sval), (yyvsp[-8].sval), (yyvsp[-4].sval), (yyvsp[-1].sval), (yyvsp[-3].ival), (yyvsp[0].mose));
if ((yyvsp[0].mose) != NULL)
tmose = NULL;
}
#line 7989 "htcobol.tab.c"
break;
case 819: /* divide_body: gname INTO gname GIVING var_list_name on_size_error_opt */
#line 2507 "htcobol.y"
{
assert_numeric_sy((yyvsp[-5].sval));
assert_numeric_sy((yyvsp[-3].sval));
gen_divide2((yyvsp[-1].mval), (yyvsp[-3].sval), (yyvsp[-5].sval), (yyvsp[0].mose));
delete_mathvar_info((yyvsp[-1].mval));
if ((yyvsp[0].mose) != NULL)
tmose = NULL;
}
#line 8002 "htcobol.tab.c"
break;
case 820: /* divide_body: gname INTO var_list_name on_size_error_opt */
#line 2516 "htcobol.y"
{
assert_numeric_sy((yyvsp[-3].sval));
gen_divide1((yyvsp[-1].mval), (yyvsp[-3].sval), (yyvsp[0].mose));
delete_mathvar_info((yyvsp[-1].mval));
if ((yyvsp[0].mose) != NULL)
tmose = NULL;
}
#line 8014 "htcobol.tab.c"
break;
case 826: /* accept_statement: ACCEPT */
#line 2534 "htcobol.y"
{ yyerror(err_msg_bad_form, "ACCEPT");}
#line 8020 "htcobol.tab.c"
break;
case 827: /* accept_hardware: ACCEPT name FROM INKEY end_accept_opt */
#line 2537 "htcobol.y"
{ gen_accept_from_inkey((yyvsp[-3].sval)); }
#line 8026 "htcobol.tab.c"
break;
case 828: /* accept_hardware: ACCEPT name FROM INPUT STATUS end_accept_opt */
#line 2538 "htcobol.y"
{ gen_accept_from_inkey((yyvsp[-4].sval)); }
#line 8032 "htcobol.tab.c"
break;
case 829: /* accept_hardware: ACCEPT name FROM CMD_LINE end_accept_opt */
#line 2539 "htcobol.y"
{ gen_accept_from_cmdline((yyvsp[-3].sval)); }
#line 8038 "htcobol.tab.c"
break;
case 830: /* accept_hardware: ACCEPT name FROM ESCKEY end_accept_opt */
#line 2540 "htcobol.y"
{ gen_accept_from_escapekey((yyvsp[-3].sval)); }
#line 8044 "htcobol.tab.c"
break;
case 831: /* accept_hardware: ACCEPT name FROM ENVIRONMENT_VARIABLE CLITERAL end_accept_opt */
#line 2542 "htcobol.y"
{
save_literal((yyvsp[-1].lval),'X');
(yyvsp[-1].lval)->all=0;
gen_accept_env_var((yyvsp[-4].sval), (yyvsp[-1].lval));
}
#line 8054 "htcobol.tab.c"
break;
case 832: /* accept_chronological: ACCEPT name FROM DATE_TIME end_accept_opt */
#line 2550 "htcobol.y"
{
gen_accept_from_chron((yyvsp[-3].sval), (yyvsp[-1].ival), 0);
}
#line 8062 "htcobol.tab.c"
break;
case 833: /* accept_screen: ACCEPT name accept_display_options end_accept_opt */
#line 2556 "htcobol.y"
{
/* walter acrescentei co ao final de todo gen_accept( */
/* gen_accept($2, $3, 1); */
co = ((bg * 8) + fg);
gen_accept((yyvsp[-2].sval), (yyvsp[-1].ival), 1, co);
}
#line 8073 "htcobol.tab.c"
break;
case 834: /* $@93: %empty */
#line 2563 "htcobol.y"
{
screen_io_enable++;
HTG_prg_uses_term = 1;
/* gen_accept($2, $3, 1); */
co = ((bg * 8) + fg);
gen_accept((yyvsp[-3].sval), (yyvsp[-2].ival), 1, co);
}
#line 8085 "htcobol.tab.c"
break;
case 835: /* @94: %empty */
#line 2570 "htcobol.y"
{
gen_store_fnres((yyvsp[0].sval));
(yyval.dval) = gen_check_zero();
}
#line 8094 "htcobol.tab.c"
break;
case 836: /* $@95: %empty */
#line 2574 "htcobol.y"
{ gen_dstlabel((yyvsp[-1].dval)); }
#line 8100 "htcobol.tab.c"
break;
case 842: /* display_statement: DISPLAY */
#line 2586 "htcobol.y"
{ yyerror(err_msg_bad_form, "DISPLAY");}
#line 8106 "htcobol.tab.c"
break;
case 843: /* display_line: DISPLAY display_varlist display_upon display_line_options end_display_opt */
#line 2591 "htcobol.y"
{ gen_display_line((yyvsp[-2].ival), (yyvsp[-1].ival), 0); }
#line 8112 "htcobol.tab.c"
break;
case 844: /* display_screen: DISPLAY display_varlist accept_display_options end_display_opt */
#line 2595 "htcobol.y"
{
/* walter acrescentei co ao final de todo gen_accept( */
/* gen_accept($2, $3, 1); */
co = ((bg * 8) + fg);
gen_display_screen((yyvsp[-1].ival), co); }
#line 8122 "htcobol.tab.c"
break;
case 845: /* display_varlist: gname */
#line 2602 "htcobol.y"
{ put_disp_list((yyvsp[0].sval)); }
#line 8128 "htcobol.tab.c"
break;
case 846: /* display_varlist: display_varlist sep_opt gname */
#line 2603 "htcobol.y"
{ put_disp_list((yyvsp[0].sval)); }
#line 8134 "htcobol.tab.c"
break;
case 847: /* display_upon: UPON CONSOLE */
#line 2606 "htcobol.y"
{ (yyval.ival) = 1; }
#line 8140 "htcobol.tab.c"
break;
case 848: /* display_upon: UPON STD_OUTPUT */
#line 2607 "htcobol.y"
{ (yyval.ival) = 1; }
#line 8146 "htcobol.tab.c"
break;
case 849: /* display_upon: UPON STD_ERROR */
#line 2608 "htcobol.y"
{ (yyval.ival) = 2; }
#line 8152 "htcobol.tab.c"
break;
case 850: /* display_line_options: %empty */
#line 2611 "htcobol.y"
{ (yyval.ival) = 0; }
#line 8158 "htcobol.tab.c"
break;
case 851: /* display_line_options: display_line_options with_opt NO ADVANCING */
#line 2612 "htcobol.y"
{ (yyval.ival) = (yyvsp[-3].ival) | SCR_NO_ADVANCING; }
#line 8164 "htcobol.tab.c"
break;
case 852: /* display_line_options: display_line_options with_opt ERASE */
#line 2613 "htcobol.y"
{ (yyval.ival) = (yyvsp[-2].ival) | SCR_ERASE_EOL; }
#line 8170 "htcobol.tab.c"
break;
case 853: /* display_line_options: display_line_options with_opt ERASE EOS */
#line 2614 "htcobol.y"
{ (yyval.ival) = (yyvsp[-3].ival) | SCR_ERASE_EOS; }
#line 8176 "htcobol.tab.c"
break;
case 854: /* display_line_options: display_line_options with_opt ERASE EOL */
#line 2615 "htcobol.y"
{ (yyval.ival) = (yyvsp[-3].ival) | SCR_ERASE_EOL; }
#line 8182 "htcobol.tab.c"
break;
case 855: /* display_line_options: display_line_options with_opt ERASE SCREEN */
#line 2616 "htcobol.y"
{ (yyval.ival) = (yyvsp[-3].ival) | SCR_ERASE_EOS; }
#line 8188 "htcobol.tab.c"
break;
case 858: /* scr_line: LINE number_opt expr */
#line 2629 "htcobol.y"
{
screen_io_enable++;
HTG_prg_uses_term = 1;
push_expr((yyvsp[0].sval));
gen_gotoy_expr();
}
#line 8199 "htcobol.tab.c"
break;
case 859: /* scr_position: COLUMN number_opt expr */
#line 2638 "htcobol.y"
{
screen_io_enable++;
HTG_prg_uses_term = 1;
push_expr((yyvsp[0].sval));
gen_gotox_expr();
}
#line 8210 "htcobol.tab.c"
break;
case 860: /* scr_position: POSITION expr */
#line 2645 "htcobol.y"
{
screen_io_enable++;
HTG_prg_uses_term = 1;
push_expr((yyvsp[0].sval));
gen_gotox_expr();
}
#line 8221 "htcobol.tab.c"
break;
case 861: /* scr_line_position: AT NLITERAL */
#line 2654 "htcobol.y"
{
screen_io_enable++;
HTG_prg_uses_term = 1;
scr_push_display_position((yyvsp[0].lval));
}
#line 8231 "htcobol.tab.c"
break;
case 862: /* scr_line_position: AT variable */
#line 2660 "htcobol.y"
{
screen_io_enable++;
HTG_prg_uses_term = 1;
scr_push_display_position((yyvsp[0].sval));
}
#line 8241 "htcobol.tab.c"
break;
case 863: /* accept_display_options: %empty */
#line 2668 "htcobol.y"
{ fg = 0; bg = 0; (yyval.ival) = 0; }
#line 8247 "htcobol.tab.c"
break;
case 864: /* accept_display_options: accept_display_options accept_display_option */
#line 2669 "htcobol.y"
{ (yyval.ival) = (yyvsp[-1].ival) | (yyvsp[0].ival); }
#line 8253 "htcobol.tab.c"
break;
case 865: /* accept_display_option: with_opt screen_attribx */
#line 2672 "htcobol.y"
{ (yyval.ival) = (yyvsp[0].ival); }
#line 8259 "htcobol.tab.c"
break;
case 866: /* accept_display_option: scr_line */
#line 2673 "htcobol.y"
{ (yyval.ival) = 0; }
#line 8265 "htcobol.tab.c"
break;
case 867: /* accept_display_option: scr_position */
#line 2674 "htcobol.y"
{ (yyval.ival) = 0; }
#line 8271 "htcobol.tab.c"
break;
case 868: /* accept_display_option: scr_line_position */
#line 2675 "htcobol.y"
{ (yyval.ival) = 0; }
#line 8277 "htcobol.tab.c"
break;
case 869: /* open_statement: OPEN open_options */
#line 2682 "htcobol.y"
{ HTG_prg_uses_fileio = 1; }
#line 8283 "htcobol.tab.c"
break;
case 870: /* open_statement: OPEN */
#line 2683 "htcobol.y"
{ yyerror(err_msg_bad_form, "OPEN");}
#line 8289 "htcobol.tab.c"
break;
case 871: /* open_options: open_mode open_varlist */
#line 2686 "htcobol.y"
{ }
#line 8295 "htcobol.tab.c"
break;
case 872: /* open_options: open_options open_mode open_varlist */
#line 2687 "htcobol.y"
{ }
#line 8301 "htcobol.tab.c"
break;
case 873: /* open_mode: INPUT */
#line 2691 "htcobol.y"
{ (yyval.ival)=1; }
#line 8307 "htcobol.tab.c"
break;
case 874: /* open_mode: I_O */
#line 2692 "htcobol.y"
{ (yyval.ival)=2; }
#line 8313 "htcobol.tab.c"
break;
case 875: /* open_mode: OUTPUT */
#line 2693 "htcobol.y"
{ (yyval.ival)=3; }
#line 8319 "htcobol.tab.c"
break;
case 876: /* open_mode: EXTEND */
#line 2694 "htcobol.y"
{ (yyval.ival)=4; }
#line 8325 "htcobol.tab.c"
break;
case 877: /* open_mode: error */
#line 2695 "htcobol.y"
{ yyerror("invalid OPEN mode"); }
#line 8331 "htcobol.tab.c"
break;
case 878: /* open_varlist: name */
#line 2698 "htcobol.y"
{ gen_open((yyvsp[-1].ival), (yyvsp[0].sval)); }
#line 8337 "htcobol.tab.c"
break;
case 879: /* open_varlist: open_varlist sep_opt name */
#line 2699 "htcobol.y"
{ gen_open((yyvsp[-3].ival), (yyvsp[0].sval)); }
#line 8343 "htcobol.tab.c"
break;
case 881: /* close_statement: CLOSE */
#line 2706 "htcobol.y"
{ yyerror(err_msg_bad_form, "CLOSE");}
#line 8349 "htcobol.tab.c"
break;
case 884: /* close_file: name close_options_opt */
#line 2713 "htcobol.y"
{ gen_close((yyvsp[-1].sval)); }
#line 8355 "htcobol.tab.c"
break;
case 885: /* close_options_opt: close_options */
#line 2717 "htcobol.y"
{
(yyval.ival)=0;
UNIMPLEMENTED ("CLOSE options clause")
}
#line 8364 "htcobol.tab.c"
break;
case 886: /* close_options_opt: with_lock_opt */
#line 2721 "htcobol.y"
{ (yyval.ival)=(yyvsp[0].ival); }
#line 8370 "htcobol.tab.c"
break;
case 887: /* close_options: with_opt NO REWIND */
#line 2724 "htcobol.y"
{ }
#line 8376 "htcobol.tab.c"
break;
case 888: /* close_options: REEL */
#line 2725 "htcobol.y"
{ }
#line 8382 "htcobol.tab.c"
break;
case 889: /* close_options: UNIT */
#line 2726 "htcobol.y"
{ }
#line 8388 "htcobol.tab.c"
break;
case 890: /* close_options: REEL for_opt REMOVAL */
#line 2727 "htcobol.y"
{ }
#line 8394 "htcobol.tab.c"
break;
case 891: /* close_options: UNIT for_opt REMOVAL */
#line 2728 "htcobol.y"
{ }
#line 8400 "htcobol.tab.c"
break;
case 892: /* with_lock_opt: with_opt LOCK */
#line 2731 "htcobol.y"
{ (yyval.ival)=1; }
#line 8406 "htcobol.tab.c"
break;
case 893: /* with_lock_opt: with_opt IGNORE LOCK */
#line 2732 "htcobol.y"
{ (yyval.ival)=2; }
#line 8412 "htcobol.tab.c"
break;
case 894: /* with_lock_opt: %empty */
#line 2733 "htcobol.y"
{ (yyval.ival)=0; }
#line 8418 "htcobol.tab.c"
break;
case 896: /* return_statement: RETURN */
#line 2740 "htcobol.y"
{ yyerror(err_msg_bad_form, "RETURN");}
#line 8424 "htcobol.tab.c"
break;
case 897: /* return_body: name record_opt read_into_opt */
#line 2746 "htcobol.y"
{
if (gen_reads((yyvsp[-2].sval), (yyvsp[0].sval), NULL, 1, 4, 0) != 0) {
YYABORT;
}
}
#line 8434 "htcobol.tab.c"
break;
case 898: /* return_body: name record_opt read_into_opt read_at_end_opt */
#line 2755 "htcobol.y"
{
if (gen_reads((yyvsp[-3].sval), (yyvsp[-1].sval), NULL, 1, 5, 0) != 0) {
YYABORT;
}
else {
ginfo_container4((yyvsp[0].gic));
gic = NULL;
}
}
#line 8448 "htcobol.tab.c"
break;
case 899: /* read_statement: READ read_body end_read_opt */
#line 2769 "htcobol.y"
{ }
#line 8454 "htcobol.tab.c"
break;
case 900: /* read_statement: READ */
#line 2770 "htcobol.y"
{ yyerror(err_msg_bad_form, "READ");}
#line 8460 "htcobol.tab.c"
break;
case 901: /* read_body: name read_next_opt record_opt read_into_opt with_lock_opt read_key_opt */
#line 2779 "htcobol.y"
{
if (gen_reads((yyvsp[-5].sval), (yyvsp[-2].sval), (yyvsp[0].sval), (yyvsp[-4].ival), 0, (yyvsp[-1].ival)) != 0) {
YYABORT;
}
else {
gen_perform_decl((yyvsp[-5].sval));
}
}
#line 8473 "htcobol.tab.c"
break;
case 902: /* read_body: name read_next_opt record_opt read_into_opt with_lock_opt read_key_opt read_at_end_opt */
#line 2794 "htcobol.y"
{
if (gen_reads((yyvsp[-6].sval), (yyvsp[-3].sval), (yyvsp[-1].sval), (yyvsp[-5].ival), 1, (yyvsp[-2].ival)) != 0) {
YYABORT;
}
else {
ginfo_container4((yyvsp[0].gic));
gen_perform_decl((yyvsp[-6].sval));
gic = NULL;
}
}
#line 8488 "htcobol.tab.c"
break;
case 903: /* read_body: name read_next_opt record_opt read_into_opt with_lock_opt read_key_opt read_invalid_key_opt */
#line 2811 "htcobol.y"
{
if (gen_reads((yyvsp[-6].sval), (yyvsp[-3].sval), (yyvsp[-1].sval), (yyvsp[-5].ival), 2, (yyvsp[-2].ival)) != 0) {
YYABORT;
}
else {
gen_test_invalid_keys ((yyvsp[0].iks), (yyvsp[-6].sval), 23);
gen_perform_decl((yyvsp[-6].sval));
}
}
#line 8502 "htcobol.tab.c"
break;
case 904: /* read_next_opt: %empty */
#line 2822 "htcobol.y"
{ (yyval.ival) = 0; }
#line 8508 "htcobol.tab.c"
break;
case 905: /* read_next_opt: NEXT */
#line 2823 "htcobol.y"
{ (yyval.ival) = 1; }
#line 8514 "htcobol.tab.c"
break;
case 906: /* read_next_opt: PREVIOUS */
#line 2824 "htcobol.y"
{ (yyval.ival) = 2; }
#line 8520 "htcobol.tab.c"
break;
case 907: /* read_into_opt: %empty */
#line 2827 "htcobol.y"
{ (yyval.sval) = NULL; }
#line 8526 "htcobol.tab.c"
break;
case 908: /* read_into_opt: INTO name */
#line 2828 "htcobol.y"
{ (yyval.sval) = (yyvsp[0].sval); }
#line 8532 "htcobol.tab.c"
break;
case 909: /* read_key_opt: %empty */
#line 2831 "htcobol.y"
{ (yyval.sval) = NULL; }
#line 8538 "htcobol.tab.c"
break;
case 910: /* read_key_opt: KEY is_opt name */
#line 2832 "htcobol.y"
{ (yyval.sval) = (yyvsp[0].sval); }
#line 8544 "htcobol.tab.c"
break;
case 911: /* read_at_end_opt: NOT at_opt on_end */
#line 2836 "htcobol.y"
{
ginfo_container2((yyvsp[0].gic), 2);
(yyval.gic)=ginfo_container3((yyvsp[0].gic), 2);
}
#line 8553 "htcobol.tab.c"
break;
case 912: /* read_at_end_opt: AT on_end */
#line 2841 "htcobol.y"
{
ginfo_container2((yyvsp[0].gic), 1);
(yyval.gic)=ginfo_container3((yyvsp[0].gic), 1);
}
#line 8562 "htcobol.tab.c"
break;
case 913: /* read_at_end_opt: on_end */
#line 2846 "htcobol.y"
{
ginfo_container2((yyvsp[0].gic), 1);
(yyval.gic)=ginfo_container3((yyvsp[0].gic), 1);
}
#line 8571 "htcobol.tab.c"
break;
case 914: /* $@96: %empty */
#line 2851 "htcobol.y"
{
ginfo_container2((yyvsp[-2].gic), 1);
}
#line 8579 "htcobol.tab.c"
break;
case 915: /* read_at_end_opt: AT on_end NOT at_opt $@96 on_end */
#line 2855 "htcobol.y"
{
ginfo_container2((yyvsp[0].gic), 2);
(yyval.gic)=ginfo_container3((yyvsp[0].gic), 3);
}
#line 8588 "htcobol.tab.c"
break;
case 916: /* $@97: %empty */
#line 2860 "htcobol.y"
{
ginfo_container2((yyvsp[-2].gic), 1);
}
#line 8596 "htcobol.tab.c"
break;
case 917: /* read_at_end_opt: on_end NOT at_opt $@97 on_end */
#line 2864 "htcobol.y"
{
ginfo_container2((yyvsp[0].gic), 2);
(yyval.gic)=ginfo_container3((yyvsp[0].gic), 3);
}
#line 8605 "htcobol.tab.c"
break;
case 918: /* @98: %empty */
#line 2871 "htcobol.y"
{
if ( gic == NULL ) {
gic=ginfo_container0();
}
(yyval.gic)=ginfo_container1(gic);
stabs_line();
}
#line 8617 "htcobol.tab.c"
break;
case 919: /* on_end: END @98 statement_list */
#line 2879 "htcobol.y"
{
(yyval.gic)=(yyvsp[-1].gic);
}
#line 8625 "htcobol.tab.c"
break;
case 920: /* read_invalid_key_opt: read_invalid_key */
#line 2884 "htcobol.y"
{ (yyval.iks) = gen_invalid_keys ((yyvsp[0].ike), NULL); }
#line 8631 "htcobol.tab.c"
break;
case 921: /* read_invalid_key_opt: read_not_invalid_key */
#line 2885 "htcobol.y"
{ (yyval.iks) = gen_invalid_keys (NULL, (yyvsp[0].ike)); }
#line 8637 "htcobol.tab.c"
break;
case 922: /* read_invalid_key_opt: read_invalid_key read_not_invalid_key */
#line 2886 "htcobol.y"
{ (yyval.iks) = gen_invalid_keys ((yyvsp[-1].ike), (yyvsp[0].ike)); }
#line 8643 "htcobol.tab.c"
break;
case 923: /* @99: %empty */
#line 2889 "htcobol.y"
{ (yyval.ike) = gen_before_invalid_key (); }
#line 8649 "htcobol.tab.c"
break;
case 924: /* read_invalid_key: INVALID key_opt @99 statement_list */
#line 2890 "htcobol.y"
{ (yyval.ike) = gen_after_invalid_key ((yyvsp[-1].ike)); }
#line 8655 "htcobol.tab.c"
break;
case 925: /* @100: %empty */
#line 2893 "htcobol.y"
{ (yyval.ike) = gen_before_invalid_key (); }
#line 8661 "htcobol.tab.c"
break;
case 926: /* read_not_invalid_key: NOT INVALID key_opt @100 statement_list */
#line 2894 "htcobol.y"
{ (yyval.ike) = gen_after_invalid_key ((yyvsp[-1].ike)); }
#line 8667 "htcobol.tab.c"
break;
case 931: /* release_statement: RELEASE name release_from_opt */
#line 2909 "htcobol.y"
{
gen_release((yyvsp[-1].sval), (yyvsp[0].sval));
}
#line 8675 "htcobol.tab.c"
break;
case 932: /* release_from_opt: %empty */
#line 2914 "htcobol.y"
{ (yyval.sval) = NULL; }
#line 8681 "htcobol.tab.c"
break;
case 933: /* release_from_opt: FROM gname */
#line 2915 "htcobol.y"
{ (yyval.sval) = (yyvsp[0].sval); }
#line 8687 "htcobol.tab.c"
break;
case 934: /* $@101: %empty */
#line 2922 "htcobol.y"
{
if ((yyvsp[-2].sval)->level != 1)
yyerror("variable %s could not be used for WRITE", (yyvsp[-2].sval)->name);
gen_write((yyvsp[-2].sval), (yyvsp[0].sval), (yyvsp[-1].sval), write_advancing_sw);
}
#line 8697 "htcobol.tab.c"
break;
case 935: /* write_statement: WRITE name write_from_opt write_options $@101 invalid_key_opt end_write_opt */
#line 2928 "htcobol.y"
{gen_test_invalid_keys ((yyvsp[-1].iks), (yyvsp[-5].sval), 22);}
#line 8703 "htcobol.tab.c"
break;
case 936: /* write_from_opt: %empty */
#line 2931 "htcobol.y"
{ (yyval.sval) = NULL; }
#line 8709 "htcobol.tab.c"
break;
case 937: /* write_from_opt: FROM gname */
#line 2932 "htcobol.y"
{ (yyval.sval) = (yyvsp[0].sval); }
#line 8715 "htcobol.tab.c"
break;
case 938: /* write_options: %empty */
#line 2935 "htcobol.y"
{ (yyval.sval) = NULL; write_advancing_sw = 0; }
#line 8721 "htcobol.tab.c"
break;
case 939: /* write_options: before_after advancing_opt gname line_lines_opt */
#line 2937 "htcobol.y"
{
/* gen_loadvar($3); */
(yyval.sval) = (yyvsp[-1].sval);
write_advancing_sw = (yyvsp[-3].ival);
}
#line 8731 "htcobol.tab.c"
break;
case 940: /* write_options: before_after advancing_opt PAGE */
#line 2943 "htcobol.y"
{
write_advancing_sw = -(yyvsp[-2].ival);
(yyval.sval) = NULL;
}
#line 8740 "htcobol.tab.c"
break;
case 943: /* $@102: %empty */
#line 2957 "htcobol.y"
{
if ((yyvsp[-1].sval)->level != 1)
yyerror("variable %s could not be used for REWRITE", (yyvsp[-1].sval)->name);
gen_rewrite((yyvsp[-1].sval), (yyvsp[0].sval));
}
#line 8750 "htcobol.tab.c"
break;
case 944: /* rewrite_statement: REWRITE name write_from_opt $@102 invalid_key_opt end_rewrite_opt */
#line 2963 "htcobol.y"
{gen_test_invalid_keys ((yyvsp[-1].iks), (yyvsp[-4].sval), 22);}
#line 8756 "htcobol.tab.c"
break;
case 947: /* $@103: %empty */
#line 2973 "htcobol.y"
{ gen_delete((yyvsp[-1].sval)); }
#line 8762 "htcobol.tab.c"
break;
case 948: /* delete_statement: DELETE name record_opt $@103 invalid_key_opt end_delete_opt */
#line 2975 "htcobol.y"
{gen_test_invalid_keys ((yyvsp[-1].iks), (yyvsp[-4].sval), 23);}
#line 8768 "htcobol.tab.c"
break;
case 951: /* $@104: %empty */
#line 2986 "htcobol.y"
{gen_test_invalid_keys ((yyvsp[0].iks), (yyvsp[-1].sval), 23);}
#line 8774 "htcobol.tab.c"
break;
case 953: /* start_body: name */
#line 2990 "htcobol.y"
{ gen_start((yyvsp[0].sval),0,NULL); (yyval.sval) = (yyvsp[0].sval);}
#line 8780 "htcobol.tab.c"
break;
case 954: /* start_body: name KEY is_opt cond_op name */
#line 2991 "htcobol.y"
{ gen_start((yyvsp[-4].sval),(yyvsp[-1].ival),(yyvsp[0].sval)); (yyval.sval) = (yyvsp[-4].sval);}
#line 8786 "htcobol.tab.c"
break;
case 957: /* goto_statement: GO to_opt goto_label */
#line 3005 "htcobol.y"
{ gen_goto((yyvsp[0].lstval)); }
#line 8792 "htcobol.tab.c"
break;
case 958: /* goto_statement: GO to_opt goto_label_list DEPENDING on_opt variable */
#line 3007 "htcobol.y"
{
if (is_numeric_sy((yyvsp[0].sval)))
gen_goto_depending((yyvsp[-3].lstval), (yyvsp[0].sval));
else yyerror("variable '%s' must be numeric", (yyvsp[0].sval)->name);
}
#line 8802 "htcobol.tab.c"
break;
case 959: /* goto_label: label */
#line 3013 "htcobol.y"
{ (yyval.lstval) = insert_list(NULL, (yyvsp[0].sval)); }
#line 8808 "htcobol.tab.c"
break;
case 960: /* goto_label_list: label */
#line 3016 "htcobol.y"
{ (yyval.lstval) = insert_list(NULL, (yyvsp[0].sval)); }
#line 8814 "htcobol.tab.c"
break;
case 961: /* goto_label_list: goto_label_list label */
#line 3017 "htcobol.y"
{ (yyval.lstval) = insert_list((yyvsp[-1].lstval), (yyvsp[0].sval)); }
#line 8820 "htcobol.tab.c"
break;
case 962: /* goto_label_list: goto_label_list LISTSEP label */
#line 3018 "htcobol.y"
{ (yyval.lstval) = insert_list((yyvsp[-2].lstval), (yyvsp[0].sval)); }
#line 8826 "htcobol.tab.c"
break;
case 963: /* $@105: %empty */
#line 3023 "htcobol.y"
{ curr_call_mode=CM_REF; }
#line 8832 "htcobol.tab.c"
break;
case 964: /* @106: %empty */
#line 3028 "htcobol.y"
{ (yyval.ival) = loc_label++; /* exception check */ }
#line 8838 "htcobol.tab.c"
break;
case 965: /* @107: %empty */
#line 3029 "htcobol.y"
{ (yyval.ival) = loc_label++; /* not exception check */ }
#line 8844 "htcobol.tab.c"
break;
case 966: /* @108: %empty */
#line 3030 "htcobol.y"
{
(yyval.ival) = emt_call((struct lit *)(yyvsp[-4].sval), (yyvsp[-3].ival), (yyvsp[-1].ival), (yyvsp[0].ival), (yyvsp[-2].sval));
/* gen_store_fnres($6); */
/* If paramater is a variable then dynamic link libs are required */
/*
if ($4->litflag == 0 ) {
HTG_prg_uses_dcall = 1;
}
*/
}
#line 8859 "htcobol.tab.c"
break;
case 967: /* $@109: %empty */
#line 3041 "htcobol.y"
{ check_call_except((yyvsp[-1].ival), (yyvsp[0].ival), (yyvsp[-4].ival), (yyvsp[-3].ival), (yyvsp[-2].ival)); }
#line 8865 "htcobol.tab.c"
break;
case 969: /* call_statement: CALL */
#line 3043 "htcobol.y"
{ yyerror(err_msg_bad_form, "CALL"); }
#line 8871 "htcobol.tab.c"
break;
case 970: /* call_convention_opt: %empty */
#line 3046 "htcobol.y"
{ curr_call_convention = 0; }
#line 8877 "htcobol.tab.c"
break;
case 971: /* call_convention_opt: CALL_CONV_C */
#line 3047 "htcobol.y"
{ curr_call_convention = 0; }
#line 8883 "htcobol.tab.c"
break;
case 972: /* call_convention_opt: CALL_CONV_STDCALL */
#line 3048 "htcobol.y"
{ curr_call_convention = 1; }
#line 8889 "htcobol.tab.c"
break;
case 973: /* $@110: %empty */
#line 3056 "htcobol.y"
{
emt_call_loadlib((struct lit *)(yyvsp[0].sval));
}
#line 8897 "htcobol.tab.c"
break;
case 975: /* call_loadlib_statement: CALL_LOADLIB */
#line 3060 "htcobol.y"
{ yyerror(err_msg_bad_form, "CALL-LOADLIB"); }
#line 8903 "htcobol.tab.c"
break;
case 976: /* end_call_loadlib_opt: END_CALL_LOADLIB */
#line 3064 "htcobol.y"
{ }
#line 8909 "htcobol.tab.c"
break;
case 977: /* end_call_loadlib_opt: %empty */
#line 3065 "htcobol.y"
{ }
#line 8915 "htcobol.tab.c"
break;
case 978: /* $@111: %empty */
#line 3070 "htcobol.y"
{ curr_call_mode=CM_CHAIN; }
#line 8921 "htcobol.tab.c"
break;
case 979: /* @112: %empty */
#line 3072 "htcobol.y"
{ (yyval.ival) = loc_label++; /* exception check */ }
#line 8927 "htcobol.tab.c"
break;
case 980: /* @113: %empty */
#line 3073 "htcobol.y"
{ (yyval.ival) = gen_chain((yyvsp[-2].sval),(yyvsp[-1].ival),(yyvsp[0].ival)); }
#line 8933 "htcobol.tab.c"
break;
case 981: /* $@114: %empty */
#line 3075 "htcobol.y"
{/* check_call_except($9,$10,$6,$7,$8);*/ }
#line 8939 "htcobol.tab.c"
break;
case 983: /* chain_statement: CHAIN */
#line 3077 "htcobol.y"
{ yyerror(err_msg_bad_form, "CHAIN"); }
#line 8945 "htcobol.tab.c"
break;
case 984: /* exit_statement: EXIT */
#line 3082 "htcobol.y"
{ gen_exit(0); }
#line 8951 "htcobol.tab.c"
break;
case 985: /* exit_statement: EXIT PARAGRAPH */
#line 3083 "htcobol.y"
{ gen_exit(0); }
#line 8957 "htcobol.tab.c"
break;
case 986: /* exit_statement: EXIT PROGRAM */
#line 3084 "htcobol.y"
{ gen_exit(1); }
#line 8963 "htcobol.tab.c"
break;
case 987: /* stop_statement: STOP RUN */
#line 3089 "htcobol.y"
{ gen_stoprun(); }
#line 8969 "htcobol.tab.c"
break;
case 988: /* stop_statement: STOP stop_literal */
#line 3091 "htcobol.y"
{
struct sym *sy;
/* walter acrescentei 0 ao final */
gen_display_line(2, SCR_NO_ADVANCING, 0);
sy = define_temp_field(DTYPE_ALPHANUMERIC,1);
/* walter acrescentei 0 ao final
gen_accept(sy, 0, 1); */
gen_accept(sy, 0, 1, 0);
}
#line 8983 "htcobol.tab.c"
break;
case 989: /* stop_literal: CLITERAL */
#line 3103 "htcobol.y"
{
save_literal((yyvsp[0].lval),'X');
(yyvsp[0].lval)->all=0;
put_disp_list((struct sym *)(yyvsp[0].lval));
}
#line 8993 "htcobol.tab.c"
break;
case 990: /* stop_literal: NLITERAL */
#line 3109 "htcobol.y"
{
save_literal((yyvsp[0].lval),'X');
(yyvsp[0].lval)->all=0;
put_disp_list((struct sym *)(yyvsp[0].lval));
}
#line 9003 "htcobol.tab.c"
break;
case 991: /* goback_statement: GOBACK */
#line 3118 "htcobol.y"
{ gen_goback(); }
#line 9009 "htcobol.tab.c"
break;
case 992: /* var_list_name: name rounded_opt sep_opt */
#line 3122 "htcobol.y"
{
(yyval.mval) = create_mathvar_info(NULL, (yyvsp[-2].sval), (yyvsp[-1].ival));
}
#line 9017 "htcobol.tab.c"
break;
case 993: /* var_list_name: var_list_name name rounded_opt sep_opt */
#line 3126 "htcobol.y"
{
(yyval.mval) = create_mathvar_info((yyvsp[-3].mval), (yyvsp[-2].sval), (yyvsp[-1].ival));
}
#line 9025 "htcobol.tab.c"
break;
case 994: /* var_list_gname: gname sep_opt */
#line 3132 "htcobol.y"
{
(yyval.mval) = create_mathvar_info(NULL, (yyvsp[-1].sval), 0);
}
#line 9033 "htcobol.tab.c"
break;
case 995: /* var_list_gname: var_list_gname gname sep_opt */
#line 3136 "htcobol.y"
{
(yyval.mval) = create_mathvar_info((yyvsp[-2].mval), (yyvsp[-1].sval), 0);
}
#line 9041 "htcobol.tab.c"
break;
case 996: /* rounded_opt: %empty */
#line 3142 "htcobol.y"
{ (yyval.ival)=0; }
#line 9047 "htcobol.tab.c"
break;
case 997: /* rounded_opt: ROUNDED */
#line 3143 "htcobol.y"
{ (yyval.ival)=1; }
#line 9053 "htcobol.tab.c"
break;
case 998: /* on_size_error_opt: %empty */
#line 3148 "htcobol.y"
{
(yyval.mose)=NULL;
}
#line 9061 "htcobol.tab.c"
break;
case 999: /* on_size_error_opt: NOT on_opt SIZE on_size_error */
#line 3153 "htcobol.y"
{
(yyval.mose)=math_on_size_error4((yyvsp[0].mose), 2);
}
#line 9069 "htcobol.tab.c"
break;
case 1000: /* on_size_error_opt: on_opt SIZE on_size_error */
#line 3158 "htcobol.y"
{
(yyval.mose)=math_on_size_error4((yyvsp[0].mose), 1);
}
#line 9077 "htcobol.tab.c"
break;
case 1001: /* $@115: %empty */
#line 3164 "htcobol.y"
{
(yyvsp[-3].mose)->lbl1=(yyvsp[-3].mose)->ose;
}
#line 9085 "htcobol.tab.c"
break;
case 1002: /* on_size_error_opt: on_opt SIZE on_size_error NOT on_opt SIZE $@115 on_size_error */
#line 3168 "htcobol.y"
{
(yyval.mose)=math_on_size_error4((yyvsp[0].mose), 3);
}
#line 9093 "htcobol.tab.c"
break;
case 1003: /* @116: %empty */
#line 3175 "htcobol.y"
{
if ( tmose == NULL ) {
tmose=math_on_size_error0();
(yyval.mose)=math_on_size_error1(tmose);
}
else {
(yyval.mose)=math_on_size_error1(tmose);
}
stabs_line();
}
#line 9108 "htcobol.tab.c"
break;
case 1004: /* on_size_error: ERROR_TOK @116 statement_list */
#line 3186 "htcobol.y"
{
math_on_size_error2(tmose);
(yyval.mose)=(yyvsp[-1].mose);
}
#line 9117 "htcobol.tab.c"
break;
case 1012: /* set_list: set_target TO address_of_opt set_variable_or_nlit */
#line 3210 "htcobol.y"
{ gen_set_list((yyvsp[-3].sval),SET_TO,(yyvsp[0].sval),0,(yyvsp[-1].ival)); }
#line 9123 "htcobol.tab.c"
break;
case 1013: /* set_list: set_target UP BY var_or_nliteral */
#line 3212 "htcobol.y"
{ gen_set_list((yyvsp[-3].sval),SET_UP_BY,(yyvsp[0].sval),0,0); }
#line 9129 "htcobol.tab.c"
break;
case 1014: /* set_list: set_target DOWN BY var_or_nliteral */
#line 3214 "htcobol.y"
{ gen_set_list((yyvsp[-3].sval),SET_DOWN_BY,(yyvsp[0].sval),0,0); }
#line 9135 "htcobol.tab.c"
break;
case 1015: /* set_list: address_of_opt variable TO address_of_opt set_variable */
#line 3216 "htcobol.y"
{ gen_set((yyvsp[-3].sval),SET_TO,(yyvsp[0].sval),(yyvsp[-4].ival),(yyvsp[-1].ival)); }
#line 9141 "htcobol.tab.c"
break;
case 1016: /* set_target: name_list */
#line 3221 "htcobol.y"
{ (yyval.sval) = (yyvsp[0].sval); }
#line 9147 "htcobol.tab.c"
break;
case 1017: /* set_target: cond_name */
#line 3222 "htcobol.y"
{ (yyval.sval) = (struct sym *)chain_var((yyvsp[0].sval)); }
#line 9153 "htcobol.tab.c"
break;
case 1018: /* set_variable: variable */
#line 3226 "htcobol.y"
{ (yyval.sval) = (yyvsp[0].sval); }
#line 9159 "htcobol.tab.c"
break;
case 1019: /* set_variable: NULL_TOK */
#line 3227 "htcobol.y"
{ (yyval.sval) = NULL; }
#line 9165 "htcobol.tab.c"
break;
case 1020: /* set_variable_or_nlit: name_or_lit */
#line 3231 "htcobol.y"
{ (yyval.sval) = (yyvsp[0].sval); }
#line 9171 "htcobol.tab.c"
break;
case 1021: /* set_variable_or_nlit: ON */
#line 3232 "htcobol.y"
{ (yyval.sval) = (struct sym *)define_num_lit(1); }
#line 9177 "htcobol.tab.c"
break;
case 1022: /* set_variable_or_nlit: OFF */
#line 3233 "htcobol.y"
{ (yyval.sval) = (struct sym *)spe_lit_ZE; }
#line 9183 "htcobol.tab.c"
break;
case 1023: /* set_variable_or_nlit: NULL_TOK */
#line 3234 "htcobol.y"
{ (yyval.sval) = NULL; }
#line 9189 "htcobol.tab.c"
break;
case 1024: /* set_variable_or_nlit: TRUE_TOK */
#line 3236 "htcobol.y"
{
(yyval.sval) = (struct sym *)1;
/* no (struct sym *) may have this value! */
}
#line 9198 "htcobol.tab.c"
break;
case 1025: /* address_of_opt: %empty */
#line 3243 "htcobol.y"
{ (yyval.ival) = 0; }
#line 9204 "htcobol.tab.c"
break;
case 1026: /* address_of_opt: ADDRESS of_opt */
#line 3244 "htcobol.y"
{ (yyval.ival) = 1; }
#line 9210 "htcobol.tab.c"
break;
case 1027: /* $@117: %empty */
#line 3251 "htcobol.y"
{
gen_stringcmd( (yyvsp[-3].sfval), (yyvsp[-1].sval), (yyvsp[0].sval) );
}
#line 9218 "htcobol.tab.c"
break;
case 1029: /* $@118: %empty */
#line 3262 "htcobol.y"
{
gen_unstring( (yyvsp[-5].sval), (yyvsp[-4].udval), (yyvsp[-2].udstval), (yyvsp[-1].sval), (yyvsp[0].sval) );
}
#line 9226 "htcobol.tab.c"
break;
case 1031: /* unstring_delimited: DELIMITED by_opt unstring_delimited_vars */
#line 3269 "htcobol.y"
{ (yyval.udval)=(yyvsp[0].udval); }
#line 9232 "htcobol.tab.c"
break;
case 1032: /* unstring_delimited: %empty */
#line 3270 "htcobol.y"
{ (yyval.udval)=NULL; }
#line 9238 "htcobol.tab.c"
break;
case 1033: /* unstring_delimited_vars: all_opt gname */
#line 3273 "htcobol.y"
{ (yyval.udval)=alloc_unstring_delimited((yyvsp[-1].ival),(yyvsp[0].sval)); }
#line 9244 "htcobol.tab.c"
break;
case 1034: /* unstring_delimited_vars: unstring_delimited_vars OR all_opt gname */
#line 3274 "htcobol.y"
{
struct unstring_delimited *ud;
ud=alloc_unstring_delimited((yyvsp[-1].ival),(yyvsp[0].sval));
ud->next = (yyvsp[-3].udval);
(yyval.udval)=ud;
}
#line 9255 "htcobol.tab.c"
break;
case 1035: /* unstring_destinations: unstring_dest_var */
#line 3282 "htcobol.y"
{ (yyval.udstval)=(yyvsp[0].udstval); }
#line 9261 "htcobol.tab.c"
break;
case 1036: /* unstring_destinations: unstring_destinations sep_opt unstring_dest_var */
#line 3284 "htcobol.y"
{
(yyvsp[0].udstval)->next = (yyvsp[-2].udstval);
(yyval.udstval) = (yyvsp[0].udstval);
}
#line 9270 "htcobol.tab.c"
break;
case 1037: /* unstring_dest_var: name unstring_delim_opt unstring_count_opt */
#line 3290 "htcobol.y"
{
(yyval.udstval) = alloc_unstring_dest( (yyvsp[-2].sval), (yyvsp[-1].sval), (yyvsp[0].sval) );
}
#line 9278 "htcobol.tab.c"
break;
case 1038: /* unstring_delim_opt: %empty */
#line 3295 "htcobol.y"
{ (yyval.sval)=NULL; }
#line 9284 "htcobol.tab.c"
break;
case 1039: /* unstring_delim_opt: DELIMITER in_opt name */
#line 3296 "htcobol.y"
{ (yyval.sval)=(yyvsp[0].sval); }
#line 9290 "htcobol.tab.c"
break;
case 1040: /* unstring_count_opt: %empty */
#line 3299 "htcobol.y"
{ (yyval.sval)=NULL; }
#line 9296 "htcobol.tab.c"
break;
case 1041: /* unstring_count_opt: COUNT in_opt name */
#line 3300 "htcobol.y"
{ (yyval.sval)=(yyvsp[0].sval); }
#line 9302 "htcobol.tab.c"
break;
case 1042: /* unstring_tallying: %empty */
#line 3303 "htcobol.y"
{ (yyval.sval)=NULL; }
#line 9308 "htcobol.tab.c"
break;
case 1043: /* unstring_tallying: TALLYING in_opt name */
#line 3304 "htcobol.y"
{ (yyval.sval)=(yyvsp[0].sval); }
#line 9314 "htcobol.tab.c"
break;
case 1044: /* all_opt: %empty */
#line 3307 "htcobol.y"
{ (yyval.ival)=0; }
#line 9320 "htcobol.tab.c"
break;
case 1045: /* all_opt: ALL */
#line 3308 "htcobol.y"
{ (yyval.ival)=1; }
#line 9326 "htcobol.tab.c"
break;
case 1046: /* $@119: %empty */
#line 3311 "htcobol.y"
{ curr_division = CDIV_EXCEPTION; }
#line 9332 "htcobol.tab.c"
break;
case 1047: /* on_overflow_opt: $@119 on_overflow on_not_overflow */
#line 3314 "htcobol.y"
{ curr_division = CDIV_PROC; }
#line 9338 "htcobol.tab.c"
break;
case 1048: /* @120: %empty */
#line 3317 "htcobol.y"
{ (yyval.ival) = begin_on_except(); }
#line 9344 "htcobol.tab.c"
break;
case 1049: /* on_exception_or_overflow: on_opt exception_or_overflow @120 statement_list */
#line 3318 "htcobol.y"
{ gen_jmplabel((yyvsp[-4].dval)); (yyval.ival)=(yyvsp[-1].ival); }
#line 9350 "htcobol.tab.c"
break;
case 1050: /* on_exception_or_overflow: %empty */
#line 3319 "htcobol.y"
{ (yyval.ival) = 0; }
#line 9356 "htcobol.tab.c"
break;
case 1053: /* @121: %empty */
#line 3326 "htcobol.y"
{ (yyval.ival) = begin_on_except(); }
#line 9362 "htcobol.tab.c"
break;
case 1054: /* on_not_exception: NOT on_opt EXCEPTION @121 statement_list */
#line 3327 "htcobol.y"
{ gen_jmplabel((yyvsp[(-1) - (5)].dval)); (yyval.ival)=(yyvsp[-1].ival); }
#line 9368 "htcobol.tab.c"
break;
case 1055: /* on_not_exception: %empty */
#line 3328 "htcobol.y"
{ (yyval.ival) = 0; }
#line 9374 "htcobol.tab.c"
break;
case 1056: /* @122: %empty */
#line 3331 "htcobol.y"
{ (yyval.dval) = gen_at_end(1); }
#line 9380 "htcobol.tab.c"
break;
case 1057: /* on_overflow: on_opt OVERFLOW_TOK @122 statement_list */
#line 3332 "htcobol.y"
{ gen_dstlabel((yyvsp[-1].dval)); }
#line 9386 "htcobol.tab.c"
break;
case 1059: /* @123: %empty */
#line 3336 "htcobol.y"
{ (yyval.dval) = gen_at_end(0); }
#line 9392 "htcobol.tab.c"
break;
case 1060: /* on_not_overflow: not_excep on_opt OVERFLOW_TOK @123 statement_list */
#line 3337 "htcobol.y"
{ gen_dstlabel((yyvsp[-1].dval)); }
#line 9398 "htcobol.tab.c"
break;
case 1062: /* invalid_key_opt: invalid_key_sentence */
#line 3342 "htcobol.y"
{(yyval.iks) = gen_invalid_keys((yyvsp[0].ike), NULL);}
#line 9404 "htcobol.tab.c"
break;
case 1063: /* invalid_key_opt: not_invalid_key_sentence */
#line 3343 "htcobol.y"
{(yyval.iks) = gen_invalid_keys(NULL, (yyvsp[0].ike));}
#line 9410 "htcobol.tab.c"
break;
case 1064: /* invalid_key_opt: invalid_key_sentence not_invalid_key_sentence */
#line 3345 "htcobol.y"
{(yyval.iks) = gen_invalid_keys((yyvsp[-1].ike), (yyvsp[0].ike));}
#line 9416 "htcobol.tab.c"
break;
case 1065: /* invalid_key_opt: %empty */
#line 3346 "htcobol.y"
{ (yyval.iks) = NULL;}
#line 9422 "htcobol.tab.c"
break;
case 1066: /* @124: %empty */
#line 3349 "htcobol.y"
{ (yyval.ike) = gen_before_invalid_key(); }
#line 9428 "htcobol.tab.c"
break;
case 1067: /* invalid_key_sentence: INVALID key_opt @124 statement_list */
#line 3350 "htcobol.y"
{ (yyval.ike) = gen_after_invalid_key((yyvsp[-1].ike)); }
#line 9434 "htcobol.tab.c"
break;
case 1068: /* @125: %empty */
#line 3353 "htcobol.y"
{ (yyval.ike) = gen_before_invalid_key(); }
#line 9440 "htcobol.tab.c"
break;
case 1069: /* not_invalid_key_sentence: not_excep INVALID key_opt @125 statement_list */
#line 3354 "htcobol.y"
{ (yyval.ike) = gen_after_invalid_key((yyvsp[-1].ike)); }
#line 9446 "htcobol.tab.c"
break;
case 1072: /* string_with_pointer: with_opt POINTER name */
#line 3361 "htcobol.y"
{ (yyval.sval) = (yyvsp[0].sval); }
#line 9452 "htcobol.tab.c"
break;
case 1073: /* string_with_pointer: %empty */
#line 3362 "htcobol.y"
{ (yyval.sval) = NULL; }
#line 9458 "htcobol.tab.c"
break;
case 1074: /* string_from_list: string_from */
#line 3365 "htcobol.y"
{ (yyval.sfval) = (yyvsp[0].sfval); }
#line 9464 "htcobol.tab.c"
break;
case 1075: /* string_from_list: string_from_list sep_opt string_from */
#line 3366 "htcobol.y"
{
(yyvsp[0].sfval)->next = (yyvsp[-2].sfval);
(yyval.sfval) = (yyvsp[0].sfval);
}
#line 9473 "htcobol.tab.c"
break;
case 1076: /* string_from_list: error */
#line 3370 "htcobol.y"
{ yyerror("variable expected"); }
#line 9479 "htcobol.tab.c"
break;
case 1077: /* string_from: gname */
#line 3373 "htcobol.y"
{
/* Item with no DELIMITED BY section implies use delimiter of next item */
(yyval.sfval) = alloc_string_from( (yyvsp[0].sval), (struct sym *)-1 );
}
#line 9488 "htcobol.tab.c"
break;
case 1078: /* string_from: gname DELIMITED by_opt delimited_by */
#line 3377 "htcobol.y"
{
(yyval.sfval) = alloc_string_from( (yyvsp[-3].sval), (yyvsp[0].sval) );
}
#line 9496 "htcobol.tab.c"
break;
case 1079: /* delimited_by: gname */
#line 3382 "htcobol.y"
{ (yyval.sval)=(yyvsp[0].sval); }
#line 9502 "htcobol.tab.c"
break;
case 1080: /* delimited_by: SIZE */
#line 3383 "htcobol.y"
{ (yyval.sval)=NULL; }
#line 9508 "htcobol.tab.c"
break;
case 1081: /* delimited_by: error */
#line 3384 "htcobol.y"
{ yyerror("SIZE or identifier expected"); }
#line 9514 "htcobol.tab.c"
break;
case 1086: /* $@126: %empty */
#line 3399 "htcobol.y"
{ gen_inspect((yyvsp[-1].sval),(void *)(yyvsp[0].tlval),0); }
#line 9520 "htcobol.tab.c"
break;
case 1087: /* inspect_statement: INSPECT name tallying_clause $@126 replacing_clause */
#line 3400 "htcobol.y"
{ gen_inspect((yyvsp[-3].sval),(void *)(yyvsp[0].repval),1); }
#line 9526 "htcobol.tab.c"
break;
case 1088: /* inspect_statement: INSPECT name converting_clause */
#line 3403 "htcobol.y"
{ gen_inspect((yyvsp[-1].sval),(void *)(yyvsp[0].cvval),2); }
#line 9532 "htcobol.tab.c"
break;
case 1089: /* converting_clause: CONVERTING noallname TO noallname inspect_before_after */
#line 3407 "htcobol.y"
{
(yyval.cvval) = alloc_converting_struct((yyvsp[-3].sval),(yyvsp[-1].sval),(yyvsp[0].baval));
}
#line 9540 "htcobol.tab.c"
break;
case 1090: /* tallying_clause: TALLYING tallying_list */
#line 3412 "htcobol.y"
{ (yyval.tlval)=(yyvsp[0].tlval); }
#line 9546 "htcobol.tab.c"
break;
case 1091: /* tallying_clause: %empty */
#line 3413 "htcobol.y"
{ (yyval.tlval)=NULL; }
#line 9552 "htcobol.tab.c"
break;
case 1092: /* tallying_list: tallying_list name FOR tallying_for_list */
#line 3417 "htcobol.y"
{
(yyval.tlval) = alloc_tallying_list((yyvsp[-3].tlval),(yyvsp[-2].sval),(yyvsp[0].tfval)); }
#line 9559 "htcobol.tab.c"
break;
case 1093: /* tallying_list: %empty */
#line 3419 "htcobol.y"
{ (yyval.tlval) = NULL; }
#line 9565 "htcobol.tab.c"
break;
case 1094: /* tallying_for_list: tallying_for_list CHARACTERS inspect_before_after */
#line 3423 "htcobol.y"
{
(yyval.tfval) = alloc_tallying_for_list((yyvsp[-2].tfval),INSPECT_CHARACTERS,NULL,(yyvsp[0].baval)); }
#line 9572 "htcobol.tab.c"
break;
case 1095: /* tallying_for_list: tallying_for_list ALL noallname inspect_before_after */
#line 3426 "htcobol.y"
{
(yyval.tfval) = alloc_tallying_for_list((yyvsp[-3].tfval),INSPECT_ALL,(yyvsp[-1].sval),(yyvsp[0].baval)); }
#line 9579 "htcobol.tab.c"
break;
case 1096: /* tallying_for_list: tallying_for_list LEADING noallname inspect_before_after */
#line 3429 "htcobol.y"
{
(yyval.tfval) = alloc_tallying_for_list((yyvsp[-3].tfval),INSPECT_LEADING,(yyvsp[-1].sval),(yyvsp[0].baval)); }
#line 9586 "htcobol.tab.c"
break;
case 1097: /* tallying_for_list: %empty */
#line 3431 "htcobol.y"
{ (yyval.tfval) = NULL; }
#line 9592 "htcobol.tab.c"
break;
case 1098: /* replacing_clause: REPLACING replacing_list */
#line 3435 "htcobol.y"
{ (yyval.repval) = (yyvsp[0].repval); }
#line 9598 "htcobol.tab.c"
break;
case 1099: /* replacing_clause: %empty */
#line 3436 "htcobol.y"
{ (yyval.repval) = NULL; }
#line 9604 "htcobol.tab.c"
break;
case 1100: /* replacing_list: replacing_list CHARACTERS BY noallname inspect_before_after */
#line 3440 "htcobol.y"
{
(yyval.repval) = alloc_replacing_list((yyvsp[-4].repval),INSPECT_CHARACTERS,NULL,(yyvsp[-1].sval),(yyvsp[0].baval)); }
#line 9611 "htcobol.tab.c"
break;
case 1101: /* replacing_list: replacing_list replacing_kind replacing_by_list */
#line 3443 "htcobol.y"
{
(yyval.repval) = alloc_replacing_list((yyvsp[-2].repval),(yyvsp[-1].ival),(yyvsp[0].rbval),NULL,NULL); }
#line 9618 "htcobol.tab.c"
break;
case 1102: /* replacing_list: %empty */
#line 3445 "htcobol.y"
{ (yyval.repval) = NULL; }
#line 9624 "htcobol.tab.c"
break;
case 1103: /* replacing_by_list: replacing_by_list noallname BY noallname inspect_before_after */
#line 3449 "htcobol.y"
{
(yyval.rbval) = alloc_replacing_by_list((yyvsp[-4].rbval),(yyvsp[-3].sval),(yyvsp[-1].sval),(yyvsp[0].baval)); }
#line 9631 "htcobol.tab.c"
break;
case 1104: /* replacing_by_list: %empty */
#line 3451 "htcobol.y"
{ (yyval.rbval) = NULL; }
#line 9637 "htcobol.tab.c"
break;
case 1105: /* replacing_kind: ALL */
#line 3454 "htcobol.y"
{ (yyval.ival) = INSPECT_ALL; }
#line 9643 "htcobol.tab.c"
break;
case 1106: /* replacing_kind: LEADING */
#line 3455 "htcobol.y"
{ (yyval.ival) = INSPECT_LEADING; }
#line 9649 "htcobol.tab.c"
break;
case 1107: /* replacing_kind: TRAILING */
#line 3456 "htcobol.y"
{ (yyval.ival) = INSPECT_TRAILING; }
#line 9655 "htcobol.tab.c"
break;
case 1108: /* replacing_kind: FIRST */
#line 3457 "htcobol.y"
{ (yyval.ival) = INSPECT_FIRST; }
#line 9661 "htcobol.tab.c"
break;
case 1109: /* inspect_before_after: inspect_before_after BEFORE initial_opt noallname */
#line 3462 "htcobol.y"
{ (yyval.baval) = alloc_inspect_before_after((yyvsp[-3].baval),1,(yyvsp[0].sval)); }
#line 9667 "htcobol.tab.c"
break;
case 1110: /* inspect_before_after: inspect_before_after AFTER initial_opt noallname */
#line 3465 "htcobol.y"
{ (yyval.baval) = alloc_inspect_before_after((yyvsp[-3].baval),2,(yyvsp[0].sval)); }
#line 9673 "htcobol.tab.c"
break;
case 1111: /* inspect_before_after: %empty */
#line 3466 "htcobol.y"
{ (yyval.baval) = alloc_inspect_before_after(NULL,0,NULL); }
#line 9679 "htcobol.tab.c"
break;
case 1114: /* expr: gname */
#line 3474 "htcobol.y"
{ (yyval.sval) = (yyvsp[0].sval); }
#line 9685 "htcobol.tab.c"
break;
case 1115: /* expr: expr '*' expr */
#line 3475 "htcobol.y"
{ (yyval.sval) =
(struct sym *)create_expr('*',(struct expr *)(yyvsp[-2].sval),(struct expr *)(yyvsp[0].sval)); }
#line 9692 "htcobol.tab.c"
break;
case 1116: /* expr: expr '/' expr */
#line 3477 "htcobol.y"
{ (yyval.sval) =
(struct sym *)create_expr('/',(struct expr *)(yyvsp[-2].sval),(struct expr *)(yyvsp[0].sval)); }
#line 9699 "htcobol.tab.c"
break;
case 1117: /* expr: expr '+' expr */
#line 3479 "htcobol.y"
{ (yyval.sval) =
(struct sym *)create_expr('+',(struct expr *)(yyvsp[-2].sval),(struct expr *)(yyvsp[0].sval)); }
#line 9706 "htcobol.tab.c"
break;
case 1118: /* expr: expr '-' expr */
#line 3481 "htcobol.y"
{ (yyval.sval) =
(struct sym *)create_expr('-',(struct expr *)(yyvsp[-2].sval),(struct expr *)(yyvsp[0].sval)); }
#line 9713 "htcobol.tab.c"
break;
case 1119: /* expr: expr POW_OP expr */
#line 3483 "htcobol.y"
{ (yyval.sval) =
(struct sym *)create_expr('^',(struct expr *)(yyvsp[-2].sval),(struct expr *)(yyvsp[0].sval)); }
#line 9720 "htcobol.tab.c"
break;
case 1120: /* expr: '(' expr ')' */
#line 3485 "htcobol.y"
{ (yyval.sval)=(yyvsp[-1].sval); }
#line 9726 "htcobol.tab.c"
break;
case 1121: /* expr_opt: %empty */
#line 3490 "htcobol.y"
{ (yyval.sval) = (struct sym *)-1; }
#line 9732 "htcobol.tab.c"
break;
case 1122: /* expr_opt: expr */
#line 3491 "htcobol.y"
{ (yyval.sval) = (yyvsp[0].sval); }
#line 9738 "htcobol.tab.c"
break;
case 1123: /* using_options: %empty */
#line 3494 "htcobol.y"
{ (yyval.ival)=0; }
#line 9744 "htcobol.tab.c"
break;
case 1124: /* @127: %empty */
#line 3495 "htcobol.y"
{ (yyval.ival)=0; /* to save how many parameters */ }
#line 9750 "htcobol.tab.c"
break;
case 1125: /* @128: %empty */
#line 3496 "htcobol.y"
{ (yyval.ival)=CALL; }
#line 9756 "htcobol.tab.c"
break;
case 1126: /* using_options: USING @127 dummy @128 parm_list */
#line 3497 "htcobol.y"
{ (yyval.ival)=(yyvsp[-3].ival); }
#line 9762 "htcobol.tab.c"
break;
case 1127: /* returning_options: %empty */
#line 3500 "htcobol.y"
{ (yyval.sval)=0; }
#line 9768 "htcobol.tab.c"
break;
case 1128: /* returning_options: RETURNING variable */
#line 3501 "htcobol.y"
{ (yyval.sval)=(yyvsp[0].sval); }
#line 9774 "htcobol.tab.c"
break;
case 1129: /* returning_options: GIVING variable */
#line 3502 "htcobol.y"
{ (yyval.sval)=(yyvsp[0].sval); }
#line 9780 "htcobol.tab.c"
break;
case 1131: /* using_parameters: %empty */
#line 3507 "htcobol.y"
{ (yyval.ival)=0; }
#line 9786 "htcobol.tab.c"
break;
case 1132: /* using_parameters: USING gname_list */
#line 3508 "htcobol.y"
{ gen_save_usings((yyvsp[0].glistval)); (yyval.ival)=1; }
#line 9792 "htcobol.tab.c"
break;
case 1133: /* using_parameters: CHAINING gname_list */
#line 3509 "htcobol.y"
{ gen_save_chainings((yyvsp[0].glistval)); (yyval.ival)=2; }
#line 9798 "htcobol.tab.c"
break;
case 1134: /* parm_list: parm_list sep_opt parameter */
#line 3514 "htcobol.y"
{ if ((yyvsp[-3].ival) == USING)
gen_save_using((yyvsp[0].sval));
else if ((yyvsp[-3].ival) == CALL) {
gen_push_using((yyvsp[0].sval));
}
}
#line 9809 "htcobol.tab.c"
break;
case 1135: /* parm_list: parameter */
#line 3521 "htcobol.y"
{ if ((yyvsp[-1].ival) == USING)
gen_save_using((yyvsp[0].sval));
else if ((yyvsp[-1].ival) == CALL) {
gen_push_using((yyvsp[0].sval));
}
}
#line 9820 "htcobol.tab.c"
break;
case 1136: /* parameter: gname */
#line 3529 "htcobol.y"
{(yyval.sval)=(yyvsp[0].sval);
if ((yyval.sval)->litflag==1) {
struct lit *lp=(struct lit *)(yyval.sval);
lp->call_mode=curr_call_mode;
}
else
(yyval.sval)->call_mode=curr_call_mode;
}
#line 9833 "htcobol.tab.c"
break;
case 1137: /* parameter: by_opt parm_type gname */
#line 3539 "htcobol.y"
{ if ( curr_call_mode == CM_CHAIN )
yyerror("parameter types not allowed on CHAIN");
else
{
(yyval.sval)=(yyvsp[0].sval);
curr_call_mode=(yyvsp[-1].ival);
if ((yyval.sval)->litflag==1) {
struct lit *lp=(struct lit *)(yyval.sval);
lp->call_mode=curr_call_mode;
}
else
(yyval.sval)->call_mode=curr_call_mode;
}
}
#line 9852 "htcobol.tab.c"
break;
case 1138: /* parm_type: REFERENCE */
#line 3559 "htcobol.y"
{(yyval.ival)=CM_REF;}
#line 9858 "htcobol.tab.c"
break;
case 1139: /* parm_type: VALUE */
#line 3560 "htcobol.y"
{(yyval.ival)=CM_VAL;}
#line 9864 "htcobol.tab.c"
break;
case 1140: /* parm_type: CONTENT */
#line 3561 "htcobol.y"
{(yyval.ival)=CM_CONT;}
#line 9870 "htcobol.tab.c"
break;
case 1141: /* intrinsic_parm_list: intrinsic_parm_list sep_opt intrinsic_parm */
#line 3566 "htcobol.y"
{ gen_push_using((yyvsp[0].sval)); }
#line 9876 "htcobol.tab.c"
break;
case 1142: /* intrinsic_parm_list: intrinsic_parm */
#line 3567 "htcobol.y"
{ gen_push_using((yyvsp[0].sval)); }
#line 9882 "htcobol.tab.c"
break;
case 1143: /* intrinsic_parm: gname */
#line 3570 "htcobol.y"
{(yyval.sval)=(yyvsp[0].sval);(yyval.sval)->call_mode=CM_REF;}
#line 9888 "htcobol.tab.c"
break;
case 1144: /* perform_range: label perform_thru_opt */
#line 3573 "htcobol.y"
{
gen_perform_thru((yyvsp[-1].sval),(yyvsp[0].sval));
(yyval.sval) = ((yyvsp[0].sval) == NULL) ? (yyvsp[-1].sval) : (yyvsp[0].sval);
}
#line 9897 "htcobol.tab.c"
break;
case 1145: /* perform_options: perform_statements END_PERFORM */
#line 3578 "htcobol.y"
{ (yyval.sval) = NULL; }
#line 9903 "htcobol.tab.c"
break;
case 1146: /* @129: %empty */
#line 3580 "htcobol.y"
{
gen_push_int((yyvsp[-1].sval));
(yyval.dval)=gen_marklabel();
gen_perform_test_counter((yyval.dval));
}
#line 9913 "htcobol.tab.c"
break;
case 1147: /* $@130: %empty */
#line 3586 "htcobol.y"
{
gen_perform_times((yyvsp[-1].dval));
}
#line 9921 "htcobol.tab.c"
break;
case 1148: /* perform_options: gname TIMES @129 perform_statements $@130 END_PERFORM */
#line 3589 "htcobol.y"
{ (yyval.sval) = NULL; }
#line 9927 "htcobol.tab.c"
break;
case 1149: /* @131: %empty */
#line 3591 "htcobol.y"
{
if ((yyvsp[-1].ival) == 2) {
(yyval.ddval).lb2=gen_passlabel();
}
(yyval.ddval).lb1=gen_marklabel();
}
#line 9938 "htcobol.tab.c"
break;
case 1150: /* @132: %empty */
#line 3598 "htcobol.y"
{
(yyval.ddval).lb1=gen_orstart();
if ((yyvsp[-3].ival) == 2) {
(yyval.ddval).lb2=gen_passlabel();
gen_dstlabel((yyvsp[-1].ddval).lb2);
}
}
#line 9950 "htcobol.tab.c"
break;
case 1151: /* $@133: %empty */
#line 3606 "htcobol.y"
{
if ((yyvsp[-5].ival) == 2) {
gen_jmplabel((yyvsp[-3].ddval).lb1);
gen_dstlabel((yyvsp[-1].ddval).lb2);
gen_jmplabel((yyvsp[-3].ddval).lb2);
gen_dstlabel((yyvsp[-1].ddval).lb1);
}
else {
gen_jmplabel((yyvsp[-3].ddval).lb1);
gen_dstlabel((yyvsp[-1].ddval).lb1);
}
}
#line 9967 "htcobol.tab.c"
break;
case 1152: /* perform_options: with_test_opt UNTIL @131 condition @132 perform_statements $@133 END_PERFORM */
#line 3618 "htcobol.y"
{ (yyval.sval) = NULL; }
#line 9973 "htcobol.tab.c"
break;
case 1153: /* @134: %empty */
#line 3620 "htcobol.y"
{
/*
Check if initailization of the 'VARYING identifier' is required.
Initailization of the 'VARYING identifier' is not neccessary if
it is the same as the 'FROM identifier'.
*/
if ((yyvsp[-3].sval)->litflag == '1') {
gen_move((yyvsp[-3].sval),(yyvsp[-5].sval));
}
else {
if(strcmp((yyvsp[-3].sval)->name, (yyvsp[-5].sval)->name) != 0) {
gen_move((yyvsp[-3].sval),(yyvsp[-5].sval));
}
}
/* BEFORE=1 AFTER=2 */
if ((yyvsp[-7].ival) == 2) {
(yyval.ddval).lb2=gen_passlabel();
}
(yyval.ddval).lb1=gen_marklabel();
}
#line 9998 "htcobol.tab.c"
break;
case 1154: /* @135: %empty */
#line 3641 "htcobol.y"
{
(yyval.dval)=gen_orstart();
/* BEFORE=1 AFTER=2 */
if ((yyvsp[-9].ival) == 2) {
gen_add((yyvsp[-3].sval),(yyvsp[-7].sval),0);
gen_dstlabel((yyvsp[-1].ddval).lb2);
}
}
#line 10011 "htcobol.tab.c"
break;
case 1155: /* $@136: %empty */
#line 3651 "htcobol.y"
{
int i;
struct perf_info *rf;
/*struct perform_info *rpi;*/
char *vn;
/* Check for duplicate variables in VARYING/AFTER */
if ((yyvsp[-1].pfvals) != NULL) {
if ((vn = check_perform_variables((yyvsp[-10].sval), (yyvsp[-1].pfvals))) != NULL) {
yyerror("Duplicate variable '%s' in VARYING/AFTER clause", vn);
}
}
if ((yyvsp[-12].ival) == 2) {
if ((yyvsp[-1].pfvals) != NULL) {
for (i=5; i>=0; i--) {
rf = (yyvsp[-1].pfvals)->pf[i];
if (rf != NULL) {
gen_jmplabel(rf->ljmp);
gen_dstlabel(rf->lend);
}
}
}
gen_jmplabel((yyvsp[-4].ddval).lb1);
gen_dstlabel((yyvsp[-2].dval));
}
else {
if ((yyvsp[-1].pfvals) != NULL) {
for (i=5; i>=0; i--) {
rf = (yyvsp[-1].pfvals)->pf[i];
if (rf != NULL) {
gen_add(rf->pname1, rf->pname2, 0);
gen_jmplabel(rf->ljmp);
gen_dstlabel(rf->lend);
}
}
}
gen_add((yyvsp[-6].sval),(yyvsp[-10].sval),0);
gen_jmplabel((yyvsp[-4].ddval).lb1);
gen_dstlabel((yyvsp[-2].dval));
}
}
#line 10058 "htcobol.tab.c"
break;
case 1156: /* perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM */
#line 3693 "htcobol.y"
{ (yyval.sval) = NULL; }
#line 10064 "htcobol.tab.c"
break;
case 1157: /* perform_options: label perform_thru_opt */
#line 3695 "htcobol.y"
{
gen_perform_thru((yyvsp[-1].sval),(yyvsp[0].sval));
(yyval.sval) = NULL;
}
#line 10073 "htcobol.tab.c"
break;
case 1158: /* @137: %empty */
#line 3700 "htcobol.y"
{
(yyval.dval)=gen_marklabel();
/* BEFORE=1 AFTER=2 */
if ((yyvsp[-1].ival) == 2) {
gen_perform_thru((yyvsp[-3].sval),(yyvsp[-2].sval));
}
}
#line 10085 "htcobol.tab.c"
break;
case 1159: /* perform_options: label perform_thru_opt with_test_opt UNTIL @137 condition */
#line 3708 "htcobol.y"
{
unsigned long lbl;
lbl=gen_orstart();
/* BEFORE=1 AFTER=2 */
if ((yyvsp[-3].ival) == 1) {
gen_perform_thru((yyvsp[-5].sval),(yyvsp[-4].sval));
}
gen_jmplabel((yyvsp[-1].dval));
gen_dstlabel(lbl);
}
#line 10100 "htcobol.tab.c"
break;
case 1160: /* perform_options: label perform_thru_opt gname TIMES */
#line 3719 "htcobol.y"
{
unsigned long lbl;
gen_push_int((yyvsp[-1].sval));
lbl = gen_marklabel();
gen_perform_test_counter(lbl);
gen_perform_thru((yyvsp[-3].sval),(yyvsp[-2].sval));
gen_perform_times(lbl);
}
#line 10113 "htcobol.tab.c"
break;
case 1161: /* @138: %empty */
#line 3729 "htcobol.y"
{
/*
Check if initailization of the 'VARYING identifier' is required.
Initailization of the 'VARYING identifier' is not neccessary if
it is the same as the 'FROM identifier'.
*/
if ((yyvsp[-3].sval)->litflag == '1') {
gen_move((yyvsp[-3].sval),(yyvsp[-5].sval));
}
else {
if(strcmp((yyvsp[-3].sval)->name, (yyvsp[-5].sval)->name) != 0) {
gen_move((yyvsp[-3].sval),(yyvsp[-5].sval));
}
}
if ((yyvsp[-7].ival) == 2) {
(yyval.ddval).lb2=gen_passlabel();
}
(yyval.ddval).lb1 = gen_marklabel();
}
#line 10137 "htcobol.tab.c"
break;
case 1162: /* @139: %empty */
#line 3749 "htcobol.y"
{
(yyval.dval) = gen_orstart();
/* BEFORE=1 AFTER=2 */
if ((yyvsp[-9].ival) == 2) {
gen_add((yyvsp[-3].sval),(yyvsp[-7].sval), 0);
gen_dstlabel((yyvsp[-1].ddval).lb2);
}
}
#line 10150 "htcobol.tab.c"
break;
case 1163: /* perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname UNTIL @138 condition @139 perform_after_opt */
#line 3758 "htcobol.y"
{
int i;
struct perf_info *rf;
/*struct perform_info *rpi;*/
char *vn = NULL;
/* Check for duplicate varaibles in VARYING/AFTER */
if ((yyvsp[0].pfvals) != NULL) {
if ((vn = check_perform_variables((yyvsp[-9].sval), (yyvsp[0].pfvals))) != NULL) {
yyerror("Duplicate variable '%s' in VARYING/AFTER clause", vn);
}
}
gen_perform_thru((yyvsp[-13].sval),(yyvsp[-12].sval));
/* BEFORE=1 AFTER=2 */
if ((yyvsp[-11].ival) == 2) {
if ((yyvsp[0].pfvals) != NULL) {
for (i=5; i>=0; i--) {
rf = (yyvsp[0].pfvals)->pf[i];
if (rf != NULL) {
gen_jmplabel(rf->ljmp);
gen_dstlabel(rf->lend);
}
}
}
gen_jmplabel((yyvsp[-3].dval));
gen_dstlabel((yyvsp[-1].dval));
}
else {
if ((yyvsp[0].pfvals) != NULL) {
for (i=5; i>=0; i--) {
rf = (yyvsp[0].pfvals)->pf[i];
if (rf != NULL) {
gen_add(rf->pname1, rf->pname2, 0);
gen_jmplabel(rf->ljmp);
gen_dstlabel(rf->lend);
}
}
}
gen_add((yyvsp[-5].sval),(yyvsp[-9].sval),0);
gen_jmplabel((yyvsp[-3].dval));
gen_dstlabel((yyvsp[-1].dval));
}
(yyval.sval) = NULL;
}
#line 10199 "htcobol.tab.c"
break;
case 1164: /* perform_thru_opt: %empty */
#line 3805 "htcobol.y"
{ (yyval.sval) = NULL; }
#line 10205 "htcobol.tab.c"
break;
case 1165: /* perform_thru_opt: THRU label */
#line 3806 "htcobol.y"
{ (yyval.sval) = (yyvsp[0].sval);}
#line 10211 "htcobol.tab.c"
break;
case 1166: /* with_test_opt: %empty */
#line 3808 "htcobol.y"
{ (yyval.ival)=1; perform_after_sw=1; }
#line 10217 "htcobol.tab.c"
break;
case 1167: /* with_test_opt: with_opt TEST before_after */
#line 3810 "htcobol.y"
{
(yyval.ival)=(yyvsp[0].ival);
perform_after_sw=(yyvsp[0].ival);
}
#line 10226 "htcobol.tab.c"
break;
case 1168: /* perform_after_opt: %empty */
#line 3815 "htcobol.y"
{ (yyval.pfvals)=NULL; }
#line 10232 "htcobol.tab.c"
break;
case 1169: /* perform_after_opt: AFTER perform_after */
#line 3817 "htcobol.y"
{
(yyval.pfvals)=create_perform_info();
(yyval.pfvals)->pf[0] = (yyvsp[0].pfval);
(yyval.pfvals)=(yyval.pfvals);
}
#line 10242 "htcobol.tab.c"
break;
case 1170: /* perform_after_opt: AFTER perform_after AFTER perform_after */
#line 3823 "htcobol.y"
{
(yyval.pfvals)=create_perform_info();
(yyval.pfvals)->pf[0] = (yyvsp[-2].pfval);
(yyval.pfvals)->pf[1] = (yyvsp[0].pfval);
(yyval.pfvals)=(yyval.pfvals);
}
#line 10253 "htcobol.tab.c"
break;
case 1171: /* perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after */
#line 3831 "htcobol.y"
{
(yyval.pfvals)=create_perform_info();
(yyval.pfvals)->pf[0] = (yyvsp[-4].pfval);
(yyval.pfvals)->pf[1] = (yyvsp[-2].pfval);
(yyval.pfvals)->pf[2] = (yyvsp[0].pfval);
(yyval.pfvals)=(yyval.pfvals);
}
#line 10265 "htcobol.tab.c"
break;
case 1172: /* perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after */
#line 3840 "htcobol.y"
{
(yyval.pfvals)=create_perform_info();
(yyval.pfvals)->pf[0] = (yyvsp[-6].pfval);
(yyval.pfvals)->pf[1] = (yyvsp[-4].pfval);
(yyval.pfvals)->pf[2] = (yyvsp[-2].pfval);
(yyval.pfvals)->pf[3] = (yyvsp[0].pfval);
(yyval.pfvals)=(yyval.pfvals);
}
#line 10278 "htcobol.tab.c"
break;
case 1173: /* perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after */
#line 3850 "htcobol.y"
{
(yyval.pfvals)=create_perform_info();
(yyval.pfvals)->pf[0] = (yyvsp[-8].pfval);
(yyval.pfvals)->pf[1] = (yyvsp[-6].pfval);
(yyval.pfvals)->pf[2] = (yyvsp[-4].pfval);
(yyval.pfvals)->pf[3] = (yyvsp[-2].pfval);
(yyval.pfvals)->pf[4] = (yyvsp[0].pfval);
(yyval.pfvals)=(yyval.pfvals);
}
#line 10292 "htcobol.tab.c"
break;
case 1174: /* perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after */
#line 3861 "htcobol.y"
{
(yyval.pfvals)=create_perform_info();
(yyval.pfvals)->pf[0] = (yyvsp[-10].pfval);
(yyval.pfvals)->pf[1] = (yyvsp[-8].pfval);
(yyval.pfvals)->pf[2] = (yyvsp[-6].pfval);
(yyval.pfvals)->pf[3] = (yyvsp[-4].pfval);
(yyval.pfvals)->pf[4] = (yyvsp[-2].pfval);
(yyval.pfvals)->pf[5] = (yyvsp[0].pfval);
(yyval.pfvals)=(yyval.pfvals);
}
#line 10307 "htcobol.tab.c"
break;
case 1175: /* @140: %empty */
#line 3874 "htcobol.y"
{
/*
Check if initailization of the 'VARYING identifier' is required.
Initailization of the 'VARYING identifier' is not neccessary if
it is the same as the 'FROM identifier'.
*/
if ((yyvsp[-3].sval)->litflag == '1') {
gen_move((yyvsp[-3].sval),(yyvsp[-5].sval));
}
else {
if(strcmp((yyvsp[-3].sval)->name, (yyvsp[-5].sval)->name) != 0) {
gen_move((yyvsp[-3].sval),(yyvsp[-5].sval));
}
}
/* BEFORE=1 AFTER=2 */
if (perform_after_sw == 2) {
(yyval.ddval).lb2=gen_passlabel();
}
(yyval.ddval).lb1 = gen_marklabel();
}
#line 10332 "htcobol.tab.c"
break;
case 1176: /* perform_after: name FROM gname by_opt gname UNTIL @140 condition */
#line 3895 "htcobol.y"
{
unsigned long lbl;
lbl=gen_orstart();
/* BEFORE=1 AFTER=2 */
if (perform_after_sw == 2) {
gen_add((yyvsp[-3].sval),(yyvsp[-7].sval),0);
gen_dstlabel((yyvsp[-1].ddval).lb2);
(yyval.pfval) = create_perf_info((yyvsp[-3].sval), (yyvsp[-7].sval), (yyvsp[-1].ddval).lb1, lbl);
}
else {
(yyval.pfval) = create_perf_info((yyvsp[-3].sval), (yyvsp[-7].sval), (yyvsp[-1].ddval).lb1, lbl);
}
}
#line 10350 "htcobol.tab.c"
break;
case 1177: /* $@141: %empty */
#line 3909 "htcobol.y"
{stabs_line();}
#line 10356 "htcobol.tab.c"
break;
case 1179: /* before_after: BEFORE */
#line 3915 "htcobol.y"
{ (yyval.ival)=1; }
#line 10362 "htcobol.tab.c"
break;
case 1180: /* before_after: AFTER */
#line 3916 "htcobol.y"
{ (yyval.ival)=2; }
#line 10368 "htcobol.tab.c"
break;
case 1181: /* $@142: %empty */
#line 3920 "htcobol.y"
{
if ((yyvsp[0].ival) & COND_UNARY) {
if ((yyvsp[0].ival) & COND_CLASS) {
gen_class_check((yyvsp[-1].sval),(yyvsp[0].ival));
}
else {
struct sym *sy = (struct sym *)save_special_literal('0','9', "%ZEROS%");
gen_compare((yyvsp[-1].sval),(yyvsp[0].ival)&~COND_UNARY,sy);
}
}
}
#line 10384 "htcobol.tab.c"
break;
case 1182: /* condition: expr extended_cond_op $@142 expr_opt */
#line 3932 "htcobol.y"
{
if ((yyvsp[-2].ival) & COND_UNARY) {
if ((int)(yyvsp[0].sval) != -1) {
yyerror("class or sign conditions are unary");
}
}
else {
if ((int)(yyvsp[0].sval) == -1) {
yyerror("expression expected in a binary condition");
}
else {
gen_compare((yyvsp[-3].sval),(yyvsp[-2].ival),(yyvsp[0].sval));
}
}
(yyval.condval).sy=(yyvsp[-3].sval); /* for implied operands */
(yyval.condval).oper=(yyvsp[-2].ival);
}
#line 10406 "htcobol.tab.c"
break;
case 1183: /* condition: NOT condition */
#line 3949 "htcobol.y"
{ gen_not(); (yyval.condval)=(yyvsp[0].condval); }
#line 10412 "htcobol.tab.c"
break;
case 1184: /* @143: %empty */
#line 3952 "htcobol.y"
{ (yyval.dval)=gen_andstart(); }
#line 10418 "htcobol.tab.c"
break;
case 1185: /* condition: condition AND @143 implied_op_condition */
#line 3954 "htcobol.y"
{ gen_dstlabel((yyvsp[-1].dval)); (yyval.condval)=(yyvsp[0].condval); }
#line 10424 "htcobol.tab.c"
break;
case 1186: /* @144: %empty */
#line 3957 "htcobol.y"
{ (yyval.dval)=gen_orstart(); }
#line 10430 "htcobol.tab.c"
break;
case 1187: /* condition: condition OR @144 implied_op_condition */
#line 3959 "htcobol.y"
{ gen_dstlabel((yyvsp[-1].dval)); (yyval.condval)=(yyvsp[0].condval); }
#line 10436 "htcobol.tab.c"
break;
case 1188: /* condition: '(' condition ')' */
#line 3960 "htcobol.y"
{ (yyval.condval) = (yyvsp[-1].condval); }
#line 10442 "htcobol.tab.c"
break;
case 1189: /* condition: cond_name */
#line 3962 "htcobol.y"
{
/*if ($1->level != 88)
yyerror("condition unknown");*/
gen_condition((yyvsp[0].sval));
(yyval.condval).sy=NULL;
(yyval.condval).oper=0;
}
#line 10454 "htcobol.tab.c"
break;
case 1190: /* implied_op_condition: condition */
#line 3971 "htcobol.y"
{ (yyval.condval) = (yyvsp[0].condval); }
#line 10460 "htcobol.tab.c"
break;
case 1191: /* implied_op_condition: cond_op expr */
#line 3973 "htcobol.y"
{
if ((yyvsp[(-2) - (2)].condval).sy == NULL) {
yyerror("invalid implied condition");
}
else {
gen_compare((yyvsp[(-2) - (2)].condval).sy,(yyvsp[-1].ival),(yyvsp[0].sval));
}
(yyval.condval).sy = (yyvsp[(-2) - (2)].condval).sy;
(yyval.condval).oper = (yyvsp[-1].ival);
}
#line 10475 "htcobol.tab.c"
break;
case 1192: /* implied_op_condition: expr */
#line 3984 "htcobol.y"
{ /* implied both the first operand and the operator */
if (((yyvsp[(-2) - (1)].condval).sy == NULL)||
((yyvsp[(-2) - (1)].condval).oper & COND_UNARY)) {
yyerror("invalid implied condition");
}
else {
gen_compare((yyvsp[(-2) - (1)].condval).sy,(yyvsp[(-2) - (1)].condval).oper,(yyvsp[0].sval));
}
(yyval.condval).sy = (yyvsp[(-2) - (1)].condval).sy;
(yyval.condval).oper = (yyvsp[(-2) - (1)].condval).oper;
}
#line 10491 "htcobol.tab.c"
break;
case 1193: /* sign_condition: POSITIVE */
#line 3997 "htcobol.y"
{ (yyval.ival)=GREATER; }
#line 10497 "htcobol.tab.c"
break;
case 1194: /* sign_condition: NEGATIVE */
#line 3998 "htcobol.y"
{ (yyval.ival)=LESS; }
#line 10503 "htcobol.tab.c"
break;
case 1195: /* sign_condition: ZERO */
#line 3999 "htcobol.y"
{ (yyval.ival)=EQUAL; }
#line 10509 "htcobol.tab.c"
break;
case 1196: /* class_condition: NUMERIC */
#line 4002 "htcobol.y"
{ (yyval.ival)=CLASS_NUMERIC; }
#line 10515 "htcobol.tab.c"
break;
case 1197: /* class_condition: ALPHABETIC */
#line 4003 "htcobol.y"
{ (yyval.ival)=CLASS_ALPHABETIC; }
#line 10521 "htcobol.tab.c"
break;
case 1198: /* class_condition: ALPHABETIC_LOWER */
#line 4004 "htcobol.y"
{ (yyval.ival)=CLASS_ALPHABETIC_LOWER; }
#line 10527 "htcobol.tab.c"
break;
case 1199: /* class_condition: ALPHABETIC_UPPER */
#line 4005 "htcobol.y"
{ (yyval.ival)=CLASS_ALPHABETIC_UPPER; }
#line 10533 "htcobol.tab.c"
break;
case 1200: /* extended_cond_op: IS ext_cond */
#line 4008 "htcobol.y"
{ (yyval.ival) = (yyvsp[0].ival); }
#line 10539 "htcobol.tab.c"
break;
case 1201: /* extended_cond_op: IS NOT ext_cond */
#line 4009 "htcobol.y"
{ (yyval.ival) = (yyvsp[0].ival) ^ 7; }
#line 10545 "htcobol.tab.c"
break;
case 1202: /* extended_cond_op: IS ext_cond OR ext_cond */
#line 4010 "htcobol.y"
{ (yyval.ival) = (yyvsp[-2].ival) | (yyvsp[0].ival); }
#line 10551 "htcobol.tab.c"
break;
case 1203: /* extended_cond_op: ext_cond */
#line 4011 "htcobol.y"
{ (yyval.ival) = (yyvsp[0].ival); }
#line 10557 "htcobol.tab.c"
break;
case 1204: /* extended_cond_op: NOT is_opt ext_cond */
#line 4012 "htcobol.y"
{ (yyval.ival) = (yyvsp[0].ival) ^ 7; }
#line 10563 "htcobol.tab.c"
break;
case 1205: /* extended_cond_op: ext_cond OR ext_cond */
#line 4013 "htcobol.y"
{ (yyval.ival) = (yyvsp[-2].ival) | (yyvsp[0].ival); }
#line 10569 "htcobol.tab.c"
break;
case 1206: /* ext_cond: conditional */
#line 4016 "htcobol.y"
{ (yyval.ival) = (yyvsp[0].ival); }
#line 10575 "htcobol.tab.c"
break;
case 1207: /* ext_cond: class_condition */
#line 4017 "htcobol.y"
{ (yyval.ival) = (yyvsp[0].ival) | COND_UNARY | COND_CLASS; }
#line 10581 "htcobol.tab.c"
break;
case 1208: /* ext_cond: sign_condition */
#line 4018 "htcobol.y"
{ (yyval.ival) = (yyvsp[0].ival) | COND_UNARY; }
#line 10587 "htcobol.tab.c"
break;
case 1209: /* cond_op: conditional */
#line 4021 "htcobol.y"
{ (yyval.ival) = (yyvsp[0].ival); }
#line 10593 "htcobol.tab.c"
break;
case 1210: /* cond_op: NOT conditional */
#line 4022 "htcobol.y"
{ (yyval.ival) = (yyvsp[0].ival) ^ 7; }
#line 10599 "htcobol.tab.c"
break;
case 1211: /* cond_op: conditional OR conditional */
#line 4023 "htcobol.y"
{ (yyval.ival) = (yyvsp[-2].ival) | (yyvsp[0].ival); }
#line 10605 "htcobol.tab.c"
break;
case 1212: /* conditional: CONDITIONAL than_to_opt */
#line 4026 "htcobol.y"
{ (yyval.ival) = (yyvsp[-1].ival); }
#line 10611 "htcobol.tab.c"
break;
case 1222: /* than_to_opt: TO */
#line 4054 "htcobol.y"
{ }
#line 10617 "htcobol.tab.c"
break;
case 1223: /* than_to_opt: THAN */
#line 4055 "htcobol.y"
{ }
#line 10623 "htcobol.tab.c"
break;
case 1238: /* gname_opt: gname */
#line 4083 "htcobol.y"
{ (yyval.sval) = (yyvsp[0].sval); }
#line 10629 "htcobol.tab.c"
break;
case 1239: /* gname_opt: %empty */
#line 4084 "htcobol.y"
{ (yyval.sval) = NULL; }
#line 10635 "htcobol.tab.c"
break;
case 1241: /* to_opt: TO */
#line 4087 "htcobol.y"
{ }
#line 10641 "htcobol.tab.c"
break;
case 1242: /* name_var_list: name_var */
#line 4090 "htcobol.y"
{ (yyval.glistval) = gvar_list_append(NULL, (yyvsp[0].sval), source_lineno); }
#line 10647 "htcobol.tab.c"
break;
case 1243: /* name_var_list: name_var_list sep_opt name_var */
#line 4092 "htcobol.y"
{ (yyval.glistval) = gvar_list_append((yyvsp[-2].glistval), (yyvsp[0].sval), source_lineno); }
#line 10653 "htcobol.tab.c"
break;
case 1244: /* gname_list: gname */
#line 4095 "htcobol.y"
{ (yyval.glistval) = gvar_list_append(NULL, (yyvsp[0].sval), source_lineno); }
#line 10659 "htcobol.tab.c"
break;
case 1245: /* gname_list: gname_list sep_opt gname */
#line 4097 "htcobol.y"
{ (yyval.glistval) = gvar_list_append((yyvsp[-2].glistval), (yyvsp[0].sval), source_lineno); }
#line 10665 "htcobol.tab.c"
break;
case 1246: /* gname: name */
#line 4099 "htcobol.y"
{
/*if (!is_variable($1)) {
yyerror("The symbol \"%s\" is not an allowed argument here", $1->name);
}*/
(yyval.sval) = (yyvsp[0].sval); }
#line 10675 "htcobol.tab.c"
break;
case 1247: /* gname: gliteral */
#line 4104 "htcobol.y"
{ (yyval.sval) = (struct sym *)(yyvsp[0].lval);}
#line 10681 "htcobol.tab.c"
break;
case 1248: /* @145: %empty */
#line 4105 "htcobol.y"
{
(yyvsp[-1].sval)->type = 'f'; /* function type */
(yyval.ival)=CALL;
}
#line 10690 "htcobol.tab.c"
break;
case 1249: /* gname: FUNCTION LABELSTR '(' @145 intrinsic_parm_list ')' */
#line 4109 "htcobol.y"
{
(yyval.sval) = gen_intrinsic_call((struct sym *)(yyvsp[-4].sval));
}
#line 10698 "htcobol.tab.c"
break;
case 1250: /* gname: FUNCTION LABELSTR */
#line 4112 "htcobol.y"
{
(yyvsp[0].sval)->type = 'f'; /* function type */
(yyval.ival)=CALL;
(yyval.sval) = gen_intrinsic_call((struct sym *)(yyvsp[0].sval));
}
#line 10708 "htcobol.tab.c"
break;
case 1251: /* name_or_lit: name */
#line 4119 "htcobol.y"
{ (yyval.sval) = (yyvsp[0].sval); }
#line 10714 "htcobol.tab.c"
break;
case 1252: /* name_or_lit: literal */
#line 4120 "htcobol.y"
{ (yyval.sval) = (struct sym *)(yyvsp[0].lval); }
#line 10720 "htcobol.tab.c"
break;
case 1253: /* noallname: name */
#line 4123 "htcobol.y"
{ (yyval.sval) = (yyvsp[0].sval); }
#line 10726 "htcobol.tab.c"
break;
case 1254: /* noallname: without_all_literal */
#line 4124 "htcobol.y"
{ (yyval.sval) = (struct sym *)(yyvsp[0].lval); }
#line 10732 "htcobol.tab.c"
break;
case 1257: /* without_all_literal: literal */
#line 4131 "htcobol.y"
{ (yyval.lval)=(yyvsp[0].lval); }
#line 10738 "htcobol.tab.c"
break;
case 1258: /* without_all_literal: special_literal */
#line 4132 "htcobol.y"
{ (yyval.lval)=(yyvsp[0].lval); }
#line 10744 "htcobol.tab.c"
break;
case 1259: /* all_literal: ALL literal */
#line 4135 "htcobol.y"
{ (yyvsp[0].lval)->all=1; (yyval.lval)=(yyvsp[0].lval); }
#line 10750 "htcobol.tab.c"
break;
case 1260: /* all_literal: ALL special_literal */
#line 4136 "htcobol.y"
{ (yyval.lval)=(yyvsp[0].lval); }
#line 10756 "htcobol.tab.c"
break;
case 1261: /* special_literal: SPACES */
#line 4139 "htcobol.y"
{ (yyval.lval)=spe_lit_SP; }
#line 10762 "htcobol.tab.c"
break;
case 1262: /* special_literal: ZERO */
#line 4140 "htcobol.y"
{ (yyval.lval)=spe_lit_ZE; }
#line 10768 "htcobol.tab.c"
break;
case 1263: /* special_literal: QUOTES */
#line 4141 "htcobol.y"
{ (yyval.lval)=spe_lit_QU; }
#line 10774 "htcobol.tab.c"
break;
case 1264: /* special_literal: HIGHVALUES */
#line 4142 "htcobol.y"
{ (yyval.lval)=spe_lit_HV; }
#line 10780 "htcobol.tab.c"
break;
case 1265: /* special_literal: LOWVALUES */
#line 4143 "htcobol.y"
{ (yyval.lval)=spe_lit_LV; }
#line 10786 "htcobol.tab.c"
break;
case 1266: /* var_or_nliteral: variable */
#line 4146 "htcobol.y"
{ (yyval.sval) = (yyvsp[0].sval); }
#line 10792 "htcobol.tab.c"
break;
case 1267: /* var_or_nliteral: nliteral */
#line 4147 "htcobol.y"
{ (yyval.sval) = (struct sym *)(yyvsp[0].lval); }
#line 10798 "htcobol.tab.c"
break;
case 1268: /* nliteral: signed_nliteral */
#line 4150 "htcobol.y"
{ save_literal((yyvsp[0].lval),'9'); (yyvsp[0].lval)->all = 0; (yyval.lval)=(yyvsp[0].lval); }
#line 10804 "htcobol.tab.c"
break;
case 1269: /* literal: signed_nliteral */
#line 4153 "htcobol.y"
{ save_literal((yyvsp[0].lval),'9'); (yyvsp[0].lval)->all=0; (yyval.lval)=(yyvsp[0].lval); }
#line 10810 "htcobol.tab.c"
break;
case 1270: /* literal: CLITERAL */
#line 4154 "htcobol.y"
{ save_literal((yyvsp[0].lval),'X'); (yyvsp[0].lval)->all=0; (yyval.lval)=(yyvsp[0].lval); }
#line 10816 "htcobol.tab.c"
break;
case 1271: /* signed_nliteral: NLITERAL */
#line 4157 "htcobol.y"
{ check_decimal_point((yyvsp[0].lval)); (yyval.lval)=(yyvsp[0].lval); }
#line 10822 "htcobol.tab.c"
break;
case 1272: /* signed_nliteral: '+' NLITERAL */
#line 4158 "htcobol.y"
{ check_decimal_point((yyvsp[0].lval)); (yyval.lval)=(yyvsp[0].lval); }
#line 10828 "htcobol.tab.c"
break;
case 1273: /* signed_nliteral: '-' NLITERAL */
#line 4160 "htcobol.y"
{
check_decimal_point((yyvsp[0].lval));
invert_literal_sign( (yyvsp[0].lval) );
(yyval.lval)=(yyvsp[0].lval);
}
#line 10838 "htcobol.tab.c"
break;
case 1274: /* def_name_opt: def_name */
#line 4167 "htcobol.y"
{ (yyval.sval) = (yyvsp[0].sval); }
#line 10844 "htcobol.tab.c"
break;
case 1275: /* def_name_opt: %empty */
#line 4168 "htcobol.y"
{ (yyval.sval) = NULL; }
#line 10850 "htcobol.tab.c"
break;
case 1276: /* def_name: STRING */
#line 4172 "htcobol.y"
{
if ((yyvsp[0].sval)->defined)
yyerror("variable redefined, %s",(yyvsp[0].sval)->name);
(yyvsp[0].sval)->defined=1;
(yyval.sval)=(yyvsp[0].sval);
}
#line 10861 "htcobol.tab.c"
break;
case 1277: /* def_name: FILLER */
#line 4178 "htcobol.y"
{ (yyval.sval)=alloc_filler(); }
#line 10867 "htcobol.tab.c"
break;
case 1278: /* variable_indexed: SUBSCVAR */
#line 4182 "htcobol.y"
{
if ((yyvsp[0].sval)->occurs_flg == 0 && !in_occurs((yyvsp[0].sval))) // walter
yyerror("\"%s\" is not an indexed variable ", (yyvsp[0].sval)->name);
(yyval.sval)=(yyvsp[0].sval);
}
#line 10877 "htcobol.tab.c"
break;
case 1279: /* filename: literal */
#line 4207 "htcobol.y"
{ (yyval.sval)=(struct sym *)(yyvsp[0].lval); }
#line 10883 "htcobol.tab.c"
break;
case 1280: /* filename: STRING */
#line 4208 "htcobol.y"
{(yyval.sval)=(yyvsp[0].sval); }
#line 10889 "htcobol.tab.c"
break;
case 1281: /* data_name: literal */
#line 4211 "htcobol.y"
{ (yyval.sval)=(struct sym *)(yyvsp[0].lval); }
#line 10895 "htcobol.tab.c"
break;
case 1282: /* data_name: STRING */
#line 4212 "htcobol.y"
{(yyval.sval)=(yyvsp[0].sval); }
#line 10901 "htcobol.tab.c"
break;
case 1283: /* $@146: %empty */
#line 4215 "htcobol.y"
{ curr_division = CDIV_SUBSCRIPTS; }
#line 10907 "htcobol.tab.c"
break;
case 1284: /* cond_name: VARCOND '(' $@146 subscripts ')' */
#line 4216 "htcobol.y"
{
curr_division = CDIV_PROC;
(yyval.sval) = (struct sym *)create_subscripted_var( (yyvsp[-4].sval), (yyvsp[-1].rval) );
/*check_subscripts($$);*/
}
#line 10917 "htcobol.tab.c"
break;
case 1285: /* cond_name: VARCOND */
#line 4221 "htcobol.y"
{ (yyval.sval)=(yyvsp[0].sval); }
#line 10923 "htcobol.tab.c"
break;
case 1286: /* name: variable '(' gname ':' gname_opt ')' */
#line 4224 "htcobol.y"
{
(yyval.sval)=(struct sym *)create_refmoded_var((yyvsp[-5].sval), (yyvsp[-3].sval), (yyvsp[-1].sval)); check_refmods((struct sym *)(yyval.sval));
is_var=1;
}
#line 10932 "htcobol.tab.c"
break;
case 1287: /* name: variable */
#line 4228 "htcobol.y"
{ is_var=1; }
#line 10938 "htcobol.tab.c"
break;
case 1288: /* name: LABELSTR */
#line 4229 "htcobol.y"
{ yyerror("Invalid argument expecting variable"); is_var=2; }
#line 10944 "htcobol.tab.c"
break;
case 1289: /* name_var: gname */
#line 4232 "htcobol.y"
{
if (!is_var)
yyerror("Invalid argument expecting variable");
is_var=0;
}
#line 10954 "htcobol.tab.c"
break;
case 1290: /* variable: qualified_var */
#line 4260 "htcobol.y"
{
(yyval.sval)=(yyvsp[0].sval);
if (need_subscripts && (yyvsp[0].sval)->occurs_flg == 0) {
/* verify if the variable is present in the same area of occurs clause */
if(!in_occurs((yyvsp[0].sval))) {
yyerror("this variable \'%s\' must be subscripted or indexed", (yyvsp[0].sval)->name);
need_subscripts=0;
}
}
}
#line 10969 "htcobol.tab.c"
break;
case 1291: /* $@147: %empty */
#line 4271 "htcobol.y"
{ curr_division = CDIV_SUBSCRIPTS; }
#line 10975 "htcobol.tab.c"
break;
case 1292: /* variable: qualified_var LPAR $@147 subscripts ')' */
#line 4273 "htcobol.y"
{
curr_division = CDIV_PROC;
(yyval.sval) = (struct sym *)create_subscripted_var( (yyvsp[-4].sval), (yyvsp[-1].rval) );
check_subscripts((yyval.sval));
}
#line 10985 "htcobol.tab.c"
break;
case 1293: /* qualified_var: unqualified_var */
#line 4281 "htcobol.y"
{
(yyval.sval)=(yyvsp[0].sval);
if ((yyvsp[0].sval)->clone != 0)
yyerror("this variable \'%s\' must be qualified", (yyvsp[0].sval)->name);
}
#line 10995 "htcobol.tab.c"
break;
case 1294: /* qualified_var: unqualified_var in_of qualified_var */
#line 4287 "htcobol.y"
{
(yyval.sval)=lookup_parent((yyvsp[-2].sval),(yyvsp[0].sval));
if ((yyval.sval) == NULL) {
yyerror("this variable \'%s\' is not defined in '%s'", (yyvsp[-2].sval)->name, (yyvsp[0].sval)->name);
(yyval.sval)=(yyvsp[-2].sval);
}
}
#line 11007 "htcobol.tab.c"
break;
case 1295: /* unqualified_var: VARIABLE */
#line 4297 "htcobol.y"
{
if (((yyvsp[0].sval)->defined == 0) && ((yyvsp[0].sval)->type == 0))
{
yyerror("Undefined variable \'%s\' found", (yyvsp[0].sval)->name);
}
(yyval.sval)=(yyvsp[0].sval);
}
#line 11019 "htcobol.tab.c"
break;
case 1296: /* unqualified_var: SUBSCVAR */
#line 4304 "htcobol.y"
{ need_subscripts=1; (yyval.sval)=(yyvsp[0].sval); }
#line 11025 "htcobol.tab.c"
break;
case 1297: /* subscripts: subscript */
#line 4307 "htcobol.y"
{ (yyval.rval) = (yyvsp[0].rval); }
#line 11031 "htcobol.tab.c"
break;
case 1298: /* subscripts: subscripts comma_opt subscript */
#line 4308 "htcobol.y"
{ (yyval.rval) = add_subscript( (yyvsp[-2].rval), (yyvsp[0].rval) ); }
#line 11037 "htcobol.tab.c"
break;
case 1299: /* subscript: gname */
#line 4311 "htcobol.y"
{ (yyval.rval) = create_subscript( (yyvsp[0].sval) ); }
#line 11043 "htcobol.tab.c"
break;
case 1300: /* subscript: subscript '+' gname */
#line 4312 "htcobol.y"
{ (yyval.rval) = add_subscript_item( (yyvsp[-2].rval), '+', (yyvsp[0].sval) ); }
#line 11049 "htcobol.tab.c"
break;
case 1301: /* subscript: subscript '-' gname */
#line 4313 "htcobol.y"
{ (yyval.rval) = add_subscript_item( (yyvsp[-2].rval), '-', (yyvsp[0].sval) ); }
#line 11055 "htcobol.tab.c"
break;
case 1302: /* integer: signed_nliteral */
#line 4317 "htcobol.y"
{
char *s;
(yyval.ival)=0;
s=(yyvsp[0].lval)->name;
while (isdigit(*s))
(yyval.ival) = (yyval.ival) * 10 + *s++ - '0';
if (*s)
yyerror("only integers accepted here");
}
#line 11069 "htcobol.tab.c"
break;
case 1303: /* label: LABELSTR in_of LABELSTR */
#line 4329 "htcobol.y"
{
struct sym *lab=(yyvsp[-2].sval);
struct sym *sec=(yyvsp[0].sval);
if (sec->defined == 0) {
sec->defined = 2;
sec->parent = NULL;
} else {
if ((sec=lookup_label((yyvsp[0].sval),NULL))==NULL) {
sec = install((yyvsp[0].sval)->name,SYTB_LAB,2);
sec->defined=2;
sec->parent = NULL;
}
}
if (lab->defined == 0) {
lab->defined = 2;
lab->parent = (yyvsp[0].sval);
} else {
if ((lab=lookup_label((yyvsp[-2].sval),(yyvsp[0].sval)))==NULL) {
lab = install((yyvsp[-2].sval)->name,SYTB_LAB,2);
lab->defined=2;
lab->parent = (yyvsp[0].sval);
}
}
(yyval.sval) = lab;
}
#line 11100 "htcobol.tab.c"
break;
case 1304: /* label: LABELSTR */
#line 4356 "htcobol.y"
{
struct sym *lab=(yyvsp[0].sval);
if (lab->defined == 0) {
lab->defined = 2;
lab->parent = curr_section;
}
else {
if ((lab=lookup_label(lab,curr_section))==NULL) {
lab = install((yyvsp[0].sval)->name,SYTB_LAB,2);
lab->defined=2;
lab->parent = curr_section;
}
}
(yyval.sval) = lab;
}
#line 11120 "htcobol.tab.c"
break;
case 1305: /* label: NLITERAL */
#line 4371 "htcobol.y"
{(yyval.sval)=define_label((struct sym *)(yyvsp[0].lval),1,NULL,0);}
#line 11126 "htcobol.tab.c"
break;
case 1306: /* label: NLITERAL in_of NLITERAL */
#line 4372 "htcobol.y"
{(yyval.sval)=define_label((struct sym *)(yyvsp[-2].lval),1,(struct sym *)(yyvsp[0].lval),1);}
#line 11132 "htcobol.tab.c"
break;
case 1307: /* label: NLITERAL in_of LABELSTR */
#line 4373 "htcobol.y"
{(yyval.sval)=define_label((struct sym *)(yyvsp[-2].lval),1,(yyvsp[0].sval),0);}
#line 11138 "htcobol.tab.c"
break;
#line 11142 "htcobol.tab.c"
default: break;
}
/* User semantic actions sometimes alter yychar, and that requires
that yytoken be updated with the new translation. We take the
approach of translating immediately before every use of yytoken.
One alternative is translating here after every semantic action,
but that translation would be missed if the semantic action invokes
YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or
if it invokes YYBACKUP. In the case of YYABORT or YYACCEPT, an
incorrect destructor might then be invoked immediately. In the
case of YYERROR or YYBACKUP, subsequent parser actions might lead
to an incorrect destructor call or verbose syntax error message
before the lookahead is translated. */
YY_SYMBOL_PRINT ("-> $$ =", YY_CAST (yysymbol_kind_t, yyr1[yyn]), &yyval, &yyloc);
YYPOPSTACK (yylen);
yylen = 0;
*++yyvsp = yyval;
/* Now 'shift' the result of the reduction. Determine what state
that goes to, based on the state we popped back to and the rule
number reduced by. */
{
const int yylhs = yyr1[yyn] - YYNTOKENS;
const int yyi = yypgoto[yylhs] + *yyssp;
yystate = (0 <= yyi && yyi <= YYLAST && yycheck[yyi] == *yyssp
? yytable[yyi]
: yydefgoto[yylhs]);
}
goto yynewstate;
/*--------------------------------------.
| yyerrlab -- here on detecting error. |
`--------------------------------------*/
yyerrlab:
/* Make sure we have latest lookahead translation. See comments at
user semantic actions for why this is necessary. */
yytoken = yychar == YYEMPTY ? YYSYMBOL_YYEMPTY : YYTRANSLATE (yychar);
/* If not already recovering from an error, report this error. */
if (!yyerrstatus)
{
++yynerrs;
yyerror (YY_("syntax error"));
}
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 when the user code never invokes YYERROR and the
label yyerrorlab therefore never appears in user code. */
if (0)
YYERROR;
++yynerrs;
/* Do not reclaim the symbols of the rule whose action triggered
this YYERROR. */
YYPOPSTACK (yylen);
yylen = 0;
YY_STACK_PRINT (yyss, yyssp);
yystate = *yyssp;
goto yyerrlab1;
/*-------------------------------------------------------------.
| yyerrlab1 -- common code for both syntax error and YYERROR. |
`-------------------------------------------------------------*/
yyerrlab1:
yyerrstatus = 3; /* Each real token shifted decrements this. */
/* Pop stack until we find a state that shifts the error token. */
for (;;)
{
yyn = yypact[yystate];
if (!yypact_value_is_default (yyn))
{
yyn += YYSYMBOL_YYerror;
if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYSYMBOL_YYerror)
{
yyn = yytable[yyn];
if (0 < yyn)
break;
}
}
/* Pop the current state because it cannot handle the error token. */
if (yyssp == yyss)
YYABORT;
yydestruct ("Error: popping",
YY_ACCESSING_SYMBOL (yystate), yyvsp);
YYPOPSTACK (1);
yystate = *yyssp;
YY_STACK_PRINT (yyss, yyssp);
}
YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
*++yyvsp = yylval;
YY_IGNORE_MAYBE_UNINITIALIZED_END
/* Shift the error token. */
YY_SYMBOL_PRINT ("Shifting", YY_ACCESSING_SYMBOL (yyn), yyvsp, yylsp);
yystate = yyn;
goto yynewstate;
/*-------------------------------------.
| yyacceptlab -- YYACCEPT comes here. |
`-------------------------------------*/
yyacceptlab:
yyresult = 0;
goto yyreturnlab;
/*-----------------------------------.
| yyabortlab -- YYABORT comes here. |
`-----------------------------------*/
yyabortlab:
yyresult = 1;
goto yyreturnlab;
/*-----------------------------------------------------------.
| yyexhaustedlab -- YYNOMEM (memory exhaustion) comes here. |
`-----------------------------------------------------------*/
yyexhaustedlab:
yyerror (YY_("memory exhausted"));
yyresult = 2;
goto yyreturnlab;
/*----------------------------------------------------------.
| yyreturnlab -- parsing is finished, clean up and return. |
`----------------------------------------------------------*/
yyreturnlab:
if (yychar != YYEMPTY)
{
/* Make sure we have latest lookahead translation. See comments at
user semantic actions for why this is necessary. */
yytoken = YYTRANSLATE (yychar);
yydestruct ("Cleanup: discarding lookahead",
yytoken, &yylval);
}
/* Do not reclaim the symbols of the rule whose action triggered
this YYABORT or YYACCEPT. */
YYPOPSTACK (yylen);
YY_STACK_PRINT (yyss, yyssp);
while (yyssp != yyss)
{
yydestruct ("Cleanup: popping",
YY_ACCESSING_SYMBOL (+*yyssp), yyvsp);
YYPOPSTACK (1);
}
#ifndef yyoverflow
if (yyss != yyssa)
YYSTACK_FREE (yyss);
#endif
return yyresult;
}
#line 4379 "htcobol.y"
/*
** Yacc auxiliary routines
*/
/* ***********************************************
* hterror is called where yyerror is normally *
* called within the parser, but it also passes*
* an error number and severity. The error *
* number identifies the longer description of *
* the error message in the compiler document- *
* ation. The severity is used to set the *
* return code that the compiler will return. *
***********************************************/
void hterror(int erno, int severity, char *s,...)
{
HTG_temporary_error_code = erno;
HTG_temporary_severity = severity;
yyerror(s);
HTG_temporary_error_code = 256;
HTG_temporary_severity = 8;
return;
}
void yywarn(char *s,...)
{
va_list ap;
va_start (ap, s);
HTG_temporary_severity = 4;
yyerror(s, ap);
va_end(ap);
HTG_temporary_severity = 8;
}
extern FILE *o_lst;
void yyerror(char *s,...)
{
char buff1[BUFSIZ], buff2[BUFSIZ];
const char *label;
va_list argptr;
int slen=0;
/* Determine the type of the error */
switch (HTG_temporary_severity)
{
case TCOB_SEVERITY_INFO:
label = "info: ";
break;
case TCOB_SEVERITY_WARN:
label = "warning: ";
if (HTG_RETURN_CODE < 4)
HTG_RETURN_CODE = 4;
wrncnt++;
break;
case TCOB_SEVERITY_ERROR:
label = "error: ";
if (HTG_RETURN_CODE < 8)
HTG_RETURN_CODE = 8;
errcnt++;
break;
default:
label = "error: ";
if (HTG_RETURN_CODE < HTG_temporary_severity)
HTG_RETURN_CODE = HTG_temporary_severity;
errcnt++;
break;
}
/* Build the error message */
va_start(argptr,s);
vsprintf (buff1, s, argptr);
va_end (argptr);
/* Display the error */
slen = strlen(yytext);
if (slen != 0) {
sprintf (buff2, "%s:%6d: %s%s, on or before \'%s\'\n",
source_filename, source_lineno, label, buff1, yytext);
}
else {
sprintf (buff2, "%s:%6d: %s%s\n",
source_filename, source_lineno, label, buff1);
}
fputs (buff2, stderr);
if (HTG_list_flag)
fputs (buff2, o_lst);
}
static void
assert_numeric_sy (struct sym *sy)
{
if (!is_numeric_sy(sy))
yyerror("invalid (non numeric) variable or literal \'%s\' used in arithmetic verb", sy->name);
}
static void
assert_numeric_dest_sy (struct sym *sy)
{
if (!is_numeric_dest_sy(sy))
yyerror("invalid destination variable \'%s\' used in arithmetic verb", sy->name);
}