1 /* INCLUDE          mrds_rst_scan.incl.pl1        Jim Gray  August, 1978        */
 2 /* 81-06-04 Jim Gray : removed unused constants, and assigned new values
 3    according to the -order option in the lrk input */
 4 
 5 dcl  LETTER fixed bin internal static options (constant) init (1);
 6 dcl  DIGIT fixed bin internal static options (constant) init (2);
 7 dcl  SPECIAL fixed bin internal static options (constant) init (3);
 8 dcl  A_PATH_ENTRY fixed bin internal static options (constant) init (4) ;
 9 dcl  NL fixed bin internal static options (constant) init (5);
10 dcl  WHITE_SPACE fixed bin internal static options (constant) init (6);
11 dcl  ILLEGAL fixed bin internal static options (constant) init (7);
12 dcl  EOF fixed bin internal static options (constant) init (8);
13 
14 declare  START fixed binary internal static options (constant) init (0) ;
15 declare  CASE_END fixed binary internal static options (constant) init (9) ;
16 
17 
18 /* parser token encoding */
19 
20 declare  EOI fixed binary internal static options (constant) init (0) ;
21 declare  PATH_NAME fixed binary internal static options (constant) init (9) ;
22 declare  ENTRY_NAME fixed binary internal static options (constant) init (10) ;
23 declare  INTEGER fixed binary internal static options (constant) init (11) ;
24 declare  IDENTIFIER fixed binary internal static options (constant) init (12) ;
25 
26 /* encoding for specials "(", ")", ",", ";", ":", "-", "*", "+" */
27    declare  SPECIAL_LIST char (8) internal static options (constant) init ("(),;:-*+") ; /* special characters */
28 declare  CODE (8) fixed binary internal static options (constant) init (1, 2, 3, 4, 5, 6, 7, 8) ;
29 
30 /* static variables for scanner */
31 
32 declare  static_rsc_ptr ptr internal static ;               /* static storage for restructure control seg ptr */
33 
34 declare  char char (1) internal static ;                    /* character returned by get_next_char */
35 declare  char_type fixed binary internal static ;           /* integer encoding for this class of characters */
36 declare  char_ptr ptr internal static ;                     /* pointer to current character in source */
37 declare  line_ptr ptr internal static ;                     /* pointer to start of current line */
38 declare  line_number fixed binary (24) internal static ;    /* current number of source line */
39 declare  line_length fixed binary (24) internal static ;    /* current length of line */
40 declare  token_count fixed binary (24) internal static ;    /* index in line(countber of) current token */
41 
42 /* END mrds_rst_scan.incl.pl1           */
43