1 /* Begin include file lalr_parser_info.incl.pl1 */
 2 /* format: style4,indattr,idind30 */
 3 /* Standard arguments for the parser procedure  BIM 11/82 */
 4 
 5 declare  lalr_parser_info_ptr          pointer;
 6 declare  1 lalr_parser_info            aligned based (lalr_parser_info_ptr),
 7            2 version                   char (8) aligned,
 8            2 caller                    char (32) unaligned,
 9            2 flags                     aligned,
10              3 debug_trace             bit (1) unaligned,
11              3 skip_recovery           bit (1) unaligned,
12              3 local_recovery          bit (1) unaligned,
13              3 call_skip_cleanup       bit (1) unaligned,
14              3 call_make_symbol        bit (1) unaligned,
15              3 print_source            bit (1) unaligned,
16              3 terminal_input          bit (1) unaligned,
17              3 call_report_error       bit (1) unaligned,
18              3 defer_actions           bit (1) unaligned,
19              3 call_init_semantics     bit (1) unaligned,
20              3 call_semantics          bit (1) unaligned,
21              3 call_term_semantics     bit (1) unaligned,
22            2 parse_control             aligned,
23              3 max_recover             fixed bin,
24              3 local_reads             fixed bin,
25              3 skip_depth              fixed bin,
26              3 skip_reads              fixed bin,
27            2 lex_stack_info            aligned,
28              3 stack_ptr               pointer,
29              3 lookahead_size          fixed bin,
30              3 lex_stack_size          fixed bin,
31            2 error_info                aligned,
32              3 report_error            entry (ptr),
33              3 highest_severity        fixed bin,
34              3 local_recoveries        fixed bin,
35              3 skip_recoveries         fixed bin,
36              3 cleanup_for_skip        entry (pointer, fixed bin),
37              3 make_symbol             entry (pointer, fixed bin, fixed bin, fixed bin),
38            2 semantics_info            aligned,
39              3 init_semantics          entry (pointer, fixed bin (35)),
40              3 term_semantics          entry (pointer),
41              3 semantics               entry (pointer, fixed bin, fixed bin, fixed bin),
42              3 semantics_info_ptr      pointer,
43            2 scanner_info              aligned,
44              3 init_scanner            entry (pointer, pointer, fixed bin (21), fixed bin (35)),
45              3 term_scanner            entry (pointer),
46              3 scanner                 entry (pointer, fixed bin),
47              3 scanner_info_ptr        pointer,
48              3 scan_sem_com            bit (36) aligned,    /* scanner-semantics-communication */
49            2 grammar_info              aligned,
50              3 terminals_list_ptr      pointer,
51              3 terminal_characters_ptr pointer,
52              3 dpda_ptr                pointer,
53              3 skip_ptr                pointer,
54              3 standard_prelude_ptr    pointer,
55              3 production_names_ptr    pointer,
56              3 variables_list_ptr      pointer,
57              3 variable_characters_ptr pointer;
58 
59 declare  lalr_parser_error_info_ptr    ptr;
60 declare  1 lalr_parser_error_info      based (lalr_parser_error_info_ptr),
61            2 error_number              fixed bin,
62            2 severity                  fixed bin,
63            2 line_id                   aligned,
64              3 file                    fixed bin (17) unaligned,
65              3 line                    fixed bin (17) unaligned,
66            2 text                      char (250) varying;
67 
68 declare  lalr_parser_info_version_1    char (8) aligned internal static options (constant) init ("lpii001");
69 
70 /* End include file lalr_parser_info.incl.pl1 */
71