diff --git a/Makefile b/Makefile index 307fca8..1635259 100644 --- a/Makefile +++ b/Makefile @@ -1,13 +1,21 @@ +# Generated automatically from Makefile.in by configure. SHELL=/bin/sh prefix=/usr/local exec_prefix=${prefix} -subdirs=compiler lib cobrun cobroutines -subdirs1=compiler lib cobrun cobpp cobroutines -subdirs2=compiler -subdirs3=lib +#subdirs=compiler lib utils +#subdirs=compiler lib utils cobpp test.code +subdirs=compiler lib cobrun test.code info +subdirs1=utils test.code +subdirs2=compiler lib cobrun utils test_suite test.code cobpp +#subdirs3=compiler lib +subdirs3=compiler lib cobrun cobpp info +subdirs4=compiler lib cobrun info utils +subdirs5=lockserver +subdirs6=compiler test.code info +subdirs7=lib all: @for i in ${subdirs}; do \ @@ -16,13 +24,19 @@ all: done devel: - @for i in ${subdirs2}; do \ - echo Making all in $$i ; \ - (cd $$i; ${MAKE} all) ; \ - done - @for i in ${subdirs3}; do \ + @for i in ${subdirs}; do \ echo Making devel in $$i ; \ - (cd $$i; ${MAKE} all) ; \ + (cd $$i; ${MAKE} devel) ; \ + done + +slibs: + @for i in ${subdirs6}; do \ + echo Making in $$i ; \ + (cd $$i; ${MAKE}) ; \ + done + @for i in ${subdirs7}; do \ + echo Making in $$i ; \ + (cd $$i; ${MAKE} shared-libs) ; \ done install: @@ -31,15 +45,55 @@ install: (cd $$i; ${MAKE} install) ; \ done +install-slibs: + @for i in ${subdirs6}; do \ + echo Installing in $$i ; \ + (cd $$i; ${MAKE} install) ; \ + done + @for i in ${subdirs7}; do \ + echo Installing in $$i ; \ + (cd $$i; ${MAKE} install-shared) ; \ + done + +lockserver: + @for i in ${subdirs5}; do \ + echo Making lock server in $$i ; \ + (cd $$i; ${MAKE} all) ; \ + done + +depend: + @for i in ${subdirs}; do \ + echo Depending in $$i ; \ + (cd $$i; ${MAKE} depend) ; \ + done + clean: - @for i in ${subdirs1}; do \ + @for i in ${subdirs4}; do \ echo Cleaning in $$i ; \ (cd $$i; ${MAKE} clean) ; \ done -distclean cleandist: clean - @rm -f config.cache config.status config.log htconfig.h tcobol.iss Makefile \ - compiler/htversion.h compiler/htcobolrc compiler/Makefile \ - cobpp/tcppversion.h cobpp/Makefile \ - lib/htcobolrt.rc lib/Makefile +distclean cleandist: + @for i in ${subdirs3}; do \ + echo Cleaning in $$i ; \ + (cd $$i; ${MAKE} clean; rm -f Makefile) ; \ + done + @for i in ${subdirs1}; do \ + echo Cleaning dist in $$i ; \ + (cd $$i; ${MAKE} distclean; rm -f Makefile) ; \ + done + @for i in ${subdirs5}; do \ + echo Cleaning in $$i ; \ + (cd $$i; ${MAKE} clean; rm -f Makefile) ; \ + done + @rm -f config.cache config.status config.log htconfig.h Makefile \ + compiler/htversion.h compiler/htcobolrc \ + cobpp/tcppversion.h lib/htcobolrt.rc +cleanall: + @for i in ${subdirs2}; do \ + echo Cleaning in $$i ; \ + (cd $$i; ${MAKE} clean) ; \ + done + rm -f config.cache config.status config.log +# find . -name Makefile -exec rm {} \; -print diff --git a/cobpp/Makefile b/cobpp/Makefile index 1b95e8d..ee61d39 100644 --- a/cobpp/Makefile +++ b/cobpp/Makefile @@ -10,34 +10,26 @@ SHELL=/bin/sh prefix=/usr/local exec_prefix=${prefix} -#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= RM= rm -f -MKDIR=mkdir -p -#INSTBIN=/usr/local/bin -#INSTRC=/usr/local/share/htcobol -INSTBIN=C:/TinyCOBOL -INSTRC=C:/TinyCOBOL +INSTBIN=${prefix}/bin +INSTRC=${prefix}/share/htcobol # -INCLUDES=-I/usr/local/include -I../lib -I../ -CCXFLAGS=${INCLUDES} -g -Wall -CCXFLAGS1=${INCLUDES} -g -#LIBS=-L/usr/lib -lm -LIBS=-L/usr/local/lib -lgetopt -lm +INCLUDES=-I/usr/include -I/usr/local/include -I../lib -I../ +CCXFLAGS=${INCLUDES} -fcommon -Wall +CCXFLAGS1=${INCLUDES} -fcommon +LIBS=-L/usr/lib -L/usr/local/lib LDFLAGS= - MAKEDEPEND=@MAKEDEPEND@ # @@ -59,15 +51,14 @@ SRCS = parser.tab.c scanner.c cobpp.c OBJS = $(SRCS:.c=.o) -PROG = htcobolpp.exe +PROG = htcobolpp all: $(PROG) devel: all - ${PROG}: ${OBJS} - $(CCX) -o $@ ${OBJS} $(LDFLAGS) $(LIBS) + $(CCX) -g -o $@ ${OBJS} $(LDFLAGS) $(LIBS) # strip $@ @@ -89,7 +80,6 @@ clean: core install: $(PROG) - $(MKDIR) $(INSTRC) strip $(PROG) - ${INSTALL} $(PROG) $(INSTRC)/$(PROG) + ${INSTALL} -m 755 $(PROG) $(INSTRC)/$(PROG) # ${INSTALL_DATA} $(PROG) $(INSTRC)/$(PROG) diff --git a/cobpp/tcppversion.h b/cobpp/tcppversion.h index d00dddb..203588d 100644 --- a/cobpp/tcppversion.h +++ b/cobpp/tcppversion.h @@ -7,7 +7,7 @@ #define TCOBPP_VERSION "0.41.3" #define TCOBPP_RELEASE_DATE "2004/09/25" -#define TCOBPP_PGM_VERSION "alpha 0.41.3 (MinGW 2004/09/25)" +#define TCOBPP_PGM_VERSION "alpha 0.41.3 (linux-gnu 2004/09/25)" #endif diff --git a/cobrun/Makefile b/cobrun/Makefile index 89834b6..975bc10 100644 --- a/cobrun/Makefile +++ b/cobrun/Makefile @@ -1,15 +1,17 @@ +# Generated automatically from Makefile.in by configure. # -# Makefile (MinGW) for htcobrun +# Makefile for htcobrun # -prefix=C:/TinyCOBOL +SHELL=/bin/sh + +prefix=/usr/local exec_prefix=${prefix} -INSTALL=install.exe -INSTALL_DATA=${INSTALL} +INSTALL=/usr/bin/install -c +INSTALL_DATA=${INSTALL} -m 644 -INSTBIN=${prefix} -#INSTBIN=${prefix}/bin +INSTBIN=${prefix}/bin INSTRC=${prefix}/share/htcobol tc_library=../lib/libhtcobol.a @@ -18,13 +20,13 @@ RM=rm -f CCX=gcc -INCLUDES=-I../lib -I.. -LIBS=-L/usr/local/lib -L../lib -lhtcobol -LIBS1=-L/usr/local/lib -L../lib -ldb -lpdcurses -LIBS2=-L/usr/local/lib -L../lib -lhtcobol -ldb -#LIBS2=-L/usr/local/lib -L../lib -lhtcobol -ldb -lpdcurses -CCXFLAGS=${INCLUDES} +INCLUDES=-I../lib -I../ +LIBS= +LIBS1=-lncurses -ldb -lm -ldl +LIBS2=-L../lib -lhtcobol -lncurses -ldb -lm -ldl LDFLAGS= +CCXFLAGS=${INCLUDES} + SRC1 = htcobrun.c SRC2 = htcobrun.c @@ -32,38 +34,38 @@ SRC2 = htcobrun.c OBJ1 = $(SRC1:.c=.o) OBJ2 = $(SRC2:.c=.o) -PROG1 = htcobrun2 -PROG2 = htcobrun +PROG1 = htcobrun +PROG2 = htcobrun2 PROG3 = htcobrun.sh # -# Rules for compiling C sources +# Rules for compiling .c sources # -.SUFFIX: .c .o .lo +.SUFFIX: .c .o .c.o: $(CCX) $(CCXFLAGS) -c $< -all: ${PROG2} -#all: ${PROG1} ${PROG2} - -# This will not compile and link on Win32 for some reason +#all: ${PROG1} ${PROG2} +all: ${PROG1} + +# Static library version ${PROG1}: ${CCX} ${SRC1} -Wl,-export-dynamic -o ${PROG1} \ ${INCLUDES} -Wl,-whole-archive ${tc_library} \ -Wl,-no-whole-archive $(LIBS1) -${PROG2}: ${OBJ2} - $(CCX) -o $@ ${OBJ2} $(LDFLAGS) $(LIBS2) +# Shared library version +${PROG2}: ${OBJ2} + $(CCX) -o $@ ${OBJ2} $(LDFLAGS1) $(LIBS2) clean: - @${RM} ${OBJ1} ${OBJ2} ${PROG1}.exe ${PROG2}.exe \ - *.exe *.def *.o *.lis *.i *.s core + @${RM} ${OBJ1} ${OBJ2} ${PROG1} ${PROG2} *.o *.s core #install: $(PROG1) $(PROG2) -install: $(PROG2) -# strip $(PROG1) -# ${INSTALL} -m 755 $(PROG1) $(INSTBIN)/$(PROG1) - strip $(PROG2).exe - ${INSTALL} $(PROG2).exe $(INSTBIN)/$(PROG2).exe +install: $(PROG1) + strip $(PROG1) + ${INSTALL} -m 755 $(PROG1) $(INSTBIN)/$(PROG1) +# strip $(PROG2) +# ${INSTALL} -m 755 $(PROG2) $(INSTBIN)/$(PROG2) # ${INSTALL} -m 755 $(PROG3) $(INSTBIN)/$(PROG3) diff --git a/cobrun/htcobrun b/cobrun/htcobrun old mode 100644 new mode 100755 index b9e125f..2723505 Binary files a/cobrun/htcobrun and b/cobrun/htcobrun differ diff --git a/cobrun/htcobrun.o b/cobrun/htcobrun.o deleted file mode 100644 index b211c33..0000000 Binary files a/cobrun/htcobrun.o and /dev/null differ diff --git a/compiler/Makefile b/compiler/Makefile index ebcfbb0..24b082f 100644 --- a/compiler/Makefile +++ b/compiler/Makefile @@ -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) diff --git a/compiler/htcobemt.o b/compiler/htcobemt.o index 0217d2c..d511f63 100644 Binary files a/compiler/htcobemt.o and b/compiler/htcobemt.o differ diff --git a/compiler/htcobgen.o b/compiler/htcobgen.o index 82f90ab..e0db690 100644 Binary files a/compiler/htcobgen.o and b/compiler/htcobgen.o differ diff --git a/compiler/htcobol b/compiler/htcobol old mode 100644 new mode 100755 index a165f02..dffdb68 Binary files a/compiler/htcobol and b/compiler/htcobol differ diff --git a/compiler/htcobol.o b/compiler/htcobol.o index 5e0c44f..cfc4dfd 100644 Binary files a/compiler/htcobol.o and b/compiler/htcobol.o differ diff --git a/compiler/htcobol.output b/compiler/htcobol.output index e765b05..bd6b164 100644 --- a/compiler/htcobol.output +++ b/compiler/htcobol.output @@ -1,13 +1,13 @@ Terminals unused in grammar - LOW_PREC - ZERONUM - COMMENTING - END_OF_PAGE - ONLY - PADDING - PROCEED - TOKDUMMY + LOW_PREC + ZERONUM + COMMENTING + END_OF_PAGE + ONLY + PADDING + PROCEED + TOKDUMMY State 136 conflicts: 7 shift/reduce @@ -69,7 +69,7 @@ State 1187 conflicts: 1 shift/reduce State 1200 conflicts: 1 shift/reduce State 1202 conflicts: 1 shift/reduce State 1225 conflicts: 1 shift/reduce -State 1232 conflicts: 1 shift/reduce +State 1231 conflicts: 1 shift/reduce State 1253 conflicts: 1 shift/reduce State 1254 conflicts: 1 shift/reduce State 1255 conflicts: 1 shift/reduce @@ -112,33 +112,33 @@ Grammar 5 program_sequence: program end_program - 6 $@1: /* empty */ + 6 $@1: ε 7 program_sequence: program $@1 program_sequence end_program 8 | program_sequence program end_program - 9 $@2: /* empty */ + 9 $@2: ε 10 end_program: END PROGRAM $@2 IDSTRING 11 program: identification_division environment_division_opt data_division_opt procedure_division_opt - 12 $@3: /* empty */ + 12 $@3: ε - 13 $@4: /* empty */ + 13 $@4: ε - 14 $@5: /* empty */ + 14 $@5: ε 15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt - 16 programid_opts_opt: /* empty */ + 16 programid_opts_opt: ε 17 | is_opt INITIAL_TOK programid_program_opt 18 | is_opt COMMON programid_program_opt - 19 programid_program_opt: /* empty */ + 19 programid_program_opt: ε 20 | PROGRAM - 21 identification_division_options_opt: /* empty */ + 21 identification_division_options_opt: ε 22 | identification_division_options_opt identification_division_option 23 identification_division_option: AUTHOR PERIOD_TOK @@ -147,39 +147,39 @@ Grammar 26 | INSTALLATION PERIOD_TOK 27 | SECURITY PERIOD_TOK - 28 $@6: /* empty */ + 28 $@6: ε 29 environment_division_opt: ENVIRONMENT DIVISION PERIOD_TOK $@6 configuration_opt input_output_opt - 30 | /* empty */ + 30 | ε 31 configuration_opt: CONFIGURATION SECTION PERIOD_TOK configuration_section - 32 | /* empty */ + 32 | ε 33 configuration_section: configuration_section configuration_option - 34 | /* empty */ + 34 | ε - 35 $@7: /* empty */ + 35 $@7: ε 36 configuration_option: SOURCE_COMPUTER PERIOD_TOK $@7 STRING debug_mode_opt PERIOD_TOK - 37 $@8: /* empty */ + 37 $@8: ε 38 configuration_option: OBJECT_COMPUTER PERIOD_TOK $@8 STRING program_collating_opt PERIOD_TOK 39 | SPECIAL_NAMES PERIOD_TOK special_names_opt 40 | error 41 program_collating_opt: PROGRAM collating_sequence - 42 | /* empty */ + 42 | ε 43 collating_sequence: collating_opt SEQUENCE is_opt STRING 44 collating_opt: COLLATING - 45 | /* empty */ + 45 | ε 46 debug_mode_opt: with_opt DEBUGGING MODE - 47 | /* empty */ + 47 | ε - 48 special_names_opt: /* empty */ + 48 special_names_opt: ε 49 | special_names PERIOD_TOK 50 | error @@ -197,7 +197,7 @@ Grammar 60 currency_details: CURRENCY sign_opt is_opt CLITERAL 61 sign_opt: SIGN - 62 | /* empty */ + 62 | ε 63 special_name_class: CLASS STRING is_opt special_name_class_item_list @@ -213,21 +213,21 @@ Grammar 70 cursor_details: CURSOR is_opt STRING - 71 switches_details_list: /* empty */ + 71 switches_details_list: ε 72 | switches_details_list switches_details - 73 $@9: /* empty */ + 73 $@9: ε 74 switches_details: STRING is_opt STRING $@9 switch_on_opt switch_off_opt 75 switch_on_opt: ON status_opt is_opt STRING - 76 | /* empty */ + 76 | ε 77 switch_off_opt: OFF status_opt is_opt STRING - 78 | /* empty */ + 78 | ε 79 status_opt: STATUS - 80 | /* empty */ + 80 | ε 81 alphabet_details: ALPHABET STRING is_opt alphabet_type @@ -247,25 +247,25 @@ Grammar 92 | alphabet_also_list ALSO without_all_literal 93 input_output_opt: INPUT_OUTPUT SECTION PERIOD_TOK input_output_section - 94 | /* empty */ + 94 | ε 95 input_output_section: file_control_paragraph i_o_control_paragraph 96 | error 97 file_control_paragraph: FILE_CONTROL PERIOD_TOK file_control - 98 i_o_control_paragraph: /* empty */ + 98 i_o_control_paragraph: ε 99 | I_O_CONTROL PERIOD_TOK i_o_control_opt 100 file_control: file_select 101 | file_control file_select - 102 $@10: /* empty */ + 102 $@10: ε 103 file_select: SELECT optional_opt def_name $@10 select_clauses PERIOD_TOK 104 select_clauses: select_clauses select_clause - 105 | /* empty */ + 105 | ε 106 select_clause: organization_opt is_opt organization_options 107 | ASSIGN to_opt assign_clause @@ -278,10 +278,10 @@ Grammar 114 | error 115 file_opt: FILE_TOK - 116 | /* empty */ + 116 | ε 117 organization_opt: ORGANIZATION - 118 | /* empty */ + 118 | ε 119 assign_clause: PORTNUM 120 | filename @@ -290,23 +290,23 @@ Grammar 123 | error 124 with_duplicates: with_opt DUPLICATES - 125 | /* empty */ + 125 | ε 126 optional_opt: OPTIONAL - 127 | /* empty */ + 127 | ε 128 areas_opt: AREA 129 | AREAS - 130 | /* empty */ + 130 | ε 131 is_opt: IS - 132 | /* empty */ + 132 | ε 133 are_opt: ARE - 134 | /* empty */ + 134 | ε 135 mode_opt: MODE - 136 | /* empty */ + 136 | ε 137 organization_options: INDEXED 138 | SEQUENTIAL @@ -319,7 +319,7 @@ Grammar 144 | RANDOM 145 | anystring - 146 i_o_control_opt: /* empty */ + 146 i_o_control_opt: ε 147 | i_o_control_list PERIOD_TOK 148 i_o_control_list: i_o_control_clause @@ -330,7 +330,7 @@ Grammar 152 i_o_control_same_clause: SAME same_clause_options are_opta for_opt string_list - 153 same_clause_options: /* empty */ + 153 same_clause_options: ε 154 | RECORD 155 | SORT 156 | SORT_MERGE @@ -342,17 +342,17 @@ Grammar 160 i_o_control_multiple_file: STRING i_o_control_multiple_file_position_opt - 161 i_o_control_multiple_file_position_opt: /* empty */ + 161 i_o_control_multiple_file_position_opt: ε 162 | POSITION integer 163 tape_opt: TAPE - 164 | /* empty */ + 164 | ε 165 are_opta: AREA - 166 | /* empty */ + 166 | ε 167 for_opt: FOR - 168 | /* empty */ + 168 | ε 169 string_list: STRING 170 | string_list STRING @@ -362,41 +362,41 @@ Grammar 173 | name_list variable 174 | error - 175 $@11: /* empty */ + 175 $@11: ε 176 data_division_opt: DATA DIVISION PERIOD_TOK $@11 file_section_opt working_storage_opt linkage_section_opt report_section_opt screen_section_opt - 177 | /* empty */ + 177 | ε - 178 $@12: /* empty */ + 178 $@12: ε 179 file_section_opt: FILE_TOK SECTION PERIOD_TOK $@12 file_section - 180 | /* empty */ + 180 | ε - 181 $@13: /* empty */ + 181 $@13: ε 182 working_storage_opt: WORKING_STORAGE SECTION PERIOD_TOK $@13 working_storage_section - 183 | /* empty */ + 183 | ε - 184 $@14: /* empty */ + 184 $@14: ε 185 linkage_section_opt: LINKAGE SECTION PERIOD_TOK $@14 linkage_section - 186 | /* empty */ + 186 | ε 187 report_section_opt: REPORT SECTION PERIOD_TOK report_sections - 188 | /* empty */ + 188 | ε 189 report_sections: report_sections report_section - 190 | /* empty */ + 190 | ε - 191 $@15: /* empty */ + 191 $@15: ε - 192 $@16: /* empty */ + 192 $@16: ε - 193 $@17: /* empty */ + 193 $@17: ε 194 report_section: RD $@15 STRING $@16 report_controls PERIOD_TOK $@17 report_description - 195 report_controls: /* empty */ + 195 report_controls: ε 196 | report_controls report_control 197 report_control: is_opt GLOBAL @@ -408,41 +408,41 @@ Grammar 202 report_controls_page: PAGE limit_is_are_opt integer line_lines_opt heading_opt first_detail_opt last_detail_opt footing_opt - 203 heading_opt: /* empty */ + 203 heading_opt: ε 204 | HEADING is_opt integer 205 line_lines_opt: lines_opt 206 | LINE - 207 lines_opt: /* empty */ + 207 lines_opt: ε 208 | LINES 209 control_is_are: CONTROL is_opt 210 | CONTROLS are_opt - 211 limit_is_are_opt: /* empty */ + 211 limit_is_are_opt: ε 212 | LIMIT IS 213 | LIMITS ARE - 214 footing_opt: /* empty */ + 214 footing_opt: ε 215 | FOOTING is_opt integer - 216 last_detail_opt: /* empty */ + 216 last_detail_opt: ε 217 | LAST DETAIL is_opt integer - 218 first_detail_opt: /* empty */ + 218 first_detail_opt: ε 219 | FIRST DETAIL is_opt integer - 220 final_opt: /* empty */ + 220 final_opt: ε 221 | FINAL - 222 report_break_list: /* empty */ + 222 report_break_list: ε 223 | report_break_list name 224 report_description: report_item 225 | report_description report_item - 226 $@18: /* empty */ + 226 $@18: ε 227 report_item: integer def_name_opt $@18 report_clauses PERIOD_TOK @@ -466,12 +466,12 @@ Grammar 242 report_clause_type2: REPORT HEADING 243 | PAGE HEADING - 244 $@19: /* empty */ + 244 $@19: ε 245 report_clause_type2: CONTROL HEADING $@19 name_final_opt 246 | DETAIL - 247 $@20: /* empty */ + 247 $@20: ε 248 report_clause_type2: CONTROL FOOTING $@20 name_final_opt 249 | PAGE FOOTING @@ -479,12 +479,12 @@ Grammar 251 | RH 252 | PH - 253 $@21: /* empty */ + 253 $@21: ε 254 report_clause_type2: CH $@21 name_final_opt 255 | DE - 256 $@22: /* empty */ + 256 $@22: ε 257 report_clause_type2: CF $@22 name_final_opt 258 | PF @@ -493,7 +493,7 @@ Grammar 260 report_clause_sign_is: SIGN is_opt leading_trailing SEPARATE character_opt 261 | leading_trailing SEPARATE character_opt - 262 $@23: /* empty */ + 262 $@23: ε 263 report_clause_picture: PICTURE $@23 is_opt picture @@ -521,51 +521,51 @@ Grammar 279 | COLUMN NUMBERS report_clause_column_orientation are_opt 280 | COLUMNS report_clause_column_orientation are_opt - 281 report_clause_column_orientation: /* empty */ + 281 report_clause_column_orientation: ε 282 | LEFT 283 | CENTER 284 | RIGHT - 285 is_are_opt: /* empty */ + 285 is_are_opt: ε 286 | IS 287 | ARE - 288 $@24: /* empty */ + 288 $@24: ε 289 report_clause_svs: SOURCE $@24 is_opt gname_page_counter 290 | VALUE is_opt literal - 291 $@25: /* empty */ + 291 $@25: ε - 292 $@26: /* empty */ + 292 $@26: ε 293 report_clause_svs: SUM $@25 gname_list $@26 upon_opt reset_opt 294 gname_page_counter: gname 295 | PAGE_COUNTER - 296 report_clause_group_indicate: /* empty */ + 296 report_clause_group_indicate: ε 297 | GROUP indicate_opt 298 report_clause_blank_zero: BLANK when_opt ZERO - 299 indicate_opt: /* empty */ + 299 indicate_opt: ε 300 | INDICATE - 301 upon_opt: /* empty */ + 301 upon_opt: ε 302 | UPON gname_list - 303 reset_opt: /* empty */ + 303 reset_opt: ε 304 | RESET gname 305 | RESET FINAL - 306 number_opt: /* empty */ + 306 number_opt: ε 307 | NUMBER 308 leading_trailing: LEADING 309 | TRAILING - 310 right_opt: /* empty */ + 310 right_opt: ε 311 | RIGHT 312 name_final_opt: gname @@ -576,62 +576,62 @@ Grammar 316 | NEXT PAGE 317 of_opt: OF - 318 | /* empty */ + 318 | ε - 319 $@27: /* empty */ + 319 $@27: ε 320 screen_section_opt: SCREEN SECTION PERIOD_TOK $@27 screen_section - 321 | /* empty */ + 321 | ε 322 screen_section: screen_section screen_item - 323 | /* empty */ + 323 | ε - 324 $@28: /* empty */ + 324 $@28: ε 325 screen_item: integer def_name_opt $@28 screen_clauses PERIOD_TOK - 326 $@29: /* empty */ + 326 $@29: ε 327 screen_clauses: screen_clauses LINE $@29 number_is_opt plus_minus_opt name_or_lit - 328 $@30: /* empty */ + 328 $@30: ε 329 screen_clauses: screen_clauses COLUMN $@30 number_is_opt plus_minus_opt name_or_lit 330 | screen_clauses with_opt screen_attrib - 331 $@31: /* empty */ + 331 $@31: ε 332 screen_clauses: screen_clauses with_opt FOREGROUNDCOLOR $@31 name_or_lit - 333 $@32: /* empty */ + 333 $@32: ε 334 screen_clauses: screen_clauses with_opt BACKGROUNDCOLOR $@32 name_or_lit - 335 $@33: /* empty */ + 335 $@33: ε 336 screen_clauses: screen_clauses with_opt COLOR $@33 name_or_lit 337 | screen_clauses screen_source_destination 338 | screen_clauses value_is_are gliteral 339 | screen_clauses pictures - 340 $@34: /* empty */ + 340 $@34: ε 341 screen_clauses: screen_clauses SIZE $@34 name_or_lit - 342 | /* empty */ + 342 | ε - 343 $@35: /* empty */ + 343 $@35: ε 344 screen_source_destination: USING $@35 name_or_lit - 345 $@36: /* empty */ + 345 $@36: ε 346 screen_source_destination: FROM $@36 name_or_lit screen_to_name - 347 $@37: /* empty */ + 347 $@37: ε 348 screen_source_destination: TO $@37 name - 349 screen_to_name: /* empty */ + 349 screen_to_name: ε 350 | TO name 351 screen_attrib: BLANK SCREEN @@ -690,10 +690,10 @@ Grammar 402 | sign_is_opt TRAILING separate_opt 403 separate_opt: SEPARATE character_opt - 404 | /* empty */ + 404 | ε 405 character_opt: CHARACTER - 406 | /* empty */ + 406 | ε 407 sign_is_opt: SIGN is_opt 408 | is_opt @@ -702,41 +702,41 @@ Grammar 410 | '+' 411 | MINUS 412 | '-' - 413 | /* empty */ + 413 | ε 414 number_is_opt: NUMBER is_opt - 415 | /* empty */ + 415 | ε - 416 $@38: /* empty */ + 416 $@38: ε - 417 $@39: /* empty */ + 417 $@39: ε - 418 $@40: /* empty */ + 418 $@40: ε 419 file_section: file_section FD $@38 STRING $@39 file_description_fd_clauses PERIOD_TOK $@40 file_description - 420 $@41: /* empty */ + 420 $@41: ε - 421 $@42: /* empty */ + 421 $@42: ε - 422 $@43: /* empty */ + 422 $@43: ε 423 file_section: file_section SD $@41 STRING $@42 file_description_sd_clauses PERIOD_TOK $@43 file_description 424 | error - 425 | /* empty */ + 425 | ε 426 file_description: field_description 427 | file_description field_description - 428 $@44: /* empty */ + 428 $@44: ε 429 field_description: integer def_name_opt $@44 data_clauses PERIOD_TOK - 430 data_clauses: /* empty */ + 430 data_clauses: ε 431 | data_clauses data_clause 432 | data_clauses redefines_clause - 433 $@45: /* empty */ + 433 $@45: ε 434 redefines_clause: REDEFINES $@45 redefines_var @@ -754,32 +754,32 @@ Grammar 445 | is_opt GLOBAL 446 | BLANK when_opt ZERO - 447 $@46: /* empty */ + 447 $@46: ε 448 data_clause: RENAMES $@46 variable thru_gname_opt - 449 sync_options: /* empty */ + 449 sync_options: ε 450 | LEFT 451 | RIGHT - 452 thru_gname_opt: /* empty */ + 452 thru_gname_opt: ε 453 | THRU variable - 454 $@47: /* empty */ + 454 $@47: ε 455 array_options: OCCURS integer times_opt $@47 indexed_by_opt - 456 $@48: /* empty */ + 456 $@48: ε - 457 $@49: /* empty */ + 457 $@49: ε 458 array_options: OCCURS integer TO integer times_opt DEPENDING $@48 on_opt gname $@49 indexed_by_opt 459 key_is_opt: DIRECTION key_opt is_opt STRING - 460 | /* empty */ + 460 | ε 461 indexed_by_opt: key_is_opt INDEXED by_opt index_name_list - 462 | /* empty */ + 462 | ε 463 index_name_list: def_name 464 | index_name_list def_name @@ -801,22 +801,22 @@ Grammar 474 value: gliteral 475 | gliteral THRU gliteral - 476 $@50: /* empty */ + 476 $@50: ε 477 pictures: PICTURE $@50 is_opt picture - 478 picture: /* empty */ + 478 picture: ε 479 | picture pic_elem 480 pic_elem: CHAR multiplier_opt - 481 multiplier_opt: /* empty */ + 481 multiplier_opt: ε 482 | MULTIPLIER - 483 file_description_fd_clauses: /* empty */ + 483 file_description_fd_clauses: ε 484 | file_description_fd_clauses file_description_fd_clause - 485 file_description_sd_clauses: /* empty */ + 485 file_description_sd_clauses: ε 486 | file_description_sd_clauses file_description_sd_clause 487 file_description_fd_clause: is_opt EXTERNAL @@ -850,16 +850,16 @@ Grammar 507 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 - 508 file_description_clause_linage_footing: /* empty */ + 508 file_description_clause_linage_footing: ε 509 | with_opt FOOTING at_opt data_name - 510 file_description_clause_linage_top: /* empty */ + 510 file_description_clause_linage_top: ε 511 | lines_at_opt TOP data_name - 512 file_description_clause_linage_bottom: /* empty */ + 512 file_description_clause_linage_bottom: ε 513 | lines_at_opt BOTTOM data_name - 514 lines_at_opt: /* empty */ + 514 lines_at_opt: ε 515 | LINES 516 | LINES AT 517 | AT @@ -870,23 +870,23 @@ Grammar 520 var_strings: STRING 521 | var_strings STRING - 522 chars_or_recs_opt: /* empty */ + 522 chars_or_recs_opt: ε 523 | CHARACTERS 524 | RECORDS - 525 to_integer_opt: /* empty */ + 525 to_integer_opt: ε 526 | TO integer - 527 depend_rec_varying: /* empty */ + 527 depend_rec_varying: ε 528 | DEPENDING on_opt STRING - 529 from_rec_varying: /* empty */ + 529 from_rec_varying: ε 530 | from_opt nliteral 531 from_opt: FROM - 532 | /* empty */ + 532 | ε - 533 to_rec_varying: /* empty */ + 533 to_rec_varying: ε 534 | TO nliteral 535 record_is_are: RECORD is_opt @@ -895,75 +895,75 @@ Grammar 537 std_or_omitt: STANDARD 538 | OMITTED - 539 usage_opt: /* empty */ + 539 usage_opt: ε 540 | USAGE - 541 times_opt: /* empty */ + 541 times_opt: ε 542 | TIMES - 543 when_opt: /* empty */ + 543 when_opt: ε 544 | WHEN - 545 contains_opt: /* empty */ + 545 contains_opt: ε 546 | CONTAINS - 547 character_opts: /* empty */ + 547 character_opts: ε 548 | CHARACTERS - 549 order_opt: /* empty */ + 549 order_opt: ε 550 | ORDER - 551 data_opt: /* empty */ + 551 data_opt: ε 552 | DATA 553 working_storage_section: working_storage_section field_description - 554 | /* empty */ + 554 | ε - 555 linkage_section: /* empty */ + 555 linkage_section: ε 556 | linkage_section field_description - 557 $@51: /* empty */ + 557 $@51: ε - 558 $@52: /* empty */ + 558 $@52: ε 559 procedure_division_opt: PROCEDURE DIVISION $@51 using_parameters PERIOD_TOK $@52 declaratives_opt procedure_division - 560 | /* empty */ + 560 | ε - 561 procedure_division: /* empty */ + 561 procedure_division: ε 562 | procedure_division procedure_decl 563 procedure_decl: procedure_section 564 | paragraph - 565 $@53: /* empty */ + 565 $@53: ε 566 procedure_decl: $@53 statements PERIOD_TOK - 567 $@54: /* empty */ + 567 $@54: ε 568 procedure_decl: error $@54 PERIOD_TOK 569 | PERIOD_TOK - 570 $@55: /* empty */ + 570 $@55: ε 571 declaratives_opt: DECLARATIVES PERIOD_TOK $@55 declaratives_procedure declaratives_division END DECLARATIVES PERIOD_TOK - 572 | /* empty */ + 572 | ε - 573 declaratives_division: /* empty */ + 573 declaratives_division: ε 574 | declaratives_division declaratives_decl 575 declaratives_decl: declaratives_procedure 576 | paragraph - 577 $@56: /* empty */ + 577 $@56: ε 578 declaratives_decl: $@56 statements PERIOD_TOK - 579 $@57: /* empty */ + 579 $@57: ε 580 declaratives_decl: error $@57 PERIOD_TOK - 581 $@58: /* empty */ + 581 $@58: ε 582 declaratives_procedure: procedure_section $@58 use_phrase 583 | error @@ -1037,33 +1037,33 @@ Grammar 642 perform_statement: PERFORM perform_options - 643 $@59: /* empty */ + 643 $@59: ε 644 if_statement: if_part $@59 end_if_opt - 645 @60: /* empty */ + 645 @60: ε - 646 $@61: /* empty */ + 646 $@61: ε 647 if_statement: if_part ELSE @60 conditional_statement $@61 end_if_opt 648 search_statement: SEARCH search end_search_opt 649 | SEARCH ALL search_all end_search_opt - 650 @62: /* empty */ + 650 @62: ε - 651 $@63: /* empty */ + 651 $@63: ε 652 evaluate_statement: EVALUATE @62 selection_subject_set $@63 when_case_list end_evaluate_or_eos 653 end_evaluate_or_eos: END_EVALUATE 654 | PERIOD_TOK - 655 @64: /* empty */ + 655 @64: ε 656 selection_subject_set: @64 selection_subject - 657 @65: /* empty */ + 657 @65: ε 658 selection_subject_set: selection_subject_set ALSO @65 selection_subject @@ -1072,25 +1072,25 @@ Grammar 661 | TRUE_TOK 662 | FALSE_TOK - 663 @66: /* empty */ + 663 @66: ε - 664 @67: /* empty */ + 664 @67: ε 665 when_case_list: WHEN @66 @67 when_case sentence_or_nothing - 666 @68: /* empty */ + 666 @68: ε - 667 @69: /* empty */ + 667 @69: ε - 668 $@70: /* empty */ + 668 $@70: ε 669 when_case_list: when_case_list WHEN @68 @69 when_case $@70 sentence_or_nothing - 670 @71: /* empty */ + 670 @71: ε 671 when_case: @71 selection_object - 672 @72: /* empty */ + 672 @72: ε 673 when_case: when_case ALSO @72 selection_object 674 | OTHER @@ -1102,56 +1102,56 @@ Grammar 679 | not_opt expr THRU expr 680 | not_opt cond_name - 681 sentence_or_nothing: /* empty */ + 681 sentence_or_nothing: ε 682 | conditional_statement - 683 @73: /* empty */ + 683 @73: ε 684 if_part: IF condition @73 end_then_opt conditional_statement - 685 $@74: /* empty */ + 685 $@74: ε 686 conditional_statement: $@74 statement_list - 687 $@75: /* empty */ + 687 $@75: ε 688 conditional_statement: $@75 NEXT SENTENCE - 689 not_opt: /* empty */ + 689 not_opt: ε 690 | NOT - 691 end_if_opt: /* empty */ + 691 end_if_opt: ε 692 | END_IF - 693 end_then_opt: /* empty */ + 693 end_then_opt: ε 694 | THEN - 695 @76: /* empty */ + 695 @76: ε - 696 @77: /* empty */ + 696 @77: ε - 697 @78: /* empty */ + 697 @78: ε 698 search: variable_indexed @76 search_varying_opt @77 search_at_end @78 search_when_list - 699 @79: /* empty */ + 699 @79: ε - 700 $@80: /* empty */ + 700 $@80: ε 701 search_all: variable_indexed @79 search_at_end $@80 search_all_when_list 702 search_varying_opt: VARYING variable - 703 | /* empty */ + 703 | ε - 704 @81: /* empty */ + 704 @81: ε 705 search_at_end: at_opt END @81 statement_list - 706 | /* empty */ + 706 | ε 707 search_when_list: search_when 708 | search_when_list search_when - 709 @82: /* empty */ + 709 @82: ε 710 search_when: WHEN search_when_conditional @82 search_when_statement @@ -1163,9 +1163,9 @@ Grammar 714 search_all_when_list: search_all_when 715 | search_all_when_list search_all_when - 716 $@83: /* empty */ + 716 $@83: ε - 717 @84: /* empty */ + 717 @84: ε 718 search_all_when: WHEN $@83 search_all_when_conditional @84 search_all_when_statement @@ -1175,11 +1175,11 @@ Grammar 721 search_all_when_conditional: variable is_opt CONDITIONAL to_opt variable 722 | variable is_opt CONDITIONAL to_opt literal - 723 @85: /* empty */ + 723 @85: ε 724 search_all_when_conditional: search_all_when_conditional AND @85 search_all_when_conditional - 725 end_search_opt: /* empty */ + 725 end_search_opt: ε 726 | END_SEARCH 727 unlock_statement: UNLOCK name @@ -1199,11 +1199,11 @@ Grammar 735 cancel_statement: CANCEL gname 736 | CANCEL ALL - 737 $@86: /* empty */ + 737 $@86: ε - 738 $@87: /* empty */ + 738 $@87: ε - 739 $@88: /* empty */ + 739 $@88: ε 740 merge_statement: MERGE name sort_keys $@86 sort_collating_opt $@87 merge_using $@88 sort_output @@ -1212,15 +1212,15 @@ Grammar 742 sort_statement: sort_file 743 | sort_variable_indexed - 744 $@89: /* empty */ + 744 $@89: ε - 745 $@90: /* empty */ + 745 $@90: ε - 746 $@91: /* empty */ + 746 $@91: ε 747 sort_file: SORT name sort_keys $@89 sort_duplicates_opt sort_collating_opt $@90 sort_input $@91 sort_output - 748 $@92: /* empty */ + 748 $@92: ε 749 sort_variable_indexed: SORT variable_indexed sort_keys_idx $@92 sort_duplicates_opt sort_collating_opt @@ -1240,10 +1240,10 @@ Grammar 758 sort_keys_names_idx: variable_indexed 759 | sort_keys_names_idx variable_indexed - 760 sort_duplicates_opt: /* empty */ + 760 sort_duplicates_opt: ε 761 | with_opt DUPLICATES in_opt order_opt - 762 sort_collating_opt: /* empty */ + 762 sort_collating_opt: ε 763 | collating_sequence 764 sort_input: INPUT PROCEDURE is_opt perform_range @@ -1263,7 +1263,7 @@ Grammar 774 initialize_statement: INITIALIZE gname_list initialize_replacing_opt 775 | INITIALIZE - 776 initialize_replacing_opt: /* empty */ + 776 initialize_replacing_opt: ε 777 | REPLACING initialize_replacing_lists 778 initialize_replacing_lists: initialize_replacing_list @@ -1282,7 +1282,7 @@ Grammar 788 compute_body: var_list_name CONDITIONAL expr on_size_error_opt - 789 end_compute_opt: /* empty */ + 789 end_compute_opt: ε 790 | END_COMPUTE 791 add_statement: ADD add_body end_add_opt @@ -1292,10 +1292,10 @@ Grammar 794 | var_list_gname add_to_opt GIVING var_list_name on_size_error_opt 795 | CORRESPONDING var_list_gname TO var_list_name rounded_opt on_size_error_opt - 796 add_to_opt: /* empty */ + 796 add_to_opt: ε 797 | TO gname - 798 end_add_opt: /* empty */ + 798 end_add_opt: ε 799 | END_ADD 800 subtract_statement: SUBTRACT subtract_body end_subtract_opt @@ -1305,7 +1305,7 @@ Grammar 803 | var_list_gname FROM gname GIVING var_list_name on_size_error_opt 804 | CORRESPONDING var_list_gname FROM var_list_name rounded_opt on_size_error_opt - 805 end_subtract_opt: /* empty */ + 805 end_subtract_opt: ε 806 | END_SUBTRACT 807 multiply_statement: MULTIPLY multiply_body end_multiply_opt @@ -1314,7 +1314,7 @@ Grammar 809 multiply_body: gname BY gname GIVING var_list_name on_size_error_opt 810 | gname BY var_list_name on_size_error_opt - 811 end_multiply_opt: /* empty */ + 811 end_multiply_opt: ε 812 | END_MULTIPLY 813 divide_statement: DIVIDE divide_body end_divide_opt @@ -1326,7 +1326,7 @@ Grammar 818 | gname INTO gname GIVING var_list_name on_size_error_opt 819 | gname INTO var_list_name on_size_error_opt - 820 end_divide_opt: /* empty */ + 820 end_divide_opt: ε 821 | END_DIVIDE 822 accept_statement: accept_hardware @@ -1344,15 +1344,15 @@ Grammar 832 accept_screen: ACCEPT name accept_display_options end_accept_opt - 833 $@93: /* empty */ + 833 $@93: ε - 834 @94: /* empty */ + 834 @94: ε - 835 $@95: /* empty */ + 835 $@95: ε 836 accept_screen: ACCEPT name accept_display_options on_opt EXCEPTION $@93 variable @94 statement_list $@95 end_accept_opt - 837 end_accept_opt: /* empty */ + 837 end_accept_opt: ε 838 | END_ACCEPT 839 display_statement: display_line @@ -1370,14 +1370,14 @@ Grammar 847 | UPON STD_OUTPUT 848 | UPON STD_ERROR - 849 display_line_options: /* empty */ + 849 display_line_options: ε 850 | display_line_options with_opt NO ADVANCING 851 | display_line_options with_opt ERASE 852 | display_line_options with_opt ERASE EOS 853 | display_line_options with_opt ERASE EOL 854 | display_line_options with_opt ERASE SCREEN - 855 end_display_opt: /* empty */ + 855 end_display_opt: ε 856 | END_DISPLAY 857 scr_line: LINE number_opt expr @@ -1388,7 +1388,7 @@ Grammar 860 scr_line_position: AT NLITERAL 861 | AT variable - 862 accept_display_options: /* empty */ + 862 accept_display_options: ε 863 | accept_display_options accept_display_option 864 accept_display_option: with_opt screen_attribx @@ -1430,7 +1430,7 @@ Grammar 891 with_lock_opt: with_opt LOCK 892 | with_opt IGNORE LOCK - 893 | /* empty */ + 893 | ε 894 return_statement: RETURN return_body end_return_opt 895 | RETURN @@ -1445,29 +1445,29 @@ Grammar 901 | name read_next_opt record_opt read_into_opt with_lock_opt read_key_opt read_at_end_opt 902 | name read_next_opt record_opt read_into_opt with_lock_opt read_key_opt read_invalid_key_opt - 903 read_next_opt: /* empty */ + 903 read_next_opt: ε 904 | NEXT 905 | PREVIOUS - 906 read_into_opt: /* empty */ + 906 read_into_opt: ε 907 | INTO name - 908 read_key_opt: /* empty */ + 908 read_key_opt: ε 909 | KEY is_opt name 910 read_at_end_opt: NOT at_opt on_end 911 | AT on_end 912 | on_end - 913 $@96: /* empty */ + 913 $@96: ε 914 read_at_end_opt: AT on_end NOT at_opt $@96 on_end - 915 $@97: /* empty */ + 915 $@97: ε 916 read_at_end_opt: on_end NOT at_opt $@97 on_end - 917 @98: /* empty */ + 917 @98: ε 918 on_end: END @98 statement_list @@ -1475,61 +1475,61 @@ Grammar 920 | read_not_invalid_key 921 | read_invalid_key read_not_invalid_key - 922 @99: /* empty */ + 922 @99: ε 923 read_invalid_key: INVALID key_opt @99 statement_list - 924 @100: /* empty */ + 924 @100: ε 925 read_not_invalid_key: NOT INVALID key_opt @100 statement_list - 926 end_read_opt: /* empty */ + 926 end_read_opt: ε 927 | END_READ - 928 end_return_opt: /* empty */ + 928 end_return_opt: ε 929 | END_RETURN 930 release_statement: RELEASE name release_from_opt - 931 release_from_opt: /* empty */ + 931 release_from_opt: ε 932 | FROM gname - 933 $@101: /* empty */ + 933 $@101: ε 934 write_statement: WRITE name write_from_opt write_options $@101 invalid_key_opt end_write_opt - 935 write_from_opt: /* empty */ + 935 write_from_opt: ε 936 | FROM gname - 937 write_options: /* empty */ + 937 write_options: ε 938 | before_after advancing_opt gname line_lines_opt 939 | before_after advancing_opt PAGE - 940 end_write_opt: /* empty */ + 940 end_write_opt: ε 941 | END_WRITE - 942 $@102: /* empty */ + 942 $@102: ε 943 rewrite_statement: REWRITE name write_from_opt $@102 invalid_key_opt end_rewrite_opt - 944 end_rewrite_opt: /* empty */ + 944 end_rewrite_opt: ε 945 | END_REWRITE - 946 $@103: /* empty */ + 946 $@103: ε 947 delete_statement: DELETE name record_opt $@103 invalid_key_opt end_delete_opt - 948 end_delete_opt: /* empty */ + 948 end_delete_opt: ε 949 | END_DELETE - 950 $@104: /* empty */ + 950 $@104: ε 951 start_statement: START start_body invalid_key_opt $@104 end_start_opt 952 start_body: name 953 | name KEY is_opt cond_op name - 954 end_start_opt: /* empty */ + 954 end_start_opt: ε 955 | END_START 956 goto_statement: GO to_opt goto_label @@ -1541,38 +1541,38 @@ Grammar 960 | goto_label_list label 961 | goto_label_list LISTSEP label - 962 $@105: /* empty */ + 962 $@105: ε - 963 @106: /* empty */ + 963 @106: ε - 964 @107: /* empty */ + 964 @107: ε - 965 @108: /* empty */ + 965 @108: ε - 966 $@109: /* empty */ + 966 $@109: ε 967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options @106 @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt 968 | CALL - 969 call_convention_opt: /* empty */ + 969 call_convention_opt: ε 970 | CALL_CONV_C 971 | CALL_CONV_STDCALL - 972 $@110: /* empty */ + 972 $@110: ε 973 call_loadlib_statement: CALL_LOADLIB gname $@110 end_call_loadlib_opt 974 | CALL_LOADLIB 975 end_call_loadlib_opt: END_CALL_LOADLIB - 976 | /* empty */ + 976 | ε - 977 $@111: /* empty */ + 977 $@111: ε - 978 @112: /* empty */ + 978 @112: ε - 979 @113: /* empty */ + 979 @113: ε - 980 $@114: /* empty */ + 980 $@114: ε 981 chain_statement: CHAIN $@111 gname using_options @112 @113 on_exception_or_overflow $@114 end_chain_opt 982 | CHAIN @@ -1595,28 +1595,28 @@ Grammar 993 var_list_gname: gname sep_opt 994 | var_list_gname gname sep_opt - 995 rounded_opt: /* empty */ + 995 rounded_opt: ε 996 | ROUNDED - 997 on_size_error_opt: /* empty */ + 997 on_size_error_opt: ε 998 | NOT on_opt SIZE on_size_error 999 | on_opt SIZE on_size_error - 1000 $@115: /* empty */ + 1000 $@115: ε 1001 on_size_error_opt: on_opt SIZE on_size_error NOT on_opt SIZE $@115 on_size_error - 1002 @116: /* empty */ + 1002 @116: ε 1003 on_size_error: ERROR_TOK @116 statement_list - 1004 size_opt: /* empty */ + 1004 size_opt: ε 1005 | SIZE - 1006 end_call_opt: /* empty */ + 1006 end_call_opt: ε 1007 | END_CALL - 1008 end_chain_opt: /* empty */ + 1008 end_chain_opt: ε 1009 | END_CHAIN 1010 set_statement: SET set_list @@ -1638,19 +1638,19 @@ Grammar 1022 | NULL_TOK 1023 | TRUE_TOK - 1024 address_of_opt: /* empty */ + 1024 address_of_opt: ε 1025 | ADDRESS of_opt - 1026 $@117: /* empty */ + 1026 $@117: ε 1027 string_statement: STRINGCMD string_from_list INTO name string_with_pointer $@117 on_overflow_opt end_stringcmd_opt - 1028 $@118: /* empty */ + 1028 $@118: ε 1029 unstring_statement: UNSTRING name unstring_delimited INTO unstring_destinations string_with_pointer unstring_tallying $@118 on_overflow_opt end_unstring_opt 1030 unstring_delimited: DELIMITED by_opt unstring_delimited_vars - 1031 | /* empty */ + 1031 | ε 1032 unstring_delimited_vars: all_opt gname 1033 | unstring_delimited_vars OR all_opt gname @@ -1660,55 +1660,55 @@ Grammar 1036 unstring_dest_var: name unstring_delim_opt unstring_count_opt - 1037 unstring_delim_opt: /* empty */ + 1037 unstring_delim_opt: ε 1038 | DELIMITER in_opt name - 1039 unstring_count_opt: /* empty */ + 1039 unstring_count_opt: ε 1040 | COUNT in_opt name - 1041 unstring_tallying: /* empty */ + 1041 unstring_tallying: ε 1042 | TALLYING in_opt name - 1043 all_opt: /* empty */ + 1043 all_opt: ε 1044 | ALL - 1045 $@119: /* empty */ + 1045 $@119: ε 1046 on_overflow_opt: $@119 on_overflow on_not_overflow - 1047 @120: /* empty */ + 1047 @120: ε 1048 on_exception_or_overflow: on_opt exception_or_overflow @120 statement_list - 1049 | /* empty */ + 1049 | ε 1050 exception_or_overflow: EXCEPTION 1051 | OVERFLOW_TOK - 1052 @121: /* empty */ + 1052 @121: ε 1053 on_not_exception: NOT on_opt EXCEPTION @121 statement_list - 1054 | /* empty */ + 1054 | ε - 1055 @122: /* empty */ + 1055 @122: ε 1056 on_overflow: on_opt OVERFLOW_TOK @122 statement_list - 1057 | /* empty */ + 1057 | ε - 1058 @123: /* empty */ + 1058 @123: ε 1059 on_not_overflow: not_excep on_opt OVERFLOW_TOK @123 statement_list - 1060 | /* empty */ + 1060 | ε 1061 invalid_key_opt: invalid_key_sentence 1062 | not_invalid_key_sentence 1063 | invalid_key_sentence not_invalid_key_sentence - 1064 | /* empty */ + 1064 | ε - 1065 @124: /* empty */ + 1065 @124: ε 1066 invalid_key_sentence: INVALID key_opt @124 statement_list - 1067 @125: /* empty */ + 1067 @125: ε 1068 not_invalid_key_sentence: not_excep INVALID key_opt @125 statement_list @@ -1716,7 +1716,7 @@ Grammar 1070 | NOT 1071 string_with_pointer: with_opt POINTER name - 1072 | /* empty */ + 1072 | ε 1073 string_from_list: string_from 1074 | string_from_list sep_opt string_from @@ -1729,13 +1729,13 @@ Grammar 1079 | SIZE 1080 | error - 1081 end_stringcmd_opt: /* empty */ + 1081 end_stringcmd_opt: ε 1082 | END_STRINGCMD - 1083 end_unstring_opt: /* empty */ + 1083 end_unstring_opt: ε 1084 | END_UNSTRING - 1085 $@126: /* empty */ + 1085 $@126: ε 1086 inspect_statement: INSPECT name tallying_clause $@126 replacing_clause 1087 | INSPECT name converting_clause @@ -1743,25 +1743,25 @@ Grammar 1088 converting_clause: CONVERTING noallname TO noallname inspect_before_after 1089 tallying_clause: TALLYING tallying_list - 1090 | /* empty */ + 1090 | ε 1091 tallying_list: tallying_list name FOR tallying_for_list - 1092 | /* empty */ + 1092 | ε 1093 tallying_for_list: tallying_for_list CHARACTERS inspect_before_after 1094 | tallying_for_list ALL noallname inspect_before_after 1095 | tallying_for_list LEADING noallname inspect_before_after - 1096 | /* empty */ + 1096 | ε 1097 replacing_clause: REPLACING replacing_list - 1098 | /* empty */ + 1098 | ε 1099 replacing_list: replacing_list CHARACTERS BY noallname inspect_before_after 1100 | replacing_list replacing_kind replacing_by_list - 1101 | /* empty */ + 1101 | ε 1102 replacing_by_list: replacing_by_list noallname BY noallname inspect_before_after - 1103 | /* empty */ + 1103 | ε 1104 replacing_kind: ALL 1105 | LEADING @@ -1770,10 +1770,10 @@ Grammar 1108 inspect_before_after: inspect_before_after BEFORE initial_opt noallname 1109 | inspect_before_after AFTER initial_opt noallname - 1110 | /* empty */ + 1110 | ε 1111 initial_opt: INITIAL_TOK - 1112 | /* empty */ + 1112 | ε 1113 expr: gname 1114 | expr '*' expr @@ -1783,24 +1783,24 @@ Grammar 1118 | expr POW_OP expr 1119 | '(' expr ')' - 1120 expr_opt: /* empty */ + 1120 expr_opt: ε 1121 | expr - 1122 using_options: /* empty */ + 1122 using_options: ε - 1123 @127: /* empty */ + 1123 @127: ε - 1124 @128: /* empty */ + 1124 @128: ε 1125 using_options: USING @127 dummy @128 parm_list - 1126 returning_options: /* empty */ + 1126 returning_options: ε 1127 | RETURNING variable 1128 | GIVING variable - 1129 dummy: /* empty */ + 1129 dummy: ε - 1130 using_parameters: /* empty */ + 1130 using_parameters: ε 1131 | USING gname_list 1132 | CHAINING gname_list @@ -1823,47 +1823,47 @@ Grammar 1144 perform_options: perform_statements END_PERFORM - 1145 @129: /* empty */ + 1145 @129: ε - 1146 $@130: /* empty */ + 1146 $@130: ε 1147 perform_options: gname TIMES @129 perform_statements $@130 END_PERFORM - 1148 @131: /* empty */ + 1148 @131: ε - 1149 @132: /* empty */ + 1149 @132: ε - 1150 $@133: /* empty */ + 1150 $@133: ε 1151 perform_options: with_test_opt UNTIL @131 condition @132 perform_statements $@133 END_PERFORM - 1152 @134: /* empty */ + 1152 @134: ε - 1153 @135: /* empty */ + 1153 @135: ε - 1154 $@136: /* empty */ + 1154 $@136: ε 1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM 1156 | label perform_thru_opt - 1157 @137: /* empty */ + 1157 @137: ε 1158 perform_options: label perform_thru_opt with_test_opt UNTIL @137 condition 1159 | label perform_thru_opt gname TIMES - 1160 @138: /* empty */ + 1160 @138: ε - 1161 @139: /* empty */ + 1161 @139: ε 1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname UNTIL @138 condition @139 perform_after_opt - 1163 perform_thru_opt: /* empty */ + 1163 perform_thru_opt: ε 1164 | THRU label - 1165 with_test_opt: /* empty */ + 1165 with_test_opt: ε 1166 | with_opt TEST before_after - 1167 perform_after_opt: /* empty */ + 1167 perform_after_opt: ε 1168 | AFTER perform_after 1169 | AFTER perform_after AFTER perform_after 1170 | AFTER perform_after AFTER perform_after AFTER perform_after @@ -1871,27 +1871,27 @@ Grammar 1172 | AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after 1173 | AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after - 1174 @140: /* empty */ + 1174 @140: ε 1175 perform_after: name FROM gname by_opt gname UNTIL @140 condition - 1176 $@141: /* empty */ + 1176 $@141: ε 1177 perform_statements: $@141 statement_list 1178 before_after: BEFORE 1179 | AFTER - 1180 $@142: /* empty */ + 1180 $@142: ε 1181 condition: expr extended_cond_op $@142 expr_opt 1182 | NOT condition - 1183 @143: /* empty */ + 1183 @143: ε 1184 condition: condition AND @143 implied_op_condition - 1185 @144: /* empty */ + 1185 @144: ε 1186 condition: condition OR @144 implied_op_condition 1187 | '(' condition ')' @@ -1927,47 +1927,47 @@ Grammar 1211 conditional: CONDITIONAL than_to_opt - 1212 comma_opt: /* empty */ + 1212 comma_opt: ε 1213 | ',' - 1214 sep_opt: /* empty */ + 1214 sep_opt: ε 1215 | LISTSEP - 1216 key_opt: /* empty */ + 1216 key_opt: ε 1217 | KEY - 1218 advancing_opt: /* empty */ + 1218 advancing_opt: ε 1219 | ADVANCING - 1220 than_to_opt: /* empty */ + 1220 than_to_opt: ε 1221 | TO 1222 | THAN - 1223 record_opt: /* empty */ + 1223 record_opt: ε 1224 | RECORD - 1225 at_opt: /* empty */ + 1225 at_opt: ε 1226 | AT - 1227 in_opt: /* empty */ + 1227 in_opt: ε 1228 | IN 1229 in_of: IN 1230 | OF - 1231 by_opt: /* empty */ + 1231 by_opt: ε 1232 | BY - 1233 with_opt: /* empty */ + 1233 with_opt: ε 1234 | WITH - 1235 on_opt: /* empty */ + 1235 on_opt: ε 1236 | ON 1237 gname_opt: gname - 1238 | /* empty */ + 1238 | ε - 1239 to_opt: /* empty */ + 1239 to_opt: ε 1240 | TO 1241 name_var_list: name_var @@ -1979,7 +1979,7 @@ Grammar 1245 gname: name 1246 | gliteral - 1247 @145: /* empty */ + 1247 @145: ε 1248 gname: FUNCTION LABELSTR '(' @145 intrinsic_parm_list ')' 1249 | FUNCTION LABELSTR @@ -2018,7 +2018,7 @@ Grammar 1272 | '-' NLITERAL 1273 def_name_opt: def_name - 1274 | /* empty */ + 1274 | ε 1275 def_name: STRING 1276 | FILLER @@ -2031,7 +2031,7 @@ Grammar 1280 data_name: literal 1281 | STRING - 1282 $@146: /* empty */ + 1282 $@146: ε 1283 cond_name: VARCOND '(' $@146 subscripts ')' 1284 | VARCOND @@ -2044,7 +2044,7 @@ Grammar 1289 variable: qualified_var - 1290 $@147: /* empty */ + 1290 $@147: ε 1291 variable: qualified_var LPAR $@147 subscripts ')' @@ -2075,1664 +2075,2241 @@ Grammar Terminals, with rules where they appear -$end (0) 0 -'(' (40) 1119 1187 1248 1283 1285 -')' (41) 1119 1187 1248 1283 1285 1291 -'*' (42) 1114 -'+' (43) 410 1116 1271 1299 -',' (44) 1213 -'-' (45) 412 1117 1272 1300 -'.' (46) 594 -'/' (47) 1115 -':' (58) 1285 -error (256) 40 50 96 114 123 171 174 424 568 580 583 585 876 1075 1080 -LOW_PREC (258) -IDSTRING (259) 10 15 -STRING (260) 36 38 43 63 69 70 74 75 77 81 109 110 111 112 160 169 - 170 194 419 423 459 505 506 520 521 528 1275 1279 1281 1307 -VARIABLE (261) 435 1294 -VARCOND (262) 1283 1284 -SUBSCVAR (263) 436 1277 1295 -LABELSTR (264) 592 593 1248 1249 1287 1302 1303 1306 1308 -CMD_LINE (265) 828 -ENVIRONMENT_VARIABLE (266) 830 -INKEY (267) 826 -ESCKEY (268) 829 -CHAR (269) 480 -MULTIPLIER (270) 482 -USAGENUM (271) 466 -ZERONUM (272) -CONDITIONAL (273) 721 722 788 1211 -TO (274) 348 350 458 526 534 770 771 772 773 793 795 797 1011 1014 - 1088 1221 1240 -IS (275) 131 212 286 1199 1200 1201 -ARE (276) 133 213 287 -THRU (277) 67 89 453 475 679 1164 -THAN (278) 1222 -NO (279) 372 396 850 886 -COMMENTING (280) -DIRECTION (281) 459 754 755 -READ (282) 898 899 -WRITE (283) 934 -INPUT_OUTPUT (284) 93 -RELEASE (285) 930 -NLITERAL (286) 113 860 989 1270 1271 1272 1304 1305 1306 -CLITERAL (287) 60 66 67 830 988 1269 -PORTNUM (288) 119 121 -DATE_TIME (289) 831 -POW_OP (290) 1118 -OR (291) 1033 1186 1201 1204 1210 -AND (292) 724 1184 -NOT (293) 690 910 914 916 925 998 1001 1053 1070 1182 1200 1203 1209 -ACCEPT (294) 825 826 827 828 829 830 831 832 836 -ACCESS (295) 108 -ADD (296) 791 792 -ADDRESS (297) 1025 -ADVANCING (298) 372 396 850 1219 -AFTER (299) 584 1109 1168 1169 1170 1171 1172 1173 1179 -ALL (300) 649 736 1044 1094 1104 1258 1259 -ALPHABET (301) 81 -ALPHABETIC (302) 781 1196 -ALPHABETIC_LOWER (303) 1197 -ALPHABETIC_UPPER (304) 1198 -ALPHANUMERIC (305) 782 -ALPHANUMERIC_EDITED (306) 784 -ALSO (307) 91 92 658 673 -ALTERNATE (308) 112 -ANY (309) 675 -AREA (310) 128 165 -AREAS (311) 129 -ASSIGN (312) 107 -AT (313) 516 517 860 861 911 914 1226 -AUTHOR (314) 23 -AUTO (315) 361 385 -BACKGROUNDCOLOR (316) 334 400 -BEFORE (317) 1108 1178 -BELL (318) 356 380 -BLANK (319) 298 351 352 369 375 376 393 446 -BLINK (320) 364 388 -BLOCK (321) 499 -BOTTOM (322) 513 -BY (323) 780 809 810 815 816 1012 1013 1099 1102 1232 -CALL (324) 967 968 -CALL_CONV_C (325) 970 -CALL_CONV_STDCALL (326) 971 -CALL_LOADLIB (327) 973 974 -CANCEL (328) 735 736 -CENTER (329) 283 -CF (330) 257 -CH (331) 254 -CHAIN (332) 981 982 -CHAINING (333) 1132 -CHARACTER (334) 405 -CHARACTERS (335) 523 548 1093 1099 -CLASS (336) 63 -CLOSE (337) 879 880 -CODE (338) 198 -CODE_SET (339) 506 -COLLATING (340) 44 -COLOR (341) 336 -COLUMN (342) 277 278 279 329 858 -COLUMNS (343) 280 -COMMA (344) 68 -COMMON (345) 18 -COMPUTE (346) 786 787 -CONFIGURATION (347) 31 -CONSOLE (348) 846 -CONTAINS (349) 546 -CONTENT (350) 1139 -CONTINUE (351) 641 -CONTROL (352) 209 245 248 -CONTROLS (353) 210 -CONVERTING (354) 1088 -CORRESPONDING (355) 771 795 804 -COUNT (356) 1040 -CURRENCY (357) 60 -CURSOR (358) 70 -DATA (359) 176 504 552 -DATE_COMPILED (360) 25 -DATE_WRITTEN (361) 24 -DE (362) 255 -DEBUGGING (363) 46 -DECIMAL_POINT (364) 68 -DECLARATIVES (365) 571 -DELETE (366) 947 -DELIMITED (367) 1030 1077 -DELIMITER (368) 1038 -DEPENDING (369) 458 528 957 -DETAIL (370) 217 219 246 -DISPLAY (371) 264 265 467 841 842 843 -DISPLAY_SCREEN (372) 69 -DIVIDE (373) 813 814 -DIVISION (374) 15 29 176 559 -DOWN (375) 1013 -DUPLICATES (376) 124 761 -DYNAMIC (377) 143 -ELSE (378) 647 -END (379) 10 571 705 918 -END_ACCEPT (380) 838 -END_ADD (381) 799 -END_CALL (382) 1007 -END_CALL_LOADLIB (383) 975 -END_CHAIN (384) 1009 -END_COMPUTE (385) 790 -END_DELETE (386) 949 -END_DISPLAY (387) 856 -END_DIVIDE (388) 821 -END_EVALUATE (389) 653 -END_IF (390) 692 -END_MULTIPLY (391) 812 -END_OF_PAGE (392) -END_PERFORM (393) 1144 1147 1151 1155 -END_READ (394) 927 -END_RETURN (395) 929 -END_REWRITE (396) 945 -END_SEARCH (397) 726 -END_START (398) 955 -END_STRINGCMD (399) 1082 -END_SUBTRACT (400) 806 -END_UNSTRING (401) 1084 -END_WRITE (402) 941 -ENVIRONMENT (403) 29 -EOL (404) 353 377 853 -EOS (405) 354 378 852 -ERASE (406) 353 354 355 377 378 379 851 852 853 854 -ERROR_TOK (407) 587 589 1003 -EVALUATE (408) 652 -EXCEPTION (409) 586 588 836 1050 1053 -EXIT (410) 983 984 985 -EXTEND (411) 875 -EXTERNAL (412) 122 444 487 -FALSE_TOK (413) 662 677 -FD (414) 419 -FILE_CONTROL (415) 97 -FILE_ID (416) 503 -FILE_TOK (417) 115 157 179 -FILLER (418) 1276 -FINAL (419) 221 305 313 -FIRST (420) 219 1107 -FOOTING (421) 215 248 249 250 509 -FOR (422) 167 1091 -FOREGROUNDCOLOR (423) 332 399 -FROM (424) 346 531 802 803 804 826 827 828 829 830 831 932 936 1155 - 1162 1175 -FULL (425) 358 382 -FUNCTION (426) 1248 1249 -GENERATE (427) 733 -GIVING (428) 767 794 803 809 815 816 817 818 1128 -GLOBAL (429) 197 445 488 -GO (430) 956 957 -GOBACK (431) 990 -GROUP (432) 267 297 -HEADING (433) 204 242 243 245 -HIGHLIGHT (434) 368 392 -HIGHVALUES (435) 1263 -IDENTIFICATION (436) 15 -IF (437) 684 -IGNORE (438) 892 -IN (439) 1228 1229 -INDEXED (440) 137 461 -INDICATE (441) 300 -INITIALIZE (442) 774 775 -INITIAL_TOK (443) 17 1111 -INITIATE (444) 732 -INPUT (445) 764 827 872 -INSPECT (446) 1086 1087 -INSTALLATION (447) 26 -INTO (448) 817 818 819 907 1027 1029 -INVALID (449) 923 925 1066 1068 -I_O (450) 873 -I_O_CONTROL (451) 99 -JUSTIFIED (452) 266 362 363 386 387 443 -KEY (453) 909 953 1217 -LABEL (454) 502 -LAST (455) 217 -LEADING (456) 308 401 1095 1105 -LEFT (457) 282 363 387 450 -LENGTH (458) 772 -LIMIT (459) 212 -LIMITS (460) 213 -LINAGE (461) 507 -LINE (462) 140 206 272 273 274 327 352 376 857 -LINES (463) 208 275 515 516 -LINKAGE (464) 185 -LISTSEP (465) 961 1215 -LOCK (466) 891 892 -LOWER (467) 374 398 -LOWLIGHT (468) 367 391 -LOWVALUES (469) 1264 -LPAR (470) 1291 -MERGE (471) 740 -MINUS (472) 411 -MODE (473) 46 135 -MOVE (474) 770 771 772 773 -MULTIPLE (475) 157 -MULTIPLY (476) 807 808 -NATIVE (477) 82 -NEGATIVE (478) 1193 -NEXT (479) 267 268 269 316 688 712 720 904 -NOECHO (480) 370 394 -NOTEXCEP (481) 1069 -NULL_TOK (482) 1018 1022 -NUMBER (483) 273 278 307 414 -NUMBERS (484) 274 279 -NUMERIC (485) 783 1195 -NUMERIC_EDITED (486) 785 -OBJECT_COMPUTER (487) 38 -OCCURS (488) 455 458 -OF (489) 317 503 772 1230 -OFF (490) 77 1021 -OMITTED (491) 538 -ON (492) 75 268 1020 1236 -ONLY (493) -OPEN (494) 868 869 -OPTIONAL (495) 126 -ORDER (496) 550 -ORGANIZATION (497) 117 -OTHER (498) 674 -OUTPUT (499) 766 874 -OVERFLOW_TOK (500) 1051 1056 1059 -PADDING (501) -PAGE (502) 202 243 249 268 269 316 939 -PAGE_COUNTER (503) 295 -PARAGRAPH (504) 984 -PERFORM (505) 642 -PF (506) 258 -PH (507) 252 -PICTURE (508) 263 477 -PLUS (509) 271 315 409 -POINTER (510) 468 1071 -POSITION (511) 162 859 -POSITIVE (512) 1192 -PREVIOUS (513) 905 -PROCEDURE (514) 559 584 764 766 -PROCEED (515) -PROGRAM (516) 10 20 41 985 -PROGRAM_ID (517) 15 -QUOTES (518) 1262 -RANDOM (519) 144 -RD (520) 194 -READY (521) 730 -RECORD (522) 110 112 154 500 501 535 1224 -RECORDS (523) 524 536 -REDEFINES (524) 434 -REEL (525) 887 889 -REFERENCE (526) 1137 -RELATIVE (527) 111 139 -REMAINDER (528) 816 817 -REMOVAL (529) 889 890 -RENAMES (530) 448 -REPLACING (531) 777 1097 -REPORT (532) 187 242 250 518 -REPORTS (533) 519 -REQUIRED (534) 359 383 -RESERVE (535) 113 -RESET (536) 304 305 731 -RETURN (537) 894 895 -RETURNING (538) 1127 -REVERSEVIDEO (539) 365 389 -REWIND (540) 886 -REWRITE (541) 943 -RF (542) 259 -RH (543) 251 -RIGHT (544) 284 311 362 386 451 -ROUNDED (545) 996 -RUN (546) 986 -SAME (547) 152 -SCREEN (548) 320 351 375 854 -SD (549) 423 -SEARCH (550) 648 649 -SECTION (551) 31 93 179 182 185 187 320 592 -SECURE (552) 360 384 -SECURITY (553) 27 -SELECT (554) 103 -SENTENCE (555) 688 712 720 -SEPARATE (556) 260 261 403 -SEQUENCE (557) 43 -SEQUENTIAL (558) 138 140 142 -SET (559) 1010 -SIGN (560) 61 260 407 -SIZE (561) 341 998 999 1001 1005 1079 -SORT (562) 155 747 749 -SORT_MERGE (563) 156 -SOURCE (564) 289 -SOURCE_COMPUTER (565) 36 -SPACES (566) 1260 -SPECIAL_NAMES (567) 39 -STANDARD (568) 537 588 589 -STANDARD_1 (569) 83 -STANDARD_2 (570) 84 -START (571) 951 -STATUS (572) 69 79 109 827 -STD_ERROR (573) 848 -STD_OUTPUT (574) 847 -STOP (575) 986 987 -STRINGCMD (576) 1027 -SUBTRACT (577) 800 801 -SUM (578) 293 -SYNCHRONIZED (579) 442 -TALLYING (580) 1042 1089 -TAPE (581) 163 -TCOBPROTO1 (582) 728 -TCOBPROTO2 (583) 729 -TERMINATE (584) 734 -TEST (585) 1166 -THEN (586) 694 -TIMES (587) 542 1147 1159 -TOKDUMMY (588) -TOP (589) 511 -TRACE (590) 730 731 -TRAILING (591) 309 402 1106 -TRUE_TOK (592) 661 676 1023 -TYPE (593) 241 -UNDERLINE (594) 366 390 -UNIT (595) 888 890 -UNLOCK (596) 727 -UNSTRING (597) 1029 -UNTIL (598) 1151 1155 1158 1162 1175 -UP (599) 1012 -UPDATE (600) 371 395 -UPON (601) 302 846 847 848 -UPPER (602) 373 397 -USAGE (603) 264 540 -USE (604) 584 -USING (605) 344 741 765 1125 1131 -VALUE (606) 290 470 503 1138 -VALUES (607) 471 -VARYING (608) 501 702 1155 1162 -WHEN (609) 544 665 669 710 718 -WITH (610) 1234 -WORKING_STORAGE (611) 182 -ZERO (612) 298 369 393 446 1194 1261 -PERIOD_TOK (613) 15 23 24 25 26 27 29 31 36 38 39 49 93 97 99 103 147 - 176 179 182 185 187 194 227 320 325 419 423 429 559 566 568 569 - 571 578 580 584 592 595 654 + $end (0) 0 + '(' (40) 1119 1187 1248 1283 1285 + ')' (41) 1119 1187 1248 1283 1285 1291 + '*' (42) 1114 + '+' (43) 410 1116 1271 1299 + ',' (44) 1213 + '-' (45) 412 1117 1272 1300 + '.' (46) 594 + '/' (47) 1115 + ':' (58) 1285 + error (256) 40 50 96 114 123 171 174 424 568 580 583 585 876 1075 1080 + LOW_PREC (258) + IDSTRING (259) 10 15 + STRING (260) 36 38 43 63 69 70 74 75 77 81 109 110 111 112 160 169 170 194 419 423 459 505 506 520 521 528 1275 1279 1281 1307 + VARIABLE (261) 435 1294 + VARCOND (262) 1283 1284 + SUBSCVAR (263) 436 1277 1295 + LABELSTR (264) 592 593 1248 1249 1287 1302 1303 1306 1308 + CMD_LINE (265) 828 + ENVIRONMENT_VARIABLE (266) 830 + INKEY (267) 826 + ESCKEY (268) 829 + CHAR (269) 480 + MULTIPLIER (270) 482 + USAGENUM (271) 466 + ZERONUM (272) + CONDITIONAL (273) 721 722 788 1211 + TO (274) 348 350 458 526 534 770 771 772 773 793 795 797 1011 1014 1088 1221 1240 + IS (275) 131 212 286 1199 1200 1201 + ARE (276) 133 213 287 + THRU (277) 67 89 453 475 679 1164 + THAN (278) 1222 + NO (279) 372 396 850 886 + COMMENTING (280) + DIRECTION (281) 459 754 755 + READ (282) 898 899 + WRITE (283) 934 + INPUT_OUTPUT (284) 93 + RELEASE (285) 930 + NLITERAL (286) 113 860 989 1270 1271 1272 1304 1305 1306 + CLITERAL (287) 60 66 67 830 988 1269 + PORTNUM (288) 119 121 + DATE_TIME (289) 831 + POW_OP (290) 1118 + OR (291) 1033 1186 1201 1204 1210 + AND (292) 724 1184 + ACCEPT (293) 825 826 827 828 829 830 831 832 836 + ACCESS (294) 108 + ADD (295) 791 792 + ADDRESS (296) 1025 + ADVANCING (297) 372 396 850 1219 + AFTER (298) 584 1109 1168 1169 1170 1171 1172 1173 1179 + ALL (299) 649 736 1044 1094 1104 1258 1259 + ALPHABET (300) 81 + ALPHABETIC (301) 781 1196 + ALPHABETIC_LOWER (302) 1197 + ALPHABETIC_UPPER (303) 1198 + ALPHANUMERIC (304) 782 + ALPHANUMERIC_EDITED (305) 784 + ALSO (306) 91 92 658 673 + ALTERNATE (307) 112 + ANY (308) 675 + AREA (309) 128 165 + AREAS (310) 129 + ASSIGN (311) 107 + AT (312) 516 517 860 861 911 914 1226 + AUTHOR (313) 23 + AUTO (314) 361 385 + BACKGROUNDCOLOR (315) 334 400 + BEFORE (316) 1108 1178 + BELL (317) 356 380 + BLANK (318) 298 351 352 369 375 376 393 446 + BLINK (319) 364 388 + BLOCK (320) 499 + BOTTOM (321) 513 + BY (322) 780 809 810 815 816 1012 1013 1099 1102 1232 + CALL (323) 967 968 + CALL_CONV_C (324) 970 + CALL_CONV_STDCALL (325) 971 + CALL_LOADLIB (326) 973 974 + CANCEL (327) 735 736 + CENTER (328) 283 + CF (329) 257 + CH (330) 254 + CHAIN (331) 981 982 + CHAINING (332) 1132 + CHARACTER (333) 405 + CHARACTERS (334) 523 548 1093 1099 + CLASS (335) 63 + CLOSE (336) 879 880 + CODE (337) 198 + CODE_SET (338) 506 + COLLATING (339) 44 + COLOR (340) 336 + COLUMN (341) 277 278 279 329 858 + COLUMNS (342) 280 + COMMA (343) 68 + COMMON (344) 18 + COMPUTE (345) 786 787 + CONFIGURATION (346) 31 + CONSOLE (347) 846 + CONTAINS (348) 546 + CONTENT (349) 1139 + CONTINUE (350) 641 + CONTROL (351) 209 245 248 + CONTROLS (352) 210 + CONVERTING (353) 1088 + CORRESPONDING (354) 771 795 804 + COUNT (355) 1040 + CURRENCY (356) 60 + CURSOR (357) 70 + DATA (358) 176 504 552 + DATE_COMPILED (359) 25 + DATE_WRITTEN (360) 24 + DE (361) 255 + DEBUGGING (362) 46 + DECIMAL_POINT (363) 68 + DECLARATIVES (364) 571 + DELETE (365) 947 + DELIMITED (366) 1030 1077 + DELIMITER (367) 1038 + DEPENDING (368) 458 528 957 + DETAIL (369) 217 219 246 + DISPLAY (370) 264 265 467 841 842 843 + DISPLAY_SCREEN (371) 69 + DIVIDE (372) 813 814 + DIVISION (373) 15 29 176 559 + DOWN (374) 1013 + DUPLICATES (375) 124 761 + DYNAMIC (376) 143 + ELSE (377) 647 + END (378) 10 571 705 918 + END_ACCEPT (379) 838 + END_ADD (380) 799 + END_CALL (381) 1007 + END_CALL_LOADLIB (382) 975 + END_CHAIN (383) 1009 + END_COMPUTE (384) 790 + END_DELETE (385) 949 + END_DISPLAY (386) 856 + END_DIVIDE (387) 821 + END_EVALUATE (388) 653 + END_IF (389) 692 + END_MULTIPLY (390) 812 + END_OF_PAGE (391) + END_PERFORM (392) 1144 1147 1151 1155 + END_READ (393) 927 + END_RETURN (394) 929 + END_REWRITE (395) 945 + END_SEARCH (396) 726 + END_START (397) 955 + END_STRINGCMD (398) 1082 + END_SUBTRACT (399) 806 + END_UNSTRING (400) 1084 + END_WRITE (401) 941 + ENVIRONMENT (402) 29 + EOL (403) 353 377 853 + EOS (404) 354 378 852 + ERASE (405) 353 354 355 377 378 379 851 852 853 854 + ERROR_TOK (406) 587 589 1003 + EVALUATE (407) 652 + EXCEPTION (408) 586 588 836 1050 1053 + EXIT (409) 983 984 985 + EXTEND (410) 875 + EXTERNAL (411) 122 444 487 + FALSE_TOK (412) 662 677 + FD (413) 419 + FILE_CONTROL (414) 97 + FILE_ID (415) 503 + FILE_TOK (416) 115 157 179 + FILLER (417) 1276 + FINAL (418) 221 305 313 + FIRST (419) 219 1107 + FOOTING (420) 215 248 249 250 509 + FOR (421) 167 1091 + FOREGROUNDCOLOR (422) 332 399 + FROM (423) 346 531 802 803 804 826 827 828 829 830 831 932 936 1155 1162 1175 + FULL (424) 358 382 + FUNCTION (425) 1248 1249 + GENERATE (426) 733 + GIVING (427) 767 794 803 809 815 816 817 818 1128 + GLOBAL (428) 197 445 488 + GO (429) 956 957 + GOBACK (430) 990 + GROUP (431) 267 297 + HEADING (432) 204 242 243 245 + HIGHLIGHT (433) 368 392 + HIGHVALUES (434) 1263 + IDENTIFICATION (435) 15 + IF (436) 684 + IGNORE (437) 892 + IN (438) 1228 1229 + INDEXED (439) 137 461 + INDICATE (440) 300 + INITIALIZE (441) 774 775 + INITIAL_TOK (442) 17 1111 + INITIATE (443) 732 + INPUT (444) 764 827 872 + INSPECT (445) 1086 1087 + INSTALLATION (446) 26 + INTO (447) 817 818 819 907 1027 1029 + INVALID (448) 923 925 1066 1068 + I_O (449) 873 + I_O_CONTROL (450) 99 + JUSTIFIED (451) 266 362 363 386 387 443 + KEY (452) 909 953 1217 + LABEL (453) 502 + LAST (454) 217 + LEADING (455) 308 401 1095 1105 + LEFT (456) 282 363 387 450 + LENGTH (457) 772 + LIMIT (458) 212 + LIMITS (459) 213 + LINAGE (460) 507 + LINE (461) 140 206 272 273 274 327 352 376 857 + LINES (462) 208 275 515 516 + LINKAGE (463) 185 + LISTSEP (464) 961 1215 + LOCK (465) 891 892 + LOWER (466) 374 398 + LOWLIGHT (467) 367 391 + LOWVALUES (468) 1264 + LPAR (469) 1291 + MERGE (470) 740 + MINUS (471) 411 + MODE (472) 46 135 + MOVE (473) 770 771 772 773 + MULTIPLE (474) 157 + MULTIPLY (475) 807 808 + NATIVE (476) 82 + NEGATIVE (477) 1193 + NEXT (478) 267 268 269 316 688 712 720 904 + NOECHO (479) 370 394 + NOT (480) 690 910 914 916 925 998 1001 1053 1070 1182 1200 1203 1209 + NOTEXCEP (481) 1069 + NULL_TOK (482) 1018 1022 + NUMBER (483) 273 278 307 414 + NUMBERS (484) 274 279 + NUMERIC (485) 783 1195 + NUMERIC_EDITED (486) 785 + OBJECT_COMPUTER (487) 38 + OCCURS (488) 455 458 + OF (489) 317 503 772 1230 + OFF (490) 77 1021 + OMITTED (491) 538 + ON (492) 75 268 1020 1236 + ONLY (493) + OPEN (494) 868 869 + OPTIONAL (495) 126 + ORDER (496) 550 + ORGANIZATION (497) 117 + OTHER (498) 674 + OUTPUT (499) 766 874 + OVERFLOW_TOK (500) 1051 1056 1059 + PADDING (501) + PAGE (502) 202 243 249 268 269 316 939 + PAGE_COUNTER (503) 295 + PARAGRAPH (504) 984 + PERFORM (505) 642 + PF (506) 258 + PH (507) 252 + PICTURE (508) 263 477 + PLUS (509) 271 315 409 + POINTER (510) 468 1071 + POSITION (511) 162 859 + POSITIVE (512) 1192 + PREVIOUS (513) 905 + PROCEDURE (514) 559 584 764 766 + PROCEED (515) + PROGRAM (516) 10 20 41 985 + PROGRAM_ID (517) 15 + QUOTES (518) 1262 + RANDOM (519) 144 + RD (520) 194 + READY (521) 730 + RECORD (522) 110 112 154 500 501 535 1224 + RECORDS (523) 524 536 + REDEFINES (524) 434 + REEL (525) 887 889 + REFERENCE (526) 1137 + RELATIVE (527) 111 139 + REMAINDER (528) 816 817 + REMOVAL (529) 889 890 + RENAMES (530) 448 + REPLACING (531) 777 1097 + REPORT (532) 187 242 250 518 + REPORTS (533) 519 + REQUIRED (534) 359 383 + RESERVE (535) 113 + RESET (536) 304 305 731 + RETURN (537) 894 895 + RETURNING (538) 1127 + REVERSEVIDEO (539) 365 389 + REWIND (540) 886 + REWRITE (541) 943 + RF (542) 259 + RH (543) 251 + RIGHT (544) 284 311 362 386 451 + ROUNDED (545) 996 + RUN (546) 986 + SAME (547) 152 + SCREEN (548) 320 351 375 854 + SD (549) 423 + SEARCH (550) 648 649 + SECTION (551) 31 93 179 182 185 187 320 592 + SECURE (552) 360 384 + SECURITY (553) 27 + SELECT (554) 103 + SENTENCE (555) 688 712 720 + SEPARATE (556) 260 261 403 + SEQUENCE (557) 43 + SEQUENTIAL (558) 138 140 142 + SET (559) 1010 + SIGN (560) 61 260 407 + SIZE (561) 341 998 999 1001 1005 1079 + SORT (562) 155 747 749 + SORT_MERGE (563) 156 + SOURCE (564) 289 + SOURCE_COMPUTER (565) 36 + SPACES (566) 1260 + SPECIAL_NAMES (567) 39 + STANDARD (568) 537 588 589 + STANDARD_1 (569) 83 + STANDARD_2 (570) 84 + START (571) 951 + STATUS (572) 69 79 109 827 + STD_ERROR (573) 848 + STD_OUTPUT (574) 847 + STOP (575) 986 987 + STRINGCMD (576) 1027 + SUBTRACT (577) 800 801 + SUM (578) 293 + SYNCHRONIZED (579) 442 + TALLYING (580) 1042 1089 + TAPE (581) 163 + TCOBPROTO1 (582) 728 + TCOBPROTO2 (583) 729 + TERMINATE (584) 734 + TEST (585) 1166 + THEN (586) 694 + TIMES (587) 542 1147 1159 + TOKDUMMY (588) + TOP (589) 511 + TRACE (590) 730 731 + TRAILING (591) 309 402 1106 + TRUE_TOK (592) 661 676 1023 + TYPE (593) 241 + UNDERLINE (594) 366 390 + UNIT (595) 888 890 + UNLOCK (596) 727 + UNSTRING (597) 1029 + UNTIL (598) 1151 1155 1158 1162 1175 + UP (599) 1012 + UPDATE (600) 371 395 + UPON (601) 302 846 847 848 + UPPER (602) 373 397 + USAGE (603) 264 540 + USE (604) 584 + USING (605) 344 741 765 1125 1131 + VALUE (606) 290 470 503 1138 + VALUES (607) 471 + VARYING (608) 501 702 1155 1162 + WHEN (609) 544 665 669 710 718 + WITH (610) 1234 + WORKING_STORAGE (611) 182 + ZERO (612) 298 369 393 446 1194 1261 + PERIOD_TOK (613) 15 23 24 25 26 27 29 31 36 38 39 49 93 97 99 103 147 176 179 182 185 187 194 227 320 325 419 423 429 559 566 568 569 571 578 580 584 592 595 654 Nonterminals, with rules where they appear -$accept (368) - on left: 0 -root_ (369) - on left: 1, on right: 0 -program_sequences (370) - on left: 2 3 4, on right: 1 -program_sequence (371) - on left: 5 7 8, on right: 3 4 7 8 -$@1 (372) - on left: 6, on right: 7 -end_program (373) - on left: 10, on right: 5 7 8 -$@2 (374) - on left: 9, on right: 10 -program (375) - on left: 11, on right: 2 4 5 7 8 -identification_division (376) - on left: 15, on right: 11 -$@3 (377) - on left: 12, on right: 15 -$@4 (378) - on left: 13, on right: 15 -$@5 (379) - on left: 14, on right: 15 -programid_opts_opt (380) - on left: 16 17 18, on right: 15 -programid_program_opt (381) - on left: 19 20, on right: 17 18 -identification_division_options_opt (382) - on left: 21 22, on right: 15 22 -identification_division_option (383) - on left: 23 24 25 26 27, on right: 22 -environment_division_opt (384) - on left: 29 30, on right: 11 -$@6 (385) - on left: 28, on right: 29 -configuration_opt (386) - on left: 31 32, on right: 29 -configuration_section (387) - on left: 33 34, on right: 31 33 -configuration_option (388) - on left: 36 38 39 40, on right: 33 -$@7 (389) - on left: 35, on right: 36 -$@8 (390) - on left: 37, on right: 38 -program_collating_opt (391) - on left: 41 42, on right: 38 -collating_sequence (392) - on left: 43, on right: 41 763 -collating_opt (393) - on left: 44 45, on right: 43 -debug_mode_opt (394) - on left: 46 47, on right: 36 -special_names_opt (395) - on left: 48 49 50, on right: 39 -special_names (396) - on left: 51 52, on right: 49 52 -special_name (397) - on left: 53 54 55 56 57 58 59, on right: 51 52 -currency_details (398) - on left: 60, on right: 55 -sign_opt (399) - on left: 61 62, on right: 60 -special_name_class (400) - on left: 63, on right: 59 -special_name_class_item_list (401) - on left: 64 65, on right: 63 65 -special_name_class_item (402) - on left: 66 67, on right: 64 65 -decimal_point_details (403) - on left: 68, on right: 56 -screen_status_details (404) - on left: 69, on right: 57 -cursor_details (405) - on left: 70, on right: 58 -switches_details_list (406) - on left: 71 72, on right: 53 72 -switches_details (407) - on left: 74, on right: 72 -$@9 (408) - on left: 73, on right: 74 -switch_on_opt (409) - on left: 75 76, on right: 74 -switch_off_opt (410) - on left: 77 78, on right: 74 -status_opt (411) - on left: 79 80, on right: 75 77 -alphabet_details (412) - on left: 81, on right: 54 -alphabet_type (413) - on left: 82 83 84 85, on right: 81 -alphabet_literal_list (414) - on left: 86 87, on right: 85 87 -alphabet_literal_item (415) - on left: 88 89 90, on right: 86 87 -alphabet_also_list (416) - on left: 91 92, on right: 90 92 -input_output_opt (417) - on left: 93 94, on right: 29 -input_output_section (418) - on left: 95 96, on right: 93 -file_control_paragraph (419) - on left: 97, on right: 95 -i_o_control_paragraph (420) - on left: 98 99, on right: 95 -file_control (421) - on left: 100 101, on right: 97 101 -file_select (422) - on left: 103, on right: 100 101 -$@10 (423) - on left: 102, on right: 103 -select_clauses (424) - on left: 104 105, on right: 103 104 -select_clause (425) - on left: 106 107 108 109 110 111 112 113 114, on right: 104 -file_opt (426) - on left: 115 116, on right: 109 -organization_opt (427) - on left: 117 118, on right: 106 -assign_clause (428) - on left: 119 120 121 122 123, on right: 107 -with_duplicates (429) - on left: 124 125, on right: 112 -optional_opt (430) - on left: 126 127, on right: 103 -areas_opt (431) - on left: 128 129 130, on right: 113 -is_opt (432) - on left: 131 132, on right: 17 18 43 60 63 68 69 70 74 75 77 81 - 106 108 109 110 111 112 197 204 209 215 217 219 241 260 263 264 - 267 273 278 289 290 407 408 414 444 445 459 465 470 477 487 488 - 501 503 506 507 518 535 721 722 764 766 909 953 1203 -are_opt (433) - on left: 133 134, on right: 210 274 275 279 280 471 519 536 -mode_opt (434) - on left: 135 136, on right: 108 -organization_options (435) - on left: 137 138 139 140 141, on right: 106 -access_options (436) - on left: 142 143 144 145, on right: 108 -i_o_control_opt (437) - on left: 146 147, on right: 99 -i_o_control_list (438) - on left: 148 149, on right: 147 149 -i_o_control_clause (439) - on left: 150 151, on right: 148 149 -i_o_control_same_clause (440) - on left: 152, on right: 150 -same_clause_options (441) - on left: 153 154 155 156, on right: 152 -i_o_control_multiple_file_tape_clause (442) - on left: 157, on right: 151 -i_o_control_multiple_file_list (443) - on left: 158 159, on right: 157 159 -i_o_control_multiple_file (444) - on left: 160, on right: 158 159 -i_o_control_multiple_file_position_opt (445) - on left: 161 162, on right: 160 -tape_opt (446) - on left: 163 164, on right: 157 -are_opta (447) - on left: 165 166, on right: 152 -for_opt (448) - on left: 167 168, on right: 152 889 890 -string_list (449) - on left: 169 170 171, on right: 152 170 -name_list (450) - on left: 172 173 174, on right: 173 1015 -data_division_opt (451) - on left: 176 177, on right: 11 -$@11 (452) - on left: 175, on right: 176 -file_section_opt (453) - on left: 179 180, on right: 176 -$@12 (454) - on left: 178, on right: 179 -working_storage_opt (455) - on left: 182 183, on right: 176 -$@13 (456) - on left: 181, on right: 182 -linkage_section_opt (457) - on left: 185 186, on right: 176 -$@14 (458) - on left: 184, on right: 185 -report_section_opt (459) - on left: 187 188, on right: 176 -report_sections (460) - on left: 189 190, on right: 187 189 -report_section (461) - on left: 194, on right: 189 -$@15 (462) - on left: 191, on right: 194 -$@16 (463) - on left: 192, on right: 194 -$@17 (464) - on left: 193, on right: 194 -report_controls (465) - on left: 195 196, on right: 194 196 -report_control (466) - on left: 197 198 199 200, on right: 196 -report_controls_control (467) - on left: 201, on right: 199 -report_controls_page (468) - on left: 202, on right: 200 -heading_opt (469) - on left: 203 204, on right: 202 -line_lines_opt (470) - on left: 205 206, on right: 202 938 -lines_opt (471) - on left: 207 208, on right: 205 507 -control_is_are (472) - on left: 209 210, on right: 201 -limit_is_are_opt (473) - on left: 211 212 213, on right: 202 -footing_opt (474) - on left: 214 215, on right: 202 -last_detail_opt (475) - on left: 216 217, on right: 202 -first_detail_opt (476) - on left: 218 219, on right: 202 -final_opt (477) - on left: 220 221, on right: 201 -report_break_list (478) - on left: 222 223, on right: 201 223 -report_description (479) - on left: 224 225, on right: 194 225 -report_item (480) - on left: 227, on right: 224 225 -$@18 (481) - on left: 226, on right: 227 -report_clauses (482) - on left: 228 229, on right: 227 229 -report_clause (483) - on left: 230 231 232 233 234 235 236 237 238 239 240, on right: - 228 229 -report_clause_type (484) - on left: 241, on right: 232 -report_clause_type2 (485) - on left: 242 243 245 246 248 249 250 251 252 254 255 257 258 259, - on right: 241 -$@19 (486) - on left: 244, on right: 245 -$@20 (487) - on left: 247, on right: 248 -$@21 (488) - on left: 253, on right: 254 -$@22 (489) - on left: 256, on right: 257 -report_clause_sign_is (490) - on left: 260 261, on right: 235 -report_clause_picture (491) - on left: 263, on right: 234 -$@23 (492) - on left: 262, on right: 263 -report_clause_usage_display (493) - on left: 264 265, on right: 233 -report_clause_justified (494) - on left: 266, on right: 236 -report_clause_next_group (495) - on left: 267, on right: 231 -report_clause_line (496) - on left: 268 269 270 271, on right: 230 -report_clause_line_is (497) - on left: 272 273 274 275, on right: 268 269 270 271 -report_clause_column (498) - on left: 276, on right: 238 -report_clause_column_is (499) - on left: 277 278 279 280, on right: 276 -report_clause_column_orientation (500) - on left: 281 282 283 284, on right: 277 278 279 280 -is_are_opt (501) - on left: 285 286 287, on right: 272 277 -report_clause_svs (502) - on left: 289 290 293, on right: 239 -$@24 (503) - on left: 288, on right: 289 -$@25 (504) - on left: 291, on right: 293 -$@26 (505) - on left: 292, on right: 293 -gname_page_counter (506) - on left: 294 295, on right: 289 -report_clause_group_indicate (507) - on left: 296 297, on right: 240 -report_clause_blank_zero (508) - on left: 298, on right: 237 -indicate_opt (509) - on left: 299 300, on right: 297 -upon_opt (510) - on left: 301 302, on right: 293 -reset_opt (511) - on left: 303 304 305, on right: 293 -number_opt (512) - on left: 306 307, on right: 857 858 -leading_trailing (513) - on left: 308 309, on right: 260 261 -right_opt (514) - on left: 310 311, on right: 266 -name_final_opt (515) - on left: 312 313, on right: 245 248 254 257 -integer_on_next_page (516) - on left: 314 315 316, on right: 267 -of_opt (517) - on left: 317 318, on right: 1025 -screen_section_opt (518) - on left: 320 321, on right: 176 -$@27 (519) - on left: 319, on right: 320 -screen_section (520) - on left: 322 323, on right: 320 322 -screen_item (521) - on left: 325, on right: 322 -$@28 (522) - on left: 324, on right: 325 -screen_clauses (523) - on left: 327 329 330 332 334 336 337 338 339 341 342, on right: - 325 327 329 330 332 334 336 337 338 339 341 -$@29 (524) - on left: 326, on right: 327 -$@30 (525) - on left: 328, on right: 329 -$@31 (526) - on left: 331, on right: 332 -$@32 (527) - on left: 333, on right: 334 -$@33 (528) - on left: 335, on right: 336 -$@34 (529) - on left: 340, on right: 341 -screen_source_destination (530) - on left: 344 346 348, on right: 337 -$@35 (531) - on left: 343, on right: 344 -$@36 (532) - on left: 345, on right: 346 -$@37 (533) - on left: 347, on right: 348 -screen_to_name (534) - on left: 349 350, on right: 346 -screen_attrib (535) - on left: 351 352 353 354 355 356 357 358 359 360 361 362 363 364 - 365 366 367 368 369 370 371 372 373 374, on right: 330 -screen_attribx (536) - on left: 375 376 377 378 379 380 381 382 383 384 385 386 387 388 - 389 390 391 392 393 394 395 396 397 398 399 400, on right: 864 -sign_clause (537) - on left: 401 402, on right: 357 381 440 -separate_opt (538) - on left: 403 404, on right: 401 402 -character_opt (539) - on left: 405 406, on right: 260 261 403 -sign_is_opt (540) - on left: 407 408, on right: 401 402 -plus_minus_opt (541) - on left: 409 410 411 412 413, on right: 327 329 -number_is_opt (542) - on left: 414 415, on right: 327 329 -file_section (543) - on left: 419 423 424 425, on right: 179 419 423 -$@38 (544) - on left: 416, on right: 419 -$@39 (545) - on left: 417, on right: 419 -$@40 (546) - on left: 418, on right: 419 -$@41 (547) - on left: 420, on right: 423 -$@42 (548) - on left: 421, on right: 423 -$@43 (549) - on left: 422, on right: 423 -file_description (550) - on left: 426 427, on right: 419 423 427 -field_description (551) - on left: 429, on right: 426 427 553 556 -$@44 (552) - on left: 428, on right: 429 -data_clauses (553) - on left: 430 431 432, on right: 429 431 432 -redefines_clause (554) - on left: 434, on right: 432 -$@45 (555) - on left: 433, on right: 434 -redefines_var (556) - on left: 435 436, on right: 434 -data_clause (557) - on left: 437 438 439 440 441 442 443 444 445 446 448, on right: - 431 -$@46 (558) - on left: 447, on right: 448 -sync_options (559) - on left: 449 450 451, on right: 442 443 -thru_gname_opt (560) - on left: 452 453, on right: 448 -array_options (561) - on left: 455 458, on right: 437 -$@47 (562) - on left: 454, on right: 455 -$@48 (563) - on left: 456, on right: 458 -$@49 (564) - on left: 457, on right: 458 -key_is_opt (565) - on left: 459 460, on right: 461 -indexed_by_opt (566) - on left: 461 462, on right: 455 458 -index_name_list (567) - on left: 463 464, on right: 461 464 -usage_option (568) - on left: 465, on right: 439 -usage (569) - on left: 466 467 468, on right: 465 -value_option (570) - on left: 469, on right: 441 -value_is_are (571) - on left: 470 471, on right: 338 469 -value_list (572) - on left: 472 473, on right: 469 473 -value (573) - on left: 474 475, on right: 472 473 -pictures (574) - on left: 477, on right: 339 438 -$@50 (575) - on left: 476, on right: 477 -picture (576) - on left: 478 479, on right: 263 477 479 -pic_elem (577) - on left: 480, on right: 479 -multiplier_opt (578) - on left: 481 482, on right: 480 -file_description_fd_clauses (579) - on left: 483 484, on right: 419 484 -file_description_sd_clauses (580) - on left: 485 486, on right: 423 486 -file_description_fd_clause (581) - on left: 487 488 489 490 491 492 493 494 495 496, on right: 484 -file_description_sd_clause (582) - on left: 497 498, on right: 486 -file_description_clause_block (583) - on left: 499, on right: 489 -file_description_clause_record (584) - on left: 500 501, on right: 490 497 -file_description_clause_label (585) - on left: 502, on right: 491 -file_description_clause_value (586) - on left: 503, on right: 492 -file_description_clause_data (587) - on left: 504, on right: 493 498 -file_description_clause_report (588) - on left: 505, on right: 494 -file_description_clause_code_set (589) - on left: 506, on right: 496 -file_description_clause_linage (590) - on left: 507, on right: 495 -file_description_clause_linage_footing (591) - on left: 508 509, on right: 507 -file_description_clause_linage_top (592) - on left: 510 511, on right: 507 -file_description_clause_linage_bottom (593) - on left: 512 513, on right: 507 -lines_at_opt (594) - on left: 514 515 516 517, on right: 511 513 -report_is_are (595) - on left: 518 519, on right: 505 -var_strings (596) - on left: 520 521, on right: 504 521 -chars_or_recs_opt (597) - on left: 522 523 524, on right: 499 -to_integer_opt (598) - on left: 525 526, on right: 499 -depend_rec_varying (599) - on left: 527 528, on right: 501 -from_rec_varying (600) - on left: 529 530, on right: 501 -from_opt (601) - on left: 531 532, on right: 530 -to_rec_varying (602) - on left: 533 534, on right: 500 501 -record_is_are (603) - on left: 535 536, on right: 502 504 -std_or_omitt (604) - on left: 537 538, on right: 502 -usage_opt (605) - on left: 539 540, on right: 465 -times_opt (606) - on left: 541 542, on right: 455 458 -when_opt (607) - on left: 543 544, on right: 298 369 393 446 -contains_opt (608) - on left: 545 546, on right: 157 499 500 -character_opts (609) - on left: 547 548, on right: 500 501 -order_opt (610) - on left: 549 550, on right: 761 -data_opt (611) - on left: 551 552, on right: 780 -working_storage_section (612) - on left: 553 554, on right: 182 553 -linkage_section (613) - on left: 555 556, on right: 185 556 -procedure_division_opt (614) - on left: 559 560, on right: 11 -$@51 (615) - on left: 557, on right: 559 -$@52 (616) - on left: 558, on right: 559 -procedure_division (617) - on left: 561 562, on right: 559 562 -procedure_decl (618) - on left: 563 564 566 568 569, on right: 562 -$@53 (619) - on left: 565, on right: 566 -$@54 (620) - on left: 567, on right: 568 -declaratives_opt (621) - on left: 571 572, on right: 559 -$@55 (622) - on left: 570, on right: 571 -declaratives_division (623) - on left: 573 574, on right: 571 574 -declaratives_decl (624) - on left: 575 576 578 580, on right: 574 -$@56 (625) - on left: 577, on right: 578 -$@57 (626) - on left: 579, on right: 580 -declaratives_procedure (627) - on left: 582 583, on right: 571 575 -$@58 (628) - on left: 581, on right: 582 -use_phrase (629) - on left: 584 585, on right: 582 -use_phrase_exception_error (630) - on left: 586 587 588 589, on right: 584 -use_phrase_option (631) - on left: 590 591, on right: 584 -procedure_section (632) - on left: 592, on right: 563 582 -paragraph (633) - on left: 593, on right: 564 576 -dot_or_eos (634) - on left: 594 595, on right: 593 -statement_list (635) - on left: 596, on right: 686 705 711 719 836 918 923 925 1003 1048 - 1053 1056 1059 1066 1068 1177 -statements (636) - on left: 597 598, on right: 566 578 596 598 -statement (637) - on left: 599 600 601 602 603 604 605 606 607 608 609 610 611 612 - 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 - 629 630 631 632 633 634 635 636 637 638 639 640 641, on right: - 597 598 -perform_statement (638) - on left: 642, on right: 617 -if_statement (639) - on left: 644 647, on right: 638 -$@59 (640) - on left: 643, on right: 644 -@60 (641) - on left: 645, on right: 647 -$@61 (642) - on left: 646, on right: 647 -search_statement (643) - on left: 648 649, on right: 640 -evaluate_statement (644) - on left: 652, on right: 639 -@62 (645) - on left: 650, on right: 652 -$@63 (646) - on left: 651, on right: 652 -end_evaluate_or_eos (647) - on left: 653 654, on right: 652 -selection_subject_set (648) - on left: 656 658, on right: 652 658 -@64 (649) - on left: 655, on right: 656 -@65 (650) - on left: 657, on right: 658 -selection_subject (651) - on left: 659 660 661 662, on right: 656 658 -when_case_list (652) - on left: 665 669, on right: 652 669 -@66 (653) - on left: 663, on right: 665 -@67 (654) - on left: 664, on right: 665 -@68 (655) - on left: 666, on right: 669 -@69 (656) - on left: 667, on right: 669 -$@70 (657) - on left: 668, on right: 669 -when_case (658) - on left: 671 673 674, on right: 665 669 673 -@71 (659) - on left: 670, on right: 671 -@72 (660) - on left: 672, on right: 673 -selection_object (661) - on left: 675 676 677 678 679 680, on right: 671 673 -sentence_or_nothing (662) - on left: 681 682, on right: 665 669 -if_part (663) - on left: 684, on right: 644 647 -@73 (664) - on left: 683, on right: 684 -conditional_statement (665) - on left: 686 688, on right: 647 682 684 -$@74 (666) - on left: 685, on right: 686 -$@75 (667) - on left: 687, on right: 688 -not_opt (668) - on left: 689 690, on right: 678 679 680 -end_if_opt (669) - on left: 691 692, on right: 644 647 -end_then_opt (670) - on left: 693 694, on right: 684 -search (671) - on left: 698, on right: 648 -@76 (672) - on left: 695, on right: 698 -@77 (673) - on left: 696, on right: 698 -@78 (674) - on left: 697, on right: 698 -search_all (675) - on left: 701, on right: 649 -@79 (676) - on left: 699, on right: 701 -$@80 (677) - on left: 700, on right: 701 -search_varying_opt (678) - on left: 702 703, on right: 698 -search_at_end (679) - on left: 705 706, on right: 698 701 -@81 (680) - on left: 704, on right: 705 -search_when_list (681) - on left: 707 708, on right: 698 708 -search_when (682) - on left: 710, on right: 707 708 -@82 (683) - on left: 709, on right: 710 -search_when_statement (684) - on left: 711 712, on right: 710 -search_when_conditional (685) - on left: 713, on right: 710 -search_all_when_list (686) - on left: 714 715, on right: 701 715 -search_all_when (687) - on left: 718, on right: 714 715 -$@83 (688) - on left: 716, on right: 718 -@84 (689) - on left: 717, on right: 718 -search_all_when_statement (690) - on left: 719 720, on right: 718 -search_all_when_conditional (691) - on left: 721 722 724, on right: 718 724 -@85 (692) - on left: 723, on right: 724 -end_search_opt (693) - on left: 725 726, on right: 648 649 -unlock_statement (694) - on left: 727, on right: 637 -proto_statement (695) - on left: 728 729, on right: 633 -trace_statement (696) - on left: 730 731, on right: 634 -initiate_statement (697) - on left: 732, on right: 630 -generate_statement (698) - on left: 733, on right: 631 -terminate_statement (699) - on left: 734, on right: 632 -cancel_statement (700) - on left: 735 736, on right: 636 -merge_statement (701) - on left: 740, on right: 626 -$@86 (702) - on left: 737, on right: 740 -$@87 (703) - on left: 738, on right: 740 -$@88 (704) - on left: 739, on right: 740 -merge_using (705) - on left: 741, on right: 740 -sort_statement (706) - on left: 742 743, on right: 625 -sort_file (707) - on left: 747, on right: 742 -$@89 (708) - on left: 744, on right: 747 -$@90 (709) - on left: 745, on right: 747 -$@91 (710) - on left: 746, on right: 747 -sort_variable_indexed (711) - on left: 749, on right: 743 -$@92 (712) - on left: 748, on right: 749 -sort_keys (713) - on left: 750 751, on right: 740 747 751 -sort_keys_idx (714) - on left: 752 753, on right: 749 753 -sort_key (715) - on left: 754, on right: 750 751 -sort_key_idx (716) - on left: 755, on right: 752 753 -sort_keys_names (717) - on left: 756 757, on right: 754 757 -sort_keys_names_idx (718) - on left: 758 759, on right: 755 759 -sort_duplicates_opt (719) - on left: 760 761, on right: 747 749 -sort_collating_opt (720) - on left: 762 763, on right: 740 747 749 -sort_input (721) - on left: 764 765, on right: 747 -sort_output (722) - on left: 766 767, on right: 740 747 -sort_file_list (723) - on left: 768 769, on right: 741 765 767 769 -move_statement (724) - on left: 770 771 772 773, on right: 599 -initialize_statement (725) - on left: 774 775, on right: 600 -initialize_replacing_opt (726) - on left: 776 777, on right: 774 -initialize_replacing_lists (727) - on left: 778 779, on right: 777 779 -initialize_replacing_list (728) - on left: 780, on right: 778 779 -initialize_type_list (729) - on left: 781 782 783 784 785, on right: 780 -compute_statement (730) - on left: 786 787, on right: 601 -compute_body (731) - on left: 788, on right: 786 -end_compute_opt (732) - on left: 789 790, on right: 786 -add_statement (733) - on left: 791 792, on right: 602 -add_body (734) - on left: 793 794 795, on right: 791 -add_to_opt (735) - on left: 796 797, on right: 794 -end_add_opt (736) - on left: 798 799, on right: 791 -subtract_statement (737) - on left: 800 801, on right: 603 -subtract_body (738) - on left: 802 803 804, on right: 800 -end_subtract_opt (739) - on left: 805 806, on right: 800 -multiply_statement (740) - on left: 807 808, on right: 604 -multiply_body (741) - on left: 809 810, on right: 807 -end_multiply_opt (742) - on left: 811 812, on right: 807 -divide_statement (743) - on left: 813 814, on right: 605 -divide_body (744) - on left: 815 816 817 818 819, on right: 813 -end_divide_opt (745) - on left: 820 821, on right: 813 -accept_statement (746) - on left: 822 823 824 825, on right: 606 -accept_hardware (747) - on left: 826 827 828 829 830, on right: 822 -accept_chronological (748) - on left: 831, on right: 823 -accept_screen (749) - on left: 832 836, on right: 824 -$@93 (750) - on left: 833, on right: 836 -@94 (751) - on left: 834, on right: 836 -$@95 (752) - on left: 835, on right: 836 -end_accept_opt (753) - on left: 837 838, on right: 826 827 828 829 830 831 832 836 -display_statement (754) - on left: 839 840 841, on right: 607 -display_line (755) - on left: 842, on right: 839 -display_screen (756) - on left: 843, on right: 840 -display_varlist (757) - on left: 844 845, on right: 842 843 845 -display_upon (758) - on left: 846 847 848, on right: 842 -display_line_options (759) - on left: 849 850 851 852 853 854, on right: 842 850 851 852 853 - 854 -end_display_opt (760) - on left: 855 856, on right: 842 843 -scr_line (761) - on left: 857, on right: 865 -scr_position (762) - on left: 858 859, on right: 866 -scr_line_position (763) - on left: 860 861, on right: 867 -accept_display_options (764) - on left: 862 863, on right: 832 836 843 863 -accept_display_option (765) - on left: 864 865 866 867, on right: 863 -open_statement (766) - on left: 868 869, on right: 608 -open_options (767) - on left: 870 871, on right: 868 871 -open_mode (768) - on left: 872 873 874 875 876, on right: 591 870 871 -open_varlist (769) - on left: 877 878, on right: 870 871 878 -close_statement (770) - on left: 879 880, on right: 609 -close_files (771) - on left: 881 882, on right: 879 882 -close_file (772) - on left: 883, on right: 881 882 -close_options_opt (773) - on left: 884 885, on right: 883 -close_options (774) - on left: 886 887 888 889 890, on right: 884 -with_lock_opt (775) - on left: 891 892 893, on right: 885 900 901 902 -return_statement (776) - on left: 894 895, on right: 611 -return_body (777) - on left: 896 897, on right: 894 -read_statement (778) - on left: 898 899, on right: 610 -read_body (779) - on left: 900 901 902, on right: 898 -read_next_opt (780) - on left: 903 904 905, on right: 900 901 902 -read_into_opt (781) - on left: 906 907, on right: 896 897 900 901 902 -read_key_opt (782) - on left: 908 909, on right: 900 901 902 -read_at_end_opt (783) - on left: 910 911 912 914 916, on right: 897 901 -$@96 (784) - on left: 913, on right: 914 -$@97 (785) - on left: 915, on right: 916 -on_end (786) - on left: 918, on right: 910 911 912 914 916 -@98 (787) - on left: 917, on right: 918 -read_invalid_key_opt (788) - on left: 919 920 921, on right: 902 -read_invalid_key (789) - on left: 923, on right: 919 921 -@99 (790) - on left: 922, on right: 923 -read_not_invalid_key (791) - on left: 925, on right: 920 921 -@100 (792) - on left: 924, on right: 925 -end_read_opt (793) - on left: 926 927, on right: 898 -end_return_opt (794) - on left: 928 929, on right: 894 -release_statement (795) - on left: 930, on right: 612 -release_from_opt (796) - on left: 931 932, on right: 930 -write_statement (797) - on left: 934, on right: 613 -$@101 (798) - on left: 933, on right: 934 -write_from_opt (799) - on left: 935 936, on right: 934 943 -write_options (800) - on left: 937 938 939, on right: 934 -end_write_opt (801) - on left: 940 941, on right: 934 -rewrite_statement (802) - on left: 943, on right: 614 -$@102 (803) - on left: 942, on right: 943 -end_rewrite_opt (804) - on left: 944 945, on right: 943 -delete_statement (805) - on left: 947, on right: 615 -$@103 (806) - on left: 946, on right: 947 -end_delete_opt (807) - on left: 948 949, on right: 947 -start_statement (808) - on left: 951, on right: 616 -$@104 (809) - on left: 950, on right: 951 -start_body (810) - on left: 952 953, on right: 951 -end_start_opt (811) - on left: 954 955, on right: 951 -goto_statement (812) - on left: 956 957, on right: 618 -goto_label (813) - on left: 958, on right: 956 -goto_label_list (814) - on left: 959 960 961, on right: 957 960 961 -call_statement (815) - on left: 967 968, on right: 621 -$@105 (816) - on left: 962, on right: 967 -@106 (817) - on left: 963, on right: 967 -@107 (818) - on left: 964, on right: 967 -@108 (819) - on left: 965, on right: 967 -$@109 (820) - on left: 966, on right: 967 -call_convention_opt (821) - on left: 969 970 971, on right: 967 -call_loadlib_statement (822) - on left: 973 974, on right: 622 -$@110 (823) - on left: 972, on right: 973 -end_call_loadlib_opt (824) - on left: 975 976, on right: 973 -chain_statement (825) - on left: 981 982, on right: 623 -$@111 (826) - on left: 977, on right: 981 -@112 (827) - on left: 978, on right: 981 -@113 (828) - on left: 979, on right: 981 -$@114 (829) - on left: 980, on right: 981 -exit_statement (830) - on left: 983 984 985, on right: 619 -stop_statement (831) - on left: 986 987, on right: 620 -stop_literal (832) - on left: 988 989, on right: 987 -goback_statement (833) - on left: 990, on right: 635 -var_list_name (834) - on left: 991 992, on right: 788 793 794 795 802 803 804 809 810 - 815 818 819 992 -var_list_gname (835) - on left: 993 994, on right: 793 794 795 802 803 804 994 -rounded_opt (836) - on left: 995 996, on right: 795 804 816 817 991 992 -on_size_error_opt (837) - on left: 997 998 999 1001, on right: 788 793 794 795 802 803 804 - 809 810 815 816 817 818 819 -$@115 (838) - on left: 1000, on right: 1001 -on_size_error (839) - on left: 1003, on right: 998 999 1001 -@116 (840) - on left: 1002, on right: 1003 -size_opt (841) - on left: 1004 1005, on right: 501 -end_call_opt (842) - on left: 1006 1007, on right: 967 -end_chain_opt (843) - on left: 1008 1009, on right: 981 -set_statement (844) - on left: 1010, on right: 624 -set_list (845) - on left: 1011 1012 1013 1014, on right: 1010 -set_target (846) - on left: 1015 1016, on right: 1011 1012 1013 -set_variable (847) - on left: 1017 1018, on right: 1014 -set_variable_or_nlit (848) - on left: 1019 1020 1021 1022 1023, on right: 1011 -address_of_opt (849) - on left: 1024 1025, on right: 1011 1014 -string_statement (850) - on left: 1027, on right: 628 -$@117 (851) - on left: 1026, on right: 1027 -unstring_statement (852) - on left: 1029, on right: 629 -$@118 (853) - on left: 1028, on right: 1029 -unstring_delimited (854) - on left: 1030 1031, on right: 1029 -unstring_delimited_vars (855) - on left: 1032 1033, on right: 1030 1033 -unstring_destinations (856) - on left: 1034 1035, on right: 1029 1035 -unstring_dest_var (857) - on left: 1036, on right: 1034 1035 -unstring_delim_opt (858) - on left: 1037 1038, on right: 1036 -unstring_count_opt (859) - on left: 1039 1040, on right: 1036 -unstring_tallying (860) - on left: 1041 1042, on right: 1029 -all_opt (861) - on left: 1043 1044, on right: 1032 1033 -on_overflow_opt (862) - on left: 1046, on right: 1027 1029 -$@119 (863) - on left: 1045, on right: 1046 -on_exception_or_overflow (864) - on left: 1048 1049, on right: 967 981 -@120 (865) - on left: 1047, on right: 1048 -exception_or_overflow (866) - on left: 1050 1051, on right: 1048 -on_not_exception (867) - on left: 1053 1054, on right: 967 -@121 (868) - on left: 1052, on right: 1053 -on_overflow (869) - on left: 1056 1057, on right: 1046 -@122 (870) - on left: 1055, on right: 1056 -on_not_overflow (871) - on left: 1059 1060, on right: 1046 -@123 (872) - on left: 1058, on right: 1059 -invalid_key_opt (873) - on left: 1061 1062 1063 1064, on right: 934 943 947 951 -invalid_key_sentence (874) - on left: 1066, on right: 1061 1063 -@124 (875) - on left: 1065, on right: 1066 -not_invalid_key_sentence (876) - on left: 1068, on right: 1062 1063 -@125 (877) - on left: 1067, on right: 1068 -not_excep (878) - on left: 1069 1070, on right: 1059 1068 -string_with_pointer (879) - on left: 1071 1072, on right: 1027 1029 -string_from_list (880) - on left: 1073 1074 1075, on right: 1027 1074 -string_from (881) - on left: 1076 1077, on right: 1073 1074 -delimited_by (882) - on left: 1078 1079 1080, on right: 1077 -end_stringcmd_opt (883) - on left: 1081 1082, on right: 1027 -end_unstring_opt (884) - on left: 1083 1084, on right: 1029 -inspect_statement (885) - on left: 1086 1087, on right: 627 -$@126 (886) - on left: 1085, on right: 1086 -converting_clause (887) - on left: 1088, on right: 1087 -tallying_clause (888) - on left: 1089 1090, on right: 1086 -tallying_list (889) - on left: 1091 1092, on right: 1089 1091 -tallying_for_list (890) - on left: 1093 1094 1095 1096, on right: 1091 1093 1094 1095 -replacing_clause (891) - on left: 1097 1098, on right: 1086 -replacing_list (892) - on left: 1099 1100 1101, on right: 1097 1099 1100 -replacing_by_list (893) - on left: 1102 1103, on right: 1100 1102 -replacing_kind (894) - on left: 1104 1105 1106 1107, on right: 1100 -inspect_before_after (895) - on left: 1108 1109 1110, on right: 1088 1093 1094 1095 1099 1102 - 1108 1109 -initial_opt (896) - on left: 1111 1112, on right: 1108 1109 -expr (897) - on left: 1113 1114 1115 1116 1117 1118 1119, on right: 659 678 - 679 788 857 858 859 1114 1115 1116 1117 1118 1119 1121 1181 1190 - 1191 -expr_opt (898) - on left: 1120 1121, on right: 1181 -using_options (899) - on left: 1122 1125, on right: 967 981 -@127 (900) - on left: 1123, on right: 1125 -@128 (901) - on left: 1124, on right: 1125 -returning_options (902) - on left: 1126 1127 1128, on right: 967 -dummy (903) - on left: 1129, on right: 1125 -using_parameters (904) - on left: 1130 1131 1132, on right: 559 -parm_list (905) - on left: 1133 1134, on right: 1125 1133 -parameter (906) - on left: 1135 1136, on right: 1133 1134 -parm_type (907) - on left: 1137 1138 1139, on right: 1136 -intrinsic_parm_list (908) - on left: 1140 1141, on right: 1140 1248 -intrinsic_parm (909) - on left: 1142, on right: 1140 1141 -perform_range (910) - on left: 1143, on right: 764 766 -perform_options (911) - on left: 1144 1147 1151 1155 1156 1158 1159 1162, on right: 642 -@129 (912) - on left: 1145, on right: 1147 -$@130 (913) - on left: 1146, on right: 1147 -@131 (914) - on left: 1148, on right: 1151 -@132 (915) - on left: 1149, on right: 1151 -$@133 (916) - on left: 1150, on right: 1151 -@134 (917) - on left: 1152, on right: 1155 -@135 (918) - on left: 1153, on right: 1155 -$@136 (919) - on left: 1154, on right: 1155 -@137 (920) - on left: 1157, on right: 1158 -@138 (921) - on left: 1160, on right: 1162 -@139 (922) - on left: 1161, on right: 1162 -perform_thru_opt (923) - on left: 1163 1164, on right: 1143 1156 1158 1159 1162 -with_test_opt (924) - on left: 1165 1166, on right: 1151 1155 1158 1162 -perform_after_opt (925) - on left: 1167 1168 1169 1170 1171 1172 1173, on right: 1155 1162 -perform_after (926) - on left: 1175, on right: 1168 1169 1170 1171 1172 1173 -@140 (927) - on left: 1174, on right: 1175 -perform_statements (928) - on left: 1177, on right: 1144 1147 1151 1155 -$@141 (929) - on left: 1176, on right: 1177 -before_after (930) - on left: 1178 1179, on right: 938 939 1166 -condition (931) - on left: 1181 1182 1184 1186 1187 1188, on right: 660 684 1151 - 1155 1158 1162 1175 1182 1184 1186 1187 1189 -$@142 (932) - on left: 1180, on right: 1181 -@143 (933) - on left: 1183, on right: 1184 -@144 (934) - on left: 1185, on right: 1186 -implied_op_condition (935) - on left: 1189 1190 1191, on right: 1184 1186 -sign_condition (936) - on left: 1192 1193 1194, on right: 1207 -class_condition (937) - on left: 1195 1196 1197 1198, on right: 1206 -extended_cond_op (938) - on left: 1199 1200 1201 1202 1203 1204, on right: 713 1181 -ext_cond (939) - on left: 1205 1206 1207, on right: 1199 1200 1201 1202 1203 1204 -cond_op (940) - on left: 1208 1209 1210, on right: 953 1190 -conditional (941) - on left: 1211, on right: 1205 1208 1209 1210 -comma_opt (942) - on left: 1212 1213, on right: 473 1297 -sep_opt (943) - on left: 1214 1215, on right: 845 878 882 991 992 993 994 1035 - 1074 1133 1140 1242 1244 -key_opt (944) - on left: 1216 1217, on right: 110 111 112 459 754 755 923 925 1066 - 1068 -advancing_opt (945) - on left: 1218 1219, on right: 938 939 -than_to_opt (946) - on left: 1220 1221 1222, on right: 1211 -record_opt (947) - on left: 1223 1224, on right: 896 897 900 901 902 947 -at_opt (948) - on left: 1225 1226, on right: 509 705 910 914 916 -in_opt (949) - on left: 1227 1228, on right: 501 761 1038 1040 1042 -in_of (950) - on left: 1229 1230, on right: 1293 1302 1305 1306 -by_opt (951) - on left: 1231 1232, on right: 461 1030 1077 1136 1155 1162 1175 -with_opt (952) - on left: 1233 1234, on right: 46 124 330 332 334 336 356 370 371 - 372 380 394 395 396 509 761 850 851 852 853 854 864 886 891 892 - 1071 1166 -on_opt (953) - on left: 1235 1236, on right: 458 528 584 754 755 836 957 998 999 - 1001 1048 1053 1056 1059 -gname_opt (954) - on left: 1237 1238, on right: 1285 -to_opt (955) - on left: 1239 1240, on right: 107 721 722 956 957 -name_var_list (956) - on left: 1241 1242, on right: 770 1242 -gname_list (957) - on left: 1243 1244, on right: 293 302 590 774 1131 1132 1244 -gname (958) - on left: 1245 1246 1248 1249, on right: 294 304 312 458 728 729 - 735 770 772 773 780 797 803 809 810 815 816 817 818 819 844 845 - 932 936 938 967 973 981 993 994 1032 1033 1076 1077 1078 1113 1135 - 1136 1142 1147 1155 1159 1162 1175 1237 1243 1244 1285 1288 1298 - 1299 1300 -@145 (959) - on left: 1247, on right: 1248 -name_or_lit (960) - on left: 1250 1251, on right: 327 329 332 334 336 341 344 346 713 - 1019 -noallname (961) - on left: 1252 1253, on right: 1088 1094 1095 1099 1102 1108 1109 -gliteral (962) - on left: 1254 1255, on right: 198 338 474 475 1246 -without_all_literal (963) - on left: 1256 1257, on right: 88 89 90 91 92 1253 1254 -all_literal (964) - on left: 1258 1259, on right: 1255 -special_literal (965) - on left: 1260 1261 1262 1263 1264, on right: 1257 1259 -var_or_nliteral (966) - on left: 1265 1266, on right: 1012 1013 -nliteral (967) - on left: 1267, on right: 530 534 1266 -literal (968) - on left: 1268 1269, on right: 290 722 1251 1256 1258 1278 1280 -signed_nliteral (969) - on left: 1270 1271 1272, on right: 1267 1268 1301 -def_name_opt (970) - on left: 1273 1274, on right: 227 325 429 -def_name (971) - on left: 1275 1276, on right: 103 463 464 1273 -variable_indexed (972) - on left: 1277, on right: 698 701 749 758 759 -filename (973) - on left: 1278 1279, on right: 120 121 122 503 -data_name (974) - on left: 1280 1281, on right: 507 509 511 513 -cond_name (975) - on left: 1283 1284, on right: 680 1016 1188 -$@146 (976) - on left: 1282, on right: 1283 -name (977) - on left: 1285 1286 1287, on right: 223 348 350 727 732 733 734 - 740 747 756 757 768 769 816 817 826 827 828 829 830 831 832 836 - 877 878 883 896 897 900 901 902 907 909 930 934 943 947 952 953 - 991 992 1027 1029 1036 1038 1040 1042 1071 1086 1087 1091 1155 - 1162 1175 1245 1250 1252 -name_var (978) - on left: 1288, on right: 771 772 1241 1242 -variable (979) - on left: 1289 1291, on right: 172 173 448 453 702 721 722 836 861 - 957 1014 1017 1127 1128 1265 1285 1286 -$@147 (980) - on left: 1290, on right: 1291 -qualified_var (981) - on left: 1292 1293, on right: 1289 1291 1293 -unqualified_var (982) - on left: 1294 1295, on right: 1292 1293 -subscripts (983) - on left: 1296 1297, on right: 1283 1291 1297 -subscript (984) - on left: 1298 1299 1300, on right: 1296 1297 1299 1300 -integer (985) - on left: 1301, on right: 162 202 204 215 217 219 227 268 269 270 - 271 276 314 315 325 399 400 429 455 458 499 500 526 -label (986) - on left: 1302 1303 1304 1305 1306, on right: 958 959 960 961 1143 - 1156 1158 1159 1162 1164 -anystring (987) - on left: 1307 1308, on right: 141 145 + $accept (368) + on left: 0 + root_ (369) + on left: 1 + on right: 0 + program_sequences (370) + on left: 2 3 4 + on right: 1 + program_sequence (371) + on left: 5 7 8 + on right: 3 4 7 8 + $@1 (372) + on left: 6 + on right: 7 + end_program (373) + on left: 10 + on right: 5 7 8 + $@2 (374) + on left: 9 + on right: 10 + program (375) + on left: 11 + on right: 2 4 5 7 8 + identification_division (376) + on left: 15 + on right: 11 + $@3 (377) + on left: 12 + on right: 15 + $@4 (378) + on left: 13 + on right: 15 + $@5 (379) + on left: 14 + on right: 15 + programid_opts_opt (380) + on left: 16 17 18 + on right: 15 + programid_program_opt (381) + on left: 19 20 + on right: 17 18 + identification_division_options_opt (382) + on left: 21 22 + on right: 15 22 + identification_division_option (383) + on left: 23 24 25 26 27 + on right: 22 + environment_division_opt (384) + on left: 29 30 + on right: 11 + $@6 (385) + on left: 28 + on right: 29 + configuration_opt (386) + on left: 31 32 + on right: 29 + configuration_section (387) + on left: 33 34 + on right: 31 33 + configuration_option (388) + on left: 36 38 39 40 + on right: 33 + $@7 (389) + on left: 35 + on right: 36 + $@8 (390) + on left: 37 + on right: 38 + program_collating_opt (391) + on left: 41 42 + on right: 38 + collating_sequence (392) + on left: 43 + on right: 41 763 + collating_opt (393) + on left: 44 45 + on right: 43 + debug_mode_opt (394) + on left: 46 47 + on right: 36 + special_names_opt (395) + on left: 48 49 50 + on right: 39 + special_names (396) + on left: 51 52 + on right: 49 52 + special_name (397) + on left: 53 54 55 56 57 58 59 + on right: 51 52 + currency_details (398) + on left: 60 + on right: 55 + sign_opt (399) + on left: 61 62 + on right: 60 + special_name_class (400) + on left: 63 + on right: 59 + special_name_class_item_list (401) + on left: 64 65 + on right: 63 65 + special_name_class_item (402) + on left: 66 67 + on right: 64 65 + decimal_point_details (403) + on left: 68 + on right: 56 + screen_status_details (404) + on left: 69 + on right: 57 + cursor_details (405) + on left: 70 + on right: 58 + switches_details_list (406) + on left: 71 72 + on right: 53 72 + switches_details (407) + on left: 74 + on right: 72 + $@9 (408) + on left: 73 + on right: 74 + switch_on_opt (409) + on left: 75 76 + on right: 74 + switch_off_opt (410) + on left: 77 78 + on right: 74 + status_opt (411) + on left: 79 80 + on right: 75 77 + alphabet_details (412) + on left: 81 + on right: 54 + alphabet_type (413) + on left: 82 83 84 85 + on right: 81 + alphabet_literal_list (414) + on left: 86 87 + on right: 85 87 + alphabet_literal_item (415) + on left: 88 89 90 + on right: 86 87 + alphabet_also_list (416) + on left: 91 92 + on right: 90 92 + input_output_opt (417) + on left: 93 94 + on right: 29 + input_output_section (418) + on left: 95 96 + on right: 93 + file_control_paragraph (419) + on left: 97 + on right: 95 + i_o_control_paragraph (420) + on left: 98 99 + on right: 95 + file_control (421) + on left: 100 101 + on right: 97 101 + file_select (422) + on left: 103 + on right: 100 101 + $@10 (423) + on left: 102 + on right: 103 + select_clauses (424) + on left: 104 105 + on right: 103 104 + select_clause (425) + on left: 106 107 108 109 110 111 112 113 114 + on right: 104 + file_opt (426) + on left: 115 116 + on right: 109 + organization_opt (427) + on left: 117 118 + on right: 106 + assign_clause (428) + on left: 119 120 121 122 123 + on right: 107 + with_duplicates (429) + on left: 124 125 + on right: 112 + optional_opt (430) + on left: 126 127 + on right: 103 + areas_opt (431) + on left: 128 129 130 + on right: 113 + is_opt (432) + on left: 131 132 + on right: 17 18 43 60 63 68 69 70 74 75 77 81 106 108 109 110 111 112 197 204 209 215 217 219 241 260 263 264 267 273 278 289 290 407 408 414 444 445 459 465 470 477 487 488 501 503 506 507 518 535 721 722 764 766 909 953 1203 + are_opt (433) + on left: 133 134 + on right: 210 274 275 279 280 471 519 536 + mode_opt (434) + on left: 135 136 + on right: 108 + organization_options (435) + on left: 137 138 139 140 141 + on right: 106 + access_options (436) + on left: 142 143 144 145 + on right: 108 + i_o_control_opt (437) + on left: 146 147 + on right: 99 + i_o_control_list (438) + on left: 148 149 + on right: 147 149 + i_o_control_clause (439) + on left: 150 151 + on right: 148 149 + i_o_control_same_clause (440) + on left: 152 + on right: 150 + same_clause_options (441) + on left: 153 154 155 156 + on right: 152 + i_o_control_multiple_file_tape_clause (442) + on left: 157 + on right: 151 + i_o_control_multiple_file_list (443) + on left: 158 159 + on right: 157 159 + i_o_control_multiple_file (444) + on left: 160 + on right: 158 159 + i_o_control_multiple_file_position_opt (445) + on left: 161 162 + on right: 160 + tape_opt (446) + on left: 163 164 + on right: 157 + are_opta (447) + on left: 165 166 + on right: 152 + for_opt (448) + on left: 167 168 + on right: 152 889 890 + string_list (449) + on left: 169 170 171 + on right: 152 170 + name_list (450) + on left: 172 173 174 + on right: 173 1015 + data_division_opt (451) + on left: 176 177 + on right: 11 + $@11 (452) + on left: 175 + on right: 176 + file_section_opt (453) + on left: 179 180 + on right: 176 + $@12 (454) + on left: 178 + on right: 179 + working_storage_opt (455) + on left: 182 183 + on right: 176 + $@13 (456) + on left: 181 + on right: 182 + linkage_section_opt (457) + on left: 185 186 + on right: 176 + $@14 (458) + on left: 184 + on right: 185 + report_section_opt (459) + on left: 187 188 + on right: 176 + report_sections (460) + on left: 189 190 + on right: 187 189 + report_section (461) + on left: 194 + on right: 189 + $@15 (462) + on left: 191 + on right: 194 + $@16 (463) + on left: 192 + on right: 194 + $@17 (464) + on left: 193 + on right: 194 + report_controls (465) + on left: 195 196 + on right: 194 196 + report_control (466) + on left: 197 198 199 200 + on right: 196 + report_controls_control (467) + on left: 201 + on right: 199 + report_controls_page (468) + on left: 202 + on right: 200 + heading_opt (469) + on left: 203 204 + on right: 202 + line_lines_opt (470) + on left: 205 206 + on right: 202 938 + lines_opt (471) + on left: 207 208 + on right: 205 507 + control_is_are (472) + on left: 209 210 + on right: 201 + limit_is_are_opt (473) + on left: 211 212 213 + on right: 202 + footing_opt (474) + on left: 214 215 + on right: 202 + last_detail_opt (475) + on left: 216 217 + on right: 202 + first_detail_opt (476) + on left: 218 219 + on right: 202 + final_opt (477) + on left: 220 221 + on right: 201 + report_break_list (478) + on left: 222 223 + on right: 201 223 + report_description (479) + on left: 224 225 + on right: 194 225 + report_item (480) + on left: 227 + on right: 224 225 + $@18 (481) + on left: 226 + on right: 227 + report_clauses (482) + on left: 228 229 + on right: 227 229 + report_clause (483) + on left: 230 231 232 233 234 235 236 237 238 239 240 + on right: 228 229 + report_clause_type (484) + on left: 241 + on right: 232 + report_clause_type2 (485) + on left: 242 243 245 246 248 249 250 251 252 254 255 257 258 259 + on right: 241 + $@19 (486) + on left: 244 + on right: 245 + $@20 (487) + on left: 247 + on right: 248 + $@21 (488) + on left: 253 + on right: 254 + $@22 (489) + on left: 256 + on right: 257 + report_clause_sign_is (490) + on left: 260 261 + on right: 235 + report_clause_picture (491) + on left: 263 + on right: 234 + $@23 (492) + on left: 262 + on right: 263 + report_clause_usage_display (493) + on left: 264 265 + on right: 233 + report_clause_justified (494) + on left: 266 + on right: 236 + report_clause_next_group (495) + on left: 267 + on right: 231 + report_clause_line (496) + on left: 268 269 270 271 + on right: 230 + report_clause_line_is (497) + on left: 272 273 274 275 + on right: 268 269 270 271 + report_clause_column (498) + on left: 276 + on right: 238 + report_clause_column_is (499) + on left: 277 278 279 280 + on right: 276 + report_clause_column_orientation (500) + on left: 281 282 283 284 + on right: 277 278 279 280 + is_are_opt (501) + on left: 285 286 287 + on right: 272 277 + report_clause_svs (502) + on left: 289 290 293 + on right: 239 + $@24 (503) + on left: 288 + on right: 289 + $@25 (504) + on left: 291 + on right: 293 + $@26 (505) + on left: 292 + on right: 293 + gname_page_counter (506) + on left: 294 295 + on right: 289 + report_clause_group_indicate (507) + on left: 296 297 + on right: 240 + report_clause_blank_zero (508) + on left: 298 + on right: 237 + indicate_opt (509) + on left: 299 300 + on right: 297 + upon_opt (510) + on left: 301 302 + on right: 293 + reset_opt (511) + on left: 303 304 305 + on right: 293 + number_opt (512) + on left: 306 307 + on right: 857 858 + leading_trailing (513) + on left: 308 309 + on right: 260 261 + right_opt (514) + on left: 310 311 + on right: 266 + name_final_opt (515) + on left: 312 313 + on right: 245 248 254 257 + integer_on_next_page (516) + on left: 314 315 316 + on right: 267 + of_opt (517) + on left: 317 318 + on right: 1025 + screen_section_opt (518) + on left: 320 321 + on right: 176 + $@27 (519) + on left: 319 + on right: 320 + screen_section (520) + on left: 322 323 + on right: 320 322 + screen_item (521) + on left: 325 + on right: 322 + $@28 (522) + on left: 324 + on right: 325 + screen_clauses (523) + on left: 327 329 330 332 334 336 337 338 339 341 342 + on right: 325 327 329 330 332 334 336 337 338 339 341 + $@29 (524) + on left: 326 + on right: 327 + $@30 (525) + on left: 328 + on right: 329 + $@31 (526) + on left: 331 + on right: 332 + $@32 (527) + on left: 333 + on right: 334 + $@33 (528) + on left: 335 + on right: 336 + $@34 (529) + on left: 340 + on right: 341 + screen_source_destination (530) + on left: 344 346 348 + on right: 337 + $@35 (531) + on left: 343 + on right: 344 + $@36 (532) + on left: 345 + on right: 346 + $@37 (533) + on left: 347 + on right: 348 + screen_to_name (534) + on left: 349 350 + on right: 346 + screen_attrib (535) + on left: 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 + on right: 330 + screen_attribx (536) + on left: 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 + on right: 864 + sign_clause (537) + on left: 401 402 + on right: 357 381 440 + separate_opt (538) + on left: 403 404 + on right: 401 402 + character_opt (539) + on left: 405 406 + on right: 260 261 403 + sign_is_opt (540) + on left: 407 408 + on right: 401 402 + plus_minus_opt (541) + on left: 409 410 411 412 413 + on right: 327 329 + number_is_opt (542) + on left: 414 415 + on right: 327 329 + file_section (543) + on left: 419 423 424 425 + on right: 179 419 423 + $@38 (544) + on left: 416 + on right: 419 + $@39 (545) + on left: 417 + on right: 419 + $@40 (546) + on left: 418 + on right: 419 + $@41 (547) + on left: 420 + on right: 423 + $@42 (548) + on left: 421 + on right: 423 + $@43 (549) + on left: 422 + on right: 423 + file_description (550) + on left: 426 427 + on right: 419 423 427 + field_description (551) + on left: 429 + on right: 426 427 553 556 + $@44 (552) + on left: 428 + on right: 429 + data_clauses (553) + on left: 430 431 432 + on right: 429 431 432 + redefines_clause (554) + on left: 434 + on right: 432 + $@45 (555) + on left: 433 + on right: 434 + redefines_var (556) + on left: 435 436 + on right: 434 + data_clause (557) + on left: 437 438 439 440 441 442 443 444 445 446 448 + on right: 431 + $@46 (558) + on left: 447 + on right: 448 + sync_options (559) + on left: 449 450 451 + on right: 442 443 + thru_gname_opt (560) + on left: 452 453 + on right: 448 + array_options (561) + on left: 455 458 + on right: 437 + $@47 (562) + on left: 454 + on right: 455 + $@48 (563) + on left: 456 + on right: 458 + $@49 (564) + on left: 457 + on right: 458 + key_is_opt (565) + on left: 459 460 + on right: 461 + indexed_by_opt (566) + on left: 461 462 + on right: 455 458 + index_name_list (567) + on left: 463 464 + on right: 461 464 + usage_option (568) + on left: 465 + on right: 439 + usage (569) + on left: 466 467 468 + on right: 465 + value_option (570) + on left: 469 + on right: 441 + value_is_are (571) + on left: 470 471 + on right: 338 469 + value_list (572) + on left: 472 473 + on right: 469 473 + value (573) + on left: 474 475 + on right: 472 473 + pictures (574) + on left: 477 + on right: 339 438 + $@50 (575) + on left: 476 + on right: 477 + picture (576) + on left: 478 479 + on right: 263 477 479 + pic_elem (577) + on left: 480 + on right: 479 + multiplier_opt (578) + on left: 481 482 + on right: 480 + file_description_fd_clauses (579) + on left: 483 484 + on right: 419 484 + file_description_sd_clauses (580) + on left: 485 486 + on right: 423 486 + file_description_fd_clause (581) + on left: 487 488 489 490 491 492 493 494 495 496 + on right: 484 + file_description_sd_clause (582) + on left: 497 498 + on right: 486 + file_description_clause_block (583) + on left: 499 + on right: 489 + file_description_clause_record (584) + on left: 500 501 + on right: 490 497 + file_description_clause_label (585) + on left: 502 + on right: 491 + file_description_clause_value (586) + on left: 503 + on right: 492 + file_description_clause_data (587) + on left: 504 + on right: 493 498 + file_description_clause_report (588) + on left: 505 + on right: 494 + file_description_clause_code_set (589) + on left: 506 + on right: 496 + file_description_clause_linage (590) + on left: 507 + on right: 495 + file_description_clause_linage_footing (591) + on left: 508 509 + on right: 507 + file_description_clause_linage_top (592) + on left: 510 511 + on right: 507 + file_description_clause_linage_bottom (593) + on left: 512 513 + on right: 507 + lines_at_opt (594) + on left: 514 515 516 517 + on right: 511 513 + report_is_are (595) + on left: 518 519 + on right: 505 + var_strings (596) + on left: 520 521 + on right: 504 521 + chars_or_recs_opt (597) + on left: 522 523 524 + on right: 499 + to_integer_opt (598) + on left: 525 526 + on right: 499 + depend_rec_varying (599) + on left: 527 528 + on right: 501 + from_rec_varying (600) + on left: 529 530 + on right: 501 + from_opt (601) + on left: 531 532 + on right: 530 + to_rec_varying (602) + on left: 533 534 + on right: 500 501 + record_is_are (603) + on left: 535 536 + on right: 502 504 + std_or_omitt (604) + on left: 537 538 + on right: 502 + usage_opt (605) + on left: 539 540 + on right: 465 + times_opt (606) + on left: 541 542 + on right: 455 458 + when_opt (607) + on left: 543 544 + on right: 298 369 393 446 + contains_opt (608) + on left: 545 546 + on right: 157 499 500 + character_opts (609) + on left: 547 548 + on right: 500 501 + order_opt (610) + on left: 549 550 + on right: 761 + data_opt (611) + on left: 551 552 + on right: 780 + working_storage_section (612) + on left: 553 554 + on right: 182 553 + linkage_section (613) + on left: 555 556 + on right: 185 556 + procedure_division_opt (614) + on left: 559 560 + on right: 11 + $@51 (615) + on left: 557 + on right: 559 + $@52 (616) + on left: 558 + on right: 559 + procedure_division (617) + on left: 561 562 + on right: 559 562 + procedure_decl (618) + on left: 563 564 566 568 569 + on right: 562 + $@53 (619) + on left: 565 + on right: 566 + $@54 (620) + on left: 567 + on right: 568 + declaratives_opt (621) + on left: 571 572 + on right: 559 + $@55 (622) + on left: 570 + on right: 571 + declaratives_division (623) + on left: 573 574 + on right: 571 574 + declaratives_decl (624) + on left: 575 576 578 580 + on right: 574 + $@56 (625) + on left: 577 + on right: 578 + $@57 (626) + on left: 579 + on right: 580 + declaratives_procedure (627) + on left: 582 583 + on right: 571 575 + $@58 (628) + on left: 581 + on right: 582 + use_phrase (629) + on left: 584 585 + on right: 582 + use_phrase_exception_error (630) + on left: 586 587 588 589 + on right: 584 + use_phrase_option (631) + on left: 590 591 + on right: 584 + procedure_section (632) + on left: 592 + on right: 563 582 + paragraph (633) + on left: 593 + on right: 564 576 + dot_or_eos (634) + on left: 594 595 + on right: 593 + statement_list (635) + on left: 596 + on right: 686 705 711 719 836 918 923 925 1003 1048 1053 1056 1059 1066 1068 1177 + statements (636) + on left: 597 598 + on right: 566 578 596 598 + statement (637) + on left: 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 + on right: 597 598 + perform_statement (638) + on left: 642 + on right: 617 + if_statement (639) + on left: 644 647 + on right: 638 + $@59 (640) + on left: 643 + on right: 644 + @60 (641) + on left: 645 + on right: 647 + $@61 (642) + on left: 646 + on right: 647 + search_statement (643) + on left: 648 649 + on right: 640 + evaluate_statement (644) + on left: 652 + on right: 639 + @62 (645) + on left: 650 + on right: 652 + $@63 (646) + on left: 651 + on right: 652 + end_evaluate_or_eos (647) + on left: 653 654 + on right: 652 + selection_subject_set (648) + on left: 656 658 + on right: 652 658 + @64 (649) + on left: 655 + on right: 656 + @65 (650) + on left: 657 + on right: 658 + selection_subject (651) + on left: 659 660 661 662 + on right: 656 658 + when_case_list (652) + on left: 665 669 + on right: 652 669 + @66 (653) + on left: 663 + on right: 665 + @67 (654) + on left: 664 + on right: 665 + @68 (655) + on left: 666 + on right: 669 + @69 (656) + on left: 667 + on right: 669 + $@70 (657) + on left: 668 + on right: 669 + when_case (658) + on left: 671 673 674 + on right: 665 669 673 + @71 (659) + on left: 670 + on right: 671 + @72 (660) + on left: 672 + on right: 673 + selection_object (661) + on left: 675 676 677 678 679 680 + on right: 671 673 + sentence_or_nothing (662) + on left: 681 682 + on right: 665 669 + if_part (663) + on left: 684 + on right: 644 647 + @73 (664) + on left: 683 + on right: 684 + conditional_statement (665) + on left: 686 688 + on right: 647 682 684 + $@74 (666) + on left: 685 + on right: 686 + $@75 (667) + on left: 687 + on right: 688 + not_opt (668) + on left: 689 690 + on right: 678 679 680 + end_if_opt (669) + on left: 691 692 + on right: 644 647 + end_then_opt (670) + on left: 693 694 + on right: 684 + search (671) + on left: 698 + on right: 648 + @76 (672) + on left: 695 + on right: 698 + @77 (673) + on left: 696 + on right: 698 + @78 (674) + on left: 697 + on right: 698 + search_all (675) + on left: 701 + on right: 649 + @79 (676) + on left: 699 + on right: 701 + $@80 (677) + on left: 700 + on right: 701 + search_varying_opt (678) + on left: 702 703 + on right: 698 + search_at_end (679) + on left: 705 706 + on right: 698 701 + @81 (680) + on left: 704 + on right: 705 + search_when_list (681) + on left: 707 708 + on right: 698 708 + search_when (682) + on left: 710 + on right: 707 708 + @82 (683) + on left: 709 + on right: 710 + search_when_statement (684) + on left: 711 712 + on right: 710 + search_when_conditional (685) + on left: 713 + on right: 710 + search_all_when_list (686) + on left: 714 715 + on right: 701 715 + search_all_when (687) + on left: 718 + on right: 714 715 + $@83 (688) + on left: 716 + on right: 718 + @84 (689) + on left: 717 + on right: 718 + search_all_when_statement (690) + on left: 719 720 + on right: 718 + search_all_when_conditional (691) + on left: 721 722 724 + on right: 718 724 + @85 (692) + on left: 723 + on right: 724 + end_search_opt (693) + on left: 725 726 + on right: 648 649 + unlock_statement (694) + on left: 727 + on right: 637 + proto_statement (695) + on left: 728 729 + on right: 633 + trace_statement (696) + on left: 730 731 + on right: 634 + initiate_statement (697) + on left: 732 + on right: 630 + generate_statement (698) + on left: 733 + on right: 631 + terminate_statement (699) + on left: 734 + on right: 632 + cancel_statement (700) + on left: 735 736 + on right: 636 + merge_statement (701) + on left: 740 + on right: 626 + $@86 (702) + on left: 737 + on right: 740 + $@87 (703) + on left: 738 + on right: 740 + $@88 (704) + on left: 739 + on right: 740 + merge_using (705) + on left: 741 + on right: 740 + sort_statement (706) + on left: 742 743 + on right: 625 + sort_file (707) + on left: 747 + on right: 742 + $@89 (708) + on left: 744 + on right: 747 + $@90 (709) + on left: 745 + on right: 747 + $@91 (710) + on left: 746 + on right: 747 + sort_variable_indexed (711) + on left: 749 + on right: 743 + $@92 (712) + on left: 748 + on right: 749 + sort_keys (713) + on left: 750 751 + on right: 740 747 751 + sort_keys_idx (714) + on left: 752 753 + on right: 749 753 + sort_key (715) + on left: 754 + on right: 750 751 + sort_key_idx (716) + on left: 755 + on right: 752 753 + sort_keys_names (717) + on left: 756 757 + on right: 754 757 + sort_keys_names_idx (718) + on left: 758 759 + on right: 755 759 + sort_duplicates_opt (719) + on left: 760 761 + on right: 747 749 + sort_collating_opt (720) + on left: 762 763 + on right: 740 747 749 + sort_input (721) + on left: 764 765 + on right: 747 + sort_output (722) + on left: 766 767 + on right: 740 747 + sort_file_list (723) + on left: 768 769 + on right: 741 765 767 769 + move_statement (724) + on left: 770 771 772 773 + on right: 599 + initialize_statement (725) + on left: 774 775 + on right: 600 + initialize_replacing_opt (726) + on left: 776 777 + on right: 774 + initialize_replacing_lists (727) + on left: 778 779 + on right: 777 779 + initialize_replacing_list (728) + on left: 780 + on right: 778 779 + initialize_type_list (729) + on left: 781 782 783 784 785 + on right: 780 + compute_statement (730) + on left: 786 787 + on right: 601 + compute_body (731) + on left: 788 + on right: 786 + end_compute_opt (732) + on left: 789 790 + on right: 786 + add_statement (733) + on left: 791 792 + on right: 602 + add_body (734) + on left: 793 794 795 + on right: 791 + add_to_opt (735) + on left: 796 797 + on right: 794 + end_add_opt (736) + on left: 798 799 + on right: 791 + subtract_statement (737) + on left: 800 801 + on right: 603 + subtract_body (738) + on left: 802 803 804 + on right: 800 + end_subtract_opt (739) + on left: 805 806 + on right: 800 + multiply_statement (740) + on left: 807 808 + on right: 604 + multiply_body (741) + on left: 809 810 + on right: 807 + end_multiply_opt (742) + on left: 811 812 + on right: 807 + divide_statement (743) + on left: 813 814 + on right: 605 + divide_body (744) + on left: 815 816 817 818 819 + on right: 813 + end_divide_opt (745) + on left: 820 821 + on right: 813 + accept_statement (746) + on left: 822 823 824 825 + on right: 606 + accept_hardware (747) + on left: 826 827 828 829 830 + on right: 822 + accept_chronological (748) + on left: 831 + on right: 823 + accept_screen (749) + on left: 832 836 + on right: 824 + $@93 (750) + on left: 833 + on right: 836 + @94 (751) + on left: 834 + on right: 836 + $@95 (752) + on left: 835 + on right: 836 + end_accept_opt (753) + on left: 837 838 + on right: 826 827 828 829 830 831 832 836 + display_statement (754) + on left: 839 840 841 + on right: 607 + display_line (755) + on left: 842 + on right: 839 + display_screen (756) + on left: 843 + on right: 840 + display_varlist (757) + on left: 844 845 + on right: 842 843 845 + display_upon (758) + on left: 846 847 848 + on right: 842 + display_line_options (759) + on left: 849 850 851 852 853 854 + on right: 842 850 851 852 853 854 + end_display_opt (760) + on left: 855 856 + on right: 842 843 + scr_line (761) + on left: 857 + on right: 865 + scr_position (762) + on left: 858 859 + on right: 866 + scr_line_position (763) + on left: 860 861 + on right: 867 + accept_display_options (764) + on left: 862 863 + on right: 832 836 843 863 + accept_display_option (765) + on left: 864 865 866 867 + on right: 863 + open_statement (766) + on left: 868 869 + on right: 608 + open_options (767) + on left: 870 871 + on right: 868 871 + open_mode (768) + on left: 872 873 874 875 876 + on right: 591 870 871 + open_varlist (769) + on left: 877 878 + on right: 870 871 878 + close_statement (770) + on left: 879 880 + on right: 609 + close_files (771) + on left: 881 882 + on right: 879 882 + close_file (772) + on left: 883 + on right: 881 882 + close_options_opt (773) + on left: 884 885 + on right: 883 + close_options (774) + on left: 886 887 888 889 890 + on right: 884 + with_lock_opt (775) + on left: 891 892 893 + on right: 885 900 901 902 + return_statement (776) + on left: 894 895 + on right: 611 + return_body (777) + on left: 896 897 + on right: 894 + read_statement (778) + on left: 898 899 + on right: 610 + read_body (779) + on left: 900 901 902 + on right: 898 + read_next_opt (780) + on left: 903 904 905 + on right: 900 901 902 + read_into_opt (781) + on left: 906 907 + on right: 896 897 900 901 902 + read_key_opt (782) + on left: 908 909 + on right: 900 901 902 + read_at_end_opt (783) + on left: 910 911 912 914 916 + on right: 897 901 + $@96 (784) + on left: 913 + on right: 914 + $@97 (785) + on left: 915 + on right: 916 + on_end (786) + on left: 918 + on right: 910 911 912 914 916 + @98 (787) + on left: 917 + on right: 918 + read_invalid_key_opt (788) + on left: 919 920 921 + on right: 902 + read_invalid_key (789) + on left: 923 + on right: 919 921 + @99 (790) + on left: 922 + on right: 923 + read_not_invalid_key (791) + on left: 925 + on right: 920 921 + @100 (792) + on left: 924 + on right: 925 + end_read_opt (793) + on left: 926 927 + on right: 898 + end_return_opt (794) + on left: 928 929 + on right: 894 + release_statement (795) + on left: 930 + on right: 612 + release_from_opt (796) + on left: 931 932 + on right: 930 + write_statement (797) + on left: 934 + on right: 613 + $@101 (798) + on left: 933 + on right: 934 + write_from_opt (799) + on left: 935 936 + on right: 934 943 + write_options (800) + on left: 937 938 939 + on right: 934 + end_write_opt (801) + on left: 940 941 + on right: 934 + rewrite_statement (802) + on left: 943 + on right: 614 + $@102 (803) + on left: 942 + on right: 943 + end_rewrite_opt (804) + on left: 944 945 + on right: 943 + delete_statement (805) + on left: 947 + on right: 615 + $@103 (806) + on left: 946 + on right: 947 + end_delete_opt (807) + on left: 948 949 + on right: 947 + start_statement (808) + on left: 951 + on right: 616 + $@104 (809) + on left: 950 + on right: 951 + start_body (810) + on left: 952 953 + on right: 951 + end_start_opt (811) + on left: 954 955 + on right: 951 + goto_statement (812) + on left: 956 957 + on right: 618 + goto_label (813) + on left: 958 + on right: 956 + goto_label_list (814) + on left: 959 960 961 + on right: 957 960 961 + call_statement (815) + on left: 967 968 + on right: 621 + $@105 (816) + on left: 962 + on right: 967 + @106 (817) + on left: 963 + on right: 967 + @107 (818) + on left: 964 + on right: 967 + @108 (819) + on left: 965 + on right: 967 + $@109 (820) + on left: 966 + on right: 967 + call_convention_opt (821) + on left: 969 970 971 + on right: 967 + call_loadlib_statement (822) + on left: 973 974 + on right: 622 + $@110 (823) + on left: 972 + on right: 973 + end_call_loadlib_opt (824) + on left: 975 976 + on right: 973 + chain_statement (825) + on left: 981 982 + on right: 623 + $@111 (826) + on left: 977 + on right: 981 + @112 (827) + on left: 978 + on right: 981 + @113 (828) + on left: 979 + on right: 981 + $@114 (829) + on left: 980 + on right: 981 + exit_statement (830) + on left: 983 984 985 + on right: 619 + stop_statement (831) + on left: 986 987 + on right: 620 + stop_literal (832) + on left: 988 989 + on right: 987 + goback_statement (833) + on left: 990 + on right: 635 + var_list_name (834) + on left: 991 992 + on right: 788 793 794 795 802 803 804 809 810 815 818 819 992 + var_list_gname (835) + on left: 993 994 + on right: 793 794 795 802 803 804 994 + rounded_opt (836) + on left: 995 996 + on right: 795 804 816 817 991 992 + on_size_error_opt (837) + on left: 997 998 999 1001 + on right: 788 793 794 795 802 803 804 809 810 815 816 817 818 819 + $@115 (838) + on left: 1000 + on right: 1001 + on_size_error (839) + on left: 1003 + on right: 998 999 1001 + @116 (840) + on left: 1002 + on right: 1003 + size_opt (841) + on left: 1004 1005 + on right: 501 + end_call_opt (842) + on left: 1006 1007 + on right: 967 + end_chain_opt (843) + on left: 1008 1009 + on right: 981 + set_statement (844) + on left: 1010 + on right: 624 + set_list (845) + on left: 1011 1012 1013 1014 + on right: 1010 + set_target (846) + on left: 1015 1016 + on right: 1011 1012 1013 + set_variable (847) + on left: 1017 1018 + on right: 1014 + set_variable_or_nlit (848) + on left: 1019 1020 1021 1022 1023 + on right: 1011 + address_of_opt (849) + on left: 1024 1025 + on right: 1011 1014 + string_statement (850) + on left: 1027 + on right: 628 + $@117 (851) + on left: 1026 + on right: 1027 + unstring_statement (852) + on left: 1029 + on right: 629 + $@118 (853) + on left: 1028 + on right: 1029 + unstring_delimited (854) + on left: 1030 1031 + on right: 1029 + unstring_delimited_vars (855) + on left: 1032 1033 + on right: 1030 1033 + unstring_destinations (856) + on left: 1034 1035 + on right: 1029 1035 + unstring_dest_var (857) + on left: 1036 + on right: 1034 1035 + unstring_delim_opt (858) + on left: 1037 1038 + on right: 1036 + unstring_count_opt (859) + on left: 1039 1040 + on right: 1036 + unstring_tallying (860) + on left: 1041 1042 + on right: 1029 + all_opt (861) + on left: 1043 1044 + on right: 1032 1033 + on_overflow_opt (862) + on left: 1046 + on right: 1027 1029 + $@119 (863) + on left: 1045 + on right: 1046 + on_exception_or_overflow (864) + on left: 1048 1049 + on right: 967 981 + @120 (865) + on left: 1047 + on right: 1048 + exception_or_overflow (866) + on left: 1050 1051 + on right: 1048 + on_not_exception (867) + on left: 1053 1054 + on right: 967 + @121 (868) + on left: 1052 + on right: 1053 + on_overflow (869) + on left: 1056 1057 + on right: 1046 + @122 (870) + on left: 1055 + on right: 1056 + on_not_overflow (871) + on left: 1059 1060 + on right: 1046 + @123 (872) + on left: 1058 + on right: 1059 + invalid_key_opt (873) + on left: 1061 1062 1063 1064 + on right: 934 943 947 951 + invalid_key_sentence (874) + on left: 1066 + on right: 1061 1063 + @124 (875) + on left: 1065 + on right: 1066 + not_invalid_key_sentence (876) + on left: 1068 + on right: 1062 1063 + @125 (877) + on left: 1067 + on right: 1068 + not_excep (878) + on left: 1069 1070 + on right: 1059 1068 + string_with_pointer (879) + on left: 1071 1072 + on right: 1027 1029 + string_from_list (880) + on left: 1073 1074 1075 + on right: 1027 1074 + string_from (881) + on left: 1076 1077 + on right: 1073 1074 + delimited_by (882) + on left: 1078 1079 1080 + on right: 1077 + end_stringcmd_opt (883) + on left: 1081 1082 + on right: 1027 + end_unstring_opt (884) + on left: 1083 1084 + on right: 1029 + inspect_statement (885) + on left: 1086 1087 + on right: 627 + $@126 (886) + on left: 1085 + on right: 1086 + converting_clause (887) + on left: 1088 + on right: 1087 + tallying_clause (888) + on left: 1089 1090 + on right: 1086 + tallying_list (889) + on left: 1091 1092 + on right: 1089 1091 + tallying_for_list (890) + on left: 1093 1094 1095 1096 + on right: 1091 1093 1094 1095 + replacing_clause (891) + on left: 1097 1098 + on right: 1086 + replacing_list (892) + on left: 1099 1100 1101 + on right: 1097 1099 1100 + replacing_by_list (893) + on left: 1102 1103 + on right: 1100 1102 + replacing_kind (894) + on left: 1104 1105 1106 1107 + on right: 1100 + inspect_before_after (895) + on left: 1108 1109 1110 + on right: 1088 1093 1094 1095 1099 1102 1108 1109 + initial_opt (896) + on left: 1111 1112 + on right: 1108 1109 + expr (897) + on left: 1113 1114 1115 1116 1117 1118 1119 + on right: 659 678 679 788 857 858 859 1114 1115 1116 1117 1118 1119 1121 1181 1190 1191 + expr_opt (898) + on left: 1120 1121 + on right: 1181 + using_options (899) + on left: 1122 1125 + on right: 967 981 + @127 (900) + on left: 1123 + on right: 1125 + @128 (901) + on left: 1124 + on right: 1125 + returning_options (902) + on left: 1126 1127 1128 + on right: 967 + dummy (903) + on left: 1129 + on right: 1125 + using_parameters (904) + on left: 1130 1131 1132 + on right: 559 + parm_list (905) + on left: 1133 1134 + on right: 1125 1133 + parameter (906) + on left: 1135 1136 + on right: 1133 1134 + parm_type (907) + on left: 1137 1138 1139 + on right: 1136 + intrinsic_parm_list (908) + on left: 1140 1141 + on right: 1140 1248 + intrinsic_parm (909) + on left: 1142 + on right: 1140 1141 + perform_range (910) + on left: 1143 + on right: 764 766 + perform_options (911) + on left: 1144 1147 1151 1155 1156 1158 1159 1162 + on right: 642 + @129 (912) + on left: 1145 + on right: 1147 + $@130 (913) + on left: 1146 + on right: 1147 + @131 (914) + on left: 1148 + on right: 1151 + @132 (915) + on left: 1149 + on right: 1151 + $@133 (916) + on left: 1150 + on right: 1151 + @134 (917) + on left: 1152 + on right: 1155 + @135 (918) + on left: 1153 + on right: 1155 + $@136 (919) + on left: 1154 + on right: 1155 + @137 (920) + on left: 1157 + on right: 1158 + @138 (921) + on left: 1160 + on right: 1162 + @139 (922) + on left: 1161 + on right: 1162 + perform_thru_opt (923) + on left: 1163 1164 + on right: 1143 1156 1158 1159 1162 + with_test_opt (924) + on left: 1165 1166 + on right: 1151 1155 1158 1162 + perform_after_opt (925) + on left: 1167 1168 1169 1170 1171 1172 1173 + on right: 1155 1162 + perform_after (926) + on left: 1175 + on right: 1168 1169 1170 1171 1172 1173 + @140 (927) + on left: 1174 + on right: 1175 + perform_statements (928) + on left: 1177 + on right: 1144 1147 1151 1155 + $@141 (929) + on left: 1176 + on right: 1177 + before_after (930) + on left: 1178 1179 + on right: 938 939 1166 + condition (931) + on left: 1181 1182 1184 1186 1187 1188 + on right: 660 684 1151 1155 1158 1162 1175 1182 1184 1186 1187 1189 + $@142 (932) + on left: 1180 + on right: 1181 + @143 (933) + on left: 1183 + on right: 1184 + @144 (934) + on left: 1185 + on right: 1186 + implied_op_condition (935) + on left: 1189 1190 1191 + on right: 1184 1186 + sign_condition (936) + on left: 1192 1193 1194 + on right: 1207 + class_condition (937) + on left: 1195 1196 1197 1198 + on right: 1206 + extended_cond_op (938) + on left: 1199 1200 1201 1202 1203 1204 + on right: 713 1181 + ext_cond (939) + on left: 1205 1206 1207 + on right: 1199 1200 1201 1202 1203 1204 + cond_op (940) + on left: 1208 1209 1210 + on right: 953 1190 + conditional (941) + on left: 1211 + on right: 1205 1208 1209 1210 + comma_opt (942) + on left: 1212 1213 + on right: 473 1297 + sep_opt (943) + on left: 1214 1215 + on right: 845 878 882 991 992 993 994 1035 1074 1133 1140 1242 1244 + key_opt (944) + on left: 1216 1217 + on right: 110 111 112 459 754 755 923 925 1066 1068 + advancing_opt (945) + on left: 1218 1219 + on right: 938 939 + than_to_opt (946) + on left: 1220 1221 1222 + on right: 1211 + record_opt (947) + on left: 1223 1224 + on right: 896 897 900 901 902 947 + at_opt (948) + on left: 1225 1226 + on right: 509 705 910 914 916 + in_opt (949) + on left: 1227 1228 + on right: 501 761 1038 1040 1042 + in_of (950) + on left: 1229 1230 + on right: 1293 1302 1305 1306 + by_opt (951) + on left: 1231 1232 + on right: 461 1030 1077 1136 1155 1162 1175 + with_opt (952) + on left: 1233 1234 + on right: 46 124 330 332 334 336 356 370 371 372 380 394 395 396 509 761 850 851 852 853 854 864 886 891 892 1071 1166 + on_opt (953) + on left: 1235 1236 + on right: 458 528 584 754 755 836 957 998 999 1001 1048 1053 1056 1059 + gname_opt (954) + on left: 1237 1238 + on right: 1285 + to_opt (955) + on left: 1239 1240 + on right: 107 721 722 956 957 + name_var_list (956) + on left: 1241 1242 + on right: 770 1242 + gname_list (957) + on left: 1243 1244 + on right: 293 302 590 774 1131 1132 1244 + gname (958) + on left: 1245 1246 1248 1249 + on right: 294 304 312 458 728 729 735 770 772 773 780 797 803 809 810 815 816 817 818 819 844 845 932 936 938 967 973 981 993 994 1032 1033 1076 1077 1078 1113 1135 1136 1142 1147 1155 1159 1162 1175 1237 1243 1244 1285 1288 1298 1299 1300 + @145 (959) + on left: 1247 + on right: 1248 + name_or_lit (960) + on left: 1250 1251 + on right: 327 329 332 334 336 341 344 346 713 1019 + noallname (961) + on left: 1252 1253 + on right: 1088 1094 1095 1099 1102 1108 1109 + gliteral (962) + on left: 1254 1255 + on right: 198 338 474 475 1246 + without_all_literal (963) + on left: 1256 1257 + on right: 88 89 90 91 92 1253 1254 + all_literal (964) + on left: 1258 1259 + on right: 1255 + special_literal (965) + on left: 1260 1261 1262 1263 1264 + on right: 1257 1259 + var_or_nliteral (966) + on left: 1265 1266 + on right: 1012 1013 + nliteral (967) + on left: 1267 + on right: 530 534 1266 + literal (968) + on left: 1268 1269 + on right: 290 722 1251 1256 1258 1278 1280 + signed_nliteral (969) + on left: 1270 1271 1272 + on right: 1267 1268 1301 + def_name_opt (970) + on left: 1273 1274 + on right: 227 325 429 + def_name (971) + on left: 1275 1276 + on right: 103 463 464 1273 + variable_indexed (972) + on left: 1277 + on right: 698 701 749 758 759 + filename (973) + on left: 1278 1279 + on right: 120 121 122 503 + data_name (974) + on left: 1280 1281 + on right: 507 509 511 513 + cond_name (975) + on left: 1283 1284 + on right: 680 1016 1188 + $@146 (976) + on left: 1282 + on right: 1283 + name (977) + on left: 1285 1286 1287 + on right: 223 348 350 727 732 733 734 740 747 756 757 768 769 816 817 826 827 828 829 830 831 832 836 877 878 883 896 897 900 901 902 907 909 930 934 943 947 952 953 991 992 1027 1029 1036 1038 1040 1042 1071 1086 1087 1091 1155 1162 1175 1245 1250 1252 + name_var (978) + on left: 1288 + on right: 771 772 1241 1242 + variable (979) + on left: 1289 1291 + on right: 172 173 448 453 702 721 722 836 861 957 1014 1017 1127 1128 1265 1285 1286 + $@147 (980) + on left: 1290 + on right: 1291 + qualified_var (981) + on left: 1292 1293 + on right: 1289 1291 1293 + unqualified_var (982) + on left: 1294 1295 + on right: 1292 1293 + subscripts (983) + on left: 1296 1297 + on right: 1283 1291 1297 + subscript (984) + on left: 1298 1299 1300 + on right: 1296 1297 1299 1300 + integer (985) + on left: 1301 + on right: 162 202 204 215 217 219 227 268 269 270 271 276 314 315 325 399 400 429 455 458 499 500 526 + label (986) + on left: 1302 1303 1304 1305 1306 + on right: 958 959 960 961 1143 1156 1158 1159 1162 1164 + anystring (987) + on left: 1307 1308 + on right: 141 145 -state 0 +State 0 - 0 $accept: . root_ $end + 0 $accept: • root_ $end IDENTIFICATION shift, and go to state 1 @@ -3743,32 +4320,32 @@ state 0 identification_division go to state 6 -state 1 +State 1 - 15 identification_division: IDENTIFICATION . DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt + 15 identification_division: IDENTIFICATION • DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt DIVISION shift, and go to state 7 -state 2 +State 2 - 0 $accept: root_ . $end + 0 $accept: root_ • $end $end shift, and go to state 8 -state 3 +State 3 - 1 root_: program_sequences . + 1 root_: program_sequences • $default reduce using rule 1 (root_) -state 4 +State 4 - 3 program_sequences: program_sequence . - 4 | program_sequence . program - 8 program_sequence: program_sequence . program end_program + 3 program_sequences: program_sequence • + 4 | program_sequence • program + 8 program_sequence: program_sequence • program end_program IDENTIFICATION shift, and go to state 1 @@ -3778,11 +4355,11 @@ state 4 identification_division go to state 6 -state 5 +State 5 - 2 program_sequences: program . - 5 program_sequence: program . end_program - 7 | program . $@1 program_sequence end_program + 2 program_sequences: program • + 5 program_sequence: program • end_program + 7 | program • $@1 program_sequence end_program END shift, and go to state 10 @@ -3793,9 +4370,9 @@ state 5 end_program go to state 12 -state 6 +State 6 - 11 program: identification_division . environment_division_opt data_division_opt procedure_division_opt + 11 program: identification_division • environment_division_opt data_division_opt procedure_division_opt ENVIRONMENT shift, and go to state 13 @@ -3804,24 +4381,24 @@ state 6 environment_division_opt go to state 14 -state 7 +State 7 - 15 identification_division: IDENTIFICATION DIVISION . PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt + 15 identification_division: IDENTIFICATION DIVISION • PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt PERIOD_TOK shift, and go to state 15 -state 8 +State 8 - 0 $accept: root_ $end . + 0 $accept: root_ $end • $default accept -state 9 +State 9 - 4 program_sequences: program_sequence program . - 8 program_sequence: program_sequence program . end_program + 4 program_sequences: program_sequence program • + 8 program_sequence: program_sequence program • end_program END shift, and go to state 10 @@ -3830,16 +4407,16 @@ state 9 end_program go to state 16 -state 10 +State 10 - 10 end_program: END . PROGRAM $@2 IDSTRING + 10 end_program: END • PROGRAM $@2 IDSTRING PROGRAM shift, and go to state 17 -state 11 +State 11 - 7 program_sequence: program $@1 . program_sequence end_program + 7 program_sequence: program $@1 • program_sequence end_program IDENTIFICATION shift, and go to state 1 @@ -3848,23 +4425,23 @@ state 11 identification_division go to state 6 -state 12 +State 12 - 5 program_sequence: program end_program . + 5 program_sequence: program end_program • $default reduce using rule 5 (program_sequence) -state 13 +State 13 - 29 environment_division_opt: ENVIRONMENT . DIVISION PERIOD_TOK $@6 configuration_opt input_output_opt + 29 environment_division_opt: ENVIRONMENT • DIVISION PERIOD_TOK $@6 configuration_opt input_output_opt DIVISION shift, and go to state 20 -state 14 +State 14 - 11 program: identification_division environment_division_opt . data_division_opt procedure_division_opt + 11 program: identification_division environment_division_opt • data_division_opt procedure_division_opt DATA shift, and go to state 21 @@ -3873,33 +4450,33 @@ state 14 data_division_opt go to state 22 -state 15 +State 15 - 15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK . PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt + 15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK • PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt PROGRAM_ID shift, and go to state 23 -state 16 +State 16 - 8 program_sequence: program_sequence program end_program . + 8 program_sequence: program_sequence program end_program • $default reduce using rule 8 (program_sequence) -state 17 +State 17 - 10 end_program: END PROGRAM . $@2 IDSTRING + 10 end_program: END PROGRAM • $@2 IDSTRING $default reduce using rule 9 ($@2) $@2 go to state 24 -state 18 +State 18 - 7 program_sequence: program $@1 program_sequence . end_program - 8 | program_sequence . program end_program + 7 program_sequence: program $@1 program_sequence • end_program + 8 | program_sequence • program end_program END shift, and go to state 10 IDENTIFICATION shift, and go to state 1 @@ -3909,10 +4486,10 @@ state 18 identification_division go to state 6 -state 19 +State 19 - 5 program_sequence: program . end_program - 7 | program . $@1 program_sequence end_program + 5 program_sequence: program • end_program + 7 | program • $@1 program_sequence end_program END shift, and go to state 10 @@ -3922,23 +4499,23 @@ state 19 end_program go to state 12 -state 20 +State 20 - 29 environment_division_opt: ENVIRONMENT DIVISION . PERIOD_TOK $@6 configuration_opt input_output_opt + 29 environment_division_opt: ENVIRONMENT DIVISION • PERIOD_TOK $@6 configuration_opt input_output_opt PERIOD_TOK shift, and go to state 27 -state 21 +State 21 - 176 data_division_opt: DATA . DIVISION PERIOD_TOK $@11 file_section_opt working_storage_opt linkage_section_opt report_section_opt screen_section_opt + 176 data_division_opt: DATA • DIVISION PERIOD_TOK $@11 file_section_opt working_storage_opt linkage_section_opt report_section_opt screen_section_opt DIVISION shift, and go to state 28 -state 22 +State 22 - 11 program: identification_division environment_division_opt data_division_opt . procedure_division_opt + 11 program: identification_division environment_division_opt data_division_opt • procedure_division_opt PROCEDURE shift, and go to state 29 @@ -3947,85 +4524,85 @@ state 22 procedure_division_opt go to state 30 -state 23 +State 23 - 15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID . PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt + 15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID • PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt PERIOD_TOK shift, and go to state 31 -state 24 +State 24 - 10 end_program: END PROGRAM $@2 . IDSTRING + 10 end_program: END PROGRAM $@2 • IDSTRING IDSTRING shift, and go to state 32 -state 25 +State 25 - 7 program_sequence: program $@1 program_sequence end_program . + 7 program_sequence: program $@1 program_sequence end_program • $default reduce using rule 7 (program_sequence) -state 26 +State 26 - 8 program_sequence: program_sequence program . end_program + 8 program_sequence: program_sequence program • end_program END shift, and go to state 10 end_program go to state 16 -state 27 +State 27 - 29 environment_division_opt: ENVIRONMENT DIVISION PERIOD_TOK . $@6 configuration_opt input_output_opt + 29 environment_division_opt: ENVIRONMENT DIVISION PERIOD_TOK • $@6 configuration_opt input_output_opt $default reduce using rule 28 ($@6) $@6 go to state 33 -state 28 +State 28 - 176 data_division_opt: DATA DIVISION . PERIOD_TOK $@11 file_section_opt working_storage_opt linkage_section_opt report_section_opt screen_section_opt + 176 data_division_opt: DATA DIVISION • PERIOD_TOK $@11 file_section_opt working_storage_opt linkage_section_opt report_section_opt screen_section_opt PERIOD_TOK shift, and go to state 34 -state 29 +State 29 - 559 procedure_division_opt: PROCEDURE . DIVISION $@51 using_parameters PERIOD_TOK $@52 declaratives_opt procedure_division + 559 procedure_division_opt: PROCEDURE • DIVISION $@51 using_parameters PERIOD_TOK $@52 declaratives_opt procedure_division DIVISION shift, and go to state 35 -state 30 +State 30 - 11 program: identification_division environment_division_opt data_division_opt procedure_division_opt . + 11 program: identification_division environment_division_opt data_division_opt procedure_division_opt • $default reduce using rule 11 (program) -state 31 +State 31 - 15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK . $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt + 15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK • $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt $default reduce using rule 12 ($@3) $@3 go to state 36 -state 32 +State 32 - 10 end_program: END PROGRAM $@2 IDSTRING . + 10 end_program: END PROGRAM $@2 IDSTRING • $default reduce using rule 10 (end_program) -state 33 +State 33 - 29 environment_division_opt: ENVIRONMENT DIVISION PERIOD_TOK $@6 . configuration_opt input_output_opt + 29 environment_division_opt: ENVIRONMENT DIVISION PERIOD_TOK $@6 • configuration_opt input_output_opt CONFIGURATION shift, and go to state 37 @@ -4034,41 +4611,41 @@ state 33 configuration_opt go to state 38 -state 34 +State 34 - 176 data_division_opt: DATA DIVISION PERIOD_TOK . $@11 file_section_opt working_storage_opt linkage_section_opt report_section_opt screen_section_opt + 176 data_division_opt: DATA DIVISION PERIOD_TOK • $@11 file_section_opt working_storage_opt linkage_section_opt report_section_opt screen_section_opt $default reduce using rule 175 ($@11) $@11 go to state 39 -state 35 +State 35 - 559 procedure_division_opt: PROCEDURE DIVISION . $@51 using_parameters PERIOD_TOK $@52 declaratives_opt procedure_division + 559 procedure_division_opt: PROCEDURE DIVISION • $@51 using_parameters PERIOD_TOK $@52 declaratives_opt procedure_division $default reduce using rule 557 ($@51) $@51 go to state 40 -state 36 +State 36 - 15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 . IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt + 15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 • IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt IDSTRING shift, and go to state 41 -state 37 +State 37 - 31 configuration_opt: CONFIGURATION . SECTION PERIOD_TOK configuration_section + 31 configuration_opt: CONFIGURATION • SECTION PERIOD_TOK configuration_section SECTION shift, and go to state 42 -state 38 +State 38 - 29 environment_division_opt: ENVIRONMENT DIVISION PERIOD_TOK $@6 configuration_opt . input_output_opt + 29 environment_division_opt: ENVIRONMENT DIVISION PERIOD_TOK $@6 configuration_opt • input_output_opt INPUT_OUTPUT shift, and go to state 43 @@ -4077,9 +4654,9 @@ state 38 input_output_opt go to state 44 -state 39 +State 39 - 176 data_division_opt: DATA DIVISION PERIOD_TOK $@11 . file_section_opt working_storage_opt linkage_section_opt report_section_opt screen_section_opt + 176 data_division_opt: DATA DIVISION PERIOD_TOK $@11 • file_section_opt working_storage_opt linkage_section_opt report_section_opt screen_section_opt FILE_TOK shift, and go to state 45 @@ -4088,9 +4665,9 @@ state 39 file_section_opt go to state 46 -state 40 +State 40 - 559 procedure_division_opt: PROCEDURE DIVISION $@51 . using_parameters PERIOD_TOK $@52 declaratives_opt procedure_division + 559 procedure_division_opt: PROCEDURE DIVISION $@51 • using_parameters PERIOD_TOK $@52 declaratives_opt procedure_division CHAINING shift, and go to state 47 USING shift, and go to state 48 @@ -4100,46 +4677,46 @@ state 40 using_parameters go to state 49 -state 41 +State 41 - 15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING . $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt + 15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING • $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt $default reduce using rule 13 ($@4) $@4 go to state 50 -state 42 +State 42 - 31 configuration_opt: CONFIGURATION SECTION . PERIOD_TOK configuration_section + 31 configuration_opt: CONFIGURATION SECTION • PERIOD_TOK configuration_section PERIOD_TOK shift, and go to state 51 -state 43 +State 43 - 93 input_output_opt: INPUT_OUTPUT . SECTION PERIOD_TOK input_output_section + 93 input_output_opt: INPUT_OUTPUT • SECTION PERIOD_TOK input_output_section SECTION shift, and go to state 52 -state 44 +State 44 - 29 environment_division_opt: ENVIRONMENT DIVISION PERIOD_TOK $@6 configuration_opt input_output_opt . + 29 environment_division_opt: ENVIRONMENT DIVISION PERIOD_TOK $@6 configuration_opt input_output_opt • $default reduce using rule 29 (environment_division_opt) -state 45 +State 45 - 179 file_section_opt: FILE_TOK . SECTION PERIOD_TOK $@12 file_section + 179 file_section_opt: FILE_TOK • SECTION PERIOD_TOK $@12 file_section SECTION shift, and go to state 53 -state 46 +State 46 - 176 data_division_opt: DATA DIVISION PERIOD_TOK $@11 file_section_opt . working_storage_opt linkage_section_opt report_section_opt screen_section_opt + 176 data_division_opt: DATA DIVISION PERIOD_TOK $@11 file_section_opt • working_storage_opt linkage_section_opt report_section_opt screen_section_opt WORKING_STORAGE shift, and go to state 54 @@ -4148,9 +4725,9 @@ state 46 working_storage_opt go to state 55 -state 47 +State 47 - 1132 using_parameters: CHAINING . gname_list + 1132 using_parameters: CHAINING • gname_list VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -4181,9 +4758,9 @@ state 47 unqualified_var go to state 81 -state 48 +State 48 - 1131 using_parameters: USING . gname_list + 1131 using_parameters: USING • gname_list VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -4214,16 +4791,16 @@ state 48 unqualified_var go to state 81 -state 49 +State 49 - 559 procedure_division_opt: PROCEDURE DIVISION $@51 using_parameters . PERIOD_TOK $@52 declaratives_opt procedure_division + 559 procedure_division_opt: PROCEDURE DIVISION $@51 using_parameters • PERIOD_TOK $@52 declaratives_opt procedure_division PERIOD_TOK shift, and go to state 83 -state 50 +State 50 - 15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 . programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt + 15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 • programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt IS shift, and go to state 84 @@ -4234,39 +4811,39 @@ state 50 is_opt go to state 86 -state 51 +State 51 - 31 configuration_opt: CONFIGURATION SECTION PERIOD_TOK . configuration_section + 31 configuration_opt: CONFIGURATION SECTION PERIOD_TOK • configuration_section $default reduce using rule 34 (configuration_section) configuration_section go to state 87 -state 52 +State 52 - 93 input_output_opt: INPUT_OUTPUT SECTION . PERIOD_TOK input_output_section + 93 input_output_opt: INPUT_OUTPUT SECTION • PERIOD_TOK input_output_section PERIOD_TOK shift, and go to state 88 -state 53 +State 53 - 179 file_section_opt: FILE_TOK SECTION . PERIOD_TOK $@12 file_section + 179 file_section_opt: FILE_TOK SECTION • PERIOD_TOK $@12 file_section PERIOD_TOK shift, and go to state 89 -state 54 +State 54 - 182 working_storage_opt: WORKING_STORAGE . SECTION PERIOD_TOK $@13 working_storage_section + 182 working_storage_opt: WORKING_STORAGE • SECTION PERIOD_TOK $@13 working_storage_section SECTION shift, and go to state 90 -state 55 +State 55 - 176 data_division_opt: DATA DIVISION PERIOD_TOK $@11 file_section_opt working_storage_opt . linkage_section_opt report_section_opt screen_section_opt + 176 data_division_opt: DATA DIVISION PERIOD_TOK $@11 file_section_opt working_storage_opt • linkage_section_opt report_section_opt screen_section_opt LINKAGE shift, and go to state 91 @@ -4275,59 +4852,59 @@ state 55 linkage_section_opt go to state 92 -state 56 +State 56 - 1294 unqualified_var: VARIABLE . + 1294 unqualified_var: VARIABLE • $default reduce using rule 1294 (unqualified_var) -state 57 +State 57 - 1295 unqualified_var: SUBSCVAR . + 1295 unqualified_var: SUBSCVAR • $default reduce using rule 1295 (unqualified_var) -state 58 +State 58 - 1287 name: LABELSTR . + 1287 name: LABELSTR • $default reduce using rule 1287 (name) -state 59 +State 59 - 1270 signed_nliteral: NLITERAL . + 1270 signed_nliteral: NLITERAL • $default reduce using rule 1270 (signed_nliteral) -state 60 +State 60 - 1269 literal: CLITERAL . + 1269 literal: CLITERAL • $default reduce using rule 1269 (literal) -state 61 +State 61 - 1271 signed_nliteral: '+' . NLITERAL + 1271 signed_nliteral: '+' • NLITERAL NLITERAL shift, and go to state 93 -state 62 +State 62 - 1272 signed_nliteral: '-' . NLITERAL + 1272 signed_nliteral: '-' • NLITERAL NLITERAL shift, and go to state 94 -state 63 +State 63 - 1258 all_literal: ALL . literal - 1259 | ALL . special_literal + 1258 all_literal: ALL • literal + 1259 | ALL • special_literal NLITERAL shift, and go to state 59 CLITERAL shift, and go to state 60 @@ -4344,53 +4921,53 @@ state 63 signed_nliteral go to state 77 -state 64 +State 64 - 1248 gname: FUNCTION . LABELSTR '(' @145 intrinsic_parm_list ')' - 1249 | FUNCTION . LABELSTR + 1248 gname: FUNCTION • LABELSTR '(' @145 intrinsic_parm_list ')' + 1249 | FUNCTION • LABELSTR LABELSTR shift, and go to state 97 -state 65 +State 65 - 1263 special_literal: HIGHVALUES . + 1263 special_literal: HIGHVALUES • $default reduce using rule 1263 (special_literal) -state 66 +State 66 - 1264 special_literal: LOWVALUES . + 1264 special_literal: LOWVALUES • $default reduce using rule 1264 (special_literal) -state 67 +State 67 - 1262 special_literal: QUOTES . + 1262 special_literal: QUOTES • $default reduce using rule 1262 (special_literal) -state 68 +State 68 - 1260 special_literal: SPACES . + 1260 special_literal: SPACES • $default reduce using rule 1260 (special_literal) -state 69 +State 69 - 1261 special_literal: ZERO . + 1261 special_literal: ZERO • $default reduce using rule 1261 (special_literal) -state 70 +State 70 - 1132 using_parameters: CHAINING gname_list . - 1244 gname_list: gname_list . sep_opt gname + 1132 using_parameters: CHAINING gname_list • + 1244 gname_list: gname_list • sep_opt gname LISTSEP shift, and go to state 98 @@ -4400,86 +4977,86 @@ state 70 sep_opt go to state 99 -state 71 +State 71 - 1243 gname_list: gname . + 1243 gname_list: gname • $default reduce using rule 1243 (gname_list) -state 72 +State 72 - 1246 gname: gliteral . + 1246 gname: gliteral • $default reduce using rule 1246 (gname) -state 73 +State 73 - 1254 gliteral: without_all_literal . + 1254 gliteral: without_all_literal • $default reduce using rule 1254 (gliteral) -state 74 +State 74 - 1255 gliteral: all_literal . + 1255 gliteral: all_literal • $default reduce using rule 1255 (gliteral) -state 75 +State 75 - 1257 without_all_literal: special_literal . + 1257 without_all_literal: special_literal • $default reduce using rule 1257 (without_all_literal) -state 76 +State 76 - 1256 without_all_literal: literal . + 1256 without_all_literal: literal • $default reduce using rule 1256 (without_all_literal) -state 77 +State 77 - 1268 literal: signed_nliteral . + 1268 literal: signed_nliteral • $default reduce using rule 1268 (literal) -state 78 +State 78 - 1245 gname: name . + 1245 gname: name • $default reduce using rule 1245 (gname) -state 79 +State 79 - 1285 name: variable . '(' gname ':' gname_opt ')' - 1286 | variable . + 1285 name: variable • '(' gname ':' gname_opt ')' + 1286 | variable • '(' shift, and go to state 100 $default reduce using rule 1286 (name) -state 80 +State 80 - 1289 variable: qualified_var . - 1291 | qualified_var . LPAR $@147 subscripts ')' + 1289 variable: qualified_var • + 1291 | qualified_var • LPAR $@147 subscripts ')' LPAR shift, and go to state 101 $default reduce using rule 1289 (variable) -state 81 +State 81 - 1292 qualified_var: unqualified_var . - 1293 | unqualified_var . in_of qualified_var + 1292 qualified_var: unqualified_var • + 1293 | unqualified_var • in_of qualified_var IN shift, and go to state 102 OF shift, and go to state 103 @@ -4489,10 +5066,10 @@ state 81 in_of go to state 104 -state 82 +State 82 - 1131 using_parameters: USING gname_list . - 1244 gname_list: gname_list . sep_opt gname + 1131 using_parameters: USING gname_list • + 1244 gname_list: gname_list • sep_opt gname LISTSEP shift, and go to state 98 @@ -4502,42 +5079,42 @@ state 82 sep_opt go to state 99 -state 83 +State 83 - 559 procedure_division_opt: PROCEDURE DIVISION $@51 using_parameters PERIOD_TOK . $@52 declaratives_opt procedure_division + 559 procedure_division_opt: PROCEDURE DIVISION $@51 using_parameters PERIOD_TOK • $@52 declaratives_opt procedure_division $default reduce using rule 558 ($@52) $@52 go to state 105 -state 84 +State 84 - 131 is_opt: IS . + 131 is_opt: IS • $default reduce using rule 131 (is_opt) -state 85 +State 85 - 15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt . PERIOD_TOK $@5 identification_division_options_opt + 15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt • PERIOD_TOK $@5 identification_division_options_opt PERIOD_TOK shift, and go to state 106 -state 86 +State 86 - 17 programid_opts_opt: is_opt . INITIAL_TOK programid_program_opt - 18 | is_opt . COMMON programid_program_opt + 17 programid_opts_opt: is_opt • INITIAL_TOK programid_program_opt + 18 | is_opt • COMMON programid_program_opt COMMON shift, and go to state 107 INITIAL_TOK shift, and go to state 108 -state 87 +State 87 - 31 configuration_opt: CONFIGURATION SECTION PERIOD_TOK configuration_section . - 33 configuration_section: configuration_section . configuration_option + 31 configuration_opt: CONFIGURATION SECTION PERIOD_TOK configuration_section • + 33 configuration_section: configuration_section • configuration_option error shift, and go to state 109 OBJECT_COMPUTER shift, and go to state 110 @@ -4554,9 +5131,9 @@ state 87 configuration_option go to state 113 -state 88 +State 88 - 93 input_output_opt: INPUT_OUTPUT SECTION PERIOD_TOK . input_output_section + 93 input_output_opt: INPUT_OUTPUT SECTION PERIOD_TOK • input_output_section error shift, and go to state 114 FILE_CONTROL shift, and go to state 115 @@ -4565,32 +5142,32 @@ state 88 file_control_paragraph go to state 117 -state 89 +State 89 - 179 file_section_opt: FILE_TOK SECTION PERIOD_TOK . $@12 file_section + 179 file_section_opt: FILE_TOK SECTION PERIOD_TOK • $@12 file_section $default reduce using rule 178 ($@12) $@12 go to state 118 -state 90 +State 90 - 182 working_storage_opt: WORKING_STORAGE SECTION . PERIOD_TOK $@13 working_storage_section + 182 working_storage_opt: WORKING_STORAGE SECTION • PERIOD_TOK $@13 working_storage_section PERIOD_TOK shift, and go to state 119 -state 91 +State 91 - 185 linkage_section_opt: LINKAGE . SECTION PERIOD_TOK $@14 linkage_section + 185 linkage_section_opt: LINKAGE • SECTION PERIOD_TOK $@14 linkage_section SECTION shift, and go to state 120 -state 92 +State 92 - 176 data_division_opt: DATA DIVISION PERIOD_TOK $@11 file_section_opt working_storage_opt linkage_section_opt . report_section_opt screen_section_opt + 176 data_division_opt: DATA DIVISION PERIOD_TOK $@11 file_section_opt working_storage_opt linkage_section_opt • report_section_opt screen_section_opt REPORT shift, and go to state 121 @@ -4599,54 +5176,54 @@ state 92 report_section_opt go to state 122 -state 93 +State 93 - 1271 signed_nliteral: '+' NLITERAL . + 1271 signed_nliteral: '+' NLITERAL • $default reduce using rule 1271 (signed_nliteral) -state 94 +State 94 - 1272 signed_nliteral: '-' NLITERAL . + 1272 signed_nliteral: '-' NLITERAL • $default reduce using rule 1272 (signed_nliteral) -state 95 +State 95 - 1259 all_literal: ALL special_literal . + 1259 all_literal: ALL special_literal • $default reduce using rule 1259 (all_literal) -state 96 +State 96 - 1258 all_literal: ALL literal . + 1258 all_literal: ALL literal • $default reduce using rule 1258 (all_literal) -state 97 +State 97 - 1248 gname: FUNCTION LABELSTR . '(' @145 intrinsic_parm_list ')' - 1249 | FUNCTION LABELSTR . + 1248 gname: FUNCTION LABELSTR • '(' @145 intrinsic_parm_list ')' + 1249 | FUNCTION LABELSTR • '(' shift, and go to state 123 $default reduce using rule 1249 (gname) -state 98 +State 98 - 1215 sep_opt: LISTSEP . + 1215 sep_opt: LISTSEP • $default reduce using rule 1215 (sep_opt) -state 99 +State 99 - 1244 gname_list: gname_list sep_opt . gname + 1244 gname_list: gname_list sep_opt • gname VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -4676,9 +5253,9 @@ state 99 unqualified_var go to state 81 -state 100 +State 100 - 1285 name: variable '(' . gname ':' gname_opt ')' + 1285 name: variable '(' • gname ':' gname_opt ')' VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -4708,32 +5285,32 @@ state 100 unqualified_var go to state 81 -state 101 +State 101 - 1291 variable: qualified_var LPAR . $@147 subscripts ')' + 1291 variable: qualified_var LPAR • $@147 subscripts ')' $default reduce using rule 1290 ($@147) $@147 go to state 126 -state 102 +State 102 - 1229 in_of: IN . + 1229 in_of: IN • $default reduce using rule 1229 (in_of) -state 103 +State 103 - 1230 in_of: OF . + 1230 in_of: OF • $default reduce using rule 1230 (in_of) -state 104 +State 104 - 1293 qualified_var: unqualified_var in_of . qualified_var + 1293 qualified_var: unqualified_var in_of • qualified_var VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -4742,9 +5319,9 @@ state 104 unqualified_var go to state 81 -state 105 +State 105 - 559 procedure_division_opt: PROCEDURE DIVISION $@51 using_parameters PERIOD_TOK $@52 . declaratives_opt procedure_division + 559 procedure_division_opt: PROCEDURE DIVISION $@51 using_parameters PERIOD_TOK $@52 • declaratives_opt procedure_division DECLARATIVES shift, and go to state 128 @@ -4753,18 +5330,18 @@ state 105 declaratives_opt go to state 129 -state 106 +State 106 - 15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK . $@5 identification_division_options_opt + 15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK • $@5 identification_division_options_opt $default reduce using rule 14 ($@5) $@5 go to state 130 -state 107 +State 107 - 18 programid_opts_opt: is_opt COMMON . programid_program_opt + 18 programid_opts_opt: is_opt COMMON • programid_program_opt PROGRAM shift, and go to state 131 @@ -4773,9 +5350,9 @@ state 107 programid_program_opt go to state 132 -state 108 +State 108 - 17 programid_opts_opt: is_opt INITIAL_TOK . programid_program_opt + 17 programid_opts_opt: is_opt INITIAL_TOK • programid_program_opt PROGRAM shift, and go to state 131 @@ -4784,65 +5361,65 @@ state 108 programid_program_opt go to state 133 -state 109 +State 109 - 40 configuration_option: error . + 40 configuration_option: error • $default reduce using rule 40 (configuration_option) -state 110 +State 110 - 38 configuration_option: OBJECT_COMPUTER . PERIOD_TOK $@8 STRING program_collating_opt PERIOD_TOK + 38 configuration_option: OBJECT_COMPUTER • PERIOD_TOK $@8 STRING program_collating_opt PERIOD_TOK PERIOD_TOK shift, and go to state 134 -state 111 +State 111 - 36 configuration_option: SOURCE_COMPUTER . PERIOD_TOK $@7 STRING debug_mode_opt PERIOD_TOK + 36 configuration_option: SOURCE_COMPUTER • PERIOD_TOK $@7 STRING debug_mode_opt PERIOD_TOK PERIOD_TOK shift, and go to state 135 -state 112 +State 112 - 39 configuration_option: SPECIAL_NAMES . PERIOD_TOK special_names_opt + 39 configuration_option: SPECIAL_NAMES • PERIOD_TOK special_names_opt PERIOD_TOK shift, and go to state 136 -state 113 +State 113 - 33 configuration_section: configuration_section configuration_option . + 33 configuration_section: configuration_section configuration_option • $default reduce using rule 33 (configuration_section) -state 114 +State 114 - 96 input_output_section: error . + 96 input_output_section: error • $default reduce using rule 96 (input_output_section) -state 115 +State 115 - 97 file_control_paragraph: FILE_CONTROL . PERIOD_TOK file_control + 97 file_control_paragraph: FILE_CONTROL • PERIOD_TOK file_control PERIOD_TOK shift, and go to state 137 -state 116 +State 116 - 93 input_output_opt: INPUT_OUTPUT SECTION PERIOD_TOK input_output_section . + 93 input_output_opt: INPUT_OUTPUT SECTION PERIOD_TOK input_output_section • $default reduce using rule 93 (input_output_opt) -state 117 +State 117 - 95 input_output_section: file_control_paragraph . i_o_control_paragraph + 95 input_output_section: file_control_paragraph • i_o_control_paragraph I_O_CONTROL shift, and go to state 138 @@ -4851,9 +5428,9 @@ state 117 i_o_control_paragraph go to state 139 -state 118 +State 118 - 179 file_section_opt: FILE_TOK SECTION PERIOD_TOK $@12 . file_section + 179 file_section_opt: FILE_TOK SECTION PERIOD_TOK $@12 • file_section error shift, and go to state 140 @@ -4871,32 +5448,32 @@ state 118 file_section go to state 141 -state 119 +State 119 - 182 working_storage_opt: WORKING_STORAGE SECTION PERIOD_TOK . $@13 working_storage_section + 182 working_storage_opt: WORKING_STORAGE SECTION PERIOD_TOK • $@13 working_storage_section $default reduce using rule 181 ($@13) $@13 go to state 142 -state 120 +State 120 - 185 linkage_section_opt: LINKAGE SECTION . PERIOD_TOK $@14 linkage_section + 185 linkage_section_opt: LINKAGE SECTION • PERIOD_TOK $@14 linkage_section PERIOD_TOK shift, and go to state 143 -state 121 +State 121 - 187 report_section_opt: REPORT . SECTION PERIOD_TOK report_sections + 187 report_section_opt: REPORT • SECTION PERIOD_TOK report_sections SECTION shift, and go to state 144 -state 122 +State 122 - 176 data_division_opt: DATA DIVISION PERIOD_TOK $@11 file_section_opt working_storage_opt linkage_section_opt report_section_opt . screen_section_opt + 176 data_division_opt: DATA DIVISION PERIOD_TOK $@11 file_section_opt working_storage_opt linkage_section_opt report_section_opt • screen_section_opt SCREEN shift, and go to state 145 @@ -4905,32 +5482,32 @@ state 122 screen_section_opt go to state 146 -state 123 +State 123 - 1248 gname: FUNCTION LABELSTR '(' . @145 intrinsic_parm_list ')' + 1248 gname: FUNCTION LABELSTR '(' • @145 intrinsic_parm_list ')' $default reduce using rule 1247 (@145) @145 go to state 147 -state 124 +State 124 - 1244 gname_list: gname_list sep_opt gname . + 1244 gname_list: gname_list sep_opt gname • $default reduce using rule 1244 (gname_list) -state 125 +State 125 - 1285 name: variable '(' gname . ':' gname_opt ')' + 1285 name: variable '(' gname • ':' gname_opt ')' ':' shift, and go to state 148 -state 126 +State 126 - 1291 variable: qualified_var LPAR $@147 . subscripts ')' + 1291 variable: qualified_var LPAR $@147 • subscripts ')' VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -4962,80 +5539,80 @@ state 126 subscript go to state 151 -state 127 +State 127 - 1293 qualified_var: unqualified_var in_of qualified_var . + 1293 qualified_var: unqualified_var in_of qualified_var • $default reduce using rule 1293 (qualified_var) -state 128 +State 128 - 571 declaratives_opt: DECLARATIVES . PERIOD_TOK $@55 declaratives_procedure declaratives_division END DECLARATIVES PERIOD_TOK + 571 declaratives_opt: DECLARATIVES • PERIOD_TOK $@55 declaratives_procedure declaratives_division END DECLARATIVES PERIOD_TOK PERIOD_TOK shift, and go to state 152 -state 129 +State 129 - 559 procedure_division_opt: PROCEDURE DIVISION $@51 using_parameters PERIOD_TOK $@52 declaratives_opt . procedure_division + 559 procedure_division_opt: PROCEDURE DIVISION $@51 using_parameters PERIOD_TOK $@52 declaratives_opt • procedure_division $default reduce using rule 561 (procedure_division) procedure_division go to state 153 -state 130 +State 130 - 15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 . identification_division_options_opt + 15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 • identification_division_options_opt $default reduce using rule 21 (identification_division_options_opt) identification_division_options_opt go to state 154 -state 131 +State 131 - 20 programid_program_opt: PROGRAM . + 20 programid_program_opt: PROGRAM • $default reduce using rule 20 (programid_program_opt) -state 132 +State 132 - 18 programid_opts_opt: is_opt COMMON programid_program_opt . + 18 programid_opts_opt: is_opt COMMON programid_program_opt • $default reduce using rule 18 (programid_opts_opt) -state 133 +State 133 - 17 programid_opts_opt: is_opt INITIAL_TOK programid_program_opt . + 17 programid_opts_opt: is_opt INITIAL_TOK programid_program_opt • $default reduce using rule 17 (programid_opts_opt) -state 134 +State 134 - 38 configuration_option: OBJECT_COMPUTER PERIOD_TOK . $@8 STRING program_collating_opt PERIOD_TOK + 38 configuration_option: OBJECT_COMPUTER PERIOD_TOK • $@8 STRING program_collating_opt PERIOD_TOK $default reduce using rule 37 ($@8) $@8 go to state 155 -state 135 +State 135 - 36 configuration_option: SOURCE_COMPUTER PERIOD_TOK . $@7 STRING debug_mode_opt PERIOD_TOK + 36 configuration_option: SOURCE_COMPUTER PERIOD_TOK • $@7 STRING debug_mode_opt PERIOD_TOK $default reduce using rule 35 ($@7) $@7 go to state 156 -state 136 +State 136 - 39 configuration_option: SPECIAL_NAMES PERIOD_TOK . special_names_opt + 39 configuration_option: SPECIAL_NAMES PERIOD_TOK • special_names_opt error shift, and go to state 157 ALPHABET shift, and go to state 158 @@ -5076,9 +5653,9 @@ state 136 alphabet_details go to state 173 -state 137 +State 137 - 97 file_control_paragraph: FILE_CONTROL PERIOD_TOK . file_control + 97 file_control_paragraph: FILE_CONTROL PERIOD_TOK • file_control SELECT shift, and go to state 174 @@ -5086,32 +5663,32 @@ state 137 file_select go to state 176 -state 138 +State 138 - 99 i_o_control_paragraph: I_O_CONTROL . PERIOD_TOK i_o_control_opt + 99 i_o_control_paragraph: I_O_CONTROL • PERIOD_TOK i_o_control_opt PERIOD_TOK shift, and go to state 177 -state 139 +State 139 - 95 input_output_section: file_control_paragraph i_o_control_paragraph . + 95 input_output_section: file_control_paragraph i_o_control_paragraph • $default reduce using rule 95 (input_output_section) -state 140 +State 140 - 424 file_section: error . + 424 file_section: error • $default reduce using rule 424 (file_section) -state 141 +State 141 - 179 file_section_opt: FILE_TOK SECTION PERIOD_TOK $@12 file_section . - 419 file_section: file_section . FD $@38 STRING $@39 file_description_fd_clauses PERIOD_TOK $@40 file_description - 423 | file_section . SD $@41 STRING $@42 file_description_sd_clauses PERIOD_TOK $@43 file_description + 179 file_section_opt: FILE_TOK SECTION PERIOD_TOK $@12 file_section • + 419 file_section: file_section • FD $@38 STRING $@39 file_description_fd_clauses PERIOD_TOK $@40 file_description + 423 | file_section • SD $@41 STRING $@42 file_description_sd_clauses PERIOD_TOK $@43 file_description FD shift, and go to state 178 SD shift, and go to state 179 @@ -5119,48 +5696,48 @@ state 141 $default reduce using rule 179 (file_section_opt) -state 142 +State 142 - 182 working_storage_opt: WORKING_STORAGE SECTION PERIOD_TOK $@13 . working_storage_section + 182 working_storage_opt: WORKING_STORAGE SECTION PERIOD_TOK $@13 • working_storage_section $default reduce using rule 554 (working_storage_section) working_storage_section go to state 180 -state 143 +State 143 - 185 linkage_section_opt: LINKAGE SECTION PERIOD_TOK . $@14 linkage_section + 185 linkage_section_opt: LINKAGE SECTION PERIOD_TOK • $@14 linkage_section $default reduce using rule 184 ($@14) $@14 go to state 181 -state 144 +State 144 - 187 report_section_opt: REPORT SECTION . PERIOD_TOK report_sections + 187 report_section_opt: REPORT SECTION • PERIOD_TOK report_sections PERIOD_TOK shift, and go to state 182 -state 145 +State 145 - 320 screen_section_opt: SCREEN . SECTION PERIOD_TOK $@27 screen_section + 320 screen_section_opt: SCREEN • SECTION PERIOD_TOK $@27 screen_section SECTION shift, and go to state 183 -state 146 +State 146 - 176 data_division_opt: DATA DIVISION PERIOD_TOK $@11 file_section_opt working_storage_opt linkage_section_opt report_section_opt screen_section_opt . + 176 data_division_opt: DATA DIVISION PERIOD_TOK $@11 file_section_opt working_storage_opt linkage_section_opt report_section_opt screen_section_opt • $default reduce using rule 176 (data_division_opt) -state 147 +State 147 - 1248 gname: FUNCTION LABELSTR '(' @145 . intrinsic_parm_list ')' + 1248 gname: FUNCTION LABELSTR '(' @145 • intrinsic_parm_list ')' VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -5192,9 +5769,9 @@ state 147 unqualified_var go to state 81 -state 148 +State 148 - 1285 name: variable '(' gname ':' . gname_opt ')' + 1285 name: variable '(' gname ':' • gname_opt ')' VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -5227,17 +5804,17 @@ state 148 unqualified_var go to state 81 -state 149 +State 149 - 1298 subscript: gname . + 1298 subscript: gname • $default reduce using rule 1298 (subscript) -state 150 +State 150 - 1291 variable: qualified_var LPAR $@147 subscripts . ')' - 1297 subscripts: subscripts . comma_opt subscript + 1291 variable: qualified_var LPAR $@147 subscripts • ')' + 1297 subscripts: subscripts • comma_opt subscript ')' shift, and go to state 189 ',' shift, and go to state 190 @@ -5247,11 +5824,11 @@ state 150 comma_opt go to state 191 -state 151 +State 151 - 1296 subscripts: subscript . - 1299 subscript: subscript . '+' gname - 1300 | subscript . '-' gname + 1296 subscripts: subscript • + 1299 subscript: subscript • '+' gname + 1300 | subscript • '-' gname '+' shift, and go to state 192 '-' shift, and go to state 193 @@ -5261,19 +5838,19 @@ state 151 $default reduce using rule 1296 (subscripts) -state 152 +State 152 - 571 declaratives_opt: DECLARATIVES PERIOD_TOK . $@55 declaratives_procedure declaratives_division END DECLARATIVES PERIOD_TOK + 571 declaratives_opt: DECLARATIVES PERIOD_TOK • $@55 declaratives_procedure declaratives_division END DECLARATIVES PERIOD_TOK $default reduce using rule 570 ($@55) $@55 go to state 194 -state 153 +State 153 - 559 procedure_division_opt: PROCEDURE DIVISION $@51 using_parameters PERIOD_TOK $@52 declaratives_opt procedure_division . - 562 procedure_division: procedure_division . procedure_decl + 559 procedure_division_opt: PROCEDURE DIVISION $@51 using_parameters PERIOD_TOK $@52 declaratives_opt procedure_division • + 562 procedure_division: procedure_division • procedure_decl error shift, and go to state 195 LABELSTR shift, and go to state 196 @@ -5334,10 +5911,10 @@ state 153 paragraph go to state 201 -state 154 +State 154 - 15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt . - 22 identification_division_options_opt: identification_division_options_opt . identification_division_option + 15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt • + 22 identification_division_options_opt: identification_division_options_opt • identification_division_option AUTHOR shift, and go to state 202 DATE_COMPILED shift, and go to state 203 @@ -5350,44 +5927,44 @@ state 154 identification_division_option go to state 207 -state 155 +State 155 - 38 configuration_option: OBJECT_COMPUTER PERIOD_TOK $@8 . STRING program_collating_opt PERIOD_TOK + 38 configuration_option: OBJECT_COMPUTER PERIOD_TOK $@8 • STRING program_collating_opt PERIOD_TOK STRING shift, and go to state 208 -state 156 +State 156 - 36 configuration_option: SOURCE_COMPUTER PERIOD_TOK $@7 . STRING debug_mode_opt PERIOD_TOK + 36 configuration_option: SOURCE_COMPUTER PERIOD_TOK $@7 • STRING debug_mode_opt PERIOD_TOK STRING shift, and go to state 209 -state 157 +State 157 - 50 special_names_opt: error . + 50 special_names_opt: error • $default reduce using rule 50 (special_names_opt) -state 158 +State 158 - 81 alphabet_details: ALPHABET . STRING is_opt alphabet_type + 81 alphabet_details: ALPHABET • STRING is_opt alphabet_type STRING shift, and go to state 210 -state 159 +State 159 - 63 special_name_class: CLASS . STRING is_opt special_name_class_item_list + 63 special_name_class: CLASS • STRING is_opt special_name_class_item_list STRING shift, and go to state 211 -state 160 +State 160 - 60 currency_details: CURRENCY . sign_opt is_opt CLITERAL + 60 currency_details: CURRENCY • sign_opt is_opt CLITERAL SIGN shift, and go to state 212 @@ -5396,9 +5973,9 @@ state 160 sign_opt go to state 213 -state 161 +State 161 - 70 cursor_details: CURSOR . is_opt STRING + 70 cursor_details: CURSOR • is_opt STRING IS shift, and go to state 84 @@ -5407,9 +5984,9 @@ state 161 is_opt go to state 214 -state 162 +State 162 - 68 decimal_point_details: DECIMAL_POINT . is_opt COMMA + 68 decimal_point_details: DECIMAL_POINT • is_opt COMMA IS shift, and go to state 84 @@ -5418,24 +5995,24 @@ state 162 is_opt go to state 215 -state 163 +State 163 - 69 screen_status_details: DISPLAY_SCREEN . STATUS is_opt STRING + 69 screen_status_details: DISPLAY_SCREEN • STATUS is_opt STRING STATUS shift, and go to state 216 -state 164 +State 164 - 39 configuration_option: SPECIAL_NAMES PERIOD_TOK special_names_opt . + 39 configuration_option: SPECIAL_NAMES PERIOD_TOK special_names_opt • $default reduce using rule 39 (configuration_option) -state 165 +State 165 - 49 special_names_opt: special_names . PERIOD_TOK - 52 special_names: special_names . special_name + 49 special_names_opt: special_names • PERIOD_TOK + 52 special_names: special_names • special_name ALPHABET shift, and go to state 158 CLASS shift, and go to state 159 @@ -5464,52 +6041,52 @@ state 165 alphabet_details go to state 173 -state 166 +State 166 - 51 special_names: special_name . + 51 special_names: special_name • $default reduce using rule 51 (special_names) -state 167 +State 167 - 55 special_name: currency_details . + 55 special_name: currency_details • $default reduce using rule 55 (special_name) -state 168 +State 168 - 59 special_name: special_name_class . + 59 special_name: special_name_class • $default reduce using rule 59 (special_name) -state 169 +State 169 - 56 special_name: decimal_point_details . + 56 special_name: decimal_point_details • $default reduce using rule 56 (special_name) -state 170 +State 170 - 57 special_name: screen_status_details . + 57 special_name: screen_status_details • $default reduce using rule 57 (special_name) -state 171 +State 171 - 58 special_name: cursor_details . + 58 special_name: cursor_details • $default reduce using rule 58 (special_name) -state 172 +State 172 - 53 special_name: switches_details_list . - 72 switches_details_list: switches_details_list . switches_details + 53 special_name: switches_details_list • + 72 switches_details_list: switches_details_list • switches_details STRING shift, and go to state 219 @@ -5519,16 +6096,16 @@ state 172 switches_details go to state 220 -state 173 +State 173 - 54 special_name: alphabet_details . + 54 special_name: alphabet_details • $default reduce using rule 54 (special_name) -state 174 +State 174 - 103 file_select: SELECT . optional_opt def_name $@10 select_clauses PERIOD_TOK + 103 file_select: SELECT • optional_opt def_name $@10 select_clauses PERIOD_TOK OPTIONAL shift, and go to state 221 @@ -5537,10 +6114,10 @@ state 174 optional_opt go to state 222 -state 175 +State 175 - 97 file_control_paragraph: FILE_CONTROL PERIOD_TOK file_control . - 101 file_control: file_control . file_select + 97 file_control_paragraph: FILE_CONTROL PERIOD_TOK file_control • + 101 file_control: file_control • file_select SELECT shift, and go to state 174 @@ -5549,16 +6126,16 @@ state 175 file_select go to state 223 -state 176 +State 176 - 100 file_control: file_select . + 100 file_control: file_select • $default reduce using rule 100 (file_control) -state 177 +State 177 - 99 i_o_control_paragraph: I_O_CONTROL PERIOD_TOK . i_o_control_opt + 99 i_o_control_paragraph: I_O_CONTROL PERIOD_TOK • i_o_control_opt MULTIPLE shift, and go to state 224 SAME shift, and go to state 225 @@ -5572,28 +6149,28 @@ state 177 i_o_control_multiple_file_tape_clause go to state 230 -state 178 +State 178 - 419 file_section: file_section FD . $@38 STRING $@39 file_description_fd_clauses PERIOD_TOK $@40 file_description + 419 file_section: file_section FD • $@38 STRING $@39 file_description_fd_clauses PERIOD_TOK $@40 file_description $default reduce using rule 416 ($@38) $@38 go to state 231 -state 179 +State 179 - 423 file_section: file_section SD . $@41 STRING $@42 file_description_sd_clauses PERIOD_TOK $@43 file_description + 423 file_section: file_section SD • $@41 STRING $@42 file_description_sd_clauses PERIOD_TOK $@43 file_description $default reduce using rule 420 ($@41) $@41 go to state 232 -state 180 +State 180 - 182 working_storage_opt: WORKING_STORAGE SECTION PERIOD_TOK $@13 working_storage_section . - 553 working_storage_section: working_storage_section . field_description + 182 working_storage_opt: WORKING_STORAGE SECTION PERIOD_TOK $@13 working_storage_section • + 553 working_storage_section: working_storage_section • field_description NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -5606,35 +6183,35 @@ state 180 integer go to state 235 -state 181 +State 181 - 185 linkage_section_opt: LINKAGE SECTION PERIOD_TOK $@14 . linkage_section + 185 linkage_section_opt: LINKAGE SECTION PERIOD_TOK $@14 • linkage_section $default reduce using rule 555 (linkage_section) linkage_section go to state 236 -state 182 +State 182 - 187 report_section_opt: REPORT SECTION PERIOD_TOK . report_sections + 187 report_section_opt: REPORT SECTION PERIOD_TOK • report_sections $default reduce using rule 190 (report_sections) report_sections go to state 237 -state 183 +State 183 - 320 screen_section_opt: SCREEN SECTION . PERIOD_TOK $@27 screen_section + 320 screen_section_opt: SCREEN SECTION • PERIOD_TOK $@27 screen_section PERIOD_TOK shift, and go to state 238 -state 184 +State 184 - 1140 intrinsic_parm_list: intrinsic_parm_list . sep_opt intrinsic_parm - 1248 gname: FUNCTION LABELSTR '(' @145 intrinsic_parm_list . ')' + 1140 intrinsic_parm_list: intrinsic_parm_list • sep_opt intrinsic_parm + 1248 gname: FUNCTION LABELSTR '(' @145 intrinsic_parm_list • ')' LISTSEP shift, and go to state 98 ')' shift, and go to state 239 @@ -5644,51 +6221,51 @@ state 184 sep_opt go to state 240 -state 185 +State 185 - 1141 intrinsic_parm_list: intrinsic_parm . + 1141 intrinsic_parm_list: intrinsic_parm • $default reduce using rule 1141 (intrinsic_parm_list) -state 186 +State 186 - 1142 intrinsic_parm: gname . + 1142 intrinsic_parm: gname • $default reduce using rule 1142 (intrinsic_parm) -state 187 +State 187 - 1285 name: variable '(' gname ':' gname_opt . ')' + 1285 name: variable '(' gname ':' gname_opt • ')' ')' shift, and go to state 241 -state 188 +State 188 - 1237 gname_opt: gname . + 1237 gname_opt: gname • $default reduce using rule 1237 (gname_opt) -state 189 +State 189 - 1291 variable: qualified_var LPAR $@147 subscripts ')' . + 1291 variable: qualified_var LPAR $@147 subscripts ')' • $default reduce using rule 1291 (variable) -state 190 +State 190 - 1213 comma_opt: ',' . + 1213 comma_opt: ',' • $default reduce using rule 1213 (comma_opt) -state 191 +State 191 - 1297 subscripts: subscripts comma_opt . subscript + 1297 subscripts: subscripts comma_opt • subscript VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -5719,9 +6296,9 @@ state 191 subscript go to state 242 -state 192 +State 192 - 1299 subscript: subscript '+' . gname + 1299 subscript: subscript '+' • gname VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -5751,9 +6328,9 @@ state 192 unqualified_var go to state 81 -state 193 +State 193 - 1300 subscript: subscript '-' . gname + 1300 subscript: subscript '-' • gname VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -5783,9 +6360,9 @@ state 193 unqualified_var go to state 81 -state 194 +State 194 - 571 declaratives_opt: DECLARATIVES PERIOD_TOK $@55 . declaratives_procedure declaratives_division END DECLARATIVES PERIOD_TOK + 571 declaratives_opt: DECLARATIVES PERIOD_TOK $@55 • declaratives_procedure declaratives_division END DECLARATIVES PERIOD_TOK error shift, and go to state 245 LABELSTR shift, and go to state 246 @@ -5794,19 +6371,19 @@ state 194 procedure_section go to state 248 -state 195 +State 195 - 568 procedure_decl: error . $@54 PERIOD_TOK + 568 procedure_decl: error • $@54 PERIOD_TOK $default reduce using rule 567 ($@54) $@54 go to state 249 -state 196 +State 196 - 592 procedure_section: LABELSTR . SECTION PERIOD_TOK - 593 paragraph: LABELSTR . dot_or_eos + 592 procedure_section: LABELSTR • SECTION PERIOD_TOK + 593 paragraph: LABELSTR • dot_or_eos SECTION shift, and go to state 250 PERIOD_TOK shift, and go to state 251 @@ -5815,23 +6392,23 @@ state 196 dot_or_eos go to state 253 -state 197 +State 197 - 569 procedure_decl: PERIOD_TOK . + 569 procedure_decl: PERIOD_TOK • $default reduce using rule 569 (procedure_decl) -state 198 +State 198 - 562 procedure_division: procedure_division procedure_decl . + 562 procedure_division: procedure_division procedure_decl • $default reduce using rule 562 (procedure_division) -state 199 +State 199 - 566 procedure_decl: $@53 . statements PERIOD_TOK + 566 procedure_decl: $@53 • statements PERIOD_TOK READ shift, and go to state 254 WRITE shift, and go to state 255 @@ -5933,65 +6510,65 @@ state 199 inspect_statement go to state 350 -state 200 +State 200 - 563 procedure_decl: procedure_section . + 563 procedure_decl: procedure_section • $default reduce using rule 563 (procedure_decl) -state 201 +State 201 - 564 procedure_decl: paragraph . + 564 procedure_decl: paragraph • $default reduce using rule 564 (procedure_decl) -state 202 +State 202 - 23 identification_division_option: AUTHOR . PERIOD_TOK + 23 identification_division_option: AUTHOR • PERIOD_TOK PERIOD_TOK shift, and go to state 351 -state 203 +State 203 - 25 identification_division_option: DATE_COMPILED . PERIOD_TOK + 25 identification_division_option: DATE_COMPILED • PERIOD_TOK PERIOD_TOK shift, and go to state 352 -state 204 +State 204 - 24 identification_division_option: DATE_WRITTEN . PERIOD_TOK + 24 identification_division_option: DATE_WRITTEN • PERIOD_TOK PERIOD_TOK shift, and go to state 353 -state 205 +State 205 - 26 identification_division_option: INSTALLATION . PERIOD_TOK + 26 identification_division_option: INSTALLATION • PERIOD_TOK PERIOD_TOK shift, and go to state 354 -state 206 +State 206 - 27 identification_division_option: SECURITY . PERIOD_TOK + 27 identification_division_option: SECURITY • PERIOD_TOK PERIOD_TOK shift, and go to state 355 -state 207 +State 207 - 22 identification_division_options_opt: identification_division_options_opt identification_division_option . + 22 identification_division_options_opt: identification_division_options_opt identification_division_option • $default reduce using rule 22 (identification_division_options_opt) -state 208 +State 208 - 38 configuration_option: OBJECT_COMPUTER PERIOD_TOK $@8 STRING . program_collating_opt PERIOD_TOK + 38 configuration_option: OBJECT_COMPUTER PERIOD_TOK $@8 STRING • program_collating_opt PERIOD_TOK PROGRAM shift, and go to state 356 @@ -6000,9 +6577,9 @@ state 208 program_collating_opt go to state 357 -state 209 +State 209 - 36 configuration_option: SOURCE_COMPUTER PERIOD_TOK $@7 STRING . debug_mode_opt PERIOD_TOK + 36 configuration_option: SOURCE_COMPUTER PERIOD_TOK $@7 STRING • debug_mode_opt PERIOD_TOK WITH shift, and go to state 358 @@ -6013,9 +6590,9 @@ state 209 with_opt go to state 360 -state 210 +State 210 - 81 alphabet_details: ALPHABET STRING . is_opt alphabet_type + 81 alphabet_details: ALPHABET STRING • is_opt alphabet_type IS shift, and go to state 84 @@ -6024,9 +6601,9 @@ state 210 is_opt go to state 361 -state 211 +State 211 - 63 special_name_class: CLASS STRING . is_opt special_name_class_item_list + 63 special_name_class: CLASS STRING • is_opt special_name_class_item_list IS shift, and go to state 84 @@ -6035,16 +6612,16 @@ state 211 is_opt go to state 362 -state 212 +State 212 - 61 sign_opt: SIGN . + 61 sign_opt: SIGN • $default reduce using rule 61 (sign_opt) -state 213 +State 213 - 60 currency_details: CURRENCY sign_opt . is_opt CLITERAL + 60 currency_details: CURRENCY sign_opt • is_opt CLITERAL IS shift, and go to state 84 @@ -6053,23 +6630,23 @@ state 213 is_opt go to state 363 -state 214 +State 214 - 70 cursor_details: CURSOR is_opt . STRING + 70 cursor_details: CURSOR is_opt • STRING STRING shift, and go to state 364 -state 215 +State 215 - 68 decimal_point_details: DECIMAL_POINT is_opt . COMMA + 68 decimal_point_details: DECIMAL_POINT is_opt • COMMA COMMA shift, and go to state 365 -state 216 +State 216 - 69 screen_status_details: DISPLAY_SCREEN STATUS . is_opt STRING + 69 screen_status_details: DISPLAY_SCREEN STATUS • is_opt STRING IS shift, and go to state 84 @@ -6078,23 +6655,23 @@ state 216 is_opt go to state 366 -state 217 +State 217 - 49 special_names_opt: special_names PERIOD_TOK . + 49 special_names_opt: special_names PERIOD_TOK • $default reduce using rule 49 (special_names_opt) -state 218 +State 218 - 52 special_names: special_names special_name . + 52 special_names: special_names special_name • $default reduce using rule 52 (special_names) -state 219 +State 219 - 74 switches_details: STRING . is_opt STRING $@9 switch_on_opt switch_off_opt + 74 switches_details: STRING • is_opt STRING $@9 switch_on_opt switch_off_opt IS shift, and go to state 84 @@ -6103,23 +6680,23 @@ state 219 is_opt go to state 367 -state 220 +State 220 - 72 switches_details_list: switches_details_list switches_details . + 72 switches_details_list: switches_details_list switches_details • $default reduce using rule 72 (switches_details_list) -state 221 +State 221 - 126 optional_opt: OPTIONAL . + 126 optional_opt: OPTIONAL • $default reduce using rule 126 (optional_opt) -state 222 +State 222 - 103 file_select: SELECT optional_opt . def_name $@10 select_clauses PERIOD_TOK + 103 file_select: SELECT optional_opt • def_name $@10 select_clauses PERIOD_TOK STRING shift, and go to state 368 FILLER shift, and go to state 369 @@ -6127,23 +6704,23 @@ state 222 def_name go to state 370 -state 223 +State 223 - 101 file_control: file_control file_select . + 101 file_control: file_control file_select • $default reduce using rule 101 (file_control) -state 224 +State 224 - 157 i_o_control_multiple_file_tape_clause: MULTIPLE . FILE_TOK tape_opt contains_opt i_o_control_multiple_file_list + 157 i_o_control_multiple_file_tape_clause: MULTIPLE • FILE_TOK tape_opt contains_opt i_o_control_multiple_file_list FILE_TOK shift, and go to state 371 -state 225 +State 225 - 152 i_o_control_same_clause: SAME . same_clause_options are_opta for_opt string_list + 152 i_o_control_same_clause: SAME • same_clause_options are_opta for_opt string_list RECORD shift, and go to state 372 SORT shift, and go to state 373 @@ -6154,17 +6731,17 @@ state 225 same_clause_options go to state 375 -state 226 +State 226 - 99 i_o_control_paragraph: I_O_CONTROL PERIOD_TOK i_o_control_opt . + 99 i_o_control_paragraph: I_O_CONTROL PERIOD_TOK i_o_control_opt • $default reduce using rule 99 (i_o_control_paragraph) -state 227 +State 227 - 147 i_o_control_opt: i_o_control_list . PERIOD_TOK - 149 i_o_control_list: i_o_control_list . i_o_control_clause + 147 i_o_control_opt: i_o_control_list • PERIOD_TOK + 149 i_o_control_list: i_o_control_list • i_o_control_clause MULTIPLE shift, and go to state 224 SAME shift, and go to state 225 @@ -6175,58 +6752,58 @@ state 227 i_o_control_multiple_file_tape_clause go to state 230 -state 228 +State 228 - 148 i_o_control_list: i_o_control_clause . + 148 i_o_control_list: i_o_control_clause • $default reduce using rule 148 (i_o_control_list) -state 229 +State 229 - 150 i_o_control_clause: i_o_control_same_clause . + 150 i_o_control_clause: i_o_control_same_clause • $default reduce using rule 150 (i_o_control_clause) -state 230 +State 230 - 151 i_o_control_clause: i_o_control_multiple_file_tape_clause . + 151 i_o_control_clause: i_o_control_multiple_file_tape_clause • $default reduce using rule 151 (i_o_control_clause) -state 231 +State 231 - 419 file_section: file_section FD $@38 . STRING $@39 file_description_fd_clauses PERIOD_TOK $@40 file_description + 419 file_section: file_section FD $@38 • STRING $@39 file_description_fd_clauses PERIOD_TOK $@40 file_description STRING shift, and go to state 378 -state 232 +State 232 - 423 file_section: file_section SD $@41 . STRING $@42 file_description_sd_clauses PERIOD_TOK $@43 file_description + 423 file_section: file_section SD $@41 • STRING $@42 file_description_sd_clauses PERIOD_TOK $@43 file_description STRING shift, and go to state 379 -state 233 +State 233 - 553 working_storage_section: working_storage_section field_description . + 553 working_storage_section: working_storage_section field_description • $default reduce using rule 553 (working_storage_section) -state 234 +State 234 - 1301 integer: signed_nliteral . + 1301 integer: signed_nliteral • $default reduce using rule 1301 (integer) -state 235 +State 235 - 429 field_description: integer . def_name_opt $@44 data_clauses PERIOD_TOK + 429 field_description: integer • def_name_opt $@44 data_clauses PERIOD_TOK STRING shift, and go to state 368 FILLER shift, and go to state 369 @@ -6237,10 +6814,10 @@ state 235 def_name go to state 381 -state 236 +State 236 - 185 linkage_section_opt: LINKAGE SECTION PERIOD_TOK $@14 linkage_section . - 556 linkage_section: linkage_section . field_description + 185 linkage_section_opt: LINKAGE SECTION PERIOD_TOK $@14 linkage_section • + 556 linkage_section: linkage_section • field_description NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -6253,10 +6830,10 @@ state 236 integer go to state 235 -state 237 +State 237 - 187 report_section_opt: REPORT SECTION PERIOD_TOK report_sections . - 189 report_sections: report_sections . report_section + 187 report_section_opt: REPORT SECTION PERIOD_TOK report_sections • + 189 report_sections: report_sections • report_section RD shift, and go to state 383 @@ -6265,25 +6842,25 @@ state 237 report_section go to state 384 -state 238 +State 238 - 320 screen_section_opt: SCREEN SECTION PERIOD_TOK . $@27 screen_section + 320 screen_section_opt: SCREEN SECTION PERIOD_TOK • $@27 screen_section $default reduce using rule 319 ($@27) $@27 go to state 385 -state 239 +State 239 - 1248 gname: FUNCTION LABELSTR '(' @145 intrinsic_parm_list ')' . + 1248 gname: FUNCTION LABELSTR '(' @145 intrinsic_parm_list ')' • $default reduce using rule 1248 (gname) -state 240 +State 240 - 1140 intrinsic_parm_list: intrinsic_parm_list sep_opt . intrinsic_parm + 1140 intrinsic_parm_list: intrinsic_parm_list sep_opt • intrinsic_parm VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -6314,18 +6891,18 @@ state 240 unqualified_var go to state 81 -state 241 +State 241 - 1285 name: variable '(' gname ':' gname_opt ')' . + 1285 name: variable '(' gname ':' gname_opt ')' • $default reduce using rule 1285 (name) -state 242 +State 242 - 1297 subscripts: subscripts comma_opt subscript . - 1299 subscript: subscript . '+' gname - 1300 | subscript . '-' gname + 1297 subscripts: subscripts comma_opt subscript • + 1299 subscript: subscript • '+' gname + 1300 | subscript • '-' gname '+' shift, and go to state 192 '-' shift, and go to state 193 @@ -6335,91 +6912,91 @@ state 242 $default reduce using rule 1297 (subscripts) -state 243 +State 243 - 1299 subscript: subscript '+' gname . + 1299 subscript: subscript '+' gname • $default reduce using rule 1299 (subscript) -state 244 +State 244 - 1300 subscript: subscript '-' gname . + 1300 subscript: subscript '-' gname • $default reduce using rule 1300 (subscript) -state 245 +State 245 - 583 declaratives_procedure: error . + 583 declaratives_procedure: error • $default reduce using rule 583 (declaratives_procedure) -state 246 +State 246 - 592 procedure_section: LABELSTR . SECTION PERIOD_TOK + 592 procedure_section: LABELSTR • SECTION PERIOD_TOK SECTION shift, and go to state 250 -state 247 +State 247 - 571 declaratives_opt: DECLARATIVES PERIOD_TOK $@55 declaratives_procedure . declaratives_division END DECLARATIVES PERIOD_TOK + 571 declaratives_opt: DECLARATIVES PERIOD_TOK $@55 declaratives_procedure • declaratives_division END DECLARATIVES PERIOD_TOK $default reduce using rule 573 (declaratives_division) declaratives_division go to state 387 -state 248 +State 248 - 582 declaratives_procedure: procedure_section . $@58 use_phrase + 582 declaratives_procedure: procedure_section • $@58 use_phrase $default reduce using rule 581 ($@58) $@58 go to state 388 -state 249 +State 249 - 568 procedure_decl: error $@54 . PERIOD_TOK + 568 procedure_decl: error $@54 • PERIOD_TOK PERIOD_TOK shift, and go to state 389 -state 250 +State 250 - 592 procedure_section: LABELSTR SECTION . PERIOD_TOK + 592 procedure_section: LABELSTR SECTION • PERIOD_TOK PERIOD_TOK shift, and go to state 390 -state 251 +State 251 - 595 dot_or_eos: PERIOD_TOK . + 595 dot_or_eos: PERIOD_TOK • $default reduce using rule 595 (dot_or_eos) -state 252 +State 252 - 594 dot_or_eos: '.' . + 594 dot_or_eos: '.' • $default reduce using rule 594 (dot_or_eos) -state 253 +State 253 - 593 paragraph: LABELSTR dot_or_eos . + 593 paragraph: LABELSTR dot_or_eos • $default reduce using rule 593 (paragraph) -state 254 +State 254 - 898 read_statement: READ . read_body end_read_opt - 899 | READ . + 898 read_statement: READ • read_body end_read_opt + 899 | READ • VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -6434,9 +7011,9 @@ state 254 unqualified_var go to state 81 -state 255 +State 255 - 934 write_statement: WRITE . name write_from_opt write_options $@101 invalid_key_opt end_write_opt + 934 write_statement: WRITE • name write_from_opt write_options $@101 invalid_key_opt end_write_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -6448,9 +7025,9 @@ state 255 unqualified_var go to state 81 -state 256 +State 256 - 930 release_statement: RELEASE . name release_from_opt + 930 release_statement: RELEASE • name release_from_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -6462,17 +7039,17 @@ state 256 unqualified_var go to state 81 -state 257 +State 257 - 825 accept_statement: ACCEPT . - 826 accept_hardware: ACCEPT . name FROM INKEY end_accept_opt - 827 | ACCEPT . name FROM INPUT STATUS end_accept_opt - 828 | ACCEPT . name FROM CMD_LINE end_accept_opt - 829 | ACCEPT . name FROM ESCKEY end_accept_opt - 830 | ACCEPT . name FROM ENVIRONMENT_VARIABLE CLITERAL end_accept_opt - 831 accept_chronological: ACCEPT . name FROM DATE_TIME end_accept_opt - 832 accept_screen: ACCEPT . name accept_display_options end_accept_opt - 836 | ACCEPT . name accept_display_options on_opt EXCEPTION $@93 variable @94 statement_list $@95 end_accept_opt + 825 accept_statement: ACCEPT • + 826 accept_hardware: ACCEPT • name FROM INKEY end_accept_opt + 827 | ACCEPT • name FROM INPUT STATUS end_accept_opt + 828 | ACCEPT • name FROM CMD_LINE end_accept_opt + 829 | ACCEPT • name FROM ESCKEY end_accept_opt + 830 | ACCEPT • name FROM ENVIRONMENT_VARIABLE CLITERAL end_accept_opt + 831 accept_chronological: ACCEPT • name FROM DATE_TIME end_accept_opt + 832 accept_screen: ACCEPT • name accept_display_options end_accept_opt + 836 | ACCEPT • name accept_display_options on_opt EXCEPTION $@93 variable @94 statement_list $@95 end_accept_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -6486,10 +7063,10 @@ state 257 unqualified_var go to state 81 -state 258 +State 258 - 791 add_statement: ADD . add_body end_add_opt - 792 | ADD . + 791 add_statement: ADD • add_body end_add_opt + 792 | ADD • VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -6524,10 +7101,10 @@ state 258 unqualified_var go to state 81 -state 259 +State 259 - 967 call_statement: CALL . $@105 call_convention_opt gname using_options returning_options @106 @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt - 968 | CALL . + 967 call_statement: CALL • $@105 call_convention_opt gname using_options returning_options @106 @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt + 968 | CALL • VARIABLE reduce using rule 962 ($@105) SUBSCVAR reduce using rule 962 ($@105) @@ -6550,10 +7127,10 @@ state 259 $@105 go to state 400 -state 260 +State 260 - 973 call_loadlib_statement: CALL_LOADLIB . gname $@110 end_call_loadlib_opt - 974 | CALL_LOADLIB . + 973 call_loadlib_statement: CALL_LOADLIB • gname $@110 end_call_loadlib_opt + 974 | CALL_LOADLIB • VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -6585,10 +7162,10 @@ state 260 unqualified_var go to state 81 -state 261 +State 261 - 735 cancel_statement: CANCEL . gname - 736 | CANCEL . ALL + 735 cancel_statement: CANCEL • gname + 736 | CANCEL • ALL VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -6618,10 +7195,10 @@ state 261 unqualified_var go to state 81 -state 262 +State 262 - 981 chain_statement: CHAIN . $@111 gname using_options @112 @113 on_exception_or_overflow $@114 end_chain_opt - 982 | CHAIN . + 981 chain_statement: CHAIN • $@111 gname using_options @112 @113 on_exception_or_overflow $@114 end_chain_opt + 982 | CHAIN • VARIABLE reduce using rule 977 ($@111) SUBSCVAR reduce using rule 977 ($@111) @@ -6642,10 +7219,10 @@ state 262 $@111 go to state 404 -state 263 +State 263 - 879 close_statement: CLOSE . close_files - 880 | CLOSE . + 879 close_statement: CLOSE • close_files + 880 | CLOSE • VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -6661,10 +7238,10 @@ state 263 unqualified_var go to state 81 -state 264 +State 264 - 786 compute_statement: COMPUTE . compute_body end_compute_opt - 787 | COMPUTE . + 786 compute_statement: COMPUTE • compute_body end_compute_opt + 787 | COMPUTE • VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -6680,16 +7257,16 @@ state 264 unqualified_var go to state 81 -state 265 +State 265 - 641 statement: CONTINUE . + 641 statement: CONTINUE • $default reduce using rule 641 (statement) -state 266 +State 266 - 947 delete_statement: DELETE . name record_opt $@103 invalid_key_opt end_delete_opt + 947 delete_statement: DELETE • name record_opt $@103 invalid_key_opt end_delete_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -6701,11 +7278,11 @@ state 266 unqualified_var go to state 81 -state 267 +State 267 - 841 display_statement: DISPLAY . - 842 display_line: DISPLAY . display_varlist display_upon display_line_options end_display_opt - 843 display_screen: DISPLAY . display_varlist accept_display_options end_display_opt + 841 display_statement: DISPLAY • + 842 display_line: DISPLAY • display_varlist display_upon display_line_options end_display_opt + 843 display_screen: DISPLAY • display_varlist accept_display_options end_display_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -6738,10 +7315,10 @@ state 267 unqualified_var go to state 81 -state 268 +State 268 - 813 divide_statement: DIVIDE . divide_body end_divide_opt - 814 | DIVIDE . + 813 divide_statement: DIVIDE • divide_body end_divide_opt + 814 | DIVIDE • VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -6774,20 +7351,20 @@ state 268 unqualified_var go to state 81 -state 269 +State 269 - 652 evaluate_statement: EVALUATE . @62 selection_subject_set $@63 when_case_list end_evaluate_or_eos + 652 evaluate_statement: EVALUATE • @62 selection_subject_set $@63 when_case_list end_evaluate_or_eos $default reduce using rule 650 (@62) @62 go to state 416 -state 270 +State 270 - 983 exit_statement: EXIT . - 984 | EXIT . PARAGRAPH - 985 | EXIT . PROGRAM + 983 exit_statement: EXIT • + 984 | EXIT • PARAGRAPH + 985 | EXIT • PROGRAM PARAGRAPH shift, and go to state 417 PROGRAM shift, and go to state 418 @@ -6795,9 +7372,9 @@ state 270 $default reduce using rule 983 (exit_statement) -state 271 +State 271 - 733 generate_statement: GENERATE . name + 733 generate_statement: GENERATE • name VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -6809,10 +7386,10 @@ state 271 unqualified_var go to state 81 -state 272 +State 272 - 956 goto_statement: GO . to_opt goto_label - 957 | GO . to_opt goto_label_list DEPENDING on_opt variable + 956 goto_statement: GO • to_opt goto_label + 957 | GO • to_opt goto_label_list DEPENDING on_opt variable TO shift, and go to state 420 @@ -6821,16 +7398,16 @@ state 272 to_opt go to state 421 -state 273 +State 273 - 990 goback_statement: GOBACK . + 990 goback_statement: GOBACK • $default reduce using rule 990 (goback_statement) -state 274 +State 274 - 684 if_part: IF . condition @73 end_then_opt conditional_statement + 684 if_part: IF • condition @73 end_then_opt conditional_statement VARIABLE shift, and go to state 56 VARCOND shift, and go to state 422 @@ -6840,11 +7417,11 @@ state 274 CLITERAL shift, and go to state 60 '+' shift, and go to state 61 '-' shift, and go to state 62 - NOT shift, and go to state 423 ALL shift, and go to state 63 FUNCTION shift, and go to state 64 HIGHVALUES shift, and go to state 65 LOWVALUES shift, and go to state 66 + NOT shift, and go to state 423 QUOTES shift, and go to state 67 SPACES shift, and go to state 68 ZERO shift, and go to state 69 @@ -6866,10 +7443,10 @@ state 274 unqualified_var go to state 81 -state 275 +State 275 - 774 initialize_statement: INITIALIZE . gname_list initialize_replacing_opt - 775 | INITIALIZE . + 774 initialize_statement: INITIALIZE • gname_list initialize_replacing_opt + 775 | INITIALIZE • VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -6902,9 +7479,9 @@ state 275 unqualified_var go to state 81 -state 276 +State 276 - 732 initiate_statement: INITIATE . name + 732 initiate_statement: INITIATE • name VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -6916,10 +7493,10 @@ state 276 unqualified_var go to state 81 -state 277 +State 277 - 1086 inspect_statement: INSPECT . name tallying_clause $@126 replacing_clause - 1087 | INSPECT . name converting_clause + 1086 inspect_statement: INSPECT • name tallying_clause $@126 replacing_clause + 1087 | INSPECT • name converting_clause VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -6931,9 +7508,9 @@ state 277 unqualified_var go to state 81 -state 278 +State 278 - 740 merge_statement: MERGE . name sort_keys $@86 sort_collating_opt $@87 merge_using $@88 sort_output + 740 merge_statement: MERGE • name sort_keys $@86 sort_collating_opt $@87 merge_using $@88 sort_output VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -6945,12 +7522,12 @@ state 278 unqualified_var go to state 81 -state 279 +State 279 - 770 move_statement: MOVE . gname TO name_var_list - 771 | MOVE . CORRESPONDING name_var TO name_var - 772 | MOVE . LENGTH OF gname TO name_var - 773 | MOVE . gname TO + 770 move_statement: MOVE • gname TO name_var_list + 771 | MOVE • CORRESPONDING name_var TO name_var + 772 | MOVE • LENGTH OF gname TO name_var + 773 | MOVE • gname TO VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -6982,10 +7559,10 @@ state 279 unqualified_var go to state 81 -state 280 +State 280 - 807 multiply_statement: MULTIPLY . multiply_body end_multiply_opt - 808 | MULTIPLY . + 807 multiply_statement: MULTIPLY • multiply_body end_multiply_opt + 808 | MULTIPLY • VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -7018,10 +7595,10 @@ state 280 unqualified_var go to state 81 -state 281 +State 281 - 868 open_statement: OPEN . open_options - 869 | OPEN . + 868 open_statement: OPEN • open_options + 869 | OPEN • error shift, and go to state 438 EXTEND shift, and go to state 439 @@ -7032,7 +7609,6 @@ state 281 READ reduce using rule 869 (open_statement) WRITE reduce using rule 869 (open_statement) RELEASE reduce using rule 869 (open_statement) - NOT reduce using rule 869 (open_statement) ACCEPT reduce using rule 869 (open_statement) ADD reduce using rule 869 (open_statement) CALL reduce using rule 869 (open_statement) @@ -7078,6 +7654,7 @@ state 281 MERGE reduce using rule 869 (open_statement) MOVE reduce using rule 869 (open_statement) MULTIPLY reduce using rule 869 (open_statement) + NOT reduce using rule 869 (open_statement) NOTEXCEP reduce using rule 869 (open_statement) OPEN reduce using rule 869 (open_statement) PERFORM reduce using rule 869 (open_statement) @@ -7104,9 +7681,9 @@ state 281 open_mode go to state 444 -state 282 +State 282 - 642 perform_statement: PERFORM . perform_options + 642 perform_statement: PERFORM • perform_options VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -7148,24 +7725,24 @@ state 282 label go to state 453 -state 283 +State 283 - 730 trace_statement: READY . TRACE + 730 trace_statement: READY • TRACE TRACE shift, and go to state 454 -state 284 +State 284 - 731 trace_statement: RESET . TRACE + 731 trace_statement: RESET • TRACE TRACE shift, and go to state 455 -state 285 +State 285 - 894 return_statement: RETURN . return_body end_return_opt - 895 | RETURN . + 894 return_statement: RETURN • return_body end_return_opt + 895 | RETURN • VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -7180,9 +7757,9 @@ state 285 unqualified_var go to state 81 -state 286 +State 286 - 943 rewrite_statement: REWRITE . name write_from_opt $@102 invalid_key_opt end_rewrite_opt + 943 rewrite_statement: REWRITE • name write_from_opt $@102 invalid_key_opt end_rewrite_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -7194,10 +7771,10 @@ state 286 unqualified_var go to state 81 -state 287 +State 287 - 648 search_statement: SEARCH . search end_search_opt - 649 | SEARCH . ALL search_all end_search_opt + 648 search_statement: SEARCH • search end_search_opt + 649 | SEARCH • ALL search_all end_search_opt SUBSCVAR shift, and go to state 459 ALL shift, and go to state 460 @@ -7206,9 +7783,9 @@ state 287 variable_indexed go to state 462 -state 288 +State 288 - 1010 set_statement: SET . set_list + 1010 set_statement: SET • set_list error shift, and go to state 463 VARIABLE shift, and go to state 56 @@ -7229,10 +7806,10 @@ state 288 unqualified_var go to state 81 -state 289 +State 289 - 747 sort_file: SORT . name sort_keys $@89 sort_duplicates_opt sort_collating_opt $@90 sort_input $@91 sort_output - 749 sort_variable_indexed: SORT . variable_indexed sort_keys_idx $@92 sort_duplicates_opt sort_collating_opt + 747 sort_file: SORT • name sort_keys $@89 sort_duplicates_opt sort_collating_opt $@90 sort_input $@91 sort_output + 749 sort_variable_indexed: SORT • variable_indexed sort_keys_idx $@92 sort_duplicates_opt sort_collating_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 471 @@ -7245,9 +7822,9 @@ state 289 unqualified_var go to state 81 -state 290 +State 290 - 951 start_statement: START . start_body invalid_key_opt $@104 end_start_opt + 951 start_statement: START • start_body invalid_key_opt $@104 end_start_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -7260,10 +7837,10 @@ state 290 unqualified_var go to state 81 -state 291 +State 291 - 986 stop_statement: STOP . RUN - 987 | STOP . stop_literal + 986 stop_statement: STOP • RUN + 987 | STOP • stop_literal NLITERAL shift, and go to state 476 CLITERAL shift, and go to state 477 @@ -7272,9 +7849,9 @@ state 291 stop_literal go to state 479 -state 292 +State 292 - 1027 string_statement: STRINGCMD . string_from_list INTO name string_with_pointer $@117 on_overflow_opt end_stringcmd_opt + 1027 string_statement: STRINGCMD • string_from_list INTO name string_with_pointer $@117 on_overflow_opt end_stringcmd_opt error shift, and go to state 480 VARIABLE shift, and go to state 56 @@ -7307,10 +7884,10 @@ state 292 unqualified_var go to state 81 -state 293 +State 293 - 800 subtract_statement: SUBTRACT . subtract_body end_subtract_opt - 801 | SUBTRACT . + 800 subtract_statement: SUBTRACT • subtract_body end_subtract_opt + 801 | SUBTRACT • VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -7345,9 +7922,9 @@ state 293 unqualified_var go to state 81 -state 294 +State 294 - 728 proto_statement: TCOBPROTO1 . gname + 728 proto_statement: TCOBPROTO1 • gname VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -7377,9 +7954,9 @@ state 294 unqualified_var go to state 81 -state 295 +State 295 - 729 proto_statement: TCOBPROTO2 . gname gname + 729 proto_statement: TCOBPROTO2 • gname gname VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -7409,9 +7986,9 @@ state 295 unqualified_var go to state 81 -state 296 +State 296 - 734 terminate_statement: TERMINATE . name + 734 terminate_statement: TERMINATE • name VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -7423,9 +8000,9 @@ state 296 unqualified_var go to state 81 -state 297 +State 297 - 727 unlock_statement: UNLOCK . name + 727 unlock_statement: UNLOCK • name VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -7437,9 +8014,9 @@ state 297 unqualified_var go to state 81 -state 298 +State 298 - 1029 unstring_statement: UNSTRING . name unstring_delimited INTO unstring_destinations string_with_pointer unstring_tallying $@118 on_overflow_opt end_unstring_opt + 1029 unstring_statement: UNSTRING • name unstring_delimited INTO unstring_destinations string_with_pointer unstring_tallying $@118 on_overflow_opt end_unstring_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -7451,10 +8028,10 @@ state 298 unqualified_var go to state 81 -state 299 +State 299 - 566 procedure_decl: $@53 statements . PERIOD_TOK - 598 statements: statements . statement + 566 procedure_decl: $@53 statements • PERIOD_TOK + 598 statements: statements • statement READ shift, and go to state 254 WRITE shift, and go to state 255 @@ -7556,45 +8133,45 @@ state 299 inspect_statement go to state 350 -state 300 +State 300 - 597 statements: statement . + 597 statements: statement • $default reduce using rule 597 (statements) -state 301 +State 301 - 617 statement: perform_statement . + 617 statement: perform_statement • $default reduce using rule 617 (statement) -state 302 +State 302 - 638 statement: if_statement . + 638 statement: if_statement • $default reduce using rule 638 (statement) -state 303 +State 303 - 640 statement: search_statement . + 640 statement: search_statement • $default reduce using rule 640 (statement) -state 304 +State 304 - 639 statement: evaluate_statement . + 639 statement: evaluate_statement • $default reduce using rule 639 (statement) -state 305 +State 305 - 644 if_statement: if_part . $@59 end_if_opt - 647 | if_part . ELSE @60 conditional_statement $@61 end_if_opt + 644 if_statement: if_part • $@59 end_if_opt + 647 | if_part • ELSE @60 conditional_statement $@61 end_if_opt ELSE shift, and go to state 494 @@ -7604,359 +8181,359 @@ state 305 $@59 go to state 495 -state 306 +State 306 - 637 statement: unlock_statement . + 637 statement: unlock_statement • $default reduce using rule 637 (statement) -state 307 +State 307 - 633 statement: proto_statement . + 633 statement: proto_statement • $default reduce using rule 633 (statement) -state 308 +State 308 - 634 statement: trace_statement . + 634 statement: trace_statement • $default reduce using rule 634 (statement) -state 309 +State 309 - 630 statement: initiate_statement . + 630 statement: initiate_statement • $default reduce using rule 630 (statement) -state 310 +State 310 - 631 statement: generate_statement . + 631 statement: generate_statement • $default reduce using rule 631 (statement) -state 311 +State 311 - 632 statement: terminate_statement . + 632 statement: terminate_statement • $default reduce using rule 632 (statement) -state 312 +State 312 - 636 statement: cancel_statement . + 636 statement: cancel_statement • $default reduce using rule 636 (statement) -state 313 +State 313 - 626 statement: merge_statement . + 626 statement: merge_statement • $default reduce using rule 626 (statement) -state 314 +State 314 - 625 statement: sort_statement . + 625 statement: sort_statement • $default reduce using rule 625 (statement) -state 315 +State 315 - 742 sort_statement: sort_file . + 742 sort_statement: sort_file • $default reduce using rule 742 (sort_statement) -state 316 +State 316 - 743 sort_statement: sort_variable_indexed . + 743 sort_statement: sort_variable_indexed • $default reduce using rule 743 (sort_statement) -state 317 +State 317 - 599 statement: move_statement . + 599 statement: move_statement • $default reduce using rule 599 (statement) -state 318 +State 318 - 600 statement: initialize_statement . + 600 statement: initialize_statement • $default reduce using rule 600 (statement) -state 319 +State 319 - 601 statement: compute_statement . + 601 statement: compute_statement • $default reduce using rule 601 (statement) -state 320 +State 320 - 602 statement: add_statement . + 602 statement: add_statement • $default reduce using rule 602 (statement) -state 321 +State 321 - 603 statement: subtract_statement . + 603 statement: subtract_statement • $default reduce using rule 603 (statement) -state 322 +State 322 - 604 statement: multiply_statement . + 604 statement: multiply_statement • $default reduce using rule 604 (statement) -state 323 +State 323 - 605 statement: divide_statement . + 605 statement: divide_statement • $default reduce using rule 605 (statement) -state 324 +State 324 - 606 statement: accept_statement . + 606 statement: accept_statement • $default reduce using rule 606 (statement) -state 325 +State 325 - 822 accept_statement: accept_hardware . + 822 accept_statement: accept_hardware • $default reduce using rule 822 (accept_statement) -state 326 +State 326 - 823 accept_statement: accept_chronological . + 823 accept_statement: accept_chronological • $default reduce using rule 823 (accept_statement) -state 327 +State 327 - 824 accept_statement: accept_screen . + 824 accept_statement: accept_screen • $default reduce using rule 824 (accept_statement) -state 328 +State 328 - 607 statement: display_statement . + 607 statement: display_statement • $default reduce using rule 607 (statement) -state 329 +State 329 - 839 display_statement: display_line . + 839 display_statement: display_line • $default reduce using rule 839 (display_statement) -state 330 +State 330 - 840 display_statement: display_screen . + 840 display_statement: display_screen • $default reduce using rule 840 (display_statement) -state 331 +State 331 - 608 statement: open_statement . + 608 statement: open_statement • $default reduce using rule 608 (statement) -state 332 +State 332 - 609 statement: close_statement . + 609 statement: close_statement • $default reduce using rule 609 (statement) -state 333 +State 333 - 611 statement: return_statement . + 611 statement: return_statement • $default reduce using rule 611 (statement) -state 334 +State 334 - 610 statement: read_statement . + 610 statement: read_statement • $default reduce using rule 610 (statement) -state 335 +State 335 - 612 statement: release_statement . + 612 statement: release_statement • $default reduce using rule 612 (statement) -state 336 +State 336 - 613 statement: write_statement . + 613 statement: write_statement • $default reduce using rule 613 (statement) -state 337 +State 337 - 614 statement: rewrite_statement . + 614 statement: rewrite_statement • $default reduce using rule 614 (statement) -state 338 +State 338 - 615 statement: delete_statement . + 615 statement: delete_statement • $default reduce using rule 615 (statement) -state 339 +State 339 - 616 statement: start_statement . + 616 statement: start_statement • $default reduce using rule 616 (statement) -state 340 +State 340 - 618 statement: goto_statement . + 618 statement: goto_statement • $default reduce using rule 618 (statement) -state 341 +State 341 - 621 statement: call_statement . + 621 statement: call_statement • $default reduce using rule 621 (statement) -state 342 +State 342 - 622 statement: call_loadlib_statement . + 622 statement: call_loadlib_statement • $default reduce using rule 622 (statement) -state 343 +State 343 - 623 statement: chain_statement . + 623 statement: chain_statement • $default reduce using rule 623 (statement) -state 344 +State 344 - 619 statement: exit_statement . + 619 statement: exit_statement • $default reduce using rule 619 (statement) -state 345 +State 345 - 620 statement: stop_statement . + 620 statement: stop_statement • $default reduce using rule 620 (statement) -state 346 +State 346 - 635 statement: goback_statement . + 635 statement: goback_statement • $default reduce using rule 635 (statement) -state 347 +State 347 - 624 statement: set_statement . + 624 statement: set_statement • $default reduce using rule 624 (statement) -state 348 +State 348 - 628 statement: string_statement . + 628 statement: string_statement • $default reduce using rule 628 (statement) -state 349 +State 349 - 629 statement: unstring_statement . + 629 statement: unstring_statement • $default reduce using rule 629 (statement) -state 350 +State 350 - 627 statement: inspect_statement . + 627 statement: inspect_statement • $default reduce using rule 627 (statement) -state 351 +State 351 - 23 identification_division_option: AUTHOR PERIOD_TOK . + 23 identification_division_option: AUTHOR PERIOD_TOK • $default reduce using rule 23 (identification_division_option) -state 352 +State 352 - 25 identification_division_option: DATE_COMPILED PERIOD_TOK . + 25 identification_division_option: DATE_COMPILED PERIOD_TOK • $default reduce using rule 25 (identification_division_option) -state 353 +State 353 - 24 identification_division_option: DATE_WRITTEN PERIOD_TOK . + 24 identification_division_option: DATE_WRITTEN PERIOD_TOK • $default reduce using rule 24 (identification_division_option) -state 354 +State 354 - 26 identification_division_option: INSTALLATION PERIOD_TOK . + 26 identification_division_option: INSTALLATION PERIOD_TOK • $default reduce using rule 26 (identification_division_option) -state 355 +State 355 - 27 identification_division_option: SECURITY PERIOD_TOK . + 27 identification_division_option: SECURITY PERIOD_TOK • $default reduce using rule 27 (identification_division_option) -state 356 +State 356 - 41 program_collating_opt: PROGRAM . collating_sequence + 41 program_collating_opt: PROGRAM • collating_sequence COLLATING shift, and go to state 496 @@ -7966,37 +8543,37 @@ state 356 collating_opt go to state 498 -state 357 +State 357 - 38 configuration_option: OBJECT_COMPUTER PERIOD_TOK $@8 STRING program_collating_opt . PERIOD_TOK + 38 configuration_option: OBJECT_COMPUTER PERIOD_TOK $@8 STRING program_collating_opt • PERIOD_TOK PERIOD_TOK shift, and go to state 499 -state 358 +State 358 - 1234 with_opt: WITH . + 1234 with_opt: WITH • $default reduce using rule 1234 (with_opt) -state 359 +State 359 - 36 configuration_option: SOURCE_COMPUTER PERIOD_TOK $@7 STRING debug_mode_opt . PERIOD_TOK + 36 configuration_option: SOURCE_COMPUTER PERIOD_TOK $@7 STRING debug_mode_opt • PERIOD_TOK PERIOD_TOK shift, and go to state 500 -state 360 +State 360 - 46 debug_mode_opt: with_opt . DEBUGGING MODE + 46 debug_mode_opt: with_opt • DEBUGGING MODE DEBUGGING shift, and go to state 501 -state 361 +State 361 - 81 alphabet_details: ALPHABET STRING is_opt . alphabet_type + 81 alphabet_details: ALPHABET STRING is_opt • alphabet_type NLITERAL shift, and go to state 59 CLITERAL shift, and go to state 60 @@ -8020,9 +8597,9 @@ state 361 signed_nliteral go to state 77 -state 362 +State 362 - 63 special_name_class: CLASS STRING is_opt . special_name_class_item_list + 63 special_name_class: CLASS STRING is_opt • special_name_class_item_list CLITERAL shift, and go to state 509 @@ -8030,67 +8607,67 @@ state 362 special_name_class_item go to state 511 -state 363 +State 363 - 60 currency_details: CURRENCY sign_opt is_opt . CLITERAL + 60 currency_details: CURRENCY sign_opt is_opt • CLITERAL CLITERAL shift, and go to state 512 -state 364 +State 364 - 70 cursor_details: CURSOR is_opt STRING . + 70 cursor_details: CURSOR is_opt STRING • $default reduce using rule 70 (cursor_details) -state 365 +State 365 - 68 decimal_point_details: DECIMAL_POINT is_opt COMMA . + 68 decimal_point_details: DECIMAL_POINT is_opt COMMA • $default reduce using rule 68 (decimal_point_details) -state 366 +State 366 - 69 screen_status_details: DISPLAY_SCREEN STATUS is_opt . STRING + 69 screen_status_details: DISPLAY_SCREEN STATUS is_opt • STRING STRING shift, and go to state 513 -state 367 +State 367 - 74 switches_details: STRING is_opt . STRING $@9 switch_on_opt switch_off_opt + 74 switches_details: STRING is_opt • STRING $@9 switch_on_opt switch_off_opt STRING shift, and go to state 514 -state 368 +State 368 - 1275 def_name: STRING . + 1275 def_name: STRING • $default reduce using rule 1275 (def_name) -state 369 +State 369 - 1276 def_name: FILLER . + 1276 def_name: FILLER • $default reduce using rule 1276 (def_name) -state 370 +State 370 - 103 file_select: SELECT optional_opt def_name . $@10 select_clauses PERIOD_TOK + 103 file_select: SELECT optional_opt def_name • $@10 select_clauses PERIOD_TOK $default reduce using rule 102 ($@10) $@10 go to state 515 -state 371 +State 371 - 157 i_o_control_multiple_file_tape_clause: MULTIPLE FILE_TOK . tape_opt contains_opt i_o_control_multiple_file_list + 157 i_o_control_multiple_file_tape_clause: MULTIPLE FILE_TOK • tape_opt contains_opt i_o_control_multiple_file_list TAPE shift, and go to state 516 @@ -8099,30 +8676,30 @@ state 371 tape_opt go to state 517 -state 372 +State 372 - 154 same_clause_options: RECORD . + 154 same_clause_options: RECORD • $default reduce using rule 154 (same_clause_options) -state 373 +State 373 - 155 same_clause_options: SORT . + 155 same_clause_options: SORT • $default reduce using rule 155 (same_clause_options) -state 374 +State 374 - 156 same_clause_options: SORT_MERGE . + 156 same_clause_options: SORT_MERGE • $default reduce using rule 156 (same_clause_options) -state 375 +State 375 - 152 i_o_control_same_clause: SAME same_clause_options . are_opta for_opt string_list + 152 i_o_control_same_clause: SAME same_clause_options • are_opta for_opt string_list AREA shift, and go to state 518 @@ -8131,97 +8708,97 @@ state 375 are_opta go to state 519 -state 376 +State 376 - 147 i_o_control_opt: i_o_control_list PERIOD_TOK . + 147 i_o_control_opt: i_o_control_list PERIOD_TOK • $default reduce using rule 147 (i_o_control_opt) -state 377 +State 377 - 149 i_o_control_list: i_o_control_list i_o_control_clause . + 149 i_o_control_list: i_o_control_list i_o_control_clause • $default reduce using rule 149 (i_o_control_list) -state 378 +State 378 - 419 file_section: file_section FD $@38 STRING . $@39 file_description_fd_clauses PERIOD_TOK $@40 file_description + 419 file_section: file_section FD $@38 STRING • $@39 file_description_fd_clauses PERIOD_TOK $@40 file_description $default reduce using rule 417 ($@39) $@39 go to state 520 -state 379 +State 379 - 423 file_section: file_section SD $@41 STRING . $@42 file_description_sd_clauses PERIOD_TOK $@43 file_description + 423 file_section: file_section SD $@41 STRING • $@42 file_description_sd_clauses PERIOD_TOK $@43 file_description $default reduce using rule 421 ($@42) $@42 go to state 521 -state 380 +State 380 - 429 field_description: integer def_name_opt . $@44 data_clauses PERIOD_TOK + 429 field_description: integer def_name_opt • $@44 data_clauses PERIOD_TOK $default reduce using rule 428 ($@44) $@44 go to state 522 -state 381 +State 381 - 1273 def_name_opt: def_name . + 1273 def_name_opt: def_name • $default reduce using rule 1273 (def_name_opt) -state 382 +State 382 - 556 linkage_section: linkage_section field_description . + 556 linkage_section: linkage_section field_description • $default reduce using rule 556 (linkage_section) -state 383 +State 383 - 194 report_section: RD . $@15 STRING $@16 report_controls PERIOD_TOK $@17 report_description + 194 report_section: RD • $@15 STRING $@16 report_controls PERIOD_TOK $@17 report_description $default reduce using rule 191 ($@15) $@15 go to state 523 -state 384 +State 384 - 189 report_sections: report_sections report_section . + 189 report_sections: report_sections report_section • $default reduce using rule 189 (report_sections) -state 385 +State 385 - 320 screen_section_opt: SCREEN SECTION PERIOD_TOK $@27 . screen_section + 320 screen_section_opt: SCREEN SECTION PERIOD_TOK $@27 • screen_section $default reduce using rule 323 (screen_section) screen_section go to state 524 -state 386 +State 386 - 1140 intrinsic_parm_list: intrinsic_parm_list sep_opt intrinsic_parm . + 1140 intrinsic_parm_list: intrinsic_parm_list sep_opt intrinsic_parm • $default reduce using rule 1140 (intrinsic_parm_list) -state 387 +State 387 - 571 declaratives_opt: DECLARATIVES PERIOD_TOK $@55 declaratives_procedure declaratives_division . END DECLARATIVES PERIOD_TOK - 574 declaratives_division: declaratives_division . declaratives_decl + 571 declaratives_opt: DECLARATIVES PERIOD_TOK $@55 declaratives_procedure declaratives_division • END DECLARATIVES PERIOD_TOK + 574 declaratives_division: declaratives_division • declaratives_decl error shift, and go to state 525 LABELSTR shift, and go to state 196 @@ -8280,9 +8857,9 @@ state 387 paragraph go to state 530 -state 388 +State 388 - 582 declaratives_procedure: procedure_section $@58 . use_phrase + 582 declaratives_procedure: procedure_section $@58 • use_phrase error shift, and go to state 531 USE shift, and go to state 532 @@ -8290,23 +8867,23 @@ state 388 use_phrase go to state 533 -state 389 +State 389 - 568 procedure_decl: error $@54 PERIOD_TOK . + 568 procedure_decl: error $@54 PERIOD_TOK • $default reduce using rule 568 (procedure_decl) -state 390 +State 390 - 592 procedure_section: LABELSTR SECTION PERIOD_TOK . + 592 procedure_section: LABELSTR SECTION PERIOD_TOK • $default reduce using rule 592 (procedure_section) -state 391 +State 391 - 898 read_statement: READ read_body . end_read_opt + 898 read_statement: READ read_body • end_read_opt END_READ shift, and go to state 534 @@ -8316,11 +8893,11 @@ state 391 end_read_opt go to state 535 -state 392 +State 392 - 900 read_body: name . read_next_opt record_opt read_into_opt with_lock_opt read_key_opt - 901 | name . read_next_opt record_opt read_into_opt with_lock_opt read_key_opt read_at_end_opt - 902 | name . read_next_opt record_opt read_into_opt with_lock_opt read_key_opt read_invalid_key_opt + 900 read_body: name • read_next_opt record_opt read_into_opt with_lock_opt read_key_opt + 901 | name • read_next_opt record_opt read_into_opt with_lock_opt read_key_opt read_at_end_opt + 902 | name • read_next_opt record_opt read_into_opt with_lock_opt read_key_opt read_invalid_key_opt NEXT shift, and go to state 536 PREVIOUS shift, and go to state 537 @@ -8330,9 +8907,9 @@ state 392 read_next_opt go to state 538 -state 393 +State 393 - 934 write_statement: WRITE name . write_from_opt write_options $@101 invalid_key_opt end_write_opt + 934 write_statement: WRITE name • write_from_opt write_options $@101 invalid_key_opt end_write_opt FROM shift, and go to state 539 @@ -8341,9 +8918,9 @@ state 393 write_from_opt go to state 540 -state 394 +State 394 - 930 release_statement: RELEASE name . release_from_opt + 930 release_statement: RELEASE name • release_from_opt FROM shift, and go to state 541 @@ -8352,16 +8929,16 @@ state 394 release_from_opt go to state 542 -state 395 +State 395 - 826 accept_hardware: ACCEPT name . FROM INKEY end_accept_opt - 827 | ACCEPT name . FROM INPUT STATUS end_accept_opt - 828 | ACCEPT name . FROM CMD_LINE end_accept_opt - 829 | ACCEPT name . FROM ESCKEY end_accept_opt - 830 | ACCEPT name . FROM ENVIRONMENT_VARIABLE CLITERAL end_accept_opt - 831 accept_chronological: ACCEPT name . FROM DATE_TIME end_accept_opt - 832 accept_screen: ACCEPT name . accept_display_options end_accept_opt - 836 | ACCEPT name . accept_display_options on_opt EXCEPTION $@93 variable @94 statement_list $@95 end_accept_opt + 826 accept_hardware: ACCEPT name • FROM INKEY end_accept_opt + 827 | ACCEPT name • FROM INPUT STATUS end_accept_opt + 828 | ACCEPT name • FROM CMD_LINE end_accept_opt + 829 | ACCEPT name • FROM ESCKEY end_accept_opt + 830 | ACCEPT name • FROM ENVIRONMENT_VARIABLE CLITERAL end_accept_opt + 831 accept_chronological: ACCEPT name • FROM DATE_TIME end_accept_opt + 832 accept_screen: ACCEPT name • accept_display_options end_accept_opt + 836 | ACCEPT name • accept_display_options on_opt EXCEPTION $@93 variable @94 statement_list $@95 end_accept_opt FROM shift, and go to state 543 @@ -8370,9 +8947,9 @@ state 395 accept_display_options go to state 544 -state 396 +State 396 - 795 add_body: CORRESPONDING . var_list_gname TO var_list_name rounded_opt on_size_error_opt + 795 add_body: CORRESPONDING • var_list_gname TO var_list_name rounded_opt on_size_error_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -8403,9 +8980,9 @@ state 396 unqualified_var go to state 81 -state 397 +State 397 - 791 add_statement: ADD add_body . end_add_opt + 791 add_statement: ADD add_body • end_add_opt END_ADD shift, and go to state 546 @@ -8415,11 +8992,11 @@ state 397 end_add_opt go to state 547 -state 398 +State 398 - 793 add_body: var_list_gname . TO var_list_name on_size_error_opt - 794 | var_list_gname . add_to_opt GIVING var_list_name on_size_error_opt - 994 var_list_gname: var_list_gname . gname sep_opt + 793 add_body: var_list_gname • TO var_list_name on_size_error_opt + 794 | var_list_gname • add_to_opt GIVING var_list_name on_size_error_opt + 994 var_list_gname: var_list_gname • gname sep_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -8453,9 +9030,9 @@ state 398 unqualified_var go to state 81 -state 399 +State 399 - 993 var_list_gname: gname . sep_opt + 993 var_list_gname: gname • sep_opt LISTSEP shift, and go to state 98 @@ -8464,9 +9041,9 @@ state 399 sep_opt go to state 551 -state 400 +State 400 - 967 call_statement: CALL $@105 . call_convention_opt gname using_options returning_options @106 @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt + 967 call_statement: CALL $@105 • call_convention_opt gname using_options returning_options @106 @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt CALL_CONV_C shift, and go to state 552 CALL_CONV_STDCALL shift, and go to state 553 @@ -8476,20 +9053,20 @@ state 400 call_convention_opt go to state 554 -state 401 +State 401 - 973 call_loadlib_statement: CALL_LOADLIB gname . $@110 end_call_loadlib_opt + 973 call_loadlib_statement: CALL_LOADLIB gname • $@110 end_call_loadlib_opt $default reduce using rule 972 ($@110) $@110 go to state 555 -state 402 +State 402 - 736 cancel_statement: CANCEL ALL . - 1258 all_literal: ALL . literal - 1259 | ALL . special_literal + 736 cancel_statement: CANCEL ALL • + 1258 all_literal: ALL • literal + 1259 | ALL • special_literal NLITERAL shift, and go to state 59 CLITERAL shift, and go to state 60 @@ -8508,16 +9085,16 @@ state 402 signed_nliteral go to state 77 -state 403 +State 403 - 735 cancel_statement: CANCEL gname . + 735 cancel_statement: CANCEL gname • $default reduce using rule 735 (cancel_statement) -state 404 +State 404 - 981 chain_statement: CHAIN $@111 . gname using_options @112 @113 on_exception_or_overflow $@114 end_chain_opt + 981 chain_statement: CHAIN $@111 • gname using_options @112 @113 on_exception_or_overflow $@114 end_chain_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -8547,10 +9124,10 @@ state 404 unqualified_var go to state 81 -state 405 +State 405 - 879 close_statement: CLOSE close_files . - 882 close_files: close_files . sep_opt close_file + 879 close_statement: CLOSE close_files • + 882 close_files: close_files • sep_opt close_file LISTSEP shift, and go to state 98 @@ -8562,16 +9139,16 @@ state 405 sep_opt go to state 557 -state 406 +State 406 - 881 close_files: close_file . + 881 close_files: close_file • $default reduce using rule 881 (close_files) -state 407 +State 407 - 883 close_file: name . close_options_opt + 883 close_file: name • close_options_opt REEL shift, and go to state 558 UNIT shift, and go to state 559 @@ -8588,9 +9165,9 @@ state 407 with_opt go to state 563 -state 408 +State 408 - 786 compute_statement: COMPUTE compute_body . end_compute_opt + 786 compute_statement: COMPUTE compute_body • end_compute_opt END_COMPUTE shift, and go to state 564 @@ -8600,10 +9177,10 @@ state 408 end_compute_opt go to state 565 -state 409 +State 409 - 788 compute_body: var_list_name . CONDITIONAL expr on_size_error_opt - 992 var_list_name: var_list_name . name rounded_opt sep_opt + 788 compute_body: var_list_name • CONDITIONAL expr on_size_error_opt + 992 var_list_name: var_list_name • name rounded_opt sep_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -8616,9 +9193,9 @@ state 409 unqualified_var go to state 81 -state 410 +State 410 - 991 var_list_name: name . rounded_opt sep_opt + 991 var_list_name: name • rounded_opt sep_opt ROUNDED shift, and go to state 568 @@ -8628,9 +9205,9 @@ state 410 rounded_opt go to state 569 -state 411 +State 411 - 947 delete_statement: DELETE name . record_opt $@103 invalid_key_opt end_delete_opt + 947 delete_statement: DELETE name • record_opt $@103 invalid_key_opt end_delete_opt RECORD shift, and go to state 570 @@ -8639,11 +9216,11 @@ state 411 record_opt go to state 571 -state 412 +State 412 - 842 display_line: DISPLAY display_varlist . display_upon display_line_options end_display_opt - 843 display_screen: DISPLAY display_varlist . accept_display_options end_display_opt - 845 display_varlist: display_varlist . sep_opt gname + 842 display_line: DISPLAY display_varlist • display_upon display_line_options end_display_opt + 843 display_screen: DISPLAY display_varlist • accept_display_options end_display_opt + 845 display_varlist: display_varlist • sep_opt gname LISTSEP shift, and go to state 98 UPON shift, and go to state 572 @@ -8669,16 +9246,16 @@ state 412 sep_opt go to state 575 -state 413 +State 413 - 844 display_varlist: gname . + 844 display_varlist: gname • $default reduce using rule 844 (display_varlist) -state 414 +State 414 - 813 divide_statement: DIVIDE divide_body . end_divide_opt + 813 divide_statement: DIVIDE divide_body • end_divide_opt END_DIVIDE shift, and go to state 576 @@ -8688,21 +9265,21 @@ state 414 end_divide_opt go to state 577 -state 415 +State 415 - 815 divide_body: gname . BY gname GIVING var_list_name on_size_error_opt - 816 | gname . BY gname GIVING name rounded_opt REMAINDER name on_size_error_opt - 817 | gname . INTO gname GIVING name rounded_opt REMAINDER name on_size_error_opt - 818 | gname . INTO gname GIVING var_list_name on_size_error_opt - 819 | gname . INTO var_list_name on_size_error_opt + 815 divide_body: gname • BY gname GIVING var_list_name on_size_error_opt + 816 | gname • BY gname GIVING name rounded_opt REMAINDER name on_size_error_opt + 817 | gname • INTO gname GIVING name rounded_opt REMAINDER name on_size_error_opt + 818 | gname • INTO gname GIVING var_list_name on_size_error_opt + 819 | gname • INTO var_list_name on_size_error_opt BY shift, and go to state 578 INTO shift, and go to state 579 -state 416 +State 416 - 652 evaluate_statement: EVALUATE @62 . selection_subject_set $@63 when_case_list end_evaluate_or_eos + 652 evaluate_statement: EVALUATE @62 • selection_subject_set $@63 when_case_list end_evaluate_or_eos $default reduce using rule 655 (@64) @@ -8710,38 +9287,38 @@ state 416 @64 go to state 581 -state 417 +State 417 - 984 exit_statement: EXIT PARAGRAPH . + 984 exit_statement: EXIT PARAGRAPH • $default reduce using rule 984 (exit_statement) -state 418 +State 418 - 985 exit_statement: EXIT PROGRAM . + 985 exit_statement: EXIT PROGRAM • $default reduce using rule 985 (exit_statement) -state 419 +State 419 - 733 generate_statement: GENERATE name . + 733 generate_statement: GENERATE name • $default reduce using rule 733 (generate_statement) -state 420 +State 420 - 1240 to_opt: TO . + 1240 to_opt: TO • $default reduce using rule 1240 (to_opt) -state 421 +State 421 - 956 goto_statement: GO to_opt . goto_label - 957 | GO to_opt . goto_label_list DEPENDING on_opt variable + 956 goto_statement: GO to_opt • goto_label + 957 | GO to_opt • goto_label_list DEPENDING on_opt variable LABELSTR shift, and go to state 582 NLITERAL shift, and go to state 583 @@ -8751,19 +9328,19 @@ state 421 label go to state 586 -state 422 +State 422 - 1283 cond_name: VARCOND . '(' $@146 subscripts ')' - 1284 | VARCOND . + 1283 cond_name: VARCOND • '(' $@146 subscripts ')' + 1284 | VARCOND • '(' shift, and go to state 587 $default reduce using rule 1284 (cond_name) -state 423 +State 423 - 1182 condition: NOT . condition + 1182 condition: NOT • condition VARIABLE shift, and go to state 56 VARCOND shift, and go to state 422 @@ -8773,11 +9350,11 @@ state 423 CLITERAL shift, and go to state 60 '+' shift, and go to state 61 '-' shift, and go to state 62 - NOT shift, and go to state 423 ALL shift, and go to state 63 FUNCTION shift, and go to state 64 HIGHVALUES shift, and go to state 65 LOWVALUES shift, and go to state 66 + NOT shift, and go to state 423 QUOTES shift, and go to state 67 SPACES shift, and go to state 68 ZERO shift, and go to state 69 @@ -8799,10 +9376,10 @@ state 423 unqualified_var go to state 81 -state 424 +State 424 - 1119 expr: '(' . expr ')' - 1187 condition: '(' . condition ')' + 1119 expr: '(' • expr ')' + 1187 condition: '(' • condition ')' VARIABLE shift, and go to state 56 VARCOND shift, and go to state 422 @@ -8812,11 +9389,11 @@ state 424 CLITERAL shift, and go to state 60 '+' shift, and go to state 61 '-' shift, and go to state 62 - NOT shift, and go to state 423 ALL shift, and go to state 63 FUNCTION shift, and go to state 64 HIGHVALUES shift, and go to state 65 LOWVALUES shift, and go to state 66 + NOT shift, and go to state 423 QUOTES shift, and go to state 67 SPACES shift, and go to state 68 ZERO shift, and go to state 69 @@ -8838,14 +9415,14 @@ state 424 unqualified_var go to state 81 -state 425 +State 425 - 1114 expr: expr . '*' expr - 1115 | expr . '/' expr - 1116 | expr . '+' expr - 1117 | expr . '-' expr - 1118 | expr . POW_OP expr - 1181 condition: expr . extended_cond_op $@142 expr_opt + 1114 expr: expr • '*' expr + 1115 | expr • '/' expr + 1116 | expr • '+' expr + 1117 | expr • '-' expr + 1118 | expr • POW_OP expr + 1181 condition: expr • extended_cond_op $@142 expr_opt CONDITIONAL shift, and go to state 591 IS shift, and go to state 592 @@ -8854,11 +9431,11 @@ state 425 '*' shift, and go to state 595 '/' shift, and go to state 596 POW_OP shift, and go to state 597 - NOT shift, and go to state 598 - ALPHABETIC shift, and go to state 599 - ALPHABETIC_LOWER shift, and go to state 600 - ALPHABETIC_UPPER shift, and go to state 601 - NEGATIVE shift, and go to state 602 + ALPHABETIC shift, and go to state 598 + ALPHABETIC_LOWER shift, and go to state 599 + ALPHABETIC_UPPER shift, and go to state 600 + NEGATIVE shift, and go to state 601 + NOT shift, and go to state 602 NUMERIC shift, and go to state 603 POSITIVE shift, and go to state 604 ZERO shift, and go to state 605 @@ -8870,11 +9447,11 @@ state 425 conditional go to state 610 -state 426 +State 426 - 684 if_part: IF condition . @73 end_then_opt conditional_statement - 1184 condition: condition . AND @143 implied_op_condition - 1186 | condition . OR @144 implied_op_condition + 684 if_part: IF condition • @73 end_then_opt conditional_statement + 1184 condition: condition • AND @143 implied_op_condition + 1186 | condition • OR @144 implied_op_condition OR shift, and go to state 611 AND shift, and go to state 612 @@ -8884,24 +9461,24 @@ state 426 @73 go to state 613 -state 427 +State 427 - 1113 expr: gname . + 1113 expr: gname • $default reduce using rule 1113 (expr) -state 428 +State 428 - 1188 condition: cond_name . + 1188 condition: cond_name • $default reduce using rule 1188 (condition) -state 429 +State 429 - 774 initialize_statement: INITIALIZE gname_list . initialize_replacing_opt - 1244 gname_list: gname_list . sep_opt gname + 774 initialize_statement: INITIALIZE gname_list • initialize_replacing_opt + 1244 gname_list: gname_list • sep_opt gname LISTSEP shift, and go to state 98 REPLACING shift, and go to state 614 @@ -8926,17 +9503,17 @@ state 429 sep_opt go to state 99 -state 430 +State 430 - 732 initiate_statement: INITIATE name . + 732 initiate_statement: INITIATE name • $default reduce using rule 732 (initiate_statement) -state 431 +State 431 - 1086 inspect_statement: INSPECT name . tallying_clause $@126 replacing_clause - 1087 | INSPECT name . converting_clause + 1086 inspect_statement: INSPECT name • tallying_clause $@126 replacing_clause + 1087 | INSPECT name • converting_clause CONVERTING shift, and go to state 616 TALLYING shift, and go to state 617 @@ -8947,9 +9524,9 @@ state 431 tallying_clause go to state 619 -state 432 +State 432 - 740 merge_statement: MERGE name . sort_keys $@86 sort_collating_opt $@87 merge_using $@88 sort_output + 740 merge_statement: MERGE name • sort_keys $@86 sort_collating_opt $@87 merge_using $@88 sort_output ON shift, and go to state 620 @@ -8960,9 +9537,9 @@ state 432 on_opt go to state 623 -state 433 +State 433 - 771 move_statement: MOVE CORRESPONDING . name_var TO name_var + 771 move_statement: MOVE CORRESPONDING • name_var TO name_var VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -8993,24 +9570,24 @@ state 433 unqualified_var go to state 81 -state 434 +State 434 - 772 move_statement: MOVE LENGTH . OF gname TO name_var + 772 move_statement: MOVE LENGTH • OF gname TO name_var OF shift, and go to state 626 -state 435 +State 435 - 770 move_statement: MOVE gname . TO name_var_list - 773 | MOVE gname . TO + 770 move_statement: MOVE gname • TO name_var_list + 773 | MOVE gname • TO TO shift, and go to state 627 -state 436 +State 436 - 807 multiply_statement: MULTIPLY multiply_body . end_multiply_opt + 807 multiply_statement: MULTIPLY multiply_body • end_multiply_opt END_MULTIPLY shift, and go to state 628 @@ -9020,53 +9597,53 @@ state 436 end_multiply_opt go to state 629 -state 437 +State 437 - 809 multiply_body: gname . BY gname GIVING var_list_name on_size_error_opt - 810 | gname . BY var_list_name on_size_error_opt + 809 multiply_body: gname • BY gname GIVING var_list_name on_size_error_opt + 810 | gname • BY var_list_name on_size_error_opt BY shift, and go to state 630 -state 438 +State 438 - 876 open_mode: error . + 876 open_mode: error • $default reduce using rule 876 (open_mode) -state 439 +State 439 - 875 open_mode: EXTEND . + 875 open_mode: EXTEND • $default reduce using rule 875 (open_mode) -state 440 +State 440 - 872 open_mode: INPUT . + 872 open_mode: INPUT • $default reduce using rule 872 (open_mode) -state 441 +State 441 - 873 open_mode: I_O . + 873 open_mode: I_O • $default reduce using rule 873 (open_mode) -state 442 +State 442 - 874 open_mode: OUTPUT . + 874 open_mode: OUTPUT • $default reduce using rule 874 (open_mode) -state 443 +State 443 - 868 open_statement: OPEN open_options . - 871 open_options: open_options . open_mode open_varlist + 868 open_statement: OPEN open_options • + 871 open_options: open_options • open_mode open_varlist error shift, and go to state 438 EXTEND shift, and go to state 439 @@ -9077,7 +9654,6 @@ state 443 READ reduce using rule 868 (open_statement) WRITE reduce using rule 868 (open_statement) RELEASE reduce using rule 868 (open_statement) - NOT reduce using rule 868 (open_statement) ACCEPT reduce using rule 868 (open_statement) ADD reduce using rule 868 (open_statement) CALL reduce using rule 868 (open_statement) @@ -9123,6 +9699,7 @@ state 443 MERGE reduce using rule 868 (open_statement) MOVE reduce using rule 868 (open_statement) MULTIPLY reduce using rule 868 (open_statement) + NOT reduce using rule 868 (open_statement) NOTEXCEP reduce using rule 868 (open_statement) OPEN reduce using rule 868 (open_statement) PERFORM reduce using rule 868 (open_statement) @@ -9148,9 +9725,9 @@ state 443 open_mode go to state 631 -state 444 +State 444 - 870 open_options: open_mode . open_varlist + 870 open_options: open_mode • open_varlist VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -9163,11 +9740,11 @@ state 444 unqualified_var go to state 81 -state 445 +State 445 - 1287 name: LABELSTR . - 1302 label: LABELSTR . in_of LABELSTR - 1303 | LABELSTR . + 1287 name: LABELSTR • + 1302 label: LABELSTR • in_of LABELSTR + 1303 | LABELSTR • IN shift, and go to state 102 OF shift, and go to state 103 @@ -9178,12 +9755,12 @@ state 445 in_of go to state 634 -state 446 +State 446 - 1270 signed_nliteral: NLITERAL . - 1304 label: NLITERAL . - 1305 | NLITERAL . in_of NLITERAL - 1306 | NLITERAL . in_of LABELSTR + 1270 signed_nliteral: NLITERAL • + 1304 label: NLITERAL • + 1305 | NLITERAL • in_of NLITERAL + 1306 | NLITERAL • in_of LABELSTR IN shift, and go to state 102 OF shift, and go to state 103 @@ -9194,32 +9771,32 @@ state 446 in_of go to state 635 -state 447 +State 447 - 642 perform_statement: PERFORM perform_options . + 642 perform_statement: PERFORM perform_options • $default reduce using rule 642 (perform_statement) -state 448 +State 448 - 1151 perform_options: with_test_opt . UNTIL @131 condition @132 perform_statements $@133 END_PERFORM - 1155 | with_test_opt . VARYING name FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM + 1151 perform_options: with_test_opt • UNTIL @131 condition @132 perform_statements $@133 END_PERFORM + 1155 | with_test_opt • VARYING name FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM UNTIL shift, and go to state 636 VARYING shift, and go to state 637 -state 449 +State 449 - 1144 perform_options: perform_statements . END_PERFORM + 1144 perform_options: perform_statements • END_PERFORM END_PERFORM shift, and go to state 638 -state 450 +State 450 - 1177 perform_statements: $@141 . statement_list + 1177 perform_statements: $@141 • statement_list READ shift, and go to state 254 WRITE shift, and go to state 255 @@ -9322,26 +9899,26 @@ state 450 inspect_statement go to state 350 -state 451 +State 451 - 1166 with_test_opt: with_opt . TEST before_after + 1166 with_test_opt: with_opt • TEST before_after TEST shift, and go to state 641 -state 452 +State 452 - 1147 perform_options: gname . TIMES @129 perform_statements $@130 END_PERFORM + 1147 perform_options: gname • TIMES @129 perform_statements $@130 END_PERFORM TIMES shift, and go to state 642 -state 453 +State 453 - 1156 perform_options: label . perform_thru_opt - 1158 | label . perform_thru_opt with_test_opt UNTIL @137 condition - 1159 | label . perform_thru_opt gname TIMES - 1162 | label . perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname UNTIL @138 condition @139 perform_after_opt + 1156 perform_options: label • perform_thru_opt + 1158 | label • perform_thru_opt with_test_opt UNTIL @137 condition + 1159 | label • perform_thru_opt gname TIMES + 1162 | label • perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname UNTIL @138 condition @139 perform_after_opt THRU shift, and go to state 643 @@ -9350,23 +9927,23 @@ state 453 perform_thru_opt go to state 644 -state 454 +State 454 - 730 trace_statement: READY TRACE . + 730 trace_statement: READY TRACE • $default reduce using rule 730 (trace_statement) -state 455 +State 455 - 731 trace_statement: RESET TRACE . + 731 trace_statement: RESET TRACE • $default reduce using rule 731 (trace_statement) -state 456 +State 456 - 894 return_statement: RETURN return_body . end_return_opt + 894 return_statement: RETURN return_body • end_return_opt END_RETURN shift, and go to state 645 @@ -9376,10 +9953,10 @@ state 456 end_return_opt go to state 646 -state 457 +State 457 - 896 return_body: name . record_opt read_into_opt - 897 | name . record_opt read_into_opt read_at_end_opt + 896 return_body: name • record_opt read_into_opt + 897 | name • record_opt read_into_opt read_at_end_opt RECORD shift, and go to state 570 @@ -9388,9 +9965,9 @@ state 457 record_opt go to state 647 -state 458 +State 458 - 943 rewrite_statement: REWRITE name . write_from_opt $@102 invalid_key_opt end_rewrite_opt + 943 rewrite_statement: REWRITE name • write_from_opt $@102 invalid_key_opt end_rewrite_opt FROM shift, and go to state 539 @@ -9399,16 +9976,16 @@ state 458 write_from_opt go to state 648 -state 459 +State 459 - 1277 variable_indexed: SUBSCVAR . + 1277 variable_indexed: SUBSCVAR • $default reduce using rule 1277 (variable_indexed) -state 460 +State 460 - 649 search_statement: SEARCH ALL . search_all end_search_opt + 649 search_statement: SEARCH ALL • search_all end_search_opt SUBSCVAR shift, and go to state 459 @@ -9416,9 +9993,9 @@ state 460 variable_indexed go to state 650 -state 461 +State 461 - 648 search_statement: SEARCH search . end_search_opt + 648 search_statement: SEARCH search • end_search_opt END_SEARCH shift, and go to state 651 @@ -9428,25 +10005,25 @@ state 461 end_search_opt go to state 652 -state 462 +State 462 - 698 search: variable_indexed . @76 search_varying_opt @77 search_at_end @78 search_when_list + 698 search: variable_indexed • @76 search_varying_opt @77 search_at_end @78 search_when_list $default reduce using rule 695 (@76) @76 go to state 653 -state 463 +State 463 - 174 name_list: error . + 174 name_list: error • $default reduce using rule 174 (name_list) -state 464 +State 464 - 1025 address_of_opt: ADDRESS . of_opt + 1025 address_of_opt: ADDRESS • of_opt OF shift, and go to state 654 @@ -9455,10 +10032,10 @@ state 464 of_opt go to state 655 -state 465 +State 465 - 173 name_list: name_list . variable - 1015 set_target: name_list . + 173 name_list: name_list • variable + 1015 set_target: name_list • VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -9470,27 +10047,27 @@ state 465 unqualified_var go to state 81 -state 466 +State 466 - 1010 set_statement: SET set_list . + 1010 set_statement: SET set_list • $default reduce using rule 1010 (set_statement) -state 467 +State 467 - 1011 set_list: set_target . TO address_of_opt set_variable_or_nlit - 1012 | set_target . UP BY var_or_nliteral - 1013 | set_target . DOWN BY var_or_nliteral + 1011 set_list: set_target • TO address_of_opt set_variable_or_nlit + 1012 | set_target • UP BY var_or_nliteral + 1013 | set_target • DOWN BY var_or_nliteral TO shift, and go to state 657 DOWN shift, and go to state 658 UP shift, and go to state 659 -state 468 +State 468 - 1014 set_list: address_of_opt . variable TO address_of_opt set_variable + 1014 set_list: address_of_opt • variable TO address_of_opt set_variable VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -9500,24 +10077,24 @@ state 468 unqualified_var go to state 81 -state 469 +State 469 - 1016 set_target: cond_name . + 1016 set_target: cond_name • $default reduce using rule 1016 (set_target) -state 470 +State 470 - 172 name_list: variable . + 172 name_list: variable • $default reduce using rule 172 (name_list) -state 471 +State 471 - 1277 variable_indexed: SUBSCVAR . - 1295 unqualified_var: SUBSCVAR . + 1277 variable_indexed: SUBSCVAR • + 1295 unqualified_var: SUBSCVAR • DIRECTION reduce using rule 1277 (variable_indexed) DIRECTION [reduce using rule 1295 (unqualified_var)] @@ -9526,9 +10103,9 @@ state 471 $default reduce using rule 1295 (unqualified_var) -state 472 +State 472 - 749 sort_variable_indexed: SORT variable_indexed . sort_keys_idx $@92 sort_duplicates_opt sort_collating_opt + 749 sort_variable_indexed: SORT variable_indexed • sort_keys_idx $@92 sort_duplicates_opt sort_collating_opt ON shift, and go to state 620 @@ -9539,9 +10116,9 @@ state 472 on_opt go to state 663 -state 473 +State 473 - 747 sort_file: SORT name . sort_keys $@89 sort_duplicates_opt sort_collating_opt $@90 sort_input $@91 sort_output + 747 sort_file: SORT name • sort_keys $@89 sort_duplicates_opt sort_collating_opt $@90 sort_input $@91 sort_output ON shift, and go to state 620 @@ -9552,12 +10129,12 @@ state 473 on_opt go to state 623 -state 474 +State 474 - 951 start_statement: START start_body . invalid_key_opt $@104 end_start_opt + 951 start_statement: START start_body • invalid_key_opt $@104 end_start_opt - NOT shift, and go to state 665 - INVALID shift, and go to state 666 + INVALID shift, and go to state 665 + NOT shift, and go to state 666 NOTEXCEP shift, and go to state 667 NOT [reduce using rule 1064 (invalid_key_opt)] @@ -9570,55 +10147,55 @@ state 474 not_excep go to state 671 -state 475 +State 475 - 952 start_body: name . - 953 | name . KEY is_opt cond_op name + 952 start_body: name • + 953 | name • KEY is_opt cond_op name KEY shift, and go to state 672 $default reduce using rule 952 (start_body) -state 476 +State 476 - 989 stop_literal: NLITERAL . + 989 stop_literal: NLITERAL • $default reduce using rule 989 (stop_literal) -state 477 +State 477 - 988 stop_literal: CLITERAL . + 988 stop_literal: CLITERAL • $default reduce using rule 988 (stop_literal) -state 478 +State 478 - 986 stop_statement: STOP RUN . + 986 stop_statement: STOP RUN • $default reduce using rule 986 (stop_statement) -state 479 +State 479 - 987 stop_statement: STOP stop_literal . + 987 stop_statement: STOP stop_literal • $default reduce using rule 987 (stop_statement) -state 480 +State 480 - 1075 string_from_list: error . + 1075 string_from_list: error • $default reduce using rule 1075 (string_from_list) -state 481 +State 481 - 1027 string_statement: STRINGCMD string_from_list . INTO name string_with_pointer $@117 on_overflow_opt end_stringcmd_opt - 1074 string_from_list: string_from_list . sep_opt string_from + 1027 string_statement: STRINGCMD string_from_list • INTO name string_with_pointer $@117 on_overflow_opt end_stringcmd_opt + 1074 string_from_list: string_from_list • sep_opt string_from INTO shift, and go to state 673 LISTSEP shift, and go to state 98 @@ -9628,26 +10205,26 @@ state 481 sep_opt go to state 674 -state 482 +State 482 - 1073 string_from_list: string_from . + 1073 string_from_list: string_from • $default reduce using rule 1073 (string_from_list) -state 483 +State 483 - 1076 string_from: gname . - 1077 | gname . DELIMITED by_opt delimited_by + 1076 string_from: gname • + 1077 | gname • DELIMITED by_opt delimited_by DELIMITED shift, and go to state 675 $default reduce using rule 1076 (string_from) -state 484 +State 484 - 804 subtract_body: CORRESPONDING . var_list_gname FROM var_list_name rounded_opt on_size_error_opt + 804 subtract_body: CORRESPONDING • var_list_gname FROM var_list_name rounded_opt on_size_error_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -9678,9 +10255,9 @@ state 484 unqualified_var go to state 81 -state 485 +State 485 - 800 subtract_statement: SUBTRACT subtract_body . end_subtract_opt + 800 subtract_statement: SUBTRACT subtract_body • end_subtract_opt END_SUBTRACT shift, and go to state 677 @@ -9690,11 +10267,11 @@ state 485 end_subtract_opt go to state 678 -state 486 +State 486 - 802 subtract_body: var_list_gname . FROM var_list_name on_size_error_opt - 803 | var_list_gname . FROM gname GIVING var_list_name on_size_error_opt - 994 var_list_gname: var_list_gname . gname sep_opt + 802 subtract_body: var_list_gname • FROM var_list_name on_size_error_opt + 803 | var_list_gname • FROM gname GIVING var_list_name on_size_error_opt + 994 var_list_gname: var_list_gname • gname sep_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -9725,16 +10302,16 @@ state 486 unqualified_var go to state 81 -state 487 +State 487 - 728 proto_statement: TCOBPROTO1 gname . + 728 proto_statement: TCOBPROTO1 gname • $default reduce using rule 728 (proto_statement) -state 488 +State 488 - 729 proto_statement: TCOBPROTO2 gname . gname + 729 proto_statement: TCOBPROTO2 gname • gname VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -9764,23 +10341,23 @@ state 488 unqualified_var go to state 81 -state 489 +State 489 - 734 terminate_statement: TERMINATE name . + 734 terminate_statement: TERMINATE name • $default reduce using rule 734 (terminate_statement) -state 490 +State 490 - 727 unlock_statement: UNLOCK name . + 727 unlock_statement: UNLOCK name • $default reduce using rule 727 (unlock_statement) -state 491 +State 491 - 1029 unstring_statement: UNSTRING name . unstring_delimited INTO unstring_destinations string_with_pointer unstring_tallying $@118 on_overflow_opt end_unstring_opt + 1029 unstring_statement: UNSTRING name • unstring_delimited INTO unstring_destinations string_with_pointer unstring_tallying $@118 on_overflow_opt end_unstring_opt DELIMITED shift, and go to state 681 @@ -9789,32 +10366,32 @@ state 491 unstring_delimited go to state 682 -state 492 +State 492 - 566 procedure_decl: $@53 statements PERIOD_TOK . + 566 procedure_decl: $@53 statements PERIOD_TOK • $default reduce using rule 566 (procedure_decl) -state 493 +State 493 - 598 statements: statements statement . + 598 statements: statements statement • $default reduce using rule 598 (statements) -state 494 +State 494 - 647 if_statement: if_part ELSE . @60 conditional_statement $@61 end_if_opt + 647 if_statement: if_part ELSE • @60 conditional_statement $@61 end_if_opt $default reduce using rule 645 (@60) @60 go to state 683 -state 495 +State 495 - 644 if_statement: if_part $@59 . end_if_opt + 644 if_statement: if_part $@59 • end_if_opt END_IF shift, and go to state 684 @@ -9824,80 +10401,80 @@ state 495 end_if_opt go to state 685 -state 496 +State 496 - 44 collating_opt: COLLATING . + 44 collating_opt: COLLATING • $default reduce using rule 44 (collating_opt) -state 497 +State 497 - 41 program_collating_opt: PROGRAM collating_sequence . + 41 program_collating_opt: PROGRAM collating_sequence • $default reduce using rule 41 (program_collating_opt) -state 498 +State 498 - 43 collating_sequence: collating_opt . SEQUENCE is_opt STRING + 43 collating_sequence: collating_opt • SEQUENCE is_opt STRING SEQUENCE shift, and go to state 686 -state 499 +State 499 - 38 configuration_option: OBJECT_COMPUTER PERIOD_TOK $@8 STRING program_collating_opt PERIOD_TOK . + 38 configuration_option: OBJECT_COMPUTER PERIOD_TOK $@8 STRING program_collating_opt PERIOD_TOK • $default reduce using rule 38 (configuration_option) -state 500 +State 500 - 36 configuration_option: SOURCE_COMPUTER PERIOD_TOK $@7 STRING debug_mode_opt PERIOD_TOK . + 36 configuration_option: SOURCE_COMPUTER PERIOD_TOK $@7 STRING debug_mode_opt PERIOD_TOK • $default reduce using rule 36 (configuration_option) -state 501 +State 501 - 46 debug_mode_opt: with_opt DEBUGGING . MODE + 46 debug_mode_opt: with_opt DEBUGGING • MODE MODE shift, and go to state 687 -state 502 +State 502 - 82 alphabet_type: NATIVE . + 82 alphabet_type: NATIVE • $default reduce using rule 82 (alphabet_type) -state 503 +State 503 - 83 alphabet_type: STANDARD_1 . + 83 alphabet_type: STANDARD_1 • $default reduce using rule 83 (alphabet_type) -state 504 +State 504 - 84 alphabet_type: STANDARD_2 . + 84 alphabet_type: STANDARD_2 • $default reduce using rule 84 (alphabet_type) -state 505 +State 505 - 81 alphabet_details: ALPHABET STRING is_opt alphabet_type . + 81 alphabet_details: ALPHABET STRING is_opt alphabet_type • $default reduce using rule 81 (alphabet_details) -state 506 +State 506 - 85 alphabet_type: alphabet_literal_list . - 87 alphabet_literal_list: alphabet_literal_list . alphabet_literal_item + 85 alphabet_type: alphabet_literal_list • + 87 alphabet_literal_list: alphabet_literal_list • alphabet_literal_item NLITERAL shift, and go to state 59 CLITERAL shift, and go to state 60 @@ -9918,18 +10495,18 @@ state 506 signed_nliteral go to state 77 -state 507 +State 507 - 86 alphabet_literal_list: alphabet_literal_item . + 86 alphabet_literal_list: alphabet_literal_item • $default reduce using rule 86 (alphabet_literal_list) -state 508 +State 508 - 88 alphabet_literal_item: without_all_literal . - 89 | without_all_literal . THRU without_all_literal - 90 | without_all_literal . alphabet_also_list + 88 alphabet_literal_item: without_all_literal • + 89 | without_all_literal • THRU without_all_literal + 90 | without_all_literal • alphabet_also_list THRU shift, and go to state 689 ALSO shift, and go to state 690 @@ -9939,20 +10516,20 @@ state 508 alphabet_also_list go to state 691 -state 509 +State 509 - 66 special_name_class_item: CLITERAL . - 67 | CLITERAL . THRU CLITERAL + 66 special_name_class_item: CLITERAL • + 67 | CLITERAL • THRU CLITERAL THRU shift, and go to state 692 $default reduce using rule 66 (special_name_class_item) -state 510 +State 510 - 63 special_name_class: CLASS STRING is_opt special_name_class_item_list . - 65 special_name_class_item_list: special_name_class_item_list . special_name_class_item + 63 special_name_class: CLASS STRING is_opt special_name_class_item_list • + 65 special_name_class_item_list: special_name_class_item_list • special_name_class_item CLITERAL shift, and go to state 509 @@ -9961,55 +10538,55 @@ state 510 special_name_class_item go to state 693 -state 511 +State 511 - 64 special_name_class_item_list: special_name_class_item . + 64 special_name_class_item_list: special_name_class_item • $default reduce using rule 64 (special_name_class_item_list) -state 512 +State 512 - 60 currency_details: CURRENCY sign_opt is_opt CLITERAL . + 60 currency_details: CURRENCY sign_opt is_opt CLITERAL • $default reduce using rule 60 (currency_details) -state 513 +State 513 - 69 screen_status_details: DISPLAY_SCREEN STATUS is_opt STRING . + 69 screen_status_details: DISPLAY_SCREEN STATUS is_opt STRING • $default reduce using rule 69 (screen_status_details) -state 514 +State 514 - 74 switches_details: STRING is_opt STRING . $@9 switch_on_opt switch_off_opt + 74 switches_details: STRING is_opt STRING • $@9 switch_on_opt switch_off_opt $default reduce using rule 73 ($@9) $@9 go to state 694 -state 515 +State 515 - 103 file_select: SELECT optional_opt def_name $@10 . select_clauses PERIOD_TOK + 103 file_select: SELECT optional_opt def_name $@10 • select_clauses PERIOD_TOK $default reduce using rule 105 (select_clauses) select_clauses go to state 695 -state 516 +State 516 - 163 tape_opt: TAPE . + 163 tape_opt: TAPE • $default reduce using rule 163 (tape_opt) -state 517 +State 517 - 157 i_o_control_multiple_file_tape_clause: MULTIPLE FILE_TOK tape_opt . contains_opt i_o_control_multiple_file_list + 157 i_o_control_multiple_file_tape_clause: MULTIPLE FILE_TOK tape_opt • contains_opt i_o_control_multiple_file_list CONTAINS shift, and go to state 696 @@ -10018,16 +10595,16 @@ state 517 contains_opt go to state 697 -state 518 +State 518 - 165 are_opta: AREA . + 165 are_opta: AREA • $default reduce using rule 165 (are_opta) -state 519 +State 519 - 152 i_o_control_same_clause: SAME same_clause_options are_opta . for_opt string_list + 152 i_o_control_same_clause: SAME same_clause_options are_opta • for_opt string_list FOR shift, and go to state 698 @@ -10036,44 +10613,44 @@ state 519 for_opt go to state 699 -state 520 +State 520 - 419 file_section: file_section FD $@38 STRING $@39 . file_description_fd_clauses PERIOD_TOK $@40 file_description + 419 file_section: file_section FD $@38 STRING $@39 • file_description_fd_clauses PERIOD_TOK $@40 file_description $default reduce using rule 483 (file_description_fd_clauses) file_description_fd_clauses go to state 700 -state 521 +State 521 - 423 file_section: file_section SD $@41 STRING $@42 . file_description_sd_clauses PERIOD_TOK $@43 file_description + 423 file_section: file_section SD $@41 STRING $@42 • file_description_sd_clauses PERIOD_TOK $@43 file_description $default reduce using rule 485 (file_description_sd_clauses) file_description_sd_clauses go to state 701 -state 522 +State 522 - 429 field_description: integer def_name_opt $@44 . data_clauses PERIOD_TOK + 429 field_description: integer def_name_opt $@44 • data_clauses PERIOD_TOK $default reduce using rule 430 (data_clauses) data_clauses go to state 702 -state 523 +State 523 - 194 report_section: RD $@15 . STRING $@16 report_controls PERIOD_TOK $@17 report_description + 194 report_section: RD $@15 • STRING $@16 report_controls PERIOD_TOK $@17 report_description STRING shift, and go to state 703 -state 524 +State 524 - 320 screen_section_opt: SCREEN SECTION PERIOD_TOK $@27 screen_section . - 322 screen_section: screen_section . screen_item + 320 screen_section_opt: SCREEN SECTION PERIOD_TOK $@27 screen_section • + 322 screen_section: screen_section • screen_item NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -10086,10 +10663,10 @@ state 524 integer go to state 705 -state 525 +State 525 - 580 declaratives_decl: error . $@57 PERIOD_TOK - 583 declaratives_procedure: error . + 580 declaratives_decl: error • $@57 PERIOD_TOK + 583 declaratives_procedure: error • PERIOD_TOK reduce using rule 579 ($@57) $default reduce using rule 583 (declaratives_procedure) @@ -10097,23 +10674,23 @@ state 525 $@57 go to state 706 -state 526 +State 526 - 571 declaratives_opt: DECLARATIVES PERIOD_TOK $@55 declaratives_procedure declaratives_division END . DECLARATIVES PERIOD_TOK + 571 declaratives_opt: DECLARATIVES PERIOD_TOK $@55 declaratives_procedure declaratives_division END • DECLARATIVES PERIOD_TOK DECLARATIVES shift, and go to state 707 -state 527 +State 527 - 574 declaratives_division: declaratives_division declaratives_decl . + 574 declaratives_division: declaratives_division declaratives_decl • $default reduce using rule 574 (declaratives_division) -state 528 +State 528 - 578 declaratives_decl: $@56 . statements PERIOD_TOK + 578 declaratives_decl: $@56 • statements PERIOD_TOK READ shift, and go to state 254 WRITE shift, and go to state 255 @@ -10215,74 +10792,74 @@ state 528 inspect_statement go to state 350 -state 529 +State 529 - 575 declaratives_decl: declaratives_procedure . + 575 declaratives_decl: declaratives_procedure • $default reduce using rule 575 (declaratives_decl) -state 530 +State 530 - 576 declaratives_decl: paragraph . + 576 declaratives_decl: paragraph • $default reduce using rule 576 (declaratives_decl) -state 531 +State 531 - 585 use_phrase: error . + 585 use_phrase: error • $default reduce using rule 585 (use_phrase) -state 532 +State 532 - 584 use_phrase: USE . AFTER use_phrase_exception_error PROCEDURE on_opt use_phrase_option PERIOD_TOK + 584 use_phrase: USE • AFTER use_phrase_exception_error PROCEDURE on_opt use_phrase_option PERIOD_TOK AFTER shift, and go to state 709 -state 533 +State 533 - 582 declaratives_procedure: procedure_section $@58 use_phrase . + 582 declaratives_procedure: procedure_section $@58 use_phrase • $default reduce using rule 582 (declaratives_procedure) -state 534 +State 534 - 927 end_read_opt: END_READ . + 927 end_read_opt: END_READ • $default reduce using rule 927 (end_read_opt) -state 535 +State 535 - 898 read_statement: READ read_body end_read_opt . + 898 read_statement: READ read_body end_read_opt • $default reduce using rule 898 (read_statement) -state 536 +State 536 - 904 read_next_opt: NEXT . + 904 read_next_opt: NEXT • $default reduce using rule 904 (read_next_opt) -state 537 +State 537 - 905 read_next_opt: PREVIOUS . + 905 read_next_opt: PREVIOUS • $default reduce using rule 905 (read_next_opt) -state 538 +State 538 - 900 read_body: name read_next_opt . record_opt read_into_opt with_lock_opt read_key_opt - 901 | name read_next_opt . record_opt read_into_opt with_lock_opt read_key_opt read_at_end_opt - 902 | name read_next_opt . record_opt read_into_opt with_lock_opt read_key_opt read_invalid_key_opt + 900 read_body: name read_next_opt • record_opt read_into_opt with_lock_opt read_key_opt + 901 | name read_next_opt • record_opt read_into_opt with_lock_opt read_key_opt read_at_end_opt + 902 | name read_next_opt • record_opt read_into_opt with_lock_opt read_key_opt read_invalid_key_opt RECORD shift, and go to state 570 @@ -10291,9 +10868,9 @@ state 538 record_opt go to state 710 -state 539 +State 539 - 936 write_from_opt: FROM . gname + 936 write_from_opt: FROM • gname VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -10323,9 +10900,9 @@ state 539 unqualified_var go to state 81 -state 540 +State 540 - 934 write_statement: WRITE name write_from_opt . write_options $@101 invalid_key_opt end_write_opt + 934 write_statement: WRITE name write_from_opt • write_options $@101 invalid_key_opt end_write_opt AFTER shift, and go to state 712 BEFORE shift, and go to state 713 @@ -10336,9 +10913,9 @@ state 540 before_after go to state 715 -state 541 +State 541 - 932 release_from_opt: FROM . gname + 932 release_from_opt: FROM • gname VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -10368,21 +10945,21 @@ state 541 unqualified_var go to state 81 -state 542 +State 542 - 930 release_statement: RELEASE name release_from_opt . + 930 release_statement: RELEASE name release_from_opt • $default reduce using rule 930 (release_statement) -state 543 +State 543 - 826 accept_hardware: ACCEPT name FROM . INKEY end_accept_opt - 827 | ACCEPT name FROM . INPUT STATUS end_accept_opt - 828 | ACCEPT name FROM . CMD_LINE end_accept_opt - 829 | ACCEPT name FROM . ESCKEY end_accept_opt - 830 | ACCEPT name FROM . ENVIRONMENT_VARIABLE CLITERAL end_accept_opt - 831 accept_chronological: ACCEPT name FROM . DATE_TIME end_accept_opt + 826 accept_hardware: ACCEPT name FROM • INKEY end_accept_opt + 827 | ACCEPT name FROM • INPUT STATUS end_accept_opt + 828 | ACCEPT name FROM • CMD_LINE end_accept_opt + 829 | ACCEPT name FROM • ESCKEY end_accept_opt + 830 | ACCEPT name FROM • ENVIRONMENT_VARIABLE CLITERAL end_accept_opt + 831 accept_chronological: ACCEPT name FROM • DATE_TIME end_accept_opt CMD_LINE shift, and go to state 717 ENVIRONMENT_VARIABLE shift, and go to state 718 @@ -10392,11 +10969,11 @@ state 543 INPUT shift, and go to state 722 -state 544 +State 544 - 832 accept_screen: ACCEPT name accept_display_options . end_accept_opt - 836 | ACCEPT name accept_display_options . on_opt EXCEPTION $@93 variable @94 statement_list $@95 end_accept_opt - 863 accept_display_options: accept_display_options . accept_display_option + 832 accept_screen: ACCEPT name accept_display_options • end_accept_opt + 836 | ACCEPT name accept_display_options • on_opt EXCEPTION $@93 variable @94 statement_list $@95 end_accept_opt + 863 accept_display_options: accept_display_options • accept_display_option AT shift, and go to state 723 COLUMN shift, and go to state 724 @@ -10444,10 +11021,10 @@ state 544 on_opt go to state 734 -state 545 +State 545 - 795 add_body: CORRESPONDING var_list_gname . TO var_list_name rounded_opt on_size_error_opt - 994 var_list_gname: var_list_gname . gname sep_opt + 795 add_body: CORRESPONDING var_list_gname • TO var_list_name rounded_opt on_size_error_opt + 994 var_list_gname: var_list_gname • gname sep_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -10478,24 +11055,24 @@ state 545 unqualified_var go to state 81 -state 546 +State 546 - 799 end_add_opt: END_ADD . + 799 end_add_opt: END_ADD • $default reduce using rule 799 (end_add_opt) -state 547 +State 547 - 791 add_statement: ADD add_body end_add_opt . + 791 add_statement: ADD add_body end_add_opt • $default reduce using rule 791 (add_statement) -state 548 +State 548 - 793 add_body: var_list_gname TO . var_list_name on_size_error_opt - 797 add_to_opt: TO . gname + 793 add_body: var_list_gname TO • var_list_name on_size_error_opt + 797 add_to_opt: TO • gname VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -10526,16 +11103,16 @@ state 548 unqualified_var go to state 81 -state 549 +State 549 - 794 add_body: var_list_gname add_to_opt . GIVING var_list_name on_size_error_opt + 794 add_body: var_list_gname add_to_opt • GIVING var_list_name on_size_error_opt GIVING shift, and go to state 739 -state 550 +State 550 - 994 var_list_gname: var_list_gname gname . sep_opt + 994 var_list_gname: var_list_gname gname • sep_opt LISTSEP shift, and go to state 98 @@ -10544,30 +11121,30 @@ state 550 sep_opt go to state 740 -state 551 +State 551 - 993 var_list_gname: gname sep_opt . + 993 var_list_gname: gname sep_opt • $default reduce using rule 993 (var_list_gname) -state 552 +State 552 - 970 call_convention_opt: CALL_CONV_C . + 970 call_convention_opt: CALL_CONV_C • $default reduce using rule 970 (call_convention_opt) -state 553 +State 553 - 971 call_convention_opt: CALL_CONV_STDCALL . + 971 call_convention_opt: CALL_CONV_STDCALL • $default reduce using rule 971 (call_convention_opt) -state 554 +State 554 - 967 call_statement: CALL $@105 call_convention_opt . gname using_options returning_options @106 @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt + 967 call_statement: CALL $@105 call_convention_opt • gname using_options returning_options @106 @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -10597,9 +11174,9 @@ state 554 unqualified_var go to state 81 -state 555 +State 555 - 973 call_loadlib_statement: CALL_LOADLIB gname $@110 . end_call_loadlib_opt + 973 call_loadlib_statement: CALL_LOADLIB gname $@110 • end_call_loadlib_opt END_CALL_LOADLIB shift, and go to state 742 @@ -10608,9 +11185,9 @@ state 555 end_call_loadlib_opt go to state 743 -state 556 +State 556 - 981 chain_statement: CHAIN $@111 gname . using_options @112 @113 on_exception_or_overflow $@114 end_chain_opt + 981 chain_statement: CHAIN $@111 gname • using_options @112 @113 on_exception_or_overflow $@114 end_chain_opt USING shift, and go to state 744 @@ -10619,9 +11196,9 @@ state 556 using_options go to state 745 -state 557 +State 557 - 882 close_files: close_files sep_opt . close_file + 882 close_files: close_files sep_opt • close_file VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -10634,10 +11211,10 @@ state 557 unqualified_var go to state 81 -state 558 +State 558 - 887 close_options: REEL . - 889 | REEL . for_opt REMOVAL + 887 close_options: REEL • + 889 | REEL • for_opt REMOVAL FOR shift, and go to state 698 @@ -10647,10 +11224,10 @@ state 558 for_opt go to state 747 -state 559 +State 559 - 888 close_options: UNIT . - 890 | UNIT . for_opt REMOVAL + 888 close_options: UNIT • + 890 | UNIT • for_opt REMOVAL FOR shift, and go to state 698 @@ -10660,55 +11237,55 @@ state 559 for_opt go to state 748 -state 560 +State 560 - 883 close_file: name close_options_opt . + 883 close_file: name close_options_opt • $default reduce using rule 883 (close_file) -state 561 +State 561 - 884 close_options_opt: close_options . + 884 close_options_opt: close_options • $default reduce using rule 884 (close_options_opt) -state 562 +State 562 - 885 close_options_opt: with_lock_opt . + 885 close_options_opt: with_lock_opt • $default reduce using rule 885 (close_options_opt) -state 563 +State 563 - 886 close_options: with_opt . NO REWIND - 891 with_lock_opt: with_opt . LOCK - 892 | with_opt . IGNORE LOCK + 886 close_options: with_opt • NO REWIND + 891 with_lock_opt: with_opt • LOCK + 892 | with_opt • IGNORE LOCK NO shift, and go to state 749 IGNORE shift, and go to state 750 LOCK shift, and go to state 751 -state 564 +State 564 - 790 end_compute_opt: END_COMPUTE . + 790 end_compute_opt: END_COMPUTE • $default reduce using rule 790 (end_compute_opt) -state 565 +State 565 - 786 compute_statement: COMPUTE compute_body end_compute_opt . + 786 compute_statement: COMPUTE compute_body end_compute_opt • $default reduce using rule 786 (compute_statement) -state 566 +State 566 - 788 compute_body: var_list_name CONDITIONAL . expr on_size_error_opt + 788 compute_body: var_list_name CONDITIONAL • expr on_size_error_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -10740,9 +11317,9 @@ state 566 unqualified_var go to state 81 -state 567 +State 567 - 992 var_list_name: var_list_name name . rounded_opt sep_opt + 992 var_list_name: var_list_name name • rounded_opt sep_opt ROUNDED shift, and go to state 568 @@ -10752,16 +11329,16 @@ state 567 rounded_opt go to state 754 -state 568 +State 568 - 996 rounded_opt: ROUNDED . + 996 rounded_opt: ROUNDED • $default reduce using rule 996 (rounded_opt) -state 569 +State 569 - 991 var_list_name: name rounded_opt . sep_opt + 991 var_list_name: name rounded_opt • sep_opt LISTSEP shift, and go to state 98 @@ -10770,46 +11347,46 @@ state 569 sep_opt go to state 755 -state 570 +State 570 - 1224 record_opt: RECORD . + 1224 record_opt: RECORD • $default reduce using rule 1224 (record_opt) -state 571 +State 571 - 947 delete_statement: DELETE name record_opt . $@103 invalid_key_opt end_delete_opt + 947 delete_statement: DELETE name record_opt • $@103 invalid_key_opt end_delete_opt $default reduce using rule 946 ($@103) $@103 go to state 756 -state 572 +State 572 - 846 display_upon: UPON . CONSOLE - 847 | UPON . STD_OUTPUT - 848 | UPON . STD_ERROR + 846 display_upon: UPON • CONSOLE + 847 | UPON • STD_OUTPUT + 848 | UPON • STD_ERROR CONSOLE shift, and go to state 757 STD_ERROR shift, and go to state 758 STD_OUTPUT shift, and go to state 759 -state 573 +State 573 - 842 display_line: DISPLAY display_varlist display_upon . display_line_options end_display_opt + 842 display_line: DISPLAY display_varlist display_upon • display_line_options end_display_opt $default reduce using rule 849 (display_line_options) display_line_options go to state 760 -state 574 +State 574 - 843 display_screen: DISPLAY display_varlist accept_display_options . end_display_opt - 863 accept_display_options: accept_display_options . accept_display_option + 843 display_screen: DISPLAY display_varlist accept_display_options • end_display_opt + 863 accept_display_options: accept_display_options • accept_display_option AT shift, and go to state 723 COLUMN shift, and go to state 724 @@ -10853,9 +11430,9 @@ state 574 with_opt go to state 733 -state 575 +State 575 - 845 display_varlist: display_varlist sep_opt . gname + 845 display_varlist: display_varlist sep_opt • gname VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -10885,24 +11462,24 @@ state 575 unqualified_var go to state 81 -state 576 +State 576 - 821 end_divide_opt: END_DIVIDE . + 821 end_divide_opt: END_DIVIDE • $default reduce using rule 821 (end_divide_opt) -state 577 +State 577 - 813 divide_statement: DIVIDE divide_body end_divide_opt . + 813 divide_statement: DIVIDE divide_body end_divide_opt • $default reduce using rule 813 (divide_statement) -state 578 +State 578 - 815 divide_body: gname BY . gname GIVING var_list_name on_size_error_opt - 816 | gname BY . gname GIVING name rounded_opt REMAINDER name on_size_error_opt + 815 divide_body: gname BY • gname GIVING var_list_name on_size_error_opt + 816 | gname BY • gname GIVING name rounded_opt REMAINDER name on_size_error_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -10932,11 +11509,11 @@ state 578 unqualified_var go to state 81 -state 579 +State 579 - 817 divide_body: gname INTO . gname GIVING name rounded_opt REMAINDER name on_size_error_opt - 818 | gname INTO . gname GIVING var_list_name on_size_error_opt - 819 | gname INTO . var_list_name on_size_error_opt + 817 divide_body: gname INTO • gname GIVING name rounded_opt REMAINDER name on_size_error_opt + 818 | gname INTO • gname GIVING var_list_name on_size_error_opt + 819 | gname INTO • var_list_name on_size_error_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -10967,10 +11544,10 @@ state 579 unqualified_var go to state 81 -state 580 +State 580 - 652 evaluate_statement: EVALUATE @62 selection_subject_set . $@63 when_case_list end_evaluate_or_eos - 658 selection_subject_set: selection_subject_set . ALSO @65 selection_subject + 652 evaluate_statement: EVALUATE @62 selection_subject_set • $@63 when_case_list end_evaluate_or_eos + 658 selection_subject_set: selection_subject_set • ALSO @65 selection_subject ALSO shift, and go to state 767 @@ -10979,9 +11556,9 @@ state 580 $@63 go to state 768 -state 581 +State 581 - 656 selection_subject_set: @64 . selection_subject + 656 selection_subject_set: @64 • selection_subject VARIABLE shift, and go to state 56 VARCOND shift, and go to state 422 @@ -10991,12 +11568,12 @@ state 581 CLITERAL shift, and go to state 60 '+' shift, and go to state 61 '-' shift, and go to state 62 - NOT shift, and go to state 423 ALL shift, and go to state 63 FALSE_TOK shift, and go to state 769 FUNCTION shift, and go to state 64 HIGHVALUES shift, and go to state 65 LOWVALUES shift, and go to state 66 + NOT shift, and go to state 423 QUOTES shift, and go to state 67 SPACES shift, and go to state 68 TRUE_TOK shift, and go to state 770 @@ -11020,10 +11597,10 @@ state 581 unqualified_var go to state 81 -state 582 +State 582 - 1302 label: LABELSTR . in_of LABELSTR - 1303 | LABELSTR . + 1302 label: LABELSTR • in_of LABELSTR + 1303 | LABELSTR • IN shift, and go to state 102 OF shift, and go to state 103 @@ -11033,11 +11610,11 @@ state 582 in_of go to state 634 -state 583 +State 583 - 1304 label: NLITERAL . - 1305 | NLITERAL . in_of NLITERAL - 1306 | NLITERAL . in_of LABELSTR + 1304 label: NLITERAL • + 1305 | NLITERAL • in_of NLITERAL + 1306 | NLITERAL • in_of LABELSTR IN shift, and go to state 102 OF shift, and go to state 103 @@ -11047,18 +11624,18 @@ state 583 in_of go to state 635 -state 584 +State 584 - 956 goto_statement: GO to_opt goto_label . + 956 goto_statement: GO to_opt goto_label • $default reduce using rule 956 (goto_statement) -state 585 +State 585 - 957 goto_statement: GO to_opt goto_label_list . DEPENDING on_opt variable - 960 goto_label_list: goto_label_list . label - 961 | goto_label_list . LISTSEP label + 957 goto_statement: GO to_opt goto_label_list • DEPENDING on_opt variable + 960 goto_label_list: goto_label_list • label + 961 | goto_label_list • LISTSEP label LABELSTR shift, and go to state 582 NLITERAL shift, and go to state 583 @@ -11068,10 +11645,10 @@ state 585 label go to state 776 -state 586 +State 586 - 958 goto_label: label . - 959 goto_label_list: label . + 958 goto_label: label • + 959 goto_label_list: label • LABELSTR reduce using rule 959 (goto_label_list) NLITERAL reduce using rule 959 (goto_label_list) @@ -11080,33 +11657,33 @@ state 586 $default reduce using rule 958 (goto_label) -state 587 +State 587 - 1283 cond_name: VARCOND '(' . $@146 subscripts ')' + 1283 cond_name: VARCOND '(' • $@146 subscripts ')' $default reduce using rule 1282 ($@146) $@146 go to state 777 -state 588 +State 588 - 1182 condition: NOT condition . - 1184 | condition . AND @143 implied_op_condition - 1186 | condition . OR @144 implied_op_condition + 1182 condition: NOT condition • + 1184 | condition • AND @143 implied_op_condition + 1186 | condition • OR @144 implied_op_condition $default reduce using rule 1182 (condition) -state 589 +State 589 - 1114 expr: expr . '*' expr - 1115 | expr . '/' expr - 1116 | expr . '+' expr - 1117 | expr . '-' expr - 1118 | expr . POW_OP expr - 1119 | '(' expr . ')' - 1181 condition: expr . extended_cond_op $@142 expr_opt + 1114 expr: expr • '*' expr + 1115 | expr • '/' expr + 1116 | expr • '+' expr + 1117 | expr • '-' expr + 1118 | expr • POW_OP expr + 1119 | '(' expr • ')' + 1181 condition: expr • extended_cond_op $@142 expr_opt CONDITIONAL shift, and go to state 591 IS shift, and go to state 592 @@ -11115,11 +11692,11 @@ state 589 '*' shift, and go to state 595 '/' shift, and go to state 596 POW_OP shift, and go to state 597 - NOT shift, and go to state 598 - ALPHABETIC shift, and go to state 599 - ALPHABETIC_LOWER shift, and go to state 600 - ALPHABETIC_UPPER shift, and go to state 601 - NEGATIVE shift, and go to state 602 + ALPHABETIC shift, and go to state 598 + ALPHABETIC_LOWER shift, and go to state 599 + ALPHABETIC_UPPER shift, and go to state 600 + NEGATIVE shift, and go to state 601 + NOT shift, and go to state 602 NUMERIC shift, and go to state 603 POSITIVE shift, and go to state 604 ZERO shift, and go to state 605 @@ -11132,20 +11709,20 @@ state 589 conditional go to state 610 -state 590 +State 590 - 1184 condition: condition . AND @143 implied_op_condition - 1186 | condition . OR @144 implied_op_condition - 1187 | '(' condition . ')' + 1184 condition: condition • AND @143 implied_op_condition + 1186 | condition • OR @144 implied_op_condition + 1187 | '(' condition • ')' OR shift, and go to state 611 AND shift, and go to state 612 ')' shift, and go to state 779 -state 591 +State 591 - 1211 conditional: CONDITIONAL . than_to_opt + 1211 conditional: CONDITIONAL • than_to_opt TO shift, and go to state 780 THAN shift, and go to state 781 @@ -11155,18 +11732,18 @@ state 591 than_to_opt go to state 782 -state 592 +State 592 - 1199 extended_cond_op: IS . ext_cond - 1200 | IS . NOT ext_cond - 1201 | IS . ext_cond OR ext_cond + 1199 extended_cond_op: IS • ext_cond + 1200 | IS • NOT ext_cond + 1201 | IS • ext_cond OR ext_cond CONDITIONAL shift, and go to state 591 + ALPHABETIC shift, and go to state 598 + ALPHABETIC_LOWER shift, and go to state 599 + ALPHABETIC_UPPER shift, and go to state 600 + NEGATIVE shift, and go to state 601 NOT shift, and go to state 783 - ALPHABETIC shift, and go to state 599 - ALPHABETIC_LOWER shift, and go to state 600 - ALPHABETIC_UPPER shift, and go to state 601 - NEGATIVE shift, and go to state 602 NUMERIC shift, and go to state 603 POSITIVE shift, and go to state 604 ZERO shift, and go to state 605 @@ -11177,9 +11754,9 @@ state 592 conditional go to state 610 -state 593 +State 593 - 1116 expr: expr '+' . expr + 1116 expr: expr '+' • expr VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -11211,9 +11788,9 @@ state 593 unqualified_var go to state 81 -state 594 +State 594 - 1117 expr: expr '-' . expr + 1117 expr: expr '-' • expr VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -11245,9 +11822,9 @@ state 594 unqualified_var go to state 81 -state 595 +State 595 - 1114 expr: expr '*' . expr + 1114 expr: expr '*' • expr VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -11279,9 +11856,9 @@ state 595 unqualified_var go to state 81 -state 596 +State 596 - 1115 expr: expr '/' . expr + 1115 expr: expr '/' • expr VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -11313,9 +11890,9 @@ state 596 unqualified_var go to state 81 -state 597 +State 597 - 1118 expr: expr POW_OP . expr + 1118 expr: expr POW_OP • expr VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -11347,9 +11924,37 @@ state 597 unqualified_var go to state 81 -state 598 +State 598 - 1203 extended_cond_op: NOT . is_opt ext_cond + 1196 class_condition: ALPHABETIC • + + $default reduce using rule 1196 (class_condition) + + +State 599 + + 1197 class_condition: ALPHABETIC_LOWER • + + $default reduce using rule 1197 (class_condition) + + +State 600 + + 1198 class_condition: ALPHABETIC_UPPER • + + $default reduce using rule 1198 (class_condition) + + +State 601 + + 1193 sign_condition: NEGATIVE • + + $default reduce using rule 1193 (sign_condition) + + +State 602 + + 1203 extended_cond_op: NOT • is_opt ext_cond IS shift, and go to state 84 @@ -11358,82 +11963,54 @@ state 598 is_opt go to state 790 -state 599 +State 603 - 1196 class_condition: ALPHABETIC . - - $default reduce using rule 1196 (class_condition) - - -state 600 - - 1197 class_condition: ALPHABETIC_LOWER . - - $default reduce using rule 1197 (class_condition) - - -state 601 - - 1198 class_condition: ALPHABETIC_UPPER . - - $default reduce using rule 1198 (class_condition) - - -state 602 - - 1193 sign_condition: NEGATIVE . - - $default reduce using rule 1193 (sign_condition) - - -state 603 - - 1195 class_condition: NUMERIC . + 1195 class_condition: NUMERIC • $default reduce using rule 1195 (class_condition) -state 604 +State 604 - 1192 sign_condition: POSITIVE . + 1192 sign_condition: POSITIVE • $default reduce using rule 1192 (sign_condition) -state 605 +State 605 - 1194 sign_condition: ZERO . + 1194 sign_condition: ZERO • $default reduce using rule 1194 (sign_condition) -state 606 +State 606 - 1207 ext_cond: sign_condition . + 1207 ext_cond: sign_condition • $default reduce using rule 1207 (ext_cond) -state 607 +State 607 - 1206 ext_cond: class_condition . + 1206 ext_cond: class_condition • $default reduce using rule 1206 (ext_cond) -state 608 +State 608 - 1181 condition: expr extended_cond_op . $@142 expr_opt + 1181 condition: expr extended_cond_op • $@142 expr_opt $default reduce using rule 1180 ($@142) $@142 go to state 791 -state 609 +State 609 - 1202 extended_cond_op: ext_cond . - 1204 | ext_cond . OR ext_cond + 1202 extended_cond_op: ext_cond • + 1204 | ext_cond • OR ext_cond OR shift, and go to state 792 @@ -11441,34 +12018,34 @@ state 609 $default reduce using rule 1202 (extended_cond_op) -state 610 +State 610 - 1205 ext_cond: conditional . + 1205 ext_cond: conditional • $default reduce using rule 1205 (ext_cond) -state 611 +State 611 - 1186 condition: condition OR . @144 implied_op_condition + 1186 condition: condition OR • @144 implied_op_condition $default reduce using rule 1185 (@144) @144 go to state 793 -state 612 +State 612 - 1184 condition: condition AND . @143 implied_op_condition + 1184 condition: condition AND • @143 implied_op_condition $default reduce using rule 1183 (@143) @143 go to state 794 -state 613 +State 613 - 684 if_part: IF condition @73 . end_then_opt conditional_statement + 684 if_part: IF condition @73 • end_then_opt conditional_statement THEN shift, and go to state 795 @@ -11477,9 +12054,9 @@ state 613 end_then_opt go to state 796 -state 614 +State 614 - 777 initialize_replacing_opt: REPLACING . initialize_replacing_lists + 777 initialize_replacing_opt: REPLACING • initialize_replacing_lists ALPHABETIC shift, and go to state 797 ALPHANUMERIC shift, and go to state 798 @@ -11492,16 +12069,16 @@ state 614 initialize_type_list go to state 804 -state 615 +State 615 - 774 initialize_statement: INITIALIZE gname_list initialize_replacing_opt . + 774 initialize_statement: INITIALIZE gname_list initialize_replacing_opt • $default reduce using rule 774 (initialize_statement) -state 616 +State 616 - 1088 converting_clause: CONVERTING . noallname TO noallname inspect_before_after + 1088 converting_clause: CONVERTING • noallname TO noallname inspect_before_after VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -11527,42 +12104,42 @@ state 616 unqualified_var go to state 81 -state 617 +State 617 - 1089 tallying_clause: TALLYING . tallying_list + 1089 tallying_clause: TALLYING • tallying_list $default reduce using rule 1092 (tallying_list) tallying_list go to state 808 -state 618 +State 618 - 1087 inspect_statement: INSPECT name converting_clause . + 1087 inspect_statement: INSPECT name converting_clause • $default reduce using rule 1087 (inspect_statement) -state 619 +State 619 - 1086 inspect_statement: INSPECT name tallying_clause . $@126 replacing_clause + 1086 inspect_statement: INSPECT name tallying_clause • $@126 replacing_clause $default reduce using rule 1085 ($@126) $@126 go to state 809 -state 620 +State 620 - 1236 on_opt: ON . + 1236 on_opt: ON • $default reduce using rule 1236 (on_opt) -state 621 +State 621 - 740 merge_statement: MERGE name sort_keys . $@86 sort_collating_opt $@87 merge_using $@88 sort_output - 751 sort_keys: sort_keys . sort_key + 740 merge_statement: MERGE name sort_keys • $@86 sort_collating_opt $@87 merge_using $@88 sort_output + 751 sort_keys: sort_keys • sort_key ON shift, and go to state 620 @@ -11574,37 +12151,37 @@ state 621 on_opt go to state 623 -state 622 +State 622 - 750 sort_keys: sort_key . + 750 sort_keys: sort_key • $default reduce using rule 750 (sort_keys) -state 623 +State 623 - 754 sort_key: on_opt . DIRECTION key_opt sort_keys_names + 754 sort_key: on_opt • DIRECTION key_opt sort_keys_names DIRECTION shift, and go to state 812 -state 624 +State 624 - 1288 name_var: gname . + 1288 name_var: gname • $default reduce using rule 1288 (name_var) -state 625 +State 625 - 771 move_statement: MOVE CORRESPONDING name_var . TO name_var + 771 move_statement: MOVE CORRESPONDING name_var • TO name_var TO shift, and go to state 813 -state 626 +State 626 - 772 move_statement: MOVE LENGTH OF . gname TO name_var + 772 move_statement: MOVE LENGTH OF • gname TO name_var VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -11634,10 +12211,10 @@ state 626 unqualified_var go to state 81 -state 627 +State 627 - 770 move_statement: MOVE gname TO . name_var_list - 773 | MOVE gname TO . + 770 move_statement: MOVE gname TO • name_var_list + 773 | MOVE gname TO • VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -11671,24 +12248,24 @@ state 627 unqualified_var go to state 81 -state 628 +State 628 - 812 end_multiply_opt: END_MULTIPLY . + 812 end_multiply_opt: END_MULTIPLY • $default reduce using rule 812 (end_multiply_opt) -state 629 +State 629 - 807 multiply_statement: MULTIPLY multiply_body end_multiply_opt . + 807 multiply_statement: MULTIPLY multiply_body end_multiply_opt • $default reduce using rule 807 (multiply_statement) -state 630 +State 630 - 809 multiply_body: gname BY . gname GIVING var_list_name on_size_error_opt - 810 | gname BY . var_list_name on_size_error_opt + 809 multiply_body: gname BY • gname GIVING var_list_name on_size_error_opt + 810 | gname BY • var_list_name on_size_error_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -11719,9 +12296,9 @@ state 630 unqualified_var go to state 81 -state 631 +State 631 - 871 open_options: open_options open_mode . open_varlist + 871 open_options: open_options open_mode • open_varlist VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -11734,10 +12311,10 @@ state 631 unqualified_var go to state 81 -state 632 +State 632 - 870 open_options: open_mode open_varlist . - 878 open_varlist: open_varlist . sep_opt name + 870 open_options: open_mode open_varlist • + 878 open_varlist: open_varlist • sep_opt name LISTSEP shift, and go to state 98 @@ -11749,41 +12326,41 @@ state 632 sep_opt go to state 820 -state 633 +State 633 - 877 open_varlist: name . + 877 open_varlist: name • $default reduce using rule 877 (open_varlist) -state 634 +State 634 - 1302 label: LABELSTR in_of . LABELSTR + 1302 label: LABELSTR in_of • LABELSTR LABELSTR shift, and go to state 821 -state 635 +State 635 - 1305 label: NLITERAL in_of . NLITERAL - 1306 | NLITERAL in_of . LABELSTR + 1305 label: NLITERAL in_of • NLITERAL + 1306 | NLITERAL in_of • LABELSTR LABELSTR shift, and go to state 822 NLITERAL shift, and go to state 823 -state 636 +State 636 - 1151 perform_options: with_test_opt UNTIL . @131 condition @132 perform_statements $@133 END_PERFORM + 1151 perform_options: with_test_opt UNTIL • @131 condition @132 perform_statements $@133 END_PERFORM $default reduce using rule 1148 (@131) @131 go to state 824 -state 637 +State 637 - 1155 perform_options: with_test_opt VARYING . name FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM + 1155 perform_options: with_test_opt VARYING • name FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -11795,24 +12372,24 @@ state 637 unqualified_var go to state 81 -state 638 +State 638 - 1144 perform_options: perform_statements END_PERFORM . + 1144 perform_options: perform_statements END_PERFORM • $default reduce using rule 1144 (perform_options) -state 639 +State 639 - 1177 perform_statements: $@141 statement_list . + 1177 perform_statements: $@141 statement_list • $default reduce using rule 1177 (perform_statements) -state 640 +State 640 - 596 statement_list: statements . - 598 statements: statements . statement + 596 statement_list: statements • + 598 statements: statements • statement READ shift, and go to state 254 WRITE shift, and go to state 255 @@ -11960,9 +12537,9 @@ state 640 inspect_statement go to state 350 -state 641 +State 641 - 1166 with_test_opt: with_opt TEST . before_after + 1166 with_test_opt: with_opt TEST • before_after AFTER shift, and go to state 712 BEFORE shift, and go to state 713 @@ -11970,18 +12547,18 @@ state 641 before_after go to state 826 -state 642 +State 642 - 1147 perform_options: gname TIMES . @129 perform_statements $@130 END_PERFORM + 1147 perform_options: gname TIMES • @129 perform_statements $@130 END_PERFORM $default reduce using rule 1145 (@129) @129 go to state 827 -state 643 +State 643 - 1164 perform_thru_opt: THRU . label + 1164 perform_thru_opt: THRU • label LABELSTR shift, and go to state 582 NLITERAL shift, and go to state 583 @@ -11989,12 +12566,12 @@ state 643 label go to state 828 -state 644 +State 644 - 1156 perform_options: label perform_thru_opt . - 1158 | label perform_thru_opt . with_test_opt UNTIL @137 condition - 1159 | label perform_thru_opt . gname TIMES - 1162 | label perform_thru_opt . with_test_opt VARYING name FROM gname by_opt gname UNTIL @138 condition @139 perform_after_opt + 1156 perform_options: label perform_thru_opt • + 1158 | label perform_thru_opt • with_test_opt UNTIL @137 condition + 1159 | label perform_thru_opt • gname TIMES + 1162 | label perform_thru_opt • with_test_opt VARYING name FROM gname by_opt gname UNTIL @138 condition @139 perform_after_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -12032,24 +12609,24 @@ state 644 unqualified_var go to state 81 -state 645 +State 645 - 929 end_return_opt: END_RETURN . + 929 end_return_opt: END_RETURN • $default reduce using rule 929 (end_return_opt) -state 646 +State 646 - 894 return_statement: RETURN return_body end_return_opt . + 894 return_statement: RETURN return_body end_return_opt • $default reduce using rule 894 (return_statement) -state 647 +State 647 - 896 return_body: name record_opt . read_into_opt - 897 | name record_opt . read_into_opt read_at_end_opt + 896 return_body: name record_opt • read_into_opt + 897 | name record_opt • read_into_opt read_at_end_opt INTO shift, and go to state 831 @@ -12058,18 +12635,18 @@ state 647 read_into_opt go to state 832 -state 648 +State 648 - 943 rewrite_statement: REWRITE name write_from_opt . $@102 invalid_key_opt end_rewrite_opt + 943 rewrite_statement: REWRITE name write_from_opt • $@102 invalid_key_opt end_rewrite_opt $default reduce using rule 942 ($@102) $@102 go to state 833 -state 649 +State 649 - 649 search_statement: SEARCH ALL search_all . end_search_opt + 649 search_statement: SEARCH ALL search_all • end_search_opt END_SEARCH shift, and go to state 651 @@ -12079,32 +12656,32 @@ state 649 end_search_opt go to state 834 -state 650 +State 650 - 701 search_all: variable_indexed . @79 search_at_end $@80 search_all_when_list + 701 search_all: variable_indexed • @79 search_at_end $@80 search_all_when_list $default reduce using rule 699 (@79) @79 go to state 835 -state 651 +State 651 - 726 end_search_opt: END_SEARCH . + 726 end_search_opt: END_SEARCH • $default reduce using rule 726 (end_search_opt) -state 652 +State 652 - 648 search_statement: SEARCH search end_search_opt . + 648 search_statement: SEARCH search end_search_opt • $default reduce using rule 648 (search_statement) -state 653 +State 653 - 698 search: variable_indexed @76 . search_varying_opt @77 search_at_end @78 search_when_list + 698 search: variable_indexed @76 • search_varying_opt @77 search_at_end @78 search_when_list VARYING shift, and go to state 836 @@ -12113,30 +12690,30 @@ state 653 search_varying_opt go to state 837 -state 654 +State 654 - 317 of_opt: OF . + 317 of_opt: OF • $default reduce using rule 317 (of_opt) -state 655 +State 655 - 1025 address_of_opt: ADDRESS of_opt . + 1025 address_of_opt: ADDRESS of_opt • $default reduce using rule 1025 (address_of_opt) -state 656 +State 656 - 173 name_list: name_list variable . + 173 name_list: name_list variable • $default reduce using rule 173 (name_list) -state 657 +State 657 - 1011 set_list: set_target TO . address_of_opt set_variable_or_nlit + 1011 set_list: set_target TO • address_of_opt set_variable_or_nlit ADDRESS shift, and go to state 464 @@ -12145,31 +12722,31 @@ state 657 address_of_opt go to state 838 -state 658 +State 658 - 1013 set_list: set_target DOWN . BY var_or_nliteral + 1013 set_list: set_target DOWN • BY var_or_nliteral BY shift, and go to state 839 -state 659 +State 659 - 1012 set_list: set_target UP . BY var_or_nliteral + 1012 set_list: set_target UP • BY var_or_nliteral BY shift, and go to state 840 -state 660 +State 660 - 1014 set_list: address_of_opt variable . TO address_of_opt set_variable + 1014 set_list: address_of_opt variable • TO address_of_opt set_variable TO shift, and go to state 841 -state 661 +State 661 - 749 sort_variable_indexed: SORT variable_indexed sort_keys_idx . $@92 sort_duplicates_opt sort_collating_opt - 753 sort_keys_idx: sort_keys_idx . sort_key_idx + 749 sort_variable_indexed: SORT variable_indexed sort_keys_idx • $@92 sort_duplicates_opt sort_collating_opt + 753 sort_keys_idx: sort_keys_idx • sort_key_idx ON shift, and go to state 620 @@ -12181,24 +12758,24 @@ state 661 on_opt go to state 663 -state 662 +State 662 - 752 sort_keys_idx: sort_key_idx . + 752 sort_keys_idx: sort_key_idx • $default reduce using rule 752 (sort_keys_idx) -state 663 +State 663 - 755 sort_key_idx: on_opt . DIRECTION key_opt sort_keys_names_idx + 755 sort_key_idx: on_opt • DIRECTION key_opt sort_keys_names_idx DIRECTION shift, and go to state 844 -state 664 +State 664 - 747 sort_file: SORT name sort_keys . $@89 sort_duplicates_opt sort_collating_opt $@90 sort_input $@91 sort_output - 751 sort_keys: sort_keys . sort_key + 747 sort_file: SORT name sort_keys • $@89 sort_duplicates_opt sort_collating_opt $@90 sort_input $@91 sort_output + 751 sort_keys: sort_keys • sort_key ON shift, and go to state 620 @@ -12210,16 +12787,9 @@ state 664 on_opt go to state 623 -state 665 +State 665 - 1070 not_excep: NOT . - - $default reduce using rule 1070 (not_excep) - - -state 666 - - 1066 invalid_key_sentence: INVALID . key_opt @124 statement_list + 1066 invalid_key_sentence: INVALID • key_opt @124 statement_list KEY shift, and go to state 846 @@ -12228,28 +12798,35 @@ state 666 key_opt go to state 847 -state 667 +State 666 - 1069 not_excep: NOTEXCEP . + 1070 not_excep: NOT • + + $default reduce using rule 1070 (not_excep) + + +State 667 + + 1069 not_excep: NOTEXCEP • $default reduce using rule 1069 (not_excep) -state 668 +State 668 - 951 start_statement: START start_body invalid_key_opt . $@104 end_start_opt + 951 start_statement: START start_body invalid_key_opt • $@104 end_start_opt $default reduce using rule 950 ($@104) $@104 go to state 848 -state 669 +State 669 - 1061 invalid_key_opt: invalid_key_sentence . - 1063 | invalid_key_sentence . not_invalid_key_sentence + 1061 invalid_key_opt: invalid_key_sentence • + 1063 | invalid_key_sentence • not_invalid_key_sentence - NOT shift, and go to state 665 + NOT shift, and go to state 666 NOTEXCEP shift, and go to state 667 NOT [reduce using rule 1061 (invalid_key_opt)] @@ -12260,23 +12837,23 @@ state 669 not_excep go to state 671 -state 670 +State 670 - 1062 invalid_key_opt: not_invalid_key_sentence . + 1062 invalid_key_opt: not_invalid_key_sentence • $default reduce using rule 1062 (invalid_key_opt) -state 671 +State 671 - 1068 not_invalid_key_sentence: not_excep . INVALID key_opt @125 statement_list + 1068 not_invalid_key_sentence: not_excep • INVALID key_opt @125 statement_list INVALID shift, and go to state 850 -state 672 +State 672 - 953 start_body: name KEY . is_opt cond_op name + 953 start_body: name KEY • is_opt cond_op name IS shift, and go to state 84 @@ -12285,9 +12862,9 @@ state 672 is_opt go to state 851 -state 673 +State 673 - 1027 string_statement: STRINGCMD string_from_list INTO . name string_with_pointer $@117 on_overflow_opt end_stringcmd_opt + 1027 string_statement: STRINGCMD string_from_list INTO • name string_with_pointer $@117 on_overflow_opt end_stringcmd_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -12299,9 +12876,9 @@ state 673 unqualified_var go to state 81 -state 674 +State 674 - 1074 string_from_list: string_from_list sep_opt . string_from + 1074 string_from_list: string_from_list sep_opt • string_from VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -12332,9 +12909,9 @@ state 674 unqualified_var go to state 81 -state 675 +State 675 - 1077 string_from: gname DELIMITED . by_opt delimited_by + 1077 string_from: gname DELIMITED • by_opt delimited_by BY shift, and go to state 854 @@ -12343,10 +12920,10 @@ state 675 by_opt go to state 855 -state 676 +State 676 - 804 subtract_body: CORRESPONDING var_list_gname . FROM var_list_name rounded_opt on_size_error_opt - 994 var_list_gname: var_list_gname . gname sep_opt + 804 subtract_body: CORRESPONDING var_list_gname • FROM var_list_name rounded_opt on_size_error_opt + 994 var_list_gname: var_list_gname • gname sep_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -12377,24 +12954,24 @@ state 676 unqualified_var go to state 81 -state 677 +State 677 - 806 end_subtract_opt: END_SUBTRACT . + 806 end_subtract_opt: END_SUBTRACT • $default reduce using rule 806 (end_subtract_opt) -state 678 +State 678 - 800 subtract_statement: SUBTRACT subtract_body end_subtract_opt . + 800 subtract_statement: SUBTRACT subtract_body end_subtract_opt • $default reduce using rule 800 (subtract_statement) -state 679 +State 679 - 802 subtract_body: var_list_gname FROM . var_list_name on_size_error_opt - 803 | var_list_gname FROM . gname GIVING var_list_name on_size_error_opt + 802 subtract_body: var_list_gname FROM • var_list_name on_size_error_opt + 803 | var_list_gname FROM • gname GIVING var_list_name on_size_error_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -12425,16 +13002,16 @@ state 679 unqualified_var go to state 81 -state 680 +State 680 - 729 proto_statement: TCOBPROTO2 gname gname . + 729 proto_statement: TCOBPROTO2 gname gname • $default reduce using rule 729 (proto_statement) -state 681 +State 681 - 1030 unstring_delimited: DELIMITED . by_opt unstring_delimited_vars + 1030 unstring_delimited: DELIMITED • by_opt unstring_delimited_vars BY shift, and go to state 854 @@ -12443,16 +13020,16 @@ state 681 by_opt go to state 859 -state 682 +State 682 - 1029 unstring_statement: UNSTRING name unstring_delimited . INTO unstring_destinations string_with_pointer unstring_tallying $@118 on_overflow_opt end_unstring_opt + 1029 unstring_statement: UNSTRING name unstring_delimited • INTO unstring_destinations string_with_pointer unstring_tallying $@118 on_overflow_opt end_unstring_opt INTO shift, and go to state 860 -state 683 +State 683 - 647 if_statement: if_part ELSE @60 . conditional_statement $@61 end_if_opt + 647 if_statement: if_part ELSE @60 • conditional_statement $@61 end_if_opt NEXT reduce using rule 687 ($@75) $default reduce using rule 685 ($@74) @@ -12462,23 +13039,23 @@ state 683 $@75 go to state 863 -state 684 +State 684 - 692 end_if_opt: END_IF . + 692 end_if_opt: END_IF • $default reduce using rule 692 (end_if_opt) -state 685 +State 685 - 644 if_statement: if_part $@59 end_if_opt . + 644 if_statement: if_part $@59 end_if_opt • $default reduce using rule 644 (if_statement) -state 686 +State 686 - 43 collating_sequence: collating_opt SEQUENCE . is_opt STRING + 43 collating_sequence: collating_opt SEQUENCE • is_opt STRING IS shift, and go to state 84 @@ -12487,23 +13064,23 @@ state 686 is_opt go to state 864 -state 687 +State 687 - 46 debug_mode_opt: with_opt DEBUGGING MODE . + 46 debug_mode_opt: with_opt DEBUGGING MODE • $default reduce using rule 46 (debug_mode_opt) -state 688 +State 688 - 87 alphabet_literal_list: alphabet_literal_list alphabet_literal_item . + 87 alphabet_literal_list: alphabet_literal_list alphabet_literal_item • $default reduce using rule 87 (alphabet_literal_list) -state 689 +State 689 - 89 alphabet_literal_item: without_all_literal THRU . without_all_literal + 89 alphabet_literal_item: without_all_literal THRU • without_all_literal NLITERAL shift, and go to state 59 CLITERAL shift, and go to state 60 @@ -12521,9 +13098,9 @@ state 689 signed_nliteral go to state 77 -state 690 +State 690 - 91 alphabet_also_list: ALSO . without_all_literal + 91 alphabet_also_list: ALSO • without_all_literal NLITERAL shift, and go to state 59 CLITERAL shift, and go to state 60 @@ -12541,33 +13118,33 @@ state 690 signed_nliteral go to state 77 -state 691 +State 691 - 90 alphabet_literal_item: without_all_literal alphabet_also_list . - 92 alphabet_also_list: alphabet_also_list . ALSO without_all_literal + 90 alphabet_literal_item: without_all_literal alphabet_also_list • + 92 alphabet_also_list: alphabet_also_list • ALSO without_all_literal ALSO shift, and go to state 867 $default reduce using rule 90 (alphabet_literal_item) -state 692 +State 692 - 67 special_name_class_item: CLITERAL THRU . CLITERAL + 67 special_name_class_item: CLITERAL THRU • CLITERAL CLITERAL shift, and go to state 868 -state 693 +State 693 - 65 special_name_class_item_list: special_name_class_item_list special_name_class_item . + 65 special_name_class_item_list: special_name_class_item_list special_name_class_item • $default reduce using rule 65 (special_name_class_item_list) -state 694 +State 694 - 74 switches_details: STRING is_opt STRING $@9 . switch_on_opt switch_off_opt + 74 switches_details: STRING is_opt STRING $@9 • switch_on_opt switch_off_opt ON shift, and go to state 869 @@ -12576,10 +13153,10 @@ state 694 switch_on_opt go to state 870 -state 695 +State 695 - 103 file_select: SELECT optional_opt def_name $@10 select_clauses . PERIOD_TOK - 104 select_clauses: select_clauses . select_clause + 103 file_select: SELECT optional_opt def_name $@10 select_clauses • PERIOD_TOK + 104 select_clauses: select_clauses • select_clause error shift, and go to state 871 ACCESS shift, and go to state 872 @@ -12606,16 +13183,16 @@ state 695 organization_opt go to state 883 -state 696 +State 696 - 546 contains_opt: CONTAINS . + 546 contains_opt: CONTAINS • $default reduce using rule 546 (contains_opt) -state 697 +State 697 - 157 i_o_control_multiple_file_tape_clause: MULTIPLE FILE_TOK tape_opt contains_opt . i_o_control_multiple_file_list + 157 i_o_control_multiple_file_tape_clause: MULTIPLE FILE_TOK tape_opt contains_opt • i_o_control_multiple_file_list STRING shift, and go to state 884 @@ -12623,16 +13200,16 @@ state 697 i_o_control_multiple_file go to state 886 -state 698 +State 698 - 167 for_opt: FOR . + 167 for_opt: FOR • $default reduce using rule 167 (for_opt) -state 699 +State 699 - 152 i_o_control_same_clause: SAME same_clause_options are_opta for_opt . string_list + 152 i_o_control_same_clause: SAME same_clause_options are_opta for_opt • string_list error shift, and go to state 887 STRING shift, and go to state 888 @@ -12640,10 +13217,10 @@ state 699 string_list go to state 889 -state 700 +State 700 - 419 file_section: file_section FD $@38 STRING $@39 file_description_fd_clauses . PERIOD_TOK $@40 file_description - 484 file_description_fd_clauses: file_description_fd_clauses . file_description_fd_clause + 419 file_section: file_section FD $@38 STRING $@39 file_description_fd_clauses • PERIOD_TOK $@40 file_description + 484 file_description_fd_clauses: file_description_fd_clauses • file_description_fd_clause IS shift, and go to state 84 BLOCK shift, and go to state 890 @@ -12672,10 +13249,10 @@ state 700 report_is_are go to state 910 -state 701 +State 701 - 423 file_section: file_section SD $@41 STRING $@42 file_description_sd_clauses . PERIOD_TOK $@43 file_description - 486 file_description_sd_clauses: file_description_sd_clauses . file_description_sd_clause + 423 file_section: file_section SD $@41 STRING $@42 file_description_sd_clauses • PERIOD_TOK $@43 file_description + 486 file_description_sd_clauses: file_description_sd_clauses • file_description_sd_clause DATA shift, and go to state 892 RECORD shift, and go to state 895 @@ -12686,11 +13263,11 @@ state 701 file_description_clause_data go to state 914 -state 702 +State 702 - 429 field_description: integer def_name_opt $@44 data_clauses . PERIOD_TOK - 431 data_clauses: data_clauses . data_clause - 432 | data_clauses . redefines_clause + 429 field_description: integer def_name_opt $@44 data_clauses • PERIOD_TOK + 431 data_clauses: data_clauses • data_clause + 432 | data_clauses • redefines_clause IS shift, and go to state 84 BLANK shift, and go to state 915 @@ -12725,25 +13302,25 @@ state 702 usage_opt go to state 937 -state 703 +State 703 - 194 report_section: RD $@15 STRING . $@16 report_controls PERIOD_TOK $@17 report_description + 194 report_section: RD $@15 STRING • $@16 report_controls PERIOD_TOK $@17 report_description $default reduce using rule 192 ($@16) $@16 go to state 938 -state 704 +State 704 - 322 screen_section: screen_section screen_item . + 322 screen_section: screen_section screen_item • $default reduce using rule 322 (screen_section) -state 705 +State 705 - 325 screen_item: integer . def_name_opt $@28 screen_clauses PERIOD_TOK + 325 screen_item: integer • def_name_opt $@28 screen_clauses PERIOD_TOK STRING shift, and go to state 368 FILLER shift, and go to state 369 @@ -12754,24 +13331,24 @@ state 705 def_name go to state 381 -state 706 +State 706 - 580 declaratives_decl: error $@57 . PERIOD_TOK + 580 declaratives_decl: error $@57 • PERIOD_TOK PERIOD_TOK shift, and go to state 940 -state 707 +State 707 - 571 declaratives_opt: DECLARATIVES PERIOD_TOK $@55 declaratives_procedure declaratives_division END DECLARATIVES . PERIOD_TOK + 571 declaratives_opt: DECLARATIVES PERIOD_TOK $@55 declaratives_procedure declaratives_division END DECLARATIVES • PERIOD_TOK PERIOD_TOK shift, and go to state 941 -state 708 +State 708 - 578 declaratives_decl: $@56 statements . PERIOD_TOK - 598 statements: statements . statement + 578 declaratives_decl: $@56 statements • PERIOD_TOK + 598 statements: statements • statement READ shift, and go to state 254 WRITE shift, and go to state 255 @@ -12873,9 +13450,9 @@ state 708 inspect_statement go to state 350 -state 709 +State 709 - 584 use_phrase: USE AFTER . use_phrase_exception_error PROCEDURE on_opt use_phrase_option PERIOD_TOK + 584 use_phrase: USE AFTER • use_phrase_exception_error PROCEDURE on_opt use_phrase_option PERIOD_TOK ERROR_TOK shift, and go to state 943 EXCEPTION shift, and go to state 944 @@ -12884,11 +13461,11 @@ state 709 use_phrase_exception_error go to state 946 -state 710 +State 710 - 900 read_body: name read_next_opt record_opt . read_into_opt with_lock_opt read_key_opt - 901 | name read_next_opt record_opt . read_into_opt with_lock_opt read_key_opt read_at_end_opt - 902 | name read_next_opt record_opt . read_into_opt with_lock_opt read_key_opt read_invalid_key_opt + 900 read_body: name read_next_opt record_opt • read_into_opt with_lock_opt read_key_opt + 901 | name read_next_opt record_opt • read_into_opt with_lock_opt read_key_opt read_at_end_opt + 902 | name read_next_opt record_opt • read_into_opt with_lock_opt read_key_opt read_invalid_key_opt INTO shift, and go to state 831 @@ -12897,40 +13474,40 @@ state 710 read_into_opt go to state 947 -state 711 +State 711 - 936 write_from_opt: FROM gname . + 936 write_from_opt: FROM gname • $default reduce using rule 936 (write_from_opt) -state 712 +State 712 - 1179 before_after: AFTER . + 1179 before_after: AFTER • $default reduce using rule 1179 (before_after) -state 713 +State 713 - 1178 before_after: BEFORE . + 1178 before_after: BEFORE • $default reduce using rule 1178 (before_after) -state 714 +State 714 - 934 write_statement: WRITE name write_from_opt write_options . $@101 invalid_key_opt end_write_opt + 934 write_statement: WRITE name write_from_opt write_options • $@101 invalid_key_opt end_write_opt $default reduce using rule 933 ($@101) $@101 go to state 948 -state 715 +State 715 - 938 write_options: before_after . advancing_opt gname line_lines_opt - 939 | before_after . advancing_opt PAGE + 938 write_options: before_after • advancing_opt gname line_lines_opt + 939 | before_after • advancing_opt PAGE ADVANCING shift, and go to state 949 @@ -12939,16 +13516,16 @@ state 715 advancing_opt go to state 950 -state 716 +State 716 - 932 release_from_opt: FROM gname . + 932 release_from_opt: FROM gname • $default reduce using rule 932 (release_from_opt) -state 717 +State 717 - 828 accept_hardware: ACCEPT name FROM CMD_LINE . end_accept_opt + 828 accept_hardware: ACCEPT name FROM CMD_LINE • end_accept_opt END_ACCEPT shift, and go to state 725 @@ -12958,16 +13535,16 @@ state 717 end_accept_opt go to state 951 -state 718 +State 718 - 830 accept_hardware: ACCEPT name FROM ENVIRONMENT_VARIABLE . CLITERAL end_accept_opt + 830 accept_hardware: ACCEPT name FROM ENVIRONMENT_VARIABLE • CLITERAL end_accept_opt CLITERAL shift, and go to state 952 -state 719 +State 719 - 826 accept_hardware: ACCEPT name FROM INKEY . end_accept_opt + 826 accept_hardware: ACCEPT name FROM INKEY • end_accept_opt END_ACCEPT shift, and go to state 725 @@ -12977,9 +13554,9 @@ state 719 end_accept_opt go to state 953 -state 720 +State 720 - 829 accept_hardware: ACCEPT name FROM ESCKEY . end_accept_opt + 829 accept_hardware: ACCEPT name FROM ESCKEY • end_accept_opt END_ACCEPT shift, and go to state 725 @@ -12989,9 +13566,9 @@ state 720 end_accept_opt go to state 954 -state 721 +State 721 - 831 accept_chronological: ACCEPT name FROM DATE_TIME . end_accept_opt + 831 accept_chronological: ACCEPT name FROM DATE_TIME • end_accept_opt END_ACCEPT shift, and go to state 725 @@ -13001,17 +13578,17 @@ state 721 end_accept_opt go to state 955 -state 722 +State 722 - 827 accept_hardware: ACCEPT name FROM INPUT . STATUS end_accept_opt + 827 accept_hardware: ACCEPT name FROM INPUT • STATUS end_accept_opt STATUS shift, and go to state 956 -state 723 +State 723 - 860 scr_line_position: AT . NLITERAL - 861 | AT . variable + 860 scr_line_position: AT • NLITERAL + 861 | AT • variable VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -13022,9 +13599,9 @@ state 723 unqualified_var go to state 81 -state 724 +State 724 - 858 scr_position: COLUMN . number_opt expr + 858 scr_position: COLUMN • number_opt expr NUMBER shift, and go to state 959 @@ -13033,16 +13610,16 @@ state 724 number_opt go to state 960 -state 725 +State 725 - 838 end_accept_opt: END_ACCEPT . + 838 end_accept_opt: END_ACCEPT • $default reduce using rule 838 (end_accept_opt) -state 726 +State 726 - 857 scr_line: LINE . number_opt expr + 857 scr_line: LINE • number_opt expr NUMBER shift, and go to state 959 @@ -13051,9 +13628,9 @@ state 726 number_opt go to state 961 -state 727 +State 727 - 859 scr_position: POSITION . expr + 859 scr_position: POSITION • expr VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -13085,44 +13662,44 @@ state 727 unqualified_var go to state 81 -state 728 +State 728 - 832 accept_screen: ACCEPT name accept_display_options end_accept_opt . + 832 accept_screen: ACCEPT name accept_display_options end_accept_opt • $default reduce using rule 832 (accept_screen) -state 729 +State 729 - 865 accept_display_option: scr_line . + 865 accept_display_option: scr_line • $default reduce using rule 865 (accept_display_option) -state 730 +State 730 - 866 accept_display_option: scr_position . + 866 accept_display_option: scr_position • $default reduce using rule 866 (accept_display_option) -state 731 +State 731 - 867 accept_display_option: scr_line_position . + 867 accept_display_option: scr_line_position • $default reduce using rule 867 (accept_display_option) -state 732 +State 732 - 863 accept_display_options: accept_display_options accept_display_option . + 863 accept_display_options: accept_display_options accept_display_option • $default reduce using rule 863 (accept_display_options) -state 733 +State 733 - 864 accept_display_option: with_opt . screen_attribx + 864 accept_display_option: with_opt • screen_attribx IS shift, and go to state 84 AUTO shift, and go to state 963 @@ -13155,16 +13732,16 @@ state 733 with_opt go to state 982 -state 734 +State 734 - 836 accept_screen: ACCEPT name accept_display_options on_opt . EXCEPTION $@93 variable @94 statement_list $@95 end_accept_opt + 836 accept_screen: ACCEPT name accept_display_options on_opt • EXCEPTION $@93 variable @94 statement_list $@95 end_accept_opt EXCEPTION shift, and go to state 983 -state 735 +State 735 - 795 add_body: CORRESPONDING var_list_gname TO . var_list_name rounded_opt on_size_error_opt + 795 add_body: CORRESPONDING var_list_gname TO • var_list_name rounded_opt on_size_error_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -13177,10 +13754,10 @@ state 735 unqualified_var go to state 81 -state 736 +State 736 - 793 add_body: var_list_gname TO var_list_name . on_size_error_opt - 992 var_list_name: var_list_name . name rounded_opt sep_opt + 793 add_body: var_list_gname TO var_list_name • on_size_error_opt + 992 var_list_name: var_list_name • name rounded_opt sep_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -13200,17 +13777,17 @@ state 736 unqualified_var go to state 81 -state 737 +State 737 - 797 add_to_opt: TO gname . + 797 add_to_opt: TO gname • $default reduce using rule 797 (add_to_opt) -state 738 +State 738 - 991 var_list_name: name . rounded_opt sep_opt - 1245 gname: name . + 991 var_list_name: name • rounded_opt sep_opt + 1245 gname: name • ROUNDED shift, and go to state 568 @@ -13220,9 +13797,9 @@ state 738 rounded_opt go to state 569 -state 739 +State 739 - 794 add_body: var_list_gname add_to_opt GIVING . var_list_name on_size_error_opt + 794 add_body: var_list_gname add_to_opt GIVING • var_list_name on_size_error_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -13235,16 +13812,16 @@ state 739 unqualified_var go to state 81 -state 740 +State 740 - 994 var_list_gname: var_list_gname gname sep_opt . + 994 var_list_gname: var_list_gname gname sep_opt • $default reduce using rule 994 (var_list_gname) -state 741 +State 741 - 967 call_statement: CALL $@105 call_convention_opt gname . using_options returning_options @106 @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt + 967 call_statement: CALL $@105 call_convention_opt gname • using_options returning_options @106 @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt USING shift, and go to state 744 @@ -13253,83 +13830,83 @@ state 741 using_options go to state 989 -state 742 +State 742 - 975 end_call_loadlib_opt: END_CALL_LOADLIB . + 975 end_call_loadlib_opt: END_CALL_LOADLIB • $default reduce using rule 975 (end_call_loadlib_opt) -state 743 +State 743 - 973 call_loadlib_statement: CALL_LOADLIB gname $@110 end_call_loadlib_opt . + 973 call_loadlib_statement: CALL_LOADLIB gname $@110 end_call_loadlib_opt • $default reduce using rule 973 (call_loadlib_statement) -state 744 +State 744 - 1125 using_options: USING . @127 dummy @128 parm_list + 1125 using_options: USING • @127 dummy @128 parm_list $default reduce using rule 1123 (@127) @127 go to state 990 -state 745 +State 745 - 981 chain_statement: CHAIN $@111 gname using_options . @112 @113 on_exception_or_overflow $@114 end_chain_opt + 981 chain_statement: CHAIN $@111 gname using_options • @112 @113 on_exception_or_overflow $@114 end_chain_opt $default reduce using rule 978 (@112) @112 go to state 991 -state 746 +State 746 - 882 close_files: close_files sep_opt close_file . + 882 close_files: close_files sep_opt close_file • $default reduce using rule 882 (close_files) -state 747 +State 747 - 889 close_options: REEL for_opt . REMOVAL + 889 close_options: REEL for_opt • REMOVAL REMOVAL shift, and go to state 992 -state 748 +State 748 - 890 close_options: UNIT for_opt . REMOVAL + 890 close_options: UNIT for_opt • REMOVAL REMOVAL shift, and go to state 993 -state 749 +State 749 - 886 close_options: with_opt NO . REWIND + 886 close_options: with_opt NO • REWIND REWIND shift, and go to state 994 -state 750 +State 750 - 892 with_lock_opt: with_opt IGNORE . LOCK + 892 with_lock_opt: with_opt IGNORE • LOCK LOCK shift, and go to state 995 -state 751 +State 751 - 891 with_lock_opt: with_opt LOCK . + 891 with_lock_opt: with_opt LOCK • $default reduce using rule 891 (with_lock_opt) -state 752 +State 752 - 1119 expr: '(' . expr ')' + 1119 expr: '(' • expr ')' VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -13361,14 +13938,14 @@ state 752 unqualified_var go to state 81 -state 753 +State 753 - 788 compute_body: var_list_name CONDITIONAL expr . on_size_error_opt - 1114 expr: expr . '*' expr - 1115 | expr . '/' expr - 1116 | expr . '+' expr - 1117 | expr . '-' expr - 1118 | expr . POW_OP expr + 788 compute_body: var_list_name CONDITIONAL expr • on_size_error_opt + 1114 expr: expr • '*' expr + 1115 | expr • '/' expr + 1116 | expr • '+' expr + 1117 | expr • '-' expr + 1118 | expr • POW_OP expr '+' shift, and go to state 593 '-' shift, and go to state 594 @@ -13386,9 +13963,9 @@ state 753 on_opt go to state 987 -state 754 +State 754 - 992 var_list_name: var_list_name name rounded_opt . sep_opt + 992 var_list_name: var_list_name name rounded_opt • sep_opt LISTSEP shift, and go to state 98 @@ -13397,19 +13974,19 @@ state 754 sep_opt go to state 998 -state 755 +State 755 - 991 var_list_name: name rounded_opt sep_opt . + 991 var_list_name: name rounded_opt sep_opt • $default reduce using rule 991 (var_list_name) -state 756 +State 756 - 947 delete_statement: DELETE name record_opt $@103 . invalid_key_opt end_delete_opt + 947 delete_statement: DELETE name record_opt $@103 • invalid_key_opt end_delete_opt - NOT shift, and go to state 665 - INVALID shift, and go to state 666 + INVALID shift, and go to state 665 + NOT shift, and go to state 666 NOTEXCEP shift, and go to state 667 NOT [reduce using rule 1064 (invalid_key_opt)] @@ -13422,35 +13999,35 @@ state 756 not_excep go to state 671 -state 757 +State 757 - 846 display_upon: UPON CONSOLE . + 846 display_upon: UPON CONSOLE • $default reduce using rule 846 (display_upon) -state 758 +State 758 - 848 display_upon: UPON STD_ERROR . + 848 display_upon: UPON STD_ERROR • $default reduce using rule 848 (display_upon) -state 759 +State 759 - 847 display_upon: UPON STD_OUTPUT . + 847 display_upon: UPON STD_OUTPUT • $default reduce using rule 847 (display_upon) -state 760 +State 760 - 842 display_line: DISPLAY display_varlist display_upon display_line_options . end_display_opt - 850 display_line_options: display_line_options . with_opt NO ADVANCING - 851 | display_line_options . with_opt ERASE - 852 | display_line_options . with_opt ERASE EOS - 853 | display_line_options . with_opt ERASE EOL - 854 | display_line_options . with_opt ERASE SCREEN + 842 display_line: DISPLAY display_varlist display_upon display_line_options • end_display_opt + 850 display_line_options: display_line_options • with_opt NO ADVANCING + 851 | display_line_options • with_opt ERASE + 852 | display_line_options • with_opt ERASE EOS + 853 | display_line_options • with_opt ERASE EOL + 854 | display_line_options • with_opt ERASE SCREEN END_DISPLAY shift, and go to state 761 WITH shift, and go to state 358 @@ -13463,39 +14040,39 @@ state 760 with_opt go to state 1001 -state 761 +State 761 - 856 end_display_opt: END_DISPLAY . + 856 end_display_opt: END_DISPLAY • $default reduce using rule 856 (end_display_opt) -state 762 +State 762 - 843 display_screen: DISPLAY display_varlist accept_display_options end_display_opt . + 843 display_screen: DISPLAY display_varlist accept_display_options end_display_opt • $default reduce using rule 843 (display_screen) -state 763 +State 763 - 845 display_varlist: display_varlist sep_opt gname . + 845 display_varlist: display_varlist sep_opt gname • $default reduce using rule 845 (display_varlist) -state 764 +State 764 - 815 divide_body: gname BY gname . GIVING var_list_name on_size_error_opt - 816 | gname BY gname . GIVING name rounded_opt REMAINDER name on_size_error_opt + 815 divide_body: gname BY gname • GIVING var_list_name on_size_error_opt + 816 | gname BY gname • GIVING name rounded_opt REMAINDER name on_size_error_opt GIVING shift, and go to state 1002 -state 765 +State 765 - 819 divide_body: gname INTO var_list_name . on_size_error_opt - 992 var_list_name: var_list_name . name rounded_opt sep_opt + 819 divide_body: gname INTO var_list_name • on_size_error_opt + 992 var_list_name: var_list_name • name rounded_opt sep_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -13515,62 +14092,62 @@ state 765 unqualified_var go to state 81 -state 766 +State 766 - 817 divide_body: gname INTO gname . GIVING name rounded_opt REMAINDER name on_size_error_opt - 818 | gname INTO gname . GIVING var_list_name on_size_error_opt + 817 divide_body: gname INTO gname • GIVING name rounded_opt REMAINDER name on_size_error_opt + 818 | gname INTO gname • GIVING var_list_name on_size_error_opt GIVING shift, and go to state 1004 -state 767 +State 767 - 658 selection_subject_set: selection_subject_set ALSO . @65 selection_subject + 658 selection_subject_set: selection_subject_set ALSO • @65 selection_subject $default reduce using rule 657 (@65) @65 go to state 1005 -state 768 +State 768 - 652 evaluate_statement: EVALUATE @62 selection_subject_set $@63 . when_case_list end_evaluate_or_eos + 652 evaluate_statement: EVALUATE @62 selection_subject_set $@63 • when_case_list end_evaluate_or_eos WHEN shift, and go to state 1006 when_case_list go to state 1007 -state 769 +State 769 - 662 selection_subject: FALSE_TOK . + 662 selection_subject: FALSE_TOK • $default reduce using rule 662 (selection_subject) -state 770 +State 770 - 661 selection_subject: TRUE_TOK . + 661 selection_subject: TRUE_TOK • $default reduce using rule 661 (selection_subject) -state 771 +State 771 - 656 selection_subject_set: @64 selection_subject . + 656 selection_subject_set: @64 selection_subject • $default reduce using rule 656 (selection_subject_set) -state 772 +State 772 - 659 selection_subject: expr . - 1114 expr: expr . '*' expr - 1115 | expr . '/' expr - 1116 | expr . '+' expr - 1117 | expr . '-' expr - 1118 | expr . POW_OP expr - 1181 condition: expr . extended_cond_op $@142 expr_opt + 659 selection_subject: expr • + 1114 expr: expr • '*' expr + 1115 | expr • '/' expr + 1116 | expr • '+' expr + 1117 | expr • '-' expr + 1118 | expr • POW_OP expr + 1181 condition: expr • extended_cond_op $@142 expr_opt CONDITIONAL shift, and go to state 591 IS shift, and go to state 592 @@ -13579,11 +14156,11 @@ state 772 '*' shift, and go to state 595 '/' shift, and go to state 596 POW_OP shift, and go to state 597 - NOT shift, and go to state 598 - ALPHABETIC shift, and go to state 599 - ALPHABETIC_LOWER shift, and go to state 600 - ALPHABETIC_UPPER shift, and go to state 601 - NEGATIVE shift, and go to state 602 + ALPHABETIC shift, and go to state 598 + ALPHABETIC_LOWER shift, and go to state 599 + ALPHABETIC_UPPER shift, and go to state 600 + NEGATIVE shift, and go to state 601 + NOT shift, and go to state 602 NUMERIC shift, and go to state 603 POSITIVE shift, and go to state 604 ZERO shift, and go to state 605 @@ -13597,11 +14174,11 @@ state 772 conditional go to state 610 -state 773 +State 773 - 660 selection_subject: condition . - 1184 condition: condition . AND @143 implied_op_condition - 1186 | condition . OR @144 implied_op_condition + 660 selection_subject: condition • + 1184 condition: condition • AND @143 implied_op_condition + 1186 | condition • OR @144 implied_op_condition OR shift, and go to state 611 AND shift, and go to state 612 @@ -13609,9 +14186,9 @@ state 773 $default reduce using rule 660 (selection_subject) -state 774 +State 774 - 957 goto_statement: GO to_opt goto_label_list DEPENDING . on_opt variable + 957 goto_statement: GO to_opt goto_label_list DEPENDING • on_opt variable ON shift, and go to state 620 @@ -13620,9 +14197,9 @@ state 774 on_opt go to state 1008 -state 775 +State 775 - 961 goto_label_list: goto_label_list LISTSEP . label + 961 goto_label_list: goto_label_list LISTSEP • label LABELSTR shift, and go to state 582 NLITERAL shift, and go to state 583 @@ -13630,16 +14207,16 @@ state 775 label go to state 1009 -state 776 +State 776 - 960 goto_label_list: goto_label_list label . + 960 goto_label_list: goto_label_list label • $default reduce using rule 960 (goto_label_list) -state 777 +State 777 - 1283 cond_name: VARCOND '(' $@146 . subscripts ')' + 1283 cond_name: VARCOND '(' $@146 • subscripts ')' VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -13671,50 +14248,50 @@ state 777 subscript go to state 151 -state 778 +State 778 - 1119 expr: '(' expr ')' . + 1119 expr: '(' expr ')' • $default reduce using rule 1119 (expr) -state 779 +State 779 - 1187 condition: '(' condition ')' . + 1187 condition: '(' condition ')' • $default reduce using rule 1187 (condition) -state 780 +State 780 - 1221 than_to_opt: TO . + 1221 than_to_opt: TO • $default reduce using rule 1221 (than_to_opt) -state 781 +State 781 - 1222 than_to_opt: THAN . + 1222 than_to_opt: THAN • $default reduce using rule 1222 (than_to_opt) -state 782 +State 782 - 1211 conditional: CONDITIONAL than_to_opt . + 1211 conditional: CONDITIONAL than_to_opt • $default reduce using rule 1211 (conditional) -state 783 +State 783 - 1200 extended_cond_op: IS NOT . ext_cond + 1200 extended_cond_op: IS NOT • ext_cond CONDITIONAL shift, and go to state 591 - ALPHABETIC shift, and go to state 599 - ALPHABETIC_LOWER shift, and go to state 600 - ALPHABETIC_UPPER shift, and go to state 601 - NEGATIVE shift, and go to state 602 + ALPHABETIC shift, and go to state 598 + ALPHABETIC_LOWER shift, and go to state 599 + ALPHABETIC_UPPER shift, and go to state 600 + NEGATIVE shift, and go to state 601 NUMERIC shift, and go to state 603 POSITIVE shift, and go to state 604 ZERO shift, and go to state 605 @@ -13725,10 +14302,10 @@ state 783 conditional go to state 610 -state 784 +State 784 - 1199 extended_cond_op: IS ext_cond . - 1201 | IS ext_cond . OR ext_cond + 1199 extended_cond_op: IS ext_cond • + 1201 | IS ext_cond • OR ext_cond OR shift, and go to state 1012 @@ -13736,14 +14313,14 @@ state 784 $default reduce using rule 1199 (extended_cond_op) -state 785 +State 785 - 1114 expr: expr . '*' expr - 1115 | expr . '/' expr - 1116 | expr . '+' expr - 1116 | expr '+' expr . - 1117 | expr . '-' expr - 1118 | expr . POW_OP expr + 1114 expr: expr • '*' expr + 1115 | expr • '/' expr + 1116 | expr • '+' expr + 1116 | expr '+' expr • + 1117 | expr • '-' expr + 1118 | expr • POW_OP expr '*' shift, and go to state 595 '/' shift, and go to state 596 @@ -13752,14 +14329,14 @@ state 785 $default reduce using rule 1116 (expr) -state 786 +State 786 - 1114 expr: expr . '*' expr - 1115 | expr . '/' expr - 1116 | expr . '+' expr - 1117 | expr . '-' expr - 1117 | expr '-' expr . - 1118 | expr . POW_OP expr + 1114 expr: expr • '*' expr + 1115 | expr • '/' expr + 1116 | expr • '+' expr + 1117 | expr • '-' expr + 1117 | expr '-' expr • + 1118 | expr • POW_OP expr '*' shift, and go to state 595 '/' shift, and go to state 596 @@ -13768,55 +14345,55 @@ state 786 $default reduce using rule 1117 (expr) -state 787 +State 787 - 1114 expr: expr . '*' expr - 1114 | expr '*' expr . - 1115 | expr . '/' expr - 1116 | expr . '+' expr - 1117 | expr . '-' expr - 1118 | expr . POW_OP expr + 1114 expr: expr • '*' expr + 1114 | expr '*' expr • + 1115 | expr • '/' expr + 1116 | expr • '+' expr + 1117 | expr • '-' expr + 1118 | expr • POW_OP expr POW_OP shift, and go to state 597 $default reduce using rule 1114 (expr) -state 788 +State 788 - 1114 expr: expr . '*' expr - 1115 | expr . '/' expr - 1115 | expr '/' expr . - 1116 | expr . '+' expr - 1117 | expr . '-' expr - 1118 | expr . POW_OP expr + 1114 expr: expr • '*' expr + 1115 | expr • '/' expr + 1115 | expr '/' expr • + 1116 | expr • '+' expr + 1117 | expr • '-' expr + 1118 | expr • POW_OP expr POW_OP shift, and go to state 597 $default reduce using rule 1115 (expr) -state 789 +State 789 - 1114 expr: expr . '*' expr - 1115 | expr . '/' expr - 1116 | expr . '+' expr - 1117 | expr . '-' expr - 1118 | expr . POW_OP expr - 1118 | expr POW_OP expr . + 1114 expr: expr • '*' expr + 1115 | expr • '/' expr + 1116 | expr • '+' expr + 1117 | expr • '-' expr + 1118 | expr • POW_OP expr + 1118 | expr POW_OP expr • $default reduce using rule 1118 (expr) -state 790 +State 790 - 1203 extended_cond_op: NOT is_opt . ext_cond + 1203 extended_cond_op: NOT is_opt • ext_cond CONDITIONAL shift, and go to state 591 - ALPHABETIC shift, and go to state 599 - ALPHABETIC_LOWER shift, and go to state 600 - ALPHABETIC_UPPER shift, and go to state 601 - NEGATIVE shift, and go to state 602 + ALPHABETIC shift, and go to state 598 + ALPHABETIC_LOWER shift, and go to state 599 + ALPHABETIC_UPPER shift, and go to state 600 + NEGATIVE shift, and go to state 601 NUMERIC shift, and go to state 603 POSITIVE shift, and go to state 604 ZERO shift, and go to state 605 @@ -13827,9 +14404,9 @@ state 790 conditional go to state 610 -state 791 +State 791 - 1181 condition: expr extended_cond_op $@142 . expr_opt + 1181 condition: expr extended_cond_op $@142 • expr_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -13864,15 +14441,15 @@ state 791 unqualified_var go to state 81 -state 792 +State 792 - 1204 extended_cond_op: ext_cond OR . ext_cond + 1204 extended_cond_op: ext_cond OR • ext_cond CONDITIONAL shift, and go to state 591 - ALPHABETIC shift, and go to state 599 - ALPHABETIC_LOWER shift, and go to state 600 - ALPHABETIC_UPPER shift, and go to state 601 - NEGATIVE shift, and go to state 602 + ALPHABETIC shift, and go to state 598 + ALPHABETIC_LOWER shift, and go to state 599 + ALPHABETIC_UPPER shift, and go to state 600 + NEGATIVE shift, and go to state 601 NUMERIC shift, and go to state 603 POSITIVE shift, and go to state 604 ZERO shift, and go to state 605 @@ -13883,9 +14460,9 @@ state 792 conditional go to state 610 -state 793 +State 793 - 1186 condition: condition OR @144 . implied_op_condition + 1186 condition: condition OR @144 • implied_op_condition VARIABLE shift, and go to state 56 VARCOND shift, and go to state 422 @@ -13896,11 +14473,11 @@ state 793 CLITERAL shift, and go to state 60 '+' shift, and go to state 61 '-' shift, and go to state 62 - NOT shift, and go to state 1017 ALL shift, and go to state 63 FUNCTION shift, and go to state 64 HIGHVALUES shift, and go to state 65 LOWVALUES shift, and go to state 66 + NOT shift, and go to state 1017 QUOTES shift, and go to state 67 SPACES shift, and go to state 68 ZERO shift, and go to state 69 @@ -13925,9 +14502,9 @@ state 793 unqualified_var go to state 81 -state 794 +State 794 - 1184 condition: condition AND @143 . implied_op_condition + 1184 condition: condition AND @143 • implied_op_condition VARIABLE shift, and go to state 56 VARCOND shift, and go to state 422 @@ -13938,11 +14515,11 @@ state 794 CLITERAL shift, and go to state 60 '+' shift, and go to state 61 '-' shift, and go to state 62 - NOT shift, and go to state 1017 ALL shift, and go to state 63 FUNCTION shift, and go to state 64 HIGHVALUES shift, and go to state 65 LOWVALUES shift, and go to state 66 + NOT shift, and go to state 1017 QUOTES shift, and go to state 67 SPACES shift, and go to state 68 ZERO shift, and go to state 69 @@ -13967,16 +14544,16 @@ state 794 unqualified_var go to state 81 -state 795 +State 795 - 694 end_then_opt: THEN . + 694 end_then_opt: THEN • $default reduce using rule 694 (end_then_opt) -state 796 +State 796 - 684 if_part: IF condition @73 end_then_opt . conditional_statement + 684 if_part: IF condition @73 end_then_opt • conditional_statement NEXT reduce using rule 687 ($@75) $default reduce using rule 685 ($@74) @@ -13986,45 +14563,45 @@ state 796 $@75 go to state 863 -state 797 +State 797 - 781 initialize_type_list: ALPHABETIC . + 781 initialize_type_list: ALPHABETIC • $default reduce using rule 781 (initialize_type_list) -state 798 +State 798 - 782 initialize_type_list: ALPHANUMERIC . + 782 initialize_type_list: ALPHANUMERIC • $default reduce using rule 782 (initialize_type_list) -state 799 +State 799 - 784 initialize_type_list: ALPHANUMERIC_EDITED . + 784 initialize_type_list: ALPHANUMERIC_EDITED • $default reduce using rule 784 (initialize_type_list) -state 800 +State 800 - 783 initialize_type_list: NUMERIC . + 783 initialize_type_list: NUMERIC • $default reduce using rule 783 (initialize_type_list) -state 801 +State 801 - 785 initialize_type_list: NUMERIC_EDITED . + 785 initialize_type_list: NUMERIC_EDITED • $default reduce using rule 785 (initialize_type_list) -state 802 +State 802 - 777 initialize_replacing_opt: REPLACING initialize_replacing_lists . - 779 initialize_replacing_lists: initialize_replacing_lists . initialize_replacing_list + 777 initialize_replacing_opt: REPLACING initialize_replacing_lists • + 779 initialize_replacing_lists: initialize_replacing_lists • initialize_replacing_list ALPHABETIC shift, and go to state 797 ALPHANUMERIC shift, and go to state 798 @@ -14038,16 +14615,16 @@ state 802 initialize_type_list go to state 804 -state 803 +State 803 - 778 initialize_replacing_lists: initialize_replacing_list . + 778 initialize_replacing_lists: initialize_replacing_list • $default reduce using rule 778 (initialize_replacing_lists) -state 804 +State 804 - 780 initialize_replacing_list: initialize_type_list . data_opt BY gname + 780 initialize_replacing_list: initialize_type_list • data_opt BY gname DATA shift, and go to state 1026 @@ -14056,31 +14633,31 @@ state 804 data_opt go to state 1027 -state 805 +State 805 - 1088 converting_clause: CONVERTING noallname . TO noallname inspect_before_after + 1088 converting_clause: CONVERTING noallname • TO noallname inspect_before_after TO shift, and go to state 1028 -state 806 +State 806 - 1253 noallname: without_all_literal . + 1253 noallname: without_all_literal • $default reduce using rule 1253 (noallname) -state 807 +State 807 - 1252 noallname: name . + 1252 noallname: name • $default reduce using rule 1252 (noallname) -state 808 +State 808 - 1089 tallying_clause: TALLYING tallying_list . - 1091 tallying_list: tallying_list . name FOR tallying_for_list + 1089 tallying_clause: TALLYING tallying_list • + 1091 tallying_list: tallying_list • name FOR tallying_for_list VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -14094,9 +14671,9 @@ state 808 unqualified_var go to state 81 -state 809 +State 809 - 1086 inspect_statement: INSPECT name tallying_clause $@126 . replacing_clause + 1086 inspect_statement: INSPECT name tallying_clause $@126 • replacing_clause REPLACING shift, and go to state 1030 @@ -14105,9 +14682,9 @@ state 809 replacing_clause go to state 1031 -state 810 +State 810 - 740 merge_statement: MERGE name sort_keys $@86 . sort_collating_opt $@87 merge_using $@88 sort_output + 740 merge_statement: MERGE name sort_keys $@86 • sort_collating_opt $@87 merge_using $@88 sort_output COLLATING shift, and go to state 496 @@ -14119,16 +14696,16 @@ state 810 sort_collating_opt go to state 1033 -state 811 +State 811 - 751 sort_keys: sort_keys sort_key . + 751 sort_keys: sort_keys sort_key • $default reduce using rule 751 (sort_keys) -state 812 +State 812 - 754 sort_key: on_opt DIRECTION . key_opt sort_keys_names + 754 sort_key: on_opt DIRECTION • key_opt sort_keys_names KEY shift, and go to state 846 @@ -14137,9 +14714,9 @@ state 812 key_opt go to state 1034 -state 813 +State 813 - 771 move_statement: MOVE CORRESPONDING name_var TO . name_var + 771 move_statement: MOVE CORRESPONDING name_var TO • name_var VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -14170,17 +14747,17 @@ state 813 unqualified_var go to state 81 -state 814 +State 814 - 772 move_statement: MOVE LENGTH OF gname . TO name_var + 772 move_statement: MOVE LENGTH OF gname • TO name_var TO shift, and go to state 1036 -state 815 +State 815 - 770 move_statement: MOVE gname TO name_var_list . - 1242 name_var_list: name_var_list . sep_opt name_var + 770 move_statement: MOVE gname TO name_var_list • + 1242 name_var_list: name_var_list • sep_opt name_var LISTSEP shift, and go to state 98 @@ -14203,17 +14780,17 @@ state 815 sep_opt go to state 1037 -state 816 +State 816 - 1241 name_var_list: name_var . + 1241 name_var_list: name_var • $default reduce using rule 1241 (name_var_list) -state 817 +State 817 - 810 multiply_body: gname BY var_list_name . on_size_error_opt - 992 var_list_name: var_list_name . name rounded_opt sep_opt + 810 multiply_body: gname BY var_list_name • on_size_error_opt + 992 var_list_name: var_list_name • name rounded_opt sep_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -14233,17 +14810,17 @@ state 817 unqualified_var go to state 81 -state 818 +State 818 - 809 multiply_body: gname BY gname . GIVING var_list_name on_size_error_opt + 809 multiply_body: gname BY gname • GIVING var_list_name on_size_error_opt GIVING shift, and go to state 1039 -state 819 +State 819 - 871 open_options: open_options open_mode open_varlist . - 878 open_varlist: open_varlist . sep_opt name + 871 open_options: open_options open_mode open_varlist • + 878 open_varlist: open_varlist • sep_opt name LISTSEP shift, and go to state 98 @@ -14255,9 +14832,9 @@ state 819 sep_opt go to state 820 -state 820 +State 820 - 878 open_varlist: open_varlist sep_opt . name + 878 open_varlist: open_varlist sep_opt • name VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -14269,30 +14846,30 @@ state 820 unqualified_var go to state 81 -state 821 +State 821 - 1302 label: LABELSTR in_of LABELSTR . + 1302 label: LABELSTR in_of LABELSTR • $default reduce using rule 1302 (label) -state 822 +State 822 - 1306 label: NLITERAL in_of LABELSTR . + 1306 label: NLITERAL in_of LABELSTR • $default reduce using rule 1306 (label) -state 823 +State 823 - 1305 label: NLITERAL in_of NLITERAL . + 1305 label: NLITERAL in_of NLITERAL • $default reduce using rule 1305 (label) -state 824 +State 824 - 1151 perform_options: with_test_opt UNTIL @131 . condition @132 perform_statements $@133 END_PERFORM + 1151 perform_options: with_test_opt UNTIL @131 • condition @132 perform_statements $@133 END_PERFORM VARIABLE shift, and go to state 56 VARCOND shift, and go to state 422 @@ -14302,11 +14879,11 @@ state 824 CLITERAL shift, and go to state 60 '+' shift, and go to state 61 '-' shift, and go to state 62 - NOT shift, and go to state 423 ALL shift, and go to state 63 FUNCTION shift, and go to state 64 HIGHVALUES shift, and go to state 65 LOWVALUES shift, and go to state 66 + NOT shift, and go to state 423 QUOTES shift, and go to state 67 SPACES shift, and go to state 68 ZERO shift, and go to state 69 @@ -14328,23 +14905,23 @@ state 824 unqualified_var go to state 81 -state 825 +State 825 - 1155 perform_options: with_test_opt VARYING name . FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM + 1155 perform_options: with_test_opt VARYING name • FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM FROM shift, and go to state 1042 -state 826 +State 826 - 1166 with_test_opt: with_opt TEST before_after . + 1166 with_test_opt: with_opt TEST before_after • $default reduce using rule 1166 (with_test_opt) -state 827 +State 827 - 1147 perform_options: gname TIMES @129 . perform_statements $@130 END_PERFORM + 1147 perform_options: gname TIMES @129 • perform_statements $@130 END_PERFORM $default reduce using rule 1176 ($@141) @@ -14352,32 +14929,32 @@ state 827 $@141 go to state 450 -state 828 +State 828 - 1164 perform_thru_opt: THRU label . + 1164 perform_thru_opt: THRU label • $default reduce using rule 1164 (perform_thru_opt) -state 829 +State 829 - 1158 perform_options: label perform_thru_opt with_test_opt . UNTIL @137 condition - 1162 | label perform_thru_opt with_test_opt . VARYING name FROM gname by_opt gname UNTIL @138 condition @139 perform_after_opt + 1158 perform_options: label perform_thru_opt with_test_opt • UNTIL @137 condition + 1162 | label perform_thru_opt with_test_opt • VARYING name FROM gname by_opt gname UNTIL @138 condition @139 perform_after_opt UNTIL shift, and go to state 1044 VARYING shift, and go to state 1045 -state 830 +State 830 - 1159 perform_options: label perform_thru_opt gname . TIMES + 1159 perform_options: label perform_thru_opt gname • TIMES TIMES shift, and go to state 1046 -state 831 +State 831 - 907 read_into_opt: INTO . name + 907 read_into_opt: INTO • name VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -14389,14 +14966,14 @@ state 831 unqualified_var go to state 81 -state 832 +State 832 - 896 return_body: name record_opt read_into_opt . - 897 | name record_opt read_into_opt . read_at_end_opt + 896 return_body: name record_opt read_into_opt • + 897 | name record_opt read_into_opt • read_at_end_opt - NOT shift, and go to state 1048 - AT shift, and go to state 1049 - END shift, and go to state 1050 + AT shift, and go to state 1048 + END shift, and go to state 1049 + NOT shift, and go to state 1050 NOT [reduce using rule 896 (return_body)] $default reduce using rule 896 (return_body) @@ -14405,12 +14982,12 @@ state 832 on_end go to state 1052 -state 833 +State 833 - 943 rewrite_statement: REWRITE name write_from_opt $@102 . invalid_key_opt end_rewrite_opt + 943 rewrite_statement: REWRITE name write_from_opt $@102 • invalid_key_opt end_rewrite_opt - NOT shift, and go to state 665 - INVALID shift, and go to state 666 + INVALID shift, and go to state 665 + NOT shift, and go to state 666 NOTEXCEP shift, and go to state 667 NOT [reduce using rule 1064 (invalid_key_opt)] @@ -14423,16 +15000,16 @@ state 833 not_excep go to state 671 -state 834 +State 834 - 649 search_statement: SEARCH ALL search_all end_search_opt . + 649 search_statement: SEARCH ALL search_all end_search_opt • $default reduce using rule 649 (search_statement) -state 835 +State 835 - 701 search_all: variable_indexed @79 . search_at_end $@80 search_all_when_list + 701 search_all: variable_indexed @79 • search_at_end $@80 search_all_when_list AT shift, and go to state 1054 @@ -14443,9 +15020,9 @@ state 835 at_opt go to state 1056 -state 836 +State 836 - 702 search_varying_opt: VARYING . variable + 702 search_varying_opt: VARYING • variable VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -14455,18 +15032,18 @@ state 836 unqualified_var go to state 81 -state 837 +State 837 - 698 search: variable_indexed @76 search_varying_opt . @77 search_at_end @78 search_when_list + 698 search: variable_indexed @76 search_varying_opt • @77 search_at_end @78 search_when_list $default reduce using rule 696 (@77) @77 go to state 1058 -state 838 +State 838 - 1011 set_list: set_target TO address_of_opt . set_variable_or_nlit + 1011 set_list: set_target TO address_of_opt • set_variable_or_nlit VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -14490,9 +15067,9 @@ state 838 unqualified_var go to state 81 -state 839 +State 839 - 1013 set_list: set_target DOWN BY . var_or_nliteral + 1013 set_list: set_target DOWN BY • var_or_nliteral VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -14508,9 +15085,9 @@ state 839 unqualified_var go to state 81 -state 840 +State 840 - 1012 set_list: set_target UP BY . var_or_nliteral + 1012 set_list: set_target UP BY • var_or_nliteral VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -14526,9 +15103,9 @@ state 840 unqualified_var go to state 81 -state 841 +State 841 - 1014 set_list: address_of_opt variable TO . address_of_opt set_variable + 1014 set_list: address_of_opt variable TO • address_of_opt set_variable ADDRESS shift, and go to state 464 @@ -14537,9 +15114,9 @@ state 841 address_of_opt go to state 1072 -state 842 +State 842 - 749 sort_variable_indexed: SORT variable_indexed sort_keys_idx $@92 . sort_duplicates_opt sort_collating_opt + 749 sort_variable_indexed: SORT variable_indexed sort_keys_idx $@92 • sort_duplicates_opt sort_collating_opt WITH shift, and go to state 358 @@ -14550,16 +15127,16 @@ state 842 with_opt go to state 1074 -state 843 +State 843 - 753 sort_keys_idx: sort_keys_idx sort_key_idx . + 753 sort_keys_idx: sort_keys_idx sort_key_idx • $default reduce using rule 753 (sort_keys_idx) -state 844 +State 844 - 755 sort_key_idx: on_opt DIRECTION . key_opt sort_keys_names_idx + 755 sort_key_idx: on_opt DIRECTION • key_opt sort_keys_names_idx KEY shift, and go to state 846 @@ -14568,9 +15145,9 @@ state 844 key_opt go to state 1075 -state 845 +State 845 - 747 sort_file: SORT name sort_keys $@89 . sort_duplicates_opt sort_collating_opt $@90 sort_input $@91 sort_output + 747 sort_file: SORT name sort_keys $@89 • sort_duplicates_opt sort_collating_opt $@90 sort_input $@91 sort_output WITH shift, and go to state 358 @@ -14581,25 +15158,25 @@ state 845 with_opt go to state 1074 -state 846 +State 846 - 1217 key_opt: KEY . + 1217 key_opt: KEY • $default reduce using rule 1217 (key_opt) -state 847 +State 847 - 1066 invalid_key_sentence: INVALID key_opt . @124 statement_list + 1066 invalid_key_sentence: INVALID key_opt • @124 statement_list $default reduce using rule 1065 (@124) @124 go to state 1077 -state 848 +State 848 - 951 start_statement: START start_body invalid_key_opt $@104 . end_start_opt + 951 start_statement: START start_body invalid_key_opt $@104 • end_start_opt END_START shift, and go to state 1078 @@ -14609,16 +15186,16 @@ state 848 end_start_opt go to state 1079 -state 849 +State 849 - 1063 invalid_key_opt: invalid_key_sentence not_invalid_key_sentence . + 1063 invalid_key_opt: invalid_key_sentence not_invalid_key_sentence • $default reduce using rule 1063 (invalid_key_opt) -state 850 +State 850 - 1068 not_invalid_key_sentence: not_excep INVALID . key_opt @125 statement_list + 1068 not_invalid_key_sentence: not_excep INVALID • key_opt @125 statement_list KEY shift, and go to state 846 @@ -14627,9 +15204,9 @@ state 850 key_opt go to state 1080 -state 851 +State 851 - 953 start_body: name KEY is_opt . cond_op name + 953 start_body: name KEY is_opt • cond_op name CONDITIONAL shift, and go to state 591 NOT shift, and go to state 1081 @@ -14638,9 +15215,9 @@ state 851 conditional go to state 1022 -state 852 +State 852 - 1027 string_statement: STRINGCMD string_from_list INTO name . string_with_pointer $@117 on_overflow_opt end_stringcmd_opt + 1027 string_statement: STRINGCMD string_from_list INTO name • string_with_pointer $@117 on_overflow_opt end_stringcmd_opt WITH shift, and go to state 358 @@ -14651,23 +15228,23 @@ state 852 with_opt go to state 1084 -state 853 +State 853 - 1074 string_from_list: string_from_list sep_opt string_from . + 1074 string_from_list: string_from_list sep_opt string_from • $default reduce using rule 1074 (string_from_list) -state 854 +State 854 - 1232 by_opt: BY . + 1232 by_opt: BY • $default reduce using rule 1232 (by_opt) -state 855 +State 855 - 1077 string_from: gname DELIMITED by_opt . delimited_by + 1077 string_from: gname DELIMITED by_opt • delimited_by error shift, and go to state 1085 VARIABLE shift, and go to state 56 @@ -14700,9 +15277,9 @@ state 855 unqualified_var go to state 81 -state 856 +State 856 - 804 subtract_body: CORRESPONDING var_list_gname FROM . var_list_name rounded_opt on_size_error_opt + 804 subtract_body: CORRESPONDING var_list_gname FROM • var_list_name rounded_opt on_size_error_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -14715,10 +15292,10 @@ state 856 unqualified_var go to state 81 -state 857 +State 857 - 802 subtract_body: var_list_gname FROM var_list_name . on_size_error_opt - 992 var_list_name: var_list_name . name rounded_opt sep_opt + 802 subtract_body: var_list_gname FROM var_list_name • on_size_error_opt + 992 var_list_name: var_list_name • name rounded_opt sep_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -14738,16 +15315,16 @@ state 857 unqualified_var go to state 81 -state 858 +State 858 - 803 subtract_body: var_list_gname FROM gname . GIVING var_list_name on_size_error_opt + 803 subtract_body: var_list_gname FROM gname • GIVING var_list_name on_size_error_opt GIVING shift, and go to state 1091 -state 859 +State 859 - 1030 unstring_delimited: DELIMITED by_opt . unstring_delimited_vars + 1030 unstring_delimited: DELIMITED by_opt • unstring_delimited_vars ALL shift, and go to state 1092 @@ -14758,9 +15335,9 @@ state 859 all_opt go to state 1094 -state 860 +State 860 - 1029 unstring_statement: UNSTRING name unstring_delimited INTO . unstring_destinations string_with_pointer unstring_tallying $@118 on_overflow_opt end_unstring_opt + 1029 unstring_statement: UNSTRING name unstring_delimited INTO • unstring_destinations string_with_pointer unstring_tallying $@118 on_overflow_opt end_unstring_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -14774,18 +15351,18 @@ state 860 unqualified_var go to state 81 -state 861 +State 861 - 647 if_statement: if_part ELSE @60 conditional_statement . $@61 end_if_opt + 647 if_statement: if_part ELSE @60 conditional_statement • $@61 end_if_opt $default reduce using rule 646 ($@61) $@61 go to state 1098 -state 862 +State 862 - 686 conditional_statement: $@74 . statement_list + 686 conditional_statement: $@74 • statement_list READ shift, and go to state 254 WRITE shift, and go to state 255 @@ -14888,37 +15465,37 @@ state 862 inspect_statement go to state 350 -state 863 +State 863 - 688 conditional_statement: $@75 . NEXT SENTENCE + 688 conditional_statement: $@75 • NEXT SENTENCE NEXT shift, and go to state 1100 -state 864 +State 864 - 43 collating_sequence: collating_opt SEQUENCE is_opt . STRING + 43 collating_sequence: collating_opt SEQUENCE is_opt • STRING STRING shift, and go to state 1101 -state 865 +State 865 - 89 alphabet_literal_item: without_all_literal THRU without_all_literal . + 89 alphabet_literal_item: without_all_literal THRU without_all_literal • $default reduce using rule 89 (alphabet_literal_item) -state 866 +State 866 - 91 alphabet_also_list: ALSO without_all_literal . + 91 alphabet_also_list: ALSO without_all_literal • $default reduce using rule 91 (alphabet_also_list) -state 867 +State 867 - 92 alphabet_also_list: alphabet_also_list ALSO . without_all_literal + 92 alphabet_also_list: alphabet_also_list ALSO • without_all_literal NLITERAL shift, and go to state 59 CLITERAL shift, and go to state 60 @@ -14936,16 +15513,16 @@ state 867 signed_nliteral go to state 77 -state 868 +State 868 - 67 special_name_class_item: CLITERAL THRU CLITERAL . + 67 special_name_class_item: CLITERAL THRU CLITERAL • $default reduce using rule 67 (special_name_class_item) -state 869 +State 869 - 75 switch_on_opt: ON . status_opt is_opt STRING + 75 switch_on_opt: ON • status_opt is_opt STRING STATUS shift, and go to state 1103 @@ -14954,9 +15531,9 @@ state 869 status_opt go to state 1104 -state 870 +State 870 - 74 switches_details: STRING is_opt STRING $@9 switch_on_opt . switch_off_opt + 74 switches_details: STRING is_opt STRING $@9 switch_on_opt • switch_off_opt OFF shift, and go to state 1105 @@ -14965,16 +15542,16 @@ state 870 switch_off_opt go to state 1106 -state 871 +State 871 - 114 select_clause: error . + 114 select_clause: error • $default reduce using rule 114 (select_clause) -state 872 +State 872 - 108 select_clause: ACCESS . mode_opt is_opt access_options + 108 select_clause: ACCESS • mode_opt is_opt access_options MODE shift, and go to state 1107 @@ -14983,16 +15560,16 @@ state 872 mode_opt go to state 1108 -state 873 +State 873 - 112 select_clause: ALTERNATE . RECORD key_opt is_opt STRING with_duplicates + 112 select_clause: ALTERNATE • RECORD key_opt is_opt STRING with_duplicates RECORD shift, and go to state 1109 -state 874 +State 874 - 107 select_clause: ASSIGN . to_opt assign_clause + 107 select_clause: ASSIGN • to_opt assign_clause TO shift, and go to state 420 @@ -15001,23 +15578,23 @@ state 874 to_opt go to state 1110 -state 875 +State 875 - 115 file_opt: FILE_TOK . + 115 file_opt: FILE_TOK • $default reduce using rule 115 (file_opt) -state 876 +State 876 - 117 organization_opt: ORGANIZATION . + 117 organization_opt: ORGANIZATION • $default reduce using rule 117 (organization_opt) -state 877 +State 877 - 110 select_clause: RECORD . key_opt is_opt STRING + 110 select_clause: RECORD • key_opt is_opt STRING KEY shift, and go to state 846 @@ -15026,9 +15603,9 @@ state 877 key_opt go to state 1111 -state 878 +State 878 - 111 select_clause: RELATIVE . key_opt is_opt STRING + 111 select_clause: RELATIVE • key_opt is_opt STRING KEY shift, and go to state 846 @@ -15037,37 +15614,37 @@ state 878 key_opt go to state 1112 -state 879 +State 879 - 113 select_clause: RESERVE . NLITERAL areas_opt + 113 select_clause: RESERVE • NLITERAL areas_opt NLITERAL shift, and go to state 1113 -state 880 +State 880 - 103 file_select: SELECT optional_opt def_name $@10 select_clauses PERIOD_TOK . + 103 file_select: SELECT optional_opt def_name $@10 select_clauses PERIOD_TOK • $default reduce using rule 103 (file_select) -state 881 +State 881 - 104 select_clauses: select_clauses select_clause . + 104 select_clauses: select_clauses select_clause • $default reduce using rule 104 (select_clauses) -state 882 +State 882 - 109 select_clause: file_opt . STATUS is_opt STRING + 109 select_clause: file_opt • STATUS is_opt STRING STATUS shift, and go to state 1114 -state 883 +State 883 - 106 select_clause: organization_opt . is_opt organization_options + 106 select_clause: organization_opt • is_opt organization_options IS shift, and go to state 84 @@ -15076,9 +15653,9 @@ state 883 is_opt go to state 1115 -state 884 +State 884 - 160 i_o_control_multiple_file: STRING . i_o_control_multiple_file_position_opt + 160 i_o_control_multiple_file: STRING • i_o_control_multiple_file_position_opt POSITION shift, and go to state 1116 @@ -15087,10 +15664,10 @@ state 884 i_o_control_multiple_file_position_opt go to state 1117 -state 885 +State 885 - 157 i_o_control_multiple_file_tape_clause: MULTIPLE FILE_TOK tape_opt contains_opt i_o_control_multiple_file_list . - 159 i_o_control_multiple_file_list: i_o_control_multiple_file_list . i_o_control_multiple_file + 157 i_o_control_multiple_file_tape_clause: MULTIPLE FILE_TOK tape_opt contains_opt i_o_control_multiple_file_list • + 159 i_o_control_multiple_file_list: i_o_control_multiple_file_list • i_o_control_multiple_file STRING shift, and go to state 884 @@ -15099,40 +15676,40 @@ state 885 i_o_control_multiple_file go to state 1118 -state 886 +State 886 - 158 i_o_control_multiple_file_list: i_o_control_multiple_file . + 158 i_o_control_multiple_file_list: i_o_control_multiple_file • $default reduce using rule 158 (i_o_control_multiple_file_list) -state 887 +State 887 - 171 string_list: error . + 171 string_list: error • $default reduce using rule 171 (string_list) -state 888 +State 888 - 169 string_list: STRING . + 169 string_list: STRING • $default reduce using rule 169 (string_list) -state 889 +State 889 - 152 i_o_control_same_clause: SAME same_clause_options are_opta for_opt string_list . - 170 string_list: string_list . STRING + 152 i_o_control_same_clause: SAME same_clause_options are_opta for_opt string_list • + 170 string_list: string_list • STRING STRING shift, and go to state 1119 $default reduce using rule 152 (i_o_control_same_clause) -state 890 +State 890 - 499 file_description_clause_block: BLOCK . contains_opt integer to_integer_opt chars_or_recs_opt + 499 file_description_clause_block: BLOCK • contains_opt integer to_integer_opt chars_or_recs_opt CONTAINS shift, and go to state 696 @@ -15141,9 +15718,9 @@ state 890 contains_opt go to state 1120 -state 891 +State 891 - 506 file_description_clause_code_set: CODE_SET . is_opt STRING + 506 file_description_clause_code_set: CODE_SET • is_opt STRING IS shift, and go to state 84 @@ -15152,9 +15729,9 @@ state 891 is_opt go to state 1121 -state 892 +State 892 - 504 file_description_clause_data: DATA . record_is_are var_strings + 504 file_description_clause_data: DATA • record_is_are var_strings RECORD shift, and go to state 1122 RECORDS shift, and go to state 1123 @@ -15162,9 +15739,9 @@ state 892 record_is_are go to state 1124 -state 893 +State 893 - 502 file_description_clause_label: LABEL . record_is_are std_or_omitt + 502 file_description_clause_label: LABEL • record_is_are std_or_omitt RECORD shift, and go to state 1122 RECORDS shift, and go to state 1123 @@ -15172,9 +15749,9 @@ state 893 record_is_are go to state 1125 -state 894 +State 894 - 507 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 + 507 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 IS shift, and go to state 84 @@ -15183,10 +15760,10 @@ state 894 is_opt go to state 1126 -state 895 +State 895 - 500 file_description_clause_record: RECORD . contains_opt integer to_rec_varying character_opts - 501 | RECORD . is_opt VARYING in_opt size_opt from_rec_varying to_rec_varying character_opts depend_rec_varying + 500 file_description_clause_record: RECORD • contains_opt integer to_rec_varying character_opts + 501 | RECORD • is_opt VARYING in_opt size_opt from_rec_varying to_rec_varying character_opts depend_rec_varying IS shift, and go to state 84 CONTAINS shift, and go to state 696 @@ -15198,9 +15775,9 @@ state 895 contains_opt go to state 1128 -state 896 +State 896 - 518 report_is_are: REPORT . is_opt + 518 report_is_are: REPORT • is_opt IS shift, and go to state 84 @@ -15209,9 +15786,9 @@ state 896 is_opt go to state 1129 -state 897 +State 897 - 519 report_is_are: REPORTS . are_opt + 519 report_is_are: REPORTS • are_opt ARE shift, and go to state 1130 @@ -15220,134 +15797,134 @@ state 897 are_opt go to state 1131 -state 898 +State 898 - 503 file_description_clause_value: VALUE . OF FILE_ID is_opt filename + 503 file_description_clause_value: VALUE • OF FILE_ID is_opt filename OF shift, and go to state 1132 -state 899 +State 899 - 419 file_section: file_section FD $@38 STRING $@39 file_description_fd_clauses PERIOD_TOK . $@40 file_description + 419 file_section: file_section FD $@38 STRING $@39 file_description_fd_clauses PERIOD_TOK • $@40 file_description $default reduce using rule 418 ($@40) $@40 go to state 1133 -state 900 +State 900 - 487 file_description_fd_clause: is_opt . EXTERNAL - 488 | is_opt . GLOBAL + 487 file_description_fd_clause: is_opt • EXTERNAL + 488 | is_opt • GLOBAL EXTERNAL shift, and go to state 1134 GLOBAL shift, and go to state 1135 -state 901 +State 901 - 484 file_description_fd_clauses: file_description_fd_clauses file_description_fd_clause . + 484 file_description_fd_clauses: file_description_fd_clauses file_description_fd_clause • $default reduce using rule 484 (file_description_fd_clauses) -state 902 +State 902 - 489 file_description_fd_clause: file_description_clause_block . + 489 file_description_fd_clause: file_description_clause_block • $default reduce using rule 489 (file_description_fd_clause) -state 903 +State 903 - 490 file_description_fd_clause: file_description_clause_record . + 490 file_description_fd_clause: file_description_clause_record • $default reduce using rule 490 (file_description_fd_clause) -state 904 +State 904 - 491 file_description_fd_clause: file_description_clause_label . + 491 file_description_fd_clause: file_description_clause_label • $default reduce using rule 491 (file_description_fd_clause) -state 905 +State 905 - 492 file_description_fd_clause: file_description_clause_value . + 492 file_description_fd_clause: file_description_clause_value • $default reduce using rule 492 (file_description_fd_clause) -state 906 +State 906 - 493 file_description_fd_clause: file_description_clause_data . + 493 file_description_fd_clause: file_description_clause_data • $default reduce using rule 493 (file_description_fd_clause) -state 907 +State 907 - 494 file_description_fd_clause: file_description_clause_report . + 494 file_description_fd_clause: file_description_clause_report • $default reduce using rule 494 (file_description_fd_clause) -state 908 +State 908 - 496 file_description_fd_clause: file_description_clause_code_set . + 496 file_description_fd_clause: file_description_clause_code_set • $default reduce using rule 496 (file_description_fd_clause) -state 909 +State 909 - 495 file_description_fd_clause: file_description_clause_linage . + 495 file_description_fd_clause: file_description_clause_linage • $default reduce using rule 495 (file_description_fd_clause) -state 910 +State 910 - 505 file_description_clause_report: report_is_are . STRING + 505 file_description_clause_report: report_is_are • STRING STRING shift, and go to state 1136 -state 911 +State 911 - 423 file_section: file_section SD $@41 STRING $@42 file_description_sd_clauses PERIOD_TOK . $@43 file_description + 423 file_section: file_section SD $@41 STRING $@42 file_description_sd_clauses PERIOD_TOK • $@43 file_description $default reduce using rule 422 ($@43) $@43 go to state 1137 -state 912 +State 912 - 486 file_description_sd_clauses: file_description_sd_clauses file_description_sd_clause . + 486 file_description_sd_clauses: file_description_sd_clauses file_description_sd_clause • $default reduce using rule 486 (file_description_sd_clauses) -state 913 +State 913 - 497 file_description_sd_clause: file_description_clause_record . + 497 file_description_sd_clause: file_description_clause_record • $default reduce using rule 497 (file_description_sd_clause) -state 914 +State 914 - 498 file_description_sd_clause: file_description_clause_data . + 498 file_description_sd_clause: file_description_clause_data • $default reduce using rule 498 (file_description_sd_clause) -state 915 +State 915 - 446 data_clause: BLANK . when_opt ZERO + 446 data_clause: BLANK • when_opt ZERO WHEN shift, and go to state 1138 @@ -15356,9 +15933,9 @@ state 915 when_opt go to state 1139 -state 916 +State 916 - 443 data_clause: JUSTIFIED . sync_options + 443 data_clause: JUSTIFIED • sync_options LEFT shift, and go to state 1140 RIGHT shift, and go to state 1141 @@ -15368,10 +15945,10 @@ state 916 sync_options go to state 1142 -state 917 +State 917 - 455 array_options: OCCURS . integer times_opt $@47 indexed_by_opt - 458 | OCCURS . integer TO integer times_opt DEPENDING $@48 on_opt gname $@49 indexed_by_opt + 455 array_options: OCCURS • integer times_opt $@47 indexed_by_opt + 458 | OCCURS • integer TO integer times_opt DEPENDING $@48 on_opt gname $@49 indexed_by_opt NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -15381,36 +15958,36 @@ state 917 integer go to state 1143 -state 918 +State 918 - 477 pictures: PICTURE . $@50 is_opt picture + 477 pictures: PICTURE • $@50 is_opt picture $default reduce using rule 476 ($@50) $@50 go to state 1144 -state 919 +State 919 - 434 redefines_clause: REDEFINES . $@45 redefines_var + 434 redefines_clause: REDEFINES • $@45 redefines_var $default reduce using rule 433 ($@45) $@45 go to state 1145 -state 920 +State 920 - 448 data_clause: RENAMES . $@46 variable thru_gname_opt + 448 data_clause: RENAMES • $@46 variable thru_gname_opt $default reduce using rule 447 ($@46) $@46 go to state 1146 -state 921 +State 921 - 407 sign_is_opt: SIGN . is_opt + 407 sign_is_opt: SIGN • is_opt IS shift, and go to state 84 @@ -15419,9 +15996,9 @@ state 921 is_opt go to state 1147 -state 922 +State 922 - 442 data_clause: SYNCHRONIZED . sync_options + 442 data_clause: SYNCHRONIZED • sync_options LEFT shift, and go to state 1140 RIGHT shift, and go to state 1141 @@ -15431,16 +16008,16 @@ state 922 sync_options go to state 1148 -state 923 +State 923 - 540 usage_opt: USAGE . + 540 usage_opt: USAGE • $default reduce using rule 540 (usage_opt) -state 924 +State 924 - 470 value_is_are: VALUE . is_opt + 470 value_is_are: VALUE • is_opt IS shift, and go to state 84 @@ -15449,9 +16026,9 @@ state 924 is_opt go to state 1149 -state 925 +State 925 - 471 value_is_are: VALUES . are_opt + 471 value_is_are: VALUES • are_opt ARE shift, and go to state 1130 @@ -15460,18 +16037,18 @@ state 925 are_opt go to state 1150 -state 926 +State 926 - 429 field_description: integer def_name_opt $@44 data_clauses PERIOD_TOK . + 429 field_description: integer def_name_opt $@44 data_clauses PERIOD_TOK • $default reduce using rule 429 (field_description) -state 927 +State 927 - 408 sign_is_opt: is_opt . - 444 data_clause: is_opt . EXTERNAL - 445 | is_opt . GLOBAL + 408 sign_is_opt: is_opt • + 444 data_clause: is_opt • EXTERNAL + 445 | is_opt • GLOBAL EXTERNAL shift, and go to state 1151 GLOBAL shift, and go to state 1152 @@ -15479,60 +16056,60 @@ state 927 $default reduce using rule 408 (sign_is_opt) -state 928 +State 928 - 440 data_clause: sign_clause . + 440 data_clause: sign_clause • $default reduce using rule 440 (data_clause) -state 929 +State 929 - 401 sign_clause: sign_is_opt . LEADING separate_opt - 402 | sign_is_opt . TRAILING separate_opt + 401 sign_clause: sign_is_opt • LEADING separate_opt + 402 | sign_is_opt • TRAILING separate_opt LEADING shift, and go to state 1153 TRAILING shift, and go to state 1154 -state 930 +State 930 - 432 data_clauses: data_clauses redefines_clause . + 432 data_clauses: data_clauses redefines_clause • $default reduce using rule 432 (data_clauses) -state 931 +State 931 - 431 data_clauses: data_clauses data_clause . + 431 data_clauses: data_clauses data_clause • $default reduce using rule 431 (data_clauses) -state 932 +State 932 - 437 data_clause: array_options . + 437 data_clause: array_options • $default reduce using rule 437 (data_clause) -state 933 +State 933 - 439 data_clause: usage_option . + 439 data_clause: usage_option • $default reduce using rule 439 (data_clause) -state 934 +State 934 - 441 data_clause: value_option . + 441 data_clause: value_option • $default reduce using rule 441 (data_clause) -state 935 +State 935 - 469 value_option: value_is_are . value_list + 469 value_option: value_is_are • value_list NLITERAL shift, and go to state 59 CLITERAL shift, and go to state 60 @@ -15555,16 +16132,16 @@ state 935 signed_nliteral go to state 77 -state 936 +State 936 - 438 data_clause: pictures . + 438 data_clause: pictures • $default reduce using rule 438 (data_clause) -state 937 +State 937 - 465 usage_option: usage_opt . is_opt usage + 465 usage_option: usage_opt • is_opt usage IS shift, and go to state 84 @@ -15573,80 +16150,80 @@ state 937 is_opt go to state 1158 -state 938 +State 938 - 194 report_section: RD $@15 STRING $@16 . report_controls PERIOD_TOK $@17 report_description + 194 report_section: RD $@15 STRING $@16 • report_controls PERIOD_TOK $@17 report_description $default reduce using rule 195 (report_controls) report_controls go to state 1159 -state 939 +State 939 - 325 screen_item: integer def_name_opt . $@28 screen_clauses PERIOD_TOK + 325 screen_item: integer def_name_opt • $@28 screen_clauses PERIOD_TOK $default reduce using rule 324 ($@28) $@28 go to state 1160 -state 940 +State 940 - 580 declaratives_decl: error $@57 PERIOD_TOK . + 580 declaratives_decl: error $@57 PERIOD_TOK • $default reduce using rule 580 (declaratives_decl) -state 941 +State 941 - 571 declaratives_opt: DECLARATIVES PERIOD_TOK $@55 declaratives_procedure declaratives_division END DECLARATIVES PERIOD_TOK . + 571 declaratives_opt: DECLARATIVES PERIOD_TOK $@55 declaratives_procedure declaratives_division END DECLARATIVES PERIOD_TOK • $default reduce using rule 571 (declaratives_opt) -state 942 +State 942 - 578 declaratives_decl: $@56 statements PERIOD_TOK . + 578 declaratives_decl: $@56 statements PERIOD_TOK • $default reduce using rule 578 (declaratives_decl) -state 943 +State 943 - 587 use_phrase_exception_error: ERROR_TOK . + 587 use_phrase_exception_error: ERROR_TOK • $default reduce using rule 587 (use_phrase_exception_error) -state 944 +State 944 - 586 use_phrase_exception_error: EXCEPTION . + 586 use_phrase_exception_error: EXCEPTION • $default reduce using rule 586 (use_phrase_exception_error) -state 945 +State 945 - 588 use_phrase_exception_error: STANDARD . EXCEPTION - 589 | STANDARD . ERROR_TOK + 588 use_phrase_exception_error: STANDARD • EXCEPTION + 589 | STANDARD • ERROR_TOK ERROR_TOK shift, and go to state 1161 EXCEPTION shift, and go to state 1162 -state 946 +State 946 - 584 use_phrase: USE AFTER use_phrase_exception_error . PROCEDURE on_opt use_phrase_option PERIOD_TOK + 584 use_phrase: USE AFTER use_phrase_exception_error • PROCEDURE on_opt use_phrase_option PERIOD_TOK PROCEDURE shift, and go to state 1163 -state 947 +State 947 - 900 read_body: name read_next_opt record_opt read_into_opt . with_lock_opt read_key_opt - 901 | name read_next_opt record_opt read_into_opt . with_lock_opt read_key_opt read_at_end_opt - 902 | name read_next_opt record_opt read_into_opt . with_lock_opt read_key_opt read_invalid_key_opt + 900 read_body: name read_next_opt record_opt read_into_opt • with_lock_opt read_key_opt + 901 | name read_next_opt record_opt read_into_opt • with_lock_opt read_key_opt read_at_end_opt + 902 | name read_next_opt record_opt read_into_opt • with_lock_opt read_key_opt read_invalid_key_opt WITH shift, and go to state 358 @@ -15658,12 +16235,12 @@ state 947 with_opt go to state 1165 -state 948 +State 948 - 934 write_statement: WRITE name write_from_opt write_options $@101 . invalid_key_opt end_write_opt + 934 write_statement: WRITE name write_from_opt write_options $@101 • invalid_key_opt end_write_opt - NOT shift, and go to state 665 - INVALID shift, and go to state 666 + INVALID shift, and go to state 665 + NOT shift, and go to state 666 NOTEXCEP shift, and go to state 667 NOT [reduce using rule 1064 (invalid_key_opt)] @@ -15676,17 +16253,17 @@ state 948 not_excep go to state 671 -state 949 +State 949 - 1219 advancing_opt: ADVANCING . + 1219 advancing_opt: ADVANCING • $default reduce using rule 1219 (advancing_opt) -state 950 +State 950 - 938 write_options: before_after advancing_opt . gname line_lines_opt - 939 | before_after advancing_opt . PAGE + 938 write_options: before_after advancing_opt • gname line_lines_opt + 939 | before_after advancing_opt • PAGE VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -15717,16 +16294,16 @@ state 950 unqualified_var go to state 81 -state 951 +State 951 - 828 accept_hardware: ACCEPT name FROM CMD_LINE end_accept_opt . + 828 accept_hardware: ACCEPT name FROM CMD_LINE end_accept_opt • $default reduce using rule 828 (accept_hardware) -state 952 +State 952 - 830 accept_hardware: ACCEPT name FROM ENVIRONMENT_VARIABLE CLITERAL . end_accept_opt + 830 accept_hardware: ACCEPT name FROM ENVIRONMENT_VARIABLE CLITERAL • end_accept_opt END_ACCEPT shift, and go to state 725 @@ -15736,30 +16313,30 @@ state 952 end_accept_opt go to state 1169 -state 953 +State 953 - 826 accept_hardware: ACCEPT name FROM INKEY end_accept_opt . + 826 accept_hardware: ACCEPT name FROM INKEY end_accept_opt • $default reduce using rule 826 (accept_hardware) -state 954 +State 954 - 829 accept_hardware: ACCEPT name FROM ESCKEY end_accept_opt . + 829 accept_hardware: ACCEPT name FROM ESCKEY end_accept_opt • $default reduce using rule 829 (accept_hardware) -state 955 +State 955 - 831 accept_chronological: ACCEPT name FROM DATE_TIME end_accept_opt . + 831 accept_chronological: ACCEPT name FROM DATE_TIME end_accept_opt • $default reduce using rule 831 (accept_chronological) -state 956 +State 956 - 827 accept_hardware: ACCEPT name FROM INPUT STATUS . end_accept_opt + 827 accept_hardware: ACCEPT name FROM INPUT STATUS • end_accept_opt END_ACCEPT shift, and go to state 725 @@ -15769,30 +16346,30 @@ state 956 end_accept_opt go to state 1170 -state 957 +State 957 - 860 scr_line_position: AT NLITERAL . + 860 scr_line_position: AT NLITERAL • $default reduce using rule 860 (scr_line_position) -state 958 +State 958 - 861 scr_line_position: AT variable . + 861 scr_line_position: AT variable • $default reduce using rule 861 (scr_line_position) -state 959 +State 959 - 307 number_opt: NUMBER . + 307 number_opt: NUMBER • $default reduce using rule 307 (number_opt) -state 960 +State 960 - 858 scr_position: COLUMN number_opt . expr + 858 scr_position: COLUMN number_opt • expr VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -15824,9 +16401,9 @@ state 960 unqualified_var go to state 81 -state 961 +State 961 - 857 scr_line: LINE number_opt . expr + 857 scr_line: LINE number_opt • expr VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -15858,14 +16435,14 @@ state 961 unqualified_var go to state 81 -state 962 +State 962 - 859 scr_position: POSITION expr . - 1114 expr: expr . '*' expr - 1115 | expr . '/' expr - 1116 | expr . '+' expr - 1117 | expr . '-' expr - 1118 | expr . POW_OP expr + 859 scr_position: POSITION expr • + 1114 expr: expr • '*' expr + 1115 | expr • '/' expr + 1116 | expr • '+' expr + 1117 | expr • '-' expr + 1118 | expr • POW_OP expr '+' shift, and go to state 593 '-' shift, and go to state 594 @@ -15876,16 +16453,16 @@ state 962 $default reduce using rule 859 (scr_position) -state 963 +State 963 - 385 screen_attribx: AUTO . + 385 screen_attribx: AUTO • $default reduce using rule 385 (screen_attribx) -state 964 +State 964 - 400 screen_attribx: BACKGROUNDCOLOR . integer + 400 screen_attribx: BACKGROUNDCOLOR • integer NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -15895,11 +16472,11 @@ state 964 integer go to state 1173 -state 965 +State 965 - 375 screen_attribx: BLANK . SCREEN - 376 | BLANK . LINE - 393 | BLANK . when_opt ZERO + 375 screen_attribx: BLANK • SCREEN + 376 | BLANK • LINE + 393 | BLANK • when_opt ZERO LINE shift, and go to state 1174 SCREEN shift, and go to state 1175 @@ -15910,18 +16487,18 @@ state 965 when_opt go to state 1176 -state 966 +State 966 - 388 screen_attribx: BLINK . + 388 screen_attribx: BLINK • $default reduce using rule 388 (screen_attribx) -state 967 +State 967 - 377 screen_attribx: ERASE . EOL - 378 | ERASE . EOS - 379 | ERASE . + 377 screen_attribx: ERASE • EOL + 378 | ERASE • EOS + 379 | ERASE • EOL shift, and go to state 1177 EOS shift, and go to state 1178 @@ -15929,9 +16506,9 @@ state 967 $default reduce using rule 379 (screen_attribx) -state 968 +State 968 - 399 screen_attribx: FOREGROUNDCOLOR . integer + 399 screen_attribx: FOREGROUNDCOLOR • integer NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -15941,105 +16518,105 @@ state 968 integer go to state 1179 -state 969 +State 969 - 382 screen_attribx: FULL . + 382 screen_attribx: FULL • $default reduce using rule 382 (screen_attribx) -state 970 +State 970 - 392 screen_attribx: HIGHLIGHT . + 392 screen_attribx: HIGHLIGHT • $default reduce using rule 392 (screen_attribx) -state 971 +State 971 - 386 screen_attribx: JUSTIFIED . RIGHT - 387 | JUSTIFIED . LEFT + 386 screen_attribx: JUSTIFIED • RIGHT + 387 | JUSTIFIED • LEFT LEFT shift, and go to state 1180 RIGHT shift, and go to state 1181 -state 972 +State 972 - 398 screen_attribx: LOWER . + 398 screen_attribx: LOWER • $default reduce using rule 398 (screen_attribx) -state 973 +State 973 - 391 screen_attribx: LOWLIGHT . + 391 screen_attribx: LOWLIGHT • $default reduce using rule 391 (screen_attribx) -state 974 +State 974 - 383 screen_attribx: REQUIRED . + 383 screen_attribx: REQUIRED • $default reduce using rule 383 (screen_attribx) -state 975 +State 975 - 389 screen_attribx: REVERSEVIDEO . + 389 screen_attribx: REVERSEVIDEO • $default reduce using rule 389 (screen_attribx) -state 976 +State 976 - 384 screen_attribx: SECURE . + 384 screen_attribx: SECURE • $default reduce using rule 384 (screen_attribx) -state 977 +State 977 - 390 screen_attribx: UNDERLINE . + 390 screen_attribx: UNDERLINE • $default reduce using rule 390 (screen_attribx) -state 978 +State 978 - 397 screen_attribx: UPPER . + 397 screen_attribx: UPPER • $default reduce using rule 397 (screen_attribx) -state 979 +State 979 - 408 sign_is_opt: is_opt . + 408 sign_is_opt: is_opt • $default reduce using rule 408 (sign_is_opt) -state 980 +State 980 - 864 accept_display_option: with_opt screen_attribx . + 864 accept_display_option: with_opt screen_attribx • $default reduce using rule 864 (accept_display_option) -state 981 +State 981 - 381 screen_attribx: sign_clause . + 381 screen_attribx: sign_clause • $default reduce using rule 381 (screen_attribx) -state 982 +State 982 - 380 screen_attribx: with_opt . BELL - 394 | with_opt . NOECHO - 395 | with_opt . UPDATE - 396 | with_opt . NO ADVANCING + 380 screen_attribx: with_opt • BELL + 394 | with_opt • NOECHO + 395 | with_opt • UPDATE + 396 | with_opt • NO ADVANCING NO shift, and go to state 1182 BELL shift, and go to state 1183 @@ -16047,19 +16624,19 @@ state 982 UPDATE shift, and go to state 1185 -state 983 +State 983 - 836 accept_screen: ACCEPT name accept_display_options on_opt EXCEPTION . $@93 variable @94 statement_list $@95 end_accept_opt + 836 accept_screen: ACCEPT name accept_display_options on_opt EXCEPTION • $@93 variable @94 statement_list $@95 end_accept_opt $default reduce using rule 833 ($@93) $@93 go to state 1186 -state 984 +State 984 - 795 add_body: CORRESPONDING var_list_gname TO var_list_name . rounded_opt on_size_error_opt - 992 var_list_name: var_list_name . name rounded_opt sep_opt + 795 add_body: CORRESPONDING var_list_gname TO var_list_name • rounded_opt on_size_error_opt + 992 var_list_name: var_list_name • name rounded_opt sep_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -16075,9 +16652,9 @@ state 984 unqualified_var go to state 81 -state 985 +State 985 - 998 on_size_error_opt: NOT . on_opt SIZE on_size_error + 998 on_size_error_opt: NOT • on_opt SIZE on_size_error ON shift, and go to state 620 @@ -16086,25 +16663,25 @@ state 985 on_opt go to state 1188 -state 986 +State 986 - 793 add_body: var_list_gname TO var_list_name on_size_error_opt . + 793 add_body: var_list_gname TO var_list_name on_size_error_opt • $default reduce using rule 793 (add_body) -state 987 +State 987 - 999 on_size_error_opt: on_opt . SIZE on_size_error - 1001 | on_opt . SIZE on_size_error NOT on_opt SIZE $@115 on_size_error + 999 on_size_error_opt: on_opt • SIZE on_size_error + 1001 | on_opt • SIZE on_size_error NOT on_opt SIZE $@115 on_size_error SIZE shift, and go to state 1189 -state 988 +State 988 - 794 add_body: var_list_gname add_to_opt GIVING var_list_name . on_size_error_opt - 992 var_list_name: var_list_name . name rounded_opt sep_opt + 794 add_body: var_list_gname add_to_opt GIVING var_list_name • on_size_error_opt + 992 var_list_name: var_list_name • name rounded_opt sep_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -16124,9 +16701,9 @@ state 988 unqualified_var go to state 81 -state 989 +State 989 - 967 call_statement: CALL $@105 call_convention_opt gname using_options . returning_options @106 @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt + 967 call_statement: CALL $@105 call_convention_opt gname using_options • returning_options @106 @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt GIVING shift, and go to state 1191 RETURNING shift, and go to state 1192 @@ -16136,60 +16713,60 @@ state 989 returning_options go to state 1193 -state 990 +State 990 - 1125 using_options: USING @127 . dummy @128 parm_list + 1125 using_options: USING @127 • dummy @128 parm_list $default reduce using rule 1129 (dummy) dummy go to state 1194 -state 991 +State 991 - 981 chain_statement: CHAIN $@111 gname using_options @112 . @113 on_exception_or_overflow $@114 end_chain_opt + 981 chain_statement: CHAIN $@111 gname using_options @112 • @113 on_exception_or_overflow $@114 end_chain_opt $default reduce using rule 979 (@113) @113 go to state 1195 -state 992 +State 992 - 889 close_options: REEL for_opt REMOVAL . + 889 close_options: REEL for_opt REMOVAL • $default reduce using rule 889 (close_options) -state 993 +State 993 - 890 close_options: UNIT for_opt REMOVAL . + 890 close_options: UNIT for_opt REMOVAL • $default reduce using rule 890 (close_options) -state 994 +State 994 - 886 close_options: with_opt NO REWIND . + 886 close_options: with_opt NO REWIND • $default reduce using rule 886 (close_options) -state 995 +State 995 - 892 with_lock_opt: with_opt IGNORE LOCK . + 892 with_lock_opt: with_opt IGNORE LOCK • $default reduce using rule 892 (with_lock_opt) -state 996 +State 996 - 1114 expr: expr . '*' expr - 1115 | expr . '/' expr - 1116 | expr . '+' expr - 1117 | expr . '-' expr - 1118 | expr . POW_OP expr - 1119 | '(' expr . ')' + 1114 expr: expr • '*' expr + 1115 | expr • '/' expr + 1116 | expr • '+' expr + 1117 | expr • '-' expr + 1118 | expr • POW_OP expr + 1119 | '(' expr • ')' '+' shift, and go to state 593 '-' shift, and go to state 594 @@ -16199,23 +16776,23 @@ state 996 ')' shift, and go to state 778 -state 997 +State 997 - 788 compute_body: var_list_name CONDITIONAL expr on_size_error_opt . + 788 compute_body: var_list_name CONDITIONAL expr on_size_error_opt • $default reduce using rule 788 (compute_body) -state 998 +State 998 - 992 var_list_name: var_list_name name rounded_opt sep_opt . + 992 var_list_name: var_list_name name rounded_opt sep_opt • $default reduce using rule 992 (var_list_name) -state 999 +State 999 - 947 delete_statement: DELETE name record_opt $@103 invalid_key_opt . end_delete_opt + 947 delete_statement: DELETE name record_opt $@103 invalid_key_opt • end_delete_opt END_DELETE shift, and go to state 1196 @@ -16225,29 +16802,29 @@ state 999 end_delete_opt go to state 1197 -state 1000 +State 1000 - 842 display_line: DISPLAY display_varlist display_upon display_line_options end_display_opt . + 842 display_line: DISPLAY display_varlist display_upon display_line_options end_display_opt • $default reduce using rule 842 (display_line) -state 1001 +State 1001 - 850 display_line_options: display_line_options with_opt . NO ADVANCING - 851 | display_line_options with_opt . ERASE - 852 | display_line_options with_opt . ERASE EOS - 853 | display_line_options with_opt . ERASE EOL - 854 | display_line_options with_opt . ERASE SCREEN + 850 display_line_options: display_line_options with_opt • NO ADVANCING + 851 | display_line_options with_opt • ERASE + 852 | display_line_options with_opt • ERASE EOS + 853 | display_line_options with_opt • ERASE EOL + 854 | display_line_options with_opt • ERASE SCREEN NO shift, and go to state 1198 ERASE shift, and go to state 1199 -state 1002 +State 1002 - 815 divide_body: gname BY gname GIVING . var_list_name on_size_error_opt - 816 | gname BY gname GIVING . name rounded_opt REMAINDER name on_size_error_opt + 815 divide_body: gname BY gname GIVING • var_list_name on_size_error_opt + 816 | gname BY gname GIVING • name rounded_opt REMAINDER name on_size_error_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -16260,17 +16837,17 @@ state 1002 unqualified_var go to state 81 -state 1003 +State 1003 - 819 divide_body: gname INTO var_list_name on_size_error_opt . + 819 divide_body: gname INTO var_list_name on_size_error_opt • $default reduce using rule 819 (divide_body) -state 1004 +State 1004 - 817 divide_body: gname INTO gname GIVING . name rounded_opt REMAINDER name on_size_error_opt - 818 | gname INTO gname GIVING . var_list_name on_size_error_opt + 817 divide_body: gname INTO gname GIVING • name rounded_opt REMAINDER name on_size_error_opt + 818 | gname INTO gname GIVING • var_list_name on_size_error_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -16283,9 +16860,9 @@ state 1004 unqualified_var go to state 81 -state 1005 +State 1005 - 658 selection_subject_set: selection_subject_set ALSO @65 . selection_subject + 658 selection_subject_set: selection_subject_set ALSO @65 • selection_subject VARIABLE shift, and go to state 56 VARCOND shift, and go to state 422 @@ -16295,12 +16872,12 @@ state 1005 CLITERAL shift, and go to state 60 '+' shift, and go to state 61 '-' shift, and go to state 62 - NOT shift, and go to state 423 ALL shift, and go to state 63 FALSE_TOK shift, and go to state 769 FUNCTION shift, and go to state 64 HIGHVALUES shift, and go to state 65 LOWVALUES shift, and go to state 66 + NOT shift, and go to state 423 QUOTES shift, and go to state 67 SPACES shift, and go to state 68 TRUE_TOK shift, and go to state 770 @@ -16324,19 +16901,19 @@ state 1005 unqualified_var go to state 81 -state 1006 +State 1006 - 665 when_case_list: WHEN . @66 @67 when_case sentence_or_nothing + 665 when_case_list: WHEN • @66 @67 when_case sentence_or_nothing $default reduce using rule 663 (@66) @66 go to state 1205 -state 1007 +State 1007 - 652 evaluate_statement: EVALUATE @62 selection_subject_set $@63 when_case_list . end_evaluate_or_eos - 669 when_case_list: when_case_list . WHEN @68 @69 when_case $@70 sentence_or_nothing + 652 evaluate_statement: EVALUATE @62 selection_subject_set $@63 when_case_list • end_evaluate_or_eos + 669 when_case_list: when_case_list • WHEN @68 @69 when_case $@70 sentence_or_nothing END_EVALUATE shift, and go to state 1206 WHEN shift, and go to state 1207 @@ -16345,9 +16922,9 @@ state 1007 end_evaluate_or_eos go to state 1209 -state 1008 +State 1008 - 957 goto_statement: GO to_opt goto_label_list DEPENDING on_opt . variable + 957 goto_statement: GO to_opt goto_label_list DEPENDING on_opt • variable VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -16357,17 +16934,17 @@ state 1008 unqualified_var go to state 81 -state 1009 +State 1009 - 961 goto_label_list: goto_label_list LISTSEP label . + 961 goto_label_list: goto_label_list LISTSEP label • $default reduce using rule 961 (goto_label_list) -state 1010 +State 1010 - 1283 cond_name: VARCOND '(' $@146 subscripts . ')' - 1297 subscripts: subscripts . comma_opt subscript + 1283 cond_name: VARCOND '(' $@146 subscripts • ')' + 1297 subscripts: subscripts • comma_opt subscript ')' shift, and go to state 1211 ',' shift, and go to state 190 @@ -16377,22 +16954,22 @@ state 1010 comma_opt go to state 191 -state 1011 +State 1011 - 1200 extended_cond_op: IS NOT ext_cond . + 1200 extended_cond_op: IS NOT ext_cond • $default reduce using rule 1200 (extended_cond_op) -state 1012 +State 1012 - 1201 extended_cond_op: IS ext_cond OR . ext_cond + 1201 extended_cond_op: IS ext_cond OR • ext_cond CONDITIONAL shift, and go to state 591 - ALPHABETIC shift, and go to state 599 - ALPHABETIC_LOWER shift, and go to state 600 - ALPHABETIC_UPPER shift, and go to state 601 - NEGATIVE shift, and go to state 602 + ALPHABETIC shift, and go to state 598 + ALPHABETIC_LOWER shift, and go to state 599 + ALPHABETIC_UPPER shift, and go to state 600 + NEGATIVE shift, and go to state 601 NUMERIC shift, and go to state 603 POSITIVE shift, and go to state 604 ZERO shift, and go to state 605 @@ -16403,21 +16980,21 @@ state 1012 conditional go to state 610 -state 1013 +State 1013 - 1203 extended_cond_op: NOT is_opt ext_cond . + 1203 extended_cond_op: NOT is_opt ext_cond • $default reduce using rule 1203 (extended_cond_op) -state 1014 +State 1014 - 1114 expr: expr . '*' expr - 1115 | expr . '/' expr - 1116 | expr . '+' expr - 1117 | expr . '-' expr - 1118 | expr . POW_OP expr - 1121 expr_opt: expr . + 1114 expr: expr • '*' expr + 1115 | expr • '/' expr + 1116 | expr • '+' expr + 1117 | expr • '-' expr + 1118 | expr • POW_OP expr + 1121 expr_opt: expr • '+' shift, and go to state 593 '-' shift, and go to state 594 @@ -16428,24 +17005,24 @@ state 1014 $default reduce using rule 1121 (expr_opt) -state 1015 +State 1015 - 1181 condition: expr extended_cond_op $@142 expr_opt . + 1181 condition: expr extended_cond_op $@142 expr_opt • $default reduce using rule 1181 (condition) -state 1016 +State 1016 - 1204 extended_cond_op: ext_cond OR ext_cond . + 1204 extended_cond_op: ext_cond OR ext_cond • $default reduce using rule 1204 (extended_cond_op) -state 1017 +State 1017 - 1182 condition: NOT . condition - 1209 cond_op: NOT . conditional + 1182 condition: NOT • condition + 1209 cond_op: NOT • conditional VARIABLE shift, and go to state 56 VARCOND shift, and go to state 422 @@ -16456,11 +17033,11 @@ state 1017 CLITERAL shift, and go to state 60 '+' shift, and go to state 61 '-' shift, and go to state 62 - NOT shift, and go to state 423 ALL shift, and go to state 63 FUNCTION shift, and go to state 64 HIGHVALUES shift, and go to state 65 LOWVALUES shift, and go to state 66 + NOT shift, and go to state 423 QUOTES shift, and go to state 67 SPACES shift, and go to state 68 ZERO shift, and go to state 69 @@ -16483,15 +17060,15 @@ state 1017 unqualified_var go to state 81 -state 1018 +State 1018 - 1114 expr: expr . '*' expr - 1115 | expr . '/' expr - 1116 | expr . '+' expr - 1117 | expr . '-' expr - 1118 | expr . POW_OP expr - 1181 condition: expr . extended_cond_op $@142 expr_opt - 1191 implied_op_condition: expr . + 1114 expr: expr • '*' expr + 1115 | expr • '/' expr + 1116 | expr • '+' expr + 1117 | expr • '-' expr + 1118 | expr • POW_OP expr + 1181 condition: expr • extended_cond_op $@142 expr_opt + 1191 implied_op_condition: expr • CONDITIONAL shift, and go to state 591 IS shift, and go to state 592 @@ -16500,11 +17077,11 @@ state 1018 '*' shift, and go to state 595 '/' shift, and go to state 596 POW_OP shift, and go to state 597 - NOT shift, and go to state 598 - ALPHABETIC shift, and go to state 599 - ALPHABETIC_LOWER shift, and go to state 600 - ALPHABETIC_UPPER shift, and go to state 601 - NEGATIVE shift, and go to state 602 + ALPHABETIC shift, and go to state 598 + ALPHABETIC_LOWER shift, and go to state 599 + ALPHABETIC_UPPER shift, and go to state 600 + NEGATIVE shift, and go to state 601 + NOT shift, and go to state 602 NUMERIC shift, and go to state 603 POSITIVE shift, and go to state 604 ZERO shift, and go to state 605 @@ -16519,11 +17096,11 @@ state 1018 conditional go to state 610 -state 1019 +State 1019 - 1184 condition: condition . AND @143 implied_op_condition - 1186 | condition . OR @144 implied_op_condition - 1189 implied_op_condition: condition . + 1184 condition: condition • AND @143 implied_op_condition + 1186 | condition • OR @144 implied_op_condition + 1189 implied_op_condition: condition • OR shift, and go to state 611 AND shift, and go to state 612 @@ -16533,16 +17110,16 @@ state 1019 $default reduce using rule 1189 (implied_op_condition) -state 1020 +State 1020 - 1186 condition: condition OR @144 implied_op_condition . + 1186 condition: condition OR @144 implied_op_condition • $default reduce using rule 1186 (condition) -state 1021 +State 1021 - 1190 implied_op_condition: cond_op . expr + 1190 implied_op_condition: cond_op • expr VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -16574,54 +17151,54 @@ state 1021 unqualified_var go to state 81 -state 1022 +State 1022 - 1208 cond_op: conditional . - 1210 | conditional . OR conditional + 1208 cond_op: conditional • + 1210 | conditional • OR conditional OR shift, and go to state 1215 $default reduce using rule 1208 (cond_op) -state 1023 +State 1023 - 1184 condition: condition AND @143 implied_op_condition . + 1184 condition: condition AND @143 implied_op_condition • $default reduce using rule 1184 (condition) -state 1024 +State 1024 - 684 if_part: IF condition @73 end_then_opt conditional_statement . + 684 if_part: IF condition @73 end_then_opt conditional_statement • $default reduce using rule 684 (if_part) -state 1025 +State 1025 - 779 initialize_replacing_lists: initialize_replacing_lists initialize_replacing_list . + 779 initialize_replacing_lists: initialize_replacing_lists initialize_replacing_list • $default reduce using rule 779 (initialize_replacing_lists) -state 1026 +State 1026 - 552 data_opt: DATA . + 552 data_opt: DATA • $default reduce using rule 552 (data_opt) -state 1027 +State 1027 - 780 initialize_replacing_list: initialize_type_list data_opt . BY gname + 780 initialize_replacing_list: initialize_type_list data_opt • BY gname BY shift, and go to state 1216 -state 1028 +State 1028 - 1088 converting_clause: CONVERTING noallname TO . noallname inspect_before_after + 1088 converting_clause: CONVERTING noallname TO • noallname inspect_before_after VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -16647,48 +17224,48 @@ state 1028 unqualified_var go to state 81 -state 1029 +State 1029 - 1091 tallying_list: tallying_list name . FOR tallying_for_list + 1091 tallying_list: tallying_list name • FOR tallying_for_list FOR shift, and go to state 1218 -state 1030 +State 1030 - 1097 replacing_clause: REPLACING . replacing_list + 1097 replacing_clause: REPLACING • replacing_list $default reduce using rule 1101 (replacing_list) replacing_list go to state 1219 -state 1031 +State 1031 - 1086 inspect_statement: INSPECT name tallying_clause $@126 replacing_clause . + 1086 inspect_statement: INSPECT name tallying_clause $@126 replacing_clause • $default reduce using rule 1086 (inspect_statement) -state 1032 +State 1032 - 763 sort_collating_opt: collating_sequence . + 763 sort_collating_opt: collating_sequence • $default reduce using rule 763 (sort_collating_opt) -state 1033 +State 1033 - 740 merge_statement: MERGE name sort_keys $@86 sort_collating_opt . $@87 merge_using $@88 sort_output + 740 merge_statement: MERGE name sort_keys $@86 sort_collating_opt • $@87 merge_using $@88 sort_output $default reduce using rule 738 ($@87) $@87 go to state 1220 -state 1034 +State 1034 - 754 sort_key: on_opt DIRECTION key_opt . sort_keys_names + 754 sort_key: on_opt DIRECTION key_opt • sort_keys_names VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -16701,16 +17278,16 @@ state 1034 unqualified_var go to state 81 -state 1035 +State 1035 - 771 move_statement: MOVE CORRESPONDING name_var TO name_var . + 771 move_statement: MOVE CORRESPONDING name_var TO name_var • $default reduce using rule 771 (move_statement) -state 1036 +State 1036 - 772 move_statement: MOVE LENGTH OF gname TO . name_var + 772 move_statement: MOVE LENGTH OF gname TO • name_var VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -16741,9 +17318,9 @@ state 1036 unqualified_var go to state 81 -state 1037 +State 1037 - 1242 name_var_list: name_var_list sep_opt . name_var + 1242 name_var_list: name_var_list sep_opt • name_var VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -16774,16 +17351,16 @@ state 1037 unqualified_var go to state 81 -state 1038 +State 1038 - 810 multiply_body: gname BY var_list_name on_size_error_opt . + 810 multiply_body: gname BY var_list_name on_size_error_opt • $default reduce using rule 810 (multiply_body) -state 1039 +State 1039 - 809 multiply_body: gname BY gname GIVING . var_list_name on_size_error_opt + 809 multiply_body: gname BY gname GIVING • var_list_name on_size_error_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -16796,18 +17373,18 @@ state 1039 unqualified_var go to state 81 -state 1040 +State 1040 - 878 open_varlist: open_varlist sep_opt name . + 878 open_varlist: open_varlist sep_opt name • $default reduce using rule 878 (open_varlist) -state 1041 +State 1041 - 1151 perform_options: with_test_opt UNTIL @131 condition . @132 perform_statements $@133 END_PERFORM - 1184 condition: condition . AND @143 implied_op_condition - 1186 | condition . OR @144 implied_op_condition + 1151 perform_options: with_test_opt UNTIL @131 condition • @132 perform_statements $@133 END_PERFORM + 1184 condition: condition • AND @143 implied_op_condition + 1186 | condition • OR @144 implied_op_condition OR shift, and go to state 611 AND shift, and go to state 612 @@ -16817,9 +17394,9 @@ state 1041 @132 go to state 1226 -state 1042 +State 1042 - 1155 perform_options: with_test_opt VARYING name FROM . gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM + 1155 perform_options: with_test_opt VARYING name FROM • gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -16849,27 +17426,27 @@ state 1042 unqualified_var go to state 81 -state 1043 +State 1043 - 1147 perform_options: gname TIMES @129 perform_statements . $@130 END_PERFORM + 1147 perform_options: gname TIMES @129 perform_statements • $@130 END_PERFORM $default reduce using rule 1146 ($@130) $@130 go to state 1228 -state 1044 +State 1044 - 1158 perform_options: label perform_thru_opt with_test_opt UNTIL . @137 condition + 1158 perform_options: label perform_thru_opt with_test_opt UNTIL • @137 condition $default reduce using rule 1157 (@137) @137 go to state 1229 -state 1045 +State 1045 - 1162 perform_options: label perform_thru_opt with_test_opt VARYING . name FROM gname by_opt gname UNTIL @138 condition @139 perform_after_opt + 1162 perform_options: label perform_thru_opt with_test_opt VARYING • name FROM gname by_opt gname UNTIL @138 condition @139 perform_after_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -16881,61 +17458,61 @@ state 1045 unqualified_var go to state 81 -state 1046 +State 1046 - 1159 perform_options: label perform_thru_opt gname TIMES . + 1159 perform_options: label perform_thru_opt gname TIMES • $default reduce using rule 1159 (perform_options) -state 1047 +State 1047 - 907 read_into_opt: INTO name . + 907 read_into_opt: INTO name • $default reduce using rule 907 (read_into_opt) -state 1048 +State 1048 - 910 read_at_end_opt: NOT . at_opt on_end + 911 read_at_end_opt: AT • on_end + 914 | AT • on_end NOT at_opt $@96 on_end + + END shift, and go to state 1049 + + on_end go to state 1231 + + +State 1049 + + 918 on_end: END • @98 statement_list + + $default reduce using rule 917 (@98) + + @98 go to state 1232 + + +State 1050 + + 910 read_at_end_opt: NOT • at_opt on_end AT shift, and go to state 1054 $default reduce using rule 1225 (at_opt) - at_opt go to state 1231 + at_opt go to state 1233 -state 1049 +State 1051 - 911 read_at_end_opt: AT . on_end - 914 | AT . on_end NOT at_opt $@96 on_end - - END shift, and go to state 1050 - - on_end go to state 1232 - - -state 1050 - - 918 on_end: END . @98 statement_list - - $default reduce using rule 917 (@98) - - @98 go to state 1233 - - -state 1051 - - 897 return_body: name record_opt read_into_opt read_at_end_opt . + 897 return_body: name record_opt read_into_opt read_at_end_opt • $default reduce using rule 897 (return_body) -state 1052 +State 1052 - 912 read_at_end_opt: on_end . - 916 | on_end . NOT at_opt $@97 on_end + 912 read_at_end_opt: on_end • + 916 | on_end • NOT at_opt $@97 on_end NOT shift, and go to state 1234 @@ -16943,9 +17520,9 @@ state 1052 $default reduce using rule 912 (read_at_end_opt) -state 1053 +State 1053 - 943 rewrite_statement: REWRITE name write_from_opt $@102 invalid_key_opt . end_rewrite_opt + 943 rewrite_statement: REWRITE name write_from_opt $@102 invalid_key_opt • end_rewrite_opt END_REWRITE shift, and go to state 1235 @@ -16955,39 +17532,39 @@ state 1053 end_rewrite_opt go to state 1236 -state 1054 +State 1054 - 1226 at_opt: AT . + 1226 at_opt: AT • $default reduce using rule 1226 (at_opt) -state 1055 +State 1055 - 701 search_all: variable_indexed @79 search_at_end . $@80 search_all_when_list + 701 search_all: variable_indexed @79 search_at_end • $@80 search_all_when_list $default reduce using rule 700 ($@80) $@80 go to state 1237 -state 1056 +State 1056 - 705 search_at_end: at_opt . END @81 statement_list + 705 search_at_end: at_opt • END @81 statement_list END shift, and go to state 1238 -state 1057 +State 1057 - 702 search_varying_opt: VARYING variable . + 702 search_varying_opt: VARYING variable • $default reduce using rule 702 (search_varying_opt) -state 1058 +State 1058 - 698 search: variable_indexed @76 search_varying_opt @77 . search_at_end @78 search_when_list + 698 search: variable_indexed @76 search_varying_opt @77 • search_at_end @78 search_when_list AT shift, and go to state 1054 @@ -16998,100 +17575,100 @@ state 1058 at_opt go to state 1056 -state 1059 +State 1059 - 1022 set_variable_or_nlit: NULL_TOK . + 1022 set_variable_or_nlit: NULL_TOK • $default reduce using rule 1022 (set_variable_or_nlit) -state 1060 +State 1060 - 1021 set_variable_or_nlit: OFF . + 1021 set_variable_or_nlit: OFF • $default reduce using rule 1021 (set_variable_or_nlit) -state 1061 +State 1061 - 1020 set_variable_or_nlit: ON . + 1020 set_variable_or_nlit: ON • $default reduce using rule 1020 (set_variable_or_nlit) -state 1062 +State 1062 - 1023 set_variable_or_nlit: TRUE_TOK . + 1023 set_variable_or_nlit: TRUE_TOK • $default reduce using rule 1023 (set_variable_or_nlit) -state 1063 +State 1063 - 1011 set_list: set_target TO address_of_opt set_variable_or_nlit . + 1011 set_list: set_target TO address_of_opt set_variable_or_nlit • $default reduce using rule 1011 (set_list) -state 1064 +State 1064 - 1019 set_variable_or_nlit: name_or_lit . + 1019 set_variable_or_nlit: name_or_lit • $default reduce using rule 1019 (set_variable_or_nlit) -state 1065 +State 1065 - 1251 name_or_lit: literal . + 1251 name_or_lit: literal • $default reduce using rule 1251 (name_or_lit) -state 1066 +State 1066 - 1250 name_or_lit: name . + 1250 name_or_lit: name • $default reduce using rule 1250 (name_or_lit) -state 1067 +State 1067 - 1013 set_list: set_target DOWN BY var_or_nliteral . + 1013 set_list: set_target DOWN BY var_or_nliteral • $default reduce using rule 1013 (set_list) -state 1068 +State 1068 - 1266 var_or_nliteral: nliteral . + 1266 var_or_nliteral: nliteral • $default reduce using rule 1266 (var_or_nliteral) -state 1069 +State 1069 - 1267 nliteral: signed_nliteral . + 1267 nliteral: signed_nliteral • $default reduce using rule 1267 (nliteral) -state 1070 +State 1070 - 1265 var_or_nliteral: variable . + 1265 var_or_nliteral: variable • $default reduce using rule 1265 (var_or_nliteral) -state 1071 +State 1071 - 1012 set_list: set_target UP BY var_or_nliteral . + 1012 set_list: set_target UP BY var_or_nliteral • $default reduce using rule 1012 (set_list) -state 1072 +State 1072 - 1014 set_list: address_of_opt variable TO address_of_opt . set_variable + 1014 set_list: address_of_opt variable TO address_of_opt • set_variable VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -17103,9 +17680,9 @@ state 1072 unqualified_var go to state 81 -state 1073 +State 1073 - 749 sort_variable_indexed: SORT variable_indexed sort_keys_idx $@92 sort_duplicates_opt . sort_collating_opt + 749 sort_variable_indexed: SORT variable_indexed sort_keys_idx $@92 sort_duplicates_opt • sort_collating_opt COLLATING shift, and go to state 496 @@ -17117,16 +17694,16 @@ state 1073 sort_collating_opt go to state 1243 -state 1074 +State 1074 - 761 sort_duplicates_opt: with_opt . DUPLICATES in_opt order_opt + 761 sort_duplicates_opt: with_opt • DUPLICATES in_opt order_opt DUPLICATES shift, and go to state 1244 -state 1075 +State 1075 - 755 sort_key_idx: on_opt DIRECTION key_opt . sort_keys_names_idx + 755 sort_key_idx: on_opt DIRECTION key_opt • sort_keys_names_idx SUBSCVAR shift, and go to state 459 @@ -17134,9 +17711,9 @@ state 1075 variable_indexed go to state 1246 -state 1076 +State 1076 - 747 sort_file: SORT name sort_keys $@89 sort_duplicates_opt . sort_collating_opt $@90 sort_input $@91 sort_output + 747 sort_file: SORT name sort_keys $@89 sort_duplicates_opt • sort_collating_opt $@90 sort_input $@91 sort_output COLLATING shift, and go to state 496 @@ -17148,9 +17725,9 @@ state 1076 sort_collating_opt go to state 1247 -state 1077 +State 1077 - 1066 invalid_key_sentence: INVALID key_opt @124 . statement_list + 1066 invalid_key_sentence: INVALID key_opt @124 • statement_list READ shift, and go to state 254 WRITE shift, and go to state 255 @@ -17253,41 +17830,41 @@ state 1077 inspect_statement go to state 350 -state 1078 +State 1078 - 955 end_start_opt: END_START . + 955 end_start_opt: END_START • $default reduce using rule 955 (end_start_opt) -state 1079 +State 1079 - 951 start_statement: START start_body invalid_key_opt $@104 end_start_opt . + 951 start_statement: START start_body invalid_key_opt $@104 end_start_opt • $default reduce using rule 951 (start_statement) -state 1080 +State 1080 - 1068 not_invalid_key_sentence: not_excep INVALID key_opt . @125 statement_list + 1068 not_invalid_key_sentence: not_excep INVALID key_opt • @125 statement_list $default reduce using rule 1067 (@125) @125 go to state 1249 -state 1081 +State 1081 - 1209 cond_op: NOT . conditional + 1209 cond_op: NOT • conditional CONDITIONAL shift, and go to state 591 conditional go to state 1213 -state 1082 +State 1082 - 953 start_body: name KEY is_opt cond_op . name + 953 start_body: name KEY is_opt cond_op • name VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -17299,54 +17876,54 @@ state 1082 unqualified_var go to state 81 -state 1083 +State 1083 - 1027 string_statement: STRINGCMD string_from_list INTO name string_with_pointer . $@117 on_overflow_opt end_stringcmd_opt + 1027 string_statement: STRINGCMD string_from_list INTO name string_with_pointer • $@117 on_overflow_opt end_stringcmd_opt $default reduce using rule 1026 ($@117) $@117 go to state 1251 -state 1084 +State 1084 - 1071 string_with_pointer: with_opt . POINTER name + 1071 string_with_pointer: with_opt • POINTER name POINTER shift, and go to state 1252 -state 1085 +State 1085 - 1080 delimited_by: error . + 1080 delimited_by: error • $default reduce using rule 1080 (delimited_by) -state 1086 +State 1086 - 1079 delimited_by: SIZE . + 1079 delimited_by: SIZE • $default reduce using rule 1079 (delimited_by) -state 1087 +State 1087 - 1077 string_from: gname DELIMITED by_opt delimited_by . + 1077 string_from: gname DELIMITED by_opt delimited_by • $default reduce using rule 1077 (string_from) -state 1088 +State 1088 - 1078 delimited_by: gname . + 1078 delimited_by: gname • $default reduce using rule 1078 (delimited_by) -state 1089 +State 1089 - 804 subtract_body: CORRESPONDING var_list_gname FROM var_list_name . rounded_opt on_size_error_opt - 992 var_list_name: var_list_name . name rounded_opt sep_opt + 804 subtract_body: CORRESPONDING var_list_gname FROM var_list_name • rounded_opt on_size_error_opt + 992 var_list_name: var_list_name • name rounded_opt sep_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -17362,16 +17939,16 @@ state 1089 unqualified_var go to state 81 -state 1090 +State 1090 - 802 subtract_body: var_list_gname FROM var_list_name on_size_error_opt . + 802 subtract_body: var_list_gname FROM var_list_name on_size_error_opt • $default reduce using rule 802 (subtract_body) -state 1091 +State 1091 - 803 subtract_body: var_list_gname FROM gname GIVING . var_list_name on_size_error_opt + 803 subtract_body: var_list_gname FROM gname GIVING • var_list_name on_size_error_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -17384,26 +17961,26 @@ state 1091 unqualified_var go to state 81 -state 1092 +State 1092 - 1044 all_opt: ALL . + 1044 all_opt: ALL • $default reduce using rule 1044 (all_opt) -state 1093 +State 1093 - 1030 unstring_delimited: DELIMITED by_opt unstring_delimited_vars . - 1033 unstring_delimited_vars: unstring_delimited_vars . OR all_opt gname + 1030 unstring_delimited: DELIMITED by_opt unstring_delimited_vars • + 1033 unstring_delimited_vars: unstring_delimited_vars • OR all_opt gname OR shift, and go to state 1255 $default reduce using rule 1030 (unstring_delimited) -state 1094 +State 1094 - 1032 unstring_delimited_vars: all_opt . gname + 1032 unstring_delimited_vars: all_opt • gname VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -17433,10 +18010,10 @@ state 1094 unqualified_var go to state 81 -state 1095 +State 1095 - 1029 unstring_statement: UNSTRING name unstring_delimited INTO unstring_destinations . string_with_pointer unstring_tallying $@118 on_overflow_opt end_unstring_opt - 1035 unstring_destinations: unstring_destinations . sep_opt unstring_dest_var + 1029 unstring_statement: UNSTRING name unstring_delimited INTO unstring_destinations • string_with_pointer unstring_tallying $@118 on_overflow_opt end_unstring_opt + 1035 unstring_destinations: unstring_destinations • sep_opt unstring_dest_var LISTSEP shift, and go to state 98 WITH shift, and go to state 358 @@ -17452,16 +18029,16 @@ state 1095 with_opt go to state 1084 -state 1096 +State 1096 - 1034 unstring_destinations: unstring_dest_var . + 1034 unstring_destinations: unstring_dest_var • $default reduce using rule 1034 (unstring_destinations) -state 1097 +State 1097 - 1036 unstring_dest_var: name . unstring_delim_opt unstring_count_opt + 1036 unstring_dest_var: name • unstring_delim_opt unstring_count_opt DELIMITER shift, and go to state 1259 @@ -17470,9 +18047,9 @@ state 1097 unstring_delim_opt go to state 1260 -state 1098 +State 1098 - 647 if_statement: if_part ELSE @60 conditional_statement $@61 . end_if_opt + 647 if_statement: if_part ELSE @60 conditional_statement $@61 • end_if_opt END_IF shift, and go to state 684 @@ -17482,44 +18059,44 @@ state 1098 end_if_opt go to state 1261 -state 1099 +State 1099 - 686 conditional_statement: $@74 statement_list . + 686 conditional_statement: $@74 statement_list • $default reduce using rule 686 (conditional_statement) -state 1100 +State 1100 - 688 conditional_statement: $@75 NEXT . SENTENCE + 688 conditional_statement: $@75 NEXT • SENTENCE SENTENCE shift, and go to state 1262 -state 1101 +State 1101 - 43 collating_sequence: collating_opt SEQUENCE is_opt STRING . + 43 collating_sequence: collating_opt SEQUENCE is_opt STRING • $default reduce using rule 43 (collating_sequence) -state 1102 +State 1102 - 92 alphabet_also_list: alphabet_also_list ALSO without_all_literal . + 92 alphabet_also_list: alphabet_also_list ALSO without_all_literal • $default reduce using rule 92 (alphabet_also_list) -state 1103 +State 1103 - 79 status_opt: STATUS . + 79 status_opt: STATUS • $default reduce using rule 79 (status_opt) -state 1104 +State 1104 - 75 switch_on_opt: ON status_opt . is_opt STRING + 75 switch_on_opt: ON status_opt • is_opt STRING IS shift, and go to state 84 @@ -17528,9 +18105,9 @@ state 1104 is_opt go to state 1263 -state 1105 +State 1105 - 77 switch_off_opt: OFF . status_opt is_opt STRING + 77 switch_off_opt: OFF • status_opt is_opt STRING STATUS shift, and go to state 1103 @@ -17539,23 +18116,23 @@ state 1105 status_opt go to state 1264 -state 1106 +State 1106 - 74 switches_details: STRING is_opt STRING $@9 switch_on_opt switch_off_opt . + 74 switches_details: STRING is_opt STRING $@9 switch_on_opt switch_off_opt • $default reduce using rule 74 (switches_details) -state 1107 +State 1107 - 135 mode_opt: MODE . + 135 mode_opt: MODE • $default reduce using rule 135 (mode_opt) -state 1108 +State 1108 - 108 select_clause: ACCESS mode_opt . is_opt access_options + 108 select_clause: ACCESS mode_opt • is_opt access_options IS shift, and go to state 84 @@ -17564,9 +18141,9 @@ state 1108 is_opt go to state 1265 -state 1109 +State 1109 - 112 select_clause: ALTERNATE RECORD . key_opt is_opt STRING with_duplicates + 112 select_clause: ALTERNATE RECORD • key_opt is_opt STRING with_duplicates KEY shift, and go to state 846 @@ -17575,9 +18152,9 @@ state 1109 key_opt go to state 1266 -state 1110 +State 1110 - 107 select_clause: ASSIGN to_opt . assign_clause + 107 select_clause: ASSIGN to_opt • assign_clause error shift, and go to state 1267 STRING shift, and go to state 1268 @@ -17594,9 +18171,9 @@ state 1110 filename go to state 1273 -state 1111 +State 1111 - 110 select_clause: RECORD key_opt . is_opt STRING + 110 select_clause: RECORD key_opt • is_opt STRING IS shift, and go to state 84 @@ -17605,9 +18182,9 @@ state 1111 is_opt go to state 1274 -state 1112 +State 1112 - 111 select_clause: RELATIVE key_opt . is_opt STRING + 111 select_clause: RELATIVE key_opt • is_opt STRING IS shift, and go to state 84 @@ -17616,9 +18193,9 @@ state 1112 is_opt go to state 1275 -state 1113 +State 1113 - 113 select_clause: RESERVE NLITERAL . areas_opt + 113 select_clause: RESERVE NLITERAL • areas_opt AREA shift, and go to state 1276 AREAS shift, and go to state 1277 @@ -17628,9 +18205,9 @@ state 1113 areas_opt go to state 1278 -state 1114 +State 1114 - 109 select_clause: file_opt STATUS . is_opt STRING + 109 select_clause: file_opt STATUS • is_opt STRING IS shift, and go to state 84 @@ -17639,9 +18216,9 @@ state 1114 is_opt go to state 1279 -state 1115 +State 1115 - 106 select_clause: organization_opt is_opt . organization_options + 106 select_clause: organization_opt is_opt • organization_options STRING shift, and go to state 1280 LABELSTR shift, and go to state 1281 @@ -17654,9 +18231,9 @@ state 1115 anystring go to state 1287 -state 1116 +State 1116 - 162 i_o_control_multiple_file_position_opt: POSITION . integer + 162 i_o_control_multiple_file_position_opt: POSITION • integer NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -17666,30 +18243,30 @@ state 1116 integer go to state 1288 -state 1117 +State 1117 - 160 i_o_control_multiple_file: STRING i_o_control_multiple_file_position_opt . + 160 i_o_control_multiple_file: STRING i_o_control_multiple_file_position_opt • $default reduce using rule 160 (i_o_control_multiple_file) -state 1118 +State 1118 - 159 i_o_control_multiple_file_list: i_o_control_multiple_file_list i_o_control_multiple_file . + 159 i_o_control_multiple_file_list: i_o_control_multiple_file_list i_o_control_multiple_file • $default reduce using rule 159 (i_o_control_multiple_file_list) -state 1119 +State 1119 - 170 string_list: string_list STRING . + 170 string_list: string_list STRING • $default reduce using rule 170 (string_list) -state 1120 +State 1120 - 499 file_description_clause_block: BLOCK contains_opt . integer to_integer_opt chars_or_recs_opt + 499 file_description_clause_block: BLOCK contains_opt • integer to_integer_opt chars_or_recs_opt NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -17699,16 +18276,16 @@ state 1120 integer go to state 1289 -state 1121 +State 1121 - 506 file_description_clause_code_set: CODE_SET is_opt . STRING + 506 file_description_clause_code_set: CODE_SET is_opt • STRING STRING shift, and go to state 1290 -state 1122 +State 1122 - 535 record_is_are: RECORD . is_opt + 535 record_is_are: RECORD • is_opt IS shift, and go to state 84 @@ -17717,9 +18294,9 @@ state 1122 is_opt go to state 1291 -state 1123 +State 1123 - 536 record_is_are: RECORDS . are_opt + 536 record_is_are: RECORDS • are_opt ARE shift, and go to state 1130 @@ -17728,18 +18305,18 @@ state 1123 are_opt go to state 1292 -state 1124 +State 1124 - 504 file_description_clause_data: DATA record_is_are . var_strings + 504 file_description_clause_data: DATA record_is_are • var_strings STRING shift, and go to state 1293 var_strings go to state 1294 -state 1125 +State 1125 - 502 file_description_clause_label: LABEL record_is_are . std_or_omitt + 502 file_description_clause_label: LABEL record_is_are • std_or_omitt OMITTED shift, and go to state 1295 STANDARD shift, and go to state 1296 @@ -17747,9 +18324,9 @@ state 1125 std_or_omitt go to state 1297 -state 1126 +State 1126 - 507 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 + 507 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 STRING shift, and go to state 1298 NLITERAL shift, and go to state 59 @@ -17762,16 +18339,16 @@ state 1126 data_name go to state 1300 -state 1127 +State 1127 - 501 file_description_clause_record: RECORD is_opt . VARYING in_opt size_opt from_rec_varying to_rec_varying character_opts depend_rec_varying + 501 file_description_clause_record: RECORD is_opt • VARYING in_opt size_opt from_rec_varying to_rec_varying character_opts depend_rec_varying VARYING shift, and go to state 1301 -state 1128 +State 1128 - 500 file_description_clause_record: RECORD contains_opt . integer to_rec_varying character_opts + 500 file_description_clause_record: RECORD contains_opt • integer to_rec_varying character_opts NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -17781,37 +18358,37 @@ state 1128 integer go to state 1302 -state 1129 +State 1129 - 518 report_is_are: REPORT is_opt . + 518 report_is_are: REPORT is_opt • $default reduce using rule 518 (report_is_are) -state 1130 +State 1130 - 133 are_opt: ARE . + 133 are_opt: ARE • $default reduce using rule 133 (are_opt) -state 1131 +State 1131 - 519 report_is_are: REPORTS are_opt . + 519 report_is_are: REPORTS are_opt • $default reduce using rule 519 (report_is_are) -state 1132 +State 1132 - 503 file_description_clause_value: VALUE OF . FILE_ID is_opt filename + 503 file_description_clause_value: VALUE OF • FILE_ID is_opt filename FILE_ID shift, and go to state 1303 -state 1133 +State 1133 - 419 file_section: file_section FD $@38 STRING $@39 file_description_fd_clauses PERIOD_TOK $@40 . file_description + 419 file_section: file_section FD $@38 STRING $@39 file_description_fd_clauses PERIOD_TOK $@40 • file_description NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -17823,30 +18400,30 @@ state 1133 integer go to state 235 -state 1134 +State 1134 - 487 file_description_fd_clause: is_opt EXTERNAL . + 487 file_description_fd_clause: is_opt EXTERNAL • $default reduce using rule 487 (file_description_fd_clause) -state 1135 +State 1135 - 488 file_description_fd_clause: is_opt GLOBAL . + 488 file_description_fd_clause: is_opt GLOBAL • $default reduce using rule 488 (file_description_fd_clause) -state 1136 +State 1136 - 505 file_description_clause_report: report_is_are STRING . + 505 file_description_clause_report: report_is_are STRING • $default reduce using rule 505 (file_description_clause_report) -state 1137 +State 1137 - 423 file_section: file_section SD $@41 STRING $@42 file_description_sd_clauses PERIOD_TOK $@43 . file_description + 423 file_section: file_section SD $@41 STRING $@42 file_description_sd_clauses PERIOD_TOK $@43 • file_description NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -17858,45 +18435,45 @@ state 1137 integer go to state 235 -state 1138 +State 1138 - 544 when_opt: WHEN . + 544 when_opt: WHEN • $default reduce using rule 544 (when_opt) -state 1139 +State 1139 - 446 data_clause: BLANK when_opt . ZERO + 446 data_clause: BLANK when_opt • ZERO ZERO shift, and go to state 1307 -state 1140 +State 1140 - 450 sync_options: LEFT . + 450 sync_options: LEFT • $default reduce using rule 450 (sync_options) -state 1141 +State 1141 - 451 sync_options: RIGHT . + 451 sync_options: RIGHT • $default reduce using rule 451 (sync_options) -state 1142 +State 1142 - 443 data_clause: JUSTIFIED sync_options . + 443 data_clause: JUSTIFIED sync_options • $default reduce using rule 443 (data_clause) -state 1143 +State 1143 - 455 array_options: OCCURS integer . times_opt $@47 indexed_by_opt - 458 | OCCURS integer . TO integer times_opt DEPENDING $@48 on_opt gname $@49 indexed_by_opt + 455 array_options: OCCURS integer • times_opt $@47 indexed_by_opt + 458 | OCCURS integer • TO integer times_opt DEPENDING $@48 on_opt gname $@49 indexed_by_opt TO shift, and go to state 1308 TIMES shift, and go to state 1309 @@ -17906,9 +18483,9 @@ state 1143 times_opt go to state 1310 -state 1144 +State 1144 - 477 pictures: PICTURE $@50 . is_opt picture + 477 pictures: PICTURE $@50 • is_opt picture IS shift, and go to state 84 @@ -17918,9 +18495,9 @@ state 1144 is_opt go to state 1311 -state 1145 +State 1145 - 434 redefines_clause: REDEFINES $@45 . redefines_var + 434 redefines_clause: REDEFINES $@45 • redefines_var VARIABLE shift, and go to state 1312 SUBSCVAR shift, and go to state 1313 @@ -17928,9 +18505,9 @@ state 1145 redefines_var go to state 1314 -state 1146 +State 1146 - 448 data_clause: RENAMES $@46 . variable thru_gname_opt + 448 data_clause: RENAMES $@46 • variable thru_gname_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -17940,51 +18517,51 @@ state 1146 unqualified_var go to state 81 -state 1147 +State 1147 - 407 sign_is_opt: SIGN is_opt . + 407 sign_is_opt: SIGN is_opt • $default reduce using rule 407 (sign_is_opt) -state 1148 +State 1148 - 442 data_clause: SYNCHRONIZED sync_options . + 442 data_clause: SYNCHRONIZED sync_options • $default reduce using rule 442 (data_clause) -state 1149 +State 1149 - 470 value_is_are: VALUE is_opt . + 470 value_is_are: VALUE is_opt • $default reduce using rule 470 (value_is_are) -state 1150 +State 1150 - 471 value_is_are: VALUES are_opt . + 471 value_is_are: VALUES are_opt • $default reduce using rule 471 (value_is_are) -state 1151 +State 1151 - 444 data_clause: is_opt EXTERNAL . + 444 data_clause: is_opt EXTERNAL • $default reduce using rule 444 (data_clause) -state 1152 +State 1152 - 445 data_clause: is_opt GLOBAL . + 445 data_clause: is_opt GLOBAL • $default reduce using rule 445 (data_clause) -state 1153 +State 1153 - 401 sign_clause: sign_is_opt LEADING . separate_opt + 401 sign_clause: sign_is_opt LEADING • separate_opt SEPARATE shift, and go to state 1316 @@ -17993,9 +18570,9 @@ state 1153 separate_opt go to state 1317 -state 1154 +State 1154 - 402 sign_clause: sign_is_opt TRAILING . separate_opt + 402 sign_clause: sign_is_opt TRAILING • separate_opt SEPARATE shift, and go to state 1316 @@ -18004,10 +18581,10 @@ state 1154 separate_opt go to state 1318 -state 1155 +State 1155 - 469 value_option: value_is_are value_list . - 473 value_list: value_list . comma_opt value + 469 value_option: value_is_are value_list • + 473 value_list: value_list • comma_opt value ',' shift, and go to state 190 @@ -18026,26 +18603,26 @@ state 1155 comma_opt go to state 1319 -state 1156 +State 1156 - 472 value_list: value . + 472 value_list: value • $default reduce using rule 472 (value_list) -state 1157 +State 1157 - 474 value: gliteral . - 475 | gliteral . THRU gliteral + 474 value: gliteral • + 475 | gliteral • THRU gliteral THRU shift, and go to state 1320 $default reduce using rule 474 (value) -state 1158 +State 1158 - 465 usage_option: usage_opt is_opt . usage + 465 usage_option: usage_opt is_opt • usage USAGENUM shift, and go to state 1321 DISPLAY shift, and go to state 1322 @@ -18054,10 +18631,10 @@ state 1158 usage go to state 1324 -state 1159 +State 1159 - 194 report_section: RD $@15 STRING $@16 report_controls . PERIOD_TOK $@17 report_description - 196 report_controls: report_controls . report_control + 194 report_section: RD $@15 STRING $@16 report_controls • PERIOD_TOK $@17 report_description + 196 report_controls: report_controls • report_control IS shift, and go to state 84 CODE shift, and go to state 1325 @@ -18075,32 +18652,32 @@ state 1159 control_is_are go to state 1334 -state 1160 +State 1160 - 325 screen_item: integer def_name_opt $@28 . screen_clauses PERIOD_TOK + 325 screen_item: integer def_name_opt $@28 • screen_clauses PERIOD_TOK $default reduce using rule 342 (screen_clauses) screen_clauses go to state 1335 -state 1161 +State 1161 - 589 use_phrase_exception_error: STANDARD ERROR_TOK . + 589 use_phrase_exception_error: STANDARD ERROR_TOK • $default reduce using rule 589 (use_phrase_exception_error) -state 1162 +State 1162 - 588 use_phrase_exception_error: STANDARD EXCEPTION . + 588 use_phrase_exception_error: STANDARD EXCEPTION • $default reduce using rule 588 (use_phrase_exception_error) -state 1163 +State 1163 - 584 use_phrase: USE AFTER use_phrase_exception_error PROCEDURE . on_opt use_phrase_option PERIOD_TOK + 584 use_phrase: USE AFTER use_phrase_exception_error PROCEDURE • on_opt use_phrase_option PERIOD_TOK ON shift, and go to state 620 @@ -18109,11 +18686,11 @@ state 1163 on_opt go to state 1336 -state 1164 +State 1164 - 900 read_body: name read_next_opt record_opt read_into_opt with_lock_opt . read_key_opt - 901 | name read_next_opt record_opt read_into_opt with_lock_opt . read_key_opt read_at_end_opt - 902 | name read_next_opt record_opt read_into_opt with_lock_opt . read_key_opt read_invalid_key_opt + 900 read_body: name read_next_opt record_opt read_into_opt with_lock_opt • read_key_opt + 901 | name read_next_opt record_opt read_into_opt with_lock_opt • read_key_opt read_at_end_opt + 902 | name read_next_opt record_opt read_into_opt with_lock_opt • read_key_opt read_invalid_key_opt KEY shift, and go to state 1337 @@ -18122,18 +18699,18 @@ state 1164 read_key_opt go to state 1338 -state 1165 +State 1165 - 891 with_lock_opt: with_opt . LOCK - 892 | with_opt . IGNORE LOCK + 891 with_lock_opt: with_opt • LOCK + 892 | with_opt • IGNORE LOCK IGNORE shift, and go to state 750 LOCK shift, and go to state 751 -state 1166 +State 1166 - 934 write_statement: WRITE name write_from_opt write_options $@101 invalid_key_opt . end_write_opt + 934 write_statement: WRITE name write_from_opt write_options $@101 invalid_key_opt • end_write_opt END_WRITE shift, and go to state 1339 @@ -18143,16 +18720,16 @@ state 1166 end_write_opt go to state 1340 -state 1167 +State 1167 - 939 write_options: before_after advancing_opt PAGE . + 939 write_options: before_after advancing_opt PAGE • $default reduce using rule 939 (write_options) -state 1168 +State 1168 - 938 write_options: before_after advancing_opt gname . line_lines_opt + 938 write_options: before_after advancing_opt gname • line_lines_opt LINE shift, and go to state 1341 LINES shift, and go to state 1342 @@ -18163,28 +18740,28 @@ state 1168 lines_opt go to state 1344 -state 1169 +State 1169 - 830 accept_hardware: ACCEPT name FROM ENVIRONMENT_VARIABLE CLITERAL end_accept_opt . + 830 accept_hardware: ACCEPT name FROM ENVIRONMENT_VARIABLE CLITERAL end_accept_opt • $default reduce using rule 830 (accept_hardware) -state 1170 +State 1170 - 827 accept_hardware: ACCEPT name FROM INPUT STATUS end_accept_opt . + 827 accept_hardware: ACCEPT name FROM INPUT STATUS end_accept_opt • $default reduce using rule 827 (accept_hardware) -state 1171 +State 1171 - 858 scr_position: COLUMN number_opt expr . - 1114 expr: expr . '*' expr - 1115 | expr . '/' expr - 1116 | expr . '+' expr - 1117 | expr . '-' expr - 1118 | expr . POW_OP expr + 858 scr_position: COLUMN number_opt expr • + 1114 expr: expr • '*' expr + 1115 | expr • '/' expr + 1116 | expr • '+' expr + 1117 | expr • '-' expr + 1118 | expr • POW_OP expr '+' shift, and go to state 593 '-' shift, and go to state 594 @@ -18195,14 +18772,14 @@ state 1171 $default reduce using rule 858 (scr_position) -state 1172 +State 1172 - 857 scr_line: LINE number_opt expr . - 1114 expr: expr . '*' expr - 1115 | expr . '/' expr - 1116 | expr . '+' expr - 1117 | expr . '-' expr - 1118 | expr . POW_OP expr + 857 scr_line: LINE number_opt expr • + 1114 expr: expr • '*' expr + 1115 | expr • '/' expr + 1116 | expr • '+' expr + 1117 | expr • '-' expr + 1118 | expr • POW_OP expr '+' shift, and go to state 593 '-' shift, and go to state 594 @@ -18213,100 +18790,100 @@ state 1172 $default reduce using rule 857 (scr_line) -state 1173 +State 1173 - 400 screen_attribx: BACKGROUNDCOLOR integer . + 400 screen_attribx: BACKGROUNDCOLOR integer • $default reduce using rule 400 (screen_attribx) -state 1174 +State 1174 - 376 screen_attribx: BLANK LINE . + 376 screen_attribx: BLANK LINE • $default reduce using rule 376 (screen_attribx) -state 1175 +State 1175 - 375 screen_attribx: BLANK SCREEN . + 375 screen_attribx: BLANK SCREEN • $default reduce using rule 375 (screen_attribx) -state 1176 +State 1176 - 393 screen_attribx: BLANK when_opt . ZERO + 393 screen_attribx: BLANK when_opt • ZERO ZERO shift, and go to state 1345 -state 1177 +State 1177 - 377 screen_attribx: ERASE EOL . + 377 screen_attribx: ERASE EOL • $default reduce using rule 377 (screen_attribx) -state 1178 +State 1178 - 378 screen_attribx: ERASE EOS . + 378 screen_attribx: ERASE EOS • $default reduce using rule 378 (screen_attribx) -state 1179 +State 1179 - 399 screen_attribx: FOREGROUNDCOLOR integer . + 399 screen_attribx: FOREGROUNDCOLOR integer • $default reduce using rule 399 (screen_attribx) -state 1180 +State 1180 - 387 screen_attribx: JUSTIFIED LEFT . + 387 screen_attribx: JUSTIFIED LEFT • $default reduce using rule 387 (screen_attribx) -state 1181 +State 1181 - 386 screen_attribx: JUSTIFIED RIGHT . + 386 screen_attribx: JUSTIFIED RIGHT • $default reduce using rule 386 (screen_attribx) -state 1182 +State 1182 - 396 screen_attribx: with_opt NO . ADVANCING + 396 screen_attribx: with_opt NO • ADVANCING ADVANCING shift, and go to state 1346 -state 1183 +State 1183 - 380 screen_attribx: with_opt BELL . + 380 screen_attribx: with_opt BELL • $default reduce using rule 380 (screen_attribx) -state 1184 +State 1184 - 394 screen_attribx: with_opt NOECHO . + 394 screen_attribx: with_opt NOECHO • $default reduce using rule 394 (screen_attribx) -state 1185 +State 1185 - 395 screen_attribx: with_opt UPDATE . + 395 screen_attribx: with_opt UPDATE • $default reduce using rule 395 (screen_attribx) -state 1186 +State 1186 - 836 accept_screen: ACCEPT name accept_display_options on_opt EXCEPTION $@93 . variable @94 statement_list $@95 end_accept_opt + 836 accept_screen: ACCEPT name accept_display_options on_opt EXCEPTION $@93 • variable @94 statement_list $@95 end_accept_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -18316,9 +18893,9 @@ state 1186 unqualified_var go to state 81 -state 1187 +State 1187 - 795 add_body: CORRESPONDING var_list_gname TO var_list_name rounded_opt . on_size_error_opt + 795 add_body: CORRESPONDING var_list_gname TO var_list_name rounded_opt • on_size_error_opt NOT shift, and go to state 985 ON shift, and go to state 620 @@ -18331,33 +18908,33 @@ state 1187 on_opt go to state 987 -state 1188 +State 1188 - 998 on_size_error_opt: NOT on_opt . SIZE on_size_error + 998 on_size_error_opt: NOT on_opt • SIZE on_size_error SIZE shift, and go to state 1349 -state 1189 +State 1189 - 999 on_size_error_opt: on_opt SIZE . on_size_error - 1001 | on_opt SIZE . on_size_error NOT on_opt SIZE $@115 on_size_error + 999 on_size_error_opt: on_opt SIZE • on_size_error + 1001 | on_opt SIZE • on_size_error NOT on_opt SIZE $@115 on_size_error ERROR_TOK shift, and go to state 1350 on_size_error go to state 1351 -state 1190 +State 1190 - 794 add_body: var_list_gname add_to_opt GIVING var_list_name on_size_error_opt . + 794 add_body: var_list_gname add_to_opt GIVING var_list_name on_size_error_opt • $default reduce using rule 794 (add_body) -state 1191 +State 1191 - 1128 returning_options: GIVING . variable + 1128 returning_options: GIVING • variable VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -18367,9 +18944,9 @@ state 1191 unqualified_var go to state 81 -state 1192 +State 1192 - 1127 returning_options: RETURNING . variable + 1127 returning_options: RETURNING • variable VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -18379,27 +18956,27 @@ state 1192 unqualified_var go to state 81 -state 1193 +State 1193 - 967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options . @106 @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt + 967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options • @106 @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt $default reduce using rule 963 (@106) @106 go to state 1354 -state 1194 +State 1194 - 1125 using_options: USING @127 dummy . @128 parm_list + 1125 using_options: USING @127 dummy • @128 parm_list $default reduce using rule 1124 (@128) @128 go to state 1355 -state 1195 +State 1195 - 981 chain_statement: CHAIN $@111 gname using_options @112 @113 . on_exception_or_overflow $@114 end_chain_opt + 981 chain_statement: CHAIN $@111 gname using_options @112 @113 • on_exception_or_overflow $@114 end_chain_opt ON shift, and go to state 620 @@ -18411,33 +18988,33 @@ state 1195 on_opt go to state 1357 -state 1196 +State 1196 - 949 end_delete_opt: END_DELETE . + 949 end_delete_opt: END_DELETE • $default reduce using rule 949 (end_delete_opt) -state 1197 +State 1197 - 947 delete_statement: DELETE name record_opt $@103 invalid_key_opt end_delete_opt . + 947 delete_statement: DELETE name record_opt $@103 invalid_key_opt end_delete_opt • $default reduce using rule 947 (delete_statement) -state 1198 +State 1198 - 850 display_line_options: display_line_options with_opt NO . ADVANCING + 850 display_line_options: display_line_options with_opt NO • ADVANCING ADVANCING shift, and go to state 1358 -state 1199 +State 1199 - 851 display_line_options: display_line_options with_opt ERASE . - 852 | display_line_options with_opt ERASE . EOS - 853 | display_line_options with_opt ERASE . EOL - 854 | display_line_options with_opt ERASE . SCREEN + 851 display_line_options: display_line_options with_opt ERASE • + 852 | display_line_options with_opt ERASE • EOS + 853 | display_line_options with_opt ERASE • EOL + 854 | display_line_options with_opt ERASE • SCREEN EOL shift, and go to state 1359 EOS shift, and go to state 1360 @@ -18446,10 +19023,10 @@ state 1199 $default reduce using rule 851 (display_line_options) -state 1200 +State 1200 - 815 divide_body: gname BY gname GIVING var_list_name . on_size_error_opt - 992 var_list_name: var_list_name . name rounded_opt sep_opt + 815 divide_body: gname BY gname GIVING var_list_name • on_size_error_opt + 992 var_list_name: var_list_name • name rounded_opt sep_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -18469,10 +19046,10 @@ state 1200 unqualified_var go to state 81 -state 1201 +State 1201 - 816 divide_body: gname BY gname GIVING name . rounded_opt REMAINDER name on_size_error_opt - 991 var_list_name: name . rounded_opt sep_opt + 816 divide_body: gname BY gname GIVING name • rounded_opt REMAINDER name on_size_error_opt + 991 var_list_name: name • rounded_opt sep_opt ROUNDED shift, and go to state 568 @@ -18481,10 +19058,10 @@ state 1201 rounded_opt go to state 1363 -state 1202 +State 1202 - 818 divide_body: gname INTO gname GIVING var_list_name . on_size_error_opt - 992 var_list_name: var_list_name . name rounded_opt sep_opt + 818 divide_body: gname INTO gname GIVING var_list_name • on_size_error_opt + 992 var_list_name: var_list_name • name rounded_opt sep_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -18504,10 +19081,10 @@ state 1202 unqualified_var go to state 81 -state 1203 +State 1203 - 817 divide_body: gname INTO gname GIVING name . rounded_opt REMAINDER name on_size_error_opt - 991 var_list_name: name . rounded_opt sep_opt + 817 divide_body: gname INTO gname GIVING name • rounded_opt REMAINDER name on_size_error_opt + 991 var_list_name: name • rounded_opt sep_opt ROUNDED shift, and go to state 568 @@ -18516,88 +19093,88 @@ state 1203 rounded_opt go to state 1365 -state 1204 +State 1204 - 658 selection_subject_set: selection_subject_set ALSO @65 selection_subject . + 658 selection_subject_set: selection_subject_set ALSO @65 selection_subject • $default reduce using rule 658 (selection_subject_set) -state 1205 +State 1205 - 665 when_case_list: WHEN @66 . @67 when_case sentence_or_nothing + 665 when_case_list: WHEN @66 • @67 when_case sentence_or_nothing $default reduce using rule 664 (@67) @67 go to state 1366 -state 1206 +State 1206 - 653 end_evaluate_or_eos: END_EVALUATE . + 653 end_evaluate_or_eos: END_EVALUATE • $default reduce using rule 653 (end_evaluate_or_eos) -state 1207 +State 1207 - 669 when_case_list: when_case_list WHEN . @68 @69 when_case $@70 sentence_or_nothing + 669 when_case_list: when_case_list WHEN • @68 @69 when_case $@70 sentence_or_nothing $default reduce using rule 666 (@68) @68 go to state 1367 -state 1208 +State 1208 - 654 end_evaluate_or_eos: PERIOD_TOK . + 654 end_evaluate_or_eos: PERIOD_TOK • $default reduce using rule 654 (end_evaluate_or_eos) -state 1209 +State 1209 - 652 evaluate_statement: EVALUATE @62 selection_subject_set $@63 when_case_list end_evaluate_or_eos . + 652 evaluate_statement: EVALUATE @62 selection_subject_set $@63 when_case_list end_evaluate_or_eos • $default reduce using rule 652 (evaluate_statement) -state 1210 +State 1210 - 957 goto_statement: GO to_opt goto_label_list DEPENDING on_opt variable . + 957 goto_statement: GO to_opt goto_label_list DEPENDING on_opt variable • $default reduce using rule 957 (goto_statement) -state 1211 +State 1211 - 1283 cond_name: VARCOND '(' $@146 subscripts ')' . + 1283 cond_name: VARCOND '(' $@146 subscripts ')' • $default reduce using rule 1283 (cond_name) -state 1212 +State 1212 - 1201 extended_cond_op: IS ext_cond OR ext_cond . + 1201 extended_cond_op: IS ext_cond OR ext_cond • $default reduce using rule 1201 (extended_cond_op) -state 1213 +State 1213 - 1209 cond_op: NOT conditional . + 1209 cond_op: NOT conditional • $default reduce using rule 1209 (cond_op) -state 1214 +State 1214 - 1114 expr: expr . '*' expr - 1115 | expr . '/' expr - 1116 | expr . '+' expr - 1117 | expr . '-' expr - 1118 | expr . POW_OP expr - 1190 implied_op_condition: cond_op expr . + 1114 expr: expr • '*' expr + 1115 | expr • '/' expr + 1116 | expr • '+' expr + 1117 | expr • '-' expr + 1118 | expr • POW_OP expr + 1190 implied_op_condition: cond_op expr • '+' shift, and go to state 593 '-' shift, and go to state 594 @@ -18608,18 +19185,18 @@ state 1214 $default reduce using rule 1190 (implied_op_condition) -state 1215 +State 1215 - 1210 cond_op: conditional OR . conditional + 1210 cond_op: conditional OR • conditional CONDITIONAL shift, and go to state 591 conditional go to state 1368 -state 1216 +State 1216 - 780 initialize_replacing_list: initialize_type_list data_opt BY . gname + 780 initialize_replacing_list: initialize_type_list data_opt BY • gname VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -18649,29 +19226,29 @@ state 1216 unqualified_var go to state 81 -state 1217 +State 1217 - 1088 converting_clause: CONVERTING noallname TO noallname . inspect_before_after + 1088 converting_clause: CONVERTING noallname TO noallname • inspect_before_after $default reduce using rule 1110 (inspect_before_after) inspect_before_after go to state 1370 -state 1218 +State 1218 - 1091 tallying_list: tallying_list name FOR . tallying_for_list + 1091 tallying_list: tallying_list name FOR • tallying_for_list $default reduce using rule 1096 (tallying_for_list) tallying_for_list go to state 1371 -state 1219 +State 1219 - 1097 replacing_clause: REPLACING replacing_list . - 1099 replacing_list: replacing_list . CHARACTERS BY noallname inspect_before_after - 1100 | replacing_list . replacing_kind replacing_by_list + 1097 replacing_clause: REPLACING replacing_list • + 1099 replacing_list: replacing_list • CHARACTERS BY noallname inspect_before_after + 1100 | replacing_list • replacing_kind replacing_by_list ALL shift, and go to state 1372 CHARACTERS shift, and go to state 1373 @@ -18684,19 +19261,19 @@ state 1219 replacing_kind go to state 1377 -state 1220 +State 1220 - 740 merge_statement: MERGE name sort_keys $@86 sort_collating_opt $@87 . merge_using $@88 sort_output + 740 merge_statement: MERGE name sort_keys $@86 sort_collating_opt $@87 • merge_using $@88 sort_output USING shift, and go to state 1378 merge_using go to state 1379 -state 1221 +State 1221 - 754 sort_key: on_opt DIRECTION key_opt sort_keys_names . - 757 sort_keys_names: sort_keys_names . name + 754 sort_key: on_opt DIRECTION key_opt sort_keys_names • + 757 sort_keys_names: sort_keys_names • name VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -18710,31 +19287,31 @@ state 1221 unqualified_var go to state 81 -state 1222 +State 1222 - 756 sort_keys_names: name . + 756 sort_keys_names: name • $default reduce using rule 756 (sort_keys_names) -state 1223 +State 1223 - 772 move_statement: MOVE LENGTH OF gname TO name_var . + 772 move_statement: MOVE LENGTH OF gname TO name_var • $default reduce using rule 772 (move_statement) -state 1224 +State 1224 - 1242 name_var_list: name_var_list sep_opt name_var . + 1242 name_var_list: name_var_list sep_opt name_var • $default reduce using rule 1242 (name_var_list) -state 1225 +State 1225 - 809 multiply_body: gname BY gname GIVING var_list_name . on_size_error_opt - 992 var_list_name: var_list_name . name rounded_opt sep_opt + 809 multiply_body: gname BY gname GIVING var_list_name • on_size_error_opt + 992 var_list_name: var_list_name • name rounded_opt sep_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -18754,9 +19331,9 @@ state 1225 unqualified_var go to state 81 -state 1226 +State 1226 - 1151 perform_options: with_test_opt UNTIL @131 condition @132 . perform_statements $@133 END_PERFORM + 1151 perform_options: with_test_opt UNTIL @131 condition @132 • perform_statements $@133 END_PERFORM $default reduce using rule 1176 ($@141) @@ -18764,9 +19341,9 @@ state 1226 $@141 go to state 450 -state 1227 +State 1227 - 1155 perform_options: with_test_opt VARYING name FROM gname . by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM + 1155 perform_options: with_test_opt VARYING name FROM gname • by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM BY shift, and go to state 854 @@ -18775,16 +19352,16 @@ state 1227 by_opt go to state 1383 -state 1228 +State 1228 - 1147 perform_options: gname TIMES @129 perform_statements $@130 . END_PERFORM + 1147 perform_options: gname TIMES @129 perform_statements $@130 • END_PERFORM END_PERFORM shift, and go to state 1384 -state 1229 +State 1229 - 1158 perform_options: label perform_thru_opt with_test_opt UNTIL @137 . condition + 1158 perform_options: label perform_thru_opt with_test_opt UNTIL @137 • condition VARIABLE shift, and go to state 56 VARCOND shift, and go to state 422 @@ -18794,11 +19371,11 @@ state 1229 CLITERAL shift, and go to state 60 '+' shift, and go to state 61 '-' shift, and go to state 62 - NOT shift, and go to state 423 ALL shift, and go to state 63 FUNCTION shift, and go to state 64 HIGHVALUES shift, and go to state 65 LOWVALUES shift, and go to state 66 + NOT shift, and go to state 423 QUOTES shift, and go to state 67 SPACES shift, and go to state 68 ZERO shift, and go to state 69 @@ -18820,36 +19397,27 @@ state 1229 unqualified_var go to state 81 -state 1230 +State 1230 - 1162 perform_options: label perform_thru_opt with_test_opt VARYING name . FROM gname by_opt gname UNTIL @138 condition @139 perform_after_opt + 1162 perform_options: label perform_thru_opt with_test_opt VARYING name • FROM gname by_opt gname UNTIL @138 condition @139 perform_after_opt FROM shift, and go to state 1386 -state 1231 +State 1231 - 910 read_at_end_opt: NOT at_opt . on_end + 911 read_at_end_opt: AT on_end • + 914 | AT on_end • NOT at_opt $@96 on_end - END shift, and go to state 1050 - - on_end go to state 1387 - - -state 1232 - - 911 read_at_end_opt: AT on_end . - 914 | AT on_end . NOT at_opt $@96 on_end - - NOT shift, and go to state 1388 + NOT shift, and go to state 1387 NOT [reduce using rule 911 (read_at_end_opt)] $default reduce using rule 911 (read_at_end_opt) -state 1233 +State 1232 - 918 on_end: END @98 . statement_list + 918 on_end: END @98 • statement_list READ shift, and go to state 254 WRITE shift, and go to state 255 @@ -18897,7 +19465,7 @@ state 1233 UNLOCK shift, and go to state 297 UNSTRING shift, and go to state 298 - statement_list go to state 1389 + statement_list go to state 1388 statements go to state 640 statement go to state 300 perform_statement go to state 301 @@ -18952,9 +19520,18 @@ state 1233 inspect_statement go to state 350 -state 1234 +State 1233 - 916 read_at_end_opt: on_end NOT . at_opt $@97 on_end + 910 read_at_end_opt: NOT at_opt • on_end + + END shift, and go to state 1049 + + on_end go to state 1389 + + +State 1234 + + 916 read_at_end_opt: on_end NOT • at_opt $@97 on_end AT shift, and go to state 1054 @@ -18963,23 +19540,23 @@ state 1234 at_opt go to state 1390 -state 1235 +State 1235 - 945 end_rewrite_opt: END_REWRITE . + 945 end_rewrite_opt: END_REWRITE • $default reduce using rule 945 (end_rewrite_opt) -state 1236 +State 1236 - 943 rewrite_statement: REWRITE name write_from_opt $@102 invalid_key_opt end_rewrite_opt . + 943 rewrite_statement: REWRITE name write_from_opt $@102 invalid_key_opt end_rewrite_opt • $default reduce using rule 943 (rewrite_statement) -state 1237 +State 1237 - 701 search_all: variable_indexed @79 search_at_end $@80 . search_all_when_list + 701 search_all: variable_indexed @79 search_at_end $@80 • search_all_when_list WHEN shift, and go to state 1391 @@ -18987,55 +19564,55 @@ state 1237 search_all_when go to state 1393 -state 1238 +State 1238 - 705 search_at_end: at_opt END . @81 statement_list + 705 search_at_end: at_opt END • @81 statement_list $default reduce using rule 704 (@81) @81 go to state 1394 -state 1239 +State 1239 - 698 search: variable_indexed @76 search_varying_opt @77 search_at_end . @78 search_when_list + 698 search: variable_indexed @76 search_varying_opt @77 search_at_end • @78 search_when_list $default reduce using rule 697 (@78) @78 go to state 1395 -state 1240 +State 1240 - 1018 set_variable: NULL_TOK . + 1018 set_variable: NULL_TOK • $default reduce using rule 1018 (set_variable) -state 1241 +State 1241 - 1014 set_list: address_of_opt variable TO address_of_opt set_variable . + 1014 set_list: address_of_opt variable TO address_of_opt set_variable • $default reduce using rule 1014 (set_list) -state 1242 +State 1242 - 1017 set_variable: variable . + 1017 set_variable: variable • $default reduce using rule 1017 (set_variable) -state 1243 +State 1243 - 749 sort_variable_indexed: SORT variable_indexed sort_keys_idx $@92 sort_duplicates_opt sort_collating_opt . + 749 sort_variable_indexed: SORT variable_indexed sort_keys_idx $@92 sort_duplicates_opt sort_collating_opt • $default reduce using rule 749 (sort_variable_indexed) -state 1244 +State 1244 - 761 sort_duplicates_opt: with_opt DUPLICATES . in_opt order_opt + 761 sort_duplicates_opt: with_opt DUPLICATES • in_opt order_opt IN shift, and go to state 1396 @@ -19044,10 +19621,10 @@ state 1244 in_opt go to state 1397 -state 1245 +State 1245 - 755 sort_key_idx: on_opt DIRECTION key_opt sort_keys_names_idx . - 759 sort_keys_names_idx: sort_keys_names_idx . variable_indexed + 755 sort_key_idx: on_opt DIRECTION key_opt sort_keys_names_idx • + 759 sort_keys_names_idx: sort_keys_names_idx • variable_indexed SUBSCVAR shift, and go to state 459 @@ -19056,32 +19633,32 @@ state 1245 variable_indexed go to state 1398 -state 1246 +State 1246 - 758 sort_keys_names_idx: variable_indexed . + 758 sort_keys_names_idx: variable_indexed • $default reduce using rule 758 (sort_keys_names_idx) -state 1247 +State 1247 - 747 sort_file: SORT name sort_keys $@89 sort_duplicates_opt sort_collating_opt . $@90 sort_input $@91 sort_output + 747 sort_file: SORT name sort_keys $@89 sort_duplicates_opt sort_collating_opt • $@90 sort_input $@91 sort_output $default reduce using rule 745 ($@90) $@90 go to state 1399 -state 1248 +State 1248 - 1066 invalid_key_sentence: INVALID key_opt @124 statement_list . + 1066 invalid_key_sentence: INVALID key_opt @124 statement_list • $default reduce using rule 1066 (invalid_key_sentence) -state 1249 +State 1249 - 1068 not_invalid_key_sentence: not_excep INVALID key_opt @125 . statement_list + 1068 not_invalid_key_sentence: not_excep INVALID key_opt @125 • statement_list READ shift, and go to state 254 WRITE shift, and go to state 255 @@ -19184,16 +19761,16 @@ state 1249 inspect_statement go to state 350 -state 1250 +State 1250 - 953 start_body: name KEY is_opt cond_op name . + 953 start_body: name KEY is_opt cond_op name • $default reduce using rule 953 (start_body) -state 1251 +State 1251 - 1027 string_statement: STRINGCMD string_from_list INTO name string_with_pointer $@117 . on_overflow_opt end_stringcmd_opt + 1027 string_statement: STRINGCMD string_from_list INTO name string_with_pointer $@117 • on_overflow_opt end_stringcmd_opt $default reduce using rule 1045 ($@119) @@ -19201,9 +19778,9 @@ state 1251 $@119 go to state 1402 -state 1252 +State 1252 - 1071 string_with_pointer: with_opt POINTER . name + 1071 string_with_pointer: with_opt POINTER • name VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -19215,9 +19792,9 @@ state 1252 unqualified_var go to state 81 -state 1253 +State 1253 - 804 subtract_body: CORRESPONDING var_list_gname FROM var_list_name rounded_opt . on_size_error_opt + 804 subtract_body: CORRESPONDING var_list_gname FROM var_list_name rounded_opt • on_size_error_opt NOT shift, and go to state 985 ON shift, and go to state 620 @@ -19230,10 +19807,10 @@ state 1253 on_opt go to state 987 -state 1254 +State 1254 - 803 subtract_body: var_list_gname FROM gname GIVING var_list_name . on_size_error_opt - 992 var_list_name: var_list_name . name rounded_opt sep_opt + 803 subtract_body: var_list_gname FROM gname GIVING var_list_name • on_size_error_opt + 992 var_list_name: var_list_name • name rounded_opt sep_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -19253,9 +19830,9 @@ state 1254 unqualified_var go to state 81 -state 1255 +State 1255 - 1033 unstring_delimited_vars: unstring_delimited_vars OR . all_opt gname + 1033 unstring_delimited_vars: unstring_delimited_vars OR • all_opt gname ALL shift, and go to state 1092 @@ -19265,16 +19842,16 @@ state 1255 all_opt go to state 1406 -state 1256 +State 1256 - 1032 unstring_delimited_vars: all_opt gname . + 1032 unstring_delimited_vars: all_opt gname • $default reduce using rule 1032 (unstring_delimited_vars) -state 1257 +State 1257 - 1029 unstring_statement: UNSTRING name unstring_delimited INTO unstring_destinations string_with_pointer . unstring_tallying $@118 on_overflow_opt end_unstring_opt + 1029 unstring_statement: UNSTRING name unstring_delimited INTO unstring_destinations string_with_pointer • unstring_tallying $@118 on_overflow_opt end_unstring_opt TALLYING shift, and go to state 1407 @@ -19283,9 +19860,9 @@ state 1257 unstring_tallying go to state 1408 -state 1258 +State 1258 - 1035 unstring_destinations: unstring_destinations sep_opt . unstring_dest_var + 1035 unstring_destinations: unstring_destinations sep_opt • unstring_dest_var VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -19298,9 +19875,9 @@ state 1258 unqualified_var go to state 81 -state 1259 +State 1259 - 1038 unstring_delim_opt: DELIMITER . in_opt name + 1038 unstring_delim_opt: DELIMITER • in_opt name IN shift, and go to state 1396 @@ -19309,9 +19886,9 @@ state 1259 in_opt go to state 1410 -state 1260 +State 1260 - 1036 unstring_dest_var: name unstring_delim_opt . unstring_count_opt + 1036 unstring_dest_var: name unstring_delim_opt • unstring_count_opt COUNT shift, and go to state 1411 @@ -19320,30 +19897,30 @@ state 1260 unstring_count_opt go to state 1412 -state 1261 +State 1261 - 647 if_statement: if_part ELSE @60 conditional_statement $@61 end_if_opt . + 647 if_statement: if_part ELSE @60 conditional_statement $@61 end_if_opt • $default reduce using rule 647 (if_statement) -state 1262 +State 1262 - 688 conditional_statement: $@75 NEXT SENTENCE . + 688 conditional_statement: $@75 NEXT SENTENCE • $default reduce using rule 688 (conditional_statement) -state 1263 +State 1263 - 75 switch_on_opt: ON status_opt is_opt . STRING + 75 switch_on_opt: ON status_opt is_opt • STRING STRING shift, and go to state 1413 -state 1264 +State 1264 - 77 switch_off_opt: OFF status_opt . is_opt STRING + 77 switch_off_opt: OFF status_opt • is_opt STRING IS shift, and go to state 84 @@ -19352,9 +19929,9 @@ state 1264 is_opt go to state 1414 -state 1265 +State 1265 - 108 select_clause: ACCESS mode_opt is_opt . access_options + 108 select_clause: ACCESS mode_opt is_opt • access_options STRING shift, and go to state 1280 LABELSTR shift, and go to state 1281 @@ -19366,9 +19943,9 @@ state 1265 anystring go to state 1419 -state 1266 +State 1266 - 112 select_clause: ALTERNATE RECORD key_opt . is_opt STRING with_duplicates + 112 select_clause: ALTERNATE RECORD key_opt • is_opt STRING with_duplicates IS shift, and go to state 84 @@ -19377,24 +19954,24 @@ state 1266 is_opt go to state 1420 -state 1267 +State 1267 - 123 assign_clause: error . + 123 assign_clause: error • $default reduce using rule 123 (assign_clause) -state 1268 +State 1268 - 1279 filename: STRING . + 1279 filename: STRING • $default reduce using rule 1279 (filename) -state 1269 +State 1269 - 119 assign_clause: PORTNUM . - 121 | PORTNUM . filename + 119 assign_clause: PORTNUM • + 121 | PORTNUM • filename STRING shift, and go to state 1268 NLITERAL shift, and go to state 59 @@ -19410,9 +19987,9 @@ state 1269 filename go to state 1421 -state 1270 +State 1270 - 122 assign_clause: EXTERNAL . filename + 122 assign_clause: EXTERNAL • filename STRING shift, and go to state 1268 NLITERAL shift, and go to state 59 @@ -19425,135 +20002,135 @@ state 1270 filename go to state 1422 -state 1271 +State 1271 - 107 select_clause: ASSIGN to_opt assign_clause . + 107 select_clause: ASSIGN to_opt assign_clause • $default reduce using rule 107 (select_clause) -state 1272 +State 1272 - 1278 filename: literal . + 1278 filename: literal • $default reduce using rule 1278 (filename) -state 1273 +State 1273 - 120 assign_clause: filename . + 120 assign_clause: filename • $default reduce using rule 120 (assign_clause) -state 1274 +State 1274 - 110 select_clause: RECORD key_opt is_opt . STRING + 110 select_clause: RECORD key_opt is_opt • STRING STRING shift, and go to state 1423 -state 1275 +State 1275 - 111 select_clause: RELATIVE key_opt is_opt . STRING + 111 select_clause: RELATIVE key_opt is_opt • STRING STRING shift, and go to state 1424 -state 1276 +State 1276 - 128 areas_opt: AREA . + 128 areas_opt: AREA • $default reduce using rule 128 (areas_opt) -state 1277 +State 1277 - 129 areas_opt: AREAS . + 129 areas_opt: AREAS • $default reduce using rule 129 (areas_opt) -state 1278 +State 1278 - 113 select_clause: RESERVE NLITERAL areas_opt . + 113 select_clause: RESERVE NLITERAL areas_opt • $default reduce using rule 113 (select_clause) -state 1279 +State 1279 - 109 select_clause: file_opt STATUS is_opt . STRING + 109 select_clause: file_opt STATUS is_opt • STRING STRING shift, and go to state 1425 -state 1280 +State 1280 - 1307 anystring: STRING . + 1307 anystring: STRING • $default reduce using rule 1307 (anystring) -state 1281 +State 1281 - 1308 anystring: LABELSTR . + 1308 anystring: LABELSTR • $default reduce using rule 1308 (anystring) -state 1282 +State 1282 - 137 organization_options: INDEXED . + 137 organization_options: INDEXED • $default reduce using rule 137 (organization_options) -state 1283 +State 1283 - 140 organization_options: LINE . SEQUENTIAL + 140 organization_options: LINE • SEQUENTIAL SEQUENTIAL shift, and go to state 1426 -state 1284 +State 1284 - 139 organization_options: RELATIVE . + 139 organization_options: RELATIVE • $default reduce using rule 139 (organization_options) -state 1285 +State 1285 - 138 organization_options: SEQUENTIAL . + 138 organization_options: SEQUENTIAL • $default reduce using rule 138 (organization_options) -state 1286 +State 1286 - 106 select_clause: organization_opt is_opt organization_options . + 106 select_clause: organization_opt is_opt organization_options • $default reduce using rule 106 (select_clause) -state 1287 +State 1287 - 141 organization_options: anystring . + 141 organization_options: anystring • $default reduce using rule 141 (organization_options) -state 1288 +State 1288 - 162 i_o_control_multiple_file_position_opt: POSITION integer . + 162 i_o_control_multiple_file_position_opt: POSITION integer • $default reduce using rule 162 (i_o_control_multiple_file_position_opt) -state 1289 +State 1289 - 499 file_description_clause_block: BLOCK contains_opt integer . to_integer_opt chars_or_recs_opt + 499 file_description_clause_block: BLOCK contains_opt integer • to_integer_opt chars_or_recs_opt TO shift, and go to state 1427 @@ -19562,82 +20139,82 @@ state 1289 to_integer_opt go to state 1428 -state 1290 +State 1290 - 506 file_description_clause_code_set: CODE_SET is_opt STRING . + 506 file_description_clause_code_set: CODE_SET is_opt STRING • $default reduce using rule 506 (file_description_clause_code_set) -state 1291 +State 1291 - 535 record_is_are: RECORD is_opt . + 535 record_is_are: RECORD is_opt • $default reduce using rule 535 (record_is_are) -state 1292 +State 1292 - 536 record_is_are: RECORDS are_opt . + 536 record_is_are: RECORDS are_opt • $default reduce using rule 536 (record_is_are) -state 1293 +State 1293 - 520 var_strings: STRING . + 520 var_strings: STRING • $default reduce using rule 520 (var_strings) -state 1294 +State 1294 - 504 file_description_clause_data: DATA record_is_are var_strings . - 521 var_strings: var_strings . STRING + 504 file_description_clause_data: DATA record_is_are var_strings • + 521 var_strings: var_strings • STRING STRING shift, and go to state 1429 $default reduce using rule 504 (file_description_clause_data) -state 1295 +State 1295 - 538 std_or_omitt: OMITTED . + 538 std_or_omitt: OMITTED • $default reduce using rule 538 (std_or_omitt) -state 1296 +State 1296 - 537 std_or_omitt: STANDARD . + 537 std_or_omitt: STANDARD • $default reduce using rule 537 (std_or_omitt) -state 1297 +State 1297 - 502 file_description_clause_label: LABEL record_is_are std_or_omitt . + 502 file_description_clause_label: LABEL record_is_are std_or_omitt • $default reduce using rule 502 (file_description_clause_label) -state 1298 +State 1298 - 1281 data_name: STRING . + 1281 data_name: STRING • $default reduce using rule 1281 (data_name) -state 1299 +State 1299 - 1280 data_name: literal . + 1280 data_name: literal • $default reduce using rule 1280 (data_name) -state 1300 +State 1300 - 507 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 + 507 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 LINES shift, and go to state 1342 @@ -19647,9 +20224,9 @@ state 1300 lines_opt go to state 1430 -state 1301 +State 1301 - 501 file_description_clause_record: RECORD is_opt VARYING . in_opt size_opt from_rec_varying to_rec_varying character_opts depend_rec_varying + 501 file_description_clause_record: RECORD is_opt VARYING • in_opt size_opt from_rec_varying to_rec_varying character_opts depend_rec_varying IN shift, and go to state 1396 @@ -19658,9 +20235,9 @@ state 1301 in_opt go to state 1431 -state 1302 +State 1302 - 500 file_description_clause_record: RECORD contains_opt integer . to_rec_varying character_opts + 500 file_description_clause_record: RECORD contains_opt integer • to_rec_varying character_opts TO shift, and go to state 1432 @@ -19669,9 +20246,9 @@ state 1302 to_rec_varying go to state 1433 -state 1303 +State 1303 - 503 file_description_clause_value: VALUE OF FILE_ID . is_opt filename + 503 file_description_clause_value: VALUE OF FILE_ID • is_opt filename IS shift, and go to state 84 @@ -19680,10 +20257,10 @@ state 1303 is_opt go to state 1434 -state 1304 +State 1304 - 419 file_section: file_section FD $@38 STRING $@39 file_description_fd_clauses PERIOD_TOK $@40 file_description . - 427 file_description: file_description . field_description + 419 file_section: file_section FD $@38 STRING $@39 file_description_fd_clauses PERIOD_TOK $@40 file_description • + 427 file_description: file_description • field_description NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -19696,17 +20273,17 @@ state 1304 integer go to state 235 -state 1305 +State 1305 - 426 file_description: field_description . + 426 file_description: field_description • $default reduce using rule 426 (file_description) -state 1306 +State 1306 - 423 file_section: file_section SD $@41 STRING $@42 file_description_sd_clauses PERIOD_TOK $@43 file_description . - 427 file_description: file_description . field_description + 423 file_section: file_section SD $@41 STRING $@42 file_description_sd_clauses PERIOD_TOK $@43 file_description • + 427 file_description: file_description • field_description NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -19719,16 +20296,16 @@ state 1306 integer go to state 235 -state 1307 +State 1307 - 446 data_clause: BLANK when_opt ZERO . + 446 data_clause: BLANK when_opt ZERO • $default reduce using rule 446 (data_clause) -state 1308 +State 1308 - 458 array_options: OCCURS integer TO . integer times_opt DEPENDING $@48 on_opt gname $@49 indexed_by_opt + 458 array_options: OCCURS integer TO • integer times_opt DEPENDING $@48 on_opt gname $@49 indexed_by_opt NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -19738,55 +20315,55 @@ state 1308 integer go to state 1436 -state 1309 +State 1309 - 542 times_opt: TIMES . + 542 times_opt: TIMES • $default reduce using rule 542 (times_opt) -state 1310 +State 1310 - 455 array_options: OCCURS integer times_opt . $@47 indexed_by_opt + 455 array_options: OCCURS integer times_opt • $@47 indexed_by_opt $default reduce using rule 454 ($@47) $@47 go to state 1437 -state 1311 +State 1311 - 477 pictures: PICTURE $@50 is_opt . picture + 477 pictures: PICTURE $@50 is_opt • picture $default reduce using rule 478 (picture) picture go to state 1438 -state 1312 +State 1312 - 435 redefines_var: VARIABLE . + 435 redefines_var: VARIABLE • $default reduce using rule 435 (redefines_var) -state 1313 +State 1313 - 436 redefines_var: SUBSCVAR . + 436 redefines_var: SUBSCVAR • $default reduce using rule 436 (redefines_var) -state 1314 +State 1314 - 434 redefines_clause: REDEFINES $@45 redefines_var . + 434 redefines_clause: REDEFINES $@45 redefines_var • $default reduce using rule 434 (redefines_clause) -state 1315 +State 1315 - 448 data_clause: RENAMES $@46 variable . thru_gname_opt + 448 data_clause: RENAMES $@46 variable • thru_gname_opt THRU shift, and go to state 1439 @@ -19795,9 +20372,9 @@ state 1315 thru_gname_opt go to state 1440 -state 1316 +State 1316 - 403 separate_opt: SEPARATE . character_opt + 403 separate_opt: SEPARATE • character_opt CHARACTER shift, and go to state 1441 @@ -19806,23 +20383,23 @@ state 1316 character_opt go to state 1442 -state 1317 +State 1317 - 401 sign_clause: sign_is_opt LEADING separate_opt . + 401 sign_clause: sign_is_opt LEADING separate_opt • $default reduce using rule 401 (sign_clause) -state 1318 +State 1318 - 402 sign_clause: sign_is_opt TRAILING separate_opt . + 402 sign_clause: sign_is_opt TRAILING separate_opt • $default reduce using rule 402 (sign_clause) -state 1319 +State 1319 - 473 value_list: value_list comma_opt . value + 473 value_list: value_list comma_opt • value NLITERAL shift, and go to state 59 CLITERAL shift, and go to state 60 @@ -19844,9 +20421,9 @@ state 1319 signed_nliteral go to state 77 -state 1320 +State 1320 - 475 value: gliteral THRU . gliteral + 475 value: gliteral THRU • gliteral NLITERAL shift, and go to state 59 CLITERAL shift, and go to state 60 @@ -19867,37 +20444,37 @@ state 1320 signed_nliteral go to state 77 -state 1321 +State 1321 - 466 usage: USAGENUM . + 466 usage: USAGENUM • $default reduce using rule 466 (usage) -state 1322 +State 1322 - 467 usage: DISPLAY . + 467 usage: DISPLAY • $default reduce using rule 467 (usage) -state 1323 +State 1323 - 468 usage: POINTER . + 468 usage: POINTER • $default reduce using rule 468 (usage) -state 1324 +State 1324 - 465 usage_option: usage_opt is_opt usage . + 465 usage_option: usage_opt is_opt usage • $default reduce using rule 465 (usage_option) -state 1325 +State 1325 - 198 report_control: CODE . gliteral + 198 report_control: CODE • gliteral NLITERAL shift, and go to state 59 CLITERAL shift, and go to state 60 @@ -19918,9 +20495,9 @@ state 1325 signed_nliteral go to state 77 -state 1326 +State 1326 - 209 control_is_are: CONTROL . is_opt + 209 control_is_are: CONTROL • is_opt IS shift, and go to state 84 @@ -19930,9 +20507,9 @@ state 1326 is_opt go to state 1446 -state 1327 +State 1327 - 210 control_is_are: CONTROLS . are_opt + 210 control_is_are: CONTROLS • are_opt ARE shift, and go to state 1130 @@ -19941,9 +20518,9 @@ state 1327 are_opt go to state 1447 -state 1328 +State 1328 - 202 report_controls_page: PAGE . limit_is_are_opt integer line_lines_opt heading_opt first_detail_opt last_detail_opt footing_opt + 202 report_controls_page: PAGE • limit_is_are_opt integer line_lines_opt heading_opt first_detail_opt last_detail_opt footing_opt LIMIT shift, and go to state 1448 LIMITS shift, and go to state 1449 @@ -19953,46 +20530,46 @@ state 1328 limit_is_are_opt go to state 1450 -state 1329 +State 1329 - 194 report_section: RD $@15 STRING $@16 report_controls PERIOD_TOK . $@17 report_description + 194 report_section: RD $@15 STRING $@16 report_controls PERIOD_TOK • $@17 report_description $default reduce using rule 193 ($@17) $@17 go to state 1451 -state 1330 +State 1330 - 197 report_control: is_opt . GLOBAL + 197 report_control: is_opt • GLOBAL GLOBAL shift, and go to state 1452 -state 1331 +State 1331 - 196 report_controls: report_controls report_control . + 196 report_controls: report_controls report_control • $default reduce using rule 196 (report_controls) -state 1332 +State 1332 - 199 report_control: report_controls_control . + 199 report_control: report_controls_control • $default reduce using rule 199 (report_control) -state 1333 +State 1333 - 200 report_control: report_controls_page . + 200 report_control: report_controls_page • $default reduce using rule 200 (report_control) -state 1334 +State 1334 - 201 report_controls_control: control_is_are . final_opt report_break_list + 201 report_controls_control: control_is_are • final_opt report_break_list FINAL shift, and go to state 1453 @@ -20001,19 +20578,19 @@ state 1334 final_opt go to state 1454 -state 1335 +State 1335 - 325 screen_item: integer def_name_opt $@28 screen_clauses . PERIOD_TOK - 327 screen_clauses: screen_clauses . LINE $@29 number_is_opt plus_minus_opt name_or_lit - 329 | screen_clauses . COLUMN $@30 number_is_opt plus_minus_opt name_or_lit - 330 | screen_clauses . with_opt screen_attrib - 332 | screen_clauses . with_opt FOREGROUNDCOLOR $@31 name_or_lit - 334 | screen_clauses . with_opt BACKGROUNDCOLOR $@32 name_or_lit - 336 | screen_clauses . with_opt COLOR $@33 name_or_lit - 337 | screen_clauses . screen_source_destination - 338 | screen_clauses . value_is_are gliteral - 339 | screen_clauses . pictures - 341 | screen_clauses . SIZE $@34 name_or_lit + 325 screen_item: integer def_name_opt $@28 screen_clauses • PERIOD_TOK + 327 screen_clauses: screen_clauses • LINE $@29 number_is_opt plus_minus_opt name_or_lit + 329 | screen_clauses • COLUMN $@30 number_is_opt plus_minus_opt name_or_lit + 330 | screen_clauses • with_opt screen_attrib + 332 | screen_clauses • with_opt FOREGROUNDCOLOR $@31 name_or_lit + 334 | screen_clauses • with_opt BACKGROUNDCOLOR $@32 name_or_lit + 336 | screen_clauses • with_opt COLOR $@33 name_or_lit + 337 | screen_clauses • screen_source_destination + 338 | screen_clauses • value_is_are gliteral + 339 | screen_clauses • pictures + 341 | screen_clauses • SIZE $@34 name_or_lit TO shift, and go to state 1455 COLUMN shift, and go to state 1456 @@ -20036,9 +20613,9 @@ state 1335 with_opt go to state 1465 -state 1336 +State 1336 - 584 use_phrase: USE AFTER use_phrase_exception_error PROCEDURE on_opt . use_phrase_option PERIOD_TOK + 584 use_phrase: USE AFTER use_phrase_exception_error PROCEDURE on_opt • use_phrase_option PERIOD_TOK error shift, and go to state 438 VARIABLE shift, and go to state 56 @@ -20076,9 +20653,9 @@ state 1336 unqualified_var go to state 81 -state 1337 +State 1337 - 909 read_key_opt: KEY . is_opt name + 909 read_key_opt: KEY • is_opt name IS shift, and go to state 84 @@ -20087,16 +20664,16 @@ state 1337 is_opt go to state 1469 -state 1338 +State 1338 - 900 read_body: name read_next_opt record_opt read_into_opt with_lock_opt read_key_opt . - 901 | name read_next_opt record_opt read_into_opt with_lock_opt read_key_opt . read_at_end_opt - 902 | name read_next_opt record_opt read_into_opt with_lock_opt read_key_opt . read_invalid_key_opt + 900 read_body: name read_next_opt record_opt read_into_opt with_lock_opt read_key_opt • + 901 | name read_next_opt record_opt read_into_opt with_lock_opt read_key_opt • read_at_end_opt + 902 | name read_next_opt record_opt read_into_opt with_lock_opt read_key_opt • read_invalid_key_opt - NOT shift, and go to state 1470 - AT shift, and go to state 1049 - END shift, and go to state 1050 - INVALID shift, and go to state 1471 + AT shift, and go to state 1048 + END shift, and go to state 1049 + INVALID shift, and go to state 1470 + NOT shift, and go to state 1471 NOT [reduce using rule 900 (read_body)] $default reduce using rule 900 (read_body) @@ -20108,100 +20685,100 @@ state 1338 read_not_invalid_key go to state 1475 -state 1339 +State 1339 - 941 end_write_opt: END_WRITE . + 941 end_write_opt: END_WRITE • $default reduce using rule 941 (end_write_opt) -state 1340 +State 1340 - 934 write_statement: WRITE name write_from_opt write_options $@101 invalid_key_opt end_write_opt . + 934 write_statement: WRITE name write_from_opt write_options $@101 invalid_key_opt end_write_opt • $default reduce using rule 934 (write_statement) -state 1341 +State 1341 - 206 line_lines_opt: LINE . + 206 line_lines_opt: LINE • $default reduce using rule 206 (line_lines_opt) -state 1342 +State 1342 - 208 lines_opt: LINES . + 208 lines_opt: LINES • $default reduce using rule 208 (lines_opt) -state 1343 +State 1343 - 938 write_options: before_after advancing_opt gname line_lines_opt . + 938 write_options: before_after advancing_opt gname line_lines_opt • $default reduce using rule 938 (write_options) -state 1344 +State 1344 - 205 line_lines_opt: lines_opt . + 205 line_lines_opt: lines_opt • $default reduce using rule 205 (line_lines_opt) -state 1345 +State 1345 - 393 screen_attribx: BLANK when_opt ZERO . + 393 screen_attribx: BLANK when_opt ZERO • $default reduce using rule 393 (screen_attribx) -state 1346 +State 1346 - 396 screen_attribx: with_opt NO ADVANCING . + 396 screen_attribx: with_opt NO ADVANCING • $default reduce using rule 396 (screen_attribx) -state 1347 +State 1347 - 836 accept_screen: ACCEPT name accept_display_options on_opt EXCEPTION $@93 variable . @94 statement_list $@95 end_accept_opt + 836 accept_screen: ACCEPT name accept_display_options on_opt EXCEPTION $@93 variable • @94 statement_list $@95 end_accept_opt $default reduce using rule 834 (@94) @94 go to state 1476 -state 1348 +State 1348 - 795 add_body: CORRESPONDING var_list_gname TO var_list_name rounded_opt on_size_error_opt . + 795 add_body: CORRESPONDING var_list_gname TO var_list_name rounded_opt on_size_error_opt • $default reduce using rule 795 (add_body) -state 1349 +State 1349 - 998 on_size_error_opt: NOT on_opt SIZE . on_size_error + 998 on_size_error_opt: NOT on_opt SIZE • on_size_error ERROR_TOK shift, and go to state 1350 on_size_error go to state 1477 -state 1350 +State 1350 - 1003 on_size_error: ERROR_TOK . @116 statement_list + 1003 on_size_error: ERROR_TOK • @116 statement_list $default reduce using rule 1002 (@116) @116 go to state 1478 -state 1351 +State 1351 - 999 on_size_error_opt: on_opt SIZE on_size_error . - 1001 | on_opt SIZE on_size_error . NOT on_opt SIZE $@115 on_size_error + 999 on_size_error_opt: on_opt SIZE on_size_error • + 1001 | on_opt SIZE on_size_error • NOT on_opt SIZE $@115 on_size_error NOT shift, and go to state 1479 @@ -20209,32 +20786,32 @@ state 1351 $default reduce using rule 999 (on_size_error_opt) -state 1352 +State 1352 - 1128 returning_options: GIVING variable . + 1128 returning_options: GIVING variable • $default reduce using rule 1128 (returning_options) -state 1353 +State 1353 - 1127 returning_options: RETURNING variable . + 1127 returning_options: RETURNING variable • $default reduce using rule 1127 (returning_options) -state 1354 +State 1354 - 967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options @106 . @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt + 967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options @106 • @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt $default reduce using rule 964 (@107) @107 go to state 1480 -state 1355 +State 1355 - 1125 using_options: USING @127 dummy @128 . parm_list + 1125 using_options: USING @127 dummy @128 • parm_list VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -20270,18 +20847,18 @@ state 1355 unqualified_var go to state 81 -state 1356 +State 1356 - 981 chain_statement: CHAIN $@111 gname using_options @112 @113 on_exception_or_overflow . $@114 end_chain_opt + 981 chain_statement: CHAIN $@111 gname using_options @112 @113 on_exception_or_overflow • $@114 end_chain_opt $default reduce using rule 980 ($@114) $@114 go to state 1485 -state 1357 +State 1357 - 1048 on_exception_or_overflow: on_opt . exception_or_overflow @120 statement_list + 1048 on_exception_or_overflow: on_opt • exception_or_overflow @120 statement_list EXCEPTION shift, and go to state 1486 OVERFLOW_TOK shift, and go to state 1487 @@ -20289,45 +20866,45 @@ state 1357 exception_or_overflow go to state 1488 -state 1358 +State 1358 - 850 display_line_options: display_line_options with_opt NO ADVANCING . + 850 display_line_options: display_line_options with_opt NO ADVANCING • $default reduce using rule 850 (display_line_options) -state 1359 +State 1359 - 853 display_line_options: display_line_options with_opt ERASE EOL . + 853 display_line_options: display_line_options with_opt ERASE EOL • $default reduce using rule 853 (display_line_options) -state 1360 +State 1360 - 852 display_line_options: display_line_options with_opt ERASE EOS . + 852 display_line_options: display_line_options with_opt ERASE EOS • $default reduce using rule 852 (display_line_options) -state 1361 +State 1361 - 854 display_line_options: display_line_options with_opt ERASE SCREEN . + 854 display_line_options: display_line_options with_opt ERASE SCREEN • $default reduce using rule 854 (display_line_options) -state 1362 +State 1362 - 815 divide_body: gname BY gname GIVING var_list_name on_size_error_opt . + 815 divide_body: gname BY gname GIVING var_list_name on_size_error_opt • $default reduce using rule 815 (divide_body) -state 1363 +State 1363 - 816 divide_body: gname BY gname GIVING name rounded_opt . REMAINDER name on_size_error_opt - 991 var_list_name: name rounded_opt . sep_opt + 816 divide_body: gname BY gname GIVING name rounded_opt • REMAINDER name on_size_error_opt + 991 var_list_name: name rounded_opt • sep_opt LISTSEP shift, and go to state 98 REMAINDER shift, and go to state 1489 @@ -20337,17 +20914,17 @@ state 1363 sep_opt go to state 755 -state 1364 +State 1364 - 818 divide_body: gname INTO gname GIVING var_list_name on_size_error_opt . + 818 divide_body: gname INTO gname GIVING var_list_name on_size_error_opt • $default reduce using rule 818 (divide_body) -state 1365 +State 1365 - 817 divide_body: gname INTO gname GIVING name rounded_opt . REMAINDER name on_size_error_opt - 991 var_list_name: name rounded_opt . sep_opt + 817 divide_body: gname INTO gname GIVING name rounded_opt • REMAINDER name on_size_error_opt + 991 var_list_name: name rounded_opt • sep_opt LISTSEP shift, and go to state 98 REMAINDER shift, and go to state 1490 @@ -20357,9 +20934,9 @@ state 1365 sep_opt go to state 755 -state 1366 +State 1366 - 665 when_case_list: WHEN @66 @67 . when_case sentence_or_nothing + 665 when_case_list: WHEN @66 @67 • when_case sentence_or_nothing OTHER shift, and go to state 1491 @@ -20369,34 +20946,34 @@ state 1366 @71 go to state 1493 -state 1367 +State 1367 - 669 when_case_list: when_case_list WHEN @68 . @69 when_case $@70 sentence_or_nothing + 669 when_case_list: when_case_list WHEN @68 • @69 when_case $@70 sentence_or_nothing $default reduce using rule 667 (@69) @69 go to state 1494 -state 1368 +State 1368 - 1210 cond_op: conditional OR conditional . + 1210 cond_op: conditional OR conditional • $default reduce using rule 1210 (cond_op) -state 1369 +State 1369 - 780 initialize_replacing_list: initialize_type_list data_opt BY gname . + 780 initialize_replacing_list: initialize_type_list data_opt BY gname • $default reduce using rule 780 (initialize_replacing_list) -state 1370 +State 1370 - 1088 converting_clause: CONVERTING noallname TO noallname inspect_before_after . - 1108 inspect_before_after: inspect_before_after . BEFORE initial_opt noallname - 1109 | inspect_before_after . AFTER initial_opt noallname + 1088 converting_clause: CONVERTING noallname TO noallname inspect_before_after • + 1108 inspect_before_after: inspect_before_after • BEFORE initial_opt noallname + 1109 | inspect_before_after • AFTER initial_opt noallname AFTER shift, and go to state 1495 BEFORE shift, and go to state 1496 @@ -20404,12 +20981,12 @@ state 1370 $default reduce using rule 1088 (converting_clause) -state 1371 +State 1371 - 1091 tallying_list: tallying_list name FOR tallying_for_list . - 1093 tallying_for_list: tallying_for_list . CHARACTERS inspect_before_after - 1094 | tallying_for_list . ALL noallname inspect_before_after - 1095 | tallying_for_list . LEADING noallname inspect_before_after + 1091 tallying_list: tallying_list name FOR tallying_for_list • + 1093 tallying_for_list: tallying_for_list • CHARACTERS inspect_before_after + 1094 | tallying_for_list • ALL noallname inspect_before_after + 1095 | tallying_for_list • LEADING noallname inspect_before_after ALL shift, and go to state 1497 CHARACTERS shift, and go to state 1498 @@ -20418,53 +20995,53 @@ state 1371 $default reduce using rule 1091 (tallying_list) -state 1372 +State 1372 - 1104 replacing_kind: ALL . + 1104 replacing_kind: ALL • $default reduce using rule 1104 (replacing_kind) -state 1373 +State 1373 - 1099 replacing_list: replacing_list CHARACTERS . BY noallname inspect_before_after + 1099 replacing_list: replacing_list CHARACTERS • BY noallname inspect_before_after BY shift, and go to state 1500 -state 1374 +State 1374 - 1107 replacing_kind: FIRST . + 1107 replacing_kind: FIRST • $default reduce using rule 1107 (replacing_kind) -state 1375 +State 1375 - 1105 replacing_kind: LEADING . + 1105 replacing_kind: LEADING • $default reduce using rule 1105 (replacing_kind) -state 1376 +State 1376 - 1106 replacing_kind: TRAILING . + 1106 replacing_kind: TRAILING • $default reduce using rule 1106 (replacing_kind) -state 1377 +State 1377 - 1100 replacing_list: replacing_list replacing_kind . replacing_by_list + 1100 replacing_list: replacing_list replacing_kind • replacing_by_list $default reduce using rule 1103 (replacing_by_list) replacing_by_list go to state 1501 -state 1378 +State 1378 - 741 merge_using: USING . sort_file_list + 741 merge_using: USING • sort_file_list VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -20477,41 +21054,41 @@ state 1378 unqualified_var go to state 81 -state 1379 +State 1379 - 740 merge_statement: MERGE name sort_keys $@86 sort_collating_opt $@87 merge_using . $@88 sort_output + 740 merge_statement: MERGE name sort_keys $@86 sort_collating_opt $@87 merge_using • $@88 sort_output $default reduce using rule 739 ($@88) $@88 go to state 1504 -state 1380 +State 1380 - 757 sort_keys_names: sort_keys_names name . + 757 sort_keys_names: sort_keys_names name • $default reduce using rule 757 (sort_keys_names) -state 1381 +State 1381 - 809 multiply_body: gname BY gname GIVING var_list_name on_size_error_opt . + 809 multiply_body: gname BY gname GIVING var_list_name on_size_error_opt • $default reduce using rule 809 (multiply_body) -state 1382 +State 1382 - 1151 perform_options: with_test_opt UNTIL @131 condition @132 perform_statements . $@133 END_PERFORM + 1151 perform_options: with_test_opt UNTIL @131 condition @132 perform_statements • $@133 END_PERFORM $default reduce using rule 1150 ($@133) $@133 go to state 1505 -state 1383 +State 1383 - 1155 perform_options: with_test_opt VARYING name FROM gname by_opt . gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM + 1155 perform_options: with_test_opt VARYING name FROM gname by_opt • gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -20541,18 +21118,18 @@ state 1383 unqualified_var go to state 81 -state 1384 +State 1384 - 1147 perform_options: gname TIMES @129 perform_statements $@130 END_PERFORM . + 1147 perform_options: gname TIMES @129 perform_statements $@130 END_PERFORM • $default reduce using rule 1147 (perform_options) -state 1385 +State 1385 - 1158 perform_options: label perform_thru_opt with_test_opt UNTIL @137 condition . - 1184 condition: condition . AND @143 implied_op_condition - 1186 | condition . OR @144 implied_op_condition + 1158 perform_options: label perform_thru_opt with_test_opt UNTIL @137 condition • + 1184 condition: condition • AND @143 implied_op_condition + 1186 | condition • OR @144 implied_op_condition OR shift, and go to state 611 AND shift, and go to state 612 @@ -20560,9 +21137,9 @@ state 1385 $default reduce using rule 1158 (perform_options) -state 1386 +State 1386 - 1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM . gname by_opt gname UNTIL @138 condition @139 perform_after_opt + 1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM • gname by_opt gname UNTIL @138 condition @139 perform_after_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -20592,16 +21169,9 @@ state 1386 unqualified_var go to state 81 -state 1387 +State 1387 - 910 read_at_end_opt: NOT at_opt on_end . - - $default reduce using rule 910 (read_at_end_opt) - - -state 1388 - - 914 read_at_end_opt: AT on_end NOT . at_opt $@96 on_end + 914 read_at_end_opt: AT on_end NOT • at_opt $@96 on_end AT shift, and go to state 1054 @@ -20610,35 +21180,42 @@ state 1388 at_opt go to state 1508 -state 1389 +State 1388 - 918 on_end: END @98 statement_list . + 918 on_end: END @98 statement_list • $default reduce using rule 918 (on_end) -state 1390 +State 1389 - 916 read_at_end_opt: on_end NOT at_opt . $@97 on_end + 910 read_at_end_opt: NOT at_opt on_end • + + $default reduce using rule 910 (read_at_end_opt) + + +State 1390 + + 916 read_at_end_opt: on_end NOT at_opt • $@97 on_end $default reduce using rule 915 ($@97) $@97 go to state 1509 -state 1391 +State 1391 - 718 search_all_when: WHEN . $@83 search_all_when_conditional @84 search_all_when_statement + 718 search_all_when: WHEN • $@83 search_all_when_conditional @84 search_all_when_statement $default reduce using rule 716 ($@83) $@83 go to state 1510 -state 1392 +State 1392 - 701 search_all: variable_indexed @79 search_at_end $@80 search_all_when_list . - 715 search_all_when_list: search_all_when_list . search_all_when + 701 search_all: variable_indexed @79 search_at_end $@80 search_all_when_list • + 715 search_all_when_list: search_all_when_list • search_all_when WHEN shift, and go to state 1391 @@ -20648,16 +21225,16 @@ state 1392 search_all_when go to state 1511 -state 1393 +State 1393 - 714 search_all_when_list: search_all_when . + 714 search_all_when_list: search_all_when • $default reduce using rule 714 (search_all_when_list) -state 1394 +State 1394 - 705 search_at_end: at_opt END @81 . statement_list + 705 search_at_end: at_opt END @81 • statement_list READ shift, and go to state 254 WRITE shift, and go to state 255 @@ -20760,9 +21337,9 @@ state 1394 inspect_statement go to state 350 -state 1395 +State 1395 - 698 search: variable_indexed @76 search_varying_opt @77 search_at_end @78 . search_when_list + 698 search: variable_indexed @76 search_varying_opt @77 search_at_end @78 • search_when_list WHEN shift, and go to state 1513 @@ -20770,16 +21347,16 @@ state 1395 search_when go to state 1515 -state 1396 +State 1396 - 1228 in_opt: IN . + 1228 in_opt: IN • $default reduce using rule 1228 (in_opt) -state 1397 +State 1397 - 761 sort_duplicates_opt: with_opt DUPLICATES in_opt . order_opt + 761 sort_duplicates_opt: with_opt DUPLICATES in_opt • order_opt ORDER shift, and go to state 1516 @@ -20788,16 +21365,16 @@ state 1397 order_opt go to state 1517 -state 1398 +State 1398 - 759 sort_keys_names_idx: sort_keys_names_idx variable_indexed . + 759 sort_keys_names_idx: sort_keys_names_idx variable_indexed • $default reduce using rule 759 (sort_keys_names_idx) -state 1399 +State 1399 - 747 sort_file: SORT name sort_keys $@89 sort_duplicates_opt sort_collating_opt $@90 . sort_input $@91 sort_output + 747 sort_file: SORT name sort_keys $@89 sort_duplicates_opt sort_collating_opt $@90 • sort_input $@91 sort_output INPUT shift, and go to state 1518 USING shift, and go to state 1519 @@ -20805,16 +21382,16 @@ state 1399 sort_input go to state 1520 -state 1400 +State 1400 - 1068 not_invalid_key_sentence: not_excep INVALID key_opt @125 statement_list . + 1068 not_invalid_key_sentence: not_excep INVALID key_opt @125 statement_list • $default reduce using rule 1068 (not_invalid_key_sentence) -state 1401 +State 1401 - 1027 string_statement: STRINGCMD string_from_list INTO name string_with_pointer $@117 on_overflow_opt . end_stringcmd_opt + 1027 string_statement: STRINGCMD string_from_list INTO name string_with_pointer $@117 on_overflow_opt • end_stringcmd_opt END_STRINGCMD shift, and go to state 1521 @@ -20824,9 +21401,9 @@ state 1401 end_stringcmd_opt go to state 1522 -state 1402 +State 1402 - 1046 on_overflow_opt: $@119 . on_overflow on_not_overflow + 1046 on_overflow_opt: $@119 • on_overflow on_not_overflow ON shift, and go to state 620 @@ -20837,30 +21414,30 @@ state 1402 on_opt go to state 1524 -state 1403 +State 1403 - 1071 string_with_pointer: with_opt POINTER name . + 1071 string_with_pointer: with_opt POINTER name • $default reduce using rule 1071 (string_with_pointer) -state 1404 +State 1404 - 804 subtract_body: CORRESPONDING var_list_gname FROM var_list_name rounded_opt on_size_error_opt . + 804 subtract_body: CORRESPONDING var_list_gname FROM var_list_name rounded_opt on_size_error_opt • $default reduce using rule 804 (subtract_body) -state 1405 +State 1405 - 803 subtract_body: var_list_gname FROM gname GIVING var_list_name on_size_error_opt . + 803 subtract_body: var_list_gname FROM gname GIVING var_list_name on_size_error_opt • $default reduce using rule 803 (subtract_body) -state 1406 +State 1406 - 1033 unstring_delimited_vars: unstring_delimited_vars OR all_opt . gname + 1033 unstring_delimited_vars: unstring_delimited_vars OR all_opt • gname VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -20890,9 +21467,9 @@ state 1406 unqualified_var go to state 81 -state 1407 +State 1407 - 1042 unstring_tallying: TALLYING . in_opt name + 1042 unstring_tallying: TALLYING • in_opt name IN shift, and go to state 1396 @@ -20901,25 +21478,25 @@ state 1407 in_opt go to state 1526 -state 1408 +State 1408 - 1029 unstring_statement: UNSTRING name unstring_delimited INTO unstring_destinations string_with_pointer unstring_tallying . $@118 on_overflow_opt end_unstring_opt + 1029 unstring_statement: UNSTRING name unstring_delimited INTO unstring_destinations string_with_pointer unstring_tallying • $@118 on_overflow_opt end_unstring_opt $default reduce using rule 1028 ($@118) $@118 go to state 1527 -state 1409 +State 1409 - 1035 unstring_destinations: unstring_destinations sep_opt unstring_dest_var . + 1035 unstring_destinations: unstring_destinations sep_opt unstring_dest_var • $default reduce using rule 1035 (unstring_destinations) -state 1410 +State 1410 - 1038 unstring_delim_opt: DELIMITER in_opt . name + 1038 unstring_delim_opt: DELIMITER in_opt • name VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -20931,9 +21508,9 @@ state 1410 unqualified_var go to state 81 -state 1411 +State 1411 - 1040 unstring_count_opt: COUNT . in_opt name + 1040 unstring_count_opt: COUNT • in_opt name IN shift, and go to state 1396 @@ -20942,114 +21519,114 @@ state 1411 in_opt go to state 1529 -state 1412 +State 1412 - 1036 unstring_dest_var: name unstring_delim_opt unstring_count_opt . + 1036 unstring_dest_var: name unstring_delim_opt unstring_count_opt • $default reduce using rule 1036 (unstring_dest_var) -state 1413 +State 1413 - 75 switch_on_opt: ON status_opt is_opt STRING . + 75 switch_on_opt: ON status_opt is_opt STRING • $default reduce using rule 75 (switch_on_opt) -state 1414 +State 1414 - 77 switch_off_opt: OFF status_opt is_opt . STRING + 77 switch_off_opt: OFF status_opt is_opt • STRING STRING shift, and go to state 1530 -state 1415 +State 1415 - 143 access_options: DYNAMIC . + 143 access_options: DYNAMIC • $default reduce using rule 143 (access_options) -state 1416 +State 1416 - 144 access_options: RANDOM . + 144 access_options: RANDOM • $default reduce using rule 144 (access_options) -state 1417 +State 1417 - 142 access_options: SEQUENTIAL . + 142 access_options: SEQUENTIAL • $default reduce using rule 142 (access_options) -state 1418 +State 1418 - 108 select_clause: ACCESS mode_opt is_opt access_options . + 108 select_clause: ACCESS mode_opt is_opt access_options • $default reduce using rule 108 (select_clause) -state 1419 +State 1419 - 145 access_options: anystring . + 145 access_options: anystring • $default reduce using rule 145 (access_options) -state 1420 +State 1420 - 112 select_clause: ALTERNATE RECORD key_opt is_opt . STRING with_duplicates + 112 select_clause: ALTERNATE RECORD key_opt is_opt • STRING with_duplicates STRING shift, and go to state 1531 -state 1421 +State 1421 - 121 assign_clause: PORTNUM filename . + 121 assign_clause: PORTNUM filename • $default reduce using rule 121 (assign_clause) -state 1422 +State 1422 - 122 assign_clause: EXTERNAL filename . + 122 assign_clause: EXTERNAL filename • $default reduce using rule 122 (assign_clause) -state 1423 +State 1423 - 110 select_clause: RECORD key_opt is_opt STRING . + 110 select_clause: RECORD key_opt is_opt STRING • $default reduce using rule 110 (select_clause) -state 1424 +State 1424 - 111 select_clause: RELATIVE key_opt is_opt STRING . + 111 select_clause: RELATIVE key_opt is_opt STRING • $default reduce using rule 111 (select_clause) -state 1425 +State 1425 - 109 select_clause: file_opt STATUS is_opt STRING . + 109 select_clause: file_opt STATUS is_opt STRING • $default reduce using rule 109 (select_clause) -state 1426 +State 1426 - 140 organization_options: LINE SEQUENTIAL . + 140 organization_options: LINE SEQUENTIAL • $default reduce using rule 140 (organization_options) -state 1427 +State 1427 - 526 to_integer_opt: TO . integer + 526 to_integer_opt: TO • integer NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -21059,9 +21636,9 @@ state 1427 integer go to state 1532 -state 1428 +State 1428 - 499 file_description_clause_block: BLOCK contains_opt integer to_integer_opt . chars_or_recs_opt + 499 file_description_clause_block: BLOCK contains_opt integer to_integer_opt • chars_or_recs_opt CHARACTERS shift, and go to state 1533 RECORDS shift, and go to state 1534 @@ -21071,16 +21648,16 @@ state 1428 chars_or_recs_opt go to state 1535 -state 1429 +State 1429 - 521 var_strings: var_strings STRING . + 521 var_strings: var_strings STRING • $default reduce using rule 521 (var_strings) -state 1430 +State 1430 - 507 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 + 507 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 WITH shift, and go to state 358 @@ -21091,9 +21668,9 @@ state 1430 with_opt go to state 1537 -state 1431 +State 1431 - 501 file_description_clause_record: RECORD is_opt VARYING in_opt . size_opt from_rec_varying to_rec_varying character_opts depend_rec_varying + 501 file_description_clause_record: RECORD is_opt VARYING in_opt • size_opt from_rec_varying to_rec_varying character_opts depend_rec_varying SIZE shift, and go to state 1538 @@ -21102,9 +21679,9 @@ state 1431 size_opt go to state 1539 -state 1432 +State 1432 - 534 to_rec_varying: TO . nliteral + 534 to_rec_varying: TO • nliteral NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -21114,9 +21691,9 @@ state 1432 signed_nliteral go to state 1069 -state 1433 +State 1433 - 500 file_description_clause_record: RECORD contains_opt integer to_rec_varying . character_opts + 500 file_description_clause_record: RECORD contains_opt integer to_rec_varying • character_opts CHARACTERS shift, and go to state 1541 @@ -21125,9 +21702,9 @@ state 1433 character_opts go to state 1542 -state 1434 +State 1434 - 503 file_description_clause_value: VALUE OF FILE_ID is_opt . filename + 503 file_description_clause_value: VALUE OF FILE_ID is_opt • filename STRING shift, and go to state 1268 NLITERAL shift, and go to state 59 @@ -21140,16 +21717,16 @@ state 1434 filename go to state 1543 -state 1435 +State 1435 - 427 file_description: file_description field_description . + 427 file_description: file_description field_description • $default reduce using rule 427 (file_description) -state 1436 +State 1436 - 458 array_options: OCCURS integer TO integer . times_opt DEPENDING $@48 on_opt gname $@49 indexed_by_opt + 458 array_options: OCCURS integer TO integer • times_opt DEPENDING $@48 on_opt gname $@49 indexed_by_opt TIMES shift, and go to state 1309 @@ -21158,9 +21735,9 @@ state 1436 times_opt go to state 1544 -state 1437 +State 1437 - 455 array_options: OCCURS integer times_opt $@47 . indexed_by_opt + 455 array_options: OCCURS integer times_opt $@47 • indexed_by_opt DIRECTION shift, and go to state 1545 @@ -21171,10 +21748,10 @@ state 1437 indexed_by_opt go to state 1547 -state 1438 +State 1438 - 477 pictures: PICTURE $@50 is_opt picture . - 479 picture: picture . pic_elem + 477 pictures: PICTURE $@50 is_opt picture • + 479 picture: picture • pic_elem CHAR shift, and go to state 1548 @@ -21183,9 +21760,9 @@ state 1438 pic_elem go to state 1549 -state 1439 +State 1439 - 453 thru_gname_opt: THRU . variable + 453 thru_gname_opt: THRU • variable VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -21195,79 +21772,79 @@ state 1439 unqualified_var go to state 81 -state 1440 +State 1440 - 448 data_clause: RENAMES $@46 variable thru_gname_opt . + 448 data_clause: RENAMES $@46 variable thru_gname_opt • $default reduce using rule 448 (data_clause) -state 1441 +State 1441 - 405 character_opt: CHARACTER . + 405 character_opt: CHARACTER • $default reduce using rule 405 (character_opt) -state 1442 +State 1442 - 403 separate_opt: SEPARATE character_opt . + 403 separate_opt: SEPARATE character_opt • $default reduce using rule 403 (separate_opt) -state 1443 +State 1443 - 473 value_list: value_list comma_opt value . + 473 value_list: value_list comma_opt value • $default reduce using rule 473 (value_list) -state 1444 +State 1444 - 475 value: gliteral THRU gliteral . + 475 value: gliteral THRU gliteral • $default reduce using rule 475 (value) -state 1445 +State 1445 - 198 report_control: CODE gliteral . + 198 report_control: CODE gliteral • $default reduce using rule 198 (report_control) -state 1446 +State 1446 - 209 control_is_are: CONTROL is_opt . + 209 control_is_are: CONTROL is_opt • $default reduce using rule 209 (control_is_are) -state 1447 +State 1447 - 210 control_is_are: CONTROLS are_opt . + 210 control_is_are: CONTROLS are_opt • $default reduce using rule 210 (control_is_are) -state 1448 +State 1448 - 212 limit_is_are_opt: LIMIT . IS + 212 limit_is_are_opt: LIMIT • IS IS shift, and go to state 1551 -state 1449 +State 1449 - 213 limit_is_are_opt: LIMITS . ARE + 213 limit_is_are_opt: LIMITS • ARE ARE shift, and go to state 1552 -state 1450 +State 1450 - 202 report_controls_page: PAGE limit_is_are_opt . integer line_lines_opt heading_opt first_detail_opt last_detail_opt footing_opt + 202 report_controls_page: PAGE limit_is_are_opt • integer line_lines_opt heading_opt first_detail_opt last_detail_opt footing_opt NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -21277,9 +21854,9 @@ state 1450 integer go to state 1553 -state 1451 +State 1451 - 194 report_section: RD $@15 STRING $@16 report_controls PERIOD_TOK $@17 . report_description + 194 report_section: RD $@15 STRING $@16 report_controls PERIOD_TOK $@17 • report_description NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -21291,100 +21868,100 @@ state 1451 integer go to state 1556 -state 1452 +State 1452 - 197 report_control: is_opt GLOBAL . + 197 report_control: is_opt GLOBAL • $default reduce using rule 197 (report_control) -state 1453 +State 1453 - 221 final_opt: FINAL . + 221 final_opt: FINAL • $default reduce using rule 221 (final_opt) -state 1454 +State 1454 - 201 report_controls_control: control_is_are final_opt . report_break_list + 201 report_controls_control: control_is_are final_opt • report_break_list $default reduce using rule 222 (report_break_list) report_break_list go to state 1557 -state 1455 +State 1455 - 348 screen_source_destination: TO . $@37 name + 348 screen_source_destination: TO • $@37 name $default reduce using rule 347 ($@37) $@37 go to state 1558 -state 1456 +State 1456 - 329 screen_clauses: screen_clauses COLUMN . $@30 number_is_opt plus_minus_opt name_or_lit + 329 screen_clauses: screen_clauses COLUMN • $@30 number_is_opt plus_minus_opt name_or_lit $default reduce using rule 328 ($@30) $@30 go to state 1559 -state 1457 +State 1457 - 346 screen_source_destination: FROM . $@36 name_or_lit screen_to_name + 346 screen_source_destination: FROM • $@36 name_or_lit screen_to_name $default reduce using rule 345 ($@36) $@36 go to state 1560 -state 1458 +State 1458 - 327 screen_clauses: screen_clauses LINE . $@29 number_is_opt plus_minus_opt name_or_lit + 327 screen_clauses: screen_clauses LINE • $@29 number_is_opt plus_minus_opt name_or_lit $default reduce using rule 326 ($@29) $@29 go to state 1561 -state 1459 +State 1459 - 341 screen_clauses: screen_clauses SIZE . $@34 name_or_lit + 341 screen_clauses: screen_clauses SIZE • $@34 name_or_lit $default reduce using rule 340 ($@34) $@34 go to state 1562 -state 1460 +State 1460 - 344 screen_source_destination: USING . $@35 name_or_lit + 344 screen_source_destination: USING • $@35 name_or_lit $default reduce using rule 343 ($@35) $@35 go to state 1563 -state 1461 +State 1461 - 325 screen_item: integer def_name_opt $@28 screen_clauses PERIOD_TOK . + 325 screen_item: integer def_name_opt $@28 screen_clauses PERIOD_TOK • $default reduce using rule 325 (screen_item) -state 1462 +State 1462 - 337 screen_clauses: screen_clauses screen_source_destination . + 337 screen_clauses: screen_clauses screen_source_destination • $default reduce using rule 337 (screen_clauses) -state 1463 +State 1463 - 338 screen_clauses: screen_clauses value_is_are . gliteral + 338 screen_clauses: screen_clauses value_is_are • gliteral NLITERAL shift, and go to state 59 CLITERAL shift, and go to state 60 @@ -21405,19 +21982,19 @@ state 1463 signed_nliteral go to state 77 -state 1464 +State 1464 - 339 screen_clauses: screen_clauses pictures . + 339 screen_clauses: screen_clauses pictures • $default reduce using rule 339 (screen_clauses) -state 1465 +State 1465 - 330 screen_clauses: screen_clauses with_opt . screen_attrib - 332 | screen_clauses with_opt . FOREGROUNDCOLOR $@31 name_or_lit - 334 | screen_clauses with_opt . BACKGROUNDCOLOR $@32 name_or_lit - 336 | screen_clauses with_opt . COLOR $@33 name_or_lit + 330 screen_clauses: screen_clauses with_opt • screen_attrib + 332 | screen_clauses with_opt • FOREGROUNDCOLOR $@31 name_or_lit + 334 | screen_clauses with_opt • BACKGROUNDCOLOR $@32 name_or_lit + 336 | screen_clauses with_opt • COLOR $@33 name_or_lit IS shift, and go to state 84 AUTO shift, and go to state 1565 @@ -21451,24 +22028,24 @@ state 1465 with_opt go to state 1584 -state 1466 +State 1466 - 584 use_phrase: USE AFTER use_phrase_exception_error PROCEDURE on_opt use_phrase_option . PERIOD_TOK + 584 use_phrase: USE AFTER use_phrase_exception_error PROCEDURE on_opt use_phrase_option • PERIOD_TOK PERIOD_TOK shift, and go to state 1585 -state 1467 +State 1467 - 591 use_phrase_option: open_mode . + 591 use_phrase_option: open_mode • $default reduce using rule 591 (use_phrase_option) -state 1468 +State 1468 - 590 use_phrase_option: gname_list . - 1244 gname_list: gname_list . sep_opt gname + 590 use_phrase_option: gname_list • + 1244 gname_list: gname_list • sep_opt gname LISTSEP shift, and go to state 98 @@ -21478,9 +22055,9 @@ state 1468 sep_opt go to state 99 -state 1469 +State 1469 - 909 read_key_opt: KEY is_opt . name + 909 read_key_opt: KEY is_opt • name VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -21492,48 +22069,48 @@ state 1469 unqualified_var go to state 81 -state 1470 +State 1470 - 910 read_at_end_opt: NOT . at_opt on_end - 925 read_not_invalid_key: NOT . INVALID key_opt @100 statement_list - - AT shift, and go to state 1054 - INVALID shift, and go to state 1587 - - $default reduce using rule 1225 (at_opt) - - at_opt go to state 1231 - - -state 1471 - - 923 read_invalid_key: INVALID . key_opt @99 statement_list + 923 read_invalid_key: INVALID • key_opt @99 statement_list KEY shift, and go to state 846 $default reduce using rule 1216 (key_opt) - key_opt go to state 1588 + key_opt go to state 1587 -state 1472 +State 1471 - 901 read_body: name read_next_opt record_opt read_into_opt with_lock_opt read_key_opt read_at_end_opt . + 910 read_at_end_opt: NOT • at_opt on_end + 925 read_not_invalid_key: NOT • INVALID key_opt @100 statement_list + + AT shift, and go to state 1054 + INVALID shift, and go to state 1588 + + $default reduce using rule 1225 (at_opt) + + at_opt go to state 1233 + + +State 1472 + + 901 read_body: name read_next_opt record_opt read_into_opt with_lock_opt read_key_opt read_at_end_opt • $default reduce using rule 901 (read_body) -state 1473 +State 1473 - 902 read_body: name read_next_opt record_opt read_into_opt with_lock_opt read_key_opt read_invalid_key_opt . + 902 read_body: name read_next_opt record_opt read_into_opt with_lock_opt read_key_opt read_invalid_key_opt • $default reduce using rule 902 (read_body) -state 1474 +State 1474 - 919 read_invalid_key_opt: read_invalid_key . - 921 | read_invalid_key . read_not_invalid_key + 919 read_invalid_key_opt: read_invalid_key • + 921 | read_invalid_key • read_not_invalid_key NOT shift, and go to state 1589 @@ -21543,16 +22120,16 @@ state 1474 read_not_invalid_key go to state 1590 -state 1475 +State 1475 - 920 read_invalid_key_opt: read_not_invalid_key . + 920 read_invalid_key_opt: read_not_invalid_key • $default reduce using rule 920 (read_invalid_key_opt) -state 1476 +State 1476 - 836 accept_screen: ACCEPT name accept_display_options on_opt EXCEPTION $@93 variable @94 . statement_list $@95 end_accept_opt + 836 accept_screen: ACCEPT name accept_display_options on_opt EXCEPTION $@93 variable @94 • statement_list $@95 end_accept_opt READ shift, and go to state 254 WRITE shift, and go to state 255 @@ -21655,16 +22232,16 @@ state 1476 inspect_statement go to state 350 -state 1477 +State 1477 - 998 on_size_error_opt: NOT on_opt SIZE on_size_error . + 998 on_size_error_opt: NOT on_opt SIZE on_size_error • $default reduce using rule 998 (on_size_error_opt) -state 1478 +State 1478 - 1003 on_size_error: ERROR_TOK @116 . statement_list + 1003 on_size_error: ERROR_TOK @116 • statement_list READ shift, and go to state 254 WRITE shift, and go to state 255 @@ -21767,9 +22344,9 @@ state 1478 inspect_statement go to state 350 -state 1479 +State 1479 - 1001 on_size_error_opt: on_opt SIZE on_size_error NOT . on_opt SIZE $@115 on_size_error + 1001 on_size_error_opt: on_opt SIZE on_size_error NOT • on_opt SIZE $@115 on_size_error ON shift, and go to state 620 @@ -21778,19 +22355,19 @@ state 1479 on_opt go to state 1593 -state 1480 +State 1480 - 967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options @106 @107 . @108 on_exception_or_overflow on_not_exception $@109 end_call_opt + 967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options @106 @107 • @108 on_exception_or_overflow on_not_exception $@109 end_call_opt $default reduce using rule 965 (@108) @108 go to state 1594 -state 1481 +State 1481 - 1125 using_options: USING @127 dummy @128 parm_list . - 1133 parm_list: parm_list . sep_opt parameter + 1125 using_options: USING @127 dummy @128 parm_list • + 1133 parm_list: parm_list • sep_opt parameter LISTSEP shift, and go to state 98 @@ -21817,16 +22394,16 @@ state 1481 sep_opt go to state 1595 -state 1482 +State 1482 - 1134 parm_list: parameter . + 1134 parm_list: parameter • $default reduce using rule 1134 (parm_list) -state 1483 +State 1483 - 1136 parameter: by_opt . parm_type gname + 1136 parameter: by_opt • parm_type gname CONTENT shift, and go to state 1596 REFERENCE shift, and go to state 1597 @@ -21835,16 +22412,16 @@ state 1483 parm_type go to state 1599 -state 1484 +State 1484 - 1135 parameter: gname . + 1135 parameter: gname • $default reduce using rule 1135 (parameter) -state 1485 +State 1485 - 981 chain_statement: CHAIN $@111 gname using_options @112 @113 on_exception_or_overflow $@114 . end_chain_opt + 981 chain_statement: CHAIN $@111 gname using_options @112 @113 on_exception_or_overflow $@114 • end_chain_opt END_CHAIN shift, and go to state 1600 @@ -21854,32 +22431,32 @@ state 1485 end_chain_opt go to state 1601 -state 1486 +State 1486 - 1050 exception_or_overflow: EXCEPTION . + 1050 exception_or_overflow: EXCEPTION • $default reduce using rule 1050 (exception_or_overflow) -state 1487 +State 1487 - 1051 exception_or_overflow: OVERFLOW_TOK . + 1051 exception_or_overflow: OVERFLOW_TOK • $default reduce using rule 1051 (exception_or_overflow) -state 1488 +State 1488 - 1048 on_exception_or_overflow: on_opt exception_or_overflow . @120 statement_list + 1048 on_exception_or_overflow: on_opt exception_or_overflow • @120 statement_list $default reduce using rule 1047 (@120) @120 go to state 1602 -state 1489 +State 1489 - 816 divide_body: gname BY gname GIVING name rounded_opt REMAINDER . name on_size_error_opt + 816 divide_body: gname BY gname GIVING name rounded_opt REMAINDER • name on_size_error_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -21891,9 +22468,9 @@ state 1489 unqualified_var go to state 81 -state 1490 +State 1490 - 817 divide_body: gname INTO gname GIVING name rounded_opt REMAINDER . name on_size_error_opt + 817 divide_body: gname INTO gname GIVING name rounded_opt REMAINDER • name on_size_error_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -21905,17 +22482,17 @@ state 1490 unqualified_var go to state 81 -state 1491 +State 1491 - 674 when_case: OTHER . + 674 when_case: OTHER • $default reduce using rule 674 (when_case) -state 1492 +State 1492 - 665 when_case_list: WHEN @66 @67 when_case . sentence_or_nothing - 673 when_case: when_case . ALSO @72 selection_object + 665 when_case_list: WHEN @66 @67 when_case • sentence_or_nothing + 673 when_case: when_case • ALSO @72 selection_object ALSO shift, and go to state 1605 @@ -21931,13 +22508,13 @@ state 1492 $@75 go to state 863 -state 1493 +State 1493 - 671 when_case: @71 . selection_object + 671 when_case: @71 • selection_object - NOT shift, and go to state 1608 - ANY shift, and go to state 1609 - FALSE_TOK shift, and go to state 1610 + ANY shift, and go to state 1608 + FALSE_TOK shift, and go to state 1609 + NOT shift, and go to state 1610 TRUE_TOK shift, and go to state 1611 $default reduce using rule 689 (not_opt) @@ -21946,9 +22523,9 @@ state 1493 not_opt go to state 1613 -state 1494 +State 1494 - 669 when_case_list: when_case_list WHEN @68 @69 . when_case $@70 sentence_or_nothing + 669 when_case_list: when_case_list WHEN @68 @69 • when_case $@70 sentence_or_nothing OTHER shift, and go to state 1491 @@ -21958,9 +22535,9 @@ state 1494 @71 go to state 1493 -state 1495 +State 1495 - 1109 inspect_before_after: inspect_before_after AFTER . initial_opt noallname + 1109 inspect_before_after: inspect_before_after AFTER • initial_opt noallname INITIAL_TOK shift, and go to state 1615 @@ -21969,9 +22546,9 @@ state 1495 initial_opt go to state 1616 -state 1496 +State 1496 - 1108 inspect_before_after: inspect_before_after BEFORE . initial_opt noallname + 1108 inspect_before_after: inspect_before_after BEFORE • initial_opt noallname INITIAL_TOK shift, and go to state 1615 @@ -21980,9 +22557,9 @@ state 1496 initial_opt go to state 1617 -state 1497 +State 1497 - 1094 tallying_for_list: tallying_for_list ALL . noallname inspect_before_after + 1094 tallying_for_list: tallying_for_list ALL • noallname inspect_before_after VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -22008,18 +22585,18 @@ state 1497 unqualified_var go to state 81 -state 1498 +State 1498 - 1093 tallying_for_list: tallying_for_list CHARACTERS . inspect_before_after + 1093 tallying_for_list: tallying_for_list CHARACTERS • inspect_before_after $default reduce using rule 1110 (inspect_before_after) inspect_before_after go to state 1619 -state 1499 +State 1499 - 1095 tallying_for_list: tallying_for_list LEADING . noallname inspect_before_after + 1095 tallying_for_list: tallying_for_list LEADING • noallname inspect_before_after VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -22045,9 +22622,9 @@ state 1499 unqualified_var go to state 81 -state 1500 +State 1500 - 1099 replacing_list: replacing_list CHARACTERS BY . noallname inspect_before_after + 1099 replacing_list: replacing_list CHARACTERS BY • noallname inspect_before_after VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -22073,10 +22650,10 @@ state 1500 unqualified_var go to state 81 -state 1501 +State 1501 - 1100 replacing_list: replacing_list replacing_kind replacing_by_list . - 1102 replacing_by_list: replacing_by_list . noallname BY noallname inspect_before_after + 1100 replacing_list: replacing_list replacing_kind replacing_by_list • + 1102 replacing_by_list: replacing_by_list • noallname BY noallname inspect_before_after VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -22104,10 +22681,10 @@ state 1501 unqualified_var go to state 81 -state 1502 +State 1502 - 741 merge_using: USING sort_file_list . - 769 sort_file_list: sort_file_list . name + 741 merge_using: USING sort_file_list • + 769 sort_file_list: sort_file_list • name VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -22121,16 +22698,16 @@ state 1502 unqualified_var go to state 81 -state 1503 +State 1503 - 768 sort_file_list: name . + 768 sort_file_list: name • $default reduce using rule 768 (sort_file_list) -state 1504 +State 1504 - 740 merge_statement: MERGE name sort_keys $@86 sort_collating_opt $@87 merge_using $@88 . sort_output + 740 merge_statement: MERGE name sort_keys $@86 sort_collating_opt $@87 merge_using $@88 • sort_output GIVING shift, and go to state 1624 OUTPUT shift, and go to state 1625 @@ -22138,23 +22715,23 @@ state 1504 sort_output go to state 1626 -state 1505 +State 1505 - 1151 perform_options: with_test_opt UNTIL @131 condition @132 perform_statements $@133 . END_PERFORM + 1151 perform_options: with_test_opt UNTIL @131 condition @132 perform_statements $@133 • END_PERFORM END_PERFORM shift, and go to state 1627 -state 1506 +State 1506 - 1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname . UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM + 1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname • UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM UNTIL shift, and go to state 1628 -state 1507 +State 1507 - 1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname . by_opt gname UNTIL @138 condition @139 perform_after_opt + 1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname • by_opt gname UNTIL @138 condition @139 perform_after_opt BY shift, and go to state 854 @@ -22163,27 +22740,27 @@ state 1507 by_opt go to state 1629 -state 1508 +State 1508 - 914 read_at_end_opt: AT on_end NOT at_opt . $@96 on_end + 914 read_at_end_opt: AT on_end NOT at_opt • $@96 on_end $default reduce using rule 913 ($@96) $@96 go to state 1630 -state 1509 +State 1509 - 916 read_at_end_opt: on_end NOT at_opt $@97 . on_end + 916 read_at_end_opt: on_end NOT at_opt $@97 • on_end - END shift, and go to state 1050 + END shift, and go to state 1049 on_end go to state 1631 -state 1510 +State 1510 - 718 search_all_when: WHEN $@83 . search_all_when_conditional @84 search_all_when_statement + 718 search_all_when: WHEN $@83 • search_all_when_conditional @84 search_all_when_statement VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -22194,23 +22771,23 @@ state 1510 unqualified_var go to state 81 -state 1511 +State 1511 - 715 search_all_when_list: search_all_when_list search_all_when . + 715 search_all_when_list: search_all_when_list search_all_when • $default reduce using rule 715 (search_all_when_list) -state 1512 +State 1512 - 705 search_at_end: at_opt END @81 statement_list . + 705 search_at_end: at_opt END @81 statement_list • $default reduce using rule 705 (search_at_end) -state 1513 +State 1513 - 710 search_when: WHEN . search_when_conditional @82 search_when_statement + 710 search_when: WHEN • search_when_conditional @82 search_when_statement VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -22230,10 +22807,10 @@ state 1513 unqualified_var go to state 81 -state 1514 +State 1514 - 698 search: variable_indexed @76 search_varying_opt @77 search_at_end @78 search_when_list . - 708 search_when_list: search_when_list . search_when + 698 search: variable_indexed @76 search_varying_opt @77 search_at_end @78 search_when_list • + 708 search_when_list: search_when_list • search_when WHEN shift, and go to state 1513 @@ -22243,37 +22820,37 @@ state 1514 search_when go to state 1636 -state 1515 +State 1515 - 707 search_when_list: search_when . + 707 search_when_list: search_when • $default reduce using rule 707 (search_when_list) -state 1516 +State 1516 - 550 order_opt: ORDER . + 550 order_opt: ORDER • $default reduce using rule 550 (order_opt) -state 1517 +State 1517 - 761 sort_duplicates_opt: with_opt DUPLICATES in_opt order_opt . + 761 sort_duplicates_opt: with_opt DUPLICATES in_opt order_opt • $default reduce using rule 761 (sort_duplicates_opt) -state 1518 +State 1518 - 764 sort_input: INPUT . PROCEDURE is_opt perform_range + 764 sort_input: INPUT • PROCEDURE is_opt perform_range PROCEDURE shift, and go to state 1637 -state 1519 +State 1519 - 765 sort_input: USING . sort_file_list + 765 sort_input: USING • sort_file_list VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -22286,34 +22863,34 @@ state 1519 unqualified_var go to state 81 -state 1520 +State 1520 - 747 sort_file: SORT name sort_keys $@89 sort_duplicates_opt sort_collating_opt $@90 sort_input . $@91 sort_output + 747 sort_file: SORT name sort_keys $@89 sort_duplicates_opt sort_collating_opt $@90 sort_input • $@91 sort_output $default reduce using rule 746 ($@91) $@91 go to state 1639 -state 1521 +State 1521 - 1082 end_stringcmd_opt: END_STRINGCMD . + 1082 end_stringcmd_opt: END_STRINGCMD • $default reduce using rule 1082 (end_stringcmd_opt) -state 1522 +State 1522 - 1027 string_statement: STRINGCMD string_from_list INTO name string_with_pointer $@117 on_overflow_opt end_stringcmd_opt . + 1027 string_statement: STRINGCMD string_from_list INTO name string_with_pointer $@117 on_overflow_opt end_stringcmd_opt • $default reduce using rule 1027 (string_statement) -state 1523 +State 1523 - 1046 on_overflow_opt: $@119 on_overflow . on_not_overflow + 1046 on_overflow_opt: $@119 on_overflow • on_not_overflow - NOT shift, and go to state 665 + NOT shift, and go to state 666 NOTEXCEP shift, and go to state 667 NOT [reduce using rule 1060 (on_not_overflow)] @@ -22324,23 +22901,23 @@ state 1523 not_excep go to state 1641 -state 1524 +State 1524 - 1056 on_overflow: on_opt . OVERFLOW_TOK @122 statement_list + 1056 on_overflow: on_opt • OVERFLOW_TOK @122 statement_list OVERFLOW_TOK shift, and go to state 1642 -state 1525 +State 1525 - 1033 unstring_delimited_vars: unstring_delimited_vars OR all_opt gname . + 1033 unstring_delimited_vars: unstring_delimited_vars OR all_opt gname • $default reduce using rule 1033 (unstring_delimited_vars) -state 1526 +State 1526 - 1042 unstring_tallying: TALLYING in_opt . name + 1042 unstring_tallying: TALLYING in_opt • name VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -22352,9 +22929,9 @@ state 1526 unqualified_var go to state 81 -state 1527 +State 1527 - 1029 unstring_statement: UNSTRING name unstring_delimited INTO unstring_destinations string_with_pointer unstring_tallying $@118 . on_overflow_opt end_unstring_opt + 1029 unstring_statement: UNSTRING name unstring_delimited INTO unstring_destinations string_with_pointer unstring_tallying $@118 • on_overflow_opt end_unstring_opt $default reduce using rule 1045 ($@119) @@ -22362,16 +22939,16 @@ state 1527 $@119 go to state 1402 -state 1528 +State 1528 - 1038 unstring_delim_opt: DELIMITER in_opt name . + 1038 unstring_delim_opt: DELIMITER in_opt name • $default reduce using rule 1038 (unstring_delim_opt) -state 1529 +State 1529 - 1040 unstring_count_opt: COUNT in_opt . name + 1040 unstring_count_opt: COUNT in_opt • name VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -22383,16 +22960,16 @@ state 1529 unqualified_var go to state 81 -state 1530 +State 1530 - 77 switch_off_opt: OFF status_opt is_opt STRING . + 77 switch_off_opt: OFF status_opt is_opt STRING • $default reduce using rule 77 (switch_off_opt) -state 1531 +State 1531 - 112 select_clause: ALTERNATE RECORD key_opt is_opt STRING . with_duplicates + 112 select_clause: ALTERNATE RECORD key_opt is_opt STRING • with_duplicates WITH shift, and go to state 358 @@ -22403,37 +22980,37 @@ state 1531 with_opt go to state 1647 -state 1532 +State 1532 - 526 to_integer_opt: TO integer . + 526 to_integer_opt: TO integer • $default reduce using rule 526 (to_integer_opt) -state 1533 +State 1533 - 523 chars_or_recs_opt: CHARACTERS . + 523 chars_or_recs_opt: CHARACTERS • $default reduce using rule 523 (chars_or_recs_opt) -state 1534 +State 1534 - 524 chars_or_recs_opt: RECORDS . + 524 chars_or_recs_opt: RECORDS • $default reduce using rule 524 (chars_or_recs_opt) -state 1535 +State 1535 - 499 file_description_clause_block: BLOCK contains_opt integer to_integer_opt chars_or_recs_opt . + 499 file_description_clause_block: BLOCK contains_opt integer to_integer_opt chars_or_recs_opt • $default reduce using rule 499 (file_description_clause_block) -state 1536 +State 1536 - 507 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 + 507 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 AT shift, and go to state 1648 LINES shift, and go to state 1649 @@ -22447,23 +23024,23 @@ state 1536 lines_at_opt go to state 1651 -state 1537 +State 1537 - 509 file_description_clause_linage_footing: with_opt . FOOTING at_opt data_name + 509 file_description_clause_linage_footing: with_opt • FOOTING at_opt data_name FOOTING shift, and go to state 1652 -state 1538 +State 1538 - 1005 size_opt: SIZE . + 1005 size_opt: SIZE • $default reduce using rule 1005 (size_opt) -state 1539 +State 1539 - 501 file_description_clause_record: RECORD is_opt VARYING in_opt size_opt . from_rec_varying to_rec_varying character_opts depend_rec_varying + 501 file_description_clause_record: RECORD is_opt VARYING in_opt size_opt • from_rec_varying to_rec_varying character_opts depend_rec_varying FROM shift, and go to state 1653 @@ -22476,44 +23053,44 @@ state 1539 from_opt go to state 1655 -state 1540 +State 1540 - 534 to_rec_varying: TO nliteral . + 534 to_rec_varying: TO nliteral • $default reduce using rule 534 (to_rec_varying) -state 1541 +State 1541 - 548 character_opts: CHARACTERS . + 548 character_opts: CHARACTERS • $default reduce using rule 548 (character_opts) -state 1542 +State 1542 - 500 file_description_clause_record: RECORD contains_opt integer to_rec_varying character_opts . + 500 file_description_clause_record: RECORD contains_opt integer to_rec_varying character_opts • $default reduce using rule 500 (file_description_clause_record) -state 1543 +State 1543 - 503 file_description_clause_value: VALUE OF FILE_ID is_opt filename . + 503 file_description_clause_value: VALUE OF FILE_ID is_opt filename • $default reduce using rule 503 (file_description_clause_value) -state 1544 +State 1544 - 458 array_options: OCCURS integer TO integer times_opt . DEPENDING $@48 on_opt gname $@49 indexed_by_opt + 458 array_options: OCCURS integer TO integer times_opt • DEPENDING $@48 on_opt gname $@49 indexed_by_opt DEPENDING shift, and go to state 1656 -state 1545 +State 1545 - 459 key_is_opt: DIRECTION . key_opt is_opt STRING + 459 key_is_opt: DIRECTION • key_opt is_opt STRING KEY shift, and go to state 846 @@ -22522,23 +23099,23 @@ state 1545 key_opt go to state 1657 -state 1546 +State 1546 - 461 indexed_by_opt: key_is_opt . INDEXED by_opt index_name_list + 461 indexed_by_opt: key_is_opt • INDEXED by_opt index_name_list INDEXED shift, and go to state 1658 -state 1547 +State 1547 - 455 array_options: OCCURS integer times_opt $@47 indexed_by_opt . + 455 array_options: OCCURS integer times_opt $@47 indexed_by_opt • $default reduce using rule 455 (array_options) -state 1548 +State 1548 - 480 pic_elem: CHAR . multiplier_opt + 480 pic_elem: CHAR • multiplier_opt MULTIPLIER shift, and go to state 1659 @@ -22547,37 +23124,37 @@ state 1548 multiplier_opt go to state 1660 -state 1549 +State 1549 - 479 picture: picture pic_elem . + 479 picture: picture pic_elem • $default reduce using rule 479 (picture) -state 1550 +State 1550 - 453 thru_gname_opt: THRU variable . + 453 thru_gname_opt: THRU variable • $default reduce using rule 453 (thru_gname_opt) -state 1551 +State 1551 - 212 limit_is_are_opt: LIMIT IS . + 212 limit_is_are_opt: LIMIT IS • $default reduce using rule 212 (limit_is_are_opt) -state 1552 +State 1552 - 213 limit_is_are_opt: LIMITS ARE . + 213 limit_is_are_opt: LIMITS ARE • $default reduce using rule 213 (limit_is_are_opt) -state 1553 +State 1553 - 202 report_controls_page: PAGE limit_is_are_opt integer . line_lines_opt heading_opt first_detail_opt last_detail_opt footing_opt + 202 report_controls_page: PAGE limit_is_are_opt integer • line_lines_opt heading_opt first_detail_opt last_detail_opt footing_opt LINE shift, and go to state 1341 LINES shift, and go to state 1342 @@ -22588,10 +23165,10 @@ state 1553 lines_opt go to state 1344 -state 1554 +State 1554 - 194 report_section: RD $@15 STRING $@16 report_controls PERIOD_TOK $@17 report_description . - 225 report_description: report_description . report_item + 194 report_section: RD $@15 STRING $@16 report_controls PERIOD_TOK $@17 report_description • + 225 report_description: report_description • report_item NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -22604,16 +23181,16 @@ state 1554 integer go to state 1556 -state 1555 +State 1555 - 224 report_description: report_item . + 224 report_description: report_item • $default reduce using rule 224 (report_description) -state 1556 +State 1556 - 227 report_item: integer . def_name_opt $@18 report_clauses PERIOD_TOK + 227 report_item: integer • def_name_opt $@18 report_clauses PERIOD_TOK STRING shift, and go to state 368 FILLER shift, and go to state 369 @@ -22624,10 +23201,10 @@ state 1556 def_name go to state 381 -state 1557 +State 1557 - 201 report_controls_control: control_is_are final_opt report_break_list . - 223 report_break_list: report_break_list . name + 201 report_controls_control: control_is_are final_opt report_break_list • + 223 report_break_list: report_break_list • name VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -22641,9 +23218,9 @@ state 1557 unqualified_var go to state 81 -state 1558 +State 1558 - 348 screen_source_destination: TO $@37 . name + 348 screen_source_destination: TO $@37 • name VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -22655,9 +23232,9 @@ state 1558 unqualified_var go to state 81 -state 1559 +State 1559 - 329 screen_clauses: screen_clauses COLUMN $@30 . number_is_opt plus_minus_opt name_or_lit + 329 screen_clauses: screen_clauses COLUMN $@30 • number_is_opt plus_minus_opt name_or_lit NUMBER shift, and go to state 1666 @@ -22666,9 +23243,9 @@ state 1559 number_is_opt go to state 1667 -state 1560 +State 1560 - 346 screen_source_destination: FROM $@36 . name_or_lit screen_to_name + 346 screen_source_destination: FROM $@36 • name_or_lit screen_to_name VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -22687,9 +23264,9 @@ state 1560 unqualified_var go to state 81 -state 1561 +State 1561 - 327 screen_clauses: screen_clauses LINE $@29 . number_is_opt plus_minus_opt name_or_lit + 327 screen_clauses: screen_clauses LINE $@29 • number_is_opt plus_minus_opt name_or_lit NUMBER shift, and go to state 1666 @@ -22698,9 +23275,9 @@ state 1561 number_is_opt go to state 1669 -state 1562 +State 1562 - 341 screen_clauses: screen_clauses SIZE $@34 . name_or_lit + 341 screen_clauses: screen_clauses SIZE $@34 • name_or_lit VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -22719,9 +23296,9 @@ state 1562 unqualified_var go to state 81 -state 1563 +State 1563 - 344 screen_source_destination: USING $@35 . name_or_lit + 344 screen_source_destination: USING $@35 • name_or_lit VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -22740,34 +23317,34 @@ state 1563 unqualified_var go to state 81 -state 1564 +State 1564 - 338 screen_clauses: screen_clauses value_is_are gliteral . + 338 screen_clauses: screen_clauses value_is_are gliteral • $default reduce using rule 338 (screen_clauses) -state 1565 +State 1565 - 361 screen_attrib: AUTO . + 361 screen_attrib: AUTO • $default reduce using rule 361 (screen_attrib) -state 1566 +State 1566 - 334 screen_clauses: screen_clauses with_opt BACKGROUNDCOLOR . $@32 name_or_lit + 334 screen_clauses: screen_clauses with_opt BACKGROUNDCOLOR • $@32 name_or_lit $default reduce using rule 333 ($@32) $@32 go to state 1672 -state 1567 +State 1567 - 351 screen_attrib: BLANK . SCREEN - 352 | BLANK . LINE - 369 | BLANK . when_opt ZERO + 351 screen_attrib: BLANK • SCREEN + 352 | BLANK • LINE + 369 | BLANK • when_opt ZERO LINE shift, and go to state 1673 SCREEN shift, and go to state 1674 @@ -22778,27 +23355,27 @@ state 1567 when_opt go to state 1675 -state 1568 +State 1568 - 364 screen_attrib: BLINK . + 364 screen_attrib: BLINK • $default reduce using rule 364 (screen_attrib) -state 1569 +State 1569 - 336 screen_clauses: screen_clauses with_opt COLOR . $@33 name_or_lit + 336 screen_clauses: screen_clauses with_opt COLOR • $@33 name_or_lit $default reduce using rule 335 ($@33) $@33 go to state 1676 -state 1570 +State 1570 - 353 screen_attrib: ERASE . EOL - 354 | ERASE . EOS - 355 | ERASE . + 353 screen_attrib: ERASE • EOL + 354 | ERASE • EOS + 355 | ERASE • EOL shift, and go to state 1677 EOS shift, and go to state 1678 @@ -22806,107 +23383,107 @@ state 1570 $default reduce using rule 355 (screen_attrib) -state 1571 +State 1571 - 332 screen_clauses: screen_clauses with_opt FOREGROUNDCOLOR . $@31 name_or_lit + 332 screen_clauses: screen_clauses with_opt FOREGROUNDCOLOR • $@31 name_or_lit $default reduce using rule 331 ($@31) $@31 go to state 1679 -state 1572 +State 1572 - 358 screen_attrib: FULL . + 358 screen_attrib: FULL • $default reduce using rule 358 (screen_attrib) -state 1573 +State 1573 - 368 screen_attrib: HIGHLIGHT . + 368 screen_attrib: HIGHLIGHT • $default reduce using rule 368 (screen_attrib) -state 1574 +State 1574 - 362 screen_attrib: JUSTIFIED . RIGHT - 363 | JUSTIFIED . LEFT + 362 screen_attrib: JUSTIFIED • RIGHT + 363 | JUSTIFIED • LEFT LEFT shift, and go to state 1680 RIGHT shift, and go to state 1681 -state 1575 +State 1575 - 374 screen_attrib: LOWER . + 374 screen_attrib: LOWER • $default reduce using rule 374 (screen_attrib) -state 1576 +State 1576 - 367 screen_attrib: LOWLIGHT . + 367 screen_attrib: LOWLIGHT • $default reduce using rule 367 (screen_attrib) -state 1577 +State 1577 - 359 screen_attrib: REQUIRED . + 359 screen_attrib: REQUIRED • $default reduce using rule 359 (screen_attrib) -state 1578 +State 1578 - 365 screen_attrib: REVERSEVIDEO . + 365 screen_attrib: REVERSEVIDEO • $default reduce using rule 365 (screen_attrib) -state 1579 +State 1579 - 360 screen_attrib: SECURE . + 360 screen_attrib: SECURE • $default reduce using rule 360 (screen_attrib) -state 1580 +State 1580 - 366 screen_attrib: UNDERLINE . + 366 screen_attrib: UNDERLINE • $default reduce using rule 366 (screen_attrib) -state 1581 +State 1581 - 373 screen_attrib: UPPER . + 373 screen_attrib: UPPER • $default reduce using rule 373 (screen_attrib) -state 1582 +State 1582 - 330 screen_clauses: screen_clauses with_opt screen_attrib . + 330 screen_clauses: screen_clauses with_opt screen_attrib • $default reduce using rule 330 (screen_clauses) -state 1583 +State 1583 - 357 screen_attrib: sign_clause . + 357 screen_attrib: sign_clause • $default reduce using rule 357 (screen_attrib) -state 1584 +State 1584 - 356 screen_attrib: with_opt . BELL - 370 | with_opt . NOECHO - 371 | with_opt . UPDATE - 372 | with_opt . NO ADVANCING + 356 screen_attrib: with_opt • BELL + 370 | with_opt • NOECHO + 371 | with_opt • UPDATE + 372 | with_opt • NO ADVANCING NO shift, and go to state 1682 BELL shift, and go to state 1683 @@ -22914,80 +23491,80 @@ state 1584 UPDATE shift, and go to state 1685 -state 1585 +State 1585 - 584 use_phrase: USE AFTER use_phrase_exception_error PROCEDURE on_opt use_phrase_option PERIOD_TOK . + 584 use_phrase: USE AFTER use_phrase_exception_error PROCEDURE on_opt use_phrase_option PERIOD_TOK • $default reduce using rule 584 (use_phrase) -state 1586 +State 1586 - 909 read_key_opt: KEY is_opt name . + 909 read_key_opt: KEY is_opt name • $default reduce using rule 909 (read_key_opt) -state 1587 +State 1587 - 925 read_not_invalid_key: NOT INVALID . key_opt @100 statement_list + 923 read_invalid_key: INVALID key_opt • @99 statement_list + + $default reduce using rule 922 (@99) + + @99 go to state 1686 + + +State 1588 + + 925 read_not_invalid_key: NOT INVALID • key_opt @100 statement_list KEY shift, and go to state 846 $default reduce using rule 1216 (key_opt) - key_opt go to state 1686 + key_opt go to state 1687 -state 1588 +State 1589 - 923 read_invalid_key: INVALID key_opt . @99 statement_list + 925 read_not_invalid_key: NOT • INVALID key_opt @100 statement_list - $default reduce using rule 922 (@99) - - @99 go to state 1687 + INVALID shift, and go to state 1588 -state 1589 +State 1590 - 925 read_not_invalid_key: NOT . INVALID key_opt @100 statement_list - - INVALID shift, and go to state 1587 - - -state 1590 - - 921 read_invalid_key_opt: read_invalid_key read_not_invalid_key . + 921 read_invalid_key_opt: read_invalid_key read_not_invalid_key • $default reduce using rule 921 (read_invalid_key_opt) -state 1591 +State 1591 - 836 accept_screen: ACCEPT name accept_display_options on_opt EXCEPTION $@93 variable @94 statement_list . $@95 end_accept_opt + 836 accept_screen: ACCEPT name accept_display_options on_opt EXCEPTION $@93 variable @94 statement_list • $@95 end_accept_opt $default reduce using rule 835 ($@95) $@95 go to state 1688 -state 1592 +State 1592 - 1003 on_size_error: ERROR_TOK @116 statement_list . + 1003 on_size_error: ERROR_TOK @116 statement_list • $default reduce using rule 1003 (on_size_error) -state 1593 +State 1593 - 1001 on_size_error_opt: on_opt SIZE on_size_error NOT on_opt . SIZE $@115 on_size_error + 1001 on_size_error_opt: on_opt SIZE on_size_error NOT on_opt • SIZE $@115 on_size_error SIZE shift, and go to state 1689 -state 1594 +State 1594 - 967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options @106 @107 @108 . on_exception_or_overflow on_not_exception $@109 end_call_opt + 967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options @106 @107 @108 • on_exception_or_overflow on_not_exception $@109 end_call_opt ON shift, and go to state 620 @@ -22999,9 +23576,9 @@ state 1594 on_opt go to state 1357 -state 1595 +State 1595 - 1133 parm_list: parm_list sep_opt . parameter + 1133 parm_list: parm_list sep_opt • parameter VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -23036,30 +23613,30 @@ state 1595 unqualified_var go to state 81 -state 1596 +State 1596 - 1139 parm_type: CONTENT . + 1139 parm_type: CONTENT • $default reduce using rule 1139 (parm_type) -state 1597 +State 1597 - 1137 parm_type: REFERENCE . + 1137 parm_type: REFERENCE • $default reduce using rule 1137 (parm_type) -state 1598 +State 1598 - 1138 parm_type: VALUE . + 1138 parm_type: VALUE • $default reduce using rule 1138 (parm_type) -state 1599 +State 1599 - 1136 parameter: by_opt parm_type . gname + 1136 parameter: by_opt parm_type • gname VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -23089,23 +23666,23 @@ state 1599 unqualified_var go to state 81 -state 1600 +State 1600 - 1009 end_chain_opt: END_CHAIN . + 1009 end_chain_opt: END_CHAIN • $default reduce using rule 1009 (end_chain_opt) -state 1601 +State 1601 - 981 chain_statement: CHAIN $@111 gname using_options @112 @113 on_exception_or_overflow $@114 end_chain_opt . + 981 chain_statement: CHAIN $@111 gname using_options @112 @113 on_exception_or_overflow $@114 end_chain_opt • $default reduce using rule 981 (chain_statement) -state 1602 +State 1602 - 1048 on_exception_or_overflow: on_opt exception_or_overflow @120 . statement_list + 1048 on_exception_or_overflow: on_opt exception_or_overflow @120 • statement_list READ shift, and go to state 254 WRITE shift, and go to state 255 @@ -23208,9 +23785,9 @@ state 1602 inspect_statement go to state 350 -state 1603 +State 1603 - 816 divide_body: gname BY gname GIVING name rounded_opt REMAINDER name . on_size_error_opt + 816 divide_body: gname BY gname GIVING name rounded_opt REMAINDER name • on_size_error_opt NOT shift, and go to state 985 ON shift, and go to state 620 @@ -23223,9 +23800,9 @@ state 1603 on_opt go to state 987 -state 1604 +State 1604 - 817 divide_body: gname INTO gname GIVING name rounded_opt REMAINDER name . on_size_error_opt + 817 divide_body: gname INTO gname GIVING name rounded_opt REMAINDER name • on_size_error_opt NOT shift, and go to state 985 ON shift, and go to state 620 @@ -23238,69 +23815,69 @@ state 1604 on_opt go to state 987 -state 1605 +State 1605 - 673 when_case: when_case ALSO . @72 selection_object + 673 when_case: when_case ALSO • @72 selection_object $default reduce using rule 672 (@72) @72 go to state 1696 -state 1606 +State 1606 - 665 when_case_list: WHEN @66 @67 when_case sentence_or_nothing . + 665 when_case_list: WHEN @66 @67 when_case sentence_or_nothing • $default reduce using rule 665 (when_case_list) -state 1607 +State 1607 - 682 sentence_or_nothing: conditional_statement . + 682 sentence_or_nothing: conditional_statement • $default reduce using rule 682 (sentence_or_nothing) -state 1608 +State 1608 - 690 not_opt: NOT . - - $default reduce using rule 690 (not_opt) - - -state 1609 - - 675 selection_object: ANY . + 675 selection_object: ANY • $default reduce using rule 675 (selection_object) -state 1610 +State 1609 - 677 selection_object: FALSE_TOK . + 677 selection_object: FALSE_TOK • $default reduce using rule 677 (selection_object) -state 1611 +State 1610 - 676 selection_object: TRUE_TOK . + 690 not_opt: NOT • + + $default reduce using rule 690 (not_opt) + + +State 1611 + + 676 selection_object: TRUE_TOK • $default reduce using rule 676 (selection_object) -state 1612 +State 1612 - 671 when_case: @71 selection_object . + 671 when_case: @71 selection_object • $default reduce using rule 671 (when_case) -state 1613 +State 1613 - 678 selection_object: not_opt . expr - 679 | not_opt . expr THRU expr - 680 | not_opt . cond_name + 678 selection_object: not_opt • expr + 679 | not_opt • expr THRU expr + 680 | not_opt • cond_name VARIABLE shift, and go to state 56 VARCOND shift, and go to state 422 @@ -23334,10 +23911,10 @@ state 1613 unqualified_var go to state 81 -state 1614 +State 1614 - 669 when_case_list: when_case_list WHEN @68 @69 when_case . $@70 sentence_or_nothing - 673 when_case: when_case . ALSO @72 selection_object + 669 when_case_list: when_case_list WHEN @68 @69 when_case • $@70 sentence_or_nothing + 673 when_case: when_case • ALSO @72 selection_object ALSO shift, and go to state 1605 @@ -23346,16 +23923,16 @@ state 1614 $@70 go to state 1699 -state 1615 +State 1615 - 1111 initial_opt: INITIAL_TOK . + 1111 initial_opt: INITIAL_TOK • $default reduce using rule 1111 (initial_opt) -state 1616 +State 1616 - 1109 inspect_before_after: inspect_before_after AFTER initial_opt . noallname + 1109 inspect_before_after: inspect_before_after AFTER initial_opt • noallname VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -23381,9 +23958,9 @@ state 1616 unqualified_var go to state 81 -state 1617 +State 1617 - 1108 inspect_before_after: inspect_before_after BEFORE initial_opt . noallname + 1108 inspect_before_after: inspect_before_after BEFORE initial_opt • noallname VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -23409,20 +23986,20 @@ state 1617 unqualified_var go to state 81 -state 1618 +State 1618 - 1094 tallying_for_list: tallying_for_list ALL noallname . inspect_before_after + 1094 tallying_for_list: tallying_for_list ALL noallname • inspect_before_after $default reduce using rule 1110 (inspect_before_after) inspect_before_after go to state 1702 -state 1619 +State 1619 - 1093 tallying_for_list: tallying_for_list CHARACTERS inspect_before_after . - 1108 inspect_before_after: inspect_before_after . BEFORE initial_opt noallname - 1109 | inspect_before_after . AFTER initial_opt noallname + 1093 tallying_for_list: tallying_for_list CHARACTERS inspect_before_after • + 1108 inspect_before_after: inspect_before_after • BEFORE initial_opt noallname + 1109 | inspect_before_after • AFTER initial_opt noallname AFTER shift, and go to state 1495 BEFORE shift, and go to state 1496 @@ -23430,41 +24007,41 @@ state 1619 $default reduce using rule 1093 (tallying_for_list) -state 1620 +State 1620 - 1095 tallying_for_list: tallying_for_list LEADING noallname . inspect_before_after + 1095 tallying_for_list: tallying_for_list LEADING noallname • inspect_before_after $default reduce using rule 1110 (inspect_before_after) inspect_before_after go to state 1703 -state 1621 +State 1621 - 1099 replacing_list: replacing_list CHARACTERS BY noallname . inspect_before_after + 1099 replacing_list: replacing_list CHARACTERS BY noallname • inspect_before_after $default reduce using rule 1110 (inspect_before_after) inspect_before_after go to state 1704 -state 1622 +State 1622 - 1102 replacing_by_list: replacing_by_list noallname . BY noallname inspect_before_after + 1102 replacing_by_list: replacing_by_list noallname • BY noallname inspect_before_after BY shift, and go to state 1705 -state 1623 +State 1623 - 769 sort_file_list: sort_file_list name . + 769 sort_file_list: sort_file_list name • $default reduce using rule 769 (sort_file_list) -state 1624 +State 1624 - 767 sort_output: GIVING . sort_file_list + 767 sort_output: GIVING • sort_file_list VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -23477,39 +24054,39 @@ state 1624 unqualified_var go to state 81 -state 1625 +State 1625 - 766 sort_output: OUTPUT . PROCEDURE is_opt perform_range + 766 sort_output: OUTPUT • PROCEDURE is_opt perform_range PROCEDURE shift, and go to state 1707 -state 1626 +State 1626 - 740 merge_statement: MERGE name sort_keys $@86 sort_collating_opt $@87 merge_using $@88 sort_output . + 740 merge_statement: MERGE name sort_keys $@86 sort_collating_opt $@87 merge_using $@88 sort_output • $default reduce using rule 740 (merge_statement) -state 1627 +State 1627 - 1151 perform_options: with_test_opt UNTIL @131 condition @132 perform_statements $@133 END_PERFORM . + 1151 perform_options: with_test_opt UNTIL @131 condition @132 perform_statements $@133 END_PERFORM • $default reduce using rule 1151 (perform_options) -state 1628 +State 1628 - 1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL . @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM + 1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL • @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM $default reduce using rule 1152 (@134) @134 go to state 1708 -state 1629 +State 1629 - 1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt . gname UNTIL @138 condition @139 perform_after_opt + 1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt • gname UNTIL @138 condition @139 perform_after_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -23539,26 +24116,26 @@ state 1629 unqualified_var go to state 81 -state 1630 +State 1630 - 914 read_at_end_opt: AT on_end NOT at_opt $@96 . on_end + 914 read_at_end_opt: AT on_end NOT at_opt $@96 • on_end - END shift, and go to state 1050 + END shift, and go to state 1049 on_end go to state 1710 -state 1631 +State 1631 - 916 read_at_end_opt: on_end NOT at_opt $@97 on_end . + 916 read_at_end_opt: on_end NOT at_opt $@97 on_end • $default reduce using rule 916 (read_at_end_opt) -state 1632 +State 1632 - 718 search_all_when: WHEN $@83 search_all_when_conditional . @84 search_all_when_statement - 724 search_all_when_conditional: search_all_when_conditional . AND @85 search_all_when_conditional + 718 search_all_when: WHEN $@83 search_all_when_conditional • @84 search_all_when_statement + 724 search_all_when_conditional: search_all_when_conditional • AND @85 search_all_when_conditional AND shift, and go to state 1711 @@ -23567,10 +24144,10 @@ state 1632 @84 go to state 1712 -state 1633 +State 1633 - 721 search_all_when_conditional: variable . is_opt CONDITIONAL to_opt variable - 722 | variable . is_opt CONDITIONAL to_opt literal + 721 search_all_when_conditional: variable • is_opt CONDITIONAL to_opt variable + 722 | variable • is_opt CONDITIONAL to_opt literal IS shift, and go to state 84 @@ -23579,26 +24156,26 @@ state 1633 is_opt go to state 1713 -state 1634 +State 1634 - 710 search_when: WHEN search_when_conditional . @82 search_when_statement + 710 search_when: WHEN search_when_conditional • @82 search_when_statement $default reduce using rule 709 (@82) @82 go to state 1714 -state 1635 +State 1635 - 713 search_when_conditional: name_or_lit . extended_cond_op name_or_lit + 713 search_when_conditional: name_or_lit • extended_cond_op name_or_lit CONDITIONAL shift, and go to state 591 IS shift, and go to state 592 - NOT shift, and go to state 598 - ALPHABETIC shift, and go to state 599 - ALPHABETIC_LOWER shift, and go to state 600 - ALPHABETIC_UPPER shift, and go to state 601 - NEGATIVE shift, and go to state 602 + ALPHABETIC shift, and go to state 598 + ALPHABETIC_LOWER shift, and go to state 599 + ALPHABETIC_UPPER shift, and go to state 600 + NEGATIVE shift, and go to state 601 + NOT shift, and go to state 602 NUMERIC shift, and go to state 603 POSITIVE shift, and go to state 604 ZERO shift, and go to state 605 @@ -23610,16 +24187,16 @@ state 1635 conditional go to state 610 -state 1636 +State 1636 - 708 search_when_list: search_when_list search_when . + 708 search_when_list: search_when_list search_when • $default reduce using rule 708 (search_when_list) -state 1637 +State 1637 - 764 sort_input: INPUT PROCEDURE . is_opt perform_range + 764 sort_input: INPUT PROCEDURE • is_opt perform_range IS shift, and go to state 84 @@ -23628,10 +24205,10 @@ state 1637 is_opt go to state 1716 -state 1638 +State 1638 - 765 sort_input: USING sort_file_list . - 769 sort_file_list: sort_file_list . name + 765 sort_input: USING sort_file_list • + 769 sort_file_list: sort_file_list • name VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -23645,9 +24222,9 @@ state 1638 unqualified_var go to state 81 -state 1639 +State 1639 - 747 sort_file: SORT name sort_keys $@89 sort_duplicates_opt sort_collating_opt $@90 sort_input $@91 . sort_output + 747 sort_file: SORT name sort_keys $@89 sort_duplicates_opt sort_collating_opt $@90 sort_input $@91 • sort_output GIVING shift, and go to state 1624 OUTPUT shift, and go to state 1625 @@ -23655,16 +24232,16 @@ state 1639 sort_output go to state 1717 -state 1640 +State 1640 - 1046 on_overflow_opt: $@119 on_overflow on_not_overflow . + 1046 on_overflow_opt: $@119 on_overflow on_not_overflow • $default reduce using rule 1046 (on_overflow_opt) -state 1641 +State 1641 - 1059 on_not_overflow: not_excep . on_opt OVERFLOW_TOK @123 statement_list + 1059 on_not_overflow: not_excep • on_opt OVERFLOW_TOK @123 statement_list ON shift, and go to state 620 @@ -23673,25 +24250,25 @@ state 1641 on_opt go to state 1718 -state 1642 +State 1642 - 1056 on_overflow: on_opt OVERFLOW_TOK . @122 statement_list + 1056 on_overflow: on_opt OVERFLOW_TOK • @122 statement_list $default reduce using rule 1055 (@122) @122 go to state 1719 -state 1643 +State 1643 - 1042 unstring_tallying: TALLYING in_opt name . + 1042 unstring_tallying: TALLYING in_opt name • $default reduce using rule 1042 (unstring_tallying) -state 1644 +State 1644 - 1029 unstring_statement: UNSTRING name unstring_delimited INTO unstring_destinations string_with_pointer unstring_tallying $@118 on_overflow_opt . end_unstring_opt + 1029 unstring_statement: UNSTRING name unstring_delimited INTO unstring_destinations string_with_pointer unstring_tallying $@118 on_overflow_opt • end_unstring_opt END_UNSTRING shift, and go to state 1720 @@ -23701,47 +24278,47 @@ state 1644 end_unstring_opt go to state 1721 -state 1645 +State 1645 - 1040 unstring_count_opt: COUNT in_opt name . + 1040 unstring_count_opt: COUNT in_opt name • $default reduce using rule 1040 (unstring_count_opt) -state 1646 +State 1646 - 112 select_clause: ALTERNATE RECORD key_opt is_opt STRING with_duplicates . + 112 select_clause: ALTERNATE RECORD key_opt is_opt STRING with_duplicates • $default reduce using rule 112 (select_clause) -state 1647 +State 1647 - 124 with_duplicates: with_opt . DUPLICATES + 124 with_duplicates: with_opt • DUPLICATES DUPLICATES shift, and go to state 1722 -state 1648 +State 1648 - 517 lines_at_opt: AT . + 517 lines_at_opt: AT • $default reduce using rule 517 (lines_at_opt) -state 1649 +State 1649 - 515 lines_at_opt: LINES . - 516 | LINES . AT + 515 lines_at_opt: LINES • + 516 | LINES • AT AT shift, and go to state 1723 $default reduce using rule 515 (lines_at_opt) -state 1650 +State 1650 - 507 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 + 507 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 AT shift, and go to state 1648 LINES shift, and go to state 1649 @@ -23753,16 +24330,16 @@ state 1650 lines_at_opt go to state 1725 -state 1651 +State 1651 - 511 file_description_clause_linage_top: lines_at_opt . TOP data_name + 511 file_description_clause_linage_top: lines_at_opt • TOP data_name TOP shift, and go to state 1726 -state 1652 +State 1652 - 509 file_description_clause_linage_footing: with_opt FOOTING . at_opt data_name + 509 file_description_clause_linage_footing: with_opt FOOTING • at_opt data_name AT shift, and go to state 1054 @@ -23771,16 +24348,16 @@ state 1652 at_opt go to state 1727 -state 1653 +State 1653 - 531 from_opt: FROM . + 531 from_opt: FROM • $default reduce using rule 531 (from_opt) -state 1654 +State 1654 - 501 file_description_clause_record: RECORD is_opt VARYING in_opt size_opt from_rec_varying . to_rec_varying character_opts depend_rec_varying + 501 file_description_clause_record: RECORD is_opt VARYING in_opt size_opt from_rec_varying • to_rec_varying character_opts depend_rec_varying TO shift, and go to state 1432 @@ -23789,9 +24366,9 @@ state 1654 to_rec_varying go to state 1728 -state 1655 +State 1655 - 530 from_rec_varying: from_opt . nliteral + 530 from_rec_varying: from_opt • nliteral NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -23801,18 +24378,18 @@ state 1655 signed_nliteral go to state 1069 -state 1656 +State 1656 - 458 array_options: OCCURS integer TO integer times_opt DEPENDING . $@48 on_opt gname $@49 indexed_by_opt + 458 array_options: OCCURS integer TO integer times_opt DEPENDING • $@48 on_opt gname $@49 indexed_by_opt $default reduce using rule 456 ($@48) $@48 go to state 1730 -state 1657 +State 1657 - 459 key_is_opt: DIRECTION key_opt . is_opt STRING + 459 key_is_opt: DIRECTION key_opt • is_opt STRING IS shift, and go to state 84 @@ -23821,9 +24398,9 @@ state 1657 is_opt go to state 1731 -state 1658 +State 1658 - 461 indexed_by_opt: key_is_opt INDEXED . by_opt index_name_list + 461 indexed_by_opt: key_is_opt INDEXED • by_opt index_name_list BY shift, and go to state 854 @@ -23832,23 +24409,23 @@ state 1658 by_opt go to state 1732 -state 1659 +State 1659 - 482 multiplier_opt: MULTIPLIER . + 482 multiplier_opt: MULTIPLIER • $default reduce using rule 482 (multiplier_opt) -state 1660 +State 1660 - 480 pic_elem: CHAR multiplier_opt . + 480 pic_elem: CHAR multiplier_opt • $default reduce using rule 480 (pic_elem) -state 1661 +State 1661 - 202 report_controls_page: PAGE limit_is_are_opt integer line_lines_opt . heading_opt first_detail_opt last_detail_opt footing_opt + 202 report_controls_page: PAGE limit_is_are_opt integer line_lines_opt • heading_opt first_detail_opt last_detail_opt footing_opt HEADING shift, and go to state 1733 @@ -23857,39 +24434,39 @@ state 1661 heading_opt go to state 1734 -state 1662 +State 1662 - 225 report_description: report_description report_item . + 225 report_description: report_description report_item • $default reduce using rule 225 (report_description) -state 1663 +State 1663 - 227 report_item: integer def_name_opt . $@18 report_clauses PERIOD_TOK + 227 report_item: integer def_name_opt • $@18 report_clauses PERIOD_TOK $default reduce using rule 226 ($@18) $@18 go to state 1735 -state 1664 +State 1664 - 223 report_break_list: report_break_list name . + 223 report_break_list: report_break_list name • $default reduce using rule 223 (report_break_list) -state 1665 +State 1665 - 348 screen_source_destination: TO $@37 name . + 348 screen_source_destination: TO $@37 name • $default reduce using rule 348 (screen_source_destination) -state 1666 +State 1666 - 414 number_is_opt: NUMBER . is_opt + 414 number_is_opt: NUMBER • is_opt IS shift, and go to state 84 @@ -23898,9 +24475,9 @@ state 1666 is_opt go to state 1736 -state 1667 +State 1667 - 329 screen_clauses: screen_clauses COLUMN $@30 number_is_opt . plus_minus_opt name_or_lit + 329 screen_clauses: screen_clauses COLUMN $@30 number_is_opt • plus_minus_opt name_or_lit '+' shift, and go to state 1737 '-' shift, and go to state 1738 @@ -23914,9 +24491,9 @@ state 1667 plus_minus_opt go to state 1741 -state 1668 +State 1668 - 346 screen_source_destination: FROM $@36 name_or_lit . screen_to_name + 346 screen_source_destination: FROM $@36 name_or_lit • screen_to_name TO shift, and go to state 1742 @@ -23926,9 +24503,9 @@ state 1668 screen_to_name go to state 1743 -state 1669 +State 1669 - 327 screen_clauses: screen_clauses LINE $@29 number_is_opt . plus_minus_opt name_or_lit + 327 screen_clauses: screen_clauses LINE $@29 number_is_opt • plus_minus_opt name_or_lit '+' shift, and go to state 1737 '-' shift, and go to state 1738 @@ -23942,23 +24519,23 @@ state 1669 plus_minus_opt go to state 1744 -state 1670 +State 1670 - 341 screen_clauses: screen_clauses SIZE $@34 name_or_lit . + 341 screen_clauses: screen_clauses SIZE $@34 name_or_lit • $default reduce using rule 341 (screen_clauses) -state 1671 +State 1671 - 344 screen_source_destination: USING $@35 name_or_lit . + 344 screen_source_destination: USING $@35 name_or_lit • $default reduce using rule 344 (screen_source_destination) -state 1672 +State 1672 - 334 screen_clauses: screen_clauses with_opt BACKGROUNDCOLOR $@32 . name_or_lit + 334 screen_clauses: screen_clauses with_opt BACKGROUNDCOLOR $@32 • name_or_lit VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -23977,30 +24554,30 @@ state 1672 unqualified_var go to state 81 -state 1673 +State 1673 - 352 screen_attrib: BLANK LINE . + 352 screen_attrib: BLANK LINE • $default reduce using rule 352 (screen_attrib) -state 1674 +State 1674 - 351 screen_attrib: BLANK SCREEN . + 351 screen_attrib: BLANK SCREEN • $default reduce using rule 351 (screen_attrib) -state 1675 +State 1675 - 369 screen_attrib: BLANK when_opt . ZERO + 369 screen_attrib: BLANK when_opt • ZERO ZERO shift, and go to state 1746 -state 1676 +State 1676 - 336 screen_clauses: screen_clauses with_opt COLOR $@33 . name_or_lit + 336 screen_clauses: screen_clauses with_opt COLOR $@33 • name_or_lit VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -24019,23 +24596,23 @@ state 1676 unqualified_var go to state 81 -state 1677 +State 1677 - 353 screen_attrib: ERASE EOL . + 353 screen_attrib: ERASE EOL • $default reduce using rule 353 (screen_attrib) -state 1678 +State 1678 - 354 screen_attrib: ERASE EOS . + 354 screen_attrib: ERASE EOS • $default reduce using rule 354 (screen_attrib) -state 1679 +State 1679 - 332 screen_clauses: screen_clauses with_opt FOREGROUNDCOLOR $@31 . name_or_lit + 332 screen_clauses: screen_clauses with_opt FOREGROUNDCOLOR $@31 • name_or_lit VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -24054,60 +24631,51 @@ state 1679 unqualified_var go to state 81 -state 1680 +State 1680 - 363 screen_attrib: JUSTIFIED LEFT . + 363 screen_attrib: JUSTIFIED LEFT • $default reduce using rule 363 (screen_attrib) -state 1681 +State 1681 - 362 screen_attrib: JUSTIFIED RIGHT . + 362 screen_attrib: JUSTIFIED RIGHT • $default reduce using rule 362 (screen_attrib) -state 1682 +State 1682 - 372 screen_attrib: with_opt NO . ADVANCING + 372 screen_attrib: with_opt NO • ADVANCING ADVANCING shift, and go to state 1749 -state 1683 +State 1683 - 356 screen_attrib: with_opt BELL . + 356 screen_attrib: with_opt BELL • $default reduce using rule 356 (screen_attrib) -state 1684 +State 1684 - 370 screen_attrib: with_opt NOECHO . + 370 screen_attrib: with_opt NOECHO • $default reduce using rule 370 (screen_attrib) -state 1685 +State 1685 - 371 screen_attrib: with_opt UPDATE . + 371 screen_attrib: with_opt UPDATE • $default reduce using rule 371 (screen_attrib) -state 1686 +State 1686 - 925 read_not_invalid_key: NOT INVALID key_opt . @100 statement_list - - $default reduce using rule 924 (@100) - - @100 go to state 1750 - - -state 1687 - - 923 read_invalid_key: INVALID key_opt @99 . statement_list + 923 read_invalid_key: INVALID key_opt @99 • statement_list READ shift, and go to state 254 WRITE shift, and go to state 255 @@ -24155,7 +24723,7 @@ state 1687 UNLOCK shift, and go to state 297 UNSTRING shift, and go to state 298 - statement_list go to state 1751 + statement_list go to state 1750 statements go to state 640 statement go to state 300 perform_statement go to state 301 @@ -24210,9 +24778,18 @@ state 1687 inspect_statement go to state 350 -state 1688 +State 1687 - 836 accept_screen: ACCEPT name accept_display_options on_opt EXCEPTION $@93 variable @94 statement_list $@95 . end_accept_opt + 925 read_not_invalid_key: NOT INVALID key_opt • @100 statement_list + + $default reduce using rule 924 (@100) + + @100 go to state 1751 + + +State 1688 + + 836 accept_screen: ACCEPT name accept_display_options on_opt EXCEPTION $@93 variable @94 statement_list $@95 • end_accept_opt END_ACCEPT shift, and go to state 725 @@ -24222,18 +24799,18 @@ state 1688 end_accept_opt go to state 1752 -state 1689 +State 1689 - 1001 on_size_error_opt: on_opt SIZE on_size_error NOT on_opt SIZE . $@115 on_size_error + 1001 on_size_error_opt: on_opt SIZE on_size_error NOT on_opt SIZE • $@115 on_size_error $default reduce using rule 1000 ($@115) $@115 go to state 1753 -state 1690 +State 1690 - 967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options @106 @107 @108 on_exception_or_overflow . on_not_exception $@109 end_call_opt + 967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options @106 @107 @108 on_exception_or_overflow • on_not_exception $@109 end_call_opt NOT shift, and go to state 1754 @@ -24243,48 +24820,48 @@ state 1690 on_not_exception go to state 1755 -state 1691 +State 1691 - 1133 parm_list: parm_list sep_opt parameter . + 1133 parm_list: parm_list sep_opt parameter • $default reduce using rule 1133 (parm_list) -state 1692 +State 1692 - 1136 parameter: by_opt parm_type gname . + 1136 parameter: by_opt parm_type gname • $default reduce using rule 1136 (parameter) -state 1693 +State 1693 - 1048 on_exception_or_overflow: on_opt exception_or_overflow @120 statement_list . + 1048 on_exception_or_overflow: on_opt exception_or_overflow @120 statement_list • $default reduce using rule 1048 (on_exception_or_overflow) -state 1694 +State 1694 - 816 divide_body: gname BY gname GIVING name rounded_opt REMAINDER name on_size_error_opt . + 816 divide_body: gname BY gname GIVING name rounded_opt REMAINDER name on_size_error_opt • $default reduce using rule 816 (divide_body) -state 1695 +State 1695 - 817 divide_body: gname INTO gname GIVING name rounded_opt REMAINDER name on_size_error_opt . + 817 divide_body: gname INTO gname GIVING name rounded_opt REMAINDER name on_size_error_opt • $default reduce using rule 817 (divide_body) -state 1696 +State 1696 - 673 when_case: when_case ALSO @72 . selection_object + 673 when_case: when_case ALSO @72 • selection_object - NOT shift, and go to state 1608 - ANY shift, and go to state 1609 - FALSE_TOK shift, and go to state 1610 + ANY shift, and go to state 1608 + FALSE_TOK shift, and go to state 1609 + NOT shift, and go to state 1610 TRUE_TOK shift, and go to state 1611 $default reduce using rule 689 (not_opt) @@ -24293,15 +24870,15 @@ state 1696 not_opt go to state 1613 -state 1697 +State 1697 - 678 selection_object: not_opt expr . - 679 | not_opt expr . THRU expr - 1114 expr: expr . '*' expr - 1115 | expr . '/' expr - 1116 | expr . '+' expr - 1117 | expr . '-' expr - 1118 | expr . POW_OP expr + 678 selection_object: not_opt expr • + 679 | not_opt expr • THRU expr + 1114 expr: expr • '*' expr + 1115 | expr • '/' expr + 1116 | expr • '+' expr + 1117 | expr • '-' expr + 1118 | expr • POW_OP expr THRU shift, and go to state 1757 '+' shift, and go to state 593 @@ -24313,16 +24890,16 @@ state 1697 $default reduce using rule 678 (selection_object) -state 1698 +State 1698 - 680 selection_object: not_opt cond_name . + 680 selection_object: not_opt cond_name • $default reduce using rule 680 (selection_object) -state 1699 +State 1699 - 669 when_case_list: when_case_list WHEN @68 @69 when_case $@70 . sentence_or_nothing + 669 when_case_list: when_case_list WHEN @68 @69 when_case $@70 • sentence_or_nothing END_EVALUATE reduce using rule 681 (sentence_or_nothing) NEXT reduce using rule 687 ($@75) @@ -24336,25 +24913,25 @@ state 1699 $@75 go to state 863 -state 1700 +State 1700 - 1109 inspect_before_after: inspect_before_after AFTER initial_opt noallname . + 1109 inspect_before_after: inspect_before_after AFTER initial_opt noallname • $default reduce using rule 1109 (inspect_before_after) -state 1701 +State 1701 - 1108 inspect_before_after: inspect_before_after BEFORE initial_opt noallname . + 1108 inspect_before_after: inspect_before_after BEFORE initial_opt noallname • $default reduce using rule 1108 (inspect_before_after) -state 1702 +State 1702 - 1094 tallying_for_list: tallying_for_list ALL noallname inspect_before_after . - 1108 inspect_before_after: inspect_before_after . BEFORE initial_opt noallname - 1109 | inspect_before_after . AFTER initial_opt noallname + 1094 tallying_for_list: tallying_for_list ALL noallname inspect_before_after • + 1108 inspect_before_after: inspect_before_after • BEFORE initial_opt noallname + 1109 | inspect_before_after • AFTER initial_opt noallname AFTER shift, and go to state 1495 BEFORE shift, and go to state 1496 @@ -24362,11 +24939,11 @@ state 1702 $default reduce using rule 1094 (tallying_for_list) -state 1703 +State 1703 - 1095 tallying_for_list: tallying_for_list LEADING noallname inspect_before_after . - 1108 inspect_before_after: inspect_before_after . BEFORE initial_opt noallname - 1109 | inspect_before_after . AFTER initial_opt noallname + 1095 tallying_for_list: tallying_for_list LEADING noallname inspect_before_after • + 1108 inspect_before_after: inspect_before_after • BEFORE initial_opt noallname + 1109 | inspect_before_after • AFTER initial_opt noallname AFTER shift, and go to state 1495 BEFORE shift, and go to state 1496 @@ -24374,11 +24951,11 @@ state 1703 $default reduce using rule 1095 (tallying_for_list) -state 1704 +State 1704 - 1099 replacing_list: replacing_list CHARACTERS BY noallname inspect_before_after . - 1108 inspect_before_after: inspect_before_after . BEFORE initial_opt noallname - 1109 | inspect_before_after . AFTER initial_opt noallname + 1099 replacing_list: replacing_list CHARACTERS BY noallname inspect_before_after • + 1108 inspect_before_after: inspect_before_after • BEFORE initial_opt noallname + 1109 | inspect_before_after • AFTER initial_opt noallname AFTER shift, and go to state 1495 BEFORE shift, and go to state 1496 @@ -24386,9 +24963,9 @@ state 1704 $default reduce using rule 1099 (replacing_list) -state 1705 +State 1705 - 1102 replacing_by_list: replacing_by_list noallname BY . noallname inspect_before_after + 1102 replacing_by_list: replacing_by_list noallname BY • noallname inspect_before_after VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -24414,10 +24991,10 @@ state 1705 unqualified_var go to state 81 -state 1706 +State 1706 - 767 sort_output: GIVING sort_file_list . - 769 sort_file_list: sort_file_list . name + 767 sort_output: GIVING sort_file_list • + 769 sort_file_list: sort_file_list • name VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -24431,9 +25008,9 @@ state 1706 unqualified_var go to state 81 -state 1707 +State 1707 - 766 sort_output: OUTPUT PROCEDURE . is_opt perform_range + 766 sort_output: OUTPUT PROCEDURE • is_opt perform_range IS shift, and go to state 84 @@ -24442,9 +25019,9 @@ state 1707 is_opt go to state 1760 -state 1708 +State 1708 - 1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 . condition @135 perform_after_opt perform_statements $@136 END_PERFORM + 1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 • condition @135 perform_after_opt perform_statements $@136 END_PERFORM VARIABLE shift, and go to state 56 VARCOND shift, and go to state 422 @@ -24454,11 +25031,11 @@ state 1708 CLITERAL shift, and go to state 60 '+' shift, and go to state 61 '-' shift, and go to state 62 - NOT shift, and go to state 423 ALL shift, and go to state 63 FUNCTION shift, and go to state 64 HIGHVALUES shift, and go to state 65 LOWVALUES shift, and go to state 66 + NOT shift, and go to state 423 QUOTES shift, and go to state 67 SPACES shift, and go to state 68 ZERO shift, and go to state 69 @@ -24480,32 +25057,32 @@ state 1708 unqualified_var go to state 81 -state 1709 +State 1709 - 1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname . UNTIL @138 condition @139 perform_after_opt + 1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname • UNTIL @138 condition @139 perform_after_opt UNTIL shift, and go to state 1762 -state 1710 +State 1710 - 914 read_at_end_opt: AT on_end NOT at_opt $@96 on_end . + 914 read_at_end_opt: AT on_end NOT at_opt $@96 on_end • $default reduce using rule 914 (read_at_end_opt) -state 1711 +State 1711 - 724 search_all_when_conditional: search_all_when_conditional AND . @85 search_all_when_conditional + 724 search_all_when_conditional: search_all_when_conditional AND • @85 search_all_when_conditional $default reduce using rule 723 (@85) @85 go to state 1763 -state 1712 +State 1712 - 718 search_all_when: WHEN $@83 search_all_when_conditional @84 . search_all_when_statement + 718 search_all_when: WHEN $@83 search_all_when_conditional @84 • search_all_when_statement READ shift, and go to state 254 WRITE shift, and go to state 255 @@ -24610,17 +25187,17 @@ state 1712 inspect_statement go to state 350 -state 1713 +State 1713 - 721 search_all_when_conditional: variable is_opt . CONDITIONAL to_opt variable - 722 | variable is_opt . CONDITIONAL to_opt literal + 721 search_all_when_conditional: variable is_opt • CONDITIONAL to_opt variable + 722 | variable is_opt • CONDITIONAL to_opt literal CONDITIONAL shift, and go to state 1767 -state 1714 +State 1714 - 710 search_when: WHEN search_when_conditional @82 . search_when_statement + 710 search_when: WHEN search_when_conditional @82 • search_when_statement READ shift, and go to state 254 WRITE shift, and go to state 255 @@ -24725,9 +25302,9 @@ state 1714 inspect_statement go to state 350 -state 1715 +State 1715 - 713 search_when_conditional: name_or_lit extended_cond_op . name_or_lit + 713 search_when_conditional: name_or_lit extended_cond_op • name_or_lit VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -24746,9 +25323,9 @@ state 1715 unqualified_var go to state 81 -state 1716 +State 1716 - 764 sort_input: INPUT PROCEDURE is_opt . perform_range + 764 sort_input: INPUT PROCEDURE is_opt • perform_range LABELSTR shift, and go to state 582 NLITERAL shift, and go to state 583 @@ -24757,23 +25334,23 @@ state 1716 label go to state 1773 -state 1717 +State 1717 - 747 sort_file: SORT name sort_keys $@89 sort_duplicates_opt sort_collating_opt $@90 sort_input $@91 sort_output . + 747 sort_file: SORT name sort_keys $@89 sort_duplicates_opt sort_collating_opt $@90 sort_input $@91 sort_output • $default reduce using rule 747 (sort_file) -state 1718 +State 1718 - 1059 on_not_overflow: not_excep on_opt . OVERFLOW_TOK @123 statement_list + 1059 on_not_overflow: not_excep on_opt • OVERFLOW_TOK @123 statement_list OVERFLOW_TOK shift, and go to state 1774 -state 1719 +State 1719 - 1056 on_overflow: on_opt OVERFLOW_TOK @122 . statement_list + 1056 on_overflow: on_opt OVERFLOW_TOK @122 • statement_list READ shift, and go to state 254 WRITE shift, and go to state 255 @@ -24876,51 +25453,51 @@ state 1719 inspect_statement go to state 350 -state 1720 +State 1720 - 1084 end_unstring_opt: END_UNSTRING . + 1084 end_unstring_opt: END_UNSTRING • $default reduce using rule 1084 (end_unstring_opt) -state 1721 +State 1721 - 1029 unstring_statement: UNSTRING name unstring_delimited INTO unstring_destinations string_with_pointer unstring_tallying $@118 on_overflow_opt end_unstring_opt . + 1029 unstring_statement: UNSTRING name unstring_delimited INTO unstring_destinations string_with_pointer unstring_tallying $@118 on_overflow_opt end_unstring_opt • $default reduce using rule 1029 (unstring_statement) -state 1722 +State 1722 - 124 with_duplicates: with_opt DUPLICATES . + 124 with_duplicates: with_opt DUPLICATES • $default reduce using rule 124 (with_duplicates) -state 1723 +State 1723 - 516 lines_at_opt: LINES AT . + 516 lines_at_opt: LINES AT • $default reduce using rule 516 (lines_at_opt) -state 1724 +State 1724 - 507 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 . + 507 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 • $default reduce using rule 507 (file_description_clause_linage) -state 1725 +State 1725 - 513 file_description_clause_linage_bottom: lines_at_opt . BOTTOM data_name + 513 file_description_clause_linage_bottom: lines_at_opt • BOTTOM data_name BOTTOM shift, and go to state 1776 -state 1726 +State 1726 - 511 file_description_clause_linage_top: lines_at_opt TOP . data_name + 511 file_description_clause_linage_top: lines_at_opt TOP • data_name STRING shift, and go to state 1298 NLITERAL shift, and go to state 59 @@ -24933,9 +25510,9 @@ state 1726 data_name go to state 1777 -state 1727 +State 1727 - 509 file_description_clause_linage_footing: with_opt FOOTING at_opt . data_name + 509 file_description_clause_linage_footing: with_opt FOOTING at_opt • data_name STRING shift, and go to state 1298 NLITERAL shift, and go to state 59 @@ -24948,9 +25525,9 @@ state 1727 data_name go to state 1778 -state 1728 +State 1728 - 501 file_description_clause_record: RECORD is_opt VARYING in_opt size_opt from_rec_varying to_rec_varying . character_opts depend_rec_varying + 501 file_description_clause_record: RECORD is_opt VARYING in_opt size_opt from_rec_varying to_rec_varying • character_opts depend_rec_varying CHARACTERS shift, and go to state 1541 @@ -24959,16 +25536,16 @@ state 1728 character_opts go to state 1779 -state 1729 +State 1729 - 530 from_rec_varying: from_opt nliteral . + 530 from_rec_varying: from_opt nliteral • $default reduce using rule 530 (from_rec_varying) -state 1730 +State 1730 - 458 array_options: OCCURS integer TO integer times_opt DEPENDING $@48 . on_opt gname $@49 indexed_by_opt + 458 array_options: OCCURS integer TO integer times_opt DEPENDING $@48 • on_opt gname $@49 indexed_by_opt ON shift, and go to state 620 @@ -24977,16 +25554,16 @@ state 1730 on_opt go to state 1780 -state 1731 +State 1731 - 459 key_is_opt: DIRECTION key_opt is_opt . STRING + 459 key_is_opt: DIRECTION key_opt is_opt • STRING STRING shift, and go to state 1781 -state 1732 +State 1732 - 461 indexed_by_opt: key_is_opt INDEXED by_opt . index_name_list + 461 indexed_by_opt: key_is_opt INDEXED by_opt • index_name_list STRING shift, and go to state 368 FILLER shift, and go to state 369 @@ -24995,9 +25572,9 @@ state 1732 def_name go to state 1783 -state 1733 +State 1733 - 204 heading_opt: HEADING . is_opt integer + 204 heading_opt: HEADING • is_opt integer IS shift, and go to state 84 @@ -25006,9 +25583,9 @@ state 1733 is_opt go to state 1784 -state 1734 +State 1734 - 202 report_controls_page: PAGE limit_is_are_opt integer line_lines_opt heading_opt . first_detail_opt last_detail_opt footing_opt + 202 report_controls_page: PAGE limit_is_are_opt integer line_lines_opt heading_opt • first_detail_opt last_detail_opt footing_opt FIRST shift, and go to state 1785 @@ -25017,9 +25594,9 @@ state 1734 first_detail_opt go to state 1786 -state 1735 +State 1735 - 227 report_item: integer def_name_opt $@18 . report_clauses PERIOD_TOK + 227 report_item: integer def_name_opt $@18 • report_clauses PERIOD_TOK BLANK shift, and go to state 1787 COLUMN shift, and go to state 1788 @@ -25078,44 +25655,44 @@ state 1735 leading_trailing go to state 1820 -state 1736 +State 1736 - 414 number_is_opt: NUMBER is_opt . + 414 number_is_opt: NUMBER is_opt • $default reduce using rule 414 (number_is_opt) -state 1737 +State 1737 - 410 plus_minus_opt: '+' . + 410 plus_minus_opt: '+' • $default reduce using rule 410 (plus_minus_opt) -state 1738 +State 1738 - 412 plus_minus_opt: '-' . + 412 plus_minus_opt: '-' • $default reduce using rule 412 (plus_minus_opt) -state 1739 +State 1739 - 411 plus_minus_opt: MINUS . + 411 plus_minus_opt: MINUS • $default reduce using rule 411 (plus_minus_opt) -state 1740 +State 1740 - 409 plus_minus_opt: PLUS . + 409 plus_minus_opt: PLUS • $default reduce using rule 409 (plus_minus_opt) -state 1741 +State 1741 - 329 screen_clauses: screen_clauses COLUMN $@30 number_is_opt plus_minus_opt . name_or_lit + 329 screen_clauses: screen_clauses COLUMN $@30 number_is_opt plus_minus_opt • name_or_lit VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -25134,9 +25711,9 @@ state 1741 unqualified_var go to state 81 -state 1742 +State 1742 - 350 screen_to_name: TO . name + 350 screen_to_name: TO • name VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -25148,16 +25725,16 @@ state 1742 unqualified_var go to state 81 -state 1743 +State 1743 - 346 screen_source_destination: FROM $@36 name_or_lit screen_to_name . + 346 screen_source_destination: FROM $@36 name_or_lit screen_to_name • $default reduce using rule 346 (screen_source_destination) -state 1744 +State 1744 - 327 screen_clauses: screen_clauses LINE $@29 number_is_opt plus_minus_opt . name_or_lit + 327 screen_clauses: screen_clauses LINE $@29 number_is_opt plus_minus_opt • name_or_lit VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -25176,44 +25753,51 @@ state 1744 unqualified_var go to state 81 -state 1745 +State 1745 - 334 screen_clauses: screen_clauses with_opt BACKGROUNDCOLOR $@32 name_or_lit . + 334 screen_clauses: screen_clauses with_opt BACKGROUNDCOLOR $@32 name_or_lit • $default reduce using rule 334 (screen_clauses) -state 1746 +State 1746 - 369 screen_attrib: BLANK when_opt ZERO . + 369 screen_attrib: BLANK when_opt ZERO • $default reduce using rule 369 (screen_attrib) -state 1747 +State 1747 - 336 screen_clauses: screen_clauses with_opt COLOR $@33 name_or_lit . + 336 screen_clauses: screen_clauses with_opt COLOR $@33 name_or_lit • $default reduce using rule 336 (screen_clauses) -state 1748 +State 1748 - 332 screen_clauses: screen_clauses with_opt FOREGROUNDCOLOR $@31 name_or_lit . + 332 screen_clauses: screen_clauses with_opt FOREGROUNDCOLOR $@31 name_or_lit • $default reduce using rule 332 (screen_clauses) -state 1749 +State 1749 - 372 screen_attrib: with_opt NO ADVANCING . + 372 screen_attrib: with_opt NO ADVANCING • $default reduce using rule 372 (screen_attrib) -state 1750 +State 1750 - 925 read_not_invalid_key: NOT INVALID key_opt @100 . statement_list + 923 read_invalid_key: INVALID key_opt @99 statement_list • + + $default reduce using rule 923 (read_invalid_key) + + +State 1751 + + 925 read_not_invalid_key: NOT INVALID key_opt @100 • statement_list READ shift, and go to state 254 WRITE shift, and go to state 255 @@ -25316,32 +25900,25 @@ state 1750 inspect_statement go to state 350 -state 1751 +State 1752 - 923 read_invalid_key: INVALID key_opt @99 statement_list . - - $default reduce using rule 923 (read_invalid_key) - - -state 1752 - - 836 accept_screen: ACCEPT name accept_display_options on_opt EXCEPTION $@93 variable @94 statement_list $@95 end_accept_opt . + 836 accept_screen: ACCEPT name accept_display_options on_opt EXCEPTION $@93 variable @94 statement_list $@95 end_accept_opt • $default reduce using rule 836 (accept_screen) -state 1753 +State 1753 - 1001 on_size_error_opt: on_opt SIZE on_size_error NOT on_opt SIZE $@115 . on_size_error + 1001 on_size_error_opt: on_opt SIZE on_size_error NOT on_opt SIZE $@115 • on_size_error ERROR_TOK shift, and go to state 1350 on_size_error go to state 1825 -state 1754 +State 1754 - 1053 on_not_exception: NOT . on_opt EXCEPTION @121 statement_list + 1053 on_not_exception: NOT • on_opt EXCEPTION @121 statement_list ON shift, and go to state 620 @@ -25350,25 +25927,25 @@ state 1754 on_opt go to state 1826 -state 1755 +State 1755 - 967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options @106 @107 @108 on_exception_or_overflow on_not_exception . $@109 end_call_opt + 967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options @106 @107 @108 on_exception_or_overflow on_not_exception • $@109 end_call_opt $default reduce using rule 966 ($@109) $@109 go to state 1827 -state 1756 +State 1756 - 673 when_case: when_case ALSO @72 selection_object . + 673 when_case: when_case ALSO @72 selection_object • $default reduce using rule 673 (when_case) -state 1757 +State 1757 - 679 selection_object: not_opt expr THRU . expr + 679 selection_object: not_opt expr THRU • expr VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -25400,25 +25977,25 @@ state 1757 unqualified_var go to state 81 -state 1758 +State 1758 - 669 when_case_list: when_case_list WHEN @68 @69 when_case $@70 sentence_or_nothing . + 669 when_case_list: when_case_list WHEN @68 @69 when_case $@70 sentence_or_nothing • $default reduce using rule 669 (when_case_list) -state 1759 +State 1759 - 1102 replacing_by_list: replacing_by_list noallname BY noallname . inspect_before_after + 1102 replacing_by_list: replacing_by_list noallname BY noallname • inspect_before_after $default reduce using rule 1110 (inspect_before_after) inspect_before_after go to state 1829 -state 1760 +State 1760 - 766 sort_output: OUTPUT PROCEDURE is_opt . perform_range + 766 sort_output: OUTPUT PROCEDURE is_opt • perform_range LABELSTR shift, and go to state 582 NLITERAL shift, and go to state 583 @@ -25427,11 +26004,11 @@ state 1760 label go to state 1773 -state 1761 +State 1761 - 1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 condition . @135 perform_after_opt perform_statements $@136 END_PERFORM - 1184 condition: condition . AND @143 implied_op_condition - 1186 | condition . OR @144 implied_op_condition + 1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 condition • @135 perform_after_opt perform_statements $@136 END_PERFORM + 1184 condition: condition • AND @143 implied_op_condition + 1186 | condition • OR @144 implied_op_condition OR shift, and go to state 611 AND shift, and go to state 612 @@ -25441,18 +26018,18 @@ state 1761 @135 go to state 1831 -state 1762 +State 1762 - 1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname UNTIL . @138 condition @139 perform_after_opt + 1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname UNTIL • @138 condition @139 perform_after_opt $default reduce using rule 1160 (@138) @138 go to state 1832 -state 1763 +State 1763 - 724 search_all_when_conditional: search_all_when_conditional AND @85 . search_all_when_conditional + 724 search_all_when_conditional: search_all_when_conditional AND @85 • search_all_when_conditional VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -25463,31 +26040,31 @@ state 1763 unqualified_var go to state 81 -state 1764 +State 1764 - 720 search_all_when_statement: NEXT . SENTENCE + 720 search_all_when_statement: NEXT • SENTENCE SENTENCE shift, and go to state 1834 -state 1765 +State 1765 - 719 search_all_when_statement: statement_list . + 719 search_all_when_statement: statement_list • $default reduce using rule 719 (search_all_when_statement) -state 1766 +State 1766 - 718 search_all_when: WHEN $@83 search_all_when_conditional @84 search_all_when_statement . + 718 search_all_when: WHEN $@83 search_all_when_conditional @84 search_all_when_statement • $default reduce using rule 718 (search_all_when) -state 1767 +State 1767 - 721 search_all_when_conditional: variable is_opt CONDITIONAL . to_opt variable - 722 | variable is_opt CONDITIONAL . to_opt literal + 721 search_all_when_conditional: variable is_opt CONDITIONAL • to_opt variable + 722 | variable is_opt CONDITIONAL • to_opt literal TO shift, and go to state 420 @@ -25496,44 +26073,44 @@ state 1767 to_opt go to state 1835 -state 1768 +State 1768 - 712 search_when_statement: NEXT . SENTENCE + 712 search_when_statement: NEXT • SENTENCE SENTENCE shift, and go to state 1836 -state 1769 +State 1769 - 711 search_when_statement: statement_list . + 711 search_when_statement: statement_list • $default reduce using rule 711 (search_when_statement) -state 1770 +State 1770 - 710 search_when: WHEN search_when_conditional @82 search_when_statement . + 710 search_when: WHEN search_when_conditional @82 search_when_statement • $default reduce using rule 710 (search_when) -state 1771 +State 1771 - 713 search_when_conditional: name_or_lit extended_cond_op name_or_lit . + 713 search_when_conditional: name_or_lit extended_cond_op name_or_lit • $default reduce using rule 713 (search_when_conditional) -state 1772 +State 1772 - 764 sort_input: INPUT PROCEDURE is_opt perform_range . + 764 sort_input: INPUT PROCEDURE is_opt perform_range • $default reduce using rule 764 (sort_input) -state 1773 +State 1773 - 1143 perform_range: label . perform_thru_opt + 1143 perform_range: label • perform_thru_opt THRU shift, and go to state 643 @@ -25542,25 +26119,25 @@ state 1773 perform_thru_opt go to state 1837 -state 1774 +State 1774 - 1059 on_not_overflow: not_excep on_opt OVERFLOW_TOK . @123 statement_list + 1059 on_not_overflow: not_excep on_opt OVERFLOW_TOK • @123 statement_list $default reduce using rule 1058 (@123) @123 go to state 1838 -state 1775 +State 1775 - 1056 on_overflow: on_opt OVERFLOW_TOK @122 statement_list . + 1056 on_overflow: on_opt OVERFLOW_TOK @122 statement_list • $default reduce using rule 1056 (on_overflow) -state 1776 +State 1776 - 513 file_description_clause_linage_bottom: lines_at_opt BOTTOM . data_name + 513 file_description_clause_linage_bottom: lines_at_opt BOTTOM • data_name STRING shift, and go to state 1298 NLITERAL shift, and go to state 59 @@ -25573,23 +26150,23 @@ state 1776 data_name go to state 1839 -state 1777 +State 1777 - 511 file_description_clause_linage_top: lines_at_opt TOP data_name . + 511 file_description_clause_linage_top: lines_at_opt TOP data_name • $default reduce using rule 511 (file_description_clause_linage_top) -state 1778 +State 1778 - 509 file_description_clause_linage_footing: with_opt FOOTING at_opt data_name . + 509 file_description_clause_linage_footing: with_opt FOOTING at_opt data_name • $default reduce using rule 509 (file_description_clause_linage_footing) -state 1779 +State 1779 - 501 file_description_clause_record: RECORD is_opt VARYING in_opt size_opt from_rec_varying to_rec_varying character_opts . depend_rec_varying + 501 file_description_clause_record: RECORD is_opt VARYING in_opt size_opt from_rec_varying to_rec_varying character_opts • depend_rec_varying DEPENDING shift, and go to state 1840 @@ -25598,9 +26175,9 @@ state 1779 depend_rec_varying go to state 1841 -state 1780 +State 1780 - 458 array_options: OCCURS integer TO integer times_opt DEPENDING $@48 on_opt . gname $@49 indexed_by_opt + 458 array_options: OCCURS integer TO integer times_opt DEPENDING $@48 on_opt • gname $@49 indexed_by_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -25630,17 +26207,17 @@ state 1780 unqualified_var go to state 81 -state 1781 +State 1781 - 459 key_is_opt: DIRECTION key_opt is_opt STRING . + 459 key_is_opt: DIRECTION key_opt is_opt STRING • $default reduce using rule 459 (key_is_opt) -state 1782 +State 1782 - 461 indexed_by_opt: key_is_opt INDEXED by_opt index_name_list . - 464 index_name_list: index_name_list . def_name + 461 indexed_by_opt: key_is_opt INDEXED by_opt index_name_list • + 464 index_name_list: index_name_list • def_name STRING shift, and go to state 368 FILLER shift, and go to state 369 @@ -25650,16 +26227,16 @@ state 1782 def_name go to state 1843 -state 1783 +State 1783 - 463 index_name_list: def_name . + 463 index_name_list: def_name • $default reduce using rule 463 (index_name_list) -state 1784 +State 1784 - 204 heading_opt: HEADING is_opt . integer + 204 heading_opt: HEADING is_opt • integer NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -25669,16 +26246,16 @@ state 1784 integer go to state 1844 -state 1785 +State 1785 - 219 first_detail_opt: FIRST . DETAIL is_opt integer + 219 first_detail_opt: FIRST • DETAIL is_opt integer DETAIL shift, and go to state 1845 -state 1786 +State 1786 - 202 report_controls_page: PAGE limit_is_are_opt integer line_lines_opt heading_opt first_detail_opt . last_detail_opt footing_opt + 202 report_controls_page: PAGE limit_is_are_opt integer line_lines_opt heading_opt first_detail_opt • last_detail_opt footing_opt LAST shift, and go to state 1846 @@ -25687,9 +26264,9 @@ state 1786 last_detail_opt go to state 1847 -state 1787 +State 1787 - 298 report_clause_blank_zero: BLANK . when_opt ZERO + 298 report_clause_blank_zero: BLANK • when_opt ZERO WHEN shift, and go to state 1138 @@ -25698,11 +26275,11 @@ state 1787 when_opt go to state 1848 -state 1788 +State 1788 - 277 report_clause_column_is: COLUMN . report_clause_column_orientation is_are_opt - 278 | COLUMN . NUMBER report_clause_column_orientation is_opt - 279 | COLUMN . NUMBERS report_clause_column_orientation are_opt + 277 report_clause_column_is: COLUMN • report_clause_column_orientation is_are_opt + 278 | COLUMN • NUMBER report_clause_column_orientation is_opt + 279 | COLUMN • NUMBERS report_clause_column_orientation are_opt CENTER shift, and go to state 1849 LEFT shift, and go to state 1850 @@ -25715,9 +26292,9 @@ state 1788 report_clause_column_orientation go to state 1854 -state 1789 +State 1789 - 280 report_clause_column_is: COLUMNS . report_clause_column_orientation are_opt + 280 report_clause_column_is: COLUMNS • report_clause_column_orientation are_opt CENTER shift, and go to state 1849 LEFT shift, and go to state 1850 @@ -25728,16 +26305,16 @@ state 1789 report_clause_column_orientation go to state 1855 -state 1790 +State 1790 - 265 report_clause_usage_display: DISPLAY . + 265 report_clause_usage_display: DISPLAY • $default reduce using rule 265 (report_clause_usage_display) -state 1791 +State 1791 - 297 report_clause_group_indicate: GROUP . indicate_opt + 297 report_clause_group_indicate: GROUP • indicate_opt INDICATE shift, and go to state 1856 @@ -25746,9 +26323,9 @@ state 1791 indicate_opt go to state 1857 -state 1792 +State 1792 - 266 report_clause_justified: JUSTIFIED . right_opt + 266 report_clause_justified: JUSTIFIED • right_opt RIGHT shift, and go to state 1858 @@ -25757,18 +26334,18 @@ state 1792 right_opt go to state 1859 -state 1793 +State 1793 - 308 leading_trailing: LEADING . + 308 leading_trailing: LEADING • $default reduce using rule 308 (leading_trailing) -state 1794 +State 1794 - 272 report_clause_line_is: LINE . is_are_opt - 273 | LINE . NUMBER is_opt - 274 | LINE . NUMBERS are_opt + 272 report_clause_line_is: LINE • is_are_opt + 273 | LINE • NUMBER is_opt + 274 | LINE • NUMBERS are_opt IS shift, and go to state 1860 ARE shift, and go to state 1861 @@ -25780,9 +26357,9 @@ state 1794 is_are_opt go to state 1864 -state 1795 +State 1795 - 275 report_clause_line_is: LINES . are_opt + 275 report_clause_line_is: LINES • are_opt ARE shift, and go to state 1130 @@ -25791,25 +26368,25 @@ state 1795 are_opt go to state 1865 -state 1796 +State 1796 - 267 report_clause_next_group: NEXT . GROUP is_opt integer_on_next_page + 267 report_clause_next_group: NEXT • GROUP is_opt integer_on_next_page GROUP shift, and go to state 1866 -state 1797 +State 1797 - 263 report_clause_picture: PICTURE . $@23 is_opt picture + 263 report_clause_picture: PICTURE • $@23 is_opt picture $default reduce using rule 262 ($@23) $@23 go to state 1867 -state 1798 +State 1798 - 260 report_clause_sign_is: SIGN . is_opt leading_trailing SEPARATE character_opt + 260 report_clause_sign_is: SIGN • is_opt leading_trailing SEPARATE character_opt IS shift, and go to state 84 @@ -25818,34 +26395,34 @@ state 1798 is_opt go to state 1868 -state 1799 +State 1799 - 289 report_clause_svs: SOURCE . $@24 is_opt gname_page_counter + 289 report_clause_svs: SOURCE • $@24 is_opt gname_page_counter $default reduce using rule 288 ($@24) $@24 go to state 1869 -state 1800 +State 1800 - 293 report_clause_svs: SUM . $@25 gname_list $@26 upon_opt reset_opt + 293 report_clause_svs: SUM • $@25 gname_list $@26 upon_opt reset_opt $default reduce using rule 291 ($@25) $@25 go to state 1870 -state 1801 +State 1801 - 309 leading_trailing: TRAILING . + 309 leading_trailing: TRAILING • $default reduce using rule 309 (leading_trailing) -state 1802 +State 1802 - 241 report_clause_type: TYPE . is_opt report_clause_type2 + 241 report_clause_type: TYPE • is_opt report_clause_type2 IS shift, and go to state 84 @@ -25854,9 +26431,9 @@ state 1802 is_opt go to state 1871 -state 1803 +State 1803 - 264 report_clause_usage_display: USAGE . is_opt DISPLAY + 264 report_clause_usage_display: USAGE • is_opt DISPLAY IS shift, and go to state 84 @@ -25865,9 +26442,9 @@ state 1803 is_opt go to state 1872 -state 1804 +State 1804 - 290 report_clause_svs: VALUE . is_opt literal + 290 report_clause_svs: VALUE • is_opt literal IS shift, and go to state 84 @@ -25876,10 +26453,10 @@ state 1804 is_opt go to state 1873 -state 1805 +State 1805 - 227 report_item: integer def_name_opt $@18 report_clauses . PERIOD_TOK - 229 report_clauses: report_clauses . report_clause + 227 report_item: integer def_name_opt $@18 report_clauses • PERIOD_TOK + 229 report_clauses: report_clauses • report_clause BLANK shift, and go to state 1787 COLUMN shift, and go to state 1788 @@ -25938,68 +26515,68 @@ state 1805 leading_trailing go to state 1820 -state 1806 +State 1806 - 228 report_clauses: report_clause . + 228 report_clauses: report_clause • $default reduce using rule 228 (report_clauses) -state 1807 +State 1807 - 232 report_clause: report_clause_type . + 232 report_clause: report_clause_type • $default reduce using rule 232 (report_clause) -state 1808 +State 1808 - 235 report_clause: report_clause_sign_is . + 235 report_clause: report_clause_sign_is • $default reduce using rule 235 (report_clause) -state 1809 +State 1809 - 234 report_clause: report_clause_picture . + 234 report_clause: report_clause_picture • $default reduce using rule 234 (report_clause) -state 1810 +State 1810 - 233 report_clause: report_clause_usage_display . + 233 report_clause: report_clause_usage_display • $default reduce using rule 233 (report_clause) -state 1811 +State 1811 - 236 report_clause: report_clause_justified . + 236 report_clause: report_clause_justified • $default reduce using rule 236 (report_clause) -state 1812 +State 1812 - 231 report_clause: report_clause_next_group . + 231 report_clause: report_clause_next_group • $default reduce using rule 231 (report_clause) -state 1813 +State 1813 - 230 report_clause: report_clause_line . + 230 report_clause: report_clause_line • $default reduce using rule 230 (report_clause) -state 1814 +State 1814 - 268 report_clause_line: report_clause_line_is . integer ON NEXT PAGE - 269 | report_clause_line_is . integer NEXT PAGE - 270 | report_clause_line_is . integer - 271 | report_clause_line_is . PLUS integer + 268 report_clause_line: report_clause_line_is • integer ON NEXT PAGE + 269 | report_clause_line_is • integer NEXT PAGE + 270 | report_clause_line_is • integer + 271 | report_clause_line_is • PLUS integer NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -26010,16 +26587,16 @@ state 1814 integer go to state 1877 -state 1815 +State 1815 - 238 report_clause: report_clause_column . + 238 report_clause: report_clause_column • $default reduce using rule 238 (report_clause) -state 1816 +State 1816 - 276 report_clause_column: report_clause_column_is . integer + 276 report_clause_column: report_clause_column_is • integer NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -26029,79 +26606,79 @@ state 1816 integer go to state 1878 -state 1817 +State 1817 - 239 report_clause: report_clause_svs . + 239 report_clause: report_clause_svs • $default reduce using rule 239 (report_clause) -state 1818 +State 1818 - 240 report_clause: report_clause_group_indicate . + 240 report_clause: report_clause_group_indicate • $default reduce using rule 240 (report_clause) -state 1819 +State 1819 - 237 report_clause: report_clause_blank_zero . + 237 report_clause: report_clause_blank_zero • $default reduce using rule 237 (report_clause) -state 1820 +State 1820 - 261 report_clause_sign_is: leading_trailing . SEPARATE character_opt + 261 report_clause_sign_is: leading_trailing • SEPARATE character_opt SEPARATE shift, and go to state 1879 -state 1821 +State 1821 - 329 screen_clauses: screen_clauses COLUMN $@30 number_is_opt plus_minus_opt name_or_lit . + 329 screen_clauses: screen_clauses COLUMN $@30 number_is_opt plus_minus_opt name_or_lit • $default reduce using rule 329 (screen_clauses) -state 1822 +State 1822 - 350 screen_to_name: TO name . + 350 screen_to_name: TO name • $default reduce using rule 350 (screen_to_name) -state 1823 +State 1823 - 327 screen_clauses: screen_clauses LINE $@29 number_is_opt plus_minus_opt name_or_lit . + 327 screen_clauses: screen_clauses LINE $@29 number_is_opt plus_minus_opt name_or_lit • $default reduce using rule 327 (screen_clauses) -state 1824 +State 1824 - 925 read_not_invalid_key: NOT INVALID key_opt @100 statement_list . + 925 read_not_invalid_key: NOT INVALID key_opt @100 statement_list • $default reduce using rule 925 (read_not_invalid_key) -state 1825 +State 1825 - 1001 on_size_error_opt: on_opt SIZE on_size_error NOT on_opt SIZE $@115 on_size_error . + 1001 on_size_error_opt: on_opt SIZE on_size_error NOT on_opt SIZE $@115 on_size_error • $default reduce using rule 1001 (on_size_error_opt) -state 1826 +State 1826 - 1053 on_not_exception: NOT on_opt . EXCEPTION @121 statement_list + 1053 on_not_exception: NOT on_opt • EXCEPTION @121 statement_list EXCEPTION shift, and go to state 1880 -state 1827 +State 1827 - 967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options @106 @107 @108 on_exception_or_overflow on_not_exception $@109 . end_call_opt + 967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options @106 @107 @108 on_exception_or_overflow on_not_exception $@109 • end_call_opt END_CALL shift, and go to state 1881 @@ -26111,14 +26688,14 @@ state 1827 end_call_opt go to state 1882 -state 1828 +State 1828 - 679 selection_object: not_opt expr THRU expr . - 1114 expr: expr . '*' expr - 1115 | expr . '/' expr - 1116 | expr . '+' expr - 1117 | expr . '-' expr - 1118 | expr . POW_OP expr + 679 selection_object: not_opt expr THRU expr • + 1114 expr: expr • '*' expr + 1115 | expr • '/' expr + 1116 | expr • '+' expr + 1117 | expr • '-' expr + 1118 | expr • POW_OP expr '+' shift, and go to state 593 '-' shift, and go to state 594 @@ -26129,11 +26706,11 @@ state 1828 $default reduce using rule 679 (selection_object) -state 1829 +State 1829 - 1102 replacing_by_list: replacing_by_list noallname BY noallname inspect_before_after . - 1108 inspect_before_after: inspect_before_after . BEFORE initial_opt noallname - 1109 | inspect_before_after . AFTER initial_opt noallname + 1102 replacing_by_list: replacing_by_list noallname BY noallname inspect_before_after • + 1108 inspect_before_after: inspect_before_after • BEFORE initial_opt noallname + 1109 | inspect_before_after • AFTER initial_opt noallname AFTER shift, and go to state 1495 BEFORE shift, and go to state 1496 @@ -26141,16 +26718,16 @@ state 1829 $default reduce using rule 1102 (replacing_by_list) -state 1830 +State 1830 - 766 sort_output: OUTPUT PROCEDURE is_opt perform_range . + 766 sort_output: OUTPUT PROCEDURE is_opt perform_range • $default reduce using rule 766 (sort_output) -state 1831 +State 1831 - 1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 condition @135 . perform_after_opt perform_statements $@136 END_PERFORM + 1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 condition @135 • perform_after_opt perform_statements $@136 END_PERFORM AFTER shift, and go to state 1883 @@ -26159,9 +26736,9 @@ state 1831 perform_after_opt go to state 1884 -state 1832 +State 1832 - 1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname UNTIL @138 . condition @139 perform_after_opt + 1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname UNTIL @138 • condition @139 perform_after_opt VARIABLE shift, and go to state 56 VARCOND shift, and go to state 422 @@ -26171,11 +26748,11 @@ state 1832 CLITERAL shift, and go to state 60 '+' shift, and go to state 61 '-' shift, and go to state 62 - NOT shift, and go to state 423 ALL shift, and go to state 63 FUNCTION shift, and go to state 64 HIGHVALUES shift, and go to state 65 LOWVALUES shift, and go to state 66 + NOT shift, and go to state 423 QUOTES shift, and go to state 67 SPACES shift, and go to state 68 ZERO shift, and go to state 69 @@ -26197,25 +26774,25 @@ state 1832 unqualified_var go to state 81 -state 1833 +State 1833 - 724 search_all_when_conditional: search_all_when_conditional . AND @85 search_all_when_conditional - 724 | search_all_when_conditional AND @85 search_all_when_conditional . + 724 search_all_when_conditional: search_all_when_conditional • AND @85 search_all_when_conditional + 724 | search_all_when_conditional AND @85 search_all_when_conditional • $default reduce using rule 724 (search_all_when_conditional) -state 1834 +State 1834 - 720 search_all_when_statement: NEXT SENTENCE . + 720 search_all_when_statement: NEXT SENTENCE • $default reduce using rule 720 (search_all_when_statement) -state 1835 +State 1835 - 721 search_all_when_conditional: variable is_opt CONDITIONAL to_opt . variable - 722 | variable is_opt CONDITIONAL to_opt . literal + 721 search_all_when_conditional: variable is_opt CONDITIONAL to_opt • variable + 722 | variable is_opt CONDITIONAL to_opt • literal VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -26231,23 +26808,23 @@ state 1835 unqualified_var go to state 81 -state 1836 +State 1836 - 712 search_when_statement: NEXT SENTENCE . + 712 search_when_statement: NEXT SENTENCE • $default reduce using rule 712 (search_when_statement) -state 1837 +State 1837 - 1143 perform_range: label perform_thru_opt . + 1143 perform_range: label perform_thru_opt • $default reduce using rule 1143 (perform_range) -state 1838 +State 1838 - 1059 on_not_overflow: not_excep on_opt OVERFLOW_TOK @123 . statement_list + 1059 on_not_overflow: not_excep on_opt OVERFLOW_TOK @123 • statement_list READ shift, and go to state 254 WRITE shift, and go to state 255 @@ -26350,16 +26927,16 @@ state 1838 inspect_statement go to state 350 -state 1839 +State 1839 - 513 file_description_clause_linage_bottom: lines_at_opt BOTTOM data_name . + 513 file_description_clause_linage_bottom: lines_at_opt BOTTOM data_name • $default reduce using rule 513 (file_description_clause_linage_bottom) -state 1840 +State 1840 - 528 depend_rec_varying: DEPENDING . on_opt STRING + 528 depend_rec_varying: DEPENDING • on_opt STRING ON shift, and go to state 620 @@ -26368,39 +26945,39 @@ state 1840 on_opt go to state 1889 -state 1841 +State 1841 - 501 file_description_clause_record: RECORD is_opt VARYING in_opt size_opt from_rec_varying to_rec_varying character_opts depend_rec_varying . + 501 file_description_clause_record: RECORD is_opt VARYING in_opt size_opt from_rec_varying to_rec_varying character_opts depend_rec_varying • $default reduce using rule 501 (file_description_clause_record) -state 1842 +State 1842 - 458 array_options: OCCURS integer TO integer times_opt DEPENDING $@48 on_opt gname . $@49 indexed_by_opt + 458 array_options: OCCURS integer TO integer times_opt DEPENDING $@48 on_opt gname • $@49 indexed_by_opt $default reduce using rule 457 ($@49) $@49 go to state 1890 -state 1843 +State 1843 - 464 index_name_list: index_name_list def_name . + 464 index_name_list: index_name_list def_name • $default reduce using rule 464 (index_name_list) -state 1844 +State 1844 - 204 heading_opt: HEADING is_opt integer . + 204 heading_opt: HEADING is_opt integer • $default reduce using rule 204 (heading_opt) -state 1845 +State 1845 - 219 first_detail_opt: FIRST DETAIL . is_opt integer + 219 first_detail_opt: FIRST DETAIL • is_opt integer IS shift, and go to state 84 @@ -26409,16 +26986,16 @@ state 1845 is_opt go to state 1891 -state 1846 +State 1846 - 217 last_detail_opt: LAST . DETAIL is_opt integer + 217 last_detail_opt: LAST • DETAIL is_opt integer DETAIL shift, and go to state 1892 -state 1847 +State 1847 - 202 report_controls_page: PAGE limit_is_are_opt integer line_lines_opt heading_opt first_detail_opt last_detail_opt . footing_opt + 202 report_controls_page: PAGE limit_is_are_opt integer line_lines_opt heading_opt first_detail_opt last_detail_opt • footing_opt FOOTING shift, and go to state 1893 @@ -26427,30 +27004,30 @@ state 1847 footing_opt go to state 1894 -state 1848 +State 1848 - 298 report_clause_blank_zero: BLANK when_opt . ZERO + 298 report_clause_blank_zero: BLANK when_opt • ZERO ZERO shift, and go to state 1895 -state 1849 +State 1849 - 283 report_clause_column_orientation: CENTER . + 283 report_clause_column_orientation: CENTER • $default reduce using rule 283 (report_clause_column_orientation) -state 1850 +State 1850 - 282 report_clause_column_orientation: LEFT . + 282 report_clause_column_orientation: LEFT • $default reduce using rule 282 (report_clause_column_orientation) -state 1851 +State 1851 - 278 report_clause_column_is: COLUMN NUMBER . report_clause_column_orientation is_opt + 278 report_clause_column_is: COLUMN NUMBER • report_clause_column_orientation is_opt CENTER shift, and go to state 1849 LEFT shift, and go to state 1850 @@ -26461,9 +27038,9 @@ state 1851 report_clause_column_orientation go to state 1896 -state 1852 +State 1852 - 279 report_clause_column_is: COLUMN NUMBERS . report_clause_column_orientation are_opt + 279 report_clause_column_is: COLUMN NUMBERS • report_clause_column_orientation are_opt CENTER shift, and go to state 1849 LEFT shift, and go to state 1850 @@ -26474,16 +27051,16 @@ state 1852 report_clause_column_orientation go to state 1897 -state 1853 +State 1853 - 284 report_clause_column_orientation: RIGHT . + 284 report_clause_column_orientation: RIGHT • $default reduce using rule 284 (report_clause_column_orientation) -state 1854 +State 1854 - 277 report_clause_column_is: COLUMN report_clause_column_orientation . is_are_opt + 277 report_clause_column_is: COLUMN report_clause_column_orientation • is_are_opt IS shift, and go to state 1860 ARE shift, and go to state 1861 @@ -26493,9 +27070,9 @@ state 1854 is_are_opt go to state 1898 -state 1855 +State 1855 - 280 report_clause_column_is: COLUMNS report_clause_column_orientation . are_opt + 280 report_clause_column_is: COLUMNS report_clause_column_orientation • are_opt ARE shift, and go to state 1130 @@ -26504,51 +27081,51 @@ state 1855 are_opt go to state 1899 -state 1856 +State 1856 - 300 indicate_opt: INDICATE . + 300 indicate_opt: INDICATE • $default reduce using rule 300 (indicate_opt) -state 1857 +State 1857 - 297 report_clause_group_indicate: GROUP indicate_opt . + 297 report_clause_group_indicate: GROUP indicate_opt • $default reduce using rule 297 (report_clause_group_indicate) -state 1858 +State 1858 - 311 right_opt: RIGHT . + 311 right_opt: RIGHT • $default reduce using rule 311 (right_opt) -state 1859 +State 1859 - 266 report_clause_justified: JUSTIFIED right_opt . + 266 report_clause_justified: JUSTIFIED right_opt • $default reduce using rule 266 (report_clause_justified) -state 1860 +State 1860 - 286 is_are_opt: IS . + 286 is_are_opt: IS • $default reduce using rule 286 (is_are_opt) -state 1861 +State 1861 - 287 is_are_opt: ARE . + 287 is_are_opt: ARE • $default reduce using rule 287 (is_are_opt) -state 1862 +State 1862 - 273 report_clause_line_is: LINE NUMBER . is_opt + 273 report_clause_line_is: LINE NUMBER • is_opt IS shift, and go to state 84 @@ -26557,9 +27134,9 @@ state 1862 is_opt go to state 1900 -state 1863 +State 1863 - 274 report_clause_line_is: LINE NUMBERS . are_opt + 274 report_clause_line_is: LINE NUMBERS • are_opt ARE shift, and go to state 1130 @@ -26568,23 +27145,23 @@ state 1863 are_opt go to state 1901 -state 1864 +State 1864 - 272 report_clause_line_is: LINE is_are_opt . + 272 report_clause_line_is: LINE is_are_opt • $default reduce using rule 272 (report_clause_line_is) -state 1865 +State 1865 - 275 report_clause_line_is: LINES are_opt . + 275 report_clause_line_is: LINES are_opt • $default reduce using rule 275 (report_clause_line_is) -state 1866 +State 1866 - 267 report_clause_next_group: NEXT GROUP . is_opt integer_on_next_page + 267 report_clause_next_group: NEXT GROUP • is_opt integer_on_next_page IS shift, and go to state 84 @@ -26593,9 +27170,9 @@ state 1866 is_opt go to state 1902 -state 1867 +State 1867 - 263 report_clause_picture: PICTURE $@23 . is_opt picture + 263 report_clause_picture: PICTURE $@23 • is_opt picture IS shift, and go to state 84 @@ -26604,9 +27181,9 @@ state 1867 is_opt go to state 1903 -state 1868 +State 1868 - 260 report_clause_sign_is: SIGN is_opt . leading_trailing SEPARATE character_opt + 260 report_clause_sign_is: SIGN is_opt • leading_trailing SEPARATE character_opt LEADING shift, and go to state 1793 TRAILING shift, and go to state 1801 @@ -26614,9 +27191,9 @@ state 1868 leading_trailing go to state 1904 -state 1869 +State 1869 - 289 report_clause_svs: SOURCE $@24 . is_opt gname_page_counter + 289 report_clause_svs: SOURCE $@24 • is_opt gname_page_counter IS shift, and go to state 84 @@ -26625,9 +27202,9 @@ state 1869 is_opt go to state 1905 -state 1870 +State 1870 - 293 report_clause_svs: SUM $@25 . gname_list $@26 upon_opt reset_opt + 293 report_clause_svs: SUM $@25 • gname_list $@26 upon_opt reset_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -26658,9 +27235,9 @@ state 1870 unqualified_var go to state 81 -state 1871 +State 1871 - 241 report_clause_type: TYPE is_opt . report_clause_type2 + 241 report_clause_type: TYPE is_opt • report_clause_type2 CF shift, and go to state 1907 CH shift, and go to state 1908 @@ -26677,16 +27254,16 @@ state 1871 report_clause_type2 go to state 1918 -state 1872 +State 1872 - 264 report_clause_usage_display: USAGE is_opt . DISPLAY + 264 report_clause_usage_display: USAGE is_opt • DISPLAY DISPLAY shift, and go to state 1919 -state 1873 +State 1873 - 290 report_clause_svs: VALUE is_opt . literal + 290 report_clause_svs: VALUE is_opt • literal NLITERAL shift, and go to state 59 CLITERAL shift, and go to state 60 @@ -26697,23 +27274,23 @@ state 1873 signed_nliteral go to state 77 -state 1874 +State 1874 - 227 report_item: integer def_name_opt $@18 report_clauses PERIOD_TOK . + 227 report_item: integer def_name_opt $@18 report_clauses PERIOD_TOK • $default reduce using rule 227 (report_item) -state 1875 +State 1875 - 229 report_clauses: report_clauses report_clause . + 229 report_clauses: report_clauses report_clause • $default reduce using rule 229 (report_clauses) -state 1876 +State 1876 - 271 report_clause_line: report_clause_line_is PLUS . integer + 271 report_clause_line: report_clause_line_is PLUS • integer NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -26723,11 +27300,11 @@ state 1876 integer go to state 1921 -state 1877 +State 1877 - 268 report_clause_line: report_clause_line_is integer . ON NEXT PAGE - 269 | report_clause_line_is integer . NEXT PAGE - 270 | report_clause_line_is integer . + 268 report_clause_line: report_clause_line_is integer • ON NEXT PAGE + 269 | report_clause_line_is integer • NEXT PAGE + 270 | report_clause_line_is integer • NEXT shift, and go to state 1922 ON shift, and go to state 1923 @@ -26736,16 +27313,16 @@ state 1877 $default reduce using rule 270 (report_clause_line) -state 1878 +State 1878 - 276 report_clause_column: report_clause_column_is integer . + 276 report_clause_column: report_clause_column_is integer • $default reduce using rule 276 (report_clause_column) -state 1879 +State 1879 - 261 report_clause_sign_is: leading_trailing SEPARATE . character_opt + 261 report_clause_sign_is: leading_trailing SEPARATE • character_opt CHARACTER shift, and go to state 1441 @@ -26754,37 +27331,37 @@ state 1879 character_opt go to state 1924 -state 1880 +State 1880 - 1053 on_not_exception: NOT on_opt EXCEPTION . @121 statement_list + 1053 on_not_exception: NOT on_opt EXCEPTION • @121 statement_list $default reduce using rule 1052 (@121) @121 go to state 1925 -state 1881 +State 1881 - 1007 end_call_opt: END_CALL . + 1007 end_call_opt: END_CALL • $default reduce using rule 1007 (end_call_opt) -state 1882 +State 1882 - 967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options @106 @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt . + 967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options @106 @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt • $default reduce using rule 967 (call_statement) -state 1883 +State 1883 - 1168 perform_after_opt: AFTER . perform_after - 1169 | AFTER . perform_after AFTER perform_after - 1170 | AFTER . perform_after AFTER perform_after AFTER perform_after - 1171 | AFTER . perform_after AFTER perform_after AFTER perform_after AFTER perform_after - 1172 | AFTER . perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after - 1173 | AFTER . perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after + 1168 perform_after_opt: AFTER • perform_after + 1169 | AFTER • perform_after AFTER perform_after + 1170 | AFTER • perform_after AFTER perform_after AFTER perform_after + 1171 | AFTER • perform_after AFTER perform_after AFTER perform_after AFTER perform_after + 1172 | AFTER • perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after + 1173 | AFTER • perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -26797,9 +27374,9 @@ state 1883 unqualified_var go to state 81 -state 1884 +State 1884 - 1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt . perform_statements $@136 END_PERFORM + 1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt • perform_statements $@136 END_PERFORM $default reduce using rule 1176 ($@141) @@ -26807,11 +27384,11 @@ state 1884 $@141 go to state 450 -state 1885 +State 1885 - 1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname UNTIL @138 condition . @139 perform_after_opt - 1184 condition: condition . AND @143 implied_op_condition - 1186 | condition . OR @144 implied_op_condition + 1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname UNTIL @138 condition • @139 perform_after_opt + 1184 condition: condition • AND @143 implied_op_condition + 1186 | condition • OR @144 implied_op_condition OR shift, and go to state 611 AND shift, and go to state 612 @@ -26821,37 +27398,37 @@ state 1885 @139 go to state 1929 -state 1886 +State 1886 - 722 search_all_when_conditional: variable is_opt CONDITIONAL to_opt literal . + 722 search_all_when_conditional: variable is_opt CONDITIONAL to_opt literal • $default reduce using rule 722 (search_all_when_conditional) -state 1887 +State 1887 - 721 search_all_when_conditional: variable is_opt CONDITIONAL to_opt variable . + 721 search_all_when_conditional: variable is_opt CONDITIONAL to_opt variable • $default reduce using rule 721 (search_all_when_conditional) -state 1888 +State 1888 - 1059 on_not_overflow: not_excep on_opt OVERFLOW_TOK @123 statement_list . + 1059 on_not_overflow: not_excep on_opt OVERFLOW_TOK @123 statement_list • $default reduce using rule 1059 (on_not_overflow) -state 1889 +State 1889 - 528 depend_rec_varying: DEPENDING on_opt . STRING + 528 depend_rec_varying: DEPENDING on_opt • STRING STRING shift, and go to state 1930 -state 1890 +State 1890 - 458 array_options: OCCURS integer TO integer times_opt DEPENDING $@48 on_opt gname $@49 . indexed_by_opt + 458 array_options: OCCURS integer TO integer times_opt DEPENDING $@48 on_opt gname $@49 • indexed_by_opt DIRECTION shift, and go to state 1545 @@ -26862,9 +27439,9 @@ state 1890 indexed_by_opt go to state 1931 -state 1891 +State 1891 - 219 first_detail_opt: FIRST DETAIL is_opt . integer + 219 first_detail_opt: FIRST DETAIL is_opt • integer NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -26874,9 +27451,9 @@ state 1891 integer go to state 1932 -state 1892 +State 1892 - 217 last_detail_opt: LAST DETAIL . is_opt integer + 217 last_detail_opt: LAST DETAIL • is_opt integer IS shift, and go to state 84 @@ -26885,9 +27462,9 @@ state 1892 is_opt go to state 1933 -state 1893 +State 1893 - 215 footing_opt: FOOTING . is_opt integer + 215 footing_opt: FOOTING • is_opt integer IS shift, and go to state 84 @@ -26896,23 +27473,23 @@ state 1893 is_opt go to state 1934 -state 1894 +State 1894 - 202 report_controls_page: PAGE limit_is_are_opt integer line_lines_opt heading_opt first_detail_opt last_detail_opt footing_opt . + 202 report_controls_page: PAGE limit_is_are_opt integer line_lines_opt heading_opt first_detail_opt last_detail_opt footing_opt • $default reduce using rule 202 (report_controls_page) -state 1895 +State 1895 - 298 report_clause_blank_zero: BLANK when_opt ZERO . + 298 report_clause_blank_zero: BLANK when_opt ZERO • $default reduce using rule 298 (report_clause_blank_zero) -state 1896 +State 1896 - 278 report_clause_column_is: COLUMN NUMBER report_clause_column_orientation . is_opt + 278 report_clause_column_is: COLUMN NUMBER report_clause_column_orientation • is_opt IS shift, and go to state 84 @@ -26921,9 +27498,9 @@ state 1896 is_opt go to state 1935 -state 1897 +State 1897 - 279 report_clause_column_is: COLUMN NUMBERS report_clause_column_orientation . are_opt + 279 report_clause_column_is: COLUMN NUMBERS report_clause_column_orientation • are_opt ARE shift, and go to state 1130 @@ -26932,37 +27509,37 @@ state 1897 are_opt go to state 1936 -state 1898 +State 1898 - 277 report_clause_column_is: COLUMN report_clause_column_orientation is_are_opt . + 277 report_clause_column_is: COLUMN report_clause_column_orientation is_are_opt • $default reduce using rule 277 (report_clause_column_is) -state 1899 +State 1899 - 280 report_clause_column_is: COLUMNS report_clause_column_orientation are_opt . + 280 report_clause_column_is: COLUMNS report_clause_column_orientation are_opt • $default reduce using rule 280 (report_clause_column_is) -state 1900 +State 1900 - 273 report_clause_line_is: LINE NUMBER is_opt . + 273 report_clause_line_is: LINE NUMBER is_opt • $default reduce using rule 273 (report_clause_line_is) -state 1901 +State 1901 - 274 report_clause_line_is: LINE NUMBERS are_opt . + 274 report_clause_line_is: LINE NUMBERS are_opt • $default reduce using rule 274 (report_clause_line_is) -state 1902 +State 1902 - 267 report_clause_next_group: NEXT GROUP is_opt . integer_on_next_page + 267 report_clause_next_group: NEXT GROUP is_opt • integer_on_next_page NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -26975,25 +27552,25 @@ state 1902 integer go to state 1940 -state 1903 +State 1903 - 263 report_clause_picture: PICTURE $@23 is_opt . picture + 263 report_clause_picture: PICTURE $@23 is_opt • picture $default reduce using rule 478 (picture) picture go to state 1941 -state 1904 +State 1904 - 260 report_clause_sign_is: SIGN is_opt leading_trailing . SEPARATE character_opt + 260 report_clause_sign_is: SIGN is_opt leading_trailing • SEPARATE character_opt SEPARATE shift, and go to state 1942 -state 1905 +State 1905 - 289 report_clause_svs: SOURCE $@24 is_opt . gname_page_counter + 289 report_clause_svs: SOURCE $@24 is_opt • gname_page_counter VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -27025,10 +27602,10 @@ state 1905 unqualified_var go to state 81 -state 1906 +State 1906 - 293 report_clause_svs: SUM $@25 gname_list . $@26 upon_opt reset_opt - 1244 gname_list: gname_list . sep_opt gname + 293 report_clause_svs: SUM $@25 gname_list • $@26 upon_opt reset_opt + 1244 gname_list: gname_list • sep_opt gname LISTSEP shift, and go to state 98 @@ -27052,145 +27629,145 @@ state 1906 sep_opt go to state 99 -state 1907 +State 1907 - 257 report_clause_type2: CF . $@22 name_final_opt + 257 report_clause_type2: CF • $@22 name_final_opt $default reduce using rule 256 ($@22) $@22 go to state 1947 -state 1908 +State 1908 - 254 report_clause_type2: CH . $@21 name_final_opt + 254 report_clause_type2: CH • $@21 name_final_opt $default reduce using rule 253 ($@21) $@21 go to state 1948 -state 1909 +State 1909 - 245 report_clause_type2: CONTROL . HEADING $@19 name_final_opt - 248 | CONTROL . FOOTING $@20 name_final_opt + 245 report_clause_type2: CONTROL • HEADING $@19 name_final_opt + 248 | CONTROL • FOOTING $@20 name_final_opt FOOTING shift, and go to state 1949 HEADING shift, and go to state 1950 -state 1910 +State 1910 - 255 report_clause_type2: DE . + 255 report_clause_type2: DE • $default reduce using rule 255 (report_clause_type2) -state 1911 +State 1911 - 246 report_clause_type2: DETAIL . + 246 report_clause_type2: DETAIL • $default reduce using rule 246 (report_clause_type2) -state 1912 +State 1912 - 243 report_clause_type2: PAGE . HEADING - 249 | PAGE . FOOTING + 243 report_clause_type2: PAGE • HEADING + 249 | PAGE • FOOTING FOOTING shift, and go to state 1951 HEADING shift, and go to state 1952 -state 1913 +State 1913 - 258 report_clause_type2: PF . + 258 report_clause_type2: PF • $default reduce using rule 258 (report_clause_type2) -state 1914 +State 1914 - 252 report_clause_type2: PH . + 252 report_clause_type2: PH • $default reduce using rule 252 (report_clause_type2) -state 1915 +State 1915 - 242 report_clause_type2: REPORT . HEADING - 250 | REPORT . FOOTING + 242 report_clause_type2: REPORT • HEADING + 250 | REPORT • FOOTING FOOTING shift, and go to state 1953 HEADING shift, and go to state 1954 -state 1916 +State 1916 - 259 report_clause_type2: RF . + 259 report_clause_type2: RF • $default reduce using rule 259 (report_clause_type2) -state 1917 +State 1917 - 251 report_clause_type2: RH . + 251 report_clause_type2: RH • $default reduce using rule 251 (report_clause_type2) -state 1918 +State 1918 - 241 report_clause_type: TYPE is_opt report_clause_type2 . + 241 report_clause_type: TYPE is_opt report_clause_type2 • $default reduce using rule 241 (report_clause_type) -state 1919 +State 1919 - 264 report_clause_usage_display: USAGE is_opt DISPLAY . + 264 report_clause_usage_display: USAGE is_opt DISPLAY • $default reduce using rule 264 (report_clause_usage_display) -state 1920 +State 1920 - 290 report_clause_svs: VALUE is_opt literal . + 290 report_clause_svs: VALUE is_opt literal • $default reduce using rule 290 (report_clause_svs) -state 1921 +State 1921 - 271 report_clause_line: report_clause_line_is PLUS integer . + 271 report_clause_line: report_clause_line_is PLUS integer • $default reduce using rule 271 (report_clause_line) -state 1922 +State 1922 - 269 report_clause_line: report_clause_line_is integer NEXT . PAGE + 269 report_clause_line: report_clause_line_is integer NEXT • PAGE PAGE shift, and go to state 1955 -state 1923 +State 1923 - 268 report_clause_line: report_clause_line_is integer ON . NEXT PAGE + 268 report_clause_line: report_clause_line_is integer ON • NEXT PAGE NEXT shift, and go to state 1956 -state 1924 +State 1924 - 261 report_clause_sign_is: leading_trailing SEPARATE character_opt . + 261 report_clause_sign_is: leading_trailing SEPARATE character_opt • $default reduce using rule 261 (report_clause_sign_is) -state 1925 +State 1925 - 1053 on_not_exception: NOT on_opt EXCEPTION @121 . statement_list + 1053 on_not_exception: NOT on_opt EXCEPTION @121 • statement_list READ shift, and go to state 254 WRITE shift, and go to state 255 @@ -27293,39 +27870,39 @@ state 1925 inspect_statement go to state 350 -state 1926 +State 1926 - 1168 perform_after_opt: AFTER perform_after . - 1169 | AFTER perform_after . AFTER perform_after - 1170 | AFTER perform_after . AFTER perform_after AFTER perform_after - 1171 | AFTER perform_after . AFTER perform_after AFTER perform_after AFTER perform_after - 1172 | AFTER perform_after . AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after - 1173 | AFTER perform_after . AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after + 1168 perform_after_opt: AFTER perform_after • + 1169 | AFTER perform_after • AFTER perform_after + 1170 | AFTER perform_after • AFTER perform_after AFTER perform_after + 1171 | AFTER perform_after • AFTER perform_after AFTER perform_after AFTER perform_after + 1172 | AFTER perform_after • AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after + 1173 | AFTER perform_after • AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER shift, and go to state 1958 $default reduce using rule 1168 (perform_after_opt) -state 1927 +State 1927 - 1175 perform_after: name . FROM gname by_opt gname UNTIL @140 condition + 1175 perform_after: name • FROM gname by_opt gname UNTIL @140 condition FROM shift, and go to state 1959 -state 1928 +State 1928 - 1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements . $@136 END_PERFORM + 1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements • $@136 END_PERFORM $default reduce using rule 1154 ($@136) $@136 go to state 1960 -state 1929 +State 1929 - 1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname UNTIL @138 condition @139 . perform_after_opt + 1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname UNTIL @138 condition @139 • perform_after_opt AFTER shift, and go to state 1883 @@ -27334,30 +27911,30 @@ state 1929 perform_after_opt go to state 1961 -state 1930 +State 1930 - 528 depend_rec_varying: DEPENDING on_opt STRING . + 528 depend_rec_varying: DEPENDING on_opt STRING • $default reduce using rule 528 (depend_rec_varying) -state 1931 +State 1931 - 458 array_options: OCCURS integer TO integer times_opt DEPENDING $@48 on_opt gname $@49 indexed_by_opt . + 458 array_options: OCCURS integer TO integer times_opt DEPENDING $@48 on_opt gname $@49 indexed_by_opt • $default reduce using rule 458 (array_options) -state 1932 +State 1932 - 219 first_detail_opt: FIRST DETAIL is_opt integer . + 219 first_detail_opt: FIRST DETAIL is_opt integer • $default reduce using rule 219 (first_detail_opt) -state 1933 +State 1933 - 217 last_detail_opt: LAST DETAIL is_opt . integer + 217 last_detail_opt: LAST DETAIL is_opt • integer NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -27367,9 +27944,9 @@ state 1933 integer go to state 1962 -state 1934 +State 1934 - 215 footing_opt: FOOTING is_opt . integer + 215 footing_opt: FOOTING is_opt • integer NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -27379,30 +27956,30 @@ state 1934 integer go to state 1963 -state 1935 +State 1935 - 278 report_clause_column_is: COLUMN NUMBER report_clause_column_orientation is_opt . + 278 report_clause_column_is: COLUMN NUMBER report_clause_column_orientation is_opt • $default reduce using rule 278 (report_clause_column_is) -state 1936 +State 1936 - 279 report_clause_column_is: COLUMN NUMBERS report_clause_column_orientation are_opt . + 279 report_clause_column_is: COLUMN NUMBERS report_clause_column_orientation are_opt • $default reduce using rule 279 (report_clause_column_is) -state 1937 +State 1937 - 316 integer_on_next_page: NEXT . PAGE + 316 integer_on_next_page: NEXT • PAGE PAGE shift, and go to state 1964 -state 1938 +State 1938 - 315 integer_on_next_page: PLUS . integer + 315 integer_on_next_page: PLUS • integer NLITERAL shift, and go to state 59 '+' shift, and go to state 61 @@ -27412,24 +27989,24 @@ state 1938 integer go to state 1965 -state 1939 +State 1939 - 267 report_clause_next_group: NEXT GROUP is_opt integer_on_next_page . + 267 report_clause_next_group: NEXT GROUP is_opt integer_on_next_page • $default reduce using rule 267 (report_clause_next_group) -state 1940 +State 1940 - 314 integer_on_next_page: integer . + 314 integer_on_next_page: integer • $default reduce using rule 314 (integer_on_next_page) -state 1941 +State 1941 - 263 report_clause_picture: PICTURE $@23 is_opt picture . - 479 picture: picture . pic_elem + 263 report_clause_picture: PICTURE $@23 is_opt picture • + 479 picture: picture • pic_elem CHAR shift, and go to state 1548 @@ -27438,9 +28015,9 @@ state 1941 pic_elem go to state 1549 -state 1942 +State 1942 - 260 report_clause_sign_is: SIGN is_opt leading_trailing SEPARATE . character_opt + 260 report_clause_sign_is: SIGN is_opt leading_trailing SEPARATE • character_opt CHARACTER shift, and go to state 1441 @@ -27449,30 +28026,30 @@ state 1942 character_opt go to state 1966 -state 1943 +State 1943 - 295 gname_page_counter: PAGE_COUNTER . + 295 gname_page_counter: PAGE_COUNTER • $default reduce using rule 295 (gname_page_counter) -state 1944 +State 1944 - 289 report_clause_svs: SOURCE $@24 is_opt gname_page_counter . + 289 report_clause_svs: SOURCE $@24 is_opt gname_page_counter • $default reduce using rule 289 (report_clause_svs) -state 1945 +State 1945 - 294 gname_page_counter: gname . + 294 gname_page_counter: gname • $default reduce using rule 294 (gname_page_counter) -state 1946 +State 1946 - 293 report_clause_svs: SUM $@25 gname_list $@26 . upon_opt reset_opt + 293 report_clause_svs: SUM $@25 gname_list $@26 • upon_opt reset_opt UPON shift, and go to state 1967 @@ -27481,9 +28058,9 @@ state 1946 upon_opt go to state 1968 -state 1947 +State 1947 - 257 report_clause_type2: CF $@22 . name_final_opt + 257 report_clause_type2: CF $@22 • name_final_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -27515,9 +28092,9 @@ state 1947 unqualified_var go to state 81 -state 1948 +State 1948 - 254 report_clause_type2: CH $@21 . name_final_opt + 254 report_clause_type2: CH $@21 • name_final_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -27549,80 +28126,80 @@ state 1948 unqualified_var go to state 81 -state 1949 +State 1949 - 248 report_clause_type2: CONTROL FOOTING . $@20 name_final_opt + 248 report_clause_type2: CONTROL FOOTING • $@20 name_final_opt $default reduce using rule 247 ($@20) $@20 go to state 1973 -state 1950 +State 1950 - 245 report_clause_type2: CONTROL HEADING . $@19 name_final_opt + 245 report_clause_type2: CONTROL HEADING • $@19 name_final_opt $default reduce using rule 244 ($@19) $@19 go to state 1974 -state 1951 +State 1951 - 249 report_clause_type2: PAGE FOOTING . + 249 report_clause_type2: PAGE FOOTING • $default reduce using rule 249 (report_clause_type2) -state 1952 +State 1952 - 243 report_clause_type2: PAGE HEADING . + 243 report_clause_type2: PAGE HEADING • $default reduce using rule 243 (report_clause_type2) -state 1953 +State 1953 - 250 report_clause_type2: REPORT FOOTING . + 250 report_clause_type2: REPORT FOOTING • $default reduce using rule 250 (report_clause_type2) -state 1954 +State 1954 - 242 report_clause_type2: REPORT HEADING . + 242 report_clause_type2: REPORT HEADING • $default reduce using rule 242 (report_clause_type2) -state 1955 +State 1955 - 269 report_clause_line: report_clause_line_is integer NEXT PAGE . + 269 report_clause_line: report_clause_line_is integer NEXT PAGE • $default reduce using rule 269 (report_clause_line) -state 1956 +State 1956 - 268 report_clause_line: report_clause_line_is integer ON NEXT . PAGE + 268 report_clause_line: report_clause_line_is integer ON NEXT • PAGE PAGE shift, and go to state 1975 -state 1957 +State 1957 - 1053 on_not_exception: NOT on_opt EXCEPTION @121 statement_list . + 1053 on_not_exception: NOT on_opt EXCEPTION @121 statement_list • $default reduce using rule 1053 (on_not_exception) -state 1958 +State 1958 - 1169 perform_after_opt: AFTER perform_after AFTER . perform_after - 1170 | AFTER perform_after AFTER . perform_after AFTER perform_after - 1171 | AFTER perform_after AFTER . perform_after AFTER perform_after AFTER perform_after - 1172 | AFTER perform_after AFTER . perform_after AFTER perform_after AFTER perform_after AFTER perform_after - 1173 | AFTER perform_after AFTER . perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after + 1169 perform_after_opt: AFTER perform_after AFTER • perform_after + 1170 | AFTER perform_after AFTER • perform_after AFTER perform_after + 1171 | AFTER perform_after AFTER • perform_after AFTER perform_after AFTER perform_after + 1172 | AFTER perform_after AFTER • perform_after AFTER perform_after AFTER perform_after AFTER perform_after + 1173 | AFTER perform_after AFTER • perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -27635,9 +28212,9 @@ state 1958 unqualified_var go to state 81 -state 1959 +State 1959 - 1175 perform_after: name FROM . gname by_opt gname UNTIL @140 condition + 1175 perform_after: name FROM • gname by_opt gname UNTIL @140 condition VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -27667,58 +28244,58 @@ state 1959 unqualified_var go to state 81 -state 1960 +State 1960 - 1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 . END_PERFORM + 1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 • END_PERFORM END_PERFORM shift, and go to state 1978 -state 1961 +State 1961 - 1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname UNTIL @138 condition @139 perform_after_opt . + 1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname UNTIL @138 condition @139 perform_after_opt • $default reduce using rule 1162 (perform_options) -state 1962 +State 1962 - 217 last_detail_opt: LAST DETAIL is_opt integer . + 217 last_detail_opt: LAST DETAIL is_opt integer • $default reduce using rule 217 (last_detail_opt) -state 1963 +State 1963 - 215 footing_opt: FOOTING is_opt integer . + 215 footing_opt: FOOTING is_opt integer • $default reduce using rule 215 (footing_opt) -state 1964 +State 1964 - 316 integer_on_next_page: NEXT PAGE . + 316 integer_on_next_page: NEXT PAGE • $default reduce using rule 316 (integer_on_next_page) -state 1965 +State 1965 - 315 integer_on_next_page: PLUS integer . + 315 integer_on_next_page: PLUS integer • $default reduce using rule 315 (integer_on_next_page) -state 1966 +State 1966 - 260 report_clause_sign_is: SIGN is_opt leading_trailing SEPARATE character_opt . + 260 report_clause_sign_is: SIGN is_opt leading_trailing SEPARATE character_opt • $default reduce using rule 260 (report_clause_sign_is) -state 1967 +State 1967 - 302 upon_opt: UPON . gname_list + 302 upon_opt: UPON • gname_list VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -27749,9 +28326,9 @@ state 1967 unqualified_var go to state 81 -state 1968 +State 1968 - 293 report_clause_svs: SUM $@25 gname_list $@26 upon_opt . reset_opt + 293 report_clause_svs: SUM $@25 gname_list $@26 upon_opt • reset_opt RESET shift, and go to state 1980 @@ -27760,37 +28337,37 @@ state 1968 reset_opt go to state 1981 -state 1969 +State 1969 - 313 name_final_opt: FINAL . + 313 name_final_opt: FINAL • $default reduce using rule 313 (name_final_opt) -state 1970 +State 1970 - 257 report_clause_type2: CF $@22 name_final_opt . + 257 report_clause_type2: CF $@22 name_final_opt • $default reduce using rule 257 (report_clause_type2) -state 1971 +State 1971 - 312 name_final_opt: gname . + 312 name_final_opt: gname • $default reduce using rule 312 (name_final_opt) -state 1972 +State 1972 - 254 report_clause_type2: CH $@21 name_final_opt . + 254 report_clause_type2: CH $@21 name_final_opt • $default reduce using rule 254 (report_clause_type2) -state 1973 +State 1973 - 248 report_clause_type2: CONTROL FOOTING $@20 . name_final_opt + 248 report_clause_type2: CONTROL FOOTING $@20 • name_final_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -27822,9 +28399,9 @@ state 1973 unqualified_var go to state 81 -state 1974 +State 1974 - 245 report_clause_type2: CONTROL HEADING $@19 . name_final_opt + 245 report_clause_type2: CONTROL HEADING $@19 • name_final_opt VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -27856,29 +28433,29 @@ state 1974 unqualified_var go to state 81 -state 1975 +State 1975 - 268 report_clause_line: report_clause_line_is integer ON NEXT PAGE . + 268 report_clause_line: report_clause_line_is integer ON NEXT PAGE • $default reduce using rule 268 (report_clause_line) -state 1976 +State 1976 - 1169 perform_after_opt: AFTER perform_after AFTER perform_after . - 1170 | AFTER perform_after AFTER perform_after . AFTER perform_after - 1171 | AFTER perform_after AFTER perform_after . AFTER perform_after AFTER perform_after - 1172 | AFTER perform_after AFTER perform_after . AFTER perform_after AFTER perform_after AFTER perform_after - 1173 | AFTER perform_after AFTER perform_after . AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after + 1169 perform_after_opt: AFTER perform_after AFTER perform_after • + 1170 | AFTER perform_after AFTER perform_after • AFTER perform_after + 1171 | AFTER perform_after AFTER perform_after • AFTER perform_after AFTER perform_after + 1172 | AFTER perform_after AFTER perform_after • AFTER perform_after AFTER perform_after AFTER perform_after + 1173 | AFTER perform_after AFTER perform_after • AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER shift, and go to state 1984 $default reduce using rule 1169 (perform_after_opt) -state 1977 +State 1977 - 1175 perform_after: name FROM gname . by_opt gname UNTIL @140 condition + 1175 perform_after: name FROM gname • by_opt gname UNTIL @140 condition BY shift, and go to state 854 @@ -27887,17 +28464,17 @@ state 1977 by_opt go to state 1985 -state 1978 +State 1978 - 1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM . + 1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM • $default reduce using rule 1155 (perform_options) -state 1979 +State 1979 - 302 upon_opt: UPON gname_list . - 1244 gname_list: gname_list . sep_opt gname + 302 upon_opt: UPON gname_list • + 1244 gname_list: gname_list • sep_opt gname LISTSEP shift, and go to state 98 @@ -27920,10 +28497,10 @@ state 1979 sep_opt go to state 99 -state 1980 +State 1980 - 304 reset_opt: RESET . gname - 305 | RESET . FINAL + 304 reset_opt: RESET • gname + 305 | RESET • FINAL VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -27954,33 +28531,33 @@ state 1980 unqualified_var go to state 81 -state 1981 +State 1981 - 293 report_clause_svs: SUM $@25 gname_list $@26 upon_opt reset_opt . + 293 report_clause_svs: SUM $@25 gname_list $@26 upon_opt reset_opt • $default reduce using rule 293 (report_clause_svs) -state 1982 +State 1982 - 248 report_clause_type2: CONTROL FOOTING $@20 name_final_opt . + 248 report_clause_type2: CONTROL FOOTING $@20 name_final_opt • $default reduce using rule 248 (report_clause_type2) -state 1983 +State 1983 - 245 report_clause_type2: CONTROL HEADING $@19 name_final_opt . + 245 report_clause_type2: CONTROL HEADING $@19 name_final_opt • $default reduce using rule 245 (report_clause_type2) -state 1984 +State 1984 - 1170 perform_after_opt: AFTER perform_after AFTER perform_after AFTER . perform_after - 1171 | AFTER perform_after AFTER perform_after AFTER . perform_after AFTER perform_after - 1172 | AFTER perform_after AFTER perform_after AFTER . perform_after AFTER perform_after AFTER perform_after - 1173 | AFTER perform_after AFTER perform_after AFTER . perform_after AFTER perform_after AFTER perform_after AFTER perform_after + 1170 perform_after_opt: AFTER perform_after AFTER perform_after AFTER • perform_after + 1171 | AFTER perform_after AFTER perform_after AFTER • perform_after AFTER perform_after + 1172 | AFTER perform_after AFTER perform_after AFTER • perform_after AFTER perform_after AFTER perform_after + 1173 | AFTER perform_after AFTER perform_after AFTER • perform_after AFTER perform_after AFTER perform_after AFTER perform_after VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -27993,9 +28570,9 @@ state 1984 unqualified_var go to state 81 -state 1985 +State 1985 - 1175 perform_after: name FROM gname by_opt . gname UNTIL @140 condition + 1175 perform_after: name FROM gname by_opt • gname UNTIL @140 condition VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -28025,44 +28602,44 @@ state 1985 unqualified_var go to state 81 -state 1986 +State 1986 - 305 reset_opt: RESET FINAL . + 305 reset_opt: RESET FINAL • $default reduce using rule 305 (reset_opt) -state 1987 +State 1987 - 304 reset_opt: RESET gname . + 304 reset_opt: RESET gname • $default reduce using rule 304 (reset_opt) -state 1988 +State 1988 - 1170 perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after . - 1171 | AFTER perform_after AFTER perform_after AFTER perform_after . AFTER perform_after - 1172 | AFTER perform_after AFTER perform_after AFTER perform_after . AFTER perform_after AFTER perform_after - 1173 | AFTER perform_after AFTER perform_after AFTER perform_after . AFTER perform_after AFTER perform_after AFTER perform_after + 1170 perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after • + 1171 | AFTER perform_after AFTER perform_after AFTER perform_after • AFTER perform_after + 1172 | AFTER perform_after AFTER perform_after AFTER perform_after • AFTER perform_after AFTER perform_after + 1173 | AFTER perform_after AFTER perform_after AFTER perform_after • AFTER perform_after AFTER perform_after AFTER perform_after AFTER shift, and go to state 1990 $default reduce using rule 1170 (perform_after_opt) -state 1989 +State 1989 - 1175 perform_after: name FROM gname by_opt gname . UNTIL @140 condition + 1175 perform_after: name FROM gname by_opt gname • UNTIL @140 condition UNTIL shift, and go to state 1991 -state 1990 +State 1990 - 1171 perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after AFTER . perform_after - 1172 | AFTER perform_after AFTER perform_after AFTER perform_after AFTER . perform_after AFTER perform_after - 1173 | AFTER perform_after AFTER perform_after AFTER perform_after AFTER . perform_after AFTER perform_after AFTER perform_after + 1171 perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after AFTER • perform_after + 1172 | AFTER perform_after AFTER perform_after AFTER perform_after AFTER • perform_after AFTER perform_after + 1173 | AFTER perform_after AFTER perform_after AFTER perform_after AFTER • perform_after AFTER perform_after AFTER perform_after VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -28075,29 +28652,29 @@ state 1990 unqualified_var go to state 81 -state 1991 +State 1991 - 1175 perform_after: name FROM gname by_opt gname UNTIL . @140 condition + 1175 perform_after: name FROM gname by_opt gname UNTIL • @140 condition $default reduce using rule 1174 (@140) @140 go to state 1993 -state 1992 +State 1992 - 1171 perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after . - 1172 | AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after . AFTER perform_after - 1173 | AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after . AFTER perform_after AFTER perform_after + 1171 perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after • + 1172 | AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after • AFTER perform_after + 1173 | AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after • AFTER perform_after AFTER perform_after AFTER shift, and go to state 1994 $default reduce using rule 1171 (perform_after_opt) -state 1993 +State 1993 - 1175 perform_after: name FROM gname by_opt gname UNTIL @140 . condition + 1175 perform_after: name FROM gname by_opt gname UNTIL @140 • condition VARIABLE shift, and go to state 56 VARCOND shift, and go to state 422 @@ -28107,11 +28684,11 @@ state 1993 CLITERAL shift, and go to state 60 '+' shift, and go to state 61 '-' shift, and go to state 62 - NOT shift, and go to state 423 ALL shift, and go to state 63 FUNCTION shift, and go to state 64 HIGHVALUES shift, and go to state 65 LOWVALUES shift, and go to state 66 + NOT shift, and go to state 423 QUOTES shift, and go to state 67 SPACES shift, and go to state 68 ZERO shift, and go to state 69 @@ -28133,10 +28710,10 @@ state 1993 unqualified_var go to state 81 -state 1994 +State 1994 - 1172 perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER . perform_after - 1173 | AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER . perform_after AFTER perform_after + 1172 perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER • perform_after + 1173 | AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER • perform_after AFTER perform_after VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -28149,11 +28726,11 @@ state 1994 unqualified_var go to state 81 -state 1995 +State 1995 - 1175 perform_after: name FROM gname by_opt gname UNTIL @140 condition . - 1184 condition: condition . AND @143 implied_op_condition - 1186 | condition . OR @144 implied_op_condition + 1175 perform_after: name FROM gname by_opt gname UNTIL @140 condition • + 1184 condition: condition • AND @143 implied_op_condition + 1186 | condition • OR @144 implied_op_condition OR shift, and go to state 611 AND shift, and go to state 612 @@ -28161,19 +28738,19 @@ state 1995 $default reduce using rule 1175 (perform_after) -state 1996 +State 1996 - 1172 perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after . - 1173 | AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after . AFTER perform_after + 1172 perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after • + 1173 | AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after • AFTER perform_after AFTER shift, and go to state 1997 $default reduce using rule 1172 (perform_after_opt) -state 1997 +State 1997 - 1173 perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER . perform_after + 1173 perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER • perform_after VARIABLE shift, and go to state 56 SUBSCVAR shift, and go to state 57 @@ -28186,8 +28763,8 @@ state 1997 unqualified_var go to state 81 -state 1998 +State 1998 - 1173 perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after . + 1173 perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after • $default reduce using rule 1173 (perform_after_opt) diff --git a/compiler/htcobol.tab.c b/compiler/htcobol.tab.c index 2f90aaf..a1b986f 100644 --- a/compiler/htcobol.tab.c +++ b/compiler/htcobol.tab.c @@ -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 implementation for Yacc-like parsers in C + + Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2021 Free Software Foundation, + Inc. -/* Skeleton implementation 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 . */ + 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 @@ -27,13 +27,17 @@ 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. @@ -41,11 +45,11 @@ define necessary library symbols; they are noted "INFRINGES ON USER NAME SPACE" below. */ -/* Identify Bison output. */ -#define YYBISON 1 +/* Identify Bison output, and Bison version. */ +#define YYBISON 30802 -/* Bison version. */ -#define YYBISON_VERSION "2.4.2" +/* Bison version string. */ +#define YYBISON_VERSION "3.8.2" /* Skeleton name. */ #define YYSKELETON_NAME "yacc.c" @@ -59,14 +63,10 @@ /* Pull parsers. */ #define YYPULL 1 -/* Using locations. */ -#define YYLSP_NEEDED 0 -/* Copy the first part of user declarations. */ - -/* Line 189 of yacc.c */ +/* First part of user prologue. */ #line 27 "htcobol.y" //#define YYDEBUG 1 @@ -159,483 +159,1113 @@ static void assert_numeric_dest_sy (struct sym *sy); static char err_msg_bad_form[] = "ill-formed %s statement"; +#line 163 "htcobol.tab.c" -/* Line 189 of yacc.c */ -#line 165 "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 -/* Enabling traces. */ -#ifndef YYDEBUG -# define YYDEBUG 0 -#endif - -/* Enabling verbose error messages. */ -#ifdef YYERROR_VERBOSE -# undef YYERROR_VERBOSE -# define YYERROR_VERBOSE 1 -#else -# define YYERROR_VERBOSE 0 -#endif - -/* Enabling the token table. */ -#ifndef YYTOKEN_TABLE -# define YYTOKEN_TABLE 0 -#endif - - -/* Tokens. */ -#ifndef YYTOKENTYPE -# define YYTOKENTYPE - /* Put the tokens into the symbol table, so that GDB and other debuggers - know about them. */ - enum yytokentype { - 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 +#include "htcobol.tab.h" +/* Symbol kind. */ +enum yysymbol_kind_t { - -/* Line 214 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 */ + 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; -/* Line 214 of yacc.c */ -#line 597 "htcobol.tab.c" -} YYSTYPE; -# define YYSTYPE_IS_TRIVIAL 1 -# define yystype YYSTYPE /* obsolescent; will be withdrawn */ -# define YYSTYPE_IS_DECLARED 1 -#endif - - -/* Copy the second part of user declarations. */ - - -/* Line 264 of yacc.c */ -#line 609 "htcobol.tab.c" #ifdef short # undef short #endif -#ifdef YYTYPE_UINT8 -typedef YYTYPE_UINT8 yytype_uint8; -#else -typedef unsigned char yytype_uint8; +/* 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 -#ifdef YYTYPE_INT8 -typedef YYTYPE_INT8 yytype_int8; -#elif (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) +/* 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; -#else -typedef short int yytype_int8; #endif -#ifdef YYTYPE_UINT16 -typedef YYTYPE_UINT16 yytype_uint16; +#ifdef __INT_LEAST16_MAX__ +typedef __INT_LEAST16_TYPE__ yytype_int16; +#elif defined YY_STDINT_H +typedef int_least16_t yytype_int16; #else -typedef unsigned short int yytype_uint16; +typedef short yytype_int16; #endif -#ifdef YYTYPE_INT16 -typedef YYTYPE_INT16 yytype_int16; +/* 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 int yytype_int16; +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 @@ -643,55 +1273,106 @@ typedef short int yytype_int16; # define YYSIZE_T __SIZE_TYPE__ # elif defined size_t # define YYSIZE_T size_t -# elif ! defined YYSIZE_T && (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) +# elif defined __STDC_VERSION__ && 199901 <= __STDC_VERSION__ # include /* INFRINGES ON USER NAME SPACE */ # define YYSIZE_T size_t # else -# define YYSIZE_T unsigned int +# define YYSIZE_T unsigned # endif #endif -#define YYSIZE_MAXIMUM ((YYSIZE_T) -1) +#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) +# define YY_(Msgid) dgettext ("bison-runtime", Msgid) # endif # endif # ifndef YY_ -# define YY_(msgid) msgid +# 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 YYUSE(e) ((void) (e)) +# define YY_USE(E) ((void) (E)) #else -# define YYUSE(e) /* empty */ +# define YY_USE(E) /* empty */ #endif -/* Identity function, used to suppress warnings about constant conditions. */ -#ifndef lint -# define YYID(n) (n) +/* 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 -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) -static int -YYID (int yyi) -#else -static int -YYID (yyi) - int yyi; +# define YY_INITIAL_VALUE(Value) Value #endif -{ - return yyi; -} +#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 yyoverflow || YYERROR_VERBOSE +#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. */ @@ -708,11 +1389,11 @@ YYID (yyi) # define alloca _alloca # else # define YYSTACK_ALLOC alloca -# if ! defined _ALLOCA_H && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) +# if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS # include /* INFRINGES ON USER NAME SPACE */ -# ifndef _STDLIB_H -# define _STDLIB_H 1 + /* Use EXIT_SUCCESS as a witness for stdlib.h. */ +# ifndef EXIT_SUCCESS +# define EXIT_SUCCESS 0 # endif # endif # endif @@ -720,8 +1401,8 @@ YYID (yyi) # endif # ifdef YYSTACK_ALLOC - /* Pacify GCC's `empty if-body' warning. */ -# define YYSTACK_FREE(Ptr) do { /* empty */; } while (YYID (0)) + /* 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 @@ -735,88 +1416,89 @@ YYID (yyi) # ifndef YYSTACK_ALLOC_MAXIMUM # define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM # endif -# if (defined __cplusplus && ! defined _STDLIB_H \ +# if (defined __cplusplus && ! defined EXIT_SUCCESS \ && ! ((defined YYMALLOC || defined malloc) \ - && (defined YYFREE || defined free))) + && (defined YYFREE || defined free))) # include /* INFRINGES ON USER NAME SPACE */ -# ifndef _STDLIB_H -# define _STDLIB_H 1 +# ifndef EXIT_SUCCESS +# define EXIT_SUCCESS 0 # endif # endif # ifndef YYMALLOC # define YYMALLOC malloc -# if ! defined malloc && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) +# 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 _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) +# if ! defined free && ! defined EXIT_SUCCESS void free (void *); /* INFRINGES ON USER NAME SPACE */ # endif # endif # endif -#endif /* ! defined yyoverflow || YYERROR_VERBOSE */ - +#endif /* !defined yyoverflow */ #if (! defined yyoverflow \ && (! defined __cplusplus \ - || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL))) + || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL))) /* A type that is properly aligned for any stack member. */ union yyalloc { - yytype_int16 yyss_alloc; + 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 (sizeof (union yyalloc) - 1) +# 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) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \ + ((N) * (YYSIZEOF (yy_state_t) + YYSIZEOF (YYSTYPE)) \ + YYSTACK_GAP_MAXIMUM) -/* Copy COUNT objects from FROM to TO. The source and destination do - not overlap. */ -# ifndef YYCOPY -# if defined __GNUC__ && 1 < __GNUC__ -# define YYCOPY(To, From, Count) \ - __builtin_memcpy (To, From, (Count) * sizeof (*(From))) -# else -# define YYCOPY(To, From, Count) \ - do \ - { \ - YYSIZE_T yyi; \ - for (yyi = 0; yyi < (Count); yyi++) \ - (To)[yyi] = (From)[yyi]; \ - } \ - while (YYID (0)) -# endif -# endif +# 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 \ - { \ - YYSIZE_T yynewbytes; \ - YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \ - Stack = &yyptr->Stack_alloc; \ - yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \ - yyptr += yynewbytes / sizeof (*yyptr); \ - } \ - while (YYID (0)) +# 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. */ @@ -828,18 +1510,23 @@ union yyalloc #define YYNNTS 620 /* YYNRULES -- Number of rules. */ #define YYNRULES 1309 -/* YYNRULES -- Number of states. */ +/* YYNSTATES -- Number of states. */ #define YYNSTATES 1999 -/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */ -#define YYUNDEFTOK 2 +/* YYMAXUTOK -- Last valid token kind. */ #define YYMAXUTOK 613 -#define YYTRANSLATE(YYX) \ - ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK) -/* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX. */ -static const yytype_uint16 yytranslate[] = +/* 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, @@ -906,512 +1593,8 @@ static const yytype_uint16 yytranslate[] = }; #if YYDEBUG -/* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in - YYRHS. */ -static const yytype_uint16 yyprhs[] = -{ - 0, 0, 3, 5, 7, 9, 12, 15, 16, 21, - 25, 26, 31, 36, 37, 38, 39, 52, 53, 57, - 61, 62, 64, 65, 68, 71, 74, 77, 80, 83, - 84, 91, 92, 97, 98, 101, 102, 103, 110, 111, - 118, 122, 124, 127, 128, 133, 135, 136, 140, 141, - 142, 145, 147, 149, 152, 154, 156, 158, 160, 162, - 164, 166, 171, 173, 174, 179, 181, 184, 186, 190, - 194, 199, 203, 204, 207, 208, 215, 220, 221, 226, - 227, 229, 230, 235, 237, 239, 241, 243, 245, 248, - 250, 254, 257, 260, 264, 269, 270, 273, 275, 279, - 280, 284, 286, 289, 290, 297, 300, 301, 305, 309, - 314, 319, 324, 329, 336, 340, 342, 344, 345, 347, - 348, 350, 352, 355, 358, 360, 363, 364, 366, 367, - 369, 371, 372, 374, 375, 377, 378, 380, 381, 383, - 385, 387, 390, 392, 394, 396, 398, 400, 401, 404, - 406, 409, 411, 413, 419, 420, 422, 424, 426, 432, - 434, 437, 440, 441, 444, 446, 447, 449, 450, 452, - 453, 455, 458, 460, 462, 465, 467, 468, 478, 479, - 480, 486, 487, 488, 494, 495, 496, 502, 503, 508, - 509, 512, 513, 514, 515, 516, 525, 526, 529, 532, - 535, 537, 539, 543, 552, 553, 557, 559, 561, 562, - 564, 567, 570, 571, 574, 577, 578, 582, 583, 588, - 589, 594, 595, 597, 598, 601, 603, 606, 607, 613, - 615, 618, 620, 622, 624, 626, 628, 630, 632, 634, - 636, 638, 640, 644, 647, 650, 651, 656, 658, 659, - 664, 667, 670, 672, 674, 675, 679, 681, 682, 686, - 688, 690, 696, 700, 701, 706, 710, 712, 715, 720, - 726, 731, 734, 738, 741, 745, 749, 752, 755, 759, - 764, 769, 773, 774, 776, 778, 780, 781, 783, 785, - 786, 791, 795, 796, 797, 804, 806, 808, 809, 812, - 816, 817, 819, 820, 823, 824, 827, 830, 831, 833, - 835, 837, 838, 840, 842, 844, 846, 849, 852, 854, - 855, 856, 862, 863, 866, 867, 868, 874, 875, 882, - 883, 890, 894, 895, 901, 902, 908, 909, 915, 918, - 922, 925, 926, 931, 932, 933, 937, 938, 943, 944, - 948, 949, 952, 955, 958, 961, 964, 966, 969, 971, - 973, 975, 977, 979, 982, 985, 987, 989, 991, 993, - 995, 999, 1002, 1005, 1009, 1011, 1013, 1016, 1019, 1022, - 1025, 1027, 1030, 1032, 1034, 1036, 1038, 1040, 1043, 1046, - 1048, 1050, 1052, 1054, 1056, 1060, 1063, 1066, 1070, 1072, - 1074, 1077, 1080, 1084, 1088, 1091, 1092, 1094, 1095, 1098, - 1100, 1102, 1104, 1106, 1108, 1109, 1112, 1113, 1114, 1115, - 1116, 1126, 1127, 1128, 1129, 1139, 1141, 1142, 1144, 1147, - 1148, 1154, 1155, 1158, 1161, 1162, 1166, 1168, 1170, 1172, - 1174, 1176, 1178, 1180, 1183, 1186, 1189, 1192, 1196, 1197, - 1202, 1203, 1205, 1207, 1208, 1211, 1212, 1218, 1219, 1220, - 1232, 1237, 1238, 1243, 1244, 1246, 1249, 1253, 1255, 1257, - 1259, 1262, 1265, 1268, 1270, 1274, 1276, 1280, 1281, 1286, - 1287, 1290, 1293, 1294, 1296, 1297, 1300, 1301, 1304, 1307, - 1310, 1312, 1314, 1316, 1318, 1320, 1322, 1324, 1326, 1328, - 1330, 1336, 1342, 1352, 1356, 1362, 1366, 1369, 1373, 1381, - 1382, 1387, 1388, 1392, 1393, 1397, 1398, 1400, 1403, 1405, - 1408, 1411, 1413, 1416, 1417, 1419, 1421, 1422, 1425, 1426, - 1430, 1431, 1434, 1436, 1437, 1438, 1441, 1444, 1447, 1449, - 1451, 1452, 1454, 1455, 1457, 1458, 1460, 1461, 1463, 1464, - 1466, 1467, 1469, 1470, 1472, 1475, 1476, 1477, 1480, 1481, - 1482, 1491, 1492, 1493, 1496, 1498, 1500, 1501, 1505, 1506, - 1510, 1512, 1513, 1522, 1523, 1524, 1527, 1529, 1531, 1532, - 1536, 1537, 1541, 1542, 1546, 1548, 1556, 1558, 1560, 1562, - 1565, 1568, 1570, 1572, 1576, 1579, 1581, 1583, 1585, 1587, - 1590, 1592, 1594, 1596, 1598, 1600, 1602, 1604, 1606, 1608, - 1610, 1612, 1614, 1616, 1618, 1620, 1622, 1624, 1626, 1628, - 1630, 1632, 1634, 1636, 1638, 1640, 1642, 1644, 1646, 1648, - 1650, 1652, 1654, 1656, 1658, 1660, 1662, 1664, 1666, 1668, - 1670, 1672, 1674, 1676, 1679, 1680, 1684, 1685, 1686, 1693, - 1697, 1702, 1703, 1704, 1711, 1713, 1715, 1716, 1719, 1720, - 1725, 1727, 1729, 1731, 1733, 1734, 1735, 1741, 1742, 1743, - 1744, 1752, 1753, 1756, 1757, 1762, 1764, 1766, 1768, 1770, - 1773, 1778, 1781, 1782, 1784, 1785, 1791, 1792, 1795, 1796, - 1800, 1801, 1803, 1804, 1806, 1807, 1809, 1810, 1811, 1812, - 1820, 1821, 1822, 1828, 1831, 1832, 1833, 1838, 1839, 1841, - 1844, 1845, 1850, 1852, 1855, 1859, 1861, 1864, 1865, 1866, - 1872, 1874, 1877, 1883, 1889, 1890, 1895, 1896, 1898, 1901, - 1904, 1908, 1911, 1914, 1917, 1920, 1923, 1926, 1929, 1930, - 1931, 1932, 1942, 1945, 1947, 1949, 1950, 1951, 1952, 1963, - 1964, 1971, 1973, 1976, 1978, 1981, 1986, 1991, 1993, 1996, - 1998, 2001, 2002, 2007, 2008, 2010, 2015, 2018, 2023, 2026, - 2028, 2031, 2036, 2042, 2049, 2053, 2057, 2059, 2060, 2063, - 2065, 2068, 2073, 2075, 2077, 2079, 2081, 2083, 2087, 2089, - 2094, 2095, 2097, 2101, 2103, 2108, 2114, 2121, 2122, 2125, - 2126, 2128, 2132, 2134, 2139, 2146, 2153, 2154, 2156, 2160, - 2162, 2169, 2174, 2175, 2177, 2181, 2183, 2190, 2200, 2210, - 2217, 2222, 2223, 2225, 2227, 2229, 2231, 2233, 2239, 2246, - 2252, 2258, 2265, 2271, 2276, 2277, 2278, 2279, 2291, 2292, - 2294, 2296, 2298, 2300, 2306, 2311, 2313, 2317, 2320, 2323, - 2326, 2327, 2332, 2336, 2341, 2346, 2351, 2352, 2354, 2358, - 2362, 2365, 2368, 2371, 2372, 2375, 2378, 2380, 2382, 2384, - 2387, 2389, 2392, 2396, 2398, 2400, 2402, 2404, 2406, 2408, - 2412, 2415, 2417, 2419, 2423, 2426, 2428, 2430, 2434, 2436, - 2438, 2442, 2446, 2449, 2453, 2454, 2458, 2460, 2464, 2469, - 2473, 2475, 2482, 2490, 2498, 2499, 2501, 2503, 2504, 2507, - 2508, 2512, 2516, 2519, 2521, 2522, 2529, 2530, 2536, 2537, - 2541, 2543, 2545, 2548, 2549, 2554, 2555, 2561, 2562, 2564, - 2565, 2567, 2571, 2572, 2575, 2576, 2584, 2585, 2588, 2589, - 2594, 2598, 2599, 2601, 2602, 2609, 2610, 2612, 2613, 2620, - 2621, 2623, 2624, 2630, 2632, 2638, 2639, 2641, 2645, 2652, - 2654, 2656, 2659, 2663, 2664, 2665, 2666, 2667, 2668, 2682, - 2684, 2685, 2687, 2689, 2690, 2695, 2697, 2699, 2700, 2701, - 2702, 2703, 2704, 2714, 2716, 2718, 2721, 2724, 2727, 2730, - 2732, 2734, 2736, 2740, 2745, 2748, 2752, 2753, 2755, 2756, - 2761, 2765, 2766, 2775, 2776, 2780, 2781, 2783, 2784, 2786, - 2787, 2789, 2792, 2797, 2802, 2807, 2813, 2815, 2817, 2819, - 2821, 2823, 2825, 2827, 2829, 2831, 2832, 2835, 2836, 2845, - 2846, 2857, 2861, 2862, 2865, 2870, 2872, 2876, 2880, 2881, - 2885, 2886, 2890, 2891, 2895, 2896, 2898, 2899, 2903, 2904, - 2909, 2910, 2912, 2914, 2915, 2921, 2922, 2923, 2928, 2929, - 2930, 2936, 2937, 2939, 2941, 2944, 2945, 2946, 2951, 2952, - 2958, 2960, 2962, 2966, 2967, 2969, 2973, 2975, 2977, 2982, - 2984, 2986, 2988, 2989, 2991, 2992, 2994, 2995, 3001, 3005, - 3011, 3014, 3015, 3020, 3021, 3025, 3030, 3035, 3036, 3039, - 3040, 3046, 3050, 3051, 3057, 3058, 3060, 3062, 3064, 3066, - 3071, 3076, 3077, 3079, 3080, 3082, 3086, 3090, 3094, 3098, - 3102, 3106, 3107, 3109, 3110, 3111, 3112, 3118, 3119, 3122, - 3125, 3126, 3127, 3130, 3133, 3137, 3139, 3141, 3145, 3147, - 3149, 3151, 3155, 3157, 3159, 3162, 3165, 3166, 3167, 3174, - 3175, 3176, 3177, 3186, 3187, 3188, 3189, 3205, 3208, 3209, - 3216, 3221, 3222, 3223, 3238, 3239, 3242, 3243, 3247, 3248, - 3251, 3256, 3263, 3272, 3283, 3296, 3297, 3306, 3307, 3310, - 3312, 3314, 3315, 3320, 3323, 3324, 3329, 3330, 3335, 3339, - 3341, 3343, 3346, 3348, 3350, 3352, 3354, 3356, 3358, 3360, - 3362, 3365, 3369, 3374, 3376, 3380, 3384, 3386, 3388, 3390, - 3392, 3395, 3399, 3402, 3403, 3405, 3406, 3408, 3409, 3411, - 3412, 3414, 3415, 3417, 3419, 3420, 3422, 3423, 3425, 3426, - 3428, 3430, 3432, 3433, 3435, 3436, 3438, 3439, 3441, 3443, - 3444, 3445, 3447, 3449, 3453, 3455, 3459, 3461, 3463, 3464, - 3471, 3474, 3476, 3478, 3480, 3482, 3484, 3486, 3488, 3490, - 3493, 3496, 3498, 3500, 3502, 3504, 3506, 3508, 3510, 3512, - 3514, 3516, 3518, 3521, 3524, 3526, 3527, 3529, 3531, 3533, - 3535, 3537, 3539, 3541, 3542, 3548, 3550, 3557, 3559, 3561, - 3563, 3565, 3566, 3572, 3574, 3578, 3580, 3582, 3584, 3588, - 3590, 3594, 3598, 3600, 3604, 3606, 3608, 3612, 3616, 3618 -}; - -/* YYRHS -- A `-1'-separated list of the rules' RHS. */ -static const yytype_int16 yyrhs[] = -{ - 369, 0, -1, 370, -1, 375, -1, 371, -1, 371, - 375, -1, 375, 373, -1, -1, 375, 372, 371, 373, - -1, 371, 375, 373, -1, -1, 128, 265, 374, 4, - -1, 376, 384, 451, 614, -1, -1, -1, -1, 185, - 123, 362, 266, 362, 377, 4, 378, 380, 362, 379, - 382, -1, -1, 432, 192, 381, -1, 432, 94, 381, - -1, -1, 265, -1, -1, 382, 383, -1, 63, 362, - -1, 110, 362, -1, 109, 362, -1, 196, 362, -1, - 302, 362, -1, -1, 152, 123, 362, 385, 386, 417, - -1, -1, 96, 300, 362, 387, -1, -1, 387, 388, - -1, -1, -1, 314, 362, 389, 5, 394, 362, -1, - -1, 236, 362, 390, 5, 391, 362, -1, 316, 362, - 395, -1, 1, -1, 265, 392, -1, -1, 393, 306, - 432, 5, -1, 89, -1, -1, 952, 112, 222, -1, - -1, -1, 396, 362, -1, 1, -1, 397, -1, 396, - 397, -1, 406, -1, 412, -1, 398, -1, 403, -1, - 404, -1, 405, -1, 400, -1, 106, 399, 432, 32, - -1, 309, -1, -1, 85, 5, 432, 401, -1, 402, - -1, 401, 402, -1, 32, -1, 32, 22, 32, -1, - 113, 432, 93, -1, 121, 321, 432, 5, -1, 107, - 432, 5, -1, -1, 406, 407, -1, -1, 5, 432, - 5, 408, 409, 410, -1, 241, 411, 432, 5, -1, - -1, 239, 411, 432, 5, -1, -1, 321, -1, -1, - 50, 5, 432, 413, -1, 226, -1, 318, -1, 319, - -1, 414, -1, 415, -1, 414, 415, -1, 963, -1, - 963, 22, 963, -1, 963, 416, -1, 56, 963, -1, - 416, 56, 963, -1, 29, 300, 362, 418, -1, -1, - 419, 420, -1, 1, -1, 164, 362, 421, -1, -1, - 200, 362, 437, -1, 422, -1, 421, 422, -1, -1, - 303, 430, 971, 423, 424, 362, -1, 424, 425, -1, - -1, 427, 432, 435, -1, 61, 955, 428, -1, 44, - 434, 432, 436, -1, 426, 321, 432, 5, -1, 271, - 944, 432, 5, -1, 276, 944, 432, 5, -1, 57, - 271, 944, 432, 5, 429, -1, 284, 31, 431, -1, - 1, -1, 166, -1, -1, 246, -1, -1, 33, -1, - 973, -1, 33, 973, -1, 161, 973, -1, 1, -1, - 952, 125, -1, -1, 244, -1, -1, 59, -1, 60, - -1, -1, 20, -1, -1, 21, -1, -1, 222, -1, - -1, 189, -1, 307, -1, 276, -1, 211, 307, -1, - 987, -1, 307, -1, 126, -1, 268, -1, 987, -1, - -1, 438, 362, -1, 439, -1, 438, 439, -1, 440, - -1, 442, -1, 296, 441, 447, 448, 449, -1, -1, - 271, -1, 311, -1, 312, -1, 224, 166, 446, 608, - 443, -1, 444, -1, 443, 444, -1, 5, 445, -1, - -1, 260, 985, -1, 330, -1, -1, 59, -1, -1, - 171, -1, -1, 5, -1, 449, 5, -1, 1, -1, - 979, -1, 450, 979, -1, 1, -1, -1, 108, 123, - 362, 452, 453, 455, 457, 459, 518, -1, -1, -1, - 166, 300, 362, 454, 543, -1, -1, -1, 360, 300, - 362, 456, 612, -1, -1, -1, 213, 300, 362, 458, - 613, -1, -1, 281, 300, 362, 460, -1, -1, 460, - 461, -1, -1, -1, -1, -1, 269, 462, 5, 463, - 465, 362, 464, 479, -1, -1, 465, 466, -1, 432, - 178, -1, 87, 962, -1, 467, -1, 468, -1, 472, - 477, 478, -1, 251, 473, 985, 470, 469, 476, 475, - 474, -1, -1, 182, 432, 985, -1, 471, -1, 211, - -1, -1, 212, -1, 101, 432, -1, 102, 433, -1, - -1, 208, 20, -1, 209, 21, -1, -1, 170, 432, - 985, -1, -1, 204, 119, 432, 985, -1, -1, 169, - 119, 432, 985, -1, -1, 168, -1, -1, 478, 977, - -1, 480, -1, 479, 480, -1, -1, 985, 970, 481, - 482, 362, -1, 483, -1, 482, 483, -1, 496, -1, - 495, -1, 484, -1, 493, -1, 491, -1, 490, -1, - 494, -1, 508, -1, 498, -1, 502, -1, 507, -1, - 342, 432, 485, -1, 281, 182, -1, 251, 182, -1, - -1, 101, 182, 486, 515, -1, 119, -1, -1, 101, - 170, 487, 515, -1, 251, 170, -1, 281, 170, -1, - 292, -1, 256, -1, -1, 80, 488, 515, -1, 111, - -1, -1, 79, 489, 515, -1, 255, -1, 291, -1, - 309, 432, 513, 305, 539, -1, 513, 305, 539, -1, - -1, 257, 492, 432, 576, -1, 352, 432, 120, -1, - 120, -1, 201, 514, -1, 228, 181, 432, 516, -1, - 497, 985, 241, 228, 251, -1, 497, 985, 228, 251, - -1, 497, 985, -1, 497, 258, 985, -1, 211, 501, - -1, 211, 232, 432, -1, 211, 233, 433, -1, 212, - 433, -1, 499, 985, -1, 91, 500, 501, -1, 91, - 232, 500, 432, -1, 91, 233, 500, 433, -1, 92, - 500, 433, -1, -1, 206, -1, 78, -1, 293, -1, - -1, 20, -1, 21, -1, -1, 313, 503, 432, 506, - -1, 355, 432, 968, -1, -1, -1, 327, 504, 957, - 505, 510, 511, -1, 958, -1, 252, -1, -1, 181, - 509, -1, 68, 607, 361, -1, -1, 190, -1, -1, - 350, 957, -1, -1, 285, 958, -1, 285, 168, -1, - -1, 232, -1, 205, -1, 340, -1, -1, 293, -1, - 958, -1, 168, -1, 985, -1, 258, 985, -1, 228, - 251, -1, 238, -1, -1, -1, 297, 300, 362, 519, - 520, -1, -1, 520, 521, -1, -1, -1, 985, 970, - 522, 523, 362, -1, -1, 523, 211, 524, 542, 541, - 960, -1, -1, 523, 91, 525, 542, 541, 960, -1, - 523, 952, 535, -1, -1, 523, 952, 172, 526, 960, - -1, -1, 523, 952, 65, 527, 960, -1, -1, 523, - 952, 90, 528, 960, -1, 523, 530, -1, 523, 571, - 962, -1, 523, 574, -1, -1, 523, 310, 529, 960, - -1, -1, -1, 354, 531, 960, -1, -1, 173, 532, - 960, 534, -1, -1, 19, 533, 977, -1, -1, 19, - 977, -1, 68, 297, -1, 68, 211, -1, 155, 153, - -1, 155, 154, -1, 155, -1, 952, 67, -1, 537, - -1, 174, -1, 283, -1, 301, -1, 64, -1, 201, - 293, -1, 201, 206, -1, 69, -1, 288, -1, 343, - -1, 217, -1, 183, -1, 68, 607, 361, -1, 952, - 229, -1, 952, 349, -1, 952, 24, 47, -1, 351, - -1, 216, -1, 68, 297, -1, 68, 211, -1, 155, - 153, -1, 155, 154, -1, 155, -1, 952, 67, -1, - 537, -1, 174, -1, 283, -1, 301, -1, 64, -1, - 201, 293, -1, 201, 206, -1, 69, -1, 288, -1, - 343, -1, 217, -1, 183, -1, 68, 607, 361, -1, - 952, 229, -1, 952, 349, -1, 952, 24, 47, -1, - 351, -1, 216, -1, 172, 985, -1, 65, 985, -1, - 540, 205, 538, -1, 540, 340, 538, -1, 305, 539, - -1, -1, 83, -1, -1, 309, 432, -1, 432, -1, - 258, -1, 35, -1, 221, -1, 36, -1, -1, 232, - 432, -1, -1, -1, -1, -1, 543, 163, 544, 5, - 545, 579, 362, 546, 550, -1, -1, -1, -1, 543, - 298, 547, 5, 548, 580, 362, 549, 550, -1, 1, - -1, -1, 551, -1, 550, 551, -1, -1, 985, 970, - 552, 553, 362, -1, -1, 553, 557, -1, 553, 554, - -1, -1, 273, 555, 556, -1, 6, -1, 8, -1, - 561, -1, 574, -1, 568, -1, 537, -1, 570, -1, - 328, 559, -1, 201, 559, -1, 432, 161, -1, 432, - 178, -1, 68, 607, 361, -1, -1, 279, 558, 979, - 560, -1, -1, 206, -1, 293, -1, -1, 22, 979, - -1, -1, 237, 985, 606, 562, 566, -1, -1, -1, - 237, 985, 19, 985, 606, 118, 563, 953, 958, 564, - 566, -1, 26, 944, 432, 5, -1, -1, 565, 189, - 951, 567, -1, -1, 971, -1, 567, 971, -1, 605, - 432, 569, -1, 16, -1, 120, -1, 259, -1, 571, - 572, -1, 355, 432, -1, 356, 433, -1, 573, -1, - 572, 942, 573, -1, 962, -1, 962, 22, 962, -1, - -1, 257, 575, 432, 576, -1, -1, 576, 577, -1, - 14, 578, -1, -1, 15, -1, -1, 579, 581, -1, - -1, 580, 582, -1, 432, 161, -1, 432, 178, -1, - 583, -1, 584, -1, 585, -1, 586, -1, 587, -1, - 588, -1, 590, -1, 589, -1, 584, -1, 587, -1, - 70, 608, 985, 598, 597, -1, 271, 608, 985, 602, - 609, -1, 271, 432, 357, 949, 841, 600, 602, 609, - 599, -1, 203, 603, 604, -1, 355, 238, 165, 432, - 973, -1, 108, 603, 596, -1, 595, 5, -1, 88, - 432, 5, -1, 210, 432, 974, 471, 591, 592, 593, - -1, -1, 952, 170, 948, 974, -1, -1, 594, 338, - 974, -1, -1, 594, 71, 974, -1, -1, 212, -1, - 212, 62, -1, 62, -1, 281, 432, -1, 282, 433, - -1, 5, -1, 596, 5, -1, -1, 84, -1, 272, - -1, -1, 19, 985, -1, -1, 118, 953, 5, -1, - -1, 601, 967, -1, 173, -1, -1, -1, 19, 967, - -1, 271, 432, -1, 272, 433, -1, 317, -1, 240, - -1, -1, 352, -1, -1, 336, -1, -1, 358, -1, - -1, 98, -1, -1, 84, -1, -1, 245, -1, -1, - 108, -1, 612, 551, -1, -1, -1, 613, 551, -1, - -1, -1, 263, 123, 615, 904, 362, 616, 621, 617, - -1, -1, -1, 617, 618, -1, 632, -1, 633, -1, - -1, 619, 636, 362, -1, -1, 1, 620, 362, -1, - 362, -1, -1, 114, 362, 622, 627, 623, 128, 114, - 362, -1, -1, -1, 623, 624, -1, 627, -1, 633, - -1, -1, 625, 636, 362, -1, -1, 1, 626, 362, - -1, -1, 632, 628, 629, -1, 1, -1, 353, 48, - 630, 263, 953, 631, 362, -1, 1, -1, 158, -1, - 156, -1, 317, 158, -1, 317, 156, -1, 957, -1, - 768, -1, 9, 300, 362, -1, 9, 634, -1, 363, - -1, 362, -1, 636, -1, 637, -1, 636, 637, -1, - 724, -1, 725, -1, 730, -1, 733, -1, 737, -1, - 740, -1, 743, -1, 746, -1, 754, -1, 766, -1, - 770, -1, 778, -1, 776, -1, 795, -1, 797, -1, - 802, -1, 805, -1, 808, -1, 638, -1, 812, -1, - 830, -1, 831, -1, 815, -1, 822, -1, 825, -1, - 844, -1, 706, -1, 701, -1, 885, -1, 850, -1, - 852, -1, 697, -1, 698, -1, 699, -1, 695, -1, - 696, -1, 833, -1, 700, -1, 694, -1, 639, -1, - 644, -1, 643, -1, 100, -1, 254, 911, -1, -1, - 663, 640, 669, -1, -1, -1, 663, 127, 641, 665, - 642, 669, -1, 299, 671, 693, -1, 299, 49, 675, - 693, -1, -1, -1, 157, 645, 648, 646, 652, 647, - -1, 138, -1, 362, -1, -1, 649, 651, -1, -1, - 648, 56, 650, 651, -1, 897, -1, 931, -1, 341, - -1, 162, -1, -1, -1, 358, 653, 654, 658, 662, - -1, -1, -1, -1, 652, 358, 655, 656, 658, 657, - 662, -1, -1, 659, 661, -1, -1, 658, 56, 660, - 661, -1, 247, -1, 58, -1, 341, -1, 162, -1, - 668, 897, -1, 668, 897, 22, 897, -1, 668, 975, - -1, -1, 665, -1, -1, 186, 931, 664, 670, 665, - -1, -1, 666, 635, -1, -1, 667, 228, 304, -1, - -1, 42, -1, -1, 139, -1, -1, 335, -1, -1, - -1, -1, 972, 672, 678, 673, 679, 674, 681, -1, - -1, -1, 972, 676, 679, 677, 686, -1, 357, 979, - -1, -1, -1, 948, 128, 680, 635, -1, -1, 682, - -1, 681, 682, -1, -1, 358, 685, 683, 684, -1, - 635, -1, 228, 304, -1, 960, 938, 960, -1, 687, - -1, 686, 687, -1, -1, -1, 358, 688, 691, 689, - 690, -1, 635, -1, 228, 304, -1, 979, 432, 18, - 955, 979, -1, 979, 432, 18, 955, 968, -1, -1, - 691, 41, 692, 691, -1, -1, 146, -1, 345, 977, - -1, 331, 958, -1, 332, 958, 958, -1, 270, 339, - -1, 285, 339, -1, 193, 977, -1, 176, 977, -1, - 333, 977, -1, 77, 958, -1, 77, 49, -1, -1, - -1, -1, 220, 977, 713, 702, 720, 703, 705, 704, - 722, -1, 354, 723, -1, 707, -1, 711, -1, -1, - -1, -1, 311, 977, 713, 708, 719, 720, 709, 721, - 710, 722, -1, -1, 311, 972, 714, 712, 719, 720, - -1, 715, -1, 713, 715, -1, 716, -1, 714, 716, - -1, 953, 26, 944, 717, -1, 953, 26, 944, 718, - -1, 977, -1, 717, 977, -1, 972, -1, 718, 972, - -1, -1, 952, 125, 949, 610, -1, -1, 392, -1, - 194, 263, 432, 910, -1, 354, 723, -1, 248, 263, - 432, 910, -1, 177, 723, -1, 977, -1, 723, 977, - -1, 223, 958, 19, 956, -1, 223, 104, 978, 19, - 978, -1, 223, 207, 238, 958, 19, 978, -1, 223, - 958, 19, -1, 191, 957, 726, -1, 191, -1, -1, - 280, 727, -1, 728, -1, 727, 728, -1, 729, 611, - 72, 958, -1, 51, -1, 54, -1, 234, -1, 55, - -1, 235, -1, 95, 731, 732, -1, 95, -1, 834, - 18, 897, 837, -1, -1, 134, -1, 45, 734, 736, - -1, 45, -1, 835, 19, 834, 837, -1, 835, 735, - 177, 834, 837, -1, 104, 835, 19, 834, 836, 837, - -1, -1, 19, 958, -1, -1, 130, -1, 326, 738, - 739, -1, 326, -1, 835, 173, 834, 837, -1, 835, - 173, 958, 177, 834, 837, -1, 104, 835, 173, 834, - 836, 837, -1, -1, 149, -1, 225, 741, 742, -1, - 225, -1, 958, 72, 958, 177, 834, 837, -1, 958, - 72, 834, 837, -1, -1, 140, -1, 122, 744, 745, - -1, 122, -1, 958, 72, 958, 177, 834, 837, -1, - 958, 72, 958, 177, 977, 836, 277, 977, 837, -1, - 958, 197, 958, 177, 977, 836, 277, 977, 837, -1, - 958, 197, 958, 177, 834, 837, -1, 958, 197, 834, - 837, -1, -1, 137, -1, 747, -1, 748, -1, 749, - -1, 43, -1, 43, 977, 173, 12, 753, -1, 43, - 977, 173, 194, 321, 753, -1, 43, 977, 173, 10, - 753, -1, 43, 977, 173, 13, 753, -1, 43, 977, - 173, 11, 32, 753, -1, 43, 977, 173, 34, 753, - -1, 43, 977, 764, 753, -1, -1, -1, -1, 43, - 977, 764, 953, 158, 750, 979, 751, 635, 752, 753, - -1, -1, 129, -1, 755, -1, 756, -1, 120, -1, - 120, 757, 758, 759, 760, -1, 120, 757, 764, 760, - -1, 958, -1, 757, 943, 958, -1, 350, 97, -1, - 350, 323, -1, 350, 322, -1, -1, 759, 952, 24, - 47, -1, 759, 952, 155, -1, 759, 952, 155, 154, - -1, 759, 952, 155, 153, -1, 759, 952, 155, 297, - -1, -1, 136, -1, 211, 512, 897, -1, 91, 512, - 897, -1, 260, 897, -1, 62, 31, -1, 62, 979, - -1, -1, 764, 765, -1, 952, 536, -1, 761, -1, - 762, -1, 763, -1, 243, 767, -1, 243, -1, 768, - 769, -1, 767, 768, 769, -1, 194, -1, 199, -1, - 248, -1, 160, -1, 1, -1, 977, -1, 769, 943, - 977, -1, 86, 771, -1, 86, -1, 772, -1, 771, - 943, 772, -1, 977, 773, -1, 774, -1, 775, -1, - 952, 24, 289, -1, 274, -1, 344, -1, 274, 448, - 278, -1, 344, 448, 278, -1, 952, 215, -1, 952, - 187, 215, -1, -1, 286, 777, 794, -1, 286, -1, - 977, 947, 781, -1, 977, 947, 781, 783, -1, 27, - 779, 793, -1, 27, -1, 977, 780, 947, 781, 775, - 782, -1, 977, 780, 947, 781, 775, 782, 783, -1, - 977, 780, 947, 781, 775, 782, 788, -1, -1, 228, - -1, 262, -1, -1, 197, 977, -1, -1, 202, 432, - 977, -1, 42, 948, 786, -1, 62, 786, -1, 786, - -1, -1, 62, 786, 42, 948, 784, 786, -1, -1, - 786, 42, 948, 785, 786, -1, -1, 128, 787, 635, - -1, 789, -1, 791, -1, 789, 791, -1, -1, 198, - 944, 790, 635, -1, -1, 42, 198, 944, 792, 635, - -1, -1, 143, -1, -1, 144, -1, 30, 977, 796, - -1, -1, 173, 958, -1, -1, 28, 977, 799, 800, - 798, 873, 801, -1, -1, 173, 958, -1, -1, 930, - 945, 958, 470, -1, 930, 945, 251, -1, -1, 151, - -1, -1, 290, 977, 799, 803, 873, 804, -1, -1, - 145, -1, -1, 115, 977, 947, 806, 873, 807, -1, - -1, 135, -1, -1, 320, 810, 873, 809, 811, -1, - 977, -1, 977, 202, 432, 940, 977, -1, -1, 147, - -1, 179, 955, 813, -1, 179, 955, 814, 118, 953, - 979, -1, 986, -1, 986, -1, 814, 986, -1, 814, - 214, 986, -1, -1, -1, -1, -1, -1, 73, 816, - 821, 958, 899, 902, 817, 818, 819, 864, 867, 820, - 842, -1, 73, -1, -1, 74, -1, 75, -1, -1, - 76, 958, 823, 824, -1, 76, -1, 132, -1, -1, - -1, -1, -1, -1, 81, 826, 958, 899, 827, 828, - 864, 829, 843, -1, 81, -1, 159, -1, 159, 253, - -1, 159, 265, -1, 324, 295, -1, 324, 832, -1, - 32, -1, 31, -1, 180, -1, 977, 836, 943, -1, - 834, 977, 836, 943, -1, 958, 943, -1, 835, 958, - 943, -1, -1, 294, -1, -1, 42, 953, 310, 839, - -1, 953, 310, 839, -1, -1, 953, 310, 839, 42, - 953, 310, 838, 839, -1, -1, 156, 840, 635, -1, - -1, 310, -1, -1, 131, -1, -1, 133, -1, 308, - 845, -1, 846, 19, 849, 848, -1, 846, 348, 72, - 966, -1, 846, 124, 72, 966, -1, 849, 979, 19, - 849, 847, -1, 450, -1, 975, -1, 979, -1, 231, - -1, 960, -1, 241, -1, 239, -1, 231, -1, 341, - -1, -1, 46, 517, -1, -1, 325, 880, 197, 977, - 879, 851, 862, 883, -1, -1, 346, 977, 854, 197, - 856, 879, 860, 853, 862, 884, -1, 116, 951, 855, - -1, -1, 861, 958, -1, 855, 40, 861, 958, -1, - 857, -1, 856, 943, 857, -1, 977, 858, 859, -1, - -1, 117, 949, 977, -1, -1, 105, 949, 977, -1, - -1, 329, 949, 977, -1, -1, 49, -1, -1, 863, - 869, 871, -1, -1, 953, 866, 865, 635, -1, -1, - 158, -1, 249, -1, -1, 42, 953, 158, 868, 635, - -1, -1, -1, 953, 249, 870, 635, -1, -1, -1, - 878, 953, 249, 872, 635, -1, -1, 874, -1, 876, - -1, 874, 876, -1, -1, -1, 198, 944, 875, 635, - -1, -1, 878, 198, 944, 877, 635, -1, 230, -1, - 42, -1, 952, 259, 977, -1, -1, 881, -1, 880, - 943, 881, -1, 1, -1, 958, -1, 958, 116, 951, - 882, -1, 958, -1, 310, -1, 1, -1, -1, 148, - -1, -1, 150, -1, -1, 195, 977, 888, 886, 891, - -1, 195, 977, 887, -1, 103, 961, 19, 961, 895, - -1, 329, 889, -1, -1, 889, 977, 171, 890, -1, - -1, 890, 84, 895, -1, 890, 49, 961, 895, -1, - 890, 205, 961, 895, -1, -1, 280, 892, -1, -1, - 892, 84, 72, 961, 895, -1, 892, 894, 893, -1, - -1, 893, 961, 72, 961, 895, -1, -1, 49, -1, - 205, -1, 340, -1, 169, -1, 895, 66, 896, 961, - -1, 895, 48, 896, 961, -1, -1, 192, -1, -1, - 958, -1, 897, 37, 897, -1, 897, 38, 897, -1, - 897, 35, 897, -1, 897, 36, 897, -1, 897, 39, - 897, -1, 364, 897, 365, -1, -1, 897, -1, -1, - -1, -1, 354, 900, 903, 901, 905, -1, -1, 287, - 979, -1, 177, 979, -1, -1, -1, 354, 957, -1, - 82, 957, -1, 905, 943, 906, -1, 906, -1, 958, - -1, 951, 907, 958, -1, 275, -1, 355, -1, 99, - -1, 908, 943, 909, -1, 909, -1, 958, -1, 986, - 923, -1, 928, 142, -1, -1, -1, 958, 336, 912, - 928, 913, 142, -1, -1, -1, -1, 924, 347, 914, - 931, 915, 928, 916, 142, -1, -1, -1, -1, 924, - 357, 977, 173, 958, 951, 958, 347, 917, 931, 918, - 925, 928, 919, 142, -1, 986, 923, -1, -1, 986, - 923, 924, 347, 920, 931, -1, 986, 923, 958, 336, - -1, -1, -1, 986, 923, 924, 357, 977, 173, 958, - 951, 958, 347, 921, 931, 922, 925, -1, -1, 22, - 986, -1, -1, 952, 334, 930, -1, -1, 48, 926, - -1, 48, 926, 48, 926, -1, 48, 926, 48, 926, - 48, 926, -1, 48, 926, 48, 926, 48, 926, 48, - 926, -1, 48, 926, 48, 926, 48, 926, 48, 926, - 48, 926, -1, 48, 926, 48, 926, 48, 926, 48, - 926, 48, 926, 48, 926, -1, -1, 977, 173, 958, - 951, 958, 347, 927, 931, -1, -1, 929, 635, -1, - 66, -1, 48, -1, -1, 897, 938, 932, 898, -1, - 42, 931, -1, -1, 931, 41, 933, 935, -1, -1, - 931, 40, 934, 935, -1, 364, 931, 365, -1, 975, - -1, 931, -1, 940, 897, -1, 897, -1, 261, -1, - 227, -1, 361, -1, 234, -1, 51, -1, 52, -1, - 53, -1, 20, 939, -1, 20, 42, 939, -1, 20, - 939, 40, 939, -1, 939, -1, 42, 432, 939, -1, - 939, 40, 939, -1, 941, -1, 937, -1, 936, -1, - 941, -1, 42, 941, -1, 941, 40, 941, -1, 18, - 946, -1, -1, 366, -1, -1, 214, -1, -1, 202, - -1, -1, 47, -1, -1, 19, -1, 23, -1, -1, - 271, -1, -1, 62, -1, -1, 188, -1, 188, -1, - 238, -1, -1, 72, -1, -1, 359, -1, -1, 241, - -1, 958, -1, -1, -1, 19, -1, 978, -1, 956, - 943, 978, -1, 958, -1, 957, 943, 958, -1, 977, - -1, 962, -1, -1, 175, 9, 364, 959, 908, 365, - -1, 175, 9, -1, 977, -1, 968, -1, 977, -1, - 963, -1, 963, -1, 964, -1, 968, -1, 965, -1, - 49, 968, -1, 49, 965, -1, 315, -1, 361, -1, - 267, -1, 184, -1, 218, -1, 979, -1, 967, -1, - 969, -1, 969, -1, 32, -1, 31, -1, 35, 31, - -1, 36, 31, -1, 971, -1, -1, 5, -1, 167, - -1, 8, -1, 968, -1, 5, -1, 968, -1, 5, - -1, -1, 7, 364, 976, 983, 365, -1, 7, -1, - 979, 364, 958, 367, 954, 365, -1, 979, -1, 9, - -1, 958, -1, 981, -1, -1, 981, 219, 980, 983, - 365, -1, 982, -1, 982, 950, 981, -1, 6, -1, - 8, -1, 984, -1, 983, 942, 984, -1, 958, -1, - 984, 35, 958, -1, 984, 36, 958, -1, 969, -1, - 9, 950, 9, -1, 9, -1, 31, -1, 31, 950, - 31, -1, 31, 950, 9, -1, 5, -1, 9, -1 -}; - -/* YYRLINE[YYN] -- source line where rule number YYN was defined. */ -static const yytype_uint16 yyrline[] = +/* 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, @@ -1547,18 +1730,25 @@ static const yytype_uint16 yyrline[] = }; #endif -#if YYDEBUG || YYERROR_VERBOSE || YYTOKEN_TABLE +/** 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", "error", "$undefined", "LOW_PREC", "IDSTRING", "STRING", - "VARIABLE", "VARCOND", "SUBSCVAR", "LABELSTR", "CMD_LINE", + "\"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", "NOT", "ACCEPT", "ACCESS", "ADD", + "'*'", "'/'", "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", @@ -1589,23 +1779,23 @@ static const char *const yytname[] = "LENGTH", "LIMIT", "LIMITS", "LINAGE", "LINE", "LINES", "LINKAGE", "LISTSEP", "LOCK", "LOWER", "LOWLIGHT", "LOWVALUES", "LPAR", "MERGE", "MINUS", "MODE", "MOVE", "MULTIPLE", "MULTIPLY", "NATIVE", "NEGATIVE", - "NEXT", "NOECHO", "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", + "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", @@ -1768,57 +1958,1750 @@ static const char *const yytname[] = "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", 0 + "label", "anystring", YY_NULLPTR }; + +static const char * +yysymbol_name (yysymbol_kind_t yysymbol) +{ + return yytname[yysymbol]; +} #endif -# ifdef YYPRINT -/* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to - token YYLEX-NUM. */ -static const yytype_uint16 yytoknum[] = -{ - 0, 256, 257, 258, 259, 260, 261, 262, 263, 264, - 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, - 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, - 285, 286, 287, 288, 289, 43, 45, 42, 47, 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, 363, 364, 365, 366, 367, 368, 369, 370, - 371, 372, 373, 374, 375, 376, 377, 378, 379, 380, - 381, 382, 383, 384, 385, 386, 387, 388, 389, 390, - 391, 392, 393, 394, 395, 396, 397, 398, 399, 400, - 401, 402, 403, 404, 405, 406, 407, 408, 409, 410, - 411, 412, 413, 414, 415, 416, 417, 418, 419, 420, - 421, 422, 423, 424, 425, 426, 427, 428, 429, 430, - 431, 432, 433, 434, 435, 436, 437, 438, 439, 440, - 441, 442, 443, 444, 445, 446, 447, 448, 449, 450, - 451, 452, 453, 454, 455, 456, 457, 458, 459, 460, - 461, 462, 463, 464, 465, 466, 467, 468, 469, 470, - 471, 472, 473, 474, 475, 476, 477, 478, 479, 480, - 481, 482, 483, 484, 485, 486, 487, 488, 489, 490, - 491, 492, 493, 494, 495, 496, 497, 498, 499, 500, - 501, 502, 503, 504, 505, 506, 507, 508, 509, 510, - 511, 512, 513, 514, 515, 516, 517, 518, 519, 520, - 521, 522, 523, 524, 525, 526, 527, 528, 529, 530, - 531, 532, 533, 534, 535, 536, 537, 538, 539, 540, - 541, 542, 543, 544, 545, 546, 547, 548, 549, 550, - 551, 552, 553, 554, 555, 556, 557, 558, 559, 560, - 561, 562, 563, 564, 565, 566, 567, 568, 569, 570, - 571, 572, 573, 574, 575, 576, 577, 578, 579, 580, - 581, 582, 583, 584, 585, 586, 587, 588, 589, 590, - 591, 592, 593, 594, 595, 596, 597, 598, 599, 600, - 601, 602, 603, 604, 605, 606, 607, 608, 609, 610, - 611, 612, 613, 46, 40, 41, 44, 58 -}; -# endif +#define YYPACT_NINF (-1776) -/* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */ -static const yytype_uint16 yyr1[] = +#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, @@ -1953,8 +3836,8 @@ static const yytype_uint16 yyr1[] = 984, 984, 985, 986, 986, 986, 986, 986, 987, 987 }; -/* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */ -static const yytype_uint8 yyr2[] = +/* 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, @@ -2089,1829 +3972,41 @@ static const yytype_uint8 yyr2[] = 3, 3, 1, 3, 1, 1, 3, 3, 1, 1 }; -/* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state - STATE-NUM when YYTABLE doesn't specify something else to do. Zero - means the default is an error. */ -static const yytype_uint16 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, 133, 1197, - 1198, 1199, 1194, 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, 1071, 1217, 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, 1226, 0, - 918, 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, 0, 912, 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, 911, 1226, 919, - 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, - 1226, 1217, 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, 1217, 923, 0, - 922, 836, 1004, 0, 1050, 1232, 1140, 1138, 1139, 0, - 1010, 982, 0, 998, 998, 673, 666, 683, 691, 676, - 678, 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, 925, 0, 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, - 0, 924, 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 -}; -/* YYDEFGOTO[NTERM-NUM]. */ -static const yytype_int16 yydefgoto[] = -{ - -1, 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, 1233, - 1473, 1474, 1687, 1475, 1750, 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 -}; +enum { YYENOMEM = -2 }; -/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing - STATE-NUM. */ -#define YYPACT_NINF -1419 -static const yytype_int16 yypact[] = -{ - -63, 58, 215, -1419, -63, 255, 241, -102, -1419, 359, - 197, -63, -1419, 429, 534, 391, -1419, -1419, 493, 359, - 354, 619, 488, 459, 752, -1419, 359, -1419, 465, 805, - -1419, -1419, -1419, 838, -1419, -1419, 960, 671, 945, 816, - -7, -1419, 640, 705, -1419, 713, 660, 3109, 3109, 667, - 23, -1419, 680, 686, 740, 845, -1419, -1419, -1419, -1419, - -1419, 1025, 1031, 1365, 1055, -1419, -1419, -1419, -1419, -1419, - -118, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, 711, - 850, 546, -53, -1419, -1419, 720, 495, 847, 251, -1419, - 722, 787, 812, -1419, -1419, -1419, -1419, 731, -1419, 3109, - 3109, -1419, -1419, -1419, 972, 983, -1419, 839, 839, -1419, - 738, 747, 749, -1419, -1419, 751, -1419, 907, 71, -1419, - 753, 824, 829, -1419, -1419, 762, 3109, -1419, 779, -1419, - -1419, -1419, -1419, -1419, -1419, -1419, 823, 830, 798, -1419, - -1419, 101, -1419, -1419, 806, 873, -1419, 3109, 3109, -1419, - 595, 835, -1419, 1913, 360, 1176, 1178, -1419, 1179, 1186, - 883, 1175, 1175, 876, -1419, 1046, -1419, -1419, -1419, -1419, - -1419, -1419, 1193, -1419, 955, 830, -1419, 414, -1419, -1419, - 866, -1419, -1419, 841, -5, -1419, -1419, 840, -1419, -1419, - -1419, 3109, 3109, 3109, 898, -1419, 402, -1419, -1419, 4434, - -1419, -1419, 848, 854, 855, 856, 859, -1419, 942, -20, - 1175, 1175, -1419, 1175, 1210, 1133, 1175, -1419, -1419, 1175, - -1419, -1419, 235, -1419, 1061, 525, -1419, 210, -1419, -1419, - -1419, 1223, 1225, -1419, -1419, 235, 866, 964, -1419, -1419, - 3109, -1419, 835, -1419, -1419, -1419, 934, -1419, -1419, 875, - 877, -1419, -1419, -1419, 985, 985, 985, 985, 1570, 1397, - 3109, 3159, 3209, 985, 985, -1419, 985, 3109, 3109, -1419, - -82, 985, 1221, -1419, 1538, 3109, 985, 985, 985, 2012, - 3109, 2221, 2139, 902, 903, 985, 985, 143, 780, 1009, - 985, 53, 832, 2725, 3109, 3109, 985, 985, 985, 3778, - -1419, -1419, -1419, -1419, -1419, 1121, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, -1419, -1419, 1157, 888, -1419, 894, - 1145, 1381, 1229, 1231, -1419, -1419, 1259, 1260, -1419, -1419, - -1419, 938, -1419, -1419, -1419, 1208, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, -1419, -1419, -1419, 3272, 44, -1419, - -1419, 1126, -24, 1097, 1099, 1102, 3109, 1148, 2786, 1065, - 912, -1419, 1365, -1419, 3109, 505, -1419, 108, 1146, 1037, - 987, 1012, 2508, -1419, 1147, 396, -1419, -1419, -1419, -1419, - -1419, 789, 922, 1538, 1538, 263, 969, -1419, -1419, 2678, - -1419, 30, 1053, 3109, 1049, 1278, 1158, 1227, -1419, -1419, - -1419, -1419, -1419, 2482, 985, 349, 352, -1419, 420, 1160, - 4434, 966, 968, 1283, -1419, -1419, 1165, 1012, 1097, -1419, - 1305, 1170, -1419, -1419, 1080, 972, -1419, 31, 972, -1419, - -1419, 81, 1053, 1053, 375, 1117, -1419, -1419, -1419, -1419, - -1419, 440, -1419, 1206, 3109, 1174, 2824, -1419, 3109, -1419, - -1419, 1209, -1419, -1419, -1419, 1187, -1419, -1419, 1022, -1419, - -1419, 1107, -1419, -1419, -1419, -1419, 1365, -1419, 614, 1308, - 1229, -1419, -1419, -1419, -1419, -1419, -1419, 1233, -1419, 1161, - -1419, -1419, -1419, 1329, 866, 973, 1224, -1419, 4434, -1419, - -1419, -1419, 1293, -1419, -1419, -1419, -1419, -1419, 1012, 3109, - 827, 3109, -1419, 683, 3349, 2859, -1419, -1419, 3109, 1173, - 1065, -1419, -1419, -1419, 3109, 1220, 988, 985, 313, 313, - -1419, -1419, -1419, 67, -1419, -1419, 1614, 987, -1419, 1065, - -1419, -1419, 13, -1419, 3419, 3109, -1419, -1419, 3109, 3109, - 1297, 1337, 546, 546, -1419, 565, 585, -1419, -1419, 986, - 25, 189, 278, 1614, 1614, 1614, 1614, 1614, 1175, -1419, - -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, 1314, - -1419, -1419, -1419, 1020, 406, -1419, 468, -1419, -1419, -1419, - -1419, 133, -1419, 1330, -1419, 1338, 3109, 3109, -1419, -1419, - 3109, 985, 505, -1419, 1352, 804, -1419, 985, -1419, -1419, - 4434, 827, -1419, 789, 2430, -1419, -1419, 1168, -1419, 1170, - -1419, -1419, -1419, 1005, -1419, -1419, -1419, 1320, 1295, 1298, - 1355, 133, -1419, 1345, 133, -1419, 1180, -1419, -1419, 182, - -1419, 1183, 1175, 985, 3109, 1311, 2839, -1419, -1419, 3109, - -1419, 1311, 1190, 1149, -1419, -1419, 1175, -1419, -1419, 1365, - 1365, 1332, 1358, -1419, 1150, 773, -1419, 1387, -1419, 811, - 317, -6, 965, -1419, -1419, 235, 1033, 1036, 3902, 130, - 1168, -1419, -1419, -1419, -1419, 1346, -1419, 1273, 1372, 1273, - 1273, 1273, 1086, 843, 1177, -1419, 1177, 1614, -1419, -1419, - -1419, -1419, -1419, 3609, 1252, 985, 261, -1419, 242, 985, - -1419, 988, -1419, -1419, -1419, -1419, -1419, 1136, 1144, 1122, - 1211, -1419, 1614, 512, 1065, -1419, 375, -1419, -1419, -1419, - 52, -1419, -1419, -1419, 1247, 261, 1250, -1419, 1072, -1419, - -1419, -1419, 263, 969, 1053, 789, -1419, 3109, -1419, -1419, - -1419, -1419, -1419, 46, 1395, 930, 930, 1399, 1399, -1419, - 46, 1614, 46, 1070, 1070, -1419, 1149, -1419, -1419, -1419, - -1419, -1419, 406, -1419, 1328, 1421, -1419, -1419, 985, 1162, - -16, -1419, 1180, 3109, 1422, 2871, -1419, 261, 1266, 505, - 985, -1419, -1419, -1419, 1538, 1272, -1419, -1419, -1419, 515, - 1111, 985, 540, 375, -1419, 78, 972, -1419, 941, 853, - 853, 1320, 4, -1419, 1180, 4, -1419, -1419, 1302, -1419, - 1180, 697, 294, -1419, -1419, 103, 985, 261, 1274, 1403, - 985, -1419, 4434, 1226, 1448, -1419, -1419, 1365, -1419, 1135, - 1218, -1419, 1236, 1189, 1221, -1419, -1419, 1180, 1180, 1430, - -1419, -1419, 1141, 1175, 1204, 1387, -1419, -1419, -1419, 1460, - 1233, 1175, 764, 764, 1175, 39, 1175, 1445, 1230, -1419, - 593, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, - 1465, -1419, -1419, -1419, -1419, 1115, 457, 866, -1419, -1419, - -1419, 1175, 457, -1419, 1175, 1445, -1419, 678, -1419, 280, - -1419, -1419, -1419, -1419, -1419, 673, -1419, 1175, -1419, -1419, - -1419, -1419, -1419, -1419, -1419, 748, 1212, -84, 375, -1419, - 2904, -1419, 1273, -1419, -1419, -1419, 1273, -1419, -1419, -1419, - 1614, 1614, 1151, -1419, 866, 315, -1419, 900, 866, -1419, - -1419, 469, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, 89, -1419, 61, 1053, -1419, 1166, 261, -71, - -1419, -1419, -1419, -1419, -1419, -1419, 88, -1419, -1419, 1342, - -1419, 334, 985, -1419, 985, 1337, -1419, 9, 972, -1419, - 695, -1419, 46, -1419, 1151, -1419, -1419, 1501, 263, 969, - -1419, 1614, 1438, -1419, -1419, -1419, -1419, 1407, 468, 1312, - -1419, -1419, -1419, -1419, 985, -1419, 3109, 3109, -1419, 985, - -1419, 969, 3109, -1419, -1419, 985, -1419, -1419, 1423, 1356, - -1419, -1419, 1444, 1343, -1419, -1419, 1359, -1419, 78, -1419, - -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, 183, 5, 1364, 1305, 5, 4434, -1419, -1419, - -1419, 1472, 985, -1419, 1232, -1419, -1419, -1419, -1419, 61, - -1419, 985, -1419, 1452, 3109, 49, -1419, 1377, 1187, -1419, - 1191, -1419, -1419, -1419, 1175, 1135, -1419, -1419, 1175, 1180, - 771, 1175, 1175, 1032, 1175, 357, 866, -1419, -1419, -1419, - 866, 1491, 1175, 1445, 1492, -99, 885, 1143, 866, -1419, - -1419, -1419, 1333, 866, -1419, -1419, -1419, 866, -1419, 1142, - -1419, -1419, -1419, 55, 1175, 991, 972, -1419, -1419, -1419, - -1419, -1419, -1419, 1196, 1196, 1275, -1419, 1484, 102, 41, - -1419, -1419, -1419, 1053, 1309, 443, 1363, -1419, 911, -1419, - -1419, 1151, 1151, -1419, -1419, -1419, 1155, -1419, -1419, -1419, - -1419, -1419, 1471, -1419, -1419, -1419, 972, 36, 1213, 1366, - -1419, 972, 972, -1419, -1419, 428, -1419, -1419, 1473, 460, - 261, 987, 261, 987, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, 1151, 1472, 3109, -1419, -1419, 32, - 1171, 985, -1419, -1419, -1419, 261, -1419, 1311, 1385, 1538, - 1357, 1356, 1486, 4434, 1423, -1419, -1419, 1181, -1419, -1419, - -1419, -1419, -1419, -1419, 1341, 1305, -1419, -1419, -1419, 4434, - -1419, -1419, 985, 36, 261, 1403, -1419, 1202, 985, 1341, - 1429, -1419, -1419, 1530, 1175, 159, 1175, -1419, -1419, 1085, - 1085, -1419, -1419, -1419, 1533, 1535, -1419, -1419, -1419, 1536, - -1419, -1419, -1419, 1244, -1419, -1419, -1419, -1419, -1419, 1534, - -1419, -1419, -1419, -1419, 1551, -1419, -1419, -1419, -1419, -1419, - 1347, 1341, 1539, 1175, 866, -1419, 866, -1419, 866, -1419, - -1419, -1419, -1419, -1419, -1419, 1540, 1474, -1419, -1419, 673, - 673, -1419, -1419, -1419, -1419, 673, 1175, 1445, 937, -1419, - 1382, -1419, -1419, -1419, 1396, 390, 1200, 1175, 394, -1419, - -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, 1366, - -1419, 1524, -1419, -1419, -1419, 2915, -1419, 376, -1419, -1419, - -1419, -1419, -1419, 524, -1419, 533, 1324, -1419, -1419, -1419, - 834, 535, -1419, 1495, -1419, -1419, -1419, -1419, 985, -1419, - -1419, -1419, -1419, 3109, -1419, 969, 3109, -1419, 1423, -1419, - -1419, -1419, 1181, -1419, 4434, 1217, -1419, 1339, -1419, -64, - -1419, 1437, 694, -1419, -1419, -1419, 3109, 1341, -1419, -1419, - 985, 1341, -1419, -1419, 1572, -1419, -1419, -1419, -1419, -1419, - 1581, -1419, -1419, -1419, -1419, -1419, -1419, 866, 157, -1419, - -55, 1279, 866, 1504, 1085, -1419, 1255, 246, 1579, 972, - -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, 1574, 1576, - 866, 866, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, 673, -1419, 3574, 1238, -1419, 62, 985, - 327, 1180, -1419, -1419, 1553, -1419, 4434, -1419, 4434, 1053, - -1419, 1735, -1419, 18, -1419, 1470, -1419, -1419, -1419, 985, - 985, -1419, 117, 132, 1324, 1406, 1406, 468, -1419, 468, - 468, 468, 985, -1419, 449, 1466, 1262, 1311, -1419, 1356, - 972, -1419, -1419, 1119, 1217, -1419, -1419, -1419, 1348, 985, - -1419, -1419, -1419, 182, 1368, -1419, 985, -1419, -1419, 985, - -1419, 4, -1419, -1419, -1419, -1419, 27, 1442, -1419, 507, - -1419, -1419, -1419, -1419, 1506, 1180, 1424, -1419, 1611, -1419, - -1419, -1419, -1419, 911, 866, -1419, 235, 985, 985, 1398, - 1119, 1398, 1119, 1119, -1419, -1419, -1419, 370, -1419, -1419, - 1003, -1419, -1419, -1419, 470, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, 95, -1419, -1419, 1180, -1419, 1431, - -1419, -1419, -1419, 1317, 428, 2915, -1419, -1419, -1419, 3109, - -1419, -1419, 4434, 36, 36, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, 1699, 1575, -1419, 468, 468, -1419, 834, - -1419, -1419, 1556, -1419, 985, 1370, -1419, -1419, -1419, 3109, - 1356, -1419, 1593, 1175, -1419, 558, -1419, 1175, 985, 449, - -1419, 1053, -1419, -1419, 1488, -1419, -1419, 1514, -1419, 1582, - 115, 1313, 1423, -1419, 1539, 866, -1419, 1175, 1311, -1419, - -1419, 1461, -1419, -1419, -1419, -1419, 1175, 397, 1628, 397, - -1419, -1419, 1119, -1419, -1419, 1292, 1119, -1419, -1419, 1119, - -1419, -1419, 1607, -1419, -1419, -1419, -1419, 4434, 1273, -1419, - 1613, -1419, -1419, -1419, -1419, -1419, 132, 1140, -1419, -52, - -1419, -1419, 834, 834, 834, 468, 985, 1175, 1538, 1315, - -1419, -1419, 4103, 1640, 4227, 1119, 789, -1419, 1410, 4434, - -1419, -1419, -1419, -1419, -1419, 1590, 885, 885, 1504, -1419, - 1053, 1660, 235, 1175, 1498, 4288, -1419, -1419, -1419, -1419, - -1419, 1119, 985, -1419, 1119, -1419, -1419, -1419, -1419, -1419, - 4434, -1419, -1419, 1366, 1053, -1419, -1419, 1614, -1419, -1419, - 789, 969, -1419, 972, 1367, -1419, -1419, 1221, 1369, -1419, - -1419, -1419, -1419, 1283, -1419, -1419, 885, -1419, -1419, 1552, - 3109, -1419, 235, -1419, 866, 1558, 1468, 1115, 276, 248, - -1419, 1485, 1386, -1419, 145, 1445, 1500, -1419, 1175, -1419, - -1419, -1419, 1175, 1175, 1175, 3799, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, 122, -1419, 866, -1419, -1419, -1419, - 1379, -1419, -1419, -1419, -1419, -1419, 1532, 1557, 1151, 834, - -1419, 1634, 1538, -1419, -1419, 995, -1419, -1419, 4434, -1419, - 1053, -1419, -1419, -1419, -1419, 1175, 1578, 1521, 1334, -1419, - -1419, 248, 248, -1419, 1128, 1445, -1419, -1419, -1419, -1419, - -1419, -1419, 1175, 1445, -1419, -1419, 1175, 1175, 316, 1175, - 3109, 1976, 1583, 921, -1419, -1419, 866, 520, -1419, 1474, - -1419, -1419, -1419, 985, -1419, 969, -1419, -1419, -1419, 1689, - 246, 866, 1175, 1175, -1419, -1419, 1175, 1445, -1419, -1419, - -1419, -1419, 222, -1419, 1404, 2946, 2871, -1419, -1419, 676, - -1419, -1419, 696, -1419, -1419, 745, -1419, -1419, -1419, -1419, - -1419, -1419, 1453, 1482, -1419, 4434, 1663, 1541, -1419, 1634, - -1419, -1419, -1419, 866, 866, -1419, -1419, 1464, 866, -1419, - -1419, 1579, 1474, -1419, -1419, -1419, 1371, 3013, 3013, -1419, - -1419, -1419, -1419, -1419, -1419, -1419, 1469, -1419, 985, 3109, - 1585, -1419, -1419, -1419, -1419, -1419, -1419, 3109, 1439, -1419, - -1419, -1419, -1419, 3013, 3013, -1419, 1668, 1311, -1419, 2871, - 3088, -1419, -1419, -1419, 985, 3109, -1419, -1419, 1675, 1378, - 985, -1419, 1684, 1538, 985, 969, 1688, 985, -1419 -}; +#define yyerrok (yyerrstatus = 0) +#define yyclearin (yychar = YYEMPTY) -/* YYPGOTO[NTERM-NUM]. */ -static const yytype_int16 yypgoto[] = -{ - -1419, -1419, -1419, 1726, -1419, 915, -1419, 814, -1419, -1419, - -1419, -1419, -1419, 1630, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, 1383, -1419, -1419, -1419, -1419, 1584, - -1419, -1419, -1419, -1419, 1237, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, 635, -1419, -1419, -1419, 1240, -1419, -1419, - -1419, -1419, -1419, -1419, 1577, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, -41, -897, -1419, -1419, -1419, -1419, - -1419, 1523, -1419, -1419, -1419, -1419, 868, -1419, -1419, -1419, - 606, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, 198, 455, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, 211, -1419, -1419, -36, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1082, -81, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, 1048, -96, -1419, -1159, -1419, -1419, - -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -707, - 621, -1205, -1419, 107, 217, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, 642, -168, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, 858, -1419, -1419, -1419, -1419, -1419, -1419, -109, -1419, - -1419, -1419, -1419, 447, -1419, 464, 450, -1419, -117, -1419, - -1419, -1419, -1419, -1419, -1419, -1419, 1089, -1419, -1419, 1090, - -1419, -1419, -1419, -1419, -1419, -1419, 137, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, 138, 901, -1419, -1419, 361, -944, - -247, 65, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, 1408, - -1419, -1419, -1419, -1419, 1643, 1412, -1419, -827, -152, -265, - -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, 795, -1419, -1419, -1419, -1419, -1419, -1419, - 307, -1419, -1419, 106, 104, -1419, -1419, -386, -1419, -1419, - -1419, 708, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, 750, -1419, -1419, 295, -1419, -1419, -1419, -1419, 418, - -1419, -1419, -1419, 48, -1419, 1163, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, -1419, 1344, -1419, 147, 1159, -1419, - -1419, 974, -128, -1419, 179, -1047, -1419, -1419, -1419, -1419, - 1027, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, -1419, -690, -1419, -1419, -1419, -1419, - -1419, -1419, 1062, -1419, -1419, -1419, 1415, -1419, -1419, -1419, - -427, 1199, -1419, -1419, 1276, -1419, -1419, 884, -1419, -1419, - -1419, -1419, -1419, 1125, -1419, 498, -1419, -1419, -1026, -1419, - -1419, -1419, -1419, 364, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, 1384, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, -1419, -1419, -516, -216, -519, -709, - -1419, -1308, -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -552, -1419, -1419, -1419, -1419, -1419, -1419, -1419, 581, - -1419, -1419, -1419, 586, 319, -1419, 249, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, -1419, -606, -1419, -1419, 1185, -1419, - 321, 754, -1419, 1182, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, -1419, -1419, -1419, -1418, 344, -399, - -1419, 1106, -1419, -1419, -1419, -1419, -1419, -1419, 253, -1419, - -1419, 1610, 97, -1419, -1419, -1419, -1419, -1419, -1419, -1419, - -1419, -1419, -1419, -1419, -1419, 86, 1216, -62, -1072, -1419, - -810, -1419, 1228, -264, -1419, -1419, -1419, 1074, -1419, -1419, - 231, -541, 1019, -756, 716, -169, -790, -1419, -1419, -321, - -1024, -693, -48, -662, -116, -390, -1419, -854, -1419, -46, - -47, -1419, 301, -982, -899, -357, -1419, -14, 1035, -1342, - -58, -174, -687, -219, -275, -774, -967, -280, -1419, 435, - -588, -281, -1419, 1768, -1419, 1096, 1685, -513, -242, 612 -}; +#define YYACCEPT goto yyacceptlab +#define YYABORT goto yyabortlab +#define YYERROR goto yyerrorlab +#define YYNOMEM goto yyexhaustedlab -/* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If - positive, shift that token. If negative, reduce the rule which - number is the opposite. If zero, do what YYDEFACT says. - If YYTABLE_NINF, syntax error. */ -#define YYTABLE_NINF -1289 -static const yytype_int16 yytable[] = -{ - 71, 71, 82, 370, 508, 96, 234, 470, 469, 86, - 426, 705, 233, 855, 472, 240, 631, 1043, 939, 859, - 1110, 1176, 1034, 1232, 1231, 589, 981, 951, 1150, 953, - 954, 955, 736, 104, 493, 1099, 1157, 1022, 1022, 816, - 453, 1477, 623, 84, 997, 531, 1217, 299, 754, 95, - 657, 784, 124, 125, 1075, -1215, 1003, -1215, -1215, 84, - 1080, 84, 234, 765, 591, 611, 612, 56, 382, 57, - 58, -426, 140, 496, 1308, 47, -1234, 486, 985, 149, - 1619, 1372, 663, 623, 476, 477, -682, 1111, 1112, 1648, - 1540, 749, -1234, 360, 496, 1022, 98, 599, 600, 601, - 186, 188, 892, -1234, 1085, 838, 1191, -1278, 1038, 56, - 757, 57, 58, 1182, 817, -1234, 1373, 1596, 1321, 1682, - 214, 215, 1, 593, 594, 595, 596, 597, 1325, -1234, - 1518, -1234, -1234, 616, 59, 60, 647, 696, 61, 62, - 1054, 1295, 1326, 1327, 149, 243, 244, 1206, 1090, 508, - 999, 459, 63, 59, 734, 658, 1183, 61, 62, -1236, - 590, 98, 1683, 857, 1280, 1860, 1861, 753, 1281, 361, - 362, 417, 363, 1605, 1608, 366, -688, 1648, 367, 586, - 545, 7, 772, 418, 656, 650, -515, 660, 761, 56, - 1609, 57, 460, 186, 785, 786, 787, 788, 789, -426, - 1702, 1374, 1703, 1704, 536, 1387, -1226, -1234, 780, 98, - 1390, 399, 781, 401, 403, 8, 1192, 710, 1296, 984, - 413, 415, 1322, 988, 665, 1035, 1292, 1053, 71, 429, - 551, 623, 435, 437, -426, 452, 557, 1375, 537, 1649, - 368, 1533, 1011, 575, -1133, 483, 399, 487, 488, 1013, - 1248, 1016, 114, 59, 750, -682, -426, 61, 62, 806, - 15, 1213, 1169, 98, 178, 895, 1170, 56, 676, 57, - 58, 663, 1545, 602, 623, 358, 98, 620, 64, 1190, - 603, 591, 751, 592, -426, 1415, 943, 65, 944, 1072, - 1519, 563, 1328, 1597, 1610, -1234, 591, 861, 593, 594, - 595, 596, 597, 985, 358, 598, -682, 604, -1234, -1132, - -682, -46, 674, 1729, 599, 600, 601, 773, 1184, 1266, - 783, 66, -1278, -1234, 1684, 1213, 1849, 1649, 962, 599, - 600, 601, 865, 866, -426, 758, 759, 84, -763, 358, - 1089, 1829, 1166, 776, 96, -688, -1236, 48, 478, 399, - 234, 550, -426, 996, 1849, 568, 911, 556, 1198, 617, - 239, 1323, 1280, 358, 1508, -515, 1281, 1207, -426, -426, - 67, 1208, 1376, 1598, 620, 493, 708, 1862, 1863, 659, - 1876, 740, 558, 10, 1008, -17, 624, 890, 95, 1054, - 779, 1309, 1014, 13, 1018, 1018, -133, 532, 635, 179, - 755, 828, 369, 1329, 1143, 891, 1389, 605, 358, 1455, - 1024, 358, 667, 1086, 1240, 115, 1382, 665, 68, -1246, - 1157, 1444, 1400, 202, -591, 892, 1445, 1416, 733, 1534, - 1447, -426, 1737, 1738, 224, -461, 1470, 399, 1185, 550, - -7, 680, 958, 493, 1685, 1825, 1231, 945, 1223, 1224, - 1937, 1173, 559, 778, 1850, 1179, 1049, 797, 733, 1368, - 798, 799, 17, 820, 69, 1187, 1417, 358, 578, 203, - 204, 1212, 1638, 1611, 56, -682, 57, 58, 1348, -682, - 1938, 1456, 1850, 1631, 698, 1153, 1200, 10, 1202, 1199, - 602, 1362, 711, 1364, 716, 1421, 1422, 603, 550, 59, - 60, 737, 620, 61, 62, 602, 225, 741, 1851, 1852, - 1102, -1215, 603, -1215, -1215, 1618, 1381, 1620, 1621, 1622, - 893, 1793, 1050, 1225, 604, 1587, 1174, 894, 763, 1019, - 1019, 764, 766, 1009, 1486, 635, 568, 102, -533, 604, - 102, 1853, -533, -533, 1404, 1405, 1282, 593, 594, 595, - 596, 597, 20, -1234, 985, 1057, 205, 790, 1070, 1070, - 1041, 1171, 1172, 1457, 1564, 1383, 1410, 1512, 1283, 1853, - 1253, -1236, 376, 666, 582, 1254, 591, 1706, 592, 814, - 624, 1673, 1048, 818, 1497, 998, -1236, 103, 895, 107, - 103, -169, 1471, 579, -960, 1188, 583, 830, 896, 897, - 598, 1458, 1049, 1288, 1710, 667, 772, 1289, 1431, 599, - 600, 601, 1175, 1359, 1360, 1302, -960, 982, 1739, 1498, - 1154, 10, 1214, 1675, 605, 1487, 1624, 483, 1727, 550, - 750, 851, 858, 1284, 1700, 1701, 689, 673, 224, 605, - 800, 801, 21, 1120, 1001, 864, 1037, 918, 1128, 1591, - 820, 1592, 65, 358, 98, 1740, 1801, 23, 751, 900, - 1543, 927, 206, 1140, 1285, 1069, 1069, 1674, 1050, 620, - 690, 806, 898, 1138, 1924, 1180, 1680, -1236, 1, 899, - 1653, 1588, 1363, 774, 1365, -1288, 66, 108, -1271, 392, - 393, 394, 395, 717, 718, 719, 720, 1625, 407, 410, - 1459, 411, 250, -960, 59, 60, 419, 1855, 61, 62, - 225, 430, 431, 432, 1526, 591, 27, 721, 1529, 98, - 457, 458, 63, 1759, 473, 475, 1074, 1210, 1138, 1074, - 149, 489, 490, 491, 102, 67, 1084, 1966, 98, 1081, - 1499, 773, 28, 234, 1460, 924, 925, 98, 1922, 358, - 1141, 29, 1461, 620, 1134, 1657, 32, 1361, 1583, 1777, - 1778, 1923, 1181, 1681, 251, 252, 624, 636, 811, 1896, - 1897, 1135, 1267, 1336, 871, 1693, 1268, 637, -119, 775, - 1065, 463, -119, 68, 103, 602, 56, 422, 57, 1972, - 234, 1242, 603, -119, 234, 1436, 372, 1686, 582, -960, - 1246, 1489, 59, 60, 1269, 1357, 61, 62, 1088, 1839, - 1490, 811, 887, 822, 1982, 1983, 888, 872, 9, 604, - 583, 31, -1236, -49, 157, 19, 464, 34, -72, 69, - 873, 1165, 26, 480, 874, 823, 373, 374, 56, 1151, - 57, 58, 1115, 1848, 567, 1629, 1949, -32, 109, 56, - 1121, 57, -49, 1126, 1127, 1129, 1152, 65, 1950, 56, - 1751, 57, 1044, 59, 60, 1315, 1951, 61, 62, 1663, - 192, 193, 1045, 158, 957, 712, -32, 722, 1952, 633, - 1147, 63, 1495, 1149, 59, 1765, 1976, 1769, 61, 62, - 1298, 66, 1775, 713, 1694, 1695, 1158, 59, 1865, 245, - 1496, 61, 62, 1168, 1161, 1347, 1162, 246, 159, 1467, - 1352, 1353, 1988, 1835, 1532, 1953, 59, 60, 1992, 605, - 61, 62, 1996, 1824, 16, 1998, 1258, 1954, 35, 160, - 161, -49, 1270, 25, 37, 620, 162, 1553, 1556, 875, - 67, 16, 234, -1236, 163, 1243, 234, 56, 1247, 57, - 58, -49, 59, 60, 234, -32, 61, 62, 1899, 234, - 189, 190, -119, 234, 41, 1385, 1901, 595, 596, 597, - 1398, 42, 59, 60, 43, -32, 61, 62, 56, 1084, - 57, -540, 45, 738, -119, 84, 552, 553, 68, 624, - 624, 56, 407, 57, 58, 1227, 1732, 1312, 1752, 1313, - 1936, 56, 51, 57, 591, 52, 592, 64, -49, 611, - 612, 1888, 1524, 53, 738, 56, 65, 471, 58, 876, - 54, 593, 594, 595, 596, 597, 59, 60, 598, 83, - 61, 62, -32, 915, 69, 1122, 1123, 599, 600, 601, - 90, 1556, 88, 56, 877, 57, 58, 1256, 89, 878, - 66, 807, 1272, 1177, 1178, 566, 93, 879, 91, -49, - 1211, 190, 94, 1263, 97, 738, 633, 1265, 1299, 101, - 1274, 1275, 825, 1279, 1928, 100, 56, 422, 57, 58, - -119, 1291, 106, 110, 119, -540, -49, 120, 591, 1593, - 1268, 1276, 1277, 121, -117, 123, 158, 128, 1957, 67, - 134, 59, 60, 1311, 131, 61, 62, 138, 852, 135, - -32, 136, 1017, 137, 738, 143, 59, 60, 1330, 63, - 61, 62, 1341, 1342, 144, 56, 145, 57, 58, 148, - 234, 159, 234, 174, 234, 880, 1435, -49, 1435, -49, - 806, 152, 806, 806, 806, 1448, 1449, 68, 1860, 1861, - 59, 60, 160, 161, 61, 62, 1677, 1678, 1550, 162, - 177, 111, 1757, 112, 747, 748, 916, 163, 182, 1369, - 410, 567, 1059, 183, 410, 593, 594, 595, 596, 597, - 1060, 208, 1061, 209, 210, -72, 593, 594, 595, 596, - 597, 211, 212, 69, 755, 84, 755, 216, 219, 221, - 567, 438, 917, 238, 1357, 241, 56, 356, 57, 58, - 351, 1272, 1272, 602, 1697, 364, 352, 353, 354, 1465, - 603, 355, 918, 1414, -540, 1420, 365, 371, 378, 1633, - 379, 59, 60, 383, 250, 61, 62, 389, 919, 390, - 420, 454, 455, 1029, 920, 64, 496, 604, 494, 63, - 499, 1718, 567, 234, 65, 1040, 500, 501, 1069, 806, - 806, 509, 1434, 512, 513, 514, 1047, 518, 516, 534, - 539, 1844, 541, 1066, 921, 543, 234, 234, 546, 98, - 564, 568, 1062, 570, 576, 1446, 587, 626, 66, 71, - 1468, 410, 567, 922, 620, 1097, 1469, 627, 628, 630, - 641, 1877, 638, 1878, 642, 643, -1213, -1213, 1484, 645, - -1213, -1213, 1595, 459, 1537, 1985, 651, 923, 654, 672, - 924, 925, 675, 677, -1213, 681, 684, 926, 686, 687, - 692, 696, 698, 1698, 703, -580, 1506, 67, 707, 1507, - 1780, 709, 744, 56, 422, 57, 58, 605, 806, 1584, - 739, 778, 742, 767, 792, 795, 812, 813, 1828, 1525, - 439, 821, 836, 1921, 1826, 831, 464, 839, 59, 60, - 840, 844, 61, 62, 841, 64, 1272, -688, 1932, 423, - 234, 850, 846, 854, 65, 68, 63, 860, 867, 1940, - 868, 869, 884, 949, 440, 940, 59, 60, 941, 441, - 61, 62, 725, -963, 952, -963, -963, 956, 217, 959, - 983, 994, 59, 60, 992, 1647, 61, 62, 66, 567, - 1962, 1963, 993, 567, 1002, 1965, 995, 1004, -963, -963, - 1006, 69, -963, -963, 424, 1012, 1026, 1201, 597, 1203, - 1028, 1036, 1030, 1039, 1761, 1042, -963, 1046, 442, 1078, - 1889, 1091, 1092, 1101, 1100, 1065, 1103, 1105, 1107, -1213, - 1109, 1113, 1114, 807, 1116, 1119, 1130, 67, 1132, 1222, - 1136, -963, -963, 1138, 410, 1163, 1189, 1196, 1215, 1216, - 1230, 1069, 1633, 1218, 1050, 1054, 1234, 1238, 1235, 1244, - 591, 1252, 1255, -1213, 1259, 1262, 1290, 1293, 1303, 769, - 1301, 1316, 1065, 1307, 1065, 1065, 1320, 56, 422, 57, - 58, 1337, 64, 1783, 1339, 68, 1345, 1250, 1346, 591, - 1358, 65, 1350, 1349, 567, 1378, 410, 1384, 1388, 1396, - 1386, 1407, 59, 60, 1411, 1413, 61, 62, 1423, 1391, - 1424, 1425, -1213, 423, 56, 422, 57, 58, 1484, 65, - 63, 1426, 1692, 1427, 1887, 66, 1429, 1441, 1432, 1342, - 1452, 69, 1439, 1843, 1453, 65, 1479, 1500, 1885, 59, - 60, 1491, -963, 61, 62, 1513, 56, 1530, 57, 58, - 423, -963, 1709, 66, 1516, 1521, 1531, 63, 1541, 1538, - -1213, 1309, 1713, 1548, 1551, 1589, 1716, 1552, 1615, 66, - 1585, 59, 60, 1600, 67, 61, 62, 502, 1627, 1628, - 234, 1637, 1652, 1658, 1065, -963, 1731, 1642, 1065, 63, - 56, 1065, 57, 58, 1656, 1736, 1659, 1689, 1705, 1587, - 1666, 1605, 67, 1707, 1711, 567, -1213, 567, 1720, 1722, - 234, 190, 234, 1733, 1723, 59, 60, 1742, 67, 61, - 62, 1726, 68, 1746, 1749, 1754, 1380, 1065, 1767, 1774, - 567, 1776, 1762, 63, -963, 1781, 1760, 1785, 1299, 1299, - 1840, 1834, 1846, 1836, 396, 1856, 64, 1845, 770, 1858, - 68, 1866, 1883, 1065, 1879, 65, 1065, 1403, 1881, 567, - 1880, 1893, 1784, 1097, 1930, 1895, 68, 1892, 69, 503, - 504, 424, 234, 1919, 1955, 56, 422, 57, 58, 1942, - 1956, 1958, -963, 64, 1959, 1964, 1984, 234, 1299, 66, - 1975, 1967, 65, 1990, 1980, 1991, 69, 1978, 234, 1995, - 59, 60, 1994, 1842, 61, 62, 1997, 18, 133, 497, - 1264, -1215, 69, -1215, -1215, 64, 688, 693, 63, 218, - 377, 1661, 223, 1118, 65, 1430, 66, 1868, -963, 234, - 234, 1871, 1872, 1873, 234, 1662, -1215, -1215, 67, 1875, - -1215, -1215, 1904, 1898, 961, 1318, 1744, 1886, 1669, 1306, - 1148, 1931, 1463, 1443, -1215, 1464, 1941, 1725, 66, 64, - 913, 914, 1728, 1779, 1125, 529, 200, 1544, 65, 530, - 1204, 1614, 1756, 1758, 1891, 67, 1261, -1215, 1239, 1636, - 1511, 1833, 834, 1503, 1635, 1920, 68, 664, 1717, 1076, - 843, 1900, 1000, 71, 1906, 1902, 1903, 574, 1905, 1025, - 819, 1164, 66, 746, -1215, 947, 1472, 67, 1590, 1409, - 1617, 1406, 648, 1690, 1641, 1528, 1644, 989, 1691, 1257, - 386, 1933, 1934, 68, 849, 1935, 853, 1830, 1945, 1837, - 829, 1668, 69, 1670, 1671, 424, 1715, 1961, 1023, 826, - 1082, 1319, 127, 1010, 64, 1071, 242, 1419, 0, 0, - 0, 67, 0, 65, 0, 68, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 69, - 1971, 1971, 424, 0, 1586, 0, 0, 0, 0, 0, - -1215, 0, 1977, -560, 195, 0, 0, 66, 0, -1215, - 71, 1979, 196, 0, 1603, 1604, 1971, 1971, 0, 68, - 0, 69, 807, 1987, 807, 807, 807, 1623, 1989, 0, - -566, -566, 0, -566, 0, 0, 0, 0, 1066, 98, - 0, 0, 0, -1215, 1503, 0, -566, 0, -566, 0, - 0, 1643, 0, 0, 1645, 0, 67, 0, 0, 0, - 0, 0, 0, 1745, 0, 69, 0, 1747, 752, 0, - 1748, 0, 0, 0, 0, 0, -566, 0, 0, -566, - -566, 0, 1664, 1665, -566, 1066, 0, 1066, 1066, -566, - 0, 0, -1215, 0, 0, 0, 0, 0, -566, 0, - -1215, 0, 0, -566, 68, 0, 1771, 0, 56, 0, - 57, 58, 0, 0, 0, 0, 0, 0, -566, 0, - 0, 0, 0, -566, 0, -566, 0, 0, 0, 0, - 0, -560, 1821, 59, 60, 1823, 0, 61, 62, 0, - -1215, 807, 807, 0, 0, 1907, 1908, 0, 0, 1503, - 69, 63, 0, 752, 0, 0, 0, 0, 0, 0, - -566, 0, -566, 1623, 0, 0, 0, 1909, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 1910, 0, -566, - -1215, 0, -566, -566, 0, 1911, -1215, 0, -560, -566, - 0, 0, 0, 0, -566, 0, -566, 1066, -566, 0, - 0, 1066, 0, 0, 1066, 0, 433, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, -566, 0, 0, -566, 0, -566, 0, - 807, 1623, 0, 0, 0, 56, 0, 57, 445, 0, - 1066, 0, 0, 0, 0, 0, -566, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, -566, 0, 0, - 446, 60, 0, 0, 61, 62, 1066, 1822, 0, 1066, - 0, 0, 0, -566, 0, 0, 0, 64, 63, 0, - 0, 0, 0, 0, 0, 0, 65, 0, -566, -566, - 0, 0, 0, -566, 0, 0, 0, 0, 0, 0, - 0, 0, -566, 0, 0, 0, 0, 0, 0, 434, - 0, -566, 438, 0, -566, 0, 0, 1912, 0, 0, - 66, 1913, 1914, -566, 0, 0, 0, -566, -566, -566, - 0, 0, 0, 0, -566, -566, -566, 0, -870, -870, - 0, -870, 0, 0, 0, 0, 0, 1915, -566, -566, - 0, 0, 0, -870, -870, 0, -870, 1916, 1917, 0, - 0, 0, 0, 0, 0, 197, 0, 0, 0, 67, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, -870, 0, 0, -870, -870, 0, - 0, 0, -870, 0, 0, 0, 0, -870, 0, 0, - 0, 0, 0, 0, 64, 0, -870, 0, 1927, 0, - 0, -870, 0, 65, 0, 0, 0, 68, 0, 0, - 0, 0, 0, 0, 0, 0, -870, 0, 0, 0, - 0, -870, 0, -870, 0, 0, 0, 0, -870, 0, - -870, -870, -870, 0, -870, -870, -870, 66, -870, -870, - -870, -870, 0, -870, -870, -870, -870, -870, -870, -870, - -870, -870, -870, 69, 0, 0, 0, 0, -870, 0, - -870, 439, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 1927, 0, 0, 0, -870, 0, 0, - -870, -870, 0, 0, 0, 0, 67, -870, 0, 0, - 0, 0, -870, 0, -870, 440, -870, 0, 0, 1927, - 441, 0, 0, 0, 0, 1927, 0, 0, 0, 1927, - 0, 0, 1927, 0, 0, 0, 56, 0, 57, 58, - 0, -870, 0, 0, -870, 0, -870, 0, 0, 0, - 0, -870, 0, 0, 68, 0, 0, 0, 0, 0, - 0, 59, 60, 0, -870, 61, 62, 0, 0, 442, - 0, 0, 0, -1234, 0, -870, 0, 0, 0, 63, - 0, 0, 0, 438, 0, 0, -1166, 0, 0, 0, - 0, -870, 0, 0, 0, 0, -1166, 0, 358, 0, - 69, 0, 0, 0, 0, 0, -870, -870, 0, -869, - -869, -870, -869, 0, -1215, 0, -1215, -1215, 0, 0, - -870, 0, 0, 0, -869, -869, 0, -869, 0, -870, - 0, 0, -870, 0, 0, 0, 0, 0, 0, -1215, - -1215, -870, 0, -1215, -1215, -870, -870, -870, 0, 0, - 0, 0, -870, -870, -870, -869, 0, -1215, -869, -869, - 0, 0, 0, -869, 0, 0, -870, -870, -869, 0, - 0, 0, 0, 0, 0, 0, 0, -869, 0, -870, - 0, 0, -869, -870, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, -869, 0, 0, - 0, 0, -869, 0, -869, 64, 0, 0, 0, -869, - 0, -869, -869, -869, 65, -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, 66, 0, - 0, 0, 0, 0, 0, 0, 0, 0, -869, 0, - 0, -869, -869, 0, 0, 0, 0, 0, -869, 0, - 0, 0, 0, -869, 0, -869, 440, -869, 0, 0, - 0, 441, 0, -1215, -1215, 0, -1215, -1215, 0, 0, - 0, 0, -1215, 0, 0, 0, 0, 67, 0, 0, - 0, 0, -869, 0, 0, -869, 0, -869, 0, -1215, - -1215, 0, -869, -1215, -1215, 0, 0, 0, 0, 0, - 0, 0, 98, 0, 0, -869, -1215, -1215, 0, 0, - 442, 56, 0, 57, 58, 0, -869, 0, 0, 0, - 0, 0, 0, 0, 0, 68, 0, 0, 0, 0, - 0, 0, -869, 0, 0, 0, 59, 60, 0, 0, - 61, 62, 0, 0, -1234, 0, 0, -869, -869, 0, - 0, 0, -869, 0, 63, -1215, 0, -1166, 0, 0, - 0, -869, 0, 0, 0, 0, 0, -1166, 0, 358, - -869, 69, 56, -869, 57, 58, 0, 0, 0, 0, - 0, 0, -869, 0, 0, 548, -869, -869, -869, 0, - 0, 0, 0, -869, -869, -869, 0, 59, 60, 0, - 0, 61, 62, -1215, 0, 0, 0, -869, -869, 484, - 56, 0, 57, 58, 0, 63, 0, 0, 0, 0, - -869, 0, 0, 0, -869, 56, 0, 57, 58, 0, - 0, 0, 0, -1215, 0, 59, 60, 0, 572, 61, - 62, 0, -1215, 0, 0, 56, 0, 57, 58, -1215, - 59, 60, 0, 63, 61, 62, 0, -1215, 735, -1215, - -1215, 0, 0, 0, 0, 0, 0, 0, 63, 0, - 59, 60, 98, 0, 61, 62, -1215, 0, 0, 0, - 64, 0, -1215, -1215, 0, 0, -1215, -1215, 63, 65, - 56, 0, 57, 58, 0, 0, 0, 0, 0, 0, - -1215, 56, 0, 57, 58, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 59, 60, 0, 0, 61, - 62, 0, 0, 66, 0, -1215, 59, 60, 0, 0, - 61, 62, 56, 63, 57, 58, 0, 0, 614, 0, - 0, 64, 0, 0, 63, 0, 0, 0, 0, 0, - 65, 0, 0, 0, 0, 0, 0, 59, 60, 0, - 0, 61, 62, 0, 0, 0, 0, 854, 0, 0, - 0, 0, 67, -1215, 0, 63, 0, 679, 0, 64, - 0, 0, 0, 0, 66, 0, 0, 0, 65, 0, - 0, 0, 856, 0, 64, 0, 0, 0, 0, 56, - 0, 57, 58, 65, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 64, 0, 0, 0, 0, -1215, - 68, 0, 66, 65, 59, 60, -1215, 0, 61, 62, - 0, 0, 0, 67, 0, -1215, 0, 66, 0, 0, - 0, 0, 63, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 66, 0, 64, - 0, 0, 0, 0, 0, 98, 69, 0, 65, -1215, - 64, 67, 0, 0, 56, 0, 57, 58, 0, 65, - 0, 68, 0, 0, 0, 0, 67, 0, 0, 0, - 0, 0, 0, 0, 0, 56, 0, 57, 58, 59, - 60, 64, 66, 61, 62, 0, 67, 0, 0, 0, - 65, 0, 0, 66, 0, 0, 0, 63, -1215, 68, - 59, 60, 0, 0, 61, 62, 0, 69, 0, 0, - 0, 0, 0, 0, 68, 1167, 0, 0, 63, 0, - 0, 0, 0, 0, 66, 56, 0, 57, 58, 0, - 0, 67, 0, 0, 68, 0, 0, 0, 0, 0, - 0, 1969, 67, 0, 0, 69, -1215, 0, 64, 0, - 59, 60, 0, 0, 61, 62, 0, 65, 1943, 0, - 69, 0, 0, 0, 0, 0, 0, 0, 402, 0, - 0, 0, 0, 67, 0, -978, 0, -978, -978, 68, - 69, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 68, 66, -1215, 0, 0, 0, 0, 0, 0, 0, - -978, -978, 0, 0, -978, -978, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 1986, 0, -978, 0, - 0, 68, 0, 64, 0, 69, 0, 0, 0, 0, - 0, 0, 65, 525, 0, 0, 69, 0, 0, 0, - 67, 196, 0, 0, 64, 0, 0, 0, 0, 0, - 0, 0, 0, 65, 0, 0, 0, 0, 0, -578, - -578, 0, -578, 0, 0, 0, 66, 69, 0, 0, - 0, 0, 0, 0, 0, -578, 0, -578, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 66, 68, 0, - 0, 0, 0, 0, 64, 0, 0, 0, 0, 0, - 0, 0, 0, 65, 0, -578, 0, 0, -578, -578, - 0, 0, 0, -578, 0, 67, 0, 0, -578, 0, - 0, 0, 0, 0, 0, 0, 0, -578, 0, -1234, - 0, 0, -578, -1234, 69, 0, 67, 66, 0, 0, - 0, 0, 0, 0, -978, 0, 0, -578, 0, 0, - 0, 0, -578, -978, -578, 0, 0, 0, 0, 0, - 526, 0, 0, 68, 0, 0, 0, 0, 0, 0, - 0, 723, 0, -1234, -1234, 0, -1234, -1234, -1234, 0, - 0, 0, 0, 0, 68, 0, 67, -978, 0, -578, - 0, -578, 0, 0, 0, 0, 0, 0, 0, -1234, - 724, 0, 0, -1234, 0, 0, 0, 0, -578, 69, - 0, -578, -578, 0, 0, 0, 0, 0, -578, 0, - 0, 0, 0, -578, 0, -578, 0, -578, 0, 0, - 69, 0, 0, 0, 68, 0, -978, 0, 725, 0, - 0, 723, 0, -1234, -1234, 0, -1234, -1234, -1234, 0, - 0, 0, -578, 0, 0, -578, 0, -578, 0, 0, - 0, 0, 0, 0, -1234, 0, 0, -1236, 0, 0, - 724, 0, 0, 0, 0, -578, 0, 0, 0, 0, - 69, -1234, 0, -1234, -978, 0, -578, 0, 0, 0, - 0, 0, -1234, 0, 0, 0, 0, 0, 0, 0, - 0, 0, -578, 0, 0, 0, 0, 0, 0, 0, - -1234, 0, 0, 0, -1234, 761, 0, -578, -578, 0, - 726, 0, -578, 0, 0, -1234, -1234, 0, 0, 0, - -978, -578, 0, 0, -1234, 0, 0, 0, -1234, 0, - -578, 0, 0, -578, 0, 0, 0, 0, 0, 0, - 620, -1234, -578, -1234, 84, 0, -578, -578, -578, 0, - 0, 0, -1234, -578, -578, -578, 0, 0, 0, 727, - 0, 0, 0, 0, 0, 0, 0, -578, -578, 0, - -1234, 0, 0, 0, -1234, 0, 0, 0, 0, 84, - 726, 0, -1234, 0, 0, -1234, -1234, -1234, 1565, 1566, - 0, 0, 1567, 1568, 0, 0, 0, 0, -1234, 0, - -1234, 0, 0, 0, 0, 0, 0, 0, -1234, 0, - 0, 0, 0, 0, 1569, 0, 0, 0, 0, 0, - 0, 0, 0, 963, 964, 0, 0, 965, 966, 727, - 0, 0, 0, 0, 0, 0, 0, 0, 0, -1234, - 0, 0, -1234, 0, 0, 0, 0, 0, -1234, 0, - -1234, 0, -1234, 0, 0, 0, 0, -1234, 358, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - -1234, 0, 0, 0, 0, 0, 0, 0, -1234, 1570, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 1571, 0, 1572, 0, - 0, 0, 0, 0, 0, 0, 0, 1573, 0, -1234, - 0, 0, -1234, 0, 967, 0, 0, 0, -1234, 0, - -1234, 0, 0, 0, 0, 1574, 0, 0, 358, -133, - 0, 968, 0, 969, 0, 0, 0, 0, 0, 0, - 1575, 1576, 970, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 254, 255, 0, 256, 0, - 971, 0, 0, 0, -133, 0, 0, 0, 0, 0, - 0, 257, 0, 258, 0, 972, 973, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 259, 0, 0, 260, 261, 0, 1577, 0, 262, - 0, 0, 1578, 0, 263, 0, 0, 1787, 0, 0, - 0, 0, 0, 264, 0, 1579, 0, 0, 265, 0, - 0, 0, 0, 921, 0, 0, 0, 0, 0, 0, - 1788, 1789, 974, 266, 0, 0, 0, 975, 267, 0, - 268, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 976, 0, 0, 0, -133, 0, 0, 1580, 921, 1790, - 0, 0, 0, 0, 0, 1581, 0, 0, 0, 254, - 255, 0, 256, 358, 0, 269, 0, 270, 0, 0, - 0, 0, 0, 0, 0, 257, 0, 258, 0, -133, - 0, 0, 977, 0, 271, 0, 0, 272, 273, 0, - 978, 0, 0, 0, 274, 0, 0, 0, 358, 275, - 0, 276, 0, 277, 0, 259, 0, 0, 260, 261, - 1791, 0, 0, 262, 0, 0, 0, 0, 263, 0, - 0, 0, 0, 0, 0, 0, 0, 264, 278, 0, - 1792, 279, 265, 280, 1793, 0, 0, 0, 0, 0, - 1794, 1795, 0, 0, 0, 0, 0, 266, 0, 0, - 0, 281, 267, 0, 268, 0, 0, 1796, 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, 1797, 0, 0, 269, - 0, 270, 0, 284, 285, 0, 0, 0, 286, 0, - 0, 0, 0, 0, 0, 0, 0, 287, 271, 0, - 0, 272, 273, 0, 0, 0, 288, 0, 274, 289, - 0, 0, 0, 275, 0, 276, 0, 277, 290, 0, - 0, 0, 291, 292, 293, 0, 0, 0, 1798, 294, - 295, 296, 1799, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 278, 297, 298, 279, 1800, 280, 0, 0, - 254, 255, 0, 256, 0, 0, 0, 0, 0, 1801, - 492, 1802, 0, 0, 0, 281, 257, 0, 258, 0, - 0, 1803, 0, 0, 1804, 0, 282, 0, 0, 0, - 0, 1874, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 283, 0, 0, 0, 259, 0, 0, 260, - 261, 0, 0, 0, 262, 0, 0, 284, 285, 263, - 0, 0, 286, 0, 0, 0, 0, 0, 264, 0, - 0, 287, 0, 265, 0, 0, 0, 0, 0, 0, - 288, 0, 0, 289, 0, 0, 0, 0, 266, 0, - 0, 0, 290, 267, 0, 268, 291, 292, 293, 0, - 0, 0, 0, 294, 295, 296, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 297, 298, 0, - 0, 0, 0, 0, 254, 255, 0, 256, 0, 0, - 269, 0, 270, 0, 942, 0, 0, 0, 0, 0, - 257, 0, 258, 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, - 259, 0, 0, 260, 261, 0, 0, 0, 262, 0, - 0, 0, 0, 263, 0, 0, 0, 0, 0, 0, - 0, 0, 264, 278, 0, 0, 279, 265, 280, 0, - 0, 1764, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 266, 0, 0, 0, 281, 267, 0, 268, - 0, 0, 0, 0, 0, 0, 1787, 282, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 283, 0, 0, 0, 0, 0, 1788, - 1789, 0, 0, 0, 269, 0, 270, 0, 284, 285, - 0, 0, 0, 286, 0, 0, 0, 0, 0, 0, - 0, 0, 287, 271, 0, 0, 272, 273, 1790, 0, - 0, 288, 0, 274, 289, 0, 0, 0, 275, 0, - 276, 0, 277, 290, 0, 0, 0, 291, 292, 293, - 0, 0, 0, 0, 294, 295, 296, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 278, 297, 298, - 279, 0, 280, 0, 0, 1768, 0, 0, 0, 0, - 0, 254, 255, 0, 256, 0, 0, 0, 0, 1791, - 281, 0, 0, 0, 0, 0, 0, 257, 0, 258, - 0, 282, 0, 0, 0, 0, 0, 0, 0, 1792, - 0, 0, 0, 1793, 0, 0, 0, 283, 0, 1794, - 1795, 0, 0, 0, 0, 0, 0, 259, 0, 0, - 260, 261, 284, 285, 0, 262, 1796, 286, 0, 0, - 263, 0, 0, 0, 0, 0, 287, 0, 0, 264, - 0, 0, 0, 0, 265, 288, 0, 0, 289, 0, - 0, 0, 0, 0, 0, 1797, 0, 290, 0, 266, - 0, 291, 292, 293, 267, 0, 268, 0, 294, 295, - 296, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 297, 298, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 269, 0, 270, 0, 0, 0, 1798, 0, 0, - 0, 1799, 0, 0, 0, 0, 0, 0, 0, 0, - 271, 0, 0, 272, 273, 1800, 0, 0, 0, 0, - 274, 0, 0, 0, 0, 275, 0, 276, 1801, 277, - 1802, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 1803, 0, 0, 1804, 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, 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, 288, 288, 50, - 274, 524, 180, 675, 289, 184, 443, 827, 705, 681, - 874, 965, 812, 1049, 1048, 424, 733, 717, 925, 719, - 720, 721, 548, 81, 299, 862, 935, 793, 794, 627, - 282, 1349, 432, 20, 753, 1, 1028, 199, 567, 63, - 19, 592, 99, 100, 844, 6, 765, 8, 9, 20, - 850, 20, 236, 579, 18, 40, 41, 6, 236, 8, - 9, 0, 1, 89, 19, 82, 24, 293, 42, 126, - 1498, 49, 472, 473, 31, 32, 138, 877, 878, 62, - 1432, 24, 112, 209, 89, 851, 214, 51, 52, 53, - 147, 148, 108, 187, 1, 657, 177, 26, 817, 6, - 97, 8, 9, 24, 630, 170, 84, 99, 16, 24, - 161, 162, 185, 35, 36, 37, 38, 39, 87, 125, - 194, 215, 24, 103, 31, 32, 457, 98, 35, 36, - 62, 240, 101, 102, 191, 192, 193, 138, 857, 506, - 756, 8, 49, 31, 544, 124, 67, 35, 36, 26, - 424, 214, 67, 679, 5, 20, 21, 566, 9, 210, - 211, 253, 213, 56, 42, 216, 228, 62, 219, 421, - 396, 123, 581, 265, 465, 460, 71, 468, 136, 6, - 58, 8, 49, 240, 593, 594, 595, 596, 597, 128, - 1618, 169, 1620, 1621, 228, 1231, 128, 155, 19, 214, - 1234, 258, 23, 260, 261, 0, 287, 538, 317, 735, - 267, 268, 120, 739, 42, 813, 1123, 833, 275, 275, - 399, 621, 279, 280, 163, 282, 405, 205, 262, 212, - 5, 84, 783, 412, 362, 292, 293, 294, 295, 790, - 1077, 792, 1, 31, 187, 138, 185, 35, 36, 616, - 362, 1017, 952, 214, 163, 271, 956, 6, 484, 8, - 9, 661, 26, 227, 664, 359, 214, 241, 175, 988, - 234, 18, 215, 20, 213, 126, 156, 184, 158, 841, - 354, 407, 251, 275, 162, 187, 18, 683, 35, 36, - 37, 38, 39, 42, 359, 42, 358, 261, 259, 362, - 362, 306, 481, 1655, 51, 52, 53, 581, 229, 1109, - 42, 218, 241, 215, 229, 1081, 78, 212, 727, 51, - 52, 53, 689, 690, 263, 322, 323, 20, 354, 359, - 856, 1759, 948, 585, 402, 228, 310, 354, 295, 396, - 524, 398, 281, 752, 78, 294, 362, 404, 24, 329, - 365, 259, 5, 359, 1388, 338, 9, 358, 297, 298, - 267, 362, 340, 355, 241, 640, 528, 232, 233, 348, - 258, 550, 274, 128, 774, 362, 433, 70, 402, 62, - 365, 336, 791, 152, 793, 794, 357, 353, 446, 298, - 569, 643, 167, 362, 917, 88, 1233, 361, 359, 19, - 796, 359, 230, 310, 231, 164, 1226, 42, 315, 177, - 1319, 1320, 1249, 63, 362, 108, 1325, 268, 544, 272, - 1327, 360, 35, 36, 224, 189, 42, 484, 349, 486, - 185, 488, 723, 708, 349, 1753, 1470, 317, 1036, 1037, - 228, 964, 344, 365, 206, 968, 62, 51, 574, 1215, - 54, 55, 265, 632, 361, 984, 307, 359, 72, 109, - 110, 1012, 1519, 341, 6, 358, 8, 9, 1187, 362, - 258, 91, 206, 1509, 171, 205, 1002, 128, 1004, 155, - 227, 1200, 539, 1202, 541, 1269, 1270, 234, 545, 31, - 32, 548, 241, 35, 36, 227, 296, 554, 232, 233, - 867, 6, 234, 8, 9, 1497, 1225, 1499, 1500, 1501, - 203, 205, 128, 1039, 261, 198, 211, 210, 575, 793, - 794, 578, 579, 775, 158, 583, 294, 188, 31, 261, - 188, 293, 35, 36, 1253, 1254, 189, 35, 36, 37, - 38, 39, 123, 259, 42, 836, 196, 598, 839, 840, - 824, 960, 961, 173, 1463, 1227, 1259, 1394, 211, 293, - 1089, 310, 362, 198, 9, 1091, 18, 1624, 20, 626, - 627, 211, 42, 630, 49, 754, 158, 238, 271, 94, - 238, 278, 198, 197, 9, 985, 31, 644, 281, 282, - 42, 211, 62, 1116, 1630, 230, 1005, 1120, 1301, 51, - 52, 53, 297, 153, 154, 1128, 31, 733, 221, 84, - 340, 128, 1021, 1567, 361, 249, 177, 674, 1652, 676, - 187, 672, 679, 276, 1616, 1617, 22, 197, 224, 361, - 234, 235, 108, 890, 760, 686, 815, 257, 895, 1476, - 819, 1478, 184, 359, 214, 258, 340, 266, 215, 700, - 1434, 702, 302, 206, 307, 839, 840, 297, 128, 241, - 56, 1028, 355, 358, 1879, 206, 206, 249, 185, 362, - 173, 1471, 1201, 118, 1203, 336, 218, 192, 336, 254, - 255, 256, 257, 10, 11, 12, 13, 248, 263, 264, - 310, 266, 300, 118, 31, 32, 271, 1789, 35, 36, - 296, 276, 277, 278, 1407, 18, 362, 34, 1411, 214, - 285, 286, 49, 1705, 289, 290, 842, 1008, 358, 845, - 777, 296, 297, 298, 188, 267, 852, 1942, 214, 42, - 205, 1005, 123, 917, 354, 355, 356, 214, 228, 359, - 293, 263, 362, 241, 161, 1545, 4, 297, 1465, 1726, - 1727, 241, 293, 293, 362, 363, 813, 347, 621, 1851, - 1852, 178, 1, 1163, 1, 1602, 5, 357, 5, 214, - 838, 1, 9, 315, 238, 227, 6, 7, 8, 1948, - 964, 1072, 234, 20, 968, 1308, 271, 1587, 9, 214, - 1075, 277, 31, 32, 33, 1195, 35, 36, 855, 1776, - 277, 664, 1, 9, 1973, 1974, 5, 44, 4, 261, - 31, 362, 310, 0, 1, 11, 46, 362, 5, 361, - 57, 947, 18, 1, 61, 31, 311, 312, 6, 161, - 8, 9, 883, 1787, 409, 1507, 170, 0, 1, 6, - 891, 8, 29, 894, 895, 896, 178, 184, 182, 6, - 1687, 8, 347, 31, 32, 1146, 170, 35, 36, 1556, - 35, 36, 357, 50, 31, 48, 29, 194, 182, 444, - 921, 49, 48, 924, 31, 1712, 1958, 1714, 35, 36, - 5, 218, 1719, 66, 1603, 1604, 937, 31, 1795, 1, - 66, 35, 36, 950, 156, 1186, 158, 9, 85, 1336, - 1191, 1192, 1984, 1767, 1427, 170, 31, 32, 1990, 361, - 35, 36, 1994, 1750, 9, 1997, 1095, 182, 123, 106, - 107, 108, 161, 18, 96, 241, 113, 1450, 1451, 166, - 267, 26, 1116, 249, 121, 1073, 1120, 6, 1076, 8, - 9, 128, 31, 32, 1128, 108, 35, 36, 1855, 1133, - 365, 366, 189, 1137, 4, 1229, 1863, 37, 38, 39, - 1245, 300, 31, 32, 29, 128, 35, 36, 6, 1095, - 8, 16, 166, 548, 211, 20, 74, 75, 315, 1036, - 1037, 6, 557, 8, 9, 1042, 1658, 6, 1688, 8, - 1897, 6, 362, 8, 18, 300, 20, 175, 185, 40, - 41, 1838, 1402, 300, 579, 6, 184, 8, 9, 246, - 360, 35, 36, 37, 38, 39, 31, 32, 42, 362, - 35, 36, 185, 68, 361, 271, 272, 51, 52, 53, - 300, 1554, 362, 6, 271, 8, 9, 1094, 362, 276, - 218, 616, 1110, 153, 154, 18, 31, 284, 213, 236, - 365, 366, 31, 1104, 9, 630, 631, 1108, 1126, 219, - 1111, 1112, 637, 1114, 1884, 364, 6, 7, 8, 9, - 307, 1122, 362, 236, 362, 120, 263, 300, 18, 1479, - 5, 59, 60, 281, 321, 364, 50, 114, 1925, 267, - 362, 31, 32, 1144, 265, 35, 36, 200, 673, 362, - 263, 362, 42, 362, 679, 362, 31, 32, 1159, 49, - 35, 36, 211, 212, 300, 6, 297, 8, 9, 367, - 1304, 85, 1306, 303, 1308, 362, 1304, 314, 1306, 316, - 1497, 362, 1499, 1500, 1501, 208, 209, 315, 20, 21, - 31, 32, 106, 107, 35, 36, 153, 154, 1439, 113, - 362, 314, 22, 316, 558, 559, 201, 121, 362, 1216, - 735, 736, 231, 300, 739, 35, 36, 37, 38, 39, - 239, 5, 241, 5, 5, 362, 35, 36, 37, 38, - 39, 5, 309, 361, 1363, 20, 1365, 321, 5, 244, - 765, 1, 237, 362, 1594, 365, 6, 265, 8, 9, - 362, 1269, 1270, 227, 1613, 5, 362, 362, 362, 1335, - 234, 362, 257, 1264, 259, 1266, 93, 166, 5, 1510, - 5, 31, 32, 269, 300, 35, 36, 362, 273, 362, - 19, 339, 339, 808, 279, 175, 89, 261, 127, 49, - 362, 1641, 817, 1427, 184, 820, 362, 112, 1432, 1616, - 1617, 32, 1303, 32, 5, 5, 831, 59, 330, 143, - 173, 1784, 173, 838, 309, 173, 1450, 1451, 130, 214, - 134, 294, 341, 271, 137, 1326, 364, 238, 218, 1336, - 1336, 856, 857, 328, 241, 860, 1337, 19, 140, 72, - 334, 1814, 142, 1816, 336, 22, 31, 32, 1355, 144, - 35, 36, 1481, 8, 1430, 1977, 146, 352, 238, 202, - 355, 356, 116, 149, 49, 116, 139, 362, 306, 222, - 22, 98, 171, 1613, 5, 362, 1383, 267, 114, 1386, - 1730, 48, 354, 6, 7, 8, 9, 361, 1705, 1465, - 177, 365, 132, 56, 40, 335, 26, 19, 1757, 1406, - 160, 9, 357, 1876, 1754, 197, 46, 72, 31, 32, - 72, 26, 35, 36, 19, 175, 1434, 228, 1891, 42, - 1554, 198, 202, 72, 184, 315, 49, 197, 56, 1902, - 32, 241, 5, 47, 194, 362, 31, 32, 362, 199, - 35, 36, 129, 6, 32, 8, 9, 321, 362, 232, - 158, 289, 31, 32, 278, 1531, 35, 36, 218, 984, - 1933, 1934, 278, 988, 177, 1938, 215, 177, 31, 32, - 358, 361, 35, 36, 364, 40, 108, 1002, 39, 1004, - 19, 19, 280, 177, 1708, 173, 49, 336, 248, 147, - 1840, 177, 49, 5, 228, 1513, 321, 239, 222, 184, - 271, 31, 321, 1028, 260, 5, 21, 267, 238, 1034, - 5, 74, 75, 358, 1039, 263, 310, 135, 40, 72, - 1045, 1655, 1763, 171, 128, 62, 42, 128, 145, 125, - 18, 259, 40, 218, 117, 304, 5, 5, 165, 162, - 357, 305, 1560, 361, 1562, 1563, 22, 6, 7, 8, - 9, 202, 175, 1732, 151, 315, 361, 1082, 47, 18, - 47, 184, 156, 310, 1089, 354, 1091, 142, 42, 188, - 173, 329, 31, 32, 105, 5, 35, 36, 5, 358, - 5, 5, 267, 42, 6, 7, 8, 9, 1595, 184, - 49, 307, 1599, 19, 1835, 218, 5, 83, 19, 212, - 178, 361, 22, 1782, 168, 184, 42, 72, 1832, 31, - 32, 247, 175, 35, 36, 358, 6, 5, 8, 9, - 42, 184, 1629, 218, 245, 148, 5, 49, 84, 310, - 315, 336, 1633, 14, 20, 42, 1637, 21, 192, 218, - 362, 31, 32, 133, 267, 35, 36, 226, 142, 347, - 1784, 263, 170, 189, 1672, 218, 1657, 249, 1676, 49, - 6, 1679, 8, 9, 118, 1666, 15, 310, 72, 198, - 232, 56, 267, 263, 41, 1200, 361, 1202, 150, 125, - 1814, 366, 1816, 182, 62, 31, 32, 19, 267, 35, - 36, 338, 315, 361, 47, 42, 1221, 1715, 18, 249, - 1225, 71, 347, 49, 267, 5, 1707, 169, 1726, 1727, - 118, 304, 204, 304, 104, 190, 175, 119, 341, 293, - 315, 181, 48, 1741, 305, 184, 1744, 1252, 131, 1254, - 158, 170, 1733, 1258, 5, 361, 315, 119, 361, 318, - 319, 364, 1876, 120, 251, 6, 7, 8, 9, 305, - 228, 48, 315, 175, 173, 251, 48, 1891, 1776, 218, - 251, 350, 184, 48, 285, 347, 361, 142, 1902, 1993, - 31, 32, 48, 1780, 35, 36, 48, 11, 108, 356, - 1105, 6, 361, 8, 9, 175, 506, 510, 49, 165, - 227, 1553, 175, 885, 184, 1300, 218, 1798, 361, 1933, - 1934, 1802, 1803, 1804, 1938, 1554, 31, 32, 267, 1805, - 35, 36, 1868, 1854, 726, 1154, 1669, 1835, 1561, 1137, - 922, 1890, 1335, 1319, 49, 1335, 1903, 1650, 218, 175, - 701, 701, 1654, 1728, 893, 387, 153, 1436, 184, 387, - 1005, 1494, 1696, 1699, 1845, 267, 1098, 72, 1058, 1514, - 1392, 1763, 649, 1378, 1513, 1873, 315, 473, 1639, 845, - 661, 1862, 760, 1870, 1870, 1866, 1867, 412, 1869, 802, - 631, 947, 218, 557, 99, 710, 1338, 267, 1474, 1258, - 1496, 1255, 458, 1594, 1523, 1410, 1527, 741, 1595, 1095, - 240, 1892, 1893, 315, 669, 1896, 674, 1760, 1905, 1773, - 644, 1560, 361, 1562, 1563, 364, 1635, 1929, 794, 641, - 851, 1155, 104, 777, 175, 840, 191, 1265, -1, -1, - -1, 267, -1, 184, -1, 315, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, 361, - 1947, 1948, 364, -1, 1469, -1, -1, -1, -1, -1, - 175, -1, 1959, 0, 1, -1, -1, 218, -1, 184, - 1967, 1967, 9, -1, 1489, 1490, 1973, 1974, -1, 315, - -1, 361, 1497, 1980, 1499, 1500, 1501, 1502, 1985, -1, - 27, 28, -1, 30, -1, -1, -1, -1, 1513, 214, - -1, -1, -1, 218, 1519, -1, 43, -1, 45, -1, - -1, 1526, -1, -1, 1529, -1, 267, -1, -1, -1, - -1, -1, -1, 1672, -1, 361, -1, 1676, 364, -1, - 1679, -1, -1, -1, -1, -1, 73, -1, -1, 76, - 77, -1, 1557, 1558, 81, 1560, -1, 1562, 1563, 86, - -1, -1, 267, -1, -1, -1, -1, -1, 95, -1, - 275, -1, -1, 100, 315, -1, 1715, -1, 6, -1, - 8, 9, -1, -1, -1, -1, -1, -1, 115, -1, - -1, -1, -1, 120, -1, 122, -1, -1, -1, -1, - -1, 128, 1741, 31, 32, 1744, -1, 35, 36, -1, - 315, 1616, 1617, -1, -1, 79, 80, -1, -1, 1624, - 361, 49, -1, 364, -1, -1, -1, -1, -1, -1, - 157, -1, 159, 1638, -1, -1, -1, 101, -1, -1, - -1, -1, -1, -1, -1, -1, -1, 111, -1, 176, - 355, -1, 179, 180, -1, 119, 361, -1, 185, 186, - -1, -1, -1, -1, 191, -1, 193, 1672, 195, -1, - -1, 1676, -1, -1, 1679, -1, 104, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, 220, -1, -1, 223, -1, 225, -1, - 1705, 1706, -1, -1, -1, 6, -1, 8, 9, -1, - 1715, -1, -1, -1, -1, -1, 243, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, 254, -1, -1, - 31, 32, -1, -1, 35, 36, 1741, 1742, -1, 1744, - -1, -1, -1, 270, -1, -1, -1, 175, 49, -1, - -1, -1, -1, -1, -1, -1, 184, -1, 285, 286, - -1, -1, -1, 290, -1, -1, -1, -1, -1, -1, - -1, -1, 299, -1, -1, -1, -1, -1, -1, 207, - -1, 308, 1, -1, 311, -1, -1, 251, -1, -1, - 218, 255, 256, 320, -1, -1, -1, 324, 325, 326, - -1, -1, -1, -1, 331, 332, 333, -1, 27, 28, - -1, 30, -1, -1, -1, -1, -1, 281, 345, 346, - -1, -1, -1, 42, 43, -1, 45, 291, 292, -1, - -1, -1, -1, -1, -1, 362, -1, -1, -1, 267, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, 73, -1, -1, 76, 77, -1, - -1, -1, 81, -1, -1, -1, -1, 86, -1, -1, - -1, -1, -1, -1, 175, -1, 95, -1, 1883, -1, - -1, 100, -1, 184, -1, -1, -1, 315, -1, -1, - -1, -1, -1, -1, -1, -1, 115, -1, -1, -1, - -1, 120, -1, 122, -1, -1, -1, -1, 127, -1, - 129, 130, 131, -1, 133, 134, 135, 218, 137, 138, - 139, 140, -1, 142, 143, 144, 145, 146, 147, 148, - 149, 150, 151, 361, -1, -1, -1, -1, 157, -1, - 159, 160, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, 1958, -1, -1, -1, 176, -1, -1, - 179, 180, -1, -1, -1, -1, 267, 186, -1, -1, - -1, -1, 191, -1, 193, 194, 195, -1, -1, 1984, - 199, -1, -1, -1, -1, 1990, -1, -1, -1, 1994, - -1, -1, 1997, -1, -1, -1, 6, -1, 8, 9, - -1, 220, -1, -1, 223, -1, 225, -1, -1, -1, - -1, 230, -1, -1, 315, -1, -1, -1, -1, -1, - -1, 31, 32, -1, 243, 35, 36, -1, -1, 248, - -1, -1, -1, 334, -1, 254, -1, -1, -1, 49, - -1, -1, -1, 1, -1, -1, 347, -1, -1, -1, - -1, 270, -1, -1, -1, -1, 357, -1, 359, -1, - 361, -1, -1, -1, -1, -1, 285, 286, -1, 27, - 28, 290, 30, -1, 6, -1, 8, 9, -1, -1, - 299, -1, -1, -1, 42, 43, -1, 45, -1, 308, - -1, -1, 311, -1, -1, -1, -1, -1, -1, 31, - 32, 320, -1, 35, 36, 324, 325, 326, -1, -1, - -1, -1, 331, 332, 333, 73, -1, 49, 76, 77, - -1, -1, -1, 81, -1, -1, 345, 346, 86, -1, - -1, -1, -1, -1, -1, -1, -1, 95, -1, 358, - -1, -1, 100, 362, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, 115, -1, -1, - -1, -1, 120, -1, 122, 175, -1, -1, -1, 127, - -1, 129, 130, 131, 184, 133, 134, 135, -1, 137, - 138, 139, 140, -1, 142, 143, 144, 145, 146, 147, - 148, 149, 150, 151, -1, -1, -1, -1, -1, 157, - -1, 159, 160, -1, -1, -1, -1, -1, 218, -1, - -1, -1, -1, -1, -1, -1, -1, -1, 176, -1, - -1, 179, 180, -1, -1, -1, -1, -1, 186, -1, - -1, -1, -1, 191, -1, 193, 194, 195, -1, -1, - -1, 199, -1, 175, 6, -1, 8, 9, -1, -1, - -1, -1, 184, -1, -1, -1, -1, 267, -1, -1, - -1, -1, 220, -1, -1, 223, -1, 225, -1, 31, - 32, -1, 230, 35, 36, -1, -1, -1, -1, -1, - -1, -1, 214, -1, -1, 243, 218, 49, -1, -1, - 248, 6, -1, 8, 9, -1, 254, -1, -1, -1, - -1, -1, -1, -1, -1, 315, -1, -1, -1, -1, - -1, -1, 270, -1, -1, -1, 31, 32, -1, -1, - 35, 36, -1, -1, 334, -1, -1, 285, 286, -1, - -1, -1, 290, -1, 49, 267, -1, 347, -1, -1, - -1, 299, -1, -1, -1, -1, -1, 357, -1, 359, - 308, 361, 6, 311, 8, 9, -1, -1, -1, -1, - -1, -1, 320, -1, -1, 19, 324, 325, 326, -1, - -1, -1, -1, 331, 332, 333, -1, 31, 32, -1, - -1, 35, 36, 315, -1, -1, -1, 345, 346, 104, - 6, -1, 8, 9, -1, 49, -1, -1, -1, -1, - 358, -1, -1, -1, 362, 6, -1, 8, 9, -1, - -1, -1, -1, 175, -1, 31, 32, -1, 350, 35, - 36, -1, 184, -1, -1, 6, -1, 8, 9, 361, - 31, 32, -1, 49, 35, 36, -1, 6, 19, 8, - 9, -1, -1, -1, -1, -1, -1, -1, 49, -1, - 31, 32, 214, -1, 35, 36, 218, -1, -1, -1, - 175, -1, 31, 32, -1, -1, 35, 36, 49, 184, - 6, -1, 8, 9, -1, -1, -1, -1, -1, -1, - 49, 6, -1, 8, 9, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, 31, 32, -1, -1, 35, - 36, -1, -1, 218, -1, 267, 31, 32, -1, -1, - 35, 36, 6, 49, 8, 9, -1, -1, 280, -1, - -1, 175, -1, -1, 49, -1, -1, -1, -1, -1, - 184, -1, -1, -1, -1, -1, -1, 31, 32, -1, - -1, 35, 36, -1, -1, -1, -1, 72, -1, -1, - -1, -1, 267, 315, -1, 49, -1, 173, -1, 175, - -1, -1, -1, -1, 218, -1, -1, -1, 184, -1, - -1, -1, 173, -1, 175, -1, -1, -1, -1, 6, - -1, 8, 9, 184, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, 175, -1, -1, -1, -1, 361, - 315, -1, 218, 184, 31, 32, 175, -1, 35, 36, - -1, -1, -1, 267, -1, 184, -1, 218, -1, -1, - -1, -1, 49, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, 218, -1, 175, - -1, -1, -1, -1, -1, 214, 361, -1, 184, 218, - 175, 267, -1, -1, 6, -1, 8, 9, -1, 184, - -1, 315, -1, -1, -1, -1, 267, -1, -1, -1, - -1, -1, -1, -1, -1, 6, -1, 8, 9, 31, - 32, 175, 218, 35, 36, -1, 267, -1, -1, -1, - 184, -1, -1, 218, -1, -1, -1, 49, 267, 315, - 31, 32, -1, -1, 35, 36, -1, 361, -1, -1, - -1, -1, -1, -1, 315, 251, -1, -1, 49, -1, - -1, -1, -1, -1, 218, 6, -1, 8, 9, -1, - -1, 267, -1, -1, 315, -1, -1, -1, -1, -1, - -1, 168, 267, -1, -1, 361, 315, -1, 175, -1, - 31, 32, -1, -1, 35, 36, -1, 184, 252, -1, - 361, -1, -1, -1, -1, -1, -1, -1, 49, -1, - -1, -1, -1, 267, -1, 6, -1, 8, 9, 315, - 361, -1, -1, -1, -1, -1, -1, -1, -1, -1, - 315, 218, 361, -1, -1, -1, -1, -1, -1, -1, - 31, 32, -1, -1, 35, 36, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, 168, -1, 49, -1, - -1, 315, -1, 175, -1, 361, -1, -1, -1, -1, - -1, -1, 184, 1, -1, -1, 361, -1, -1, -1, - 267, 9, -1, -1, 175, -1, -1, -1, -1, -1, - -1, -1, -1, 184, -1, -1, -1, -1, -1, 27, - 28, -1, 30, -1, -1, -1, 218, 361, -1, -1, - -1, -1, -1, -1, -1, 43, -1, 45, -1, -1, - -1, -1, -1, -1, -1, -1, -1, 218, 315, -1, - -1, -1, -1, -1, 175, -1, -1, -1, -1, -1, - -1, -1, -1, 184, -1, 73, -1, -1, 76, 77, - -1, -1, -1, 81, -1, 267, -1, -1, 86, -1, - -1, -1, -1, -1, -1, -1, -1, 95, -1, 20, - -1, -1, 100, 24, 361, -1, 267, 218, -1, -1, - -1, -1, -1, -1, 175, -1, -1, 115, -1, -1, - -1, -1, 120, 184, 122, -1, -1, -1, -1, -1, - 128, -1, -1, 315, -1, -1, -1, -1, -1, -1, - -1, 62, -1, 64, 65, -1, 67, 68, 69, -1, - -1, -1, -1, -1, 315, -1, 267, 218, -1, 157, - -1, 159, -1, -1, -1, -1, -1, -1, -1, 20, - 91, -1, -1, 24, -1, -1, -1, -1, 176, 361, - -1, 179, 180, -1, -1, -1, -1, -1, 186, -1, - -1, -1, -1, 191, -1, 193, -1, 195, -1, -1, - 361, -1, -1, -1, 315, -1, 267, -1, 129, -1, - -1, 62, -1, 64, 65, -1, 67, 68, 69, -1, - -1, -1, 220, -1, -1, 223, -1, 225, -1, -1, - -1, -1, -1, -1, 155, -1, -1, 158, -1, -1, - 91, -1, -1, -1, -1, 243, -1, -1, -1, -1, - 361, 172, -1, 174, 315, -1, 254, -1, -1, -1, - -1, -1, 183, -1, -1, -1, -1, -1, -1, -1, - -1, -1, 270, -1, -1, -1, -1, -1, -1, -1, - 201, -1, -1, -1, 205, 136, -1, 285, 286, -1, - 211, -1, 290, -1, -1, 216, 217, -1, -1, -1, - 361, 299, -1, -1, 155, -1, -1, -1, 229, -1, - 308, -1, -1, 311, -1, -1, -1, -1, -1, -1, - 241, 172, 320, 174, 20, -1, 324, 325, 326, -1, - -1, -1, 183, 331, 332, 333, -1, -1, -1, 260, - -1, -1, -1, -1, -1, -1, -1, 345, 346, -1, - 201, -1, -1, -1, 205, -1, -1, -1, -1, 20, - 211, -1, 283, -1, -1, 216, 217, 288, 64, 65, - -1, -1, 68, 69, -1, -1, -1, -1, 229, -1, - 301, -1, -1, -1, -1, -1, -1, -1, 309, -1, - -1, -1, -1, -1, 90, -1, -1, -1, -1, -1, - -1, -1, -1, 64, 65, -1, -1, 68, 69, 260, - -1, -1, -1, -1, -1, -1, -1, -1, -1, 340, - -1, -1, 343, -1, -1, -1, -1, -1, 349, -1, - 351, -1, 283, -1, -1, -1, -1, 288, 359, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - 301, -1, -1, -1, -1, -1, -1, -1, 309, 155, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, 172, -1, 174, -1, - -1, -1, -1, -1, -1, -1, -1, 183, -1, 340, - -1, -1, 343, -1, 155, -1, -1, -1, 349, -1, - 351, -1, -1, -1, -1, 201, -1, -1, 359, 205, - -1, 172, -1, 174, -1, -1, -1, -1, -1, -1, - 216, 217, 183, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, 27, 28, -1, 30, -1, - 201, -1, -1, -1, 205, -1, -1, -1, -1, -1, - -1, 43, -1, 45, -1, 216, 217, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, 73, -1, -1, 76, 77, -1, 283, -1, 81, - -1, -1, 288, -1, 86, -1, -1, 68, -1, -1, - -1, -1, -1, 95, -1, 301, -1, -1, 100, -1, - -1, -1, -1, 309, -1, -1, -1, -1, -1, -1, - 91, 92, 283, 115, -1, -1, -1, 288, 120, -1, - 122, -1, -1, -1, -1, -1, -1, -1, -1, -1, - 301, -1, -1, -1, 340, -1, -1, 343, 309, 120, - -1, -1, -1, -1, -1, 351, -1, -1, -1, 27, - 28, -1, 30, 359, -1, 157, -1, 159, -1, -1, - -1, -1, -1, -1, -1, 43, -1, 45, -1, 340, - -1, -1, 343, -1, 176, -1, -1, 179, 180, -1, - 351, -1, -1, -1, 186, -1, -1, -1, 359, 191, - -1, 193, -1, 195, -1, 73, -1, -1, 76, 77, - 181, -1, -1, 81, -1, -1, -1, -1, 86, -1, - -1, -1, -1, -1, -1, -1, -1, 95, 220, -1, - 201, 223, 100, 225, 205, -1, -1, -1, -1, -1, - 211, 212, -1, -1, -1, -1, -1, 115, -1, -1, - -1, 243, 120, -1, 122, -1, -1, 228, -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, 257, -1, -1, 157, - -1, 159, -1, 285, 286, -1, -1, -1, 290, -1, - -1, -1, -1, -1, -1, -1, -1, 299, 176, -1, - -1, 179, 180, -1, -1, -1, 308, -1, 186, 311, - -1, -1, -1, 191, -1, 193, -1, 195, 320, -1, - -1, -1, 324, 325, 326, -1, -1, -1, 309, 331, - 332, 333, 313, -1, -1, -1, -1, -1, -1, -1, - -1, -1, 220, 345, 346, 223, 327, 225, -1, -1, - 27, 28, -1, 30, -1, -1, -1, -1, -1, 340, - 362, 342, -1, -1, -1, 243, 43, -1, 45, -1, - -1, 352, -1, -1, 355, -1, 254, -1, -1, -1, - -1, 362, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, 270, -1, -1, -1, 73, -1, -1, 76, - 77, -1, -1, -1, 81, -1, -1, 285, 286, 86, - -1, -1, 290, -1, -1, -1, -1, -1, 95, -1, - -1, 299, -1, 100, -1, -1, -1, -1, -1, -1, - 308, -1, -1, 311, -1, -1, -1, -1, 115, -1, - -1, -1, 320, 120, -1, 122, 324, 325, 326, -1, - -1, -1, -1, 331, 332, 333, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, 345, 346, -1, - -1, -1, -1, -1, 27, 28, -1, 30, -1, -1, - 157, -1, 159, -1, 362, -1, -1, -1, -1, -1, - 43, -1, 45, -1, -1, -1, -1, -1, -1, 176, - -1, -1, 179, 180, -1, -1, -1, -1, -1, 186, - -1, -1, -1, -1, 191, -1, 193, -1, 195, -1, - 73, -1, -1, 76, 77, -1, -1, -1, 81, -1, - -1, -1, -1, 86, -1, -1, -1, -1, -1, -1, - -1, -1, 95, 220, -1, -1, 223, 100, 225, -1, - -1, 228, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, 115, -1, -1, -1, 243, 120, -1, 122, - -1, -1, -1, -1, -1, -1, 68, 254, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, 270, -1, -1, -1, -1, -1, 91, - 92, -1, -1, -1, 157, -1, 159, -1, 285, 286, - -1, -1, -1, 290, -1, -1, -1, -1, -1, -1, - -1, -1, 299, 176, -1, -1, 179, 180, 120, -1, - -1, 308, -1, 186, 311, -1, -1, -1, 191, -1, - 193, -1, 195, 320, -1, -1, -1, 324, 325, 326, - -1, -1, -1, -1, 331, 332, 333, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, 220, 345, 346, - 223, -1, 225, -1, -1, 228, -1, -1, -1, -1, - -1, 27, 28, -1, 30, -1, -1, -1, -1, 181, - 243, -1, -1, -1, -1, -1, -1, 43, -1, 45, - -1, 254, -1, -1, -1, -1, -1, -1, -1, 201, - -1, -1, -1, 205, -1, -1, -1, 270, -1, 211, - 212, -1, -1, -1, -1, -1, -1, 73, -1, -1, - 76, 77, 285, 286, -1, 81, 228, 290, -1, -1, - 86, -1, -1, -1, -1, -1, 299, -1, -1, 95, - -1, -1, -1, -1, 100, 308, -1, -1, 311, -1, - -1, -1, -1, -1, -1, 257, -1, 320, -1, 115, - -1, 324, 325, 326, 120, -1, 122, -1, 331, 332, - 333, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, 345, 346, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, 157, -1, 159, -1, -1, -1, 309, -1, -1, - -1, 313, -1, -1, -1, -1, -1, -1, -1, -1, - 176, -1, -1, 179, 180, 327, -1, -1, -1, -1, - 186, -1, -1, -1, -1, 191, -1, 193, 340, 195, - 342, -1, -1, -1, -1, -1, -1, -1, -1, -1, - 352, -1, -1, 355, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, 220, -1, -1, 223, -1, 225, - -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 (internal number of the) accessing - symbol of state STATE-NUM. */ -static const yytype_uint16 yystos[] = -{ - 0, 185, 369, 370, 371, 375, 376, 123, 0, 375, - 128, 372, 373, 152, 384, 362, 373, 265, 371, 375, - 123, 108, 451, 266, 374, 373, 375, 362, 123, 263, - 614, 362, 4, 385, 362, 123, 377, 96, 386, 452, - 615, 4, 300, 29, 417, 166, 453, 82, 354, 904, - 378, 362, 300, 300, 360, 455, 6, 8, 9, 31, - 32, 35, 36, 49, 175, 184, 218, 267, 315, 361, - 957, 958, 962, 963, 964, 965, 968, 969, 977, 979, - 981, 982, 957, 362, 20, 380, 432, 387, 362, 362, - 300, 213, 457, 31, 31, 965, 968, 9, 214, 943, - 364, 219, 188, 238, 950, 616, 362, 94, 192, 1, - 236, 314, 316, 388, 1, 164, 418, 419, 454, 362, - 300, 281, 459, 364, 958, 958, 980, 981, 114, 621, - 379, 265, 381, 381, 362, 362, 362, 362, 200, 420, - 1, 543, 456, 362, 300, 297, 518, 959, 367, 958, - 983, 984, 362, 617, 382, 390, 389, 1, 50, 85, - 106, 107, 113, 121, 395, 396, 397, 398, 400, 403, - 404, 405, 406, 412, 303, 421, 422, 362, 163, 298, - 612, 458, 362, 300, 908, 909, 958, 954, 958, 365, - 366, 942, 35, 36, 622, 1, 9, 362, 618, 619, - 632, 633, 63, 109, 110, 196, 302, 383, 5, 5, - 5, 5, 309, 399, 432, 432, 321, 362, 397, 5, - 407, 244, 430, 422, 224, 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, 43, 45, 73, - 76, 77, 81, 86, 95, 100, 115, 120, 122, 157, - 159, 176, 179, 180, 186, 191, 193, 195, 220, 223, - 225, 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, 93, 432, 432, 5, 167, - 971, 166, 271, 311, 312, 441, 362, 439, 5, 5, - 970, 971, 551, 269, 461, 519, 909, 623, 628, 362, - 362, 779, 977, 977, 977, 977, 104, 734, 835, 958, - 816, 958, 49, 958, 826, 771, 772, 977, 731, 834, - 977, 977, 757, 958, 744, 958, 645, 253, 265, 977, - 19, 955, 7, 42, 364, 897, 931, 958, 975, 957, - 977, 977, 977, 104, 207, 958, 741, 958, 1, 160, - 194, 199, 248, 767, 768, 9, 31, 911, 924, 928, - 929, 952, 958, 986, 339, 339, 777, 977, 977, 8, - 49, 671, 972, 1, 46, 450, 845, 846, 849, 975, - 979, 8, 972, 977, 810, 977, 31, 32, 295, 832, - 1, 880, 881, 958, 104, 738, 835, 958, 958, 977, - 977, 977, 362, 637, 127, 640, 89, 392, 393, 362, - 362, 112, 226, 318, 319, 413, 414, 415, 963, 32, - 401, 402, 32, 5, 5, 423, 330, 446, 59, 447, - 545, 548, 552, 462, 520, 1, 128, 624, 625, 627, - 633, 1, 353, 629, 143, 793, 228, 262, 780, 173, - 799, 173, 796, 173, 764, 835, 130, 736, 19, 735, - 958, 943, 74, 75, 821, 823, 958, 943, 274, 344, - 773, 774, 775, 952, 134, 732, 18, 977, 294, 836, - 271, 947, 350, 758, 764, 943, 137, 745, 72, 197, - 648, 649, 9, 31, 813, 814, 986, 364, 931, 897, - 931, 18, 20, 35, 36, 37, 38, 39, 42, 51, - 52, 53, 227, 234, 261, 361, 936, 937, 938, 939, - 941, 40, 41, 664, 280, 726, 103, 329, 887, 888, - 241, 713, 715, 953, 958, 978, 238, 19, 140, 742, - 72, 768, 769, 977, 950, 950, 347, 357, 142, 635, - 636, 334, 336, 22, 923, 144, 794, 947, 799, 675, - 972, 146, 693, 672, 238, 517, 979, 19, 124, 348, - 979, 714, 716, 953, 713, 42, 198, 230, 873, 874, - 876, 878, 202, 197, 943, 116, 835, 149, 739, 173, - 958, 116, 854, 641, 139, 669, 306, 222, 415, 22, - 56, 416, 22, 402, 408, 424, 98, 608, 171, 448, - 579, 580, 553, 5, 521, 985, 626, 114, 636, 48, - 947, 958, 48, 66, 800, 930, 958, 10, 11, 12, - 13, 34, 194, 62, 91, 129, 211, 260, 753, 761, - 762, 763, 765, 952, 953, 19, 834, 958, 977, 177, - 943, 958, 132, 824, 354, 899, 772, 448, 448, 24, - 187, 215, 364, 897, 836, 943, 806, 97, 322, 323, - 759, 136, 760, 958, 958, 834, 958, 56, 646, 162, - 341, 651, 897, 931, 118, 214, 986, 976, 365, 365, - 19, 23, 946, 42, 939, 897, 897, 897, 897, 897, - 432, 932, 40, 934, 933, 335, 670, 51, 54, 55, - 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, 197, 781, 803, 693, 676, 357, 678, 849, 72, - 72, 19, 712, 716, 26, 708, 202, 944, 809, 876, - 198, 432, 977, 881, 72, 951, 173, 834, 958, 951, - 197, 665, 666, 667, 432, 963, 963, 56, 32, 241, - 409, 1, 44, 57, 61, 166, 246, 271, 276, 284, - 362, 425, 426, 427, 5, 443, 444, 1, 5, 449, - 70, 88, 108, 203, 210, 271, 281, 282, 355, 362, - 432, 581, 583, 584, 585, 586, 587, 588, 589, 590, - 595, 362, 582, 584, 587, 68, 201, 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, 156, 158, 317, 630, 781, 798, 47, - 945, 753, 32, 753, 753, 753, 321, 31, 979, 232, - 512, 512, 897, 64, 65, 68, 69, 155, 172, 174, - 183, 201, 216, 217, 283, 288, 301, 343, 351, 432, - 536, 537, 952, 158, 834, 42, 837, 953, 834, 899, - 900, 827, 278, 278, 289, 215, 897, 837, 943, 873, - 760, 952, 177, 837, 177, 650, 358, 652, 953, 986, - 983, 939, 40, 939, 897, 898, 939, 42, 897, 931, - 935, 940, 941, 935, 665, 728, 108, 611, 19, 977, - 280, 891, 392, 720, 944, 978, 19, 943, 837, 177, - 977, 931, 173, 928, 347, 357, 336, 977, 42, 62, - 128, 783, 786, 873, 62, 679, 948, 979, 673, 231, - 239, 241, 341, 848, 960, 968, 977, 966, 967, 969, - 979, 966, 849, 719, 952, 944, 719, 875, 147, 811, - 944, 42, 940, 879, 952, 1, 310, 882, 958, 834, - 837, 177, 49, 855, 861, 856, 857, 977, 642, 635, - 228, 5, 963, 321, 411, 239, 410, 222, 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, 161, 178, 5, 549, 358, 607, - 206, 293, 559, 985, 575, 555, 558, 432, 559, 432, - 433, 161, 178, 205, 340, 572, 573, 962, 432, 465, - 522, 156, 158, 263, 775, 952, 873, 251, 958, 753, - 753, 897, 897, 985, 211, 297, 607, 153, 154, 985, - 206, 293, 24, 67, 229, 349, 750, 836, 953, 310, - 837, 177, 287, 902, 903, 828, 135, 807, 24, 155, - 834, 977, 834, 977, 651, 653, 138, 358, 362, 647, - 979, 365, 939, 941, 897, 40, 72, 961, 171, 892, - 703, 717, 977, 978, 978, 834, 915, 958, 913, 920, - 977, 948, 786, 787, 42, 145, 804, 677, 128, 679, - 231, 847, 979, 720, 125, 718, 972, 720, 635, 877, - 977, 851, 259, 836, 834, 40, 958, 879, 943, 117, - 858, 669, 304, 432, 411, 432, 944, 1, 5, 33, - 161, 428, 968, 973, 432, 432, 59, 60, 431, 432, - 5, 9, 189, 211, 276, 307, 435, 987, 985, 985, - 5, 432, 433, 5, 596, 240, 317, 604, 5, 968, - 974, 357, 985, 165, 550, 551, 550, 361, 19, 336, - 606, 432, 6, 8, 556, 979, 305, 538, 538, 942, - 22, 16, 120, 259, 569, 87, 101, 102, 251, 362, - 432, 466, 467, 468, 472, 523, 953, 202, 782, 151, - 801, 211, 212, 470, 471, 361, 47, 979, 837, 310, - 156, 839, 979, 979, 817, 901, 864, 953, 47, 153, - 154, 297, 837, 836, 837, 836, 654, 655, 941, 958, - 895, 890, 49, 84, 169, 205, 340, 894, 354, 705, - 977, 837, 928, 951, 142, 931, 173, 786, 42, 635, - 948, 358, 686, 687, 680, 674, 188, 949, 972, 709, - 635, 862, 863, 977, 837, 837, 861, 329, 860, 857, - 949, 105, 859, 5, 432, 126, 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, 83, 539, 573, 962, 962, 432, 433, 208, 209, - 473, 464, 178, 168, 477, 19, 91, 173, 211, 310, - 354, 362, 530, 571, 574, 952, 631, 768, 957, 432, - 42, 198, 783, 788, 789, 791, 751, 839, 840, 42, - 818, 905, 906, 951, 958, 829, 158, 249, 866, 277, - 277, 247, 658, 659, 656, 48, 66, 49, 84, 205, - 72, 893, 723, 977, 704, 916, 958, 958, 948, 785, - 688, 687, 635, 358, 681, 682, 245, 610, 194, 354, - 721, 148, 883, 869, 953, 958, 949, 853, 977, 949, - 5, 5, 985, 84, 272, 597, 591, 952, 310, 841, - 967, 84, 609, 973, 606, 26, 565, 566, 14, 577, - 979, 20, 21, 985, 479, 480, 985, 478, 533, 525, - 532, 524, 529, 531, 962, 64, 65, 68, 69, 90, - 155, 172, 174, 183, 201, 216, 217, 283, 288, 301, - 343, 351, 535, 537, 952, 362, 977, 198, 944, 42, - 791, 635, 635, 953, 819, 943, 99, 275, 355, 907, - 133, 843, 865, 977, 977, 56, 662, 665, 42, 58, - 162, 341, 661, 668, 658, 192, 896, 896, 961, 895, - 961, 961, 961, 977, 177, 248, 722, 142, 347, 951, - 784, 786, 691, 979, 685, 960, 682, 263, 723, 710, - 871, 878, 249, 977, 862, 977, 429, 952, 62, 212, - 592, 594, 170, 173, 600, 601, 118, 944, 189, 15, - 578, 470, 480, 970, 977, 977, 232, 542, 960, 542, - 960, 960, 527, 211, 297, 607, 528, 153, 154, 526, - 206, 293, 24, 67, 229, 349, 944, 790, 752, 310, - 864, 906, 958, 635, 837, 837, 660, 897, 975, 657, - 961, 961, 895, 895, 895, 72, 723, 263, 917, 958, - 786, 41, 689, 432, 683, 938, 432, 722, 953, 870, - 150, 884, 125, 62, 593, 594, 338, 948, 602, 967, - 563, 432, 951, 182, 469, 481, 432, 35, 36, 221, - 258, 541, 19, 534, 541, 960, 361, 960, 960, 47, - 792, 635, 753, 838, 42, 867, 661, 22, 662, 961, - 432, 931, 347, 692, 228, 635, 690, 18, 228, 635, - 684, 960, 910, 986, 249, 635, 71, 974, 974, 609, - 953, 5, 567, 971, 432, 169, 476, 68, 91, 92, - 120, 181, 201, 205, 211, 212, 228, 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, - 118, 599, 958, 971, 985, 119, 204, 475, 607, 78, - 206, 232, 233, 293, 500, 500, 190, 509, 293, 514, - 20, 21, 232, 233, 501, 433, 181, 492, 432, 503, - 504, 432, 432, 432, 362, 483, 258, 985, 985, 305, - 158, 131, 842, 48, 925, 931, 968, 979, 635, 953, - 564, 432, 119, 170, 474, 361, 500, 500, 501, 433, - 432, 433, 432, 432, 513, 432, 957, 79, 80, 101, - 111, 119, 251, 255, 256, 281, 291, 292, 485, 120, - 968, 985, 228, 241, 539, 868, 926, 977, 928, 922, - 5, 566, 985, 432, 432, 432, 433, 228, 258, 516, - 985, 576, 305, 252, 506, 958, 505, 489, 488, 170, - 182, 170, 182, 170, 182, 251, 228, 635, 48, 173, - 919, 925, 985, 985, 251, 985, 539, 350, 510, 168, - 515, 958, 515, 487, 486, 251, 926, 958, 142, 957, - 285, 511, 515, 515, 48, 951, 168, 958, 926, 958, - 48, 347, 926, 927, 48, 931, 926, 48, 926 -}; - -#define yyerrok (yyerrstatus = 0) -#define yyclearin (yychar = YYEMPTY) -#define YYEMPTY (-2) -#define YYEOF 0 - -#define YYACCEPT goto yyacceptlab -#define YYABORT goto yyabortlab -#define YYERROR goto yyerrorlab - - -/* Like YYERROR except do call yyerror. This remains here temporarily - to ease the transition to the new meaning of YYERROR, for GCC. - Once GCC version 2 has supplanted version 1, this can go. However, - YYFAIL appears to be in use. Nevertheless, it is formally deprecated - in Bison 2.4.2's NEWS entry, where a plan to phase it out is - discussed. */ - -#define YYFAIL goto yyerrlab -#if defined YYFAIL - /* This is here to suppress warnings from the GCC cpp's - -Wunused-macros. Normally we don't worry about that warning, but - some users do, and we want to make it easy for users to remove - YYFAIL uses, which will produce warnings from Bison 2.5. */ -#endif #define YYRECOVERING() (!!yyerrstatus) -#define YYBACKUP(Token, Value) \ -do \ - if (yychar == YYEMPTY && yylen == 1) \ - { \ - yychar = (Token); \ - yylval = (Value); \ - yytoken = YYTRANSLATE (yychar); \ - YYPOPSTACK (1); \ - goto yybackup; \ - } \ - else \ - { \ - yyerror (YY_("syntax error: cannot back up")); \ - YYERROR; \ - } \ -while (YYID (0)) +#define 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 -#define YYTERROR 1 -#define YYERRCODE 256 - - -/* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N]. - If N is 0, then set CURRENT to the empty location which ends - the previous symbol: RHS[0] (always defined). */ - -#define YYRHSLOC(Rhs, K) ((Rhs)[K]) -#ifndef YYLLOC_DEFAULT -# define YYLLOC_DEFAULT(Current, Rhs, N) \ - do \ - if (YYID (N)) \ - { \ - (Current).first_line = YYRHSLOC (Rhs, 1).first_line; \ - (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \ - (Current).last_line = YYRHSLOC (Rhs, N).last_line; \ - (Current).last_column = YYRHSLOC (Rhs, N).last_column; \ - } \ - else \ - { \ - (Current).first_line = (Current).last_line = \ - YYRHSLOC (Rhs, 0).last_line; \ - (Current).first_column = (Current).last_column = \ - YYRHSLOC (Rhs, 0).last_column; \ - } \ - while (YYID (0)) -#endif - - -/* YY_LOCATION_PRINT -- Print the location on the stream. - This macro was not mandated originally: define only if we know - we won't break user code: when these are the locations we know. */ - -#ifndef YY_LOCATION_PRINT -# if defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL -# define YY_LOCATION_PRINT(File, Loc) \ - fprintf (File, "%d.%d-%d.%d", \ - (Loc).first_line, (Loc).first_column, \ - (Loc).last_line, (Loc).last_column) -# else -# define YY_LOCATION_PRINT(File, Loc) ((void) 0) -# endif -#endif - - -/* YYLEX -- calling `yylex' with the right arguments. */ - -#ifdef YYLEX_PARAM -# define YYLEX yylex (YYLEX_PARAM) -#else -# define YYLEX yylex () -#endif /* Enable debugging if requested. */ #if YYDEBUG @@ -3921,80 +4016,58 @@ while (YYID (0)) # define YYFPRINTF fprintf # endif -# define YYDPRINTF(Args) \ -do { \ - if (yydebug) \ - YYFPRINTF Args; \ -} while (YYID (0)) - -# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \ -do { \ - if (yydebug) \ - { \ - YYFPRINTF (stderr, "%s ", Title); \ - yy_symbol_print (stderr, \ - Type, Value); \ - YYFPRINTF (stderr, "\n"); \ - } \ -} while (YYID (0)) +# define YYDPRINTF(Args) \ +do { \ + if (yydebug) \ + YYFPRINTF Args; \ +} while (0) -/*--------------------------------. -| Print this symbol on YYOUTPUT. | -`--------------------------------*/ -/*ARGSUSED*/ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) + +# 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 *yyoutput, int yytype, YYSTYPE const * const yyvaluep) -#else -static void -yy_symbol_value_print (yyoutput, yytype, yyvaluep) - FILE *yyoutput; - int yytype; - YYSTYPE const * const yyvaluep; -#endif +yy_symbol_value_print (FILE *yyo, + yysymbol_kind_t yykind, YYSTYPE const * const yyvaluep) { + FILE *yyoutput = yyo; + YY_USE (yyoutput); if (!yyvaluep) return; -# ifdef YYPRINT - if (yytype < YYNTOKENS) - YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep); -# else - YYUSE (yyoutput); -# endif - switch (yytype) - { - default: - break; - } + YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN + YY_USE (yykind); + YY_IGNORE_MAYBE_UNINITIALIZED_END } -/*--------------------------------. -| Print this symbol on YYOUTPUT. | -`--------------------------------*/ +/*---------------------------. +| Print this symbol on YYO. | +`---------------------------*/ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) static void -yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep) -#else -static void -yy_symbol_print (yyoutput, yytype, yyvaluep) - FILE *yyoutput; - int yytype; - YYSTYPE const * const yyvaluep; -#endif +yy_symbol_print (FILE *yyo, + yysymbol_kind_t yykind, YYSTYPE const * const yyvaluep) { - if (yytype < YYNTOKENS) - YYFPRINTF (yyoutput, "token %s (", yytname[yytype]); - else - YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]); + YYFPRINTF (yyo, "%s %s (", + yykind < YYNTOKENS ? "token" : "nterm", yysymbol_name (yykind)); - yy_symbol_value_print (yyoutput, yytype, yyvaluep); - YYFPRINTF (yyoutput, ")"); + yy_symbol_value_print (yyo, yykind, yyvaluep); + YYFPRINTF (yyo, ")"); } /*------------------------------------------------------------------. @@ -4002,16 +4075,8 @@ yy_symbol_print (yyoutput, yytype, yyvaluep) | TOP (included). | `------------------------------------------------------------------*/ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) static void -yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop) -#else -static void -yy_stack_print (yybottom, yytop) - yytype_int16 *yybottom; - yytype_int16 *yytop; -#endif +yy_stack_print (yy_state_t *yybottom, yy_state_t *yytop) { YYFPRINTF (stderr, "Stack now"); for (; yybottom <= yytop; yybottom++) @@ -4022,63 +4087,56 @@ yy_stack_print (yybottom, yytop) YYFPRINTF (stderr, "\n"); } -# define YY_STACK_PRINT(Bottom, Top) \ -do { \ - if (yydebug) \ - yy_stack_print ((Bottom), (Top)); \ -} while (YYID (0)) +# 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. | `------------------------------------------------*/ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) static void -yy_reduce_print (YYSTYPE *yyvsp, int yyrule) -#else -static void -yy_reduce_print (yyvsp, yyrule) - YYSTYPE *yyvsp; - int yyrule; -#endif +yy_reduce_print (yy_state_t *yyssp, YYSTYPE *yyvsp, + int yyrule) { + int yylno = yyrline[yyrule]; int yynrhs = yyr2[yyrule]; int yyi; - unsigned long int yylno = yyrline[yyrule]; - YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n", - yyrule - 1, yylno); + 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, yyrhs[yyprhs[yyrule] + yyi], - &(yyvsp[(yyi + 1) - (yynrhs)]) - ); + 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 (yyvsp, Rule); \ -} while (YYID (0)) +# 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) -# define YY_SYMBOL_PRINT(Title, Type, Value, Location) +# 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 +#ifndef YYINITDEPTH # define YYINITDEPTH 200 #endif @@ -4093,342 +4151,78 @@ int yydebug; # define YYMAXDEPTH 10000 #endif - -#if YYERROR_VERBOSE -# ifndef yystrlen -# if defined __GLIBC__ && defined _STRING_H -# define yystrlen strlen -# else -/* Return the length of YYSTR. */ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) -static YYSIZE_T -yystrlen (const char *yystr) -#else -static YYSIZE_T -yystrlen (yystr) - const char *yystr; -#endif -{ - YYSIZE_T yylen; - for (yylen = 0; yystr[yylen]; yylen++) - continue; - return yylen; -} -# endif -# endif -# ifndef yystpcpy -# if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE -# define yystpcpy stpcpy -# else -/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in - YYDEST. */ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) -static char * -yystpcpy (char *yydest, const char *yysrc) -#else -static char * -yystpcpy (yydest, yysrc) - char *yydest; - const char *yysrc; -#endif -{ - char *yyd = yydest; - const char *yys = yysrc; - while ((*yyd++ = *yys++) != '\0') - continue; - - return yyd - 1; -} -# endif -# endif - -# ifndef yytnamerr -/* Copy to YYRES the contents of YYSTR after stripping away unnecessary - quotes and backslashes, so that it's suitable for yyerror. The - heuristic is that double-quoting is unnecessary unless the string - contains an apostrophe, a comma, or backslash (other than - backslash-backslash). YYSTR is taken from yytname. If YYRES is - null, do not copy; instead, return the length of what the result - would have been. */ -static YYSIZE_T -yytnamerr (char *yyres, const char *yystr) -{ - if (*yystr == '"') - { - YYSIZE_T yyn = 0; - char const *yyp = yystr; - - for (;;) - switch (*++yyp) - { - case '\'': - case ',': - goto do_not_strip_quotes; - - case '\\': - if (*++yyp != '\\') - goto do_not_strip_quotes; - /* Fall through. */ - default: - if (yyres) - yyres[yyn] = *yyp; - yyn++; - break; - - case '"': - if (yyres) - yyres[yyn] = '\0'; - return yyn; - } - do_not_strip_quotes: ; - } - - if (! yyres) - return yystrlen (yystr); - - return yystpcpy (yyres, yystr) - yyres; -} -# endif - -/* Copy into YYRESULT an error message about the unexpected token - YYCHAR while in state YYSTATE. Return the number of bytes copied, - including the terminating null byte. If YYRESULT is null, do not - copy anything; just return the number of bytes that would be - copied. As a special case, return 0 if an ordinary "syntax error" - message will do. Return YYSIZE_MAXIMUM if overflow occurs during - size calculation. */ -static YYSIZE_T -yysyntax_error (char *yyresult, int yystate, int yychar) -{ - int yyn = yypact[yystate]; - - if (! (YYPACT_NINF < yyn && yyn <= YYLAST)) - return 0; - else - { - int yytype = YYTRANSLATE (yychar); - YYSIZE_T yysize0 = yytnamerr (0, yytname[yytype]); - YYSIZE_T yysize = yysize0; - YYSIZE_T yysize1; - int yysize_overflow = 0; - enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 }; - char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM]; - int yyx; - -# if 0 - /* This is so xgettext sees the translatable formats that are - constructed on the fly. */ - YY_("syntax error, unexpected %s"); - YY_("syntax error, unexpected %s, expecting %s"); - YY_("syntax error, unexpected %s, expecting %s or %s"); - YY_("syntax error, unexpected %s, expecting %s or %s or %s"); - YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s"); -# endif - char *yyfmt; - char const *yyf; - static char const yyunexpected[] = "syntax error, unexpected %s"; - static char const yyexpecting[] = ", expecting %s"; - static char const yyor[] = " or %s"; - char yyformat[sizeof yyunexpected - + sizeof yyexpecting - 1 - + ((YYERROR_VERBOSE_ARGS_MAXIMUM - 2) - * (sizeof yyor - 1))]; - char const *yyprefix = yyexpecting; - - /* Start YYX at -YYN if negative to avoid negative indexes in - YYCHECK. */ - int yyxbegin = yyn < 0 ? -yyn : 0; - - /* Stay within bounds of both yycheck and yytname. */ - int yychecklim = YYLAST - yyn + 1; - int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS; - int yycount = 1; - - yyarg[0] = yytname[yytype]; - yyfmt = yystpcpy (yyformat, yyunexpected); - - for (yyx = yyxbegin; yyx < yyxend; ++yyx) - if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR) - { - if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM) - { - yycount = 1; - yysize = yysize0; - yyformat[sizeof yyunexpected - 1] = '\0'; - break; - } - yyarg[yycount++] = yytname[yyx]; - yysize1 = yysize + yytnamerr (0, yytname[yyx]); - yysize_overflow |= (yysize1 < yysize); - yysize = yysize1; - yyfmt = yystpcpy (yyfmt, yyprefix); - yyprefix = yyor; - } - - yyf = YY_(yyformat); - yysize1 = yysize + yystrlen (yyf); - yysize_overflow |= (yysize1 < yysize); - yysize = yysize1; - - if (yysize_overflow) - return YYSIZE_MAXIMUM; - - if (yyresult) - { - /* Avoid sprintf, as that infringes on the user's name space. - Don't have undefined behavior even if the translation - produced a string with the wrong number of "%s"s. */ - char *yyp = yyresult; - int yyi = 0; - while ((*yyp = *yyf) != '\0') - { - if (*yyp == '%' && yyf[1] == 's' && yyi < yycount) - { - yyp += yytnamerr (yyp, yyarg[yyi++]); - yyf += 2; - } - else - { - yyp++; - yyf++; - } - } - } - return yysize; - } -} -#endif /* YYERROR_VERBOSE */ - /*-----------------------------------------------. | Release the memory associated to this symbol. | `-----------------------------------------------*/ -/*ARGSUSED*/ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) static void -yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep) -#else -static void -yydestruct (yymsg, yytype, yyvaluep) - const char *yymsg; - int yytype; - YYSTYPE *yyvaluep; -#endif +yydestruct (const char *yymsg, + yysymbol_kind_t yykind, YYSTYPE *yyvaluep) { - YYUSE (yyvaluep); - + YY_USE (yyvaluep); if (!yymsg) yymsg = "Deleting"; - YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp); + YY_SYMBOL_PRINT (yymsg, yykind, yyvaluep, yylocationp); - switch (yytype) - { - - default: - break; - } + YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN + YY_USE (yykind); + YY_IGNORE_MAYBE_UNINITIALIZED_END } -/* Prevent warnings from -Wmissing-prototypes. */ -#ifdef YYPARSE_PARAM -#if defined __STDC__ || defined __cplusplus -int yyparse (void *YYPARSE_PARAM); -#else -int yyparse (); -#endif -#else /* ! YYPARSE_PARAM */ -#if defined __STDC__ || defined __cplusplus -int yyparse (void); -#else -int yyparse (); -#endif -#endif /* ! YYPARSE_PARAM */ - -/* The lookahead symbol. */ +/* Lookahead token kind. */ int yychar; /* The semantic value of the lookahead symbol. */ YYSTYPE yylval; - /* Number of syntax errors so far. */ int yynerrs; -/*-------------------------. -| yyparse or yypush_parse. | -`-------------------------*/ -#ifdef YYPARSE_PARAM -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) -int -yyparse (void *YYPARSE_PARAM) -#else -int -yyparse (YYPARSE_PARAM) - void *YYPARSE_PARAM; -#endif -#else /* ! YYPARSE_PARAM */ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) +/*----------. +| yyparse. | +`----------*/ + int yyparse (void) -#else -int -yyparse () - -#endif -#endif { - - - int yystate; + yy_state_fast_t yystate = 0; /* Number of tokens to shift before error messages enabled. */ - int yyerrstatus; + int yyerrstatus = 0; - /* The stacks and their tools: - `yyss': related to states. - `yyvs': related to semantic values. - - Refer to the stacks thru separate pointers, to allow yyoverflow + /* Refer to the stacks through separate pointers, to allow yyoverflow to reallocate them elsewhere. */ - /* The state stack. */ - yytype_int16 yyssa[YYINITDEPTH]; - yytype_int16 *yyss; - yytype_int16 *yyssp; + /* Their size. */ + YYPTRDIFF_T yystacksize = YYINITDEPTH; - /* The semantic value stack. */ + /* 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; - YYSTYPE *yyvsp; - - YYSIZE_T yystacksize; + YYSTYPE *yyvs = yyvsa; + YYSTYPE *yyvsp = yyvs; int yyn; + /* The return value of yyparse. */ int yyresult; - /* Lookahead token as an internal (translated) token number. */ - int yytoken; + /* Lookahead symbol kind. */ + yysymbol_kind_t yytoken = YYSYMBOL_YYEMPTY; /* The variables used to return semantic value and location from the action routines. */ YYSTYPE yyval; -#if YYERROR_VERBOSE - /* Buffer for error messages, and its allocated size. */ - char yymsgbuf[128]; - char *yymsg = yymsgbuf; - YYSIZE_T yymsg_alloc = sizeof yymsgbuf; -#endif + #define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N)) @@ -4436,133 +4230,140 @@ yyparse () Keep to zero when no symbol should be popped. */ int yylen = 0; - yytoken = 0; - yyss = yyssa; - yyvs = yyvsa; - yystacksize = YYINITDEPTH; - YYDPRINTF ((stderr, "Starting parse\n")); - yystate = 0; - yyerrstatus = 0; - yynerrs = 0; yychar = YYEMPTY; /* Cause a token to be read. */ - /* Initialize stack pointers. - Waste one element of value and location stack - so that they stay on the same level as the state stack. - The wasted elements are never initialized. */ - yyssp = yyss; - yyvsp = yyvs; - goto yysetstate; + /*------------------------------------------------------------. -| yynewstate -- Push a new state, which is found in yystate. | +| yynewstate -- push a new state, which is found in yystate. | `------------------------------------------------------------*/ - yynewstate: +yynewstate: /* In all cases, when you get here, the value and location stacks have just been pushed. So pushing a state here evens the stacks. */ yyssp++; - yysetstate: - *yyssp = yystate; + +/*--------------------------------------------------------------------. +| 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. */ - YYSIZE_T yysize = yyssp - yyss + 1; + YYPTRDIFF_T yysize = yyssp - yyss + 1; -#ifdef yyoverflow +# 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. */ - YYSTYPE *yyvs1 = yyvs; - yytype_int16 *yyss1 = yyss; + /* 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 * sizeof (*yyssp), - &yyvs1, yysize * sizeof (*yyvsp), - &yystacksize); - - yyss = yyss1; - yyvs = yyvs1; + /* 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 /* no yyoverflow */ -# ifndef YYSTACK_RELOCATE - goto yyexhaustedlab; -# else +# else /* defined YYSTACK_RELOCATE */ /* Extend the stack our own way. */ if (YYMAXDEPTH <= yystacksize) - goto yyexhaustedlab; + YYNOMEM; yystacksize *= 2; if (YYMAXDEPTH < yystacksize) - yystacksize = YYMAXDEPTH; + yystacksize = YYMAXDEPTH; { - yytype_int16 *yyss1 = yyss; - union yyalloc *yyptr = - (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize)); - if (! yyptr) - goto yyexhaustedlab; - YYSTACK_RELOCATE (yyss_alloc, yyss); - YYSTACK_RELOCATE (yyvs_alloc, yyvs); + 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); + if (yyss1 != yyssa) + YYSTACK_FREE (yyss1); } # endif -#endif /* no yyoverflow */ yyssp = yyss + yysize - 1; yyvsp = yyvs + yysize - 1; - YYDPRINTF ((stderr, "Stack size increased to %lu\n", - (unsigned long int) yystacksize)); + 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; + YYABORT; } +#endif /* !defined yyoverflow && !defined YYSTACK_RELOCATE */ - YYDPRINTF ((stderr, "Entering state %d\n", yystate)); if (yystate == YYFINAL) YYACCEPT; goto yybackup; + /*-----------. | yybackup. | `-----------*/ yybackup: - /* Do appropriate processing given the current state. Read a lookahead token if we need one and don't already have one. */ /* First try to decide what to do without reference to lookahead token. */ yyn = yypact[yystate]; - if (yyn == YYPACT_NINF) + if (yypact_value_is_default (yyn)) goto yydefault; /* Not known => get a lookahead token if don't already have one. */ - /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */ + /* YYCHAR is either empty, or end-of-input, or a valid lookahead. */ if (yychar == YYEMPTY) { - YYDPRINTF ((stderr, "Reading a token: ")); - yychar = YYLEX; + YYDPRINTF ((stderr, "Reading a token\n")); + yychar = yylex (); } if (yychar <= YYEOF) { - yychar = yytoken = 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); @@ -4577,8 +4378,8 @@ yybackup: yyn = yytable[yyn]; if (yyn <= 0) { - if (yyn == 0 || yyn == YYTABLE_NINF) - goto yyerrlab; + if (yytable_value_is_error (yyn)) + goto yyerrlab; yyn = -yyn; goto yyreduce; } @@ -4590,13 +4391,13 @@ yybackup: /* 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; - - yystate = yyn; - *++yyvsp = yylval; - goto yynewstate; @@ -4611,14 +4412,14 @@ yydefault: /*-----------------------------. -| yyreduce -- Do a reduction. | +| 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'. + '$$ = $1'. Otherwise, the following line sets YYVAL to garbage. This behavior is undocumented and Bison @@ -4631,2414 +4432,2093 @@ yyreduce: YY_REDUCE_PRINT (yyn); switch (yyn) { - case 2: - -/* Line 1464 of yacc.c */ + case 2: /* root_: program_sequences */ #line 309 "htcobol.y" - { gen_main_rtn(); ;} + { gen_main_rtn(); } +#line 4439 "htcobol.tab.c" break; - case 3: - -/* Line 1464 of yacc.c */ + case 3: /* program_sequences: program */ #line 312 "htcobol.y" - { pgm_segment++; (yyval.ival)=1; ;} + { pgm_segment++; (yyval.ival)=1; } +#line 4445 "htcobol.tab.c" break; - case 4: - -/* Line 1464 of yacc.c */ + case 4: /* program_sequences: program_sequence */ #line 313 "htcobol.y" - { (yyval.ival)=1 ; ;} + { (yyval.ival)=1 ; } +#line 4451 "htcobol.tab.c" break; - case 5: - -/* Line 1464 of yacc.c */ + case 5: /* program_sequences: program_sequence program */ #line 314 "htcobol.y" - { (yyval.ival)=1 ; ;} + { (yyval.ival)=1 ; } +#line 4457 "htcobol.tab.c" break; - case 6: - -/* Line 1464 of yacc.c */ + case 6: /* program_sequence: program end_program */ #line 323 "htcobol.y" - { pgm_segment++ ; (yyval.ival) = 1; ;} + { pgm_segment++ ; (yyval.ival) = 1; } +#line 4463 "htcobol.tab.c" break; - case 7: - -/* Line 1464 of yacc.c */ + case 7: /* $@1: %empty */ #line 324 "htcobol.y" - { pgm_segment++ ; nested_flag = 1; ;} + { pgm_segment++ ; nested_flag = 1; } +#line 4469 "htcobol.tab.c" break; - case 8: - -/* Line 1464 of yacc.c */ + case 8: /* program_sequence: program $@1 program_sequence end_program */ #line 324 "htcobol.y" - { (yyval.ival) = 1; ;} + { (yyval.ival) = 1; } +#line 4475 "htcobol.tab.c" break; - case 9: - -/* Line 1464 of yacc.c */ + case 9: /* program_sequence: program_sequence program end_program */ #line 325 "htcobol.y" - {pgm_segment++ ; nested_flag = 1; (yyval.ival) = 1; ;} + {pgm_segment++ ; nested_flag = 1; (yyval.ival) = 1; } +#line 4481 "htcobol.tab.c" break; - case 10: - -/* Line 1464 of yacc.c */ + case 10: /* $@2: %empty */ #line 337 "htcobol.y" - { clear_symtab(); clear_offsets(); - curr_division= CDIV_IDENT; ;} + { clear_symtab(); clear_offsets(); + curr_division= CDIV_IDENT; } +#line 4488 "htcobol.tab.c" break; - case 11: - -/* Line 1464 of yacc.c */ + case 11: /* end_program: END PROGRAM $@2 IDSTRING */ #line 340 "htcobol.y" - { curr_division = CDIV_COMMENT; ;} + { curr_division = CDIV_COMMENT; } +#line 4494 "htcobol.tab.c" break; - case 13: - -/* Line 1464 of yacc.c */ + case 13: /* $@3: %empty */ #line 356 "htcobol.y" { curr_division = CDIV_IDENT; - ;} + } +#line 4502 "htcobol.tab.c" break; - case 14: - -/* Line 1464 of yacc.c */ + case 14: /* $@4: %empty */ #line 360 "htcobol.y" { curr_division = CINITIAL; - if (pgm_header((yyvsp[(7) - (7)].str)) != 0) { + if (pgm_header((yyvsp[0].str)) != 0) { yyerror("Invalid character(s) in PROGRAM-ID name"); /* YYABORT; */ } - ;} + } +#line 4514 "htcobol.tab.c" break; - case 15: - -/* Line 1464 of yacc.c */ + case 15: /* $@5: %empty */ #line 368 "htcobol.y" { define_special_fields(); - ;} + } +#line 4522 "htcobol.tab.c" break; - case 18: - -/* Line 1464 of yacc.c */ + case 18: /* programid_opts_opt: is_opt INITIAL_TOK programid_program_opt */ #line 375 "htcobol.y" - { initial_flag=1; ;} + { initial_flag=1; } +#line 4528 "htcobol.tab.c" break; - case 19: - -/* Line 1464 of yacc.c */ + case 19: /* programid_opts_opt: is_opt COMMON programid_program_opt */ #line 376 "htcobol.y" - { UNIMPLEMENTED("PROGRAM-ID ... COMMON clause") ;} + { UNIMPLEMENTED("PROGRAM-ID ... COMMON clause") } +#line 4534 "htcobol.tab.c" break; - case 21: - -/* Line 1464 of yacc.c */ + case 21: /* programid_program_opt: PROGRAM */ #line 379 "htcobol.y" - { ;} + { } +#line 4540 "htcobol.tab.c" break; - case 24: - -/* Line 1464 of yacc.c */ + case 24: /* identification_division_option: AUTHOR PERIOD_TOK */ #line 386 "htcobol.y" - { curr_division = CDIV_COMMENT1; ;} + { curr_division = CDIV_COMMENT1; } +#line 4546 "htcobol.tab.c" break; - case 25: - -/* Line 1464 of yacc.c */ + case 25: /* identification_division_option: DATE_WRITTEN PERIOD_TOK */ #line 387 "htcobol.y" - { curr_division = CDIV_COMMENT1; ;} + { curr_division = CDIV_COMMENT1; } +#line 4552 "htcobol.tab.c" break; - case 26: - -/* Line 1464 of yacc.c */ + case 26: /* identification_division_option: DATE_COMPILED PERIOD_TOK */ #line 388 "htcobol.y" - { curr_division = CDIV_COMMENT1; ;} + { curr_division = CDIV_COMMENT1; } +#line 4558 "htcobol.tab.c" break; - case 27: - -/* Line 1464 of yacc.c */ + case 27: /* identification_division_option: INSTALLATION PERIOD_TOK */ #line 389 "htcobol.y" - { curr_division = CDIV_COMMENT1; ;} + { curr_division = CDIV_COMMENT1; } +#line 4564 "htcobol.tab.c" break; - case 28: - -/* Line 1464 of yacc.c */ + case 28: /* identification_division_option: SECURITY PERIOD_TOK */ #line 390 "htcobol.y" - { curr_division = CDIV_COMMENT1; ;} + { curr_division = CDIV_COMMENT1; } +#line 4570 "htcobol.tab.c" break; - case 29: - -/* Line 1464 of yacc.c */ + case 29: /* $@6: %empty */ #line 397 "htcobol.y" { curr_division = CDIV_ENVIR; - ;} + } +#line 4578 "htcobol.tab.c" break; - case 30: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + case 34: /* configuration_section: configuration_section configuration_option */ #line 415 "htcobol.y" - { ;} + { } +#line 4592 "htcobol.tab.c" break; - case 35: - -/* Line 1464 of yacc.c */ + case 35: /* configuration_section: %empty */ #line 416 "htcobol.y" - { ;} + { } +#line 4598 "htcobol.tab.c" break; - case 36: - -/* Line 1464 of yacc.c */ + case 36: /* $@7: %empty */ #line 420 "htcobol.y" - { envdiv_bypass_save_sw=1; ;} + { envdiv_bypass_save_sw=1; } +#line 4604 "htcobol.tab.c" break; - case 37: - -/* Line 1464 of yacc.c */ + case 37: /* configuration_option: SOURCE_COMPUTER PERIOD_TOK $@7 STRING debug_mode_opt PERIOD_TOK */ #line 422 "htcobol.y" - { envdiv_bypass_save_sw=0; ;} + { envdiv_bypass_save_sw=0; } +#line 4610 "htcobol.tab.c" break; - case 38: - -/* Line 1464 of yacc.c */ + case 38: /* $@8: %empty */ #line 424 "htcobol.y" - { envdiv_bypass_save_sw=1; ;} + { envdiv_bypass_save_sw=1; } +#line 4616 "htcobol.tab.c" break; - case 39: - -/* Line 1464 of yacc.c */ + case 39: /* configuration_option: OBJECT_COMPUTER PERIOD_TOK $@8 STRING program_collating_opt PERIOD_TOK */ #line 426 "htcobol.y" - { envdiv_bypass_save_sw=0; ;} + { envdiv_bypass_save_sw=0; } +#line 4622 "htcobol.tab.c" break; - case 41: - -/* Line 1464 of yacc.c */ + case 41: /* configuration_option: error */ #line 428 "htcobol.y" - { yyerror("invalid format in CONFIGURATION SECTION"); ;} + { yyerror("invalid format in CONFIGURATION SECTION"); } +#line 4628 "htcobol.tab.c" break; - case 45: - -/* Line 1464 of yacc.c */ + case 45: /* collating_opt: COLLATING */ #line 437 "htcobol.y" - { ;} + { } +#line 4634 "htcobol.tab.c" break; - case 46: - -/* Line 1464 of yacc.c */ + case 46: /* collating_opt: %empty */ #line 438 "htcobol.y" - { ;} + { } +#line 4640 "htcobol.tab.c" break; - case 47: - -/* Line 1464 of yacc.c */ + case 47: /* debug_mode_opt: with_opt DEBUGGING MODE */ #line 441 "htcobol.y" - { stabs_on_sw = 1; ;} + { stabs_on_sw = 1; } +#line 4646 "htcobol.tab.c" break; - case 48: - -/* Line 1464 of yacc.c */ + case 48: /* debug_mode_opt: %empty */ #line 442 "htcobol.y" - { ;} + { } +#line 4652 "htcobol.tab.c" break; - case 51: - -/* Line 1464 of yacc.c */ + case 51: /* special_names_opt: error */ #line 447 "htcobol.y" - { yyerror("invalid format in SPECIAL-NAMES clause");;} + { yyerror("invalid format in SPECIAL-NAMES clause");} +#line 4658 "htcobol.tab.c" break; - case 61: - -/* Line 1464 of yacc.c */ + case 61: /* currency_details: CURRENCY sign_opt is_opt CLITERAL */ #line 467 "htcobol.y" - { - currency_symbol = (yyvsp[(4) - (4)].lval)->name[0]; - ;} + { + currency_symbol = (yyvsp[0].lval)->name[0]; + } +#line 4666 "htcobol.tab.c" break; - case 64: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + case 65: /* special_name_class_item_list: special_name_class_item */ #line 479 "htcobol.y" - {;} + {} +#line 4678 "htcobol.tab.c" break; - case 66: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + case 67: /* special_name_class_item: CLITERAL */ #line 483 "htcobol.y" - {;} + {} +#line 4690 "htcobol.tab.c" break; - case 68: - -/* Line 1464 of yacc.c */ + case 68: /* special_name_class_item: CLITERAL THRU CLITERAL */ #line 484 "htcobol.y" - {;} + {} +#line 4696 "htcobol.tab.c" break; - case 69: - -/* Line 1464 of yacc.c */ + case 69: /* decimal_point_details: DECIMAL_POINT is_opt COMMA */ #line 488 "htcobol.y" - { - decimal_comma=1; ;} + { + decimal_comma=1; } +#line 4703 "htcobol.tab.c" break; - case 70: - -/* Line 1464 of yacc.c */ + case 70: /* screen_status_details: DISPLAY_SCREEN STATUS is_opt STRING */ #line 493 "htcobol.y" - { screen_status_field=(yyvsp[(4) - (4)].sval); ;} + { screen_status_field=(yyvsp[0].sval); } +#line 4709 "htcobol.tab.c" break; - case 71: - -/* Line 1464 of yacc.c */ + case 71: /* cursor_details: CURSOR is_opt STRING */ #line 497 "htcobol.y" - { cursor_field=(yyvsp[(3) - (3)].sval); ;} + { cursor_field=(yyvsp[0].sval); } +#line 4715 "htcobol.tab.c" break; - case 74: - -/* Line 1464 of yacc.c */ + case 74: /* $@9: %empty */ #line 504 "htcobol.y" - {if ((yyvsp[(1) - (3)].sval)->name[0] != 'S' || (yyvsp[(1) - (3)].sval)->name[1] != 'W') + {if ((yyvsp[-2].sval)->name[0] != 'S' || (yyvsp[-2].sval)->name[1] != 'W') yyerror("Invalid switch name"); - define_switch_field((yyvsp[(3) - (3)].sval), (yyvsp[(1) - (3)].sval));;} + define_switch_field((yyvsp[0].sval), (yyvsp[-2].sval));} +#line 4723 "htcobol.tab.c" break; - case 75: - -/* Line 1464 of yacc.c */ + case 75: /* switches_details: STRING is_opt STRING $@9 switch_on_opt switch_off_opt */ #line 508 "htcobol.y" - { close_fields();;} + { close_fields();} +#line 4729 "htcobol.tab.c" break; - case 76: - -/* Line 1464 of yacc.c */ + case 76: /* switch_on_opt: ON status_opt is_opt STRING */ #line 511 "htcobol.y" - {save_switch_value((yyvsp[(4) - (4)].sval), 1);;} + {save_switch_value((yyvsp[0].sval), 1);} +#line 4735 "htcobol.tab.c" break; - case 78: - -/* Line 1464 of yacc.c */ + case 78: /* switch_off_opt: OFF status_opt is_opt STRING */ #line 515 "htcobol.y" - {save_switch_value((yyvsp[(4) - (4)].sval), 0);;} + {save_switch_value((yyvsp[0].sval), 0);} +#line 4741 "htcobol.tab.c" break; - case 82: - -/* Line 1464 of yacc.c */ + case 82: /* alphabet_details: ALPHABET STRING is_opt alphabet_type */ #line 524 "htcobol.y" { - (yyvsp[(2) - (4)].sval)->defined=1; + (yyvsp[-2].sval)->defined=1; UNIMPLEMENTED("Alphabet clause") - ;} + } +#line 4750 "htcobol.tab.c" break; - case 83: - -/* Line 1464 of yacc.c */ + case 83: /* alphabet_type: NATIVE */ #line 530 "htcobol.y" - { ;} + { } +#line 4756 "htcobol.tab.c" break; - case 84: - -/* Line 1464 of yacc.c */ + case 84: /* alphabet_type: STANDARD_1 */ #line 531 "htcobol.y" - { ;} + { } +#line 4762 "htcobol.tab.c" break; - case 85: - -/* Line 1464 of yacc.c */ + case 85: /* alphabet_type: STANDARD_2 */ #line 532 "htcobol.y" - { ;} + { } +#line 4768 "htcobol.tab.c" break; - case 86: - -/* Line 1464 of yacc.c */ + case 86: /* alphabet_type: alphabet_literal_list */ #line 533 "htcobol.y" - { ;} + { } +#line 4774 "htcobol.tab.c" break; - case 89: - -/* Line 1464 of yacc.c */ + case 89: /* alphabet_literal_item: without_all_literal */ #line 540 "htcobol.y" - { ;} + { } +#line 4780 "htcobol.tab.c" break; - case 90: - -/* Line 1464 of yacc.c */ + case 90: /* alphabet_literal_item: without_all_literal THRU without_all_literal */ #line 541 "htcobol.y" - { ;} + { } +#line 4786 "htcobol.tab.c" break; - case 91: - -/* Line 1464 of yacc.c */ + case 91: /* alphabet_literal_item: without_all_literal alphabet_also_list */ #line 542 "htcobol.y" - { ;} + { } +#line 4792 "htcobol.tab.c" break; - case 94: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + case 96: /* input_output_section: file_control_paragraph i_o_control_paragraph */ #line 556 "htcobol.y" - { ;} + { } +#line 4804 "htcobol.tab.c" break; - case 97: - -/* Line 1464 of yacc.c */ + case 97: /* input_output_section: error */ #line 557 "htcobol.y" - { yyerror("INPUT-OUTPUT SECTION format wrong"); ;} + { yyerror("INPUT-OUTPUT SECTION format wrong"); } +#line 4810 "htcobol.tab.c" break; - case 98: - -/* Line 1464 of yacc.c */ + case 98: /* file_control_paragraph: FILE_CONTROL PERIOD_TOK file_control */ #line 560 "htcobol.y" - { ;} + { } +#line 4816 "htcobol.tab.c" break; - case 100: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + case 103: /* $@10: %empty */ #line 576 "htcobol.y" { - (yyvsp[(3) - (3)].sval)->type='F'; /* mark as file variable */ - curr_file=(yyvsp[(3) - (3)].sval); - (yyvsp[(3) - (3)].sval)->pic=0; /* suppose not indexed yet */ - (yyvsp[(3) - (3)].sval)->defined=1; - (yyvsp[(3) - (3)].sval)->parent=NULL; /* assume no STATUS yet + (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[(3) - (3)].sval)->organization = 2; - (yyvsp[(3) - (3)].sval)->access_mode = 1; - (yyvsp[(3) - (3)].sval)->times=-1; - (yyvsp[(3) - (3)].sval)->alternate=NULL; /* reset alternate key list */ - (yyvsp[(3) - (3)].sval)->flags.optional=(yyvsp[(2) - (3)].ival); /* according to keyword */ - (yyvsp[(3) - (3)].sval)->refmod_redef.declarative=NULL; /* no declarative yet */ - ;} + (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: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + case 107: /* select_clause: organization_opt is_opt organization_options */ #line 605 "htcobol.y" - { curr_file->organization=(yyvsp[(3) - (3)].ival); ;} + { curr_file->organization=(yyvsp[0].ival); } +#line 4859 "htcobol.tab.c" break; - case 108: - -/* Line 1464 of yacc.c */ + case 108: /* select_clause: ASSIGN to_opt assign_clause */ #line 606 "htcobol.y" - { curr_file->filenamevar=(yyvsp[(3) - (3)].sval);;} + { curr_file->filenamevar=(yyvsp[0].sval);} +#line 4865 "htcobol.tab.c" break; - case 109: - -/* Line 1464 of yacc.c */ + 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[(4) - (4)].ival); + curr_file->access_mode=(yyvsp[0].ival); } else { - curr_file->access_mode = (yyvsp[(4) - (4)].ival) + 5; + curr_file->access_mode = (yyvsp[0].ival) + 5; } - ;} + } +#line 4879 "htcobol.tab.c" break; - case 110: - -/* Line 1464 of yacc.c */ + case 110: /* select_clause: file_opt STATUS is_opt STRING */ #line 617 "htcobol.y" - { curr_file->parent=(yyvsp[(4) - (4)].sval); ;} + { curr_file->parent=(yyvsp[0].sval); } +#line 4885 "htcobol.tab.c" break; - case 111: - -/* Line 1464 of yacc.c */ + case 111: /* select_clause: RECORD key_opt is_opt STRING */ #line 618 "htcobol.y" - { curr_file->ix_desc=(yyvsp[(4) - (4)].sval); ;} + { curr_file->ix_desc=(yyvsp[0].sval); } +#line 4891 "htcobol.tab.c" break; - case 112: - -/* Line 1464 of yacc.c */ + case 112: /* select_clause: RELATIVE key_opt is_opt STRING */ #line 619 "htcobol.y" - { curr_file->ix_desc=(yyvsp[(4) - (4)].sval); ;} + { curr_file->ix_desc=(yyvsp[0].sval); } +#line 4897 "htcobol.tab.c" break; - case 113: - -/* Line 1464 of yacc.c */ + case 113: /* select_clause: ALTERNATE RECORD key_opt is_opt STRING with_duplicates */ #line 621 "htcobol.y" - { add_alternate_key((yyvsp[(5) - (6)].sval),(yyvsp[(6) - (6)].ival)); ;} + { add_alternate_key((yyvsp[-1].sval),(yyvsp[0].ival)); } +#line 4903 "htcobol.tab.c" break; - case 115: - -/* Line 1464 of yacc.c */ + case 115: /* select_clause: error */ #line 623 "htcobol.y" - { yyerror("invalid clause in select"); ;} + { yyerror("invalid clause in select"); } +#line 4909 "htcobol.tab.c" break; - case 118: - -/* Line 1464 of yacc.c */ + case 118: /* organization_opt: ORGANIZATION */ #line 630 "htcobol.y" - { ;} + { } +#line 4915 "htcobol.tab.c" break; - case 120: - -/* Line 1464 of yacc.c */ + case 120: /* assign_clause: PORTNUM */ #line 633 "htcobol.y" - { (yyval.sval)=NULL; ;} + { (yyval.sval)=NULL; } +#line 4921 "htcobol.tab.c" break; - case 121: - -/* Line 1464 of yacc.c */ + case 121: /* assign_clause: filename */ #line 634 "htcobol.y" - { (yyval.sval)=(yyvsp[(1) - (1)].sval); ;} + { (yyval.sval)=(yyvsp[0].sval); } +#line 4927 "htcobol.tab.c" break; - case 122: - -/* Line 1464 of yacc.c */ + case 122: /* assign_clause: PORTNUM filename */ #line 635 "htcobol.y" - { (yyval.sval)=(yyvsp[(2) - (2)].sval); ;} + { (yyval.sval)=(yyvsp[0].sval); } +#line 4933 "htcobol.tab.c" break; - case 123: - -/* Line 1464 of yacc.c */ + case 123: /* assign_clause: EXTERNAL filename */ #line 637 "htcobol.y" - { + { curr_file->access_mode = curr_file->access_mode + 5; - (yyval.sval)=(yyvsp[(2) - (2)].sval); - ;} + (yyval.sval)=(yyvsp[0].sval); + } +#line 4942 "htcobol.tab.c" break; - case 124: - -/* Line 1464 of yacc.c */ + case 124: /* assign_clause: error */ #line 641 "htcobol.y" - { yyerror("Invalid ASSIGN clause in SELECT statement"); ;} + { yyerror("Invalid ASSIGN clause in SELECT statement"); } +#line 4948 "htcobol.tab.c" break; - case 125: - -/* Line 1464 of yacc.c */ + case 125: /* with_duplicates: with_opt DUPLICATES */ #line 644 "htcobol.y" - { (yyval.ival)=1; ;} + { (yyval.ival)=1; } +#line 4954 "htcobol.tab.c" break; - case 126: - -/* Line 1464 of yacc.c */ + case 126: /* with_duplicates: %empty */ #line 645 "htcobol.y" - { (yyval.ival)=0; ;} + { (yyval.ival)=0; } +#line 4960 "htcobol.tab.c" break; - case 127: - -/* Line 1464 of yacc.c */ + case 127: /* optional_opt: OPTIONAL */ #line 648 "htcobol.y" - { (yyval.ival)=1; ;} + { (yyval.ival)=1; } +#line 4966 "htcobol.tab.c" break; - case 128: - -/* Line 1464 of yacc.c */ + case 128: /* optional_opt: %empty */ #line 649 "htcobol.y" - { (yyval.ival)=0; ;} + { (yyval.ival)=0; } +#line 4972 "htcobol.tab.c" break; - case 132: - -/* Line 1464 of yacc.c */ + case 132: /* is_opt: IS */ #line 656 "htcobol.y" - { ;} + { } +#line 4978 "htcobol.tab.c" break; - case 134: - -/* Line 1464 of yacc.c */ + case 134: /* are_opt: ARE */ #line 660 "htcobol.y" - { ;} + { } +#line 4984 "htcobol.tab.c" break; - case 138: - -/* Line 1464 of yacc.c */ + case 138: /* organization_options: INDEXED */ #line 668 "htcobol.y" - { (yyval.ival)=1; ;} + { (yyval.ival)=1; } +#line 4990 "htcobol.tab.c" break; - case 139: - -/* Line 1464 of yacc.c */ + case 139: /* organization_options: SEQUENTIAL */ #line 669 "htcobol.y" - { (yyval.ival)=2; ;} + { (yyval.ival)=2; } +#line 4996 "htcobol.tab.c" break; - case 140: - -/* Line 1464 of yacc.c */ + case 140: /* organization_options: RELATIVE */ #line 670 "htcobol.y" - { (yyval.ival)=3; ;} + { (yyval.ival)=3; } +#line 5002 "htcobol.tab.c" break; - case 141: - -/* Line 1464 of yacc.c */ + case 141: /* organization_options: LINE SEQUENTIAL */ #line 671 "htcobol.y" - { (yyval.ival)=4; ;} + { (yyval.ival)=4; } +#line 5008 "htcobol.tab.c" break; - case 142: - -/* Line 1464 of yacc.c */ + case 142: /* organization_options: anystring */ #line 672 "htcobol.y" - { yyerror("invalid option, %s",(yyvsp[(1) - (1)].sval)->name); ;} + { yyerror("invalid option, %s",(yyvsp[0].sval)->name); } +#line 5014 "htcobol.tab.c" break; - case 143: - -/* Line 1464 of yacc.c */ + case 143: /* access_options: SEQUENTIAL */ #line 675 "htcobol.y" - { (yyval.ival)=1; ;} + { (yyval.ival)=1; } +#line 5020 "htcobol.tab.c" break; - case 144: - -/* Line 1464 of yacc.c */ + case 144: /* access_options: DYNAMIC */ #line 676 "htcobol.y" - { (yyval.ival)=2; ;} + { (yyval.ival)=2; } +#line 5026 "htcobol.tab.c" break; - case 145: - -/* Line 1464 of yacc.c */ + case 145: /* access_options: RANDOM */ #line 677 "htcobol.y" - { (yyval.ival)=3; ;} + { (yyval.ival)=3; } +#line 5032 "htcobol.tab.c" break; - case 146: - -/* Line 1464 of yacc.c */ + case 146: /* access_options: anystring */ #line 679 "htcobol.y" - { yyerror("invalid access option, %s", (yyvsp[(1) - (1)].sval)->name); ;} + { yyerror("invalid access option, %s", (yyvsp[0].sval)->name); } +#line 5038 "htcobol.tab.c" break; - case 148: - -/* Line 1464 of yacc.c */ + case 148: /* i_o_control_opt: i_o_control_list PERIOD_TOK */ #line 684 "htcobol.y" - { UNIMPLEMENTED("I-O-CONTROL paragraph") ;} + { UNIMPLEMENTED("I-O-CONTROL paragraph") } +#line 5044 "htcobol.tab.c" break; - case 155: - -/* Line 1464 of yacc.c */ + case 155: /* same_clause_options: RECORD */ #line 699 "htcobol.y" - { ;} + { } +#line 5050 "htcobol.tab.c" break; - case 156: - -/* Line 1464 of yacc.c */ + case 156: /* same_clause_options: SORT */ #line 700 "htcobol.y" - { ;} + { } +#line 5056 "htcobol.tab.c" break; - case 157: - -/* Line 1464 of yacc.c */ + case 157: /* same_clause_options: SORT_MERGE */ #line 701 "htcobol.y" - { ;} + { } +#line 5062 "htcobol.tab.c" break; - case 161: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + case 163: /* i_o_control_multiple_file_position_opt: POSITION integer */ #line 714 "htcobol.y" - { ;} + { } +#line 5074 "htcobol.tab.c" break; - case 170: - -/* Line 1464 of yacc.c */ + case 170: /* string_list: STRING */ #line 729 "htcobol.y" - { (yyval.sval) = (yyvsp[(1) - (1)].sval); ;} + { (yyval.sval) = (yyvsp[0].sval); } +#line 5080 "htcobol.tab.c" break; - case 171: - -/* Line 1464 of yacc.c */ + case 171: /* string_list: string_list STRING */ #line 730 "htcobol.y" - { (yyval.sval) = (yyvsp[(2) - (2)].sval); ;} + { (yyval.sval) = (yyvsp[0].sval); } +#line 5086 "htcobol.tab.c" break; - case 172: - -/* Line 1464 of yacc.c */ + case 172: /* string_list: error */ #line 731 "htcobol.y" - { yyerror("string expected"); ;} + { yyerror("string expected"); } +#line 5092 "htcobol.tab.c" break; - case 173: - -/* Line 1464 of yacc.c */ + case 173: /* name_list: variable */ #line 734 "htcobol.y" - { (yyval.sval) = (struct sym *)chain_var((yyvsp[(1) - (1)].sval)); ;} + { (yyval.sval) = (struct sym *)chain_var((yyvsp[0].sval)); } +#line 5098 "htcobol.tab.c" break; - case 174: - -/* Line 1464 of yacc.c */ + case 174: /* name_list: name_list variable */ #line 735 "htcobol.y" - { (yyval.sval) = (struct sym *)chain_var((yyvsp[(2) - (2)].sval)); ;} + { (yyval.sval) = (struct sym *)chain_var((yyvsp[0].sval)); } +#line 5104 "htcobol.tab.c" break; - case 175: - -/* Line 1464 of yacc.c */ + case 175: /* name_list: error */ #line 736 "htcobol.y" - { yyerror("variable expected"); ;} + { yyerror("variable expected"); } +#line 5110 "htcobol.tab.c" break; - case 176: - -/* Line 1464 of yacc.c */ + case 176: /* $@11: %empty */ #line 745 "htcobol.y" - { curr_division = CDIV_DATA; ;} + { curr_division = CDIV_DATA; } +#line 5116 "htcobol.tab.c" break; - case 177: - -/* Line 1464 of yacc.c */ + 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; ;} + { curr_division = CINITIAL; } +#line 5122 "htcobol.tab.c" break; - case 179: - -/* Line 1464 of yacc.c */ + case 179: /* $@12: %empty */ #line 758 "htcobol.y" - { curr_field=NULL; ;} + { curr_field=NULL; } +#line 5128 "htcobol.tab.c" break; - case 180: - -/* Line 1464 of yacc.c */ + case 180: /* file_section_opt: FILE_TOK SECTION PERIOD_TOK $@12 file_section */ #line 759 "htcobol.y" - { close_fields(); ;} + { close_fields(); } +#line 5134 "htcobol.tab.c" break; - case 182: - -/* Line 1464 of yacc.c */ + case 182: /* $@13: %empty */ #line 766 "htcobol.y" - { curr_field=NULL; ;} + { curr_field=NULL; } +#line 5140 "htcobol.tab.c" break; - case 183: - -/* Line 1464 of yacc.c */ + case 183: /* working_storage_opt: WORKING_STORAGE SECTION PERIOD_TOK $@13 working_storage_section */ #line 767 "htcobol.y" - { close_fields(); ;} + { close_fields(); } +#line 5146 "htcobol.tab.c" break; - case 185: - -/* Line 1464 of yacc.c */ + case 185: /* $@14: %empty */ #line 774 "htcobol.y" - { at_linkage=1; curr_field=NULL; has_linkage++; ;} + { at_linkage=1; curr_field=NULL; has_linkage++; } +#line 5152 "htcobol.tab.c" break; - case 186: - -/* Line 1464 of yacc.c */ + case 186: /* linkage_section_opt: LINKAGE SECTION PERIOD_TOK $@14 linkage_section */ #line 775 "htcobol.y" - { close_fields(); at_linkage=0; ;} + { close_fields(); at_linkage=0; } +#line 5158 "htcobol.tab.c" break; - case 188: - -/* Line 1464 of yacc.c */ + case 188: /* report_section_opt: REPORT SECTION PERIOD_TOK report_sections */ #line 791 "htcobol.y" - { ;} + { } +#line 5164 "htcobol.tab.c" break; - case 192: - -/* Line 1464 of yacc.c */ + case 192: /* $@15: %empty */ #line 800 "htcobol.y" - { /*curr_division = CDIV_FD;*/ ;} + { /*curr_division = CDIV_FD;*/ } +#line 5170 "htcobol.tab.c" break; - case 193: - -/* Line 1464 of yacc.c */ + case 193: /* $@16: %empty */ #line 802 "htcobol.y" { - (yyvsp[(3) - (3)].sval)->type='W'; - (yyvsp[(3) - (3)].sval)->picstr = 0; - (yyvsp[(3) - (3)].sval)->parent = 0; - (yyvsp[(3) - (3)].sval)->clone = 0; - (yyvsp[(3) - (3)].sval)->times = -1; + (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: - -/* Line 1464 of yacc.c */ + case 194: /* $@17: %empty */ #line 812 "htcobol.y" { curr_division = CDIV_DATA; - ;} + } +#line 5192 "htcobol.tab.c" break; - case 195: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + case 198: /* report_control: is_opt GLOBAL */ #line 824 "htcobol.y" - { ;} + { } +#line 5207 "htcobol.tab.c" break; - case 199: - -/* Line 1464 of yacc.c */ + case 199: /* report_control: CODE gliteral */ #line 825 "htcobol.y" - { ;} + { } +#line 5213 "htcobol.tab.c" break; - case 200: - -/* Line 1464 of yacc.c */ + case 200: /* report_control: report_controls_control */ #line 826 "htcobol.y" - { ;} + { } +#line 5219 "htcobol.tab.c" break; - case 201: - -/* Line 1464 of yacc.c */ + case 201: /* report_control: report_controls_page */ #line 827 "htcobol.y" - { ;} + { } +#line 5225 "htcobol.tab.c" break; - case 224: - -/* Line 1464 of yacc.c */ + case 224: /* report_break_list: report_break_list name */ #line 876 "htcobol.y" - { (yyvsp[(2) - (2)].sval)->defined=1; ;} + { (yyvsp[0].sval)->defined=1; } +#line 5231 "htcobol.tab.c" break; - case 227: - -/* Line 1464 of yacc.c */ + case 227: /* $@18: %empty */ #line 884 "htcobol.y" { - if ((yyvsp[(2) - (2)].sval) == NULL) { - (yyvsp[(2) - (2)].sval) = alloc_filler(); + 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) - (2)].ival),(yyvsp[(2) - (2)].sval)); + define_field((yyvsp[-1].ival),(yyvsp[0].sval)); curr_division = CDIV_DATA; - ;} + } +#line 5245 "htcobol.tab.c" break; - case 228: - -/* Line 1464 of yacc.c */ + case 228: /* report_item: integer def_name_opt $@18 report_clauses PERIOD_TOK */ #line 894 "htcobol.y" { - update_report_field((yyvsp[(2) - (5)].sval)); + update_report_field((yyvsp[-3].sval)); curr_division = CDIV_DATA; - ;} + } +#line 5254 "htcobol.tab.c" break; - case 231: - -/* Line 1464 of yacc.c */ + case 231: /* report_clause: report_clause_line */ #line 904 "htcobol.y" - { ;} + { } +#line 5260 "htcobol.tab.c" break; - case 232: - -/* Line 1464 of yacc.c */ + case 232: /* report_clause: report_clause_next_group */ #line 905 "htcobol.y" - { ;} + { } +#line 5266 "htcobol.tab.c" break; - case 233: - -/* Line 1464 of yacc.c */ + case 233: /* report_clause: report_clause_type */ #line 906 "htcobol.y" - { ;} + { } +#line 5272 "htcobol.tab.c" break; - case 234: - -/* Line 1464 of yacc.c */ + case 234: /* report_clause: report_clause_usage_display */ #line 907 "htcobol.y" - { ;} + { } +#line 5278 "htcobol.tab.c" break; - case 235: - -/* Line 1464 of yacc.c */ + case 235: /* report_clause: report_clause_picture */ #line 908 "htcobol.y" - { ;} + { } +#line 5284 "htcobol.tab.c" break; - case 236: - -/* Line 1464 of yacc.c */ + case 236: /* report_clause: report_clause_sign_is */ #line 909 "htcobol.y" - { ;} + { } +#line 5290 "htcobol.tab.c" break; - case 237: - -/* Line 1464 of yacc.c */ + case 237: /* report_clause: report_clause_justified */ #line 910 "htcobol.y" - { ;} + { } +#line 5296 "htcobol.tab.c" break; - case 238: - -/* Line 1464 of yacc.c */ + case 238: /* report_clause: report_clause_blank_zero */ #line 911 "htcobol.y" - { ;} + { } +#line 5302 "htcobol.tab.c" break; - case 239: - -/* Line 1464 of yacc.c */ + case 239: /* report_clause: report_clause_column */ #line 912 "htcobol.y" - { ;} + { } +#line 5308 "htcobol.tab.c" break; - case 240: - -/* Line 1464 of yacc.c */ + case 240: /* report_clause: report_clause_svs */ #line 913 "htcobol.y" - { ;} + { } +#line 5314 "htcobol.tab.c" break; - case 241: - -/* Line 1464 of yacc.c */ + case 241: /* report_clause: report_clause_group_indicate */ #line 914 "htcobol.y" - { ;} + { } +#line 5320 "htcobol.tab.c" break; - case 242: - -/* Line 1464 of yacc.c */ + case 242: /* report_clause_type: TYPE is_opt report_clause_type2 */ #line 917 "htcobol.y" - { ;} + { } +#line 5326 "htcobol.tab.c" break; - case 243: - -/* Line 1464 of yacc.c */ + case 243: /* report_clause_type2: REPORT HEADING */ #line 920 "htcobol.y" - { ;} + { } +#line 5332 "htcobol.tab.c" break; - case 244: - -/* Line 1464 of yacc.c */ + case 244: /* report_clause_type2: PAGE HEADING */ #line 921 "htcobol.y" - { ;} + { } +#line 5338 "htcobol.tab.c" break; - case 245: - -/* Line 1464 of yacc.c */ + case 245: /* $@19: %empty */ #line 922 "htcobol.y" - { curr_division = CDIV_PROC; ;} + { curr_division = CDIV_PROC; } +#line 5344 "htcobol.tab.c" break; - case 246: - -/* Line 1464 of yacc.c */ + case 246: /* report_clause_type2: CONTROL HEADING $@19 name_final_opt */ #line 923 "htcobol.y" - { curr_division = CDIV_DATA; ;} + { curr_division = CDIV_DATA; } +#line 5350 "htcobol.tab.c" break; - case 247: - -/* Line 1464 of yacc.c */ + case 247: /* report_clause_type2: DETAIL */ #line 924 "htcobol.y" - { ;} + { } +#line 5356 "htcobol.tab.c" break; - case 248: - -/* Line 1464 of yacc.c */ + case 248: /* $@20: %empty */ #line 925 "htcobol.y" - { curr_division = CDIV_PROC; ;} + { curr_division = CDIV_PROC; } +#line 5362 "htcobol.tab.c" break; - case 249: - -/* Line 1464 of yacc.c */ + case 249: /* report_clause_type2: CONTROL FOOTING $@20 name_final_opt */ #line 926 "htcobol.y" - { curr_division = CDIV_DATA; ;} + { curr_division = CDIV_DATA; } +#line 5368 "htcobol.tab.c" break; - case 250: - -/* Line 1464 of yacc.c */ + case 250: /* report_clause_type2: PAGE FOOTING */ #line 927 "htcobol.y" - { ;} + { } +#line 5374 "htcobol.tab.c" break; - case 251: - -/* Line 1464 of yacc.c */ + case 251: /* report_clause_type2: REPORT FOOTING */ #line 928 "htcobol.y" - { ;} + { } +#line 5380 "htcobol.tab.c" break; - case 252: - -/* Line 1464 of yacc.c */ + case 252: /* report_clause_type2: RH */ #line 929 "htcobol.y" - { ;} + { } +#line 5386 "htcobol.tab.c" break; - case 253: - -/* Line 1464 of yacc.c */ + case 253: /* report_clause_type2: PH */ #line 930 "htcobol.y" - { ;} + { } +#line 5392 "htcobol.tab.c" break; - case 254: - -/* Line 1464 of yacc.c */ + case 254: /* $@21: %empty */ #line 931 "htcobol.y" - { curr_division = CDIV_PROC; ;} + { curr_division = CDIV_PROC; } +#line 5398 "htcobol.tab.c" break; - case 255: - -/* Line 1464 of yacc.c */ + case 255: /* report_clause_type2: CH $@21 name_final_opt */ #line 932 "htcobol.y" - { curr_division = CDIV_DATA; ;} + { curr_division = CDIV_DATA; } +#line 5404 "htcobol.tab.c" break; - case 256: - -/* Line 1464 of yacc.c */ + case 256: /* report_clause_type2: DE */ #line 933 "htcobol.y" - { ;} + { } +#line 5410 "htcobol.tab.c" break; - case 257: - -/* Line 1464 of yacc.c */ + case 257: /* $@22: %empty */ #line 934 "htcobol.y" - { curr_division = CDIV_PROC; ;} + { curr_division = CDIV_PROC; } +#line 5416 "htcobol.tab.c" break; - case 258: - -/* Line 1464 of yacc.c */ + case 258: /* report_clause_type2: CF $@22 name_final_opt */ #line 935 "htcobol.y" - { curr_division = CDIV_DATA; ;} + { curr_division = CDIV_DATA; } +#line 5422 "htcobol.tab.c" break; - case 259: - -/* Line 1464 of yacc.c */ + case 259: /* report_clause_type2: PF */ #line 936 "htcobol.y" - { ;} + { } +#line 5428 "htcobol.tab.c" break; - case 260: - -/* Line 1464 of yacc.c */ + case 260: /* report_clause_type2: RF */ #line 937 "htcobol.y" - { ;} + { } +#line 5434 "htcobol.tab.c" break; - case 261: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + case 262: /* report_clause_sign_is: leading_trailing SEPARATE character_opt */ #line 941 "htcobol.y" - { ;} + { } +#line 5446 "htcobol.tab.c" break; - case 263: - -/* Line 1464 of yacc.c */ + case 263: /* $@23: %empty */ #line 945 "htcobol.y" { curr_division = CDIV_PIC; - ;} + } +#line 5454 "htcobol.tab.c" break; - case 264: - -/* Line 1464 of yacc.c */ + case 264: /* report_clause_picture: PICTURE $@23 is_opt picture */ #line 948 "htcobol.y" - { curr_division = CDIV_DATA; ;} + { curr_division = CDIV_DATA; } +#line 5460 "htcobol.tab.c" break; - case 265: - -/* Line 1464 of yacc.c */ + case 265: /* report_clause_usage_display: USAGE is_opt DISPLAY */ #line 951 "htcobol.y" - { ;} + { } +#line 5466 "htcobol.tab.c" break; - case 266: - -/* Line 1464 of yacc.c */ + case 266: /* report_clause_usage_display: DISPLAY */ #line 952 "htcobol.y" - { ;} + { } +#line 5472 "htcobol.tab.c" break; - case 269: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + case 270: /* report_clause_line: report_clause_line_is integer NEXT PAGE */ #line 962 "htcobol.y" - { ;} + { } +#line 5484 "htcobol.tab.c" break; - case 271: - -/* Line 1464 of yacc.c */ + case 271: /* report_clause_line: report_clause_line_is integer */ #line 963 "htcobol.y" - { ;} + { } +#line 5490 "htcobol.tab.c" break; - case 272: - -/* Line 1464 of yacc.c */ + case 272: /* report_clause_line: report_clause_line_is PLUS integer */ #line 964 "htcobol.y" - { ;} + { } +#line 5496 "htcobol.tab.c" break; - case 277: - -/* Line 1464 of yacc.c */ + case 277: /* report_clause_column: report_clause_column_is integer */ #line 973 "htcobol.y" - { ;} + { } +#line 5502 "htcobol.tab.c" break; - case 278: - -/* Line 1464 of yacc.c */ + case 278: /* report_clause_column_is: COLUMN report_clause_column_orientation is_are_opt */ #line 976 "htcobol.y" - { (yyval.ival)=(yyvsp[(2) - (3)].ival); ;} + { (yyval.ival)=(yyvsp[-1].ival); } +#line 5508 "htcobol.tab.c" break; - case 279: - -/* Line 1464 of yacc.c */ + case 279: /* report_clause_column_is: COLUMN NUMBER report_clause_column_orientation is_opt */ #line 977 "htcobol.y" - { (yyval.ival)=(yyvsp[(3) - (4)].ival); ;} + { (yyval.ival)=(yyvsp[-1].ival); } +#line 5514 "htcobol.tab.c" break; - case 280: - -/* Line 1464 of yacc.c */ + case 280: /* report_clause_column_is: COLUMN NUMBERS report_clause_column_orientation are_opt */ #line 978 "htcobol.y" - { (yyval.ival)=(yyvsp[(3) - (4)].ival); ;} + { (yyval.ival)=(yyvsp[-1].ival); } +#line 5520 "htcobol.tab.c" break; - case 281: - -/* Line 1464 of yacc.c */ + case 281: /* report_clause_column_is: COLUMNS report_clause_column_orientation are_opt */ #line 979 "htcobol.y" - { (yyval.ival)=(yyvsp[(2) - (3)].ival); ;} + { (yyval.ival)=(yyvsp[-1].ival); } +#line 5526 "htcobol.tab.c" break; - case 282: - -/* Line 1464 of yacc.c */ + case 282: /* report_clause_column_orientation: %empty */ #line 982 "htcobol.y" - { (yyval.ival)=0; ;} + { (yyval.ival)=0; } +#line 5532 "htcobol.tab.c" break; - case 283: - -/* Line 1464 of yacc.c */ + case 283: /* report_clause_column_orientation: LEFT */ #line 983 "htcobol.y" - { (yyval.ival)=0; ;} + { (yyval.ival)=0; } +#line 5538 "htcobol.tab.c" break; - case 284: - -/* Line 1464 of yacc.c */ + case 284: /* report_clause_column_orientation: CENTER */ #line 984 "htcobol.y" - { (yyval.ival)=1; ;} + { (yyval.ival)=1; } +#line 5544 "htcobol.tab.c" break; - case 285: - -/* Line 1464 of yacc.c */ + case 285: /* report_clause_column_orientation: RIGHT */ #line 985 "htcobol.y" - { (yyval.ival)=2; ;} + { (yyval.ival)=2; } +#line 5550 "htcobol.tab.c" break; - case 287: - -/* Line 1464 of yacc.c */ + case 287: /* is_are_opt: IS */ #line 989 "htcobol.y" - { ;} + { } +#line 5556 "htcobol.tab.c" break; - case 288: - -/* Line 1464 of yacc.c */ + case 288: /* is_are_opt: ARE */ #line 990 "htcobol.y" - { ;} + { } +#line 5562 "htcobol.tab.c" break; - case 289: - -/* Line 1464 of yacc.c */ + case 289: /* $@24: %empty */ #line 993 "htcobol.y" - { curr_division = CDIV_PROC; ;} + { curr_division = CDIV_PROC; } +#line 5568 "htcobol.tab.c" break; - case 290: - -/* Line 1464 of yacc.c */ + case 290: /* report_clause_svs: SOURCE $@24 is_opt gname_page_counter */ #line 995 "htcobol.y" - { curr_division = CDIV_DATA; ;} + { curr_division = CDIV_DATA; } +#line 5574 "htcobol.tab.c" break; - case 291: - -/* Line 1464 of yacc.c */ + case 291: /* report_clause_svs: VALUE is_opt literal */ #line 996 "htcobol.y" - { ;} + { } +#line 5580 "htcobol.tab.c" break; - case 292: - -/* Line 1464 of yacc.c */ + case 292: /* $@25: %empty */ #line 997 "htcobol.y" - { curr_division = CDIV_PROC; ;} + { curr_division = CDIV_PROC; } +#line 5586 "htcobol.tab.c" break; - case 293: - -/* Line 1464 of yacc.c */ + case 293: /* $@26: %empty */ #line 998 "htcobol.y" - { curr_division = CDIV_DATA; ;} + { curr_division = CDIV_DATA; } +#line 5592 "htcobol.tab.c" break; - case 294: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + case 295: /* gname_page_counter: gname */ #line 1001 "htcobol.y" - { ;} + { } +#line 5604 "htcobol.tab.c" break; - case 296: - -/* Line 1464 of yacc.c */ + case 296: /* gname_page_counter: PAGE_COUNTER */ #line 1002 "htcobol.y" - { ;} + { } +#line 5610 "htcobol.tab.c" break; - case 298: - -/* Line 1464 of yacc.c */ + case 298: /* report_clause_group_indicate: GROUP indicate_opt */ #line 1005 "htcobol.y" - { ;} + { } +#line 5616 "htcobol.tab.c" break; - case 299: - -/* Line 1464 of yacc.c */ + case 299: /* report_clause_blank_zero: BLANK when_opt ZERO */ #line 1008 "htcobol.y" - { ;} + { } +#line 5622 "htcobol.tab.c" break; - case 301: - -/* Line 1464 of yacc.c */ + case 301: /* indicate_opt: INDICATE */ #line 1011 "htcobol.y" - { ;} + { } +#line 5628 "htcobol.tab.c" break; - case 303: - -/* Line 1464 of yacc.c */ + case 303: /* upon_opt: UPON gname_list */ #line 1014 "htcobol.y" - { ;} + { } +#line 5634 "htcobol.tab.c" break; - case 305: - -/* Line 1464 of yacc.c */ + case 305: /* reset_opt: RESET gname */ #line 1017 "htcobol.y" - { ;} + { } +#line 5640 "htcobol.tab.c" break; - case 306: - -/* Line 1464 of yacc.c */ + case 306: /* reset_opt: RESET FINAL */ #line 1018 "htcobol.y" - { ;} + { } +#line 5646 "htcobol.tab.c" break; - case 308: - -/* Line 1464 of yacc.c */ + case 308: /* number_opt: NUMBER */ #line 1021 "htcobol.y" - { ;} + { } +#line 5652 "htcobol.tab.c" break; - case 309: - -/* Line 1464 of yacc.c */ + case 309: /* leading_trailing: LEADING */ #line 1024 "htcobol.y" - { ;} + { } +#line 5658 "htcobol.tab.c" break; - case 310: - -/* Line 1464 of yacc.c */ + case 310: /* leading_trailing: TRAILING */ #line 1025 "htcobol.y" - { ;} + { } +#line 5664 "htcobol.tab.c" break; - case 312: - -/* Line 1464 of yacc.c */ + case 312: /* right_opt: RIGHT */ #line 1028 "htcobol.y" - { ;} + { } +#line 5670 "htcobol.tab.c" break; - case 313: - -/* Line 1464 of yacc.c */ + case 313: /* name_final_opt: gname */ #line 1031 "htcobol.y" - { ;} + { } +#line 5676 "htcobol.tab.c" break; - case 314: - -/* Line 1464 of yacc.c */ + case 314: /* name_final_opt: FINAL */ #line 1032 "htcobol.y" - { ;} + { } +#line 5682 "htcobol.tab.c" break; - case 315: - -/* Line 1464 of yacc.c */ + case 315: /* integer_on_next_page: integer */ #line 1035 "htcobol.y" - { ;} + { } +#line 5688 "htcobol.tab.c" break; - case 316: - -/* Line 1464 of yacc.c */ + case 316: /* integer_on_next_page: PLUS integer */ #line 1036 "htcobol.y" - { ;} + { } +#line 5694 "htcobol.tab.c" break; - case 317: - -/* Line 1464 of yacc.c */ + case 317: /* integer_on_next_page: NEXT PAGE */ #line 1037 "htcobol.y" - { ;} + { } +#line 5700 "htcobol.tab.c" break; - case 320: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + case 321: /* screen_section_opt: SCREEN SECTION PERIOD_TOK $@27 screen_section */ #line 1056 "htcobol.y" - { close_fields(); ;} + { close_fields(); } +#line 5716 "htcobol.tab.c" break; - case 325: - -/* Line 1464 of yacc.c */ + case 325: /* $@28: %empty */ #line 1069 "htcobol.y" { - if ((yyvsp[(2) - (2)].sval) == NULL) { - (yyvsp[(2) - (2)].sval) = alloc_filler(); + 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) - (2)].ival),(yyvsp[(2) - (2)].sval)); - ;} + define_field((yyvsp[-1].ival),(yyvsp[0].sval)); + } +#line 5729 "htcobol.tab.c" break; - case 326: - -/* Line 1464 of yacc.c */ + case 326: /* screen_item: integer def_name_opt $@28 screen_clauses PERIOD_TOK */ #line 1077 "htcobol.y" - { update_screen_field((yyvsp[(2) - (5)].sval),(yyvsp[(4) - (5)].sival)); ;} + { update_screen_field((yyvsp[-3].sval),(yyvsp[-1].sival)); } +#line 5735 "htcobol.tab.c" break; - case 327: - -/* Line 1464 of yacc.c */ + case 327: /* $@29: %empty */ #line 1080 "htcobol.y" - { curr_division = CDIV_PROC; ;} + { curr_division = CDIV_PROC; } +#line 5741 "htcobol.tab.c" break; - case 328: - -/* Line 1464 of yacc.c */ + 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[(1) - (6)].sival),(yyvsp[(6) - (6)].sval),(yyvsp[(5) - (6)].ival)); (yyval.sival)=(yyvsp[(1) - (6)].sival); ;} + { 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: - -/* Line 1464 of yacc.c */ + case 329: /* $@30: %empty */ #line 1085 "htcobol.y" - { curr_division = CDIV_PROC; ;} + { curr_division = CDIV_PROC; } +#line 5754 "htcobol.tab.c" break; - case 330: - -/* Line 1464 of yacc.c */ + 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[(1) - (6)].sival),(yyvsp[(6) - (6)].sval),(yyvsp[(5) - (6)].ival)); (yyval.sival)=(yyvsp[(1) - (6)].sival); ;} + { 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: - -/* Line 1464 of yacc.c */ + case 331: /* screen_clauses: screen_clauses with_opt screen_attrib */ #line 1091 "htcobol.y" - { (yyvsp[(1) - (3)].sival)->attr |= (yyvsp[(3) - (3)].ival); (yyval.sival)=(yyvsp[(1) - (3)].sival); ;} + { (yyvsp[-2].sival)->attr |= (yyvsp[0].ival); (yyval.sival)=(yyvsp[-2].sival); } +#line 5767 "htcobol.tab.c" break; - case 332: - -/* Line 1464 of yacc.c */ + case 332: /* $@31: %empty */ #line 1092 "htcobol.y" - { curr_division = CDIV_PROC; ;} + { curr_division = CDIV_PROC; } +#line 5773 "htcobol.tab.c" break; - case 333: - -/* Line 1464 of yacc.c */ + case 333: /* screen_clauses: screen_clauses with_opt FOREGROUNDCOLOR $@31 name_or_lit */ #line 1093 "htcobol.y" - { curr_division = CDIV_DATA; - (yyvsp[(1) - (5)].sival)->color = NULL; - (yyvsp[(1) - (5)].sival)->foreground = (yyvsp[(5) - (5)].sval); (yyval.sival)=(yyvsp[(1) - (5)].sival); ;} + { 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: - -/* Line 1464 of yacc.c */ + case 334: /* $@32: %empty */ #line 1096 "htcobol.y" - { curr_division = CDIV_PROC; ;} + { curr_division = CDIV_PROC; } +#line 5787 "htcobol.tab.c" break; - case 335: - -/* Line 1464 of yacc.c */ + case 335: /* screen_clauses: screen_clauses with_opt BACKGROUNDCOLOR $@32 name_or_lit */ #line 1097 "htcobol.y" - { curr_division = CDIV_DATA; - (yyvsp[(1) - (5)].sival)->color = NULL; - (yyvsp[(1) - (5)].sival)->background = (yyvsp[(5) - (5)].sval); (yyval.sival)=(yyvsp[(1) - (5)].sival); ;} + { 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: - -/* Line 1464 of yacc.c */ + case 336: /* $@33: %empty */ #line 1100 "htcobol.y" - { curr_division = CDIV_PROC; ;} + { curr_division = CDIV_PROC; } +#line 5801 "htcobol.tab.c" break; - case 337: - -/* Line 1464 of yacc.c */ + case 337: /* screen_clauses: screen_clauses with_opt COLOR $@33 name_or_lit */ #line 1101 "htcobol.y" - { curr_division = CDIV_DATA; - (yyvsp[(1) - (5)].sival)->foreground = NULL; - (yyvsp[(1) - (5)].sival)->background = NULL; - (yyvsp[(1) - (5)].sival)->color = (yyvsp[(5) - (5)].sval); (yyval.sival)=(yyvsp[(1) - (5)].sival); ;} + { 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: - -/* Line 1464 of yacc.c */ + case 339: /* screen_clauses: screen_clauses value_is_are gliteral */ #line 1108 "htcobol.y" - { curr_field->value = (yyvsp[(3) - (3)].lval); (yyval.sival)=(yyvsp[(1) - (3)].sival); ;} + { curr_field->value = (yyvsp[0].lval); (yyval.sival)=(yyvsp[-2].sival); } +#line 5816 "htcobol.tab.c" break; - case 341: - -/* Line 1464 of yacc.c */ + case 341: /* $@34: %empty */ #line 1110 "htcobol.y" - { curr_division = CDIV_PROC; ;} + { curr_division = CDIV_PROC; } +#line 5822 "htcobol.tab.c" break; - case 342: - -/* Line 1464 of yacc.c */ + case 342: /* screen_clauses: screen_clauses SIZE $@34 name_or_lit */ #line 1111 "htcobol.y" - { curr_division = CDIV_DATA; - (yyvsp[(1) - (4)].sival)->size = (yyvsp[(4) - (4)].sval); (yyval.sival)=(yyvsp[(1) - (4)].sival); ;} + { curr_division = CDIV_DATA; + (yyvsp[-3].sival)->size = (yyvsp[0].sval); (yyval.sival)=(yyvsp[-3].sival); } +#line 5829 "htcobol.tab.c" break; - case 343: - -/* Line 1464 of yacc.c */ + case 343: /* screen_clauses: %empty */ #line 1113 "htcobol.y" - { (yyval.sival) = alloc_scr_info(); ;} + { (yyval.sival) = alloc_scr_info(); } +#line 5835 "htcobol.tab.c" break; - case 344: - -/* Line 1464 of yacc.c */ + case 344: /* $@35: %empty */ #line 1116 "htcobol.y" - { curr_division = CDIV_PROC; ;} + { curr_division = CDIV_PROC; } +#line 5841 "htcobol.tab.c" break; - case 345: - -/* Line 1464 of yacc.c */ + case 345: /* screen_source_destination: USING $@35 name_or_lit */ #line 1117 "htcobol.y" - { + { curr_division = CDIV_DATA; - (yyvsp[(0) - (3)].sival)->from = (yyvsp[(0) - (3)].sival)->to = (yyvsp[(3) - (3)].sval); - ;} + (yyvsp[-3].sival)->from = (yyvsp[-3].sival)->to = (yyvsp[0].sval); + } +#line 5850 "htcobol.tab.c" break; - case 346: - -/* Line 1464 of yacc.c */ + case 346: /* $@36: %empty */ #line 1121 "htcobol.y" - { curr_division = CDIV_PROC; ;} + { curr_division = CDIV_PROC; } +#line 5856 "htcobol.tab.c" break; - case 347: - -/* Line 1464 of yacc.c */ + case 347: /* screen_source_destination: FROM $@36 name_or_lit screen_to_name */ #line 1123 "htcobol.y" - { + { curr_division = CDIV_DATA; - (yyvsp[(0) - (4)].sival)->from = (yyvsp[(3) - (4)].sval); (yyvsp[(0) - (4)].sival)->to = (yyvsp[(4) - (4)].sval); - ;} + (yyvsp[-4].sival)->from = (yyvsp[-1].sval); (yyvsp[-4].sival)->to = (yyvsp[0].sval); + } +#line 5865 "htcobol.tab.c" break; - case 348: - -/* Line 1464 of yacc.c */ + case 348: /* $@37: %empty */ #line 1127 "htcobol.y" - { curr_division = CDIV_PROC; ;} + { curr_division = CDIV_PROC; } +#line 5871 "htcobol.tab.c" break; - case 349: - -/* Line 1464 of yacc.c */ + case 349: /* screen_source_destination: TO $@37 name */ #line 1128 "htcobol.y" - { + { curr_division = CDIV_DATA; - (yyvsp[(0) - (3)].sival)->from = NULL; (yyvsp[(0) - (3)].sival)->to = (yyvsp[(3) - (3)].sval); - ;} + (yyvsp[-3].sival)->from = NULL; (yyvsp[-3].sival)->to = (yyvsp[0].sval); + } +#line 5880 "htcobol.tab.c" break; - case 350: - -/* Line 1464 of yacc.c */ + case 350: /* screen_to_name: %empty */ #line 1134 "htcobol.y" - { (yyval.sval)=NULL; ;} + { (yyval.sval)=NULL; } +#line 5886 "htcobol.tab.c" break; - case 351: - -/* Line 1464 of yacc.c */ + case 351: /* screen_to_name: TO name */ #line 1135 "htcobol.y" - { (yyval.sval) = (yyvsp[(2) - (2)].sval); ;} + { (yyval.sval) = (yyvsp[0].sval); } +#line 5892 "htcobol.tab.c" break; - case 352: - -/* Line 1464 of yacc.c */ + case 352: /* screen_attrib: BLANK SCREEN */ #line 1138 "htcobol.y" - { (yyval.ival) = SCR_BLANK_SCREEN; ;} + { (yyval.ival) = SCR_BLANK_SCREEN; } +#line 5898 "htcobol.tab.c" break; - case 353: - -/* Line 1464 of yacc.c */ + case 353: /* screen_attrib: BLANK LINE */ #line 1139 "htcobol.y" - { (yyval.ival) = SCR_BLANK_LINE; ;} + { (yyval.ival) = SCR_BLANK_LINE; } +#line 5904 "htcobol.tab.c" break; - case 354: - -/* Line 1464 of yacc.c */ + case 354: /* screen_attrib: ERASE EOL */ #line 1140 "htcobol.y" - { (yyval.ival) = SCR_ERASE_EOL; ;} + { (yyval.ival) = SCR_ERASE_EOL; } +#line 5910 "htcobol.tab.c" break; - case 355: - -/* Line 1464 of yacc.c */ + case 355: /* screen_attrib: ERASE EOS */ #line 1141 "htcobol.y" - { (yyval.ival) = SCR_ERASE_EOS; ;} + { (yyval.ival) = SCR_ERASE_EOS; } +#line 5916 "htcobol.tab.c" break; - case 356: - -/* Line 1464 of yacc.c */ + case 356: /* screen_attrib: ERASE */ #line 1142 "htcobol.y" - { (yyval.ival) = SCR_ERASE_EOL; ;} + { (yyval.ival) = SCR_ERASE_EOL; } +#line 5922 "htcobol.tab.c" break; - case 357: - -/* Line 1464 of yacc.c */ + case 357: /* screen_attrib: with_opt BELL */ #line 1143 "htcobol.y" - { (yyval.ival) = SCR_BELL; ;} + { (yyval.ival) = SCR_BELL; } +#line 5928 "htcobol.tab.c" break; - case 358: - -/* Line 1464 of yacc.c */ + case 358: /* screen_attrib: sign_clause */ #line 1144 "htcobol.y" - { (yyval.ival) = (yyvsp[(1) - (1)].ival); ;} + { (yyval.ival) = (yyvsp[0].ival); } +#line 5934 "htcobol.tab.c" break; - case 359: - -/* Line 1464 of yacc.c */ + case 359: /* screen_attrib: FULL */ #line 1145 "htcobol.y" - { (yyval.ival) = SCR_FULL; ;} + { (yyval.ival) = SCR_FULL; } +#line 5940 "htcobol.tab.c" break; - case 360: - -/* Line 1464 of yacc.c */ + case 360: /* screen_attrib: REQUIRED */ #line 1146 "htcobol.y" - { (yyval.ival) = SCR_REQUIRED; ;} + { (yyval.ival) = SCR_REQUIRED; } +#line 5946 "htcobol.tab.c" break; - case 361: - -/* Line 1464 of yacc.c */ + case 361: /* screen_attrib: SECURE */ #line 1147 "htcobol.y" - { (yyval.ival) = SCR_SECURE; ;} + { (yyval.ival) = SCR_SECURE; } +#line 5952 "htcobol.tab.c" break; - case 362: - -/* Line 1464 of yacc.c */ + case 362: /* screen_attrib: AUTO */ #line 1148 "htcobol.y" - { (yyval.ival) = SCR_AUTO; ;} + { (yyval.ival) = SCR_AUTO; } +#line 5958 "htcobol.tab.c" break; - case 363: - -/* Line 1464 of yacc.c */ + case 363: /* screen_attrib: JUSTIFIED RIGHT */ #line 1149 "htcobol.y" - { (yyval.ival) = SCR_JUST_RIGHT; ;} + { (yyval.ival) = SCR_JUST_RIGHT; } +#line 5964 "htcobol.tab.c" break; - case 364: - -/* Line 1464 of yacc.c */ + case 364: /* screen_attrib: JUSTIFIED LEFT */ #line 1150 "htcobol.y" - { (yyval.ival) = SCR_JUST_LEFT; ;} + { (yyval.ival) = SCR_JUST_LEFT; } +#line 5970 "htcobol.tab.c" break; - case 365: - -/* Line 1464 of yacc.c */ + case 365: /* screen_attrib: BLINK */ #line 1151 "htcobol.y" - { (yyval.ival) = SCR_BLINK; ;} + { (yyval.ival) = SCR_BLINK; } +#line 5976 "htcobol.tab.c" break; - case 366: - -/* Line 1464 of yacc.c */ + case 366: /* screen_attrib: REVERSEVIDEO */ #line 1152 "htcobol.y" - { (yyval.ival) = SCR_REVERSE_VIDEO; ;} + { (yyval.ival) = SCR_REVERSE_VIDEO; } +#line 5982 "htcobol.tab.c" break; - case 367: - -/* Line 1464 of yacc.c */ + case 367: /* screen_attrib: UNDERLINE */ #line 1153 "htcobol.y" - { (yyval.ival) = SCR_UNDERLINE; ;} + { (yyval.ival) = SCR_UNDERLINE; } +#line 5988 "htcobol.tab.c" break; - case 368: - -/* Line 1464 of yacc.c */ + case 368: /* screen_attrib: LOWLIGHT */ #line 1154 "htcobol.y" - { (yyval.ival) = SCR_LOWLIGHT; ;} + { (yyval.ival) = SCR_LOWLIGHT; } +#line 5994 "htcobol.tab.c" break; - case 369: - -/* Line 1464 of yacc.c */ + case 369: /* screen_attrib: HIGHLIGHT */ #line 1155 "htcobol.y" - { (yyval.ival) = SCR_HIGHLIGHT; ;} + { (yyval.ival) = SCR_HIGHLIGHT; } +#line 6000 "htcobol.tab.c" break; - case 370: - -/* Line 1464 of yacc.c */ + case 370: /* screen_attrib: BLANK when_opt ZERO */ #line 1156 "htcobol.y" - { (yyval.ival) = SCR_BLANK_WHEN_ZERO; ;} + { (yyval.ival) = SCR_BLANK_WHEN_ZERO; } +#line 6006 "htcobol.tab.c" break; - case 371: - -/* Line 1464 of yacc.c */ + case 371: /* screen_attrib: with_opt NOECHO */ #line 1157 "htcobol.y" - { (yyval.ival) = SCR_NOECHO; ;} + { (yyval.ival) = SCR_NOECHO; } +#line 6012 "htcobol.tab.c" break; - case 372: - -/* Line 1464 of yacc.c */ + case 372: /* screen_attrib: with_opt UPDATE */ #line 1158 "htcobol.y" - { (yyval.ival) = SCR_UPDATE; ;} + { (yyval.ival) = SCR_UPDATE; } +#line 6018 "htcobol.tab.c" break; - case 373: - -/* Line 1464 of yacc.c */ + case 373: /* screen_attrib: with_opt NO ADVANCING */ #line 1159 "htcobol.y" - { (yyval.ival) = SCR_NO_ADVANCING; ;} + { (yyval.ival) = SCR_NO_ADVANCING; } +#line 6024 "htcobol.tab.c" break; - case 374: - -/* Line 1464 of yacc.c */ + case 374: /* screen_attrib: UPPER */ #line 1160 "htcobol.y" - { (yyval.ival) = SCR_UPPER; ;} + { (yyval.ival) = SCR_UPPER; } +#line 6030 "htcobol.tab.c" break; - case 375: - -/* Line 1464 of yacc.c */ + case 375: /* screen_attrib: LOWER */ #line 1161 "htcobol.y" - { (yyval.ival) = SCR_LOWER; ;} + { (yyval.ival) = SCR_LOWER; } +#line 6036 "htcobol.tab.c" break; - case 376: - -/* Line 1464 of yacc.c */ + case 376: /* screen_attribx: BLANK SCREEN */ #line 1165 "htcobol.y" - { (yyval.ival) = SCR_BLANK_SCREEN; ;} + { (yyval.ival) = SCR_BLANK_SCREEN; } +#line 6042 "htcobol.tab.c" break; - case 377: - -/* Line 1464 of yacc.c */ + case 377: /* screen_attribx: BLANK LINE */ #line 1166 "htcobol.y" - { (yyval.ival) = SCR_BLANK_LINE; ;} + { (yyval.ival) = SCR_BLANK_LINE; } +#line 6048 "htcobol.tab.c" break; - case 378: - -/* Line 1464 of yacc.c */ + case 378: /* screen_attribx: ERASE EOL */ #line 1167 "htcobol.y" - { (yyval.ival) = SCR_ERASE_EOL; ;} + { (yyval.ival) = SCR_ERASE_EOL; } +#line 6054 "htcobol.tab.c" break; - case 379: - -/* Line 1464 of yacc.c */ + case 379: /* screen_attribx: ERASE EOS */ #line 1168 "htcobol.y" - { (yyval.ival) = SCR_ERASE_EOS; ;} + { (yyval.ival) = SCR_ERASE_EOS; } +#line 6060 "htcobol.tab.c" break; - case 380: - -/* Line 1464 of yacc.c */ + case 380: /* screen_attribx: ERASE */ #line 1169 "htcobol.y" - { (yyval.ival) = SCR_ERASE_EOL; ;} + { (yyval.ival) = SCR_ERASE_EOL; } +#line 6066 "htcobol.tab.c" break; - case 381: - -/* Line 1464 of yacc.c */ + case 381: /* screen_attribx: with_opt BELL */ #line 1170 "htcobol.y" - { (yyval.ival) = SCR_BELL; ;} + { (yyval.ival) = SCR_BELL; } +#line 6072 "htcobol.tab.c" break; - case 382: - -/* Line 1464 of yacc.c */ + case 382: /* screen_attribx: sign_clause */ #line 1171 "htcobol.y" - { (yyval.ival) = (yyvsp[(1) - (1)].ival); ;} + { (yyval.ival) = (yyvsp[0].ival); } +#line 6078 "htcobol.tab.c" break; - case 383: - -/* Line 1464 of yacc.c */ + case 383: /* screen_attribx: FULL */ #line 1172 "htcobol.y" - { (yyval.ival) = SCR_FULL; ;} + { (yyval.ival) = SCR_FULL; } +#line 6084 "htcobol.tab.c" break; - case 384: - -/* Line 1464 of yacc.c */ + case 384: /* screen_attribx: REQUIRED */ #line 1173 "htcobol.y" - { (yyval.ival) = SCR_REQUIRED; ;} + { (yyval.ival) = SCR_REQUIRED; } +#line 6090 "htcobol.tab.c" break; - case 385: - -/* Line 1464 of yacc.c */ + case 385: /* screen_attribx: SECURE */ #line 1174 "htcobol.y" - { (yyval.ival) = SCR_SECURE; ;} + { (yyval.ival) = SCR_SECURE; } +#line 6096 "htcobol.tab.c" break; - case 386: - -/* Line 1464 of yacc.c */ + case 386: /* screen_attribx: AUTO */ #line 1175 "htcobol.y" - { (yyval.ival) = SCR_AUTO; ;} + { (yyval.ival) = SCR_AUTO; } +#line 6102 "htcobol.tab.c" break; - case 387: - -/* Line 1464 of yacc.c */ + case 387: /* screen_attribx: JUSTIFIED RIGHT */ #line 1176 "htcobol.y" - { (yyval.ival) = SCR_JUST_RIGHT; ;} + { (yyval.ival) = SCR_JUST_RIGHT; } +#line 6108 "htcobol.tab.c" break; - case 388: - -/* Line 1464 of yacc.c */ + case 388: /* screen_attribx: JUSTIFIED LEFT */ #line 1177 "htcobol.y" - { (yyval.ival) = SCR_JUST_LEFT; ;} + { (yyval.ival) = SCR_JUST_LEFT; } +#line 6114 "htcobol.tab.c" break; - case 389: - -/* Line 1464 of yacc.c */ + case 389: /* screen_attribx: BLINK */ #line 1178 "htcobol.y" - { (yyval.ival) = SCR_BLINK; ;} + { (yyval.ival) = SCR_BLINK; } +#line 6120 "htcobol.tab.c" break; - case 390: - -/* Line 1464 of yacc.c */ + case 390: /* screen_attribx: REVERSEVIDEO */ #line 1179 "htcobol.y" - { (yyval.ival) = SCR_REVERSE_VIDEO; ;} + { (yyval.ival) = SCR_REVERSE_VIDEO; } +#line 6126 "htcobol.tab.c" break; - case 391: - -/* Line 1464 of yacc.c */ + case 391: /* screen_attribx: UNDERLINE */ #line 1180 "htcobol.y" - { (yyval.ival) = SCR_UNDERLINE; ;} + { (yyval.ival) = SCR_UNDERLINE; } +#line 6132 "htcobol.tab.c" break; - case 392: - -/* Line 1464 of yacc.c */ + case 392: /* screen_attribx: LOWLIGHT */ #line 1181 "htcobol.y" - { (yyval.ival) = SCR_LOWLIGHT; ;} + { (yyval.ival) = SCR_LOWLIGHT; } +#line 6138 "htcobol.tab.c" break; - case 393: - -/* Line 1464 of yacc.c */ + case 393: /* screen_attribx: HIGHLIGHT */ #line 1182 "htcobol.y" - { (yyval.ival) = SCR_HIGHLIGHT; ;} + { (yyval.ival) = SCR_HIGHLIGHT; } +#line 6144 "htcobol.tab.c" break; - case 394: - -/* Line 1464 of yacc.c */ + case 394: /* screen_attribx: BLANK when_opt ZERO */ #line 1183 "htcobol.y" - { (yyval.ival) = SCR_BLANK_WHEN_ZERO; ;} + { (yyval.ival) = SCR_BLANK_WHEN_ZERO; } +#line 6150 "htcobol.tab.c" break; - case 395: - -/* Line 1464 of yacc.c */ + case 395: /* screen_attribx: with_opt NOECHO */ #line 1184 "htcobol.y" - { (yyval.ival) = SCR_NOECHO; ;} + { (yyval.ival) = SCR_NOECHO; } +#line 6156 "htcobol.tab.c" break; - case 396: - -/* Line 1464 of yacc.c */ + case 396: /* screen_attribx: with_opt UPDATE */ #line 1185 "htcobol.y" - { (yyval.ival) = SCR_UPDATE; ;} + { (yyval.ival) = SCR_UPDATE; } +#line 6162 "htcobol.tab.c" break; - case 397: - -/* Line 1464 of yacc.c */ + case 397: /* screen_attribx: with_opt NO ADVANCING */ #line 1186 "htcobol.y" - { (yyval.ival) = SCR_NO_ADVANCING; ;} + { (yyval.ival) = SCR_NO_ADVANCING; } +#line 6168 "htcobol.tab.c" break; - case 398: - -/* Line 1464 of yacc.c */ + case 398: /* screen_attribx: UPPER */ #line 1187 "htcobol.y" - { (yyval.ival) = SCR_UPPER; ;} + { (yyval.ival) = SCR_UPPER; } +#line 6174 "htcobol.tab.c" break; - case 399: - -/* Line 1464 of yacc.c */ + case 399: /* screen_attribx: LOWER */ #line 1188 "htcobol.y" - { (yyval.ival) = SCR_LOWER; ;} + { (yyval.ival) = SCR_LOWER; } +#line 6180 "htcobol.tab.c" break; - case 400: - -/* Line 1464 of yacc.c */ + case 400: /* screen_attribx: FOREGROUNDCOLOR integer */ #line 1189 "htcobol.y" - { (yyval.ival) = 0; fg = (yyvsp[(2) - (2)].ival); ;} + { (yyval.ival) = 0; fg = (yyvsp[0].ival); } +#line 6186 "htcobol.tab.c" break; - case 401: - -/* Line 1464 of yacc.c */ + case 401: /* screen_attribx: BACKGROUNDCOLOR integer */ #line 1190 "htcobol.y" - { (yyval.ival) = 0; bg = (yyvsp[(2) - (2)].ival); ;} + { (yyval.ival) = 0; bg = (yyvsp[0].ival); } +#line 6192 "htcobol.tab.c" break; - case 402: - -/* Line 1464 of yacc.c */ + case 402: /* sign_clause: sign_is_opt LEADING separate_opt */ #line 1195 "htcobol.y" - { (yyval.ival) = SCR_SIGN_LEADING | (yyvsp[(3) - (3)].ival); ;} + { (yyval.ival) = SCR_SIGN_LEADING | (yyvsp[0].ival); } +#line 6198 "htcobol.tab.c" break; - case 403: - -/* Line 1464 of yacc.c */ + case 403: /* sign_clause: sign_is_opt TRAILING separate_opt */ #line 1197 "htcobol.y" - { (yyval.ival) = (yyvsp[(3) - (3)].ival); ;} + { (yyval.ival) = (yyvsp[0].ival); } +#line 6204 "htcobol.tab.c" break; - case 404: - -/* Line 1464 of yacc.c */ + case 404: /* separate_opt: SEPARATE character_opt */ #line 1200 "htcobol.y" - { (yyval.ival) = SCR_SIGN_SEPARATE; ;} + { (yyval.ival) = SCR_SIGN_SEPARATE; } +#line 6210 "htcobol.tab.c" break; - case 405: - -/* Line 1464 of yacc.c */ + case 405: /* separate_opt: %empty */ #line 1201 "htcobol.y" - { (yyval.ival) = 0; ;} + { (yyval.ival) = 0; } +#line 6216 "htcobol.tab.c" break; - case 410: - -/* Line 1464 of yacc.c */ + case 410: /* plus_minus_opt: PLUS */ #line 1212 "htcobol.y" - { (yyval.ival) = 1; ;} + { (yyval.ival) = 1; } +#line 6222 "htcobol.tab.c" break; - case 411: - -/* Line 1464 of yacc.c */ + case 411: /* plus_minus_opt: '+' */ #line 1213 "htcobol.y" - { (yyval.ival) = 1; ;} + { (yyval.ival) = 1; } +#line 6228 "htcobol.tab.c" break; - case 412: - -/* Line 1464 of yacc.c */ + case 412: /* plus_minus_opt: MINUS */ #line 1214 "htcobol.y" - { (yyval.ival) = -1; ;} + { (yyval.ival) = -1; } +#line 6234 "htcobol.tab.c" break; - case 413: - -/* Line 1464 of yacc.c */ + case 413: /* plus_minus_opt: '-' */ #line 1215 "htcobol.y" - { (yyval.ival) = -1; ;} + { (yyval.ival) = -1; } +#line 6240 "htcobol.tab.c" break; - case 414: - -/* Line 1464 of yacc.c */ + case 414: /* plus_minus_opt: %empty */ #line 1216 "htcobol.y" - { (yyval.ival) = 0; ;} + { (yyval.ival) = 0; } +#line 6246 "htcobol.tab.c" break; - case 417: - -/* Line 1464 of yacc.c */ + case 417: /* $@38: %empty */ #line 1229 "htcobol.y" - { curr_division = CDIV_FD; ;} + { curr_division = CDIV_FD; } +#line 6252 "htcobol.tab.c" break; - case 418: - -/* Line 1464 of yacc.c */ + case 418: /* $@39: %empty */ #line 1231 "htcobol.y" - { curr_division = CDIV_DATA; ;} + { curr_division = CDIV_DATA; } +#line 6258 "htcobol.tab.c" break; - case 419: - -/* Line 1464 of yacc.c */ + case 419: /* $@40: %empty */ #line 1233 "htcobol.y" - { + { curr_field=NULL; - if ((yyvsp[(4) - (7)].sval)->filenamevar == NULL) { - yyerror("External file name not defined for file %s", (yyvsp[(4) - (7)].sval)->name); + 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: - -/* Line 1464 of yacc.c */ + 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[(4) - (9)].sval)); - gen_fdesc((yyvsp[(4) - (9)].sval),(yyvsp[(9) - (9)].sval)); - ;} + alloc_file_entry((yyvsp[-5].sval)); + gen_fdesc((yyvsp[-5].sval),(yyvsp[0].sval)); + } +#line 6279 "htcobol.tab.c" break; - case 421: - -/* Line 1464 of yacc.c */ + case 421: /* $@41: %empty */ #line 1245 "htcobol.y" - { curr_division = CDIV_FD; ;} + { curr_division = CDIV_FD; } +#line 6285 "htcobol.tab.c" break; - case 422: - -/* Line 1464 of yacc.c */ + case 422: /* $@42: %empty */ #line 1246 "htcobol.y" - { curr_division = CDIV_DATA; ;} + { curr_division = CDIV_DATA; } +#line 6291 "htcobol.tab.c" break; - case 423: - -/* Line 1464 of yacc.c */ + case 423: /* $@43: %empty */ #line 1248 "htcobol.y" - { - (yyvsp[(4) - (7)].sval)->organization=2; + { + (yyvsp[-3].sval)->organization=2; curr_field=NULL; - ;} + } +#line 6300 "htcobol.tab.c" break; - case 424: - -/* Line 1464 of yacc.c */ + 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[(4) - (9)].sval)); - (yyvsp[(4) - (9)].sval)->sort_file = 1; - gen_fdesc((yyvsp[(4) - (9)].sval),(yyvsp[(9) - (9)].sval)); - ;} + 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: - -/* Line 1464 of yacc.c */ + case 425: /* file_section: error */ #line 1259 "htcobol.y" - { yyerror("missing or invalid file description entry"); ;} + { yyerror("missing or invalid file description entry"); } +#line 6317 "htcobol.tab.c" break; - case 427: - -/* Line 1464 of yacc.c */ + case 427: /* file_description: field_description */ #line 1263 "htcobol.y" - { (yyval.sval)=(yyvsp[(1) - (1)].sval); ;} + { (yyval.sval)=(yyvsp[0].sval); } +#line 6323 "htcobol.tab.c" break; - case 428: - -/* Line 1464 of yacc.c */ + case 428: /* file_description: file_description field_description */ #line 1265 "htcobol.y" { - if (((yyvsp[(2) - (2)].sval) != NULL) && ((yyvsp[(2) - (2)].sval)->level == 1)) { + if (((yyvsp[0].sval) != NULL) && ((yyvsp[0].sval)->level == 1)) { /* multiple 01 records (for a file descriptor) */ - (yyvsp[(2) - (2)].sval)->redefines=(yyvsp[(1) - (2)].sval); - (yyval.sval)=(yyvsp[(2) - (2)].sval); + (yyvsp[0].sval)->redefines=(yyvsp[-1].sval); + (yyval.sval)=(yyvsp[0].sval); } else - (yyval.sval)=(yyvsp[(1) - (2)].sval); - ;} + (yyval.sval)=(yyvsp[-1].sval); + } +#line 6337 "htcobol.tab.c" break; - case 429: - -/* Line 1464 of yacc.c */ + case 429: /* $@44: %empty */ #line 1280 "htcobol.y" { picix=piccnt=v_flag=n_flag=decimals=pscale=0; - if ((yyvsp[(1) - (2)].ival) == 78) { + if ((yyvsp[-1].ival) == 78) { yyerror("level 78 not supported"); } - if ((yyvsp[(2) - (2)].sval)==NULL) { - define_field((yyvsp[(1) - (2)].ival),alloc_filler()); + if ((yyvsp[0].sval)==NULL) { + define_field((yyvsp[-1].ival),alloc_filler()); } else { - define_field((yyvsp[(1) - (2)].ival),(yyvsp[(2) - (2)].sval)); + define_field((yyvsp[-1].ival),(yyvsp[0].sval)); } - ;} + } +#line 6354 "htcobol.tab.c" break; - case 430: - -/* Line 1464 of yacc.c */ + case 430: /* field_description: integer def_name_opt $@44 data_clauses PERIOD_TOK */ #line 1293 "htcobol.y" { - (yyval.sval)=(yyvsp[(2) - (5)].sval); + (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: - -/* Line 1464 of yacc.c */ + case 434: /* $@45: %empty */ #line 1306 "htcobol.y" - { curr_division = CDIV_PROC; /* parsing variable */ ;} + { curr_division = CDIV_PROC; /* parsing variable */ } +#line 6370 "htcobol.tab.c" break; - case 435: - -/* Line 1464 of yacc.c */ + 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[(3) - (3)].sval)); + (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: - -/* Line 1464 of yacc.c */ + case 436: /* redefines_var: VARIABLE */ #line 1319 "htcobol.y" - { (yyval.sval)=(yyvsp[(1) - (1)].sval); ;} + { (yyval.sval)=(yyvsp[0].sval); } +#line 6390 "htcobol.tab.c" break; - case 437: - -/* Line 1464 of yacc.c */ + case 437: /* redefines_var: SUBSCVAR */ #line 1320 "htcobol.y" - { (yyval.sval)=(yyvsp[(1) - (1)].sval); ;} + { (yyval.sval)=(yyvsp[0].sval); } +#line 6396 "htcobol.tab.c" break; - case 441: - -/* Line 1464 of yacc.c */ + case 441: /* data_clause: sign_clause */ #line 1326 "htcobol.y" - { - curr_field->flags.separate_sign = ((yyvsp[(1) - (1)].ival) & SCR_SIGN_SEPARATE) ? 1 : 0; - curr_field->flags.leading_sign = ((yyvsp[(1) - (1)].ival) & SCR_SIGN_LEADING) ? 1 : 0; ;} + { + 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: - -/* Line 1464 of yacc.c */ + case 443: /* data_clause: SYNCHRONIZED sync_options */ #line 1330 "htcobol.y" - {curr_field->flags.sync=1;;} + {curr_field->flags.sync=1;} +#line 6410 "htcobol.tab.c" break; - case 444: - -/* Line 1464 of yacc.c */ + case 444: /* data_clause: JUSTIFIED sync_options */ #line 1331 "htcobol.y" - {if ((yyvsp[(2) - (2)].ival) != 2) curr_field->flags.just_r=1;;} + {if ((yyvsp[0].ival) != 2) curr_field->flags.just_r=1;} +#line 6416 "htcobol.tab.c" break; - case 445: - -/* Line 1464 of yacc.c */ + case 445: /* data_clause: is_opt EXTERNAL */ #line 1332 "htcobol.y" - {save_named_sect(curr_field);;} + {save_named_sect(curr_field);} +#line 6422 "htcobol.tab.c" break; - case 446: - -/* Line 1464 of yacc.c */ + case 446: /* data_clause: is_opt GLOBAL */ #line 1333 "htcobol.y" - {;} + {} +#line 6428 "htcobol.tab.c" break; - case 447: - -/* Line 1464 of yacc.c */ + case 447: /* data_clause: BLANK when_opt ZERO */ #line 1334 "htcobol.y" - { curr_field->flags.blank=1; ;} + { curr_field->flags.blank=1; } +#line 6434 "htcobol.tab.c" break; - case 448: - -/* Line 1464 of yacc.c */ + case 448: /* $@46: %empty */ #line 1335 "htcobol.y" - { curr_division = CDIV_PROC /* for parsing variable */; ;} + { curr_division = CDIV_PROC /* for parsing variable */; } +#line 6440 "htcobol.tab.c" break; - case 449: - -/* Line 1464 of yacc.c */ + case 449: /* data_clause: RENAMES $@46 variable thru_gname_opt */ #line 1337 "htcobol.y" - { curr_division = CDIV_DATA; - update_renames_field((yyvsp[(3) - (4)].sval), (yyvsp[(4) - (4)].sval));;} + { curr_division = CDIV_DATA; + update_renames_field((yyvsp[-1].sval), (yyvsp[0].sval));} +#line 6447 "htcobol.tab.c" break; - case 450: - -/* Line 1464 of yacc.c */ + case 450: /* sync_options: %empty */ #line 1341 "htcobol.y" - {(yyval.ival)=0;;} + {(yyval.ival)=0;} +#line 6453 "htcobol.tab.c" break; - case 451: - -/* Line 1464 of yacc.c */ + case 451: /* sync_options: LEFT */ #line 1342 "htcobol.y" - {(yyval.ival)=2;;} + {(yyval.ival)=2;} +#line 6459 "htcobol.tab.c" break; - case 452: - -/* Line 1464 of yacc.c */ + case 452: /* sync_options: RIGHT */ #line 1343 "htcobol.y" - {(yyval.ival)=1;;} + {(yyval.ival)=1;} +#line 6465 "htcobol.tab.c" break; - case 453: - -/* Line 1464 of yacc.c */ + case 453: /* thru_gname_opt: %empty */ #line 1345 "htcobol.y" - { (yyval.sval) = NULL;;} + { (yyval.sval) = NULL;} +#line 6471 "htcobol.tab.c" break; - case 454: - -/* Line 1464 of yacc.c */ + case 454: /* thru_gname_opt: THRU variable */ #line 1346 "htcobol.y" - { (yyval.sval) = (yyvsp[(2) - (2)].sval);;} + { (yyval.sval) = (yyvsp[0].sval);} +#line 6477 "htcobol.tab.c" break; - case 455: - -/* Line 1464 of yacc.c */ + case 455: /* $@47: %empty */ #line 1352 "htcobol.y" - { curr_field->times = (yyvsp[(2) - (3)].ival); curr_field->occurs_flg++; ;} + { curr_field->times = (yyvsp[-1].ival); curr_field->occurs_flg++; } +#line 6483 "htcobol.tab.c" break; - case 457: - -/* Line 1464 of yacc.c */ + case 457: /* $@48: %empty */ #line 1355 "htcobol.y" - { curr_division = CDIV_PROC; /* needed for parsing variable */ ;} + { curr_division = CDIV_PROC; /* needed for parsing variable */ } +#line 6489 "htcobol.tab.c" break; - case 458: - -/* Line 1464 of yacc.c */ + case 458: /* $@49: %empty */ #line 1357 "htcobol.y" - { + { curr_division = CDIV_DATA; - create_occurs_info((yyvsp[(2) - (9)].ival),(yyvsp[(4) - (9)].ival),(yyvsp[(9) - (9)].sval)); - ;} + create_occurs_info((yyvsp[-7].ival),(yyvsp[-5].ival),(yyvsp[0].sval)); + } +#line 6498 "htcobol.tab.c" break; - case 460: - -/* Line 1464 of yacc.c */ + case 460: /* key_is_opt: DIRECTION key_opt is_opt STRING */ #line 1365 "htcobol.y" { - (yyvsp[(4) - (4)].sval)->level=0; - if ((yyvsp[(1) - (4)].ival) == ASCENDING) { - (yyvsp[(4) - (4)].sval)->level=-1; + (yyvsp[0].sval)->level=0; + if ((yyvsp[-3].ival) == ASCENDING) { + (yyvsp[0].sval)->level=-1; } - if ((yyvsp[(1) - (4)].ival) == DESCENDING) { - (yyvsp[(4) - (4)].sval)->level=-2; + if ((yyvsp[-3].ival) == DESCENDING) { + (yyvsp[0].sval)->level=-2; } - (yyval.sval)=(yyvsp[(4) - (4)].sval); - ;} + (yyval.sval)=(yyvsp[0].sval); + } +#line 6513 "htcobol.tab.c" break; - case 461: - -/* Line 1464 of yacc.c */ + case 461: /* key_is_opt: %empty */ #line 1375 "htcobol.y" - { (yyval.sval)=NULL; ;} + { (yyval.sval)=NULL; } +#line 6519 "htcobol.tab.c" break; - case 462: - -/* Line 1464 of yacc.c */ + 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);*/ @@ -7050,15 +6530,14 @@ yyreduce: else { define_implicit_field($4, $1, curr_field->times); } */ - ;} + } +#line 6535 "htcobol.tab.c" break; - case 464: - -/* Line 1464 of yacc.c */ + case 464: /* index_name_list: def_name */ #line 1394 "htcobol.y" - { - define_implicit_field((yyvsp[(1) - (1)].sval), (yyvsp[(-2) - (1)].sval), curr_field->times); + { + 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); @@ -7067,77 +6546,68 @@ yyreduce: else { define_implicit_field($4, $1, curr_field->times); } */ - ;} + } +#line 6551 "htcobol.tab.c" break; - case 465: - -/* Line 1464 of yacc.c */ + case 465: /* index_name_list: index_name_list def_name */ #line 1406 "htcobol.y" - { - define_implicit_field((yyvsp[(2) - (2)].sval),(yyvsp[(-2) - (2)].sval),curr_field->times); - ;} + { + define_implicit_field((yyvsp[0].sval),(yyvsp[(-2) - (2)].sval),curr_field->times); + } +#line 6559 "htcobol.tab.c" break; - case 466: - -/* Line 1464 of yacc.c */ + case 466: /* usage_option: usage_opt is_opt usage */ #line 1414 "htcobol.y" - { set_usage(curr_field, (yyvsp[(3) - (3)].ival)); ;} + { set_usage(curr_field, (yyvsp[0].ival)); } +#line 6565 "htcobol.tab.c" break; - case 467: - -/* Line 1464 of yacc.c */ + case 467: /* usage: USAGENUM */ #line 1417 "htcobol.y" - { (yyval.ival)=(yyvsp[(1) - (1)].ival); ;} + { (yyval.ival)=(yyvsp[0].ival); } +#line 6571 "htcobol.tab.c" break; - case 468: - -/* Line 1464 of yacc.c */ + case 468: /* usage: DISPLAY */ #line 1418 "htcobol.y" - { (yyval.ival)=USAGE_DISPLAY; ;} + { (yyval.ival)=USAGE_DISPLAY; } +#line 6577 "htcobol.tab.c" break; - case 469: - -/* Line 1464 of yacc.c */ + case 469: /* usage: POINTER */ #line 1419 "htcobol.y" - { (yyval.ival)=USAGE_POINTER; ;} + { (yyval.ival)=USAGE_POINTER; } +#line 6583 "htcobol.tab.c" break; - case 475: - -/* Line 1464 of yacc.c */ + case 475: /* value: gliteral */ #line 1436 "htcobol.y" - { set_variable_values((yyvsp[(1) - (1)].lval),(yyvsp[(1) - (1)].lval)); ;} + { set_variable_values((yyvsp[0].lval),(yyvsp[0].lval)); } +#line 6589 "htcobol.tab.c" break; - case 476: - -/* Line 1464 of yacc.c */ + case 476: /* value: gliteral THRU gliteral */ #line 1438 "htcobol.y" - { - set_variable_values((yyvsp[(1) - (3)].lval),(yyvsp[(3) - (3)].lval)); - ;} + { + set_variable_values((yyvsp[-2].lval),(yyvsp[0].lval)); + } +#line 6597 "htcobol.tab.c" break; - case 477: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + case 478: /* pictures: PICTURE $@50 is_opt picture */ #line 1454 "htcobol.y" { /* finish picture */ @@ -7150,661 +6620,581 @@ yyreduce: 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: - -/* Line 1464 of yacc.c */ + case 481: /* pic_elem: CHAR multiplier_opt */ #line 1472 "htcobol.y" { - if (!save_pic_char ( (yyvsp[(1) - (2)].ival), (yyvsp[(2) - (2)].ival) )) { + if (!save_pic_char ( (yyvsp[-1].ival), (yyvsp[0].ival) )) { yyerror("invalid char in picture"); YYERROR; } - ;} + } +#line 6636 "htcobol.tab.c" break; - case 482: - -/* Line 1464 of yacc.c */ + case 482: /* multiplier_opt: %empty */ #line 1480 "htcobol.y" - { (yyval.ival) = 1; ;} + { (yyval.ival) = 1; } +#line 6642 "htcobol.tab.c" break; - case 483: - -/* Line 1464 of yacc.c */ + case 483: /* multiplier_opt: MULTIPLIER */ #line 1481 "htcobol.y" - { (yyval.ival) = (yyvsp[(1) - (1)].ival); ;} + { (yyval.ival) = (yyvsp[0].ival); } +#line 6648 "htcobol.tab.c" break; - case 488: - -/* Line 1464 of yacc.c */ + case 488: /* file_description_fd_clause: is_opt EXTERNAL */ #line 1492 "htcobol.y" - { (yyvsp[(0) - (2)].sval)->type = 'K'; ;} + { (yyvsp[-2].sval)->type = 'K'; } +#line 6654 "htcobol.tab.c" break; - case 489: - -/* Line 1464 of yacc.c */ + case 489: /* file_description_fd_clause: is_opt GLOBAL */ #line 1493 "htcobol.y" - { (yyvsp[(0) - (2)].sval)->type = 'J'; ;} + { (yyvsp[-2].sval)->type = 'J'; } +#line 6660 "htcobol.tab.c" break; - case 500: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + case 501: /* file_description_clause_record: RECORD contains_opt integer to_rec_varying character_opts */ #line 1518 "htcobol.y" { - if ((yyvsp[(4) - (5)].lval) != NULL) { + if ((yyvsp[-1].lval) != NULL) { UNIMPLEMENTED ("RECORD CONTAINS integer1 TO integer2 CHARACTERS clause") /* unimplemented */ } - ;} + } +#line 6679 "htcobol.tab.c" break; - case 502: - -/* Line 1464 of yacc.c */ + 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[(9) - (9)].sval) != NULL) { - set_rec_varying_info( (yyvsp[(-2) - (9)].sval),(yyvsp[(6) - (9)].lval),(yyvsp[(7) - (9)].lval),(yyvsp[(9) - (9)].sval) ); + { + 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: - -/* Line 1464 of yacc.c */ + case 503: /* file_description_clause_label: LABEL record_is_are std_or_omitt */ #line 1537 "htcobol.y" - { /* obsolete */ ;} + { /* obsolete */ } +#line 6698 "htcobol.tab.c" break; - case 504: - -/* Line 1464 of yacc.c */ + 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[(5) - (5)].sval); + (yyvsp[(-2) - (5)].sval)->filenamevar = (yyvsp[0].sval); } - ;} + } +#line 6711 "htcobol.tab.c" break; - case 505: - -/* Line 1464 of yacc.c */ + case 505: /* file_description_clause_data: DATA record_is_are var_strings */ #line 1551 "htcobol.y" - { /* obsolete */ ;} + { /* obsolete */ } +#line 6717 "htcobol.tab.c" break; - case 506: - -/* Line 1464 of yacc.c */ + case 506: /* file_description_clause_report: report_is_are STRING */ #line 1554 "htcobol.y" - { save_report( (yyvsp[(2) - (2)].sval),(yyvsp[(0) - (2)].sval) ); ;} + { save_report( (yyvsp[0].sval),(yyvsp[-2].sval) ); } +#line 6723 "htcobol.tab.c" break; - case 507: - -/* Line 1464 of yacc.c */ + case 507: /* file_description_clause_code_set: CODE_SET is_opt STRING */ #line 1558 "htcobol.y" - { UNIMPLEMENTED ("Code-set is alphabet") /* unimplemented */ ;} + { UNIMPLEMENTED ("Code-set is alphabet") /* unimplemented */ } +#line 6729 "htcobol.tab.c" break; - case 508: - -/* Line 1464 of yacc.c */ + 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 */ ;} + { UNIMPLEMENTED ("Linage is clause") /* unimplemented */ } +#line 6735 "htcobol.tab.c" break; - case 510: - -/* Line 1464 of yacc.c */ + case 510: /* file_description_clause_linage_footing: with_opt FOOTING at_opt data_name */ #line 1568 "htcobol.y" - { /* unimplemented */ ;} + { /* unimplemented */ } +#line 6741 "htcobol.tab.c" break; - case 512: - -/* Line 1464 of yacc.c */ + case 512: /* file_description_clause_linage_top: lines_at_opt TOP data_name */ #line 1571 "htcobol.y" - { /* unimplemented */ ;} + { /* unimplemented */ } +#line 6747 "htcobol.tab.c" break; - case 514: - -/* Line 1464 of yacc.c */ + case 514: /* file_description_clause_linage_bottom: lines_at_opt BOTTOM data_name */ #line 1574 "htcobol.y" - { /* unimplemented */ ;} + { /* unimplemented */ } +#line 6753 "htcobol.tab.c" break; - case 521: - -/* Line 1464 of yacc.c */ + case 521: /* var_strings: STRING */ #line 1584 "htcobol.y" - { ;} + { } +#line 6759 "htcobol.tab.c" break; - case 522: - -/* Line 1464 of yacc.c */ + case 522: /* var_strings: var_strings STRING */ #line 1585 "htcobol.y" - { ;} + { } +#line 6765 "htcobol.tab.c" break; - case 527: - -/* Line 1464 of yacc.c */ + case 527: /* to_integer_opt: TO integer */ #line 1593 "htcobol.y" - { ;} + { } +#line 6771 "htcobol.tab.c" break; - case 528: - -/* Line 1464 of yacc.c */ + case 528: /* depend_rec_varying: %empty */ #line 1595 "htcobol.y" - { (yyval.sval) = NULL; ;} + { (yyval.sval) = NULL; } +#line 6777 "htcobol.tab.c" break; - case 529: - -/* Line 1464 of yacc.c */ + case 529: /* depend_rec_varying: DEPENDING on_opt STRING */ #line 1596 "htcobol.y" - { (yyval.sval) = (yyvsp[(3) - (3)].sval); ;} + { (yyval.sval) = (yyvsp[0].sval); } +#line 6783 "htcobol.tab.c" break; - case 530: - -/* Line 1464 of yacc.c */ + case 530: /* from_rec_varying: %empty */ #line 1599 "htcobol.y" - { (yyval.lval) = NULL; ;} + { (yyval.lval) = NULL; } +#line 6789 "htcobol.tab.c" break; - case 531: - -/* Line 1464 of yacc.c */ + case 531: /* from_rec_varying: from_opt nliteral */ #line 1600 "htcobol.y" - { (yyval.lval) = (yyvsp[(2) - (2)].lval); ;} + { (yyval.lval) = (yyvsp[0].lval); } +#line 6795 "htcobol.tab.c" break; - case 534: - -/* Line 1464 of yacc.c */ + case 534: /* to_rec_varying: %empty */ #line 1607 "htcobol.y" - { (yyval.lval) = NULL; ;} + { (yyval.lval) = NULL; } +#line 6801 "htcobol.tab.c" break; - case 535: - -/* Line 1464 of yacc.c */ + case 535: /* to_rec_varying: TO nliteral */ #line 1608 "htcobol.y" - { (yyval.lval) = (yyvsp[(2) - (2)].lval); ;} + { (yyval.lval) = (yyvsp[0].lval); } +#line 6807 "htcobol.tab.c" break; - case 558: - -/* Line 1464 of yacc.c */ + case 558: /* $@51: %empty */ #line 1672 "htcobol.y" { curr_division = CDIV_PROC; - ;} + } +#line 6815 "htcobol.tab.c" break; - case 559: - -/* Line 1464 of yacc.c */ + case 559: /* $@52: %empty */ #line 1676 "htcobol.y" { - proc_header((yyvsp[(4) - (5)].ival)); - ;} + proc_header((yyvsp[-1].ival)); + } +#line 6823 "htcobol.tab.c" break; - case 560: - -/* Line 1464 of yacc.c */ + 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) - (8)].ival)); - ;} + proc_trail((yyvsp[-4].ival)); + } +#line 6834 "htcobol.tab.c" break; - case 564: - -/* Line 1464 of yacc.c */ + case 564: /* procedure_decl: procedure_section */ #line 1693 "htcobol.y" - { close_section(); open_section((yyvsp[(1) - (1)].sval)); ;} + { close_section(); open_section((yyvsp[0].sval)); } +#line 6840 "htcobol.tab.c" break; - case 565: - -/* Line 1464 of yacc.c */ + case 565: /* procedure_decl: paragraph */ #line 1694 "htcobol.y" - { close_paragr(); open_paragr((yyvsp[(1) - (1)].sval)); ;} + { close_paragr(); open_paragr((yyvsp[0].sval)); } +#line 6846 "htcobol.tab.c" break; - case 566: - -/* Line 1464 of yacc.c */ + case 566: /* $@53: %empty */ #line 1695 "htcobol.y" - {free_expr_list(); stabs_line();;} + {free_expr_list(); stabs_line();} +#line 6852 "htcobol.tab.c" break; - case 568: - -/* Line 1464 of yacc.c */ + case 568: /* $@54: %empty */ #line 1697 "htcobol.y" - { yyerror("unknown or wrong statement"); ;} + { yyerror("unknown or wrong statement"); } +#line 6858 "htcobol.tab.c" break; - case 570: - -/* Line 1464 of yacc.c */ + case 570: /* procedure_decl: PERIOD_TOK */ #line 1698 "htcobol.y" - { ;} + { } +#line 6864 "htcobol.tab.c" break; - case 571: - -/* Line 1464 of yacc.c */ + case 571: /* $@55: %empty */ #line 1703 "htcobol.y" - { + { decl_lbl=loc_label++; gen_jmplabel(decl_lbl); - ;} + } +#line 6873 "htcobol.tab.c" break; - case 572: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + case 577: /* declaratives_decl: paragraph */ #line 1722 "htcobol.y" - { close_paragr(); open_paragr((yyvsp[(1) - (1)].sval)); ;} + { close_paragr(); open_paragr((yyvsp[0].sval)); } +#line 6887 "htcobol.tab.c" break; - case 578: - -/* Line 1464 of yacc.c */ + case 578: /* $@56: %empty */ #line 1723 "htcobol.y" - {free_expr_list(); stabs_line();;} + {free_expr_list(); stabs_line();} +#line 6893 "htcobol.tab.c" break; - case 580: - -/* Line 1464 of yacc.c */ + case 580: /* $@57: %empty */ #line 1724 "htcobol.y" - { yyerror("unknown or wrong statement"); ;} + { yyerror("unknown or wrong statement"); } +#line 6899 "htcobol.tab.c" break; - case 582: - -/* Line 1464 of yacc.c */ + case 582: /* $@58: %empty */ #line 1730 "htcobol.y" { close_section(); - open_section((yyvsp[(1) - (1)].sval)); - ;} + open_section((yyvsp[0].sval)); + } +#line 6908 "htcobol.tab.c" break; - case 584: - -/* Line 1464 of yacc.c */ + case 584: /* declaratives_procedure: error */ #line 1735 "htcobol.y" - { yyerror("section name expected"); ;} + { yyerror("section name expected"); } +#line 6914 "htcobol.tab.c" break; - case 585: - -/* Line 1464 of yacc.c */ + 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); */ ;} + { /* mark_decl_list($6); */ } +#line 6920 "htcobol.tab.c" break; - case 586: - -/* Line 1464 of yacc.c */ + case 586: /* use_phrase: error */ #line 1740 "htcobol.y" - { yyerror("use statement expected"); ;} + { yyerror("use statement expected"); } +#line 6926 "htcobol.tab.c" break; - case 591: - -/* Line 1464 of yacc.c */ + case 591: /* use_phrase_option: gname_list */ #line 1748 "htcobol.y" - { (yyval.glistval)=(yyvsp[(1) - (1)].glistval); ;} + { (yyval.glistval)=(yyvsp[0].glistval); } +#line 6932 "htcobol.tab.c" break; - case 592: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + case 593: /* procedure_section: LABELSTR SECTION PERIOD_TOK */ #line 1761 "htcobol.y" { - struct sym *lab=(yyvsp[(1) - (3)].sval); + 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: - -/* Line 1464 of yacc.c */ + case 594: /* paragraph: LABELSTR dot_or_eos */ #line 1772 "htcobol.y" { - struct sym *lab=(yyvsp[(1) - (2)].sval); + struct sym *lab=(yyvsp[-1].sval); if (lab->defined != 0) { if ((lab=lookup_label(lab,curr_section))==NULL) { - lab = install((yyvsp[(1) - (2)].sval)->name,SYTB_LAB,2); + 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: - -/* Line 1464 of yacc.c */ + case 597: /* statement_list: statements */ #line 1794 "htcobol.y" - { ;} + { } +#line 6977 "htcobol.tab.c" break; - case 642: - -/* Line 1464 of yacc.c */ + case 642: /* statement: CONTINUE */ #line 1843 "htcobol.y" - { stabs_line(); ;} + { stabs_line(); } +#line 6983 "htcobol.tab.c" break; - case 644: - -/* Line 1464 of yacc.c */ + case 644: /* $@59: %empty */ #line 1853 "htcobol.y" - { gen_dstlabel((yyvsp[(1) - (1)].dval)); ;} + { gen_dstlabel((yyvsp[0].dval)); } +#line 6989 "htcobol.tab.c" break; - case 646: - -/* Line 1464 of yacc.c */ + case 646: /* @60: %empty */ #line 1855 "htcobol.y" - { (yyval.dval)=gen_passlabel(); gen_dstlabel((yyvsp[(1) - (2)].dval)); ;} + { (yyval.dval)=gen_passlabel(); gen_dstlabel((yyvsp[-1].dval)); } +#line 6995 "htcobol.tab.c" break; - case 647: - -/* Line 1464 of yacc.c */ + case 647: /* $@61: %empty */ #line 1857 "htcobol.y" - { gen_dstlabel((yyvsp[(3) - (4)].dval)); ;} + { gen_dstlabel((yyvsp[-1].dval)); } +#line 7001 "htcobol.tab.c" break; - case 651: - -/* Line 1464 of yacc.c */ + case 651: /* @62: %empty */ #line 1866 "htcobol.y" - { (yyval.ival) = gen_evaluate_start(); ;} + { (yyval.ival) = gen_evaluate_start(); } +#line 7007 "htcobol.tab.c" break; - case 652: - -/* Line 1464 of yacc.c */ + case 652: /* $@63: %empty */ #line 1868 "htcobol.y" - { compute_subject_set_size((yyvsp[(3) - (3)].ssbjval)); ;} + { compute_subject_set_size((yyvsp[0].ssbjval)); } +#line 7013 "htcobol.tab.c" break; - case 653: - -/* Line 1464 of yacc.c */ + 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[(2) - (6)].ival),(yyvsp[(3) - (6)].ssbjval)); ;} + { release_sel_subject((yyvsp[-4].ival),(yyvsp[-3].ssbjval)); } +#line 7019 "htcobol.tab.c" break; - case 656: - -/* Line 1464 of yacc.c */ + case 656: /* @64: %empty */ #line 1878 "htcobol.y" - { (yyval.sval)=NULL; /* to store non-numeric symbols */ ;} + { (yyval.sval)=NULL; /* to store non-numeric symbols */ } +#line 7025 "htcobol.tab.c" break; - case 657: - -/* Line 1464 of yacc.c */ + case 657: /* selection_subject_set: @64 selection_subject */ #line 1879 "htcobol.y" - { (yyval.ssbjval)=save_sel_subject((yyvsp[(2) - (2)].ival),NULL,(yyvsp[(1) - (2)].sval)); ;} + { (yyval.ssbjval)=save_sel_subject((yyvsp[0].ival),NULL,(yyvsp[-1].sval)); } +#line 7031 "htcobol.tab.c" break; - case 658: - -/* Line 1464 of yacc.c */ + case 658: /* @65: %empty */ #line 1881 "htcobol.y" - { (yyval.sval)=NULL; /* to store non-numeric symbols */ ;} + { (yyval.sval)=NULL; /* to store non-numeric symbols */ } +#line 7037 "htcobol.tab.c" break; - case 659: - -/* Line 1464 of yacc.c */ + case 659: /* selection_subject_set: selection_subject_set ALSO @65 selection_subject */ #line 1883 "htcobol.y" - { (yyval.ssbjval)=save_sel_subject((yyvsp[(4) - (4)].ival),(yyvsp[(1) - (4)].ssbjval),(yyvsp[(3) - (4)].sval)); ;} + { (yyval.ssbjval)=save_sel_subject((yyvsp[0].ival),(yyvsp[-3].ssbjval),(yyvsp[-1].sval)); } +#line 7043 "htcobol.tab.c" break; - case 660: - -/* Line 1464 of yacc.c */ + case 660: /* selection_subject: expr */ #line 1887 "htcobol.y" { - if (push_expr((yyvsp[(1) - (1)].sval))) + if (push_expr((yyvsp[0].sval))) (yyval.ival)=SSUBJ_EXPR; else { - (yyvsp[(0) - (1)].sval) = (yyvsp[(1) - (1)].sval); + (yyvsp[-1].sval) = (yyvsp[0].sval); (yyval.ival)=SSUBJ_STR; } - ;} + } +#line 7056 "htcobol.tab.c" break; - case 661: - -/* Line 1464 of yacc.c */ + case 661: /* selection_subject: condition */ #line 1895 "htcobol.y" - { push_condition(); (yyval.ival)=SSUBJ_COND; ;} + { push_condition(); (yyval.ival)=SSUBJ_COND; } +#line 7062 "htcobol.tab.c" break; - case 662: - -/* Line 1464 of yacc.c */ + case 662: /* selection_subject: TRUE_TOK */ #line 1896 "htcobol.y" - { (yyval.ival)=SSUBJ_TRUE; ;} + { (yyval.ival)=SSUBJ_TRUE; } +#line 7068 "htcobol.tab.c" break; - case 663: - -/* Line 1464 of yacc.c */ + case 663: /* selection_subject: FALSE_TOK */ #line 1897 "htcobol.y" - { (yyval.ival)=SSUBJ_FALSE; ;} + { (yyval.ival)=SSUBJ_FALSE; } +#line 7074 "htcobol.tab.c" break; - case 664: - -/* Line 1464 of yacc.c */ + case 664: /* @66: %empty */ #line 1900 "htcobol.y" - { (yyval.ival) = loc_label++; /* mark end of "when" case */ ;} + { (yyval.ival) = loc_label++; /* mark end of "when" case */ } +#line 7080 "htcobol.tab.c" break; - case 665: - -/* Line 1464 of yacc.c */ + case 665: /* @67: %empty */ #line 1901 "htcobol.y" - { (yyval.ssbjval)=(yyvsp[(-1) - (2)].ssbjval); /* store inherited subject set */ ;} + { (yyval.ssbjval)=(yyvsp[(-1) - (2)].ssbjval); /* store inherited subject set */ } +#line 7086 "htcobol.tab.c" break; - case 666: - -/* Line 1464 of yacc.c */ + 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[(2) - (5)].ival),(yyvsp[(5) - (5)].ival)); ;} + { (yyval.ival)=gen_end_when((yyvsp[(-2) - (5)].ival),(yyvsp[-3].ival),(yyvsp[0].ival)); } +#line 7092 "htcobol.tab.c" break; - case 667: - -/* Line 1464 of yacc.c */ + case 667: /* @68: %empty */ #line 1905 "htcobol.y" - { (yyval.ival) = loc_label++; ;} + { (yyval.ival) = loc_label++; } +#line 7098 "htcobol.tab.c" break; - case 668: - -/* Line 1464 of yacc.c */ + case 668: /* @69: %empty */ #line 1906 "htcobol.y" - { (yyval.ssbjval)=(yyvsp[(-1) - (3)].ssbjval); ;} + { (yyval.ssbjval)=(yyvsp[(-1) - (3)].ssbjval); } +#line 7104 "htcobol.tab.c" break; - case 669: - -/* Line 1464 of yacc.c */ + case 669: /* $@70: %empty */ #line 1908 "htcobol.y" - { gen_bypass_when_case((yyvsp[(1) - (5)].ival)); ;} + { gen_bypass_when_case((yyvsp[-4].ival)); } +#line 7110 "htcobol.tab.c" break; - case 670: - -/* Line 1464 of yacc.c */ + 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[(3) - (7)].ival),(yyvsp[(7) - (7)].ival)); ;} + { (yyval.ival)=gen_end_when((yyvsp[(-2) - (7)].ival),(yyvsp[-4].ival),(yyvsp[0].ival)); } +#line 7116 "htcobol.tab.c" break; - case 671: - -/* Line 1464 of yacc.c */ + case 671: /* @71: %empty */ #line 1913 "htcobol.y" - { (yyval.sval) = NULL; ;} + { (yyval.sval) = NULL; } +#line 7122 "htcobol.tab.c" break; - case 672: - -/* Line 1464 of yacc.c */ + case 672: /* when_case: @71 selection_object */ #line 1915 "htcobol.y" { - gen_when_check(0,(yyvsp[(0) - (2)].ssbjval),(yyvsp[(2) - (2)].ival),(yyvsp[(-1) - (2)].ival),(yyvsp[(1) - (2)].sval)); + 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: - -/* Line 1464 of yacc.c */ + case 673: /* @72: %empty */ #line 1920 "htcobol.y" - { (yyval.sval) = NULL; ;} + { (yyval.sval) = NULL; } +#line 7137 "htcobol.tab.c" break; - case 674: - -/* Line 1464 of yacc.c */ + case 674: /* when_case: when_case ALSO @72 selection_object */ #line 1922 "htcobol.y" - { - gen_when_check((yyvsp[(1) - (4)].ival)+1,(yyvsp[(0) - (4)].ssbjval),(yyvsp[(4) - (4)].ival),(yyvsp[(-1) - (4)].ival),(yyvsp[(3) - (4)].sval)); - (yyval.ival)=(yyvsp[(1) - (4)].ival)+1; - ;} + { + 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: - -/* Line 1464 of yacc.c */ + case 675: /* when_case: OTHER */ #line 1926 "htcobol.y" - { (yyval.ival)=-1; ;} + { (yyval.ival)=-1; } +#line 7152 "htcobol.tab.c" break; - case 676: - -/* Line 1464 of yacc.c */ + case 676: /* selection_object: ANY */ #line 1929 "htcobol.y" - { (yyval.ival)=SOBJ_ANY; ;} + { (yyval.ival)=SOBJ_ANY; } +#line 7158 "htcobol.tab.c" break; - case 677: - -/* Line 1464 of yacc.c */ + case 677: /* selection_object: TRUE_TOK */ #line 1930 "htcobol.y" - { (yyval.ival)=SOBJ_TRUE; ;} + { (yyval.ival)=SOBJ_TRUE; } +#line 7164 "htcobol.tab.c" break; - case 678: - -/* Line 1464 of yacc.c */ + case 678: /* selection_object: FALSE_TOK */ #line 1931 "htcobol.y" - { (yyval.ival)=SOBJ_FALSE; ;} + { (yyval.ival)=SOBJ_FALSE; } +#line 7170 "htcobol.tab.c" break; - case 679: - -/* Line 1464 of yacc.c */ + case 679: /* selection_object: not_opt expr */ #line 1933 "htcobol.y" - { - if (push_expr((yyvsp[(2) - (2)].sval))) { - if ((yyvsp[(1) - (2)].ival)) + { + if (push_expr((yyvsp[0].sval))) { + if ((yyvsp[-1].ival)) (yyval.ival)=SOBJ_NEGEXPR; else (yyval.ival)=SOBJ_EXPR; } else { /* non-numeric comparation */ - (yyvsp[(0) - (2)].sval) = (yyvsp[(2) - (2)].sval); - if ((yyvsp[(1) - (2)].ival)) + (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: - -/* Line 1464 of yacc.c */ + case 680: /* selection_object: not_opt expr THRU expr */ #line 1950 "htcobol.y" - { - if (push_expr((yyvsp[(4) - (4)].sval)) && push_expr((yyvsp[(2) - (4)].sval))) { - if ((yyvsp[(1) - (4)].ival)) + { + if (push_expr((yyvsp[0].sval)) && push_expr((yyvsp[-2].sval))) { + if ((yyvsp[-3].ival)) (yyval.ival)=SOBJ_NEGRANGE; else (yyval.ival)=SOBJ_RANGE; @@ -7812,1594 +7202,1409 @@ yyreduce: else { yyerror("ranges only accepted for numeric variables"); } - ;} + } +#line 7207 "htcobol.tab.c" break; - case 681: - -/* Line 1464 of yacc.c */ + case 681: /* selection_object: not_opt cond_name */ #line 1962 "htcobol.y" - { - gen_condition((yyvsp[(2) - (2)].sval)); - if ((yyvsp[(1) - (2)].ival)) + { + 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: - -/* Line 1464 of yacc.c */ + case 682: /* sentence_or_nothing: %empty */ #line 1972 "htcobol.y" - { (yyval.ival) = 0; ;} + { (yyval.ival) = 0; } +#line 7225 "htcobol.tab.c" break; - case 683: - -/* Line 1464 of yacc.c */ + case 683: /* sentence_or_nothing: conditional_statement */ #line 1973 "htcobol.y" - { (yyval.ival) = 1; ;} + { (yyval.ival) = 1; } +#line 7231 "htcobol.tab.c" break; - case 684: - -/* Line 1464 of yacc.c */ + case 684: /* @73: %empty */ #line 1978 "htcobol.y" - { (yyval.dval)=gen_testif(); ;} + { (yyval.dval)=gen_testif(); } +#line 7237 "htcobol.tab.c" break; - case 685: - -/* Line 1464 of yacc.c */ + case 685: /* if_part: IF condition @73 end_then_opt conditional_statement */ #line 1980 "htcobol.y" - { (yyval.dval)=(yyvsp[(3) - (5)].dval); ;} + { (yyval.dval)=(yyvsp[-2].dval); } +#line 7243 "htcobol.tab.c" break; - case 686: - -/* Line 1464 of yacc.c */ + case 686: /* $@74: %empty */ #line 1988 "htcobol.y" - { stabs_line(); ;} + { stabs_line(); } +#line 7249 "htcobol.tab.c" break; - case 688: - -/* Line 1464 of yacc.c */ + case 688: /* $@75: %empty */ #line 1989 "htcobol.y" - { stabs_line(); ;} + { stabs_line(); } +#line 7255 "htcobol.tab.c" break; - case 690: - -/* Line 1464 of yacc.c */ + case 690: /* not_opt: %empty */ #line 1996 "htcobol.y" - { (yyval.ival)=0; ;} + { (yyval.ival)=0; } +#line 7261 "htcobol.tab.c" break; - case 691: - -/* Line 1464 of yacc.c */ + case 691: /* not_opt: NOT */ #line 1997 "htcobol.y" - { (yyval.ival)=1; ;} + { (yyval.ival)=1; } +#line 7267 "htcobol.tab.c" break; - case 696: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + case 697: /* @77: %empty */ #line 2013 "htcobol.y" { (yyval.dval)=loc_label++; /* determine search loop start label */ - if ((yyvsp[(3) - (3)].sval) == NULL) { - (yyvsp[(3) - (3)].sval)=determine_table_index_name((yyvsp[(1) - (3)].sval)); - if ((yyvsp[(3) - (3)].sval) == NULL) { - yyerror("Unable to determine search index for table '%s'", (yyvsp[(1) - (3)].sval)->name); + 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: - -/* Line 1464 of yacc.c */ + case 698: /* @78: %empty */ #line 2024 "htcobol.y" { - gen_jmplabel((yyvsp[(2) - (5)].dval)); /* generate GOTO END */ - gen_dstlabel((yyvsp[(4) - (5)].dval)); /* generate search loop start label */ - (yyval.dval) = (yyvsp[(2) - (5)].dval); - ;} + 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: - -/* Line 1464 of yacc.c */ + 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[(5) - (7)].dval), (yyvsp[(3) - (7)].sval), (yyvsp[(1) - (7)].sval)); + gen_SearchLoopCheck((yyvsp[-2].dval), (yyvsp[-4].sval), (yyvsp[-6].sval)); - gen_jmplabel((yyvsp[(4) - (7)].dval)); /* generate goto search loop start label */ - gen_dstlabel((yyvsp[(2) - (7)].dval)); /* generate END label */ - ;} + 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: - -/* Line 1464 of yacc.c */ + 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[(1) - (1)].sval)); + (yyval.sval)=determine_table_index_name((yyvsp[0].sval)); if ((yyval.sval) == NULL) { - yyerror("Unable to determine search index for table '%s'", (yyvsp[(1) - (1)].sval)->name); + 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[(1) - (1)].sval), (yyval.sval)); + 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: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + 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[(3) - (5)].dval), (yyvsp[(2) - (5)].sval), (yyvsp[(1) - (5)].sval), curr_field, lbstart, lbend); - ;} + gen_SearchAllLoopCheck((yyvsp[-2].dval), (yyvsp[-3].sval), (yyvsp[-4].sval), curr_field, lbstart, lbend); + } +#line 7354 "htcobol.tab.c" break; - case 703: - -/* Line 1464 of yacc.c */ + case 703: /* search_varying_opt: VARYING variable */ #line 2070 "htcobol.y" - { (yyval.sval)=(yyvsp[(2) - (2)].sval); ;} + { (yyval.sval)=(yyvsp[0].sval); } +#line 7360 "htcobol.tab.c" break; - case 704: - -/* Line 1464 of yacc.c */ + case 704: /* search_varying_opt: %empty */ #line 2071 "htcobol.y" - { (yyval.sval)=NULL; ;} + { (yyval.sval)=NULL; } +#line 7366 "htcobol.tab.c" break; - case 705: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + case 706: /* search_at_end: at_opt END @81 statement_list */ #line 2081 "htcobol.y" - { - (yyval.dval)=(yyvsp[(3) - (4)].dval); - ;} + { + (yyval.dval)=(yyvsp[-1].dval); + } +#line 7383 "htcobol.tab.c" break; - case 707: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + case 708: /* search_when_list: search_when */ #line 2092 "htcobol.y" - { (yyval.dval)=(yyvsp[(1) - (1)].dval); ;} + { (yyval.dval)=(yyvsp[0].dval); } +#line 7398 "htcobol.tab.c" break; - case 709: - -/* Line 1464 of yacc.c */ + case 709: /* search_when_list: search_when_list search_when */ #line 2093 "htcobol.y" - { (yyval.dval)=(yyvsp[(1) - (2)].dval); ;} + { (yyval.dval)=(yyvsp[-1].dval); } +#line 7404 "htcobol.tab.c" break; - case 710: - -/* Line 1464 of yacc.c */ + case 710: /* @82: %empty */ #line 2098 "htcobol.y" - { (yyval.dval)=gen_testif(); ;} + { (yyval.dval)=gen_testif(); } +#line 7410 "htcobol.tab.c" break; - case 711: - -/* Line 1464 of yacc.c */ + case 711: /* search_when: WHEN search_when_conditional @82 search_when_statement */ #line 2100 "htcobol.y" - { - (yyval.dval) = (yyvsp[(0) - (4)].dval); + { + (yyval.dval) = (yyvsp[-4].dval); gen_jmplabel((yyval.dval)); /* generate GOTO END */ - gen_dstlabel((yyvsp[(3) - (4)].dval)); - ;} + gen_dstlabel((yyvsp[-1].dval)); + } +#line 7420 "htcobol.tab.c" break; - case 714: - -/* Line 1464 of yacc.c */ + case 714: /* search_when_conditional: name_or_lit extended_cond_op name_or_lit */ #line 2122 "htcobol.y" - { gen_compare((yyvsp[(1) - (3)].sval),(yyvsp[(2) - (3)].ival),(yyvsp[(3) - (3)].sval)); ;} + { gen_compare((yyvsp[-2].sval),(yyvsp[-1].ival),(yyvsp[0].sval)); } +#line 7426 "htcobol.tab.c" break; - case 717: - -/* Line 1464 of yacc.c */ + case 717: /* $@83: %empty */ #line 2130 "htcobol.y" - { curr_field = NULL; ;} + { curr_field = NULL; } +#line 7432 "htcobol.tab.c" break; - case 718: - -/* Line 1464 of yacc.c */ + case 718: /* @84: %empty */ #line 2132 "htcobol.y" - { (yyval.dval)=gen_testif(); ;} + { (yyval.dval)=gen_testif(); } +#line 7438 "htcobol.tab.c" break; - case 719: - -/* Line 1464 of yacc.c */ + 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[(4) - (5)].dval)); - ;} + gen_dstlabel((yyvsp[-1].dval)); + } +#line 7447 "htcobol.tab.c" break; - case 722: - -/* Line 1464 of yacc.c */ + case 722: /* search_all_when_conditional: variable is_opt CONDITIONAL to_opt variable */ #line 2151 "htcobol.y" { - if ((yyvsp[(3) - (5)].ival) != EQUAL) + if ((yyvsp[-2].ival) != EQUAL) yyerror("Only = conditional allowed in search all statement"); if (curr_field == NULL) - curr_field = (yyvsp[(1) - (5)].sval); - gen_compare((yyvsp[(1) - (5)].sval),(yyvsp[(3) - (5)].ival),(yyvsp[(5) - (5)].sval)); - ;} + curr_field = (yyvsp[-4].sval); + gen_compare((yyvsp[-4].sval),(yyvsp[-2].ival),(yyvsp[0].sval)); + } +#line 7459 "htcobol.tab.c" break; - case 723: - -/* Line 1464 of yacc.c */ + case 723: /* search_all_when_conditional: variable is_opt CONDITIONAL to_opt literal */ #line 2159 "htcobol.y" - { - if ((yyvsp[(3) - (5)].ival) != EQUAL) + { + if ((yyvsp[-2].ival) != EQUAL) yyerror("Only = conditional allowed in search all statement"); if (curr_field == NULL) - curr_field = (yyvsp[(1) - (5)].sval); - gen_compare((yyvsp[(1) - (5)].sval),(yyvsp[(3) - (5)].ival),(struct sym *)(yyvsp[(5) - (5)].lval)); - ;} + 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: - -/* Line 1464 of yacc.c */ + case 724: /* @85: %empty */ #line 2166 "htcobol.y" - { (yyval.dval)=gen_andstart(); ;} + { (yyval.dval)=gen_andstart(); } +#line 7477 "htcobol.tab.c" break; - case 725: - -/* Line 1464 of yacc.c */ + case 725: /* search_all_when_conditional: search_all_when_conditional AND @85 search_all_when_conditional */ #line 2167 "htcobol.y" - { gen_dstlabel((yyvsp[(3) - (4)].dval)); ;} + { gen_dstlabel((yyvsp[-1].dval)); } +#line 7483 "htcobol.tab.c" break; - case 728: - -/* Line 1464 of yacc.c */ + case 728: /* unlock_statement: UNLOCK name */ #line 2175 "htcobol.y" - { gen_unlock((yyvsp[(2) - (2)].sval)); ;} + { gen_unlock((yyvsp[0].sval)); } +#line 7489 "htcobol.tab.c" break; - case 729: - -/* Line 1464 of yacc.c */ + case 729: /* proto_statement: TCOBPROTO1 gname */ #line 2178 "htcobol.y" - { gen_tcob_proto1( (yyvsp[(2) - (2)].sval) ); ;} + { gen_tcob_proto1( (yyvsp[0].sval) ); } +#line 7495 "htcobol.tab.c" break; - case 730: - -/* Line 1464 of yacc.c */ + case 730: /* proto_statement: TCOBPROTO2 gname gname */ #line 2179 "htcobol.y" - { gen_tcob_proto2( (yyvsp[(2) - (3)].sval),(yyvsp[(3) - (3)].sval) ); ;} + { gen_tcob_proto2( (yyvsp[-1].sval),(yyvsp[0].sval) ); } +#line 7501 "htcobol.tab.c" break; - case 731: - -/* Line 1464 of yacc.c */ + case 731: /* trace_statement: READY TRACE */ #line 2182 "htcobol.y" - { ;} + { } +#line 7507 "htcobol.tab.c" break; - case 732: - -/* Line 1464 of yacc.c */ + case 732: /* trace_statement: RESET TRACE */ #line 2183 "htcobol.y" - { ;} + { } +#line 7513 "htcobol.tab.c" break; - case 736: - -/* Line 1464 of yacc.c */ + case 736: /* cancel_statement: CANCEL gname */ #line 2195 "htcobol.y" - { gen_cancel((yyvsp[(2) - (2)].sval)); ;} + { gen_cancel((yyvsp[0].sval)); } +#line 7519 "htcobol.tab.c" break; - case 737: - -/* Line 1464 of yacc.c */ + case 737: /* cancel_statement: CANCEL ALL */ #line 2196 "htcobol.y" - { gen_cancel(NULL); ;} + { gen_cancel(NULL); } +#line 7525 "htcobol.tab.c" break; - case 738: - -/* Line 1464 of yacc.c */ + case 738: /* $@86: %empty */ #line 2202 "htcobol.y" - { sort_keys_append((yyvsp[(2) - (3)].sval), (yyvsp[(3) - (3)].glistval)); ;} + { sort_keys_append((yyvsp[-1].sval), (yyvsp[0].glistval)); } +#line 7531 "htcobol.tab.c" break; - case 739: - -/* Line 1464 of yacc.c */ + case 739: /* $@87: %empty */ #line 2204 "htcobol.y" - { gen_sort((yyvsp[(2) - (5)].sval)); ;} + { gen_sort((yyvsp[-3].sval)); } +#line 7537 "htcobol.tab.c" break; - case 740: - -/* Line 1464 of yacc.c */ + case 740: /* $@88: %empty */ #line 2206 "htcobol.y" - { gen_sort_using((yyvsp[(2) - (7)].sval), (yyvsp[(7) - (7)].snval)); ;} + { gen_sort_using((yyvsp[-5].sval), (yyvsp[0].snval)); } +#line 7543 "htcobol.tab.c" break; - case 741: - -/* Line 1464 of yacc.c */ + case 741: /* merge_statement: MERGE name sort_keys $@86 sort_collating_opt $@87 merge_using $@88 sort_output */ #line 2208 "htcobol.y" { - if ((yyvsp[(9) - (9)].snval) != NULL) { - gen_sort_giving((yyvsp[(2) - (9)].sval), (yyvsp[(9) - (9)].snval)); + if ((yyvsp[0].snval) != NULL) { + gen_sort_giving((yyvsp[-7].sval), (yyvsp[0].snval)); } - ;} + } +#line 7553 "htcobol.tab.c" break; - case 742: - -/* Line 1464 of yacc.c */ + case 742: /* merge_using: USING sort_file_list */ #line 2215 "htcobol.y" - { (yyval.snval)=(yyvsp[(2) - (2)].snval); ;} + { (yyval.snval)=(yyvsp[0].snval); } +#line 7559 "htcobol.tab.c" break; - case 745: - -/* Line 1464 of yacc.c */ + case 745: /* $@89: %empty */ #line 2225 "htcobol.y" - { sort_keys_append((yyvsp[(2) - (3)].sval), (yyvsp[(3) - (3)].glistval)); ;} + { sort_keys_append((yyvsp[-1].sval), (yyvsp[0].glistval)); } +#line 7565 "htcobol.tab.c" break; - case 746: - -/* Line 1464 of yacc.c */ + case 746: /* $@90: %empty */ #line 2227 "htcobol.y" - { gen_sort((yyvsp[(2) - (6)].sval)); ;} + { gen_sort((yyvsp[-4].sval)); } +#line 7571 "htcobol.tab.c" break; - case 747: - -/* Line 1464 of yacc.c */ + case 747: /* $@91: %empty */ #line 2229 "htcobol.y" { - if ((yyvsp[(8) - (8)].snval) != NULL) { - gen_sort_using((yyvsp[(2) - (8)].sval), (yyvsp[(8) - (8)].snval)); + if ((yyvsp[0].snval) != NULL) { + gen_sort_using((yyvsp[-6].sval), (yyvsp[0].snval)); } - ;} + } +#line 7581 "htcobol.tab.c" break; - case 748: - -/* Line 1464 of yacc.c */ + 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[(10) - (10)].snval) != NULL) { - gen_sort_giving((yyvsp[(2) - (10)].sval), (yyvsp[(10) - (10)].snval)); + if ((yyvsp[0].snval) != NULL) { + gen_sort_giving((yyvsp[-8].sval), (yyvsp[0].snval)); } - ;} + } +#line 7591 "htcobol.tab.c" break; - case 749: - -/* Line 1464 of yacc.c */ + case 749: /* $@92: %empty */ #line 2244 "htcobol.y" - { sort_keys_append((yyvsp[(2) - (3)].sval), (yyvsp[(3) - (3)].glistval)); ;} + { sort_keys_append((yyvsp[-1].sval), (yyvsp[0].glistval)); } +#line 7597 "htcobol.tab.c" break; - case 750: - -/* Line 1464 of yacc.c */ + 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[(2) - (6)].sval)); ;} + { gen_sort((yyvsp[-4].sval)); } +#line 7603 "htcobol.tab.c" break; - case 751: - -/* Line 1464 of yacc.c */ + case 751: /* sort_keys: sort_key */ #line 2250 "htcobol.y" - { (yyval.glistval)=sort_keys_list_append(NULL, (yyvsp[(1) - (1)].glistval)); ;} + { (yyval.glistval)=sort_keys_list_append(NULL, (yyvsp[0].glistval)); } +#line 7609 "htcobol.tab.c" break; - case 752: - -/* Line 1464 of yacc.c */ + case 752: /* sort_keys: sort_keys sort_key */ #line 2251 "htcobol.y" - { (yyval.glistval)=sort_keys_list_append((yyvsp[(1) - (2)].glistval), (yyvsp[(2) - (2)].glistval)); ;} + { (yyval.glistval)=sort_keys_list_append((yyvsp[-1].glistval), (yyvsp[0].glistval)); } +#line 7615 "htcobol.tab.c" break; - case 753: - -/* Line 1464 of yacc.c */ + case 753: /* sort_keys_idx: sort_key_idx */ #line 2255 "htcobol.y" - { (yyval.glistval)=sort_keys_list_append(NULL, (yyvsp[(1) - (1)].glistval)); ;} + { (yyval.glistval)=sort_keys_list_append(NULL, (yyvsp[0].glistval)); } +#line 7621 "htcobol.tab.c" break; - case 754: - -/* Line 1464 of yacc.c */ + case 754: /* sort_keys_idx: sort_keys_idx sort_key_idx */ #line 2256 "htcobol.y" - { (yyval.glistval)=sort_keys_list_append((yyvsp[(1) - (2)].glistval), (yyvsp[(2) - (2)].glistval)); ;} + { (yyval.glistval)=sort_keys_list_append((yyvsp[-1].glistval), (yyvsp[0].glistval)); } +#line 7627 "htcobol.tab.c" break; - case 755: - -/* Line 1464 of yacc.c */ + case 755: /* sort_key: on_opt DIRECTION key_opt sort_keys_names */ #line 2261 "htcobol.y" - { (yyval.glistval)=sort_key_list_create((yyvsp[(4) - (4)].glistval), (yyvsp[(2) - (4)].ival)); ;} + { (yyval.glistval)=sort_key_list_create((yyvsp[0].glistval), (yyvsp[-2].ival)); } +#line 7633 "htcobol.tab.c" break; - case 756: - -/* Line 1464 of yacc.c */ + 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[(4) - (4)].glistval), (yyvsp[(2) - (4)].ival)); ;} + { (yyval.glistval)=sort_key_list_create((yyvsp[0].glistval), (yyvsp[-2].ival)); } +#line 7639 "htcobol.tab.c" break; - case 757: - -/* Line 1464 of yacc.c */ + case 757: /* sort_keys_names: name */ #line 2270 "htcobol.y" - { (yyval.glistval) = gvar_list_append(NULL, (yyvsp[(1) - (1)].sval), source_lineno); ;} + { (yyval.glistval) = gvar_list_append(NULL, (yyvsp[0].sval), source_lineno); } +#line 7645 "htcobol.tab.c" break; - case 758: - -/* Line 1464 of yacc.c */ + case 758: /* sort_keys_names: sort_keys_names name */ #line 2271 "htcobol.y" - { (yyval.glistval) = gvar_list_append((yyvsp[(1) - (2)].glistval), (yyvsp[(2) - (2)].sval), source_lineno); ;} + { (yyval.glistval) = gvar_list_append((yyvsp[-1].glistval), (yyvsp[0].sval), source_lineno); } +#line 7651 "htcobol.tab.c" break; - case 759: - -/* Line 1464 of yacc.c */ + case 759: /* sort_keys_names_idx: variable_indexed */ #line 2275 "htcobol.y" - { (yyval.glistval) = gvar_list_append(NULL, (yyvsp[(1) - (1)].sval), source_lineno); ;} + { (yyval.glistval) = gvar_list_append(NULL, (yyvsp[0].sval), source_lineno); } +#line 7657 "htcobol.tab.c" break; - case 760: - -/* Line 1464 of yacc.c */ + case 760: /* sort_keys_names_idx: sort_keys_names_idx variable_indexed */ #line 2276 "htcobol.y" - { (yyval.glistval) = gvar_list_append((yyvsp[(1) - (2)].glistval), (yyvsp[(2) - (2)].sval), source_lineno); ;} + { (yyval.glistval) = gvar_list_append((yyvsp[-1].glistval), (yyvsp[0].sval), source_lineno); } +#line 7663 "htcobol.tab.c" break; - case 762: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + case 764: /* sort_collating_opt: collating_sequence */ #line 2289 "htcobol.y" - { UNIMPLEMENTED ("SORT/MERGE collating sequence clause") /* unimplemented */ ;} + { UNIMPLEMENTED ("SORT/MERGE collating sequence clause") /* unimplemented */ } +#line 7678 "htcobol.tab.c" break; - case 765: - -/* Line 1464 of yacc.c */ + case 765: /* sort_input: INPUT PROCEDURE is_opt perform_range */ #line 2294 "htcobol.y" - { (yyval.snval)=NULL; ;} + { (yyval.snval)=NULL; } +#line 7684 "htcobol.tab.c" break; - case 766: - -/* Line 1464 of yacc.c */ + case 766: /* sort_input: USING sort_file_list */ #line 2295 "htcobol.y" - { (yyval.snval)=(yyvsp[(2) - (2)].snval); ;} + { (yyval.snval)=(yyvsp[0].snval); } +#line 7690 "htcobol.tab.c" break; - case 767: - -/* Line 1464 of yacc.c */ + case 767: /* sort_output: OUTPUT PROCEDURE is_opt perform_range */ #line 2298 "htcobol.y" - { (yyval.snval)=NULL; ;} + { (yyval.snval)=NULL; } +#line 7696 "htcobol.tab.c" break; - case 768: - -/* Line 1464 of yacc.c */ + case 768: /* sort_output: GIVING sort_file_list */ #line 2299 "htcobol.y" - { (yyval.snval)=(yyvsp[(2) - (2)].snval); ;} + { (yyval.snval)=(yyvsp[0].snval); } +#line 7702 "htcobol.tab.c" break; - case 769: - -/* Line 1464 of yacc.c */ + case 769: /* sort_file_list: name */ #line 2302 "htcobol.y" - { (yyval.snval) = alloc_sortfile_node((yyvsp[(1) - (1)].sval)); ;} + { (yyval.snval) = alloc_sortfile_node((yyvsp[0].sval)); } +#line 7708 "htcobol.tab.c" break; - case 770: - -/* Line 1464 of yacc.c */ + case 770: /* sort_file_list: sort_file_list name */ #line 2304 "htcobol.y" - { - (yyvsp[(1) - (2)].snval)->next = alloc_sortfile_node((yyvsp[(2) - (2)].sval)); (yyval.snval)=(yyvsp[(1) - (2)].snval); - ;} + { + (yyvsp[-1].snval)->next = alloc_sortfile_node((yyvsp[0].sval)); (yyval.snval)=(yyvsp[-1].snval); + } +#line 7716 "htcobol.tab.c" break; - case 771: - -/* Line 1464 of yacc.c */ + case 771: /* move_statement: MOVE gname TO name_var_list */ #line 2311 "htcobol.y" - { gen_moves((yyvsp[(2) - (4)].sval), (yyvsp[(4) - (4)].glistval)); ;} + { gen_moves((yyvsp[-2].sval), (yyvsp[0].glistval)); } +#line 7722 "htcobol.tab.c" break; - case 772: - -/* Line 1464 of yacc.c */ + case 772: /* move_statement: MOVE CORRESPONDING name_var TO name_var */ #line 2312 "htcobol.y" - { gen_movecorr((yyvsp[(3) - (5)].sval), (yyvsp[(5) - (5)].sval)); ;} + { gen_movecorr((yyvsp[-2].sval), (yyvsp[0].sval)); } +#line 7728 "htcobol.tab.c" break; - case 773: - -/* Line 1464 of yacc.c */ + case 773: /* move_statement: MOVE LENGTH OF gname TO name_var */ #line 2313 "htcobol.y" - { gen_movelength((yyvsp[(4) - (6)].sval), (yyvsp[(6) - (6)].sval)); ;} + { gen_movelength((yyvsp[-2].sval), (yyvsp[0].sval)); } +#line 7734 "htcobol.tab.c" break; - case 774: - -/* Line 1464 of yacc.c */ + case 774: /* move_statement: MOVE gname TO */ #line 2314 "htcobol.y" - { yyerror("Expected variable"); ;} + { yyerror("Expected variable"); } +#line 7740 "htcobol.tab.c" break; - case 775: - -/* Line 1464 of yacc.c */ + case 775: /* initialize_statement: INITIALIZE gname_list initialize_replacing_opt */ #line 2319 "htcobol.y" - { gen_initializes((yyvsp[(2) - (3)].glistval)); ;} + { gen_initializes((yyvsp[-1].glistval)); } +#line 7746 "htcobol.tab.c" break; - case 776: - -/* Line 1464 of yacc.c */ + case 776: /* initialize_statement: INITIALIZE */ #line 2320 "htcobol.y" - { yyerror("INITIALIZE: expected a variable name");;} + { yyerror("INITIALIZE: expected a variable name");} +#line 7752 "htcobol.tab.c" break; - case 778: - -/* Line 1464 of yacc.c */ + case 778: /* initialize_replacing_opt: REPLACING initialize_replacing_lists */ #line 2324 "htcobol.y" - { UNIMPLEMENTED ("INITIALIZE ... REPLACING clause") ;} + { UNIMPLEMENTED ("INITIALIZE ... REPLACING clause") } +#line 7758 "htcobol.tab.c" break; - case 781: - -/* Line 1464 of yacc.c */ + case 781: /* initialize_replacing_list: initialize_type_list data_opt BY gname */ #line 2331 "htcobol.y" - { /* not implimented */ ;} + { /* not implimented */ } +#line 7764 "htcobol.tab.c" break; - case 782: - -/* Line 1464 of yacc.c */ + case 782: /* initialize_type_list: ALPHABETIC */ #line 2334 "htcobol.y" - { ;} + { } +#line 7770 "htcobol.tab.c" break; - case 783: - -/* Line 1464 of yacc.c */ + case 783: /* initialize_type_list: ALPHANUMERIC */ #line 2335 "htcobol.y" - { ;} + { } +#line 7776 "htcobol.tab.c" break; - case 784: - -/* Line 1464 of yacc.c */ + case 784: /* initialize_type_list: NUMERIC */ #line 2336 "htcobol.y" - { ;} + { } +#line 7782 "htcobol.tab.c" break; - case 785: - -/* Line 1464 of yacc.c */ + case 785: /* initialize_type_list: ALPHANUMERIC_EDITED */ #line 2337 "htcobol.y" - { ;} + { } +#line 7788 "htcobol.tab.c" break; - case 786: - -/* Line 1464 of yacc.c */ + case 786: /* initialize_type_list: NUMERIC_EDITED */ #line 2338 "htcobol.y" - { ;} + { } +#line 7794 "htcobol.tab.c" break; - case 788: - -/* Line 1464 of yacc.c */ + case 788: /* compute_statement: COMPUTE */ #line 2344 "htcobol.y" - { yyerror(err_msg_bad_form, "COMPUTE");;} + { yyerror(err_msg_bad_form, "COMPUTE");} +#line 7800 "htcobol.tab.c" break; - case 789: - -/* Line 1464 of yacc.c */ + case 789: /* compute_body: var_list_name CONDITIONAL expr on_size_error_opt */ #line 2348 "htcobol.y" { - if ((yyvsp[(2) - (4)].ival) != EQUAL) + if ((yyvsp[-2].ival) != EQUAL) yyerror("= expected"); - else if ((yyvsp[(4) - (4)].mose) == NULL) - gen_compute1((yyvsp[(1) - (4)].mval), (yyvsp[(3) - (4)].sval)); + else if ((yyvsp[0].mose) == NULL) + gen_compute1((yyvsp[-3].mval), (yyvsp[-1].sval)); else - gen_compute2((yyvsp[(1) - (4)].mval), (yyvsp[(3) - (4)].sval), (yyvsp[(4) - (4)].mose)); - delete_mathvar_info((yyvsp[(1) - (4)].mval)); - if ((yyvsp[(4) - (4)].mose) != NULL) + 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: - -/* Line 1464 of yacc.c */ + case 793: /* add_statement: ADD */ #line 2368 "htcobol.y" - { yyerror(err_msg_bad_form, "ADD");;} + { yyerror(err_msg_bad_form, "ADD");} +#line 7822 "htcobol.tab.c" break; - case 794: - -/* Line 1464 of yacc.c */ + case 794: /* add_body: var_list_gname TO var_list_name on_size_error_opt */ #line 2372 "htcobol.y" { - gen_add1((yyvsp[(1) - (4)].mval), (yyvsp[(3) - (4)].mval), (yyvsp[(4) - (4)].mose)); - delete_mathvar_info((yyvsp[(1) - (4)].mval)); - delete_mathvar_info((yyvsp[(3) - (4)].mval)); - if ((yyvsp[(4) - (4)].mose) != NULL) + 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: - -/* Line 1464 of yacc.c */ + 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[(1) - (5)].mval), (yyvsp[(4) - (5)].mval), (yyvsp[(2) - (5)].sval), (yyvsp[(5) - (5)].mose)); - delete_mathvar_info((yyvsp[(1) - (5)].mval)); - delete_mathvar_info((yyvsp[(4) - (5)].mval)); - if ((yyvsp[(5) - (5)].mose) != NULL) + { + 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: - -/* Line 1464 of yacc.c */ + 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[(2) - (6)].mval), (yyvsp[(4) - (6)].mval), (yyvsp[(5) - (6)].ival), (yyvsp[(6) - (6)].mose)); - delete_mathvar_info((yyvsp[(2) - (6)].mval)); - delete_mathvar_info((yyvsp[(4) - (6)].mval)); - if ((yyvsp[(6) - (6)].mose) != NULL) + { + 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: - -/* Line 1464 of yacc.c */ + case 797: /* add_to_opt: %empty */ #line 2397 "htcobol.y" - { (yyval.sval) = NULL; ;} + { (yyval.sval) = NULL; } +#line 7864 "htcobol.tab.c" break; - case 798: - -/* Line 1464 of yacc.c */ + case 798: /* add_to_opt: TO gname */ #line 2398 "htcobol.y" - { (yyval.sval) = (yyvsp[(2) - (2)].sval); ;} + { (yyval.sval) = (yyvsp[0].sval); } +#line 7870 "htcobol.tab.c" break; - case 802: - -/* Line 1464 of yacc.c */ + case 802: /* subtract_statement: SUBTRACT */ #line 2409 "htcobol.y" - { yyerror(err_msg_bad_form, "SUBTRACT");;} + { yyerror(err_msg_bad_form, "SUBTRACT");} +#line 7876 "htcobol.tab.c" break; - case 803: - -/* Line 1464 of yacc.c */ + case 803: /* subtract_body: var_list_gname FROM var_list_name on_size_error_opt */ #line 2413 "htcobol.y" - { - gen_subtract1((yyvsp[(1) - (4)].mval), (yyvsp[(3) - (4)].mval), (yyvsp[(4) - (4)].mose)); - delete_mathvar_info((yyvsp[(1) - (4)].mval)); - delete_mathvar_info((yyvsp[(3) - (4)].mval)); - if ((yyvsp[(4) - (4)].mose) != NULL) + { + 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: - -/* Line 1464 of yacc.c */ + 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) - (6)].sval)); - gen_subtract2((yyvsp[(1) - (6)].mval), (yyvsp[(5) - (6)].mval), (yyvsp[(3) - (6)].sval), (yyvsp[(6) - (6)].mose)); - delete_mathvar_info((yyvsp[(1) - (6)].mval)); - delete_mathvar_info((yyvsp[(5) - (6)].mval)); - if ((yyvsp[(6) - (6)].mose) != NULL) + { + 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: - -/* Line 1464 of yacc.c */ + 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[(2) - (6)].mval), (yyvsp[(4) - (6)].mval), (yyvsp[(5) - (6)].ival), (yyvsp[(6) - (6)].mose)); - delete_mathvar_info((yyvsp[(2) - (6)].mval)); - delete_mathvar_info((yyvsp[(4) - (6)].mval)); - if ((yyvsp[(6) - (6)].mose) != NULL) + { + 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: - -/* Line 1464 of yacc.c */ + case 809: /* multiply_statement: MULTIPLY */ #line 2446 "htcobol.y" - { yyerror(err_msg_bad_form, "MULTIPLY");;} + { yyerror(err_msg_bad_form, "MULTIPLY");} +#line 7919 "htcobol.tab.c" break; - case 810: - -/* Line 1464 of yacc.c */ + case 810: /* multiply_body: gname BY gname GIVING var_list_name on_size_error_opt */ #line 2450 "htcobol.y" - { - assert_numeric_sy((yyvsp[(1) - (6)].sval)); - assert_numeric_sy((yyvsp[(3) - (6)].sval)); - gen_multiply2((yyvsp[(5) - (6)].mval), (yyvsp[(1) - (6)].sval), (yyvsp[(3) - (6)].sval), (yyvsp[(6) - (6)].mose)); - delete_mathvar_info((yyvsp[(5) - (6)].mval)); - if ((yyvsp[(6) - (6)].mose) != NULL) + { + 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: - -/* Line 1464 of yacc.c */ + case 811: /* multiply_body: gname BY var_list_name on_size_error_opt */ #line 2459 "htcobol.y" - { - assert_numeric_sy((yyvsp[(1) - (4)].sval)); - gen_multiply1((yyvsp[(3) - (4)].mval), (yyvsp[(1) - (4)].sval), (yyvsp[(4) - (4)].mose)); - delete_mathvar_info((yyvsp[(3) - (4)].mval)); - if ((yyvsp[(4) - (4)].mose) != NULL) + { + 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: - -/* Line 1464 of yacc.c */ + case 815: /* divide_statement: DIVIDE */ #line 2476 "htcobol.y" - { yyerror(err_msg_bad_form, "DIVIDE");;} + { yyerror(err_msg_bad_form, "DIVIDE");} +#line 7950 "htcobol.tab.c" break; - case 816: - -/* Line 1464 of yacc.c */ + case 816: /* divide_body: gname BY gname GIVING var_list_name on_size_error_opt */ #line 2480 "htcobol.y" - { - assert_numeric_sy((yyvsp[(1) - (6)].sval)); - assert_numeric_sy((yyvsp[(3) - (6)].sval)); - gen_divide2((yyvsp[(5) - (6)].mval), (yyvsp[(1) - (6)].sval), (yyvsp[(3) - (6)].sval), (yyvsp[(6) - (6)].mose)); - delete_mathvar_info((yyvsp[(5) - (6)].mval)); - if ((yyvsp[(6) - (6)].mose) != NULL) + { + 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: - -/* Line 1464 of yacc.c */ + 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[(1) - (9)].sval)); - assert_numeric_sy((yyvsp[(3) - (9)].sval)); - assert_numeric_dest_sy((yyvsp[(5) - (9)].sval)); - gen_divide4((yyvsp[(1) - (9)].sval), (yyvsp[(3) - (9)].sval), (yyvsp[(5) - (9)].sval), (yyvsp[(8) - (9)].sval), (yyvsp[(6) - (9)].ival), (yyvsp[(9) - (9)].mose)); - if ((yyvsp[(9) - (9)].mose) != NULL) + { + 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: - -/* Line 1464 of yacc.c */ + 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[(1) - (9)].sval)); - assert_numeric_sy((yyvsp[(3) - (9)].sval)); - assert_numeric_dest_sy((yyvsp[(5) - (9)].sval)); - gen_divide4((yyvsp[(3) - (9)].sval), (yyvsp[(1) - (9)].sval), (yyvsp[(5) - (9)].sval), (yyvsp[(8) - (9)].sval), (yyvsp[(6) - (9)].ival), (yyvsp[(9) - (9)].mose)); - if ((yyvsp[(9) - (9)].mose) != NULL) + { + 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: - -/* Line 1464 of yacc.c */ + case 819: /* divide_body: gname INTO gname GIVING var_list_name on_size_error_opt */ #line 2507 "htcobol.y" - { - assert_numeric_sy((yyvsp[(1) - (6)].sval)); - assert_numeric_sy((yyvsp[(3) - (6)].sval)); - gen_divide2((yyvsp[(5) - (6)].mval), (yyvsp[(3) - (6)].sval), (yyvsp[(1) - (6)].sval), (yyvsp[(6) - (6)].mose)); - delete_mathvar_info((yyvsp[(5) - (6)].mval)); - if ((yyvsp[(6) - (6)].mose) != NULL) + { + 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: - -/* Line 1464 of yacc.c */ + case 820: /* divide_body: gname INTO var_list_name on_size_error_opt */ #line 2516 "htcobol.y" - { - assert_numeric_sy((yyvsp[(1) - (4)].sval)); - gen_divide1((yyvsp[(3) - (4)].mval), (yyvsp[(1) - (4)].sval), (yyvsp[(4) - (4)].mose)); - delete_mathvar_info((yyvsp[(3) - (4)].mval)); - if ((yyvsp[(4) - (4)].mose) != NULL) + { + 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: - -/* Line 1464 of yacc.c */ + case 826: /* accept_statement: ACCEPT */ #line 2534 "htcobol.y" - { yyerror(err_msg_bad_form, "ACCEPT");;} + { yyerror(err_msg_bad_form, "ACCEPT");} +#line 8020 "htcobol.tab.c" break; - case 827: - -/* Line 1464 of yacc.c */ + case 827: /* accept_hardware: ACCEPT name FROM INKEY end_accept_opt */ #line 2537 "htcobol.y" - { gen_accept_from_inkey((yyvsp[(2) - (5)].sval)); ;} + { gen_accept_from_inkey((yyvsp[-3].sval)); } +#line 8026 "htcobol.tab.c" break; - case 828: - -/* Line 1464 of yacc.c */ + case 828: /* accept_hardware: ACCEPT name FROM INPUT STATUS end_accept_opt */ #line 2538 "htcobol.y" - { gen_accept_from_inkey((yyvsp[(2) - (6)].sval)); ;} + { gen_accept_from_inkey((yyvsp[-4].sval)); } +#line 8032 "htcobol.tab.c" break; - case 829: - -/* Line 1464 of yacc.c */ + case 829: /* accept_hardware: ACCEPT name FROM CMD_LINE end_accept_opt */ #line 2539 "htcobol.y" - { gen_accept_from_cmdline((yyvsp[(2) - (5)].sval)); ;} + { gen_accept_from_cmdline((yyvsp[-3].sval)); } +#line 8038 "htcobol.tab.c" break; - case 830: - -/* Line 1464 of yacc.c */ + case 830: /* accept_hardware: ACCEPT name FROM ESCKEY end_accept_opt */ #line 2540 "htcobol.y" - { gen_accept_from_escapekey((yyvsp[(2) - (5)].sval)); ;} + { gen_accept_from_escapekey((yyvsp[-3].sval)); } +#line 8044 "htcobol.tab.c" break; - case 831: - -/* Line 1464 of yacc.c */ + case 831: /* accept_hardware: ACCEPT name FROM ENVIRONMENT_VARIABLE CLITERAL end_accept_opt */ #line 2542 "htcobol.y" { - save_literal((yyvsp[(5) - (6)].lval),'X'); - (yyvsp[(5) - (6)].lval)->all=0; - gen_accept_env_var((yyvsp[(2) - (6)].sval), (yyvsp[(5) - (6)].lval)); - ;} + 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: - -/* Line 1464 of yacc.c */ + case 832: /* accept_chronological: ACCEPT name FROM DATE_TIME end_accept_opt */ #line 2550 "htcobol.y" { - gen_accept_from_chron((yyvsp[(2) - (5)].sval), (yyvsp[(4) - (5)].ival), 0); - ;} + gen_accept_from_chron((yyvsp[-3].sval), (yyvsp[-1].ival), 0); + } +#line 8062 "htcobol.tab.c" break; - case 833: - -/* Line 1464 of yacc.c */ + 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) - (4)].sval), (yyvsp[(3) - (4)].ival), 1, co); - ;} + gen_accept((yyvsp[-2].sval), (yyvsp[-1].ival), 1, co); + } +#line 8073 "htcobol.tab.c" break; - case 834: - -/* Line 1464 of yacc.c */ + 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[(2) - (5)].sval), (yyvsp[(3) - (5)].ival), 1, co); - ;} + gen_accept((yyvsp[-3].sval), (yyvsp[-2].ival), 1, co); + } +#line 8085 "htcobol.tab.c" break; - case 835: - -/* Line 1464 of yacc.c */ + case 835: /* @94: %empty */ #line 2570 "htcobol.y" - { - gen_store_fnres((yyvsp[(7) - (7)].sval)); + { + gen_store_fnres((yyvsp[0].sval)); (yyval.dval) = gen_check_zero(); - ;} + } +#line 8094 "htcobol.tab.c" break; - case 836: - -/* Line 1464 of yacc.c */ + case 836: /* $@95: %empty */ #line 2574 "htcobol.y" - { gen_dstlabel((yyvsp[(8) - (9)].dval)); ;} + { gen_dstlabel((yyvsp[-1].dval)); } +#line 8100 "htcobol.tab.c" break; - case 842: - -/* Line 1464 of yacc.c */ + case 842: /* display_statement: DISPLAY */ #line 2586 "htcobol.y" - { yyerror(err_msg_bad_form, "DISPLAY");;} + { yyerror(err_msg_bad_form, "DISPLAY");} +#line 8106 "htcobol.tab.c" break; - case 843: - -/* Line 1464 of yacc.c */ + case 843: /* display_line: DISPLAY display_varlist display_upon display_line_options end_display_opt */ #line 2591 "htcobol.y" - { gen_display_line((yyvsp[(3) - (5)].ival), (yyvsp[(4) - (5)].ival), 0); ;} + { gen_display_line((yyvsp[-2].ival), (yyvsp[-1].ival), 0); } +#line 8112 "htcobol.tab.c" break; - case 844: - -/* Line 1464 of yacc.c */ + 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[(3) - (4)].ival), co); ;} + gen_display_screen((yyvsp[-1].ival), co); } +#line 8122 "htcobol.tab.c" break; - case 845: - -/* Line 1464 of yacc.c */ + case 845: /* display_varlist: gname */ #line 2602 "htcobol.y" - { put_disp_list((yyvsp[(1) - (1)].sval)); ;} + { put_disp_list((yyvsp[0].sval)); } +#line 8128 "htcobol.tab.c" break; - case 846: - -/* Line 1464 of yacc.c */ + case 846: /* display_varlist: display_varlist sep_opt gname */ #line 2603 "htcobol.y" - { put_disp_list((yyvsp[(3) - (3)].sval)); ;} + { put_disp_list((yyvsp[0].sval)); } +#line 8134 "htcobol.tab.c" break; - case 847: - -/* Line 1464 of yacc.c */ + case 847: /* display_upon: UPON CONSOLE */ #line 2606 "htcobol.y" - { (yyval.ival) = 1; ;} + { (yyval.ival) = 1; } +#line 8140 "htcobol.tab.c" break; - case 848: - -/* Line 1464 of yacc.c */ + case 848: /* display_upon: UPON STD_OUTPUT */ #line 2607 "htcobol.y" - { (yyval.ival) = 1; ;} + { (yyval.ival) = 1; } +#line 8146 "htcobol.tab.c" break; - case 849: - -/* Line 1464 of yacc.c */ + case 849: /* display_upon: UPON STD_ERROR */ #line 2608 "htcobol.y" - { (yyval.ival) = 2; ;} + { (yyval.ival) = 2; } +#line 8152 "htcobol.tab.c" break; - case 850: - -/* Line 1464 of yacc.c */ + case 850: /* display_line_options: %empty */ #line 2611 "htcobol.y" - { (yyval.ival) = 0; ;} + { (yyval.ival) = 0; } +#line 8158 "htcobol.tab.c" break; - case 851: - -/* Line 1464 of yacc.c */ + case 851: /* display_line_options: display_line_options with_opt NO ADVANCING */ #line 2612 "htcobol.y" - { (yyval.ival) = (yyvsp[(1) - (4)].ival) | SCR_NO_ADVANCING; ;} + { (yyval.ival) = (yyvsp[-3].ival) | SCR_NO_ADVANCING; } +#line 8164 "htcobol.tab.c" break; - case 852: - -/* Line 1464 of yacc.c */ + case 852: /* display_line_options: display_line_options with_opt ERASE */ #line 2613 "htcobol.y" - { (yyval.ival) = (yyvsp[(1) - (3)].ival) | SCR_ERASE_EOL; ;} + { (yyval.ival) = (yyvsp[-2].ival) | SCR_ERASE_EOL; } +#line 8170 "htcobol.tab.c" break; - case 853: - -/* Line 1464 of yacc.c */ + case 853: /* display_line_options: display_line_options with_opt ERASE EOS */ #line 2614 "htcobol.y" - { (yyval.ival) = (yyvsp[(1) - (4)].ival) | SCR_ERASE_EOS; ;} + { (yyval.ival) = (yyvsp[-3].ival) | SCR_ERASE_EOS; } +#line 8176 "htcobol.tab.c" break; - case 854: - -/* Line 1464 of yacc.c */ + case 854: /* display_line_options: display_line_options with_opt ERASE EOL */ #line 2615 "htcobol.y" - { (yyval.ival) = (yyvsp[(1) - (4)].ival) | SCR_ERASE_EOL; ;} + { (yyval.ival) = (yyvsp[-3].ival) | SCR_ERASE_EOL; } +#line 8182 "htcobol.tab.c" break; - case 855: - -/* Line 1464 of yacc.c */ + case 855: /* display_line_options: display_line_options with_opt ERASE SCREEN */ #line 2616 "htcobol.y" - { (yyval.ival) = (yyvsp[(1) - (4)].ival) | SCR_ERASE_EOS; ;} + { (yyval.ival) = (yyvsp[-3].ival) | SCR_ERASE_EOS; } +#line 8188 "htcobol.tab.c" break; - case 858: - -/* Line 1464 of yacc.c */ + case 858: /* scr_line: LINE number_opt expr */ #line 2629 "htcobol.y" - { + { screen_io_enable++; HTG_prg_uses_term = 1; - push_expr((yyvsp[(3) - (3)].sval)); + push_expr((yyvsp[0].sval)); gen_gotoy_expr(); - ;} + } +#line 8199 "htcobol.tab.c" break; - case 859: - -/* Line 1464 of yacc.c */ + case 859: /* scr_position: COLUMN number_opt expr */ #line 2638 "htcobol.y" - { + { screen_io_enable++; HTG_prg_uses_term = 1; - push_expr((yyvsp[(3) - (3)].sval)); + push_expr((yyvsp[0].sval)); gen_gotox_expr(); - ;} + } +#line 8210 "htcobol.tab.c" break; - case 860: - -/* Line 1464 of yacc.c */ + case 860: /* scr_position: POSITION expr */ #line 2645 "htcobol.y" - { + { screen_io_enable++; HTG_prg_uses_term = 1; - push_expr((yyvsp[(2) - (2)].sval)); + push_expr((yyvsp[0].sval)); gen_gotox_expr(); - ;} + } +#line 8221 "htcobol.tab.c" break; - case 861: - -/* Line 1464 of yacc.c */ + case 861: /* scr_line_position: AT NLITERAL */ #line 2654 "htcobol.y" - { + { screen_io_enable++; HTG_prg_uses_term = 1; - scr_push_display_position((yyvsp[(2) - (2)].lval)); - ;} + scr_push_display_position((yyvsp[0].lval)); + } +#line 8231 "htcobol.tab.c" break; - case 862: - -/* Line 1464 of yacc.c */ + case 862: /* scr_line_position: AT variable */ #line 2660 "htcobol.y" - { + { screen_io_enable++; HTG_prg_uses_term = 1; - scr_push_display_position((yyvsp[(2) - (2)].sval)); - ;} + scr_push_display_position((yyvsp[0].sval)); + } +#line 8241 "htcobol.tab.c" break; - case 863: - -/* Line 1464 of yacc.c */ + case 863: /* accept_display_options: %empty */ #line 2668 "htcobol.y" - { fg = 0; bg = 0; (yyval.ival) = 0; ;} + { fg = 0; bg = 0; (yyval.ival) = 0; } +#line 8247 "htcobol.tab.c" break; - case 864: - -/* Line 1464 of yacc.c */ + case 864: /* accept_display_options: accept_display_options accept_display_option */ #line 2669 "htcobol.y" - { (yyval.ival) = (yyvsp[(1) - (2)].ival) | (yyvsp[(2) - (2)].ival); ;} + { (yyval.ival) = (yyvsp[-1].ival) | (yyvsp[0].ival); } +#line 8253 "htcobol.tab.c" break; - case 865: - -/* Line 1464 of yacc.c */ + case 865: /* accept_display_option: with_opt screen_attribx */ #line 2672 "htcobol.y" - { (yyval.ival) = (yyvsp[(2) - (2)].ival); ;} + { (yyval.ival) = (yyvsp[0].ival); } +#line 8259 "htcobol.tab.c" break; - case 866: - -/* Line 1464 of yacc.c */ + case 866: /* accept_display_option: scr_line */ #line 2673 "htcobol.y" - { (yyval.ival) = 0; ;} + { (yyval.ival) = 0; } +#line 8265 "htcobol.tab.c" break; - case 867: - -/* Line 1464 of yacc.c */ + case 867: /* accept_display_option: scr_position */ #line 2674 "htcobol.y" - { (yyval.ival) = 0; ;} + { (yyval.ival) = 0; } +#line 8271 "htcobol.tab.c" break; - case 868: - -/* Line 1464 of yacc.c */ + case 868: /* accept_display_option: scr_line_position */ #line 2675 "htcobol.y" - { (yyval.ival) = 0; ;} + { (yyval.ival) = 0; } +#line 8277 "htcobol.tab.c" break; - case 869: - -/* Line 1464 of yacc.c */ + case 869: /* open_statement: OPEN open_options */ #line 2682 "htcobol.y" - { HTG_prg_uses_fileio = 1; ;} + { HTG_prg_uses_fileio = 1; } +#line 8283 "htcobol.tab.c" break; - case 870: - -/* Line 1464 of yacc.c */ + case 870: /* open_statement: OPEN */ #line 2683 "htcobol.y" - { yyerror(err_msg_bad_form, "OPEN");;} + { yyerror(err_msg_bad_form, "OPEN");} +#line 8289 "htcobol.tab.c" break; - case 871: - -/* Line 1464 of yacc.c */ + case 871: /* open_options: open_mode open_varlist */ #line 2686 "htcobol.y" - { ;} + { } +#line 8295 "htcobol.tab.c" break; - case 872: - -/* Line 1464 of yacc.c */ + case 872: /* open_options: open_options open_mode open_varlist */ #line 2687 "htcobol.y" - { ;} + { } +#line 8301 "htcobol.tab.c" break; - case 873: - -/* Line 1464 of yacc.c */ + case 873: /* open_mode: INPUT */ #line 2691 "htcobol.y" - { (yyval.ival)=1; ;} + { (yyval.ival)=1; } +#line 8307 "htcobol.tab.c" break; - case 874: - -/* Line 1464 of yacc.c */ + case 874: /* open_mode: I_O */ #line 2692 "htcobol.y" - { (yyval.ival)=2; ;} + { (yyval.ival)=2; } +#line 8313 "htcobol.tab.c" break; - case 875: - -/* Line 1464 of yacc.c */ + case 875: /* open_mode: OUTPUT */ #line 2693 "htcobol.y" - { (yyval.ival)=3; ;} + { (yyval.ival)=3; } +#line 8319 "htcobol.tab.c" break; - case 876: - -/* Line 1464 of yacc.c */ + case 876: /* open_mode: EXTEND */ #line 2694 "htcobol.y" - { (yyval.ival)=4; ;} + { (yyval.ival)=4; } +#line 8325 "htcobol.tab.c" break; - case 877: - -/* Line 1464 of yacc.c */ + case 877: /* open_mode: error */ #line 2695 "htcobol.y" - { yyerror("invalid OPEN mode"); ;} + { yyerror("invalid OPEN mode"); } +#line 8331 "htcobol.tab.c" break; - case 878: - -/* Line 1464 of yacc.c */ + case 878: /* open_varlist: name */ #line 2698 "htcobol.y" - { gen_open((yyvsp[(0) - (1)].ival), (yyvsp[(1) - (1)].sval)); ;} + { gen_open((yyvsp[-1].ival), (yyvsp[0].sval)); } +#line 8337 "htcobol.tab.c" break; - case 879: - -/* Line 1464 of yacc.c */ + case 879: /* open_varlist: open_varlist sep_opt name */ #line 2699 "htcobol.y" - { gen_open((yyvsp[(0) - (3)].ival), (yyvsp[(3) - (3)].sval)); ;} + { gen_open((yyvsp[-3].ival), (yyvsp[0].sval)); } +#line 8343 "htcobol.tab.c" break; - case 881: - -/* Line 1464 of yacc.c */ + case 881: /* close_statement: CLOSE */ #line 2706 "htcobol.y" - { yyerror(err_msg_bad_form, "CLOSE");;} + { yyerror(err_msg_bad_form, "CLOSE");} +#line 8349 "htcobol.tab.c" break; - case 884: - -/* Line 1464 of yacc.c */ + case 884: /* close_file: name close_options_opt */ #line 2713 "htcobol.y" - { gen_close((yyvsp[(1) - (2)].sval)); ;} + { gen_close((yyvsp[-1].sval)); } +#line 8355 "htcobol.tab.c" break; - case 885: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + case 886: /* close_options_opt: with_lock_opt */ #line 2721 "htcobol.y" - { (yyval.ival)=(yyvsp[(1) - (1)].ival); ;} + { (yyval.ival)=(yyvsp[0].ival); } +#line 8370 "htcobol.tab.c" break; - case 887: - -/* Line 1464 of yacc.c */ + case 887: /* close_options: with_opt NO REWIND */ #line 2724 "htcobol.y" - { ;} + { } +#line 8376 "htcobol.tab.c" break; - case 888: - -/* Line 1464 of yacc.c */ + case 888: /* close_options: REEL */ #line 2725 "htcobol.y" - { ;} + { } +#line 8382 "htcobol.tab.c" break; - case 889: - -/* Line 1464 of yacc.c */ + case 889: /* close_options: UNIT */ #line 2726 "htcobol.y" - { ;} + { } +#line 8388 "htcobol.tab.c" break; - case 890: - -/* Line 1464 of yacc.c */ + case 890: /* close_options: REEL for_opt REMOVAL */ #line 2727 "htcobol.y" - { ;} + { } +#line 8394 "htcobol.tab.c" break; - case 891: - -/* Line 1464 of yacc.c */ + case 891: /* close_options: UNIT for_opt REMOVAL */ #line 2728 "htcobol.y" - { ;} + { } +#line 8400 "htcobol.tab.c" break; - case 892: - -/* Line 1464 of yacc.c */ + case 892: /* with_lock_opt: with_opt LOCK */ #line 2731 "htcobol.y" - { (yyval.ival)=1; ;} + { (yyval.ival)=1; } +#line 8406 "htcobol.tab.c" break; - case 893: - -/* Line 1464 of yacc.c */ + case 893: /* with_lock_opt: with_opt IGNORE LOCK */ #line 2732 "htcobol.y" - { (yyval.ival)=2; ;} + { (yyval.ival)=2; } +#line 8412 "htcobol.tab.c" break; - case 894: - -/* Line 1464 of yacc.c */ + case 894: /* with_lock_opt: %empty */ #line 2733 "htcobol.y" - { (yyval.ival)=0; ;} + { (yyval.ival)=0; } +#line 8418 "htcobol.tab.c" break; - case 896: - -/* Line 1464 of yacc.c */ + case 896: /* return_statement: RETURN */ #line 2740 "htcobol.y" - { yyerror(err_msg_bad_form, "RETURN");;} + { yyerror(err_msg_bad_form, "RETURN");} +#line 8424 "htcobol.tab.c" break; - case 897: - -/* Line 1464 of yacc.c */ + case 897: /* return_body: name record_opt read_into_opt */ #line 2746 "htcobol.y" { - if (gen_reads((yyvsp[(1) - (3)].sval), (yyvsp[(3) - (3)].sval), NULL, 1, 4, 0) != 0) { + if (gen_reads((yyvsp[-2].sval), (yyvsp[0].sval), NULL, 1, 4, 0) != 0) { YYABORT; } - ;} + } +#line 8434 "htcobol.tab.c" break; - case 898: - -/* Line 1464 of yacc.c */ + case 898: /* return_body: name record_opt read_into_opt read_at_end_opt */ #line 2755 "htcobol.y" { - if (gen_reads((yyvsp[(1) - (4)].sval), (yyvsp[(3) - (4)].sval), NULL, 1, 5, 0) != 0) { + if (gen_reads((yyvsp[-3].sval), (yyvsp[-1].sval), NULL, 1, 5, 0) != 0) { YYABORT; } else { - ginfo_container4((yyvsp[(4) - (4)].gic)); + ginfo_container4((yyvsp[0].gic)); gic = NULL; } - ;} + } +#line 8448 "htcobol.tab.c" break; - case 899: - -/* Line 1464 of yacc.c */ + case 899: /* read_statement: READ read_body end_read_opt */ #line 2769 "htcobol.y" - { ;} + { } +#line 8454 "htcobol.tab.c" break; - case 900: - -/* Line 1464 of yacc.c */ + case 900: /* read_statement: READ */ #line 2770 "htcobol.y" - { yyerror(err_msg_bad_form, "READ");;} + { yyerror(err_msg_bad_form, "READ");} +#line 8460 "htcobol.tab.c" break; - case 901: - -/* Line 1464 of yacc.c */ + 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[(1) - (6)].sval), (yyvsp[(4) - (6)].sval), (yyvsp[(6) - (6)].sval), (yyvsp[(2) - (6)].ival), 0, (yyvsp[(5) - (6)].ival)) != 0) { + 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[(1) - (6)].sval)); + gen_perform_decl((yyvsp[-5].sval)); } - ;} + } +#line 8473 "htcobol.tab.c" break; - case 902: - -/* Line 1464 of yacc.c */ + 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[(1) - (7)].sval), (yyvsp[(4) - (7)].sval), (yyvsp[(6) - (7)].sval), (yyvsp[(2) - (7)].ival), 1, (yyvsp[(5) - (7)].ival)) != 0) { + 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[(7) - (7)].gic)); - gen_perform_decl((yyvsp[(1) - (7)].sval)); + ginfo_container4((yyvsp[0].gic)); + gen_perform_decl((yyvsp[-6].sval)); gic = NULL; } - ;} + } +#line 8488 "htcobol.tab.c" break; - case 903: - -/* Line 1464 of yacc.c */ + 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[(1) - (7)].sval), (yyvsp[(4) - (7)].sval), (yyvsp[(6) - (7)].sval), (yyvsp[(2) - (7)].ival), 2, (yyvsp[(5) - (7)].ival)) != 0) { + 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[(7) - (7)].iks), (yyvsp[(1) - (7)].sval), 23); - gen_perform_decl((yyvsp[(1) - (7)].sval)); + 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: - -/* Line 1464 of yacc.c */ + case 904: /* read_next_opt: %empty */ #line 2822 "htcobol.y" - { (yyval.ival) = 0; ;} + { (yyval.ival) = 0; } +#line 8508 "htcobol.tab.c" break; - case 905: - -/* Line 1464 of yacc.c */ + case 905: /* read_next_opt: NEXT */ #line 2823 "htcobol.y" - { (yyval.ival) = 1; ;} + { (yyval.ival) = 1; } +#line 8514 "htcobol.tab.c" break; - case 906: - -/* Line 1464 of yacc.c */ + case 906: /* read_next_opt: PREVIOUS */ #line 2824 "htcobol.y" - { (yyval.ival) = 2; ;} + { (yyval.ival) = 2; } +#line 8520 "htcobol.tab.c" break; - case 907: - -/* Line 1464 of yacc.c */ + case 907: /* read_into_opt: %empty */ #line 2827 "htcobol.y" - { (yyval.sval) = NULL; ;} + { (yyval.sval) = NULL; } +#line 8526 "htcobol.tab.c" break; - case 908: - -/* Line 1464 of yacc.c */ + case 908: /* read_into_opt: INTO name */ #line 2828 "htcobol.y" - { (yyval.sval) = (yyvsp[(2) - (2)].sval); ;} + { (yyval.sval) = (yyvsp[0].sval); } +#line 8532 "htcobol.tab.c" break; - case 909: - -/* Line 1464 of yacc.c */ + case 909: /* read_key_opt: %empty */ #line 2831 "htcobol.y" - { (yyval.sval) = NULL; ;} + { (yyval.sval) = NULL; } +#line 8538 "htcobol.tab.c" break; - case 910: - -/* Line 1464 of yacc.c */ + case 910: /* read_key_opt: KEY is_opt name */ #line 2832 "htcobol.y" - { (yyval.sval) = (yyvsp[(3) - (3)].sval); ;} + { (yyval.sval) = (yyvsp[0].sval); } +#line 8544 "htcobol.tab.c" break; - case 911: - -/* Line 1464 of yacc.c */ + case 911: /* read_at_end_opt: NOT at_opt on_end */ #line 2836 "htcobol.y" - { - ginfo_container2((yyvsp[(3) - (3)].gic), 2); - (yyval.gic)=ginfo_container3((yyvsp[(3) - (3)].gic), 2); - ;} + { + ginfo_container2((yyvsp[0].gic), 2); + (yyval.gic)=ginfo_container3((yyvsp[0].gic), 2); + } +#line 8553 "htcobol.tab.c" break; - case 912: - -/* Line 1464 of yacc.c */ + case 912: /* read_at_end_opt: AT on_end */ #line 2841 "htcobol.y" - { - ginfo_container2((yyvsp[(2) - (2)].gic), 1); - (yyval.gic)=ginfo_container3((yyvsp[(2) - (2)].gic), 1); - ;} + { + ginfo_container2((yyvsp[0].gic), 1); + (yyval.gic)=ginfo_container3((yyvsp[0].gic), 1); + } +#line 8562 "htcobol.tab.c" break; - case 913: - -/* Line 1464 of yacc.c */ + case 913: /* read_at_end_opt: on_end */ #line 2846 "htcobol.y" - { - ginfo_container2((yyvsp[(1) - (1)].gic), 1); - (yyval.gic)=ginfo_container3((yyvsp[(1) - (1)].gic), 1); - ;} + { + ginfo_container2((yyvsp[0].gic), 1); + (yyval.gic)=ginfo_container3((yyvsp[0].gic), 1); + } +#line 8571 "htcobol.tab.c" break; - case 914: - -/* Line 1464 of yacc.c */ + case 914: /* $@96: %empty */ #line 2851 "htcobol.y" - { - ginfo_container2((yyvsp[(2) - (4)].gic), 1); - ;} + { + ginfo_container2((yyvsp[-2].gic), 1); + } +#line 8579 "htcobol.tab.c" break; - case 915: - -/* Line 1464 of yacc.c */ + case 915: /* read_at_end_opt: AT on_end NOT at_opt $@96 on_end */ #line 2855 "htcobol.y" - { - ginfo_container2((yyvsp[(6) - (6)].gic), 2); - (yyval.gic)=ginfo_container3((yyvsp[(6) - (6)].gic), 3); - ;} + { + ginfo_container2((yyvsp[0].gic), 2); + (yyval.gic)=ginfo_container3((yyvsp[0].gic), 3); + } +#line 8588 "htcobol.tab.c" break; - case 916: - -/* Line 1464 of yacc.c */ + case 916: /* $@97: %empty */ #line 2860 "htcobol.y" - { - ginfo_container2((yyvsp[(1) - (3)].gic), 1); - ;} + { + ginfo_container2((yyvsp[-2].gic), 1); + } +#line 8596 "htcobol.tab.c" break; - case 917: - -/* Line 1464 of yacc.c */ + case 917: /* read_at_end_opt: on_end NOT at_opt $@97 on_end */ #line 2864 "htcobol.y" - { - ginfo_container2((yyvsp[(5) - (5)].gic), 2); - (yyval.gic)=ginfo_container3((yyvsp[(5) - (5)].gic), 3); - ;} + { + ginfo_container2((yyvsp[0].gic), 2); + (yyval.gic)=ginfo_container3((yyvsp[0].gic), 3); + } +#line 8605 "htcobol.tab.c" break; - case 918: - -/* Line 1464 of yacc.c */ + case 918: /* @98: %empty */ #line 2871 "htcobol.y" { if ( gic == NULL ) { @@ -9407,276 +8612,241 @@ yyreduce: } (yyval.gic)=ginfo_container1(gic); stabs_line(); - ;} + } +#line 8617 "htcobol.tab.c" break; - case 919: - -/* Line 1464 of yacc.c */ + case 919: /* on_end: END @98 statement_list */ #line 2879 "htcobol.y" { - (yyval.gic)=(yyvsp[(2) - (3)].gic); - ;} + (yyval.gic)=(yyvsp[-1].gic); + } +#line 8625 "htcobol.tab.c" break; - case 920: - -/* Line 1464 of yacc.c */ + case 920: /* read_invalid_key_opt: read_invalid_key */ #line 2884 "htcobol.y" - { (yyval.iks) = gen_invalid_keys ((yyvsp[(1) - (1)].ike), NULL); ;} + { (yyval.iks) = gen_invalid_keys ((yyvsp[0].ike), NULL); } +#line 8631 "htcobol.tab.c" break; - case 921: - -/* Line 1464 of yacc.c */ + case 921: /* read_invalid_key_opt: read_not_invalid_key */ #line 2885 "htcobol.y" - { (yyval.iks) = gen_invalid_keys (NULL, (yyvsp[(1) - (1)].ike)); ;} + { (yyval.iks) = gen_invalid_keys (NULL, (yyvsp[0].ike)); } +#line 8637 "htcobol.tab.c" break; - case 922: - -/* Line 1464 of yacc.c */ + case 922: /* read_invalid_key_opt: read_invalid_key read_not_invalid_key */ #line 2886 "htcobol.y" - { (yyval.iks) = gen_invalid_keys ((yyvsp[(1) - (2)].ike), (yyvsp[(2) - (2)].ike)); ;} + { (yyval.iks) = gen_invalid_keys ((yyvsp[-1].ike), (yyvsp[0].ike)); } +#line 8643 "htcobol.tab.c" break; - case 923: - -/* Line 1464 of yacc.c */ + case 923: /* @99: %empty */ #line 2889 "htcobol.y" - { (yyval.ike) = gen_before_invalid_key (); ;} + { (yyval.ike) = gen_before_invalid_key (); } +#line 8649 "htcobol.tab.c" break; - case 924: - -/* Line 1464 of yacc.c */ + case 924: /* read_invalid_key: INVALID key_opt @99 statement_list */ #line 2890 "htcobol.y" - { (yyval.ike) = gen_after_invalid_key ((yyvsp[(3) - (4)].ike)); ;} + { (yyval.ike) = gen_after_invalid_key ((yyvsp[-1].ike)); } +#line 8655 "htcobol.tab.c" break; - case 925: - -/* Line 1464 of yacc.c */ + case 925: /* @100: %empty */ #line 2893 "htcobol.y" - { (yyval.ike) = gen_before_invalid_key (); ;} + { (yyval.ike) = gen_before_invalid_key (); } +#line 8661 "htcobol.tab.c" break; - case 926: - -/* Line 1464 of yacc.c */ + case 926: /* read_not_invalid_key: NOT INVALID key_opt @100 statement_list */ #line 2894 "htcobol.y" - { (yyval.ike) = gen_after_invalid_key ((yyvsp[(4) - (5)].ike)); ;} + { (yyval.ike) = gen_after_invalid_key ((yyvsp[-1].ike)); } +#line 8667 "htcobol.tab.c" break; - case 931: - -/* Line 1464 of yacc.c */ + case 931: /* release_statement: RELEASE name release_from_opt */ #line 2909 "htcobol.y" { - gen_release((yyvsp[(2) - (3)].sval), (yyvsp[(3) - (3)].sval)); - ;} + gen_release((yyvsp[-1].sval), (yyvsp[0].sval)); + } +#line 8675 "htcobol.tab.c" break; - case 932: - -/* Line 1464 of yacc.c */ + case 932: /* release_from_opt: %empty */ #line 2914 "htcobol.y" - { (yyval.sval) = NULL; ;} + { (yyval.sval) = NULL; } +#line 8681 "htcobol.tab.c" break; - case 933: - -/* Line 1464 of yacc.c */ + case 933: /* release_from_opt: FROM gname */ #line 2915 "htcobol.y" - { (yyval.sval) = (yyvsp[(2) - (2)].sval); ;} + { (yyval.sval) = (yyvsp[0].sval); } +#line 8687 "htcobol.tab.c" break; - case 934: - -/* Line 1464 of yacc.c */ + case 934: /* $@101: %empty */ #line 2922 "htcobol.y" { - if ((yyvsp[(2) - (4)].sval)->level != 1) - yyerror("variable %s could not be used for WRITE", (yyvsp[(2) - (4)].sval)->name); - gen_write((yyvsp[(2) - (4)].sval), (yyvsp[(4) - (4)].sval), (yyvsp[(3) - (4)].sval), write_advancing_sw); - ;} + 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: - -/* Line 1464 of yacc.c */ + 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[(6) - (7)].iks), (yyvsp[(2) - (7)].sval), 22);;} + {gen_test_invalid_keys ((yyvsp[-1].iks), (yyvsp[-5].sval), 22);} +#line 8703 "htcobol.tab.c" break; - case 936: - -/* Line 1464 of yacc.c */ + case 936: /* write_from_opt: %empty */ #line 2931 "htcobol.y" - { (yyval.sval) = NULL; ;} + { (yyval.sval) = NULL; } +#line 8709 "htcobol.tab.c" break; - case 937: - -/* Line 1464 of yacc.c */ + case 937: /* write_from_opt: FROM gname */ #line 2932 "htcobol.y" - { (yyval.sval) = (yyvsp[(2) - (2)].sval); ;} + { (yyval.sval) = (yyvsp[0].sval); } +#line 8715 "htcobol.tab.c" break; - case 938: - -/* Line 1464 of yacc.c */ + case 938: /* write_options: %empty */ #line 2935 "htcobol.y" - { (yyval.sval) = NULL; write_advancing_sw = 0; ;} + { (yyval.sval) = NULL; write_advancing_sw = 0; } +#line 8721 "htcobol.tab.c" break; - case 939: - -/* Line 1464 of yacc.c */ + case 939: /* write_options: before_after advancing_opt gname line_lines_opt */ #line 2937 "htcobol.y" - { + { /* gen_loadvar($3); */ - (yyval.sval) = (yyvsp[(3) - (4)].sval); - write_advancing_sw = (yyvsp[(1) - (4)].ival); - ;} + (yyval.sval) = (yyvsp[-1].sval); + write_advancing_sw = (yyvsp[-3].ival); + } +#line 8731 "htcobol.tab.c" break; - case 940: - -/* Line 1464 of yacc.c */ + case 940: /* write_options: before_after advancing_opt PAGE */ #line 2943 "htcobol.y" - { - write_advancing_sw = -(yyvsp[(1) - (3)].ival); + { + write_advancing_sw = -(yyvsp[-2].ival); (yyval.sval) = NULL; - ;} + } +#line 8740 "htcobol.tab.c" break; - case 943: - -/* Line 1464 of yacc.c */ + case 943: /* $@102: %empty */ #line 2957 "htcobol.y" { - if ((yyvsp[(2) - (3)].sval)->level != 1) - yyerror("variable %s could not be used for REWRITE", (yyvsp[(2) - (3)].sval)->name); - gen_rewrite((yyvsp[(2) - (3)].sval), (yyvsp[(3) - (3)].sval)); - ;} + 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: - -/* Line 1464 of yacc.c */ + 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[(5) - (6)].iks), (yyvsp[(2) - (6)].sval), 22);;} + {gen_test_invalid_keys ((yyvsp[-1].iks), (yyvsp[-4].sval), 22);} +#line 8756 "htcobol.tab.c" break; - case 947: - -/* Line 1464 of yacc.c */ + case 947: /* $@103: %empty */ #line 2973 "htcobol.y" - { gen_delete((yyvsp[(2) - (3)].sval)); ;} + { gen_delete((yyvsp[-1].sval)); } +#line 8762 "htcobol.tab.c" break; - case 948: - -/* Line 1464 of yacc.c */ + case 948: /* delete_statement: DELETE name record_opt $@103 invalid_key_opt end_delete_opt */ #line 2975 "htcobol.y" - {gen_test_invalid_keys ((yyvsp[(5) - (6)].iks), (yyvsp[(2) - (6)].sval), 23);;} + {gen_test_invalid_keys ((yyvsp[-1].iks), (yyvsp[-4].sval), 23);} +#line 8768 "htcobol.tab.c" break; - case 951: - -/* Line 1464 of yacc.c */ + case 951: /* $@104: %empty */ #line 2986 "htcobol.y" - {gen_test_invalid_keys ((yyvsp[(3) - (3)].iks), (yyvsp[(2) - (3)].sval), 23);;} + {gen_test_invalid_keys ((yyvsp[0].iks), (yyvsp[-1].sval), 23);} +#line 8774 "htcobol.tab.c" break; - case 953: - -/* Line 1464 of yacc.c */ + case 953: /* start_body: name */ #line 2990 "htcobol.y" - { gen_start((yyvsp[(1) - (1)].sval),0,NULL); (yyval.sval) = (yyvsp[(1) - (1)].sval);;} + { gen_start((yyvsp[0].sval),0,NULL); (yyval.sval) = (yyvsp[0].sval);} +#line 8780 "htcobol.tab.c" break; - case 954: - -/* Line 1464 of yacc.c */ + case 954: /* start_body: name KEY is_opt cond_op name */ #line 2991 "htcobol.y" - { gen_start((yyvsp[(1) - (5)].sval),(yyvsp[(4) - (5)].ival),(yyvsp[(5) - (5)].sval)); (yyval.sval) = (yyvsp[(1) - (5)].sval);;} + { gen_start((yyvsp[-4].sval),(yyvsp[-1].ival),(yyvsp[0].sval)); (yyval.sval) = (yyvsp[-4].sval);} +#line 8786 "htcobol.tab.c" break; - case 957: - -/* Line 1464 of yacc.c */ + case 957: /* goto_statement: GO to_opt goto_label */ #line 3005 "htcobol.y" - { gen_goto((yyvsp[(3) - (3)].lstval)); ;} + { gen_goto((yyvsp[0].lstval)); } +#line 8792 "htcobol.tab.c" break; - case 958: - -/* Line 1464 of yacc.c */ + case 958: /* goto_statement: GO to_opt goto_label_list DEPENDING on_opt variable */ #line 3007 "htcobol.y" { - if (is_numeric_sy((yyvsp[(6) - (6)].sval))) - gen_goto_depending((yyvsp[(3) - (6)].lstval), (yyvsp[(6) - (6)].sval)); - else yyerror("variable '%s' must be numeric", (yyvsp[(6) - (6)].sval)->name); - ;} + 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: - -/* Line 1464 of yacc.c */ + case 959: /* goto_label: label */ #line 3013 "htcobol.y" - { (yyval.lstval) = insert_list(NULL, (yyvsp[(1) - (1)].sval)); ;} + { (yyval.lstval) = insert_list(NULL, (yyvsp[0].sval)); } +#line 8808 "htcobol.tab.c" break; - case 960: - -/* Line 1464 of yacc.c */ + case 960: /* goto_label_list: label */ #line 3016 "htcobol.y" - { (yyval.lstval) = insert_list(NULL, (yyvsp[(1) - (1)].sval)); ;} + { (yyval.lstval) = insert_list(NULL, (yyvsp[0].sval)); } +#line 8814 "htcobol.tab.c" break; - case 961: - -/* Line 1464 of yacc.c */ + case 961: /* goto_label_list: goto_label_list label */ #line 3017 "htcobol.y" - { (yyval.lstval) = insert_list((yyvsp[(1) - (2)].lstval), (yyvsp[(2) - (2)].sval)); ;} + { (yyval.lstval) = insert_list((yyvsp[-1].lstval), (yyvsp[0].sval)); } +#line 8820 "htcobol.tab.c" break; - case 962: - -/* Line 1464 of yacc.c */ + case 962: /* goto_label_list: goto_label_list LISTSEP label */ #line 3018 "htcobol.y" - { (yyval.lstval) = insert_list((yyvsp[(1) - (3)].lstval), (yyvsp[(3) - (3)].sval)); ;} + { (yyval.lstval) = insert_list((yyvsp[-2].lstval), (yyvsp[0].sval)); } +#line 8826 "htcobol.tab.c" break; - case 963: - -/* Line 1464 of yacc.c */ + case 963: /* $@105: %empty */ #line 3023 "htcobol.y" - { curr_call_mode=CM_REF; ;} + { curr_call_mode=CM_REF; } +#line 8832 "htcobol.tab.c" break; - case 964: - -/* Line 1464 of yacc.c */ + case 964: /* @106: %empty */ #line 3028 "htcobol.y" - { (yyval.ival) = loc_label++; /* exception check */ ;} + { (yyval.ival) = loc_label++; /* exception check */ } +#line 8838 "htcobol.tab.c" break; - case 965: - -/* Line 1464 of yacc.c */ + case 965: /* @107: %empty */ #line 3029 "htcobol.y" - { (yyval.ival) = loc_label++; /* not exception check */ ;} + { (yyval.ival) = loc_label++; /* not exception check */ } +#line 8844 "htcobol.tab.c" break; - case 966: - -/* Line 1464 of yacc.c */ + case 966: /* @108: %empty */ #line 3030 "htcobol.y" { - (yyval.ival) = emt_call((struct lit *)(yyvsp[(4) - (8)].sval), (yyvsp[(5) - (8)].ival), (yyvsp[(7) - (8)].ival), (yyvsp[(8) - (8)].ival), (yyvsp[(6) - (8)].sval)); + (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 */ /* @@ -9684,142 +8854,123 @@ yyreduce: HTG_prg_uses_dcall = 1; } */ - ;} + } +#line 8859 "htcobol.tab.c" break; - case 967: - -/* Line 1464 of yacc.c */ + case 967: /* $@109: %empty */ #line 3041 "htcobol.y" - { check_call_except((yyvsp[(10) - (11)].ival), (yyvsp[(11) - (11)].ival), (yyvsp[(7) - (11)].ival), (yyvsp[(8) - (11)].ival), (yyvsp[(9) - (11)].ival)); ;} + { 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: - -/* Line 1464 of yacc.c */ + case 969: /* call_statement: CALL */ #line 3043 "htcobol.y" - { yyerror(err_msg_bad_form, "CALL"); ;} + { yyerror(err_msg_bad_form, "CALL"); } +#line 8871 "htcobol.tab.c" break; - case 970: - -/* Line 1464 of yacc.c */ + case 970: /* call_convention_opt: %empty */ #line 3046 "htcobol.y" - { curr_call_convention = 0; ;} + { curr_call_convention = 0; } +#line 8877 "htcobol.tab.c" break; - case 971: - -/* Line 1464 of yacc.c */ + case 971: /* call_convention_opt: CALL_CONV_C */ #line 3047 "htcobol.y" - { curr_call_convention = 0; ;} + { curr_call_convention = 0; } +#line 8883 "htcobol.tab.c" break; - case 972: - -/* Line 1464 of yacc.c */ + case 972: /* call_convention_opt: CALL_CONV_STDCALL */ #line 3048 "htcobol.y" - { curr_call_convention = 1; ;} + { curr_call_convention = 1; } +#line 8889 "htcobol.tab.c" break; - case 973: - -/* Line 1464 of yacc.c */ + case 973: /* $@110: %empty */ #line 3056 "htcobol.y" { - emt_call_loadlib((struct lit *)(yyvsp[(2) - (2)].sval)); - ;} + emt_call_loadlib((struct lit *)(yyvsp[0].sval)); + } +#line 8897 "htcobol.tab.c" break; - case 975: - -/* Line 1464 of yacc.c */ + case 975: /* call_loadlib_statement: CALL_LOADLIB */ #line 3060 "htcobol.y" - { yyerror(err_msg_bad_form, "CALL-LOADLIB"); ;} + { yyerror(err_msg_bad_form, "CALL-LOADLIB"); } +#line 8903 "htcobol.tab.c" break; - case 976: - -/* Line 1464 of yacc.c */ + case 976: /* end_call_loadlib_opt: END_CALL_LOADLIB */ #line 3064 "htcobol.y" - { ;} + { } +#line 8909 "htcobol.tab.c" break; - case 977: - -/* Line 1464 of yacc.c */ + case 977: /* end_call_loadlib_opt: %empty */ #line 3065 "htcobol.y" - { ;} + { } +#line 8915 "htcobol.tab.c" break; - case 978: - -/* Line 1464 of yacc.c */ + case 978: /* $@111: %empty */ #line 3070 "htcobol.y" - { curr_call_mode=CM_CHAIN; ;} + { curr_call_mode=CM_CHAIN; } +#line 8921 "htcobol.tab.c" break; - case 979: - -/* Line 1464 of yacc.c */ + case 979: /* @112: %empty */ #line 3072 "htcobol.y" - { (yyval.ival) = loc_label++; /* exception check */ ;} + { (yyval.ival) = loc_label++; /* exception check */ } +#line 8927 "htcobol.tab.c" break; - case 980: - -/* Line 1464 of yacc.c */ + case 980: /* @113: %empty */ #line 3073 "htcobol.y" - { (yyval.ival) = gen_chain((yyvsp[(3) - (5)].sval),(yyvsp[(4) - (5)].ival),(yyvsp[(5) - (5)].ival)); ;} + { (yyval.ival) = gen_chain((yyvsp[-2].sval),(yyvsp[-1].ival),(yyvsp[0].ival)); } +#line 8933 "htcobol.tab.c" break; - case 981: - -/* Line 1464 of yacc.c */ + case 981: /* $@114: %empty */ #line 3075 "htcobol.y" - {/* check_call_except($9,$10,$6,$7,$8);*/ ;} + {/* check_call_except($9,$10,$6,$7,$8);*/ } +#line 8939 "htcobol.tab.c" break; - case 983: - -/* Line 1464 of yacc.c */ + case 983: /* chain_statement: CHAIN */ #line 3077 "htcobol.y" - { yyerror(err_msg_bad_form, "CHAIN"); ;} + { yyerror(err_msg_bad_form, "CHAIN"); } +#line 8945 "htcobol.tab.c" break; - case 984: - -/* Line 1464 of yacc.c */ + case 984: /* exit_statement: EXIT */ #line 3082 "htcobol.y" - { gen_exit(0); ;} + { gen_exit(0); } +#line 8951 "htcobol.tab.c" break; - case 985: - -/* Line 1464 of yacc.c */ + case 985: /* exit_statement: EXIT PARAGRAPH */ #line 3083 "htcobol.y" - { gen_exit(0); ;} + { gen_exit(0); } +#line 8957 "htcobol.tab.c" break; - case 986: - -/* Line 1464 of yacc.c */ + case 986: /* exit_statement: EXIT PROGRAM */ #line 3084 "htcobol.y" - { gen_exit(1); ;} + { gen_exit(1); } +#line 8963 "htcobol.tab.c" break; - case 987: - -/* Line 1464 of yacc.c */ + case 987: /* stop_statement: STOP RUN */ #line 3089 "htcobol.y" - { gen_stoprun(); ;} + { gen_stoprun(); } +#line 8969 "htcobol.tab.c" break; - case 988: - -/* Line 1464 of yacc.c */ + 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); @@ -9827,138 +8978,123 @@ yyreduce: /* walter acrescentei 0 ao final gen_accept(sy, 0, 1); */ gen_accept(sy, 0, 1, 0); - ;} + } +#line 8983 "htcobol.tab.c" break; - case 989: - -/* Line 1464 of yacc.c */ + case 989: /* stop_literal: CLITERAL */ #line 3103 "htcobol.y" { - save_literal((yyvsp[(1) - (1)].lval),'X'); - (yyvsp[(1) - (1)].lval)->all=0; - put_disp_list((struct sym *)(yyvsp[(1) - (1)].lval)); - ;} + 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: - -/* Line 1464 of yacc.c */ + case 990: /* stop_literal: NLITERAL */ #line 3109 "htcobol.y" { - save_literal((yyvsp[(1) - (1)].lval),'X'); - (yyvsp[(1) - (1)].lval)->all=0; - put_disp_list((struct sym *)(yyvsp[(1) - (1)].lval)); - ;} + 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: - -/* Line 1464 of yacc.c */ + case 991: /* goback_statement: GOBACK */ #line 3118 "htcobol.y" - { gen_goback(); ;} + { gen_goback(); } +#line 9009 "htcobol.tab.c" break; - case 992: - -/* Line 1464 of yacc.c */ + case 992: /* var_list_name: name rounded_opt sep_opt */ #line 3122 "htcobol.y" - { - (yyval.mval) = create_mathvar_info(NULL, (yyvsp[(1) - (3)].sval), (yyvsp[(2) - (3)].ival)); - ;} + { + (yyval.mval) = create_mathvar_info(NULL, (yyvsp[-2].sval), (yyvsp[-1].ival)); + } +#line 9017 "htcobol.tab.c" break; - case 993: - -/* Line 1464 of yacc.c */ + case 993: /* var_list_name: var_list_name name rounded_opt sep_opt */ #line 3126 "htcobol.y" - { - (yyval.mval) = create_mathvar_info((yyvsp[(1) - (4)].mval), (yyvsp[(2) - (4)].sval), (yyvsp[(3) - (4)].ival)); - ;} + { + (yyval.mval) = create_mathvar_info((yyvsp[-3].mval), (yyvsp[-2].sval), (yyvsp[-1].ival)); + } +#line 9025 "htcobol.tab.c" break; - case 994: - -/* Line 1464 of yacc.c */ + case 994: /* var_list_gname: gname sep_opt */ #line 3132 "htcobol.y" - { - (yyval.mval) = create_mathvar_info(NULL, (yyvsp[(1) - (2)].sval), 0); - ;} + { + (yyval.mval) = create_mathvar_info(NULL, (yyvsp[-1].sval), 0); + } +#line 9033 "htcobol.tab.c" break; - case 995: - -/* Line 1464 of yacc.c */ + case 995: /* var_list_gname: var_list_gname gname sep_opt */ #line 3136 "htcobol.y" - { - (yyval.mval) = create_mathvar_info((yyvsp[(1) - (3)].mval), (yyvsp[(2) - (3)].sval), 0); - ;} + { + (yyval.mval) = create_mathvar_info((yyvsp[-2].mval), (yyvsp[-1].sval), 0); + } +#line 9041 "htcobol.tab.c" break; - case 996: - -/* Line 1464 of yacc.c */ + case 996: /* rounded_opt: %empty */ #line 3142 "htcobol.y" - { (yyval.ival)=0; ;} + { (yyval.ival)=0; } +#line 9047 "htcobol.tab.c" break; - case 997: - -/* Line 1464 of yacc.c */ + case 997: /* rounded_opt: ROUNDED */ #line 3143 "htcobol.y" - { (yyval.ival)=1; ;} + { (yyval.ival)=1; } +#line 9053 "htcobol.tab.c" break; - case 998: - -/* Line 1464 of yacc.c */ + case 998: /* on_size_error_opt: %empty */ #line 3148 "htcobol.y" - { + { (yyval.mose)=NULL; - ;} + } +#line 9061 "htcobol.tab.c" break; - case 999: - -/* Line 1464 of yacc.c */ + case 999: /* on_size_error_opt: NOT on_opt SIZE on_size_error */ #line 3153 "htcobol.y" - { - (yyval.mose)=math_on_size_error4((yyvsp[(4) - (4)].mose), 2); - ;} + { + (yyval.mose)=math_on_size_error4((yyvsp[0].mose), 2); + } +#line 9069 "htcobol.tab.c" break; - case 1000: - -/* Line 1464 of yacc.c */ + case 1000: /* on_size_error_opt: on_opt SIZE on_size_error */ #line 3158 "htcobol.y" - { - (yyval.mose)=math_on_size_error4((yyvsp[(3) - (3)].mose), 1); - ;} + { + (yyval.mose)=math_on_size_error4((yyvsp[0].mose), 1); + } +#line 9077 "htcobol.tab.c" break; - case 1001: - -/* Line 1464 of yacc.c */ + case 1001: /* $@115: %empty */ #line 3164 "htcobol.y" - { - (yyvsp[(3) - (6)].mose)->lbl1=(yyvsp[(3) - (6)].mose)->ose; - ;} + { + (yyvsp[-3].mose)->lbl1=(yyvsp[-3].mose)->ose; + } +#line 9085 "htcobol.tab.c" break; - case 1002: - -/* Line 1464 of yacc.c */ + 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[(8) - (8)].mose), 3); - ;} + { + (yyval.mose)=math_on_size_error4((yyvsp[0].mose), 3); + } +#line 9093 "htcobol.tab.c" break; - case 1003: - -/* Line 1464 of yacc.c */ + case 1003: /* @116: %empty */ #line 3175 "htcobol.y" - { + { if ( tmose == NULL ) { tmose=math_on_size_error0(); (yyval.mose)=math_on_size_error1(tmose); @@ -9967,855 +9103,743 @@ yyreduce: (yyval.mose)=math_on_size_error1(tmose); } stabs_line(); - ;} + } +#line 9108 "htcobol.tab.c" break; - case 1004: - -/* Line 1464 of yacc.c */ + case 1004: /* on_size_error: ERROR_TOK @116 statement_list */ #line 3186 "htcobol.y" - { + { math_on_size_error2(tmose); - (yyval.mose)=(yyvsp[(2) - (3)].mose); - ;} + (yyval.mose)=(yyvsp[-1].mose); + } +#line 9117 "htcobol.tab.c" break; - case 1012: - -/* Line 1464 of yacc.c */ + case 1012: /* set_list: set_target TO address_of_opt set_variable_or_nlit */ #line 3210 "htcobol.y" - { gen_set_list((yyvsp[(1) - (4)].sval),SET_TO,(yyvsp[(4) - (4)].sval),0,(yyvsp[(3) - (4)].ival)); ;} + { gen_set_list((yyvsp[-3].sval),SET_TO,(yyvsp[0].sval),0,(yyvsp[-1].ival)); } +#line 9123 "htcobol.tab.c" break; - case 1013: - -/* Line 1464 of yacc.c */ + case 1013: /* set_list: set_target UP BY var_or_nliteral */ #line 3212 "htcobol.y" - { gen_set_list((yyvsp[(1) - (4)].sval),SET_UP_BY,(yyvsp[(4) - (4)].sval),0,0); ;} + { gen_set_list((yyvsp[-3].sval),SET_UP_BY,(yyvsp[0].sval),0,0); } +#line 9129 "htcobol.tab.c" break; - case 1014: - -/* Line 1464 of yacc.c */ + case 1014: /* set_list: set_target DOWN BY var_or_nliteral */ #line 3214 "htcobol.y" - { gen_set_list((yyvsp[(1) - (4)].sval),SET_DOWN_BY,(yyvsp[(4) - (4)].sval),0,0); ;} + { gen_set_list((yyvsp[-3].sval),SET_DOWN_BY,(yyvsp[0].sval),0,0); } +#line 9135 "htcobol.tab.c" break; - case 1015: - -/* Line 1464 of yacc.c */ + case 1015: /* set_list: address_of_opt variable TO address_of_opt set_variable */ #line 3216 "htcobol.y" - { gen_set((yyvsp[(2) - (5)].sval),SET_TO,(yyvsp[(5) - (5)].sval),(yyvsp[(1) - (5)].ival),(yyvsp[(4) - (5)].ival)); ;} + { gen_set((yyvsp[-3].sval),SET_TO,(yyvsp[0].sval),(yyvsp[-4].ival),(yyvsp[-1].ival)); } +#line 9141 "htcobol.tab.c" break; - case 1016: - -/* Line 1464 of yacc.c */ + case 1016: /* set_target: name_list */ #line 3221 "htcobol.y" - { (yyval.sval) = (yyvsp[(1) - (1)].sval); ;} + { (yyval.sval) = (yyvsp[0].sval); } +#line 9147 "htcobol.tab.c" break; - case 1017: - -/* Line 1464 of yacc.c */ + case 1017: /* set_target: cond_name */ #line 3222 "htcobol.y" - { (yyval.sval) = (struct sym *)chain_var((yyvsp[(1) - (1)].sval)); ;} + { (yyval.sval) = (struct sym *)chain_var((yyvsp[0].sval)); } +#line 9153 "htcobol.tab.c" break; - case 1018: - -/* Line 1464 of yacc.c */ + case 1018: /* set_variable: variable */ #line 3226 "htcobol.y" - { (yyval.sval) = (yyvsp[(1) - (1)].sval); ;} + { (yyval.sval) = (yyvsp[0].sval); } +#line 9159 "htcobol.tab.c" break; - case 1019: - -/* Line 1464 of yacc.c */ + case 1019: /* set_variable: NULL_TOK */ #line 3227 "htcobol.y" - { (yyval.sval) = NULL; ;} + { (yyval.sval) = NULL; } +#line 9165 "htcobol.tab.c" break; - case 1020: - -/* Line 1464 of yacc.c */ + case 1020: /* set_variable_or_nlit: name_or_lit */ #line 3231 "htcobol.y" - { (yyval.sval) = (yyvsp[(1) - (1)].sval); ;} + { (yyval.sval) = (yyvsp[0].sval); } +#line 9171 "htcobol.tab.c" break; - case 1021: - -/* Line 1464 of yacc.c */ + case 1021: /* set_variable_or_nlit: ON */ #line 3232 "htcobol.y" - { (yyval.sval) = (struct sym *)define_num_lit(1); ;} + { (yyval.sval) = (struct sym *)define_num_lit(1); } +#line 9177 "htcobol.tab.c" break; - case 1022: - -/* Line 1464 of yacc.c */ + case 1022: /* set_variable_or_nlit: OFF */ #line 3233 "htcobol.y" - { (yyval.sval) = (struct sym *)spe_lit_ZE; ;} + { (yyval.sval) = (struct sym *)spe_lit_ZE; } +#line 9183 "htcobol.tab.c" break; - case 1023: - -/* Line 1464 of yacc.c */ + case 1023: /* set_variable_or_nlit: NULL_TOK */ #line 3234 "htcobol.y" - { (yyval.sval) = NULL; ;} + { (yyval.sval) = NULL; } +#line 9189 "htcobol.tab.c" break; - case 1024: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + case 1025: /* address_of_opt: %empty */ #line 3243 "htcobol.y" - { (yyval.ival) = 0; ;} + { (yyval.ival) = 0; } +#line 9204 "htcobol.tab.c" break; - case 1026: - -/* Line 1464 of yacc.c */ + case 1026: /* address_of_opt: ADDRESS of_opt */ #line 3244 "htcobol.y" - { (yyval.ival) = 1; ;} + { (yyval.ival) = 1; } +#line 9210 "htcobol.tab.c" break; - case 1027: - -/* Line 1464 of yacc.c */ + case 1027: /* $@117: %empty */ #line 3251 "htcobol.y" - { - gen_stringcmd( (yyvsp[(2) - (5)].sfval), (yyvsp[(4) - (5)].sval), (yyvsp[(5) - (5)].sval) ); - ;} + { + gen_stringcmd( (yyvsp[-3].sfval), (yyvsp[-1].sval), (yyvsp[0].sval) ); + } +#line 9218 "htcobol.tab.c" break; - case 1029: - -/* Line 1464 of yacc.c */ + case 1029: /* $@118: %empty */ #line 3262 "htcobol.y" - { - gen_unstring( (yyvsp[(2) - (7)].sval), (yyvsp[(3) - (7)].udval), (yyvsp[(5) - (7)].udstval), (yyvsp[(6) - (7)].sval), (yyvsp[(7) - (7)].sval) ); - ;} + { + 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: - -/* Line 1464 of yacc.c */ + case 1031: /* unstring_delimited: DELIMITED by_opt unstring_delimited_vars */ #line 3269 "htcobol.y" - { (yyval.udval)=(yyvsp[(3) - (3)].udval); ;} + { (yyval.udval)=(yyvsp[0].udval); } +#line 9232 "htcobol.tab.c" break; - case 1032: - -/* Line 1464 of yacc.c */ + case 1032: /* unstring_delimited: %empty */ #line 3270 "htcobol.y" - { (yyval.udval)=NULL; ;} + { (yyval.udval)=NULL; } +#line 9238 "htcobol.tab.c" break; - case 1033: - -/* Line 1464 of yacc.c */ + case 1033: /* unstring_delimited_vars: all_opt gname */ #line 3273 "htcobol.y" - { (yyval.udval)=alloc_unstring_delimited((yyvsp[(1) - (2)].ival),(yyvsp[(2) - (2)].sval)); ;} + { (yyval.udval)=alloc_unstring_delimited((yyvsp[-1].ival),(yyvsp[0].sval)); } +#line 9244 "htcobol.tab.c" break; - case 1034: - -/* Line 1464 of yacc.c */ + 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[(3) - (4)].ival),(yyvsp[(4) - (4)].sval)); - ud->next = (yyvsp[(1) - (4)].udval); + 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: - -/* Line 1464 of yacc.c */ + case 1035: /* unstring_destinations: unstring_dest_var */ #line 3282 "htcobol.y" - { (yyval.udstval)=(yyvsp[(1) - (1)].udstval); ;} + { (yyval.udstval)=(yyvsp[0].udstval); } +#line 9261 "htcobol.tab.c" break; - case 1036: - -/* Line 1464 of yacc.c */ + case 1036: /* unstring_destinations: unstring_destinations sep_opt unstring_dest_var */ #line 3284 "htcobol.y" - { - (yyvsp[(3) - (3)].udstval)->next = (yyvsp[(1) - (3)].udstval); - (yyval.udstval) = (yyvsp[(3) - (3)].udstval); - ;} + { + (yyvsp[0].udstval)->next = (yyvsp[-2].udstval); + (yyval.udstval) = (yyvsp[0].udstval); + } +#line 9270 "htcobol.tab.c" break; - case 1037: - -/* Line 1464 of yacc.c */ + case 1037: /* unstring_dest_var: name unstring_delim_opt unstring_count_opt */ #line 3290 "htcobol.y" - { - (yyval.udstval) = alloc_unstring_dest( (yyvsp[(1) - (3)].sval), (yyvsp[(2) - (3)].sval), (yyvsp[(3) - (3)].sval) ); - ;} + { + (yyval.udstval) = alloc_unstring_dest( (yyvsp[-2].sval), (yyvsp[-1].sval), (yyvsp[0].sval) ); + } +#line 9278 "htcobol.tab.c" break; - case 1038: - -/* Line 1464 of yacc.c */ + case 1038: /* unstring_delim_opt: %empty */ #line 3295 "htcobol.y" - { (yyval.sval)=NULL; ;} + { (yyval.sval)=NULL; } +#line 9284 "htcobol.tab.c" break; - case 1039: - -/* Line 1464 of yacc.c */ + case 1039: /* unstring_delim_opt: DELIMITER in_opt name */ #line 3296 "htcobol.y" - { (yyval.sval)=(yyvsp[(3) - (3)].sval); ;} + { (yyval.sval)=(yyvsp[0].sval); } +#line 9290 "htcobol.tab.c" break; - case 1040: - -/* Line 1464 of yacc.c */ + case 1040: /* unstring_count_opt: %empty */ #line 3299 "htcobol.y" - { (yyval.sval)=NULL; ;} + { (yyval.sval)=NULL; } +#line 9296 "htcobol.tab.c" break; - case 1041: - -/* Line 1464 of yacc.c */ + case 1041: /* unstring_count_opt: COUNT in_opt name */ #line 3300 "htcobol.y" - { (yyval.sval)=(yyvsp[(3) - (3)].sval); ;} + { (yyval.sval)=(yyvsp[0].sval); } +#line 9302 "htcobol.tab.c" break; - case 1042: - -/* Line 1464 of yacc.c */ + case 1042: /* unstring_tallying: %empty */ #line 3303 "htcobol.y" - { (yyval.sval)=NULL; ;} + { (yyval.sval)=NULL; } +#line 9308 "htcobol.tab.c" break; - case 1043: - -/* Line 1464 of yacc.c */ + case 1043: /* unstring_tallying: TALLYING in_opt name */ #line 3304 "htcobol.y" - { (yyval.sval)=(yyvsp[(3) - (3)].sval); ;} + { (yyval.sval)=(yyvsp[0].sval); } +#line 9314 "htcobol.tab.c" break; - case 1044: - -/* Line 1464 of yacc.c */ + case 1044: /* all_opt: %empty */ #line 3307 "htcobol.y" - { (yyval.ival)=0; ;} + { (yyval.ival)=0; } +#line 9320 "htcobol.tab.c" break; - case 1045: - -/* Line 1464 of yacc.c */ + case 1045: /* all_opt: ALL */ #line 3308 "htcobol.y" - { (yyval.ival)=1; ;} + { (yyval.ival)=1; } +#line 9326 "htcobol.tab.c" break; - case 1046: - -/* Line 1464 of yacc.c */ + case 1046: /* $@119: %empty */ #line 3311 "htcobol.y" - { curr_division = CDIV_EXCEPTION; ;} + { curr_division = CDIV_EXCEPTION; } +#line 9332 "htcobol.tab.c" break; - case 1047: - -/* Line 1464 of yacc.c */ + case 1047: /* on_overflow_opt: $@119 on_overflow on_not_overflow */ #line 3314 "htcobol.y" - { curr_division = CDIV_PROC; ;} + { curr_division = CDIV_PROC; } +#line 9338 "htcobol.tab.c" break; - case 1048: - -/* Line 1464 of yacc.c */ + case 1048: /* @120: %empty */ #line 3317 "htcobol.y" - { (yyval.ival) = begin_on_except(); ;} + { (yyval.ival) = begin_on_except(); } +#line 9344 "htcobol.tab.c" break; - case 1049: - -/* Line 1464 of yacc.c */ + case 1049: /* on_exception_or_overflow: on_opt exception_or_overflow @120 statement_list */ #line 3318 "htcobol.y" - { gen_jmplabel((yyvsp[(0) - (4)].dval)); (yyval.ival)=(yyvsp[(3) - (4)].ival); ;} + { gen_jmplabel((yyvsp[-4].dval)); (yyval.ival)=(yyvsp[-1].ival); } +#line 9350 "htcobol.tab.c" break; - case 1050: - -/* Line 1464 of yacc.c */ + case 1050: /* on_exception_or_overflow: %empty */ #line 3319 "htcobol.y" - { (yyval.ival) = 0; ;} + { (yyval.ival) = 0; } +#line 9356 "htcobol.tab.c" break; - case 1053: - -/* Line 1464 of yacc.c */ + case 1053: /* @121: %empty */ #line 3326 "htcobol.y" - { (yyval.ival) = begin_on_except(); ;} + { (yyval.ival) = begin_on_except(); } +#line 9362 "htcobol.tab.c" break; - case 1054: - -/* Line 1464 of yacc.c */ + 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[(4) - (5)].ival); ;} + { gen_jmplabel((yyvsp[(-1) - (5)].dval)); (yyval.ival)=(yyvsp[-1].ival); } +#line 9368 "htcobol.tab.c" break; - case 1055: - -/* Line 1464 of yacc.c */ + case 1055: /* on_not_exception: %empty */ #line 3328 "htcobol.y" - { (yyval.ival) = 0; ;} + { (yyval.ival) = 0; } +#line 9374 "htcobol.tab.c" break; - case 1056: - -/* Line 1464 of yacc.c */ + case 1056: /* @122: %empty */ #line 3331 "htcobol.y" - { (yyval.dval) = gen_at_end(1); ;} + { (yyval.dval) = gen_at_end(1); } +#line 9380 "htcobol.tab.c" break; - case 1057: - -/* Line 1464 of yacc.c */ + case 1057: /* on_overflow: on_opt OVERFLOW_TOK @122 statement_list */ #line 3332 "htcobol.y" - { gen_dstlabel((yyvsp[(3) - (4)].dval)); ;} + { gen_dstlabel((yyvsp[-1].dval)); } +#line 9386 "htcobol.tab.c" break; - case 1059: - -/* Line 1464 of yacc.c */ + case 1059: /* @123: %empty */ #line 3336 "htcobol.y" - { (yyval.dval) = gen_at_end(0); ;} + { (yyval.dval) = gen_at_end(0); } +#line 9392 "htcobol.tab.c" break; - case 1060: - -/* Line 1464 of yacc.c */ + case 1060: /* on_not_overflow: not_excep on_opt OVERFLOW_TOK @123 statement_list */ #line 3337 "htcobol.y" - { gen_dstlabel((yyvsp[(4) - (5)].dval)); ;} + { gen_dstlabel((yyvsp[-1].dval)); } +#line 9398 "htcobol.tab.c" break; - case 1062: - -/* Line 1464 of yacc.c */ + case 1062: /* invalid_key_opt: invalid_key_sentence */ #line 3342 "htcobol.y" - {(yyval.iks) = gen_invalid_keys((yyvsp[(1) - (1)].ike), NULL);;} + {(yyval.iks) = gen_invalid_keys((yyvsp[0].ike), NULL);} +#line 9404 "htcobol.tab.c" break; - case 1063: - -/* Line 1464 of yacc.c */ + case 1063: /* invalid_key_opt: not_invalid_key_sentence */ #line 3343 "htcobol.y" - {(yyval.iks) = gen_invalid_keys(NULL, (yyvsp[(1) - (1)].ike));;} + {(yyval.iks) = gen_invalid_keys(NULL, (yyvsp[0].ike));} +#line 9410 "htcobol.tab.c" break; - case 1064: - -/* Line 1464 of yacc.c */ + case 1064: /* invalid_key_opt: invalid_key_sentence not_invalid_key_sentence */ #line 3345 "htcobol.y" - {(yyval.iks) = gen_invalid_keys((yyvsp[(1) - (2)].ike), (yyvsp[(2) - (2)].ike));;} + {(yyval.iks) = gen_invalid_keys((yyvsp[-1].ike), (yyvsp[0].ike));} +#line 9416 "htcobol.tab.c" break; - case 1065: - -/* Line 1464 of yacc.c */ + case 1065: /* invalid_key_opt: %empty */ #line 3346 "htcobol.y" - { (yyval.iks) = NULL;;} + { (yyval.iks) = NULL;} +#line 9422 "htcobol.tab.c" break; - case 1066: - -/* Line 1464 of yacc.c */ + case 1066: /* @124: %empty */ #line 3349 "htcobol.y" - { (yyval.ike) = gen_before_invalid_key(); ;} + { (yyval.ike) = gen_before_invalid_key(); } +#line 9428 "htcobol.tab.c" break; - case 1067: - -/* Line 1464 of yacc.c */ + case 1067: /* invalid_key_sentence: INVALID key_opt @124 statement_list */ #line 3350 "htcobol.y" - { (yyval.ike) = gen_after_invalid_key((yyvsp[(3) - (4)].ike)); ;} + { (yyval.ike) = gen_after_invalid_key((yyvsp[-1].ike)); } +#line 9434 "htcobol.tab.c" break; - case 1068: - -/* Line 1464 of yacc.c */ + case 1068: /* @125: %empty */ #line 3353 "htcobol.y" - { (yyval.ike) = gen_before_invalid_key(); ;} + { (yyval.ike) = gen_before_invalid_key(); } +#line 9440 "htcobol.tab.c" break; - case 1069: - -/* Line 1464 of yacc.c */ + 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[(4) - (5)].ike)); ;} + { (yyval.ike) = gen_after_invalid_key((yyvsp[-1].ike)); } +#line 9446 "htcobol.tab.c" break; - case 1072: - -/* Line 1464 of yacc.c */ + case 1072: /* string_with_pointer: with_opt POINTER name */ #line 3361 "htcobol.y" - { (yyval.sval) = (yyvsp[(3) - (3)].sval); ;} + { (yyval.sval) = (yyvsp[0].sval); } +#line 9452 "htcobol.tab.c" break; - case 1073: - -/* Line 1464 of yacc.c */ + case 1073: /* string_with_pointer: %empty */ #line 3362 "htcobol.y" - { (yyval.sval) = NULL; ;} + { (yyval.sval) = NULL; } +#line 9458 "htcobol.tab.c" break; - case 1074: - -/* Line 1464 of yacc.c */ + case 1074: /* string_from_list: string_from */ #line 3365 "htcobol.y" - { (yyval.sfval) = (yyvsp[(1) - (1)].sfval); ;} + { (yyval.sfval) = (yyvsp[0].sfval); } +#line 9464 "htcobol.tab.c" break; - case 1075: - -/* Line 1464 of yacc.c */ + case 1075: /* string_from_list: string_from_list sep_opt string_from */ #line 3366 "htcobol.y" - { - (yyvsp[(3) - (3)].sfval)->next = (yyvsp[(1) - (3)].sfval); - (yyval.sfval) = (yyvsp[(3) - (3)].sfval); - ;} + { + (yyvsp[0].sfval)->next = (yyvsp[-2].sfval); + (yyval.sfval) = (yyvsp[0].sfval); + } +#line 9473 "htcobol.tab.c" break; - case 1076: - -/* Line 1464 of yacc.c */ + case 1076: /* string_from_list: error */ #line 3370 "htcobol.y" - { yyerror("variable expected"); ;} + { yyerror("variable expected"); } +#line 9479 "htcobol.tab.c" break; - case 1077: - -/* Line 1464 of yacc.c */ + 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[(1) - (1)].sval), (struct sym *)-1 ); - ;} + (yyval.sfval) = alloc_string_from( (yyvsp[0].sval), (struct sym *)-1 ); + } +#line 9488 "htcobol.tab.c" break; - case 1078: - -/* Line 1464 of yacc.c */ + case 1078: /* string_from: gname DELIMITED by_opt delimited_by */ #line 3377 "htcobol.y" - { - (yyval.sfval) = alloc_string_from( (yyvsp[(1) - (4)].sval), (yyvsp[(4) - (4)].sval) ); - ;} + { + (yyval.sfval) = alloc_string_from( (yyvsp[-3].sval), (yyvsp[0].sval) ); + } +#line 9496 "htcobol.tab.c" break; - case 1079: - -/* Line 1464 of yacc.c */ + case 1079: /* delimited_by: gname */ #line 3382 "htcobol.y" - { (yyval.sval)=(yyvsp[(1) - (1)].sval); ;} + { (yyval.sval)=(yyvsp[0].sval); } +#line 9502 "htcobol.tab.c" break; - case 1080: - -/* Line 1464 of yacc.c */ + case 1080: /* delimited_by: SIZE */ #line 3383 "htcobol.y" - { (yyval.sval)=NULL; ;} + { (yyval.sval)=NULL; } +#line 9508 "htcobol.tab.c" break; - case 1081: - -/* Line 1464 of yacc.c */ + case 1081: /* delimited_by: error */ #line 3384 "htcobol.y" - { yyerror("SIZE or identifier expected"); ;} + { yyerror("SIZE or identifier expected"); } +#line 9514 "htcobol.tab.c" break; - case 1086: - -/* Line 1464 of yacc.c */ + case 1086: /* $@126: %empty */ #line 3399 "htcobol.y" - { gen_inspect((yyvsp[(2) - (3)].sval),(void *)(yyvsp[(3) - (3)].tlval),0); ;} + { gen_inspect((yyvsp[-1].sval),(void *)(yyvsp[0].tlval),0); } +#line 9520 "htcobol.tab.c" break; - case 1087: - -/* Line 1464 of yacc.c */ + case 1087: /* inspect_statement: INSPECT name tallying_clause $@126 replacing_clause */ #line 3400 "htcobol.y" - { gen_inspect((yyvsp[(2) - (5)].sval),(void *)(yyvsp[(5) - (5)].repval),1); ;} + { gen_inspect((yyvsp[-3].sval),(void *)(yyvsp[0].repval),1); } +#line 9526 "htcobol.tab.c" break; - case 1088: - -/* Line 1464 of yacc.c */ + case 1088: /* inspect_statement: INSPECT name converting_clause */ #line 3403 "htcobol.y" - { gen_inspect((yyvsp[(2) - (3)].sval),(void *)(yyvsp[(3) - (3)].cvval),2); ;} + { gen_inspect((yyvsp[-1].sval),(void *)(yyvsp[0].cvval),2); } +#line 9532 "htcobol.tab.c" break; - case 1089: - -/* Line 1464 of yacc.c */ + case 1089: /* converting_clause: CONVERTING noallname TO noallname inspect_before_after */ #line 3407 "htcobol.y" - { - (yyval.cvval) = alloc_converting_struct((yyvsp[(2) - (5)].sval),(yyvsp[(4) - (5)].sval),(yyvsp[(5) - (5)].baval)); - ;} + { + (yyval.cvval) = alloc_converting_struct((yyvsp[-3].sval),(yyvsp[-1].sval),(yyvsp[0].baval)); + } +#line 9540 "htcobol.tab.c" break; - case 1090: - -/* Line 1464 of yacc.c */ + case 1090: /* tallying_clause: TALLYING tallying_list */ #line 3412 "htcobol.y" - { (yyval.tlval)=(yyvsp[(2) - (2)].tlval); ;} + { (yyval.tlval)=(yyvsp[0].tlval); } +#line 9546 "htcobol.tab.c" break; - case 1091: - -/* Line 1464 of yacc.c */ + case 1091: /* tallying_clause: %empty */ #line 3413 "htcobol.y" - { (yyval.tlval)=NULL; ;} + { (yyval.tlval)=NULL; } +#line 9552 "htcobol.tab.c" break; - case 1092: - -/* Line 1464 of yacc.c */ + case 1092: /* tallying_list: tallying_list name FOR tallying_for_list */ #line 3417 "htcobol.y" - { - (yyval.tlval) = alloc_tallying_list((yyvsp[(1) - (4)].tlval),(yyvsp[(2) - (4)].sval),(yyvsp[(4) - (4)].tfval)); ;} + { + (yyval.tlval) = alloc_tallying_list((yyvsp[-3].tlval),(yyvsp[-2].sval),(yyvsp[0].tfval)); } +#line 9559 "htcobol.tab.c" break; - case 1093: - -/* Line 1464 of yacc.c */ + case 1093: /* tallying_list: %empty */ #line 3419 "htcobol.y" - { (yyval.tlval) = NULL; ;} + { (yyval.tlval) = NULL; } +#line 9565 "htcobol.tab.c" break; - case 1094: - -/* Line 1464 of yacc.c */ + case 1094: /* tallying_for_list: tallying_for_list CHARACTERS inspect_before_after */ #line 3423 "htcobol.y" - { - (yyval.tfval) = alloc_tallying_for_list((yyvsp[(1) - (3)].tfval),INSPECT_CHARACTERS,NULL,(yyvsp[(3) - (3)].baval)); ;} + { + (yyval.tfval) = alloc_tallying_for_list((yyvsp[-2].tfval),INSPECT_CHARACTERS,NULL,(yyvsp[0].baval)); } +#line 9572 "htcobol.tab.c" break; - case 1095: - -/* Line 1464 of yacc.c */ + case 1095: /* tallying_for_list: tallying_for_list ALL noallname inspect_before_after */ #line 3426 "htcobol.y" - { - (yyval.tfval) = alloc_tallying_for_list((yyvsp[(1) - (4)].tfval),INSPECT_ALL,(yyvsp[(3) - (4)].sval),(yyvsp[(4) - (4)].baval)); ;} + { + (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: - -/* Line 1464 of yacc.c */ + case 1096: /* tallying_for_list: tallying_for_list LEADING noallname inspect_before_after */ #line 3429 "htcobol.y" - { - (yyval.tfval) = alloc_tallying_for_list((yyvsp[(1) - (4)].tfval),INSPECT_LEADING,(yyvsp[(3) - (4)].sval),(yyvsp[(4) - (4)].baval)); ;} + { + (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: - -/* Line 1464 of yacc.c */ + case 1097: /* tallying_for_list: %empty */ #line 3431 "htcobol.y" - { (yyval.tfval) = NULL; ;} + { (yyval.tfval) = NULL; } +#line 9592 "htcobol.tab.c" break; - case 1098: - -/* Line 1464 of yacc.c */ + case 1098: /* replacing_clause: REPLACING replacing_list */ #line 3435 "htcobol.y" - { (yyval.repval) = (yyvsp[(2) - (2)].repval); ;} + { (yyval.repval) = (yyvsp[0].repval); } +#line 9598 "htcobol.tab.c" break; - case 1099: - -/* Line 1464 of yacc.c */ + case 1099: /* replacing_clause: %empty */ #line 3436 "htcobol.y" - { (yyval.repval) = NULL; ;} + { (yyval.repval) = NULL; } +#line 9604 "htcobol.tab.c" break; - case 1100: - -/* Line 1464 of yacc.c */ + case 1100: /* replacing_list: replacing_list CHARACTERS BY noallname inspect_before_after */ #line 3440 "htcobol.y" - { - (yyval.repval) = alloc_replacing_list((yyvsp[(1) - (5)].repval),INSPECT_CHARACTERS,NULL,(yyvsp[(4) - (5)].sval),(yyvsp[(5) - (5)].baval)); ;} + { + (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: - -/* Line 1464 of yacc.c */ + case 1101: /* replacing_list: replacing_list replacing_kind replacing_by_list */ #line 3443 "htcobol.y" - { - (yyval.repval) = alloc_replacing_list((yyvsp[(1) - (3)].repval),(yyvsp[(2) - (3)].ival),(yyvsp[(3) - (3)].rbval),NULL,NULL); ;} + { + (yyval.repval) = alloc_replacing_list((yyvsp[-2].repval),(yyvsp[-1].ival),(yyvsp[0].rbval),NULL,NULL); } +#line 9618 "htcobol.tab.c" break; - case 1102: - -/* Line 1464 of yacc.c */ + case 1102: /* replacing_list: %empty */ #line 3445 "htcobol.y" - { (yyval.repval) = NULL; ;} + { (yyval.repval) = NULL; } +#line 9624 "htcobol.tab.c" break; - case 1103: - -/* Line 1464 of yacc.c */ + 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[(1) - (5)].rbval),(yyvsp[(2) - (5)].sval),(yyvsp[(4) - (5)].sval),(yyvsp[(5) - (5)].baval)); ;} + { + (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: - -/* Line 1464 of yacc.c */ + case 1104: /* replacing_by_list: %empty */ #line 3451 "htcobol.y" - { (yyval.rbval) = NULL; ;} + { (yyval.rbval) = NULL; } +#line 9637 "htcobol.tab.c" break; - case 1105: - -/* Line 1464 of yacc.c */ + case 1105: /* replacing_kind: ALL */ #line 3454 "htcobol.y" - { (yyval.ival) = INSPECT_ALL; ;} + { (yyval.ival) = INSPECT_ALL; } +#line 9643 "htcobol.tab.c" break; - case 1106: - -/* Line 1464 of yacc.c */ + case 1106: /* replacing_kind: LEADING */ #line 3455 "htcobol.y" - { (yyval.ival) = INSPECT_LEADING; ;} + { (yyval.ival) = INSPECT_LEADING; } +#line 9649 "htcobol.tab.c" break; - case 1107: - -/* Line 1464 of yacc.c */ + case 1107: /* replacing_kind: TRAILING */ #line 3456 "htcobol.y" - { (yyval.ival) = INSPECT_TRAILING; ;} + { (yyval.ival) = INSPECT_TRAILING; } +#line 9655 "htcobol.tab.c" break; - case 1108: - -/* Line 1464 of yacc.c */ + case 1108: /* replacing_kind: FIRST */ #line 3457 "htcobol.y" - { (yyval.ival) = INSPECT_FIRST; ;} + { (yyval.ival) = INSPECT_FIRST; } +#line 9661 "htcobol.tab.c" break; - case 1109: - -/* Line 1464 of yacc.c */ + case 1109: /* inspect_before_after: inspect_before_after BEFORE initial_opt noallname */ #line 3462 "htcobol.y" - { (yyval.baval) = alloc_inspect_before_after((yyvsp[(1) - (4)].baval),1,(yyvsp[(4) - (4)].sval)); ;} + { (yyval.baval) = alloc_inspect_before_after((yyvsp[-3].baval),1,(yyvsp[0].sval)); } +#line 9667 "htcobol.tab.c" break; - case 1110: - -/* Line 1464 of yacc.c */ + case 1110: /* inspect_before_after: inspect_before_after AFTER initial_opt noallname */ #line 3465 "htcobol.y" - { (yyval.baval) = alloc_inspect_before_after((yyvsp[(1) - (4)].baval),2,(yyvsp[(4) - (4)].sval)); ;} + { (yyval.baval) = alloc_inspect_before_after((yyvsp[-3].baval),2,(yyvsp[0].sval)); } +#line 9673 "htcobol.tab.c" break; - case 1111: - -/* Line 1464 of yacc.c */ + case 1111: /* inspect_before_after: %empty */ #line 3466 "htcobol.y" - { (yyval.baval) = alloc_inspect_before_after(NULL,0,NULL); ;} + { (yyval.baval) = alloc_inspect_before_after(NULL,0,NULL); } +#line 9679 "htcobol.tab.c" break; - case 1114: - -/* Line 1464 of yacc.c */ + case 1114: /* expr: gname */ #line 3474 "htcobol.y" - { (yyval.sval) = (yyvsp[(1) - (1)].sval); ;} + { (yyval.sval) = (yyvsp[0].sval); } +#line 9685 "htcobol.tab.c" break; - case 1115: - -/* Line 1464 of yacc.c */ + case 1115: /* expr: expr '*' expr */ #line 3475 "htcobol.y" - { (yyval.sval) = - (struct sym *)create_expr('*',(struct expr *)(yyvsp[(1) - (3)].sval),(struct expr *)(yyvsp[(3) - (3)].sval)); ;} + { (yyval.sval) = + (struct sym *)create_expr('*',(struct expr *)(yyvsp[-2].sval),(struct expr *)(yyvsp[0].sval)); } +#line 9692 "htcobol.tab.c" break; - case 1116: - -/* Line 1464 of yacc.c */ + case 1116: /* expr: expr '/' expr */ #line 3477 "htcobol.y" - { (yyval.sval) = - (struct sym *)create_expr('/',(struct expr *)(yyvsp[(1) - (3)].sval),(struct expr *)(yyvsp[(3) - (3)].sval)); ;} + { (yyval.sval) = + (struct sym *)create_expr('/',(struct expr *)(yyvsp[-2].sval),(struct expr *)(yyvsp[0].sval)); } +#line 9699 "htcobol.tab.c" break; - case 1117: - -/* Line 1464 of yacc.c */ + case 1117: /* expr: expr '+' expr */ #line 3479 "htcobol.y" - { (yyval.sval) = - (struct sym *)create_expr('+',(struct expr *)(yyvsp[(1) - (3)].sval),(struct expr *)(yyvsp[(3) - (3)].sval)); ;} + { (yyval.sval) = + (struct sym *)create_expr('+',(struct expr *)(yyvsp[-2].sval),(struct expr *)(yyvsp[0].sval)); } +#line 9706 "htcobol.tab.c" break; - case 1118: - -/* Line 1464 of yacc.c */ + case 1118: /* expr: expr '-' expr */ #line 3481 "htcobol.y" - { (yyval.sval) = - (struct sym *)create_expr('-',(struct expr *)(yyvsp[(1) - (3)].sval),(struct expr *)(yyvsp[(3) - (3)].sval)); ;} + { (yyval.sval) = + (struct sym *)create_expr('-',(struct expr *)(yyvsp[-2].sval),(struct expr *)(yyvsp[0].sval)); } +#line 9713 "htcobol.tab.c" break; - case 1119: - -/* Line 1464 of yacc.c */ + case 1119: /* expr: expr POW_OP expr */ #line 3483 "htcobol.y" - { (yyval.sval) = - (struct sym *)create_expr('^',(struct expr *)(yyvsp[(1) - (3)].sval),(struct expr *)(yyvsp[(3) - (3)].sval)); ;} + { (yyval.sval) = + (struct sym *)create_expr('^',(struct expr *)(yyvsp[-2].sval),(struct expr *)(yyvsp[0].sval)); } +#line 9720 "htcobol.tab.c" break; - case 1120: - -/* Line 1464 of yacc.c */ + case 1120: /* expr: '(' expr ')' */ #line 3485 "htcobol.y" - { (yyval.sval)=(yyvsp[(2) - (3)].sval); ;} + { (yyval.sval)=(yyvsp[-1].sval); } +#line 9726 "htcobol.tab.c" break; - case 1121: - -/* Line 1464 of yacc.c */ + case 1121: /* expr_opt: %empty */ #line 3490 "htcobol.y" - { (yyval.sval) = (struct sym *)-1; ;} + { (yyval.sval) = (struct sym *)-1; } +#line 9732 "htcobol.tab.c" break; - case 1122: - -/* Line 1464 of yacc.c */ + case 1122: /* expr_opt: expr */ #line 3491 "htcobol.y" - { (yyval.sval) = (yyvsp[(1) - (1)].sval); ;} + { (yyval.sval) = (yyvsp[0].sval); } +#line 9738 "htcobol.tab.c" break; - case 1123: - -/* Line 1464 of yacc.c */ + case 1123: /* using_options: %empty */ #line 3494 "htcobol.y" - { (yyval.ival)=0; ;} + { (yyval.ival)=0; } +#line 9744 "htcobol.tab.c" break; - case 1124: - -/* Line 1464 of yacc.c */ + case 1124: /* @127: %empty */ #line 3495 "htcobol.y" - { (yyval.ival)=0; /* to save how many parameters */ ;} + { (yyval.ival)=0; /* to save how many parameters */ } +#line 9750 "htcobol.tab.c" break; - case 1125: - -/* Line 1464 of yacc.c */ + case 1125: /* @128: %empty */ #line 3496 "htcobol.y" - { (yyval.ival)=CALL; ;} + { (yyval.ival)=CALL; } +#line 9756 "htcobol.tab.c" break; - case 1126: - -/* Line 1464 of yacc.c */ + case 1126: /* using_options: USING @127 dummy @128 parm_list */ #line 3497 "htcobol.y" - { (yyval.ival)=(yyvsp[(2) - (5)].ival); ;} + { (yyval.ival)=(yyvsp[-3].ival); } +#line 9762 "htcobol.tab.c" break; - case 1127: - -/* Line 1464 of yacc.c */ + case 1127: /* returning_options: %empty */ #line 3500 "htcobol.y" - { (yyval.sval)=0; ;} + { (yyval.sval)=0; } +#line 9768 "htcobol.tab.c" break; - case 1128: - -/* Line 1464 of yacc.c */ + case 1128: /* returning_options: RETURNING variable */ #line 3501 "htcobol.y" - { (yyval.sval)=(yyvsp[(2) - (2)].sval); ;} + { (yyval.sval)=(yyvsp[0].sval); } +#line 9774 "htcobol.tab.c" break; - case 1129: - -/* Line 1464 of yacc.c */ + case 1129: /* returning_options: GIVING variable */ #line 3502 "htcobol.y" - { (yyval.sval)=(yyvsp[(2) - (2)].sval); ;} + { (yyval.sval)=(yyvsp[0].sval); } +#line 9780 "htcobol.tab.c" break; - case 1131: - -/* Line 1464 of yacc.c */ + case 1131: /* using_parameters: %empty */ #line 3507 "htcobol.y" - { (yyval.ival)=0; ;} + { (yyval.ival)=0; } +#line 9786 "htcobol.tab.c" break; - case 1132: - -/* Line 1464 of yacc.c */ + case 1132: /* using_parameters: USING gname_list */ #line 3508 "htcobol.y" - { gen_save_usings((yyvsp[(2) - (2)].glistval)); (yyval.ival)=1; ;} + { gen_save_usings((yyvsp[0].glistval)); (yyval.ival)=1; } +#line 9792 "htcobol.tab.c" break; - case 1133: - -/* Line 1464 of yacc.c */ + case 1133: /* using_parameters: CHAINING gname_list */ #line 3509 "htcobol.y" - { gen_save_chainings((yyvsp[(2) - (2)].glistval)); (yyval.ival)=2; ;} + { gen_save_chainings((yyvsp[0].glistval)); (yyval.ival)=2; } +#line 9798 "htcobol.tab.c" break; - case 1134: - -/* Line 1464 of yacc.c */ + case 1134: /* parm_list: parm_list sep_opt parameter */ #line 3514 "htcobol.y" - { if ((yyvsp[(0) - (3)].ival) == USING) - gen_save_using((yyvsp[(3) - (3)].sval)); - else if ((yyvsp[(0) - (3)].ival) == CALL) { - gen_push_using((yyvsp[(3) - (3)].sval)); + { 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: - -/* Line 1464 of yacc.c */ + case 1135: /* parm_list: parameter */ #line 3521 "htcobol.y" - { if ((yyvsp[(0) - (1)].ival) == USING) - gen_save_using((yyvsp[(1) - (1)].sval)); - else if ((yyvsp[(0) - (1)].ival) == CALL) { - gen_push_using((yyvsp[(1) - (1)].sval)); + { 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: - -/* Line 1464 of yacc.c */ + case 1136: /* parameter: gname */ #line 3529 "htcobol.y" - {(yyval.sval)=(yyvsp[(1) - (1)].sval); + {(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: - -/* Line 1464 of yacc.c */ + case 1137: /* parameter: by_opt parm_type gname */ #line 3539 "htcobol.y" - { if ( curr_call_mode == CM_CHAIN ) + { if ( curr_call_mode == CM_CHAIN ) yyerror("parameter types not allowed on CHAIN"); else { - (yyval.sval)=(yyvsp[(3) - (3)].sval); - curr_call_mode=(yyvsp[(2) - (3)].ival); + (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; @@ -10823,219 +9847,201 @@ yyreduce: else (yyval.sval)->call_mode=curr_call_mode; } - ;} + } +#line 9852 "htcobol.tab.c" break; - case 1138: - -/* Line 1464 of yacc.c */ + case 1138: /* parm_type: REFERENCE */ #line 3559 "htcobol.y" - {(yyval.ival)=CM_REF;;} + {(yyval.ival)=CM_REF;} +#line 9858 "htcobol.tab.c" break; - case 1139: - -/* Line 1464 of yacc.c */ + case 1139: /* parm_type: VALUE */ #line 3560 "htcobol.y" - {(yyval.ival)=CM_VAL;;} + {(yyval.ival)=CM_VAL;} +#line 9864 "htcobol.tab.c" break; - case 1140: - -/* Line 1464 of yacc.c */ + case 1140: /* parm_type: CONTENT */ #line 3561 "htcobol.y" - {(yyval.ival)=CM_CONT;;} + {(yyval.ival)=CM_CONT;} +#line 9870 "htcobol.tab.c" break; - case 1141: - -/* Line 1464 of yacc.c */ + case 1141: /* intrinsic_parm_list: intrinsic_parm_list sep_opt intrinsic_parm */ #line 3566 "htcobol.y" - { gen_push_using((yyvsp[(3) - (3)].sval)); ;} + { gen_push_using((yyvsp[0].sval)); } +#line 9876 "htcobol.tab.c" break; - case 1142: - -/* Line 1464 of yacc.c */ + case 1142: /* intrinsic_parm_list: intrinsic_parm */ #line 3567 "htcobol.y" - { gen_push_using((yyvsp[(1) - (1)].sval)); ;} + { gen_push_using((yyvsp[0].sval)); } +#line 9882 "htcobol.tab.c" break; - case 1143: - -/* Line 1464 of yacc.c */ + case 1143: /* intrinsic_parm: gname */ #line 3570 "htcobol.y" - {(yyval.sval)=(yyvsp[(1) - (1)].sval);(yyval.sval)->call_mode=CM_REF;;} + {(yyval.sval)=(yyvsp[0].sval);(yyval.sval)->call_mode=CM_REF;} +#line 9888 "htcobol.tab.c" break; - case 1144: - -/* Line 1464 of yacc.c */ + case 1144: /* perform_range: label perform_thru_opt */ #line 3573 "htcobol.y" { - gen_perform_thru((yyvsp[(1) - (2)].sval),(yyvsp[(2) - (2)].sval)); - (yyval.sval) = ((yyvsp[(2) - (2)].sval) == NULL) ? (yyvsp[(1) - (2)].sval) : (yyvsp[(2) - (2)].sval); - ;} + 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: - -/* Line 1464 of yacc.c */ + case 1145: /* perform_options: perform_statements END_PERFORM */ #line 3578 "htcobol.y" - { (yyval.sval) = NULL; ;} + { (yyval.sval) = NULL; } +#line 9903 "htcobol.tab.c" break; - case 1146: - -/* Line 1464 of yacc.c */ + case 1146: /* @129: %empty */ #line 3580 "htcobol.y" - { - gen_push_int((yyvsp[(1) - (2)].sval)); + { + gen_push_int((yyvsp[-1].sval)); (yyval.dval)=gen_marklabel(); gen_perform_test_counter((yyval.dval)); - ;} + } +#line 9913 "htcobol.tab.c" break; - case 1147: - -/* Line 1464 of yacc.c */ + case 1147: /* $@130: %empty */ #line 3586 "htcobol.y" - { - gen_perform_times((yyvsp[(3) - (4)].dval)); - ;} + { + gen_perform_times((yyvsp[-1].dval)); + } +#line 9921 "htcobol.tab.c" break; - case 1148: - -/* Line 1464 of yacc.c */ + case 1148: /* perform_options: gname TIMES @129 perform_statements $@130 END_PERFORM */ #line 3589 "htcobol.y" - { (yyval.sval) = NULL; ;} + { (yyval.sval) = NULL; } +#line 9927 "htcobol.tab.c" break; - case 1149: - -/* Line 1464 of yacc.c */ + case 1149: /* @131: %empty */ #line 3591 "htcobol.y" - { - if ((yyvsp[(1) - (2)].ival) == 2) { + { + if ((yyvsp[-1].ival) == 2) { (yyval.ddval).lb2=gen_passlabel(); } (yyval.ddval).lb1=gen_marklabel(); - ;} + } +#line 9938 "htcobol.tab.c" break; - case 1150: - -/* Line 1464 of yacc.c */ + case 1150: /* @132: %empty */ #line 3598 "htcobol.y" - { + { (yyval.ddval).lb1=gen_orstart(); - if ((yyvsp[(1) - (4)].ival) == 2) { + if ((yyvsp[-3].ival) == 2) { (yyval.ddval).lb2=gen_passlabel(); - gen_dstlabel((yyvsp[(3) - (4)].ddval).lb2); + gen_dstlabel((yyvsp[-1].ddval).lb2); } - ;} + } +#line 9950 "htcobol.tab.c" break; - case 1151: - -/* Line 1464 of yacc.c */ + case 1151: /* $@133: %empty */ #line 3606 "htcobol.y" - { - if ((yyvsp[(1) - (6)].ival) == 2) { - gen_jmplabel((yyvsp[(3) - (6)].ddval).lb1); - gen_dstlabel((yyvsp[(5) - (6)].ddval).lb2); - gen_jmplabel((yyvsp[(3) - (6)].ddval).lb2); - gen_dstlabel((yyvsp[(5) - (6)].ddval).lb1); + { + 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) - (6)].ddval).lb1); - gen_dstlabel((yyvsp[(5) - (6)].ddval).lb1); + gen_jmplabel((yyvsp[-3].ddval).lb1); + gen_dstlabel((yyvsp[-1].ddval).lb1); } - ;} + } +#line 9967 "htcobol.tab.c" break; - case 1152: - -/* Line 1464 of yacc.c */ + case 1152: /* perform_options: with_test_opt UNTIL @131 condition @132 perform_statements $@133 END_PERFORM */ #line 3618 "htcobol.y" - { (yyval.sval) = NULL; ;} + { (yyval.sval) = NULL; } +#line 9973 "htcobol.tab.c" break; - case 1153: - -/* Line 1464 of yacc.c */ + 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[(5) - (8)].sval)->litflag == '1') { - gen_move((yyvsp[(5) - (8)].sval),(yyvsp[(3) - (8)].sval)); + if ((yyvsp[-3].sval)->litflag == '1') { + gen_move((yyvsp[-3].sval),(yyvsp[-5].sval)); } else { - if(strcmp((yyvsp[(5) - (8)].sval)->name, (yyvsp[(3) - (8)].sval)->name) != 0) { - gen_move((yyvsp[(5) - (8)].sval),(yyvsp[(3) - (8)].sval)); + 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[(1) - (8)].ival) == 2) { + if ((yyvsp[-7].ival) == 2) { (yyval.ddval).lb2=gen_passlabel(); } (yyval.ddval).lb1=gen_marklabel(); - ;} + } +#line 9998 "htcobol.tab.c" break; - case 1154: - -/* Line 1464 of yacc.c */ + case 1154: /* @135: %empty */ #line 3641 "htcobol.y" - { + { (yyval.dval)=gen_orstart(); /* BEFORE=1 AFTER=2 */ - if ((yyvsp[(1) - (10)].ival) == 2) { - gen_add((yyvsp[(7) - (10)].sval),(yyvsp[(3) - (10)].sval),0); - gen_dstlabel((yyvsp[(9) - (10)].ddval).lb2); + 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: - -/* Line 1464 of yacc.c */ + 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[(12) - (13)].pfvals) != NULL) { - if ((vn = check_perform_variables((yyvsp[(3) - (13)].sval), (yyvsp[(12) - (13)].pfvals))) != NULL) { + 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[(1) - (13)].ival) == 2) { - if ((yyvsp[(12) - (13)].pfvals) != NULL) { + if ((yyvsp[-12].ival) == 2) { + if ((yyvsp[-1].pfvals) != NULL) { for (i=5; i>=0; i--) { - rf = (yyvsp[(12) - (13)].pfvals)->pf[i]; + rf = (yyvsp[-1].pfvals)->pf[i]; if (rf != NULL) { gen_jmplabel(rf->ljmp); gen_dstlabel(rf->lend); } } } - gen_jmplabel((yyvsp[(9) - (13)].ddval).lb1); - gen_dstlabel((yyvsp[(11) - (13)].dval)); + gen_jmplabel((yyvsp[-4].ddval).lb1); + gen_dstlabel((yyvsp[-2].dval)); } else { - if ((yyvsp[(12) - (13)].pfvals) != NULL) { + if ((yyvsp[-1].pfvals) != NULL) { for (i=5; i>=0; i--) { - rf = (yyvsp[(12) - (13)].pfvals)->pf[i]; + rf = (yyvsp[-1].pfvals)->pf[i]; if (rf != NULL) { gen_add(rf->pname1, rf->pname2, 0); gen_jmplabel(rf->ljmp); @@ -11043,147 +10049,139 @@ yyreduce: } } } - gen_add((yyvsp[(7) - (13)].sval),(yyvsp[(3) - (13)].sval),0); - gen_jmplabel((yyvsp[(9) - (13)].ddval).lb1); - gen_dstlabel((yyvsp[(11) - (13)].dval)); + 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: - -/* Line 1464 of yacc.c */ + 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; ;} + { (yyval.sval) = NULL; } +#line 10064 "htcobol.tab.c" break; - case 1157: - -/* Line 1464 of yacc.c */ + case 1157: /* perform_options: label perform_thru_opt */ #line 3695 "htcobol.y" - { - gen_perform_thru((yyvsp[(1) - (2)].sval),(yyvsp[(2) - (2)].sval)); + { + gen_perform_thru((yyvsp[-1].sval),(yyvsp[0].sval)); (yyval.sval) = NULL; - ;} + } +#line 10073 "htcobol.tab.c" break; - case 1158: - -/* Line 1464 of yacc.c */ + case 1158: /* @137: %empty */ #line 3700 "htcobol.y" - { + { (yyval.dval)=gen_marklabel(); /* BEFORE=1 AFTER=2 */ - if ((yyvsp[(3) - (4)].ival) == 2) { - gen_perform_thru((yyvsp[(1) - (4)].sval),(yyvsp[(2) - (4)].sval)); + if ((yyvsp[-1].ival) == 2) { + gen_perform_thru((yyvsp[-3].sval),(yyvsp[-2].sval)); } - ;} + } +#line 10085 "htcobol.tab.c" break; - case 1159: - -/* Line 1464 of yacc.c */ + 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) - (6)].ival) == 1) { - gen_perform_thru((yyvsp[(1) - (6)].sval),(yyvsp[(2) - (6)].sval)); + if ((yyvsp[-3].ival) == 1) { + gen_perform_thru((yyvsp[-5].sval),(yyvsp[-4].sval)); } - gen_jmplabel((yyvsp[(5) - (6)].dval)); + gen_jmplabel((yyvsp[-1].dval)); gen_dstlabel(lbl); - ;} + } +#line 10100 "htcobol.tab.c" break; - case 1160: - -/* Line 1464 of yacc.c */ + case 1160: /* perform_options: label perform_thru_opt gname TIMES */ #line 3719 "htcobol.y" - { + { unsigned long lbl; - gen_push_int((yyvsp[(3) - (4)].sval)); + gen_push_int((yyvsp[-1].sval)); lbl = gen_marklabel(); gen_perform_test_counter(lbl); - gen_perform_thru((yyvsp[(1) - (4)].sval),(yyvsp[(2) - (4)].sval)); + gen_perform_thru((yyvsp[-3].sval),(yyvsp[-2].sval)); gen_perform_times(lbl); - ;} + } +#line 10113 "htcobol.tab.c" break; - case 1161: - -/* Line 1464 of yacc.c */ + 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[(7) - (10)].sval)->litflag == '1') { - gen_move((yyvsp[(7) - (10)].sval),(yyvsp[(5) - (10)].sval)); + if ((yyvsp[-3].sval)->litflag == '1') { + gen_move((yyvsp[-3].sval),(yyvsp[-5].sval)); } else { - if(strcmp((yyvsp[(7) - (10)].sval)->name, (yyvsp[(5) - (10)].sval)->name) != 0) { - gen_move((yyvsp[(7) - (10)].sval),(yyvsp[(5) - (10)].sval)); + if(strcmp((yyvsp[-3].sval)->name, (yyvsp[-5].sval)->name) != 0) { + gen_move((yyvsp[-3].sval),(yyvsp[-5].sval)); } } - if ((yyvsp[(3) - (10)].ival) == 2) { + if ((yyvsp[-7].ival) == 2) { (yyval.ddval).lb2=gen_passlabel(); } (yyval.ddval).lb1 = gen_marklabel(); - ;} + } +#line 10137 "htcobol.tab.c" break; - case 1162: - -/* Line 1464 of yacc.c */ + case 1162: /* @139: %empty */ #line 3749 "htcobol.y" - { + { (yyval.dval) = gen_orstart(); /* BEFORE=1 AFTER=2 */ - if ((yyvsp[(3) - (12)].ival) == 2) { - gen_add((yyvsp[(9) - (12)].sval),(yyvsp[(5) - (12)].sval), 0); - gen_dstlabel((yyvsp[(11) - (12)].ddval).lb2); + 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: - -/* Line 1464 of yacc.c */ + 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[(14) - (14)].pfvals) != NULL) { - if ((vn = check_perform_variables((yyvsp[(5) - (14)].sval), (yyvsp[(14) - (14)].pfvals))) != NULL) { + 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[(1) - (14)].sval),(yyvsp[(2) - (14)].sval)); + gen_perform_thru((yyvsp[-13].sval),(yyvsp[-12].sval)); /* BEFORE=1 AFTER=2 */ - if ((yyvsp[(3) - (14)].ival) == 2) { - if ((yyvsp[(14) - (14)].pfvals) != NULL) { + if ((yyvsp[-11].ival) == 2) { + if ((yyvsp[0].pfvals) != NULL) { for (i=5; i>=0; i--) { - rf = (yyvsp[(14) - (14)].pfvals)->pf[i]; + rf = (yyvsp[0].pfvals)->pf[i]; if (rf != NULL) { gen_jmplabel(rf->ljmp); gen_dstlabel(rf->lend); } } } - gen_jmplabel((yyvsp[(11) - (14)].dval)); - gen_dstlabel((yyvsp[(13) - (14)].dval)); + gen_jmplabel((yyvsp[-3].dval)); + gen_dstlabel((yyvsp[-1].dval)); } else { - if ((yyvsp[(14) - (14)].pfvals) != NULL) { + if ((yyvsp[0].pfvals) != NULL) { for (i=5; i>=0; i--) { - rf = (yyvsp[(14) - (14)].pfvals)->pf[i]; + rf = (yyvsp[0].pfvals)->pf[i]; if (rf != NULL) { gen_add(rf->pname1, rf->pname2, 0); gen_jmplabel(rf->ljmp); @@ -11191,136 +10189,124 @@ yyreduce: } } } - gen_add((yyvsp[(9) - (14)].sval),(yyvsp[(5) - (14)].sval),0); - gen_jmplabel((yyvsp[(11) - (14)].dval)); - gen_dstlabel((yyvsp[(13) - (14)].dval)); + 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: - -/* Line 1464 of yacc.c */ + case 1164: /* perform_thru_opt: %empty */ #line 3805 "htcobol.y" - { (yyval.sval) = NULL; ;} + { (yyval.sval) = NULL; } +#line 10205 "htcobol.tab.c" break; - case 1165: - -/* Line 1464 of yacc.c */ + case 1165: /* perform_thru_opt: THRU label */ #line 3806 "htcobol.y" - { (yyval.sval) = (yyvsp[(2) - (2)].sval);;} + { (yyval.sval) = (yyvsp[0].sval);} +#line 10211 "htcobol.tab.c" break; - case 1166: - -/* Line 1464 of yacc.c */ + case 1166: /* with_test_opt: %empty */ #line 3808 "htcobol.y" - { (yyval.ival)=1; perform_after_sw=1; ;} + { (yyval.ival)=1; perform_after_sw=1; } +#line 10217 "htcobol.tab.c" break; - case 1167: - -/* Line 1464 of yacc.c */ + case 1167: /* with_test_opt: with_opt TEST before_after */ #line 3810 "htcobol.y" - { - (yyval.ival)=(yyvsp[(3) - (3)].ival); - perform_after_sw=(yyvsp[(3) - (3)].ival); - ;} + { + (yyval.ival)=(yyvsp[0].ival); + perform_after_sw=(yyvsp[0].ival); + } +#line 10226 "htcobol.tab.c" break; - case 1168: - -/* Line 1464 of yacc.c */ + case 1168: /* perform_after_opt: %empty */ #line 3815 "htcobol.y" - { (yyval.pfvals)=NULL; ;} + { (yyval.pfvals)=NULL; } +#line 10232 "htcobol.tab.c" break; - case 1169: - -/* Line 1464 of yacc.c */ + case 1169: /* perform_after_opt: AFTER perform_after */ #line 3817 "htcobol.y" - { + { (yyval.pfvals)=create_perform_info(); - (yyval.pfvals)->pf[0] = (yyvsp[(2) - (2)].pfval); + (yyval.pfvals)->pf[0] = (yyvsp[0].pfval); (yyval.pfvals)=(yyval.pfvals); - ;} + } +#line 10242 "htcobol.tab.c" break; - case 1170: - -/* Line 1464 of yacc.c */ + 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) - (4)].pfval); - (yyval.pfvals)->pf[1] = (yyvsp[(4) - (4)].pfval); + (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: - -/* Line 1464 of yacc.c */ + 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[(2) - (6)].pfval); - (yyval.pfvals)->pf[1] = (yyvsp[(4) - (6)].pfval); - (yyval.pfvals)->pf[2] = (yyvsp[(6) - (6)].pfval); + (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: - -/* Line 1464 of yacc.c */ + 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[(2) - (8)].pfval); - (yyval.pfvals)->pf[1] = (yyvsp[(4) - (8)].pfval); - (yyval.pfvals)->pf[2] = (yyvsp[(6) - (8)].pfval); - (yyval.pfvals)->pf[3] = (yyvsp[(8) - (8)].pfval); + (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: - -/* Line 1464 of yacc.c */ + 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[(2) - (10)].pfval); - (yyval.pfvals)->pf[1] = (yyvsp[(4) - (10)].pfval); - (yyval.pfvals)->pf[2] = (yyvsp[(6) - (10)].pfval); - (yyval.pfvals)->pf[3] = (yyvsp[(8) - (10)].pfval); - (yyval.pfvals)->pf[4] = (yyvsp[(10) - (10)].pfval); + (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: - -/* Line 1464 of yacc.c */ + 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[(2) - (12)].pfval); - (yyval.pfvals)->pf[1] = (yyvsp[(4) - (12)].pfval); - (yyval.pfvals)->pf[2] = (yyvsp[(6) - (12)].pfval); - (yyval.pfvals)->pf[3] = (yyvsp[(8) - (12)].pfval); - (yyval.pfvals)->pf[4] = (yyvsp[(10) - (12)].pfval); - (yyval.pfvals)->pf[5] = (yyvsp[(12) - (12)].pfval); + (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: - -/* Line 1464 of yacc.c */ + case 1175: /* @140: %empty */ #line 3874 "htcobol.y" { /* @@ -11328,12 +10314,12 @@ yyreduce: Initailization of the 'VARYING identifier' is not neccessary if it is the same as the 'FROM identifier'. */ - if ((yyvsp[(3) - (6)].sval)->litflag == '1') { - gen_move((yyvsp[(3) - (6)].sval),(yyvsp[(1) - (6)].sval)); + if ((yyvsp[-3].sval)->litflag == '1') { + gen_move((yyvsp[-3].sval),(yyvsp[-5].sval)); } else { - if(strcmp((yyvsp[(3) - (6)].sval)->name, (yyvsp[(1) - (6)].sval)->name) != 0) { - gen_move((yyvsp[(3) - (6)].sval),(yyvsp[(1) - (6)].sval)); + if(strcmp((yyvsp[-3].sval)->name, (yyvsp[-5].sval)->name) != 0) { + gen_move((yyvsp[-3].sval),(yyvsp[-5].sval)); } } /* BEFORE=1 AFTER=2 */ @@ -11341,859 +10327,758 @@ yyreduce: (yyval.ddval).lb2=gen_passlabel(); } (yyval.ddval).lb1 = gen_marklabel(); - ;} + } +#line 10332 "htcobol.tab.c" break; - case 1176: - -/* Line 1464 of yacc.c */ + 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[(5) - (8)].sval),(yyvsp[(1) - (8)].sval),0); - gen_dstlabel((yyvsp[(7) - (8)].ddval).lb2); - (yyval.pfval) = create_perf_info((yyvsp[(5) - (8)].sval), (yyvsp[(1) - (8)].sval), (yyvsp[(7) - (8)].ddval).lb1, lbl); + 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[(5) - (8)].sval), (yyvsp[(1) - (8)].sval), (yyvsp[(7) - (8)].ddval).lb1, lbl); + (yyval.pfval) = create_perf_info((yyvsp[-3].sval), (yyvsp[-7].sval), (yyvsp[-1].ddval).lb1, lbl); } - ;} + } +#line 10350 "htcobol.tab.c" break; - case 1177: - -/* Line 1464 of yacc.c */ + case 1177: /* $@141: %empty */ #line 3909 "htcobol.y" - {stabs_line();;} + {stabs_line();} +#line 10356 "htcobol.tab.c" break; - case 1179: - -/* Line 1464 of yacc.c */ + case 1179: /* before_after: BEFORE */ #line 3915 "htcobol.y" - { (yyval.ival)=1; ;} + { (yyval.ival)=1; } +#line 10362 "htcobol.tab.c" break; - case 1180: - -/* Line 1464 of yacc.c */ + case 1180: /* before_after: AFTER */ #line 3916 "htcobol.y" - { (yyval.ival)=2; ;} + { (yyval.ival)=2; } +#line 10368 "htcobol.tab.c" break; - case 1181: - -/* Line 1464 of yacc.c */ + case 1181: /* $@142: %empty */ #line 3920 "htcobol.y" { - if ((yyvsp[(2) - (2)].ival) & COND_UNARY) { - if ((yyvsp[(2) - (2)].ival) & COND_CLASS) { - gen_class_check((yyvsp[(1) - (2)].sval),(yyvsp[(2) - (2)].ival)); + 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) - (2)].sval),(yyvsp[(2) - (2)].ival)&~COND_UNARY,sy); + gen_compare((yyvsp[-1].sval),(yyvsp[0].ival)&~COND_UNARY,sy); } } - ;} + } +#line 10384 "htcobol.tab.c" break; - case 1182: - -/* Line 1464 of yacc.c */ + case 1182: /* condition: expr extended_cond_op $@142 expr_opt */ #line 3932 "htcobol.y" { - if ((yyvsp[(2) - (4)].ival) & COND_UNARY) { - if ((int)(yyvsp[(4) - (4)].sval) != -1) { + if ((yyvsp[-2].ival) & COND_UNARY) { + if ((int)(yyvsp[0].sval) != -1) { yyerror("class or sign conditions are unary"); } } else { - if ((int)(yyvsp[(4) - (4)].sval) == -1) { + if ((int)(yyvsp[0].sval) == -1) { yyerror("expression expected in a binary condition"); } else { - gen_compare((yyvsp[(1) - (4)].sval),(yyvsp[(2) - (4)].ival),(yyvsp[(4) - (4)].sval)); + gen_compare((yyvsp[-3].sval),(yyvsp[-2].ival),(yyvsp[0].sval)); } } - (yyval.condval).sy=(yyvsp[(1) - (4)].sval); /* for implied operands */ - (yyval.condval).oper=(yyvsp[(2) - (4)].ival); - ;} + (yyval.condval).sy=(yyvsp[-3].sval); /* for implied operands */ + (yyval.condval).oper=(yyvsp[-2].ival); + } +#line 10406 "htcobol.tab.c" break; - case 1183: - -/* Line 1464 of yacc.c */ + case 1183: /* condition: NOT condition */ #line 3949 "htcobol.y" - { gen_not(); (yyval.condval)=(yyvsp[(2) - (2)].condval); ;} + { gen_not(); (yyval.condval)=(yyvsp[0].condval); } +#line 10412 "htcobol.tab.c" break; - case 1184: - -/* Line 1464 of yacc.c */ + case 1184: /* @143: %empty */ #line 3952 "htcobol.y" - { (yyval.dval)=gen_andstart(); ;} + { (yyval.dval)=gen_andstart(); } +#line 10418 "htcobol.tab.c" break; - case 1185: - -/* Line 1464 of yacc.c */ + case 1185: /* condition: condition AND @143 implied_op_condition */ #line 3954 "htcobol.y" - { gen_dstlabel((yyvsp[(3) - (4)].dval)); (yyval.condval)=(yyvsp[(4) - (4)].condval); ;} + { gen_dstlabel((yyvsp[-1].dval)); (yyval.condval)=(yyvsp[0].condval); } +#line 10424 "htcobol.tab.c" break; - case 1186: - -/* Line 1464 of yacc.c */ + case 1186: /* @144: %empty */ #line 3957 "htcobol.y" - { (yyval.dval)=gen_orstart(); ;} + { (yyval.dval)=gen_orstart(); } +#line 10430 "htcobol.tab.c" break; - case 1187: - -/* Line 1464 of yacc.c */ + case 1187: /* condition: condition OR @144 implied_op_condition */ #line 3959 "htcobol.y" - { gen_dstlabel((yyvsp[(3) - (4)].dval)); (yyval.condval)=(yyvsp[(4) - (4)].condval); ;} + { gen_dstlabel((yyvsp[-1].dval)); (yyval.condval)=(yyvsp[0].condval); } +#line 10436 "htcobol.tab.c" break; - case 1188: - -/* Line 1464 of yacc.c */ + case 1188: /* condition: '(' condition ')' */ #line 3960 "htcobol.y" - { (yyval.condval) = (yyvsp[(2) - (3)].condval); ;} + { (yyval.condval) = (yyvsp[-1].condval); } +#line 10442 "htcobol.tab.c" break; - case 1189: - -/* Line 1464 of yacc.c */ + case 1189: /* condition: cond_name */ #line 3962 "htcobol.y" - { + { /*if ($1->level != 88) yyerror("condition unknown");*/ - gen_condition((yyvsp[(1) - (1)].sval)); + gen_condition((yyvsp[0].sval)); (yyval.condval).sy=NULL; (yyval.condval).oper=0; - ;} + } +#line 10454 "htcobol.tab.c" break; - case 1190: - -/* Line 1464 of yacc.c */ + case 1190: /* implied_op_condition: condition */ #line 3971 "htcobol.y" - { (yyval.condval) = (yyvsp[(1) - (1)].condval); ;} + { (yyval.condval) = (yyvsp[0].condval); } +#line 10460 "htcobol.tab.c" break; - case 1191: - -/* Line 1464 of yacc.c */ + 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) - (2)].ival),(yyvsp[(2) - (2)].sval)); + 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) - (2)].ival); - ;} + (yyval.condval).oper = (yyvsp[-1].ival); + } +#line 10475 "htcobol.tab.c" break; - case 1192: - -/* Line 1464 of yacc.c */ + case 1192: /* implied_op_condition: expr */ #line 3984 "htcobol.y" - { /* implied both the first operand and the operator */ + { /* 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[(1) - (1)].sval)); + 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: - -/* Line 1464 of yacc.c */ + case 1193: /* sign_condition: POSITIVE */ #line 3997 "htcobol.y" - { (yyval.ival)=GREATER; ;} + { (yyval.ival)=GREATER; } +#line 10497 "htcobol.tab.c" break; - case 1194: - -/* Line 1464 of yacc.c */ + case 1194: /* sign_condition: NEGATIVE */ #line 3998 "htcobol.y" - { (yyval.ival)=LESS; ;} + { (yyval.ival)=LESS; } +#line 10503 "htcobol.tab.c" break; - case 1195: - -/* Line 1464 of yacc.c */ + case 1195: /* sign_condition: ZERO */ #line 3999 "htcobol.y" - { (yyval.ival)=EQUAL; ;} + { (yyval.ival)=EQUAL; } +#line 10509 "htcobol.tab.c" break; - case 1196: - -/* Line 1464 of yacc.c */ + case 1196: /* class_condition: NUMERIC */ #line 4002 "htcobol.y" - { (yyval.ival)=CLASS_NUMERIC; ;} + { (yyval.ival)=CLASS_NUMERIC; } +#line 10515 "htcobol.tab.c" break; - case 1197: - -/* Line 1464 of yacc.c */ + case 1197: /* class_condition: ALPHABETIC */ #line 4003 "htcobol.y" - { (yyval.ival)=CLASS_ALPHABETIC; ;} + { (yyval.ival)=CLASS_ALPHABETIC; } +#line 10521 "htcobol.tab.c" break; - case 1198: - -/* Line 1464 of yacc.c */ + case 1198: /* class_condition: ALPHABETIC_LOWER */ #line 4004 "htcobol.y" - { (yyval.ival)=CLASS_ALPHABETIC_LOWER; ;} + { (yyval.ival)=CLASS_ALPHABETIC_LOWER; } +#line 10527 "htcobol.tab.c" break; - case 1199: - -/* Line 1464 of yacc.c */ + case 1199: /* class_condition: ALPHABETIC_UPPER */ #line 4005 "htcobol.y" - { (yyval.ival)=CLASS_ALPHABETIC_UPPER; ;} + { (yyval.ival)=CLASS_ALPHABETIC_UPPER; } +#line 10533 "htcobol.tab.c" break; - case 1200: - -/* Line 1464 of yacc.c */ + case 1200: /* extended_cond_op: IS ext_cond */ #line 4008 "htcobol.y" - { (yyval.ival) = (yyvsp[(2) - (2)].ival); ;} + { (yyval.ival) = (yyvsp[0].ival); } +#line 10539 "htcobol.tab.c" break; - case 1201: - -/* Line 1464 of yacc.c */ + case 1201: /* extended_cond_op: IS NOT ext_cond */ #line 4009 "htcobol.y" - { (yyval.ival) = (yyvsp[(3) - (3)].ival) ^ 7; ;} + { (yyval.ival) = (yyvsp[0].ival) ^ 7; } +#line 10545 "htcobol.tab.c" break; - case 1202: - -/* Line 1464 of yacc.c */ + case 1202: /* extended_cond_op: IS ext_cond OR ext_cond */ #line 4010 "htcobol.y" - { (yyval.ival) = (yyvsp[(2) - (4)].ival) | (yyvsp[(4) - (4)].ival); ;} + { (yyval.ival) = (yyvsp[-2].ival) | (yyvsp[0].ival); } +#line 10551 "htcobol.tab.c" break; - case 1203: - -/* Line 1464 of yacc.c */ + case 1203: /* extended_cond_op: ext_cond */ #line 4011 "htcobol.y" - { (yyval.ival) = (yyvsp[(1) - (1)].ival); ;} + { (yyval.ival) = (yyvsp[0].ival); } +#line 10557 "htcobol.tab.c" break; - case 1204: - -/* Line 1464 of yacc.c */ + case 1204: /* extended_cond_op: NOT is_opt ext_cond */ #line 4012 "htcobol.y" - { (yyval.ival) = (yyvsp[(3) - (3)].ival) ^ 7; ;} + { (yyval.ival) = (yyvsp[0].ival) ^ 7; } +#line 10563 "htcobol.tab.c" break; - case 1205: - -/* Line 1464 of yacc.c */ + case 1205: /* extended_cond_op: ext_cond OR ext_cond */ #line 4013 "htcobol.y" - { (yyval.ival) = (yyvsp[(1) - (3)].ival) | (yyvsp[(3) - (3)].ival); ;} + { (yyval.ival) = (yyvsp[-2].ival) | (yyvsp[0].ival); } +#line 10569 "htcobol.tab.c" break; - case 1206: - -/* Line 1464 of yacc.c */ + case 1206: /* ext_cond: conditional */ #line 4016 "htcobol.y" - { (yyval.ival) = (yyvsp[(1) - (1)].ival); ;} + { (yyval.ival) = (yyvsp[0].ival); } +#line 10575 "htcobol.tab.c" break; - case 1207: - -/* Line 1464 of yacc.c */ + case 1207: /* ext_cond: class_condition */ #line 4017 "htcobol.y" - { (yyval.ival) = (yyvsp[(1) - (1)].ival) | COND_UNARY | COND_CLASS; ;} + { (yyval.ival) = (yyvsp[0].ival) | COND_UNARY | COND_CLASS; } +#line 10581 "htcobol.tab.c" break; - case 1208: - -/* Line 1464 of yacc.c */ + case 1208: /* ext_cond: sign_condition */ #line 4018 "htcobol.y" - { (yyval.ival) = (yyvsp[(1) - (1)].ival) | COND_UNARY; ;} + { (yyval.ival) = (yyvsp[0].ival) | COND_UNARY; } +#line 10587 "htcobol.tab.c" break; - case 1209: - -/* Line 1464 of yacc.c */ + case 1209: /* cond_op: conditional */ #line 4021 "htcobol.y" - { (yyval.ival) = (yyvsp[(1) - (1)].ival); ;} + { (yyval.ival) = (yyvsp[0].ival); } +#line 10593 "htcobol.tab.c" break; - case 1210: - -/* Line 1464 of yacc.c */ + case 1210: /* cond_op: NOT conditional */ #line 4022 "htcobol.y" - { (yyval.ival) = (yyvsp[(2) - (2)].ival) ^ 7; ;} + { (yyval.ival) = (yyvsp[0].ival) ^ 7; } +#line 10599 "htcobol.tab.c" break; - case 1211: - -/* Line 1464 of yacc.c */ + case 1211: /* cond_op: conditional OR conditional */ #line 4023 "htcobol.y" - { (yyval.ival) = (yyvsp[(1) - (3)].ival) | (yyvsp[(3) - (3)].ival); ;} + { (yyval.ival) = (yyvsp[-2].ival) | (yyvsp[0].ival); } +#line 10605 "htcobol.tab.c" break; - case 1212: - -/* Line 1464 of yacc.c */ + case 1212: /* conditional: CONDITIONAL than_to_opt */ #line 4026 "htcobol.y" - { (yyval.ival) = (yyvsp[(1) - (2)].ival); ;} + { (yyval.ival) = (yyvsp[-1].ival); } +#line 10611 "htcobol.tab.c" break; - case 1222: - -/* Line 1464 of yacc.c */ + case 1222: /* than_to_opt: TO */ #line 4054 "htcobol.y" - { ;} + { } +#line 10617 "htcobol.tab.c" break; - case 1223: - -/* Line 1464 of yacc.c */ + case 1223: /* than_to_opt: THAN */ #line 4055 "htcobol.y" - { ;} + { } +#line 10623 "htcobol.tab.c" break; - case 1238: - -/* Line 1464 of yacc.c */ + case 1238: /* gname_opt: gname */ #line 4083 "htcobol.y" - { (yyval.sval) = (yyvsp[(1) - (1)].sval); ;} + { (yyval.sval) = (yyvsp[0].sval); } +#line 10629 "htcobol.tab.c" break; - case 1239: - -/* Line 1464 of yacc.c */ + case 1239: /* gname_opt: %empty */ #line 4084 "htcobol.y" - { (yyval.sval) = NULL; ;} + { (yyval.sval) = NULL; } +#line 10635 "htcobol.tab.c" break; - case 1241: - -/* Line 1464 of yacc.c */ + case 1241: /* to_opt: TO */ #line 4087 "htcobol.y" - { ;} + { } +#line 10641 "htcobol.tab.c" break; - case 1242: - -/* Line 1464 of yacc.c */ + case 1242: /* name_var_list: name_var */ #line 4090 "htcobol.y" - { (yyval.glistval) = gvar_list_append(NULL, (yyvsp[(1) - (1)].sval), source_lineno); ;} + { (yyval.glistval) = gvar_list_append(NULL, (yyvsp[0].sval), source_lineno); } +#line 10647 "htcobol.tab.c" break; - case 1243: - -/* Line 1464 of yacc.c */ + case 1243: /* name_var_list: name_var_list sep_opt name_var */ #line 4092 "htcobol.y" - { (yyval.glistval) = gvar_list_append((yyvsp[(1) - (3)].glistval), (yyvsp[(3) - (3)].sval), source_lineno); ;} + { (yyval.glistval) = gvar_list_append((yyvsp[-2].glistval), (yyvsp[0].sval), source_lineno); } +#line 10653 "htcobol.tab.c" break; - case 1244: - -/* Line 1464 of yacc.c */ + case 1244: /* gname_list: gname */ #line 4095 "htcobol.y" - { (yyval.glistval) = gvar_list_append(NULL, (yyvsp[(1) - (1)].sval), source_lineno); ;} + { (yyval.glistval) = gvar_list_append(NULL, (yyvsp[0].sval), source_lineno); } +#line 10659 "htcobol.tab.c" break; - case 1245: - -/* Line 1464 of yacc.c */ + case 1245: /* gname_list: gname_list sep_opt gname */ #line 4097 "htcobol.y" - { (yyval.glistval) = gvar_list_append((yyvsp[(1) - (3)].glistval), (yyvsp[(3) - (3)].sval), source_lineno); ;} + { (yyval.glistval) = gvar_list_append((yyvsp[-2].glistval), (yyvsp[0].sval), source_lineno); } +#line 10665 "htcobol.tab.c" break; - case 1246: - -/* Line 1464 of yacc.c */ + 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[(1) - (1)].sval); ;} + (yyval.sval) = (yyvsp[0].sval); } +#line 10675 "htcobol.tab.c" break; - case 1247: - -/* Line 1464 of yacc.c */ + case 1247: /* gname: gliteral */ #line 4104 "htcobol.y" - { (yyval.sval) = (struct sym *)(yyvsp[(1) - (1)].lval);;} + { (yyval.sval) = (struct sym *)(yyvsp[0].lval);} +#line 10681 "htcobol.tab.c" break; - case 1248: - -/* Line 1464 of yacc.c */ + case 1248: /* @145: %empty */ #line 4105 "htcobol.y" - { - (yyvsp[(2) - (3)].sval)->type = 'f'; /* function type */ + { + (yyvsp[-1].sval)->type = 'f'; /* function type */ (yyval.ival)=CALL; - ;} + } +#line 10690 "htcobol.tab.c" break; - case 1249: - -/* Line 1464 of yacc.c */ + case 1249: /* gname: FUNCTION LABELSTR '(' @145 intrinsic_parm_list ')' */ #line 4109 "htcobol.y" - { - (yyval.sval) = gen_intrinsic_call((struct sym *)(yyvsp[(2) - (6)].sval)); - ;} + { + (yyval.sval) = gen_intrinsic_call((struct sym *)(yyvsp[-4].sval)); + } +#line 10698 "htcobol.tab.c" break; - case 1250: - -/* Line 1464 of yacc.c */ + case 1250: /* gname: FUNCTION LABELSTR */ #line 4112 "htcobol.y" - { - (yyvsp[(2) - (2)].sval)->type = 'f'; /* function type */ + { + (yyvsp[0].sval)->type = 'f'; /* function type */ (yyval.ival)=CALL; - (yyval.sval) = gen_intrinsic_call((struct sym *)(yyvsp[(2) - (2)].sval)); - ;} + (yyval.sval) = gen_intrinsic_call((struct sym *)(yyvsp[0].sval)); + } +#line 10708 "htcobol.tab.c" break; - case 1251: - -/* Line 1464 of yacc.c */ + case 1251: /* name_or_lit: name */ #line 4119 "htcobol.y" - { (yyval.sval) = (yyvsp[(1) - (1)].sval); ;} + { (yyval.sval) = (yyvsp[0].sval); } +#line 10714 "htcobol.tab.c" break; - case 1252: - -/* Line 1464 of yacc.c */ + case 1252: /* name_or_lit: literal */ #line 4120 "htcobol.y" - { (yyval.sval) = (struct sym *)(yyvsp[(1) - (1)].lval); ;} + { (yyval.sval) = (struct sym *)(yyvsp[0].lval); } +#line 10720 "htcobol.tab.c" break; - case 1253: - -/* Line 1464 of yacc.c */ + case 1253: /* noallname: name */ #line 4123 "htcobol.y" - { (yyval.sval) = (yyvsp[(1) - (1)].sval); ;} + { (yyval.sval) = (yyvsp[0].sval); } +#line 10726 "htcobol.tab.c" break; - case 1254: - -/* Line 1464 of yacc.c */ + case 1254: /* noallname: without_all_literal */ #line 4124 "htcobol.y" - { (yyval.sval) = (struct sym *)(yyvsp[(1) - (1)].lval); ;} + { (yyval.sval) = (struct sym *)(yyvsp[0].lval); } +#line 10732 "htcobol.tab.c" break; - case 1257: - -/* Line 1464 of yacc.c */ + case 1257: /* without_all_literal: literal */ #line 4131 "htcobol.y" - { (yyval.lval)=(yyvsp[(1) - (1)].lval); ;} + { (yyval.lval)=(yyvsp[0].lval); } +#line 10738 "htcobol.tab.c" break; - case 1258: - -/* Line 1464 of yacc.c */ + case 1258: /* without_all_literal: special_literal */ #line 4132 "htcobol.y" - { (yyval.lval)=(yyvsp[(1) - (1)].lval); ;} + { (yyval.lval)=(yyvsp[0].lval); } +#line 10744 "htcobol.tab.c" break; - case 1259: - -/* Line 1464 of yacc.c */ + case 1259: /* all_literal: ALL literal */ #line 4135 "htcobol.y" - { (yyvsp[(2) - (2)].lval)->all=1; (yyval.lval)=(yyvsp[(2) - (2)].lval); ;} + { (yyvsp[0].lval)->all=1; (yyval.lval)=(yyvsp[0].lval); } +#line 10750 "htcobol.tab.c" break; - case 1260: - -/* Line 1464 of yacc.c */ + case 1260: /* all_literal: ALL special_literal */ #line 4136 "htcobol.y" - { (yyval.lval)=(yyvsp[(2) - (2)].lval); ;} + { (yyval.lval)=(yyvsp[0].lval); } +#line 10756 "htcobol.tab.c" break; - case 1261: - -/* Line 1464 of yacc.c */ + case 1261: /* special_literal: SPACES */ #line 4139 "htcobol.y" - { (yyval.lval)=spe_lit_SP; ;} + { (yyval.lval)=spe_lit_SP; } +#line 10762 "htcobol.tab.c" break; - case 1262: - -/* Line 1464 of yacc.c */ + case 1262: /* special_literal: ZERO */ #line 4140 "htcobol.y" - { (yyval.lval)=spe_lit_ZE; ;} + { (yyval.lval)=spe_lit_ZE; } +#line 10768 "htcobol.tab.c" break; - case 1263: - -/* Line 1464 of yacc.c */ + case 1263: /* special_literal: QUOTES */ #line 4141 "htcobol.y" - { (yyval.lval)=spe_lit_QU; ;} + { (yyval.lval)=spe_lit_QU; } +#line 10774 "htcobol.tab.c" break; - case 1264: - -/* Line 1464 of yacc.c */ + case 1264: /* special_literal: HIGHVALUES */ #line 4142 "htcobol.y" - { (yyval.lval)=spe_lit_HV; ;} + { (yyval.lval)=spe_lit_HV; } +#line 10780 "htcobol.tab.c" break; - case 1265: - -/* Line 1464 of yacc.c */ + case 1265: /* special_literal: LOWVALUES */ #line 4143 "htcobol.y" - { (yyval.lval)=spe_lit_LV; ;} + { (yyval.lval)=spe_lit_LV; } +#line 10786 "htcobol.tab.c" break; - case 1266: - -/* Line 1464 of yacc.c */ + case 1266: /* var_or_nliteral: variable */ #line 4146 "htcobol.y" - { (yyval.sval) = (yyvsp[(1) - (1)].sval); ;} + { (yyval.sval) = (yyvsp[0].sval); } +#line 10792 "htcobol.tab.c" break; - case 1267: - -/* Line 1464 of yacc.c */ + case 1267: /* var_or_nliteral: nliteral */ #line 4147 "htcobol.y" - { (yyval.sval) = (struct sym *)(yyvsp[(1) - (1)].lval); ;} + { (yyval.sval) = (struct sym *)(yyvsp[0].lval); } +#line 10798 "htcobol.tab.c" break; - case 1268: - -/* Line 1464 of yacc.c */ + case 1268: /* nliteral: signed_nliteral */ #line 4150 "htcobol.y" - { save_literal((yyvsp[(1) - (1)].lval),'9'); (yyvsp[(1) - (1)].lval)->all = 0; (yyval.lval)=(yyvsp[(1) - (1)].lval); ;} + { save_literal((yyvsp[0].lval),'9'); (yyvsp[0].lval)->all = 0; (yyval.lval)=(yyvsp[0].lval); } +#line 10804 "htcobol.tab.c" break; - case 1269: - -/* Line 1464 of yacc.c */ + case 1269: /* literal: signed_nliteral */ #line 4153 "htcobol.y" - { save_literal((yyvsp[(1) - (1)].lval),'9'); (yyvsp[(1) - (1)].lval)->all=0; (yyval.lval)=(yyvsp[(1) - (1)].lval); ;} + { save_literal((yyvsp[0].lval),'9'); (yyvsp[0].lval)->all=0; (yyval.lval)=(yyvsp[0].lval); } +#line 10810 "htcobol.tab.c" break; - case 1270: - -/* Line 1464 of yacc.c */ + case 1270: /* literal: CLITERAL */ #line 4154 "htcobol.y" - { save_literal((yyvsp[(1) - (1)].lval),'X'); (yyvsp[(1) - (1)].lval)->all=0; (yyval.lval)=(yyvsp[(1) - (1)].lval); ;} + { save_literal((yyvsp[0].lval),'X'); (yyvsp[0].lval)->all=0; (yyval.lval)=(yyvsp[0].lval); } +#line 10816 "htcobol.tab.c" break; - case 1271: - -/* Line 1464 of yacc.c */ + case 1271: /* signed_nliteral: NLITERAL */ #line 4157 "htcobol.y" - { check_decimal_point((yyvsp[(1) - (1)].lval)); (yyval.lval)=(yyvsp[(1) - (1)].lval); ;} + { check_decimal_point((yyvsp[0].lval)); (yyval.lval)=(yyvsp[0].lval); } +#line 10822 "htcobol.tab.c" break; - case 1272: - -/* Line 1464 of yacc.c */ + case 1272: /* signed_nliteral: '+' NLITERAL */ #line 4158 "htcobol.y" - { check_decimal_point((yyvsp[(2) - (2)].lval)); (yyval.lval)=(yyvsp[(2) - (2)].lval); ;} + { check_decimal_point((yyvsp[0].lval)); (yyval.lval)=(yyvsp[0].lval); } +#line 10828 "htcobol.tab.c" break; - case 1273: - -/* Line 1464 of yacc.c */ + case 1273: /* signed_nliteral: '-' NLITERAL */ #line 4160 "htcobol.y" - { - check_decimal_point((yyvsp[(2) - (2)].lval)); - invert_literal_sign( (yyvsp[(2) - (2)].lval) ); - (yyval.lval)=(yyvsp[(2) - (2)].lval); - ;} + { + 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: - -/* Line 1464 of yacc.c */ + case 1274: /* def_name_opt: def_name */ #line 4167 "htcobol.y" - { (yyval.sval) = (yyvsp[(1) - (1)].sval); ;} + { (yyval.sval) = (yyvsp[0].sval); } +#line 10844 "htcobol.tab.c" break; - case 1275: - -/* Line 1464 of yacc.c */ + case 1275: /* def_name_opt: %empty */ #line 4168 "htcobol.y" - { (yyval.sval) = NULL; ;} + { (yyval.sval) = NULL; } +#line 10850 "htcobol.tab.c" break; - case 1276: - -/* Line 1464 of yacc.c */ + case 1276: /* def_name: STRING */ #line 4172 "htcobol.y" { - if ((yyvsp[(1) - (1)].sval)->defined) - yyerror("variable redefined, %s",(yyvsp[(1) - (1)].sval)->name); - (yyvsp[(1) - (1)].sval)->defined=1; - (yyval.sval)=(yyvsp[(1) - (1)].sval); - ;} + 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: - -/* Line 1464 of yacc.c */ + case 1277: /* def_name: FILLER */ #line 4178 "htcobol.y" - { (yyval.sval)=alloc_filler(); ;} + { (yyval.sval)=alloc_filler(); } +#line 10867 "htcobol.tab.c" break; - case 1278: - -/* Line 1464 of yacc.c */ + case 1278: /* variable_indexed: SUBSCVAR */ #line 4182 "htcobol.y" { - if ((yyvsp[(1) - (1)].sval)->occurs_flg == 0 && !in_occurs((yyvsp[(1) - (1)].sval))) // walter - yyerror("\"%s\" is not an indexed variable ", (yyvsp[(1) - (1)].sval)->name); - (yyval.sval)=(yyvsp[(1) - (1)].sval); - ;} + 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: - -/* Line 1464 of yacc.c */ + case 1279: /* filename: literal */ #line 4207 "htcobol.y" - { (yyval.sval)=(struct sym *)(yyvsp[(1) - (1)].lval); ;} + { (yyval.sval)=(struct sym *)(yyvsp[0].lval); } +#line 10883 "htcobol.tab.c" break; - case 1280: - -/* Line 1464 of yacc.c */ + case 1280: /* filename: STRING */ #line 4208 "htcobol.y" - {(yyval.sval)=(yyvsp[(1) - (1)].sval); ;} + {(yyval.sval)=(yyvsp[0].sval); } +#line 10889 "htcobol.tab.c" break; - case 1281: - -/* Line 1464 of yacc.c */ + case 1281: /* data_name: literal */ #line 4211 "htcobol.y" - { (yyval.sval)=(struct sym *)(yyvsp[(1) - (1)].lval); ;} + { (yyval.sval)=(struct sym *)(yyvsp[0].lval); } +#line 10895 "htcobol.tab.c" break; - case 1282: - -/* Line 1464 of yacc.c */ + case 1282: /* data_name: STRING */ #line 4212 "htcobol.y" - {(yyval.sval)=(yyvsp[(1) - (1)].sval); ;} + {(yyval.sval)=(yyvsp[0].sval); } +#line 10901 "htcobol.tab.c" break; - case 1283: - -/* Line 1464 of yacc.c */ + case 1283: /* $@146: %empty */ #line 4215 "htcobol.y" - { curr_division = CDIV_SUBSCRIPTS; ;} + { curr_division = CDIV_SUBSCRIPTS; } +#line 10907 "htcobol.tab.c" break; - case 1284: - -/* Line 1464 of yacc.c */ + case 1284: /* cond_name: VARCOND '(' $@146 subscripts ')' */ #line 4216 "htcobol.y" - { + { curr_division = CDIV_PROC; - (yyval.sval) = (struct sym *)create_subscripted_var( (yyvsp[(1) - (5)].sval), (yyvsp[(4) - (5)].rval) ); + (yyval.sval) = (struct sym *)create_subscripted_var( (yyvsp[-4].sval), (yyvsp[-1].rval) ); /*check_subscripts($$);*/ - ;} + } +#line 10917 "htcobol.tab.c" break; - case 1285: - -/* Line 1464 of yacc.c */ + case 1285: /* cond_name: VARCOND */ #line 4221 "htcobol.y" - { (yyval.sval)=(yyvsp[(1) - (1)].sval); ;} + { (yyval.sval)=(yyvsp[0].sval); } +#line 10923 "htcobol.tab.c" break; - case 1286: - -/* Line 1464 of yacc.c */ + case 1286: /* name: variable '(' gname ':' gname_opt ')' */ #line 4224 "htcobol.y" - { - (yyval.sval)=(struct sym *)create_refmoded_var((yyvsp[(1) - (6)].sval), (yyvsp[(3) - (6)].sval), (yyvsp[(5) - (6)].sval)); check_refmods((struct sym *)(yyval.sval)); + { + (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: - -/* Line 1464 of yacc.c */ + case 1287: /* name: variable */ #line 4228 "htcobol.y" - { is_var=1; ;} + { is_var=1; } +#line 10938 "htcobol.tab.c" break; - case 1288: - -/* Line 1464 of yacc.c */ + case 1288: /* name: LABELSTR */ #line 4229 "htcobol.y" - { yyerror("Invalid argument expecting variable"); is_var=2; ;} + { yyerror("Invalid argument expecting variable"); is_var=2; } +#line 10944 "htcobol.tab.c" break; - case 1289: - -/* Line 1464 of yacc.c */ + 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: - -/* Line 1464 of yacc.c */ + case 1290: /* variable: qualified_var */ #line 4260 "htcobol.y" { - (yyval.sval)=(yyvsp[(1) - (1)].sval); - if (need_subscripts && (yyvsp[(1) - (1)].sval)->occurs_flg == 0) { + (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[(1) - (1)].sval))) { - yyerror("this variable \'%s\' must be subscripted or indexed", (yyvsp[(1) - (1)].sval)->name); + 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: - -/* Line 1464 of yacc.c */ + case 1291: /* $@147: %empty */ #line 4271 "htcobol.y" - { curr_division = CDIV_SUBSCRIPTS; ;} + { curr_division = CDIV_SUBSCRIPTS; } +#line 10975 "htcobol.tab.c" break; - case 1292: - -/* Line 1464 of yacc.c */ + case 1292: /* variable: qualified_var LPAR $@147 subscripts ')' */ #line 4273 "htcobol.y" - { + { curr_division = CDIV_PROC; - (yyval.sval) = (struct sym *)create_subscripted_var( (yyvsp[(1) - (5)].sval), (yyvsp[(4) - (5)].rval) ); + (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: - -/* Line 1464 of yacc.c */ + case 1293: /* qualified_var: unqualified_var */ #line 4281 "htcobol.y" { - (yyval.sval)=(yyvsp[(1) - (1)].sval); - if ((yyvsp[(1) - (1)].sval)->clone != 0) - yyerror("this variable \'%s\' must be qualified", (yyvsp[(1) - (1)].sval)->name); - ;} + (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: - -/* Line 1464 of yacc.c */ + case 1294: /* qualified_var: unqualified_var in_of qualified_var */ #line 4287 "htcobol.y" { - (yyval.sval)=lookup_parent((yyvsp[(1) - (3)].sval),(yyvsp[(3) - (3)].sval)); + (yyval.sval)=lookup_parent((yyvsp[-2].sval),(yyvsp[0].sval)); if ((yyval.sval) == NULL) { - yyerror("this variable \'%s\' is not defined in '%s'", (yyvsp[(1) - (3)].sval)->name, (yyvsp[(3) - (3)].sval)->name); - (yyval.sval)=(yyvsp[(1) - (3)].sval); + 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: - -/* Line 1464 of yacc.c */ + case 1295: /* unqualified_var: VARIABLE */ #line 4297 "htcobol.y" - { - if (((yyvsp[(1) - (1)].sval)->defined == 0) && ((yyvsp[(1) - (1)].sval)->type == 0)) + { + if (((yyvsp[0].sval)->defined == 0) && ((yyvsp[0].sval)->type == 0)) { - yyerror("Undefined variable \'%s\' found", (yyvsp[(1) - (1)].sval)->name); + yyerror("Undefined variable \'%s\' found", (yyvsp[0].sval)->name); } - (yyval.sval)=(yyvsp[(1) - (1)].sval); - ;} + (yyval.sval)=(yyvsp[0].sval); + } +#line 11019 "htcobol.tab.c" break; - case 1296: - -/* Line 1464 of yacc.c */ + case 1296: /* unqualified_var: SUBSCVAR */ #line 4304 "htcobol.y" - { need_subscripts=1; (yyval.sval)=(yyvsp[(1) - (1)].sval); ;} + { need_subscripts=1; (yyval.sval)=(yyvsp[0].sval); } +#line 11025 "htcobol.tab.c" break; - case 1297: - -/* Line 1464 of yacc.c */ + case 1297: /* subscripts: subscript */ #line 4307 "htcobol.y" - { (yyval.rval) = (yyvsp[(1) - (1)].rval); ;} + { (yyval.rval) = (yyvsp[0].rval); } +#line 11031 "htcobol.tab.c" break; - case 1298: - -/* Line 1464 of yacc.c */ + case 1298: /* subscripts: subscripts comma_opt subscript */ #line 4308 "htcobol.y" - { (yyval.rval) = add_subscript( (yyvsp[(1) - (3)].rval), (yyvsp[(3) - (3)].rval) ); ;} + { (yyval.rval) = add_subscript( (yyvsp[-2].rval), (yyvsp[0].rval) ); } +#line 11037 "htcobol.tab.c" break; - case 1299: - -/* Line 1464 of yacc.c */ + case 1299: /* subscript: gname */ #line 4311 "htcobol.y" - { (yyval.rval) = create_subscript( (yyvsp[(1) - (1)].sval) ); ;} + { (yyval.rval) = create_subscript( (yyvsp[0].sval) ); } +#line 11043 "htcobol.tab.c" break; - case 1300: - -/* Line 1464 of yacc.c */ + case 1300: /* subscript: subscript '+' gname */ #line 4312 "htcobol.y" - { (yyval.rval) = add_subscript_item( (yyvsp[(1) - (3)].rval), '+', (yyvsp[(3) - (3)].sval) ); ;} + { (yyval.rval) = add_subscript_item( (yyvsp[-2].rval), '+', (yyvsp[0].sval) ); } +#line 11049 "htcobol.tab.c" break; - case 1301: - -/* Line 1464 of yacc.c */ + case 1301: /* subscript: subscript '-' gname */ #line 4313 "htcobol.y" - { (yyval.rval) = add_subscript_item( (yyvsp[(1) - (3)].rval), '-', (yyvsp[(3) - (3)].sval) ); ;} + { (yyval.rval) = add_subscript_item( (yyvsp[-2].rval), '-', (yyvsp[0].sval) ); } +#line 11055 "htcobol.tab.c" break; - case 1302: - -/* Line 1464 of yacc.c */ + case 1302: /* integer: signed_nliteral */ #line 4317 "htcobol.y" { char *s; (yyval.ival)=0; - s=(yyvsp[(1) - (1)].lval)->name; + 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: - -/* Line 1464 of yacc.c */ + case 1303: /* label: LABELSTR in_of LABELSTR */ #line 4329 "htcobol.y" { - struct sym *lab=(yyvsp[(1) - (3)].sval); - struct sym *sec=(yyvsp[(3) - (3)].sval); + 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[(3) - (3)].sval),NULL))==NULL) { - sec = install((yyvsp[(3) - (3)].sval)->name,SYTB_LAB,2); + if ((sec=lookup_label((yyvsp[0].sval),NULL))==NULL) { + sec = install((yyvsp[0].sval)->name,SYTB_LAB,2); sec->defined=2; sec->parent = NULL; } @@ -12201,153 +11086,125 @@ yyreduce: if (lab->defined == 0) { lab->defined = 2; - lab->parent = (yyvsp[(3) - (3)].sval); + lab->parent = (yyvsp[0].sval); } else { - if ((lab=lookup_label((yyvsp[(1) - (3)].sval),(yyvsp[(3) - (3)].sval)))==NULL) { - lab = install((yyvsp[(1) - (3)].sval)->name,SYTB_LAB,2); + 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[(3) - (3)].sval); + lab->parent = (yyvsp[0].sval); } } (yyval.sval) = lab; - ;} + } +#line 11100 "htcobol.tab.c" break; - case 1304: - -/* Line 1464 of yacc.c */ + case 1304: /* label: LABELSTR */ #line 4356 "htcobol.y" { - struct sym *lab=(yyvsp[(1) - (1)].sval); + 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[(1) - (1)].sval)->name,SYTB_LAB,2); + 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: - -/* Line 1464 of yacc.c */ + case 1305: /* label: NLITERAL */ #line 4371 "htcobol.y" - {(yyval.sval)=define_label((struct sym *)(yyvsp[(1) - (1)].lval),1,NULL,0);;} + {(yyval.sval)=define_label((struct sym *)(yyvsp[0].lval),1,NULL,0);} +#line 11126 "htcobol.tab.c" break; - case 1306: - -/* Line 1464 of yacc.c */ + case 1306: /* label: NLITERAL in_of NLITERAL */ #line 4372 "htcobol.y" - {(yyval.sval)=define_label((struct sym *)(yyvsp[(1) - (3)].lval),1,(struct sym *)(yyvsp[(3) - (3)].lval),1);;} + {(yyval.sval)=define_label((struct sym *)(yyvsp[-2].lval),1,(struct sym *)(yyvsp[0].lval),1);} +#line 11132 "htcobol.tab.c" break; - case 1307: - -/* Line 1464 of yacc.c */ + case 1307: /* label: NLITERAL in_of LABELSTR */ #line 4373 "htcobol.y" - {(yyval.sval)=define_label((struct sym *)(yyvsp[(1) - (3)].lval),1,(yyvsp[(3) - (3)].sval),0);;} + {(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" -/* Line 1464 of yacc.c */ -#line 12262 "htcobol.tab.c" default: break; } - YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc); + /* 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; - YY_STACK_PRINT (yyss, yyssp); *++yyvsp = yyval; - /* Now `shift' the result of the reduction. Determine what state + /* Now 'shift' the result of the reduction. Determine what state that goes to, based on the state we popped back to and the rule number reduced by. */ - - yyn = yyr1[yyn]; - - yystate = yypgoto[yyn - YYNTOKENS] + *yyssp; - if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp) - yystate = yytable[yystate]; - else - yystate = yydefgoto[yyn - YYNTOKENS]; + { + 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 -- 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; -#if ! YYERROR_VERBOSE yyerror (YY_("syntax error")); -#else - { - YYSIZE_T yysize = yysyntax_error (0, yystate, yychar); - if (yymsg_alloc < yysize && yymsg_alloc < YYSTACK_ALLOC_MAXIMUM) - { - YYSIZE_T yyalloc = 2 * yysize; - if (! (yysize <= yyalloc && yyalloc <= YYSTACK_ALLOC_MAXIMUM)) - yyalloc = YYSTACK_ALLOC_MAXIMUM; - if (yymsg != yymsgbuf) - YYSTACK_FREE (yymsg); - yymsg = (char *) YYSTACK_ALLOC (yyalloc); - if (yymsg) - yymsg_alloc = yyalloc; - else - { - yymsg = yymsgbuf; - yymsg_alloc = sizeof yymsgbuf; - } - } - - if (0 < yysize && yysize <= yymsg_alloc) - { - (void) yysyntax_error (yymsg, yystate, yychar); - yyerror (yymsg); - } - else - { - yyerror (YY_("syntax error")); - if (yysize != 0) - goto yyexhaustedlab; - } - } -#endif } - - if (yyerrstatus == 3) { /* If just tried and failed to reuse lookahead token after an - error, discard it. */ + error, discard it. */ if (yychar <= YYEOF) - { - /* Return failure if at end of input. */ - if (yychar == YYEOF) - YYABORT; - } + { + /* Return failure if at end of input. */ + if (yychar == YYEOF) + YYABORT; + } else - { - yydestruct ("Error: discarding", - yytoken, &yylval); - yychar = YYEMPTY; - } + { + yydestruct ("Error: discarding", + yytoken, &yylval); + yychar = YYEMPTY; + } } /* Else will try to reuse lookahead token after shifting the error @@ -12359,14 +11216,13 @@ yyerrlab: | 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; - /* Pacify compilers like GCC when the user code never invokes - YYERROR and the label yyerrorlab therefore never appears in user - code. */ - if (/*CONSTCOND*/ 0) - goto yyerrorlab; - - /* Do not reclaim the symbols of the rule which action triggered + /* Do not reclaim the symbols of the rule whose action triggered this YYERROR. */ YYPOPSTACK (yylen); yylen = 0; @@ -12379,39 +11235,42 @@ yyerrorlab: | yyerrlab1 -- common code for both syntax error and YYERROR. | `-------------------------------------------------------------*/ yyerrlab1: - yyerrstatus = 3; /* Each real token shifted decrements this. */ + 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 (yyn != YYPACT_NINF) - { - yyn += YYTERROR; - if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR) - { - yyn = yytable[yyn]; - if (0 < yyn) - break; - } - } + 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; + YYABORT; yydestruct ("Error: popping", - yystos[yystate], yyvsp); + 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", yystos[yyn], yyvsp, yylsp); + YY_SYMBOL_PRINT ("Shifting", YY_ACCESSING_SYMBOL (yyn), yyvsp, yylsp); yystate = yyn; goto yynewstate; @@ -12422,54 +11281,56 @@ yyerrlab1: `-------------------------------------*/ yyacceptlab: yyresult = 0; - goto yyreturn; + goto yyreturnlab; + /*-----------------------------------. | yyabortlab -- YYABORT comes here. | `-----------------------------------*/ yyabortlab: yyresult = 1; - goto yyreturn; + goto yyreturnlab; -#if !defined(yyoverflow) || YYERROR_VERBOSE -/*-------------------------------------------------. -| yyexhaustedlab -- memory exhaustion comes here. | -`-------------------------------------------------*/ + +/*-----------------------------------------------------------. +| yyexhaustedlab -- YYNOMEM (memory exhaustion) comes here. | +`-----------------------------------------------------------*/ yyexhaustedlab: yyerror (YY_("memory exhausted")); yyresult = 2; - /* Fall through. */ -#endif + goto yyreturnlab; -yyreturn: + +/*----------------------------------------------------------. +| yyreturnlab -- parsing is finished, clean up and return. | +`----------------------------------------------------------*/ +yyreturnlab: if (yychar != YYEMPTY) - yydestruct ("Cleanup: discarding lookahead", - yytoken, &yylval); - /* Do not reclaim the symbols of the rule which action triggered + { + /* 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", - yystos[*yyssp], yyvsp); + YY_ACCESSING_SYMBOL (+*yyssp), yyvsp); YYPOPSTACK (1); } #ifndef yyoverflow if (yyss != yyssa) YYSTACK_FREE (yyss); #endif -#if YYERROR_VERBOSE - if (yymsg != yymsgbuf) - YYSTACK_FREE (yymsg); -#endif - /* Make sure YYID is used. */ - return YYID (yyresult); + + return yyresult; } - - -/* Line 1684 of yacc.c */ #line 4379 "htcobol.y" @@ -12580,4 +11441,3 @@ assert_numeric_dest_sy (struct sym *sy) if (!is_numeric_dest_sy(sy)) yyerror("invalid destination variable \'%s\' used in arithmetic verb", sy->name); } - diff --git a/compiler/htcobol.tab.h b/compiler/htcobol.tab.h index fa792ff..a0d3788 100644 --- a/compiler/htcobol.tab.h +++ b/compiler/htcobol.tab.h @@ -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 . */ + 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 @@ -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 */ diff --git a/compiler/htcobol.tab.o b/compiler/htcobol.tab.o index a2698a0..b842eab 100644 Binary files a/compiler/htcobol.tab.o and b/compiler/htcobol.tab.o differ diff --git a/compiler/htcobolrc b/compiler/htcobolrc index b14cf39..a22a040 100644 --- a/compiler/htcobolrc +++ b/compiler/htcobolrc @@ -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 # diff --git a/compiler/htglobals.h b/compiler/htglobals.h index c9c704c..75f502f 100644 --- a/compiler/htglobals.h +++ b/compiler/htglobals.h @@ -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; diff --git a/compiler/htglobals.o b/compiler/htglobals.o index 1680352..3ca9200 100644 Binary files a/compiler/htglobals.o and b/compiler/htglobals.o differ diff --git a/compiler/htversion.h b/compiler/htversion.h index 0c07a78..9d57ef5 100644 --- a/compiler/htversion.h +++ b/compiler/htversion.h @@ -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 diff --git a/compiler/pp_parser.output b/compiler/pp_parser.output index 2a093cc..50cc467 100644 --- a/compiler/pp_parser.output +++ b/compiler/pp_parser.output @@ -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 (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 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 (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 -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) diff --git a/compiler/pp_parser.tab.c b/compiler/pp_parser.tab.c index d459c78..00c432c 100644 --- a/compiler/pp_parser.tab.c +++ b/compiler/pp_parser.tab.c @@ -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 implementation for Yacc-like parsers in C + + Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2021 Free Software Foundation, + Inc. -/* Skeleton implementation 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 . */ + 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 @@ -27,13 +27,17 @@ 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. @@ -41,11 +45,11 @@ define necessary library symbols; they are noted "INFRINGES ON USER NAME SPACE" below. */ -/* Identify Bison output. */ -#define YYBISON 1 +/* Identify Bison output, and Bison version. */ +#define YYBISON 30802 -/* Bison version. */ -#define YYBISON_VERSION "2.4.2" +/* Bison version string. */ +#define YYBISON_VERSION "3.8.2" /* Skeleton name. */ #define YYSKELETON_NAME "yacc.c" @@ -59,22 +63,17 @@ /* Pull parsers. */ #define YYPULL 1 -/* Using locations. */ -#define YYLSP_NEEDED 0 /* Substitute the variable and function names. */ #define yyparse pp_yyparse #define yylex pp_yylex #define yyerror pp_yyerror -#define yylval pp_yylval -#define yychar pp_yychar #define yydebug pp_yydebug #define yynerrs pp_yynerrs +#define yylval pp_yylval +#define yychar pp_yychar - -/* Copy the first part of user declarations. */ - -/* Line 189 of yacc.c */ +/* First part of user prologue. */ #line 23 "pp_parser.y" @@ -127,114 +126,170 @@ void debug_yy_rtn (const char *s1, const char *s2, const char *s3, int sw); #endif +#line 130 "pp_parser.tab.c" -/* Line 189 of yacc.c */ -#line 133 "pp_parser.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 -/* Enabling traces. */ -#ifndef YYDEBUG -# define YYDEBUG 0 -#endif - -/* Enabling verbose error messages. */ -#ifdef YYERROR_VERBOSE -# undef YYERROR_VERBOSE -# define YYERROR_VERBOSE 1 -#else -# define YYERROR_VERBOSE 0 -#endif - -/* Enabling the token table. */ -#ifndef YYTOKEN_TABLE -# define YYTOKEN_TABLE 0 -#endif - - -/* Tokens. */ -#ifndef YYTOKENTYPE -# define YYTOKENTYPE - /* Put the tokens into the symbol table, so that GDB and other debuggers - know about them. */ - enum yytokentype { - 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 - }; -#endif - - - -#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED -typedef union YYSTYPE +#include "pp_parser.tab.h" +/* Symbol kind. */ +enum yysymbol_kind_t { - -/* Line 214 of yacc.c */ -#line 74 "pp_parser.y" - - char *str; /* string */ - int ival; /* int */ + YYSYMBOL_YYEMPTY = -2, + YYSYMBOL_YYEOF = 0, /* "end of file" */ + YYSYMBOL_YYerror = 1, /* error */ + YYSYMBOL_YYUNDEF = 2, /* "invalid token" */ + YYSYMBOL_TOK_PSEUDO_TEXT = 3, /* TOK_PSEUDO_TEXT */ + YYSYMBOL_TOK_IDENTIFIER = 4, /* TOK_IDENTIFIER */ + YYSYMBOL_TOK_LITERAL = 5, /* TOK_LITERAL */ + YYSYMBOL_TOK_WORD = 6, /* TOK_WORD */ + YYSYMBOL_TOK_COPY = 7, /* TOK_COPY */ + YYSYMBOL_TOK_PERIOD = 8, /* TOK_PERIOD */ + YYSYMBOL_TOK_OFF = 9, /* TOK_OFF */ + YYSYMBOL_TOK_BY = 10, /* TOK_BY */ + YYSYMBOL_TOK_OF = 11, /* TOK_OF */ + YYSYMBOL_TOK_IN = 12, /* TOK_IN */ + YYSYMBOL_TOK_REPLACING = 13, /* TOK_REPLACING */ + YYSYMBOL_TOK_REPLACE = 14, /* TOK_REPLACE */ + YYSYMBOL_TOK_MISC = 15, /* TOK_MISC */ + YYSYMBOL_TOK_COMMA = 16, /* TOK_COMMA */ + YYSYMBOL_TOK_SOURCE_COMPUTER = 17, /* TOK_SOURCE_COMPUTER */ + YYSYMBOL_TOK_WITH = 18, /* TOK_WITH */ + YYSYMBOL_TOK_DEBUGGING = 19, /* TOK_DEBUGGING */ + YYSYMBOL_TOK_MODE = 20, /* TOK_MODE */ + YYSYMBOL_YYACCEPT = 21, /* $accept */ + YYSYMBOL_root = 22, /* root */ + YYSYMBOL_statements = 23, /* statements */ + YYSYMBOL_statement = 24, /* statement */ + YYSYMBOL_25_1 = 25, /* $@1 */ + YYSYMBOL_26_2 = 26, /* $@2 */ + YYSYMBOL_copy_statement = 27, /* copy_statement */ + YYSYMBOL_28_3 = 28, /* $@3 */ + YYSYMBOL_replacing_statement = 29, /* replacing_statement */ + YYSYMBOL_replacing_statements = 30, /* replacing_statements */ + YYSYMBOL_replacing_text = 31, /* replacing_text */ + YYSYMBOL_library_name_opt = 32, /* library_name_opt */ + YYSYMBOL_replace_statement = 33, /* replace_statement */ + YYSYMBOL_replace_statements = 34, /* replace_statements */ + YYSYMBOL_name = 35, /* name */ + YYSYMBOL_pseudo_text = 36, /* pseudo_text */ + YYSYMBOL_identifier = 37, /* identifier */ + YYSYMBOL_literal = 38, /* literal */ + YYSYMBOL_word = 39, /* word */ + YYSYMBOL_of_in = 40, /* of_in */ + YYSYMBOL_comma_delimiter_opt = 41, /* comma_delimiter_opt */ + YYSYMBOL_identifier_debug_mode_opt = 42, /* identifier_debug_mode_opt */ + YYSYMBOL_debugging_mode_opt = 43, /* debugging_mode_opt */ + YYSYMBOL_with_opt = 44 /* with_opt */ +}; +typedef enum yysymbol_kind_t yysymbol_kind_t; -/* Line 214 of yacc.c */ -#line 196 "pp_parser.tab.c" -} YYSTYPE; -# define YYSTYPE_IS_TRIVIAL 1 -# define yystype YYSTYPE /* obsolescent; will be withdrawn */ -# define YYSTYPE_IS_DECLARED 1 -#endif - - -/* Copy the second part of user declarations. */ - - -/* Line 264 of yacc.c */ -#line 208 "pp_parser.tab.c" #ifdef short # undef short #endif -#ifdef YYTYPE_UINT8 -typedef YYTYPE_UINT8 yytype_uint8; -#else -typedef unsigned char yytype_uint8; +/* 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 -#ifdef YYTYPE_INT8 -typedef YYTYPE_INT8 yytype_int8; -#elif (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) +/* 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; -#else -typedef short int yytype_int8; #endif -#ifdef YYTYPE_UINT16 -typedef YYTYPE_UINT16 yytype_uint16; +#ifdef __INT_LEAST16_MAX__ +typedef __INT_LEAST16_TYPE__ yytype_int16; +#elif defined YY_STDINT_H +typedef int_least16_t yytype_int16; #else -typedef unsigned short int yytype_uint16; +typedef short yytype_int16; #endif -#ifdef YYTYPE_INT16 -typedef YYTYPE_INT16 yytype_int16; +/* 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 int yytype_int16; +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 @@ -242,55 +297,106 @@ typedef short int yytype_int16; # define YYSIZE_T __SIZE_TYPE__ # elif defined size_t # define YYSIZE_T size_t -# elif ! defined YYSIZE_T && (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) +# elif defined __STDC_VERSION__ && 199901 <= __STDC_VERSION__ # include /* INFRINGES ON USER NAME SPACE */ # define YYSIZE_T size_t # else -# define YYSIZE_T unsigned int +# define YYSIZE_T unsigned # endif #endif -#define YYSIZE_MAXIMUM ((YYSIZE_T) -1) +#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_int8 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) +# define YY_(Msgid) dgettext ("bison-runtime", Msgid) # endif # endif # ifndef YY_ -# define YY_(msgid) msgid +# 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 YYUSE(e) ((void) (e)) +# define YY_USE(E) ((void) (E)) #else -# define YYUSE(e) /* empty */ +# define YY_USE(E) /* empty */ #endif -/* Identity function, used to suppress warnings about constant conditions. */ -#ifndef lint -# define YYID(n) (n) +/* 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 -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) -static int -YYID (int yyi) -#else -static int -YYID (yyi) - int yyi; +# define YY_INITIAL_VALUE(Value) Value #endif -{ - return yyi; -} +#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 yyoverflow || YYERROR_VERBOSE +#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. */ @@ -307,11 +413,11 @@ YYID (yyi) # define alloca _alloca # else # define YYSTACK_ALLOC alloca -# if ! defined _ALLOCA_H && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) +# if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS # include /* INFRINGES ON USER NAME SPACE */ -# ifndef _STDLIB_H -# define _STDLIB_H 1 + /* Use EXIT_SUCCESS as a witness for stdlib.h. */ +# ifndef EXIT_SUCCESS +# define EXIT_SUCCESS 0 # endif # endif # endif @@ -319,8 +425,8 @@ YYID (yyi) # endif # ifdef YYSTACK_ALLOC - /* Pacify GCC's `empty if-body' warning. */ -# define YYSTACK_FREE(Ptr) do { /* empty */; } while (YYID (0)) + /* 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 @@ -334,88 +440,89 @@ YYID (yyi) # ifndef YYSTACK_ALLOC_MAXIMUM # define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM # endif -# if (defined __cplusplus && ! defined _STDLIB_H \ +# if (defined __cplusplus && ! defined EXIT_SUCCESS \ && ! ((defined YYMALLOC || defined malloc) \ - && (defined YYFREE || defined free))) + && (defined YYFREE || defined free))) # include /* INFRINGES ON USER NAME SPACE */ -# ifndef _STDLIB_H -# define _STDLIB_H 1 +# ifndef EXIT_SUCCESS +# define EXIT_SUCCESS 0 # endif # endif # ifndef YYMALLOC # define YYMALLOC malloc -# if ! defined malloc && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) +# 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 _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) +# if ! defined free && ! defined EXIT_SUCCESS void free (void *); /* INFRINGES ON USER NAME SPACE */ # endif # endif # endif -#endif /* ! defined yyoverflow || YYERROR_VERBOSE */ - +#endif /* !defined yyoverflow */ #if (! defined yyoverflow \ && (! defined __cplusplus \ - || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL))) + || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL))) /* A type that is properly aligned for any stack member. */ union yyalloc { - yytype_int16 yyss_alloc; + 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 (sizeof (union yyalloc) - 1) +# 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) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \ + ((N) * (YYSIZEOF (yy_state_t) + YYSIZEOF (YYSTYPE)) \ + YYSTACK_GAP_MAXIMUM) -/* Copy COUNT objects from FROM to TO. The source and destination do - not overlap. */ -# ifndef YYCOPY -# if defined __GNUC__ && 1 < __GNUC__ -# define YYCOPY(To, From, Count) \ - __builtin_memcpy (To, From, (Count) * sizeof (*(From))) -# else -# define YYCOPY(To, From, Count) \ - do \ - { \ - YYSIZE_T yyi; \ - for (yyi = 0; yyi < (Count); yyi++) \ - (To)[yyi] = (From)[yyi]; \ - } \ - while (YYID (0)) -# endif -# endif +# 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 \ - { \ - YYSIZE_T yynewbytes; \ - YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \ - Stack = &yyptr->Stack_alloc; \ - yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \ - yyptr += yynewbytes / sizeof (*yyptr); \ - } \ - while (YYID (0)) +# 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 17 /* YYLAST -- Last index in YYTABLE. */ @@ -427,18 +534,23 @@ union yyalloc #define YYNNTS 24 /* YYNRULES -- Number of rules. */ #define YYNRULES 45 -/* YYNRULES -- Number of states. */ +/* YYNSTATES -- Number of states. */ #define YYNSTATES 61 -/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */ -#define YYUNDEFTOK 2 +/* YYMAXUTOK -- Last valid token kind. */ #define YYMAXUTOK 275 -#define YYTRANSLATE(YYX) \ - ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK) -/* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX. */ -static const yytype_uint8 yytranslate[] = +/* 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_int8 yytranslate[] = { 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, @@ -471,35 +583,7 @@ static const yytype_uint8 yytranslate[] = }; #if YYDEBUG -/* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in - YYRHS. */ -static const yytype_uint8 yyprhs[] = -{ - 0, 0, 3, 5, 6, 8, 11, 12, 17, 18, - 23, 27, 31, 33, 35, 37, 38, 44, 47, 49, - 52, 57, 59, 61, 63, 65, 68, 69, 71, 74, - 79, 81, 83, 85, 87, 89, 91, 93, 95, 97, - 98, 102, 103, 107, 108, 110 -}; - -/* YYRHS -- A `-1'-separated list of the rules' RHS. */ -static const yytype_int8 yyrhs[] = -{ - 22, 0, -1, 23, -1, -1, 24, -1, 23, 24, - -1, -1, 17, 8, 25, 42, -1, -1, 7, 26, - 27, 8, -1, 14, 33, 8, -1, 14, 9, 8, - -1, 20, -1, 18, -1, 1, -1, -1, 35, 32, - 28, 13, 29, -1, 35, 32, -1, 30, -1, 30, - 29, -1, 31, 10, 31, 41, -1, 36, -1, 37, - -1, 38, -1, 39, -1, 40, 35, -1, -1, 34, - -1, 34, 33, -1, 36, 10, 36, 41, -1, 38, - -1, 37, -1, 3, -1, 4, -1, 5, -1, 6, - -1, 11, -1, 12, -1, 16, -1, -1, 37, 43, - 8, -1, -1, 44, 19, 20, -1, -1, 18, -1, - -1 -}; - -/* YYRLINE[YYN] -- source line where rule number YYN was defined. */ +/* YYRLINE[YYN] -- Source line where rule number YYN was defined. */ static const yytype_uint8 yyrline[] = { 0, 92, 92, 93, 96, 97, 101, 100, 109, 108, @@ -510,80 +594,50 @@ static const yytype_uint8 yyrline[] = }; #endif -#if YYDEBUG || YYERROR_VERBOSE || YYTOKEN_TABLE +/** 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", "error", "$undefined", "TOK_PSEUDO_TEXT", "TOK_IDENTIFIER", - "TOK_LITERAL", "TOK_WORD", "TOK_COPY", "TOK_PERIOD", "TOK_OFF", "TOK_BY", - "TOK_OF", "TOK_IN", "TOK_REPLACING", "TOK_REPLACE", "TOK_MISC", - "TOK_COMMA", "TOK_SOURCE_COMPUTER", "TOK_WITH", "TOK_DEBUGGING", - "TOK_MODE", "$accept", "root", "statements", "statement", "$@1", "$@2", - "copy_statement", "$@3", "replacing_statement", "replacing_statements", - "replacing_text", "library_name_opt", "replace_statement", - "replace_statements", "name", "pseudo_text", "identifier", "literal", - "word", "of_in", "comma_delimiter_opt", "identifier_debug_mode_opt", - "debugging_mode_opt", "with_opt", 0 + "\"end of file\"", "error", "\"invalid token\"", "TOK_PSEUDO_TEXT", + "TOK_IDENTIFIER", "TOK_LITERAL", "TOK_WORD", "TOK_COPY", "TOK_PERIOD", + "TOK_OFF", "TOK_BY", "TOK_OF", "TOK_IN", "TOK_REPLACING", "TOK_REPLACE", + "TOK_MISC", "TOK_COMMA", "TOK_SOURCE_COMPUTER", "TOK_WITH", + "TOK_DEBUGGING", "TOK_MODE", "$accept", "root", "statements", + "statement", "$@1", "$@2", "copy_statement", "$@3", + "replacing_statement", "replacing_statements", "replacing_text", + "library_name_opt", "replace_statement", "replace_statements", "name", + "pseudo_text", "identifier", "literal", "word", "of_in", + "comma_delimiter_opt", "identifier_debug_mode_opt", "debugging_mode_opt", + "with_opt", YY_NULLPTR }; + +static const char * +yysymbol_name (yysymbol_kind_t yysymbol) +{ + return yytname[yysymbol]; +} #endif -# ifdef YYPRINT -/* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to - token YYLEX-NUM. */ -static const yytype_uint16 yytoknum[] = -{ - 0, 256, 257, 258, 259, 260, 261, 262, 263, 264, - 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, - 275 -}; -# endif +#define YYPACT_NINF (-11) -/* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */ -static const yytype_uint8 yyr1[] = -{ - 0, 21, 22, 22, 23, 23, 25, 24, 26, 24, - 24, 24, 24, 24, 24, 28, 27, 27, 29, 29, - 30, 31, 31, 31, 31, 32, 32, 33, 33, 34, - 35, 35, 36, 37, 38, 39, 40, 40, 41, 41, - 42, 42, 43, 43, 44, 44 -}; +#define yypact_value_is_default(Yyn) \ + ((Yyn) == YYPACT_NINF) -/* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */ -static const yytype_uint8 yyr2[] = -{ - 0, 2, 1, 0, 1, 2, 0, 4, 0, 4, - 3, 3, 1, 1, 1, 0, 5, 2, 1, 2, - 4, 1, 1, 1, 1, 2, 0, 1, 2, 4, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, - 3, 0, 3, 0, 1, 0 -}; +#define YYTABLE_NINF (-46) -/* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state - STATE-NUM when YYTABLE doesn't specify something else to do. Zero - means the default is an error. */ -static const yytype_uint8 yydefact[] = -{ - 0, 14, 8, 0, 0, 13, 12, 0, 0, 4, - 0, 32, 0, 0, 27, 0, 6, 1, 5, 33, - 34, 0, 26, 31, 30, 11, 10, 28, 0, 41, - 9, 36, 37, 15, 0, 39, 43, 7, 0, 25, - 38, 29, 44, 0, 0, 0, 40, 0, 35, 16, - 18, 0, 21, 22, 23, 24, 42, 19, 0, 39, - 20 -}; - -/* YYDEFGOTO[NTERM-NUM]. */ -static const yytype_int8 yydefgoto[] = -{ - -1, 7, 8, 9, 29, 10, 21, 38, 49, 50, - 51, 33, 13, 14, 22, 52, 53, 54, 55, 34, - 41, 37, 43, 44 -}; +#define yytable_value_is_error(Yyn) \ + 0 /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing STATE-NUM. */ -#define YYPACT_NINF -11 static const yytype_int8 yypact[] = { 15, -11, -11, -2, 2, -11, -11, 6, 23, -11, @@ -595,6 +649,20 @@ static const yytype_int8 yypact[] = -11 }; +/* 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_int8 yydefact[] = +{ + 0, 14, 8, 0, 0, 13, 12, 0, 0, 4, + 0, 32, 0, 0, 27, 0, 6, 1, 5, 33, + 34, 0, 26, 31, 30, 11, 10, 28, 0, 41, + 9, 36, 37, 15, 0, 39, 43, 7, 0, 25, + 38, 29, 44, 0, 0, 0, 40, 0, 35, 16, + 18, 0, 21, 22, 23, 24, 42, 19, 0, 39, + 20 +}; + /* YYPGOTO[NTERM-NUM]. */ static const yytype_int8 yypgoto[] = { @@ -603,11 +671,17 @@ static const yytype_int8 yypgoto[] = -5, -11, -11, -11 }; -/* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If - positive, shift that token. If negative, reduce the rule which - number is the opposite. If zero, do what YYDEFACT says. - If YYTABLE_NINF, syntax error. */ -#define YYTABLE_NINF -46 +/* YYDEFGOTO[NTERM-NUM]. */ +static const yytype_int8 yydefgoto[] = +{ + 0, 7, 8, 9, 29, 10, 21, 38, 49, 50, + 51, 33, 13, 14, 22, 52, 53, 54, 55, 34, + 41, 37, 43, 44 +}; + +/* 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_int8 yytable[] = { 15, 11, 23, 24, 19, 20, 17, 12, 42, -45, @@ -628,9 +702,9 @@ static const yytype_int8 yycheck[] = 34, -1, 58, 50, 59, 14 }; -/* YYSTOS[STATE-NUM] -- The (internal number of the) accessing - symbol of state STATE-NUM. */ -static const yytype_uint8 yystos[] = +/* YYSTOS[STATE-NUM] -- The symbol kind of the accessing symbol of + state STATE-NUM. */ +static const yytype_int8 yystos[] = { 0, 1, 7, 14, 17, 18, 20, 22, 23, 24, 26, 3, 9, 33, 34, 36, 8, 0, 24, 4, @@ -641,104 +715,61 @@ static const yytype_uint8 yystos[] = 41 }; -#define yyerrok (yyerrstatus = 0) -#define yyclearin (yychar = YYEMPTY) -#define YYEMPTY (-2) -#define YYEOF 0 +/* YYR1[RULE-NUM] -- Symbol kind of the left-hand side of rule RULE-NUM. */ +static const yytype_int8 yyr1[] = +{ + 0, 21, 22, 22, 23, 23, 25, 24, 26, 24, + 24, 24, 24, 24, 24, 28, 27, 27, 29, 29, + 30, 31, 31, 31, 31, 32, 32, 33, 33, 34, + 35, 35, 36, 37, 38, 39, 40, 40, 41, 41, + 42, 42, 43, 43, 44, 44 +}; -#define YYACCEPT goto yyacceptlab -#define YYABORT goto yyabortlab -#define YYERROR goto yyerrorlab +/* YYR2[RULE-NUM] -- Number of symbols on the right-hand side of rule RULE-NUM. */ +static const yytype_int8 yyr2[] = +{ + 0, 2, 1, 0, 1, 2, 0, 4, 0, 4, + 3, 3, 1, 1, 1, 0, 5, 2, 1, 2, + 4, 1, 1, 1, 1, 2, 0, 1, 2, 4, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, + 3, 0, 3, 0, 1, 0 +}; -/* Like YYERROR except do call yyerror. This remains here temporarily - to ease the transition to the new meaning of YYERROR, for GCC. - Once GCC version 2 has supplanted version 1, this can go. However, - YYFAIL appears to be in use. Nevertheless, it is formally deprecated - in Bison 2.4.2's NEWS entry, where a plan to phase it out is - discussed. */ +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 YYFAIL goto yyerrlab -#if defined YYFAIL - /* This is here to suppress warnings from the GCC cpp's - -Wunused-macros. Normally we don't worry about that warning, but - some users do, and we want to make it easy for users to remove - YYFAIL uses, which will produce warnings from Bison 2.5. */ -#endif #define YYRECOVERING() (!!yyerrstatus) -#define YYBACKUP(Token, Value) \ -do \ - if (yychar == YYEMPTY && yylen == 1) \ - { \ - yychar = (Token); \ - yylval = (Value); \ - yytoken = YYTRANSLATE (yychar); \ - YYPOPSTACK (1); \ - goto yybackup; \ - } \ - else \ - { \ - yyerror (YY_("syntax error: cannot back up")); \ - YYERROR; \ - } \ -while (YYID (0)) +#define 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 -#define YYTERROR 1 -#define YYERRCODE 256 - - -/* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N]. - If N is 0, then set CURRENT to the empty location which ends - the previous symbol: RHS[0] (always defined). */ - -#define YYRHSLOC(Rhs, K) ((Rhs)[K]) -#ifndef YYLLOC_DEFAULT -# define YYLLOC_DEFAULT(Current, Rhs, N) \ - do \ - if (YYID (N)) \ - { \ - (Current).first_line = YYRHSLOC (Rhs, 1).first_line; \ - (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \ - (Current).last_line = YYRHSLOC (Rhs, N).last_line; \ - (Current).last_column = YYRHSLOC (Rhs, N).last_column; \ - } \ - else \ - { \ - (Current).first_line = (Current).last_line = \ - YYRHSLOC (Rhs, 0).last_line; \ - (Current).first_column = (Current).last_column = \ - YYRHSLOC (Rhs, 0).last_column; \ - } \ - while (YYID (0)) -#endif - - -/* YY_LOCATION_PRINT -- Print the location on the stream. - This macro was not mandated originally: define only if we know - we won't break user code: when these are the locations we know. */ - -#ifndef YY_LOCATION_PRINT -# if defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL -# define YY_LOCATION_PRINT(File, Loc) \ - fprintf (File, "%d.%d-%d.%d", \ - (Loc).first_line, (Loc).first_column, \ - (Loc).last_line, (Loc).last_column) -# else -# define YY_LOCATION_PRINT(File, Loc) ((void) 0) -# endif -#endif - - -/* YYLEX -- calling `yylex' with the right arguments. */ - -#ifdef YYLEX_PARAM -# define YYLEX yylex (YYLEX_PARAM) -#else -# define YYLEX yylex () -#endif /* Enable debugging if requested. */ #if YYDEBUG @@ -748,80 +779,58 @@ while (YYID (0)) # define YYFPRINTF fprintf # endif -# define YYDPRINTF(Args) \ -do { \ - if (yydebug) \ - YYFPRINTF Args; \ -} while (YYID (0)) - -# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \ -do { \ - if (yydebug) \ - { \ - YYFPRINTF (stderr, "%s ", Title); \ - yy_symbol_print (stderr, \ - Type, Value); \ - YYFPRINTF (stderr, "\n"); \ - } \ -} while (YYID (0)) +# define YYDPRINTF(Args) \ +do { \ + if (yydebug) \ + YYFPRINTF Args; \ +} while (0) -/*--------------------------------. -| Print this symbol on YYOUTPUT. | -`--------------------------------*/ -/*ARGSUSED*/ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) + +# 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 *yyoutput, int yytype, YYSTYPE const * const yyvaluep) -#else -static void -yy_symbol_value_print (yyoutput, yytype, yyvaluep) - FILE *yyoutput; - int yytype; - YYSTYPE const * const yyvaluep; -#endif +yy_symbol_value_print (FILE *yyo, + yysymbol_kind_t yykind, YYSTYPE const * const yyvaluep) { + FILE *yyoutput = yyo; + YY_USE (yyoutput); if (!yyvaluep) return; -# ifdef YYPRINT - if (yytype < YYNTOKENS) - YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep); -# else - YYUSE (yyoutput); -# endif - switch (yytype) - { - default: - break; - } + YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN + YY_USE (yykind); + YY_IGNORE_MAYBE_UNINITIALIZED_END } -/*--------------------------------. -| Print this symbol on YYOUTPUT. | -`--------------------------------*/ +/*---------------------------. +| Print this symbol on YYO. | +`---------------------------*/ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) static void -yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep) -#else -static void -yy_symbol_print (yyoutput, yytype, yyvaluep) - FILE *yyoutput; - int yytype; - YYSTYPE const * const yyvaluep; -#endif +yy_symbol_print (FILE *yyo, + yysymbol_kind_t yykind, YYSTYPE const * const yyvaluep) { - if (yytype < YYNTOKENS) - YYFPRINTF (yyoutput, "token %s (", yytname[yytype]); - else - YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]); + YYFPRINTF (yyo, "%s %s (", + yykind < YYNTOKENS ? "token" : "nterm", yysymbol_name (yykind)); - yy_symbol_value_print (yyoutput, yytype, yyvaluep); - YYFPRINTF (yyoutput, ")"); + yy_symbol_value_print (yyo, yykind, yyvaluep); + YYFPRINTF (yyo, ")"); } /*------------------------------------------------------------------. @@ -829,16 +838,8 @@ yy_symbol_print (yyoutput, yytype, yyvaluep) | TOP (included). | `------------------------------------------------------------------*/ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) static void -yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop) -#else -static void -yy_stack_print (yybottom, yytop) - yytype_int16 *yybottom; - yytype_int16 *yytop; -#endif +yy_stack_print (yy_state_t *yybottom, yy_state_t *yytop) { YYFPRINTF (stderr, "Stack now"); for (; yybottom <= yytop; yybottom++) @@ -849,63 +850,56 @@ yy_stack_print (yybottom, yytop) YYFPRINTF (stderr, "\n"); } -# define YY_STACK_PRINT(Bottom, Top) \ -do { \ - if (yydebug) \ - yy_stack_print ((Bottom), (Top)); \ -} while (YYID (0)) +# 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. | `------------------------------------------------*/ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) static void -yy_reduce_print (YYSTYPE *yyvsp, int yyrule) -#else -static void -yy_reduce_print (yyvsp, yyrule) - YYSTYPE *yyvsp; - int yyrule; -#endif +yy_reduce_print (yy_state_t *yyssp, YYSTYPE *yyvsp, + int yyrule) { + int yylno = yyrline[yyrule]; int yynrhs = yyr2[yyrule]; int yyi; - unsigned long int yylno = yyrline[yyrule]; - YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n", - yyrule - 1, yylno); + 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, yyrhs[yyprhs[yyrule] + yyi], - &(yyvsp[(yyi + 1) - (yynrhs)]) - ); + 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 (yyvsp, Rule); \ -} while (YYID (0)) +# 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) -# define YY_SYMBOL_PRINT(Title, Type, Value, Location) +# 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 +#ifndef YYINITDEPTH # define YYINITDEPTH 200 #endif @@ -920,342 +914,78 @@ int yydebug; # define YYMAXDEPTH 10000 #endif - -#if YYERROR_VERBOSE -# ifndef yystrlen -# if defined __GLIBC__ && defined _STRING_H -# define yystrlen strlen -# else -/* Return the length of YYSTR. */ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) -static YYSIZE_T -yystrlen (const char *yystr) -#else -static YYSIZE_T -yystrlen (yystr) - const char *yystr; -#endif -{ - YYSIZE_T yylen; - for (yylen = 0; yystr[yylen]; yylen++) - continue; - return yylen; -} -# endif -# endif -# ifndef yystpcpy -# if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE -# define yystpcpy stpcpy -# else -/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in - YYDEST. */ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) -static char * -yystpcpy (char *yydest, const char *yysrc) -#else -static char * -yystpcpy (yydest, yysrc) - char *yydest; - const char *yysrc; -#endif -{ - char *yyd = yydest; - const char *yys = yysrc; - while ((*yyd++ = *yys++) != '\0') - continue; - - return yyd - 1; -} -# endif -# endif - -# ifndef yytnamerr -/* Copy to YYRES the contents of YYSTR after stripping away unnecessary - quotes and backslashes, so that it's suitable for yyerror. The - heuristic is that double-quoting is unnecessary unless the string - contains an apostrophe, a comma, or backslash (other than - backslash-backslash). YYSTR is taken from yytname. If YYRES is - null, do not copy; instead, return the length of what the result - would have been. */ -static YYSIZE_T -yytnamerr (char *yyres, const char *yystr) -{ - if (*yystr == '"') - { - YYSIZE_T yyn = 0; - char const *yyp = yystr; - - for (;;) - switch (*++yyp) - { - case '\'': - case ',': - goto do_not_strip_quotes; - - case '\\': - if (*++yyp != '\\') - goto do_not_strip_quotes; - /* Fall through. */ - default: - if (yyres) - yyres[yyn] = *yyp; - yyn++; - break; - - case '"': - if (yyres) - yyres[yyn] = '\0'; - return yyn; - } - do_not_strip_quotes: ; - } - - if (! yyres) - return yystrlen (yystr); - - return yystpcpy (yyres, yystr) - yyres; -} -# endif - -/* Copy into YYRESULT an error message about the unexpected token - YYCHAR while in state YYSTATE. Return the number of bytes copied, - including the terminating null byte. If YYRESULT is null, do not - copy anything; just return the number of bytes that would be - copied. As a special case, return 0 if an ordinary "syntax error" - message will do. Return YYSIZE_MAXIMUM if overflow occurs during - size calculation. */ -static YYSIZE_T -yysyntax_error (char *yyresult, int yystate, int yychar) -{ - int yyn = yypact[yystate]; - - if (! (YYPACT_NINF < yyn && yyn <= YYLAST)) - return 0; - else - { - int yytype = YYTRANSLATE (yychar); - YYSIZE_T yysize0 = yytnamerr (0, yytname[yytype]); - YYSIZE_T yysize = yysize0; - YYSIZE_T yysize1; - int yysize_overflow = 0; - enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 }; - char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM]; - int yyx; - -# if 0 - /* This is so xgettext sees the translatable formats that are - constructed on the fly. */ - YY_("syntax error, unexpected %s"); - YY_("syntax error, unexpected %s, expecting %s"); - YY_("syntax error, unexpected %s, expecting %s or %s"); - YY_("syntax error, unexpected %s, expecting %s or %s or %s"); - YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s"); -# endif - char *yyfmt; - char const *yyf; - static char const yyunexpected[] = "syntax error, unexpected %s"; - static char const yyexpecting[] = ", expecting %s"; - static char const yyor[] = " or %s"; - char yyformat[sizeof yyunexpected - + sizeof yyexpecting - 1 - + ((YYERROR_VERBOSE_ARGS_MAXIMUM - 2) - * (sizeof yyor - 1))]; - char const *yyprefix = yyexpecting; - - /* Start YYX at -YYN if negative to avoid negative indexes in - YYCHECK. */ - int yyxbegin = yyn < 0 ? -yyn : 0; - - /* Stay within bounds of both yycheck and yytname. */ - int yychecklim = YYLAST - yyn + 1; - int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS; - int yycount = 1; - - yyarg[0] = yytname[yytype]; - yyfmt = yystpcpy (yyformat, yyunexpected); - - for (yyx = yyxbegin; yyx < yyxend; ++yyx) - if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR) - { - if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM) - { - yycount = 1; - yysize = yysize0; - yyformat[sizeof yyunexpected - 1] = '\0'; - break; - } - yyarg[yycount++] = yytname[yyx]; - yysize1 = yysize + yytnamerr (0, yytname[yyx]); - yysize_overflow |= (yysize1 < yysize); - yysize = yysize1; - yyfmt = yystpcpy (yyfmt, yyprefix); - yyprefix = yyor; - } - - yyf = YY_(yyformat); - yysize1 = yysize + yystrlen (yyf); - yysize_overflow |= (yysize1 < yysize); - yysize = yysize1; - - if (yysize_overflow) - return YYSIZE_MAXIMUM; - - if (yyresult) - { - /* Avoid sprintf, as that infringes on the user's name space. - Don't have undefined behavior even if the translation - produced a string with the wrong number of "%s"s. */ - char *yyp = yyresult; - int yyi = 0; - while ((*yyp = *yyf) != '\0') - { - if (*yyp == '%' && yyf[1] == 's' && yyi < yycount) - { - yyp += yytnamerr (yyp, yyarg[yyi++]); - yyf += 2; - } - else - { - yyp++; - yyf++; - } - } - } - return yysize; - } -} -#endif /* YYERROR_VERBOSE */ - /*-----------------------------------------------. | Release the memory associated to this symbol. | `-----------------------------------------------*/ -/*ARGSUSED*/ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) static void -yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep) -#else -static void -yydestruct (yymsg, yytype, yyvaluep) - const char *yymsg; - int yytype; - YYSTYPE *yyvaluep; -#endif +yydestruct (const char *yymsg, + yysymbol_kind_t yykind, YYSTYPE *yyvaluep) { - YYUSE (yyvaluep); - + YY_USE (yyvaluep); if (!yymsg) yymsg = "Deleting"; - YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp); + YY_SYMBOL_PRINT (yymsg, yykind, yyvaluep, yylocationp); - switch (yytype) - { - - default: - break; - } + YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN + YY_USE (yykind); + YY_IGNORE_MAYBE_UNINITIALIZED_END } -/* Prevent warnings from -Wmissing-prototypes. */ -#ifdef YYPARSE_PARAM -#if defined __STDC__ || defined __cplusplus -int yyparse (void *YYPARSE_PARAM); -#else -int yyparse (); -#endif -#else /* ! YYPARSE_PARAM */ -#if defined __STDC__ || defined __cplusplus -int yyparse (void); -#else -int yyparse (); -#endif -#endif /* ! YYPARSE_PARAM */ - -/* The lookahead symbol. */ +/* Lookahead token kind. */ int yychar; /* The semantic value of the lookahead symbol. */ YYSTYPE yylval; - /* Number of syntax errors so far. */ int yynerrs; -/*-------------------------. -| yyparse or yypush_parse. | -`-------------------------*/ -#ifdef YYPARSE_PARAM -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) -int -yyparse (void *YYPARSE_PARAM) -#else -int -yyparse (YYPARSE_PARAM) - void *YYPARSE_PARAM; -#endif -#else /* ! YYPARSE_PARAM */ -#if (defined __STDC__ || defined __C99__FUNC__ \ - || defined __cplusplus || defined _MSC_VER) +/*----------. +| yyparse. | +`----------*/ + int yyparse (void) -#else -int -yyparse () - -#endif -#endif { - - - int yystate; + yy_state_fast_t yystate = 0; /* Number of tokens to shift before error messages enabled. */ - int yyerrstatus; + int yyerrstatus = 0; - /* The stacks and their tools: - `yyss': related to states. - `yyvs': related to semantic values. - - Refer to the stacks thru separate pointers, to allow yyoverflow + /* Refer to the stacks through separate pointers, to allow yyoverflow to reallocate them elsewhere. */ - /* The state stack. */ - yytype_int16 yyssa[YYINITDEPTH]; - yytype_int16 *yyss; - yytype_int16 *yyssp; + /* Their size. */ + YYPTRDIFF_T yystacksize = YYINITDEPTH; - /* The semantic value stack. */ + /* 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; - YYSTYPE *yyvsp; - - YYSIZE_T yystacksize; + YYSTYPE *yyvs = yyvsa; + YYSTYPE *yyvsp = yyvs; int yyn; + /* The return value of yyparse. */ int yyresult; - /* Lookahead token as an internal (translated) token number. */ - int yytoken; + /* Lookahead symbol kind. */ + yysymbol_kind_t yytoken = YYSYMBOL_YYEMPTY; /* The variables used to return semantic value and location from the action routines. */ YYSTYPE yyval; -#if YYERROR_VERBOSE - /* Buffer for error messages, and its allocated size. */ - char yymsgbuf[128]; - char *yymsg = yymsgbuf; - YYSIZE_T yymsg_alloc = sizeof yymsgbuf; -#endif + #define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N)) @@ -1263,133 +993,140 @@ yyparse () Keep to zero when no symbol should be popped. */ int yylen = 0; - yytoken = 0; - yyss = yyssa; - yyvs = yyvsa; - yystacksize = YYINITDEPTH; - YYDPRINTF ((stderr, "Starting parse\n")); - yystate = 0; - yyerrstatus = 0; - yynerrs = 0; yychar = YYEMPTY; /* Cause a token to be read. */ - /* Initialize stack pointers. - Waste one element of value and location stack - so that they stay on the same level as the state stack. - The wasted elements are never initialized. */ - yyssp = yyss; - yyvsp = yyvs; - goto yysetstate; + /*------------------------------------------------------------. -| yynewstate -- Push a new state, which is found in yystate. | +| yynewstate -- push a new state, which is found in yystate. | `------------------------------------------------------------*/ - yynewstate: +yynewstate: /* In all cases, when you get here, the value and location stacks have just been pushed. So pushing a state here evens the stacks. */ yyssp++; - yysetstate: - *yyssp = yystate; + +/*--------------------------------------------------------------------. +| 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. */ - YYSIZE_T yysize = yyssp - yyss + 1; + YYPTRDIFF_T yysize = yyssp - yyss + 1; -#ifdef yyoverflow +# 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. */ - YYSTYPE *yyvs1 = yyvs; - yytype_int16 *yyss1 = yyss; + /* 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 * sizeof (*yyssp), - &yyvs1, yysize * sizeof (*yyvsp), - &yystacksize); - - yyss = yyss1; - yyvs = yyvs1; + /* 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 /* no yyoverflow */ -# ifndef YYSTACK_RELOCATE - goto yyexhaustedlab; -# else +# else /* defined YYSTACK_RELOCATE */ /* Extend the stack our own way. */ if (YYMAXDEPTH <= yystacksize) - goto yyexhaustedlab; + YYNOMEM; yystacksize *= 2; if (YYMAXDEPTH < yystacksize) - yystacksize = YYMAXDEPTH; + yystacksize = YYMAXDEPTH; { - yytype_int16 *yyss1 = yyss; - union yyalloc *yyptr = - (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize)); - if (! yyptr) - goto yyexhaustedlab; - YYSTACK_RELOCATE (yyss_alloc, yyss); - YYSTACK_RELOCATE (yyvs_alloc, yyvs); + 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); + if (yyss1 != yyssa) + YYSTACK_FREE (yyss1); } # endif -#endif /* no yyoverflow */ yyssp = yyss + yysize - 1; yyvsp = yyvs + yysize - 1; - YYDPRINTF ((stderr, "Stack size increased to %lu\n", - (unsigned long int) yystacksize)); + 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; + YYABORT; } +#endif /* !defined yyoverflow && !defined YYSTACK_RELOCATE */ - YYDPRINTF ((stderr, "Entering state %d\n", yystate)); if (yystate == YYFINAL) YYACCEPT; goto yybackup; + /*-----------. | yybackup. | `-----------*/ yybackup: - /* Do appropriate processing given the current state. Read a lookahead token if we need one and don't already have one. */ /* First try to decide what to do without reference to lookahead token. */ yyn = yypact[yystate]; - if (yyn == YYPACT_NINF) + if (yypact_value_is_default (yyn)) goto yydefault; /* Not known => get a lookahead token if don't already have one. */ - /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */ + /* YYCHAR is either empty, or end-of-input, or a valid lookahead. */ if (yychar == YYEMPTY) { - YYDPRINTF ((stderr, "Reading a token: ")); - yychar = YYLEX; + YYDPRINTF ((stderr, "Reading a token\n")); + yychar = yylex (); } if (yychar <= YYEOF) { - yychar = yytoken = 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); @@ -1404,8 +1141,8 @@ yybackup: yyn = yytable[yyn]; if (yyn <= 0) { - if (yyn == 0 || yyn == YYTABLE_NINF) - goto yyerrlab; + if (yytable_value_is_error (yyn)) + goto yyerrlab; yyn = -yyn; goto yyreduce; } @@ -1417,13 +1154,13 @@ yybackup: /* 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; - - yystate = yyn; - *++yyvsp = yylval; - goto yynewstate; @@ -1438,14 +1175,14 @@ yydefault: /*-----------------------------. -| yyreduce -- Do a reduction. | +| 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'. + '$$ = $1'. Otherwise, the following line sets YYVAL to garbage. This behavior is undocumented and Bison @@ -1458,334 +1195,282 @@ yyreduce: YY_REDUCE_PRINT (yyn); switch (yyn) { - case 6: - -/* Line 1464 of yacc.c */ + case 6: /* $@1: %empty */ #line 101 "pp_parser.y" - { + { DEBUGYY_RTN_STR1("yytrace: TOK_SOURCE_COMPUTER TOK_PERIOD\n") - ;} + } +#line 1204 "pp_parser.tab.c" break; - case 7: - -/* Line 1464 of yacc.c */ + case 7: /* statement: TOK_SOURCE_COMPUTER TOK_PERIOD $@1 identifier_debug_mode_opt */ #line 105 "pp_parser.y" - { + { identifier_scan_sw--; - ;} + } +#line 1212 "pp_parser.tab.c" break; - case 8: - -/* Line 1464 of yacc.c */ + case 8: /* $@2: %empty */ #line 109 "pp_parser.y" - { + { DEBUGYY_RTN_STR1("yytrace: TOK_COPY\n") - ;} + } +#line 1220 "pp_parser.tab.c" break; - case 9: - -/* Line 1464 of yacc.c */ + case 9: /* statement: TOK_COPY $@2 copy_statement TOK_PERIOD */ #line 113 "pp_parser.y" - { + { copy_state_sw--; copy_start_sw++; identifier_scan_sw--; - ;} + } +#line 1230 "pp_parser.tab.c" break; - case 10: - -/* Line 1464 of yacc.c */ + case 10: /* statement: TOK_REPLACE replace_statement TOK_PERIOD */ #line 119 "pp_parser.y" - { + { replace_state_sw--; replace_start_sw++; identifier_scan_sw--; - ;} + } +#line 1240 "pp_parser.tab.c" break; - case 11: - -/* Line 1464 of yacc.c */ + case 11: /* statement: TOK_REPLACE TOK_OFF TOK_PERIOD */ #line 125 "pp_parser.y" - { + { replace_state_sw--; replace_start_sw--; identifier_scan_sw--; - ;} + } +#line 1250 "pp_parser.tab.c" break; - case 12: - -/* Line 1464 of yacc.c */ + case 12: /* statement: TOK_MODE */ #line 130 "pp_parser.y" - { ;} + { } +#line 1256 "pp_parser.tab.c" break; - case 13: - -/* Line 1464 of yacc.c */ + case 13: /* statement: TOK_WITH */ #line 131 "pp_parser.y" - { ;} + { } +#line 1262 "pp_parser.tab.c" break; - case 14: - -/* Line 1464 of yacc.c */ + case 14: /* statement: error */ #line 133 "pp_parser.y" - { + { // globalEnvPtr->errFlag = 11; errcnt++; return 11; - ;} + } +#line 1272 "pp_parser.tab.c" break; - case 15: - -/* Line 1464 of yacc.c */ + case 15: /* $@3: %empty */ #line 153 "pp_parser.y" { /*include_filename = $1; */ - include_cpybook = (yyvsp[(1) - (2)].str); - include_cpylib = (yyvsp[(2) - (2)].str); + include_cpybook = (yyvsp[-1].str); + include_cpylib = (yyvsp[0].str); DEBUGYY_RTN_STR15("yytrace: copy_statement: name=%s, lib=%s;\n", include_cpybook, include_cpylib) - ;} + } +#line 1283 "pp_parser.tab.c" break; - case 17: - -/* Line 1464 of yacc.c */ + case 17: /* copy_statement: name library_name_opt */ #line 161 "pp_parser.y" { /*include_filename = $1;*/ - include_cpybook = (yyvsp[(1) - (2)].str); - include_cpylib = (yyvsp[(2) - (2)].str); + include_cpybook = (yyvsp[-1].str); + include_cpylib = (yyvsp[0].str); DEBUGYY_RTN_STR15("yytrace: copy_statement: name=%s, lib=%s;\n", include_cpybook, include_cpylib) - ;} + } +#line 1294 "pp_parser.tab.c" break; - case 20: - -/* Line 1464 of yacc.c */ + case 20: /* replacing_statements: replacing_text TOK_BY replacing_text comma_delimiter_opt */ #line 174 "pp_parser.y" - { - add_copy_replacement((yyvsp[(1) - (4)].str),(yyvsp[(3) - (4)].str)); - DEBUGYY_RTN_STR15("yytrace: replacing_statements: \'%s\' BY \'%s\':\n", (yyvsp[(1) - (4)].str), (yyvsp[(3) - (4)].str)) - ;} + { + add_copy_replacement((yyvsp[-3].str),(yyvsp[-1].str)); + DEBUGYY_RTN_STR15("yytrace: replacing_statements: \'%s\' BY \'%s\':\n", (yyvsp[-3].str), (yyvsp[-1].str)) + } +#line 1303 "pp_parser.tab.c" break; - case 21: - -/* Line 1464 of yacc.c */ + case 21: /* replacing_text: pseudo_text */ #line 180 "pp_parser.y" - { (yyval.str)=(yyvsp[(1) - (1)].str); ;} + { (yyval.str)=(yyvsp[0].str); } +#line 1309 "pp_parser.tab.c" break; - case 22: - -/* Line 1464 of yacc.c */ + case 22: /* replacing_text: identifier */ #line 181 "pp_parser.y" - { (yyval.str)=(yyvsp[(1) - (1)].str); ;} + { (yyval.str)=(yyvsp[0].str); } +#line 1315 "pp_parser.tab.c" break; - case 23: - -/* Line 1464 of yacc.c */ + case 23: /* replacing_text: literal */ #line 182 "pp_parser.y" - { (yyval.str)=(yyvsp[(1) - (1)].str); ;} + { (yyval.str)=(yyvsp[0].str); } +#line 1321 "pp_parser.tab.c" break; - case 24: - -/* Line 1464 of yacc.c */ + case 24: /* replacing_text: word */ #line 183 "pp_parser.y" - { (yyval.str)=(yyvsp[(1) - (1)].str); ;} + { (yyval.str)=(yyvsp[0].str); } +#line 1327 "pp_parser.tab.c" break; - case 25: - -/* Line 1464 of yacc.c */ + case 25: /* library_name_opt: of_in name */ #line 186 "pp_parser.y" - { (yyval.str)=(yyvsp[(2) - (2)].str); ;} + { (yyval.str)=(yyvsp[0].str); } +#line 1333 "pp_parser.tab.c" break; - case 26: - -/* Line 1464 of yacc.c */ + case 26: /* library_name_opt: %empty */ #line 187 "pp_parser.y" - { (yyval.str)=NULL; ;} + { (yyval.str)=NULL; } +#line 1339 "pp_parser.tab.c" break; - case 29: - -/* Line 1464 of yacc.c */ + case 29: /* replace_statements: pseudo_text TOK_BY pseudo_text comma_delimiter_opt */ #line 195 "pp_parser.y" - { - add_replace_replacement((yyvsp[(1) - (4)].str),(yyvsp[(3) - (4)].str)); - ;} + { + add_replace_replacement((yyvsp[-3].str),(yyvsp[-1].str)); + } +#line 1347 "pp_parser.tab.c" break; - case 30: - -/* Line 1464 of yacc.c */ + case 30: /* name: literal */ #line 200 "pp_parser.y" - { (yyval.str)=(yyvsp[(1) - (1)].str); ;} + { (yyval.str)=(yyvsp[0].str); } +#line 1353 "pp_parser.tab.c" break; - case 31: - -/* Line 1464 of yacc.c */ + case 31: /* name: identifier */ #line 201 "pp_parser.y" - { (yyval.str)=(yyvsp[(1) - (1)].str); ;} + { (yyval.str)=(yyvsp[0].str); } +#line 1359 "pp_parser.tab.c" break; - case 32: - -/* Line 1464 of yacc.c */ + case 32: /* pseudo_text: TOK_PSEUDO_TEXT */ #line 204 "pp_parser.y" - { (yyval.str)=(yyvsp[(1) - (1)].str); ;} + { (yyval.str)=(yyvsp[0].str); } +#line 1365 "pp_parser.tab.c" break; - case 33: - -/* Line 1464 of yacc.c */ + case 33: /* identifier: TOK_IDENTIFIER */ #line 208 "pp_parser.y" - { - DEBUGYY_RTN_STR3("yytrace: identifier: \'%s\'\n", (yyvsp[(1) - (1)].str)) - (yyval.str)=(yyvsp[(1) - (1)].str); - ;} + { + DEBUGYY_RTN_STR3("yytrace: identifier: \'%s\'\n", (yyvsp[0].str)) + (yyval.str)=(yyvsp[0].str); + } +#line 1374 "pp_parser.tab.c" break; - case 34: - -/* Line 1464 of yacc.c */ + case 34: /* literal: TOK_LITERAL */ #line 214 "pp_parser.y" - { (yyval.str)=(yyvsp[(1) - (1)].str); ;} + { (yyval.str)=(yyvsp[0].str); } +#line 1380 "pp_parser.tab.c" break; - case 35: - -/* Line 1464 of yacc.c */ + case 35: /* word: TOK_WORD */ #line 217 "pp_parser.y" - { (yyval.str)=(yyvsp[(1) - (1)].str); ;} + { (yyval.str)=(yyvsp[0].str); } +#line 1386 "pp_parser.tab.c" break; - case 40: - -/* Line 1464 of yacc.c */ + case 40: /* identifier_debug_mode_opt: identifier debugging_mode_opt TOK_PERIOD */ #line 229 "pp_parser.y" - { + { DEBUGYY_RTN_STR1("yytrace: identifier debugging_mode_opt TOK_PERIOD\n") - ;} + } +#line 1394 "pp_parser.tab.c" break; - case 42: - -/* Line 1464 of yacc.c */ + case 42: /* debugging_mode_opt: with_opt TOK_DEBUGGING TOK_MODE */ #line 237 "pp_parser.y" - { + { // globalEnv.IncDebugLines = 1; HTG_debug_lines_flag = TRUE; DEBUGYY_RTN_STR1("yytrace: with_opt TOK_DEBUGGING TOK_MODE \n") - ;} + } +#line 1404 "pp_parser.tab.c" break; +#line 1408 "pp_parser.tab.c" -/* Line 1464 of yacc.c */ -#line 1700 "pp_parser.tab.c" default: break; } - YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc); + /* 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; - YY_STACK_PRINT (yyss, yyssp); *++yyvsp = yyval; - /* Now `shift' the result of the reduction. Determine what state + /* Now 'shift' the result of the reduction. Determine what state that goes to, based on the state we popped back to and the rule number reduced by. */ - - yyn = yyr1[yyn]; - - yystate = yypgoto[yyn - YYNTOKENS] + *yyssp; - if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp) - yystate = yytable[yystate]; - else - yystate = yydefgoto[yyn - YYNTOKENS]; + { + 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 -- 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; -#if ! YYERROR_VERBOSE yyerror (YY_("syntax error")); -#else - { - YYSIZE_T yysize = yysyntax_error (0, yystate, yychar); - if (yymsg_alloc < yysize && yymsg_alloc < YYSTACK_ALLOC_MAXIMUM) - { - YYSIZE_T yyalloc = 2 * yysize; - if (! (yysize <= yyalloc && yyalloc <= YYSTACK_ALLOC_MAXIMUM)) - yyalloc = YYSTACK_ALLOC_MAXIMUM; - if (yymsg != yymsgbuf) - YYSTACK_FREE (yymsg); - yymsg = (char *) YYSTACK_ALLOC (yyalloc); - if (yymsg) - yymsg_alloc = yyalloc; - else - { - yymsg = yymsgbuf; - yymsg_alloc = sizeof yymsgbuf; - } - } - - if (0 < yysize && yysize <= yymsg_alloc) - { - (void) yysyntax_error (yymsg, yystate, yychar); - yyerror (yymsg); - } - else - { - yyerror (YY_("syntax error")); - if (yysize != 0) - goto yyexhaustedlab; - } - } -#endif } - - if (yyerrstatus == 3) { /* If just tried and failed to reuse lookahead token after an - error, discard it. */ + error, discard it. */ if (yychar <= YYEOF) - { - /* Return failure if at end of input. */ - if (yychar == YYEOF) - YYABORT; - } + { + /* Return failure if at end of input. */ + if (yychar == YYEOF) + YYABORT; + } else - { - yydestruct ("Error: discarding", - yytoken, &yylval); - yychar = YYEMPTY; - } + { + yydestruct ("Error: discarding", + yytoken, &yylval); + yychar = YYEMPTY; + } } /* Else will try to reuse lookahead token after shifting the error @@ -1797,14 +1482,13 @@ yyerrlab: | 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; - /* Pacify compilers like GCC when the user code never invokes - YYERROR and the label yyerrorlab therefore never appears in user - code. */ - if (/*CONSTCOND*/ 0) - goto yyerrorlab; - - /* Do not reclaim the symbols of the rule which action triggered + /* Do not reclaim the symbols of the rule whose action triggered this YYERROR. */ YYPOPSTACK (yylen); yylen = 0; @@ -1817,39 +1501,42 @@ yyerrorlab: | yyerrlab1 -- common code for both syntax error and YYERROR. | `-------------------------------------------------------------*/ yyerrlab1: - yyerrstatus = 3; /* Each real token shifted decrements this. */ + 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 (yyn != YYPACT_NINF) - { - yyn += YYTERROR; - if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR) - { - yyn = yytable[yyn]; - if (0 < yyn) - break; - } - } + 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; + YYABORT; yydestruct ("Error: popping", - yystos[yystate], yyvsp); + 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", yystos[yyn], yyvsp, yylsp); + YY_SYMBOL_PRINT ("Shifting", YY_ACCESSING_SYMBOL (yyn), yyvsp, yylsp); yystate = yyn; goto yynewstate; @@ -1860,54 +1547,56 @@ yyerrlab1: `-------------------------------------*/ yyacceptlab: yyresult = 0; - goto yyreturn; + goto yyreturnlab; + /*-----------------------------------. | yyabortlab -- YYABORT comes here. | `-----------------------------------*/ yyabortlab: yyresult = 1; - goto yyreturn; + goto yyreturnlab; -#if !defined(yyoverflow) || YYERROR_VERBOSE -/*-------------------------------------------------. -| yyexhaustedlab -- memory exhaustion comes here. | -`-------------------------------------------------*/ + +/*-----------------------------------------------------------. +| yyexhaustedlab -- YYNOMEM (memory exhaustion) comes here. | +`-----------------------------------------------------------*/ yyexhaustedlab: yyerror (YY_("memory exhausted")); yyresult = 2; - /* Fall through. */ -#endif + goto yyreturnlab; -yyreturn: + +/*----------------------------------------------------------. +| yyreturnlab -- parsing is finished, clean up and return. | +`----------------------------------------------------------*/ +yyreturnlab: if (yychar != YYEMPTY) - yydestruct ("Cleanup: discarding lookahead", - yytoken, &yylval); - /* Do not reclaim the symbols of the rule which action triggered + { + /* 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", - yystos[*yyssp], yyvsp); + YY_ACCESSING_SYMBOL (+*yyssp), yyvsp); YYPOPSTACK (1); } #ifndef yyoverflow if (yyss != yyssa) YYSTACK_FREE (yyss); #endif -#if YYERROR_VERBOSE - if (yymsg != yymsgbuf) - YYSTACK_FREE (yymsg); -#endif - /* Make sure YYID is used. */ - return YYID (yyresult); + + return yyresult; } - - -/* Line 1684 of yacc.c */ #line 249 "pp_parser.y" @@ -1947,4 +1636,3 @@ void debug_yy_rtn (const char *s1, const char *s2, const char *s3, int sw) } #endif - diff --git a/compiler/pp_parser.tab.h b/compiler/pp_parser.tab.h index 43b22d3..bfb80be 100644 --- a/compiler/pp_parser.tab.h +++ b/compiler/pp_parser.tab.h @@ -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 . */ + 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 @@ -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 */ diff --git a/compiler/pp_parser.tab.o b/compiler/pp_parser.tab.o index 9e9cee9..c67c729 100644 Binary files a/compiler/pp_parser.tab.o and b/compiler/pp_parser.tab.o differ diff --git a/compiler/pp_scanner.c b/compiler/pp_scanner.c index c2d82ce..835487f 100644 --- a/compiler/pp_scanner.c +++ b/compiler/pp_scanner.c @@ -8,11 +8,17 @@ #define yy_create_buffer pp_yy_create_buffer #define yy_delete_buffer pp_yy_delete_buffer -#define yy_flex_debug pp_yy_flex_debug +#define yy_scan_buffer pp_yy_scan_buffer +#define yy_scan_string pp_yy_scan_string +#define yy_scan_bytes pp_yy_scan_bytes #define yy_init_buffer pp_yy_init_buffer #define yy_flush_buffer pp_yy_flush_buffer #define yy_load_buffer_state pp_yy_load_buffer_state #define yy_switch_to_buffer pp_yy_switch_to_buffer +#define yypush_buffer_state pp_yypush_buffer_state +#define yypop_buffer_state pp_yypop_buffer_state +#define yyensure_buffer_stack pp_yyensure_buffer_stack +#define yy_flex_debug pp_yy_flex_debug #define yyin pp_yyin #define yyleng pp_yyleng #define yylex pp_yylex @@ -27,12 +33,246 @@ #define FLEX_SCANNER #define YY_FLEX_MAJOR_VERSION 2 -#define YY_FLEX_MINOR_VERSION 5 -#define YY_FLEX_SUBMINOR_VERSION 35 +#define YY_FLEX_MINOR_VERSION 6 +#define YY_FLEX_SUBMINOR_VERSION 4 #if YY_FLEX_SUBMINOR_VERSION > 0 #define FLEX_BETA #endif +#ifdef yy_create_buffer +#define pp_yy_create_buffer_ALREADY_DEFINED +#else +#define yy_create_buffer pp_yy_create_buffer +#endif + +#ifdef yy_delete_buffer +#define pp_yy_delete_buffer_ALREADY_DEFINED +#else +#define yy_delete_buffer pp_yy_delete_buffer +#endif + +#ifdef yy_scan_buffer +#define pp_yy_scan_buffer_ALREADY_DEFINED +#else +#define yy_scan_buffer pp_yy_scan_buffer +#endif + +#ifdef yy_scan_string +#define pp_yy_scan_string_ALREADY_DEFINED +#else +#define yy_scan_string pp_yy_scan_string +#endif + +#ifdef yy_scan_bytes +#define pp_yy_scan_bytes_ALREADY_DEFINED +#else +#define yy_scan_bytes pp_yy_scan_bytes +#endif + +#ifdef yy_init_buffer +#define pp_yy_init_buffer_ALREADY_DEFINED +#else +#define yy_init_buffer pp_yy_init_buffer +#endif + +#ifdef yy_flush_buffer +#define pp_yy_flush_buffer_ALREADY_DEFINED +#else +#define yy_flush_buffer pp_yy_flush_buffer +#endif + +#ifdef yy_load_buffer_state +#define pp_yy_load_buffer_state_ALREADY_DEFINED +#else +#define yy_load_buffer_state pp_yy_load_buffer_state +#endif + +#ifdef yy_switch_to_buffer +#define pp_yy_switch_to_buffer_ALREADY_DEFINED +#else +#define yy_switch_to_buffer pp_yy_switch_to_buffer +#endif + +#ifdef yypush_buffer_state +#define pp_yypush_buffer_state_ALREADY_DEFINED +#else +#define yypush_buffer_state pp_yypush_buffer_state +#endif + +#ifdef yypop_buffer_state +#define pp_yypop_buffer_state_ALREADY_DEFINED +#else +#define yypop_buffer_state pp_yypop_buffer_state +#endif + +#ifdef yyensure_buffer_stack +#define pp_yyensure_buffer_stack_ALREADY_DEFINED +#else +#define yyensure_buffer_stack pp_yyensure_buffer_stack +#endif + +#ifdef yylex +#define pp_yylex_ALREADY_DEFINED +#else +#define yylex pp_yylex +#endif + +#ifdef yyrestart +#define pp_yyrestart_ALREADY_DEFINED +#else +#define yyrestart pp_yyrestart +#endif + +#ifdef yylex_init +#define pp_yylex_init_ALREADY_DEFINED +#else +#define yylex_init pp_yylex_init +#endif + +#ifdef yylex_init_extra +#define pp_yylex_init_extra_ALREADY_DEFINED +#else +#define yylex_init_extra pp_yylex_init_extra +#endif + +#ifdef yylex_destroy +#define pp_yylex_destroy_ALREADY_DEFINED +#else +#define yylex_destroy pp_yylex_destroy +#endif + +#ifdef yyget_debug +#define pp_yyget_debug_ALREADY_DEFINED +#else +#define yyget_debug pp_yyget_debug +#endif + +#ifdef yyset_debug +#define pp_yyset_debug_ALREADY_DEFINED +#else +#define yyset_debug pp_yyset_debug +#endif + +#ifdef yyget_extra +#define pp_yyget_extra_ALREADY_DEFINED +#else +#define yyget_extra pp_yyget_extra +#endif + +#ifdef yyset_extra +#define pp_yyset_extra_ALREADY_DEFINED +#else +#define yyset_extra pp_yyset_extra +#endif + +#ifdef yyget_in +#define pp_yyget_in_ALREADY_DEFINED +#else +#define yyget_in pp_yyget_in +#endif + +#ifdef yyset_in +#define pp_yyset_in_ALREADY_DEFINED +#else +#define yyset_in pp_yyset_in +#endif + +#ifdef yyget_out +#define pp_yyget_out_ALREADY_DEFINED +#else +#define yyget_out pp_yyget_out +#endif + +#ifdef yyset_out +#define pp_yyset_out_ALREADY_DEFINED +#else +#define yyset_out pp_yyset_out +#endif + +#ifdef yyget_leng +#define pp_yyget_leng_ALREADY_DEFINED +#else +#define yyget_leng pp_yyget_leng +#endif + +#ifdef yyget_text +#define pp_yyget_text_ALREADY_DEFINED +#else +#define yyget_text pp_yyget_text +#endif + +#ifdef yyget_lineno +#define pp_yyget_lineno_ALREADY_DEFINED +#else +#define yyget_lineno pp_yyget_lineno +#endif + +#ifdef yyset_lineno +#define pp_yyset_lineno_ALREADY_DEFINED +#else +#define yyset_lineno pp_yyset_lineno +#endif + +#ifdef yywrap +#define pp_yywrap_ALREADY_DEFINED +#else +#define yywrap pp_yywrap +#endif + +#ifdef yyalloc +#define pp_yyalloc_ALREADY_DEFINED +#else +#define yyalloc pp_yyalloc +#endif + +#ifdef yyrealloc +#define pp_yyrealloc_ALREADY_DEFINED +#else +#define yyrealloc pp_yyrealloc +#endif + +#ifdef yyfree +#define pp_yyfree_ALREADY_DEFINED +#else +#define yyfree pp_yyfree +#endif + +#ifdef yytext +#define pp_yytext_ALREADY_DEFINED +#else +#define yytext pp_yytext +#endif + +#ifdef yyleng +#define pp_yyleng_ALREADY_DEFINED +#else +#define yyleng pp_yyleng +#endif + +#ifdef yyin +#define pp_yyin_ALREADY_DEFINED +#else +#define yyin pp_yyin +#endif + +#ifdef yyout +#define pp_yyout_ALREADY_DEFINED +#else +#define yyout pp_yyout +#endif + +#ifdef yy_flex_debug +#define pp_yy_flex_debug_ALREADY_DEFINED +#else +#define yy_flex_debug pp_yy_flex_debug +#endif + +#ifdef yylineno +#define pp_yylineno_ALREADY_DEFINED +#else +#define yylineno pp_yylineno +#endif + /* First, we deal with platform-specific or compiler-specific issues. */ /* begin standard C headers. */ @@ -103,60 +343,48 @@ typedef unsigned int flex_uint32_t; #define UINT32_MAX (4294967295U) #endif +#ifndef SIZE_MAX +#define SIZE_MAX (~(size_t)0) +#endif + #endif /* ! C99 */ #endif /* ! FLEXINT_H */ -#ifdef __cplusplus +/* begin standard C++ headers. */ -/* The "const" storage-class-modifier is valid. */ -#define YY_USE_CONST - -#else /* ! __cplusplus */ - -/* C99 requires __STDC__ to be defined as 1. */ -#if defined (__STDC__) - -#define YY_USE_CONST - -#endif /* defined (__STDC__) */ -#endif /* ! __cplusplus */ - -#ifdef YY_USE_CONST +/* TODO: this is always defined, so inline it */ #define yyconst const + +#if defined(__GNUC__) && __GNUC__ >= 3 +#define yynoreturn __attribute__((__noreturn__)) #else -#define yyconst +#define yynoreturn #endif /* Returned upon end-of-file. */ #define YY_NULL 0 -/* Promotes a possibly negative, possibly signed char to an unsigned - * integer for use as an array index. If the signed char is negative, - * we want to instead treat it as an 8-bit unsigned char, hence the - * double cast. +/* Promotes a possibly negative, possibly signed char to an + * integer in range [0..255] for use as an array index. */ -#define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c) +#define YY_SC_TO_UI(c) ((YY_CHAR) (c)) /* Enter a start condition. This macro really ought to take a parameter, * but we do it the disgusting crufty way forced on us by the ()-less * definition of BEGIN. */ #define BEGIN (yy_start) = 1 + 2 * - /* Translate the current start state into a value that can be later handed * to BEGIN to return to the state. The YYSTATE alias is for lex * compatibility. */ #define YY_START (((yy_start) - 1) / 2) #define YYSTATE YY_START - /* Action number for EOF rule of a given start state. */ #define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1) - /* Special action meaning "start processing a new file". */ -#define YY_NEW_FILE pp_yyrestart(pp_yyin ) - +#define YY_NEW_FILE yyrestart( yyin ) #define YY_END_OF_BUFFER_CHAR 0 /* Size of default input buffer. */ @@ -181,50 +409,56 @@ typedef unsigned int flex_uint32_t; typedef struct yy_buffer_state *YY_BUFFER_STATE; #endif -extern int pp_yyleng; +#ifndef YY_TYPEDEF_YY_SIZE_T +#define YY_TYPEDEF_YY_SIZE_T +typedef size_t yy_size_t; +#endif -extern FILE *pp_yyin, *pp_yyout; +extern int yyleng; + +extern FILE *yyin, *yyout; #define EOB_ACT_CONTINUE_SCAN 0 #define EOB_ACT_END_OF_FILE 1 #define EOB_ACT_LAST_MATCH 2 - + /* Note: We specifically omit the test for yy_rule_can_match_eol because it requires * access to the local variable yy_act. Since yyless() is a macro, it would break - * existing scanners that call yyless() from OUTSIDE pp_yylex. + * existing scanners that call yyless() from OUTSIDE yylex. * One obvious solution it to make yy_act a global. I tried that, and saw - * a 5% performance hit in a non-pp_yylineno scanner, because yy_act is + * a 5% performance hit in a non-yylineno scanner, because yy_act is * normally declared as a register variable-- so it is not worth it. */ #define YY_LESS_LINENO(n) \ do { \ int yyl;\ - for ( yyl = n; yyl < pp_yyleng; ++yyl )\ - if ( pp_yytext[yyl] == '\n' )\ - --pp_yylineno;\ + for ( yyl = n; yyl < yyleng; ++yyl )\ + if ( yytext[yyl] == '\n' )\ + --yylineno;\ + }while(0) + #define YY_LINENO_REWIND_TO(dst) \ + do {\ + const char *p;\ + for ( p = yy_cp-1; p >= (dst); --p)\ + if ( *p == '\n' )\ + --yylineno;\ }while(0) /* Return all but the first "n" matched characters back to the input stream. */ #define yyless(n) \ do \ { \ - /* Undo effects of setting up pp_yytext. */ \ + /* Undo effects of setting up yytext. */ \ int yyless_macro_arg = (n); \ YY_LESS_LINENO(yyless_macro_arg);\ *yy_cp = (yy_hold_char); \ YY_RESTORE_YY_MORE_OFFSET \ (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \ - YY_DO_BEFORE_ACTION; /* set up pp_yytext again */ \ + YY_DO_BEFORE_ACTION; /* set up yytext again */ \ } \ while ( 0 ) - #define unput(c) yyunput( c, (yytext_ptr) ) -#ifndef YY_TYPEDEF_YY_SIZE_T -#define YY_TYPEDEF_YY_SIZE_T -typedef size_t yy_size_t; -#endif - #ifndef YY_STRUCT_YY_BUFFER_STATE #define YY_STRUCT_YY_BUFFER_STATE struct yy_buffer_state @@ -237,7 +471,7 @@ struct yy_buffer_state /* Size of input buffer in bytes, not including room for EOB * characters. */ - yy_size_t yy_buf_size; + int yy_buf_size; /* Number of characters read into yy_ch_buf, not including EOB * characters. @@ -265,7 +499,7 @@ struct yy_buffer_state int yy_bs_lineno; /**< The line count. */ int yy_bs_column; /**< The column count. */ - + /* Whether to try to fill the input buffer when we reach the * end of it. */ @@ -282,8 +516,8 @@ struct yy_buffer_state * possible backing-up. * * When we actually see the EOF, we change the status to "new" - * (via pp_yyrestart()), so that the user can continue scanning by - * just pointing pp_yyin at a new input file. + * (via yyrestart()), so that the user can continue scanning by + * just pointing yyin at a new input file. */ #define YY_BUFFER_EOF_PENDING 2 @@ -293,7 +527,7 @@ struct yy_buffer_state /* Stack of input buffers. */ static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */ static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */ -static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */ +static YY_BUFFER_STATE * yy_buffer_stack = NULL; /**< Stack as an array. */ /* We provide macros for accessing buffer states in case in the * future we want to put the buffer states in a more general @@ -304,103 +538,98 @@ static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */ #define YY_CURRENT_BUFFER ( (yy_buffer_stack) \ ? (yy_buffer_stack)[(yy_buffer_stack_top)] \ : NULL) - /* Same as previous macro, but useful when we know that the buffer stack is not * NULL or when we need an lvalue. For internal use only. */ #define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)] -/* yy_hold_char holds the character lost when pp_yytext is formed. */ +/* yy_hold_char holds the character lost when yytext is formed. */ static char yy_hold_char; static int yy_n_chars; /* number of characters read into yy_ch_buf */ -int pp_yyleng; +int yyleng; /* Points to current character in buffer. */ -static char *yy_c_buf_p = (char *) 0; +static char *yy_c_buf_p = NULL; static int yy_init = 0; /* whether we need to initialize */ static int yy_start = 0; /* start state number */ -/* Flag which is used to allow pp_yywrap()'s to do buffer switches - * instead of setting up a fresh pp_yyin. A bit of a hack ... +/* Flag which is used to allow yywrap()'s to do buffer switches + * instead of setting up a fresh yyin. A bit of a hack ... */ static int yy_did_buffer_switch_on_eof; -void pp_yyrestart (FILE *input_file ); -void pp_yy_switch_to_buffer (YY_BUFFER_STATE new_buffer ); -YY_BUFFER_STATE pp_yy_create_buffer (FILE *file,int size ); -void pp_yy_delete_buffer (YY_BUFFER_STATE b ); -void pp_yy_flush_buffer (YY_BUFFER_STATE b ); -void pp_yypush_buffer_state (YY_BUFFER_STATE new_buffer ); -void pp_yypop_buffer_state (void ); +void yyrestart ( FILE *input_file ); +void yy_switch_to_buffer ( YY_BUFFER_STATE new_buffer ); +YY_BUFFER_STATE yy_create_buffer ( FILE *file, int size ); +void yy_delete_buffer ( YY_BUFFER_STATE b ); +void yy_flush_buffer ( YY_BUFFER_STATE b ); +void yypush_buffer_state ( YY_BUFFER_STATE new_buffer ); +void yypop_buffer_state ( void ); -static void pp_yyensure_buffer_stack (void ); -static void pp_yy_load_buffer_state (void ); -static void pp_yy_init_buffer (YY_BUFFER_STATE b,FILE *file ); +static void yyensure_buffer_stack ( void ); +static void yy_load_buffer_state ( void ); +static void yy_init_buffer ( YY_BUFFER_STATE b, FILE *file ); +#define YY_FLUSH_BUFFER yy_flush_buffer( YY_CURRENT_BUFFER ) -#define YY_FLUSH_BUFFER pp_yy_flush_buffer(YY_CURRENT_BUFFER ) +YY_BUFFER_STATE yy_scan_buffer ( char *base, yy_size_t size ); +YY_BUFFER_STATE yy_scan_string ( const char *yy_str ); +YY_BUFFER_STATE yy_scan_bytes ( const char *bytes, int len ); -YY_BUFFER_STATE pp_yy_scan_buffer (char *base,yy_size_t size ); -YY_BUFFER_STATE pp_yy_scan_string (yyconst char *yy_str ); -YY_BUFFER_STATE pp_yy_scan_bytes (yyconst char *bytes,int len ); - -void *pp_yyalloc (yy_size_t ); -void *pp_yyrealloc (void *,yy_size_t ); -void pp_yyfree (void * ); - -#define yy_new_buffer pp_yy_create_buffer +void *yyalloc ( yy_size_t ); +void *yyrealloc ( void *, yy_size_t ); +void yyfree ( void * ); +#define yy_new_buffer yy_create_buffer #define yy_set_interactive(is_interactive) \ { \ if ( ! YY_CURRENT_BUFFER ){ \ - pp_yyensure_buffer_stack (); \ + yyensure_buffer_stack (); \ YY_CURRENT_BUFFER_LVALUE = \ - pp_yy_create_buffer(pp_yyin,YY_BUF_SIZE ); \ + yy_create_buffer( yyin, YY_BUF_SIZE ); \ } \ YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \ } - #define yy_set_bol(at_bol) \ { \ if ( ! YY_CURRENT_BUFFER ){\ - pp_yyensure_buffer_stack (); \ + yyensure_buffer_stack (); \ YY_CURRENT_BUFFER_LVALUE = \ - pp_yy_create_buffer(pp_yyin,YY_BUF_SIZE ); \ + yy_create_buffer( yyin, YY_BUF_SIZE ); \ } \ YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \ } - #define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol) /* Begin user sect3 */ +typedef flex_uint8_t YY_CHAR; -typedef unsigned char YY_CHAR; - -FILE *pp_yyin = (FILE *) 0, *pp_yyout = (FILE *) 0; +FILE *yyin = NULL, *yyout = NULL; typedef int yy_state_type; -extern int pp_yylineno; +extern int yylineno; +int yylineno = 1; -int pp_yylineno = 1; +extern char *yytext; +#ifdef yytext_ptr +#undef yytext_ptr +#endif +#define yytext_ptr yytext -extern char *pp_yytext; -#define yytext_ptr pp_yytext - -static yy_state_type yy_get_previous_state (void ); -static yy_state_type yy_try_NUL_trans (yy_state_type current_state ); -static int yy_get_next_buffer (void ); -static void yy_fatal_error (yyconst char msg[] ); +static yy_state_type yy_get_previous_state ( void ); +static yy_state_type yy_try_NUL_trans ( yy_state_type current_state ); +static int yy_get_next_buffer ( void ); +static void yynoreturn yy_fatal_error ( const char* msg ); /* Done after the current pattern has been matched and before the - * corresponding action - sets up pp_yytext. + * corresponding action - sets up yytext. */ #define YY_DO_BEFORE_ACTION \ (yytext_ptr) = yy_bp; \ - pp_yyleng = (size_t) (yy_cp - yy_bp); \ + yyleng = (int) (yy_cp - yy_bp); \ (yy_hold_char) = *yy_cp; \ *yy_cp = '\0'; \ (yy_c_buf_p) = yy_cp; - #define YY_NUM_RULES 75 #define YY_END_OF_BUFFER 76 /* This struct is not used in this scanner, @@ -410,7 +639,7 @@ struct yy_trans_info flex_int32_t yy_verify; flex_int32_t yy_nxt; }; -static yyconst flex_int16_t yy_accept[789] = +static const flex_int16_t yy_accept[789] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, @@ -500,7 +729,7 @@ static yyconst flex_int16_t yy_accept[789] = 0, 0, 0, 0, 0, 0, 0, 0 } ; -static yyconst flex_int32_t yy_ec[256] = +static const YY_CHAR yy_ec[256] = { 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, @@ -532,7 +761,7 @@ static yyconst flex_int32_t yy_ec[256] = 1, 1, 1, 1, 1 } ; -static yyconst flex_int32_t yy_meta[61] = +static const YY_CHAR yy_meta[61] = { 0, 1, 2, 1, 3, 1, 1, 4, 1, 1, 5, 1, 1, 5, 6, 1, 5, 5, 5, 5, 5, @@ -542,7 +771,7 @@ static yyconst flex_int32_t yy_meta[61] = 5, 5, 5, 5, 5, 5, 5, 5, 5, 5 } ; -static yyconst flex_int16_t yy_base[834] = +static const flex_int16_t yy_base[834] = { 0, 0, 0, 0, 58, 70, 82, 78, 90, 1905, 1904, 60, 63, 67, 100, 81, 89, 101, 103, 93, 97, @@ -638,7 +867,7 @@ static yyconst flex_int16_t yy_base[834] = 179, 116, 104 } ; -static yyconst flex_int16_t yy_def[834] = +static const flex_int16_t yy_def[834] = { 0, 789, 789, 788, 3, 790, 790, 3, 3, 791, 791, 792, 792, 792, 792, 793, 793, 793, 793, 794, 794, @@ -734,7 +963,7 @@ static yyconst flex_int16_t yy_def[834] = 788, 788, 788 } ; -static yyconst flex_int16_t yy_nxt[1969] = +static const flex_int16_t yy_nxt[1969] = { 0, 25, 26, 27, 28, 25, 25, 29, 30, 31, 32, 33, 25, 34, 35, 25, 36, 37, 38, 39, 36, @@ -954,7 +1183,7 @@ static yyconst flex_int16_t yy_nxt[1969] = 788, 788, 788, 788, 788, 788, 788, 788 } ; -static yyconst flex_int16_t yy_chk[1969] = +static const flex_int16_t yy_chk[1969] = { 0, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, @@ -1175,7 +1404,7 @@ static yyconst flex_int16_t yy_chk[1969] = } ; /* Table of booleans, true if rule could match eol. */ -static yyconst flex_int32_t yy_rule_can_match_eol[76] = +static const flex_int32_t yy_rule_can_match_eol[76] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, @@ -1185,8 +1414,8 @@ static yyconst flex_int32_t yy_rule_can_match_eol[76] = static yy_state_type yy_last_accepting_state; static char *yy_last_accepting_cpos; -extern int pp_yy_flex_debug; -int pp_yy_flex_debug = 0; +extern int yy_flex_debug; +int yy_flex_debug = 0; /* The intent behind this definition is that it'll catch * any uses of REJECT which flex missed. @@ -1195,7 +1424,7 @@ int pp_yy_flex_debug = 0; #define yymore() yymore_used_but_not_detected #define YY_MORE_ADJ 0 #define YY_RESTORE_YY_MORE_OFFSET -char *pp_yytext; +char *yytext; #line 1 "pp_scanner.l" /* * Copyright (C) 2002, 2001, 2000, 1999 David Essex @@ -1218,7 +1447,7 @@ char *pp_yytext; /*%option noyywrap*/ #line 26 "pp_scanner.l" -/*#undef pp_yywrap*/ +/*#undef yywrap*/ #include #include #include @@ -1272,7 +1501,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; @@ -1315,9 +1544,9 @@ void debug_rtn_sssd (const char *s1, const char *s2, const char *s3, int z, int void debug_rtn2 (const char *s1, const char *s2, int sw1, int sw2, int sw3, int sw); void debug_rtn_dump (const char *s, const char *s1, int fsln, int fsi, int gln); -#define DEBUG_RTN(msg) debug_rtn (msg, columnCount, lineCount, pp_yyleng, pp_yytext); -#define DEBUG_RTN1(msg) debug_rtn (msg, columnCount, lineCount, pp_yyleng, pp_yytext+1); -#define DEBUG_RTN_NL(msg) debug_rtn (msg, columnCount, lineCount, pp_yyleng, ""); +#define DEBUG_RTN(msg) debug_rtn (msg, columnCount, lineCount, yyleng, pp_yytext); +#define DEBUG_RTN1(msg) debug_rtn (msg, columnCount, lineCount, yyleng, pp_yytext+1); +#define DEBUG_RTN_NL(msg) debug_rtn (msg, columnCount, lineCount, yyleng, ""); #define DEBUG_RTN_DUMP(msg, msg1) debug_rtn_dump (msg, msg1, lineno, fsp, lineCount); #define DEBUG_RTN_FSP(msg) \ if (fsp > 0) { \ @@ -1441,8 +1670,9 @@ int lex_fgets(char *buf, int maxsize); result = pp_lex_fgets( buf, max_size ); \ } +#line 1674 "pp_scanner.c" -#line 1446 "pp_scanner.c" +#line 1676 "pp_scanner.c" #define INITIAL 0 #define FREE 1 @@ -1468,36 +1698,36 @@ int lex_fgets(char *buf, int maxsize); #define YY_EXTRA_TYPE void * #endif -static int yy_init_globals (void ); +static int yy_init_globals ( void ); /* Accessor methods to globals. These are made visible to non-reentrant scanners for convenience. */ -int pp_yylex_destroy (void ); +int yylex_destroy ( void ); -int pp_yyget_debug (void ); +int yyget_debug ( void ); -void pp_yyset_debug (int debug_flag ); +void yyset_debug ( int debug_flag ); -YY_EXTRA_TYPE pp_yyget_extra (void ); +YY_EXTRA_TYPE yyget_extra ( void ); -void pp_yyset_extra (YY_EXTRA_TYPE user_defined ); +void yyset_extra ( YY_EXTRA_TYPE user_defined ); -FILE *pp_yyget_in (void ); +FILE *yyget_in ( void ); -void pp_yyset_in (FILE * in_str ); +void yyset_in ( FILE * _in_str ); -FILE *pp_yyget_out (void ); +FILE *yyget_out ( void ); -void pp_yyset_out (FILE * out_str ); +void yyset_out ( FILE * _out_str ); -int pp_yyget_leng (void ); + int yyget_leng ( void ); -char *pp_yyget_text (void ); +char *yyget_text ( void ); -int pp_yyget_lineno (void ); +int yyget_lineno ( void ); -void pp_yyset_lineno (int line_number ); +void yyset_lineno ( int _line_number ); /* Macros after this point can all be overridden by user definitions in * section 1. @@ -1505,28 +1735,31 @@ void pp_yyset_lineno (int line_number ); #ifndef YY_SKIP_YYWRAP #ifdef __cplusplus -extern "C" int pp_yywrap (void ); +extern "C" int yywrap ( void ); #else -extern int pp_yywrap (void ); +extern int yywrap ( void ); #endif #endif - static void yyunput (int c,char *buf_ptr ); +#ifndef YY_NO_UNPUT + static void yyunput ( int c, char *buf_ptr ); + +#endif + #ifndef yytext_ptr -static void yy_flex_strncpy (char *,yyconst char *,int ); +static void yy_flex_strncpy ( char *, const char *, int ); #endif #ifdef YY_NEED_STRLEN -static int yy_flex_strlen (yyconst char * ); +static int yy_flex_strlen ( const char * ); #endif #ifndef YY_NO_INPUT - #ifdef __cplusplus -static int yyinput (void ); +static int yyinput ( void ); #else -static int input (void ); +static int input ( void ); #endif #endif @@ -1546,7 +1779,7 @@ static int input (void ); /* This used to be an fputs(), but since the string might contain NUL's, * we now use fwrite(). */ -#define ECHO do { if (fwrite( pp_yytext, pp_yyleng, 1, pp_yyout )) {} } while (0) +#define ECHO do { if (fwrite( yytext, (size_t) yyleng, 1, yyout )) {} } while (0) #endif /* Gets input and stuffs it into "buf". number of characters read, or YY_NULL, @@ -1557,20 +1790,20 @@ static int input (void ); if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \ { \ int c = '*'; \ - size_t n; \ + int n; \ for ( n = 0; n < max_size && \ - (c = getc( pp_yyin )) != EOF && c != '\n'; ++n ) \ + (c = getc( yyin )) != EOF && c != '\n'; ++n ) \ buf[n] = (char) c; \ if ( c == '\n' ) \ buf[n++] = (char) c; \ - if ( c == EOF && ferror( pp_yyin ) ) \ + if ( c == EOF && ferror( yyin ) ) \ YY_FATAL_ERROR( "input in flex scanner failed" ); \ result = n; \ } \ else \ { \ errno=0; \ - while ( (result = fread(buf, 1, max_size, pp_yyin))==0 && ferror(pp_yyin)) \ + while ( (result = (int) fread(buf, 1, (yy_size_t) max_size, yyin)) == 0 && ferror(yyin)) \ { \ if( errno != EINTR) \ { \ @@ -1578,7 +1811,7 @@ static int input (void ); break; \ } \ errno=0; \ - clearerr(pp_yyin); \ + clearerr(yyin); \ } \ }\ \ @@ -1611,12 +1844,12 @@ static int input (void ); #ifndef YY_DECL #define YY_DECL_IS_OURS 1 -extern int pp_yylex (void); +extern int yylex (void); -#define YY_DECL int pp_yylex (void) +#define YY_DECL int yylex (void) #endif /* !YY_DECL */ -/* Code executed at the beginning of each rule, after pp_yytext and pp_yyleng +/* Code executed at the beginning of each rule, after yytext and yyleng * have been set up. */ #ifndef YY_USER_ACTION @@ -1625,33 +1858,23 @@ extern int pp_yylex (void); /* Code executed at the end of each rule. */ #ifndef YY_BREAK -#define YY_BREAK break; +#define YY_BREAK /*LINTED*/break; #endif #define YY_RULE_SETUP \ - if ( pp_yyleng > 0 ) \ + if ( yyleng > 0 ) \ YY_CURRENT_BUFFER_LVALUE->yy_at_bol = \ - (pp_yytext[pp_yyleng - 1] == '\n'); \ + (yytext[yyleng - 1] == '\n'); \ YY_USER_ACTION /** The main scanner function which does all the work. */ YY_DECL { - register yy_state_type yy_current_state; - register char *yy_cp, *yy_bp; - register int yy_act; + yy_state_type yy_current_state; + char *yy_cp, *yy_bp; + int yy_act; -#line 280 "pp_scanner.l" - - - - struct copy_symbols *tmp=NULL; - - - -#line 1654 "pp_scanner.c" - if ( !(yy_init) ) { (yy_init) = 1; @@ -1663,26 +1886,38 @@ YY_DECL if ( ! (yy_start) ) (yy_start) = 1; /* first start state */ - if ( ! pp_yyin ) - pp_yyin = stdin; + if ( ! yyin ) + yyin = stdin; - if ( ! pp_yyout ) - pp_yyout = stdout; + if ( ! yyout ) + yyout = stdout; if ( ! YY_CURRENT_BUFFER ) { - pp_yyensure_buffer_stack (); + yyensure_buffer_stack (); YY_CURRENT_BUFFER_LVALUE = - pp_yy_create_buffer(pp_yyin,YY_BUF_SIZE ); + yy_create_buffer( yyin, YY_BUF_SIZE ); } - pp_yy_load_buffer_state( ); + yy_load_buffer_state( ); } - while ( 1 ) /* loops until end-of-file is reached */ + { +#line 280 "pp_scanner.l" + + + +#line 284 "pp_scanner.l" + struct copy_symbols *tmp=NULL; + + + +#line 1915 "pp_scanner.c" + + while ( /*CONSTCOND*/1 ) /* loops until end-of-file is reached */ { yy_cp = (yy_c_buf_p); - /* Support of pp_yytext. */ + /* Support of yytext. */ *yy_cp = (yy_hold_char); /* yy_bp points to the position in yy_ch_buf of the start of @@ -1695,7 +1930,7 @@ YY_DECL yy_match: do { - register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)]; + YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)] ; if ( yy_accept[yy_current_state] ) { (yy_last_accepting_state) = yy_current_state; @@ -1705,9 +1940,9 @@ yy_match: { yy_current_state = (int) yy_def[yy_current_state]; if ( yy_current_state >= 789 ) - yy_c = yy_meta[(unsigned int) yy_c]; + yy_c = yy_meta[yy_c]; } - yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c]; + yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c]; ++yy_cp; } while ( yy_current_state != 788 ); @@ -1722,10 +1957,10 @@ yy_find_action: if ( yy_act != YY_END_OF_BUFFER && yy_rule_can_match_eol[yy_act] ) { int yyl; - for ( yyl = 0; yyl < pp_yyleng; ++yyl ) - if ( pp_yytext[yyl] == '\n' ) - - pp_yylineno++; + for ( yyl = 0; yyl < yyleng; ++yyl ) + if ( yytext[yyl] == '\n' ) + + yylineno++; ; } @@ -1741,19 +1976,19 @@ do_action: /* This label is used only to access EOF actions. */ goto yy_find_action; case 1: -#line 290 "pp_scanner.l" -case 2: #line 291 "pp_scanner.l" -case 3: +case 2: #line 292 "pp_scanner.l" +case 3: +#line 293 "pp_scanner.l" case 4: YY_RULE_SETUP -#line 292 "pp_scanner.l" +#line 293 "pp_scanner.l" { DEBUG_RTN ("^* ^/ ^$ *>") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; BEGIN(COMMENT); } YY_BREAK @@ -1761,12 +1996,12 @@ YY_RULE_SETUP case 5: YY_RULE_SETUP -#line 303 "pp_scanner.l" +#line 304 "pp_scanner.l" { DEBUG_RTN ("D ") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; /* if (globalEnvPtr->IncDebugLines == 0) {*/ if(HTG_debug_lines_flag == FALSE) { BEGIN(COMMENT); @@ -1778,12 +2013,12 @@ YY_RULE_SETUP YY_BREAK case 6: YY_RULE_SETUP -#line 316 "pp_scanner.l" +#line 317 "pp_scanner.l" { DEBUG_RTN ("-") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; fprintf(pp_yyout, " "); } YY_BREAK @@ -1791,12 +2026,12 @@ YY_RULE_SETUP case 7: YY_RULE_SETUP -#line 327 "pp_scanner.l" +#line 328 "pp_scanner.l" { DEBUG_RTN ("COPY") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; copy_state_sw++; identifier_scan_sw++; @@ -1807,12 +2042,12 @@ YY_RULE_SETUP YY_BREAK case 8: YY_RULE_SETUP -#line 340 "pp_scanner.l" +#line 341 "pp_scanner.l" { DEBUG_RTN ("OF") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; DEBUG_RTN_LEX35("lextrace: TOK_OF=%d, copy_state_sw=%d;\n", TOK_OF, copy_state_sw) @@ -1826,12 +2061,12 @@ YY_RULE_SETUP YY_BREAK case 9: YY_RULE_SETUP -#line 356 "pp_scanner.l" +#line 357 "pp_scanner.l" { DEBUG_RTN ("OFF") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; DEBUG_RTN_LEX35("lextrace: TOK_OFF=%d, replace_state_sw=%d;\n", TOK_OFF, replace_state_sw) @@ -1845,12 +2080,12 @@ YY_RULE_SETUP YY_BREAK case 10: YY_RULE_SETUP -#line 372 "pp_scanner.l" +#line 373 "pp_scanner.l" { DEBUG_RTN ("IN") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; DEBUG_RTN_LEX35("lextrace: TOK_IN=%d, copy_state_sw=%d;\n", TOK_IN, copy_state_sw) @@ -1864,12 +2099,12 @@ YY_RULE_SETUP YY_BREAK case 11: YY_RULE_SETUP -#line 388 "pp_scanner.l" +#line 389 "pp_scanner.l" { DEBUG_RTN ("BY") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; DEBUG_RTN_LEX385("lextrace: TOK_BY=%d, copy_state_sw=%d, replace_state_sw=%d;\n" , TOK_BY, copy_state_sw, replace_state_sw) @@ -1883,12 +2118,12 @@ YY_RULE_SETUP YY_BREAK case 12: YY_RULE_SETUP -#line 404 "pp_scanner.l" +#line 405 "pp_scanner.l" { DEBUG_RTN ("REPLACE") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; replace_state_sw++; identifier_scan_sw++; @@ -1899,12 +2134,12 @@ YY_RULE_SETUP YY_BREAK case 13: YY_RULE_SETUP -#line 417 "pp_scanner.l" +#line 418 "pp_scanner.l" { DEBUG_RTN ("REPLACING") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; DEBUG_RTN_LEX35("lextrace: TOK_REPLACING=%d, copy_state_sw=%d;\n", TOK_REPLACING, copy_state_sw) @@ -1918,127 +2153,127 @@ YY_RULE_SETUP YY_BREAK case 14: YY_RULE_SETUP -#line 433 "pp_scanner.l" +#line 434 "pp_scanner.l" { DEBUG_RTN ("SOURCE-COMPUTER") identifier_scan_sw++; - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; ECHO; return TOK_SOURCE_COMPUTER; } YY_BREAK case 15: YY_RULE_SETUP -#line 443 "pp_scanner.l" +#line 444 "pp_scanner.l" { DEBUG_RTN ("^{blank}{0,4}AUTHOR{blank}*{Period}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; /* ECHO; */ BEGIN(COMMENT_ENTRY); } YY_BREAK case 16: YY_RULE_SETUP -#line 452 "pp_scanner.l" +#line 453 "pp_scanner.l" { DEBUG_RTN ("^{blank}{0,4}INSTALLATION{blank}*{Period}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; /* ECHO; */ BEGIN(COMMENT_ENTRY); } YY_BREAK case 17: YY_RULE_SETUP -#line 461 "pp_scanner.l" +#line 462 "pp_scanner.l" { DEBUG_RTN ("^{blank}{0,4}DATE-WRITTEN{blank}*{Period}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; /* ECHO; */ BEGIN(COMMENT_ENTRY); } YY_BREAK case 18: YY_RULE_SETUP -#line 470 "pp_scanner.l" +#line 471 "pp_scanner.l" { DEBUG_RTN ("^{blank}{0,4}DATE-COMPILED{blank}*{Period}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; /* ECHO; */ BEGIN(COMMENT_ENTRY); } YY_BREAK case 19: YY_RULE_SETUP -#line 479 "pp_scanner.l" +#line 480 "pp_scanner.l" { DEBUG_RTN ("^{blank}{0,4}SECURITY{blank}*{Period}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; /* ECHO; */ BEGIN(COMMENT_ENTRY); } YY_BREAK case 20: YY_RULE_SETUP -#line 488 "pp_scanner.l" +#line 489 "pp_scanner.l" { DEBUG_RTN ("WITH") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; ECHO; return TOK_WITH; } YY_BREAK case 21: YY_RULE_SETUP -#line 497 "pp_scanner.l" +#line 498 "pp_scanner.l" { DEBUG_RTN ("DEBUGGING") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; ECHO; return TOK_DEBUGGING; } YY_BREAK case 22: YY_RULE_SETUP -#line 506 "pp_scanner.l" +#line 507 "pp_scanner.l" { DEBUG_RTN ("MODE") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; ECHO; return TOK_MODE; } YY_BREAK case 23: YY_RULE_SETUP -#line 515 "pp_scanner.l" +#line 516 "pp_scanner.l" { DEBUG_RTN ("{blank}+") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; ECHO; } YY_BREAK case 24: YY_RULE_SETUP -#line 523 "pp_scanner.l" +#line 524 "pp_scanner.l" { DEBUG_RTN ("{DQuote}") @@ -2056,7 +2291,7 @@ YY_RULE_SETUP YY_BREAK case 25: YY_RULE_SETUP -#line 538 "pp_scanner.l" +#line 539 "pp_scanner.l" { DEBUG_RTN ("{SQuote}") @@ -2074,12 +2309,12 @@ YY_RULE_SETUP YY_BREAK case 26: YY_RULE_SETUP -#line 553 "pp_scanner.l" +#line 554 "pp_scanner.l" { DEBUG_RTN ("{Numeric}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; if (copy_state_sw != 0) { strncpy(toktext, pp_yytext, MAXBUF); pp_yylval.str = savename2(toktext, 0, 0); @@ -2093,12 +2328,12 @@ YY_RULE_SETUP YY_BREAK case 27: YY_RULE_SETUP -#line 569 "pp_scanner.l" +#line 570 "pp_scanner.l" { DEBUG_RTN ("{EqSign2}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; if ((copy_state_sw != 0) || (replace_state_sw != 0)) { DEBUG_RTN_LEX2() @@ -2115,11 +2350,12 @@ YY_RULE_SETUP YY_BREAK case 28: /* rule 28 can match eol */ -*yy_cp = (yy_hold_char); /* undo effects of setting up pp_yytext */ +*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */ +YY_LINENO_REWIND_TO(yy_bp + 1); (yy_c_buf_p) = yy_cp = yy_bp + 1; -YY_DO_BEFORE_ACTION; /* set up pp_yytext again */ +YY_DO_BEFORE_ACTION; /* set up yytext again */ YY_RULE_SETUP -#line 588 "pp_scanner.l" +#line 589 "pp_scanner.l" { DEBUG_RTN ("{Period}") @@ -2139,12 +2375,12 @@ YY_RULE_SETUP YY_BREAK case 29: YY_RULE_SETUP -#line 605 "pp_scanner.l" +#line 606 "pp_scanner.l" { DEBUG_RTN ("({AlphaNum}*{Alpha}+{AlphaNum}*){1,30}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; if (identifier_scan_sw != 0) { @@ -2169,12 +2405,12 @@ YY_RULE_SETUP YY_BREAK case 30: YY_RULE_SETUP -#line 632 "pp_scanner.l" +#line 633 "pp_scanner.l" { DEBUG_RTN ("COMMA") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; DEBUG_RTN_LEX35("lextrace: TOK_IN=%d, copy_state_sw=%d;\n", TOK_COMMA, copy_state_sw) @@ -2188,19 +2424,19 @@ YY_RULE_SETUP YY_BREAK case 31: YY_RULE_SETUP -#line 648 "pp_scanner.l" +#line 649 "pp_scanner.l" { DEBUG_RTN ("*>") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; /* comment line remove */ BEGIN(COMMENT); } YY_BREAK case 32: YY_RULE_SETUP -#line 657 "pp_scanner.l" +#line 658 "pp_scanner.l" { DEBUG_RTN (".") @@ -2217,158 +2453,158 @@ YY_RULE_SETUP case 33: -#line 675 "pp_scanner.l" +#line 676 "pp_scanner.l" case 34: YY_RULE_SETUP -#line 675 "pp_scanner.l" +#line 676 "pp_scanner.l" { DEBUG_RTN ("^* *>") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; BEGIN(COMMENT); } YY_BREAK case 35: YY_RULE_SETUP -#line 683 "pp_scanner.l" +#line 684 "pp_scanner.l" { DEBUG_RTN ("{blank}{0,4}REMARKS{blank}*{Period}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; ECHO; set_scanner_state(FIXED_AB, FREE); } YY_BREAK case 36: YY_RULE_SETUP -#line 692 "pp_scanner.l" +#line 693 "pp_scanner.l" { DEBUG_RTN ("{blank}{0,4}ENVIRONMENT{blank}+DIVISION{blank}*{Period}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; ECHO; set_scanner_state(FIXED_AB, FREE); } YY_BREAK case 37: YY_RULE_SETUP -#line 701 "pp_scanner.l" +#line 702 "pp_scanner.l" { DEBUG_RTN ("") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; ECHO; set_scanner_state(FIXED_AB, FREE); } YY_BREAK case 38: YY_RULE_SETUP -#line 710 "pp_scanner.l" +#line 711 "pp_scanner.l" { DEBUG_RTN ("{blank}{0,4}INPUT-OUTPUT{blank}+SECTION{blank}*{Period}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; ECHO; set_scanner_state(FIXED_AB, FREE); } YY_BREAK case 39: YY_RULE_SETUP -#line 719 "pp_scanner.l" +#line 720 "pp_scanner.l" { DEBUG_RTN ("{blank}{0,4}DATA{blank}+DIVISION{blank}*{Period}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; ECHO; set_scanner_state(FIXED_AB, FREE); } YY_BREAK case 40: YY_RULE_SETUP -#line 728 "pp_scanner.l" +#line 729 "pp_scanner.l" { DEBUG_RTN ("{blank}{0,4}FILE{blank}+SECTION{blank}*{Period}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; ECHO; set_scanner_state(FIXED_AB, FREE); } YY_BREAK case 41: YY_RULE_SETUP -#line 737 "pp_scanner.l" +#line 738 "pp_scanner.l" { DEBUG_RTN ("{blank}{0,4}WORKING-STORAGE{blank}+SECTION{blank}*{Period}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; ECHO; set_scanner_state(FIXED_AB, FREE); } YY_BREAK case 42: YY_RULE_SETUP -#line 746 "pp_scanner.l" +#line 747 "pp_scanner.l" { DEBUG_RTN ("{blank}{0,4}LINKAGE{blank}+SECTION{blank}*{Period}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; ECHO; set_scanner_state(FIXED_AB, FREE); } YY_BREAK case 43: YY_RULE_SETUP -#line 755 "pp_scanner.l" +#line 756 "pp_scanner.l" { DEBUG_RTN ("{blank}{0,4}COMMUNICATION{blank}+SECTION{blank}*{Period}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; ECHO; set_scanner_state(FIXED_AB, FREE); } YY_BREAK case 44: YY_RULE_SETUP -#line 764 "pp_scanner.l" +#line 765 "pp_scanner.l" { DEBUG_RTN ("{blank}{0,4}REPORT{blank}+SECTION{blank}*{Period}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; ECHO; set_scanner_state(FIXED_AB, FREE); } YY_BREAK case 45: YY_RULE_SETUP -#line 773 "pp_scanner.l" +#line 774 "pp_scanner.l" { DEBUG_RTN ("{blank}{0,4}SCREEN{blank}+SECTION{blank}*{Period}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; ECHO; set_scanner_state(FIXED_AB, FREE); } YY_BREAK case 46: YY_RULE_SETUP -#line 782 "pp_scanner.l" +#line 783 "pp_scanner.l" { DEBUG_RTN ("{blank}{0,4}PROCEDURE{blank}+DIVISION{blank}*{Period}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; ECHO; set_scanner_state(FIXED_AB, FREE); } @@ -2376,7 +2612,7 @@ YY_RULE_SETUP case 47: /* rule 47 can match eol */ YY_RULE_SETUP -#line 791 "pp_scanner.l" +#line 792 "pp_scanner.l" { DEBUG_RTN_NL ("{eol}") @@ -2389,7 +2625,7 @@ YY_RULE_SETUP YY_BREAK case 48: YY_RULE_SETUP -#line 801 "pp_scanner.l" +#line 802 "pp_scanner.l" { DEBUG_RTN (".") @@ -2401,7 +2637,7 @@ YY_RULE_SETUP case 49: /* rule 49 can match eol */ YY_RULE_SETUP -#line 809 "pp_scanner.l" +#line 810 "pp_scanner.l" { DEBUG_RTN_NL ("{blank}*{eol}") @@ -2429,7 +2665,7 @@ YY_RULE_SETUP case 50: /* rule 50 can match eol */ YY_RULE_SETUP -#line 833 "pp_scanner.l" +#line 834 "pp_scanner.l" { DEBUG_RTN_NL ("{blank}*{eol}") @@ -2456,7 +2692,7 @@ YY_RULE_SETUP case 51: YY_RULE_SETUP -#line 858 "pp_scanner.l" +#line 859 "pp_scanner.l" { DEBUG_RTN ("D") @@ -2474,19 +2710,19 @@ YY_RULE_SETUP YY_BREAK case 52: YY_RULE_SETUP -#line 873 "pp_scanner.l" +#line 874 "pp_scanner.l" { DEBUG_RTN ("{blank}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; ECHO; BEGIN(FIXED_AB); } YY_BREAK case 53: YY_RULE_SETUP -#line 882 "pp_scanner.l" +#line 883 "pp_scanner.l" { DEBUG_RTN ("{invalid7}") @@ -2501,14 +2737,14 @@ YY_RULE_SETUP columnCount ); - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; BEGIN(COMMENT); } YY_BREAK case 54: /* rule 54 can match eol */ YY_RULE_SETUP -#line 900 "pp_scanner.l" +#line 901 "pp_scanner.l" { DEBUG_RTN_NL ("{eol}") @@ -2536,12 +2772,12 @@ YY_RULE_SETUP case 55: YY_RULE_SETUP -#line 926 "pp_scanner.l" +#line 927 "pp_scanner.l" { DEBUG_RTN ("[^=]+") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; DEBUG_RTN_LEX2() @@ -2549,16 +2785,16 @@ YY_RULE_SETUP } YY_BREAK case 56: -*yy_cp = (yy_hold_char); /* undo effects of setting up pp_yytext */ +*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */ (yy_c_buf_p) = yy_cp = yy_bp + 1; -YY_DO_BEFORE_ACTION; /* set up pp_yytext again */ +YY_DO_BEFORE_ACTION; /* set up yytext again */ YY_RULE_SETUP -#line 937 "pp_scanner.l" +#line 938 "pp_scanner.l" { DEBUG_RTN ("{EqSign}/[^=]+") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; DEBUG_RTN_LEX2() @@ -2567,12 +2803,12 @@ YY_RULE_SETUP YY_BREAK case 57: YY_RULE_SETUP -#line 948 "pp_scanner.l" +#line 949 "pp_scanner.l" { DEBUG_RTN ("{EqSign2}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; DEBUG_RTN_LEX2() @@ -2585,7 +2821,7 @@ YY_RULE_SETUP case 58: /* rule 58 can match eol */ YY_RULE_SETUP -#line 962 "pp_scanner.l" +#line 963 "pp_scanner.l" { DEBUG_RTN1 ("{eol}-{blank}{4,65}{DQuote}") @@ -2595,7 +2831,7 @@ YY_RULE_SETUP /* yylineno_prev = lineNumber; */ lineno++; lineCount++; - columnCount = pp_yyleng - 1; + columnCount = yyleng - 1; lf_add++; /*BEGIN(DQ_LITERAL_FIXED); */ } @@ -2605,7 +2841,7 @@ YY_RULE_SETUP case 59: /* rule 59 can match eol */ YY_RULE_SETUP -#line 980 "pp_scanner.l" +#line 981 "pp_scanner.l" { DEBUG_RTN ("{DQuote}{blank}*{eol}?{blank}*&{blank}*{eol}?{blank}*{DQuote}") @@ -2616,7 +2852,7 @@ YY_RULE_SETUP case 60: /* rule 60 can match eol */ YY_RULE_SETUP -#line 987 "pp_scanner.l" +#line 988 "pp_scanner.l" { DEBUG_RTN1 ("{eol}-{blank}{4,65}{DQuote}") @@ -2626,23 +2862,24 @@ YY_RULE_SETUP /* yylineno_prev = lineNumber; */ lineno++; lineCount++; - columnCount = pp_yyleng - 1; + columnCount = yyleng - 1; lf_add++; /*BEGIN(DQ_LITERAL_FIXED); */ } YY_BREAK case 61: /* rule 61 can match eol */ -*yy_cp = (yy_hold_char); /* undo effects of setting up pp_yytext */ +*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */ +YY_LINENO_REWIND_TO(yy_bp + 1); (yy_c_buf_p) = yy_cp = yy_bp + 1; -YY_DO_BEFORE_ACTION; /* set up pp_yytext again */ +YY_DO_BEFORE_ACTION; /* set up yytext again */ YY_RULE_SETUP -#line 1001 "pp_scanner.l" +#line 1002 "pp_scanner.l" { DEBUG_RTN ("{DQuote}/{NoDQuote}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; DEBUG_RTN_LEX105("lextrace: DQuote :%s: copy_state_sw=%d, quote_sw=%d\n", pp_yytext, copy_state_sw, quote_sw) @@ -2663,12 +2900,12 @@ YY_RULE_SETUP YY_BREAK case 62: YY_RULE_SETUP -#line 1024 "pp_scanner.l" +#line 1025 "pp_scanner.l" { DEBUG_RTN ("{DQuote}{2}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; if (copy_state_sw != 0) { strcat(toktext, pp_yytext); @@ -2681,12 +2918,12 @@ YY_RULE_SETUP YY_BREAK case 63: YY_RULE_SETUP -#line 1039 "pp_scanner.l" +#line 1040 "pp_scanner.l" { DEBUG_RTN ("{DQuote}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; DEBUG_RTN_LEX105("lextrace: SQuote :%s: copy_state_sw=%d, quote_sw=%d\n", pp_yytext, copy_state_sw, quote_sw) @@ -2711,13 +2948,13 @@ YY_RULE_SETUP YY_BREAK case 64: YY_RULE_SETUP -#line 1066 "pp_scanner.l" +#line 1067 "pp_scanner.l" { DEBUG_RTN ("{NoQuoteEol}+") /*columnCount++;*/ - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; if (copy_state_sw != 0) { strcat(toktext, pp_yytext); @@ -2731,7 +2968,7 @@ YY_RULE_SETUP case 65: /* rule 65 can match eol */ YY_RULE_SETUP -#line 1082 "pp_scanner.l" +#line 1083 "pp_scanner.l" { DEBUG_RTN ("{eol}") @@ -2755,7 +2992,7 @@ YY_RULE_SETUP case 66: /* rule 66 can match eol */ YY_RULE_SETUP -#line 1104 "pp_scanner.l" +#line 1105 "pp_scanner.l" { DEBUG_RTN ("{SQuote}{blank}*{eol}?{blank}*&{blank}*{eol}?{blank}*{SQuote}") @@ -2766,7 +3003,7 @@ YY_RULE_SETUP case 67: /* rule 67 can match eol */ YY_RULE_SETUP -#line 1111 "pp_scanner.l" +#line 1112 "pp_scanner.l" { DEBUG_RTN1 ("{eol}-{blank}{4,65}{SQuote}") @@ -2776,23 +3013,24 @@ YY_RULE_SETUP /* yylineno_prev = lineNumber; */ lineno++; lineCount++; - columnCount = pp_yyleng - 1; + columnCount = yyleng - 1; lf_add++; /* BEGIN(SQ_LITERAL_FIXED); */ } YY_BREAK case 68: /* rule 68 can match eol */ -*yy_cp = (yy_hold_char); /* undo effects of setting up pp_yytext */ +*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */ +YY_LINENO_REWIND_TO(yy_bp + 1); (yy_c_buf_p) = yy_cp = yy_bp + 1; -YY_DO_BEFORE_ACTION; /* set up pp_yytext again */ +YY_DO_BEFORE_ACTION; /* set up yytext again */ YY_RULE_SETUP -#line 1125 "pp_scanner.l" +#line 1126 "pp_scanner.l" { DEBUG_RTN ("{SQuote}/{NoSQuote}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; DEBUG_RTN_LEX105("lextrace: SQuote :%s: copy_state_sw=%d, quote_sw=%d\n", pp_yytext, copy_state_sw, quote_sw) @@ -2813,12 +3051,12 @@ YY_RULE_SETUP YY_BREAK case 69: YY_RULE_SETUP -#line 1148 "pp_scanner.l" +#line 1149 "pp_scanner.l" { DEBUG_RTN ("{SQuote}{2}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; if (copy_state_sw != 0) { strcat(toktext, pp_yytext); @@ -2831,12 +3069,12 @@ YY_RULE_SETUP YY_BREAK case 70: YY_RULE_SETUP -#line 1163 "pp_scanner.l" +#line 1164 "pp_scanner.l" { DEBUG_RTN ("{SQuote}") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; DEBUG_RTN_LEX105("lextrace: SQuote :%s: copy_state_sw=%d, quote_sw=%d\n", pp_yytext, copy_state_sw, quote_sw) @@ -2861,12 +3099,12 @@ YY_RULE_SETUP YY_BREAK case 71: YY_RULE_SETUP -#line 1190 "pp_scanner.l" +#line 1191 "pp_scanner.l" { DEBUG_RTN ("{NoSQuoteEol}+") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; if (copy_state_sw != 0) { strcat(toktext, pp_yytext); @@ -2880,7 +3118,7 @@ YY_RULE_SETUP case 72: /* rule 72 can match eol */ YY_RULE_SETUP -#line 1205 "pp_scanner.l" +#line 1206 "pp_scanner.l" { DEBUG_RTN ("{eol}") @@ -2903,18 +3141,18 @@ YY_RULE_SETUP case 73: YY_RULE_SETUP -#line 1227 "pp_scanner.l" +#line 1228 "pp_scanner.l" { DEBUG_RTN (".+") - columnCount = columnCount + pp_yyleng; + columnCount = columnCount + yyleng; } YY_BREAK case 74: /* rule 74 can match eol */ YY_RULE_SETUP -#line 1234 "pp_scanner.l" +#line 1235 "pp_scanner.l" { DEBUG_RTN_NL ("COMMENT - {eol} ") @@ -2938,7 +3176,7 @@ case YY_STATE_EOF(SQ_LITERAL_FIXED): case YY_STATE_EOF(SQ_LITERAL_FREE): case YY_STATE_EOF(PSEUDO_TEXT): case YY_STATE_EOF(COMMENT_ENTRY): -#line 1246 "pp_scanner.l" +#line 1247 "pp_scanner.l" { struct copy_symbols *cs=NULL,*cs1=NULL; if (fsp == 0) { @@ -2950,8 +3188,8 @@ case YY_STATE_EOF(COMMENT_ENTRY): else { // tmp = lineno; -// pp_yy_delete_buffer(YY_CURRENT_BUFFER ); -// pp_yy_switch_to_buffer(file_stack[fsp].buffer ); +// yy_delete_buffer( YY_CURRENT_BUFFER ); +// yy_switch_to_buffer( file_stack[fsp].buffer ); // lineno = file_stack[ fsp ].line; /* free all replacements in this dead context */ @@ -2982,9 +3220,9 @@ case YY_STATE_EOF(COMMENT_ENTRY): cs = NULL; } } - pp_yy_delete_buffer(YY_CURRENT_BUFFER ); + yy_delete_buffer( YY_CURRENT_BUFFER ); fsp--; - pp_yy_switch_to_buffer(file_stack[fsp].buffer ); + yy_switch_to_buffer( file_stack[fsp].buffer ); if (pp_filename) { free (pp_filename); pp_filename=NULL;} pp_filename = file_stack[fsp].filename; lineno = file_stack[fsp].lineno; @@ -2996,10 +3234,10 @@ case YY_STATE_EOF(COMMENT_ENTRY): YY_BREAK case 75: YY_RULE_SETUP -#line 1301 "pp_scanner.l" +#line 1302 "pp_scanner.l" ECHO; YY_BREAK -#line 3003 "pp_scanner.c" +#line 3241 "pp_scanner.c" case YY_END_OF_BUFFER: { @@ -3014,15 +3252,15 @@ ECHO; { /* We're scanning a new file or input source. It's * possible that this happened because the user - * just pointed pp_yyin at a new source and called - * pp_yylex(). If so, then we have to assure + * just pointed yyin at a new source and called + * yylex(). If so, then we have to assure * consistency between YY_CURRENT_BUFFER and our * globals. Here is the right place to do so, because * this is the first action (other than possibly a * back-up) that will match for the new input source. */ (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars; - YY_CURRENT_BUFFER_LVALUE->yy_input_file = pp_yyin; + YY_CURRENT_BUFFER_LVALUE->yy_input_file = yyin; YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL; } @@ -3076,11 +3314,11 @@ ECHO; { (yy_did_buffer_switch_on_eof) = 0; - if ( pp_yywrap( ) ) + if ( yywrap( ) ) { /* Note: because we've taken care in * yy_get_next_buffer() to have set up - * pp_yytext, we can now set up + * yytext, we can now set up * yy_c_buf_p so that if some total * hoser (like flex itself) wants to * call the scanner after we return the @@ -3129,7 +3367,8 @@ ECHO; "fatal flex scanner internal error--no action found" ); } /* end of action switch */ } /* end of scanning one token */ -} /* end of pp_yylex */ + } /* end of user's declarations */ +} /* end of yylex */ /* yy_get_next_buffer - try to read in a new buffer * @@ -3140,9 +3379,9 @@ ECHO; */ static int yy_get_next_buffer (void) { - register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf; - register char *source = (yytext_ptr); - register int number_to_move, i; + char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf; + char *source = (yytext_ptr); + int number_to_move, i; int ret_val; if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] ) @@ -3171,7 +3410,7 @@ static int yy_get_next_buffer (void) /* Try to read more data. */ /* First move last chars to start of buffer. */ - number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr)) - 1; + number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr) - 1); for ( i = 0; i < number_to_move; ++i ) *(dest++) = *(source++); @@ -3191,7 +3430,7 @@ static int yy_get_next_buffer (void) { /* Not enough room in the buffer - grow it. */ /* just a shorter name for the current buffer */ - YY_BUFFER_STATE b = YY_CURRENT_BUFFER; + YY_BUFFER_STATE b = YY_CURRENT_BUFFER_LVALUE; int yy_c_buf_p_offset = (int) ((yy_c_buf_p) - b->yy_ch_buf); @@ -3207,11 +3446,12 @@ static int yy_get_next_buffer (void) b->yy_ch_buf = (char *) /* Include room in for 2 EOB chars. */ - pp_yyrealloc((void *) b->yy_ch_buf,b->yy_buf_size + 2 ); + yyrealloc( (void *) b->yy_ch_buf, + (yy_size_t) (b->yy_buf_size + 2) ); } else /* Can't grow it, we don't own it. */ - b->yy_ch_buf = 0; + b->yy_ch_buf = NULL; if ( ! b->yy_ch_buf ) YY_FATAL_ERROR( @@ -3229,7 +3469,7 @@ static int yy_get_next_buffer (void) /* Read in more data. */ YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]), - (yy_n_chars), (size_t) num_to_read ); + (yy_n_chars), num_to_read ); YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars); } @@ -3239,7 +3479,7 @@ static int yy_get_next_buffer (void) if ( number_to_move == YY_MORE_ADJ ) { ret_val = EOB_ACT_END_OF_FILE; - pp_yyrestart(pp_yyin ); + yyrestart( yyin ); } else @@ -3253,12 +3493,15 @@ static int yy_get_next_buffer (void) else ret_val = EOB_ACT_CONTINUE_SCAN; - if ((yy_size_t) ((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) { + if (((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) { /* Extend the array by 50%, plus the number we really need. */ - yy_size_t new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1); - YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) pp_yyrealloc((void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf,new_size ); + int new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1); + YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) yyrealloc( + (void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf, (yy_size_t) new_size ); if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf ) YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" ); + /* "- 2" to take care of EOB's */ + YY_CURRENT_BUFFER_LVALUE->yy_buf_size = (int) (new_size - 2); } (yy_n_chars) += number_to_move; @@ -3274,15 +3517,15 @@ static int yy_get_next_buffer (void) static yy_state_type yy_get_previous_state (void) { - register yy_state_type yy_current_state; - register char *yy_cp; + yy_state_type yy_current_state; + char *yy_cp; yy_current_state = (yy_start); yy_current_state += YY_AT_BOL(); for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp ) { - register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1); + YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1); if ( yy_accept[yy_current_state] ) { (yy_last_accepting_state) = yy_current_state; @@ -3292,9 +3535,9 @@ static int yy_get_next_buffer (void) { yy_current_state = (int) yy_def[yy_current_state]; if ( yy_current_state >= 789 ) - yy_c = yy_meta[(unsigned int) yy_c]; + yy_c = yy_meta[yy_c]; } - yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c]; + yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c]; } return yy_current_state; @@ -3307,10 +3550,10 @@ static int yy_get_next_buffer (void) */ static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state ) { - register int yy_is_jam; - register char *yy_cp = (yy_c_buf_p); + int yy_is_jam; + char *yy_cp = (yy_c_buf_p); - register YY_CHAR yy_c = 1; + YY_CHAR yy_c = 1; if ( yy_accept[yy_current_state] ) { (yy_last_accepting_state) = yy_current_state; @@ -3320,30 +3563,32 @@ static int yy_get_next_buffer (void) { yy_current_state = (int) yy_def[yy_current_state]; if ( yy_current_state >= 789 ) - yy_c = yy_meta[(unsigned int) yy_c]; + yy_c = yy_meta[yy_c]; } - yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c]; + yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c]; yy_is_jam = (yy_current_state == 788); - return yy_is_jam ? 0 : yy_current_state; + return yy_is_jam ? 0 : yy_current_state; } - static void yyunput (int c, register char * yy_bp ) +#ifndef YY_NO_UNPUT + + static void yyunput (int c, char * yy_bp ) { - register char *yy_cp; + char *yy_cp; yy_cp = (yy_c_buf_p); - /* undo effects of setting up pp_yytext */ + /* undo effects of setting up yytext */ *yy_cp = (yy_hold_char); if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 ) { /* need to shift things up to make room */ /* +2 for EOB chars. */ - register int number_to_move = (yy_n_chars) + 2; - register char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[ + int number_to_move = (yy_n_chars) + 2; + char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[ YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2]; - register char *source = + char *source = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]; while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf ) @@ -3352,7 +3597,7 @@ static int yy_get_next_buffer (void) yy_cp += (int) (dest - source); yy_bp += (int) (dest - source); YY_CURRENT_BUFFER_LVALUE->yy_n_chars = - (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_buf_size; + (yy_n_chars) = (int) YY_CURRENT_BUFFER_LVALUE->yy_buf_size; if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 ) YY_FATAL_ERROR( "flex scanner push-back overflow" ); @@ -3361,7 +3606,7 @@ static int yy_get_next_buffer (void) *--yy_cp = (char) c; if ( c == '\n' ){ - --pp_yylineno; + --yylineno; } (yytext_ptr) = yy_bp; @@ -3369,6 +3614,8 @@ static int yy_get_next_buffer (void) (yy_c_buf_p) = yy_cp; } +#endif + #ifndef YY_NO_INPUT #ifdef __cplusplus static int yyinput (void) @@ -3393,7 +3640,7 @@ static int yy_get_next_buffer (void) else { /* need more input */ - int offset = (yy_c_buf_p) - (yytext_ptr); + int offset = (int) ((yy_c_buf_p) - (yytext_ptr)); ++(yy_c_buf_p); switch ( yy_get_next_buffer( ) ) @@ -3410,14 +3657,14 @@ static int yy_get_next_buffer (void) */ /* Reset buffer status. */ - pp_yyrestart(pp_yyin ); + yyrestart( yyin ); /*FALLTHROUGH*/ case EOB_ACT_END_OF_FILE: { - if ( pp_yywrap( ) ) - return EOF; + if ( yywrap( ) ) + return 0; if ( ! (yy_did_buffer_switch_on_eof) ) YY_NEW_FILE; @@ -3436,13 +3683,13 @@ static int yy_get_next_buffer (void) } c = *(unsigned char *) (yy_c_buf_p); /* cast for 8-bit char's */ - *(yy_c_buf_p) = '\0'; /* preserve pp_yytext */ + *(yy_c_buf_p) = '\0'; /* preserve yytext */ (yy_hold_char) = *++(yy_c_buf_p); YY_CURRENT_BUFFER_LVALUE->yy_at_bol = (c == '\n'); if ( YY_CURRENT_BUFFER_LVALUE->yy_at_bol ) - - pp_yylineno++; + + yylineno++; ; return c; @@ -3454,32 +3701,32 @@ static int yy_get_next_buffer (void) * * @note This function does not reset the start condition to @c INITIAL . */ - void pp_yyrestart (FILE * input_file ) + void yyrestart (FILE * input_file ) { if ( ! YY_CURRENT_BUFFER ){ - pp_yyensure_buffer_stack (); + yyensure_buffer_stack (); YY_CURRENT_BUFFER_LVALUE = - pp_yy_create_buffer(pp_yyin,YY_BUF_SIZE ); + yy_create_buffer( yyin, YY_BUF_SIZE ); } - pp_yy_init_buffer(YY_CURRENT_BUFFER,input_file ); - pp_yy_load_buffer_state( ); + yy_init_buffer( YY_CURRENT_BUFFER, input_file ); + yy_load_buffer_state( ); } /** Switch to a different input buffer. * @param new_buffer The new input buffer. * */ - void pp_yy_switch_to_buffer (YY_BUFFER_STATE new_buffer ) + void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer ) { /* TODO. We should be able to replace this entire function body * with - * pp_yypop_buffer_state(); - * pp_yypush_buffer_state(new_buffer); + * yypop_buffer_state(); + * yypush_buffer_state(new_buffer); */ - pp_yyensure_buffer_stack (); + yyensure_buffer_stack (); if ( YY_CURRENT_BUFFER == new_buffer ) return; @@ -3492,21 +3739,21 @@ static int yy_get_next_buffer (void) } YY_CURRENT_BUFFER_LVALUE = new_buffer; - pp_yy_load_buffer_state( ); + yy_load_buffer_state( ); /* We don't actually know whether we did this switch during - * EOF (pp_yywrap()) processing, but the only time this flag - * is looked at is after pp_yywrap() is called, so it's safe + * EOF (yywrap()) processing, but the only time this flag + * is looked at is after yywrap() is called, so it's safe * to go ahead and always set it. */ (yy_did_buffer_switch_on_eof) = 1; } -static void pp_yy_load_buffer_state (void) +static void yy_load_buffer_state (void) { (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars; (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos; - pp_yyin = YY_CURRENT_BUFFER_LVALUE->yy_input_file; + yyin = YY_CURRENT_BUFFER_LVALUE->yy_input_file; (yy_hold_char) = *(yy_c_buf_p); } @@ -3516,35 +3763,35 @@ static void pp_yy_load_buffer_state (void) * * @return the allocated buffer state. */ - YY_BUFFER_STATE pp_yy_create_buffer (FILE * file, int size ) + YY_BUFFER_STATE yy_create_buffer (FILE * file, int size ) { YY_BUFFER_STATE b; - b = (YY_BUFFER_STATE) pp_yyalloc(sizeof( struct yy_buffer_state ) ); + b = (YY_BUFFER_STATE) yyalloc( sizeof( struct yy_buffer_state ) ); if ( ! b ) - YY_FATAL_ERROR( "out of dynamic memory in pp_yy_create_buffer()" ); + YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" ); b->yy_buf_size = size; /* yy_ch_buf has to be 2 characters longer than the size given because * we need to put in 2 end-of-buffer characters. */ - b->yy_ch_buf = (char *) pp_yyalloc(b->yy_buf_size + 2 ); + b->yy_ch_buf = (char *) yyalloc( (yy_size_t) (b->yy_buf_size + 2) ); if ( ! b->yy_ch_buf ) - YY_FATAL_ERROR( "out of dynamic memory in pp_yy_create_buffer()" ); + YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" ); b->yy_is_our_buffer = 1; - pp_yy_init_buffer(b,file ); + yy_init_buffer( b, file ); return b; } /** Destroy the buffer. - * @param b a buffer created with pp_yy_create_buffer() + * @param b a buffer created with yy_create_buffer() * */ - void pp_yy_delete_buffer (YY_BUFFER_STATE b ) + void yy_delete_buffer (YY_BUFFER_STATE b ) { if ( ! b ) @@ -3554,27 +3801,27 @@ static void pp_yy_load_buffer_state (void) YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0; if ( b->yy_is_our_buffer ) - pp_yyfree((void *) b->yy_ch_buf ); + yyfree( (void *) b->yy_ch_buf ); - pp_yyfree((void *) b ); + yyfree( (void *) b ); } /* Initializes or reinitializes a buffer. * This function is sometimes called more than once on the same buffer, - * such as during a pp_yyrestart() or at EOF. + * such as during a yyrestart() or at EOF. */ - static void pp_yy_init_buffer (YY_BUFFER_STATE b, FILE * file ) + static void yy_init_buffer (YY_BUFFER_STATE b, FILE * file ) { int oerrno = errno; - pp_yy_flush_buffer(b ); + yy_flush_buffer( b ); b->yy_input_file = file; b->yy_fill_buffer = 1; - /* If b is the current buffer, then pp_yy_init_buffer was _probably_ - * called from pp_yyrestart() or through yy_get_next_buffer. + /* If b is the current buffer, then yy_init_buffer was _probably_ + * called from yyrestart() or through yy_get_next_buffer. * In that case, we don't want to reset the lineno or column. */ if (b != YY_CURRENT_BUFFER){ @@ -3591,7 +3838,7 @@ static void pp_yy_load_buffer_state (void) * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER. * */ - void pp_yy_flush_buffer (YY_BUFFER_STATE b ) + void yy_flush_buffer (YY_BUFFER_STATE b ) { if ( ! b ) return; @@ -3611,7 +3858,7 @@ static void pp_yy_load_buffer_state (void) b->yy_buffer_status = YY_BUFFER_NEW; if ( b == YY_CURRENT_BUFFER ) - pp_yy_load_buffer_state( ); + yy_load_buffer_state( ); } /** Pushes the new state onto the stack. The new state becomes @@ -3620,14 +3867,14 @@ static void pp_yy_load_buffer_state (void) * @param new_buffer The new state. * */ -void pp_yypush_buffer_state (YY_BUFFER_STATE new_buffer ) +void yypush_buffer_state (YY_BUFFER_STATE new_buffer ) { if (new_buffer == NULL) return; - pp_yyensure_buffer_stack(); + yyensure_buffer_stack(); - /* This block is copied from pp_yy_switch_to_buffer. */ + /* This block is copied from yy_switch_to_buffer. */ if ( YY_CURRENT_BUFFER ) { /* Flush out information for old buffer. */ @@ -3641,8 +3888,8 @@ void pp_yypush_buffer_state (YY_BUFFER_STATE new_buffer ) (yy_buffer_stack_top)++; YY_CURRENT_BUFFER_LVALUE = new_buffer; - /* copied from pp_yy_switch_to_buffer. */ - pp_yy_load_buffer_state( ); + /* copied from yy_switch_to_buffer. */ + yy_load_buffer_state( ); (yy_did_buffer_switch_on_eof) = 1; } @@ -3650,18 +3897,18 @@ void pp_yypush_buffer_state (YY_BUFFER_STATE new_buffer ) * The next element becomes the new top. * */ -void pp_yypop_buffer_state (void) +void yypop_buffer_state (void) { if (!YY_CURRENT_BUFFER) return; - pp_yy_delete_buffer(YY_CURRENT_BUFFER ); + yy_delete_buffer(YY_CURRENT_BUFFER ); YY_CURRENT_BUFFER_LVALUE = NULL; if ((yy_buffer_stack_top) > 0) --(yy_buffer_stack_top); if (YY_CURRENT_BUFFER) { - pp_yy_load_buffer_state( ); + yy_load_buffer_state( ); (yy_did_buffer_switch_on_eof) = 1; } } @@ -3669,9 +3916,9 @@ void pp_yypop_buffer_state (void) /* Allocates the stack if it does not exist. * Guarantees space for at least one push. */ -static void pp_yyensure_buffer_stack (void) +static void yyensure_buffer_stack (void) { - int num_to_alloc; + yy_size_t num_to_alloc; if (!(yy_buffer_stack)) { @@ -3679,15 +3926,15 @@ static void pp_yyensure_buffer_stack (void) * scanner will even need a stack. We use 2 instead of 1 to avoid an * immediate realloc on the next call. */ - num_to_alloc = 1; - (yy_buffer_stack) = (struct yy_buffer_state**)pp_yyalloc + num_to_alloc = 1; /* After all that talk, this was set to 1 anyways... */ + (yy_buffer_stack) = (struct yy_buffer_state**)yyalloc (num_to_alloc * sizeof(struct yy_buffer_state*) ); if ( ! (yy_buffer_stack) ) - YY_FATAL_ERROR( "out of dynamic memory in pp_yyensure_buffer_stack()" ); - + YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" ); + memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*)); - + (yy_buffer_stack_max) = num_to_alloc; (yy_buffer_stack_top) = 0; return; @@ -3696,15 +3943,15 @@ static void pp_yyensure_buffer_stack (void) if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){ /* Increase the buffer to prepare for a possible push. */ - int grow_size = 8 /* arbitrary grow size */; + yy_size_t grow_size = 8 /* arbitrary grow size */; num_to_alloc = (yy_buffer_stack_max) + grow_size; - (yy_buffer_stack) = (struct yy_buffer_state**)pp_yyrealloc + (yy_buffer_stack) = (struct yy_buffer_state**)yyrealloc ((yy_buffer_stack), num_to_alloc * sizeof(struct yy_buffer_state*) ); if ( ! (yy_buffer_stack) ) - YY_FATAL_ERROR( "out of dynamic memory in pp_yyensure_buffer_stack()" ); + YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" ); /* zero only the new slots.*/ memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*)); @@ -3716,9 +3963,9 @@ static void pp_yyensure_buffer_stack (void) * @param base the character buffer * @param size the size in bytes of the character buffer * - * @return the newly allocated buffer state object. + * @return the newly allocated buffer state object. */ -YY_BUFFER_STATE pp_yy_scan_buffer (char * base, yy_size_t size ) +YY_BUFFER_STATE yy_scan_buffer (char * base, yy_size_t size ) { YY_BUFFER_STATE b; @@ -3726,49 +3973,49 @@ YY_BUFFER_STATE pp_yy_scan_buffer (char * base, yy_size_t size ) base[size-2] != YY_END_OF_BUFFER_CHAR || base[size-1] != YY_END_OF_BUFFER_CHAR ) /* They forgot to leave room for the EOB's. */ - return 0; + return NULL; - b = (YY_BUFFER_STATE) pp_yyalloc(sizeof( struct yy_buffer_state ) ); + b = (YY_BUFFER_STATE) yyalloc( sizeof( struct yy_buffer_state ) ); if ( ! b ) - YY_FATAL_ERROR( "out of dynamic memory in pp_yy_scan_buffer()" ); + YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" ); - b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */ + b->yy_buf_size = (int) (size - 2); /* "- 2" to take care of EOB's */ b->yy_buf_pos = b->yy_ch_buf = base; b->yy_is_our_buffer = 0; - b->yy_input_file = 0; + b->yy_input_file = NULL; b->yy_n_chars = b->yy_buf_size; b->yy_is_interactive = 0; b->yy_at_bol = 1; b->yy_fill_buffer = 0; b->yy_buffer_status = YY_BUFFER_NEW; - pp_yy_switch_to_buffer(b ); + yy_switch_to_buffer( b ); return b; } -/** Setup the input buffer state to scan a string. The next call to pp_yylex() will +/** Setup the input buffer state to scan a string. The next call to yylex() will * scan from a @e copy of @a str. * @param yystr a NUL-terminated string to scan * * @return the newly allocated buffer state object. * @note If you want to scan bytes that may contain NUL values, then use - * pp_yy_scan_bytes() instead. + * yy_scan_bytes() instead. */ -YY_BUFFER_STATE pp_yy_scan_string (yyconst char * yystr ) +YY_BUFFER_STATE yy_scan_string (const char * yystr ) { - return pp_yy_scan_bytes(yystr,strlen(yystr) ); + return yy_scan_bytes( yystr, (int) strlen(yystr) ); } -/** Setup the input buffer state to scan the given bytes. The next call to pp_yylex() will +/** Setup the input buffer state to scan the given bytes. The next call to yylex() will * scan from a @e copy of @a bytes. * @param yybytes the byte buffer to scan * @param _yybytes_len the number of bytes in the buffer pointed to by @a bytes. * * @return the newly allocated buffer state object. */ -YY_BUFFER_STATE pp_yy_scan_bytes (yyconst char * yybytes, int _yybytes_len ) +YY_BUFFER_STATE yy_scan_bytes (const char * yybytes, int _yybytes_len ) { YY_BUFFER_STATE b; char *buf; @@ -3776,19 +4023,19 @@ YY_BUFFER_STATE pp_yy_scan_bytes (yyconst char * yybytes, int _yybytes_len ) int i; /* Get memory for full buffer, including space for trailing EOB's. */ - n = _yybytes_len + 2; - buf = (char *) pp_yyalloc(n ); + n = (yy_size_t) (_yybytes_len + 2); + buf = (char *) yyalloc( n ); if ( ! buf ) - YY_FATAL_ERROR( "out of dynamic memory in pp_yy_scan_bytes()" ); + YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" ); for ( i = 0; i < _yybytes_len; ++i ) buf[i] = yybytes[i]; buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR; - b = pp_yy_scan_buffer(buf,n ); + b = yy_scan_buffer( buf, n ); if ( ! b ) - YY_FATAL_ERROR( "bad buffer in pp_yy_scan_bytes()" ); + YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" ); /* It's okay to grow etc. this buffer, and we should throw it * away when we're done. @@ -3802,9 +4049,9 @@ YY_BUFFER_STATE pp_yy_scan_bytes (yyconst char * yybytes, int _yybytes_len ) #define YY_EXIT_FAILURE 2 #endif -static void yy_fatal_error (yyconst char* msg ) +static void yynoreturn yy_fatal_error (const char* msg ) { - (void) fprintf( stderr, "%s\n", msg ); + fprintf( stderr, "%s\n", msg ); exit( YY_EXIT_FAILURE ); } @@ -3814,14 +4061,14 @@ static void yy_fatal_error (yyconst char* msg ) #define yyless(n) \ do \ { \ - /* Undo effects of setting up pp_yytext. */ \ + /* Undo effects of setting up yytext. */ \ int yyless_macro_arg = (n); \ YY_LESS_LINENO(yyless_macro_arg);\ - pp_yytext[pp_yyleng] = (yy_hold_char); \ - (yy_c_buf_p) = pp_yytext + yyless_macro_arg; \ + yytext[yyleng] = (yy_hold_char); \ + (yy_c_buf_p) = yytext + yyless_macro_arg; \ (yy_hold_char) = *(yy_c_buf_p); \ *(yy_c_buf_p) = '\0'; \ - pp_yyleng = yyless_macro_arg; \ + yyleng = yyless_macro_arg; \ } \ while ( 0 ) @@ -3830,129 +4077,129 @@ static void yy_fatal_error (yyconst char* msg ) /** Get the current line number. * */ -int pp_yyget_lineno (void) +int yyget_lineno (void) { - - return pp_yylineno; + + return yylineno; } /** Get the input stream. * */ -FILE *pp_yyget_in (void) +FILE *yyget_in (void) { - return pp_yyin; + return yyin; } /** Get the output stream. * */ -FILE *pp_yyget_out (void) +FILE *yyget_out (void) { - return pp_yyout; + return yyout; } /** Get the length of the current token. * */ -int pp_yyget_leng (void) +int yyget_leng (void) { - return pp_yyleng; + return yyleng; } /** Get the current token. * */ -char *pp_yyget_text (void) +char *yyget_text (void) { - return pp_yytext; + return yytext; } /** Set the current line number. - * @param line_number + * @param _line_number line number * */ -void pp_yyset_lineno (int line_number ) +void yyset_lineno (int _line_number ) { - pp_yylineno = line_number; + yylineno = _line_number; } /** Set the input stream. This does not discard the current * input buffer. - * @param in_str A readable stream. + * @param _in_str A readable stream. * - * @see pp_yy_switch_to_buffer + * @see yy_switch_to_buffer */ -void pp_yyset_in (FILE * in_str ) +void yyset_in (FILE * _in_str ) { - pp_yyin = in_str ; + yyin = _in_str ; } -void pp_yyset_out (FILE * out_str ) +void yyset_out (FILE * _out_str ) { - pp_yyout = out_str ; + yyout = _out_str ; } -int pp_yyget_debug (void) +int yyget_debug (void) { - return pp_yy_flex_debug; + return yy_flex_debug; } -void pp_yyset_debug (int bdebug ) +void yyset_debug (int _bdebug ) { - pp_yy_flex_debug = bdebug ; + yy_flex_debug = _bdebug ; } static int yy_init_globals (void) { /* Initialization is the same as for the non-reentrant scanner. - * This function is called from pp_yylex_destroy(), so don't allocate here. + * This function is called from yylex_destroy(), so don't allocate here. */ - /* We do not touch pp_yylineno unless the option is enabled. */ - pp_yylineno = 1; + /* We do not touch yylineno unless the option is enabled. */ + yylineno = 1; - (yy_buffer_stack) = 0; + (yy_buffer_stack) = NULL; (yy_buffer_stack_top) = 0; (yy_buffer_stack_max) = 0; - (yy_c_buf_p) = (char *) 0; + (yy_c_buf_p) = NULL; (yy_init) = 0; (yy_start) = 0; /* Defined in main.c */ #ifdef YY_STDINIT - pp_yyin = stdin; - pp_yyout = stdout; + yyin = stdin; + yyout = stdout; #else - pp_yyin = (FILE *) 0; - pp_yyout = (FILE *) 0; + yyin = NULL; + yyout = NULL; #endif /* For future reference: Set errno on error, since we are called by - * pp_yylex_init() + * yylex_init() */ return 0; } -/* pp_yylex_destroy is for both reentrant and non-reentrant scanners. */ -int pp_yylex_destroy (void) +/* yylex_destroy is for both reentrant and non-reentrant scanners. */ +int yylex_destroy (void) { /* Pop the buffer stack, destroying each element. */ while(YY_CURRENT_BUFFER){ - pp_yy_delete_buffer(YY_CURRENT_BUFFER ); + yy_delete_buffer( YY_CURRENT_BUFFER ); YY_CURRENT_BUFFER_LVALUE = NULL; - pp_yypop_buffer_state(); + yypop_buffer_state(); } /* Destroy the stack itself. */ - pp_yyfree((yy_buffer_stack) ); + yyfree((yy_buffer_stack) ); (yy_buffer_stack) = NULL; /* Reset the globals. This is important in a non-reentrant scanner so the next time - * pp_yylex() is called, initialization will occur. */ + * yylex() is called, initialization will occur. */ yy_init_globals( ); return 0; @@ -3963,18 +4210,19 @@ int pp_yylex_destroy (void) */ #ifndef yytext_ptr -static void yy_flex_strncpy (char* s1, yyconst char * s2, int n ) +static void yy_flex_strncpy (char* s1, const char * s2, int n ) { - register int i; + + int i; for ( i = 0; i < n; ++i ) s1[i] = s2[i]; } #endif #ifdef YY_NEED_STRLEN -static int yy_flex_strlen (yyconst char * s ) +static int yy_flex_strlen (const char * s ) { - register int n; + int n; for ( n = 0; s[n]; ++n ) ; @@ -3982,13 +4230,14 @@ static int yy_flex_strlen (yyconst char * s ) } #endif -void *pp_yyalloc (yy_size_t size ) +void *yyalloc (yy_size_t size ) { - return (void *) malloc( size ); + return malloc(size); } -void *pp_yyrealloc (void * ptr, yy_size_t size ) +void *yyrealloc (void * ptr, yy_size_t size ) { + /* The cast to (char *) in the following accommodates both * implementations that use char* generic pointers, and those * that use void* generic pointers. It works with the latter @@ -3996,18 +4245,17 @@ void *pp_yyrealloc (void * ptr, yy_size_t size ) * any pointer type to void*, and deal with argument conversions * as though doing an assignment. */ - return (void *) realloc( (char *) ptr, size ); + return realloc(ptr, size); } -void pp_yyfree (void * ptr ) +void yyfree (void * ptr ) { - free( (char *) ptr ); /* see pp_yyrealloc() for (char *) cast */ + free( (char *) ptr ); /* see yyrealloc() for (char *) cast */ } #define YYTABLES_NAME "yytables" -#line 1301 "pp_scanner.l" - +#line 1302 "pp_scanner.l" @@ -4062,9 +4310,9 @@ void lexError( char * msg ) { } */ -int pp_yywrap(void) { +int yywrap(void) { -// pp_yywrap will be called to open files from the List of Files in the +// yywrap will be called to open files from the List of Files in the // Global Env struct. // return 1; @@ -4208,7 +4456,7 @@ int pp_lex_fgets(char *buf, int maxsize) { strcpy(ibuf, buf); /* lineno_prev = lineno;; */ - /* yylineno_prev = pp_yylineno; */ + /* yylineno_prev = yylineno; */ /* yylineno_prev = lineNumber; */ fsp_prev = fsp; zzlineno_prev = zzlineno; @@ -4319,7 +4567,7 @@ void copy_switch(void) { exit(1); } - pp_yy_switch_to_buffer(pp_yy_create_buffer(pp_yyin,YY_BUF_SIZE) ); + yy_switch_to_buffer( yy_create_buffer(pp_yyin,YY_BUF_SIZE) ); pp_filename = strdup (include_full_filename); lineno = 1; fprintf (pp_yyout, "# %d \"%s\"\n", lineno, pp_filename); @@ -4714,7 +4962,7 @@ void adjust_counters(void) { int i, l=0, c=0, sw=0; - for (i=pp_yyleng-1; i>=0; i--) { + for (i=yyleng-1; i>=0; i--) { if (pp_yytext[i] == CHR_LF) { l++; sw=1; diff --git a/compiler/pp_scanner.l b/compiler/pp_scanner.l index a8ba511..e5f4f03 100644 --- a/compiler/pp_scanner.l +++ b/compiler/pp_scanner.l @@ -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; diff --git a/compiler/pp_scanner.o b/compiler/pp_scanner.o index 7f326cd..5bfee5e 100644 Binary files a/compiler/pp_scanner.o and b/compiler/pp_scanner.o differ diff --git a/compiler/reswords.o b/compiler/reswords.o index 94ae0c0..5b66e37 100644 Binary files a/compiler/reswords.o and b/compiler/reswords.o differ diff --git a/compiler/scan.c b/compiler/scan.c index 764bb50..3860dc9 100644 --- a/compiler/scan.c +++ b/compiler/scan.c @@ -8,8 +8,8 @@ #define FLEX_SCANNER #define YY_FLEX_MAJOR_VERSION 2 -#define YY_FLEX_MINOR_VERSION 5 -#define YY_FLEX_SUBMINOR_VERSION 35 +#define YY_FLEX_MINOR_VERSION 6 +#define YY_FLEX_SUBMINOR_VERSION 4 #if YY_FLEX_SUBMINOR_VERSION > 0 #define FLEX_BETA #endif @@ -84,60 +84,48 @@ typedef unsigned int flex_uint32_t; #define UINT32_MAX (4294967295U) #endif +#ifndef SIZE_MAX +#define SIZE_MAX (~(size_t)0) +#endif + #endif /* ! C99 */ #endif /* ! FLEXINT_H */ -#ifdef __cplusplus +/* begin standard C++ headers. */ -/* The "const" storage-class-modifier is valid. */ -#define YY_USE_CONST - -#else /* ! __cplusplus */ - -/* C99 requires __STDC__ to be defined as 1. */ -#if defined (__STDC__) - -#define YY_USE_CONST - -#endif /* defined (__STDC__) */ -#endif /* ! __cplusplus */ - -#ifdef YY_USE_CONST +/* TODO: this is always defined, so inline it */ #define yyconst const + +#if defined(__GNUC__) && __GNUC__ >= 3 +#define yynoreturn __attribute__((__noreturn__)) #else -#define yyconst +#define yynoreturn #endif /* Returned upon end-of-file. */ #define YY_NULL 0 -/* Promotes a possibly negative, possibly signed char to an unsigned - * integer for use as an array index. If the signed char is negative, - * we want to instead treat it as an 8-bit unsigned char, hence the - * double cast. +/* Promotes a possibly negative, possibly signed char to an + * integer in range [0..255] for use as an array index. */ -#define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c) +#define YY_SC_TO_UI(c) ((YY_CHAR) (c)) /* Enter a start condition. This macro really ought to take a parameter, * but we do it the disgusting crufty way forced on us by the ()-less * definition of BEGIN. */ #define BEGIN (yy_start) = 1 + 2 * - /* Translate the current start state into a value that can be later handed * to BEGIN to return to the state. The YYSTATE alias is for lex * compatibility. */ #define YY_START (((yy_start) - 1) / 2) #define YYSTATE YY_START - /* Action number for EOF rule of a given start state. */ #define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1) - /* Special action meaning "start processing a new file". */ -#define YY_NEW_FILE yyrestart(yyin ) - +#define YY_NEW_FILE yyrestart( yyin ) #define YY_END_OF_BUFFER_CHAR 0 /* Size of default input buffer. */ @@ -162,6 +150,11 @@ typedef unsigned int flex_uint32_t; typedef struct yy_buffer_state *YY_BUFFER_STATE; #endif +#ifndef YY_TYPEDEF_YY_SIZE_T +#define YY_TYPEDEF_YY_SIZE_T +typedef size_t yy_size_t; +#endif + extern int yyleng; extern FILE *yyin, *yyout; @@ -169,8 +162,9 @@ extern FILE *yyin, *yyout; #define EOB_ACT_CONTINUE_SCAN 0 #define EOB_ACT_END_OF_FILE 1 #define EOB_ACT_LAST_MATCH 2 - + #define YY_LESS_LINENO(n) + #define YY_LINENO_REWIND_TO(ptr) /* Return all but the first "n" matched characters back to the input stream. */ #define yyless(n) \ @@ -185,14 +179,8 @@ extern FILE *yyin, *yyout; YY_DO_BEFORE_ACTION; /* set up yytext again */ \ } \ while ( 0 ) - #define unput(c) yyunput( c, (yytext_ptr) ) -#ifndef YY_TYPEDEF_YY_SIZE_T -#define YY_TYPEDEF_YY_SIZE_T -typedef size_t yy_size_t; -#endif - #ifndef YY_STRUCT_YY_BUFFER_STATE #define YY_STRUCT_YY_BUFFER_STATE struct yy_buffer_state @@ -205,7 +193,7 @@ struct yy_buffer_state /* Size of input buffer in bytes, not including room for EOB * characters. */ - yy_size_t yy_buf_size; + int yy_buf_size; /* Number of characters read into yy_ch_buf, not including EOB * characters. @@ -233,7 +221,7 @@ struct yy_buffer_state int yy_bs_lineno; /**< The line count. */ int yy_bs_column; /**< The column count. */ - + /* Whether to try to fill the input buffer when we reach the * end of it. */ @@ -261,7 +249,7 @@ struct yy_buffer_state /* Stack of input buffers. */ static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */ static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */ -static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */ +static YY_BUFFER_STATE * yy_buffer_stack = NULL; /**< Stack as an array. */ /* We provide macros for accessing buffer states in case in the * future we want to put the buffer states in a more general @@ -272,7 +260,6 @@ static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */ #define YY_CURRENT_BUFFER ( (yy_buffer_stack) \ ? (yy_buffer_stack)[(yy_buffer_stack_top)] \ : NULL) - /* Same as previous macro, but useful when we know that the buffer stack is not * NULL or when we need an lvalue. For internal use only. */ @@ -284,7 +271,7 @@ static int yy_n_chars; /* number of characters read into yy_ch_buf */ int yyleng; /* Points to current character in buffer. */ -static char *yy_c_buf_p = (char *) 0; +static char *yy_c_buf_p = NULL; static int yy_init = 0; /* whether we need to initialize */ static int yy_start = 0; /* start state number */ @@ -293,82 +280,78 @@ static int yy_start = 0; /* start state number */ */ static int yy_did_buffer_switch_on_eof; -void yyrestart (FILE *input_file ); -void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer ); -YY_BUFFER_STATE yy_create_buffer (FILE *file,int size ); -void yy_delete_buffer (YY_BUFFER_STATE b ); -void yy_flush_buffer (YY_BUFFER_STATE b ); -void yypush_buffer_state (YY_BUFFER_STATE new_buffer ); -void yypop_buffer_state (void ); +void yyrestart ( FILE *input_file ); +void yy_switch_to_buffer ( YY_BUFFER_STATE new_buffer ); +YY_BUFFER_STATE yy_create_buffer ( FILE *file, int size ); +void yy_delete_buffer ( YY_BUFFER_STATE b ); +void yy_flush_buffer ( YY_BUFFER_STATE b ); +void yypush_buffer_state ( YY_BUFFER_STATE new_buffer ); +void yypop_buffer_state ( void ); -static void yyensure_buffer_stack (void ); -static void yy_load_buffer_state (void ); -static void yy_init_buffer (YY_BUFFER_STATE b,FILE *file ); +static void yyensure_buffer_stack ( void ); +static void yy_load_buffer_state ( void ); +static void yy_init_buffer ( YY_BUFFER_STATE b, FILE *file ); +#define YY_FLUSH_BUFFER yy_flush_buffer( YY_CURRENT_BUFFER ) -#define YY_FLUSH_BUFFER yy_flush_buffer(YY_CURRENT_BUFFER ) +YY_BUFFER_STATE yy_scan_buffer ( char *base, yy_size_t size ); +YY_BUFFER_STATE yy_scan_string ( const char *yy_str ); +YY_BUFFER_STATE yy_scan_bytes ( const char *bytes, int len ); -YY_BUFFER_STATE yy_scan_buffer (char *base,yy_size_t size ); -YY_BUFFER_STATE yy_scan_string (yyconst char *yy_str ); -YY_BUFFER_STATE yy_scan_bytes (yyconst char *bytes,int len ); - -void *yyalloc (yy_size_t ); -void *yyrealloc (void *,yy_size_t ); -void yyfree (void * ); +void *yyalloc ( yy_size_t ); +void *yyrealloc ( void *, yy_size_t ); +void yyfree ( void * ); #define yy_new_buffer yy_create_buffer - #define yy_set_interactive(is_interactive) \ { \ if ( ! YY_CURRENT_BUFFER ){ \ yyensure_buffer_stack (); \ YY_CURRENT_BUFFER_LVALUE = \ - yy_create_buffer(yyin,YY_BUF_SIZE ); \ + yy_create_buffer( yyin, YY_BUF_SIZE ); \ } \ YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \ } - #define yy_set_bol(at_bol) \ { \ if ( ! YY_CURRENT_BUFFER ){\ yyensure_buffer_stack (); \ YY_CURRENT_BUFFER_LVALUE = \ - yy_create_buffer(yyin,YY_BUF_SIZE ); \ + yy_create_buffer( yyin, YY_BUF_SIZE ); \ } \ YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \ } - #define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol) /* Begin user sect3 */ +typedef flex_uint8_t YY_CHAR; -typedef unsigned char YY_CHAR; - -FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0; +FILE *yyin = NULL, *yyout = NULL; typedef int yy_state_type; extern int yylineno; - int yylineno = 1; extern char *yytext; +#ifdef yytext_ptr +#undef yytext_ptr +#endif #define yytext_ptr yytext -static yy_state_type yy_get_previous_state (void ); -static yy_state_type yy_try_NUL_trans (yy_state_type current_state ); -static int yy_get_next_buffer (void ); -static void yy_fatal_error (yyconst char msg[] ); +static yy_state_type yy_get_previous_state ( void ); +static yy_state_type yy_try_NUL_trans ( yy_state_type current_state ); +static int yy_get_next_buffer ( void ); +static void yynoreturn yy_fatal_error ( const char* msg ); /* Done after the current pattern has been matched and before the * corresponding action - sets up yytext. */ #define YY_DO_BEFORE_ACTION \ (yytext_ptr) = yy_bp; \ - yyleng = (size_t) (yy_cp - yy_bp); \ + yyleng = (int) (yy_cp - yy_bp); \ (yy_hold_char) = *yy_cp; \ *yy_cp = '\0'; \ (yy_c_buf_p) = yy_cp; - #define YY_NUM_RULES 57 #define YY_END_OF_BUFFER 58 /* This struct is not used in this scanner, @@ -378,7 +361,7 @@ struct yy_trans_info flex_int32_t yy_verify; flex_int32_t yy_nxt; }; -static yyconst flex_int16_t yy_acclist[513] = +static const flex_int16_t yy_acclist[513] = { 0, 20, 20, 42, 42, 13, 13, 48, 48, 49, 49, 44, 44, 58, 56, 57, 8, 34, 56, 57, 41, @@ -439,7 +422,7 @@ static yyconst flex_int16_t yy_acclist[513] = 2, 44 } ; -static yyconst flex_int16_t yy_accept[295] = +static const flex_int16_t yy_accept[295] = { 0, 1, 1, 1, 2, 3, 3, 3, 3, 3, 4, 5, 6, 7, 7, 7, 7, 7, 7, 7, 8, @@ -476,7 +459,7 @@ static yyconst flex_int16_t yy_accept[295] = } ; -static yyconst flex_int32_t yy_ec[256] = +static const YY_CHAR yy_ec[256] = { 0, 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, @@ -508,7 +491,7 @@ static yyconst flex_int32_t yy_ec[256] = 1, 1, 1, 1, 1 } ; -static yyconst flex_int32_t yy_meta[36] = +static const YY_CHAR yy_meta[36] = { 0, 1, 2, 3, 4, 4, 1, 1, 1, 5, 1, 1, 1, 1, 1, 1, 5, 6, 5, 5, 5, @@ -516,7 +499,7 @@ static yyconst flex_int32_t yy_meta[36] = 5, 5, 5, 5, 5 } ; -static yyconst flex_int16_t yy_base[317] = +static const flex_int16_t yy_base[317] = { 0, 0, 34, 60, 92, 124, 43, 142, 77, 41, 175, 207, 78, 225, 177, 259, 179, 277, 310, 336, 370, @@ -555,7 +538,7 @@ static yyconst flex_int16_t yy_base[317] = 859, 865, 871, 877, 883, 889 } ; -static yyconst flex_int16_t yy_def[317] = +static const flex_int16_t yy_def[317] = { 0, 293, 1, 294, 294, 293, 5, 5, 7, 295, 295, 293, 11, 7, 13, 293, 15, 13, 17, 293, 19, @@ -594,7 +577,7 @@ static yyconst flex_int16_t yy_def[317] = 293, 293, 293, 293, 293, 293 } ; -static yyconst flex_int16_t yy_nxt[966] = +static const flex_int16_t yy_nxt[966] = { 0, 26, 27, 28, 27, 27, 29, 30, 29, 29, 31, 32, 29, 33, 29, 34, 29, 35, 36, 36, 36, @@ -704,7 +687,7 @@ static yyconst flex_int16_t yy_nxt[966] = 293, 293, 293, 293, 293 } ; -static yyconst flex_int16_t yy_chk[966] = +static const flex_int16_t yy_chk[966] = { 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, @@ -895,6 +878,7 @@ int prev_token=0; #define YY_PROTO(proto) (void) #define YY_DECL int yylex2(void) #endif +#line 882 "scan.c" #line 92 "scan.l" #include #include @@ -918,9 +902,9 @@ int eos_detect=0; #define svtoken() strncpy(toktext,yytext,sizeof(toktext)) +#line 906 "scan.c" - -#line 924 "scan.c" +#line 908 "scan.c" #define INITIAL 0 #define IDENT_ST 1 @@ -947,36 +931,36 @@ int eos_detect=0; #define YY_EXTRA_TYPE void * #endif -static int yy_init_globals (void ); +static int yy_init_globals ( void ); /* Accessor methods to globals. These are made visible to non-reentrant scanners for convenience. */ -int yylex_destroy (void ); +int yylex_destroy ( void ); -int yyget_debug (void ); +int yyget_debug ( void ); -void yyset_debug (int debug_flag ); +void yyset_debug ( int debug_flag ); -YY_EXTRA_TYPE yyget_extra (void ); +YY_EXTRA_TYPE yyget_extra ( void ); -void yyset_extra (YY_EXTRA_TYPE user_defined ); +void yyset_extra ( YY_EXTRA_TYPE user_defined ); -FILE *yyget_in (void ); +FILE *yyget_in ( void ); -void yyset_in (FILE * in_str ); +void yyset_in ( FILE * _in_str ); -FILE *yyget_out (void ); +FILE *yyget_out ( void ); -void yyset_out (FILE * out_str ); +void yyset_out ( FILE * _out_str ); -int yyget_leng (void ); + int yyget_leng ( void ); -char *yyget_text (void ); +char *yyget_text ( void ); -int yyget_lineno (void ); +int yyget_lineno ( void ); -void yyset_lineno (int line_number ); +void yyset_lineno ( int _line_number ); /* Macros after this point can all be overridden by user definitions in * section 1. @@ -984,28 +968,31 @@ void yyset_lineno (int line_number ); #ifndef YY_SKIP_YYWRAP #ifdef __cplusplus -extern "C" int yywrap (void ); +extern "C" int yywrap ( void ); #else -extern int yywrap (void ); +extern int yywrap ( void ); #endif #endif - static void yyunput (int c,char *buf_ptr ); +#ifndef YY_NO_UNPUT + static void yyunput ( int c, char *buf_ptr ); + +#endif + #ifndef yytext_ptr -static void yy_flex_strncpy (char *,yyconst char *,int ); +static void yy_flex_strncpy ( char *, const char *, int ); #endif #ifdef YY_NEED_STRLEN -static int yy_flex_strlen (yyconst char * ); +static int yy_flex_strlen ( const char * ); #endif #ifndef YY_NO_INPUT - #ifdef __cplusplus -static int yyinput (void ); +static int yyinput ( void ); #else -static int input (void ); +static int input ( void ); #endif #endif @@ -1025,7 +1012,7 @@ static int input (void ); /* This used to be an fputs(), but since the string might contain NUL's, * we now use fwrite(). */ -#define ECHO do { if (fwrite( yytext, yyleng, 1, yyout )) {} } while (0) +#define ECHO do { if (fwrite( yytext, (size_t) yyleng, 1, yyout )) {} } while (0) #endif /* Gets input and stuffs it into "buf". number of characters read, or YY_NULL, @@ -1036,7 +1023,7 @@ static int input (void ); if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \ { \ int c = '*'; \ - size_t n; \ + int n; \ for ( n = 0; n < max_size && \ (c = getc( yyin )) != EOF && c != '\n'; ++n ) \ buf[n] = (char) c; \ @@ -1049,7 +1036,7 @@ static int input (void ); else \ { \ errno=0; \ - while ( (result = fread(buf, 1, max_size, yyin))==0 && ferror(yyin)) \ + while ( (result = (int) fread(buf, 1, (yy_size_t) max_size, yyin)) == 0 && ferror(yyin)) \ { \ if( errno != EINTR) \ { \ @@ -1104,7 +1091,7 @@ extern int yylex (void); /* Code executed at the end of each rule. */ #ifndef YY_BREAK -#define YY_BREAK break; +#define YY_BREAK /*LINTED*/break; #endif #define YY_RULE_SETUP \ @@ -1117,13 +1104,47 @@ extern int yylex (void); */ YY_DECL { - register yy_state_type yy_current_state; - register char *yy_cp, *yy_bp; - register int yy_act; + yy_state_type yy_current_state; + char *yy_cp, *yy_bp; + int yy_act; + if ( !(yy_init) ) + { + (yy_init) = 1; + +#ifdef YY_USER_INIT + YY_USER_INIT; +#endif + + /* Create the reject buffer large enough to save one state per allowed character. */ + if ( ! (yy_state_buf) ) + (yy_state_buf) = (yy_state_type *)yyalloc(YY_STATE_BUF_SIZE ); + if ( ! (yy_state_buf) ) + YY_FATAL_ERROR( "out of dynamic memory in yylex()" ); + + if ( ! (yy_start) ) + (yy_start) = 1; /* first start state */ + + if ( ! yyin ) + yyin = stdin; + + if ( ! yyout ) + yyout = stdout; + + if ( ! YY_CURRENT_BUFFER ) { + yyensure_buffer_stack (); + YY_CURRENT_BUFFER_LVALUE = + yy_create_buffer( yyin, YY_BUF_SIZE ); + } + + yy_load_buffer_state( ); + } + + { #line 119 "scan.l" +#line 122 "scan.l" extern int curr_division; extern int need_subscripts; /* struct copy_symbols *tmp = NULL; */ @@ -1182,41 +1203,9 @@ YY_DECL curr_division=0; /* avoid new state switch */ -#line 1186 "scan.c" +#line 1207 "scan.c" - if ( !(yy_init) ) - { - (yy_init) = 1; - -#ifdef YY_USER_INIT - YY_USER_INIT; -#endif - - /* Create the reject buffer large enough to save one state per allowed character. */ - if ( ! (yy_state_buf) ) - (yy_state_buf) = (yy_state_type *)yyalloc(YY_STATE_BUF_SIZE ); - if ( ! (yy_state_buf) ) - YY_FATAL_ERROR( "out of dynamic memory in yylex()" ); - - if ( ! (yy_start) ) - (yy_start) = 1; /* first start state */ - - if ( ! yyin ) - yyin = stdin; - - if ( ! yyout ) - yyout = stdout; - - if ( ! YY_CURRENT_BUFFER ) { - yyensure_buffer_stack (); - YY_CURRENT_BUFFER_LVALUE = - yy_create_buffer(yyin,YY_BUF_SIZE ); - } - - yy_load_buffer_state( ); - } - - while ( 1 ) /* loops until end-of-file is reached */ + while ( /*CONSTCOND*/1 ) /* loops until end-of-file is reached */ { yy_cp = (yy_c_buf_p); @@ -1237,14 +1226,14 @@ YY_DECL yy_match: do { - register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)]; + YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)] ; while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) { yy_current_state = (int) yy_def[yy_current_state]; if ( yy_current_state >= 294 ) - yy_c = yy_meta[(unsigned int) yy_c]; + yy_c = yy_meta[yy_c]; } - yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c]; + yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c]; *(yy_state_ptr)++ = yy_current_state; ++yy_cp; } @@ -1253,7 +1242,9 @@ yy_match: yy_find_action: yy_current_state = *--(yy_state_ptr); (yy_lp) = yy_accept[yy_current_state]; + find_rule: /* we branch to this label when backing up */ + for ( ; ; ) /* until we find what rule we matched */ { if ( (yy_lp) && (yy_lp) < yy_accept[yy_current_state + 1] ) @@ -1277,7 +1268,7 @@ do_action: /* This label is used only to access EOF actions. */ { /* beginning of action switch */ case 1: YY_RULE_SETUP -#line 179 "scan.l" +#line 180 "scan.l" { char *endp; source_lineno = strtol (yytext + 2, &endp, 10); @@ -1292,7 +1283,7 @@ YY_RULE_SETUP YY_BREAK case 2: YY_RULE_SETUP -#line 191 "scan.l" +#line 192 "scan.l" { /* throw away this */ } YY_BREAK case 3: @@ -1300,7 +1291,7 @@ case 3: (yy_c_buf_p) = yy_cp -= 1; YY_DO_BEFORE_ACTION; /* set up yytext again */ YY_RULE_SETUP -#line 193 "scan.l" +#line 194 "scan.l" { /* allow floating comment line */ scdebug(": %s:\n", yytext); @@ -1308,7 +1299,7 @@ YY_RULE_SETUP YY_BREAK case 4: YY_RULE_SETUP -#line 198 "scan.l" +#line 199 "scan.l" { if (!source_debug) scdebug(": %s:\n", yytext); @@ -1318,17 +1309,17 @@ YY_RULE_SETUP YY_BREAK case 5: YY_RULE_SETUP -#line 205 "scan.l" +#line 206 "scan.l" { } YY_BREAK case 6: YY_RULE_SETUP -#line 206 "scan.l" +#line 207 "scan.l" { } YY_BREAK case 7: YY_RULE_SETUP -#line 208 "scan.l" +#line 209 "scan.l" { if (need_subscripts) { scdebug(":\n"); @@ -1342,12 +1333,12 @@ YY_RULE_SETUP YY_BREAK case 8: YY_RULE_SETUP -#line 218 "scan.l" +#line 219 "scan.l" { } YY_BREAK case 9: YY_RULE_SETUP -#line 220 "scan.l" +#line 221 "scan.l" { { struct sym *symbol; svtoken(); @@ -1411,7 +1402,7 @@ YY_RULE_SETUP YY_BREAK case 10: YY_RULE_SETUP -#line 281 "scan.l" +#line 282 "scan.l" { svtoken(); if (is_integer_token(toktext)) { @@ -1442,7 +1433,7 @@ YY_RULE_SETUP YY_BREAK case 11: YY_RULE_SETUP -#line 309 "scan.l" +#line 310 "scan.l" { { struct sym *symbol; svtoken(); @@ -1491,7 +1482,7 @@ YY_RULE_SETUP case 12: YY_RULE_SETUP -#line 355 "scan.l" +#line 356 "scan.l" { svtoken(); if (is_integer_token(toktext)) { @@ -1520,13 +1511,13 @@ YY_RULE_SETUP YY_BREAK case 13: YY_RULE_SETUP -#line 380 "scan.l" +#line 381 "scan.l" { } YY_BREAK case 14: YY_RULE_SETUP -#line 383 "scan.l" +#line 384 "scan.l" { svtoken(); if (is_integer_token(toktext)) { @@ -1555,7 +1546,7 @@ YY_RULE_SETUP YY_BREAK case 15: YY_RULE_SETUP -#line 409 "scan.l" +#line 410 "scan.l" { svtoken(); if (is_integer_token(toktext)) { @@ -1585,12 +1576,12 @@ YY_RULE_SETUP case 16: YY_RULE_SETUP -#line 436 "scan.l" +#line 437 "scan.l" { } YY_BREAK case 17: YY_RULE_SETUP -#line 437 "scan.l" +#line 438 "scan.l" { svtoken(); scdebug(": %s\n", toktext); @@ -1600,7 +1591,7 @@ YY_RULE_SETUP YY_BREAK case 18: YY_RULE_SETUP -#line 444 "scan.l" +#line 445 "scan.l" { svtoken(); scdebug("<0: any>: %s\n", toktext); @@ -1609,23 +1600,24 @@ YY_RULE_SETUP YY_BREAK case 19: YY_RULE_SETUP -#line 449 "scan.l" +#line 450 "scan.l" { } YY_BREAK case 20: YY_RULE_SETUP -#line 453 "scan.l" +#line 454 "scan.l" { } YY_BREAK case 21: /* rule 21 can match eol */ *yy_cp = (yy_hold_char); /* undo effects of setting up yytext */ +YY_LINENO_REWIND_TO(yy_bp + 1); (yy_c_buf_p) = yy_cp = yy_bp + 1; YY_DO_BEFORE_ACTION; /* set up yytext again */ YY_RULE_SETUP -#line 454 "scan.l" +#line 455 "scan.l" { scdebug(":\n"); return(PERIOD_TOK); @@ -1633,7 +1625,7 @@ YY_RULE_SETUP YY_BREAK case 22: YY_RULE_SETUP -#line 458 "scan.l" +#line 459 "scan.l" { svtoken(); scdebug(" : %s\n", toktext); @@ -1643,7 +1635,7 @@ YY_RULE_SETUP YY_BREAK case 23: YY_RULE_SETUP -#line 464 "scan.l" +#line 465 "scan.l" { svtoken(); scdebug(" : %s\n", toktext); @@ -1653,7 +1645,7 @@ YY_RULE_SETUP YY_BREAK case 24: YY_RULE_SETUP -#line 470 "scan.l" +#line 471 "scan.l" { svtoken(); scdebug(" : %s\n", toktext); @@ -1663,7 +1655,7 @@ YY_RULE_SETUP YY_BREAK case 25: YY_RULE_SETUP -#line 476 "scan.l" +#line 477 "scan.l" { svtoken(); scdebug("<0: any>: %s\n", toktext); @@ -1673,23 +1665,24 @@ YY_RULE_SETUP case 26: /* rule 26 can match eol */ YY_RULE_SETUP -#line 481 "scan.l" +#line 482 "scan.l" { } YY_BREAK /* end of */ case 27: YY_RULE_SETUP -#line 486 "scan.l" +#line 487 "scan.l" { } YY_BREAK case 28: /* rule 28 can match eol */ *yy_cp = (yy_hold_char); /* undo effects of setting up yytext */ +YY_LINENO_REWIND_TO(yy_bp + 1); (yy_c_buf_p) = yy_cp = yy_bp + 1; YY_DO_BEFORE_ACTION; /* set up yytext again */ YY_RULE_SETUP -#line 487 "scan.l" +#line 488 "scan.l" { scdebug(":\n"); eos_detect++; @@ -1698,7 +1691,7 @@ YY_RULE_SETUP YY_BREAK case 29: YY_RULE_SETUP -#line 493 "scan.l" +#line 494 "scan.l" { tp=toktext; while(1) { @@ -1731,7 +1724,7 @@ YY_RULE_SETUP YY_BREAK case 30: YY_RULE_SETUP -#line 523 "scan.l" +#line 524 "scan.l" { { unsigned char *s=hnum; int len; @@ -1761,7 +1754,7 @@ YY_RULE_SETUP YY_BREAK case 31: YY_RULE_SETUP -#line 550 "scan.l" +#line 551 "scan.l" { { unsigned char *s=hnum; int len; @@ -1791,7 +1784,7 @@ YY_RULE_SETUP YY_BREAK case 32: YY_RULE_SETUP -#line 577 "scan.l" +#line 578 "scan.l" { tp=toktext; while(1) { @@ -1824,7 +1817,7 @@ YY_RULE_SETUP YY_BREAK case 33: YY_RULE_SETUP -#line 607 "scan.l" +#line 608 "scan.l" { svtoken(); scdebug(": %s\n", toktext); @@ -1843,12 +1836,12 @@ YY_RULE_SETUP case 34: YY_RULE_SETUP -#line 623 "scan.l" +#line 624 "scan.l" { } YY_BREAK case 35: YY_RULE_SETUP -#line 626 "scan.l" +#line 627 "scan.l" { svtoken(); if ((reserved_token=reserved(toktext))!=0) { @@ -1860,7 +1853,7 @@ YY_RULE_SETUP YY_BREAK case 36: YY_RULE_SETUP -#line 635 "scan.l" +#line 636 "scan.l" { svtoken(); if (function_seen) { @@ -1872,7 +1865,7 @@ YY_RULE_SETUP YY_BREAK case 37: YY_RULE_SETUP -#line 643 "scan.l" +#line 644 "scan.l" { svtoken(); scdebug("<0: POW_OP>: %s\n", toktext); @@ -1881,17 +1874,17 @@ YY_RULE_SETUP YY_BREAK case 38: YY_RULE_SETUP -#line 648 "scan.l" +#line 649 "scan.l" { } YY_BREAK case 39: YY_RULE_SETUP -#line 649 "scan.l" +#line 650 "scan.l" { } YY_BREAK case 40: YY_RULE_SETUP -#line 650 "scan.l" +#line 651 "scan.l" { svtoken(); scdebug("<0: any>: %s\n", toktext); @@ -1901,14 +1894,14 @@ YY_RULE_SETUP case 41: /* rule 41 can match eol */ YY_RULE_SETUP -#line 656 "scan.l" +#line 657 "scan.l" { } YY_BREAK /* end of */ case 42: YY_RULE_SETUP -#line 661 "scan.l" +#line 662 "scan.l" { svtoken(); scdebug(" : %s\n", toktext); @@ -1917,14 +1910,14 @@ YY_RULE_SETUP case 43: /* rule 43 can match eol */ YY_RULE_SETUP -#line 665 "scan.l" +#line 666 "scan.l" { BEGIN INITIAL; } YY_BREAK /* end of COMMENT_ST */ case 44: YY_RULE_SETUP -#line 669 "scan.l" +#line 670 "scan.l" { svtoken(); scdebug(" :>>%s<<:\n", toktext); @@ -1933,10 +1926,11 @@ YY_RULE_SETUP case 45: /* rule 45 can match eol */ *yy_cp = (yy_hold_char); /* undo effects of setting up yytext */ +YY_LINENO_REWIND_TO(yy_cp - 1); (yy_c_buf_p) = yy_cp -= 1; YY_DO_BEFORE_ACTION; /* set up yytext again */ YY_RULE_SETUP -#line 673 "scan.l" +#line 674 "scan.l" { svtoken(); scdebug(" :>>%s<<:\n", toktext); @@ -1945,7 +1939,7 @@ YY_RULE_SETUP YY_BREAK case 46: YY_RULE_SETUP -#line 678 "scan.l" +#line 679 "scan.l" { svtoken(); scdebug(" :>>%s<<:\n", toktext); @@ -1954,7 +1948,7 @@ YY_RULE_SETUP case 47: /* rule 47 can match eol */ YY_RULE_SETUP -#line 682 "scan.l" +#line 683 "scan.l" { svtoken(); scdebug(" ::\n"); @@ -1964,7 +1958,7 @@ YY_RULE_SETUP case 48: /* rule 48 can match eol */ YY_RULE_SETUP -#line 688 "scan.l" +#line 689 "scan.l" { BEGIN PIC_ST2; scdebug(" PIC_ST2>:\n"); @@ -1974,7 +1968,7 @@ YY_RULE_SETUP case 49: /* rule 49 can match eol */ YY_RULE_SETUP -#line 694 "scan.l" +#line 695 "scan.l" { BEGIN DATA_ST; scdebug(" DATA_ST>:\n"); @@ -1983,10 +1977,11 @@ YY_RULE_SETUP case 50: /* rule 50 can match eol */ *yy_cp = (yy_hold_char); /* undo effects of setting up yytext */ +YY_LINENO_REWIND_TO(yy_bp + 1); (yy_c_buf_p) = yy_cp = yy_bp + 1; YY_DO_BEFORE_ACTION; /* set up yytext again */ YY_RULE_SETUP -#line 698 "scan.l" +#line 699 "scan.l" { BEGIN DATA_ST; scdebug(" DATA_ST>: PERIOD_TOK\n"); @@ -1997,7 +1992,7 @@ YY_RULE_SETUP case 51: YY_RULE_SETUP -#line 706 "scan.l" +#line 707 "scan.l" { { char *s; @@ -2012,7 +2007,7 @@ YY_RULE_SETUP YY_BREAK case 52: YY_RULE_SETUP -#line 717 "scan.l" +#line 718 "scan.l" { svtoken(); if ((reserved_token=reserved(toktext))!=0) @@ -2027,12 +2022,12 @@ YY_RULE_SETUP YY_BREAK case 53: YY_RULE_SETUP -#line 728 "scan.l" +#line 729 "scan.l" { } YY_BREAK case 54: YY_RULE_SETUP -#line 729 "scan.l" +#line 730 "scan.l" { scdebug(": %c\n", yytext[0]); yylval.ival=(int)yytext[0]; @@ -2041,7 +2036,7 @@ YY_RULE_SETUP case 55: /* rule 55 can match eol */ YY_RULE_SETUP -#line 733 "scan.l" +#line 734 "scan.l" { } YY_BREAK /* end of PICS */ @@ -2057,14 +2052,14 @@ case YY_STATE_EOF(EXCEPTION_ST): case YY_STATE_EOF(PIC_ST): case YY_STATE_EOF(PIC_ST2): case YY_STATE_EOF(COMMENT1_ST): -#line 736 "scan.l" +#line 737 "scan.l" { yyterminate(); } YY_BREAK case 56: YY_RULE_SETUP -#line 740 "scan.l" +#line 741 "scan.l" {svtoken(); scdebug("invalid character:>>%x<<:\n", (unsigned char)toktext[0]); yyerror("invalid character:>>%x<<:\n", (unsigned char)toktext[0]); @@ -2072,10 +2067,10 @@ YY_RULE_SETUP YY_BREAK case 57: YY_RULE_SETUP -#line 744 "scan.l" +#line 745 "scan.l" ECHO; YY_BREAK -#line 2079 "scan.c" +#line 2074 "scan.c" case YY_END_OF_BUFFER: { @@ -2151,7 +2146,7 @@ ECHO; { (yy_did_buffer_switch_on_eof) = 0; - if ( yywrap( ) ) + if ( yywrap( ) ) { /* Note: because we've taken care in * yy_get_next_buffer() to have set up @@ -2204,6 +2199,7 @@ ECHO; "fatal flex scanner internal error--no action found" ); } /* end of action switch */ } /* end of scanning one token */ + } /* end of user's declarations */ } /* end of yylex */ /* yy_get_next_buffer - try to read in a new buffer @@ -2215,9 +2211,9 @@ ECHO; */ static int yy_get_next_buffer (void) { - register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf; - register char *source = (yytext_ptr); - register int number_to_move, i; + char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf; + char *source = (yytext_ptr); + int number_to_move, i; int ret_val; if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] ) @@ -2246,7 +2242,7 @@ static int yy_get_next_buffer (void) /* Try to read more data. */ /* First move last chars to start of buffer. */ - number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr)) - 1; + number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr) - 1); for ( i = 0; i < number_to_move; ++i ) *(dest++) = *(source++); @@ -2275,7 +2271,7 @@ static int yy_get_next_buffer (void) /* Read in more data. */ YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]), - (yy_n_chars), (size_t) num_to_read ); + (yy_n_chars), num_to_read ); YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars); } @@ -2285,7 +2281,7 @@ static int yy_get_next_buffer (void) if ( number_to_move == YY_MORE_ADJ ) { ret_val = EOB_ACT_END_OF_FILE; - yyrestart(yyin ); + yyrestart( yyin ); } else @@ -2299,12 +2295,15 @@ static int yy_get_next_buffer (void) else ret_val = EOB_ACT_CONTINUE_SCAN; - if ((yy_size_t) ((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) { + if (((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) { /* Extend the array by 50%, plus the number we really need. */ - yy_size_t new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1); - YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) yyrealloc((void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf,new_size ); + int new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1); + YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) yyrealloc( + (void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf, (yy_size_t) new_size ); if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf ) YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" ); + /* "- 2" to take care of EOB's */ + YY_CURRENT_BUFFER_LVALUE->yy_buf_size = (int) (new_size - 2); } (yy_n_chars) += number_to_move; @@ -2320,8 +2319,8 @@ static int yy_get_next_buffer (void) static yy_state_type yy_get_previous_state (void) { - register yy_state_type yy_current_state; - register char *yy_cp; + yy_state_type yy_current_state; + char *yy_cp; yy_current_state = (yy_start); yy_current_state += YY_AT_BOL(); @@ -2331,14 +2330,14 @@ static int yy_get_next_buffer (void) for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp ) { - register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1); + YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1); while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) { yy_current_state = (int) yy_def[yy_current_state]; if ( yy_current_state >= 294 ) - yy_c = yy_meta[(unsigned int) yy_c]; + yy_c = yy_meta[yy_c]; } - yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c]; + yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c]; *(yy_state_ptr)++ = yy_current_state; } @@ -2352,26 +2351,28 @@ static int yy_get_next_buffer (void) */ static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state ) { - register int yy_is_jam; + int yy_is_jam; - register YY_CHAR yy_c = 1; + YY_CHAR yy_c = 1; while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) { yy_current_state = (int) yy_def[yy_current_state]; if ( yy_current_state >= 294 ) - yy_c = yy_meta[(unsigned int) yy_c]; + yy_c = yy_meta[yy_c]; } - yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c]; + yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c]; yy_is_jam = (yy_current_state == 293); if ( ! yy_is_jam ) *(yy_state_ptr)++ = yy_current_state; - return yy_is_jam ? 0 : yy_current_state; + return yy_is_jam ? 0 : yy_current_state; } - static void yyunput (int c, register char * yy_bp ) +#ifndef YY_NO_UNPUT + + static void yyunput (int c, char * yy_bp ) { - register char *yy_cp; + char *yy_cp; yy_cp = (yy_c_buf_p); @@ -2381,10 +2382,10 @@ static int yy_get_next_buffer (void) if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 ) { /* need to shift things up to make room */ /* +2 for EOB chars. */ - register int number_to_move = (yy_n_chars) + 2; - register char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[ + int number_to_move = (yy_n_chars) + 2; + char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[ YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2]; - register char *source = + char *source = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]; while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf ) @@ -2393,7 +2394,7 @@ static int yy_get_next_buffer (void) yy_cp += (int) (dest - source); yy_bp += (int) (dest - source); YY_CURRENT_BUFFER_LVALUE->yy_n_chars = - (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_buf_size; + (yy_n_chars) = (int) YY_CURRENT_BUFFER_LVALUE->yy_buf_size; if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 ) YY_FATAL_ERROR( "flex scanner push-back overflow" ); @@ -2406,6 +2407,8 @@ static int yy_get_next_buffer (void) (yy_c_buf_p) = yy_cp; } +#endif + #ifndef YY_NO_INPUT #ifdef __cplusplus static int yyinput (void) @@ -2430,7 +2433,7 @@ static int yy_get_next_buffer (void) else { /* need more input */ - int offset = (yy_c_buf_p) - (yytext_ptr); + int offset = (int) ((yy_c_buf_p) - (yytext_ptr)); ++(yy_c_buf_p); switch ( yy_get_next_buffer( ) ) @@ -2447,14 +2450,14 @@ static int yy_get_next_buffer (void) */ /* Reset buffer status. */ - yyrestart(yyin ); + yyrestart( yyin ); /*FALLTHROUGH*/ case EOB_ACT_END_OF_FILE: { - if ( yywrap( ) ) - return EOF; + if ( yywrap( ) ) + return 0; if ( ! (yy_did_buffer_switch_on_eof) ) YY_NEW_FILE; @@ -2493,11 +2496,11 @@ static int yy_get_next_buffer (void) if ( ! YY_CURRENT_BUFFER ){ yyensure_buffer_stack (); YY_CURRENT_BUFFER_LVALUE = - yy_create_buffer(yyin,YY_BUF_SIZE ); + yy_create_buffer( yyin, YY_BUF_SIZE ); } - yy_init_buffer(YY_CURRENT_BUFFER,input_file ); - yy_load_buffer_state( ); + yy_init_buffer( YY_CURRENT_BUFFER, input_file ); + yy_load_buffer_state( ); } /** Switch to a different input buffer. @@ -2525,7 +2528,7 @@ static int yy_get_next_buffer (void) } YY_CURRENT_BUFFER_LVALUE = new_buffer; - yy_load_buffer_state( ); + yy_load_buffer_state( ); /* We don't actually know whether we did this switch during * EOF (yywrap()) processing, but the only time this flag @@ -2553,7 +2556,7 @@ static void yy_load_buffer_state (void) { YY_BUFFER_STATE b; - b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state ) ); + b = (YY_BUFFER_STATE) yyalloc( sizeof( struct yy_buffer_state ) ); if ( ! b ) YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" ); @@ -2562,13 +2565,13 @@ static void yy_load_buffer_state (void) /* yy_ch_buf has to be 2 characters longer than the size given because * we need to put in 2 end-of-buffer characters. */ - b->yy_ch_buf = (char *) yyalloc(b->yy_buf_size + 2 ); + b->yy_ch_buf = (char *) yyalloc( (yy_size_t) (b->yy_buf_size + 2) ); if ( ! b->yy_ch_buf ) YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" ); b->yy_is_our_buffer = 1; - yy_init_buffer(b,file ); + yy_init_buffer( b, file ); return b; } @@ -2587,15 +2590,11 @@ static void yy_load_buffer_state (void) YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0; if ( b->yy_is_our_buffer ) - yyfree((void *) b->yy_ch_buf ); + yyfree( (void *) b->yy_ch_buf ); - yyfree((void *) b ); + yyfree( (void *) b ); } -#ifndef __cplusplus -extern int isatty (int ); -#endif /* __cplusplus */ - /* Initializes or reinitializes a buffer. * This function is sometimes called more than once on the same buffer, * such as during a yyrestart() or at EOF. @@ -2605,7 +2604,7 @@ extern int isatty (int ); { int oerrno = errno; - yy_flush_buffer(b ); + yy_flush_buffer( b ); b->yy_input_file = file; b->yy_fill_buffer = 1; @@ -2648,7 +2647,7 @@ extern int isatty (int ); b->yy_buffer_status = YY_BUFFER_NEW; if ( b == YY_CURRENT_BUFFER ) - yy_load_buffer_state( ); + yy_load_buffer_state( ); } /** Pushes the new state onto the stack. The new state becomes @@ -2679,7 +2678,7 @@ void yypush_buffer_state (YY_BUFFER_STATE new_buffer ) YY_CURRENT_BUFFER_LVALUE = new_buffer; /* copied from yy_switch_to_buffer. */ - yy_load_buffer_state( ); + yy_load_buffer_state( ); (yy_did_buffer_switch_on_eof) = 1; } @@ -2698,7 +2697,7 @@ void yypop_buffer_state (void) --(yy_buffer_stack_top); if (YY_CURRENT_BUFFER) { - yy_load_buffer_state( ); + yy_load_buffer_state( ); (yy_did_buffer_switch_on_eof) = 1; } } @@ -2708,7 +2707,7 @@ void yypop_buffer_state (void) */ static void yyensure_buffer_stack (void) { - int num_to_alloc; + yy_size_t num_to_alloc; if (!(yy_buffer_stack)) { @@ -2716,15 +2715,15 @@ static void yyensure_buffer_stack (void) * scanner will even need a stack. We use 2 instead of 1 to avoid an * immediate realloc on the next call. */ - num_to_alloc = 1; + num_to_alloc = 1; /* After all that talk, this was set to 1 anyways... */ (yy_buffer_stack) = (struct yy_buffer_state**)yyalloc (num_to_alloc * sizeof(struct yy_buffer_state*) ); if ( ! (yy_buffer_stack) ) YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" ); - + memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*)); - + (yy_buffer_stack_max) = num_to_alloc; (yy_buffer_stack_top) = 0; return; @@ -2733,7 +2732,7 @@ static void yyensure_buffer_stack (void) if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){ /* Increase the buffer to prepare for a possible push. */ - int grow_size = 8 /* arbitrary grow size */; + yy_size_t grow_size = 8 /* arbitrary grow size */; num_to_alloc = (yy_buffer_stack_max) + grow_size; (yy_buffer_stack) = (struct yy_buffer_state**)yyrealloc @@ -2753,7 +2752,7 @@ static void yyensure_buffer_stack (void) * @param base the character buffer * @param size the size in bytes of the character buffer * - * @return the newly allocated buffer state object. + * @return the newly allocated buffer state object. */ YY_BUFFER_STATE yy_scan_buffer (char * base, yy_size_t size ) { @@ -2763,23 +2762,23 @@ YY_BUFFER_STATE yy_scan_buffer (char * base, yy_size_t size ) base[size-2] != YY_END_OF_BUFFER_CHAR || base[size-1] != YY_END_OF_BUFFER_CHAR ) /* They forgot to leave room for the EOB's. */ - return 0; + return NULL; - b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state ) ); + b = (YY_BUFFER_STATE) yyalloc( sizeof( struct yy_buffer_state ) ); if ( ! b ) YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" ); - b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */ + b->yy_buf_size = (int) (size - 2); /* "- 2" to take care of EOB's */ b->yy_buf_pos = b->yy_ch_buf = base; b->yy_is_our_buffer = 0; - b->yy_input_file = 0; + b->yy_input_file = NULL; b->yy_n_chars = b->yy_buf_size; b->yy_is_interactive = 0; b->yy_at_bol = 1; b->yy_fill_buffer = 0; b->yy_buffer_status = YY_BUFFER_NEW; - yy_switch_to_buffer(b ); + yy_switch_to_buffer( b ); return b; } @@ -2792,10 +2791,10 @@ YY_BUFFER_STATE yy_scan_buffer (char * base, yy_size_t size ) * @note If you want to scan bytes that may contain NUL values, then use * yy_scan_bytes() instead. */ -YY_BUFFER_STATE yy_scan_string (yyconst char * yystr ) +YY_BUFFER_STATE yy_scan_string (const char * yystr ) { - return yy_scan_bytes(yystr,strlen(yystr) ); + return yy_scan_bytes( yystr, (int) strlen(yystr) ); } /** Setup the input buffer state to scan the given bytes. The next call to yylex() will @@ -2805,7 +2804,7 @@ YY_BUFFER_STATE yy_scan_string (yyconst char * yystr ) * * @return the newly allocated buffer state object. */ -YY_BUFFER_STATE yy_scan_bytes (yyconst char * yybytes, int _yybytes_len ) +YY_BUFFER_STATE yy_scan_bytes (const char * yybytes, int _yybytes_len ) { YY_BUFFER_STATE b; char *buf; @@ -2813,8 +2812,8 @@ YY_BUFFER_STATE yy_scan_bytes (yyconst char * yybytes, int _yybytes_len ) int i; /* Get memory for full buffer, including space for trailing EOB's. */ - n = _yybytes_len + 2; - buf = (char *) yyalloc(n ); + n = (yy_size_t) (_yybytes_len + 2); + buf = (char *) yyalloc( n ); if ( ! buf ) YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" ); @@ -2823,7 +2822,7 @@ YY_BUFFER_STATE yy_scan_bytes (yyconst char * yybytes, int _yybytes_len ) buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR; - b = yy_scan_buffer(buf,n ); + b = yy_scan_buffer( buf, n ); if ( ! b ) YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" ); @@ -2839,9 +2838,9 @@ YY_BUFFER_STATE yy_scan_bytes (yyconst char * yybytes, int _yybytes_len ) #define YY_EXIT_FAILURE 2 #endif -static void yy_fatal_error (yyconst char* msg ) +static void yynoreturn yy_fatal_error (const char* msg ) { - (void) fprintf( stderr, "%s\n", msg ); + fprintf( stderr, "%s\n", msg ); exit( YY_EXIT_FAILURE ); } @@ -2869,7 +2868,7 @@ static void yy_fatal_error (yyconst char* msg ) */ int yyget_lineno (void) { - + return yylineno; } @@ -2907,29 +2906,29 @@ char *yyget_text (void) } /** Set the current line number. - * @param line_number + * @param _line_number line number * */ -void yyset_lineno (int line_number ) +void yyset_lineno (int _line_number ) { - yylineno = line_number; + yylineno = _line_number; } /** Set the input stream. This does not discard the current * input buffer. - * @param in_str A readable stream. + * @param _in_str A readable stream. * * @see yy_switch_to_buffer */ -void yyset_in (FILE * in_str ) +void yyset_in (FILE * _in_str ) { - yyin = in_str ; + yyin = _in_str ; } -void yyset_out (FILE * out_str ) +void yyset_out (FILE * _out_str ) { - yyout = out_str ; + yyout = _out_str ; } int yyget_debug (void) @@ -2937,9 +2936,9 @@ int yyget_debug (void) return yy_flex_debug; } -void yyset_debug (int bdebug ) +void yyset_debug (int _bdebug ) { - yy_flex_debug = bdebug ; + yy_flex_debug = _bdebug ; } static int yy_init_globals (void) @@ -2948,10 +2947,10 @@ static int yy_init_globals (void) * This function is called from yylex_destroy(), so don't allocate here. */ - (yy_buffer_stack) = 0; + (yy_buffer_stack) = NULL; (yy_buffer_stack_top) = 0; (yy_buffer_stack_max) = 0; - (yy_c_buf_p) = (char *) 0; + (yy_c_buf_p) = NULL; (yy_init) = 0; (yy_start) = 0; @@ -2965,8 +2964,8 @@ static int yy_init_globals (void) yyin = stdin; yyout = stdout; #else - yyin = (FILE *) 0; - yyout = (FILE *) 0; + yyin = NULL; + yyout = NULL; #endif /* For future reference: Set errno on error, since we are called by @@ -2981,7 +2980,7 @@ int yylex_destroy (void) /* Pop the buffer stack, destroying each element. */ while(YY_CURRENT_BUFFER){ - yy_delete_buffer(YY_CURRENT_BUFFER ); + yy_delete_buffer( YY_CURRENT_BUFFER ); YY_CURRENT_BUFFER_LVALUE = NULL; yypop_buffer_state(); } @@ -3005,18 +3004,19 @@ int yylex_destroy (void) */ #ifndef yytext_ptr -static void yy_flex_strncpy (char* s1, yyconst char * s2, int n ) +static void yy_flex_strncpy (char* s1, const char * s2, int n ) { - register int i; + + int i; for ( i = 0; i < n; ++i ) s1[i] = s2[i]; } #endif #ifdef YY_NEED_STRLEN -static int yy_flex_strlen (yyconst char * s ) +static int yy_flex_strlen (const char * s ) { - register int n; + int n; for ( n = 0; s[n]; ++n ) ; @@ -3026,11 +3026,12 @@ static int yy_flex_strlen (yyconst char * s ) void *yyalloc (yy_size_t size ) { - return (void *) malloc( size ); + return malloc(size); } void *yyrealloc (void * ptr, yy_size_t size ) { + /* The cast to (char *) in the following accommodates both * implementations that use char* generic pointers, and those * that use void* generic pointers. It works with the latter @@ -3038,18 +3039,17 @@ void *yyrealloc (void * ptr, yy_size_t size ) * any pointer type to void*, and deal with argument conversions * as though doing an assignment. */ - return (void *) realloc( (char *) ptr, size ); + return realloc(ptr, size); } void yyfree (void * ptr ) { - free( (char *) ptr ); /* see yyrealloc() for (char *) cast */ + free( (char *) ptr ); /* see yyrealloc() for (char *) cast */ } #define YYTABLES_NAME "yytables" -#line 744 "scan.l" - +#line 745 "scan.l" int yylex YY_PROTO((void)) diff --git a/compiler/scan.o b/compiler/scan.o index c71c2ac..e713dcf 100644 Binary files a/compiler/scan.o and b/compiler/scan.o differ diff --git a/config.cache b/config.cache index 81d18d6..ef65fc5 100644 --- a/config.cache +++ b/config.cache @@ -12,46 +12,47 @@ # config.status only pays attention to the cache file if you give it the # --recheck option to rerun configure. # -ac_cv_c_const=${ac_cv_c_const=yes} -ac_cv_func_memcmp_clean=${ac_cv_func_memcmp_clean=yes} -ac_cv_func_putenv=${ac_cv_func_putenv=yes} -ac_cv_func_strcspn=${ac_cv_func_strcspn=yes} -ac_cv_func_strdup=${ac_cv_func_strdup=yes} -ac_cv_func_strerror=${ac_cv_func_strerror=yes} -ac_cv_func_strspn=${ac_cv_func_strspn=yes} -ac_cv_func_vprintf=${ac_cv_func_vprintf=yes} -ac_cv_header_alloca_h=${ac_cv_header_alloca_h=yes} -ac_cv_header_ctype_h=${ac_cv_header_ctype_h=yes} -ac_cv_header_db4_db_185_h=${ac_cv_header_db4_db_185_h=yes} -ac_cv_header_errno_h=${ac_cv_header_errno_h=yes} -ac_cv_header_fcntl_h=${ac_cv_header_fcntl_h=yes} -ac_cv_header_getopt_h=${ac_cv_header_getopt_h=yes} -ac_cv_header_limits_h=${ac_cv_header_limits_h=yes} -ac_cv_header_malloc_h=${ac_cv_header_malloc_h=yes} -ac_cv_header_ncurses_h=${ac_cv_header_ncurses_h=yes} -ac_cv_header_stdc=${ac_cv_header_stdc=yes} -ac_cv_header_stdio_h=${ac_cv_header_stdio_h=yes} -ac_cv_header_stdlib_h=${ac_cv_header_stdlib_h=yes} -ac_cv_header_string_h=${ac_cv_header_string_h=yes} -ac_cv_header_strings_h=${ac_cv_header_strings_h=yes} -ac_cv_header_sys_stat_h=${ac_cv_header_sys_stat_h=yes} -ac_cv_header_sys_time_h=${ac_cv_header_sys_time_h=yes} -ac_cv_header_sys_types_h=${ac_cv_header_sys_types_h=yes} -ac_cv_header_unistd_h=${ac_cv_header_unistd_h=yes} -ac_cv_header_utime_h=${ac_cv_header_utime_h=yes} -ac_cv_lib_m_asin=${ac_cv_lib_m_asin=yes} -ac_cv_lib_ncurses_addch=${ac_cv_lib_ncurses_addch=yes} -ac_cv_path_expand_cmd_path=${ac_cv_path_expand_cmd_path=/usr/bin/expand} +ac_cv_c_const=${ac_cv_c_const='yes'} +ac_cv_func_memcmp_clean=${ac_cv_func_memcmp_clean='yes'} +ac_cv_func_putenv=${ac_cv_func_putenv='yes'} +ac_cv_func_strcspn=${ac_cv_func_strcspn='yes'} +ac_cv_func_strdup=${ac_cv_func_strdup='yes'} +ac_cv_func_strerror=${ac_cv_func_strerror='yes'} +ac_cv_func_strspn=${ac_cv_func_strspn='yes'} +ac_cv_func_vprintf=${ac_cv_func_vprintf='yes'} +ac_cv_header_alloca_h=${ac_cv_header_alloca_h='yes'} +ac_cv_header_ctype_h=${ac_cv_header_ctype_h='yes'} +ac_cv_header_db4_db_185_h=${ac_cv_header_db4_db_185_h='yes'} +ac_cv_header_db_185_h=${ac_cv_header_db_185_h='yes'} +ac_cv_header_errno_h=${ac_cv_header_errno_h='yes'} +ac_cv_header_fcntl_h=${ac_cv_header_fcntl_h='yes'} +ac_cv_header_getopt_h=${ac_cv_header_getopt_h='yes'} +ac_cv_header_limits_h=${ac_cv_header_limits_h='yes'} +ac_cv_header_malloc_h=${ac_cv_header_malloc_h='yes'} +ac_cv_header_ncurses_h=${ac_cv_header_ncurses_h='yes'} +ac_cv_header_stdc=${ac_cv_header_stdc='yes'} +ac_cv_header_stdio_h=${ac_cv_header_stdio_h='yes'} +ac_cv_header_stdlib_h=${ac_cv_header_stdlib_h='yes'} +ac_cv_header_string_h=${ac_cv_header_string_h='yes'} +ac_cv_header_strings_h=${ac_cv_header_strings_h='yes'} +ac_cv_header_sys_stat_h=${ac_cv_header_sys_stat_h='yes'} +ac_cv_header_sys_time_h=${ac_cv_header_sys_time_h='yes'} +ac_cv_header_sys_types_h=${ac_cv_header_sys_types_h='yes'} +ac_cv_header_unistd_h=${ac_cv_header_unistd_h='yes'} +ac_cv_header_utime_h=${ac_cv_header_utime_h='yes'} +ac_cv_lib_m_asin=${ac_cv_lib_m_asin='yes'} +ac_cv_lib_ncurses_addch=${ac_cv_lib_ncurses_addch='yes'} +ac_cv_path_expand_cmd_path=${ac_cv_path_expand_cmd_path='/usr/bin/expand'} ac_cv_path_install=${ac_cv_path_install='/usr/bin/install -c'} -ac_cv_prog_AR=${ac_cv_prog_AR=ar} -ac_cv_prog_AS=${ac_cv_prog_AS=as} -ac_cv_prog_CC=${ac_cv_prog_CC=gcc} +ac_cv_prog_AR=${ac_cv_prog_AR='ar'} +ac_cv_prog_AS=${ac_cv_prog_AS='as'} +ac_cv_prog_CC=${ac_cv_prog_CC='gcc'} ac_cv_prog_CPP=${ac_cv_prog_CPP='gcc -E'} -ac_cv_prog_FLEX=${ac_cv_prog_FLEX=flex} +ac_cv_prog_FLEX=${ac_cv_prog_FLEX='flex'} ac_cv_prog_LN_S=${ac_cv_prog_LN_S='ln -s'} -ac_cv_prog_RANLIB=${ac_cv_prog_RANLIB=ranlib} -ac_cv_prog_YACC=${ac_cv_prog_YACC=bison} -ac_cv_prog_make_make_set=${ac_cv_prog_make_make_set=yes} -ac_cv_struct_tm=${ac_cv_struct_tm=time.h} -ac_cv_type_off_t=${ac_cv_type_off_t=yes} -ac_cv_type_size_t=${ac_cv_type_size_t=yes} +ac_cv_prog_RANLIB=${ac_cv_prog_RANLIB='ranlib'} +ac_cv_prog_YACC=${ac_cv_prog_YACC='bison'} +ac_cv_prog_make_make_set=${ac_cv_prog_make_make_set='yes'} +ac_cv_struct_tm=${ac_cv_struct_tm='time.h'} +ac_cv_type_off_t=${ac_cv_type_off_t='yes'} +ac_cv_type_size_t=${ac_cv_type_size_t='yes'} diff --git a/config.log b/config.log index 5afadad..5579ad9 100644 --- a/config.log +++ b/config.log @@ -44,8 +44,8 @@ configure:1741: checking for strerror configure:1741: checking for strspn configure:1741: checking for putenv configure:2013: checking for asin in -lm -configure:2172: checking for db4/db_185.h -configure:2702: gcc -o conftest conftest.c -L/usr/lib -L/usr/local/lib -ldb-4 1>&5 +configure:2218: checking for db_185.h +configure:2734: gcc -o conftest conftest.c -L/usr/lib -L/usr/local/lib -ldb 1>&5 configure:3015: checking for ncurses.h configure:3054: checking for addch in -lncurses configure:3110: checking for color_set in -lncurses diff --git a/config.status b/config.status old mode 100644 new mode 100755 index 89e9c62..a427058 --- a/config.status +++ b/config.status @@ -2,9 +2,9 @@ # Generated automatically by configure. # Run this file to recreate the current configuration. # This directory was configured as follows, -# on host Premium.nilo: +# on host nilo-A520: # -# ./configure --with-libdb=4 +# ./configure # # Compiler output produced by configure, useful for debugging # configure, is in ./config.log if it exists. @@ -14,8 +14,8 @@ for ac_option do case "$ac_option" in -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) - echo "running ${CONFIG_SHELL-/bin/sh} ./configure --with-libdb=4 --no-create --no-recursion" - exec ${CONFIG_SHELL-/bin/sh} ./configure --with-libdb=4 --no-create --no-recursion ;; + echo "running ${CONFIG_SHELL-/bin/sh} ./configure --no-create --no-recursion" + exec ${CONFIG_SHELL-/bin/sh} ./configure --no-create --no-recursion ;; -version | --version | --versio | --versi | --vers | --ver | --ve | --v) echo "./config.status generated by autoconf version 2.13" exit 0 ;; @@ -58,20 +58,20 @@ s%@includedir@%${prefix}/include%g s%@oldincludedir@%/usr/include%g s%@infodir@%${prefix}/info%g s%@mandir@%${prefix}/man%g -s%@host@%i686-pc-linux-gnu%g -s%@host_alias@%i686-pc-linux-gnu%g -s%@host_cpu@%i686%g -s%@host_vendor@%pc%g +s%@host@%x86_64-unknown-linux-gnu%g +s%@host_alias@%x86_64-unknown-linux-gnu%g +s%@host_cpu@%x86_64%g +s%@host_vendor@%unknown%g s%@host_os@%linux-gnu%g -s%@target@%i686-pc-linux-gnu%g -s%@target_alias@%i686-pc-linux-gnu%g -s%@target_cpu@%i686%g -s%@target_vendor@%pc%g +s%@target@%x86_64-unknown-linux-gnu%g +s%@target_alias@%x86_64-unknown-linux-gnu%g +s%@target_cpu@%x86_64%g +s%@target_vendor@%unknown%g s%@target_os@%linux-gnu%g -s%@build@%i686-pc-linux-gnu%g -s%@build_alias@%i686-pc-linux-gnu%g -s%@build_cpu@%i686%g -s%@build_vendor@%pc%g +s%@build@%x86_64-unknown-linux-gnu%g +s%@build_alias@%x86_64-unknown-linux-gnu%g +s%@build_cpu@%x86_64%g +s%@build_vendor@%unknown%g s%@build_os@%linux-gnu%g s%@CC@%gcc%g s%@AS@%as%g @@ -89,7 +89,7 @@ s%@CPP@%gcc -E%g s%@LIBOBJS@%%g s%@LEX@%flex%g s%@INCLUDES@%-I/usr/include -I/usr/local/include -I../lib -I../%g -s%@CCXFLAGS@%%g +s%@CCXFLAGS@%-fcommon%g s%@ACXFLAGS@%-as%g s%@exeext@%%g s%@cobbin_default@%${prefix}/bin%g @@ -100,11 +100,11 @@ s%@cobcpy_default@%${prefix}/share/htcobol/copybooks%g s%@yacc_prefix_cobpp@%parser%g s%@yacc_prefix_compiler@%htcobol%g s%@TCOB_MAJOR_VERSION@%0%g -s%@TCOB_MINOR_VERSION@%73%g +s%@TCOB_MINOR_VERSION@%74%g s%@TCOB_PATCH_LEVEL@%0%g -s%@TCOB_VERSION@%0.73.0%g -s%@TCOB_RELEASE_DATE@%2011/10/29%g -s%@tcob_version@%0.73.0%g +s%@TCOB_VERSION@%0.74.0%g +s%@TCOB_RELEASE_DATE@%2026/07/17%g +s%@tcob_version@%0.74.0%g s%@TCOBPP_MAJOR_VERSION@%0%g s%@TCOBPP_MINOR_VERSION@%41%g s%@TCOBPP_PATCH_LEVEL@%3%g @@ -112,7 +112,7 @@ s%@TCOBPP_VERSION@%0.41.3%g s%@TCOBPP_RELEASE_DATE@%2004/09/25%g s%@tcobpp_version@%0.41.3%g s%@htg_ld_args_m@%-lm%g -s%@htg_ld_args_db@%-ldb-4%g +s%@htg_ld_args_db@%-ldb%g s%@asx_cmd@%as%g s%@ccx_cmd@%gcc%g s%@ranlibx_cmd@%ranlib%g @@ -346,18 +346,18 @@ ${ac_eA}HAVE_STRSPN${ac_eB}HAVE_STRSPN${ac_eC}1${ac_eD} ${ac_dA}HAVE_PUTENV${ac_dB}HAVE_PUTENV${ac_dC}1${ac_dD} ${ac_uA}HAVE_PUTENV${ac_uB}HAVE_PUTENV${ac_uC}1${ac_uD} ${ac_eA}HAVE_PUTENV${ac_eB}HAVE_PUTENV${ac_eC}1${ac_eD} -${ac_dA}HAVE_DB4_DB_185_H${ac_dB}HAVE_DB4_DB_185_H${ac_dC}1${ac_dD} -${ac_uA}HAVE_DB4_DB_185_H${ac_uB}HAVE_DB4_DB_185_H${ac_uC}1${ac_uD} -${ac_eA}HAVE_DB4_DB_185_H${ac_eB}HAVE_DB4_DB_185_H${ac_eC}1${ac_eD} +${ac_dA}HAVE_DB_185_H${ac_dB}HAVE_DB_185_H${ac_dC}1${ac_dD} +${ac_uA}HAVE_DB_185_H${ac_uB}HAVE_DB_185_H${ac_uC}1${ac_uD} +${ac_eA}HAVE_DB_185_H${ac_eB}HAVE_DB_185_H${ac_eC}1${ac_eD} CEOF sed -f conftest.frag conftest.in > conftest.out rm -f conftest.in mv conftest.out conftest.in cat > conftest.frag < conftest.out diff --git a/configure b/configure old mode 100644 new mode 100755 index 9aa4e34..481abb2 --- a/configure +++ b/configure @@ -2000,7 +2000,7 @@ if test "${debug_default}" = "1"; then ACXFLAGS="-D -as" else # CCXFLAGS="-O2" - CCXFLAGS="" + CCXFLAGS="-fcommon" ACXFLAGS="-as" fi diff --git a/htconfig.h b/htconfig.h index b5ae538..ea35489 100644 --- a/htconfig.h +++ b/htconfig.h @@ -25,18 +25,36 @@ /* Define if you have the header file. */ #define HAVE_CTYPE_H 1 +/* Define if you have the header file. */ +#define HAVE_SYS_STAT_H 1 + +/* Define if you have the header file. */ +#define HAVE_SYS_TYPES_H 1 + +/* Define if you have the header file. */ +#define HAVE_GETOPT_H 1 + /* Define if you have the header file. */ #define HAVE_STDIO_H 1 +/* Define if you have the header file. */ +#define HAVE_ALLOCA_H 1 + +/* Define if you have the header file. */ +#define HAVE_ERRNO_H 1 + /* Define if you have the header file. */ #define HAVE_STDLIB_H 1 /* Define if you have the header file. */ -/* #undef HAVE_STRINGS_H */ +#define HAVE_STRINGS_H 1 /* Define if you have the header file. */ #define HAVE_STRING_H 1 +/* Define if your declares header file.. */ +#define HAVE_UTIME_H 1 + /* Define if your declares struct tm. */ /* #undef TM_IN_SYS_TIME */ @@ -67,8 +85,8 @@ /* Define if you have the header file. */ #define HAVE_UNISTD_H 1 -/* Define if you have the header file. */ -#define HAVE_LIMITS_H 1 +/* Define if you have the header file. */ +#define HAVE_NCURSES_H 1 /* Define if your system has a working `malloc' function. */ /* #undef HAVE_MALLOC */ @@ -107,10 +125,10 @@ Version 2.xx, 3.yy (xx > 0) are named -ldb or -ldb2. */ /* Define if you have the db library header db.h version 1.x. */ -#define USE_DB 1 +/* #undef USE_DB */ /* Define if you have the db library header db_185.h version 2.x or 3.x. */ -/* #undef USE_DB_23 */ +#define USE_DB_23 1 /* Define if you have the db library header db_185.h version 4.x. */ /* #undef USE_DB_41 */ @@ -134,21 +152,29 @@ Version 2.xx, 3.yy (xx > 0) are named -ldb or -ldb2. /* #undef USE_MF_COMPATABILITY */ #define USE_MF_COMPATABILITY 1 +/* Set MYSQL gateway features on */ +/* #undef USE_MYSQL_GATEWAY */ +/* #undef SQL_GATEWAY */ + +/* Set PGSQL gateway features on */ +/* #undef USE_PGSQL_GATEWAY */ +/* #undef SQL_GATEWAY */ + /* Enable file LOCK server feature */ -/* #undef USE_LOCKSERVER */ +/* #undef USE_LOCKSERVER */ /* Enable file SYNC feature */ /* #undef USE_SYNC */ /* Define DB library name (default -ldb) */ -#define HTG_LD_ARGS_DB "-ldb" +#define HTG_LD_ARGS_DB "-ldb" /* Define if you have the curses library. */ #define HAVE_LIBCURSES 1 -#define HTG_LD_ARGS_CURSES "-lpdcurses" +#define HTG_LD_ARGS_CURSES "-lncurses" /* Define if you the curses library with color_set function. */ -/* #undef CURSES_HAS_COLOR_SET */ +#define CURSES_HAS_COLOR_SET 1 /* Define if you have the dl library (-ldl). */ /* Set run time library loading feature. */ @@ -173,7 +199,7 @@ Version 2.xx, 3.yy (xx > 0) are named -ldb or -ldb2. /* #undef DEBUG_RTS */ /* Set debugging in run time library move routines feature. */ -/* #undef DEBUG_MOVE_RTS */ +//#undef DEBUG_MOVE_RTS /* Set debugging run time library feature. */ /* #undef PICTURE_TESTING */ @@ -198,53 +224,49 @@ Version 2.xx, 3.yy (xx > 0) are named -ldb or -ldb2. /* Define language option for commnad line help */ #define TCOBPP_LANGUAGE_en 1 -#define TCOB_LANGUAGE_en 1 -/* #undef TCOBPP_LANGUAGE_en */ -/* #undef TCOBPP_LANGUAGE_en */ /* #undef TCOBPP_LANGUAGE_fr */ /* #undef TCOBPP_LANGUAGE_it */ /* #undef TCOBPP_LANGUAGE_pt_BR */ /* #undef TCOBPP_LANGUAGE_es */ -/* #undef TCOB_LANGUAGE_en */ -/* #undef TCOB_LANGUAGE_en */ +#define TCOB_LANGUAGE_en 1 /* #undef TCOB_LANGUAGE_fr */ /* #undef TCOB_LANGUAGE_it */ /* #undef TCOB_LANGUAGE_pt_BR */ /* #undef TCOB_LANGUAGE_es */ /* Default compile and run-time resource (options) directory name */ -#define COBDIR_DEFAULT "C:/TinyCOBOL" +#define COBDIR_DEFAULT "/usr/local/share/htcobol" /* Default resource (options) paths */ #define OPTFILE_DEFAULT "htcobolrc" -#define OPTFILE_PATH "C:/TinyCOBOL/htcobolrc" +#define OPTFILE_PATH COBDIR_DEFAULT"/"OPTFILE_DEFAULT /* Default run-time resource (options) paths */ #define RTOPTFILE_DEFAULT "htrtconf" /* Default binary path */ -#define COBBIN_DEFAULT "C:/TinyCOBOL" +#define COBBIN_DEFAULT "/usr/local/bin" /* Default install lib path */ -#define COBLIB_DEFAULT "C:/TinyCOBOL" +#define COBLIB_DEFAULT "/usr/local/lib" /* Set the expand command path */ -#define COBPP_EXPAND_CMD_PATH "expand.exe" +#define COBPP_EXPAND_CMD_PATH "/usr/bin/expand" /* Set the GCC command */ -#define TCOB_CCX_CMD "gcc.exe" +#define TCOB_CCX_CMD "gcc" /* Set the GAS command */ -#define TCOB_ASX_CMD "as.exe" +#define TCOB_ASX_CMD "as" /* Default search lib paths */ -#define HTG_LD_PATHS_DEFAULT "-L/usr/lib -L/usr/local/lib -LC:/TinyCOBOL/lib" +#define HTG_LD_PATHS_DEFAULT "-L/usr/lib -L/usr/local/lib -L../../lib" /* Default linker args */ -#define HTG_LD_ARGS_DEFAULT "-lhtcobol -ldb -lpdcurses -lm" +#define HTG_LD_ARGS_DEFAULT "-lhtcobol -ldb -lncurses -lm" /* Name of package */ -/* #define PACKAGE "TinyCOBOL" */ +#define PACKAGE "TinyCOBOL" diff --git a/lib/Makefile b/lib/Makefile index 1273b48..2b599c0 100644 --- a/lib/Makefile +++ b/lib/Makefile @@ -12,69 +12,61 @@ exec_prefix=${prefix} # CCX=gcc ASM=as -INCLUDES=-I/usr/include -I/usr/local/include -I../lib -I.. -#CCXFLAGS=${INCLUDES} -g -Wall -#CCXFLAGS1=${INCLUDES} -g -Wall -CCXFLAGS=${INCLUDES} -Wall -CCXFLAGS1=${INCLUDES} -Wall -ACXFLAGS=-D -as - -WRES=windres -WRESFLAGS=-O coff +INCLUDES=-I/usr/include -I/usr/local/include -I../lib -I../ -I/usr/include/mysql +CCXFLAGS=${INCLUDES} -fcommon -Wall -ggdb +CCXFLAGS1=${INCLUDES} -fcommon -Wall -fPIC -ggdb +ACXFLAGS=-as RANLIB=ranlib AR=ar -#lib_dir=${prefix}/lib -lib_dir=C:/TinyCOBOL - -#INSTRC=${prefix}/share/htcobol -INSTRC=${lib_dir} +INSTRC=${prefix}/share/htcobol RCFILE=htrtconf -#INSTALL=/usr/bin/install -c -INSTALL=install.exe -#INSTALL_DATA=${INSTALL} -m 644 -INSTALL_DATA=${INSTALL} +INSTALL=/usr/bin/install -c +INSTALL_DATA=${INSTALL} -m 644 -MV = mv -f -RM = rm -f -LNK = ln -sf +MV = mv -f +RM = rm -f MKDIR = mkdir -p +LNK = ln -sf +GREP = grep -v MAKEDEPEND=@MAKEDEPEND@ -# -#LIBS=-L/usr/local/lib -lm -ldb -lpdcurses -LIBS=-L/usr/local/lib -L/c/mingw/lib -lm -ldb -lpdcurses +LIBS=-ldl -lm -ldb -lncurses -L/usr/lib/mysql -L/usr/lib + # # Default install directory is set in htconfig.h # +lib_dir=${prefix}/lib -lib_version=0.73.0 +lib_version=0.74.0 lib_name1=htcobol +#lib_name2=htcobol2 STATIC_LIB1=lib${lib_name1}.a -SHARED_LIB1=${lib_name1}.dll -SHARED_LIB1A=${lib_name1}.dll.a -#SHARED_LIB1=lib${lib_name2}.dll +#STATIC_LIB2=lib${lib_name2}.a +SHARED_LIB1=lib${lib_name1}.so.${lib_version} +#SHARED_LIB2=lib${lib_name2}.so.${lib_version} -SRC1 = mcmath.c cobmove.c general.c fileio.c flckclient.c \ +SRC1 = mcmath.c general.c fileio.c \ pictures.c basicio.c strings.c screenio.c \ - cobmove_9_.c cobmove_b_.c cobmove_c_.c cobmove_e_.c \ - cobmove_f_.c cobmove_x_.c rterrors.c scr_curses.c intrinsic.c \ - dyncall.c config.c -# dycall.c config.c -# dyncall.c ltdl.c config.c -# dyncall.c + cobmove.c cobmove_f_.c cobmove_x_.c cobmove_e_.c \ + cobmove_9_.c cobmove_b_.c cobmove_c_.c \ + rterrors.c scr_curses.c intrinsic.c \ + dyncall.c flckclient.c config.c screen.c -SRC2 = htcobolrt.rc +#SRC2 = dyncall.c +#SRC2 = dyncall_ltdl.c ltdl.c OBJS1 = $(SRC1:.c=.o) -OBJS2 = $(SRC2:.rc=.o) + +#OBJS2 = $(SRC2:.c=.o) OBJD1 = $(SRC1:.c=.lo) -OBJD2 = $(SRC2:.rc=.lo) + +#OBJD2 = $(SRC2:.c=.lo) # # Rules for compiling .c .s sources @@ -101,17 +93,14 @@ OBJD2 = $(SRC2:.rc=.lo) # be used, since gdb will not work properly with shared libraries. # -all: static-libs -devel: static-libs shared-libs +all: static-libs shared-libs +#all: shared-libs +#all: static-libs +devel: static-libs -static-libs: ${STATIC_LIB1} -shared-libs: ${SHARED_LIB1} +static-libs: ${STATIC_LIB1} # ${STATIC_LIB2} - -# Rules for building the DLL resources -# -htcobolrt.o: htcobolrt.rc - $(WRES) $(WRESFLAGS) $< $@ +shared-libs: ${SHARED_LIB1} # ${SHARED_LIB2} # Rules for building the static library # @@ -119,30 +108,43 @@ ${STATIC_LIB1}: ${OBJS1} ${AR} cr ${STATIC_LIB1} ${OBJS1} ${RANLIB} ${STATIC_LIB1} +${STATIC_LIB2}: ${OBJS2} + ${AR} cr ${STATIC_LIB2} ${OBJS2} + ${RANLIB} ${STATIC_LIB2} # Rules for building the shared library # -${SHARED_LIB1}: ${OBJS1} $(OBJS2) - ${CCX} -shared -Wl,--out-implib,${lib_name1}.dll.a,--output-def,${lib_name1}.def -o ${SHARED_LIB1} $(OBJS1) $(OBJS2) ${LIBS} +${SHARED_LIB1}: ${OBJD1} + ${CCX} -shared -Wl,-soname,lib${lib_name1}.so.0 -o ${SHARED_LIB1} $(OBJD1) ${LIBS} + ${LNK} $(SHARED_LIB1) lib$(lib_name1).so.0 + ${LNK} $(SHARED_LIB1) lib$(lib_name1).so + +${SHARED_LIB2}: ${OBJD2} + ${CCX} -shared -Wl,-soname,lib${lib_name2}.so.0 -o ${SHARED_LIB2} $(OBJD2) ${LIBS} + ${LNK} $(SHARED_LIB2) lib$(lib_name2).so.0 + ${LNK} $(SHARED_LIB2) lib$(lib_name2).so clean: - @${RM} ${OBJS} ${STATIC_LIB1} \ - ${SHARED_LIB1} ${SHARED_LIB1}.a \ - core *.bak *.o *.lo + @${RM} ${OBJS} ${OBJD} ${STATIC_LIB1} ${STATIC_LIB2} \ + lib$(lib_name1).so* lib$(lib_name2).so* \ + core *.bak *.txt *.o *.lo -install: install-dir install-static install-shared install-rts-config +install: install-static install-shared install-rts-config: -# $(MKDIR) $(INSTRC) + $(MKDIR) $(INSTRC) ${INSTALL_DATA} $(RCFILE) $(INSTRC)/$(RCFILE) -install-static: ${STATIC_LIB1} -# ${INSTALL_DATA} ${STATIC_LIB1} ${lib_dir}/${STATIC_LIB1} +#install-static: ${STATIC_LIB1} # ${STATIC_LIB2} +install-static: ${STATIC_LIB1} install-rts-config + ${INSTALL_DATA} ${STATIC_LIB1} ${lib_dir}/${STATIC_LIB1} +# ${INSTALL_DATA} ${STATIC_LIB2} ${lib_dir}/${STATIC_LIB2} -install-shared: ${SHARED_LIB1} +#install-shared: ${SHARED_LIB1} # ${SHARED_LIB2} +install-shared: ${SHARED_LIB1} install-rts-config ${INSTALL_DATA} ${SHARED_LIB1} ${lib_dir}/${SHARED_LIB1} -# ${INSTALL_DATA} ${SHARED_LIB1A} ${lib_dir}/${SHARED_LIB1A} - -install-dir: - $(MKDIR) $(INSTRC) - +# ${INSTALL_DATA} ${SHARED_LIB2} ${lib_dir}/${SHARED_LIB2} + ${LNK} ${lib_dir}/$(SHARED_LIB1) ${lib_dir}/lib$(lib_name1).so +# ${LNK} ${lib_dir}/$(SHARED_LIB2) ${lib_dir}/lib$(lib_name2).so + ${LNK} ${lib_dir}/$(SHARED_LIB1) ${lib_dir}/lib$(lib_name1).so.0 +# ${LNK} ${lib_dir}/$(SHARED_LIB2) ${lib_dir}/lib$(lib_name2).so.0 diff --git a/lib/basicio.lo b/lib/basicio.lo new file mode 100644 index 0000000..5757ced Binary files /dev/null and b/lib/basicio.lo differ diff --git a/lib/basicio.o b/lib/basicio.o index 5730a08..ebdcb98 100644 Binary files a/lib/basicio.o and b/lib/basicio.o differ diff --git a/lib/cobmove.lo b/lib/cobmove.lo new file mode 100644 index 0000000..d469bda Binary files /dev/null and b/lib/cobmove.lo differ diff --git a/lib/cobmove.o b/lib/cobmove.o index de5155c..da661ab 100644 Binary files a/lib/cobmove.o and b/lib/cobmove.o differ diff --git a/lib/cobmove_9_.lo b/lib/cobmove_9_.lo new file mode 100644 index 0000000..f5e72a3 Binary files /dev/null and b/lib/cobmove_9_.lo differ diff --git a/lib/cobmove_9_.o b/lib/cobmove_9_.o index 3758e77..bcce705 100644 Binary files a/lib/cobmove_9_.o and b/lib/cobmove_9_.o differ diff --git a/lib/cobmove_b_.lo b/lib/cobmove_b_.lo new file mode 100644 index 0000000..6a6352f Binary files /dev/null and b/lib/cobmove_b_.lo differ diff --git a/lib/cobmove_b_.o b/lib/cobmove_b_.o index fe1834c..dfa5064 100644 Binary files a/lib/cobmove_b_.o and b/lib/cobmove_b_.o differ diff --git a/lib/cobmove_c_.lo b/lib/cobmove_c_.lo new file mode 100644 index 0000000..952c1b7 Binary files /dev/null and b/lib/cobmove_c_.lo differ diff --git a/lib/cobmove_c_.o b/lib/cobmove_c_.o index bc114e3..7356e0d 100644 Binary files a/lib/cobmove_c_.o and b/lib/cobmove_c_.o differ diff --git a/lib/cobmove_e_.lo b/lib/cobmove_e_.lo new file mode 100644 index 0000000..b46fa8a Binary files /dev/null and b/lib/cobmove_e_.lo differ diff --git a/lib/cobmove_e_.o b/lib/cobmove_e_.o index 94c1041..b7606d6 100644 Binary files a/lib/cobmove_e_.o and b/lib/cobmove_e_.o differ diff --git a/lib/cobmove_f_.lo b/lib/cobmove_f_.lo new file mode 100644 index 0000000..7ec545e Binary files /dev/null and b/lib/cobmove_f_.lo differ diff --git a/lib/cobmove_f_.o b/lib/cobmove_f_.o index 30a7f8b..2830540 100644 Binary files a/lib/cobmove_f_.o and b/lib/cobmove_f_.o differ diff --git a/lib/cobmove_x_.lo b/lib/cobmove_x_.lo new file mode 100644 index 0000000..c50818a Binary files /dev/null and b/lib/cobmove_x_.lo differ diff --git a/lib/cobmove_x_.o b/lib/cobmove_x_.o index 77f2bb0..c947d50 100644 Binary files a/lib/cobmove_x_.o and b/lib/cobmove_x_.o differ diff --git a/lib/config.lo b/lib/config.lo new file mode 100644 index 0000000..5cc7d02 Binary files /dev/null and b/lib/config.lo differ diff --git a/lib/config.o b/lib/config.o index 0762884..0cf98fc 100644 Binary files a/lib/config.o and b/lib/config.o differ diff --git a/lib/dyncall.lo b/lib/dyncall.lo new file mode 100644 index 0000000..de0e2b0 Binary files /dev/null and b/lib/dyncall.lo differ diff --git a/lib/dyncall.o b/lib/dyncall.o index 5f28a73..71f2655 100644 Binary files a/lib/dyncall.o and b/lib/dyncall.o differ diff --git a/lib/fileio.lo b/lib/fileio.lo new file mode 100644 index 0000000..e841d09 Binary files /dev/null and b/lib/fileio.lo differ diff --git a/lib/fileio.o b/lib/fileio.o index 38a71fc..74ca6c2 100644 Binary files a/lib/fileio.o and b/lib/fileio.o differ diff --git a/lib/flckclient.lo b/lib/flckclient.lo new file mode 100644 index 0000000..e08f515 Binary files /dev/null and b/lib/flckclient.lo differ diff --git a/lib/flckclient.o b/lib/flckclient.o index 1f3fac1..0a622a9 100644 Binary files a/lib/flckclient.o and b/lib/flckclient.o differ diff --git a/lib/general.lo b/lib/general.lo new file mode 100644 index 0000000..0976afa Binary files /dev/null and b/lib/general.lo differ diff --git a/lib/general.o b/lib/general.o index 9d11e5a..ca5b238 100644 Binary files a/lib/general.o and b/lib/general.o differ diff --git a/lib/htcobolrt.o b/lib/htcobolrt.o deleted file mode 100644 index fe163cb..0000000 Binary files a/lib/htcobolrt.o and /dev/null differ diff --git a/lib/intrinsic.lo b/lib/intrinsic.lo new file mode 100644 index 0000000..8edaf1a Binary files /dev/null and b/lib/intrinsic.lo differ diff --git a/lib/intrinsic.o b/lib/intrinsic.o index fcadb41..4ae19c0 100644 Binary files a/lib/intrinsic.o and b/lib/intrinsic.o differ diff --git a/lib/libhtcobol.a b/lib/libhtcobol.a index c495cfc..95a24cc 100644 Binary files a/lib/libhtcobol.a and b/lib/libhtcobol.a differ diff --git a/lib/libhtcobol.so b/lib/libhtcobol.so new file mode 120000 index 0000000..9a8705d --- /dev/null +++ b/lib/libhtcobol.so @@ -0,0 +1 @@ +libhtcobol.so.0.74.0 \ No newline at end of file diff --git a/lib/libhtcobol.so.0 b/lib/libhtcobol.so.0 deleted file mode 100644 index de674ee..0000000 Binary files a/lib/libhtcobol.so.0 and /dev/null differ diff --git a/lib/libhtcobol.so.0 b/lib/libhtcobol.so.0 new file mode 120000 index 0000000..9a8705d --- /dev/null +++ b/lib/libhtcobol.so.0 @@ -0,0 +1 @@ +libhtcobol.so.0.74.0 \ No newline at end of file diff --git a/lib/libhtcobol.so.0.73.0 b/lib/libhtcobol.so.0.73.0 deleted file mode 100644 index 0071ae1..0000000 Binary files a/lib/libhtcobol.so.0.73.0 and /dev/null differ diff --git a/lib/libhtcobol.so.0.74.0 b/lib/libhtcobol.so.0.74.0 new file mode 100755 index 0000000..de03859 Binary files /dev/null and b/lib/libhtcobol.so.0.74.0 differ diff --git a/lib/mcmath.lo b/lib/mcmath.lo new file mode 100644 index 0000000..a3808f3 Binary files /dev/null and b/lib/mcmath.lo differ diff --git a/lib/mcmath.o b/lib/mcmath.o index c6fdfba..0af42be 100644 Binary files a/lib/mcmath.o and b/lib/mcmath.o differ diff --git a/lib/pictures.lo b/lib/pictures.lo new file mode 100644 index 0000000..ec5dcbd Binary files /dev/null and b/lib/pictures.lo differ diff --git a/lib/pictures.o b/lib/pictures.o index d24305e..7716652 100644 Binary files a/lib/pictures.o and b/lib/pictures.o differ diff --git a/lib/rterrors.lo b/lib/rterrors.lo new file mode 100644 index 0000000..2dbe215 Binary files /dev/null and b/lib/rterrors.lo differ diff --git a/lib/rterrors.o b/lib/rterrors.o index c9949b4..7f5a061 100644 Binary files a/lib/rterrors.o and b/lib/rterrors.o differ diff --git a/lib/scr_curses.lo b/lib/scr_curses.lo new file mode 100644 index 0000000..6d3b43c Binary files /dev/null and b/lib/scr_curses.lo differ diff --git a/lib/scr_curses.o b/lib/scr_curses.o index 23921d9..c61515a 100644 Binary files a/lib/scr_curses.o and b/lib/scr_curses.o differ diff --git a/lib/screen.lo b/lib/screen.lo new file mode 100644 index 0000000..75f5f87 Binary files /dev/null and b/lib/screen.lo differ diff --git a/lib/screen.o b/lib/screen.o new file mode 100644 index 0000000..569b5dd Binary files /dev/null and b/lib/screen.o differ diff --git a/lib/screenio.lo b/lib/screenio.lo new file mode 100644 index 0000000..98e44d8 Binary files /dev/null and b/lib/screenio.lo differ diff --git a/lib/screenio.o b/lib/screenio.o index fdbd2b4..4d8645c 100644 Binary files a/lib/screenio.o and b/lib/screenio.o differ diff --git a/lib/strings.lo b/lib/strings.lo new file mode 100644 index 0000000..d5de924 Binary files /dev/null and b/lib/strings.lo differ diff --git a/lib/strings.o b/lib/strings.o index 4c685c1..08ae4a4 100644 Binary files a/lib/strings.o and b/lib/strings.o differ diff --git a/lockserver/Makefile b/lockserver/Makefile index 392e349..e25404e 100644 --- a/lockserver/Makefile +++ b/lockserver/Makefile @@ -23,7 +23,7 @@ RCFILE=hosts # INCLUDES=-I/usr/include -I/usr/local/include -I../lib -I../ -CCXFLAGS=${INCLUDES} -Wall -pedantic -Wno-long-long +CCXFLAGS=${INCLUDES} -fcommon -Wall -pedantic -Wno-long-long LIBS=-L/usr/lib -L/usr/local/lib LDFLAGS= MAKEDEPEND=@MAKEDEPEND@ diff --git a/utils/cobf2f/Makefile b/utils/cobf2f/Makefile index 36e4fb0..8458c9d 100644 --- a/utils/cobf2f/Makefile +++ b/utils/cobf2f/Makefile @@ -21,7 +21,7 @@ INSTBIN=${prefix}/bin # INCLUDES= -I. -I../../ -CCXFLAGS=${INCLUDES} +CCXFLAGS=${INCLUDES} -fcommon LIBS=-L/usr/lib -L/usr/local/lib LDFLAGS= MAKEDEPEND=@MAKEDEPEND@ diff --git a/version.txt b/version.txt index 8fcc59a..b28eb24 100644 --- a/version.txt +++ b/version.txt @@ -1,3 +1,3 @@ TCOB_MAJOR_VERSION=0 -TCOB_MINOR_VERSION=73 +TCOB_MINOR_VERSION=74 TCOB_PATCH_LEVEL=0