nilopaim/tinycobol
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

upgraded to latest gcc

Browse Source
This commit is contained in:
nilopaim
2026-07-17 09:34:43 -03:00
parent 945dd1a809
commit 65419545fd
86 changed files with 16693 additions and 17194 deletions
Download Patch File Download Diff File Expand all files Collapse all files
compiler/Makefile
+13 -18
View File
@@ -12,33 +12,28 @@ exec_prefix=${prefix}
RM= rm -f
MKDIR=mkdir -p
#INSTALL=/usr/bin/install -c
#INSTALL_DATA=${INSTALL} -m 644
INSTALL=install.exe
INSTALL_DATA=${INSTALL}
INSTALL=/usr/bin/install -c
INSTALL_DATA=${INSTALL} -m 644
#YACC=yacc193
YACC=bison
LEX=flex
CCX=gcc
EXEEXT=.exe
EXEEXT=
#INSTBIN=/usr/local/bin
#INSTRC=/usr/local/share/htcobol
INSTBIN=C:/TinyCOBOL
INSTRC=C:/TinyCOBOL
INSTBIN=${prefix}/bin
INSTRC=${prefix}/share/htcobol
RCFILE=htcobolrc
#
# Debuging features are set in htconfig.h
# -DDEBUG_COMPILER -DDEBUG_SCANNER
#
INCLUDES=-I/usr/local/include -I../lib -I..
CCXFLAGS=${INCLUDES} -Wall
INCLUDES=-I/usr/include -I/usr/local/include -I../lib -I../
CCXFLAGS=${INCLUDES} -fcommon -Wall -Wno-long-long
#CCXFLAGS1=${INCLUDES} -fcommon
CCXFLAGS1=${INCLUDES}
#LIBS=-L/usr/local/lib -lgetopts -lm
LIBS=-L/usr/local/lib -lm -lpdcurses
LIBS=-L/usr/lib -L/usr/local/lib
LDFLAGS=
MAKEDEPEND=@MAKEDEPEND@
@@ -63,14 +58,14 @@ htcobol.c htcobgen.c htcobemt.c htglobals.c reswords.c
OBJS = htcobol.tab.o scan.o pp_parser.tab.o pp_scanner.o \
htcobol.o htcobgen.o htcobemt.o htglobals.o reswords.o
PROG=htcobol.exe
PROG=htcobol
all: $(PROG)
devel: all
${PROG}: ${OBJS}
$(CCX) -o $@ ${OBJS} $(LDFLAGS) $(LIBS)
$(CCX) -g -o $@ ${OBJS} $(LDFLAGS) $(LIBS)
# strip $@
@@ -110,7 +105,7 @@ clean:
pp_parser.tab.c pp_parser.tab.h pp_scanner.c pp_parser.output
install: $(PROG)
$(MKDIR) $(INSTRC)
strip $(PROG)
${INSTALL} $(PROG) $(INSTBIN)/$(PROG)
${INSTALL} -m 755 $(PROG) $(INSTBIN)/$(PROG)
$(MKDIR) $(INSTRC)
${INSTALL_DATA} $(RCFILE) $(INSTRC)/$(RCFILE)
compiler/htcobemt.o
BIN
View File
Binary file not shown.
compiler/htcobgen.o
BIN
View File
Binary file not shown.
compiler/htcobol
Regular → Executable
BIN
View File
Binary file not shown.
compiler/htcobol.o
BIN
View File
Binary file not shown.
compiler/htcobol.output
+7232 -6655
View File
File diff suppressed because it is too large Load Diff
compiler/htcobol.tab.c
+6613 -7753
View File
File diff suppressed because it is too large Load Diff
compiler/htcobol.tab.h
+399 -382
View File
@@ -1,22 +1,22 @@
/* A Bison parser, made by GNU Bison 2.4.2. */
/* A Bison parser, made by GNU Bison 3.8.2. */
/* Bison interface for Yacc-like parsers in C
Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2021 Free Software Foundation,
Inc.
/* 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/>. */
along with this program. If not, see <https://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
@@ -27,383 +27,397 @@
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. */
/* 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. */
/* 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
};
#ifndef YY_YY_HTCOBOL_TAB_H_INCLUDED
# define YY_YY_HTCOBOL_TAB_H_INCLUDED
/* Debug traces. */
#ifndef YYDEBUG
# define YYDEBUG 0
#endif
#if YYDEBUG
extern int yydebug;
#endif
/* Token kinds. */
#ifndef YYTOKENTYPE
# define YYTOKENTYPE
enum yytokentype
{
YYEMPTY = -2,
YYEOF = 0, /* "end of file" */
YYerror = 256, /* error */
YYUNDEF = 257, /* "invalid token" */
LOW_PREC = 258, /* LOW_PREC */
IDSTRING = 259, /* IDSTRING */
STRING = 260, /* STRING */
VARIABLE = 261, /* VARIABLE */
VARCOND = 262, /* VARCOND */
SUBSCVAR = 263, /* SUBSCVAR */
LABELSTR = 264, /* LABELSTR */
CMD_LINE = 265, /* CMD_LINE */
ENVIRONMENT_VARIABLE = 266, /* ENVIRONMENT_VARIABLE */
INKEY = 267, /* INKEY */
ESCKEY = 268, /* ESCKEY */
CHAR = 269, /* CHAR */
MULTIPLIER = 270, /* MULTIPLIER */
USAGENUM = 271, /* USAGENUM */
ZERONUM = 272, /* ZERONUM */
CONDITIONAL = 273, /* CONDITIONAL */
TO = 274, /* TO */
IS = 275, /* IS */
ARE = 276, /* ARE */
THRU = 277, /* THRU */
THAN = 278, /* THAN */
NO = 279, /* NO */
COMMENTING = 280, /* COMMENTING */
DIRECTION = 281, /* DIRECTION */
READ = 282, /* READ */
WRITE = 283, /* WRITE */
INPUT_OUTPUT = 284, /* INPUT_OUTPUT */
RELEASE = 285, /* RELEASE */
NLITERAL = 286, /* NLITERAL */
CLITERAL = 287, /* CLITERAL */
PORTNUM = 288, /* PORTNUM */
DATE_TIME = 289, /* DATE_TIME */
POW_OP = 290, /* POW_OP */
OR = 291, /* OR */
AND = 292, /* AND */
ACCEPT = 293, /* ACCEPT */
ACCESS = 294, /* ACCESS */
ADD = 295, /* ADD */
ADDRESS = 296, /* ADDRESS */
ADVANCING = 297, /* ADVANCING */
AFTER = 298, /* AFTER */
ALL = 299, /* ALL */
ALPHABET = 300, /* ALPHABET */
ALPHABETIC = 301, /* ALPHABETIC */
ALPHABETIC_LOWER = 302, /* ALPHABETIC_LOWER */
ALPHABETIC_UPPER = 303, /* ALPHABETIC_UPPER */
ALPHANUMERIC = 304, /* ALPHANUMERIC */
ALPHANUMERIC_EDITED = 305, /* ALPHANUMERIC_EDITED */
ALSO = 306, /* ALSO */
ALTERNATE = 307, /* ALTERNATE */
ANY = 308, /* ANY */
AREA = 309, /* AREA */
AREAS = 310, /* AREAS */
ASSIGN = 311, /* ASSIGN */
AT = 312, /* AT */
AUTHOR = 313, /* AUTHOR */
AUTO = 314, /* AUTO */
BACKGROUNDCOLOR = 315, /* BACKGROUNDCOLOR */
BEFORE = 316, /* BEFORE */
BELL = 317, /* BELL */
BLANK = 318, /* BLANK */
BLINK = 319, /* BLINK */
BLOCK = 320, /* BLOCK */
BOTTOM = 321, /* BOTTOM */
BY = 322, /* BY */
CALL = 323, /* CALL */
CALL_CONV_C = 324, /* CALL_CONV_C */
CALL_CONV_STDCALL = 325, /* CALL_CONV_STDCALL */
CALL_LOADLIB = 326, /* CALL_LOADLIB */
CANCEL = 327, /* CANCEL */
CENTER = 328, /* CENTER */
CF = 329, /* CF */
CH = 330, /* CH */
CHAIN = 331, /* CHAIN */
CHAINING = 332, /* CHAINING */
CHARACTER = 333, /* CHARACTER */
CHARACTERS = 334, /* CHARACTERS */
CLASS = 335, /* CLASS */
CLOSE = 336, /* CLOSE */
CODE = 337, /* CODE */
CODE_SET = 338, /* CODE_SET */
COLLATING = 339, /* COLLATING */
COLOR = 340, /* COLOR */
COLUMN = 341, /* COLUMN */
COLUMNS = 342, /* COLUMNS */
COMMA = 343, /* COMMA */
COMMON = 344, /* COMMON */
COMPUTE = 345, /* COMPUTE */
CONFIGURATION = 346, /* CONFIGURATION */
CONSOLE = 347, /* CONSOLE */
CONTAINS = 348, /* CONTAINS */
CONTENT = 349, /* CONTENT */
CONTINUE = 350, /* CONTINUE */
CONTROL = 351, /* CONTROL */
CONTROLS = 352, /* CONTROLS */
CONVERTING = 353, /* CONVERTING */
CORRESPONDING = 354, /* CORRESPONDING */
COUNT = 355, /* COUNT */
CURRENCY = 356, /* CURRENCY */
CURSOR = 357, /* CURSOR */
DATA = 358, /* DATA */
DATE_COMPILED = 359, /* DATE_COMPILED */
DATE_WRITTEN = 360, /* DATE_WRITTEN */
DE = 361, /* DE */
DEBUGGING = 362, /* DEBUGGING */
DECIMAL_POINT = 363, /* DECIMAL_POINT */
DECLARATIVES = 364, /* DECLARATIVES */
DELETE = 365, /* DELETE */
DELIMITED = 366, /* DELIMITED */
DELIMITER = 367, /* DELIMITER */
DEPENDING = 368, /* DEPENDING */
DETAIL = 369, /* DETAIL */
DISPLAY = 370, /* DISPLAY */
DISPLAY_SCREEN = 371, /* DISPLAY_SCREEN */
DIVIDE = 372, /* DIVIDE */
DIVISION = 373, /* DIVISION */
DOWN = 374, /* DOWN */
DUPLICATES = 375, /* DUPLICATES */
DYNAMIC = 376, /* DYNAMIC */
ELSE = 377, /* ELSE */
END = 378, /* END */
END_ACCEPT = 379, /* END_ACCEPT */
END_ADD = 380, /* END_ADD */
END_CALL = 381, /* END_CALL */
END_CALL_LOADLIB = 382, /* END_CALL_LOADLIB */
END_CHAIN = 383, /* END_CHAIN */
END_COMPUTE = 384, /* END_COMPUTE */
END_DELETE = 385, /* END_DELETE */
END_DISPLAY = 386, /* END_DISPLAY */
END_DIVIDE = 387, /* END_DIVIDE */
END_EVALUATE = 388, /* END_EVALUATE */
END_IF = 389, /* END_IF */
END_MULTIPLY = 390, /* END_MULTIPLY */
END_OF_PAGE = 391, /* END_OF_PAGE */
END_PERFORM = 392, /* END_PERFORM */
END_READ = 393, /* END_READ */
END_RETURN = 394, /* END_RETURN */
END_REWRITE = 395, /* END_REWRITE */
END_SEARCH = 396, /* END_SEARCH */
END_START = 397, /* END_START */
END_STRINGCMD = 398, /* END_STRINGCMD */
END_SUBTRACT = 399, /* END_SUBTRACT */
END_UNSTRING = 400, /* END_UNSTRING */
END_WRITE = 401, /* END_WRITE */
ENVIRONMENT = 402, /* ENVIRONMENT */
EOL = 403, /* EOL */
EOS = 404, /* EOS */
ERASE = 405, /* ERASE */
ERROR_TOK = 406, /* ERROR_TOK */
EVALUATE = 407, /* EVALUATE */
EXCEPTION = 408, /* EXCEPTION */
EXIT = 409, /* EXIT */
EXTEND = 410, /* EXTEND */
EXTERNAL = 411, /* EXTERNAL */
FALSE_TOK = 412, /* FALSE_TOK */
FD = 413, /* FD */
FILE_CONTROL = 414, /* FILE_CONTROL */
FILE_ID = 415, /* FILE_ID */
FILE_TOK = 416, /* FILE_TOK */
FILLER = 417, /* FILLER */
FINAL = 418, /* FINAL */
FIRST = 419, /* FIRST */
FOOTING = 420, /* FOOTING */
FOR = 421, /* FOR */
FOREGROUNDCOLOR = 422, /* FOREGROUNDCOLOR */
FROM = 423, /* FROM */
FULL = 424, /* FULL */
FUNCTION = 425, /* FUNCTION */
GENERATE = 426, /* GENERATE */
GIVING = 427, /* GIVING */
GLOBAL = 428, /* GLOBAL */
GO = 429, /* GO */
GOBACK = 430, /* GOBACK */
GROUP = 431, /* GROUP */
HEADING = 432, /* HEADING */
HIGHLIGHT = 433, /* HIGHLIGHT */
HIGHVALUES = 434, /* HIGHVALUES */
IDENTIFICATION = 435, /* IDENTIFICATION */
IF = 436, /* IF */
IGNORE = 437, /* IGNORE */
IN = 438, /* IN */
INDEXED = 439, /* INDEXED */
INDICATE = 440, /* INDICATE */
INITIALIZE = 441, /* INITIALIZE */
INITIAL_TOK = 442, /* INITIAL_TOK */
INITIATE = 443, /* INITIATE */
INPUT = 444, /* INPUT */
INSPECT = 445, /* INSPECT */
INSTALLATION = 446, /* INSTALLATION */
INTO = 447, /* INTO */
INVALID = 448, /* INVALID */
I_O = 449, /* I_O */
I_O_CONTROL = 450, /* I_O_CONTROL */
JUSTIFIED = 451, /* JUSTIFIED */
KEY = 452, /* KEY */
LABEL = 453, /* LABEL */
LAST = 454, /* LAST */
LEADING = 455, /* LEADING */
LEFT = 456, /* LEFT */
LENGTH = 457, /* LENGTH */
LIMIT = 458, /* LIMIT */
LIMITS = 459, /* LIMITS */
LINAGE = 460, /* LINAGE */
LINE = 461, /* LINE */
LINES = 462, /* LINES */
LINKAGE = 463, /* LINKAGE */
LISTSEP = 464, /* LISTSEP */
LOCK = 465, /* LOCK */
LOWER = 466, /* LOWER */
LOWLIGHT = 467, /* LOWLIGHT */
LOWVALUES = 468, /* LOWVALUES */
LPAR = 469, /* LPAR */
MERGE = 470, /* MERGE */
MINUS = 471, /* MINUS */
MODE = 472, /* MODE */
MOVE = 473, /* MOVE */
MULTIPLE = 474, /* MULTIPLE */
MULTIPLY = 475, /* MULTIPLY */
NATIVE = 476, /* NATIVE */
NEGATIVE = 477, /* NEGATIVE */
NEXT = 478, /* NEXT */
NOECHO = 479, /* NOECHO */
NOT = 480, /* NOT */
NOTEXCEP = 481, /* NOTEXCEP */
NULL_TOK = 482, /* NULL_TOK */
NUMBER = 483, /* NUMBER */
NUMBERS = 484, /* NUMBERS */
NUMERIC = 485, /* NUMERIC */
NUMERIC_EDITED = 486, /* NUMERIC_EDITED */
OBJECT_COMPUTER = 487, /* OBJECT_COMPUTER */
OCCURS = 488, /* OCCURS */
OF = 489, /* OF */
OFF = 490, /* OFF */
OMITTED = 491, /* OMITTED */
ON = 492, /* ON */
ONLY = 493, /* ONLY */
OPEN = 494, /* OPEN */
OPTIONAL = 495, /* OPTIONAL */
ORDER = 496, /* ORDER */
ORGANIZATION = 497, /* ORGANIZATION */
OTHER = 498, /* OTHER */
OUTPUT = 499, /* OUTPUT */
OVERFLOW_TOK = 500, /* OVERFLOW_TOK */
PADDING = 501, /* PADDING */
PAGE = 502, /* PAGE */
PAGE_COUNTER = 503, /* PAGE_COUNTER */
PARAGRAPH = 504, /* PARAGRAPH */
PERFORM = 505, /* PERFORM */
PF = 506, /* PF */
PH = 507, /* PH */
PICTURE = 508, /* PICTURE */
PLUS = 509, /* PLUS */
POINTER = 510, /* POINTER */
POSITION = 511, /* POSITION */
POSITIVE = 512, /* POSITIVE */
PREVIOUS = 513, /* PREVIOUS */
PROCEDURE = 514, /* PROCEDURE */
PROCEED = 515, /* PROCEED */
PROGRAM = 516, /* PROGRAM */
PROGRAM_ID = 517, /* PROGRAM_ID */
QUOTES = 518, /* QUOTES */
RANDOM = 519, /* RANDOM */
RD = 520, /* RD */
READY = 521, /* READY */
RECORD = 522, /* RECORD */
RECORDS = 523, /* RECORDS */
REDEFINES = 524, /* REDEFINES */
REEL = 525, /* REEL */
REFERENCE = 526, /* REFERENCE */
RELATIVE = 527, /* RELATIVE */
REMAINDER = 528, /* REMAINDER */
REMOVAL = 529, /* REMOVAL */
RENAMES = 530, /* RENAMES */
REPLACING = 531, /* REPLACING */
REPORT = 532, /* REPORT */
REPORTS = 533, /* REPORTS */
REQUIRED = 534, /* REQUIRED */
RESERVE = 535, /* RESERVE */
RESET = 536, /* RESET */
RETURN = 537, /* RETURN */
RETURNING = 538, /* RETURNING */
REVERSEVIDEO = 539, /* REVERSEVIDEO */
REWIND = 540, /* REWIND */
REWRITE = 541, /* REWRITE */
RF = 542, /* RF */
RH = 543, /* RH */
RIGHT = 544, /* RIGHT */
ROUNDED = 545, /* ROUNDED */
RUN = 546, /* RUN */
SAME = 547, /* SAME */
SCREEN = 548, /* SCREEN */
SD = 549, /* SD */
SEARCH = 550, /* SEARCH */
SECTION = 551, /* SECTION */
SECURE = 552, /* SECURE */
SECURITY = 553, /* SECURITY */
SELECT = 554, /* SELECT */
SENTENCE = 555, /* SENTENCE */
SEPARATE = 556, /* SEPARATE */
SEQUENCE = 557, /* SEQUENCE */
SEQUENTIAL = 558, /* SEQUENTIAL */
SET = 559, /* SET */
SIGN = 560, /* SIGN */
SIZE = 561, /* SIZE */
SORT = 562, /* SORT */
SORT_MERGE = 563, /* SORT_MERGE */
SOURCE = 564, /* SOURCE */
SOURCE_COMPUTER = 565, /* SOURCE_COMPUTER */
SPACES = 566, /* SPACES */
SPECIAL_NAMES = 567, /* SPECIAL_NAMES */
STANDARD = 568, /* STANDARD */
STANDARD_1 = 569, /* STANDARD_1 */
STANDARD_2 = 570, /* STANDARD_2 */
START = 571, /* START */
STATUS = 572, /* STATUS */
STD_ERROR = 573, /* STD_ERROR */
STD_OUTPUT = 574, /* STD_OUTPUT */
STOP = 575, /* STOP */
STRINGCMD = 576, /* STRINGCMD */
SUBTRACT = 577, /* SUBTRACT */
SUM = 578, /* SUM */
SYNCHRONIZED = 579, /* SYNCHRONIZED */
TALLYING = 580, /* TALLYING */
TAPE = 581, /* TAPE */
TCOBPROTO1 = 582, /* TCOBPROTO1 */
TCOBPROTO2 = 583, /* TCOBPROTO2 */
TERMINATE = 584, /* TERMINATE */
TEST = 585, /* TEST */
THEN = 586, /* THEN */
TIMES = 587, /* TIMES */
TOKDUMMY = 588, /* TOKDUMMY */
TOP = 589, /* TOP */
TRACE = 590, /* TRACE */
TRAILING = 591, /* TRAILING */
TRUE_TOK = 592, /* TRUE_TOK */
TYPE = 593, /* TYPE */
UNDERLINE = 594, /* UNDERLINE */
UNIT = 595, /* UNIT */
UNLOCK = 596, /* UNLOCK */
UNSTRING = 597, /* UNSTRING */
UNTIL = 598, /* UNTIL */
UP = 599, /* UP */
UPDATE = 600, /* UPDATE */
UPON = 601, /* UPON */
UPPER = 602, /* UPPER */
USAGE = 603, /* USAGE */
USE = 604, /* USE */
USING = 605, /* USING */
VALUE = 606, /* VALUE */
VALUES = 607, /* VALUES */
VARYING = 608, /* VARYING */
WHEN = 609, /* WHEN */
WITH = 610, /* WITH */
WORKING_STORAGE = 611, /* WORKING_STORAGE */
ZERO = 612, /* ZERO */
PERIOD_TOK = 613 /* PERIOD_TOK */
};
typedef enum yytokentype yytoken_kind_t;
#endif
/* Value type. */
#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
typedef union YYSTYPE
union YYSTYPE
{
/* Line 1685 of yacc.c */
#line 119 "htcobol.y"
struct sym *sval; /* symbol */
@@ -440,16 +454,19 @@ typedef union YYSTYPE
struct list *lstval; /* generic container list */
struct gvar_list *glistval; /* generic variable list */
#line 458 "htcobol.tab.h"
/* Line 1685 of yacc.c */
#line 447 "htcobol.tab.h"
} YYSTYPE;
};
typedef union YYSTYPE YYSTYPE;
# define YYSTYPE_IS_TRIVIAL 1
# define yystype YYSTYPE /* obsolescent; will be withdrawn */
# define YYSTYPE_IS_DECLARED 1
#endif
extern YYSTYPE yylval;
int yyparse (void);
#endif /* !YY_YY_HTCOBOL_TAB_H_INCLUDED */
compiler/htcobol.tab.o
BIN
View File
Binary file not shown.
compiler/htcobolrc
+31 -29
View File
@@ -17,19 +17,19 @@
# (compiler default=NULL)
#COPYBOOK_PATH: /usr/local/share/htcobol/copybooks::
#COPYBOOK_PATH: /usr/local/share/htcobol/copybooks;;
COPYBOOK_PATH: C:/TinyCOBOL/copys
#COPYBOOK_PATH: $GPFONTES
# Specify COBOL program file suffixes (extensions) used in search sequence
# (compiler default=.cob:.COB:.cbl:.CBL:)
#PGM_SUFFIXES: .cob:.COB:.cbl:.CBL:
PGM_SUFFIXES: .cob;.COB;.cbl;.CBL;
PGM_SUFFIXES: .cob:.COB:.cbl:.CBL:
#PGM_SUFFIXES: .cob;.COB;.cbl;.CBL;
# Specify COBOL program default input format
# free format -> PGM_FORMAT_FREE
# fixed format -> PGM_FORMAT_FIXED
# (compiler default=free format)
PGM_FORMAT_FREE
#PGM_FORMAT_FIXED
#PGM_FORMAT_FREE
PGM_FORMAT_FIXED
# Specify the default main program (entry point) action
#
@@ -46,19 +46,20 @@ PGM_ENTRY_POINT_AUTO
#PGM_ENTRY_POINT_FIRST
# Specify the compiler default action
# P - preprocess
# PC - preprocess,compile
# PCA - preprocess,compile,assemble
# PCAL - preprocess,compile,assemble,link to executable
# PCALX - preprocess,compile,assemble,link to executable
# PCALS - Preprocess, compile, assemble, link to static library
# PCALM - Preprocess, compile, assemble, link to shared library
# P - preprocess
# PC - preprocess,compile
# PCA - preprocess,compile,assemble
# PCAL - preprocess,compile,assemble,link to executable
# PCAX - preprocess,compile,assemble,link to executable
# PCAS - Preprocess, compile, assemble, link to static library
# PCAM - Preprocess, compile, assemble, link to shared library
# (compiler default=PCAL)
COMPILE_DEFAULT: PCAL
#COMPILE_DEFAULT: PCAS
#COMPILE_DEFAULT: PCAM
#
# List contents of copybook files - not implemented
# COPYLIST=yes NOCOPYLIST=no
#COPYLIST
@@ -89,14 +90,14 @@ XREF
# Set Assembler command name
#
ASX_CMD: as.exe
#ASX_CMD: as
#ASX_CMD: as.exe
ASX_CMD: as
#ASX_CMD: as
# Set C compiler command name
#
CCX_CMD: gcc.exe
#CCX_CMD: gcc
#CCX_CMD: gcc.exe
CCX_CMD: gcc
#CCX_CMD: gcc
#
@@ -105,40 +106,41 @@ CCX_CMD: gcc.exe
#ARX_CMD: ar.exe
ARX_CMD: ar
#ARX_CMD: ar
RANLIBX_CMD: ranlib.exe
#RANLIBX_CMD: ranlib
#RANLIBX_CMD: ranlib.exe
RANLIBX_CMD: ranlib
#RANLIBX_CMD: ranlib
#
# Set shared library name default (prefix$suffix)
#
#SHLIB_NAME_DEFAULT: lib$.so
SHLIB_NAME_DEFAULT: $.dll
#SHLIB_NAME_DEFAULT: $.dll
SHLIB_NAME_DEFAULT: lib$.so
# Library paths to pass to link step
# LD_PATH:
#
#LD_PATH: -L/usr/lib -L/opt/cobol/lib
#LD_PATH: -L/usr/lib
#LD_PATH: -L../../../lib -L../../lib
LD_PATH: -L../../../lib -L../../lib
#LD_PATH:
LD_PATH: -LC:/TinyCOBOL
# Libraries to pass to the link step
# LD_LIBS: Obsolete - Use variables below
#
LD_HT1_LIBS: -lhtcobol
#LD_HT2_LIBS: -lhtcobol2
#LD_MATH_LIBS: -lm
LD_MATH_LIBS: -lm
LD_READLINE_LIBS: -lreadline
LD_EXTRA_LIBS:
#LD_DCALL_LIBS: -ldl
LD_DCALL_LIBS:
LD_EXTRA_LIBS: -ldl
LD_DCALL_LIBS: -ldl
#LD_DLOAD_LIBS: -lltdl
#LD_TERM_LIBS: -lncurses
LD_TERM_LIBS: -lcurses
#LD_DLOAD_LIBS: @htg_ld_args_ltdl@
LD_TERM_LIBS: -lncurses
#LD_TERM_LIBS: -lpdcurses
#LD_IO_LIBS: -ldb
LD_IO_LIBS: -ldb
#
#LD_FLAGS:
LD_FLAGS: -Wl,--enable-auto-import
LD_FLAGS:
#LD_FLAGS: -Wl,--enable-auto-import
#
compiler/htglobals.h
+1 -1
View File
@@ -264,7 +264,7 @@
#define HTG_CMDOPT_LIBCOB 'k'
#define HTG_PGM_NAME "TinyCOBOL"
#define HTG_COPYWR "(C) 2009,2010 TinyCOBOL Development Team\n"
#define HTG_COPYWR "(C) 2009,2026 TinyCOBOL Development Team\n"
struct opt_sel {
char *opt;
compiler/htglobals.o
BIN
View File
Binary file not shown.
compiler/htversion.h
+4 -4
View File
@@ -2,12 +2,12 @@
#define _TCOB_VERSION_H
#define TCOB_MAJOR_VERSION "0"
#define TCOB_MINOR_VERSION "73"
#define TCOB_MINOR_VERSION "74"
#define TCOB_PATCH_LEVEL "0"
#define TCOB_VERSION "0.73.0"
#define TCOB_RELEASE_DATE "2012/02/08"
#define TCOB_VERSION "0.74.0"
#define TCOB_RELEASE_DATE "2026/07/17"
#define TCOB_PGM_VERSION "Alpha 0.73.0 (MinGW 2012/02/08)"
#define TCOB_PGM_VERSION "Alpha 0.74.0 (linux-gnu 2026/07/17)"
#endif
compiler/pp_parser.output
+229 -206
View File
@@ -1,6 +1,6 @@
Terminals unused in grammar
TOK_MISC
TOK_MISC
Grammar
@@ -8,16 +8,16 @@ Grammar
0 $accept: root $end
1 root: statements
2 | /* empty */
2 | ε
3 statements: statement
4 | statements statement
5 $@1: /* empty */
5 $@1: ε
6 statement: TOK_SOURCE_COMPUTER TOK_PERIOD $@1 identifier_debug_mode_opt
7 $@2: /* empty */
7 $@2: ε
8 statement: TOK_COPY $@2 copy_statement TOK_PERIOD
9 | TOK_REPLACE replace_statement TOK_PERIOD
@@ -26,7 +26,7 @@ Grammar
12 | TOK_WITH
13 | error
14 $@3: /* empty */
14 $@3: ε
15 copy_statement: name library_name_opt $@3 TOK_REPLACING replacing_statement
16 | name library_name_opt
@@ -42,7 +42,7 @@ Grammar
23 | word
24 library_name_opt: of_in name
25 | /* empty */
25 | ε
26 replace_statement: replace_statements
27 | replace_statements replace_statement
@@ -64,97 +64,120 @@ Grammar
36 | TOK_IN
37 comma_delimiter_opt: TOK_COMMA
38 | /* empty */
38 | ε
39 identifier_debug_mode_opt: identifier debugging_mode_opt TOK_PERIOD
40 | /* empty */
40 | ε
41 debugging_mode_opt: with_opt TOK_DEBUGGING TOK_MODE
42 | /* empty */
42 | ε
43 with_opt: TOK_WITH
44 | /* empty */
44 | ε
Terminals, with rules where they appear
$end (0) 0
error (256) 13
TOK_PSEUDO_TEXT (258) 31
TOK_IDENTIFIER (259) 32
TOK_LITERAL (260) 33
TOK_WORD (261) 34
TOK_COPY (262) 8
TOK_PERIOD (263) 6 8 9 10 39
TOK_OFF (264) 10
TOK_BY (265) 19 28
TOK_OF (266) 35
TOK_IN (267) 36
TOK_REPLACING (268) 15
TOK_REPLACE (269) 9 10
TOK_MISC (270)
TOK_COMMA (271) 37
TOK_SOURCE_COMPUTER (272) 6
TOK_WITH (273) 12 43
TOK_DEBUGGING (274) 41
TOK_MODE (275) 11 41
$end (0) 0
error (256) 13
TOK_PSEUDO_TEXT <str> (258) 31
TOK_IDENTIFIER <str> (259) 32
TOK_LITERAL <str> (260) 33
TOK_WORD <str> (261) 34
TOK_COPY (262) 8
TOK_PERIOD (263) 6 8 9 10 39
TOK_OFF (264) 10
TOK_BY (265) 19 28
TOK_OF (266) 35
TOK_IN (267) 36
TOK_REPLACING (268) 15
TOK_REPLACE (269) 9 10
TOK_MISC (270)
TOK_COMMA (271) 37
TOK_SOURCE_COMPUTER (272) 6
TOK_WITH (273) 12 43
TOK_DEBUGGING (274) 41
TOK_MODE (275) 11 41
Nonterminals, with rules where they appear
$accept (21)
on left: 0
root (22)
on left: 1 2, on right: 0
statements (23)
on left: 3 4, on right: 1 4
statement (24)
on left: 6 8 9 10 11 12 13, on right: 3 4
$@1 (25)
on left: 5, on right: 6
$@2 (26)
on left: 7, on right: 8
copy_statement (27)
on left: 15 16, on right: 8
$@3 (28)
on left: 14, on right: 15
replacing_statement (29)
on left: 17 18, on right: 15 18
replacing_statements (30)
on left: 19, on right: 17 18
replacing_text (31)
on left: 20 21 22 23, on right: 19
library_name_opt (32)
on left: 24 25, on right: 15 16
replace_statement (33)
on left: 26 27, on right: 9 27
replace_statements (34)
on left: 28, on right: 26 27
name (35)
on left: 29 30, on right: 15 16 24
pseudo_text (36)
on left: 31, on right: 20 28
identifier (37)
on left: 32, on right: 21 30 39
literal (38)
on left: 33, on right: 22 29
word (39)
on left: 34, on right: 23
of_in (40)
on left: 35 36, on right: 24
comma_delimiter_opt (41)
on left: 37 38, on right: 19 28
identifier_debug_mode_opt (42)
on left: 39 40, on right: 6
debugging_mode_opt (43)
on left: 41 42, on right: 39
with_opt (44)
on left: 43 44, on right: 41
$accept (21)
on left: 0
root (22)
on left: 1 2
on right: 0
statements (23)
on left: 3 4
on right: 1 4
statement (24)
on left: 6 8 9 10 11 12 13
on right: 3 4
$@1 (25)
on left: 5
on right: 6
$@2 (26)
on left: 7
on right: 8
copy_statement (27)
on left: 15 16
on right: 8
$@3 (28)
on left: 14
on right: 15
replacing_statement (29)
on left: 17 18
on right: 15 18
replacing_statements (30)
on left: 19
on right: 17 18
replacing_text <str> (31)
on left: 20 21 22 23
on right: 19
library_name_opt <str> (32)
on left: 24 25
on right: 15 16
replace_statement (33)
on left: 26 27
on right: 9 27
replace_statements (34)
on left: 28
on right: 26 27
name <str> (35)
on left: 29 30
on right: 15 16 24
pseudo_text <str> (36)
on left: 31
on right: 20 28
identifier <str> (37)
on left: 32
on right: 21 30 39
literal <str> (38)
on left: 33
on right: 22 29
word <str> (39)
on left: 34
on right: 23
of_in (40)
on left: 35 36
on right: 24
comma_delimiter_opt (41)
on left: 37 38
on right: 19 28
identifier_debug_mode_opt (42)
on left: 39 40
on right: 6
debugging_mode_opt (43)
on left: 41 42
on right: 39
with_opt (44)
on left: 43 44
on right: 41
state 0
State 0
0 $accept: . root $end
0 $accept: • root $end
error shift, and go to state 1
TOK_COPY shift, and go to state 2
@@ -170,26 +193,26 @@ state 0
statement go to state 9
state 1
State 1
13 statement: error .
13 statement: error •
$default reduce using rule 13 (statement)
state 2
State 2
8 statement: TOK_COPY . $@2 copy_statement TOK_PERIOD
8 statement: TOK_COPY • $@2 copy_statement TOK_PERIOD
$default reduce using rule 7 ($@2)
$@2 go to state 10
state 3
State 3
9 statement: TOK_REPLACE . replace_statement TOK_PERIOD
10 | TOK_REPLACE . TOK_OFF TOK_PERIOD
9 statement: TOK_REPLACE • replace_statement TOK_PERIOD
10 | TOK_REPLACE • TOK_OFF TOK_PERIOD
TOK_PSEUDO_TEXT shift, and go to state 11
TOK_OFF shift, and go to state 12
@@ -199,38 +222,38 @@ state 3
pseudo_text go to state 15
state 4
State 4
6 statement: TOK_SOURCE_COMPUTER . TOK_PERIOD $@1 identifier_debug_mode_opt
6 statement: TOK_SOURCE_COMPUTER • TOK_PERIOD $@1 identifier_debug_mode_opt
TOK_PERIOD shift, and go to state 16
state 5
State 5
12 statement: TOK_WITH .
12 statement: TOK_WITH •
$default reduce using rule 12 (statement)
state 6
State 6
11 statement: TOK_MODE .
11 statement: TOK_MODE •
$default reduce using rule 11 (statement)
state 7
State 7
0 $accept: root . $end
0 $accept: root • $end
$end shift, and go to state 17
state 8
State 8
1 root: statements .
4 statements: statements . statement
1 root: statements •
4 statements: statements • statement
error shift, and go to state 1
TOK_COPY shift, and go to state 2
@@ -244,16 +267,16 @@ state 8
statement go to state 18
state 9
State 9
3 statements: statement .
3 statements: statement •
$default reduce using rule 3 (statements)
state 10
State 10
8 statement: TOK_COPY $@2 . copy_statement TOK_PERIOD
8 statement: TOK_COPY $@2 • copy_statement TOK_PERIOD
TOK_IDENTIFIER shift, and go to state 19
TOK_LITERAL shift, and go to state 20
@@ -264,31 +287,31 @@ state 10
literal go to state 24
state 11
State 11
31 pseudo_text: TOK_PSEUDO_TEXT .
31 pseudo_text: TOK_PSEUDO_TEXT •
$default reduce using rule 31 (pseudo_text)
state 12
State 12
10 statement: TOK_REPLACE TOK_OFF . TOK_PERIOD
10 statement: TOK_REPLACE TOK_OFF • TOK_PERIOD
TOK_PERIOD shift, and go to state 25
state 13
State 13
9 statement: TOK_REPLACE replace_statement . TOK_PERIOD
9 statement: TOK_REPLACE replace_statement • TOK_PERIOD
TOK_PERIOD shift, and go to state 26
state 14
State 14
26 replace_statement: replace_statements .
27 | replace_statements . replace_statement
26 replace_statement: replace_statements •
27 | replace_statements • replace_statement
TOK_PSEUDO_TEXT shift, and go to state 11
@@ -299,61 +322,61 @@ state 14
pseudo_text go to state 15
state 15
State 15
28 replace_statements: pseudo_text . TOK_BY pseudo_text comma_delimiter_opt
28 replace_statements: pseudo_text • TOK_BY pseudo_text comma_delimiter_opt
TOK_BY shift, and go to state 28
state 16
State 16
6 statement: TOK_SOURCE_COMPUTER TOK_PERIOD . $@1 identifier_debug_mode_opt
6 statement: TOK_SOURCE_COMPUTER TOK_PERIOD • $@1 identifier_debug_mode_opt
$default reduce using rule 5 ($@1)
$@1 go to state 29
state 17
State 17
0 $accept: root $end .
0 $accept: root $end •
$default accept
state 18
State 18
4 statements: statements statement .
4 statements: statements statement •
$default reduce using rule 4 (statements)
state 19
State 19
32 identifier: TOK_IDENTIFIER .
32 identifier: TOK_IDENTIFIER •
$default reduce using rule 32 (identifier)
state 20
State 20
33 literal: TOK_LITERAL .
33 literal: TOK_LITERAL •
$default reduce using rule 33 (literal)
state 21
State 21
8 statement: TOK_COPY $@2 copy_statement . TOK_PERIOD
8 statement: TOK_COPY $@2 copy_statement • TOK_PERIOD
TOK_PERIOD shift, and go to state 30
state 22
State 22
15 copy_statement: name . library_name_opt $@3 TOK_REPLACING replacing_statement
16 | name . library_name_opt
15 copy_statement: name • library_name_opt $@3 TOK_REPLACING replacing_statement
16 | name • library_name_opt
TOK_OF shift, and go to state 31
TOK_IN shift, and go to state 32
@@ -364,53 +387,53 @@ state 22
of_in go to state 34
state 23
State 23
30 name: identifier .
30 name: identifier •
$default reduce using rule 30 (name)
state 24
State 24
29 name: literal .
29 name: literal •
$default reduce using rule 29 (name)
state 25
State 25
10 statement: TOK_REPLACE TOK_OFF TOK_PERIOD .
10 statement: TOK_REPLACE TOK_OFF TOK_PERIOD •
$default reduce using rule 10 (statement)
state 26
State 26
9 statement: TOK_REPLACE replace_statement TOK_PERIOD .
9 statement: TOK_REPLACE replace_statement TOK_PERIOD •
$default reduce using rule 9 (statement)
state 27
State 27
27 replace_statement: replace_statements replace_statement .
27 replace_statement: replace_statements replace_statement •
$default reduce using rule 27 (replace_statement)
state 28
State 28
28 replace_statements: pseudo_text TOK_BY . pseudo_text comma_delimiter_opt
28 replace_statements: pseudo_text TOK_BY • pseudo_text comma_delimiter_opt
TOK_PSEUDO_TEXT shift, and go to state 11
pseudo_text go to state 35
state 29
State 29
6 statement: TOK_SOURCE_COMPUTER TOK_PERIOD $@1 . identifier_debug_mode_opt
6 statement: TOK_SOURCE_COMPUTER TOK_PERIOD $@1 • identifier_debug_mode_opt
TOK_IDENTIFIER shift, and go to state 19
@@ -420,31 +443,31 @@ state 29
identifier_debug_mode_opt go to state 37
state 30
State 30
8 statement: TOK_COPY $@2 copy_statement TOK_PERIOD .
8 statement: TOK_COPY $@2 copy_statement TOK_PERIOD •
$default reduce using rule 8 (statement)
state 31
State 31
35 of_in: TOK_OF .
35 of_in: TOK_OF •
$default reduce using rule 35 (of_in)
state 32
State 32
36 of_in: TOK_IN .
36 of_in: TOK_IN •
$default reduce using rule 36 (of_in)
state 33
State 33
15 copy_statement: name library_name_opt . $@3 TOK_REPLACING replacing_statement
16 | name library_name_opt .
15 copy_statement: name library_name_opt • $@3 TOK_REPLACING replacing_statement
16 | name library_name_opt •
TOK_PERIOD reduce using rule 16 (copy_statement)
$default reduce using rule 14 ($@3)
@@ -452,9 +475,9 @@ state 33
$@3 go to state 38
state 34
State 34
24 library_name_opt: of_in . name
24 library_name_opt: of_in • name
TOK_IDENTIFIER shift, and go to state 19
TOK_LITERAL shift, and go to state 20
@@ -464,9 +487,9 @@ state 34
literal go to state 24
state 35
State 35
28 replace_statements: pseudo_text TOK_BY pseudo_text . comma_delimiter_opt
28 replace_statements: pseudo_text TOK_BY pseudo_text • comma_delimiter_opt
TOK_COMMA shift, and go to state 40
@@ -475,9 +498,9 @@ state 35
comma_delimiter_opt go to state 41
state 36
State 36
39 identifier_debug_mode_opt: identifier . debugging_mode_opt TOK_PERIOD
39 identifier_debug_mode_opt: identifier • debugging_mode_opt TOK_PERIOD
TOK_WITH shift, and go to state 42
@@ -488,65 +511,65 @@ state 36
with_opt go to state 44
state 37
State 37
6 statement: TOK_SOURCE_COMPUTER TOK_PERIOD $@1 identifier_debug_mode_opt .
6 statement: TOK_SOURCE_COMPUTER TOK_PERIOD $@1 identifier_debug_mode_opt •
$default reduce using rule 6 (statement)
state 38
State 38
15 copy_statement: name library_name_opt $@3 . TOK_REPLACING replacing_statement
15 copy_statement: name library_name_opt $@3 • TOK_REPLACING replacing_statement
TOK_REPLACING shift, and go to state 45
state 39
State 39
24 library_name_opt: of_in name .
24 library_name_opt: of_in name •
$default reduce using rule 24 (library_name_opt)
state 40
State 40
37 comma_delimiter_opt: TOK_COMMA .
37 comma_delimiter_opt: TOK_COMMA •
$default reduce using rule 37 (comma_delimiter_opt)
state 41
State 41
28 replace_statements: pseudo_text TOK_BY pseudo_text comma_delimiter_opt .
28 replace_statements: pseudo_text TOK_BY pseudo_text comma_delimiter_opt •
$default reduce using rule 28 (replace_statements)
state 42
State 42
43 with_opt: TOK_WITH .
43 with_opt: TOK_WITH •
$default reduce using rule 43 (with_opt)
state 43
State 43
39 identifier_debug_mode_opt: identifier debugging_mode_opt . TOK_PERIOD
39 identifier_debug_mode_opt: identifier debugging_mode_opt • TOK_PERIOD
TOK_PERIOD shift, and go to state 46
state 44
State 44
41 debugging_mode_opt: with_opt . TOK_DEBUGGING TOK_MODE
41 debugging_mode_opt: with_opt • TOK_DEBUGGING TOK_MODE
TOK_DEBUGGING shift, and go to state 47
state 45
State 45
15 copy_statement: name library_name_opt $@3 TOK_REPLACING . replacing_statement
15 copy_statement: name library_name_opt $@3 TOK_REPLACING • replacing_statement
TOK_PSEUDO_TEXT shift, and go to state 11
TOK_IDENTIFIER shift, and go to state 19
@@ -562,38 +585,38 @@ state 45
word go to state 55
state 46
State 46
39 identifier_debug_mode_opt: identifier debugging_mode_opt TOK_PERIOD .
39 identifier_debug_mode_opt: identifier debugging_mode_opt TOK_PERIOD •
$default reduce using rule 39 (identifier_debug_mode_opt)
state 47
State 47
41 debugging_mode_opt: with_opt TOK_DEBUGGING . TOK_MODE
41 debugging_mode_opt: with_opt TOK_DEBUGGING • TOK_MODE
TOK_MODE shift, and go to state 56
state 48
State 48
34 word: TOK_WORD .
34 word: TOK_WORD •
$default reduce using rule 34 (word)
state 49
State 49
15 copy_statement: name library_name_opt $@3 TOK_REPLACING replacing_statement .
15 copy_statement: name library_name_opt $@3 TOK_REPLACING replacing_statement •
$default reduce using rule 15 (copy_statement)
state 50
State 50
17 replacing_statement: replacing_statements .
18 | replacing_statements . replacing_statement
17 replacing_statement: replacing_statements •
18 | replacing_statements • replacing_statement
TOK_PSEUDO_TEXT shift, and go to state 11
TOK_IDENTIFIER shift, and go to state 19
@@ -611,58 +634,58 @@ state 50
word go to state 55
state 51
State 51
19 replacing_statements: replacing_text . TOK_BY replacing_text comma_delimiter_opt
19 replacing_statements: replacing_text • TOK_BY replacing_text comma_delimiter_opt
TOK_BY shift, and go to state 58
state 52
State 52
20 replacing_text: pseudo_text .
20 replacing_text: pseudo_text •
$default reduce using rule 20 (replacing_text)
state 53
State 53
21 replacing_text: identifier .
21 replacing_text: identifier •
$default reduce using rule 21 (replacing_text)
state 54
State 54
22 replacing_text: literal .
22 replacing_text: literal •
$default reduce using rule 22 (replacing_text)
state 55
State 55
23 replacing_text: word .
23 replacing_text: word •
$default reduce using rule 23 (replacing_text)
state 56
State 56
41 debugging_mode_opt: with_opt TOK_DEBUGGING TOK_MODE .
41 debugging_mode_opt: with_opt TOK_DEBUGGING TOK_MODE •
$default reduce using rule 41 (debugging_mode_opt)
state 57
State 57
18 replacing_statement: replacing_statements replacing_statement .
18 replacing_statement: replacing_statements replacing_statement •
$default reduce using rule 18 (replacing_statement)
state 58
State 58
19 replacing_statements: replacing_text TOK_BY . replacing_text comma_delimiter_opt
19 replacing_statements: replacing_text TOK_BY • replacing_text comma_delimiter_opt
TOK_PSEUDO_TEXT shift, and go to state 11
TOK_IDENTIFIER shift, and go to state 19
@@ -676,9 +699,9 @@ state 58
word go to state 55
state 59
State 59
19 replacing_statements: replacing_text TOK_BY replacing_text . comma_delimiter_opt
19 replacing_statements: replacing_text TOK_BY replacing_text • comma_delimiter_opt
TOK_COMMA shift, and go to state 40
@@ -687,8 +710,8 @@ state 59
comma_delimiter_opt go to state 60
state 60
State 60
19 replacing_statements: replacing_text TOK_BY replacing_text comma_delimiter_opt .
19 replacing_statements: replacing_text TOK_BY replacing_text comma_delimiter_opt •
$default reduce using rule 19 (replacing_statements)
compiler/pp_parser.tab.c
+759 -1071
View File
File diff suppressed because it is too large Load Diff
compiler/pp_parser.tab.h
+61 -44
View File
@@ -1,22 +1,22 @@
/* A Bison parser, made by GNU Bison 2.4.2. */
/* A Bison parser, made by GNU Bison 3.8.2. */
/* Bison interface for Yacc-like parsers in C
Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2021 Free Software Foundation,
Inc.
/* 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/>. */
along with this program. If not, see <https://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
@@ -27,60 +27,77 @@
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. */
/* 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. */
/* Tokens. */
#ifndef YYTOKENTYPE
# define YYTOKENTYPE
/* Put the tokens into the symbol table, so that GDB and other debuggers
know about them. */
enum yytokentype {
TOK_PSEUDO_TEXT = 258,
TOK_IDENTIFIER = 259,
TOK_LITERAL = 260,
TOK_WORD = 261,
TOK_COPY = 262,
TOK_PERIOD = 263,
TOK_OFF = 264,
TOK_BY = 265,
TOK_OF = 266,
TOK_IN = 267,
TOK_REPLACING = 268,
TOK_REPLACE = 269,
TOK_MISC = 270,
TOK_COMMA = 271,
TOK_SOURCE_COMPUTER = 272,
TOK_WITH = 273,
TOK_DEBUGGING = 274,
TOK_MODE = 275
};
#ifndef YY_PP_YY_PP_PARSER_TAB_H_INCLUDED
# define YY_PP_YY_PP_PARSER_TAB_H_INCLUDED
/* Debug traces. */
#ifndef YYDEBUG
# define YYDEBUG 0
#endif
#if YYDEBUG
extern int pp_yydebug;
#endif
/* Token kinds. */
#ifndef YYTOKENTYPE
# define YYTOKENTYPE
enum yytokentype
{
YYEMPTY = -2,
YYEOF = 0, /* "end of file" */
YYerror = 256, /* error */
YYUNDEF = 257, /* "invalid token" */
TOK_PSEUDO_TEXT = 258, /* TOK_PSEUDO_TEXT */
TOK_IDENTIFIER = 259, /* TOK_IDENTIFIER */
TOK_LITERAL = 260, /* TOK_LITERAL */
TOK_WORD = 261, /* TOK_WORD */
TOK_COPY = 262, /* TOK_COPY */
TOK_PERIOD = 263, /* TOK_PERIOD */
TOK_OFF = 264, /* TOK_OFF */
TOK_BY = 265, /* TOK_BY */
TOK_OF = 266, /* TOK_OF */
TOK_IN = 267, /* TOK_IN */
TOK_REPLACING = 268, /* TOK_REPLACING */
TOK_REPLACE = 269, /* TOK_REPLACE */
TOK_MISC = 270, /* TOK_MISC */
TOK_COMMA = 271, /* TOK_COMMA */
TOK_SOURCE_COMPUTER = 272, /* TOK_SOURCE_COMPUTER */
TOK_WITH = 273, /* TOK_WITH */
TOK_DEBUGGING = 274, /* TOK_DEBUGGING */
TOK_MODE = 275 /* TOK_MODE */
};
typedef enum yytokentype yytoken_kind_t;
#endif
/* Value type. */
#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
typedef union YYSTYPE
union YYSTYPE
{
/* Line 1685 of yacc.c */
#line 74 "pp_parser.y"
char *str; /* string */
int ival; /* int */
#line 89 "pp_parser.tab.h"
/* Line 1685 of yacc.c */
#line 78 "pp_parser.tab.h"
} YYSTYPE;
};
typedef union YYSTYPE YYSTYPE;
# define YYSTYPE_IS_TRIVIAL 1
# define yystype YYSTYPE /* obsolescent; will be withdrawn */
# define YYSTYPE_IS_DECLARED 1
#endif
extern YYSTYPE pp_yylval;
int pp_yyparse (void);
#endif /* !YY_PP_YY_PP_PARSER_TAB_H_INCLUDED */
compiler/pp_parser.tab.o
BIN
View File
Binary file not shown.
compiler/pp_scanner.c
+744 -496
View File
File diff suppressed because it is too large Load Diff
compiler/pp_scanner.l
+1 -1
View File
@@ -78,7 +78,7 @@ char *include_cpybook;
char *include_cpylib;
char include_full_filename[MAXBUF];
char toktext[MAXLINEBUF+1];
extern char toktext[MAXLINEBUF+1];
char ibuf[MAXLINEBUF+1];
//extern FILE *pp_yylist;
compiler/pp_scanner.o
BIN
View File
Binary file not shown.
compiler/reswords.o
BIN
View File
Binary file not shown.
compiler/scan.c
+299 -299
View File
File diff suppressed because it is too large Load Diff
compiler/scan.o
BIN
View File
Binary file not shown.