1 /* BEGIN INCLUDE FILE ..... lalr_get_symbol.incl.pl1 ..... 04/28/1984 */
 2 /* format: style4,indattr,idind30 */
 3 dcl  get_symbol_data_ptr           ptr;                     /* Pointer to the following structure */
 4 dcl  1 get_symbol_data             aligned based (get_symbol_data_ptr),
 5        2 print_diagnostics         bit (1),                 /* Switch enabling diagnostic displays */
 6        2 input_length              fixed bin (21),          /* Length of current input segment */
 7        2 input_pointer             ptr,                     /* Pointer to base of current input segment */
 8        2 column_one_pos            fixed bin (21),          /* Offset of first character of current line */
 9        2 next_char_pos             fixed bin (21),          /* Offset of next character to be scanned */
10        2 next_newline_pos          fixed bin (21),          /* Offset of next unscanned newline */
11        2 first_char_pos            fixed bin (21),          /* Offset of first character of current symbol */
12        2 length                    fixed bin,               /* Length of current symbol */
13        2 T_length                  fixed bin,               /* Length of cannonicalized symbol */
14        2 T_pointer                 ptr,                     /* Pointer to cannonicalized symbol */
15        2 line_id                   aligned,
16          3 file                    fixed bin unaligned,     /* Include file number */
17          3 line                    fixed bin unaligned,     /* Line number within include file */
18        2 first_symbol              bit (1),                 /* True for first symbol on a line */
19        2 force_first_symbol        bit (1);
20 
21 /* END INCLUDE FILE ..... lalr_get_symbol.incl.pl1 */