456 lines
10 KiB
C
456 lines
10 KiB
C
/* A Bison parser, made by GNU Bison 2.4.2. */
|
|
|
|
/* Skeleton interface for Bison's Yacc-like parsers in C
|
|
|
|
Copyright (C) 1984, 1989-1990, 2000-2006, 2009-2010 Free Software
|
|
Foundation, Inc.
|
|
|
|
This program is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation, either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
|
|
|
/* As a special exception, you may create a larger work that contains
|
|
part or all of the Bison parser skeleton and distribute that work
|
|
under terms of your choice, so long as that work isn't itself a
|
|
parser generator using the skeleton or a modified version thereof
|
|
as a parser skeleton. Alternatively, if you modify or redistribute
|
|
the parser skeleton itself, you may (at your option) remove this
|
|
special exception, which will cause the skeleton and the resulting
|
|
Bison output files to be licensed under the GNU General Public
|
|
License without this special exception.
|
|
|
|
This special exception was added by the Free Software Foundation in
|
|
version 2.2 of Bison. */
|
|
|
|
|
|
/* Tokens. */
|
|
#ifndef YYTOKENTYPE
|
|
# define YYTOKENTYPE
|
|
/* Put the tokens into the symbol table, so that GDB and other debuggers
|
|
know about them. */
|
|
enum yytokentype {
|
|
LOW_PREC = 258,
|
|
IDSTRING = 259,
|
|
STRING = 260,
|
|
VARIABLE = 261,
|
|
VARCOND = 262,
|
|
SUBSCVAR = 263,
|
|
LABELSTR = 264,
|
|
CMD_LINE = 265,
|
|
ENVIRONMENT_VARIABLE = 266,
|
|
INKEY = 267,
|
|
ESCKEY = 268,
|
|
CHAR = 269,
|
|
MULTIPLIER = 270,
|
|
USAGENUM = 271,
|
|
ZERONUM = 272,
|
|
CONDITIONAL = 273,
|
|
TO = 274,
|
|
IS = 275,
|
|
ARE = 276,
|
|
THRU = 277,
|
|
THAN = 278,
|
|
NO = 279,
|
|
COMMENTING = 280,
|
|
DIRECTION = 281,
|
|
READ = 282,
|
|
WRITE = 283,
|
|
INPUT_OUTPUT = 284,
|
|
RELEASE = 285,
|
|
NLITERAL = 286,
|
|
CLITERAL = 287,
|
|
PORTNUM = 288,
|
|
DATE_TIME = 289,
|
|
POW_OP = 290,
|
|
OR = 291,
|
|
AND = 292,
|
|
NOT = 293,
|
|
ACCEPT = 294,
|
|
ACCESS = 295,
|
|
ADD = 296,
|
|
ADDRESS = 297,
|
|
ADVANCING = 298,
|
|
AFTER = 299,
|
|
ALL = 300,
|
|
ALPHABET = 301,
|
|
ALPHABETIC = 302,
|
|
ALPHABETIC_LOWER = 303,
|
|
ALPHABETIC_UPPER = 304,
|
|
ALPHANUMERIC = 305,
|
|
ALPHANUMERIC_EDITED = 306,
|
|
ALSO = 307,
|
|
ALTERNATE = 308,
|
|
ANY = 309,
|
|
AREA = 310,
|
|
AREAS = 311,
|
|
ASSIGN = 312,
|
|
AT = 313,
|
|
AUTHOR = 314,
|
|
AUTO = 315,
|
|
BACKGROUNDCOLOR = 316,
|
|
BEFORE = 317,
|
|
BELL = 318,
|
|
BLANK = 319,
|
|
BLINK = 320,
|
|
BLOCK = 321,
|
|
BOTTOM = 322,
|
|
BY = 323,
|
|
CALL = 324,
|
|
CALL_CONV_C = 325,
|
|
CALL_CONV_STDCALL = 326,
|
|
CALL_LOADLIB = 327,
|
|
CANCEL = 328,
|
|
CENTER = 329,
|
|
CF = 330,
|
|
CH = 331,
|
|
CHAIN = 332,
|
|
CHAINING = 333,
|
|
CHARACTER = 334,
|
|
CHARACTERS = 335,
|
|
CLASS = 336,
|
|
CLOSE = 337,
|
|
CODE = 338,
|
|
CODE_SET = 339,
|
|
COLLATING = 340,
|
|
COLOR = 341,
|
|
COLUMN = 342,
|
|
COLUMNS = 343,
|
|
COMMA = 344,
|
|
COMMON = 345,
|
|
COMPUTE = 346,
|
|
CONFIGURATION = 347,
|
|
CONSOLE = 348,
|
|
CONTAINS = 349,
|
|
CONTENT = 350,
|
|
CONTINUE = 351,
|
|
CONTROL = 352,
|
|
CONTROLS = 353,
|
|
CONVERTING = 354,
|
|
CORRESPONDING = 355,
|
|
COUNT = 356,
|
|
CURRENCY = 357,
|
|
CURSOR = 358,
|
|
DATA = 359,
|
|
DATE_COMPILED = 360,
|
|
DATE_WRITTEN = 361,
|
|
DE = 362,
|
|
DEBUGGING = 363,
|
|
DECIMAL_POINT = 364,
|
|
DECLARATIVES = 365,
|
|
DELETE = 366,
|
|
DELIMITED = 367,
|
|
DELIMITER = 368,
|
|
DEPENDING = 369,
|
|
DETAIL = 370,
|
|
DISPLAY = 371,
|
|
DISPLAY_SCREEN = 372,
|
|
DIVIDE = 373,
|
|
DIVISION = 374,
|
|
DOWN = 375,
|
|
DUPLICATES = 376,
|
|
DYNAMIC = 377,
|
|
ELSE = 378,
|
|
END = 379,
|
|
END_ACCEPT = 380,
|
|
END_ADD = 381,
|
|
END_CALL = 382,
|
|
END_CALL_LOADLIB = 383,
|
|
END_CHAIN = 384,
|
|
END_COMPUTE = 385,
|
|
END_DELETE = 386,
|
|
END_DISPLAY = 387,
|
|
END_DIVIDE = 388,
|
|
END_EVALUATE = 389,
|
|
END_IF = 390,
|
|
END_MULTIPLY = 391,
|
|
END_OF_PAGE = 392,
|
|
END_PERFORM = 393,
|
|
END_READ = 394,
|
|
END_RETURN = 395,
|
|
END_REWRITE = 396,
|
|
END_SEARCH = 397,
|
|
END_START = 398,
|
|
END_STRINGCMD = 399,
|
|
END_SUBTRACT = 400,
|
|
END_UNSTRING = 401,
|
|
END_WRITE = 402,
|
|
ENVIRONMENT = 403,
|
|
EOL = 404,
|
|
EOS = 405,
|
|
ERASE = 406,
|
|
ERROR_TOK = 407,
|
|
EVALUATE = 408,
|
|
EXCEPTION = 409,
|
|
EXIT = 410,
|
|
EXTEND = 411,
|
|
EXTERNAL = 412,
|
|
FALSE_TOK = 413,
|
|
FD = 414,
|
|
FILE_CONTROL = 415,
|
|
FILE_ID = 416,
|
|
FILE_TOK = 417,
|
|
FILLER = 418,
|
|
FINAL = 419,
|
|
FIRST = 420,
|
|
FOOTING = 421,
|
|
FOR = 422,
|
|
FOREGROUNDCOLOR = 423,
|
|
FROM = 424,
|
|
FULL = 425,
|
|
FUNCTION = 426,
|
|
GENERATE = 427,
|
|
GIVING = 428,
|
|
GLOBAL = 429,
|
|
GO = 430,
|
|
GOBACK = 431,
|
|
GROUP = 432,
|
|
HEADING = 433,
|
|
HIGHLIGHT = 434,
|
|
HIGHVALUES = 435,
|
|
IDENTIFICATION = 436,
|
|
IF = 437,
|
|
IGNORE = 438,
|
|
IN = 439,
|
|
INDEXED = 440,
|
|
INDICATE = 441,
|
|
INITIALIZE = 442,
|
|
INITIAL_TOK = 443,
|
|
INITIATE = 444,
|
|
INPUT = 445,
|
|
INSPECT = 446,
|
|
INSTALLATION = 447,
|
|
INTO = 448,
|
|
INVALID = 449,
|
|
I_O = 450,
|
|
I_O_CONTROL = 451,
|
|
JUSTIFIED = 452,
|
|
KEY = 453,
|
|
LABEL = 454,
|
|
LAST = 455,
|
|
LEADING = 456,
|
|
LEFT = 457,
|
|
LENGTH = 458,
|
|
LIMIT = 459,
|
|
LIMITS = 460,
|
|
LINAGE = 461,
|
|
LINE = 462,
|
|
LINES = 463,
|
|
LINKAGE = 464,
|
|
LISTSEP = 465,
|
|
LOCK = 466,
|
|
LOWER = 467,
|
|
LOWLIGHT = 468,
|
|
LOWVALUES = 469,
|
|
LPAR = 470,
|
|
MERGE = 471,
|
|
MINUS = 472,
|
|
MODE = 473,
|
|
MOVE = 474,
|
|
MULTIPLE = 475,
|
|
MULTIPLY = 476,
|
|
NATIVE = 477,
|
|
NEGATIVE = 478,
|
|
NEXT = 479,
|
|
NOECHO = 480,
|
|
NOTEXCEP = 481,
|
|
NULL_TOK = 482,
|
|
NUMBER = 483,
|
|
NUMBERS = 484,
|
|
NUMERIC = 485,
|
|
NUMERIC_EDITED = 486,
|
|
OBJECT_COMPUTER = 487,
|
|
OCCURS = 488,
|
|
OF = 489,
|
|
OFF = 490,
|
|
OMITTED = 491,
|
|
ON = 492,
|
|
ONLY = 493,
|
|
OPEN = 494,
|
|
OPTIONAL = 495,
|
|
ORDER = 496,
|
|
ORGANIZATION = 497,
|
|
OTHER = 498,
|
|
OUTPUT = 499,
|
|
OVERFLOW_TOK = 500,
|
|
PADDING = 501,
|
|
PAGE = 502,
|
|
PAGE_COUNTER = 503,
|
|
PARAGRAPH = 504,
|
|
PERFORM = 505,
|
|
PF = 506,
|
|
PH = 507,
|
|
PICTURE = 508,
|
|
PLUS = 509,
|
|
POINTER = 510,
|
|
POSITION = 511,
|
|
POSITIVE = 512,
|
|
PREVIOUS = 513,
|
|
PROCEDURE = 514,
|
|
PROCEED = 515,
|
|
PROGRAM = 516,
|
|
PROGRAM_ID = 517,
|
|
QUOTES = 518,
|
|
RANDOM = 519,
|
|
RD = 520,
|
|
READY = 521,
|
|
RECORD = 522,
|
|
RECORDS = 523,
|
|
REDEFINES = 524,
|
|
REEL = 525,
|
|
REFERENCE = 526,
|
|
RELATIVE = 527,
|
|
REMAINDER = 528,
|
|
REMOVAL = 529,
|
|
RENAMES = 530,
|
|
REPLACING = 531,
|
|
REPORT = 532,
|
|
REPORTS = 533,
|
|
REQUIRED = 534,
|
|
RESERVE = 535,
|
|
RESET = 536,
|
|
RETURN = 537,
|
|
RETURNING = 538,
|
|
REVERSEVIDEO = 539,
|
|
REWIND = 540,
|
|
REWRITE = 541,
|
|
RF = 542,
|
|
RH = 543,
|
|
RIGHT = 544,
|
|
ROUNDED = 545,
|
|
RUN = 546,
|
|
SAME = 547,
|
|
SCREEN = 548,
|
|
SD = 549,
|
|
SEARCH = 550,
|
|
SECTION = 551,
|
|
SECURE = 552,
|
|
SECURITY = 553,
|
|
SELECT = 554,
|
|
SENTENCE = 555,
|
|
SEPARATE = 556,
|
|
SEQUENCE = 557,
|
|
SEQUENTIAL = 558,
|
|
SET = 559,
|
|
SIGN = 560,
|
|
SIZE = 561,
|
|
SORT = 562,
|
|
SORT_MERGE = 563,
|
|
SOURCE = 564,
|
|
SOURCE_COMPUTER = 565,
|
|
SPACES = 566,
|
|
SPECIAL_NAMES = 567,
|
|
STANDARD = 568,
|
|
STANDARD_1 = 569,
|
|
STANDARD_2 = 570,
|
|
START = 571,
|
|
STATUS = 572,
|
|
STD_ERROR = 573,
|
|
STD_OUTPUT = 574,
|
|
STOP = 575,
|
|
STRINGCMD = 576,
|
|
SUBTRACT = 577,
|
|
SUM = 578,
|
|
SYNCHRONIZED = 579,
|
|
TALLYING = 580,
|
|
TAPE = 581,
|
|
TCOBPROTO1 = 582,
|
|
TCOBPROTO2 = 583,
|
|
TERMINATE = 584,
|
|
TEST = 585,
|
|
THEN = 586,
|
|
TIMES = 587,
|
|
TOKDUMMY = 588,
|
|
TOP = 589,
|
|
TRACE = 590,
|
|
TRAILING = 591,
|
|
TRUE_TOK = 592,
|
|
TYPE = 593,
|
|
UNDERLINE = 594,
|
|
UNIT = 595,
|
|
UNLOCK = 596,
|
|
UNSTRING = 597,
|
|
UNTIL = 598,
|
|
UP = 599,
|
|
UPDATE = 600,
|
|
UPON = 601,
|
|
UPPER = 602,
|
|
USAGE = 603,
|
|
USE = 604,
|
|
USING = 605,
|
|
VALUE = 606,
|
|
VALUES = 607,
|
|
VARYING = 608,
|
|
WHEN = 609,
|
|
WITH = 610,
|
|
WORKING_STORAGE = 611,
|
|
ZERO = 612,
|
|
PERIOD_TOK = 613
|
|
};
|
|
#endif
|
|
|
|
|
|
|
|
#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
|
|
typedef union YYSTYPE
|
|
{
|
|
|
|
/* Line 1685 of yacc.c */
|
|
#line 119 "htcobol.y"
|
|
|
|
struct sym *sval; /* symbol */
|
|
int ival; /* int */
|
|
struct coord_pair pval; /* lin,col */
|
|
struct lit *lval; /* literal */
|
|
unsigned long dval; /* label definition, compacted */
|
|
struct ddval { /* dual label definition */
|
|
int lb1,lb2;
|
|
} ddval;
|
|
char *str;
|
|
struct vref *rval; /* variable reference (with subscripts) */
|
|
struct refmod *rmval; /* variable with RefMod specifier */
|
|
struct string_from *sfval; /* variable list in string statement */
|
|
struct unstring_delimited *udval;
|
|
struct unstring_destinations *udstval;
|
|
struct tallying_list *tlval;
|
|
struct tallying_for_list *tfval;
|
|
struct replacing_list *repval;
|
|
struct replacing_by_list *rbval;
|
|
struct converting_struct *cvval;
|
|
struct inspect_before_after *baval;
|
|
struct scr_info *sival;
|
|
struct perf_info *pfval;
|
|
struct perform_info *pfvals;
|
|
struct sortfile_node *snval;
|
|
struct selsubject *ssbjval;
|
|
struct math_var *mval; /* math variables container list */
|
|
struct math_ose *mose; /* math ON SIZE ERROR variables container */
|
|
struct ginfo *gic; /* generic container */
|
|
struct invalid_keys *iks; /* [NOT] INVALID KEY */
|
|
struct invalid_key_element *ike; /* [NOT] INVALID KEY */
|
|
struct condition condval;
|
|
struct list *lstval; /* generic container list */
|
|
struct gvar_list *glistval; /* generic variable list */
|
|
|
|
|
|
|
|
/* Line 1685 of yacc.c */
|
|
#line 447 "htcobol.tab.h"
|
|
} YYSTYPE;
|
|
# define YYSTYPE_IS_TRIVIAL 1
|
|
# define yystype YYSTYPE /* obsolescent; will be withdrawn */
|
|
# define YYSTYPE_IS_DECLARED 1
|
|
#endif
|
|
|
|
extern YYSTYPE yylval;
|
|
|
|
|