Commit | Line | Data |
---|---|---|
7f918cf1 CE |
1 | |
2 | ||
3 | ||
4 | ||
5 | ||
6 | ||
7 | val condition_names:(string list ref) = ref [] | |
8 | ||
9 | ||
10 | ||
11 | (*hojfeld defunctorised*) | |
12 | structure Cobol = struct | |
13 | ||
14 | type pos = unit (*hojfeld*) | |
15 | (* BASIC STUFF *) | |
16 | type ts2k = string | |
17 | ||
18 | datatype figurative_constant = | |
19 | ZERO | |
20 | | ZEROS | |
21 | | ZEROES | |
22 | | SPACE | |
23 | | SPACES | |
24 | | HIGHVALUE | |
25 | | HIGHVALUES | |
26 | | LOWVALUE | |
27 | | LOWVALUES | |
28 | | QUOTE | |
29 | | QUOTES | |
30 | | ALL_ZERO | |
31 | | ALL_ZEROS | |
32 | | ALL_ZEROES | |
33 | | ALL_SPACE | |
34 | | ALL_SPACES | |
35 | | ALL_HIGHVALUE | |
36 | | ALL_HIGHVALUES | |
37 | | ALL_LOWVALUE | |
38 | | ALL_LOWVALUES | |
39 | | ALL_QUOTE | |
40 | | ALL_QUOTES | |
41 | | ALL_NONNUMERICLITERAL of string | |
42 | ||
43 | datatype literal = | |
44 | LITERAL_IS_NONNUMERICLITERAL of string * pos * pos | |
45 | | LITERAL_IS_INTEGER of string * pos * pos | |
46 | | LITERAL_IS_DECIMALNUMBER of string * pos * pos | |
47 | | LITERAL_IS_BOOLEANLITERAL of bool * pos * pos | |
48 | | LITERAL_IS_FIGURATIVECONSTANT of figurative_constant * pos * pos | |
49 | ||
50 | datatype data_name_or_literal = | |
51 | DATA_NAME_OR_LITERAL_IS_DATA_NAME of string | |
52 | | DATA_NAME_OR_LITERAL_IS_LITERAL of literal | |
53 | ||
54 | datatype data_names = | |
55 | DATA_NAMES of data_names * string | |
56 | | ONE_DATA_NAME of string | |
57 | ||
58 | datatype data_name_or_integer = | |
59 | DATA_NAME_OR_INTEGER_IS_DATA_NAME of string | |
60 | | DATA_NAME_OR_INTEGER_IS_INTEGER of string | |
61 | ||
62 | type qualification = string | |
63 | ||
64 | datatype qualifications = | |
65 | SEVERAL_QUALIFICATIONS of qualifications * qualification | |
66 | | NO_QUALIFICATIONS | |
67 | ||
68 | type subscript_phrase = unit (* TODO *) | |
69 | ||
70 | datatype special_register = | |
71 | LINAGECOUNTER | |
72 | | DEBUGITEM | |
73 | ||
74 | datatype identifier = | |
75 | QUALIFIED_IDENTIFIER of string * qualifications * subscript_phrase | |
76 | * pos * pos | |
77 | | SPECIAL_REGISTER of special_register * pos * pos | |
78 | ||
79 | datatype identifiers = | |
80 | SEVERAL_IDENTIFIERS of identifiers * identifier | |
81 | | ONE_IDENTIFIER of identifier | |
82 | ||
83 | datatype identifier_or_literal = | |
84 | IDENTIFIER_OR_LITERAL_IS_IDENTIFIER of identifier | |
85 | | IDENTIFIER_OR_LITERAL_IS_LITERAL of literal | |
86 | ||
87 | datatype identifier_or_literals = | |
88 | SEVERAL_IDENTIFIER_OR_LITERALS of identifier_or_literals | |
89 | * identifier_or_literal | |
90 | | ONE_IDENTIFIER_OR_LITERAL of identifier_or_literal | |
91 | ||
92 | datatype rounded = | |
93 | ROUNDED | |
94 | | NOT_ROUNDED | |
95 | ||
96 | datatype identifier_rounded = | |
97 | IDENTIFIER_ROUNDED of identifier * rounded | |
98 | ||
99 | datatype identifier_roundeds = | |
100 | SEVERAL_IDENTIFIER_ROUNDEDS of identifier_roundeds * identifier_rounded | |
101 | | ONE_IDENTIFIER_ROUNDED of identifier_rounded | |
102 | ||
103 | datatype is_not = | |
104 | IS_NOT_IS | |
105 | | IS_NOT_NOT | |
106 | ||
107 | datatype data_class = | |
108 | DATA_CLASS_IS_NUMERIC | |
109 | | DATA_CLASS_IS_ALPHABETIC | |
110 | ||
111 | datatype relational_operator = | |
112 | GREATER | |
113 | | LESS | |
114 | | EQUAL | |
115 | | GREATER_OR_EQUAL | |
116 | | LESS_OR_EQUAL | |
117 | ||
118 | datatype sign_specification = | |
119 | SIGN_SPECIFICATION_IS_POSITIVE | |
120 | | SIGN_SPECIFICATION_IS_NEGATIVE | |
121 | | SIGN_SPECIFICATION_IS_ZERO | |
122 | ||
123 | (* END OF BASIC STUFF *) | |
124 | ||
125 | (* ENVIRONMENT DIVISION *) | |
126 | ||
127 | type source_computer_paragraph = unit | |
128 | type object_computer_paragraph = unit | |
129 | ||
130 | datatype currency_sign_clause = | |
131 | CURRENCY of string | |
132 | ||
133 | datatype decimal_clause = | |
134 | DECIMALPOINT_IS_COMMA | |
135 | ||
136 | datatype special_names_clause = | |
137 | ENVIRONMENT_CLAUSE | |
138 | | ALPHABET_CLAUSE | |
139 | | CURRENCY_SIGN_CLAUSE of currency_sign_clause | |
140 | | DECIMAL_CLAUSE of decimal_clause | |
141 | ||
142 | datatype special_names_clauses = | |
143 | SEVERAL_SPECIAL_NAMES_CLAUSES of special_names_clauses | |
144 | * special_names_clause | |
145 | | NO_SPECIAL_NAMES_CLAUSES | |
146 | ||
147 | datatype special_names_paragraph = | |
148 | SPECIAL_NAMES_PARAGRAPH of special_names_clauses | |
149 | | NO_SPECIAL_NAMES_PARAGRAPH | |
150 | ||
151 | datatype configuration_section = | |
152 | CONFIGURATION_SECTION of | |
153 | source_computer_paragraph | |
154 | * object_computer_paragraph | |
155 | * special_names_paragraph | |
156 | ||
157 | type input_output_section = unit | |
158 | ||
159 | (* END OF ENVIRONMENT DIVISION *) | |
160 | ||
161 | (* WORKINGSTORAGE and LINKAGE SECTION *) | |
162 | ||
163 | datatype left_right = | |
164 | LEFT | |
165 | | RIGHT | |
166 | ||
167 | datatype through_data_name = | |
168 | THROUGH_DATA_NAME of string | |
169 | | NOT_THROUGH_DATA_NAME | |
170 | ||
171 | datatype separate_character = | |
172 | SEPARATE | |
173 | | NO_SEPARATE | |
174 | ||
175 | datatype leading_trailing = | |
176 | LEADING_TRAILING_IS_LEADING | |
177 | | LEADING_TRAILING_IS_TRAILING | |
178 | datatype table_length_description = | |
179 | FIXED_LENGTH_TABLE of string (* integer-2 *) | |
180 | | VARIABLE_LENGTH_TABLE of string (* integer-1 *) | |
181 | * string (* integer-2 *) | |
182 | * string (* data-name-1 *) | |
183 | ||
184 | datatype ascending_descending = | |
185 | ASCENDING | |
186 | | DESCENDING | |
187 | ||
188 | datatype ascending_descending_key_phrase = | |
189 | ASCENDING_DESCENDING_KEY_PHRASE of ascending_descending * | |
190 | data_names | |
191 | ||
192 | datatype ascending_descending_key_phrases = | |
193 | ASCENDING_DESCENDING_KEY_PHRASES of ascending_descending_key_phrases * | |
194 | ascending_descending_key_phrase | |
195 | | NO_ASCENDING_DESCENDING_KEY_PHRASES | |
196 | ||
197 | datatype index_names = | |
198 | SEVERAL_INDEX_NAMES of index_names * string | |
199 | | ONE_INDEX_NAME of string | |
200 | ||
201 | datatype indexed_by_phrase = | |
202 | INDEXED_BY_PHRASE of index_names | |
203 | | NO_INDEXED_BY_PHRASE | |
204 | ||
205 | datatype usage_specifier = | |
206 | USAGE_IS_DISPLAY | |
207 | | USAGE_IS_INDEX | |
208 | | USAGE_IS_COMP3 | |
209 | | USAGE_IS_COMP4 | |
210 | | USAGE_IS_COMP | |
211 | ||
212 | datatype through_literal = | |
213 | THROUGH_LITERAL of literal | |
214 | | NO_THROUGH_LITERAL | |
215 | ||
216 | datatype literal_range = | |
217 | LITERAL_RANGE of literal * through_literal | |
218 | ||
219 | datatype literal_ranges = | |
220 | SEVERAL_LITERAL_RANGES of literal_ranges * literal_range | |
221 | | ONE_LITERAL_RANGE of literal_range | |
222 | ||
223 | datatype data_description_clause = | |
224 | DATA_DESCRIPTION_CLAUSE_IS_USAGE_CLAUSE of usage_specifier | |
225 | * pos * pos | |
226 | | DATA_DESCRIPTION_CLAUSE_IS_SIGN_CLAUSE of leading_trailing * | |
227 | separate_character | |
228 | * pos * pos | |
229 | | DATA_DESCRIPTION_CLAUSE_IS_OCCURS_CLAUSE | |
230 | of table_length_description * | |
231 | ascending_descending_key_phrases * | |
232 | indexed_by_phrase | |
233 | * pos * pos | |
234 | | DATA_DESCRIPTION_CLAUSE_IS_SYNCHRONIZED_CLAUSE of left_right | |
235 | * pos * pos | |
236 | | DATA_DESCRIPTION_CLAUSE_IS_JUSTIFIED_CLAUSE of | |
237 | pos * pos | |
238 | | DATA_DESCRIPTION_CLAUSE_IS_BLANK_WHEN_ZERO_CLAUSE of | |
239 | pos * pos | |
240 | | DATA_DESCRIPTION_CLAUSE_IS_VALUE_CLAUSE of literal_ranges | |
241 | * pos * pos | |
242 | | DATA_DESCRIPTION_CLAUSE_IS_PICTURE_CLAUSE of string | |
243 | * pos * pos | |
244 | | DATA_DESCRIPTION_CLAUSE_IS_INDICATOR_CLAUSE of string | |
245 | * pos * pos | |
246 | ||
247 | datatype data_description_clauses = | |
248 | DATA_DESCRIPTION_CLAUSES of data_description_clauses * | |
249 | data_description_clause | |
250 | | NO_DATA_DESCRIPTION_CLAUSES | |
251 | ||
252 | datatype redefines_clause = | |
253 | REDEFINES_CLAUSE of string | |
254 | | NO_REDEFINES_CLAUSE | |
255 | ||
256 | datatype filler = | |
257 | FILLER | |
258 | | NO_FILLER | |
259 | ||
260 | datatype data_name_or_filler = | |
261 | DATA_NAME_OR_FILLER_IS_DATA_NAME of string | |
262 | | DATA_NAME_OR_FILLER_IS_FILLER of filler | |
263 | ||
264 | datatype record_description_entry = | |
265 | DATA_DESCRIPTION_ENTRY_134 of string (* levelnumber *) | |
266 | * data_name_or_filler | |
267 | * redefines_clause | |
268 | * data_description_clauses | |
269 | * pos * pos | |
270 | | RENAMES_CLAUSE of string (* levelnumber *) | |
271 | * string (* data-name *) | |
272 | * string (* data-name *) | |
273 | * through_data_name | |
274 | * pos * pos | |
275 | | TS2K_NOARROW of ts2k * pos * pos | |
276 | | TS2K_ARROW of ts2k * ts2k * pos * pos | |
277 | | TS2K_ALL of ts2k * ts2k * pos * pos | |
278 | | TS2K_END of pos * pos | |
279 | | TS2K_ASSUME_SEPARATE of pos * pos | |
280 | ||
281 | (* CHANGED-MHS: the 4 TS2K constructors were: | |
282 | | TS2K of ts2k * pos * pos | |
283 | | TS2K_EXPANDS of identifier * pos * pos | |
284 | | TS2K_FIRST_OR_FINAL | |
285 | END-CHANGED-MHS *) | |
286 | ||
287 | datatype record_description_entries = | |
288 | RECORD_DESCRIPTION_ENTRIES of record_description_entries * | |
289 | record_description_entry | |
290 | | NO_RECORD_DESCRIPTION_ENTRIES | |
291 | ||
292 | datatype record_description_entries_opt = | |
293 | RECORD_DESCRIPTION_ENTRIES_OPT of record_description_entries | |
294 | | NO_RECORD_DESCRIPTION_ENTRIES_OPT | |
295 | ||
296 | datatype working_storage_section = | |
297 | WORKINGSTORAGE_SECTION of record_description_entries_opt * pos * pos | |
298 | | NO_WORKINGSTORAGE_SECTION | |
299 | ||
300 | datatype linkage_section = | |
301 | LINKAGE_SECTION of record_description_entries_opt * pos * pos | |
302 | | NO_LINKAGE_SECTION | |
303 | ||
304 | (* END OF WORKINGSTORAGE and LINKAGE SECTION *) | |
305 | ||
306 | (* FILE SECTION *) | |
307 | ||
308 | datatype integer_range = | |
309 | SIMPLE_RANGE of string | |
310 | | INTEGER_TO_INTEGER of string * string | |
311 | ||
312 | datatype record_contains_clause = | |
313 | RECORD_CONTAINS of integer_range | |
314 | ||
315 | datatype data_records_clause = | |
316 | DATA_RECORD_IS of data_names | |
317 | ||
318 | datatype sort_description_clause = | |
319 | SORT_DESCRIPTION_CLAUSE_IS_RECORD of record_contains_clause | |
320 | * pos * pos | |
321 | | SORT_DESCRIPTION_CLAUSE_IS_DATA of data_records_clause | |
322 | * pos * pos | |
323 | ||
324 | datatype sort_description_clauses = | |
325 | SORT_DESCRIPTION_CLAUSES of sort_description_clauses * | |
326 | sort_description_clause | |
327 | | NO_SORT_DESCRIPTION_CLAUSE | |
328 | ||
329 | datatype sort_description_entry = | |
330 | SD of string * sort_description_clauses | |
331 | ||
332 | datatype footing_specification = | |
333 | FOOTING of data_name_or_integer | |
334 | | NOFOOTING | |
335 | ||
336 | datatype top_bottom_specification = | |
337 | TOP | |
338 | | BOTTOM | |
339 | ||
340 | datatype top_bottom_specifications = | |
341 | TOP_BOTTOM_SPECIFICATIONS of top_bottom_specifications * | |
342 | top_bottom_specification | |
343 | | NO_TOP_BOTTOM_SPECIFICATION | |
344 | ||
345 | datatype value_of_phrase = | |
346 | VALUE_OF of string * data_name_or_literal | |
347 | ||
348 | datatype value_of_phrases = | |
349 | VALUE_OF_PHRASES of value_of_phrases * value_of_phrase | |
350 | | VALUE_OF_PHRASE of value_of_phrase | |
351 | ||
352 | datatype characters_or_records = | |
353 | CHARACTERS | |
354 | | RECORDS | |
355 | ||
356 | datatype file_description_clause = | |
357 | BLOCK of integer_range * characters_or_records | |
358 | * pos * pos | |
359 | | FILE_DESCRIPTION_CLAUSE_IS_RECORD of record_contains_clause | |
360 | * pos * pos | |
361 | | LABEL_STANDARD | |
362 | | LABEL_OMITTED | |
363 | | VALUE_OF_CLAUSE of value_of_phrases | |
364 | * pos * pos | |
365 | | FILE_DESCRIPTION_CLAUSE_IS_DATA of data_records_clause | |
366 | * pos * pos | |
367 | | LINAGE_CLAUSE of data_name_or_integer * | |
368 | footing_specification * | |
369 | top_bottom_specifications | |
370 | * pos * pos | |
371 | | CODE_SET_CLAUSE of string | |
372 | * pos * pos | |
373 | ||
374 | datatype file_description_clauses = | |
375 | FILE_DESCRIPTION_CLAUSES of file_description_clauses * | |
376 | file_description_clause | |
377 | | NO_FILE_DESCRIPTION_CLAUSES | |
378 | ||
379 | datatype file_description_entry = | |
380 | FD of string * file_description_clauses * pos * pos | |
381 | ||
382 | datatype file_and_sort_description_entry = | |
383 | FILE_DESCRIPTION_ENTRY of file_description_entry | |
384 | | SORT_DESCRIPTION_ENTRY of sort_description_entry | |
385 | ||
386 | datatype file_description_paragraph = | |
387 | FILE_DESCRIPTION_PARAGRAPH of file_and_sort_description_entry * | |
388 | record_description_entries | |
389 | ||
390 | datatype file_description_paragraphs = | |
391 | FILE_DESCRIPTION_PARAGRAPHS of file_description_paragraphs * | |
392 | file_description_paragraph | |
393 | | NO_FILE_DESCRIPTION_PARAGRAPHS | |
394 | ||
395 | datatype file_section = | |
396 | FILE_SECTION of file_description_paragraphs * pos * pos | |
397 | | NO_FILE_SECTION | |
398 | ||
399 | (* END OF FILESECTION *) | |
400 | ||
401 | (* STATEMENTS *) | |
402 | ||
403 | datatype arithmetic_expression = | |
404 | ARITHMETIC_EXPRESSION_IS_INTEGER of string * pos * pos | |
405 | | ARITHMETIC_EXPRESSION_IS_DECIMALNUMBER of string * pos * pos | |
406 | | ARITHMETIC_EXPRESSION_IS_NONNUMERICLITERAL of string * pos * pos | |
407 | | ARITHMETIC_EXPRESSION_IS_BOOLEANLITERAL of bool * pos * pos | |
408 | | ARITHMETIC_EXPRESSION_IS_FIGURATIVE_CONSTANT of figurative_constant * | |
409 | pos * pos | |
410 | | ARITHMETIC_EXPRESSION_IS_IDENTIFIER of identifier | |
411 | | ARITHMETIC_EXPRESSION_IS_PLUS_SIGN of arithmetic_expression | |
412 | | ARITHMETIC_EXPRESSION_IS_MINUS_SIGN of arithmetic_expression | |
413 | | ARITHMETIC_EXPRESSION_IS_EXPONENTIATION of arithmetic_expression * | |
414 | arithmetic_expression | |
415 | | ARITHMETIC_EXPRESSION_IS_MULTIPLY of arithmetic_expression * | |
416 | arithmetic_expression | |
417 | | ARITHMETIC_EXPRESSION_IS_DIVIDE of arithmetic_expression * | |
418 | arithmetic_expression | |
419 | | ARITHMETIC_EXPRESSION_IS_ADD of arithmetic_expression * | |
420 | arithmetic_expression | |
421 | | ARITHMETIC_EXPRESSION_IS_SUBTRACT of arithmetic_expression * | |
422 | arithmetic_expression | |
423 | ||
424 | datatype simple_condition = | |
425 | CLASS_CONDITION of identifier * is_not * data_class | |
426 | | CONDITION_NAME of identifier | |
427 | | RELATION_CONDITION of arithmetic_expression * | |
428 | is_not * | |
429 | relational_operator * | |
430 | arithmetic_expression * pos * pos | |
431 | (* Unclear if TRUE and FALSE are allowed in conditions *) | |
432 | (* at all (TRUE is reserved word but not FALSE) *) | |
433 | | SIMPLE_CONDITION_IS_TRUE of pos * pos | |
434 | | SIMPLE_CONDITION_IS_FALSE of pos * pos | |
435 | | SIGN_CONDITION of arithmetic_expression * is_not * sign_specification | |
436 | (* SWITCH_STATUS_CONDITION is SYSTEM-SHUT-DOWN or UPSI-i *) | |
437 | (* Don't think we need to know *) | |
438 | | SWITCH_STATUS_CONDITION of pos * pos | |
439 | ||
440 | datatype conditional_expression = | |
441 | SIMPLE_CONDITION of simple_condition | |
442 | | NEGATED_CONDITION of conditional_expression | |
443 | (* the manual says NOT simple_expression, but example in fig 11-12 *) | |
444 | (* tells a different story!! *) | |
445 | | AND_CONDITION of conditional_expression * conditional_expression | |
446 | | OR_CONDITION of conditional_expression * conditional_expression | |
447 | ||
448 | datatype add_or_subtract = ADD | SUBTRACT | |
449 | ||
450 | datatype date_day_time = | |
451 | DATE of pos * pos | |
452 | | DAY of pos * pos | |
453 | | TIME of pos * pos | |
454 | ||
455 | datatype identifier_or_literal_or_ddt = | |
456 | IDENTIFIER_OR_LITERAL_OR_DDT_IS_IDENTIFIER_OR_LITERAL of identifier_or_literal | |
457 | | IDENTIFIER_OR_LITERAL_OR_DDT_IS_DDT of date_day_time | |
458 | ||
459 | datatype annotation_statement = | |
460 | TS2K_ASSUME of identifier_or_literal_or_ddt * ts2k * pos * pos | |
461 | | TS2K_COERCE of identifier_or_literal_or_ddt * ts2k * pos * pos * identifier | |
462 | ||
463 | datatype move_statement = | |
464 | MOVE of identifier_or_literal * identifiers * pos * pos | |
465 | | MOVECORRESPONDING of identifier * identifier * pos * pos | |
466 | ||
467 | datatype from_environment = | |
468 | NO_FROM | |
469 | | FROM of string * pos * pos | |
470 | ||
471 | datatype accept_statement = | |
472 | ACCEPT_ENVIRONMENT of identifier * from_environment * pos * pos | |
473 | | ACCEPT_DATE_DAY_TIME of identifier * date_day_time * pos * pos | |
474 | ||
475 | datatype statements = | |
476 | SEVERAL_STATEMENTS of statements * statement | |
477 | | ONE_STATEMENT of statement | |
478 | ||
479 | and statement = | |
480 | MOVE_STATEMENT of move_statement | |
481 | | COMPUTE_STATEMENT of compute_statement | |
482 | | ADD_OR_SUBTRACT_STATEMENT of add_or_subtract_statement | |
483 | | MULTIPLY_STATEMENT of multiply_statement | |
484 | | DIVIDE_STATEMENT of divide_statement | |
485 | | IF_STATEMENT of if_statement | |
486 | | ANNOTATION_STATEMENT of annotation_statement | |
487 | | ACCEPT_STATEMENT of accept_statement | |
488 | | OTHER_STATEMENT (* TODO *) | |
489 | ||
490 | and add_or_subtract_statement = | |
491 | ADD_OR_SUBTRACT of add_or_subtract * identifier_or_literals | |
492 | * identifier_roundeds | |
493 | * size_error_clause * pos * pos | |
494 | | ADD_OR_SUBTRACT_GIVING of add_or_subtract * identifier_or_literals | |
495 | * identifier_or_literal | |
496 | * identifier_roundeds | |
497 | * size_error_clause * pos * pos | |
498 | | ADD_OR_SUBTRACT_CORRESPONDING of add_or_subtract * identifier | |
499 | * identifier | |
500 | * rounded | |
501 | * size_error_clause * pos * pos | |
502 | ||
503 | and compute_statement = | |
504 | COMPUTE of identifier_roundeds * | |
505 | arithmetic_expression * | |
506 | size_error_clause * pos * pos | |
507 | ||
508 | and multiply_statement = | |
509 | MULTIPLY of identifier_or_literal | |
510 | * identifier_roundeds | |
511 | * size_error_clause * pos * pos | |
512 | | MULTIPLY_GIVING of identifier_or_literal | |
513 | * identifier_or_literal | |
514 | * identifier_roundeds | |
515 | * size_error_clause * pos * pos | |
516 | ||
517 | (* NOTE: the following is not checked against the manual *) | |
518 | (* neither is it tested *) | |
519 | and divide_statement = | |
520 | (* DIVIDE a INTO b [[ON] SIZE ERROR c] *) | |
521 | DIVIDE_INTO of identifier_or_literal (* a *) | |
522 | * identifier_roundeds (* b *) | |
523 | * size_error_clause (* c *) | |
524 | * pos * pos | |
525 | (* DIVIDE a INTO b GIVING c [[ON] SIZE ERROR d] *) | |
526 | | DIVIDE_INTO_GIVING of identifier_or_literal (* a *) | |
527 | * identifier_or_literal (* b *) | |
528 | * identifier_roundeds (* c *) | |
529 | * size_error_clause (* d *) | |
530 | * pos * pos | |
531 | (* DIVIDE a INTO b GIVING c REMAINDER d [[ON] SIZE ERROR e] *) | |
532 | | DIVIDE_INTO_GIVING_REMAINDER of identifier_or_literal (* a *) | |
533 | * identifier_or_literal (* b *) | |
534 | * identifier_roundeds (* c *) | |
535 | * identifier (* d *) | |
536 | * size_error_clause (* e *) | |
537 | * pos * pos | |
538 | (* DIVIDE a BY b GIVING c [[ON] SIZE ERROR d] *) | |
539 | | DIVIDE_BY_GIVING of identifier_or_literal (* a *) | |
540 | * identifier_or_literal (* b *) | |
541 | * identifier_roundeds (* c *) | |
542 | * size_error_clause (* d *) | |
543 | * pos * pos | |
544 | (* DIVIDE a BY b GIVING c REMAINDER d [[ON] SIZE ERROR e] *) | |
545 | | DIVIDE_BY_GIVING_REMAINDER of identifier_or_literal (* a *) | |
546 | * identifier_or_literal (* b *) | |
547 | * identifier_roundeds (* c *) | |
548 | * identifier (* d *) | |
549 | * size_error_clause (* e *) | |
550 | * pos * pos | |
551 | ||
552 | and size_error_clause = | |
553 | SIZE_ERROR of statements | |
554 | | NO_SIZE_ERROR | |
555 | ||
556 | and if_statement = | |
557 | IF of conditional_expression * then_statements * else_statements | |
558 | * pos * pos | |
559 | ||
560 | and then_statements = | |
561 | THEN_STATEMENTS of statements | |
562 | | NEXT_SENTENCE | |
563 | ||
564 | and else_statements = | |
565 | ELSE of statements | |
566 | | ELSE_NEXT_SENTENCE | |
567 | | NO_ELSE | |
568 | ||
569 | (* ENDSTATEMENTS *) | |
570 | ||
571 | (* PROCEDURE DIVISION *) | |
572 | ||
573 | type section_name = string | |
574 | type paragraph_name = string | |
575 | ||
576 | datatype sentence = SENTENCE of statements | |
577 | ||
578 | datatype sentences = | |
579 | SENTENCES of sentences * sentence | |
580 | | NO_SENTENCES | |
581 | ||
582 | datatype paragraph = | |
583 | PARAGRAPH of paragraph_name * sentences | |
584 | ||
585 | datatype paragraphs = | |
586 | SEVERAL_PARAGRAPHS of paragraphs * paragraph | |
587 | | ONE_PARAGRAPH of paragraph | |
588 | ||
589 | datatype segment_number_opt = | |
590 | SEGMENT_NUMBER of string | |
591 | | NOSEGMENT_NUMBER | |
592 | ||
593 | datatype sections = | |
594 | NO_BODY_SECTION of section_name * segment_number_opt | |
595 | | NO_BODY_SECTION_FOLLOWED_BY_SECTION of section_name * | |
596 | segment_number_opt * | |
597 | sections | |
598 | | SECTION of section_name * | |
599 | segment_number_opt * | |
600 | paragraphs_and_sections | |
601 | ||
602 | and paragraphs_and_sections = | |
603 | SEVERAL_PARAGRAPHS_AND_SECTIONS of paragraph * paragraphs_and_sections | |
604 | | SINGLE_PARAGRAPH_AND_SECTIONS of paragraph * sections | |
605 | | SINGLE_PARAGRAPH of paragraph | |
606 | ||
607 | ||
608 | type using_clause = unit (* TODO *) | |
609 | type declaratives_section = unit (* TODO *) | |
610 | ||
611 | datatype procedure_division = | |
612 | PROCEDURE_DIVISION_FORMAT_1_DECLARATIVES of using_clause * | |
613 | declaratives_section * | |
614 | sections * | |
615 | pos * pos | |
616 | | PROCEDURE_DIVISION_FORMAT_1_NO_DECLARATIVES of using_clause * | |
617 | sections * | |
618 | pos * pos | |
619 | | PROCEDURE_DIVISION_FORMAT_2 of using_clause * | |
620 | paragraphs * | |
621 | pos * pos | |
622 | | EMPTY_PROCEDURE_DIVISION | |
623 | (* no procedure division allowed by our parser though mandatory in S/36 *) | |
624 | ||
625 | (* END OF PROCEDURE DIVISION *) | |
626 | ||
627 | (* PROGRAM STRUCTURE *) | |
628 | ||
629 | datatype data_division = | |
630 | DATA_DIVISION of file_section * | |
631 | working_storage_section * | |
632 | linkage_section | |
633 | | NO_DATA_DIVISION | |
634 | ||
635 | datatype environment_division = | |
636 | ENVIRONMENT_DIVISION of | |
637 | configuration_section * | |
638 | input_output_section | |
639 | | NO_ENVIRONMENT_DIVISION | |
640 | ||
641 | type identification_division = unit | |
642 | ||
643 | datatype cobol_program = | |
644 | PROGRAM of identification_division * | |
645 | environment_division * | |
646 | data_division * | |
647 | procedure_division | |
648 | ||
649 | datatype test_cobol_programs = | |
650 | TEST_COBOL_PROGRAMS of test_cobol_programs * cobol_program | |
651 | | TEST_COBOL_PROGRAM of cobol_program | |
652 | ||
653 | datatype test_cobol = | |
654 | TEST of test_cobol_programs | |
655 | | COBOL_PROGRAM of cobol_program | |
656 | ||
657 | end; | |
658 | ||
659 | ||
660 | ||
661 | datatype cexpression = | |
662 | CE_AE of Cobol.arithmetic_expression * Cobol.pos * Cobol.pos | |
663 | | CE_SINGLE_REL of Cobol.relational_operator * Cobol.arithmetic_expression * | |
664 | Cobol.pos * Cobol.pos | |
665 | | CE_REL of Cobol.arithmetic_expression * | |
666 | Cobol.is_not * | |
667 | Cobol.relational_operator * | |
668 | Cobol.arithmetic_expression * Cobol.pos * Cobol.pos | |
669 | | CE_DC of Cobol.arithmetic_expression * | |
670 | Cobol.is_not * | |
671 | Cobol.data_class | |
672 | | CE_SIGN of Cobol.arithmetic_expression * | |
673 | Cobol.is_not * | |
674 | Cobol.sign_specification | |
675 | | CE_SWITCH of Cobol.pos * Cobol.pos | |
676 | | CE_TRUE of Cobol.pos * Cobol.pos | |
677 | | CE_FALSE of Cobol.pos * Cobol.pos | |
678 | | CE_NOT of cexpression | |
679 | | CE_AND of cexpression * cexpression | |
680 | | CE_OR of cexpression * cexpression | |
681 | ||
682 | ||
683 | ||
684 | ||
685 | ||
686 | ||
687 | ||
688 | structure MlyValue = | |
689 | struct | |
690 | datatype svalue = VOID | ntVOID of unit | PSEUDOTEXT of (string) | |
691 | | USERDEFINEDWORD of (string) | PICTURESTRING of (string) | |
692 | | BOOLEANLITERAL of (bool) | INTEGER of (string) | |
693 | | DECIMALNUMBER of (string) | NONNUMERICLITERAL of (string) | |
694 | | identifier_or_literal_or_ddt of (Cobol.identifier_or_literal_or_ddt) | |
695 | | ts2k of (Cobol.ts2k) | |
696 | | annotation_statement of (Cobol.annotation_statement) | |
697 | | data_description_annotation of (Cobol.record_description_entry) | |
698 | | working_storage_section of (Cobol.working_storage_section) | |
699 | | variable_length_tables_clause of (Cobol.table_length_description*Cobol.ascending_descending_key_phrases*Cobol.indexed_by_phrase) | |
700 | | value_of_phrases of (Cobol.value_of_phrases) | |
701 | | value_of_phrase of (Cobol.value_of_phrase) | |
702 | | value_of_clause of (Cobol.file_description_clause) | |
703 | | value_clause of (Cobol.literal_ranges) | |
704 | | using_clause of (Cobol.using_clause) | |
705 | | usage_specifier of (Cobol.usage_specifier) | |
706 | | usage_clause of (Cobol.usage_specifier) | |
707 | | top_bottom_specifications of (Cobol.top_bottom_specifications) | |
708 | | top_bottom_specification of (Cobol.top_bottom_specification) | |
709 | | top_bottom of (Cobol.top_bottom_specification) | |
710 | | filler of (Cobol.filler) | |
711 | | through_literal of (Cobol.through_literal) | |
712 | | through_data_name of (Cobol.through_data_name) | |
713 | | then_statements of (Cobol.then_statements) | |
714 | | text_name of (string) | system_name of (string) | |
715 | | conditional_expression of (Cobol.conditional_expression) | |
716 | | arithmetic_expression of (Cobol.arithmetic_expression) | |
717 | | synchronized_clause of (Cobol.left_right) | |
718 | | subtract_statement of (Cobol.add_or_subtract_statement) | |
719 | | subscript_phrase of (Cobol.subscript_phrase) | |
720 | | statements of (Cobol.statements) | statement of (Cobol.statement) | |
721 | | standard_or_omitted of (Cobol.file_description_clause) | |
722 | | special_names_paragraph of (Cobol.special_names_paragraph) | |
723 | | source_computer_paragraph of (Cobol.source_computer_paragraph) | |
724 | | sort_description_entry of (Cobol.sort_description_entry) | |
725 | | sort_description_clauses of (Cobol.sort_description_clauses) | |
726 | | sort_description_clause of (Cobol.sort_description_clause) | |
727 | | size_error_clauses of (Cobol.size_error_clause) | |
728 | | size_error_clause of (Cobol.size_error_clause) | |
729 | | sign_clause of (Cobol.leading_trailing*Cobol.separate_character) | |
730 | | separate_character of (Cobol.separate_character) | |
731 | | sentences of (Cobol.sentences) | sentence of (Cobol.sentence) | |
732 | | segment_number_opt of (Cobol.segment_number_opt) | |
733 | | sections of (Cobol.sections) | section_name of (string) | |
734 | | rounded of (Cobol.rounded) | |
735 | | renames_clause of (Cobol.record_description_entry) | |
736 | | redefines_clause of (Cobol.redefines_clause) | |
737 | | record_description_entry of (Cobol.record_description_entry) | |
738 | | record_description_entries of (Cobol.record_description_entries) | |
739 | | record_description_entries_opt of (Cobol.record_description_entries_opt) | |
740 | | record_contains_clause of (Cobol.record_contains_clause) | |
741 | | qualifications of (Cobol.qualifications) | |
742 | | qualification of (Cobol.qualification) | |
743 | | procedure_division of (Cobol.procedure_division) | |
744 | | data_name_or_filler of (Cobol.data_name_or_filler) | |
745 | | picture_clause of (string) | |
746 | | paragraphs_and_sections of (Cobol.paragraphs_and_sections) | |
747 | | paragraphs of (Cobol.paragraphs) | paragraph_name of (string) | |
748 | | paragraph of (Cobol.paragraph) | |
749 | | occurs_clause of (Cobol.table_length_description*Cobol.ascending_descending_key_phrases*Cobol.indexed_by_phrase) | |
750 | | object_computer_paragraph of (Cobol.object_computer_paragraph) | |
751 | | multiply_statement of (Cobol.multiply_statement) | |
752 | | move_statement of (Cobol.move_statement) | |
753 | | mnemonic_name of (string) | |
754 | | literal_ranges of (Cobol.literal_ranges) | |
755 | | literal_range of (Cobol.literal_range) | |
756 | | literal of (Cobol.literal) | |
757 | | linkage_section of (Cobol.linkage_section) | |
758 | | linage_clause of (Cobol.file_description_clause) | |
759 | | level_number of (string) | left_right of (Cobol.left_right) | |
760 | | figurative_constant of (Cobol.figurative_constant) | |
761 | | leading_trailing of (Cobol.leading_trailing) | |
762 | | label_records_clause of (Cobol.file_description_clause) | |
763 | | is_not of (Cobol.is_not) | integer_range of (Cobol.integer_range) | |
764 | | input_output_section of (Cobol.input_output_section) | |
765 | | indicator_clause of (string) | |
766 | | indexed_by_phrase of (Cobol.indexed_by_phrase) | |
767 | | index_names of (Cobol.index_names) | index_name of (string) | |
768 | | imperative_statement of (Cobol.statements) | |
769 | | if_statement of (Cobol.if_statement) | |
770 | | identifiers of (Cobol.identifiers) | |
771 | | identifier_roundeds of (Cobol.identifier_roundeds) | |
772 | | identifier_rounded of (Cobol.identifier_rounded) | |
773 | | identifier_or_literals of (Cobol.identifier_or_literals) | |
774 | | identifier_or_literal of (Cobol.identifier_or_literal) | |
775 | | identifier of (Cobol.identifier) | |
776 | | identification_division of (Cobol.identification_division) | |
777 | | from_environment of (Cobol.from_environment) | |
778 | | footing_specification of (Cobol.footing_specification) | |
779 | | fixed_length_tables_clause of (Cobol.table_length_description*Cobol.ascending_descending_key_phrases*Cobol.indexed_by_phrase) | |
780 | | file_section of (Cobol.file_section) | file_name of (string) | |
781 | | file_description_paragraphs of (Cobol.file_description_paragraphs) | |
782 | | file_description_paragraph of (Cobol.file_description_paragraph) | |
783 | | file_description_entry of (Cobol.file_description_entry) | |
784 | | file_description_clauses of (Cobol.file_description_clauses) | |
785 | | file_description_clause of (Cobol.file_description_clause) | |
786 | | file_and_sort_description_entry of (Cobol.file_and_sort_description_entry) | |
787 | | special_register of (Cobol.special_register) | |
788 | | environment_division of (Cobol.environment_division) | |
789 | | else_statements of (Cobol.else_statements) | |
790 | | divide_statement of (Cobol.divide_statement) | |
791 | | sign_specification of (Cobol.sign_specification) | |
792 | | data_class of (Cobol.data_class) | |
793 | | relational_operator of (Cobol.relational_operator) | |
794 | | declaratives_section of (Cobol.declaratives_section) | |
795 | | decimal_clause of (Cobol.decimal_clause) | |
796 | | date_day_time of (Cobol.date_day_time) | |
797 | | data_records_clause of (Cobol.data_records_clause) | |
798 | | data_name_or_literal of (Cobol.data_name_or_literal) | |
799 | | special_names_clause of (Cobol.special_names_clause) | |
800 | | special_names_clauses of (Cobol.special_names_clauses) | |
801 | | data_name_or_integer of (Cobol.data_name_or_integer) | |
802 | | data_names of (Cobol.data_names) | data_name of (string) | |
803 | | data_division of (Cobol.data_division) | |
804 | | data_description_entry_134 of (Cobol.record_description_entry) | |
805 | | data_description_entry of (Cobol.record_description_entry) | |
806 | | data_description_clauses of (Cobol.data_description_clauses) | |
807 | | data_description_clause of (Cobol.data_description_clause) | |
808 | | currency_sign_clause of (Cobol.currency_sign_clause) | |
809 | | configuration_section of (Cobol.configuration_section) | |
810 | | compute_statement of (Cobol.compute_statement) | |
811 | | code_set_clause of (Cobol.file_description_clause) | |
812 | | characters_or_records of (Cobol.characters_or_records) | |
813 | | character_string of (string) | |
814 | | block_contains_clause of (Cobol.file_description_clause) | |
815 | | ascending_descending_key_phrases of (Cobol.ascending_descending_key_phrases) | |
816 | | ascending_descending_key_phrase of (Cobol.ascending_descending_key_phrase) | |
817 | | ascending_descending of (Cobol.ascending_descending) | |
818 | | expression of (cexpression) | alphabet_name of (string) | |
819 | | add_statement of (Cobol.add_or_subtract_statement) | |
820 | | accept_statement of (Cobol.accept_statement) | |
821 | | test_cobol of (Cobol.test_cobol) | |
822 | | test_cobol_program of (Cobol.cobol_program) | |
823 | | test_cobol_programs of (Cobol.test_cobol_programs) | |
824 | | cobol_program of (Cobol.cobol_program) | |
825 | end | |
826 | type svalue = MlyValue.svalue | |
827 | (*TODO 13/01/1998 14:54. hojfeld.: mine erklringer:*) | |
828 | type pos = unit | |
829 | type arg = unit | |
830 | datatype nonterm = hojfelds_NT of int | |
831 | exception Hojfeld of string | |
832 | (*og s: LrTable.NT |-> hojfelds_NT*) | |
833 | ||
834 | (*TODO 13/01/1998 14:54. hojfeld.: mine erklringer slut*) | |
835 | ||
836 | fun actions(i392:int, defaultPos:pos, stack:(unit (*LrTable.state*) * (svalue * pos * pos)) list, | |
837 | ():arg | |
838 | ) = | |
839 | case (i392, stack) of | |
840 | (0, _) => raise Hojfeld "0" (*act0(stack)*) | |
841 | | (1, _) => raise Hojfeld "1" (*act1(stack)*) | |
842 | | (2, _) => raise Hojfeld "2" (*act2(stack)*) | |
843 | | (3, _) => raise Hojfeld "3" (*act3(stack)*) | |
844 | | (4, _) => raise Hojfeld "4" (*act4(stack)*) | |
845 | | (5, _) => raise Hojfeld "5" (*act5(stack)*) | |
846 | | (6, _) => raise Hojfeld "6" (*act6(stack)*) | |
847 | | (7, _) => raise Hojfeld "7" (*act7(stack)*) | |
848 | | (8, _) => raise Hojfeld "8" (*act8(stack,defaultPos)*) | |
849 | | (9, _) => raise Hojfeld "9" (*act9(stack)*) | |
850 | | (10,(_,(_,USERDEFINEDWORD1left,USERDEFINEDWORD1right))::rest671) => | |
851 | let val result=MlyValue.ntVOID(()) | |
852 | in (hojfelds_NT 76,(result,USERDEFINEDWORD1left,USERDEFINEDWORD1right) | |
853 | ,rest671) end | |
854 | | (11,(_,(MlyValue.USERDEFINEDWORD USERDEFINEDWORD, | |
855 | USERDEFINEDWORD1left,USERDEFINEDWORD1right))::rest671) => let val | |
856 | result=MlyValue.data_name((USERDEFINEDWORD)) | |
857 | in (hojfelds_NT 96,(result,USERDEFINEDWORD1left,USERDEFINEDWORD1right) | |
858 | ,rest671) end | |
859 | | (12,(_,(_,USERDEFINEDWORD1left,USERDEFINEDWORD1right))::rest671) => | |
860 | let val result=MlyValue.ntVOID(()) | |
861 | in (hojfelds_NT 98,(result,USERDEFINEDWORD1left,USERDEFINEDWORD1right) | |
862 | ,rest671) end | |
863 | ||
864 | | (13,(_,(_,_,qdata_name1right))::_::(_,(_,USERDEFINEDWORD1left,_)):: | |
865 | rest671) => let val result=MlyValue.ntVOID(()) | |
866 | in (hojfelds_NT 98,(result,USERDEFINEDWORD1left,qdata_name1right), | |
867 | rest671) end | |
868 | | (14,(_,(_,_,qdata_name1right))::_::(_,(_,USERDEFINEDWORD1left,_)):: | |
869 | rest671) => let val result=MlyValue.ntVOID(()) | |
870 | in (hojfelds_NT 98,(result,USERDEFINEDWORD1left,qdata_name1right), | |
871 | rest671) end | |
872 | | (15,(_,(_,USERDEFINEDWORD1left,USERDEFINEDWORD1right))::rest671) => | |
873 | let val result=MlyValue.ntVOID(()) | |
874 | in (hojfelds_NT 389,(result,USERDEFINEDWORD1left,USERDEFINEDWORD1right | |
875 | ),rest671) end | |
876 | | (16,(_,(MlyValue.USERDEFINEDWORD USERDEFINEDWORD, | |
877 | USERDEFINEDWORD1left,USERDEFINEDWORD1right))::rest671) => let val | |
878 | result=MlyValue.file_name((USERDEFINEDWORD)) | |
879 | in (hojfelds_NT 200,(result,USERDEFINEDWORD1left,USERDEFINEDWORD1right | |
880 | ),rest671) end | |
881 | | (17,(_,(MlyValue.USERDEFINEDWORD USERDEFINEDWORD, | |
882 | USERDEFINEDWORD1left,USERDEFINEDWORD1right))::rest671) => let val | |
883 | result=MlyValue.index_name((USERDEFINEDWORD)) | |
884 | in (hojfelds_NT 244,(result,USERDEFINEDWORD1left,USERDEFINEDWORD1right | |
885 | ),rest671) end | |
886 | | (18,(_,(MlyValue.USERDEFINEDWORD USERDEFINEDWORD, | |
887 | USERDEFINEDWORD1left,USERDEFINEDWORD1right))::rest671) => let val | |
888 | result=MlyValue.mnemonic_name((USERDEFINEDWORD)) | |
889 | in (hojfelds_NT 309,(result,USERDEFINEDWORD1left,USERDEFINEDWORD1right | |
890 | ),rest671) end | |
891 | | (19,(_,(_,USERDEFINEDWORD1left,USERDEFINEDWORD1right))::rest671) => | |
892 | let val result=MlyValue.ntVOID(()) | |
893 | in (hojfelds_NT 415,(result,USERDEFINEDWORD1left,USERDEFINEDWORD1right | |
894 | ),rest671) end | |
895 | | (20,(_,(_,USERDEFINEDWORD1left,USERDEFINEDWORD1right))::rest671) => | |
896 | let val result=MlyValue.ntVOID(()) | |
897 | in (hojfelds_NT 291,(result,USERDEFINEDWORD1left,USERDEFINEDWORD1right | |
898 | ),rest671) end | |
899 | | (21,(_,(_,USERDEFINEDWORD1left,USERDEFINEDWORD1right))::rest671) => | |
900 | let val result=MlyValue.ntVOID(()) | |
901 | in (hojfelds_NT 374,(result,USERDEFINEDWORD1left,USERDEFINEDWORD1right | |
902 | ),rest671) end | |
903 | | (22,(_,(MlyValue.USERDEFINEDWORD USERDEFINEDWORD, | |
904 | USERDEFINEDWORD1left,USERDEFINEDWORD1right))::rest671) => let val | |
905 | result=MlyValue.text_name((USERDEFINEDWORD)) | |
906 | in (hojfelds_NT 486,(result,USERDEFINEDWORD1left,USERDEFINEDWORD1right | |
907 | ),rest671) end | |
908 | | (23,(_,(MlyValue.USERDEFINEDWORD USERDEFINEDWORD, | |
909 | USERDEFINEDWORD1left,USERDEFINEDWORD1right))::rest671) => let val | |
910 | result=MlyValue.paragraph_name((USERDEFINEDWORD)) | |
911 | in (hojfelds_NT 357,(result,USERDEFINEDWORD1left,USERDEFINEDWORD1right | |
912 | ),rest671) end | |
913 | | (24,(_,(MlyValue.INTEGER INTEGER,INTEGER1left,INTEGER1right)):: | |
914 | rest671) => let val result=MlyValue.paragraph_name((INTEGER)) | |
915 | in (hojfelds_NT 357,(result,INTEGER1left,INTEGER1right),rest671) end | |
916 | | (25,(_,(MlyValue.USERDEFINEDWORD USERDEFINEDWORD, | |
917 | USERDEFINEDWORD1left,USERDEFINEDWORD1right))::rest671) => let val | |
918 | result=MlyValue.section_name((USERDEFINEDWORD)) | |
919 | in (hojfelds_NT 422,(result,USERDEFINEDWORD1left,USERDEFINEDWORD1right | |
920 | ),rest671) end | |
921 | | (26,(_,(MlyValue.INTEGER INTEGER,INTEGER1left,INTEGER1right)):: | |
922 | rest671) => let val result=MlyValue.section_name((INTEGER)) | |
923 | in (hojfelds_NT 422,(result,INTEGER1left,INTEGER1right),rest671) end | |
924 | | (27,(_,(MlyValue.INTEGER INTEGER,INTEGER1left,INTEGER1right)):: | |
925 | rest671) => let val result=MlyValue.level_number((INTEGER)) | |
926 | in (hojfelds_NT 290,(result,INTEGER1left,INTEGER1right),rest671) end | |
927 | | (28,(_,(MlyValue.USERDEFINEDWORD USERDEFINEDWORD, | |
928 | USERDEFINEDWORD1left,USERDEFINEDWORD1right))::rest671) => let val | |
929 | result=MlyValue.system_name((USERDEFINEDWORD)) | |
930 | in (hojfelds_NT 478,(result,USERDEFINEDWORD1left,USERDEFINEDWORD1right | |
931 | ),rest671) end | |
932 | | (29,(_,(_,USERDEFINEDWORD1left,USERDEFINEDWORD1right))::rest671) => | |
933 | let val result=MlyValue.ntVOID(()) | |
934 | in (hojfelds_NT 74,(result,USERDEFINEDWORD1left,USERDEFINEDWORD1right) | |
935 | ,rest671) end | |
936 | | (30,(_,(_,USERDEFINEDWORD1left,USERDEFINEDWORD1right))::rest671) => | |
937 | let val result=MlyValue.ntVOID(()) | |
938 | in (hojfelds_NT 286,(result,USERDEFINEDWORD1left,USERDEFINEDWORD1right | |
939 | ),rest671) end | |
940 | | (31,(_,(_,ZERO1left,ZERO1right))::rest671) => let val result= | |
941 | MlyValue.figurative_constant((Cobol.ZERO)) | |
942 | in (hojfelds_NT 288,(result,ZERO1left,ZERO1right),rest671) end | |
943 | | (32,(_,(_,ZEROS1left,ZEROS1right))::rest671) => let val result= | |
944 | MlyValue.figurative_constant((Cobol.ZERO)) | |
945 | in (hojfelds_NT 288,(result,ZEROS1left,ZEROS1right),rest671) end | |
946 | | (33,(_,(_,ZEROES1left,ZEROES1right))::rest671) => let val result= | |
947 | MlyValue.figurative_constant((Cobol.ZERO)) | |
948 | in (hojfelds_NT 288,(result,ZEROES1left,ZEROES1right),rest671) end | |
949 | | (34,(_,(_,SPACE1left,SPACE1right))::rest671) => let val result= | |
950 | MlyValue.figurative_constant((Cobol.SPACE)) | |
951 | in (hojfelds_NT 288,(result,SPACE1left,SPACE1right),rest671) end | |
952 | | (35,(_,(_,SPACES1left,SPACES1right))::rest671) => let val result= | |
953 | MlyValue.figurative_constant((Cobol.SPACE)) | |
954 | in (hojfelds_NT 288,(result,SPACES1left,SPACES1right),rest671) end | |
955 | | (36,(_,(_,HIGHVALUE1left,HIGHVALUE1right))::rest671) => let val | |
956 | result=MlyValue.figurative_constant((Cobol.HIGHVALUE)) | |
957 | in (hojfelds_NT 288,(result,HIGHVALUE1left,HIGHVALUE1right),rest671) | |
958 | end | |
959 | | (37,(_,(_,HIGHVALUES1left,HIGHVALUES1right))::rest671) => let val | |
960 | result=MlyValue.figurative_constant((Cobol.HIGHVALUE)) | |
961 | in (hojfelds_NT 288,(result,HIGHVALUES1left,HIGHVALUES1right),rest671) | |
962 | end | |
963 | | (38,(_,(_,LOWVALUE1left,LOWVALUE1right))::rest671) => let val result | |
964 | =MlyValue.figurative_constant((Cobol.LOWVALUE)) | |
965 | in (hojfelds_NT 288,(result,LOWVALUE1left,LOWVALUE1right),rest671) end | |
966 | | (39,(_,(_,LOWVALUES1left,LOWVALUES1right))::rest671) => let val | |
967 | result=MlyValue.figurative_constant((Cobol.LOWVALUE)) | |
968 | in (hojfelds_NT 288,(result,LOWVALUES1left,LOWVALUES1right),rest671) | |
969 | end | |
970 | | (40,(_,(_,QUOTE1left,QUOTE1right))::rest671) => let val result= | |
971 | MlyValue.figurative_constant((Cobol.QUOTE)) | |
972 | in (hojfelds_NT 288,(result,QUOTE1left,QUOTE1right),rest671) end | |
973 | | (41,(_,(_,QUOTES1left,QUOTES1right))::rest671) => let val result= | |
974 | MlyValue.figurative_constant((Cobol.QUOTE)) | |
975 | in (hojfelds_NT 288,(result,QUOTES1left,QUOTES1right),rest671) end | |
976 | | (42,(_,(_,_,ZERO1right))::(_,(_,ALL1left,_))::rest671) => let val | |
977 | result=MlyValue.figurative_constant((Cobol.ALL_ZERO)) | |
978 | in (hojfelds_NT 288,(result,ALL1left,ZERO1right),rest671) end | |
979 | | (43,(_,(_,_,ZEROS1right))::(_,(_,ALL1left,_))::rest671) => let val | |
980 | result=MlyValue.figurative_constant((Cobol.ALL_ZERO)) | |
981 | in (hojfelds_NT 288,(result,ALL1left,ZEROS1right),rest671) end | |
982 | | (44,(_,(_,_,ZEROES1right))::(_,(_,ALL1left,_))::rest671) => let val | |
983 | result=MlyValue.figurative_constant((Cobol.ALL_ZERO)) | |
984 | in (hojfelds_NT 288,(result,ALL1left,ZEROES1right),rest671) end | |
985 | | (45,(_,(_,_,SPACE1right))::(_,(_,ALL1left,_))::rest671) => let val | |
986 | result=MlyValue.figurative_constant((Cobol.ALL_SPACE)) | |
987 | in (hojfelds_NT 288,(result,ALL1left,SPACE1right),rest671) end | |
988 | | (46,(_,(_,_,SPACES1right))::(_,(_,ALL1left,_))::rest671) => let val | |
989 | result=MlyValue.figurative_constant((Cobol.ALL_SPACE)) | |
990 | in (hojfelds_NT 288,(result,ALL1left,SPACES1right),rest671) end | |
991 | | (47,(_,(_,_,HIGHVALUE1right))::(_,(_,ALL1left,_))::rest671) => let | |
992 | val result=MlyValue.figurative_constant((Cobol.ALL_HIGHVALUE)) | |
993 | in (hojfelds_NT 288,(result,ALL1left,HIGHVALUE1right),rest671) end | |
994 | | (48,(_,(_,_,HIGHVALUES1right))::(_,(_,ALL1left,_))::rest671) => let | |
995 | val result=MlyValue.figurative_constant((Cobol.ALL_HIGHVALUE)) | |
996 | in (hojfelds_NT 288,(result,ALL1left,HIGHVALUES1right),rest671) end | |
997 | | (49,(_,(_,_,LOWVALUE1right))::(_,(_,ALL1left,_))::rest671) => let | |
998 | val result=MlyValue.figurative_constant((Cobol.ALL_LOWVALUE)) | |
999 | in (hojfelds_NT 288,(result,ALL1left,LOWVALUE1right),rest671) end | |
1000 | | (50,(_,(_,_,LOWVALUES1right))::(_,(_,ALL1left,_))::rest671) => let | |
1001 | val result=MlyValue.figurative_constant((Cobol.ALL_LOWVALUE)) | |
1002 | in (hojfelds_NT 288,(result,ALL1left,LOWVALUES1right),rest671) end | |
1003 | | (51,(_,(_,_,QUOTE1right))::(_,(_,ALL1left,_))::rest671) => let val | |
1004 | result=MlyValue.figurative_constant((Cobol.ALL_QUOTE)) | |
1005 | in (hojfelds_NT 288,(result,ALL1left,QUOTE1right),rest671) end | |
1006 | | (52,(_,(_,_,QUOTES1right))::(_,(_,ALL1left,_))::rest671) => let val | |
1007 | result=MlyValue.figurative_constant((Cobol.ALL_QUOTE)) | |
1008 | in (hojfelds_NT 288,(result,ALL1left,QUOTES1right),rest671) end | |
1009 | | (53,(_,(MlyValue.NONNUMERICLITERAL NONNUMERICLITERAL,_, | |
1010 | NONNUMERICLITERAL1right))::(_,(_,ALL1left,_))::rest671) => let val | |
1011 | result=MlyValue.figurative_constant(( | |
1012 | Cobol.ALL_NONNUMERICLITERAL(NONNUMERICLITERAL))) | |
1013 | in (hojfelds_NT 288,(result,ALL1left,NONNUMERICLITERAL1right),rest671) | |
1014 | end | |
1015 | | (54,(_,(_,LINAGECOUNTER1left,LINAGECOUNTER1right))::rest671) => let | |
1016 | val result=MlyValue.special_register((Cobol.LINAGECOUNTER)) | |
1017 | in (hojfelds_NT 181,(result,LINAGECOUNTER1left,LINAGECOUNTER1right), | |
1018 | rest671) end | |
1019 | | (55,(_,(_,DEBUGITEM1left,DEBUGITEM1right))::rest671) => let val | |
1020 | result=MlyValue.special_register((Cobol.DEBUGITEM)) | |
1021 | in (hojfelds_NT 181,(result,DEBUGITEM1left,DEBUGITEM1right),rest671) | |
1022 | end | |
1023 | | (56,(_,(_,PERIOD1left,PERIOD1right))::rest671) => let val result= | |
1024 | MlyValue.ntVOID(()) | |
1025 | in (hojfelds_NT 361,(result,PERIOD1left,PERIOD1right),rest671) end | |
1026 | | (57,rest671) => let val result=MlyValue.ntVOID(()) | |
1027 | in (hojfelds_NT 361,(result,defaultPos,defaultPos),rest671) end | |
1028 | | (58,(_,(_,data_name1left,data_name1right))::rest671) => let val | |
1029 | result=MlyValue.ntVOID(()) | |
1030 | in (hojfelds_NT 100,(result,data_name1left,data_name1right),rest671) | |
1031 | end | |
1032 | | (59,rest671) => let val result=MlyValue.ntVOID(()) | |
1033 | in (hojfelds_NT 100,(result,defaultPos,defaultPos),rest671) end | |
1034 | | (60,(_,(_,procedure_name1left,procedure_name1right))::rest671) => | |
1035 | let val result=MlyValue.ntVOID(()) | |
1036 | in (hojfelds_NT 369,(result,procedure_name1left,procedure_name1right), | |
1037 | rest671) end | |
1038 | | (61,rest671) => let val result=MlyValue.ntVOID(()) | |
1039 | in (hojfelds_NT 369,(result,defaultPos,defaultPos),rest671) end | |
1040 | | (62,(_,(_,routine_name1left,routine_name1right))::rest671) => let | |
1041 | val result=MlyValue.ntVOID(()) | |
1042 | in (hojfelds_NT 183,(result,routine_name1left,routine_name1right), | |
1043 | rest671) end | |
1044 | | (63,rest671) => let val result=MlyValue.ntVOID(()) | |
1045 | in (hojfelds_NT 183,(result,defaultPos,defaultPos),rest671) end | |
1046 | | (64,(_,(MlyValue.INTEGER INTEGER,INTEGER1left,INTEGER1right)):: | |
1047 | rest671) => let val result=MlyValue.segment_number_opt(( | |
1048 | Cobol.SEGMENT_NUMBER(INTEGER))) | |
1049 | in (hojfelds_NT 428,(result,INTEGER1left,INTEGER1right),rest671) end | |
1050 | | (65,rest671) => let val result=MlyValue.segment_number_opt(( | |
1051 | Cobol.NOSEGMENT_NUMBER)) | |
1052 | in (hojfelds_NT 428,(result,defaultPos,defaultPos),rest671) end | |
1053 | | (66,(_,(MlyValue.data_name data_name,_,data_name1right))::(_,( | |
1054 | MlyValue.data_names data_names,data_names1left,_))::rest671) => let | |
1055 | val result=MlyValue.data_names(( | |
1056 | Cobol.DATA_NAMES(data_names,data_name ))) | |
1057 | in (hojfelds_NT 97,(result,data_names1left,data_name1right),rest671) | |
1058 | end | |
1059 | | (67,(_,(MlyValue.data_name data_name,data_name1left,data_name1right) | |
1060 | )::rest671) => let val result=MlyValue.data_names(( | |
1061 | Cobol.ONE_DATA_NAME(data_name))) | |
1062 | in (hojfelds_NT 97,(result,data_name1left,data_name1right),rest671) | |
1063 | end | |
1064 | | (68,(_,(_,_,qdata_name1right))::(_,(_,qdata_names1left,_))::rest671) | |
1065 | => let val result=MlyValue.ntVOID(()) | |
1066 | in (hojfelds_NT 99,(result,qdata_names1left,qdata_name1right),rest671) | |
1067 | end | |
1068 | | (69,(_,(_,qdata_name1left,qdata_name1right))::rest671) => let val | |
1069 | result=MlyValue.ntVOID(()) | |
1070 | in (hojfelds_NT 99,(result,qdata_name1left,qdata_name1right),rest671) | |
1071 | end | |
1072 | | (70,(_,(_,_,file_name1right))::(_,(_,file_names1left,_))::rest671) | |
1073 | => let val result=MlyValue.ntVOID(()) | |
1074 | in (hojfelds_NT 203,(result,file_names1left,file_name1right),rest671) | |
1075 | end | |
1076 | | (71,(_,(_,file_name1left,file_name1right))::rest671) => let val | |
1077 | result=MlyValue.ntVOID(()) | |
1078 | in (hojfelds_NT 203,(result,file_name1left,file_name1right),rest671) | |
1079 | end | |
1080 | | (72,(_,(MlyValue.index_name index_name,_,index_name1right))::(_,( | |
1081 | MlyValue.index_names index_names,index_names1left,_))::rest671) => | |
1082 | let val result=MlyValue.index_names(( | |
1083 | Cobol.SEVERAL_INDEX_NAMES(index_names,index_name))) | |
1084 | in (hojfelds_NT 245,(result,index_names1left,index_name1right),rest671 | |
1085 | ) end | |
1086 | | (73,(_,(MlyValue.index_name index_name,index_name1left, | |
1087 | index_name1right))::rest671) => let val result=MlyValue.index_names(( | |
1088 | Cobol.ONE_INDEX_NAME(index_name))) | |
1089 | in (hojfelds_NT 245,(result,index_name1left,index_name1right),rest671) | |
1090 | end | |
1091 | | (74,(_,(_,_,procedure_name1right))::(_,(_,procedure_names1left,_)):: | |
1092 | rest671) => let val result=MlyValue.ntVOID(()) | |
1093 | in (hojfelds_NT 370,(result,procedure_names1left,procedure_name1right) | |
1094 | ,rest671) end | |
1095 | | (75,(_,(_,procedure_name1left,procedure_name1right))::rest671) => | |
1096 | let val result=MlyValue.ntVOID(()) | |
1097 | in (hojfelds_NT 370,(result,procedure_name1left,procedure_name1right), | |
1098 | rest671) end | |
1099 | | (76,(_,(_,USERDEFINEDWORD1left,USERDEFINEDWORD1right))::rest671) => | |
1100 | let val result=MlyValue.ntVOID(()) | |
1101 | in (hojfelds_NT 106,(result,USERDEFINEDWORD1left,USERDEFINEDWORD1right | |
1102 | ),rest671) end | |
1103 | | (77,(_,(_,USERDEFINEDWORD1left,USERDEFINEDWORD1right))::rest671) => | |
1104 | let val result=MlyValue.ntVOID(()) | |
1105 | in (hojfelds_NT 368,(result,USERDEFINEDWORD1left,USERDEFINEDWORD1right | |
1106 | ),rest671) end | |
1107 | | (78,(_,(_,INTEGER1left,INTEGER1right))::rest671) => let val result= | |
1108 | MlyValue.ntVOID(()) | |
1109 | in (hojfelds_NT 368,(result,INTEGER1left,INTEGER1right),rest671) end | |
1110 | | (79,(_,(_,SYSTEMCONSOLE1left,SYSTEMCONSOLE1right))::rest671) => let | |
1111 | val result=MlyValue.ntVOID(()) | |
1112 | in (hojfelds_NT 154,(result,SYSTEMCONSOLE1left,SYSTEMCONSOLE1right), | |
1113 | rest671) end | |
1114 | | (80,(_,(_,REQUESTOR1left,REQUESTOR1right))::rest671) => let val | |
1115 | result=MlyValue.ntVOID(()) | |
1116 | in (hojfelds_NT 154,(result,REQUESTOR1left,REQUESTOR1right),rest671) | |
1117 | end | |
1118 | | (81,(_,(_,LOCALDATA1left,LOCALDATA1right))::rest671) => let val | |
1119 | result=MlyValue.ntVOID(()) | |
1120 | in (hojfelds_NT 154,(result,LOCALDATA1left,LOCALDATA1right),rest671) | |
1121 | end | |
1122 | | (82,(_,(_,ATTRIBUTEDATA1left,ATTRIBUTEDATA1right))::rest671) => let | |
1123 | val result=MlyValue.ntVOID(()) | |
1124 | in (hojfelds_NT 154,(result,ATTRIBUTEDATA1left,ATTRIBUTEDATA1right), | |
1125 | rest671) end | |
1126 | | (83,(_,(_,C011left,C011right))::rest671) => let val result= | |
1127 | MlyValue.ntVOID(()) | |
1128 | in (hojfelds_NT 154,(result,C011left,C011right),rest671) end | |
1129 | | (84,(_,(_,CSP1left,CSP1right))::rest671) => let val result= | |
1130 | MlyValue.ntVOID(()) | |
1131 | in (hojfelds_NT 154,(result,CSP1left,CSP1right),rest671) end | |
1132 | | (85,(_,(_,SYSTEMSHUTDOWN1left,SYSTEMSHUTDOWN1right))::rest671) => | |
1133 | let val result=MlyValue.ntVOID(()) | |
1134 | in (hojfelds_NT 155,(result,SYSTEMSHUTDOWN1left,SYSTEMSHUTDOWN1right), | |
1135 | rest671) end | |
1136 | | (86,(_,(_,UPSI01left,UPSI01right))::rest671) => let val result= | |
1137 | MlyValue.ntVOID(()) | |
1138 | in (hojfelds_NT 155,(result,UPSI01left,UPSI01right),rest671) end | |
1139 | | (87,(_,(_,UPSI11left,UPSI11right))::rest671) => let val result= | |
1140 | MlyValue.ntVOID(()) | |
1141 | in (hojfelds_NT 155,(result,UPSI11left,UPSI11right),rest671) end | |
1142 | | (88,(_,(_,UPSI21left,UPSI21right))::rest671) => let val result= | |
1143 | MlyValue.ntVOID(()) | |
1144 | in (hojfelds_NT 155,(result,UPSI21left,UPSI21right),rest671) end | |
1145 | | (89,(_,(_,UPSI31left,UPSI31right))::rest671) => let val result= | |
1146 | MlyValue.ntVOID(()) | |
1147 | in (hojfelds_NT 155,(result,UPSI31left,UPSI31right),rest671) end | |
1148 | | (90,(_,(_,UPSI41left,UPSI41right))::rest671) => let val result= | |
1149 | MlyValue.ntVOID(()) | |
1150 | in (hojfelds_NT 155,(result,UPSI41left,UPSI41right),rest671) end | |
1151 | | (91,(_,(_,UPSI51left,UPSI51right))::rest671) => let val result= | |
1152 | MlyValue.ntVOID(()) | |
1153 | in (hojfelds_NT 155,(result,UPSI51left,UPSI51right),rest671) end | |
1154 | | (92,(_,(_,UPSI61left,UPSI61right))::rest671) => let val result= | |
1155 | MlyValue.ntVOID(()) | |
1156 | in (hojfelds_NT 155,(result,UPSI61left,UPSI61right),rest671) end | |
1157 | | (93,(_,(_,UPSI71left,UPSI71right))::rest671) => let val result= | |
1158 | MlyValue.ntVOID(()) | |
1159 | in (hojfelds_NT 155,(result,UPSI71left,UPSI71right),rest671) end | |
1160 | | (94,(_,(_,USERDEFINEDWORD1left,USERDEFINEDWORD1right))::rest671) => | |
1161 | let val result=MlyValue.ntVOID(()) | |
1162 | in (hojfelds_NT 47,(result,USERDEFINEDWORD1left,USERDEFINEDWORD1right) | |
1163 | ,rest671) end | |
1164 | | (95,(_,(_,ADVANCING1left,ADVANCING1right))::rest671) => let val | |
1165 | result=MlyValue.ntVOID(()) | |
1166 | in (hojfelds_NT 11,(result,ADVANCING1left,ADVANCING1right),rest671) | |
1167 | end | |
1168 | | (96,rest671) => let val result=MlyValue.ntVOID(()) | |
1169 | in (hojfelds_NT 11,(result,defaultPos,defaultPos),rest671) end | |
1170 | | (97,(_,(_,ALL1left,ALL1right))::rest671) => let val result= | |
1171 | MlyValue.ntVOID(()) | |
1172 | in (hojfelds_NT 15,(result,ALL1left,ALL1right),rest671) end | |
1173 | | (98,rest671) => let val result=MlyValue.ntVOID(()) | |
1174 | in (hojfelds_NT 15,(result,defaultPos,defaultPos),rest671) end | |
1175 | | (99,(_,(_,ARE1left,ARE1right))::rest671) => let val result= | |
1176 | MlyValue.ntVOID(()) | |
1177 | in (hojfelds_NT 38,(result,ARE1left,ARE1right),rest671) end | |
1178 | | (100,rest671) => let val result=MlyValue.ntVOID(()) | |
1179 | in (hojfelds_NT 38,(result,defaultPos,defaultPos),rest671) end | |
1180 | | (101,(_,(_,AREA1left,AREA1right))::rest671) => let val result= | |
1181 | MlyValue.ntVOID(()) | |
1182 | in (hojfelds_NT 39,(result,AREA1left,AREA1right),rest671) end | |
1183 | | (102,rest671) => let val result=MlyValue.ntVOID(()) | |
1184 | in (hojfelds_NT 39,(result,defaultPos,defaultPos),rest671) end | |
1185 | | (103,(_,(_,AREAS1left,AREAS1right))::rest671) => let val result= | |
1186 | MlyValue.ntVOID(()) | |
1187 | in (hojfelds_NT 41,(result,AREAS1left,AREAS1right),rest671) end | |
1188 | | (104,(_,(_,AREA1left,AREA1right))::rest671) => let val result= | |
1189 | MlyValue.ntVOID(()) | |
1190 | in (hojfelds_NT 41,(result,AREA1left,AREA1right),rest671) end | |
1191 | | (105,rest671) => let val result=MlyValue.ntVOID(()) | |
1192 | in (hojfelds_NT 41,(result,defaultPos,defaultPos),rest671) end | |
1193 | | (106,(_,(_,_,for_opt1right))::(_,(_,area1left,_))::rest671) => let | |
1194 | val result=MlyValue.ntVOID(()) | |
1195 | in (hojfelds_NT 40,(result,area1left,for_opt1right),rest671) end | |
1196 | | (107,(_,(_,AT1left,AT1right))::rest671) => let val result= | |
1197 | MlyValue.ntVOID(()) | |
1198 | in (hojfelds_NT 48,(result,AT1left,AT1right),rest671) end | |
1199 | | (108,rest671) => let val result=MlyValue.ntVOID(()) | |
1200 | in (hojfelds_NT 48,(result,defaultPos,defaultPos),rest671) end | |
1201 | | (109,(_,(_,BY1left,BY1right))::rest671) => let val result= | |
1202 | MlyValue.ntVOID(()) | |
1203 | in (hojfelds_NT 54,(result,BY1left,BY1right),rest671) end | |
1204 | | (110,rest671) => let val result=MlyValue.ntVOID(()) | |
1205 | in (hojfelds_NT 54,(result,defaultPos,defaultPos),rest671) end | |
1206 | | (111,(_,(_,CHARACTER1left,CHARACTER1right))::rest671) => let val | |
1207 | result=MlyValue.ntVOID(()) | |
1208 | in (hojfelds_NT 59,(result,CHARACTER1left,CHARACTER1right),rest671) | |
1209 | end | |
1210 | | (112,rest671) => let val result=MlyValue.ntVOID(()) | |
1211 | in (hojfelds_NT 59,(result,defaultPos,defaultPos),rest671) end | |
1212 | | (113,(_,(_,CHARACTERS1left,CHARACTERS1right))::rest671) => let val | |
1213 | result=MlyValue.ntVOID(()) | |
1214 | in (hojfelds_NT 61,(result,CHARACTERS1left,CHARACTERS1right),rest671) | |
1215 | end | |
1216 | | (114,rest671) => let val result=MlyValue.ntVOID(()) | |
1217 | in (hojfelds_NT 61,(result,defaultPos,defaultPos),rest671) end | |
1218 | | (115,(_,(_,COLLATING1left,COLLATING1right))::rest671) => let val | |
1219 | result=MlyValue.ntVOID(()) | |
1220 | in (hojfelds_NT 66,(result,COLLATING1left,COLLATING1right),rest671) | |
1221 | end | |
1222 | | (116,rest671) => let val result=MlyValue.ntVOID(()) | |
1223 | in (hojfelds_NT 66,(result,defaultPos,defaultPos),rest671) end | |
1224 | | (117,(_,(_,CONTAINS1left,CONTAINS1right))::rest671) => let val | |
1225 | result=MlyValue.ntVOID(()) | |
1226 | in (hojfelds_NT 78,(result,CONTAINS1left,CONTAINS1right),rest671) end | |
1227 | | (118,rest671) => let val result=MlyValue.ntVOID(()) | |
1228 | in (hojfelds_NT 78,(result,defaultPos,defaultPos),rest671) end | |
1229 | | (119,(_,(_,EVERY1left,EVERY1right))::rest671) => let val result= | |
1230 | MlyValue.ntVOID(()) | |
1231 | in (hojfelds_NT 159,(result,EVERY1left,EVERY1right),rest671) end | |
1232 | | (120,rest671) => let val result=MlyValue.ntVOID(()) | |
1233 | in (hojfelds_NT 159,(result,defaultPos,defaultPos),rest671) end | |
1234 | | (121,(_,(_,FILE1left,FILE1right))::rest671) => let val result= | |
1235 | MlyValue.ntVOID(()) | |
1236 | in (hojfelds_NT 166,(result,FILE1left,FILE1right),rest671) end | |
1237 | | (122,rest671) => let val result=MlyValue.ntVOID(()) | |
1238 | in (hojfelds_NT 166,(result,defaultPos,defaultPos),rest671) end | |
1239 | | (123,(_,(_,FILLER1left,FILLER1right))::rest671) => let val result= | |
1240 | MlyValue.filler((Cobol.FILLER)) | |
1241 | in (hojfelds_NT 496,(result,FILLER1left,FILLER1right),rest671) end | |
1242 | | (124,rest671) => let val result=MlyValue.filler((Cobol.NO_FILLER)) | |
1243 | in (hojfelds_NT 496,(result,defaultPos,defaultPos),rest671) end | |
1244 | | (125,(_,(_,FOR1left,FOR1right))::rest671) => let val result= | |
1245 | MlyValue.ntVOID(()) | |
1246 | in (hojfelds_NT 213,(result,FOR1left,FOR1right),rest671) end | |
1247 | | (126,rest671) => let val result=MlyValue.ntVOID(()) | |
1248 | in (hojfelds_NT 213,(result,defaultPos,defaultPos),rest671) end | |
1249 | | (127,(_,(_,_,REMOVAL1right))::(_,(_,for_opt1left,_))::rest671) => | |
1250 | let val result=MlyValue.ntVOID(()) | |
1251 | in (hojfelds_NT 214,(result,for_opt1left,REMOVAL1right),rest671) end | |
1252 | | (128,rest671) => let val result=MlyValue.ntVOID(()) | |
1253 | in (hojfelds_NT 214,(result,defaultPos,defaultPos),rest671) end | |
1254 | | (129,(_,(_,INITIAL1left,INITIAL1right))::rest671) => let val result= | |
1255 | MlyValue.ntVOID(()) | |
1256 | in (hojfelds_NT 253,(result,INITIAL1left,INITIAL1right),rest671) end | |
1257 | | (130,rest671) => let val result=MlyValue.ntVOID(()) | |
1258 | in (hojfelds_NT 253,(result,defaultPos,defaultPos),rest671) end | |
1259 | | (131,(_,(_,IN1left,IN1right))::rest671) => let val result= | |
1260 | MlyValue.ntVOID(()) | |
1261 | in (hojfelds_NT 242,(result,IN1left,IN1right),rest671) end | |
1262 | | (132,rest671) => let val result=MlyValue.ntVOID(()) | |
1263 | in (hojfelds_NT 242,(result,defaultPos,defaultPos),rest671) end | |
1264 | | (133,(_,(_,IS1left,IS1right))::rest671) => let val result= | |
1265 | MlyValue.ntVOID(()) | |
1266 | in (hojfelds_NT 278,(result,IS1left,IS1right),rest671) end | |
1267 | | (134,rest671) => let val result=MlyValue.ntVOID(()) | |
1268 | in (hojfelds_NT 278,(result,defaultPos,defaultPos),rest671) end | |
1269 | | (135,(_,(_,_,NOT1right))::(_,(_,IS1left,_))::rest671) => let val | |
1270 | result=MlyValue.is_not((Cobol.IS_NOT_NOT)) | |
1271 | in (hojfelds_NT 279,(result,IS1left,NOT1right),rest671) end | |
1272 | | (136,(_,(_,IS1left,IS1right))::rest671) => let val result= | |
1273 | MlyValue.is_not((Cobol.IS_NOT_IS)) | |
1274 | in (hojfelds_NT 279,(result,IS1left,IS1right),rest671) end | |
1275 | | (137,(_,(_,NOT1left,NOT1right))::rest671) => let val result= | |
1276 | MlyValue.is_not((Cobol.IS_NOT_NOT)) | |
1277 | in (hojfelds_NT 279,(result,NOT1left,NOT1right),rest671) end | |
1278 | | (138,rest671) => let val result=MlyValue.is_not((Cobol.IS_NOT_IS)) | |
1279 | in (hojfelds_NT 279,(result,defaultPos,defaultPos),rest671) end | |
1280 | | (139,(_,(_,KEY1left,KEY1right))::rest671) => let val result= | |
1281 | MlyValue.ntVOID(()) | |
1282 | in (hojfelds_NT 282,(result,KEY1left,KEY1right),rest671) end | |
1283 | | (140,rest671) => let val result=MlyValue.ntVOID(()) | |
1284 | in (hojfelds_NT 282,(result,defaultPos,defaultPos),rest671) end | |
1285 | | (141,(_,(_,LINE1left,LINE1right))::rest671) => let val result= | |
1286 | MlyValue.ntVOID(()) | |
1287 | in (hojfelds_NT 294,(result,LINE1left,LINE1right),rest671) end | |
1288 | | (142,(_,(_,lines1left,lines1right))::rest671) => let val result= | |
1289 | MlyValue.ntVOID(()) | |
1290 | in (hojfelds_NT 294,(result,lines1left,lines1right),rest671) end | |
1291 | | (143,(_,(_,LINES1left,LINES1right))::rest671) => let val result= | |
1292 | MlyValue.ntVOID(()) | |
1293 | in (hojfelds_NT 295,(result,LINES1left,LINES1right),rest671) end | |
1294 | | (144,rest671) => let val result=MlyValue.ntVOID(()) | |
1295 | in (hojfelds_NT 295,(result,defaultPos,defaultPos),rest671) end | |
1296 | | (145,(_,(_,_,is1right))::(_,(_,MODE1left,_))::rest671) => let val | |
1297 | result=MlyValue.ntVOID(()) | |
1298 | in (hojfelds_NT 313,(result,MODE1left,is1right),rest671) end | |
1299 | | (146,(_,(_,is1left,is1right))::rest671) => let val result= | |
1300 | MlyValue.ntVOID(()) | |
1301 | in (hojfelds_NT 313,(result,is1left,is1right),rest671) end | |
1302 | | (147,(_,(_,NEXT1left,NEXT1right))::rest671) => let val result= | |
1303 | MlyValue.ntVOID(()) | |
1304 | in (hojfelds_NT 148,(result,NEXT1left,NEXT1right),rest671) end | |
1305 | | (148,(_,(_,FIRST1left,FIRST1right))::rest671) => let val result= | |
1306 | MlyValue.ntVOID(()) | |
1307 | in (hojfelds_NT 148,(result,FIRST1left,FIRST1right),rest671) end | |
1308 | | (149,(_,(_,LAST1left,LAST1right))::rest671) => let val result= | |
1309 | MlyValue.ntVOID(()) | |
1310 | in (hojfelds_NT 148,(result,LAST1left,LAST1right),rest671) end | |
1311 | | (150,(_,(_,PRIOR1left,PRIOR1right))::rest671) => let val result= | |
1312 | MlyValue.ntVOID(()) | |
1313 | in (hojfelds_NT 148,(result,PRIOR1left,PRIOR1right),rest671) end | |
1314 | | (151,rest671) => let val result=MlyValue.ntVOID(()) | |
1315 | in (hojfelds_NT 148,(result,defaultPos,defaultPos),rest671) end | |
1316 | | (152,(_,(_,OF1left,OF1right))::rest671) => let val result= | |
1317 | MlyValue.ntVOID(()) | |
1318 | in (hojfelds_NT 331,(result,OF1left,OF1right),rest671) end | |
1319 | | (153,rest671) => let val result=MlyValue.ntVOID(()) | |
1320 | in (hojfelds_NT 331,(result,defaultPos,defaultPos),rest671) end | |
1321 | | (154,(_,(_,ON1left,ON1right))::rest671) => let val result= | |
1322 | MlyValue.ntVOID(()) | |
1323 | in (hojfelds_NT 335,(result,ON1left,ON1right),rest671) end | |
1324 | | (155,rest671) => let val result=MlyValue.ntVOID(()) | |
1325 | in (hojfelds_NT 335,(result,defaultPos,defaultPos),rest671) end | |
1326 | | (156,(_,(_,OPTIONAL1left,OPTIONAL1right))::rest671) => let val | |
1327 | result=MlyValue.ntVOID(()) | |
1328 | in (hojfelds_NT 348,(result,OPTIONAL1left,OPTIONAL1right),rest671) end | |
1329 | | (157,rest671) => let val result=MlyValue.ntVOID(()) | |
1330 | in (hojfelds_NT 348,(result,defaultPos,defaultPos),rest671) end | |
1331 | | (158,(_,(_,_,is1right))::(_,(_,ORGANIZATION1left,_))::rest671) => | |
1332 | let val result=MlyValue.ntVOID(()) | |
1333 | in (hojfelds_NT 352,(result,ORGANIZATION1left,is1right),rest671) end | |
1334 | | (159,(_,(_,_,TO1right))::(_,(_,PROCEED1left,_))::rest671) => let | |
1335 | val result=MlyValue.ntVOID(()) | |
1336 | in (hojfelds_NT 371,(result,PROCEED1left,TO1right),rest671) end | |
1337 | | (160,rest671) => let val result=MlyValue.ntVOID(()) | |
1338 | in (hojfelds_NT 371,(result,defaultPos,defaultPos),rest671) end | |
1339 | | (161,(_,(_,_,COLLATING1right))::(_,(_,PROGRAM1left,_))::rest671) => | |
1340 | let val result=MlyValue.ntVOID(()) | |
1341 | in (hojfelds_NT 373,(result,PROGRAM1left,COLLATING1right),rest671) end | |
1342 | | (162,(_,(_,PROGRAM1left,PROGRAM1right))::rest671) => let val result= | |
1343 | MlyValue.ntVOID(()) | |
1344 | in (hojfelds_NT 373,(result,PROGRAM1left,PROGRAM1right),rest671) end | |
1345 | | (163,(_,(_,COLLATING1left,COLLATING1right))::rest671) => let val | |
1346 | result=MlyValue.ntVOID(()) | |
1347 | in (hojfelds_NT 373,(result,COLLATING1left,COLLATING1right),rest671) | |
1348 | end | |
1349 | | (164,rest671) => let val result=MlyValue.ntVOID(()) | |
1350 | in (hojfelds_NT 373,(result,defaultPos,defaultPos),rest671) end | |
1351 | | (165,(_,(_,RECORD1left,RECORD1right))::rest671) => let val result= | |
1352 | MlyValue.ntVOID(()) | |
1353 | in (hojfelds_NT 378,(result,RECORD1left,RECORD1right),rest671) end | |
1354 | | (166,rest671) => let val result=MlyValue.ntVOID(()) | |
1355 | in (hojfelds_NT 378,(result,defaultPos,defaultPos),rest671) end | |
1356 | | (167,(_,(_,RIGHT1left,RIGHT1right))::rest671) => let val result= | |
1357 | MlyValue.ntVOID(()) | |
1358 | in (hojfelds_NT 413,(result,RIGHT1left,RIGHT1right),rest671) end | |
1359 | | (168,rest671) => let val result=MlyValue.ntVOID(()) | |
1360 | in (hojfelds_NT 413,(result,defaultPos,defaultPos),rest671) end | |
1361 | | (169,(_,(_,ROUNDED1left,ROUNDED1right))::rest671) => let val result= | |
1362 | MlyValue.rounded((Cobol.ROUNDED)) | |
1363 | in (hojfelds_NT 414,(result,ROUNDED1left,ROUNDED1right),rest671) end | |
1364 | | (170,rest671) => let val result=MlyValue.rounded((Cobol.NOT_ROUNDED) | |
1365 | ) | |
1366 | in (hojfelds_NT 414,(result,defaultPos,defaultPos),rest671) end | |
1367 | | (171,(_,(_,_,character1right))::(_,(_,SEPARATE1left,_))::rest671) | |
1368 | => let val result=MlyValue.separate_character((Cobol.SEPARATE)) | |
1369 | in (hojfelds_NT 431,(result,SEPARATE1left,character1right),rest671) | |
1370 | end | |
1371 | | (172,rest671) => let val result=MlyValue.separate_character(( | |
1372 | Cobol.NO_SEPARATE)) | |
1373 | in (hojfelds_NT 431,(result,defaultPos,defaultPos),rest671) end | |
1374 | | (173,(_,(_,_,IS1right))::(_,(_,SIGN1left,_))::rest671) => let val | |
1375 | result=MlyValue.ntVOID(()) | |
1376 | in (hojfelds_NT 437,(result,SIGN1left,IS1right),rest671) end | |
1377 | | (174,(_,(_,IS1left,IS1right))::rest671) => let val result= | |
1378 | MlyValue.ntVOID(()) | |
1379 | in (hojfelds_NT 437,(result,IS1left,IS1right),rest671) end | |
1380 | | (175,(_,(_,_,is1right))::(_,(_,SIGN1left,_))::rest671) => let val | |
1381 | result=MlyValue.ntVOID(()) | |
1382 | in (hojfelds_NT 438,(result,SIGN1left,is1right),rest671) end | |
1383 | | (176,rest671) => let val result=MlyValue.ntVOID(()) | |
1384 | in (hojfelds_NT 438,(result,defaultPos,defaultPos),rest671) end | |
1385 | | (177,(_,(_,SIZE1left,SIZE1right))::rest671) => let val result= | |
1386 | MlyValue.ntVOID(()) | |
1387 | in (hojfelds_NT 440,(result,SIZE1left,SIZE1right),rest671) end | |
1388 | | (178,rest671) => let val result=MlyValue.ntVOID(()) | |
1389 | in (hojfelds_NT 440,(result,defaultPos,defaultPos),rest671) end | |
1390 | | (179,(_,(_,STANDARD1left,STANDARD1right))::rest671) => let val | |
1391 | result=MlyValue.ntVOID(()) | |
1392 | in (hojfelds_NT 455,(result,STANDARD1left,STANDARD1right),rest671) end | |
1393 | | (180,rest671) => let val result=MlyValue.ntVOID(()) | |
1394 | in (hojfelds_NT 455,(result,defaultPos,defaultPos),rest671) end | |
1395 | | (181,(_,(_,_,IS1right))::(_,(_,STATUS1left,_))::rest671) => let val | |
1396 | result=MlyValue.ntVOID(()) | |
1397 | in (hojfelds_NT 464,(result,STATUS1left,IS1right),rest671) end | |
1398 | | (182,(_,(_,IS1left,IS1right))::rest671) => let val result= | |
1399 | MlyValue.ntVOID(()) | |
1400 | in (hojfelds_NT 464,(result,IS1left,IS1right),rest671) end | |
1401 | | (183,(_,(_,_,CONTAINS1right))::(_,(_,TAPE1left,_))::rest671) => let | |
1402 | val result=MlyValue.ntVOID(()) | |
1403 | in (hojfelds_NT 483,(result,TAPE1left,CONTAINS1right),rest671) end | |
1404 | | (184,(_,(_,TAPE1left,TAPE1right))::rest671) => let val result= | |
1405 | MlyValue.ntVOID(()) | |
1406 | in (hojfelds_NT 483,(result,TAPE1left,TAPE1right),rest671) end | |
1407 | | (185,(_,(_,CONTAINS1left,CONTAINS1right))::rest671) => let val | |
1408 | result=MlyValue.ntVOID(()) | |
1409 | in (hojfelds_NT 483,(result,CONTAINS1left,CONTAINS1right),rest671) end | |
1410 | | (186,rest671) => let val result=MlyValue.ntVOID(()) | |
1411 | in (hojfelds_NT 483,(result,defaultPos,defaultPos),rest671) end | |
1412 | | (187,(_,(_,THAN1left,THAN1right))::rest671) => let val result= | |
1413 | MlyValue.ntVOID(()) | |
1414 | in (hojfelds_NT 487,(result,THAN1left,THAN1right),rest671) end | |
1415 | | (188,rest671) => let val result=MlyValue.ntVOID(()) | |
1416 | in (hojfelds_NT 487,(result,defaultPos,defaultPos),rest671) end | |
1417 | | (189,(_,(_,THEN1left,THEN1right))::rest671) => let val result= | |
1418 | MlyValue.ntVOID(()) | |
1419 | in (hojfelds_NT 488,(result,THEN1left,THEN1right),rest671) end | |
1420 | | (190,rest671) => let val result=MlyValue.ntVOID(()) | |
1421 | in (hojfelds_NT 488,(result,defaultPos,defaultPos),rest671) end | |
1422 | | (191,(_,(_,TIMES1left,TIMES1right))::rest671) => let val result= | |
1423 | MlyValue.ntVOID(()) | |
1424 | in (hojfelds_NT 497,(result,TIMES1left,TIMES1right),rest671) end | |
1425 | | (192,rest671) => let val result=MlyValue.ntVOID(()) | |
1426 | in (hojfelds_NT 497,(result,defaultPos,defaultPos),rest671) end | |
1427 | | (193,(_,(_,TO1left,TO1right))::rest671) => let val result= | |
1428 | MlyValue.ntVOID(()) | |
1429 | in (hojfelds_NT 499,(result,TO1left,TO1right),rest671) end | |
1430 | | (194,rest671) => let val result=MlyValue.ntVOID(()) | |
1431 | in (hojfelds_NT 499,(result,defaultPos,defaultPos),rest671) end | |
1432 | | (195,(_,(_,_,is1right))::(_,(_,USAGE1left,_))::rest671) => let val | |
1433 | result=MlyValue.ntVOID(()) | |
1434 | in (hojfelds_NT 508,(result,USAGE1left,is1right),rest671) end | |
1435 | | (196,rest671) => let val result=MlyValue.ntVOID(()) | |
1436 | in (hojfelds_NT 508,(result,defaultPos,defaultPos),rest671) end | |
1437 | | (197,(_,(_,WHEN1left,WHEN1right))::rest671) => let val result= | |
1438 | MlyValue.ntVOID(()) | |
1439 | in (hojfelds_NT 524,(result,WHEN1left,WHEN1right),rest671) end | |
1440 | | (198,rest671) => let val result=MlyValue.ntVOID(()) | |
1441 | in (hojfelds_NT 524,(result,defaultPos,defaultPos),rest671) end | |
1442 | | (199,(_,(_,WITH1left,WITH1right))::rest671) => let val result= | |
1443 | MlyValue.ntVOID(()) | |
1444 | in (hojfelds_NT 528,(result,WITH1left,WITH1right),rest671) end | |
1445 | | (200,rest671) => let val result=MlyValue.ntVOID(()) | |
1446 | in (hojfelds_NT 528,(result,defaultPos,defaultPos),rest671) end | |
1447 | | (201,(_,(_,CORRESPONDING1left,CORRESPONDING1right))::rest671) => | |
1448 | let val result=MlyValue.ntVOID(()) | |
1449 | in (hojfelds_NT 82,(result,CORRESPONDING1left,CORRESPONDING1right), | |
1450 | rest671) end | |
1451 | | (202,(_,(_,CORR1left,CORR1right))::rest671) => let val result= | |
1452 | MlyValue.ntVOID(()) | |
1453 | in (hojfelds_NT 82,(result,CORR1left,CORR1right),rest671) end | |
1454 | | (203,(_,(_,JUSTIFIED1left,JUSTIFIED1right))::rest671) => let val | |
1455 | result=MlyValue.ntVOID(()) | |
1456 | in (hojfelds_NT 280,(result,JUSTIFIED1left,JUSTIFIED1right),rest671) | |
1457 | end | |
1458 | | (204,(_,(_,JUST1left,JUST1right))::rest671) => let val result= | |
1459 | MlyValue.ntVOID(()) | |
1460 | in (hojfelds_NT 280,(result,JUST1left,JUST1right),rest671) end | |
1461 | | (205,(_,(_,PICTURE1left,PICTURE1right))::rest671) => let val result= | |
1462 | MlyValue.ntVOID(()) | |
1463 | in (hojfelds_NT 362,(result,PICTURE1left,PICTURE1right),rest671) end | |
1464 | | (206,(_,(_,PIC1left,PIC1right))::rest671) => let val result= | |
1465 | MlyValue.ntVOID(()) | |
1466 | in (hojfelds_NT 362,(result,PIC1left,PIC1right),rest671) end | |
1467 | | (207,(_,(_,SYNCHRONIZED1left,SYNCHRONIZED1right))::rest671) => let | |
1468 | val result=MlyValue.ntVOID(()) | |
1469 | in (hojfelds_NT 474,(result,SYNCHRONIZED1left,SYNCHRONIZED1right), | |
1470 | rest671) end | |
1471 | | (208,(_,(_,SYNC1left,SYNC1right))::rest671) => let val result= | |
1472 | MlyValue.ntVOID(()) | |
1473 | in (hojfelds_NT 474,(result,SYNC1left,SYNC1right),rest671) end | |
1474 | | (209,(_,(_,THROUGH1left,THROUGH1right))::rest671) => let val result= | |
1475 | MlyValue.ntVOID(()) | |
1476 | in (hojfelds_NT 491,(result,THROUGH1left,THROUGH1right),rest671) end | |
1477 | | (210,(_,(_,THRU1left,THRU1right))::rest671) => let val result= | |
1478 | MlyValue.ntVOID(()) | |
1479 | in (hojfelds_NT 491,(result,THRU1left,THRU1right),rest671) end | |
1480 | | (211,(_,(_,ENDADD1left,ENDADD1right))::rest671) => let val result= | |
1481 | MlyValue.ntVOID(()) | |
1482 | in (hojfelds_NT 131,(result,ENDADD1left,ENDADD1right),rest671) end | |
1483 | | (212,rest671) => let val result=MlyValue.ntVOID(()) | |
1484 | in (hojfelds_NT 131,(result,defaultPos,defaultPos),rest671) end | |
1485 | | (213,(_,(_,ENDCALL1left,ENDCALL1right))::rest671) => let val result= | |
1486 | MlyValue.ntVOID(()) | |
1487 | in (hojfelds_NT 132,(result,ENDCALL1left,ENDCALL1right),rest671) end | |
1488 | | (214,rest671) => let val result=MlyValue.ntVOID(()) | |
1489 | in (hojfelds_NT 132,(result,defaultPos,defaultPos),rest671) end | |
1490 | | (215,(_,(_,ENDCOMPUTE1left,ENDCOMPUTE1right))::rest671) => let val | |
1491 | result=MlyValue.ntVOID(()) | |
1492 | in (hojfelds_NT 133,(result,ENDCOMPUTE1left,ENDCOMPUTE1right),rest671) | |
1493 | end | |
1494 | | (216,rest671) => let val result=MlyValue.ntVOID(()) | |
1495 | in (hojfelds_NT 133,(result,defaultPos,defaultPos),rest671) end | |
1496 | | (217,(_,(_,ENDDELETE1left,ENDDELETE1right))::rest671) => let val | |
1497 | result=MlyValue.ntVOID(()) | |
1498 | in (hojfelds_NT 134,(result,ENDDELETE1left,ENDDELETE1right),rest671) | |
1499 | end | |
1500 | | (218,rest671) => let val result=MlyValue.ntVOID(()) | |
1501 | in (hojfelds_NT 134,(result,defaultPos,defaultPos),rest671) end | |
1502 | | (219,(_,(_,ENDDIVIDE1left,ENDDIVIDE1right))::rest671) => let val | |
1503 | result=MlyValue.ntVOID(()) | |
1504 | in (hojfelds_NT 135,(result,ENDDIVIDE1left,ENDDIVIDE1right),rest671) | |
1505 | end | |
1506 | | (220,rest671) => let val result=MlyValue.ntVOID(()) | |
1507 | in (hojfelds_NT 135,(result,defaultPos,defaultPos),rest671) end | |
1508 | | (221,(_,(_,ENDIF1left,ENDIF1right))::rest671) => let val result= | |
1509 | MlyValue.ntVOID(()) | |
1510 | in (hojfelds_NT 138,(result,ENDIF1left,ENDIF1right),rest671) end | |
1511 | | (222,rest671) => let val result=MlyValue.ntVOID(()) | |
1512 | in (hojfelds_NT 138,(result,defaultPos,defaultPos),rest671) end | |
1513 | | (223,(_,(_,ENDMULTIPLY1left,ENDMULTIPLY1right))::rest671) => let | |
1514 | val result=MlyValue.ntVOID(()) | |
1515 | in (hojfelds_NT 139,(result,ENDMULTIPLY1left,ENDMULTIPLY1right), | |
1516 | rest671) end | |
1517 | | (224,rest671) => let val result=MlyValue.ntVOID(()) | |
1518 | in (hojfelds_NT 139,(result,defaultPos,defaultPos),rest671) end | |
1519 | | (225,(_,(_,ENDREAD1left,ENDREAD1right))::rest671) => let val result= | |
1520 | MlyValue.ntVOID(()) | |
1521 | in (hojfelds_NT 142,(result,ENDREAD1left,ENDREAD1right),rest671) end | |
1522 | | (226,rest671) => let val result=MlyValue.ntVOID(()) | |
1523 | in (hojfelds_NT 142,(result,defaultPos,defaultPos),rest671) end | |
1524 | | (227,(_,(_,ENDRETURN1left,ENDRETURN1right))::rest671) => let val | |
1525 | result=MlyValue.ntVOID(()) | |
1526 | in (hojfelds_NT 143,(result,ENDRETURN1left,ENDRETURN1right),rest671) | |
1527 | end | |
1528 | | (228,rest671) => let val result=MlyValue.ntVOID(()) | |
1529 | in (hojfelds_NT 143,(result,defaultPos,defaultPos),rest671) end | |
1530 | | (229,(_,(_,ENDREWRITE1left,ENDREWRITE1right))::rest671) => let val | |
1531 | result=MlyValue.ntVOID(()) | |
1532 | in (hojfelds_NT 144,(result,ENDREWRITE1left,ENDREWRITE1right),rest671) | |
1533 | end | |
1534 | | (230,rest671) => let val result=MlyValue.ntVOID(()) | |
1535 | in (hojfelds_NT 144,(result,defaultPos,defaultPos),rest671) end | |
1536 | | (231,(_,(_,ENDSEARCH1left,ENDSEARCH1right))::rest671) => let val | |
1537 | result=MlyValue.ntVOID(()) | |
1538 | in (hojfelds_NT 145,(result,ENDSEARCH1left,ENDSEARCH1right),rest671) | |
1539 | end | |
1540 | | (232,rest671) => let val result=MlyValue.ntVOID(()) | |
1541 | in (hojfelds_NT 145,(result,defaultPos,defaultPos),rest671) end | |
1542 | | (233,(_,(_,ENDSTART1left,ENDSTART1right))::rest671) => let val | |
1543 | result=MlyValue.ntVOID(()) | |
1544 | in (hojfelds_NT 182,(result,ENDSTART1left,ENDSTART1right),rest671) end | |
1545 | | (234,rest671) => let val result=MlyValue.ntVOID(()) | |
1546 | in (hojfelds_NT 182,(result,defaultPos,defaultPos),rest671) end | |
1547 | | (235,(_,(_,ENDSTRING1left,ENDSTRING1right))::rest671) => let val | |
1548 | result=MlyValue.ntVOID(()) | |
1549 | in (hojfelds_NT 146,(result,ENDSTRING1left,ENDSTRING1right),rest671) | |
1550 | end | |
1551 | | (236,rest671) => let val result=MlyValue.ntVOID(()) | |
1552 | in (hojfelds_NT 146,(result,defaultPos,defaultPos),rest671) end | |
1553 | | (237,(_,(_,ENDSUBTRACT1left,ENDSUBTRACT1right))::rest671) => let | |
1554 | val result=MlyValue.ntVOID(()) | |
1555 | in (hojfelds_NT 147,(result,ENDSUBTRACT1left,ENDSUBTRACT1right), | |
1556 | rest671) end | |
1557 | | (238,rest671) => let val result=MlyValue.ntVOID(()) | |
1558 | in (hojfelds_NT 147,(result,defaultPos,defaultPos),rest671) end | |
1559 | | (239,(_,(_,ENDUNSTRING1left,ENDUNSTRING1right))::rest671) => let | |
1560 | val result=MlyValue.ntVOID(()) | |
1561 | in (hojfelds_NT 149,(result,ENDUNSTRING1left,ENDUNSTRING1right), | |
1562 | rest671) end | |
1563 | | (240,rest671) => let val result=MlyValue.ntVOID(()) | |
1564 | in (hojfelds_NT 149,(result,defaultPos,defaultPos),rest671) end | |
1565 | | (241,(_,(_,ENDWRITE1left,ENDWRITE1right))::rest671) => let val | |
1566 | result=MlyValue.ntVOID(()) | |
1567 | in (hojfelds_NT 150,(result,ENDWRITE1left,ENDWRITE1right),rest671) end | |
1568 | | (242,rest671) => let val result=MlyValue.ntVOID(()) | |
1569 | in (hojfelds_NT 150,(result,defaultPos,defaultPos),rest671) end | |
1570 | | (243,(_,(MlyValue.identifier identifier,_,identifier1right))::(_,( | |
1571 | MlyValue.identifiers identifiers,identifiers1left,_))::rest671) => | |
1572 | let val result=MlyValue.identifiers(( | |
1573 | Cobol.SEVERAL_IDENTIFIERS(identifiers,identifier))) | |
1574 | in (hojfelds_NT 239,(result,identifiers1left,identifier1right),rest671 | |
1575 | ) end | |
1576 | | (244,(_,(MlyValue.identifier identifier,identifier1left, | |
1577 | identifier1right))::rest671) => let val result=MlyValue.identifiers(( | |
1578 | Cobol.ONE_IDENTIFIER(identifier))) | |
1579 | in (hojfelds_NT 239,(result,identifier1left,identifier1right),rest671) | |
1580 | end | |
1581 | | (245,(_,(MlyValue.subscript_phrase subscript_phrase,_, | |
1582 | subscript_phraseright as subscript_phrase1right))::(_,( | |
1583 | MlyValue.qualifications qualifications,_,_))::(_,( | |
1584 | MlyValue.USERDEFINEDWORD USERDEFINEDWORD,USERDEFINEDWORDleft as | |
1585 | USERDEFINEDWORD1left,_))::rest671) => let val result= | |
1586 | MlyValue.identifier(( | |
1587 | Cobol.QUALIFIED_IDENTIFIER(USERDEFINEDWORD, | |
1588 | qualifications, | |
1589 | subscript_phrase, | |
1590 | USERDEFINEDWORDleft, | |
1591 | subscript_phraseright) | |
1592 | )) | |
1593 | in (hojfelds_NT 228,(result,USERDEFINEDWORD1left, | |
1594 | subscript_phrase1right),rest671) end | |
1595 | | (246,(_,(MlyValue.special_register special_register, | |
1596 | special_registerleft as special_register1left,special_registerright | |
1597 | as special_register1right))::rest671) => let val result= | |
1598 | MlyValue.identifier(( | |
1599 | Cobol.SPECIAL_REGISTER(special_register,special_registerleft,special_registerright) | |
1600 | )) | |
1601 | in (hojfelds_NT 228,(result,special_register1left, | |
1602 | special_register1right),rest671) end | |
1603 | | (247,(_,(MlyValue.qualification qualification,_,qualification1right) | |
1604 | )::(_,(MlyValue.qualifications qualifications,qualifications1left,_)) | |
1605 | ::rest671) => let val result=MlyValue.qualifications(( | |
1606 | Cobol.SEVERAL_QUALIFICATIONS(qualifications,qualification))) | |
1607 | in (hojfelds_NT 376,(result,qualifications1left,qualification1right), | |
1608 | rest671) end | |
1609 | | (248,rest671) => let val result=MlyValue.qualifications(( | |
1610 | Cobol.NO_QUALIFICATIONS)) | |
1611 | in (hojfelds_NT 376,(result,defaultPos,defaultPos),rest671) end | |
1612 | | (249,(_,(MlyValue.USERDEFINEDWORD USERDEFINEDWORD,_, | |
1613 | USERDEFINEDWORD1right))::(_,(_,of_in1left,_))::rest671) => let val | |
1614 | result=MlyValue.qualification((USERDEFINEDWORD)) | |
1615 | in (hojfelds_NT 375,(result,of_in1left,USERDEFINEDWORD1right),rest671) | |
1616 | end | |
1617 | | (250,(_,(_,OF1left,OF1right))::rest671) => let val result= | |
1618 | MlyValue.ntVOID(()) | |
1619 | in (hojfelds_NT 330,(result,OF1left,OF1right),rest671) end | |
1620 | | (251,(_,(_,IN1left,IN1right))::rest671) => let val result= | |
1621 | MlyValue.ntVOID(()) | |
1622 | in (hojfelds_NT 330,(result,IN1left,IN1right),rest671) end | |
1623 | | (252,(_,(_,_,RPAR1right))::_::(_,(_,LPAR1left,_))::rest671) => let | |
1624 | val result=MlyValue.subscript_phrase(()) | |
1625 | in (hojfelds_NT 471,(result,LPAR1left,RPAR1right),rest671) end | |
1626 | | (253,rest671) => let val result=MlyValue.subscript_phrase(()) | |
1627 | in (hojfelds_NT 471,(result,defaultPos,defaultPos),rest671) end | |
1628 | | (254,(_,(_,_,subscript1right))::(_,(_,subscripts1left,_))::rest671) | |
1629 | => let val result=MlyValue.ntVOID(()) | |
1630 | in (hojfelds_NT 472,(result,subscripts1left,subscript1right),rest671) | |
1631 | end | |
1632 | | (255,(_,(_,subscript1left,subscript1right))::rest671) => let val | |
1633 | result=MlyValue.ntVOID(()) | |
1634 | in (hojfelds_NT 472,(result,subscript1left,subscript1right),rest671) | |
1635 | end | |
1636 | | (256,(_,(_,INTEGER1left,INTEGER1right))::rest671) => let val result= | |
1637 | MlyValue.ntVOID(()) | |
1638 | in (hojfelds_NT 470,(result,INTEGER1left,INTEGER1right),rest671) end | |
1639 | | (257,(_,(_,_,offset1right))::(_,(_,data_or_index_name1left,_)):: | |
1640 | rest671) => let val result=MlyValue.ntVOID(()) | |
1641 | in (hojfelds_NT 470,(result,data_or_index_name1left,offset1right), | |
1642 | rest671) end | |
1643 | | (258,(_,(_,_,INTEGER1right))::(_,(_,PLUSSYMBOL1left,_))::rest671) | |
1644 | => let val result=MlyValue.ntVOID(()) | |
1645 | in (hojfelds_NT 334,(result,PLUSSYMBOL1left,INTEGER1right),rest671) | |
1646 | end | |
1647 | | (259,(_,(_,_,INTEGER1right))::(_,(_,MINUSSYMBOL1left,_))::rest671) | |
1648 | => let val result=MlyValue.ntVOID(()) | |
1649 | in (hojfelds_NT 334,(result,MINUSSYMBOL1left,INTEGER1right),rest671) | |
1650 | end | |
1651 | | (260,rest671) => let val result=MlyValue.ntVOID(()) | |
1652 | in (hojfelds_NT 334,(result,defaultPos,defaultPos),rest671) end | |
1653 | | (261,(_,(MlyValue.data_name data_name,data_name1left,data_name1right | |
1654 | ))::rest671) => let val result=MlyValue.data_name_or_literal(( | |
1655 | Cobol.DATA_NAME_OR_LITERAL_IS_DATA_NAME(data_name))) | |
1656 | in (hojfelds_NT 105,(result,data_name1left,data_name1right),rest671) | |
1657 | end | |
1658 | | (262,(_,(MlyValue.literal literal,literal1left,literal1right)):: | |
1659 | rest671) => let val result=MlyValue.data_name_or_literal(( | |
1660 | Cobol.DATA_NAME_OR_LITERAL_IS_LITERAL(literal))) | |
1661 | in (hojfelds_NT 105,(result,literal1left,literal1right),rest671) end | |
1662 | | (263,(_,(MlyValue.data_name data_name,data_name1left,data_name1right | |
1663 | ))::rest671) => let val result=MlyValue.data_name_or_integer(( | |
1664 | Cobol.DATA_NAME_OR_INTEGER_IS_DATA_NAME(data_name))) | |
1665 | in (hojfelds_NT 101,(result,data_name1left,data_name1right),rest671) | |
1666 | end | |
1667 | | (264,(_,(MlyValue.INTEGER INTEGER,INTEGER1left,INTEGER1right)):: | |
1668 | rest671) => let val result=MlyValue.data_name_or_integer(( | |
1669 | Cobol.DATA_NAME_OR_INTEGER_IS_INTEGER(INTEGER))) | |
1670 | in (hojfelds_NT 101,(result,INTEGER1left,INTEGER1right),rest671) end | |
1671 | | (265,(_,(MlyValue.data_name data_name,data_name1left,data_name1right | |
1672 | ))::rest671) => let val result=MlyValue.data_name_or_filler(( | |
1673 | Cobol.DATA_NAME_OR_FILLER_IS_DATA_NAME(data_name))) | |
1674 | in (hojfelds_NT 366,(result,data_name1left,data_name1right),rest671) | |
1675 | end | |
1676 | | (266,(_,(MlyValue.filler filler,filler1left,filler1right))::rest671) | |
1677 | => let val result=MlyValue.data_name_or_filler(( | |
1678 | Cobol.DATA_NAME_OR_FILLER_IS_FILLER(filler))) | |
1679 | in (hojfelds_NT 366,(result,filler1left,filler1right),rest671) end | |
1680 | | (267,(_,(MlyValue.identifier_or_literal identifier_or_literal,_, | |
1681 | identifier_or_literal1right))::(_,(MlyValue.identifier_or_literals | |
1682 | identifier_or_literals,identifier_or_literals1left,_))::rest671) => | |
1683 | let val result=MlyValue.identifier_or_literals(( | |
1684 | Cobol.SEVERAL_IDENTIFIER_OR_LITERALS(identifier_or_literals, | |
1685 | identifier_or_literal) | |
1686 | )) | |
1687 | in (hojfelds_NT 234,(result,identifier_or_literals1left, | |
1688 | identifier_or_literal1right),rest671) end | |
1689 | | (268,(_,(MlyValue.identifier_or_literal identifier_or_literal, | |
1690 | identifier_or_literal1left,identifier_or_literal1right))::rest671) => | |
1691 | let val result=MlyValue.identifier_or_literals(( | |
1692 | Cobol.ONE_IDENTIFIER_OR_LITERAL(identifier_or_literal))) | |
1693 | in (hojfelds_NT 234,(result,identifier_or_literal1left, | |
1694 | identifier_or_literal1right),rest671) end | |
1695 | | (269,(_,(MlyValue.identifier identifier,identifier1left, | |
1696 | identifier1right))::rest671) => let val result= | |
1697 | MlyValue.identifier_or_literal(( | |
1698 | Cobol.IDENTIFIER_OR_LITERAL_IS_IDENTIFIER(identifier))) | |
1699 | in (hojfelds_NT 233,(result,identifier1left,identifier1right),rest671) | |
1700 | end | |
1701 | | (270,(_,(MlyValue.literal literal,literal1left,literal1right)):: | |
1702 | rest671) => let val result=MlyValue.identifier_or_literal(( | |
1703 | Cobol.IDENTIFIER_OR_LITERAL_IS_LITERAL(literal))) | |
1704 | in (hojfelds_NT 233,(result,literal1left,literal1right),rest671) end | |
1705 | | (271,(_,(_,_, | |
1706 | identifier_or_nonnumeric_literal_or_not_all_figurative_constant1right) | |
1707 | )::(_,(_, | |
1708 | identifier_or_nonnumeric_literal_or_not_all_figurative_constants1left, | |
1709 | _))::rest671) => let val result=MlyValue.ntVOID(()) | |
1710 | in (hojfelds_NT 94,(result, | |
1711 | identifier_or_nonnumeric_literal_or_not_all_figurative_constants1left, | |
1712 | identifier_or_nonnumeric_literal_or_not_all_figurative_constant1right) | |
1713 | ,rest671) end | |
1714 | | (272,(_,(_, | |
1715 | identifier_or_nonnumeric_literal_or_not_all_figurative_constant1left, | |
1716 | identifier_or_nonnumeric_literal_or_not_all_figurative_constant1right) | |
1717 | )::rest671) => let val result=MlyValue.ntVOID(()) | |
1718 | in (hojfelds_NT 94,(result, | |
1719 | identifier_or_nonnumeric_literal_or_not_all_figurative_constant1left, | |
1720 | identifier_or_nonnumeric_literal_or_not_all_figurative_constant1right) | |
1721 | ,rest671) end | |
1722 | | (273,(_,(_,identifier1left,identifier1right))::rest671) => let val | |
1723 | result=MlyValue.ntVOID(()) | |
1724 | in (hojfelds_NT 93,(result,identifier1left,identifier1right),rest671) | |
1725 | end | |
1726 | | (274,(_,(_,nonnumeric_literal1left,nonnumeric_literal1right)):: | |
1727 | rest671) => let val result=MlyValue.ntVOID(()) | |
1728 | in (hojfelds_NT 93,(result,nonnumeric_literal1left, | |
1729 | nonnumeric_literal1right),rest671) end | |
1730 | | (275,(_,(_,ZERO1left,ZERO1right))::rest671) => let val result= | |
1731 | MlyValue.ntVOID(()) | |
1732 | in (hojfelds_NT 93,(result,ZERO1left,ZERO1right),rest671) end | |
1733 | | (276,(_,(_,ZEROS1left,ZEROS1right))::rest671) => let val result= | |
1734 | MlyValue.ntVOID(()) | |
1735 | in (hojfelds_NT 93,(result,ZEROS1left,ZEROS1right),rest671) end | |
1736 | | (277,(_,(_,ZEROES1left,ZEROES1right))::rest671) => let val result= | |
1737 | MlyValue.ntVOID(()) | |
1738 | in (hojfelds_NT 93,(result,ZEROES1left,ZEROES1right),rest671) end | |
1739 | | (278,(_,(_,SPACE1left,SPACE1right))::rest671) => let val result= | |
1740 | MlyValue.ntVOID(()) | |
1741 | in (hojfelds_NT 93,(result,SPACE1left,SPACE1right),rest671) end | |
1742 | | (279,(_,(_,SPACES1left,SPACES1right))::rest671) => let val result= | |
1743 | MlyValue.ntVOID(()) | |
1744 | in (hojfelds_NT 93,(result,SPACES1left,SPACES1right),rest671) end | |
1745 | | (280,(_,(_,HIGHVALUE1left,HIGHVALUE1right))::rest671) => let val | |
1746 | result=MlyValue.ntVOID(()) | |
1747 | in (hojfelds_NT 93,(result,HIGHVALUE1left,HIGHVALUE1right),rest671) | |
1748 | end | |
1749 | | (281,(_,(_,HIGHVALUES1left,HIGHVALUES1right))::rest671) => let val | |
1750 | result=MlyValue.ntVOID(()) | |
1751 | in (hojfelds_NT 93,(result,HIGHVALUES1left,HIGHVALUES1right),rest671) | |
1752 | end | |
1753 | | (282,(_,(_,LOWVALUE1left,LOWVALUE1right))::rest671) => let val | |
1754 | result=MlyValue.ntVOID(()) | |
1755 | in (hojfelds_NT 93,(result,LOWVALUE1left,LOWVALUE1right),rest671) end | |
1756 | | (283,(_,(_,LOWVALUES1left,LOWVALUES1right))::rest671) => let val | |
1757 | result=MlyValue.ntVOID(()) | |
1758 | in (hojfelds_NT 93,(result,LOWVALUES1left,LOWVALUES1right),rest671) | |
1759 | end | |
1760 | | (284,(_,(_,QUOTE1left,QUOTE1right))::rest671) => let val result= | |
1761 | MlyValue.ntVOID(()) | |
1762 | in (hojfelds_NT 93,(result,QUOTE1left,QUOTE1right),rest671) end | |
1763 | | (285,(_,(_,QUOTES1left,QUOTES1right))::rest671) => let val result= | |
1764 | MlyValue.ntVOID(()) | |
1765 | in (hojfelds_NT 93,(result,QUOTES1left,QUOTES1right),rest671) end | |
1766 | | (286,(_,(_,identifier1left,identifier1right))::rest671) => let val | |
1767 | result=MlyValue.ntVOID(()) | |
1768 | in (hojfelds_NT 232,(result,identifier1left,identifier1right),rest671) | |
1769 | end | |
1770 | | (287,(_,(_,INTEGER1left,INTEGER1right))::rest671) => let val result= | |
1771 | MlyValue.ntVOID(()) | |
1772 | in (hojfelds_NT 232,(result,INTEGER1left,INTEGER1right),rest671) end | |
1773 | | (288,(_,(MlyValue.test_cobol_programs test_cobol_programs, | |
1774 | test_cobol_programs1left,test_cobol_programs1right))::rest671) => let | |
1775 | val result=MlyValue.test_cobol(( Cobol.TEST(test_cobol_programs) )) | |
1776 | in (hojfelds_NT 3,(result,test_cobol_programs1left, | |
1777 | test_cobol_programs1right),rest671) end | |
1778 | | (289,(_,(MlyValue.cobol_program cobol_program,cobol_program1left, | |
1779 | cobol_program1right))::rest671) => let val result=MlyValue.test_cobol( | |
1780 | ( Cobol.COBOL_PROGRAM(cobol_program))) | |
1781 | in (hojfelds_NT 3,(result,cobol_program1left,cobol_program1right), | |
1782 | rest671) end | |
1783 | | (290,(_,(MlyValue.test_cobol_program test_cobol_program,_, | |
1784 | test_cobol_program1right))::(_,(MlyValue.test_cobol_programs | |
1785 | test_cobol_programs,test_cobol_programs1left,_))::rest671) => let val | |
1786 | result=MlyValue.test_cobol_programs(( | |
1787 | Cobol.TEST_COBOL_PROGRAMS(test_cobol_programs, test_cobol_program))) | |
1788 | in (hojfelds_NT 1,(result,test_cobol_programs1left, | |
1789 | test_cobol_program1right),rest671) end | |
1790 | | (291,(_,(MlyValue.test_cobol_program test_cobol_program, | |
1791 | test_cobol_program1left,test_cobol_program1right))::rest671) => let | |
1792 | val result=MlyValue.test_cobol_programs(( | |
1793 | Cobol.TEST_COBOL_PROGRAM(test_cobol_program))) | |
1794 | in (hojfelds_NT 1,(result,test_cobol_program1left, | |
1795 | test_cobol_program1right),rest671) end | |
1796 | | (292,(_,(_,_,PROGEND1right))::(_,(MlyValue.cobol_program | |
1797 | cobol_program,_,_))::(_,(_,PROGBEGIN1left,_))::rest671) => let val | |
1798 | result=MlyValue.test_cobol_program((cobol_program)) | |
1799 | in (hojfelds_NT 2,(result,PROGBEGIN1left,PROGEND1right),rest671) end | |
1800 | | (293,(_,(MlyValue.procedure_division procedure_division,_, | |
1801 | procedure_division1right))::(_,(MlyValue.data_division data_division,_ | |
1802 | ,_))::(_,(MlyValue.environment_division environment_division,_,_))::(_ | |
1803 | ,(MlyValue.identification_division identification_division,_,_))::(_,( | |
1804 | _,process_statement1left,_))::rest671) => let val result= | |
1805 | MlyValue.cobol_program(( | |
1806 | condition_names := []; | |
1807 | Cobol.PROGRAM(identification_division, | |
1808 | environment_division, | |
1809 | data_division, | |
1810 | procedure_division) | |
1811 | )) | |
1812 | in (hojfelds_NT 0,(result,process_statement1left, | |
1813 | procedure_division1right),rest671) end | |
1814 | | (294,rest671) => let val result=MlyValue.ntVOID(()) | |
1815 | in (hojfelds_NT 4,(result,defaultPos,defaultPos),rest671) end | |
1816 | | (295,(_,(_,_,process_options1right))::(_,(_,PROCESS1left,_)):: | |
1817 | rest671) => let val result=MlyValue.ntVOID(()) | |
1818 | in (hojfelds_NT 4,(result,PROCESS1left,process_options1right),rest671) | |
1819 | end | |
1820 | | (296,(_,(_,_,process_option1right))::(_,(_,process_options1left,_)) | |
1821 | ::rest671) => let val result=MlyValue.ntVOID(()) | |
1822 | in (hojfelds_NT 5,(result,process_options1left,process_option1right), | |
1823 | rest671) end | |
1824 | | (297,(_,(_,process_option1left,process_option1right))::rest671) => | |
1825 | let val result=MlyValue.ntVOID(()) | |
1826 | in (hojfelds_NT 5,(result,process_option1left,process_option1right), | |
1827 | rest671) end | |
1828 | | (298,(_,(_,SLASHSYMBOL1left,SLASHSYMBOL1right))::rest671) => let | |
1829 | val result=MlyValue.ntVOID(()) | |
1830 | in (hojfelds_NT 6,(result,SLASHSYMBOL1left,SLASHSYMBOL1right),rest671) | |
1831 | end | |
1832 | | (299,(_,(_,SORT1left,SORT1right))::rest671) => let val result= | |
1833 | MlyValue.ntVOID(()) | |
1834 | in (hojfelds_NT 6,(result,SORT1left,SORT1right),rest671) end | |
1835 | | (300,(_,(_,SOURCE1left,SOURCE1right))::rest671) => let val result= | |
1836 | MlyValue.ntVOID(()) | |
1837 | in (hojfelds_NT 6,(result,SOURCE1left,SOURCE1right),rest671) end | |
1838 | | (301,(_,(_,QUOTE1left,QUOTE1right))::rest671) => let val result= | |
1839 | MlyValue.ntVOID(()) | |
1840 | in (hojfelds_NT 6,(result,QUOTE1left,QUOTE1right),rest671) end | |
1841 | | (302,(_,(_,PERIOD1left,PERIOD1right))::rest671) => let val result= | |
1842 | MlyValue.ntVOID(()) | |
1843 | in (hojfelds_NT 6,(result,PERIOD1left,PERIOD1right),rest671) end | |
1844 | | (303,(_,(_,USERDEFINEDWORD1left,USERDEFINEDWORD1right))::rest671) | |
1845 | => let val result=MlyValue.ntVOID(()) | |
1846 | in (hojfelds_NT 6,(result,USERDEFINEDWORD1left,USERDEFINEDWORD1right), | |
1847 | rest671) end | |
1848 | | (304,(_,(_,COMP1left,COMP1right))::rest671) => let val result= | |
1849 | MlyValue.ntVOID(()) | |
1850 | in (hojfelds_NT 6,(result,COMP1left,COMP1right),rest671) end | |
1851 | | (305,(_,(_,LPAR1left,LPAR1right))::rest671) => let val result= | |
1852 | MlyValue.ntVOID(()) | |
1853 | in (hojfelds_NT 6,(result,LPAR1left,LPAR1right),rest671) end | |
1854 | | (306,(_,(_,RPAR1left,RPAR1right))::rest671) => let val result= | |
1855 | MlyValue.ntVOID(()) | |
1856 | in (hojfelds_NT 6,(result,RPAR1left,RPAR1right),rest671) end | |
1857 | | (307,(_,(_,_,identification_paragraphs1right))::_::_::_::(_,(_, | |
1858 | IDENTIFICATION1left,_))::rest671) => let val result= | |
1859 | MlyValue.identification_division(()) | |
1860 | in (hojfelds_NT 225,(result,IDENTIFICATION1left, | |
1861 | identification_paragraphs1right),rest671) end | |
1862 | | (308,(_,(_,_,PERIOD2right))::_::_::(_,(_,PROGRAMID1left,_))::rest671 | |
1863 | ) => let val result=MlyValue.ntVOID(()) | |
1864 | in (hojfelds_NT 104,(result,PROGRAMID1left,PERIOD2right),rest671) end | |
1865 | | (309,rest671) => let val result=MlyValue.ntVOID(()) | |
1866 | in (hojfelds_NT 104,(result,defaultPos,defaultPos),rest671) end | |
1867 | | (310,(_,(_,_,identification_paragraph1right))::(_,(_, | |
1868 | identification_paragraphs1left,_))::rest671) => let val result= | |
1869 | MlyValue.ntVOID(()) | |
1870 | in (hojfelds_NT 227,(result,identification_paragraphs1left, | |
1871 | identification_paragraph1right),rest671) end | |
1872 | | (311,rest671) => let val result=MlyValue.ntVOID(()) | |
1873 | in (hojfelds_NT 227,(result,defaultPos,defaultPos),rest671) end | |
1874 | | (312,(_,(_,author_paragraph1left,author_paragraph1right))::rest671) | |
1875 | => let val result=MlyValue.ntVOID(()) | |
1876 | in (hojfelds_NT 226,(result,author_paragraph1left, | |
1877 | author_paragraph1right),rest671) end | |
1878 | | (313,(_,(_,installation_paragraph1left,installation_paragraph1right) | |
1879 | )::rest671) => let val result=MlyValue.ntVOID(()) | |
1880 | in (hojfelds_NT 226,(result,installation_paragraph1left, | |
1881 | installation_paragraph1right),rest671) end | |
1882 | | (314,(_,(_,date_written_paragraph1left,date_written_paragraph1right) | |
1883 | )::rest671) => let val result=MlyValue.ntVOID(()) | |
1884 | in (hojfelds_NT 226,(result,date_written_paragraph1left, | |
1885 | date_written_paragraph1right),rest671) end | |
1886 | | (315,(_,(_,date_compiled_paragraph1left, | |
1887 | date_compiled_paragraph1right))::rest671) => let val result= | |
1888 | MlyValue.ntVOID(()) | |
1889 | in (hojfelds_NT 226,(result,date_compiled_paragraph1left, | |
1890 | date_compiled_paragraph1right),rest671) end | |
1891 | | (316,(_,(_,security_paragraph1left,security_paragraph1right)):: | |
1892 | rest671) => let val result=MlyValue.ntVOID(()) | |
1893 | in (hojfelds_NT 226,(result,security_paragraph1left, | |
1894 | security_paragraph1right),rest671) end | |
1895 | | (317,(_,(_,_,comment_entry1right))::(_,(_,AUTHOR1left,_))::rest671) | |
1896 | => let val result=MlyValue.ntVOID(()) | |
1897 | in (hojfelds_NT 50,(result,AUTHOR1left,comment_entry1right),rest671) | |
1898 | end | |
1899 | | (318,(_,(_,_,comment_entry1right))::(_,(_,INSTALLATION1left,_)):: | |
1900 | rest671) => let val result=MlyValue.ntVOID(()) | |
1901 | in (hojfelds_NT 264,(result,INSTALLATION1left,comment_entry1right), | |
1902 | rest671) end | |
1903 | | (319,(_,(_,_,comment_entry1right))::(_,(_,DATEWRITTEN1left,_)):: | |
1904 | rest671) => let val result=MlyValue.ntVOID(()) | |
1905 | in (hojfelds_NT 114,(result,DATEWRITTEN1left,comment_entry1right), | |
1906 | rest671) end | |
1907 | | (320,(_,(_,_,comment_entry1right))::(_,(_,DATECOMPILED1left,_)):: | |
1908 | rest671) => let val result=MlyValue.ntVOID(()) | |
1909 | in (hojfelds_NT 111,(result,DATECOMPILED1left,comment_entry1right), | |
1910 | rest671) end | |
1911 | | (321,(_,(_,_,comment_entry1right))::(_,(_,SECURITY1left,_))::rest671 | |
1912 | ) => let val result=MlyValue.ntVOID(()) | |
1913 | in (hojfelds_NT 426,(result,SECURITY1left,comment_entry1right),rest671 | |
1914 | ) end | |
1915 | | (322,(_,(MlyValue.input_output_section input_output_section,_, | |
1916 | input_output_section1right))::(_,(MlyValue.configuration_section | |
1917 | configuration_section,_,_))::_::_::(_,(_,ENVIRONMENT1left,_))::rest671 | |
1918 | ) => let val result=MlyValue.environment_division(( | |
1919 | Cobol.ENVIRONMENT_DIVISION | |
1920 | (configuration_section,input_output_section) | |
1921 | )) | |
1922 | in (hojfelds_NT 153,(result,ENVIRONMENT1left, | |
1923 | input_output_section1right),rest671) end | |
1924 | | (323,rest671) => let val result=MlyValue.environment_division(( | |
1925 | Cobol.NO_ENVIRONMENT_DIVISION)) | |
1926 | in (hojfelds_NT 153,(result,defaultPos,defaultPos),rest671) end | |
1927 | | (324,(_,(MlyValue.special_names_paragraph special_names_paragraph,_, | |
1928 | special_names_paragraph1right))::(_,( | |
1929 | MlyValue.object_computer_paragraph object_computer_paragraph,_,_))::(_ | |
1930 | ,(MlyValue.source_computer_paragraph source_computer_paragraph,_,_)):: | |
1931 | _::_::(_,(_,CONFIGURATION1left,_))::rest671) => let val result= | |
1932 | MlyValue.configuration_section(( | |
1933 | Cobol.CONFIGURATION_SECTION | |
1934 | (source_computer_paragraph,object_computer_paragraph | |
1935 | ,special_names_paragraph) | |
1936 | )) | |
1937 | in (hojfelds_NT 77,(result,CONFIGURATION1left, | |
1938 | special_names_paragraph1right),rest671) end | |
1939 | | (325,(_,(_,_,source_computer_entry1right))::_::(_,(_, | |
1940 | SOURCECOMPUTER1left,_))::rest671) => let val result= | |
1941 | MlyValue.source_computer_paragraph(()) | |
1942 | in (hojfelds_NT 451,(result,SOURCECOMPUTER1left, | |
1943 | source_computer_entry1right),rest671) end | |
1944 | | (326,rest671) => let val result=MlyValue.source_computer_paragraph(( | |
1945 | )) | |
1946 | in (hojfelds_NT 451,(result,defaultPos,defaultPos),rest671) end | |
1947 | | (327,(_,(_,_,PERIOD1right))::_::(_,(_,computer_name1left,_)):: | |
1948 | rest671) => let val result=MlyValue.ntVOID(()) | |
1949 | in (hojfelds_NT 450,(result,computer_name1left,PERIOD1right),rest671) | |
1950 | end | |
1951 | | (328,rest671) => let val result=MlyValue.ntVOID(()) | |
1952 | in (hojfelds_NT 450,(result,defaultPos,defaultPos),rest671) end | |
1953 | | (329,(_,(_,_,MODE1right))::_::(_,(_,with1left,_))::rest671) => let | |
1954 | val result=MlyValue.ntVOID(()) | |
1955 | in (hojfelds_NT 115,(result,with1left,MODE1right),rest671) end | |
1956 | | (330,rest671) => let val result=MlyValue.ntVOID(()) | |
1957 | in (hojfelds_NT 115,(result,defaultPos,defaultPos),rest671) end | |
1958 | | (331,(_,(_,_,object_computer_entry1right))::_::(_,(_, | |
1959 | OBJECTCOMPUTER1left,_))::rest671) => let val result= | |
1960 | MlyValue.object_computer_paragraph(()) | |
1961 | in (hojfelds_NT 328,(result,OBJECTCOMPUTER1left, | |
1962 | object_computer_entry1right),rest671) end | |
1963 | | (332,rest671) => let val result=MlyValue.object_computer_paragraph(( | |
1964 | )) | |
1965 | in (hojfelds_NT 328,(result,defaultPos,defaultPos),rest671) end | |
1966 | | (333,(_,(_,_,PERIOD1right))::_::_::_::(_,(_,computer_name1left,_)):: | |
1967 | rest671) => let val result=MlyValue.ntVOID(()) | |
1968 | in (hojfelds_NT 327,(result,computer_name1left,PERIOD1right),rest671) | |
1969 | end | |
1970 | | (334,rest671) => let val result=MlyValue.ntVOID(()) | |
1971 | in (hojfelds_NT 327,(result,defaultPos,defaultPos),rest671) end | |
1972 | | (335,(_,(_,_,size_unit1right))::_::_::(_,(_,MEMORY1left,_))::rest671 | |
1973 | ) => let val result=MlyValue.ntVOID(()) | |
1974 | in (hojfelds_NT 307,(result,MEMORY1left,size_unit1right),rest671) end | |
1975 | | (336,rest671) => let val result=MlyValue.ntVOID(()) | |
1976 | in (hojfelds_NT 307,(result,defaultPos,defaultPos),rest671) end | |
1977 | | (337,(_,(_,WORDS1left,WORDS1right))::rest671) => let val result= | |
1978 | MlyValue.ntVOID(()) | |
1979 | in (hojfelds_NT 443,(result,WORDS1left,WORDS1right),rest671) end | |
1980 | | (338,(_,(_,CHARACTERS1left,CHARACTERS1right))::rest671) => let val | |
1981 | result=MlyValue.ntVOID(()) | |
1982 | in (hojfelds_NT 443,(result,CHARACTERS1left,CHARACTERS1right),rest671) | |
1983 | end | |
1984 | | (339,(_,(_,MODULES1left,MODULES1right))::rest671) => let val result= | |
1985 | MlyValue.ntVOID(()) | |
1986 | in (hojfelds_NT 443,(result,MODULES1left,MODULES1right),rest671) end | |
1987 | | (340,(_,(_,_,alphabet_name1right))::_::_::(_,(_, | |
1988 | program_collating1left,_))::rest671) => let val result=MlyValue.ntVOID | |
1989 | (()) | |
1990 | in (hojfelds_NT 67,(result,program_collating1left,alphabet_name1right) | |
1991 | ,rest671) end | |
1992 | | (341,rest671) => let val result=MlyValue.ntVOID(()) | |
1993 | in (hojfelds_NT 67,(result,defaultPos,defaultPos),rest671) end | |
1994 | | (342,(_,(_,_,INTEGER1right))::_::(_,(_,SEGMENTLIMIT1left,_)):: | |
1995 | rest671) => let val result=MlyValue.ntVOID(()) | |
1996 | in (hojfelds_NT 427,(result,SEGMENTLIMIT1left,INTEGER1right),rest671) | |
1997 | end | |
1998 | | (343,rest671) => let val result=MlyValue.ntVOID(()) | |
1999 | in (hojfelds_NT 427,(result,defaultPos,defaultPos),rest671) end | |
2000 | | (344,(_,(_,_,period1right))::(_,(MlyValue.special_names_clauses | |
2001 | special_names_clauses,_,_))::_::(_,(_,SPECIALNAMES1left,_))::rest671) | |
2002 | => let val result=MlyValue.special_names_paragraph(( | |
2003 | Cobol.SPECIAL_NAMES_PARAGRAPH(special_names_clauses))) | |
2004 | in (hojfelds_NT 453,(result,SPECIALNAMES1left,period1right),rest671) | |
2005 | end | |
2006 | | (345,rest671) => let val result=MlyValue.special_names_paragraph(( | |
2007 | Cobol.NO_SPECIAL_NAMES_PARAGRAPH)) | |
2008 | in (hojfelds_NT 453,(result,defaultPos,defaultPos),rest671) end | |
2009 | | (346,(_,(MlyValue.special_names_clause special_names_clause,_, | |
2010 | special_names_clause1right))::(_,(MlyValue.special_names_clauses | |
2011 | special_names_clauses,special_names_clauses1left,_))::rest671) => let | |
2012 | val result=MlyValue.special_names_clauses(( | |
2013 | Cobol.SEVERAL_SPECIAL_NAMES_CLAUSES(special_names_clauses, | |
2014 | special_names_clause) | |
2015 | )) | |
2016 | in (hojfelds_NT 102,(result,special_names_clauses1left, | |
2017 | special_names_clause1right),rest671) end | |
2018 | | (347,rest671) => let val result=MlyValue.special_names_clauses(( | |
2019 | Cobol.NO_SPECIAL_NAMES_CLAUSES)) | |
2020 | in (hojfelds_NT 102,(result,defaultPos,defaultPos),rest671) end | |
2021 | | (348,(_,(_,environment_clause1left,environment_clause1right)):: | |
2022 | rest671) => let val result=MlyValue.special_names_clause(( | |
2023 | Cobol.ENVIRONMENT_CLAUSE)) | |
2024 | in (hojfelds_NT 103,(result,environment_clause1left, | |
2025 | environment_clause1right),rest671) end | |
2026 | | (349,(_,(_,alphabet_clause1left,alphabet_clause1right))::rest671) | |
2027 | => let val result=MlyValue.special_names_clause(( | |
2028 | Cobol.ALPHABET_CLAUSE)) | |
2029 | in (hojfelds_NT 103,(result,alphabet_clause1left,alphabet_clause1right | |
2030 | ),rest671) end | |
2031 | | (350,(_,(MlyValue.currency_sign_clause currency_sign_clause, | |
2032 | currency_sign_clause1left,currency_sign_clause1right))::rest671) => | |
2033 | let val result=MlyValue.special_names_clause(( | |
2034 | Cobol.CURRENCY_SIGN_CLAUSE(currency_sign_clause))) | |
2035 | in (hojfelds_NT 103,(result,currency_sign_clause1left, | |
2036 | currency_sign_clause1right),rest671) end | |
2037 | | (351,(_,(MlyValue.decimal_clause decimal_clause,decimal_clause1left, | |
2038 | decimal_clause1right))::rest671) => let val result= | |
2039 | MlyValue.special_names_clause((Cobol.DECIMAL_CLAUSE(decimal_clause))) | |
2040 | in (hojfelds_NT 103,(result,decimal_clause1left,decimal_clause1right), | |
2041 | rest671) end | |
2042 | | (352,(_,(_,_,mnemonic_name1right))::_::(_,(_,environment_name_11left | |
2043 | ,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
2044 | in (hojfelds_NT 152,(result,environment_name_11left, | |
2045 | mnemonic_name1right),rest671) end | |
2046 | | (353,(_,(_,_,status_cond_phrase_opt1right))::_::_::(_,(_, | |
2047 | environment_name_21left,_))::rest671) => let val result= | |
2048 | MlyValue.ntVOID(()) | |
2049 | in (hojfelds_NT 152,(result,environment_name_21left, | |
2050 | status_cond_phrase_opt1right),rest671) end | |
2051 | | (354,(_,(_,_,status_cond_phrase_opt1right))::(_,(_, | |
2052 | environment_name_21left,_))::rest671) => let val result= | |
2053 | MlyValue.ntVOID(()) | |
2054 | in (hojfelds_NT 152,(result,environment_name_21left, | |
2055 | status_cond_phrase_opt1right),rest671) end | |
2056 | | (355,(_,(_,status_cond_phrase1left,status_cond_phrase1right)):: | |
2057 | rest671) => let val result=MlyValue.ntVOID(()) | |
2058 | in (hojfelds_NT 463,(result,status_cond_phrase1left, | |
2059 | status_cond_phrase1right),rest671) end | |
2060 | | (356,rest671) => let val result=MlyValue.ntVOID(()) | |
2061 | in (hojfelds_NT 463,(result,defaultPos,defaultPos),rest671) end | |
2062 | | (357,(_,(_,_,off_status_opt1right))::(_,(_,on_status1left,_)):: | |
2063 | rest671) => let val result=MlyValue.ntVOID(()) | |
2064 | in (hojfelds_NT 462,(result,on_status1left,off_status_opt1right), | |
2065 | rest671) end | |
2066 | | (358,(_,(_,_,on_status_opt1right))::(_,(_,off_status1left,_)):: | |
2067 | rest671) => let val result=MlyValue.ntVOID(()) | |
2068 | in (hojfelds_NT 462,(result,off_status1left,on_status_opt1right), | |
2069 | rest671) end | |
2070 | | (359,(_,(_,on_status1left,on_status1right))::rest671) => let val | |
2071 | result=MlyValue.ntVOID(()) | |
2072 | in (hojfelds_NT 340,(result,on_status1left,on_status1right),rest671) | |
2073 | end | |
2074 | | (360,rest671) => let val result=MlyValue.ntVOID(()) | |
2075 | in (hojfelds_NT 340,(result,defaultPos,defaultPos),rest671) end | |
2076 | | (361,(_,(_,off_status1left,off_status1right))::rest671) => let val | |
2077 | result=MlyValue.ntVOID(()) | |
2078 | in (hojfelds_NT 333,(result,off_status1left,off_status1right),rest671) | |
2079 | end | |
2080 | | (362,rest671) => let val result=MlyValue.ntVOID(()) | |
2081 | in (hojfelds_NT 333,(result,defaultPos,defaultPos),rest671) end | |
2082 | | (363,(_,(_,_,condition_name1right))::_::(_,(_,ON1left,_))::rest671) | |
2083 | => let val result=MlyValue.ntVOID(()) | |
2084 | in (hojfelds_NT 339,(result,ON1left,condition_name1right),rest671) end | |
2085 | | (364,(_,(_,_,condition_name1right))::_::(_,(_,OFF1left,_))::rest671) | |
2086 | => let val result=MlyValue.ntVOID(()) | |
2087 | in (hojfelds_NT 332,(result,OFF1left,condition_name1right),rest671) | |
2088 | end | |
2089 | | (365,(_,(_,_,alphabet_specifier1right))::_::(_,(_,alphabet_name1left | |
2090 | ,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
2091 | in (hojfelds_NT 23,(result,alphabet_name1left,alphabet_specifier1right | |
2092 | ),rest671) end | |
2093 | | (366,(_,(_,STANDARD11left,STANDARD11right))::rest671) => let val | |
2094 | result=MlyValue.ntVOID(()) | |
2095 | in (hojfelds_NT 25,(result,STANDARD11left,STANDARD11right),rest671) | |
2096 | end | |
2097 | | (367,(_,(_,NATIVE1left,NATIVE1right))::rest671) => let val result= | |
2098 | MlyValue.ntVOID(()) | |
2099 | in (hojfelds_NT 25,(result,NATIVE1left,NATIVE1right),rest671) end | |
2100 | | (368,(_,(_,literal_also_ranges1left,literal_also_ranges1right)):: | |
2101 | rest671) => let val result=MlyValue.ntVOID(()) | |
2102 | in (hojfelds_NT 25,(result,literal_also_ranges1left, | |
2103 | literal_also_ranges1right),rest671) end | |
2104 | | (369,(_,(_,_,literal_also_range1right))::(_,(_, | |
2105 | literal_also_ranges1left,_))::rest671) => let val result= | |
2106 | MlyValue.ntVOID(()) | |
2107 | in (hojfelds_NT 300,(result,literal_also_ranges1left, | |
2108 | literal_also_range1right),rest671) end | |
2109 | | (370,(_,(_,literal_also_range1left,literal_also_range1right)):: | |
2110 | rest671) => let val result=MlyValue.ntVOID(()) | |
2111 | in (hojfelds_NT 300,(result,literal_also_range1left, | |
2112 | literal_also_range1right),rest671) end | |
2113 | | (371,(_,(_,_,literal_boundary1right))::(_,(_,literal1left,_)):: | |
2114 | rest671) => let val result=MlyValue.ntVOID(()) | |
2115 | in (hojfelds_NT 299,(result,literal1left,literal_boundary1right), | |
2116 | rest671) end | |
2117 | | (372,(_,(_,_,literal1right))::(_,(_,through1left,_))::rest671) => | |
2118 | let val result=MlyValue.ntVOID(()) | |
2119 | in (hojfelds_NT 301,(result,through1left,literal1right),rest671) end | |
2120 | | (373,(_,(_,also_literals1left,also_literals1right))::rest671) => | |
2121 | let val result=MlyValue.ntVOID(()) | |
2122 | in (hojfelds_NT 301,(result,also_literals1left,also_literals1right), | |
2123 | rest671) end | |
2124 | | (374,(_,(_,_,also_literal1right))::(_,(_,also_literals1left,_)):: | |
2125 | rest671) => let val result=MlyValue.ntVOID(()) | |
2126 | in (hojfelds_NT 27,(result,also_literals1left,also_literal1right), | |
2127 | rest671) end | |
2128 | | (375,rest671) => let val result=MlyValue.ntVOID(()) | |
2129 | in (hojfelds_NT 27,(result,defaultPos,defaultPos),rest671) end | |
2130 | | (376,(_,(_,_,literal1right))::(_,(_,ALSO1left,_))::rest671) => let | |
2131 | val result=MlyValue.ntVOID(()) | |
2132 | in (hojfelds_NT 26,(result,ALSO1left,literal1right),rest671) end | |
2133 | | (377,(_,(MlyValue.literal_range literal_range,_,literal_range1right) | |
2134 | )::(_,(MlyValue.literal_ranges literal_ranges,literal_ranges1left,_)) | |
2135 | ::rest671) => let val result=MlyValue.literal_ranges(( | |
2136 | Cobol.SEVERAL_LITERAL_RANGES(literal_ranges,literal_range))) | |
2137 | in (hojfelds_NT 303,(result,literal_ranges1left,literal_range1right), | |
2138 | rest671) end | |
2139 | | (378,(_,(MlyValue.literal_range literal_range,literal_range1left, | |
2140 | literal_range1right))::rest671) => let val result= | |
2141 | MlyValue.literal_ranges((Cobol.ONE_LITERAL_RANGE(literal_range))) | |
2142 | in (hojfelds_NT 303,(result,literal_range1left,literal_range1right), | |
2143 | rest671) end | |
2144 | | (379,(_,(MlyValue.through_literal through_literal,_, | |
2145 | through_literal1right))::(_,(MlyValue.literal literal,literal1left,_)) | |
2146 | ::rest671) => let val result=MlyValue.literal_range(( | |
2147 | Cobol.LITERAL_RANGE(literal,through_literal))) | |
2148 | in (hojfelds_NT 302,(result,literal1left,through_literal1right), | |
2149 | rest671) end | |
2150 | | (380,(_,(MlyValue.literal literal,_,literal1right))::(_,(_, | |
2151 | through1left,_))::rest671) => let val result=MlyValue.through_literal( | |
2152 | (Cobol.THROUGH_LITERAL(literal))) | |
2153 | in (hojfelds_NT 493,(result,through1left,literal1right),rest671) end | |
2154 | | (381,rest671) => let val result=MlyValue.through_literal(( | |
2155 | Cobol.NO_THROUGH_LITERAL)) | |
2156 | in (hojfelds_NT 493,(result,defaultPos,defaultPos),rest671) end | |
2157 | | (382,(_,(MlyValue.NONNUMERICLITERAL NONNUMERICLITERAL,_, | |
2158 | NONNUMERICLITERAL1right))::_::(_,(_,CURRENCY1left,_))::rest671) => | |
2159 | let val result=MlyValue.currency_sign_clause(( | |
2160 | Cobol.CURRENCY(NONNUMERICLITERAL))) | |
2161 | in (hojfelds_NT 85,(result,CURRENCY1left,NONNUMERICLITERAL1right), | |
2162 | rest671) end | |
2163 | | (383,(_,(_,_,COMMA1right))::_::(_,(_,DECIMALPOINT1left,_))::rest671) | |
2164 | => let val result=MlyValue.decimal_clause(( | |
2165 | Cobol.DECIMALPOINT_IS_COMMA)) | |
2166 | in (hojfelds_NT 116,(result,DECIMALPOINT1left,COMMA1right),rest671) | |
2167 | end | |
2168 | | (384,(_,(_,_,i_o_control_paragraph1right))::_::_::_::(_,(_, | |
2169 | INPUTOUTPUT1left,_))::rest671) => let val result= | |
2170 | MlyValue.input_output_section(()) | |
2171 | in (hojfelds_NT 260,(result,INPUTOUTPUT1left, | |
2172 | i_o_control_paragraph1right),rest671) end | |
2173 | | (385,rest671) => let val result=MlyValue.input_output_section(()) | |
2174 | in (hojfelds_NT 260,(result,defaultPos,defaultPos),rest671) end | |
2175 | | (386,(_,(_,_,file_control_entries1right))::_::(_,(_,FILECONTROL1left | |
2176 | ,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
2177 | in (hojfelds_NT 189,(result,FILECONTROL1left, | |
2178 | file_control_entries1right),rest671) end | |
2179 | | (387,(_,(_,_,file_control_entry1right))::(_,(_, | |
2180 | file_control_entries1left,_))::rest671) => let val result= | |
2181 | MlyValue.ntVOID(()) | |
2182 | in (hojfelds_NT 187,(result,file_control_entries1left, | |
2183 | file_control_entry1right),rest671) end | |
2184 | | (388,(_,(_,file_control_entry1left,file_control_entry1right)):: | |
2185 | rest671) => let val result=MlyValue.ntVOID(()) | |
2186 | in (hojfelds_NT 187,(result,file_control_entry1left, | |
2187 | file_control_entry1right),rest671) end | |
2188 | | (389,(_,(_,_,PERIOD1right))::_::_::_::(_,(_,SELECT1left,_))::rest671 | |
2189 | ) => let val result=MlyValue.ntVOID(()) | |
2190 | in (hojfelds_NT 188,(result,SELECT1left,PERIOD1right),rest671) end | |
2191 | | (390,(_,(_,_,file_control_clause1right))::(_,(_, | |
2192 | file_control_clauses1left,_))::rest671) => let val result= | |
2193 | MlyValue.ntVOID(()) | |
2194 | in (hojfelds_NT 186,(result,file_control_clauses1left, | |
2195 | file_control_clause1right),rest671) end | |
2196 | | (391,(_,(_,file_control_clause1left,file_control_clause1right)):: | |
2197 | rest671) => let val result=MlyValue.ntVOID(()) | |
2198 | in (hojfelds_NT 186,(result,file_control_clause1left, | |
2199 | file_control_clause1right),rest671) end | |
2200 | | (392,(_,(_,assign_clause1left,assign_clause1right))::rest671) => | |
2201 | let val result=MlyValue.ntVOID(()) | |
2202 | in (hojfelds_NT 185,(result,assign_clause1left,assign_clause1right), | |
2203 | rest671) end | |
2204 | | (393,(_,(_,reserve_clause1left,reserve_clause1right))::rest671) => | |
2205 | let val result=MlyValue.ntVOID(()) | |
2206 | in (hojfelds_NT 185,(result,reserve_clause1left,reserve_clause1right), | |
2207 | rest671) end | |
2208 | | (394,(_,(_,organization_clause1left,organization_clause1right)):: | |
2209 | rest671) => let val result=MlyValue.ntVOID(()) | |
2210 | in (hojfelds_NT 185,(result,organization_clause1left, | |
2211 | organization_clause1right),rest671) end | |
2212 | | (395,(_,(_,record_key_clause1left,record_key_clause1right))::rest671 | |
2213 | ) => let val result=MlyValue.ntVOID(()) | |
2214 | in (hojfelds_NT 185,(result,record_key_clause1left, | |
2215 | record_key_clause1right),rest671) end | |
2216 | | (396,(_,(_,access_mode_clause1left,access_mode_clause1right)):: | |
2217 | rest671) => let val result=MlyValue.ntVOID(()) | |
2218 | in (hojfelds_NT 185,(result,access_mode_clause1left, | |
2219 | access_mode_clause1right),rest671) end | |
2220 | | (397,(_,(_,file_status_clause1left,file_status_clause1right)):: | |
2221 | rest671) => let val result=MlyValue.ntVOID(()) | |
2222 | in (hojfelds_NT 185,(result,file_status_clause1left, | |
2223 | file_status_clause1right),rest671) end | |
2224 | | (398,(_,(_,control_clause1left,control_clause1right))::rest671) => | |
2225 | let val result=MlyValue.ntVOID(()) | |
2226 | in (hojfelds_NT 185,(result,control_clause1left,control_clause1right), | |
2227 | rest671) end | |
2228 | | (399,(_,(_,_,external_data_sets1right))::_::(_,(_,ASSIGN1left,_)):: | |
2229 | rest671) => let val result=MlyValue.ntVOID(()) | |
2230 | in (hojfelds_NT 46,(result,ASSIGN1left,external_data_sets1right), | |
2231 | rest671) end | |
2232 | | (400,(_,(_,_,external_data_set1right))::(_,(_, | |
2233 | external_data_sets1left,_))::rest671) => let val result= | |
2234 | MlyValue.ntVOID(()) | |
2235 | in (hojfelds_NT 165,(result,external_data_sets1left, | |
2236 | external_data_set1right),rest671) end | |
2237 | | (401,(_,(_,external_data_set1left,external_data_set1right))::rest671 | |
2238 | ) => let val result=MlyValue.ntVOID(()) | |
2239 | in (hojfelds_NT 165,(result,external_data_set1left, | |
2240 | external_data_set1right),rest671) end | |
2241 | | (402,(_,(_,assignment_name1left,assignment_name1right))::rest671) | |
2242 | => let val result=MlyValue.ntVOID(()) | |
2243 | in (hojfelds_NT 164,(result,assignment_name1left,assignment_name1right | |
2244 | ),rest671) end | |
2245 | | (403,(_,(_,NONNUMERICLITERAL1left,NONNUMERICLITERAL1right))::rest671 | |
2246 | ) => let val result=MlyValue.ntVOID(()) | |
2247 | in (hojfelds_NT 164,(result,NONNUMERICLITERAL1left, | |
2248 | NONNUMERICLITERAL1right),rest671) end | |
2249 | | (404,(_,(_,_,areas1right))::_::(_,(_,RESERVE1left,_))::rest671) => | |
2250 | let val result=MlyValue.ntVOID(()) | |
2251 | in (hojfelds_NT 410,(result,RESERVE1left,areas1right),rest671) end | |
2252 | | (405,(_,(_,_,data_organization1right))::(_,(_,organization_is1left,_ | |
2253 | ))::rest671) => let val result=MlyValue.ntVOID(()) | |
2254 | in (hojfelds_NT 351,(result,organization_is1left, | |
2255 | data_organization1right),rest671) end | |
2256 | | (406,(_,(_,SEQUENTIAL1left,SEQUENTIAL1right))::rest671) => let val | |
2257 | result=MlyValue.ntVOID(()) | |
2258 | in (hojfelds_NT 107,(result,SEQUENTIAL1left,SEQUENTIAL1right),rest671) | |
2259 | end | |
2260 | | (407,(_,(_,INDEXED1left,INDEXED1right))::rest671) => let val result= | |
2261 | MlyValue.ntVOID(()) | |
2262 | in (hojfelds_NT 107,(result,INDEXED1left,INDEXED1right),rest671) end | |
2263 | | (408,(_,(_,RELATIVE1left,RELATIVE1right))::rest671) => let val | |
2264 | result=MlyValue.ntVOID(()) | |
2265 | in (hojfelds_NT 107,(result,RELATIVE1left,RELATIVE1right),rest671) end | |
2266 | | (409,(_,(_,TRANSACTION1left,TRANSACTION1right))::rest671) => let | |
2267 | val result=MlyValue.ntVOID(()) | |
2268 | in (hojfelds_NT 107,(result,TRANSACTION1left,TRANSACTION1right), | |
2269 | rest671) end | |
2270 | | (410,(_,(_,_,relative_key_clause1right))::_::_::(_,(_,ACCESS1left,_) | |
2271 | )::rest671) => let val result=MlyValue.ntVOID(()) | |
2272 | in (hojfelds_NT 8,(result,ACCESS1left,relative_key_clause1right), | |
2273 | rest671) end | |
2274 | | (411,(_,(_,SEQUENTIAL1left,SEQUENTIAL1right))::rest671) => let val | |
2275 | result=MlyValue.ntVOID(()) | |
2276 | in (hojfelds_NT 9,(result,SEQUENTIAL1left,SEQUENTIAL1right),rest671) | |
2277 | end | |
2278 | | (412,(_,(_,RANDOM1left,RANDOM1right))::rest671) => let val result= | |
2279 | MlyValue.ntVOID(()) | |
2280 | in (hojfelds_NT 9,(result,RANDOM1left,RANDOM1right),rest671) end | |
2281 | | (413,(_,(_,DYNAMIC1left,DYNAMIC1right))::rest671) => let val result= | |
2282 | MlyValue.ntVOID(()) | |
2283 | in (hojfelds_NT 9,(result,DYNAMIC1left,DYNAMIC1right),rest671) end | |
2284 | | (414,(_,(_,_,data_name1right))::_::_::(_,(_,RELATIVE1left,_)):: | |
2285 | rest671) => let val result=MlyValue.ntVOID(()) | |
2286 | in (hojfelds_NT 396,(result,RELATIVE1left,data_name1right),rest671) | |
2287 | end | |
2288 | | (415,rest671) => let val result=MlyValue.ntVOID(()) | |
2289 | in (hojfelds_NT 396,(result,defaultPos,defaultPos),rest671) end | |
2290 | | (416,(_,(_,_,duplicates_phrase1right))::_::_::_::(_,(_,RECORD1left,_ | |
2291 | ))::rest671) => let val result=MlyValue.ntVOID(()) | |
2292 | in (hojfelds_NT 388,(result,RECORD1left,duplicates_phrase1right), | |
2293 | rest671) end | |
2294 | | (417,(_,(_,_,DUPLICATES1right))::(_,(_,with1left,_))::rest671) => | |
2295 | let val result=MlyValue.ntVOID(()) | |
2296 | in (hojfelds_NT 128,(result,with1left,DUPLICATES1right),rest671) end | |
2297 | | (418,rest671) => let val result=MlyValue.ntVOID(()) | |
2298 | in (hojfelds_NT 128,(result,defaultPos,defaultPos),rest671) end | |
2299 | | (419,(_,(_,_,data_name_opt1right))::_::_::_::(_,(_,file1left,_)):: | |
2300 | rest671) => let val result=MlyValue.ntVOID(()) | |
2301 | in (hojfelds_NT 210,(result,file1left,data_name_opt1right),rest671) | |
2302 | end | |
2303 | | (420,(_,(_,_,data_name1right))::_::(_,(_,CONTROLAREA1left,_)):: | |
2304 | rest671) => let val result=MlyValue.ntVOID(()) | |
2305 | in (hojfelds_NT 79,(result,CONTROLAREA1left,data_name1right),rest671) | |
2306 | end | |
2307 | | (421,(_,(_,_,i_o_control_entries1right))::_::(_,(_,IOCONTROL1left,_) | |
2308 | )::rest671) => let val result=MlyValue.ntVOID(()) | |
2309 | in (hojfelds_NT 223,(result,IOCONTROL1left,i_o_control_entries1right), | |
2310 | rest671) end | |
2311 | | (422,rest671) => let val result=MlyValue.ntVOID(()) | |
2312 | in (hojfelds_NT 223,(result,defaultPos,defaultPos),rest671) end | |
2313 | | (423,(_,(_,_,PERIOD1right))::(_,(_,i_o_control_clauses1left,_)):: | |
2314 | rest671) => let val result=MlyValue.ntVOID(()) | |
2315 | in (hojfelds_NT 222,(result,i_o_control_clauses1left,PERIOD1right), | |
2316 | rest671) end | |
2317 | | (424,rest671) => let val result=MlyValue.ntVOID(()) | |
2318 | in (hojfelds_NT 222,(result,defaultPos,defaultPos),rest671) end | |
2319 | | (425,(_,(_,_,i_o_control_clause1right))::(_,(_, | |
2320 | i_o_control_clauses1left,_))::rest671) => let val result= | |
2321 | MlyValue.ntVOID(()) | |
2322 | in (hojfelds_NT 221,(result,i_o_control_clauses1left, | |
2323 | i_o_control_clause1right),rest671) end | |
2324 | | (426,(_,(_,i_o_control_clause1left,i_o_control_clause1right)):: | |
2325 | rest671) => let val result=MlyValue.ntVOID(()) | |
2326 | in (hojfelds_NT 221,(result,i_o_control_clause1left, | |
2327 | i_o_control_clause1right),rest671) end | |
2328 | | (427,(_,(_,rerun_clause1left,rerun_clause1right))::rest671) => let | |
2329 | val result=MlyValue.ntVOID(()) | |
2330 | in (hojfelds_NT 220,(result,rerun_clause1left,rerun_clause1right), | |
2331 | rest671) end | |
2332 | | (428,(_,(_,same_area_clause1left,same_area_clause1right))::rest671) | |
2333 | => let val result=MlyValue.ntVOID(()) | |
2334 | in (hojfelds_NT 220,(result,same_area_clause1left, | |
2335 | same_area_clause1right),rest671) end | |
2336 | | (429,(_,(_,same_record_area_clause1left, | |
2337 | same_record_area_clause1right))::rest671) => let val result= | |
2338 | MlyValue.ntVOID(()) | |
2339 | in (hojfelds_NT 220,(result,same_record_area_clause1left, | |
2340 | same_record_area_clause1right),rest671) end | |
2341 | | (430,(_,(_,same_sort_area_clause1left,same_sort_area_clause1right)) | |
2342 | ::rest671) => let val result=MlyValue.ntVOID(()) | |
2343 | in (hojfelds_NT 220,(result,same_sort_area_clause1left, | |
2344 | same_sort_area_clause1right),rest671) end | |
2345 | | (431,(_,(_,same_sort_merge_area_clause1left, | |
2346 | same_sort_merge_area_clause1right))::rest671) => let val result= | |
2347 | MlyValue.ntVOID(()) | |
2348 | in (hojfelds_NT 220,(result,same_sort_merge_area_clause1left, | |
2349 | same_sort_merge_area_clause1right),rest671) end | |
2350 | | (432,(_,(_,apply_core_index_clause1left, | |
2351 | apply_core_index_clause1right))::rest671) => let val result= | |
2352 | MlyValue.ntVOID(()) | |
2353 | in (hojfelds_NT 220,(result,apply_core_index_clause1left, | |
2354 | apply_core_index_clause1right),rest671) end | |
2355 | | (433,(_,(_,multiple_file_tape_clause1left, | |
2356 | multiple_file_tape_clause1right))::rest671) => let val result= | |
2357 | MlyValue.ntVOID(()) | |
2358 | in (hojfelds_NT 220,(result,multiple_file_tape_clause1left, | |
2359 | multiple_file_tape_clause1right),rest671) end | |
2360 | | (434,(_,(_,_,file_name2right))::_::_::_::_::_::_::(_,(_,RERUN1left,_ | |
2361 | ))::rest671) => let val result=MlyValue.ntVOID(()) | |
2362 | in (hojfelds_NT 409,(result,RERUN1left,file_name2right),rest671) end | |
2363 | | (435,(_,(_,_,file_names1right))::_::_::(_,(_,SAME1left,_))::rest671) | |
2364 | => let val result=MlyValue.ntVOID(()) | |
2365 | in (hojfelds_NT 416,(result,SAME1left,file_names1right),rest671) end | |
2366 | | (436,(_,(_,_,file_names1right))::_::_::_::(_,(_,SAME1left,_)):: | |
2367 | rest671) => let val result=MlyValue.ntVOID(()) | |
2368 | in (hojfelds_NT 417,(result,SAME1left,file_names1right),rest671) end | |
2369 | | (437,(_,(_,_,file_names1right))::_::_::_::(_,(_,SAME1left,_)):: | |
2370 | rest671) => let val result=MlyValue.ntVOID(()) | |
2371 | in (hojfelds_NT 419,(result,SAME1left,file_names1right),rest671) end | |
2372 | | (438,(_,(_,_,file_names1right))::_::_::_::(_,(_,SAME1left,_)):: | |
2373 | rest671) => let val result=MlyValue.ntVOID(()) | |
2374 | in (hojfelds_NT 420,(result,SAME1left,file_names1right),rest671) end | |
2375 | | (439,(_,(_,_,file_names1right))::_::_::_::_::(_,(_,APPLY1left,_)):: | |
2376 | rest671) => let val result=MlyValue.ntVOID(()) | |
2377 | in (hojfelds_NT 37,(result,APPLY1left,file_names1right),rest671) end | |
2378 | | (440,(_,(_,_,file_positions1right))::_::_::(_,(_,MULTIPLE1left,_)):: | |
2379 | rest671) => let val result=MlyValue.ntVOID(()) | |
2380 | in (hojfelds_NT 316,(result,MULTIPLE1left,file_positions1right), | |
2381 | rest671) end | |
2382 | | (441,(_,(_,_,file_position1right))::(_,(_,file_positions1left,_)):: | |
2383 | rest671) => let val result=MlyValue.ntVOID(()) | |
2384 | in (hojfelds_NT 208,(result,file_positions1left,file_position1right), | |
2385 | rest671) end | |
2386 | | (442,(_,(_,file_position1left,file_position1right))::rest671) => | |
2387 | let val result=MlyValue.ntVOID(()) | |
2388 | in (hojfelds_NT 208,(result,file_position1left,file_position1right), | |
2389 | rest671) end | |
2390 | | (443,(_,(_,_,position_integer1right))::(_,(_,file_name1left,_)):: | |
2391 | rest671) => let val result=MlyValue.ntVOID(()) | |
2392 | in (hojfelds_NT 207,(result,file_name1left,position_integer1right), | |
2393 | rest671) end | |
2394 | | (444,(_,(_,_,INTEGER1right))::(_,(_,POSITION1left,_))::rest671) => | |
2395 | let val result=MlyValue.ntVOID(()) | |
2396 | in (hojfelds_NT 365,(result,POSITION1left,INTEGER1right),rest671) end | |
2397 | | (445,rest671) => let val result=MlyValue.ntVOID(()) | |
2398 | in (hojfelds_NT 365,(result,defaultPos,defaultPos),rest671) end | |
2399 | | (446,(_,(MlyValue.linkage_section linkage_section,_, | |
2400 | linkage_section1right))::(_,(MlyValue.working_storage_section | |
2401 | working_storage_section,_,_))::(_,(MlyValue.file_section file_section, | |
2402 | _,_))::_::_::(_,(_,DATA1left,_))::rest671) => let val result= | |
2403 | MlyValue.data_division(( | |
2404 | Cobol.DATA_DIVISION(file_section, | |
2405 | working_storage_section, | |
2406 | linkage_section) | |
2407 | )) | |
2408 | in (hojfelds_NT 91,(result,DATA1left,linkage_section1right),rest671) | |
2409 | end | |
2410 | | (447,rest671) => let val result=MlyValue.data_division(( | |
2411 | Cobol.NO_DATA_DIVISION)) | |
2412 | in (hojfelds_NT 91,(result,defaultPos,defaultPos),rest671) end | |
2413 | | (448,(_,(MlyValue.file_description_paragraphs | |
2414 | file_description_paragraphs,_,file_description_paragraphsright as | |
2415 | file_description_paragraphs1right))::_::_::(_,(_,FILEleft as FILE1left | |
2416 | ,_))::rest671) => let val result=MlyValue.file_section(( | |
2417 | Cobol.FILE_SECTION(file_description_paragraphs,FILEleft,file_description_paragraphsright) | |
2418 | )) | |
2419 | in (hojfelds_NT 209,(result,FILE1left, | |
2420 | file_description_paragraphs1right),rest671) end | |
2421 | | (449,rest671) => let val result=MlyValue.file_section(( | |
2422 | Cobol.NO_FILE_SECTION)) | |
2423 | in (hojfelds_NT 209,(result,defaultPos,defaultPos),rest671) end | |
2424 | | (450,(_,(MlyValue.file_description_paragraph | |
2425 | file_description_paragraph,_,file_description_paragraph1right))::(_,( | |
2426 | MlyValue.file_description_paragraphs file_description_paragraphs, | |
2427 | file_description_paragraphs1left,_))::rest671) => let val result= | |
2428 | MlyValue.file_description_paragraphs(( | |
2429 | Cobol.FILE_DESCRIPTION_PARAGRAPHS(file_description_paragraphs, | |
2430 | file_description_paragraph) | |
2431 | )) | |
2432 | in (hojfelds_NT 195,(result,file_description_paragraphs1left, | |
2433 | file_description_paragraph1right),rest671) end | |
2434 | | (451,rest671) => let val result=MlyValue.file_description_paragraphs | |
2435 | ((Cobol.NO_FILE_DESCRIPTION_PARAGRAPHS)) | |
2436 | in (hojfelds_NT 195,(result,defaultPos,defaultPos),rest671) end | |
2437 | | (452,(_,(MlyValue.record_description_entries | |
2438 | record_description_entries,_,record_description_entries1right))::(_,( | |
2439 | MlyValue.file_and_sort_description_entry | |
2440 | file_and_sort_description_entry,file_and_sort_description_entry1left,_ | |
2441 | ))::rest671) => let val result=MlyValue.file_description_paragraph(( | |
2442 | Cobol.FILE_DESCRIPTION_PARAGRAPH(file_and_sort_description_entry, | |
2443 | record_description_entries) | |
2444 | )) | |
2445 | in (hojfelds_NT 194,(result,file_and_sort_description_entry1left, | |
2446 | record_description_entries1right),rest671) end | |
2447 | | (453,(_,(MlyValue.file_description_entry file_description_entry, | |
2448 | file_description_entry1left,file_description_entry1right))::rest671) | |
2449 | => let val result=MlyValue.file_and_sort_description_entry(( | |
2450 | Cobol.FILE_DESCRIPTION_ENTRY(file_description_entry))) | |
2451 | in (hojfelds_NT 184,(result,file_description_entry1left, | |
2452 | file_description_entry1right),rest671) end | |
2453 | | (454,(_,(MlyValue.sort_description_entry sort_description_entry, | |
2454 | sort_description_entry1left,sort_description_entry1right))::rest671) | |
2455 | => let val result=MlyValue.file_and_sort_description_entry(( | |
2456 | Cobol.SORT_DESCRIPTION_ENTRY(sort_description_entry))) | |
2457 | in (hojfelds_NT 184,(result,sort_description_entry1left, | |
2458 | sort_description_entry1right),rest671) end | |
2459 | | (455,(_,(_,_,PERIODright as PERIOD1right))::(_,( | |
2460 | MlyValue.file_description_clauses file_description_clauses,_,_))::(_,( | |
2461 | MlyValue.file_name file_name,_,_))::(_,(_,FDleft as FD1left,_)):: | |
2462 | rest671) => let val result=MlyValue.file_description_entry(( | |
2463 | Cobol.FD(file_name,file_description_clauses,FDleft,PERIODright))) | |
2464 | in (hojfelds_NT 193,(result,FD1left,PERIOD1right),rest671) end | |
2465 | | (456,(_,(MlyValue.file_description_clause file_description_clause,_, | |
2466 | file_description_clause1right))::(_,(MlyValue.file_description_clauses | |
2467 | file_description_clauses,file_description_clauses1left,_))::rest671) | |
2468 | => let val result=MlyValue.file_description_clauses(( | |
2469 | Cobol.FILE_DESCRIPTION_CLAUSES(file_description_clauses, | |
2470 | file_description_clause) | |
2471 | )) | |
2472 | in (hojfelds_NT 192,(result,file_description_clauses1left, | |
2473 | file_description_clause1right),rest671) end | |
2474 | | (457,rest671) => let val result=MlyValue.file_description_clauses(( | |
2475 | Cobol.NO_FILE_DESCRIPTION_CLAUSES)) | |
2476 | in (hojfelds_NT 192,(result,defaultPos,defaultPos),rest671) end | |
2477 | | (458,(_,(MlyValue.block_contains_clause block_contains_clause, | |
2478 | block_contains_clause1left,block_contains_clause1right))::rest671) => | |
2479 | let val result=MlyValue.file_description_clause((block_contains_clause | |
2480 | )) | |
2481 | in (hojfelds_NT 191,(result,block_contains_clause1left, | |
2482 | block_contains_clause1right),rest671) end | |
2483 | | (459,(_,(MlyValue.record_contains_clause record_contains_clause, | |
2484 | record_contains_clauseleft as record_contains_clause1left, | |
2485 | record_contains_clauseright as record_contains_clause1right))::rest671 | |
2486 | ) => let val result=MlyValue.file_description_clause(( | |
2487 | Cobol.FILE_DESCRIPTION_CLAUSE_IS_RECORD(record_contains_clause, | |
2488 | record_contains_clauseleft, | |
2489 | record_contains_clauseright) | |
2490 | )) | |
2491 | in (hojfelds_NT 191,(result,record_contains_clause1left, | |
2492 | record_contains_clause1right),rest671) end | |
2493 | | (460,(_,(MlyValue.label_records_clause label_records_clause, | |
2494 | label_records_clause1left,label_records_clause1right))::rest671) => | |
2495 | let val result=MlyValue.file_description_clause((label_records_clause) | |
2496 | ) | |
2497 | in (hojfelds_NT 191,(result,label_records_clause1left, | |
2498 | label_records_clause1right),rest671) end | |
2499 | | (461,(_,(MlyValue.value_of_clause value_of_clause, | |
2500 | value_of_clause1left,value_of_clause1right))::rest671) => let val | |
2501 | result=MlyValue.file_description_clause((value_of_clause)) | |
2502 | in (hojfelds_NT 191,(result,value_of_clause1left,value_of_clause1right | |
2503 | ),rest671) end | |
2504 | | (462,(_,(MlyValue.data_records_clause data_records_clause, | |
2505 | data_records_clauseleft as data_records_clause1left, | |
2506 | data_records_clauseright as data_records_clause1right))::rest671) => | |
2507 | let val result=MlyValue.file_description_clause(( | |
2508 | Cobol.FILE_DESCRIPTION_CLAUSE_IS_DATA(data_records_clause, | |
2509 | data_records_clauseleft, | |
2510 | data_records_clauseright) | |
2511 | )) | |
2512 | in (hojfelds_NT 191,(result,data_records_clause1left, | |
2513 | data_records_clause1right),rest671) end | |
2514 | | (463,(_,(MlyValue.linage_clause linage_clause,linage_clause1left, | |
2515 | linage_clause1right))::rest671) => let val result= | |
2516 | MlyValue.file_description_clause((linage_clause)) | |
2517 | in (hojfelds_NT 191,(result,linage_clause1left,linage_clause1right), | |
2518 | rest671) end | |
2519 | | (464,(_,(MlyValue.code_set_clause code_set_clause, | |
2520 | code_set_clause1left,code_set_clause1right))::rest671) => let val | |
2521 | result=MlyValue.file_description_clause((code_set_clause)) | |
2522 | in (hojfelds_NT 191,(result,code_set_clause1left,code_set_clause1right | |
2523 | ),rest671) end | |
2524 | | (465,(_,(MlyValue.characters_or_records characters_or_records,_, | |
2525 | characters_or_recordsright as characters_or_records1right))::(_,( | |
2526 | MlyValue.integer_range integer_range,_,_))::_::(_,(_,BLOCKleft as | |
2527 | BLOCK1left,_))::rest671) => let val result= | |
2528 | MlyValue.block_contains_clause(( | |
2529 | Cobol.BLOCK(integer_range, | |
2530 | characters_or_records, | |
2531 | BLOCKleft, | |
2532 | characters_or_recordsright) | |
2533 | )) | |
2534 | in (hojfelds_NT 53,(result,BLOCK1left,characters_or_records1right), | |
2535 | rest671) end | |
2536 | | (466,(_,(MlyValue.INTEGER INTEGER,INTEGER1left,INTEGER1right)):: | |
2537 | rest671) => let val result=MlyValue.integer_range(( | |
2538 | Cobol.SIMPLE_RANGE(INTEGER))) | |
2539 | in (hojfelds_NT 265,(result,INTEGER1left,INTEGER1right),rest671) end | |
2540 | | (467,(_,(MlyValue.INTEGER INTEGER2,_,INTEGER2right))::_::(_,( | |
2541 | MlyValue.INTEGER INTEGER1,INTEGER1left,_))::rest671) => let val result | |
2542 | =MlyValue.integer_range((Cobol.INTEGER_TO_INTEGER(INTEGER1,INTEGER2))) | |
2543 | in (hojfelds_NT 265,(result,INTEGER1left,INTEGER2right),rest671) end | |
2544 | | (468,(_,(_,characters1left,characters1right))::rest671) => let val | |
2545 | result=MlyValue.characters_or_records((Cobol.CHARACTERS)) | |
2546 | in (hojfelds_NT 62,(result,characters1left,characters1right),rest671) | |
2547 | end | |
2548 | | (469,(_,(_,RECORDS1left,RECORDS1right))::rest671) => let val result= | |
2549 | MlyValue.characters_or_records((Cobol.RECORDS)) | |
2550 | in (hojfelds_NT 62,(result,RECORDS1left,RECORDS1right),rest671) end | |
2551 | | (470,(_,(_,_,characters1right))::(_,(MlyValue.integer_range | |
2552 | integer_range,_,_))::_::(_,(_,RECORD1left,_))::rest671) => let val | |
2553 | result=MlyValue.record_contains_clause(( | |
2554 | Cobol.RECORD_CONTAINS(integer_range))) | |
2555 | in (hojfelds_NT 381,(result,RECORD1left,characters1right),rest671) end | |
2556 | | (471,(_,(MlyValue.standard_or_omitted standard_or_omitted,_, | |
2557 | standard_or_omitted1right))::_::(_,(_,LABEL1left,_))::rest671) => let | |
2558 | val result=MlyValue.label_records_clause((standard_or_omitted)) | |
2559 | in (hojfelds_NT 285,(result,LABEL1left,standard_or_omitted1right), | |
2560 | rest671) end | |
2561 | | (472,(_,(_,_,is1right))::(_,(_,RECORD1left,_))::rest671) => let val | |
2562 | result=MlyValue.ntVOID(()) | |
2563 | in (hojfelds_NT 387,(result,RECORD1left,is1right),rest671) end | |
2564 | | (473,(_,(_,_,are1right))::(_,(_,RECORDS1left,_))::rest671) => let | |
2565 | val result=MlyValue.ntVOID(()) | |
2566 | in (hojfelds_NT 387,(result,RECORDS1left,are1right),rest671) end | |
2567 | | (474,(_,(_,STANDARD1left,STANDARD1right))::rest671) => let val | |
2568 | result=MlyValue.standard_or_omitted((Cobol.LABEL_STANDARD)) | |
2569 | in (hojfelds_NT 456,(result,STANDARD1left,STANDARD1right),rest671) end | |
2570 | | (475,(_,(_,OMITTED1left,OMITTED1right))::rest671) => let val result= | |
2571 | MlyValue.standard_or_omitted((Cobol.LABEL_OMITTED)) | |
2572 | in (hojfelds_NT 456,(result,OMITTED1left,OMITTED1right),rest671) end | |
2573 | | (476,(_,(MlyValue.value_of_phrases value_of_phrases,_, | |
2574 | value_of_phrasesright as value_of_phrases1right))::_::(_,(_,VALUEleft | |
2575 | as VALUE1left,_))::rest671) => let val result= | |
2576 | MlyValue.value_of_clause(( | |
2577 | Cobol.VALUE_OF_CLAUSE(value_of_phrases, | |
2578 | VALUEleft, | |
2579 | value_of_phrasesright) | |
2580 | )) | |
2581 | in (hojfelds_NT 518,(result,VALUE1left,value_of_phrases1right),rest671 | |
2582 | ) end | |
2583 | | (477,(_,(MlyValue.value_of_phrase value_of_phrase,_, | |
2584 | value_of_phrase1right))::(_,(MlyValue.value_of_phrases | |
2585 | value_of_phrases,value_of_phrases1left,_))::rest671) => let val result | |
2586 | =MlyValue.value_of_phrases(( | |
2587 | Cobol.VALUE_OF_PHRASES(value_of_phrases, value_of_phrase))) | |
2588 | in (hojfelds_NT 521,(result,value_of_phrases1left, | |
2589 | value_of_phrase1right),rest671) end | |
2590 | | (478,(_,(MlyValue.value_of_phrase value_of_phrase, | |
2591 | value_of_phrase1left,value_of_phrase1right))::rest671) => let val | |
2592 | result=MlyValue.value_of_phrases(( | |
2593 | Cobol.VALUE_OF_PHRASE(value_of_phrase))) | |
2594 | in (hojfelds_NT 521,(result,value_of_phrase1left,value_of_phrase1right | |
2595 | ),rest671) end | |
2596 | | (479,(_,(MlyValue.data_name_or_literal data_name_or_literal,_, | |
2597 | data_name_or_literal1right))::_::(_,(MlyValue.system_name system_name, | |
2598 | system_name1left,_))::rest671) => let val result= | |
2599 | MlyValue.value_of_phrase(( | |
2600 | Cobol.VALUE_OF(system_name, data_name_or_literal))) | |
2601 | in (hojfelds_NT 520,(result,system_name1left, | |
2602 | data_name_or_literal1right),rest671) end | |
2603 | | (480,(_,(MlyValue.data_names data_names,_,data_names1right))::_::(_, | |
2604 | (_,DATA1left,_))::rest671) => let val result= | |
2605 | MlyValue.data_records_clause((Cobol.DATA_RECORD_IS(data_names))) | |
2606 | in (hojfelds_NT 108,(result,DATA1left,data_names1right),rest671) end | |
2607 | | (481,(_,(MlyValue.top_bottom_specifications | |
2608 | top_bottom_specifications,_,top_bottom_specificationsright as | |
2609 | top_bottom_specifications1right))::(_,(MlyValue.footing_specification | |
2610 | footing_specification,_,_))::_::(_,(MlyValue.data_name_or_integer | |
2611 | data_name_or_integer,_,_))::_::(_,(_,LINAGEleft as LINAGE1left,_)):: | |
2612 | rest671) => let val result=MlyValue.linage_clause(( | |
2613 | Cobol.LINAGE_CLAUSE(data_name_or_integer, | |
2614 | footing_specification, | |
2615 | top_bottom_specifications, | |
2616 | LINAGEleft, | |
2617 | top_bottom_specificationsright) | |
2618 | )) | |
2619 | in (hojfelds_NT 293,(result,LINAGE1left, | |
2620 | top_bottom_specifications1right),rest671) end | |
2621 | | (482,(_,(MlyValue.data_name_or_integer data_name_or_integer,_, | |
2622 | data_name_or_integer1right))::_::_::(_,(_,with1left,_))::rest671) => | |
2623 | let val result=MlyValue.footing_specification(( | |
2624 | Cobol.FOOTING(data_name_or_integer))) | |
2625 | in (hojfelds_NT 212,(result,with1left,data_name_or_integer1right), | |
2626 | rest671) end | |
2627 | | (483,rest671) => let val result=MlyValue.footing_specification(( | |
2628 | Cobol.NOFOOTING)) | |
2629 | in (hojfelds_NT 212,(result,defaultPos,defaultPos),rest671) end | |
2630 | | (484,(_,(MlyValue.top_bottom_specification top_bottom_specification, | |
2631 | _,top_bottom_specification1right))::(_,( | |
2632 | MlyValue.top_bottom_specifications top_bottom_specifications, | |
2633 | top_bottom_specifications1left,_))::rest671) => let val result= | |
2634 | MlyValue.top_bottom_specifications(( | |
2635 | Cobol.TOP_BOTTOM_SPECIFICATIONS(top_bottom_specifications, | |
2636 | top_bottom_specification) | |
2637 | )) | |
2638 | in (hojfelds_NT 502,(result,top_bottom_specifications1left, | |
2639 | top_bottom_specification1right),rest671) end | |
2640 | | (485,rest671) => let val result=MlyValue.top_bottom_specifications(( | |
2641 | Cobol.NO_TOP_BOTTOM_SPECIFICATION)) | |
2642 | in (hojfelds_NT 502,(result,defaultPos,defaultPos),rest671) end | |
2643 | | (486,(_,(_,_,data_name_or_integer1right))::(_,(MlyValue.top_bottom | |
2644 | top_bottom,_,_))::_::(_,(_,lines1left,_))::rest671) => let val result= | |
2645 | MlyValue.top_bottom_specification((top_bottom)) | |
2646 | in (hojfelds_NT 501,(result,lines1left,data_name_or_integer1right), | |
2647 | rest671) end | |
2648 | | (487,(_,(_,TOP1left,TOP1right))::rest671) => let val result= | |
2649 | MlyValue.top_bottom((Cobol.TOP)) | |
2650 | in (hojfelds_NT 500,(result,TOP1left,TOP1right),rest671) end | |
2651 | | (488,(_,(_,BOTTOM1left,BOTTOM1right))::rest671) => let val result= | |
2652 | MlyValue.top_bottom((Cobol.BOTTOM)) | |
2653 | in (hojfelds_NT 500,(result,BOTTOM1left,BOTTOM1right),rest671) end | |
2654 | | (489,(_,(MlyValue.alphabet_name alphabet_name,_,alphabet_nameright | |
2655 | as alphabet_name1right))::_::(_,(_,CODESETleft as CODESET1left,_)):: | |
2656 | rest671) => let val result=MlyValue.code_set_clause(( | |
2657 | Cobol.CODE_SET_CLAUSE(alphabet_name, | |
2658 | CODESETleft, | |
2659 | alphabet_nameright) | |
2660 | )) | |
2661 | in (hojfelds_NT 65,(result,CODESET1left,alphabet_name1right),rest671) | |
2662 | end | |
2663 | | (490,(_,(_,_,PERIOD1right))::(_,(MlyValue.sort_description_clauses | |
2664 | sort_description_clauses,_,_))::(_,(MlyValue.file_name file_name,_,_)) | |
2665 | ::(_,(_,SD1left,_))::rest671) => let val result= | |
2666 | MlyValue.sort_description_entry(( | |
2667 | Cobol.SD(file_name,sort_description_clauses))) | |
2668 | in (hojfelds_NT 447,(result,SD1left,PERIOD1right),rest671) end | |
2669 | | (491,(_,(MlyValue.sort_description_clause sort_description_clause,_, | |
2670 | sort_description_clause1right))::(_,(MlyValue.sort_description_clauses | |
2671 | sort_description_clauses,sort_description_clauses1left,_))::rest671) | |
2672 | => let val result=MlyValue.sort_description_clauses(( | |
2673 | Cobol.SORT_DESCRIPTION_CLAUSES(sort_description_clauses, | |
2674 | sort_description_clause) | |
2675 | )) | |
2676 | in (hojfelds_NT 446,(result,sort_description_clauses1left, | |
2677 | sort_description_clause1right),rest671) end | |
2678 | | (492,rest671) => let val result=MlyValue.sort_description_clauses(( | |
2679 | Cobol.NO_SORT_DESCRIPTION_CLAUSE)) | |
2680 | in (hojfelds_NT 446,(result,defaultPos,defaultPos),rest671) end | |
2681 | | (493,(_,(MlyValue.record_contains_clause record_contains_clause, | |
2682 | record_contains_clauseleft as record_contains_clause1left, | |
2683 | record_contains_clauseright as record_contains_clause1right))::rest671 | |
2684 | ) => let val result=MlyValue.sort_description_clause(( | |
2685 | Cobol.SORT_DESCRIPTION_CLAUSE_IS_RECORD | |
2686 | (record_contains_clause, | |
2687 | record_contains_clauseleft, | |
2688 | record_contains_clauseright) | |
2689 | )) | |
2690 | in (hojfelds_NT 445,(result,record_contains_clause1left, | |
2691 | record_contains_clause1right),rest671) end | |
2692 | | (494,(_,(MlyValue.data_records_clause data_records_clause, | |
2693 | data_records_clauseleft as data_records_clause1left, | |
2694 | data_records_clauseright as data_records_clause1right))::rest671) => | |
2695 | let val result=MlyValue.sort_description_clause(( | |
2696 | Cobol.SORT_DESCRIPTION_CLAUSE_IS_DATA(data_records_clause, | |
2697 | data_records_clauseleft, | |
2698 | data_records_clauseright) | |
2699 | )) | |
2700 | in (hojfelds_NT 445,(result,data_records_clause1left, | |
2701 | data_records_clause1right),rest671) end | |
2702 | | (495,(_,(MlyValue.record_description_entry record_description_entry, | |
2703 | _,record_description_entry1right))::(_,( | |
2704 | MlyValue.record_description_entries record_description_entries, | |
2705 | record_description_entries1left,_))::rest671) => let val result= | |
2706 | MlyValue.record_description_entries(( | |
2707 | Cobol.RECORD_DESCRIPTION_ENTRIES(record_description_entries, | |
2708 | record_description_entry) | |
2709 | )) | |
2710 | in (hojfelds_NT 385,(result,record_description_entries1left, | |
2711 | record_description_entry1right),rest671) end | |
2712 | | (496,(_,(MlyValue.record_description_entry record_description_entry, | |
2713 | record_description_entry1left,record_description_entry1right)):: | |
2714 | rest671) => let val result=MlyValue.record_description_entries(( | |
2715 | Cobol.RECORD_DESCRIPTION_ENTRIES(Cobol.NO_RECORD_DESCRIPTION_ENTRIES, | |
2716 | record_description_entry) | |
2717 | )) | |
2718 | in (hojfelds_NT 385,(result,record_description_entry1left, | |
2719 | record_description_entry1right),rest671) end | |
2720 | | (497,(_,(MlyValue.record_description_entries | |
2721 | record_description_entries,record_description_entries1left, | |
2722 | record_description_entries1right))::rest671) => let val result= | |
2723 | MlyValue.record_description_entries_opt(( | |
2724 | Cobol.RECORD_DESCRIPTION_ENTRIES_OPT(record_description_entries))) | |
2725 | in (hojfelds_NT 384,(result,record_description_entries1left, | |
2726 | record_description_entries1right),rest671) end | |
2727 | | (498,rest671) => let val result= | |
2728 | MlyValue.record_description_entries_opt(( | |
2729 | Cobol.NO_RECORD_DESCRIPTION_ENTRIES_OPT)) | |
2730 | in (hojfelds_NT 384,(result,defaultPos,defaultPos),rest671) end | |
2731 | | (499,(_,(MlyValue.data_description_entry data_description_entry, | |
2732 | data_description_entry1left,data_description_entry1right))::rest671) | |
2733 | => let val result=MlyValue.record_description_entry(( | |
2734 | data_description_entry)) | |
2735 | in (hojfelds_NT 386,(result,data_description_entry1left, | |
2736 | data_description_entry1right),rest671) end | |
2737 | | (500,(_,(MlyValue.data_description_entry_134 | |
2738 | data_description_entry_134,data_description_entry_1341left, | |
2739 | data_description_entry_1341right))::rest671) => let val result= | |
2740 | MlyValue.data_description_entry((data_description_entry_134)) | |
2741 | in (hojfelds_NT 89,(result,data_description_entry_1341left, | |
2742 | data_description_entry_1341right),rest671) end | |
2743 | | (501,(_,(MlyValue.renames_clause renames_clause,renames_clause1left, | |
2744 | renames_clause1right))::rest671) => let val result= | |
2745 | MlyValue.data_description_entry((renames_clause)) | |
2746 | in (hojfelds_NT 89,(result,renames_clause1left,renames_clause1right), | |
2747 | rest671) end | |
2748 | | (502,(_,(MlyValue.data_description_annotation | |
2749 | data_description_annotation,data_description_annotation1left, | |
2750 | data_description_annotation1right))::rest671) => let val result= | |
2751 | MlyValue.data_description_entry((data_description_annotation)) | |
2752 | in (hojfelds_NT 89,(result,data_description_annotation1left, | |
2753 | data_description_annotation1right),rest671) end | |
2754 | | (503,(_,(MlyValue.ts2k ts2k,_,ts2kright as ts2k1right))::(_,(_, | |
2755 | TS2Kleft as TS2K1left,_))::rest671) => let val result= | |
2756 | MlyValue.data_description_annotation(( | |
2757 | Cobol.TS2K_NOARROW(ts2k,TS2Kleft,ts2kright))) | |
2758 | in (hojfelds_NT 541,(result,TS2K1left,ts2k1right),rest671) end | |
2759 | | (504,(_,(MlyValue.ts2k ts2k2,_,ts2k2right))::_::(_,(MlyValue.ts2k | |
2760 | ts2k1,_,_))::(_,(_,TS2Kleft as TS2K1left,_))::rest671) => let val | |
2761 | result=MlyValue.data_description_annotation(( | |
2762 | Cobol.TS2K_ARROW(ts2k1,ts2k2,TS2Kleft,ts2k2right))) | |
2763 | in (hojfelds_NT 541,(result,TS2K1left,ts2k2right),rest671) end | |
2764 | | (505,(_,(MlyValue.ts2k ts2k2,_,ts2k2right))::_::(_,(MlyValue.ts2k | |
2765 | ts2k1,_,_))::_::(_,(_,TS2Kleft as TS2K1left,_))::rest671) => let val | |
2766 | result=MlyValue.data_description_annotation(( | |
2767 | Cobol.TS2K_ALL(ts2k1,ts2k2,TS2Kleft,ts2k2right))) | |
2768 | in (hojfelds_NT 541,(result,TS2K1left,ts2k2right),rest671) end | |
2769 | | (506,(_,(_,_,ENDright as END1right))::(_,(_,TS2Kleft as TS2K1left,_) | |
2770 | )::rest671) => let val result=MlyValue.data_description_annotation(( | |
2771 | Cobol.TS2K_END(TS2Kleft,ENDright))) | |
2772 | in (hojfelds_NT 541,(result,TS2K1left,END1right),rest671) end | |
2773 | | (507,(_,(_,_,SEPARATEright as SEPARATE1right))::_::(_,(_,TS2Kleft | |
2774 | as TS2K1left,_))::rest671) => let val result= | |
2775 | MlyValue.data_description_annotation(( | |
2776 | Cobol.TS2K_ASSUME_SEPARATE(TS2Kleft,SEPARATEright))) | |
2777 | in (hojfelds_NT 541,(result,TS2K1left,SEPARATE1right),rest671) end | |
2778 | | (508,(_,(_,_,PERIODright as PERIOD1right))::(_,( | |
2779 | MlyValue.data_description_clauses data_description_clauses,_,_))::(_,( | |
2780 | MlyValue.redefines_clause redefines_clause,_,_))::(_,( | |
2781 | MlyValue.data_name_or_filler data_name_or_filler,_,_))::(_,( | |
2782 | MlyValue.level_number level_number,level_numberleft as | |
2783 | level_number1left,_))::rest671) => let val result= | |
2784 | MlyValue.data_description_entry_134(( | |
2785 | (if (level_number = "88") | |
2786 | then (case data_name_or_filler of | |
2787 | Cobol.DATA_NAME_OR_FILLER_IS_DATA_NAME(data_name) | |
2788 | => condition_names := data_name :: (!condition_names) | |
2789 | | _ => ()) | |
2790 | else ()); | |
2791 | Cobol.DATA_DESCRIPTION_ENTRY_134(level_number, | |
2792 | data_name_or_filler, | |
2793 | redefines_clause, | |
2794 | data_description_clauses, | |
2795 | level_numberleft, | |
2796 | PERIODright) | |
2797 | )) | |
2798 | in (hojfelds_NT 90,(result,level_number1left,PERIOD1right),rest671) | |
2799 | end | |
2800 | | (509,(_,(MlyValue.data_name data_name,_,data_name1right))::(_,(_, | |
2801 | REDEFINES1left,_))::rest671) => let val result= | |
2802 | MlyValue.redefines_clause((Cobol.REDEFINES_CLAUSE(data_name))) | |
2803 | in (hojfelds_NT 391,(result,REDEFINES1left,data_name1right),rest671) | |
2804 | end | |
2805 | | (510,rest671) => let val result=MlyValue.redefines_clause(( | |
2806 | Cobol.NO_REDEFINES_CLAUSE)) | |
2807 | in (hojfelds_NT 391,(result,defaultPos,defaultPos),rest671) end | |
2808 | | (511,(_,(MlyValue.data_description_clause data_description_clause,_, | |
2809 | data_description_clause1right))::(_,(MlyValue.data_description_clauses | |
2810 | data_description_clauses,data_description_clauses1left,_))::rest671) | |
2811 | => let val result=MlyValue.data_description_clauses(( | |
2812 | Cobol.DATA_DESCRIPTION_CLAUSES(data_description_clauses, | |
2813 | data_description_clause) | |
2814 | )) | |
2815 | in (hojfelds_NT 88,(result,data_description_clauses1left, | |
2816 | data_description_clause1right),rest671) end | |
2817 | | (512,rest671) => let val result=MlyValue.data_description_clauses(( | |
2818 | Cobol.NO_DATA_DESCRIPTION_CLAUSES)) | |
2819 | in (hojfelds_NT 88,(result,defaultPos,defaultPos),rest671) end | |
2820 | | (513,(_,(MlyValue.usage_clause usage_clause,usage_clauseleft as | |
2821 | usage_clause1left,usage_clauseright as usage_clause1right))::rest671) | |
2822 | => let val result=MlyValue.data_description_clause(( | |
2823 | Cobol.DATA_DESCRIPTION_CLAUSE_IS_USAGE_CLAUSE(usage_clause, | |
2824 | usage_clauseleft, | |
2825 | usage_clauseright) | |
2826 | )) | |
2827 | in (hojfelds_NT 87,(result,usage_clause1left,usage_clause1right), | |
2828 | rest671) end | |
2829 | | (514,(_,(MlyValue.sign_clause sign_clause,sign_clauseleft as | |
2830 | sign_clause1left,sign_clauseright as sign_clause1right))::rest671) => | |
2831 | let val result=MlyValue.data_description_clause(( | |
2832 | let val (lt,sc) = sign_clause | |
2833 | in Cobol.DATA_DESCRIPTION_CLAUSE_IS_SIGN_CLAUSE | |
2834 | (lt,sc,sign_clauseleft,sign_clauseright) | |
2835 | end | |
2836 | )) | |
2837 | in (hojfelds_NT 87,(result,sign_clause1left,sign_clause1right),rest671 | |
2838 | ) end | |
2839 | | (515,(_,(MlyValue.occurs_clause occurs_clause,occurs_clauseleft as | |
2840 | occurs_clause1left,occurs_clauseright as occurs_clause1right)):: | |
2841 | rest671) => let val result=MlyValue.data_description_clause(( | |
2842 | let val (tld, adkp, ibp) = occurs_clause | |
2843 | in Cobol.DATA_DESCRIPTION_CLAUSE_IS_OCCURS_CLAUSE | |
2844 | (tld, adkp, ibp, occurs_clauseleft, occurs_clauseright) | |
2845 | end | |
2846 | )) | |
2847 | in (hojfelds_NT 87,(result,occurs_clause1left,occurs_clause1right), | |
2848 | rest671) end | |
2849 | | (516,(_,(MlyValue.synchronized_clause synchronized_clause, | |
2850 | synchronized_clauseleft as synchronized_clause1left, | |
2851 | synchronized_clauseright as synchronized_clause1right))::rest671) => | |
2852 | let val result=MlyValue.data_description_clause(( | |
2853 | Cobol.DATA_DESCRIPTION_CLAUSE_IS_SYNCHRONIZED_CLAUSE | |
2854 | (synchronized_clause, | |
2855 | synchronized_clauseleft, | |
2856 | synchronized_clauseright) | |
2857 | )) | |
2858 | in (hojfelds_NT 87,(result,synchronized_clause1left, | |
2859 | synchronized_clause1right),rest671) end | |
2860 | | (517,(_,(_,justified_clauseleft as justified_clause1left, | |
2861 | justified_clauseright as justified_clause1right))::rest671) => let | |
2862 | val result=MlyValue.data_description_clause(( | |
2863 | Cobol.DATA_DESCRIPTION_CLAUSE_IS_JUSTIFIED_CLAUSE | |
2864 | (justified_clauseleft, | |
2865 | justified_clauseright) | |
2866 | )) | |
2867 | in (hojfelds_NT 87,(result,justified_clause1left, | |
2868 | justified_clause1right),rest671) end | |
2869 | | (518,(_,(_,blank_when_zero_clauseleft as blank_when_zero_clause1left | |
2870 | ,blank_when_zero_clauseright as blank_when_zero_clause1right)):: | |
2871 | rest671) => let val result=MlyValue.data_description_clause(( | |
2872 | Cobol.DATA_DESCRIPTION_CLAUSE_IS_BLANK_WHEN_ZERO_CLAUSE | |
2873 | (blank_when_zero_clauseleft, | |
2874 | blank_when_zero_clauseright) | |
2875 | )) | |
2876 | in (hojfelds_NT 87,(result,blank_when_zero_clause1left, | |
2877 | blank_when_zero_clause1right),rest671) end | |
2878 | | (519,(_,(MlyValue.value_clause value_clause,value_clauseleft as | |
2879 | value_clause1left,value_clauseright as value_clause1right))::rest671) | |
2880 | => let val result=MlyValue.data_description_clause(( | |
2881 | Cobol.DATA_DESCRIPTION_CLAUSE_IS_VALUE_CLAUSE(value_clause, | |
2882 | value_clauseleft, | |
2883 | value_clauseright) | |
2884 | )) | |
2885 | in (hojfelds_NT 87,(result,value_clause1left,value_clause1right), | |
2886 | rest671) end | |
2887 | | (520,(_,(MlyValue.picture_clause picture_clause,picture_clauseleft | |
2888 | as picture_clause1left,picture_clauseright as picture_clause1right)) | |
2889 | ::rest671) => let val result=MlyValue.data_description_clause(( | |
2890 | Cobol.DATA_DESCRIPTION_CLAUSE_IS_PICTURE_CLAUSE(picture_clause, | |
2891 | picture_clauseleft, | |
2892 | picture_clauseright) | |
2893 | )) | |
2894 | in (hojfelds_NT 87,(result,picture_clause1left,picture_clause1right), | |
2895 | rest671) end | |
2896 | | (521,(_,(MlyValue.indicator_clause indicator_clause, | |
2897 | indicator_clauseleft as indicator_clause1left,indicator_clauseright | |
2898 | as indicator_clause1right))::rest671) => let val result= | |
2899 | MlyValue.data_description_clause(( | |
2900 | Cobol.DATA_DESCRIPTION_CLAUSE_IS_INDICATOR_CLAUSE | |
2901 | (indicator_clause, | |
2902 | indicator_clauseleft, | |
2903 | indicator_clauseright) | |
2904 | )) | |
2905 | in (hojfelds_NT 87,(result,indicator_clause1left, | |
2906 | indicator_clause1right),rest671) end | |
2907 | | (522,(_,(MlyValue.INTEGER INTEGER,_,INTEGER1right))::(_,(_, | |
2908 | indicator1left,_))::rest671) => let val result= | |
2909 | MlyValue.indicator_clause((INTEGER)) | |
2910 | in (hojfelds_NT 251,(result,indicator1left,INTEGER1right),rest671) end | |
2911 | | (523,(_,(_,INDICATOR1left,INDICATOR1right))::rest671) => let val | |
2912 | result=MlyValue.ntVOID(()) | |
2913 | in (hojfelds_NT 252,(result,INDICATOR1left,INDICATOR1right),rest671) | |
2914 | end | |
2915 | | (524,(_,(_,INDICATORS1left,INDICATORS1right))::rest671) => let val | |
2916 | result=MlyValue.ntVOID(()) | |
2917 | in (hojfelds_NT 252,(result,INDICATORS1left,INDICATORS1right),rest671) | |
2918 | end | |
2919 | | (525,(_,(_,INDIC1left,INDIC1right))::rest671) => let val result= | |
2920 | MlyValue.ntVOID(()) | |
2921 | in (hojfelds_NT 252,(result,INDIC1left,INDIC1right),rest671) end | |
2922 | | (526,(_,(_,_,ZERO1right))::_::(_,(_,BLANK1left,_))::rest671) => let | |
2923 | val result=MlyValue.ntVOID(()) | |
2924 | in (hojfelds_NT 52,(result,BLANK1left,ZERO1right),rest671) end | |
2925 | | (527,(_,(_,_,right1right))::(_,(_,justified1left,_))::rest671) => | |
2926 | let val result=MlyValue.ntVOID(()) | |
2927 | in (hojfelds_NT 281,(result,justified1left,right1right),rest671) end | |
2928 | | (528,(_,(MlyValue.fixed_length_tables_clause | |
2929 | fixed_length_tables_clause,fixed_length_tables_clause1left, | |
2930 | fixed_length_tables_clause1right))::rest671) => let val result= | |
2931 | MlyValue.occurs_clause((fixed_length_tables_clause)) | |
2932 | in (hojfelds_NT 329,(result,fixed_length_tables_clause1left, | |
2933 | fixed_length_tables_clause1right),rest671) end | |
2934 | | (529,(_,(MlyValue.variable_length_tables_clause | |
2935 | variable_length_tables_clause,variable_length_tables_clause1left, | |
2936 | variable_length_tables_clause1right))::rest671) => let val result= | |
2937 | MlyValue.occurs_clause((variable_length_tables_clause)) | |
2938 | in (hojfelds_NT 329,(result,variable_length_tables_clause1left, | |
2939 | variable_length_tables_clause1right),rest671) end | |
2940 | | (530,(_,(MlyValue.indexed_by_phrase indexed_by_phrase,_, | |
2941 | indexed_by_phrase1right))::(_,( | |
2942 | MlyValue.ascending_descending_key_phrases | |
2943 | ascending_descending_key_phrases,_,_))::_::(_,(MlyValue.INTEGER | |
2944 | INTEGER,_,_))::(_,(_,OCCURS1left,_))::rest671) => let val result= | |
2945 | MlyValue.fixed_length_tables_clause(( | |
2946 | (Cobol.FIXED_LENGTH_TABLE(INTEGER), | |
2947 | ascending_descending_key_phrases, | |
2948 | indexed_by_phrase) | |
2949 | )) | |
2950 | in (hojfelds_NT 211,(result,OCCURS1left,indexed_by_phrase1right), | |
2951 | rest671) end | |
2952 | | (531,(_,(MlyValue.ascending_descending_key_phrase | |
2953 | ascending_descending_key_phrase,_, | |
2954 | ascending_descending_key_phrase1right))::(_,( | |
2955 | MlyValue.ascending_descending_key_phrases | |
2956 | ascending_descending_key_phrases,ascending_descending_key_phrases1left | |
2957 | ,_))::rest671) => let val result= | |
2958 | MlyValue.ascending_descending_key_phrases(( | |
2959 | Cobol.ASCENDING_DESCENDING_KEY_PHRASES | |
2960 | (ascending_descending_key_phrases, | |
2961 | ascending_descending_key_phrase) | |
2962 | )) | |
2963 | in (hojfelds_NT 45,(result,ascending_descending_key_phrases1left, | |
2964 | ascending_descending_key_phrase1right),rest671) end | |
2965 | | (532,rest671) => let val result= | |
2966 | MlyValue.ascending_descending_key_phrases(( | |
2967 | Cobol.NO_ASCENDING_DESCENDING_KEY_PHRASES)) | |
2968 | in (hojfelds_NT 45,(result,defaultPos,defaultPos),rest671) end | |
2969 | | (533,(_,(MlyValue.data_names data_names,_,data_names1right))::_::_:: | |
2970 | (_,(MlyValue.ascending_descending ascending_descending, | |
2971 | ascending_descending1left,_))::rest671) => let val result= | |
2972 | MlyValue.ascending_descending_key_phrase(( | |
2973 | Cobol.ASCENDING_DESCENDING_KEY_PHRASE(ascending_descending, | |
2974 | data_names) | |
2975 | )) | |
2976 | in (hojfelds_NT 44,(result,ascending_descending1left,data_names1right) | |
2977 | ,rest671) end | |
2978 | | (534,(_,(_,ASCENDING1left,ASCENDING1right))::rest671) => let val | |
2979 | result=MlyValue.ascending_descending((Cobol.ASCENDING)) | |
2980 | in (hojfelds_NT 43,(result,ASCENDING1left,ASCENDING1right),rest671) | |
2981 | end | |
2982 | | (535,(_,(_,DESCENDING1left,DESCENDING1right))::rest671) => let val | |
2983 | result=MlyValue.ascending_descending((Cobol.DESCENDING)) | |
2984 | in (hojfelds_NT 43,(result,DESCENDING1left,DESCENDING1right),rest671) | |
2985 | end | |
2986 | | (536,(_,(MlyValue.index_names index_names,_,index_names1right))::_:: | |
2987 | (_,(_,INDEXED1left,_))::rest671) => let val result= | |
2988 | MlyValue.indexed_by_phrase((Cobol.INDEXED_BY_PHRASE(index_names))) | |
2989 | in (hojfelds_NT 248,(result,INDEXED1left,index_names1right),rest671) | |
2990 | end | |
2991 | | (537,rest671) => let val result=MlyValue.indexed_by_phrase(( | |
2992 | Cobol.NO_INDEXED_BY_PHRASE)) | |
2993 | in (hojfelds_NT 248,(result,defaultPos,defaultPos),rest671) end | |
2994 | | (538,(_,(MlyValue.indexed_by_phrase indexed_by_phrase,_, | |
2995 | indexed_by_phrase1right))::(_,( | |
2996 | MlyValue.ascending_descending_key_phrases | |
2997 | ascending_descending_key_phrases,_,_))::(_,(MlyValue.data_name | |
2998 | data_name,_,_))::_::_::_::(_,(MlyValue.INTEGER INTEGER2,_,_))::_::(_,( | |
2999 | MlyValue.INTEGER INTEGER1,_,_))::(_,(_,OCCURS1left,_))::rest671) => | |
3000 | let val result=MlyValue.variable_length_tables_clause(( | |
3001 | (Cobol.VARIABLE_LENGTH_TABLE(INTEGER1,INTEGER2,data_name), | |
3002 | ascending_descending_key_phrases, | |
3003 | indexed_by_phrase) | |
3004 | )) | |
3005 | in (hojfelds_NT 522,(result,OCCURS1left,indexed_by_phrase1right), | |
3006 | rest671) end | |
3007 | | (539,(_,(MlyValue.character_string character_string,_, | |
3008 | character_string1right))::_::(_,(_,picture1left,_))::rest671) => let | |
3009 | val result=MlyValue.picture_clause((character_string)) | |
3010 | in (hojfelds_NT 363,(result,picture1left,character_string1right), | |
3011 | rest671) end | |
3012 | | (540,(_,(MlyValue.separate_character separate_character,_, | |
3013 | separate_character1right))::(_,(MlyValue.leading_trailing | |
3014 | leading_trailing,_,_))::(_,(_,sign_is_opt1left,_))::rest671) => let | |
3015 | val result=MlyValue.sign_clause(( | |
3016 | (leading_trailing, separate_character))) | |
3017 | in (hojfelds_NT 436,(result,sign_is_opt1left,separate_character1right) | |
3018 | ,rest671) end | |
3019 | | (541,(_,(_,LEADING1left,LEADING1right))::rest671) => let val result= | |
3020 | MlyValue.leading_trailing((Cobol.LEADING_TRAILING_IS_LEADING)) | |
3021 | in (hojfelds_NT 287,(result,LEADING1left,LEADING1right),rest671) end | |
3022 | | (542,(_,(_,TRAILING1left,TRAILING1right))::rest671) => let val | |
3023 | result=MlyValue.leading_trailing((Cobol.LEADING_TRAILING_IS_TRAILING)) | |
3024 | in (hojfelds_NT 287,(result,TRAILING1left,TRAILING1right),rest671) end | |
3025 | | (543,(_,(MlyValue.left_right left_right,_,left_right1right))::(_,(_, | |
3026 | synchronized1left,_))::rest671) => let val result= | |
3027 | MlyValue.synchronized_clause((left_right)) | |
3028 | in (hojfelds_NT 475,(result,synchronized1left,left_right1right), | |
3029 | rest671) end | |
3030 | | (544,(_,(_,LEFT1left,LEFT1right))::rest671) => let val result= | |
3031 | MlyValue.left_right((Cobol.LEFT)) | |
3032 | in (hojfelds_NT 289,(result,LEFT1left,LEFT1right),rest671) end | |
3033 | | (545,(_,(_,RIGHT1left,RIGHT1right))::rest671) => let val result= | |
3034 | MlyValue.left_right((Cobol.RIGHT)) | |
3035 | in (hojfelds_NT 289,(result,RIGHT1left,RIGHT1right),rest671) end | |
3036 | | (546,(_,(MlyValue.usage_specifier usage_specifier,_, | |
3037 | usage_specifier1right))::(_,(_,usage_is1left,_))::rest671) => let val | |
3038 | result=MlyValue.usage_clause((usage_specifier)) | |
3039 | in (hojfelds_NT 507,(result,usage_is1left,usage_specifier1right), | |
3040 | rest671) end | |
3041 | | (547,(_,(_,DISPLAY1left,DISPLAY1right))::rest671) => let val result= | |
3042 | MlyValue.usage_specifier((Cobol.USAGE_IS_DISPLAY)) | |
3043 | in (hojfelds_NT 509,(result,DISPLAY1left,DISPLAY1right),rest671) end | |
3044 | | (548,(_,(_,INDEX1left,INDEX1right))::rest671) => let val result= | |
3045 | MlyValue.usage_specifier((Cobol.USAGE_IS_INDEX)) | |
3046 | in (hojfelds_NT 509,(result,INDEX1left,INDEX1right),rest671) end | |
3047 | | (549,(_,(_,COMPUTATIONAL31left,COMPUTATIONAL31right))::rest671) => | |
3048 | let val result=MlyValue.usage_specifier((Cobol.USAGE_IS_COMP3)) | |
3049 | in (hojfelds_NT 509,(result,COMPUTATIONAL31left,COMPUTATIONAL31right), | |
3050 | rest671) end | |
3051 | | (550,(_,(_,COMP31left,COMP31right))::rest671) => let val result= | |
3052 | MlyValue.usage_specifier((Cobol.USAGE_IS_COMP3)) | |
3053 | in (hojfelds_NT 509,(result,COMP31left,COMP31right),rest671) end | |
3054 | | (551,(_,(_,COMPUTATIONAL41left,COMPUTATIONAL41right))::rest671) => | |
3055 | let val result=MlyValue.usage_specifier((Cobol.USAGE_IS_COMP4)) | |
3056 | in (hojfelds_NT 509,(result,COMPUTATIONAL41left,COMPUTATIONAL41right), | |
3057 | rest671) end | |
3058 | | (552,(_,(_,COMP41left,COMP41right))::rest671) => let val result= | |
3059 | MlyValue.usage_specifier((Cobol.USAGE_IS_COMP4)) | |
3060 | in (hojfelds_NT 509,(result,COMP41left,COMP41right),rest671) end | |
3061 | | (553,(_,(_,COMPUTATIONAL1left,COMPUTATIONAL1right))::rest671) => | |
3062 | let val result=MlyValue.usage_specifier((Cobol.USAGE_IS_COMP)) | |
3063 | in (hojfelds_NT 509,(result,COMPUTATIONAL1left,COMPUTATIONAL1right), | |
3064 | rest671) end | |
3065 | | (554,(_,(_,COMP1left,COMP1right))::rest671) => let val result= | |
3066 | MlyValue.usage_specifier((Cobol.USAGE_IS_COMP)) | |
3067 | in (hojfelds_NT 509,(result,COMP1left,COMP1right),rest671) end | |
3068 | | (555,(_,(MlyValue.literal_ranges literal_ranges,_, | |
3069 | literal_ranges1right))::(_,(_,value_is1left,_))::rest671) => let val | |
3070 | result=MlyValue.value_clause((literal_ranges)) | |
3071 | in (hojfelds_NT 516,(result,value_is1left,literal_ranges1right), | |
3072 | rest671) end | |
3073 | | (556,(_,(_,_,is1right))::(_,(_,VALUE1left,_))::rest671) => let val | |
3074 | result=MlyValue.ntVOID(()) | |
3075 | in (hojfelds_NT 517,(result,VALUE1left,is1right),rest671) end | |
3076 | | (557,(_,(_,_,are1right))::(_,(_,VALUES1left,_))::rest671) => let | |
3077 | val result=MlyValue.ntVOID(()) | |
3078 | in (hojfelds_NT 517,(result,VALUES1left,are1right),rest671) end | |
3079 | | (558,(_,(_,_,PERIODright as PERIOD1right))::(_,( | |
3080 | MlyValue.through_data_name through_data_name,_,_))::(_,( | |
3081 | MlyValue.data_name data_name2,_,_))::_::(_,(MlyValue.data_name | |
3082 | data_name1,_,_))::(_,(MlyValue.level_number level_number, | |
3083 | level_numberleft as level_number1left,_))::rest671) => let val result= | |
3084 | MlyValue.renames_clause(( | |
3085 | Cobol.RENAMES_CLAUSE(level_number, | |
3086 | data_name1, | |
3087 | data_name2, | |
3088 | through_data_name, | |
3089 | level_numberleft, | |
3090 | PERIODright) | |
3091 | )) | |
3092 | in (hojfelds_NT 401,(result,level_number1left,PERIOD1right),rest671) | |
3093 | end | |
3094 | | (559,(_,(MlyValue.data_name data_name,_,data_name1right))::(_,(_, | |
3095 | through1left,_))::rest671) => let val result= | |
3096 | MlyValue.through_data_name((Cobol.THROUGH_DATA_NAME(data_name))) | |
3097 | in (hojfelds_NT 492,(result,through1left,data_name1right),rest671) end | |
3098 | | (560,rest671) => let val result=MlyValue.through_data_name(( | |
3099 | Cobol.NOT_THROUGH_DATA_NAME)) | |
3100 | in (hojfelds_NT 492,(result,defaultPos,defaultPos),rest671) end | |
3101 | | (561,(_,(MlyValue.record_description_entries_opt | |
3102 | record_description_entries_opt,_,record_description_entries_optright | |
3103 | as record_description_entries_opt1right))::_::_::(_,(_, | |
3104 | WORKINGSTORAGEleft as WORKINGSTORAGE1left,_))::rest671) => let val | |
3105 | result=MlyValue.working_storage_section(( | |
3106 | Cobol.WORKINGSTORAGE_SECTION(record_description_entries_opt, | |
3107 | WORKINGSTORAGEleft,record_description_entries_optright) | |
3108 | )) | |
3109 | in (hojfelds_NT 529,(result,WORKINGSTORAGE1left, | |
3110 | record_description_entries_opt1right),rest671) end | |
3111 | | (562,rest671) => let val result=MlyValue.working_storage_section(( | |
3112 | Cobol.NO_WORKINGSTORAGE_SECTION)) | |
3113 | in (hojfelds_NT 529,(result,defaultPos,defaultPos),rest671) end | |
3114 | | (563,(_,(MlyValue.record_description_entries_opt | |
3115 | record_description_entries_opt,_,record_description_entries_optright | |
3116 | as record_description_entries_opt1right))::_::_::(_,(_,LINKAGEleft | |
3117 | as LINKAGE1left,_))::rest671) => let val result= | |
3118 | MlyValue.linkage_section(( | |
3119 | Cobol.LINKAGE_SECTION(record_description_entries_opt, | |
3120 | LINKAGEleft,record_description_entries_optright) | |
3121 | )) | |
3122 | in (hojfelds_NT 297,(result,LINKAGE1left, | |
3123 | record_description_entries_opt1right),rest671) end | |
3124 | | (564,rest671) => let val result=MlyValue.linkage_section(( | |
3125 | Cobol.NO_LINKAGE_SECTION)) | |
3126 | in (hojfelds_NT 297,(result,defaultPos,defaultPos),rest671) end | |
3127 | | (565,(_,(MlyValue.sections sections,_,sectionsright as | |
3128 | sections1right))::(_,(MlyValue.declaratives_section | |
3129 | declaratives_section,_,_))::_::(_,(MlyValue.using_clause using_clause, | |
3130 | _,_))::_::(_,(_,PROCEDUREleft as PROCEDURE1left,_))::rest671) => let | |
3131 | val result=MlyValue.procedure_division(( | |
3132 | Cobol.PROCEDURE_DIVISION_FORMAT_1_DECLARATIVES(using_clause, | |
3133 | declaratives_section, | |
3134 | sections, | |
3135 | PROCEDUREleft, | |
3136 | sectionsright) | |
3137 | )) | |
3138 | in (hojfelds_NT 367,(result,PROCEDURE1left,sections1right),rest671) | |
3139 | end | |
3140 | | (566,(_,(MlyValue.sections sections,_,sectionsright as | |
3141 | sections1right))::_::(_,(MlyValue.using_clause using_clause,_,_))::_:: | |
3142 | (_,(_,PROCEDUREleft as PROCEDURE1left,_))::rest671) => let val result= | |
3143 | MlyValue.procedure_division(( | |
3144 | Cobol.PROCEDURE_DIVISION_FORMAT_1_NO_DECLARATIVES(using_clause, | |
3145 | sections, | |
3146 | PROCEDUREleft, | |
3147 | sectionsright) | |
3148 | )) | |
3149 | in (hojfelds_NT 367,(result,PROCEDURE1left,sections1right),rest671) | |
3150 | end | |
3151 | | (567,(_,(MlyValue.paragraphs paragraphs,_,paragraphsright as | |
3152 | paragraphs1right))::_::(_,(MlyValue.using_clause using_clause,_,_))::_ | |
3153 | ::(_,(_,PROCEDUREleft as PROCEDURE1left,_))::rest671) => let val | |
3154 | result=MlyValue.procedure_division(( | |
3155 | Cobol.PROCEDURE_DIVISION_FORMAT_2(using_clause, | |
3156 | paragraphs, | |
3157 | PROCEDUREleft, | |
3158 | paragraphsright) | |
3159 | )) | |
3160 | in (hojfelds_NT 367,(result,PROCEDURE1left,paragraphs1right),rest671) | |
3161 | end | |
3162 | | (568,rest671) => let val result=MlyValue.procedure_division(( | |
3163 | Cobol.EMPTY_PROCEDURE_DIVISION)) | |
3164 | in (hojfelds_NT 367,(result,defaultPos,defaultPos),rest671) end | |
3165 | | (569,(_,(_,_,data_names1right))::(_,(_,USING1left,_))::rest671) => | |
3166 | let val result=MlyValue.using_clause(()) | |
3167 | in (hojfelds_NT 512,(result,USING1left,data_names1right),rest671) end | |
3168 | | (570,rest671) => let val result=MlyValue.using_clause(()) | |
3169 | in (hojfelds_NT 512,(result,defaultPos,defaultPos),rest671) end | |
3170 | | (571,(_,(_,_,PERIOD2right))::_::_::_::_::(_,(_,DECLARATIVES1left,_)) | |
3171 | ::rest671) => let val result=MlyValue.declaratives_section(()) | |
3172 | in (hojfelds_NT 118,(result,DECLARATIVES1left,PERIOD2right),rest671) | |
3173 | end | |
3174 | | (572,(_,(_,_,PERIOD2right))::_::_::_::_::(_,(_,section_name1left,_)) | |
3175 | ::rest671) => let val result=MlyValue.ntVOID(()) | |
3176 | in (hojfelds_NT 119,(result,section_name1left,PERIOD2right),rest671) | |
3177 | end | |
3178 | | (573,(_,(_,_,declaratives_sections1right))::_::_::_::_::_::(_,(_, | |
3179 | section_name1left,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
3180 | in (hojfelds_NT 119,(result,section_name1left, | |
3181 | declaratives_sections1right),rest671) end | |
3182 | | (574,(_,(_,_,declaratives_paragraphs1right))::_::_::_::_::_::(_,(_, | |
3183 | section_name1left,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
3184 | in (hojfelds_NT 119,(result,section_name1left, | |
3185 | declaratives_paragraphs1right),rest671) end | |
3186 | | (575,(_,(_,_,declaratives_paragraphs1right))::_::_::(_,(_, | |
3187 | paragraph_name1left,_))::rest671) => let val result=MlyValue.ntVOID(() | |
3188 | ) | |
3189 | in (hojfelds_NT 117,(result,paragraph_name1left, | |
3190 | declaratives_paragraphs1right),rest671) end | |
3191 | | (576,(_,(_,_,declaratives_sections1right))::_::_::(_,(_, | |
3192 | paragraph_name1left,_))::rest671) => let val result=MlyValue.ntVOID(() | |
3193 | ) | |
3194 | in (hojfelds_NT 117,(result,paragraph_name1left, | |
3195 | declaratives_sections1right),rest671) end | |
3196 | | (577,(_,(_,_,sentences1right))::_::(_,(_,paragraph_name1left,_)):: | |
3197 | rest671) => let val result=MlyValue.ntVOID(()) | |
3198 | in (hojfelds_NT 117,(result,paragraph_name1left,sentences1right), | |
3199 | rest671) end | |
3200 | | (578,(_,(_,_,PERIOD1right))::(_,(MlyValue.segment_number_opt | |
3201 | segment_number_opt,_,_))::_::(_,(MlyValue.section_name section_name, | |
3202 | section_name1left,_))::rest671) => let val result=MlyValue.sections(( | |
3203 | Cobol.NO_BODY_SECTION(section_name,segment_number_opt))) | |
3204 | in (hojfelds_NT 424,(result,section_name1left,PERIOD1right),rest671) | |
3205 | end | |
3206 | | (579,(_,(MlyValue.sections sections,_,sections1right))::_::(_,( | |
3207 | MlyValue.segment_number_opt segment_number_opt,_,_))::_::(_,( | |
3208 | MlyValue.section_name section_name,section_name1left,_))::rest671) => | |
3209 | let val result=MlyValue.sections(( | |
3210 | Cobol.NO_BODY_SECTION_FOLLOWED_BY_SECTION(section_name, | |
3211 | segment_number_opt, | |
3212 | sections) | |
3213 | )) | |
3214 | in (hojfelds_NT 424,(result,section_name1left,sections1right),rest671) | |
3215 | end | |
3216 | | (580,(_,(MlyValue.paragraphs_and_sections paragraphs_and_sections,_, | |
3217 | paragraphs_and_sections1right))::_::(_,(MlyValue.segment_number_opt | |
3218 | segment_number_opt,_,_))::_::(_,(MlyValue.section_name section_name, | |
3219 | section_name1left,_))::rest671) => let val result=MlyValue.sections(( | |
3220 | Cobol.SECTION(section_name, | |
3221 | segment_number_opt, | |
3222 | paragraphs_and_sections) | |
3223 | )) | |
3224 | in (hojfelds_NT 424,(result,section_name1left, | |
3225 | paragraphs_and_sections1right),rest671) end | |
3226 | | (581,(_,(MlyValue.paragraphs_and_sections paragraphs_and_sections,_, | |
3227 | paragraphs_and_sections1right))::(_,(MlyValue.paragraph paragraph, | |
3228 | paragraph1left,_))::rest671) => let val result= | |
3229 | MlyValue.paragraphs_and_sections(( | |
3230 | Cobol.SEVERAL_PARAGRAPHS_AND_SECTIONS(paragraph, | |
3231 | paragraphs_and_sections) | |
3232 | )) | |
3233 | in (hojfelds_NT 359,(result,paragraph1left, | |
3234 | paragraphs_and_sections1right),rest671) end | |
3235 | | (582,(_,(MlyValue.sections sections,_,sections1right))::(_,( | |
3236 | MlyValue.paragraph paragraph,paragraph1left,_))::rest671) => let val | |
3237 | result=MlyValue.paragraphs_and_sections(( | |
3238 | Cobol.SINGLE_PARAGRAPH_AND_SECTIONS(paragraph,sections))) | |
3239 | in (hojfelds_NT 359,(result,paragraph1left,sections1right),rest671) | |
3240 | end | |
3241 | | (583,(_,(MlyValue.paragraph paragraph,paragraph1left,paragraph1right | |
3242 | ))::rest671) => let val result=MlyValue.paragraphs_and_sections(( | |
3243 | Cobol.SINGLE_PARAGRAPH(paragraph))) | |
3244 | in (hojfelds_NT 359,(result,paragraph1left,paragraph1right),rest671) | |
3245 | end | |
3246 | | (584,(_,(MlyValue.paragraph paragraph,_,paragraph1right))::(_,( | |
3247 | MlyValue.paragraphs paragraphs,paragraphs1left,_))::rest671) => let | |
3248 | val result=MlyValue.paragraphs(( | |
3249 | Cobol.SEVERAL_PARAGRAPHS(paragraphs,paragraph))) | |
3250 | in (hojfelds_NT 358,(result,paragraphs1left,paragraph1right),rest671) | |
3251 | end | |
3252 | | (585,(_,(MlyValue.paragraph paragraph,paragraph1left,paragraph1right | |
3253 | ))::rest671) => let val result=MlyValue.paragraphs(( | |
3254 | Cobol.ONE_PARAGRAPH(paragraph))) | |
3255 | in (hojfelds_NT 358,(result,paragraph1left,paragraph1right),rest671) | |
3256 | end | |
3257 | | (586,(_,(MlyValue.sentences sentences,_,sentences1right))::_::(_,( | |
3258 | MlyValue.paragraph_name paragraph_name,paragraph_name1left,_)):: | |
3259 | rest671) => let val result=MlyValue.paragraph(( | |
3260 | Cobol.PARAGRAPH(paragraph_name,sentences))) | |
3261 | in (hojfelds_NT 356,(result,paragraph_name1left,sentences1right), | |
3262 | rest671) end | |
3263 | | (587,(_,(MlyValue.sentence sentence,_,sentence1right))::(_,( | |
3264 | MlyValue.sentences sentences,sentences1left,_))::rest671) => let val | |
3265 | result=MlyValue.sentences((Cobol.SENTENCES(sentences,sentence))) | |
3266 | in (hojfelds_NT 430,(result,sentences1left,sentence1right),rest671) | |
3267 | end | |
3268 | | (588,rest671) => let val result=MlyValue.sentences(( | |
3269 | Cobol.NO_SENTENCES)) | |
3270 | in (hojfelds_NT 430,(result,defaultPos,defaultPos),rest671) end | |
3271 | | (589,(_,(_,_,PERIOD1right))::(_,(MlyValue.statements statements, | |
3272 | statements1left,_))::rest671) => let val result=MlyValue.sentence(( | |
3273 | Cobol.SENTENCE(statements))) | |
3274 | in (hojfelds_NT 429,(result,statements1left,PERIOD1right),rest671) end | |
3275 | | (590,(_,(MlyValue.statement statement,_,statement1right))::(_,( | |
3276 | MlyValue.statements statements,statements1left,_))::rest671) => let | |
3277 | val result=MlyValue.statements(( | |
3278 | Cobol.SEVERAL_STATEMENTS(statements,statement))) | |
3279 | in (hojfelds_NT 459,(result,statements1left,statement1right),rest671) | |
3280 | end | |
3281 | | (591,(_,(MlyValue.statement statement,statement1left,statement1right | |
3282 | ))::rest671) => let val result=MlyValue.statements(( | |
3283 | Cobol.ONE_STATEMENT(statement))) | |
3284 | in (hojfelds_NT 459,(result,statement1left,statement1right),rest671) | |
3285 | end | |
3286 | | (592,(_,(MlyValue.statements statements,statements1left, | |
3287 | statements1right))::rest671) => let val result= | |
3288 | MlyValue.imperative_statement((statements)) | |
3289 | in (hojfelds_NT 241,(result,statements1left,statements1right),rest671) | |
3290 | end | |
3291 | | (593,(_,(MlyValue.INTEGER INTEGER,INTEGERleft as INTEGER1left, | |
3292 | INTEGERright as INTEGER1right))::rest671) => let val result= | |
3293 | MlyValue.arithmetic_expression(( | |
3294 | Cobol.ARITHMETIC_EXPRESSION_IS_INTEGER(INTEGER,INTEGERleft,INTEGERright) | |
3295 | )) | |
3296 | in (hojfelds_NT 476,(result,INTEGER1left,INTEGER1right),rest671) end | |
3297 | | (594,(_,(MlyValue.DECIMALNUMBER DECIMALNUMBER,DECIMALNUMBERleft as | |
3298 | DECIMALNUMBER1left,DECIMALNUMBERright as DECIMALNUMBER1right)):: | |
3299 | rest671) => let val result=MlyValue.arithmetic_expression(( | |
3300 | Cobol.ARITHMETIC_EXPRESSION_IS_DECIMALNUMBER | |
3301 | (DECIMALNUMBER,DECIMALNUMBERleft,DECIMALNUMBERright) | |
3302 | )) | |
3303 | in (hojfelds_NT 476,(result,DECIMALNUMBER1left,DECIMALNUMBER1right), | |
3304 | rest671) end | |
3305 | | (595,(_,(MlyValue.NONNUMERICLITERAL NONNUMERICLITERAL, | |
3306 | NONNUMERICLITERALleft as NONNUMERICLITERAL1left,NONNUMERICLITERALright | |
3307 | as NONNUMERICLITERAL1right))::rest671) => let val result= | |
3308 | MlyValue.arithmetic_expression(( | |
3309 | Cobol.ARITHMETIC_EXPRESSION_IS_NONNUMERICLITERAL(NONNUMERICLITERAL, | |
3310 | NONNUMERICLITERALleft, | |
3311 | NONNUMERICLITERALright) | |
3312 | )) | |
3313 | in (hojfelds_NT 476,(result,NONNUMERICLITERAL1left, | |
3314 | NONNUMERICLITERAL1right),rest671) end | |
3315 | | (596,(_,(MlyValue.BOOLEANLITERAL BOOLEANLITERAL,BOOLEANLITERALleft | |
3316 | as BOOLEANLITERAL1left,BOOLEANLITERALright as BOOLEANLITERAL1right)) | |
3317 | ::rest671) => let val result=MlyValue.arithmetic_expression(( | |
3318 | Cobol.ARITHMETIC_EXPRESSION_IS_BOOLEANLITERAL | |
3319 | (BOOLEANLITERAL,BOOLEANLITERALleft,BOOLEANLITERALright) | |
3320 | )) | |
3321 | in (hojfelds_NT 476,(result,BOOLEANLITERAL1left,BOOLEANLITERAL1right), | |
3322 | rest671) end | |
3323 | | (597,(_,(MlyValue.figurative_constant figurative_constant, | |
3324 | figurative_constantleft as figurative_constant1left, | |
3325 | figurative_constantright as figurative_constant1right))::rest671) => | |
3326 | let val result=MlyValue.arithmetic_expression(( | |
3327 | Cobol.ARITHMETIC_EXPRESSION_IS_FIGURATIVE_CONSTANT | |
3328 | (figurative_constant,figurative_constantleft,figurative_constantright) | |
3329 | )) | |
3330 | in (hojfelds_NT 476,(result,figurative_constant1left, | |
3331 | figurative_constant1right),rest671) end | |
3332 | | (598,(_,(MlyValue.identifier identifier,identifier1left, | |
3333 | identifier1right))::rest671) => let val result= | |
3334 | MlyValue.arithmetic_expression(( | |
3335 | Cobol.ARITHMETIC_EXPRESSION_IS_IDENTIFIER(identifier))) | |
3336 | in (hojfelds_NT 476,(result,identifier1left,identifier1right),rest671) | |
3337 | end | |
3338 | | (599,(_,(MlyValue.arithmetic_expression arithmetic_expression,_, | |
3339 | arithmetic_expression1right))::(_,(_,PLUSSYMBOL1left,_))::rest671) => | |
3340 | let val result=MlyValue.arithmetic_expression(( | |
3341 | Cobol.ARITHMETIC_EXPRESSION_IS_PLUS_SIGN(arithmetic_expression))) | |
3342 | in (hojfelds_NT 476,(result,PLUSSYMBOL1left, | |
3343 | arithmetic_expression1right),rest671) end | |
3344 | | (600,(_,(MlyValue.arithmetic_expression arithmetic_expression,_, | |
3345 | arithmetic_expression1right))::(_,(_,MINUSSYMBOL1left,_))::rest671) | |
3346 | => let val result=MlyValue.arithmetic_expression(( | |
3347 | Cobol.ARITHMETIC_EXPRESSION_IS_MINUS_SIGN(arithmetic_expression))) | |
3348 | in (hojfelds_NT 476,(result,MINUSSYMBOL1left, | |
3349 | arithmetic_expression1right),rest671) end | |
3350 | | (601,(_,(MlyValue.arithmetic_expression arithmetic_expression2,_, | |
3351 | arithmetic_expression2right))::_::(_,(MlyValue.arithmetic_expression | |
3352 | arithmetic_expression1,arithmetic_expression1left,_))::rest671) => | |
3353 | let val result=MlyValue.arithmetic_expression(( | |
3354 | Cobol.ARITHMETIC_EXPRESSION_IS_EXPONENTIATION | |
3355 | (arithmetic_expression1,arithmetic_expression2) | |
3356 | )) | |
3357 | in (hojfelds_NT 476,(result,arithmetic_expression1left, | |
3358 | arithmetic_expression2right),rest671) end | |
3359 | | (602,(_,(MlyValue.arithmetic_expression arithmetic_expression2,_, | |
3360 | arithmetic_expression2right))::_::(_,(MlyValue.arithmetic_expression | |
3361 | arithmetic_expression1,arithmetic_expression1left,_))::rest671) => | |
3362 | let val result=MlyValue.arithmetic_expression(( | |
3363 | Cobol.ARITHMETIC_EXPRESSION_IS_MULTIPLY | |
3364 | (arithmetic_expression1,arithmetic_expression2) | |
3365 | )) | |
3366 | in (hojfelds_NT 476,(result,arithmetic_expression1left, | |
3367 | arithmetic_expression2right),rest671) end | |
3368 | | (603,(_,(MlyValue.arithmetic_expression arithmetic_expression2,_, | |
3369 | arithmetic_expression2right))::_::(_,(MlyValue.arithmetic_expression | |
3370 | arithmetic_expression1,arithmetic_expression1left,_))::rest671) => | |
3371 | let val result=MlyValue.arithmetic_expression(( | |
3372 | Cobol.ARITHMETIC_EXPRESSION_IS_DIVIDE | |
3373 | (arithmetic_expression1,arithmetic_expression2) | |
3374 | )) | |
3375 | in (hojfelds_NT 476,(result,arithmetic_expression1left, | |
3376 | arithmetic_expression2right),rest671) end | |
3377 | | (604,(_,(MlyValue.arithmetic_expression arithmetic_expression2,_, | |
3378 | arithmetic_expression2right))::_::(_,(MlyValue.arithmetic_expression | |
3379 | arithmetic_expression1,arithmetic_expression1left,_))::rest671) => | |
3380 | let val result=MlyValue.arithmetic_expression(( | |
3381 | Cobol.ARITHMETIC_EXPRESSION_IS_ADD | |
3382 | (arithmetic_expression1,arithmetic_expression2) | |
3383 | )) | |
3384 | in (hojfelds_NT 476,(result,arithmetic_expression1left, | |
3385 | arithmetic_expression2right),rest671) end | |
3386 | | (605,(_,(MlyValue.arithmetic_expression arithmetic_expression2,_, | |
3387 | arithmetic_expression2right))::_::(_,(MlyValue.arithmetic_expression | |
3388 | arithmetic_expression1,arithmetic_expression1left,_))::rest671) => | |
3389 | let val result=MlyValue.arithmetic_expression(( | |
3390 | Cobol.ARITHMETIC_EXPRESSION_IS_SUBTRACT | |
3391 | (arithmetic_expression1,arithmetic_expression2) | |
3392 | )) | |
3393 | in (hojfelds_NT 476,(result,arithmetic_expression1left, | |
3394 | arithmetic_expression2right),rest671) end | |
3395 | | (606,(_,(_,_,RPAR1right))::(_,(MlyValue.arithmetic_expression | |
3396 | arithmetic_expression,_,_))::(_,(_,LPAR1left,_))::rest671) => let val | |
3397 | result=MlyValue.arithmetic_expression((arithmetic_expression)) | |
3398 | in (hojfelds_NT 476,(result,LPAR1left,RPAR1right),rest671) end | |
3399 | | (607,(_,(MlyValue.expression expression,expression1left, | |
3400 | expression1right))::rest671) => raise Hojfeld "607" | |
3401 | (* | |
3402 | let val result= | |
3403 | MlyValue.conditional_expression((convertCE(expression))) | |
3404 | in (hojfelds_NT 477,(result,expression1left,expression1right),rest671) | |
3405 | end | |
3406 | *) | |
3407 | | (608,(_,(MlyValue.arithmetic_expression arithmetic_expression, | |
3408 | arithmetic_expressionleft as arithmetic_expression1left, | |
3409 | arithmetic_expressionright as arithmetic_expression1right))::rest671) | |
3410 | => let val result=MlyValue.expression(( | |
3411 | CE_AE(arithmetic_expression, | |
3412 | arithmetic_expressionleft, | |
3413 | arithmetic_expressionright) | |
3414 | )) | |
3415 | in (hojfelds_NT 42,(result,arithmetic_expression1left, | |
3416 | arithmetic_expression1right),rest671) end | |
3417 | | (609,(_,(MlyValue.arithmetic_expression arithmetic_expression,_, | |
3418 | arithmetic_expressionright as arithmetic_expression1right))::(_,( | |
3419 | MlyValue.relational_operator relational_operator, | |
3420 | relational_operatorleft as relational_operator1left,_))::rest671) => | |
3421 | let val result=MlyValue.expression(( | |
3422 | CE_SINGLE_REL(relational_operator, | |
3423 | arithmetic_expression, | |
3424 | relational_operatorleft, | |
3425 | arithmetic_expressionright) | |
3426 | )) | |
3427 | in (hojfelds_NT 42,(result,relational_operator1left, | |
3428 | arithmetic_expression1right),rest671) end | |
3429 | | (610,(_,(MlyValue.arithmetic_expression arithmetic_expression2,_, | |
3430 | arithmetic_expression2right))::(_,(MlyValue.relational_operator | |
3431 | relational_operator,_,_))::(_,(MlyValue.is_not is_not,_,_))::(_,( | |
3432 | MlyValue.arithmetic_expression arithmetic_expression1, | |
3433 | arithmetic_expression1left,_))::rest671) => let val result= | |
3434 | MlyValue.expression(( | |
3435 | CE_REL(arithmetic_expression1, | |
3436 | is_not, | |
3437 | relational_operator, | |
3438 | arithmetic_expression2, | |
3439 | arithmetic_expression1left, | |
3440 | arithmetic_expression2right) | |
3441 | )) | |
3442 | in (hojfelds_NT 42,(result,arithmetic_expression1left, | |
3443 | arithmetic_expression2right),rest671) end | |
3444 | | (611,(_,(MlyValue.data_class data_class,_,data_class1right))::(_,( | |
3445 | MlyValue.is_not is_not,_,_))::(_,(MlyValue.arithmetic_expression | |
3446 | arithmetic_expression,arithmetic_expression1left,_))::rest671) => let | |
3447 | val result=MlyValue.expression(( | |
3448 | CE_DC(arithmetic_expression,is_not,data_class))) | |
3449 | in (hojfelds_NT 42,(result,arithmetic_expression1left,data_class1right | |
3450 | ),rest671) end | |
3451 | | (612,(_,(MlyValue.sign_specification sign_specification,_, | |
3452 | sign_specification1right))::(_,(MlyValue.is_not is_not,_,_))::(_,( | |
3453 | MlyValue.arithmetic_expression arithmetic_expression, | |
3454 | arithmetic_expression1left,_))::rest671) => let val result= | |
3455 | MlyValue.expression(( | |
3456 | CE_SIGN(arithmetic_expression,is_not,sign_specification))) | |
3457 | in (hojfelds_NT 42,(result,arithmetic_expression1left, | |
3458 | sign_specification1right),rest671) end | |
3459 | | (613,(_,(_,TRUEleft as TRUE1left,TRUEright as TRUE1right))::rest671) | |
3460 | => let val result=MlyValue.expression((CE_TRUE(TRUEleft,TRUEright))) | |
3461 | in (hojfelds_NT 42,(result,TRUE1left,TRUE1right),rest671) end | |
3462 | | (614,(_,(_,FALSEleft as FALSE1left,FALSEright as FALSE1right)):: | |
3463 | rest671) => let val result=MlyValue.expression(( | |
3464 | CE_FALSE(FALSEleft,FALSEright))) | |
3465 | in (hojfelds_NT 42,(result,FALSE1left,FALSE1right),rest671) end | |
3466 | | (615,(_,(_,environment_name_2left as environment_name_21left, | |
3467 | environment_name_2right as environment_name_21right))::rest671) => | |
3468 | let val result=MlyValue.expression(( | |
3469 | CE_SWITCH(environment_name_2left,environment_name_2right))) | |
3470 | in (hojfelds_NT 42,(result,environment_name_21left, | |
3471 | environment_name_21right),rest671) end | |
3472 | | (616,(_,(MlyValue.expression expression,_,expression1right))::(_,(_, | |
3473 | NOT1left,_))::rest671) => let val result=MlyValue.expression(( | |
3474 | CE_NOT(expression))) | |
3475 | in (hojfelds_NT 42,(result,NOT1left,expression1right),rest671) end | |
3476 | | (617,(_,(MlyValue.expression expression2,_,expression2right))::_::(_ | |
3477 | ,(MlyValue.expression expression1,expression1left,_))::rest671) => | |
3478 | let val result=MlyValue.expression((CE_AND(expression1,expression2))) | |
3479 | in (hojfelds_NT 42,(result,expression1left,expression2right),rest671) | |
3480 | end | |
3481 | | (618,(_,(MlyValue.expression expression2,_,expression2right))::_::(_ | |
3482 | ,(MlyValue.expression expression1,expression1left,_))::rest671) => | |
3483 | let val result=MlyValue.expression((CE_OR(expression1,expression2))) | |
3484 | in (hojfelds_NT 42,(result,expression1left,expression2right),rest671) | |
3485 | end | |
3486 | | (619,(_,(_,_,RPAR1right))::(_,(MlyValue.expression expression,_,_)) | |
3487 | ::(_,(_,LPAR1left,_))::rest671) => let val result=MlyValue.expression( | |
3488 | (expression)) | |
3489 | in (hojfelds_NT 42,(result,LPAR1left,RPAR1right),rest671) end | |
3490 | | (620,(_,(_,NUMERIC1left,NUMERIC1right))::rest671) => let val result= | |
3491 | MlyValue.data_class((Cobol.DATA_CLASS_IS_NUMERIC)) | |
3492 | in (hojfelds_NT 122,(result,NUMERIC1left,NUMERIC1right),rest671) end | |
3493 | | (621,(_,(_,ALPHABETIC1left,ALPHABETIC1right))::rest671) => let val | |
3494 | result=MlyValue.data_class((Cobol.DATA_CLASS_IS_ALPHABETIC)) | |
3495 | in (hojfelds_NT 122,(result,ALPHABETIC1left,ALPHABETIC1right),rest671) | |
3496 | end | |
3497 | | (622,(_,(_,_,than1right))::(_,(_,GREATER1left,_))::rest671) => let | |
3498 | val result=MlyValue.relational_operator((Cobol.GREATER)) | |
3499 | in (hojfelds_NT 121,(result,GREATER1left,than1right),rest671) end | |
3500 | | (623,(_,(_,GREATERSYMBOL1left,GREATERSYMBOL1right))::rest671) => | |
3501 | let val result=MlyValue.relational_operator((Cobol.GREATER)) | |
3502 | in (hojfelds_NT 121,(result,GREATERSYMBOL1left,GREATERSYMBOL1right), | |
3503 | rest671) end | |
3504 | | (624,(_,(_,_,than1right))::(_,(_,LESS1left,_))::rest671) => let val | |
3505 | result=MlyValue.relational_operator((Cobol.LESS)) | |
3506 | in (hojfelds_NT 121,(result,LESS1left,than1right),rest671) end | |
3507 | | (625,(_,(_,LESSSYMBOL1left,LESSSYMBOL1right))::rest671) => let val | |
3508 | result=MlyValue.relational_operator((Cobol.LESS)) | |
3509 | in (hojfelds_NT 121,(result,LESSSYMBOL1left,LESSSYMBOL1right),rest671) | |
3510 | end | |
3511 | | (626,(_,(_,_,to1right))::(_,(_,EQUAL1left,_))::rest671) => let val | |
3512 | result=MlyValue.relational_operator((Cobol.EQUAL)) | |
3513 | in (hojfelds_NT 121,(result,EQUAL1left,to1right),rest671) end | |
3514 | | (627,(_,(_,EQSYMBOL1left,EQSYMBOL1right))::rest671) => let val | |
3515 | result=MlyValue.relational_operator((Cobol.EQUAL)) | |
3516 | in (hojfelds_NT 121,(result,EQSYMBOL1left,EQSYMBOL1right),rest671) end | |
3517 | | (628,(_,(_,POSITIVE1left,POSITIVE1right))::rest671) => let val | |
3518 | result=MlyValue.sign_specification(( | |
3519 | Cobol.SIGN_SPECIFICATION_IS_POSITIVE)) | |
3520 | in (hojfelds_NT 123,(result,POSITIVE1left,POSITIVE1right),rest671) end | |
3521 | | (629,(_,(_,NEGATIVE1left,NEGATIVE1right))::rest671) => let val | |
3522 | result=MlyValue.sign_specification(( | |
3523 | Cobol.SIGN_SPECIFICATION_IS_NEGATIVE)) | |
3524 | in (hojfelds_NT 123,(result,NEGATIVE1left,NEGATIVE1right),rest671) end | |
3525 | | (630,(_,(_,ZERO1left,ZERO1right))::rest671) => let val result= | |
3526 | MlyValue.sign_specification((Cobol.SIGN_SPECIFICATION_IS_ZERO)) | |
3527 | in (hojfelds_NT 123,(result,ZERO1left,ZERO1right),rest671) end | |
3528 | | (631,(_,(MlyValue.accept_statement accept_statement, | |
3529 | accept_statement1left,accept_statement1right))::rest671) => let val | |
3530 | result=MlyValue.statement((Cobol.ACCEPT_STATEMENT(accept_statement))) | |
3531 | in (hojfelds_NT 458,(result,accept_statement1left, | |
3532 | accept_statement1right),rest671) end | |
3533 | | (632,(_,(MlyValue.add_statement add_statement,add_statement1left, | |
3534 | add_statement1right))::rest671) => let val result=MlyValue.statement(( | |
3535 | Cobol.ADD_OR_SUBTRACT_STATEMENT(add_statement))) | |
3536 | in (hojfelds_NT 458,(result,add_statement1left,add_statement1right), | |
3537 | rest671) end | |
3538 | | (633,(_,(_,alter_statement1left,alter_statement1right))::rest671) | |
3539 | => let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3540 | in (hojfelds_NT 458,(result,alter_statement1left,alter_statement1right | |
3541 | ),rest671) end | |
3542 | | (634,(_,(_,call_statement1left,call_statement1right))::rest671) => | |
3543 | let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3544 | in (hojfelds_NT 458,(result,call_statement1left,call_statement1right), | |
3545 | rest671) end | |
3546 | | (635,(_,(_,cancel_statement1left,cancel_statement1right))::rest671) | |
3547 | => let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3548 | in (hojfelds_NT 458,(result,cancel_statement1left, | |
3549 | cancel_statement1right),rest671) end | |
3550 | | (636,(_,(_,close_statement1left,close_statement1right))::rest671) | |
3551 | => let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3552 | in (hojfelds_NT 458,(result,close_statement1left,close_statement1right | |
3553 | ),rest671) end | |
3554 | | (637,(_,(MlyValue.compute_statement compute_statement, | |
3555 | compute_statement1left,compute_statement1right))::rest671) => let val | |
3556 | result=MlyValue.statement((Cobol.COMPUTE_STATEMENT(compute_statement)) | |
3557 | ) | |
3558 | in (hojfelds_NT 458,(result,compute_statement1left, | |
3559 | compute_statement1right),rest671) end | |
3560 | | (638,(_,(_,delete_statement1left,delete_statement1right))::rest671) | |
3561 | => let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3562 | in (hojfelds_NT 458,(result,delete_statement1left, | |
3563 | delete_statement1right),rest671) end | |
3564 | | (639,(_,(_,display_statement1left,display_statement1right))::rest671 | |
3565 | ) => let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3566 | in (hojfelds_NT 458,(result,display_statement1left, | |
3567 | display_statement1right),rest671) end | |
3568 | | (640,(_,(MlyValue.divide_statement divide_statement, | |
3569 | divide_statement1left,divide_statement1right))::rest671) => let val | |
3570 | result=MlyValue.statement((Cobol.DIVIDE_STATEMENT(divide_statement))) | |
3571 | in (hojfelds_NT 458,(result,divide_statement1left, | |
3572 | divide_statement1right),rest671) end | |
3573 | | (641,(_,(_,enter_statement1left,enter_statement1right))::rest671) | |
3574 | => let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3575 | in (hojfelds_NT 458,(result,enter_statement1left,enter_statement1right | |
3576 | ),rest671) end | |
3577 | | (642,(_,(_,exit_statement1left,exit_statement1right))::rest671) => | |
3578 | let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3579 | in (hojfelds_NT 458,(result,exit_statement1left,exit_statement1right), | |
3580 | rest671) end | |
3581 | | (643,(_,(_,exit_program_statement1left,exit_program_statement1right) | |
3582 | )::rest671) => let val result=MlyValue.statement(( | |
3583 | Cobol.OTHER_STATEMENT)) | |
3584 | in (hojfelds_NT 458,(result,exit_program_statement1left, | |
3585 | exit_program_statement1right),rest671) end | |
3586 | | (644,(_,(_,goback_statement1left,goback_statement1right))::rest671) | |
3587 | => let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3588 | in (hojfelds_NT 458,(result,goback_statement1left, | |
3589 | goback_statement1right),rest671) end | |
3590 | | (645,(_,(_,go_to_statement1left,go_to_statement1right))::rest671) | |
3591 | => let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3592 | in (hojfelds_NT 458,(result,go_to_statement1left,go_to_statement1right | |
3593 | ),rest671) end | |
3594 | | (646,(_,(MlyValue.if_statement if_statement,if_statement1left, | |
3595 | if_statement1right))::rest671) => let val result=MlyValue.statement(( | |
3596 | Cobol.IF_STATEMENT(if_statement))) | |
3597 | in (hojfelds_NT 458,(result,if_statement1left,if_statement1right), | |
3598 | rest671) end | |
3599 | | (647,(_,(_,initialize_statement1left,initialize_statement1right)):: | |
3600 | rest671) => let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3601 | in (hojfelds_NT 458,(result,initialize_statement1left, | |
3602 | initialize_statement1right),rest671) end | |
3603 | | (648,(_,(_,inspect_statement1left,inspect_statement1right))::rest671 | |
3604 | ) => let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3605 | in (hojfelds_NT 458,(result,inspect_statement1left, | |
3606 | inspect_statement1right),rest671) end | |
3607 | | (649,(_,(_,merge_statement1left,merge_statement1right))::rest671) | |
3608 | => let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3609 | in (hojfelds_NT 458,(result,merge_statement1left,merge_statement1right | |
3610 | ),rest671) end | |
3611 | | (650,(_,(MlyValue.move_statement move_statement,move_statement1left, | |
3612 | move_statement1right))::rest671) => let val result=MlyValue.statement( | |
3613 | (Cobol.MOVE_STATEMENT(move_statement))) | |
3614 | in (hojfelds_NT 458,(result,move_statement1left,move_statement1right), | |
3615 | rest671) end | |
3616 | | (651,(_,(MlyValue.multiply_statement multiply_statement, | |
3617 | multiply_statement1left,multiply_statement1right))::rest671) => let | |
3618 | val result=MlyValue.statement(( | |
3619 | Cobol.MULTIPLY_STATEMENT(multiply_statement))) | |
3620 | in (hojfelds_NT 458,(result,multiply_statement1left, | |
3621 | multiply_statement1right),rest671) end | |
3622 | | (652,(_,(_,open_statement1left,open_statement1right))::rest671) => | |
3623 | let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3624 | in (hojfelds_NT 458,(result,open_statement1left,open_statement1right), | |
3625 | rest671) end | |
3626 | | (653,(_,(_,perform_statement1left,perform_statement1right))::rest671 | |
3627 | ) => let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3628 | in (hojfelds_NT 458,(result,perform_statement1left, | |
3629 | perform_statement1right),rest671) end | |
3630 | | (654,(_,(_,read_statement1left,read_statement1right))::rest671) => | |
3631 | let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3632 | in (hojfelds_NT 458,(result,read_statement1left,read_statement1right), | |
3633 | rest671) end | |
3634 | | (655,(_,(_,release_statement1left,release_statement1right))::rest671 | |
3635 | ) => let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3636 | in (hojfelds_NT 458,(result,release_statement1left, | |
3637 | release_statement1right),rest671) end | |
3638 | | (656,(_,(_,return_statement1left,return_statement1right))::rest671) | |
3639 | => let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3640 | in (hojfelds_NT 458,(result,return_statement1left, | |
3641 | return_statement1right),rest671) end | |
3642 | | (657,(_,(_,rewrite_statement1left,rewrite_statement1right))::rest671 | |
3643 | ) => let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3644 | in (hojfelds_NT 458,(result,rewrite_statement1left, | |
3645 | rewrite_statement1right),rest671) end | |
3646 | | (658,(_,(_,search_statement1left,search_statement1right))::rest671) | |
3647 | => let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3648 | in (hojfelds_NT 458,(result,search_statement1left, | |
3649 | search_statement1right),rest671) end | |
3650 | | (659,(_,(_,set_statement1left,set_statement1right))::rest671) => | |
3651 | let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3652 | in (hojfelds_NT 458,(result,set_statement1left,set_statement1right), | |
3653 | rest671) end | |
3654 | | (660,(_,(_,sort_statement1left,sort_statement1right))::rest671) => | |
3655 | let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3656 | in (hojfelds_NT 458,(result,sort_statement1left,sort_statement1right), | |
3657 | rest671) end | |
3658 | | (661,(_,(_,start_statement1left,start_statement1right))::rest671) | |
3659 | => let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3660 | in (hojfelds_NT 458,(result,start_statement1left,start_statement1right | |
3661 | ),rest671) end | |
3662 | | (662,(_,(_,stop_statement1left,stop_statement1right))::rest671) => | |
3663 | let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3664 | in (hojfelds_NT 458,(result,stop_statement1left,stop_statement1right), | |
3665 | rest671) end | |
3666 | | (663,(_,(_,string_statement1left,string_statement1right))::rest671) | |
3667 | => let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3668 | in (hojfelds_NT 458,(result,string_statement1left, | |
3669 | string_statement1right),rest671) end | |
3670 | | (664,(_,(MlyValue.subtract_statement subtract_statement, | |
3671 | subtract_statement1left,subtract_statement1right))::rest671) => let | |
3672 | val result=MlyValue.statement(( | |
3673 | Cobol.ADD_OR_SUBTRACT_STATEMENT(subtract_statement))) | |
3674 | in (hojfelds_NT 458,(result,subtract_statement1left, | |
3675 | subtract_statement1right),rest671) end | |
3676 | | (665,(_,(_,unstring_statement1left,unstring_statement1right)):: | |
3677 | rest671) => let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3678 | in (hojfelds_NT 458,(result,unstring_statement1left, | |
3679 | unstring_statement1right),rest671) end | |
3680 | | (666,(_,(_,use_statement1left,use_statement1right))::rest671) => | |
3681 | let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3682 | in (hojfelds_NT 458,(result,use_statement1left,use_statement1right), | |
3683 | rest671) end | |
3684 | | (667,(_,(_,write_statement1left,write_statement1right))::rest671) | |
3685 | => let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3686 | in (hojfelds_NT 458,(result,write_statement1left,write_statement1right | |
3687 | ),rest671) end | |
3688 | | (668,(_,(_,copy_statement1left,copy_statement1right))::rest671) => | |
3689 | let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3690 | in (hojfelds_NT 458,(result,copy_statement1left,copy_statement1right), | |
3691 | rest671) end | |
3692 | | (669,(_,(_,eject_statement1left,eject_statement1right))::rest671) | |
3693 | => let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3694 | in (hojfelds_NT 458,(result,eject_statement1left,eject_statement1right | |
3695 | ),rest671) end | |
3696 | | (670,(_,(_,exhibit_statement1left,exhibit_statement1right))::rest671 | |
3697 | ) => let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3698 | in (hojfelds_NT 458,(result,exhibit_statement1left, | |
3699 | exhibit_statement1right),rest671) end | |
3700 | | (671,(_,(_,trace_statement1left,trace_statement1right))::rest671) | |
3701 | => let val result=MlyValue.statement((Cobol.OTHER_STATEMENT)) | |
3702 | in (hojfelds_NT 458,(result,trace_statement1left,trace_statement1right | |
3703 | ),rest671) end | |
3704 | | (672,(_,(MlyValue.annotation_statement annotation_statement, | |
3705 | annotation_statement1left,annotation_statement1right))::rest671) => | |
3706 | let val result=MlyValue.statement(( | |
3707 | Cobol.ANNOTATION_STATEMENT(annotation_statement))) | |
3708 | in (hojfelds_NT 458,(result,annotation_statement1left, | |
3709 | annotation_statement1right),rest671) end | |
3710 | | (673,(_,(MlyValue.identifier_or_literal identifier_or_literal, | |
3711 | identifier_or_literal1left,identifier_or_literal1right))::rest671) => | |
3712 | let val result=MlyValue.identifier_or_literal_or_ddt(( | |
3713 | Cobol.IDENTIFIER_OR_LITERAL_OR_DDT_IS_IDENTIFIER_OR_LITERAL(identifier_or_literal) | |
3714 | )) | |
3715 | in (hojfelds_NT 544,(result,identifier_or_literal1left, | |
3716 | identifier_or_literal1right),rest671) end | |
3717 | | (674,(_,(MlyValue.date_day_time date_day_time,date_day_time1left, | |
3718 | date_day_time1right))::rest671) => let val result= | |
3719 | MlyValue.identifier_or_literal_or_ddt(( | |
3720 | Cobol.IDENTIFIER_OR_LITERAL_OR_DDT_IS_DDT(date_day_time))) | |
3721 | in (hojfelds_NT 544,(result,date_day_time1left,date_day_time1right), | |
3722 | rest671) end | |
3723 | | (675,(_,(MlyValue.identifier identifier,_,identifierright as | |
3724 | identifier1right))::_::(_,(MlyValue.ts2k ts2k,_,_))::_::(_,( | |
3725 | MlyValue.identifier_or_literal_or_ddt identifier_or_literal_or_ddt,_,_ | |
3726 | ))::_::(_,(_,TS2Kleft as TS2K1left,_))::rest671) => let val result= | |
3727 | MlyValue.annotation_statement(( | |
3728 | Cobol.TS2K_COERCE(identifier_or_literal_or_ddt, ts2k, TS2Kleft,identifierright,identifier) | |
3729 | )) | |
3730 | in (hojfelds_NT 542,(result,TS2K1left,identifier1right),rest671) end | |
3731 | | (676,(_,(MlyValue.ts2k ts2k,_,ts2kright as ts2k1right))::_::(_,( | |
3732 | MlyValue.identifier_or_literal_or_ddt identifier_or_literal_or_ddt,_,_ | |
3733 | ))::_::(_,(_,TS2Kleft as TS2K1left,_))::rest671) => let val result= | |
3734 | MlyValue.annotation_statement(( | |
3735 | Cobol.TS2K_ASSUME(identifier_or_literal_or_ddt,ts2k,TS2Kleft,ts2kright) | |
3736 | )) | |
3737 | in (hojfelds_NT 542,(result,TS2K1left,ts2k1right),rest671) end | |
3738 | | (677,(_,(MlyValue.from_environment from_environment,_, | |
3739 | from_environmentright as from_environment1right))::(_,( | |
3740 | MlyValue.identifier identifier,_,_))::(_,(_,ACCEPTleft as ACCEPT1left, | |
3741 | _))::rest671) => let val result=MlyValue.accept_statement(( | |
3742 | Cobol.ACCEPT_ENVIRONMENT(identifier, from_environment,ACCEPTleft,from_environmentright) | |
3743 | )) | |
3744 | in (hojfelds_NT 7,(result,ACCEPT1left,from_environment1right),rest671) | |
3745 | end | |
3746 | | (678,(_,(MlyValue.date_day_time date_day_time,_,date_day_timeright | |
3747 | as date_day_time1right))::_::(_,(MlyValue.identifier identifier,_,_)) | |
3748 | ::(_,(_,ACCEPTleft as ACCEPT1left,_))::rest671) => let val result= | |
3749 | MlyValue.accept_statement(( | |
3750 | Cobol.ACCEPT_DATE_DAY_TIME(identifier, date_day_time,ACCEPTleft,date_day_timeright) | |
3751 | )) | |
3752 | in (hojfelds_NT 7,(result,ACCEPT1left,date_day_time1right),rest671) | |
3753 | end | |
3754 | | (679,(_,(MlyValue.mnemonic_name mnemonic_name,_,mnemonic_nameright | |
3755 | as mnemonic_name1right))::(_,(_,FROMleft as FROM1left,_))::rest671) | |
3756 | => let val result=MlyValue.from_environment(( | |
3757 | Cobol.FROM(mnemonic_name,FROMleft,mnemonic_nameright))) | |
3758 | in (hojfelds_NT 215,(result,FROM1left,mnemonic_name1right),rest671) | |
3759 | end | |
3760 | | (680,rest671) => let val result=MlyValue.from_environment(( | |
3761 | Cobol.NO_FROM)) | |
3762 | in (hojfelds_NT 215,(result,defaultPos,defaultPos),rest671) end | |
3763 | | (681,(_,(_,DATEleft as DATE1left,DATEright as DATE1right))::rest671) | |
3764 | => let val result=MlyValue.date_day_time(( | |
3765 | Cobol.DATE(DATEleft,DATEright))) | |
3766 | in (hojfelds_NT 112,(result,DATE1left,DATE1right),rest671) end | |
3767 | | (682,(_,(_,DAYleft as DAY1left,DAYright as DAY1right))::rest671) => | |
3768 | let val result=MlyValue.date_day_time((Cobol.DAY(DAYleft,DAYright))) | |
3769 | in (hojfelds_NT 112,(result,DAY1left,DAY1right),rest671) end | |
3770 | | (683,(_,(_,TIMEleft as TIME1left,TIMEright as TIME1right))::rest671) | |
3771 | => let val result=MlyValue.date_day_time(( | |
3772 | Cobol.TIME(TIMEleft,TIMEright))) | |
3773 | in (hojfelds_NT 112,(result,TIME1left,TIME1right),rest671) end | |
3774 | | (684,(_,(_,_,end_addright as end_add1right))::(_,( | |
3775 | MlyValue.size_error_clauses size_error_clauses,_,_))::(_,( | |
3776 | MlyValue.identifier_roundeds identifier_roundeds,_,_))::_::(_,( | |
3777 | MlyValue.identifier_or_literals identifier_or_literals,_,_))::(_,(_, | |
3778 | ADDleft as ADD1left,_))::rest671) => let val result= | |
3779 | MlyValue.add_statement(( | |
3780 | Cobol.ADD_OR_SUBTRACT | |
3781 | (Cobol.ADD,identifier_or_literals,identifier_roundeds, | |
3782 | size_error_clauses, | |
3783 | ADDleft,end_addright) | |
3784 | )) | |
3785 | in (hojfelds_NT 10,(result,ADD1left,end_add1right),rest671) end | |
3786 | | (685,(_,(_,_,end_addright as end_add1right))::(_,( | |
3787 | MlyValue.size_error_clauses size_error_clauses,_,_))::(_,( | |
3788 | MlyValue.identifier_roundeds identifier_roundeds,_,_))::_::(_,( | |
3789 | MlyValue.identifier_or_literal identifier_or_literal,_,_))::(_,( | |
3790 | MlyValue.identifier_or_literals identifier_or_literals,_,_))::(_,(_, | |
3791 | ADDleft as ADD1left,_))::rest671) => let val result= | |
3792 | MlyValue.add_statement(( | |
3793 | Cobol.ADD_OR_SUBTRACT_GIVING | |
3794 | (Cobol.ADD,identifier_or_literals,identifier_or_literal, | |
3795 | identifier_roundeds, | |
3796 | size_error_clauses,ADDleft,end_addright) | |
3797 | )) | |
3798 | in (hojfelds_NT 10,(result,ADD1left,end_add1right),rest671) end | |
3799 | | (686,(_,(_,_,end_addright as end_add1right))::(_,( | |
3800 | MlyValue.size_error_clauses size_error_clauses,_,_))::(_,( | |
3801 | MlyValue.rounded rounded,_,_))::(_,(MlyValue.identifier identifier2,_, | |
3802 | _))::_::(_,(MlyValue.identifier identifier1,_,_))::_::(_,(_,ADDleft | |
3803 | as ADD1left,_))::rest671) => let val result=MlyValue.add_statement(( | |
3804 | Cobol.ADD_OR_SUBTRACT_CORRESPONDING | |
3805 | (Cobol.ADD,identifier1,identifier2,rounded, | |
3806 | size_error_clauses,ADDleft,end_addright) | |
3807 | )) | |
3808 | in (hojfelds_NT 10,(result,ADD1left,end_add1right),rest671) end | |
3809 | | (687,(_,(MlyValue.identifier_rounded identifier_rounded,_, | |
3810 | identifier_rounded1right))::(_,(MlyValue.identifier_roundeds | |
3811 | identifier_roundeds,identifier_roundeds1left,_))::rest671) => let val | |
3812 | result=MlyValue.identifier_roundeds(( | |
3813 | Cobol.SEVERAL_IDENTIFIER_ROUNDEDS(identifier_roundeds, | |
3814 | identifier_rounded) | |
3815 | )) | |
3816 | in (hojfelds_NT 236,(result,identifier_roundeds1left, | |
3817 | identifier_rounded1right),rest671) end | |
3818 | | (688,(_,(MlyValue.identifier_rounded identifier_rounded, | |
3819 | identifier_rounded1left,identifier_rounded1right))::rest671) => let | |
3820 | val result=MlyValue.identifier_roundeds(( | |
3821 | Cobol.ONE_IDENTIFIER_ROUNDED(identifier_rounded))) | |
3822 | in (hojfelds_NT 236,(result,identifier_rounded1left, | |
3823 | identifier_rounded1right),rest671) end | |
3824 | | (689,(_,(MlyValue.rounded rounded,_,rounded1right))::(_,( | |
3825 | MlyValue.identifier identifier,identifier1left,_))::rest671) => let | |
3826 | val result=MlyValue.identifier_rounded(( | |
3827 | Cobol.IDENTIFIER_ROUNDED(identifier,rounded))) | |
3828 | in (hojfelds_NT 235,(result,identifier1left,rounded1right),rest671) | |
3829 | end | |
3830 | | (690,(_,(MlyValue.size_error_clause size_error_clause, | |
3831 | size_error_clause1left,size_error_clause1right))::rest671) => let val | |
3832 | result=MlyValue.size_error_clauses((size_error_clause)) | |
3833 | in (hojfelds_NT 442,(result,size_error_clause1left, | |
3834 | size_error_clause1right),rest671) end | |
3835 | | (691,(_,(MlyValue.imperative_statement imperative_statement,_, | |
3836 | imperative_statement1right))::_::_::(_,(_,on1left,_))::rest671) => | |
3837 | let val result=MlyValue.size_error_clause(( | |
3838 | Cobol.SIZE_ERROR(imperative_statement))) | |
3839 | in (hojfelds_NT 441,(result,on1left,imperative_statement1right), | |
3840 | rest671) end | |
3841 | | (692,rest671) => let val result=MlyValue.size_error_clause(( | |
3842 | Cobol.NO_SIZE_ERROR)) | |
3843 | in (hojfelds_NT 441,(result,defaultPos,defaultPos),rest671) end | |
3844 | | (693,(_,(_,_,alterations1right))::(_,(_,ALTER1left,_))::rest671) => | |
3845 | let val result=MlyValue.ntVOID(()) | |
3846 | in (hojfelds_NT 32,(result,ALTER1left,alterations1right),rest671) end | |
3847 | | (694,(_,(_,_,alteration1right))::(_,(_,alterations1left,_))::rest671 | |
3848 | ) => let val result=MlyValue.ntVOID(()) | |
3849 | in (hojfelds_NT 34,(result,alterations1left,alteration1right),rest671) | |
3850 | end | |
3851 | | (695,(_,(_,alteration1left,alteration1right))::rest671) => let val | |
3852 | result=MlyValue.ntVOID(()) | |
3853 | in (hojfelds_NT 34,(result,alteration1left,alteration1right),rest671) | |
3854 | end | |
3855 | | (696,(_,(_,_,procedure_name2right))::_::_::(_,(_,procedure_name1left | |
3856 | ,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
3857 | in (hojfelds_NT 33,(result,procedure_name1left,procedure_name2right), | |
3858 | rest671) end | |
3859 | | (697,(_,(_,_,end_call1right))::_::_::_::(_,(_,CALL1left,_))::rest671 | |
3860 | ) => let val result=MlyValue.ntVOID(()) | |
3861 | in (hojfelds_NT 55,(result,CALL1left,end_call1right),rest671) end | |
3862 | | (698,(_,(_,_,identifiers1right))::(_,(_,USING1left,_))::rest671) => | |
3863 | let val result=MlyValue.ntVOID(()) | |
3864 | in (hojfelds_NT 513,(result,USING1left,identifiers1right),rest671) end | |
3865 | | (699,rest671) => let val result=MlyValue.ntVOID(()) | |
3866 | in (hojfelds_NT 513,(result,defaultPos,defaultPos),rest671) end | |
3867 | | (700,(_,(_,_,identifier_or_literals1right))::(_,(_,CANCEL1left,_)):: | |
3868 | rest671) => let val result=MlyValue.ntVOID(()) | |
3869 | in (hojfelds_NT 56,(result,CANCEL1left,identifier_or_literals1right), | |
3870 | rest671) end | |
3871 | | (701,(_,(_,_,file_name_specifications1right))::(_,(_,CLOSE1left,_)) | |
3872 | ::rest671) => let val result=MlyValue.ntVOID(()) | |
3873 | in (hojfelds_NT 63,(result,CLOSE1left,file_name_specifications1right), | |
3874 | rest671) end | |
3875 | | (702,(_,(_,_,file_name_specification1right))::(_,(_, | |
3876 | file_name_specifications1left,_))::rest671) => let val result= | |
3877 | MlyValue.ntVOID(()) | |
3878 | in (hojfelds_NT 202,(result,file_name_specifications1left, | |
3879 | file_name_specification1right),rest671) end | |
3880 | | (703,(_,(_,file_name_specification1left, | |
3881 | file_name_specification1right))::rest671) => let val result= | |
3882 | MlyValue.ntVOID(()) | |
3883 | in (hojfelds_NT 202,(result,file_name_specification1left, | |
3884 | file_name_specification1right),rest671) end | |
3885 | | (704,(_,(_,_,closing_specification1right))::(_,(_,file_name1left,_)) | |
3886 | ::rest671) => let val result=MlyValue.ntVOID(()) | |
3887 | in (hojfelds_NT 201,(result,file_name1left,closing_specification1right | |
3888 | ),rest671) end | |
3889 | | (705,(_,(_,_,for_removal1right))::(_,(_,reel_or_unit1left,_)):: | |
3890 | rest671) => let val result=MlyValue.ntVOID(()) | |
3891 | in (hojfelds_NT 64,(result,reel_or_unit1left,for_removal1right), | |
3892 | rest671) end | |
3893 | | (706,(_,(_,_,no_rewind_or_lock1right))::(_,(_,with1left,_))::rest671 | |
3894 | ) => let val result=MlyValue.ntVOID(()) | |
3895 | in (hojfelds_NT 64,(result,with1left,no_rewind_or_lock1right),rest671) | |
3896 | end | |
3897 | | (707,rest671) => let val result=MlyValue.ntVOID(()) | |
3898 | in (hojfelds_NT 64,(result,defaultPos,defaultPos),rest671) end | |
3899 | | (708,(_,(_,REEL1left,REEL1right))::rest671) => let val result= | |
3900 | MlyValue.ntVOID(()) | |
3901 | in (hojfelds_NT 392,(result,REEL1left,REEL1right),rest671) end | |
3902 | | (709,(_,(_,UNIT1left,UNIT1right))::rest671) => let val result= | |
3903 | MlyValue.ntVOID(()) | |
3904 | in (hojfelds_NT 392,(result,UNIT1left,UNIT1right),rest671) end | |
3905 | | (710,(_,(_,_,REWIND1right))::(_,(_,NO1left,_))::rest671) => let val | |
3906 | result=MlyValue.ntVOID(()) | |
3907 | in (hojfelds_NT 320,(result,NO1left,REWIND1right),rest671) end | |
3908 | | (711,(_,(_,LOCK1left,LOCK1right))::rest671) => let val result= | |
3909 | MlyValue.ntVOID(()) | |
3910 | in (hojfelds_NT 320,(result,LOCK1left,LOCK1right),rest671) end | |
3911 | | (712,(_,(_,_,end_computeright as end_compute1right))::(_,( | |
3912 | MlyValue.size_error_clauses size_error_clauses,_,_))::(_,( | |
3913 | MlyValue.arithmetic_expression arithmetic_expression,_,_))::_::(_,( | |
3914 | MlyValue.identifier_roundeds identifier_roundeds,_,_))::(_,(_, | |
3915 | COMPUTEleft as COMPUTE1left,_))::rest671) => let val result= | |
3916 | MlyValue.compute_statement(( | |
3917 | Cobol.COMPUTE(identifier_roundeds, | |
3918 | arithmetic_expression, | |
3919 | size_error_clauses, | |
3920 | COMPUTEleft,end_computeright) | |
3921 | )) | |
3922 | in (hojfelds_NT 72,(result,COMPUTE1left,end_compute1right),rest671) | |
3923 | end | |
3924 | | (713,(_,(_,_,end_delete1right))::_::_::_::(_,(_,DELETE1left,_)):: | |
3925 | rest671) => let val result=MlyValue.ntVOID(()) | |
3926 | in (hojfelds_NT 120,(result,DELETE1left,end_delete1right),rest671) end | |
3927 | | (714,(_,(_,_,not_invalid_key_error_clause1right))::(_,(_, | |
3928 | invalid_key_error_clause1left,_))::rest671) => let val result= | |
3929 | MlyValue.ntVOID(()) | |
3930 | in (hojfelds_NT 272,(result,invalid_key_error_clause1left, | |
3931 | not_invalid_key_error_clause1right),rest671) end | |
3932 | | (715,(_,(_,_,imperative_statement1right))::_::(_,(_,INVALID1left,_)) | |
3933 | ::rest671) => let val result=MlyValue.ntVOID(()) | |
3934 | in (hojfelds_NT 270,(result,INVALID1left,imperative_statement1right), | |
3935 | rest671) end | |
3936 | | (716,rest671) => let val result=MlyValue.ntVOID(()) | |
3937 | in (hojfelds_NT 270,(result,defaultPos,defaultPos),rest671) end | |
3938 | | (717,(_,(_,_,imperative_statement1right))::_::_::(_,(_,NOT1left,_)) | |
3939 | ::rest671) => let val result=MlyValue.ntVOID(()) | |
3940 | in (hojfelds_NT 324,(result,NOT1left,imperative_statement1right), | |
3941 | rest671) end | |
3942 | | (718,rest671) => let val result=MlyValue.ntVOID(()) | |
3943 | in (hojfelds_NT 324,(result,defaultPos,defaultPos),rest671) end | |
3944 | | (719,(_,(_,_,upon_mnemonic_name1right))::_::(_,(_,DISPLAY1left,_)):: | |
3945 | rest671) => let val result=MlyValue.ntVOID(()) | |
3946 | in (hojfelds_NT 126,(result,DISPLAY1left,upon_mnemonic_name1right), | |
3947 | rest671) end | |
3948 | | (720,(_,(_,_,mnemonic_name1right))::(_,(_,UPON1left,_))::rest671) | |
3949 | => let val result=MlyValue.ntVOID(()) | |
3950 | in (hojfelds_NT 506,(result,UPON1left,mnemonic_name1right),rest671) | |
3951 | end | |
3952 | | (721,rest671) => let val result=MlyValue.ntVOID(()) | |
3953 | in (hojfelds_NT 506,(result,defaultPos,defaultPos),rest671) end | |
3954 | | (722,(_,(_,_,end_divideright as end_divide1right))::(_,( | |
3955 | MlyValue.size_error_clauses size_error_clauses,_,_))::(_,( | |
3956 | MlyValue.identifier_roundeds identifier_roundeds,_,_))::_::(_,( | |
3957 | MlyValue.identifier_or_literal identifier_or_literal,_,_))::(_,(_, | |
3958 | DIVIDEleft as DIVIDE1left,_))::rest671) => let val result= | |
3959 | MlyValue.divide_statement(( | |
3960 | Cobol.DIVIDE_INTO(identifier_or_literal,identifier_roundeds, | |
3961 | size_error_clauses,DIVIDEleft,end_divideright) | |
3962 | )) | |
3963 | in (hojfelds_NT 127,(result,DIVIDE1left,end_divide1right),rest671) end | |
3964 | | (723,(_,(_,_,end_divideright as end_divide1right))::(_,( | |
3965 | MlyValue.size_error_clauses size_error_clauses,_,_))::(_,( | |
3966 | MlyValue.identifier_roundeds identifier_roundeds,_,_))::_::(_,( | |
3967 | MlyValue.identifier_or_literal identifier_or_literal2,_,_))::_::(_,( | |
3968 | MlyValue.identifier_or_literal identifier_or_literal1,_,_))::(_,(_, | |
3969 | DIVIDEleft as DIVIDE1left,_))::rest671) => let val result= | |
3970 | MlyValue.divide_statement(( | |
3971 | Cobol.DIVIDE_INTO_GIVING | |
3972 | (identifier_or_literal1,identifier_or_literal2, | |
3973 | identifier_roundeds, size_error_clauses, | |
3974 | DIVIDEleft,end_divideright) | |
3975 | )) | |
3976 | in (hojfelds_NT 127,(result,DIVIDE1left,end_divide1right),rest671) end | |
3977 | | (724,(_,(_,_,end_divideright as end_divide1right))::(_,( | |
3978 | MlyValue.size_error_clauses size_error_clauses,_,_))::(_,( | |
3979 | MlyValue.identifier_roundeds identifier_roundeds,_,_))::_::(_,( | |
3980 | MlyValue.identifier_or_literal identifier_or_literal2,_,_))::_::(_,( | |
3981 | MlyValue.identifier_or_literal identifier_or_literal1,_,_))::(_,(_, | |
3982 | DIVIDEleft as DIVIDE1left,_))::rest671) => let val result= | |
3983 | MlyValue.divide_statement(( | |
3984 | Cobol.DIVIDE_BY_GIVING | |
3985 | (identifier_or_literal1,identifier_or_literal2, | |
3986 | identifier_roundeds,size_error_clauses, | |
3987 | DIVIDEleft,end_divideright) | |
3988 | )) | |
3989 | in (hojfelds_NT 127,(result,DIVIDE1left,end_divide1right),rest671) end | |
3990 | | (725,(_,(_,_,end_divideright as end_divide1right))::(_,( | |
3991 | MlyValue.size_error_clauses size_error_clauses,_,_))::(_,( | |
3992 | MlyValue.identifier identifier,_,_))::_::(_,( | |
3993 | MlyValue.identifier_roundeds identifier_roundeds,_,_))::_::(_,( | |
3994 | MlyValue.identifier_or_literal identifier_or_literal2,_,_))::_::(_,( | |
3995 | MlyValue.identifier_or_literal identifier_or_literal1,_,_))::(_,(_, | |
3996 | DIVIDEleft as DIVIDE1left,_))::rest671) => let val result= | |
3997 | MlyValue.divide_statement(( | |
3998 | Cobol.DIVIDE_INTO_GIVING_REMAINDER | |
3999 | (identifier_or_literal1,identifier_or_literal2, | |
4000 | identifier_roundeds,identifier,size_error_clauses, | |
4001 | DIVIDEleft,end_divideright) | |
4002 | )) | |
4003 | in (hojfelds_NT 127,(result,DIVIDE1left,end_divide1right),rest671) end | |
4004 | | (726,(_,(_,_,end_divideright as end_divide1right))::(_,( | |
4005 | MlyValue.size_error_clauses size_error_clauses,_,_))::(_,( | |
4006 | MlyValue.identifier identifier,_,_))::_::(_,( | |
4007 | MlyValue.identifier_roundeds identifier_roundeds,_,_))::_::(_,( | |
4008 | MlyValue.identifier_or_literal identifier_or_literal2,_,_))::_::(_,( | |
4009 | MlyValue.identifier_or_literal identifier_or_literal1,_,_))::(_,(_, | |
4010 | DIVIDEleft as DIVIDE1left,_))::rest671) => let val result= | |
4011 | MlyValue.divide_statement(( | |
4012 | Cobol.DIVIDE_BY_GIVING_REMAINDER | |
4013 | (identifier_or_literal1,identifier_or_literal2, | |
4014 | identifier_roundeds,identifier,size_error_clauses, | |
4015 | DIVIDEleft,end_divideright) | |
4016 | )) | |
4017 | in (hojfelds_NT 127,(result,DIVIDE1left,end_divide1right),rest671) end | |
4018 | | (727,(_,(_,_,routine_name_opt1right))::_::(_,(_,ENTER1left,_)):: | |
4019 | rest671) => let val result=MlyValue.ntVOID(()) | |
4020 | in (hojfelds_NT 151,(result,ENTER1left,routine_name_opt1right),rest671 | |
4021 | ) end | |
4022 | | (728,(_,(_,_,identifiers1right))::_::(_,(_,EXHIBIT1left,_))::rest671 | |
4023 | ) => let val result=MlyValue.ntVOID(()) | |
4024 | in (hojfelds_NT 161,(result,EXHIBIT1left,identifiers1right),rest671) | |
4025 | end | |
4026 | | (729,(_,(_,NAMED1left,NAMED1right))::rest671) => let val result= | |
4027 | MlyValue.ntVOID(()) | |
4028 | in (hojfelds_NT 58,(result,NAMED1left,NAMED1right),rest671) end | |
4029 | | (730,(_,(_,_,NAMED1right))::(_,(_,CHANGED1left,_))::rest671) => let | |
4030 | val result=MlyValue.ntVOID(()) | |
4031 | in (hojfelds_NT 58,(result,CHANGED1left,NAMED1right),rest671) end | |
4032 | | (731,(_,(_,EXIT1left,EXIT1right))::rest671) => let val result= | |
4033 | MlyValue.ntVOID(()) | |
4034 | in (hojfelds_NT 163,(result,EXIT1left,EXIT1right),rest671) end | |
4035 | | (732,(_,(_,_,PROGRAM1right))::(_,(_,EXIT1left,_))::rest671) => let | |
4036 | val result=MlyValue.ntVOID(()) | |
4037 | in (hojfelds_NT 162,(result,EXIT1left,PROGRAM1right),rest671) end | |
4038 | | (733,(_,(_,_,procedure_name_opt1right))::_::(_,(_,GO1left,_)):: | |
4039 | rest671) => let val result=MlyValue.ntVOID(()) | |
4040 | in (hojfelds_NT 218,(result,GO1left,procedure_name_opt1right),rest671) | |
4041 | end | |
4042 | | (734,(_,(_,_,identifier1right))::_::_::_::_::(_,(_,GO1left,_)):: | |
4043 | rest671) => let val result=MlyValue.ntVOID(()) | |
4044 | in (hojfelds_NT 218,(result,GO1left,identifier1right),rest671) end | |
4045 | | (735,(_,(MlyValue.else_statements else_statements,_, | |
4046 | else_statements1right))::(_,(MlyValue.then_statements then_statements, | |
4047 | _,_))::(_,(_,_,thenright))::(_,(MlyValue.conditional_expression | |
4048 | conditional_expression,_,_))::(_,(_,IFleft as IF1left,_))::rest671) | |
4049 | => let val result=MlyValue.if_statement(( | |
4050 | Cobol.IF(conditional_expression,then_statements,else_statements, | |
4051 | IFleft,thenright) | |
4052 | )) | |
4053 | in (hojfelds_NT 240,(result,IF1left,else_statements1right),rest671) | |
4054 | end | |
4055 | | (736,(_,(MlyValue.imperative_statement imperative_statement, | |
4056 | imperative_statement1left,imperative_statement1right))::rest671) => | |
4057 | let val result=MlyValue.then_statements(( | |
4058 | Cobol.THEN_STATEMENTS(imperative_statement))) | |
4059 | in (hojfelds_NT 490,(result,imperative_statement1left, | |
4060 | imperative_statement1right),rest671) end | |
4061 | | (737,(_,(_,_,SENTENCE1right))::(_,(_,NEXT1left,_))::rest671) => let | |
4062 | val result=MlyValue.then_statements((Cobol.NEXT_SENTENCE)) | |
4063 | in (hojfelds_NT 490,(result,NEXT1left,SENTENCE1right),rest671) end | |
4064 | | (738,(_,(_,_,end_if1right))::(_,(MlyValue.statements statements,_,_) | |
4065 | )::(_,(_,ELSE1left,_))::rest671) => let val result= | |
4066 | MlyValue.else_statements((Cobol.ELSE(statements))) | |
4067 | in (hojfelds_NT 130,(result,ELSE1left,end_if1right),rest671) end | |
4068 | | (739,(_,(_,_,SENTENCE1right))::_::(_,(_,ELSE1left,_))::rest671) => | |
4069 | let val result=MlyValue.else_statements((Cobol.ELSE_NEXT_SENTENCE)) | |
4070 | in (hojfelds_NT 130,(result,ELSE1left,SENTENCE1right),rest671) end | |
4071 | | (740,(_,(_,end_if1left,end_if1right))::rest671) => let val result= | |
4072 | MlyValue.else_statements((Cobol.NO_ELSE)) | |
4073 | in (hojfelds_NT 130,(result,end_if1left,end_if1right),rest671) end | |
4074 | | (741,(_,(_,_,identifier_tallying_specifications1right))::_::_::(_,(_ | |
4075 | ,INSPECT1left,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
4076 | in (hojfelds_NT 262,(result,INSPECT1left, | |
4077 | identifier_tallying_specifications1right),rest671) end | |
4078 | | (742,(_,(_,_,inspect_replacing_specifications1right))::_::_::(_,(_, | |
4079 | INSPECT1left,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
4080 | in (hojfelds_NT 262,(result,INSPECT1left, | |
4081 | inspect_replacing_specifications1right),rest671) end | |
4082 | | (743,(_,(_,_,inspect_replacing_specifications1right))::_::_::_::_::( | |
4083 | _,(_,INSPECT1left,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
4084 | in (hojfelds_NT 262,(result,INSPECT1left, | |
4085 | inspect_replacing_specifications1right),rest671) end | |
4086 | | (744,(_,(_,_,tallying_specifications1right))::_::(_,(_, | |
4087 | identifier1left,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
4088 | in (hojfelds_NT 238,(result,identifier1left, | |
4089 | tallying_specifications1right),rest671) end | |
4090 | | (745,(_,(_,_,before_after_phrase1right))::(_,(_,CHARACTERS1left,_)) | |
4091 | ::rest671) => let val result=MlyValue.ntVOID(()) | |
4092 | in (hojfelds_NT 482,(result,CHARACTERS1left,before_after_phrase1right) | |
4093 | ,rest671) end | |
4094 | | (746,(_,(_,_,all_or_leading_specifications1right))::(_,(_, | |
4095 | all_or_leading1left,_))::rest671) => let val result=MlyValue.ntVOID(() | |
4096 | ) | |
4097 | in (hojfelds_NT 482,(result,all_or_leading1left, | |
4098 | all_or_leading_specifications1right),rest671) end | |
4099 | | (747,(_,(_,_,tallying_specifications1right))::_::(_,(_, | |
4100 | CHARACTERS1left,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
4101 | in (hojfelds_NT 482,(result,CHARACTERS1left, | |
4102 | tallying_specifications1right),rest671) end | |
4103 | | (748,(_,(_,_,tallying_specifications1right))::_::(_,(_, | |
4104 | all_or_leading1left,_))::rest671) => let val result=MlyValue.ntVOID(() | |
4105 | ) | |
4106 | in (hojfelds_NT 482,(result,all_or_leading1left, | |
4107 | tallying_specifications1right),rest671) end | |
4108 | | (749,(_,(_,_,identifier_tallying_specifications1right))::_::(_,(_, | |
4109 | CHARACTERS1left,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
4110 | in (hojfelds_NT 482,(result,CHARACTERS1left, | |
4111 | identifier_tallying_specifications1right),rest671) end | |
4112 | | (750,(_,(_,_,identifier_tallying_specifications1right))::_::(_,(_, | |
4113 | all_or_leading1left,_))::rest671) => let val result=MlyValue.ntVOID(() | |
4114 | ) | |
4115 | in (hojfelds_NT 482,(result,all_or_leading1left, | |
4116 | identifier_tallying_specifications1right),rest671) end | |
4117 | | (751,(_,(_,_, | |
4118 | identifier_or_nonnumeric_literal_or_not_all_figurative_constant1right) | |
4119 | )::_::(_,(_,before_after1left,_))::rest671) => let val result= | |
4120 | MlyValue.ntVOID(()) | |
4121 | in (hojfelds_NT 168,(result,before_after1left, | |
4122 | identifier_or_nonnumeric_literal_or_not_all_figurative_constant1right) | |
4123 | ,rest671) end | |
4124 | | (752,rest671) => let val result=MlyValue.ntVOID(()) | |
4125 | in (hojfelds_NT 168,(result,defaultPos,defaultPos),rest671) end | |
4126 | | (753,(_,(_,BEFORE1left,BEFORE1right))::rest671) => let val result= | |
4127 | MlyValue.ntVOID(()) | |
4128 | in (hojfelds_NT 51,(result,BEFORE1left,BEFORE1right),rest671) end | |
4129 | | (754,(_,(_,AFTER1left,AFTER1right))::rest671) => let val result= | |
4130 | MlyValue.ntVOID(()) | |
4131 | in (hojfelds_NT 51,(result,AFTER1left,AFTER1right),rest671) end | |
4132 | | (755,(_,(_,ALL1left,ALL1right))::rest671) => let val result= | |
4133 | MlyValue.ntVOID(()) | |
4134 | in (hojfelds_NT 19,(result,ALL1left,ALL1right),rest671) end | |
4135 | | (756,(_,(_,LEADING1left,LEADING1right))::rest671) => let val result= | |
4136 | MlyValue.ntVOID(()) | |
4137 | in (hojfelds_NT 19,(result,LEADING1left,LEADING1right),rest671) end | |
4138 | | (757,(_,(_,_,all_or_leading_specification1right))::(_,(_, | |
4139 | all_or_leading_specifications1left,_))::rest671) => let val result= | |
4140 | MlyValue.ntVOID(()) | |
4141 | in (hojfelds_NT 22,(result,all_or_leading_specifications1left, | |
4142 | all_or_leading_specification1right),rest671) end | |
4143 | | (758,(_,(_,all_or_leading_specification1left, | |
4144 | all_or_leading_specification1right))::rest671) => let val result= | |
4145 | MlyValue.ntVOID(()) | |
4146 | in (hojfelds_NT 22,(result,all_or_leading_specification1left, | |
4147 | all_or_leading_specification1right),rest671) end | |
4148 | | (759,(_,(_,_,before_after_phrase1right))::(_,(_, | |
4149 | identifier_or_nonnumeric_literal_or_not_all_figurative_constant1left,_ | |
4150 | ))::rest671) => let val result=MlyValue.ntVOID(()) | |
4151 | in (hojfelds_NT 21,(result, | |
4152 | identifier_or_nonnumeric_literal_or_not_all_figurative_constant1left, | |
4153 | before_after_phrase1right),rest671) end | |
4154 | | (760,(_,(_,_,inspect_replacing_specification1right))::(_,(_, | |
4155 | inspect_replacing_specifications1left,_))::rest671) => let val result= | |
4156 | MlyValue.ntVOID(()) | |
4157 | in (hojfelds_NT 167,(result,inspect_replacing_specifications1left, | |
4158 | inspect_replacing_specification1right),rest671) end | |
4159 | | (761,(_,(_,inspect_replacing_specification1left, | |
4160 | inspect_replacing_specification1right))::rest671) => let val result= | |
4161 | MlyValue.ntVOID(()) | |
4162 | in (hojfelds_NT 167,(result,inspect_replacing_specification1left, | |
4163 | inspect_replacing_specification1right),rest671) end | |
4164 | | (762,(_,(_,_,before_after_phrase1right))::_::_::(_,(_, | |
4165 | CHARACTERS1left,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
4166 | in (hojfelds_NT 169,(result,CHARACTERS1left,before_after_phrase1right) | |
4167 | ,rest671) end | |
4168 | | (763,(_,(_,_,all_leading_first_specifications1right))::(_,(_, | |
4169 | all_or_leading_or_first1left,_))::rest671) => let val result= | |
4170 | MlyValue.ntVOID(()) | |
4171 | in (hojfelds_NT 169,(result,all_or_leading_or_first1left, | |
4172 | all_leading_first_specifications1right),rest671) end | |
4173 | | (764,(_,(_,ALL1left,ALL1right))::rest671) => let val result= | |
4174 | MlyValue.ntVOID(()) | |
4175 | in (hojfelds_NT 20,(result,ALL1left,ALL1right),rest671) end | |
4176 | | (765,(_,(_,LEADING1left,LEADING1right))::rest671) => let val result= | |
4177 | MlyValue.ntVOID(()) | |
4178 | in (hojfelds_NT 20,(result,LEADING1left,LEADING1right),rest671) end | |
4179 | | (766,(_,(_,FIRST1left,FIRST1right))::rest671) => let val result= | |
4180 | MlyValue.ntVOID(()) | |
4181 | in (hojfelds_NT 20,(result,FIRST1left,FIRST1right),rest671) end | |
4182 | | (767,(_,(_,_,all_leading_first_specification1right))::(_,(_, | |
4183 | all_leading_first_specifications1left,_))::rest671) => let val result= | |
4184 | MlyValue.ntVOID(()) | |
4185 | in (hojfelds_NT 17,(result,all_leading_first_specifications1left, | |
4186 | all_leading_first_specification1right),rest671) end | |
4187 | | (768,(_,(_,all_leading_first_specification1left, | |
4188 | all_leading_first_specification1right))::rest671) => let val result= | |
4189 | MlyValue.ntVOID(()) | |
4190 | in (hojfelds_NT 17,(result,all_leading_first_specification1left, | |
4191 | all_leading_first_specification1right),rest671) end | |
4192 | | (769,(_,(_,_,before_after_phrase1right))::_::_::(_,(_, | |
4193 | identifier_or_nonnumeric_literal_or_not_all_figurative_constant1left,_ | |
4194 | ))::rest671) => let val result=MlyValue.ntVOID(()) | |
4195 | in (hojfelds_NT 16,(result, | |
4196 | identifier_or_nonnumeric_literal_or_not_all_figurative_constant1left, | |
4197 | before_after_phrase1right),rest671) end | |
4198 | | (770,(_,(_,_,output_procedure_or_giving_phrase1right))::_::_::_::_:: | |
4199 | (_,(_,MERGE1left,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
4200 | in (hojfelds_NT 308,(result,MERGE1left, | |
4201 | output_procedure_or_giving_phrase1right),rest671) end | |
4202 | | (771,(_,(_,_,on_ascending_descending_key_phrase1right))::(_,(_, | |
4203 | on_ascending_descending_key_phrases1left,_))::rest671) => let val | |
4204 | result=MlyValue.ntVOID(()) | |
4205 | in (hojfelds_NT 337,(result,on_ascending_descending_key_phrases1left, | |
4206 | on_ascending_descending_key_phrase1right),rest671) end | |
4207 | | (772,(_,(_,on_ascending_descending_key_phrase1left, | |
4208 | on_ascending_descending_key_phrase1right))::rest671) => let val result | |
4209 | =MlyValue.ntVOID(()) | |
4210 | in (hojfelds_NT 337,(result,on_ascending_descending_key_phrase1left, | |
4211 | on_ascending_descending_key_phrase1right),rest671) end | |
4212 | | (773,(_,(_,_,data_names1right))::_::_::(_,(_,on1left,_))::rest671) | |
4213 | => let val result=MlyValue.ntVOID(()) | |
4214 | in (hojfelds_NT 336,(result,on1left,data_names1right),rest671) end | |
4215 | | (774,(_,(_,_,alphabet_name1right))::_::_::(_,(_,collating1left,_)):: | |
4216 | rest671) => let val result=MlyValue.ntVOID(()) | |
4217 | in (hojfelds_NT 68,(result,collating1left,alphabet_name1right),rest671 | |
4218 | ) end | |
4219 | | (775,rest671) => let val result=MlyValue.ntVOID(()) | |
4220 | in (hojfelds_NT 68,(result,defaultPos,defaultPos),rest671) end | |
4221 | | (776,(_,(_,_,file_names1right))::_::(_,(_,USING1left,_))::rest671) | |
4222 | => let val result=MlyValue.ntVOID(()) | |
4223 | in (hojfelds_NT 515,(result,USING1left,file_names1right),rest671) end | |
4224 | | (777,(_,(_,output_procedure_phrase1left, | |
4225 | output_procedure_phrase1right))::rest671) => let val result= | |
4226 | MlyValue.ntVOID(()) | |
4227 | in (hojfelds_NT 353,(result,output_procedure_phrase1left, | |
4228 | output_procedure_phrase1right),rest671) end | |
4229 | | (778,(_,(_,giving_phrase1left,giving_phrase1right))::rest671) => | |
4230 | let val result=MlyValue.ntVOID(()) | |
4231 | in (hojfelds_NT 353,(result,giving_phrase1left,giving_phrase1right), | |
4232 | rest671) end | |
4233 | | (779,(_,(_,_,procedure_range1right))::_::_::(_,(_,OUTPUT1left,_)):: | |
4234 | rest671) => let val result=MlyValue.ntVOID(()) | |
4235 | in (hojfelds_NT 354,(result,OUTPUT1left,procedure_range1right),rest671 | |
4236 | ) end | |
4237 | | (780,(_,(_,procedure_name1left,procedure_name1right))::rest671) => | |
4238 | let val result=MlyValue.ntVOID(()) | |
4239 | in (hojfelds_NT 170,(result,procedure_name1left,procedure_name1right), | |
4240 | rest671) end | |
4241 | | (781,(_,(_,_,procedure_name2right))::_::(_,(_,procedure_name1left,_) | |
4242 | )::rest671) => let val result=MlyValue.ntVOID(()) | |
4243 | in (hojfelds_NT 170,(result,procedure_name1left,procedure_name2right), | |
4244 | rest671) end | |
4245 | | (782,(_,(_,_,file_names1right))::(_,(_,GIVING1left,_))::rest671) => | |
4246 | let val result=MlyValue.ntVOID(()) | |
4247 | in (hojfelds_NT 217,(result,GIVING1left,file_names1right),rest671) end | |
4248 | | (783,(_,(MlyValue.identifiers identifiers,_,identifiersright as | |
4249 | identifiers1right))::_::(_,(MlyValue.identifier_or_literal | |
4250 | identifier_or_literal,_,_))::(_,(_,MOVEleft as MOVE1left,_))::rest671) | |
4251 | => let val result=MlyValue.move_statement(( | |
4252 | Cobol.MOVE(identifier_or_literal,identifiers, | |
4253 | MOVEleft,identifiersright) | |
4254 | )) | |
4255 | in (hojfelds_NT 314,(result,MOVE1left,identifiers1right),rest671) end | |
4256 | | (784,(_,(MlyValue.identifier identifier2,_,identifier2right))::_::(_ | |
4257 | ,(MlyValue.identifier identifier1,_,identifierright))::_::(_,(_, | |
4258 | MOVEleft as MOVE1left,_))::rest671) => let val result= | |
4259 | MlyValue.move_statement(( | |
4260 | Cobol.MOVECORRESPONDING(identifier1,identifier2, | |
4261 | MOVEleft,identifierright) | |
4262 | )) | |
4263 | in (hojfelds_NT 314,(result,MOVE1left,identifier2right),rest671) end | |
4264 | | (785,(_,(_,_,end_multiplyright as end_multiply1right))::(_,( | |
4265 | MlyValue.size_error_clauses size_error_clauses,_,_))::(_,( | |
4266 | MlyValue.identifier_roundeds identifier_roundeds,_,_))::_::(_,( | |
4267 | MlyValue.identifier_or_literal identifier_or_literal,_,_))::(_,(_, | |
4268 | MULTIPLYleft as MULTIPLY1left,_))::rest671) => let val result= | |
4269 | MlyValue.multiply_statement(( | |
4270 | Cobol.MULTIPLY(identifier_or_literal,identifier_roundeds | |
4271 | ,size_error_clauses,MULTIPLYleft,end_multiplyright) | |
4272 | )) | |
4273 | in (hojfelds_NT 317,(result,MULTIPLY1left,end_multiply1right),rest671) | |
4274 | end | |
4275 | | (786,(_,(_,_,end_multiplyright as end_multiply1right))::(_,( | |
4276 | MlyValue.size_error_clauses size_error_clauses,_,_))::(_,( | |
4277 | MlyValue.identifier_roundeds identifier_roundeds,_,_))::_::(_,( | |
4278 | MlyValue.identifier_or_literal identifier_or_literal2,_,_))::_::(_,( | |
4279 | MlyValue.identifier_or_literal identifier_or_literal1,_,_))::(_,(_, | |
4280 | MULTIPLYleft as MULTIPLY1left,_))::rest671) => let val result= | |
4281 | MlyValue.multiply_statement(( | |
4282 | Cobol.MULTIPLY_GIVING(identifier_or_literal1,identifier_or_literal2 | |
4283 | ,identifier_roundeds,size_error_clauses | |
4284 | ,MULTIPLYleft,end_multiplyright) | |
4285 | )) | |
4286 | in (hojfelds_NT 317,(result,MULTIPLY1left,end_multiply1right),rest671) | |
4287 | end | |
4288 | | (787,(_,(_,_,io_phrases1right))::(_,(_,OPEN1left,_))::rest671) => | |
4289 | let val result=MlyValue.ntVOID(()) | |
4290 | in (hojfelds_NT 341,(result,OPEN1left,io_phrases1right),rest671) end | |
4291 | | (788,(_,(_,_,io_phrase1right))::(_,(_,io_phrases1left,_))::rest671) | |
4292 | => let val result=MlyValue.ntVOID(()) | |
4293 | in (hojfelds_NT 274,(result,io_phrases1left,io_phrase1right),rest671) | |
4294 | end | |
4295 | | (789,(_,(_,io_phrase1left,io_phrase1right))::rest671) => let val | |
4296 | result=MlyValue.ntVOID(()) | |
4297 | in (hojfelds_NT 274,(result,io_phrase1left,io_phrase1right),rest671) | |
4298 | end | |
4299 | | (790,(_,(_,_,file_input_specifications1right))::(_,(_,INPUT1left,_)) | |
4300 | ::rest671) => let val result=MlyValue.ntVOID(()) | |
4301 | in (hojfelds_NT 273,(result,INPUT1left,file_input_specifications1right | |
4302 | ),rest671) end | |
4303 | | (791,(_,(_,_,file_output_specifications1right))::(_,(_,OUTPUT1left,_ | |
4304 | ))::rest671) => let val result=MlyValue.ntVOID(()) | |
4305 | in (hojfelds_NT 273,(result,OUTPUT1left, | |
4306 | file_output_specifications1right),rest671) end | |
4307 | | (792,(_,(_,_,file_names1right))::(_,(_,IO1left,_))::rest671) => let | |
4308 | val result=MlyValue.ntVOID(()) | |
4309 | in (hojfelds_NT 273,(result,IO1left,file_names1right),rest671) end | |
4310 | | (793,(_,(_,_,file_names1right))::(_,(_,EXTEND1left,_))::rest671) => | |
4311 | let val result=MlyValue.ntVOID(()) | |
4312 | in (hojfelds_NT 273,(result,EXTEND1left,file_names1right),rest671) end | |
4313 | | (794,(_,(_,_,file_input_specification1right))::(_,(_, | |
4314 | file_input_specifications1left,_))::rest671) => let val result= | |
4315 | MlyValue.ntVOID(()) | |
4316 | in (hojfelds_NT 199,(result,file_input_specifications1left, | |
4317 | file_input_specification1right),rest671) end | |
4318 | | (795,(_,(_,file_input_specification1left, | |
4319 | file_input_specification1right))::rest671) => let val result= | |
4320 | MlyValue.ntVOID(()) | |
4321 | in (hojfelds_NT 199,(result,file_input_specification1left, | |
4322 | file_input_specification1right),rest671) end | |
4323 | | (796,(_,(_,_,file_input_specification_attribute1right))::(_,(_, | |
4324 | file_name1left,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
4325 | in (hojfelds_NT 197,(result,file_name1left, | |
4326 | file_input_specification_attribute1right),rest671) end | |
4327 | | (797,(_,(_,REVERSED1left,REVERSED1right))::rest671) => let val | |
4328 | result=MlyValue.ntVOID(()) | |
4329 | in (hojfelds_NT 198,(result,REVERSED1left,REVERSED1right),rest671) end | |
4330 | | (798,(_,(_,_,REWIND1right))::_::(_,(_,with1left,_))::rest671) => | |
4331 | let val result=MlyValue.ntVOID(()) | |
4332 | in (hojfelds_NT 198,(result,with1left,REWIND1right),rest671) end | |
4333 | | (799,rest671) => let val result=MlyValue.ntVOID(()) | |
4334 | in (hojfelds_NT 198,(result,defaultPos,defaultPos),rest671) end | |
4335 | | (800,(_,(_,_,file_output_specification1right))::(_,(_, | |
4336 | file_output_specifications1left,_))::rest671) => let val result= | |
4337 | MlyValue.ntVOID(()) | |
4338 | in (hojfelds_NT 206,(result,file_output_specifications1left, | |
4339 | file_output_specification1right),rest671) end | |
4340 | | (801,(_,(_,file_output_specification1left, | |
4341 | file_output_specification1right))::rest671) => let val result= | |
4342 | MlyValue.ntVOID(()) | |
4343 | in (hojfelds_NT 206,(result,file_output_specification1left, | |
4344 | file_output_specification1right),rest671) end | |
4345 | | (802,(_,(_,_,file_output_specification_attribute1right))::(_,(_, | |
4346 | file_name1left,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
4347 | in (hojfelds_NT 204,(result,file_name1left, | |
4348 | file_output_specification_attribute1right),rest671) end | |
4349 | | (803,(_,(_,_,REWIND1right))::_::(_,(_,with1left,_))::rest671) => | |
4350 | let val result=MlyValue.ntVOID(()) | |
4351 | in (hojfelds_NT 205,(result,with1left,REWIND1right),rest671) end | |
4352 | | (804,rest671) => let val result=MlyValue.ntVOID(()) | |
4353 | in (hojfelds_NT 205,(result,defaultPos,defaultPos),rest671) end | |
4354 | | (805,(_,(_,_,procedure_range1right))::(_,(_,PERFORM1left,_)):: | |
4355 | rest671) => let val result=MlyValue.ntVOID(()) | |
4356 | in (hojfelds_NT 360,(result,PERFORM1left,procedure_range1right), | |
4357 | rest671) end | |
4358 | | (806,(_,(_,_,times_phrase1right))::_::(_,(_,PERFORM1left,_)):: | |
4359 | rest671) => let val result=MlyValue.ntVOID(()) | |
4360 | in (hojfelds_NT 360,(result,PERFORM1left,times_phrase1right),rest671) | |
4361 | end | |
4362 | | (807,(_,(_,_,until_phrase1right))::_::(_,(_,PERFORM1left,_)):: | |
4363 | rest671) => let val result=MlyValue.ntVOID(()) | |
4364 | in (hojfelds_NT 360,(result,PERFORM1left,until_phrase1right),rest671) | |
4365 | end | |
4366 | | (808,(_,(_,_,test_varying_phrase1right))::_::(_,(_,PERFORM1left,_)) | |
4367 | ::rest671) => let val result=MlyValue.ntVOID(()) | |
4368 | in (hojfelds_NT 360,(result,PERFORM1left,test_varying_phrase1right), | |
4369 | rest671) end | |
4370 | | (809,(_,(_,_,TIMES1right))::(_,(_,identifier_or_integer1left,_)):: | |
4371 | rest671) => let val result=MlyValue.ntVOID(()) | |
4372 | in (hojfelds_NT 498,(result,identifier_or_integer1left,TIMES1right), | |
4373 | rest671) end | |
4374 | | (810,(_,(_,_,conditional_expression1right))::(_,(_,UNTIL1left,_)):: | |
4375 | rest671) => let val result=MlyValue.ntVOID(()) | |
4376 | in (hojfelds_NT 484,(result,UNTIL1left,conditional_expression1right), | |
4377 | rest671) end | |
4378 | | (811,(_,(_,_,after_phrases1right))::_::_::_::_::_::_::_::(_,(_, | |
4379 | VARYING1left,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
4380 | in (hojfelds_NT 485,(result,VARYING1left,after_phrases1right),rest671) | |
4381 | end | |
4382 | | (812,(_,(_,_,after_phrase1right))::(_,(_,after_phrases1left,_)):: | |
4383 | rest671) => let val result=MlyValue.ntVOID(()) | |
4384 | in (hojfelds_NT 14,(result,after_phrases1left,after_phrase1right), | |
4385 | rest671) end | |
4386 | | (813,rest671) => let val result=MlyValue.ntVOID(()) | |
4387 | in (hojfelds_NT 14,(result,defaultPos,defaultPos),rest671) end | |
4388 | | (814,(_,(_,_,conditional_expression1right))::_::_::_::_::_::_::(_,(_ | |
4389 | ,AFTER1left,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
4390 | in (hojfelds_NT 13,(result,AFTER1left,conditional_expression1right), | |
4391 | rest671) end | |
4392 | | (815,(_,(_,_,end_read1right))::_::_::_::_::_::_::(_,(_,READ1left,_)) | |
4393 | ::rest671) => let val result=MlyValue.ntVOID(()) | |
4394 | in (hojfelds_NT 377,(result,READ1left,end_read1right),rest671) end | |
4395 | | (816,(_,(_,_,identifier1right))::(_,(_,INTO1left,_))::rest671) => | |
4396 | let val result=MlyValue.ntVOID(()) | |
4397 | in (hojfelds_NT 266,(result,INTO1left,identifier1right),rest671) end | |
4398 | | (817,rest671) => let val result=MlyValue.ntVOID(()) | |
4399 | in (hojfelds_NT 266,(result,defaultPos,defaultPos),rest671) end | |
4400 | | (818,(_,(_,_,data_name1right))::_::(_,(_,KEY1left,_))::rest671) => | |
4401 | let val result=MlyValue.ntVOID(()) | |
4402 | in (hojfelds_NT 283,(result,KEY1left,data_name1right),rest671) end | |
4403 | | (819,rest671) => let val result=MlyValue.ntVOID(()) | |
4404 | in (hojfelds_NT 283,(result,defaultPos,defaultPos),rest671) end | |
4405 | | (820,(_,(_,end_error_clauses1left,end_error_clauses1right))::rest671 | |
4406 | ) => let val result=MlyValue.ntVOID(()) | |
4407 | in (hojfelds_NT 141,(result,end_error_clauses1left, | |
4408 | end_error_clauses1right),rest671) end | |
4409 | | (821,(_,(_,invalid_key_error_clauses1left, | |
4410 | invalid_key_error_clauses1right))::rest671) => let val result= | |
4411 | MlyValue.ntVOID(()) | |
4412 | in (hojfelds_NT 141,(result,invalid_key_error_clauses1left, | |
4413 | invalid_key_error_clauses1right),rest671) end | |
4414 | | (822,(_,(_,_,not_end_error_clause1right))::(_,(_, | |
4415 | end_error_clause1left,_))::rest671) => let val result=MlyValue.ntVOID( | |
4416 | ()) | |
4417 | in (hojfelds_NT 137,(result,end_error_clause1left, | |
4418 | not_end_error_clause1right),rest671) end | |
4419 | | (823,(_,(_,_,imperative_statement1right))::_::(_,(_,at1left,_)):: | |
4420 | rest671) => let val result=MlyValue.ntVOID(()) | |
4421 | in (hojfelds_NT 136,(result,at1left,imperative_statement1right), | |
4422 | rest671) end | |
4423 | | (824,(_,(_,_,imperative_statement1right))::_::_::(_,(_,NOT1left,_)) | |
4424 | ::rest671) => let val result=MlyValue.ntVOID(()) | |
4425 | in (hojfelds_NT 321,(result,NOT1left,imperative_statement1right), | |
4426 | rest671) end | |
4427 | | (825,rest671) => let val result=MlyValue.ntVOID(()) | |
4428 | in (hojfelds_NT 321,(result,defaultPos,defaultPos),rest671) end | |
4429 | | (826,(_,(_,_,from_identifier1right))::_::(_,(_,RELEASE1left,_)):: | |
4430 | rest671) => let val result=MlyValue.ntVOID(()) | |
4431 | in (hojfelds_NT 400,(result,RELEASE1left,from_identifier1right), | |
4432 | rest671) end | |
4433 | | (827,(_,(_,_,identifier1right))::(_,(_,FROM1left,_))::rest671) => | |
4434 | let val result=MlyValue.ntVOID(()) | |
4435 | in (hojfelds_NT 216,(result,FROM1left,identifier1right),rest671) end | |
4436 | | (828,rest671) => let val result=MlyValue.ntVOID(()) | |
4437 | in (hojfelds_NT 216,(result,defaultPos,defaultPos),rest671) end | |
4438 | | (829,(_,(_,_,end_return1right))::_::_::_::_::(_,(_,RETURN1left,_)):: | |
4439 | rest671) => let val result=MlyValue.ntVOID(()) | |
4440 | in (hojfelds_NT 411,(result,RETURN1left,end_return1right),rest671) end | |
4441 | | (830,(_,(_,_,end_rewrite1right))::_::_::_::(_,(_,REWRITE1left,_)):: | |
4442 | rest671) => let val result=MlyValue.ntVOID(()) | |
4443 | in (hojfelds_NT 412,(result,REWRITE1left,end_rewrite1right),rest671) | |
4444 | end | |
4445 | | (831,(_,(_,_,end_search1right))::_::_::_::_::(_,(_,SEARCH1left,_)):: | |
4446 | rest671) => let val result=MlyValue.ntVOID(()) | |
4447 | in (hojfelds_NT 421,(result,SEARCH1left,end_search1right),rest671) end | |
4448 | | (832,(_,(_,_,end_search1right))::_::_::_::_::_::_::(_,(_,SEARCH1left | |
4449 | ,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
4450 | in (hojfelds_NT 421,(result,SEARCH1left,end_search1right),rest671) end | |
4451 | | (833,(_,(_,_,identifier1right))::(_,(_,VARYING1left,_))::rest671) | |
4452 | => let val result=MlyValue.ntVOID(()) | |
4453 | in (hojfelds_NT 523,(result,VARYING1left,identifier1right),rest671) | |
4454 | end | |
4455 | | (834,rest671) => let val result=MlyValue.ntVOID(()) | |
4456 | in (hojfelds_NT 523,(result,defaultPos,defaultPos),rest671) end | |
4457 | | (835,(_,(_,end_error_clause1left,end_error_clause1right))::rest671) | |
4458 | => let val result=MlyValue.ntVOID(()) | |
4459 | in (hojfelds_NT 173,(result,end_error_clause1left, | |
4460 | end_error_clause1right),rest671) end | |
4461 | | (836,rest671) => let val result=MlyValue.ntVOID(()) | |
4462 | in (hojfelds_NT 173,(result,defaultPos,defaultPos),rest671) end | |
4463 | | (837,(_,(_,_,search_when_phrase1right))::(_,(_, | |
4464 | search_when_phrases1left,_))::rest671) => let val result= | |
4465 | MlyValue.ntVOID(()) | |
4466 | in (hojfelds_NT 172,(result,search_when_phrases1left, | |
4467 | search_when_phrase1right),rest671) end | |
4468 | | (838,(_,(_,search_when_phrase1left,search_when_phrase1right)):: | |
4469 | rest671) => let val result=MlyValue.ntVOID(()) | |
4470 | in (hojfelds_NT 172,(result,search_when_phrase1left, | |
4471 | search_when_phrase1right),rest671) end | |
4472 | | (839,(_,(_,_,then_statement1right))::_::(_,(_,WHEN1left,_))::rest671 | |
4473 | ) => let val result=MlyValue.ntVOID(()) | |
4474 | in (hojfelds_NT 174,(result,WHEN1left,then_statement1right),rest671) | |
4475 | end | |
4476 | | (840,(_,(_,_,identifier_or_integer1right))::_::_::(_,(_,SET1left,_)) | |
4477 | ::rest671) => let val result=MlyValue.ntVOID(()) | |
4478 | in (hojfelds_NT 435,(result,SET1left,identifier_or_integer1right), | |
4479 | rest671) end | |
4480 | | (841,(_,(_,_,identifier_or_integer1right))::_::_::(_,(_,SET1left,_)) | |
4481 | ::rest671) => let val result=MlyValue.ntVOID(()) | |
4482 | in (hojfelds_NT 435,(result,SET1left,identifier_or_integer1right), | |
4483 | rest671) end | |
4484 | | (842,(_,(_,_,mnemonic_switches1right))::(_,(_,SET1left,_))::rest671) | |
4485 | => let val result=MlyValue.ntVOID(()) | |
4486 | in (hojfelds_NT 435,(result,SET1left,mnemonic_switches1right),rest671) | |
4487 | end | |
4488 | | (843,(_,(_,_,TRUE1right))::_::_::(_,(_,SET1left,_))::rest671) => | |
4489 | let val result=MlyValue.ntVOID(()) | |
4490 | in (hojfelds_NT 435,(result,SET1left,TRUE1right),rest671) end | |
4491 | | (844,(_,(_,_,BY1right))::(_,(_,UP1left,_))::rest671) => let val | |
4492 | result=MlyValue.ntVOID(()) | |
4493 | in (hojfelds_NT 505,(result,UP1left,BY1right),rest671) end | |
4494 | | (845,(_,(_,_,BY1right))::(_,(_,DOWN1left,_))::rest671) => let val | |
4495 | result=MlyValue.ntVOID(()) | |
4496 | in (hojfelds_NT 505,(result,DOWN1left,BY1right),rest671) end | |
4497 | | (846,(_,(_,_,mnemonic_switch1right))::(_,(_,mnemonic_switches1left,_ | |
4498 | ))::rest671) => let val result=MlyValue.ntVOID(()) | |
4499 | in (hojfelds_NT 312,(result,mnemonic_switches1left, | |
4500 | mnemonic_switch1right),rest671) end | |
4501 | | (847,(_,(_,mnemonic_switch1left,mnemonic_switch1right))::rest671) | |
4502 | => let val result=MlyValue.ntVOID(()) | |
4503 | in (hojfelds_NT 312,(result,mnemonic_switch1left,mnemonic_switch1right | |
4504 | ),rest671) end | |
4505 | | (848,(_,(_,_,on_off1right))::_::(_,(_,identifiers1left,_))::rest671) | |
4506 | => let val result=MlyValue.ntVOID(()) | |
4507 | in (hojfelds_NT 311,(result,identifiers1left,on_off1right),rest671) | |
4508 | end | |
4509 | | (849,(_,(_,ON1left,ON1right))::rest671) => let val result= | |
4510 | MlyValue.ntVOID(()) | |
4511 | in (hojfelds_NT 338,(result,ON1left,ON1right),rest671) end | |
4512 | | (850,(_,(_,OFF1left,OFF1right))::rest671) => let val result= | |
4513 | MlyValue.ntVOID(()) | |
4514 | in (hojfelds_NT 338,(result,OFF1left,OFF1right),rest671) end | |
4515 | | (851,(_,(_,_,output_procedure_or_giving_phrase1right))::_::_::_::_:: | |
4516 | (_,(_,SORT1left,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
4517 | in (hojfelds_NT 448,(result,SORT1left, | |
4518 | output_procedure_or_giving_phrase1right),rest671) end | |
4519 | | (852,(_,(_,input_procedure_phrase1left,input_procedure_phrase1right) | |
4520 | )::rest671) => let val result=MlyValue.ntVOID(()) | |
4521 | in (hojfelds_NT 176,(result,input_procedure_phrase1left, | |
4522 | input_procedure_phrase1right),rest671) end | |
4523 | | (853,(_,(_,sort_using_phrase1left,sort_using_phrase1right))::rest671 | |
4524 | ) => let val result=MlyValue.ntVOID(()) | |
4525 | in (hojfelds_NT 176,(result,sort_using_phrase1left, | |
4526 | sort_using_phrase1right),rest671) end | |
4527 | | (854,(_,(_,_,procedure_range1right))::_::_::(_,(_,INPUT1left,_)):: | |
4528 | rest671) => let val result=MlyValue.ntVOID(()) | |
4529 | in (hojfelds_NT 261,(result,INPUT1left,procedure_range1right),rest671) | |
4530 | end | |
4531 | | (855,(_,(_,_,file_names1right))::(_,(_,USING1left,_))::rest671) => | |
4532 | let val result=MlyValue.ntVOID(()) | |
4533 | in (hojfelds_NT 175,(result,USING1left,file_names1right),rest671) end | |
4534 | | (856,(_,(_,_,end_start1right))::_::_::_::(_,(_,START1left,_)):: | |
4535 | rest671) => let val result=MlyValue.ntVOID(()) | |
4536 | in (hojfelds_NT 457,(result,START1left,end_start1right),rest671) end | |
4537 | | (857,(_,(_,_,qdata_names1right))::_::_::(_,(_,KEY1left,_))::rest671) | |
4538 | => let val result=MlyValue.ntVOID(()) | |
4539 | in (hojfelds_NT 284,(result,KEY1left,qdata_names1right),rest671) end | |
4540 | | (858,rest671) => let val result=MlyValue.ntVOID(()) | |
4541 | in (hojfelds_NT 284,(result,defaultPos,defaultPos),rest671) end | |
4542 | | (859,(_,(_,_,RUN1right))::(_,(_,STOP1left,_))::rest671) => let val | |
4543 | result=MlyValue.ntVOID(()) | |
4544 | in (hojfelds_NT 466,(result,STOP1left,RUN1right),rest671) end | |
4545 | | (860,(_,(_,_,literal1right))::(_,(_,STOP1left,_))::rest671) => let | |
4546 | val result=MlyValue.ntVOID(()) | |
4547 | in (hojfelds_NT 466,(result,STOP1left,literal1right),rest671) end | |
4548 | | (861,(_,(_,_,end_string1right))::_::_::_::_::_::(_,(_,STRING1left,_) | |
4549 | )::rest671) => let val result=MlyValue.ntVOID(()) | |
4550 | in (hojfelds_NT 469,(result,STRING1left,end_string1right),rest671) end | |
4551 | | (862,(_,(_,_,string_specification1right))::(_,(_, | |
4552 | string_specifications1left,_))::rest671) => let val result= | |
4553 | MlyValue.ntVOID(()) | |
4554 | in (hojfelds_NT 468,(result,string_specifications1left, | |
4555 | string_specification1right),rest671) end | |
4556 | | (863,(_,(_,string_specification1left,string_specification1right)):: | |
4557 | rest671) => let val result=MlyValue.ntVOID(()) | |
4558 | in (hojfelds_NT 468,(result,string_specification1left, | |
4559 | string_specification1right),rest671) end | |
4560 | | (864,(_,(_,_,identifier_literal_size1right))::_::_::(_,(_, | |
4561 | identifier_or_nonnumeric_literal_or_not_all_figurative_constants1left, | |
4562 | _))::rest671) => let val result=MlyValue.ntVOID(()) | |
4563 | in (hojfelds_NT 467,(result, | |
4564 | identifier_or_nonnumeric_literal_or_not_all_figurative_constants1left, | |
4565 | identifier_literal_size1right),rest671) end | |
4566 | | (865,(_,(_, | |
4567 | identifier_or_nonnumeric_literal_or_not_all_figurative_constant1left, | |
4568 | identifier_or_nonnumeric_literal_or_not_all_figurative_constant1right) | |
4569 | )::rest671) => let val result=MlyValue.ntVOID(()) | |
4570 | in (hojfelds_NT 231,(result, | |
4571 | identifier_or_nonnumeric_literal_or_not_all_figurative_constant1left, | |
4572 | identifier_or_nonnumeric_literal_or_not_all_figurative_constant1right) | |
4573 | ,rest671) end | |
4574 | | (866,(_,(_,SIZE1left,SIZE1right))::rest671) => let val result= | |
4575 | MlyValue.ntVOID(()) | |
4576 | in (hojfelds_NT 231,(result,SIZE1left,SIZE1right),rest671) end | |
4577 | | (867,(_,(_,_,identifier1right))::_::(_,(_,with1left,_))::rest671) | |
4578 | => let val result=MlyValue.ntVOID(()) | |
4579 | in (hojfelds_NT 364,(result,with1left,identifier1right),rest671) end | |
4580 | | (868,rest671) => let val result=MlyValue.ntVOID(()) | |
4581 | in (hojfelds_NT 364,(result,defaultPos,defaultPos),rest671) end | |
4582 | | (869,(_,(_,_,imperative_statement1right))::_::(_,(_,on1left,_)):: | |
4583 | rest671) => let val result=MlyValue.ntVOID(()) | |
4584 | in (hojfelds_NT 355,(result,on1left,imperative_statement1right), | |
4585 | rest671) end | |
4586 | | (870,rest671) => let val result=MlyValue.ntVOID(()) | |
4587 | in (hojfelds_NT 355,(result,defaultPos,defaultPos),rest671) end | |
4588 | | (871,(_,(_,_,end_subtractright as end_subtract1right))::(_,( | |
4589 | MlyValue.size_error_clauses size_error_clauses,_,_))::(_,( | |
4590 | MlyValue.identifier_roundeds identifier_roundeds,_,_))::_::(_,( | |
4591 | MlyValue.identifier_or_literals identifier_or_literals,_,_))::(_,(_, | |
4592 | SUBTRACTleft as SUBTRACT1left,_))::rest671) => let val result= | |
4593 | MlyValue.subtract_statement(( | |
4594 | Cobol.ADD_OR_SUBTRACT | |
4595 | (Cobol.SUBTRACT,identifier_or_literals,identifier_roundeds, | |
4596 | size_error_clauses, | |
4597 | SUBTRACTleft,end_subtractright) | |
4598 | )) | |
4599 | in (hojfelds_NT 473,(result,SUBTRACT1left,end_subtract1right),rest671) | |
4600 | end | |
4601 | | (872,(_,(_,_,end_subtractright as end_subtract1right))::(_,( | |
4602 | MlyValue.size_error_clauses size_error_clauses,_,_))::(_,( | |
4603 | MlyValue.identifier_roundeds identifier_roundeds,_,_))::_::(_,( | |
4604 | MlyValue.identifier_or_literal identifier_or_literal,_,_))::_::(_,( | |
4605 | MlyValue.identifier_or_literals identifier_or_literals,_,_))::(_,(_, | |
4606 | SUBTRACTleft as SUBTRACT1left,_))::rest671) => let val result= | |
4607 | MlyValue.subtract_statement(( | |
4608 | Cobol.ADD_OR_SUBTRACT_GIVING | |
4609 | (Cobol.SUBTRACT,identifier_or_literals,identifier_or_literal, | |
4610 | identifier_roundeds, | |
4611 | size_error_clauses,SUBTRACTleft,end_subtractright) | |
4612 | )) | |
4613 | in (hojfelds_NT 473,(result,SUBTRACT1left,end_subtract1right),rest671) | |
4614 | end | |
4615 | | (873,(_,(_,_,end_subtractright as end_subtract1right))::(_,( | |
4616 | MlyValue.size_error_clauses size_error_clauses,_,_))::(_,( | |
4617 | MlyValue.rounded rounded,_,_))::(_,(MlyValue.identifier identifier2,_, | |
4618 | _))::_::(_,(MlyValue.identifier identifier1,_,_))::_::(_,(_, | |
4619 | SUBTRACTleft as SUBTRACT1left,_))::rest671) => let val result= | |
4620 | MlyValue.subtract_statement(( | |
4621 | Cobol.ADD_OR_SUBTRACT_CORRESPONDING | |
4622 | (Cobol.SUBTRACT,identifier1,identifier2,rounded, | |
4623 | size_error_clauses,SUBTRACTleft,end_subtractright) | |
4624 | )) | |
4625 | in (hojfelds_NT 473,(result,SUBTRACT1left,end_subtract1right),rest671) | |
4626 | end | |
4627 | | (874,(_,(_,_,TRACE1right))::(_,(_,READY1left,_))::rest671) => let | |
4628 | val result=MlyValue.ntVOID(()) | |
4629 | in (hojfelds_NT 503,(result,READY1left,TRACE1right),rest671) end | |
4630 | | (875,(_,(_,_,TRACE1right))::(_,(_,RESET1left,_))::rest671) => let | |
4631 | val result=MlyValue.ntVOID(()) | |
4632 | in (hojfelds_NT 503,(result,RESET1left,TRACE1right),rest671) end | |
4633 | | (876,(_,(_,_,end_unstring1right))::_::_::_::_::_::_::(_,(_, | |
4634 | UNSTRING1left,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
4635 | in (hojfelds_NT 504,(result,UNSTRING1left,end_unstring1right),rest671) | |
4636 | end | |
4637 | | (877,(_,(_,_,delimited_by_specifications1right))::_::(_,(_, | |
4638 | DELIMITED1left,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
4639 | in (hojfelds_NT 124,(result,DELIMITED1left, | |
4640 | delimited_by_specifications1right),rest671) end | |
4641 | | (878,rest671) => let val result=MlyValue.ntVOID(()) | |
4642 | in (hojfelds_NT 124,(result,defaultPos,defaultPos),rest671) end | |
4643 | | (879,(_,(_,_,delimited_by_specifications2right))::_::(_,(_, | |
4644 | delimited_by_specifications1left,_))::rest671) => let val result= | |
4645 | MlyValue.ntVOID(()) | |
4646 | in (hojfelds_NT 177,(result,delimited_by_specifications1left, | |
4647 | delimited_by_specifications2right),rest671) end | |
4648 | | (880,(_,(_,_,identifier_or_literal1right))::(_,(_,all1left,_)):: | |
4649 | rest671) => let val result=MlyValue.ntVOID(()) | |
4650 | in (hojfelds_NT 177,(result,all1left,identifier_or_literal1right), | |
4651 | rest671) end | |
4652 | | (881,(_,(_,_,into_specifications1right))::(_,(_,INTO1left,_)):: | |
4653 | rest671) => let val result=MlyValue.ntVOID(()) | |
4654 | in (hojfelds_NT 267,(result,INTO1left,into_specifications1right), | |
4655 | rest671) end | |
4656 | | (882,(_,(_,_,into_specification1right))::(_,(_, | |
4657 | into_specifications1left,_))::rest671) => let val result= | |
4658 | MlyValue.ntVOID(()) | |
4659 | in (hojfelds_NT 269,(result,into_specifications1left, | |
4660 | into_specification1right),rest671) end | |
4661 | | (883,(_,(_,into_specification1left,into_specification1right)):: | |
4662 | rest671) => let val result=MlyValue.ntVOID(()) | |
4663 | in (hojfelds_NT 269,(result,into_specification1left, | |
4664 | into_specification1right),rest671) end | |
4665 | | (884,(_,(_,_,count_specification1right))::_::(_,(_,identifier1left,_ | |
4666 | ))::rest671) => let val result=MlyValue.ntVOID(()) | |
4667 | in (hojfelds_NT 268,(result,identifier1left,count_specification1right) | |
4668 | ,rest671) end | |
4669 | | (885,(_,(_,_,identifier1right))::_::(_,(_,DELIMITER1left,_)):: | |
4670 | rest671) => let val result=MlyValue.ntVOID(()) | |
4671 | in (hojfelds_NT 125,(result,DELIMITER1left,identifier1right),rest671) | |
4672 | end | |
4673 | | (886,rest671) => let val result=MlyValue.ntVOID(()) | |
4674 | in (hojfelds_NT 125,(result,defaultPos,defaultPos),rest671) end | |
4675 | | (887,(_,(_,_,identifier1right))::_::(_,(_,COUNT1left,_))::rest671) | |
4676 | => let val result=MlyValue.ntVOID(()) | |
4677 | in (hojfelds_NT 83,(result,COUNT1left,identifier1right),rest671) end | |
4678 | | (888,rest671) => let val result=MlyValue.ntVOID(()) | |
4679 | in (hojfelds_NT 83,(result,defaultPos,defaultPos),rest671) end | |
4680 | | (889,(_,(_,_,identifier1right))::_::(_,(_,TALLYING1left,_))::rest671 | |
4681 | ) => let val result=MlyValue.ntVOID(()) | |
4682 | in (hojfelds_NT 479,(result,TALLYING1left,identifier1right),rest671) | |
4683 | end | |
4684 | | (890,rest671) => let val result=MlyValue.ntVOID(()) | |
4685 | in (hojfelds_NT 479,(result,defaultPos,defaultPos),rest671) end | |
4686 | | (891,(_,(_,_,io_specification1right))::_::_::_::_::_::(_,(_,USE1left | |
4687 | ,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
4688 | in (hojfelds_NT 511,(result,USE1left,io_specification1right),rest671) | |
4689 | end | |
4690 | | (892,(_,(_,_,procedure_specification1right))::_::_::_::(_,(_, | |
4691 | USE1left,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
4692 | in (hojfelds_NT 511,(result,USE1left,procedure_specification1right), | |
4693 | rest671) end | |
4694 | | (893,(_,(_,_,PROCEDURES1right))::(_,(_,ALL1left,_))::rest671) => | |
4695 | let val result=MlyValue.ntVOID(()) | |
4696 | in (hojfelds_NT 171,(result,ALL1left,PROCEDURES1right),rest671) end | |
4697 | | (894,(_,(_,_,procedure_names1right))::_::(_,(_,ALL1left,_))::rest671 | |
4698 | ) => let val result=MlyValue.ntVOID(()) | |
4699 | in (hojfelds_NT 171,(result,ALL1left,procedure_names1right),rest671) | |
4700 | end | |
4701 | | (895,(_,(_,procedure_names1left,procedure_names1right))::rest671) | |
4702 | => let val result=MlyValue.ntVOID(()) | |
4703 | in (hojfelds_NT 171,(result,procedure_names1left,procedure_names1right | |
4704 | ),rest671) end | |
4705 | | (896,(_,(_,EXCEPTION1left,EXCEPTION1right))::rest671) => let val | |
4706 | result=MlyValue.ntVOID(()) | |
4707 | in (hojfelds_NT 160,(result,EXCEPTION1left,EXCEPTION1right),rest671) | |
4708 | end | |
4709 | | (897,(_,(_,ERROR1left,ERROR1right))::rest671) => let val result= | |
4710 | MlyValue.ntVOID(()) | |
4711 | in (hojfelds_NT 160,(result,ERROR1left,ERROR1right),rest671) end | |
4712 | | (898,(_,(_,file_names1left,file_names1right))::rest671) => let val | |
4713 | result=MlyValue.ntVOID(()) | |
4714 | in (hojfelds_NT 275,(result,file_names1left,file_names1right),rest671) | |
4715 | end | |
4716 | | (899,(_,(_,INPUT1left,INPUT1right))::rest671) => let val result= | |
4717 | MlyValue.ntVOID(()) | |
4718 | in (hojfelds_NT 275,(result,INPUT1left,INPUT1right),rest671) end | |
4719 | | (900,(_,(_,OUTPUT1left,OUTPUT1right))::rest671) => let val result= | |
4720 | MlyValue.ntVOID(()) | |
4721 | in (hojfelds_NT 275,(result,OUTPUT1left,OUTPUT1right),rest671) end | |
4722 | | (901,(_,(_,IO1left,IO1right))::rest671) => let val result= | |
4723 | MlyValue.ntVOID(()) | |
4724 | in (hojfelds_NT 275,(result,IO1left,IO1right),rest671) end | |
4725 | | (902,(_,(_,EXTEND1left,EXTEND1right))::rest671) => let val result= | |
4726 | MlyValue.ntVOID(()) | |
4727 | in (hojfelds_NT 275,(result,EXTEND1left,EXTEND1right),rest671) end | |
4728 | | (903,(_,(_,_,end_write1right))::_::_::_::_::_::_::_::_::(_,(_, | |
4729 | WRITE1left,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
4730 | in (hojfelds_NT 530,(result,WRITE1left,end_write1right),rest671) end | |
4731 | | (904,(_,(_,_,end_write1right))::_::_::_::_::_::(_,(_,WRITE1left,_)) | |
4732 | ::rest671) => let val result=MlyValue.ntVOID(()) | |
4733 | in (hojfelds_NT 530,(result,WRITE1left,end_write1right),rest671) end | |
4734 | | (905,(_,(_,_,identifier_or_literal1right))::_::(_,(_,FORMAT1left,_)) | |
4735 | ::rest671) => let val result=MlyValue.ntVOID(()) | |
4736 | in (hojfelds_NT 531,(result,FORMAT1left,identifier_or_literal1right), | |
4737 | rest671) end | |
4738 | | (906,rest671) => let val result=MlyValue.ntVOID(()) | |
4739 | in (hojfelds_NT 531,(result,defaultPos,defaultPos),rest671) end | |
4740 | | (907,(_,(_,_,identifier_or_literal1right))::_::(_,(_,TERMINAL1left,_ | |
4741 | ))::rest671) => let val result=MlyValue.ntVOID(()) | |
4742 | in (hojfelds_NT 532,(result,TERMINAL1left,identifier_or_literal1right) | |
4743 | ,rest671) end | |
4744 | | (908,rest671) => let val result=MlyValue.ntVOID(()) | |
4745 | in (hojfelds_NT 532,(result,defaultPos,defaultPos),rest671) end | |
4746 | | (909,(_,(_,_,identifier_or_literal1right))::_::(_,(_,STARTING1left,_ | |
4747 | ))::rest671) => let val result=MlyValue.ntVOID(()) | |
4748 | in (hojfelds_NT 533,(result,STARTING1left,identifier_or_literal1right) | |
4749 | ,rest671) end | |
4750 | | (910,rest671) => let val result=MlyValue.ntVOID(()) | |
4751 | in (hojfelds_NT 533,(result,defaultPos,defaultPos),rest671) end | |
4752 | | (911,(_,(_,AT1left,AT1right))::rest671) => let val result= | |
4753 | MlyValue.ntVOID(()) | |
4754 | in (hojfelds_NT 536,(result,AT1left,AT1right),rest671) end | |
4755 | | (912,(_,(_,LINE1left,LINE1right))::rest671) => let val result= | |
4756 | MlyValue.ntVOID(()) | |
4757 | in (hojfelds_NT 536,(result,LINE1left,LINE1right),rest671) end | |
4758 | | (913,(_,(_,_,LINE1right))::(_,(_,AT1left,_))::rest671) => let val | |
4759 | result=MlyValue.ntVOID(()) | |
4760 | in (hojfelds_NT 536,(result,AT1left,LINE1right),rest671) end | |
4761 | | (914,rest671) => let val result=MlyValue.ntVOID(()) | |
4762 | in (hojfelds_NT 536,(result,defaultPos,defaultPos),rest671) end | |
4763 | | (915,(_,(_,_,lines_pages_specification1right))::(_,(_,advancing1left | |
4764 | ,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
4765 | in (hojfelds_NT 12,(result,advancing1left, | |
4766 | lines_pages_specification1right),rest671) end | |
4767 | | (916,rest671) => let val result=MlyValue.ntVOID(()) | |
4768 | in (hojfelds_NT 12,(result,defaultPos,defaultPos),rest671) end | |
4769 | | (917,(_,(_,_,line_or_lines2right))::_::_::_::_::_::_::(_,(_, | |
4770 | ROLLING1left,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
4771 | in (hojfelds_NT 534,(result,ROLLING1left,line_or_lines2right),rest671) | |
4772 | end | |
4773 | | (918,rest671) => let val result=MlyValue.ntVOID(()) | |
4774 | in (hojfelds_NT 534,(result,defaultPos,defaultPos),rest671) end | |
4775 | | (919,(_,(_,_,rolling_phrase1right))::_::(_,(_,before_after1left,_)) | |
4776 | ::rest671) => let val result=MlyValue.ntVOID(()) | |
4777 | in (hojfelds_NT 540,(result,before_after1left,rolling_phrase1right), | |
4778 | rest671) end | |
4779 | | (920,rest671) => let val result=MlyValue.ntVOID(()) | |
4780 | in (hojfelds_NT 540,(result,defaultPos,defaultPos),rest671) end | |
4781 | | (921,(_,(_,_,identifier1right))::_::(_,(_,indicator1left,_)):: | |
4782 | rest671) => let val result=MlyValue.ntVOID(()) | |
4783 | in (hojfelds_NT 535,(result,indicator1left,identifier1right),rest671) | |
4784 | end | |
4785 | | (922,rest671) => let val result=MlyValue.ntVOID(()) | |
4786 | in (hojfelds_NT 535,(result,defaultPos,defaultPos),rest671) end | |
4787 | | (923,(_,(_,IS1left,IS1right))::rest671) => let val result= | |
4788 | MlyValue.ntVOID(()) | |
4789 | in (hojfelds_NT 538,(result,IS1left,IS1right),rest671) end | |
4790 | | (924,(_,(_,ARE1left,ARE1right))::rest671) => let val result= | |
4791 | MlyValue.ntVOID(()) | |
4792 | in (hojfelds_NT 538,(result,ARE1left,ARE1right),rest671) end | |
4793 | | (925,rest671) => let val result=MlyValue.ntVOID(()) | |
4794 | in (hojfelds_NT 538,(result,defaultPos,defaultPos),rest671) end | |
4795 | | (926,(_,(_,through1left,through1right))::rest671) => let val result= | |
4796 | MlyValue.ntVOID(()) | |
4797 | in (hojfelds_NT 537,(result,through1left,through1right),rest671) end | |
4798 | | (927,rest671) => let val result=MlyValue.ntVOID(()) | |
4799 | in (hojfelds_NT 537,(result,defaultPos,defaultPos),rest671) end | |
4800 | | (928,(_,(_,_,line_or_lines1right))::(_,(_,identifier1left,_)):: | |
4801 | rest671) => let val result=MlyValue.ntVOID(()) | |
4802 | in (hojfelds_NT 296,(result,identifier1left,line_or_lines1right), | |
4803 | rest671) end | |
4804 | | (929,(_,(_,_,line_or_lines1right))::(_,(_,INTEGER1left,_))::rest671) | |
4805 | => let val result=MlyValue.ntVOID(()) | |
4806 | in (hojfelds_NT 296,(result,INTEGER1left,line_or_lines1right),rest671) | |
4807 | end | |
4808 | | (930,(_,(_,PAGE1left,PAGE1right))::rest671) => let val result= | |
4809 | MlyValue.ntVOID(()) | |
4810 | in (hojfelds_NT 296,(result,PAGE1left,PAGE1right),rest671) end | |
4811 | | (931,(_,(_,_,imperative_statement1right))::_::(_,(_,AT1left,_)):: | |
4812 | rest671) => let val result=MlyValue.ntVOID(()) | |
4813 | in (hojfelds_NT 156,(result,AT1left,imperative_statement1right), | |
4814 | rest671) end | |
4815 | | (932,rest671) => let val result=MlyValue.ntVOID(()) | |
4816 | in (hojfelds_NT 156,(result,defaultPos,defaultPos),rest671) end | |
4817 | | (933,(_,(_,ENDOFPAGE1left,ENDOFPAGE1right))::rest671) => let val | |
4818 | result=MlyValue.ntVOID(()) | |
4819 | in (hojfelds_NT 140,(result,ENDOFPAGE1left,ENDOFPAGE1right),rest671) | |
4820 | end | |
4821 | | (934,(_,(_,EOP1left,EOP1right))::rest671) => let val result= | |
4822 | MlyValue.ntVOID(()) | |
4823 | in (hojfelds_NT 140,(result,EOP1left,EOP1right),rest671) end | |
4824 | | (935,(_,(_,_,copy_replacing_phrase1right))::_::_::(_,(_,COPY1left,_) | |
4825 | )::rest671) => let val result=MlyValue.ntVOID(()) | |
4826 | in (hojfelds_NT 81,(result,COPY1left,copy_replacing_phrase1right), | |
4827 | rest671) end | |
4828 | | (936,(_,(_,_,library_name1right))::(_,(_,OF1left,_))::rest671) => | |
4829 | let val result=MlyValue.ntVOID(()) | |
4830 | in (hojfelds_NT 292,(result,OF1left,library_name1right),rest671) end | |
4831 | | (937,(_,(_,_,library_name1right))::(_,(_,IN1left,_))::rest671) => | |
4832 | let val result=MlyValue.ntVOID(()) | |
4833 | in (hojfelds_NT 292,(result,IN1left,library_name1right),rest671) end | |
4834 | | (938,rest671) => let val result=MlyValue.ntVOID(()) | |
4835 | in (hojfelds_NT 292,(result,defaultPos,defaultPos),rest671) end | |
4836 | | (939,(_,(_,_,copy_replacing_specifications1right))::(_,(_, | |
4837 | REPLACING1left,_))::rest671) => let val result=MlyValue.ntVOID(()) | |
4838 | in (hojfelds_NT 178,(result,REPLACING1left, | |
4839 | copy_replacing_specifications1right),rest671) end | |
4840 | | (940,rest671) => let val result=MlyValue.ntVOID(()) | |
4841 | in (hojfelds_NT 178,(result,defaultPos,defaultPos),rest671) end | |
4842 | | (941,(_,(_,_,copy_replacing_specification1right))::(_,(_, | |
4843 | copy_replacing_specifications1left,_))::rest671) => let val result= | |
4844 | MlyValue.ntVOID(()) | |
4845 | in (hojfelds_NT 179,(result,copy_replacing_specifications1left, | |
4846 | copy_replacing_specification1right),rest671) end | |
4847 | | (942,(_,(_,copy_replacing_specification1left, | |
4848 | copy_replacing_specification1right))::rest671) => let val result= | |
4849 | MlyValue.ntVOID(()) | |
4850 | in (hojfelds_NT 179,(result,copy_replacing_specification1left, | |
4851 | copy_replacing_specification1right),rest671) end | |
4852 | | (943,(_,(_,_,operand2right))::_::(_,(_,operand1left,_))::rest671) | |
4853 | => let val result=MlyValue.ntVOID(()) | |
4854 | in (hojfelds_NT 180,(result,operand1left,operand2right),rest671) end | |
4855 | | (944,(_,(_,identifier1left,identifier1right))::rest671) => let val | |
4856 | result=MlyValue.ntVOID(()) | |
4857 | in (hojfelds_NT 342,(result,identifier1left,identifier1right),rest671) | |
4858 | end | |
4859 | | (945,(_,(_,literal1left,literal1right))::rest671) => let val result= | |
4860 | MlyValue.ntVOID(()) | |
4861 | in (hojfelds_NT 342,(result,literal1left,literal1right),rest671) end | |
4862 | | (946,(_,(_,PSEUDOTEXT1left,PSEUDOTEXT1right))::rest671) => let val | |
4863 | result=MlyValue.ntVOID(()) | |
4864 | in (hojfelds_NT 342,(result,PSEUDOTEXT1left,PSEUDOTEXT1right),rest671) | |
4865 | end | |
4866 | | _ => raise Hojfeld "_" (*(mlyAction i392)*) | |
4867 | ||
4868 | val void = MlyValue.VOID | |
4869 | val extract = fn a => (fn MlyValue.test_cobol x => x | |
4870 | | _ => let exception ParseInternal | |
4871 | in raise ParseInternal end) a |