1 /* INCLUDE          mrds_dsm_scan.incl.pl1        RDL       August, 1978        */
 2 
 3      dcl     LETTER                 fixed bin internal static options (constant) init (1);
 4      dcl     DIGIT                  fixed bin internal static options (constant) init (2);
 5      dcl     SPECIAL                fixed bin internal static options (constant) init (3);
 6      dcl     QUOTE                  fixed bin internal static options (constant) init (4);
 7      dcl     A_PATH_ENTRY           fixed bin internal static options (constant) init (5);
 8      dcl     NL                     fixed bin internal static options (constant) init (6);
 9      dcl     WHITE_SPACE            fixed bin internal static options (constant) init (7);
10      dcl     ILLEGAL                fixed bin internal static options (constant) init (8);
11      dcl     EOF                    fixed bin internal static options (constant) init (9);
12 
13      declare START                  fixed binary internal static options (constant) init (0);
14      declare CASE_END               fixed binary internal static options (constant) init (10);
15 
16 
17 /* parser token encoding */
18 
19      declare EOI                    fixed binary internal static options (constant) init (0);
20      declare QUOTED_STRING          fixed binary internal static options (constant) init (16);
21      declare BIT_STRING             fixed binary internal static options (constant) init (17);
22      declare PATH_NAME              fixed binary internal static options (constant) init (18);
23      declare ENTRY_NAME             fixed binary internal static options (constant) init (19);
24      declare INTEGER                fixed binary internal static options (constant) init (20);
25      declare REAL_FIXED             fixed binary internal static options (constant) init (21);
26      declare REAL_FLOAT             fixed binary internal static options (constant) init (22);
27      declare IMAG_FIXED             fixed binary internal static options (constant) init (23);
28      declare IMAG_FLOAT             fixed binary internal static options (constant) init (24);
29      declare IDENTIFIER             fixed binary internal static options (constant) init (25);
30 
31 /* encodeing for specials "(", ")", ",", ";", ":", "-", "*", "/", "+", "|", "&", "^", "=", "<", ">" */
32      declare SPECIAL_LIST           char (15) internal static options (constant) init ("(),;:-*/+|&^=<>");
33                                                             /* special characters */
34      declare CODE                   (15) fixed binary internal static options (constant)
35                                     init (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15);
36 
37 /* static variables for scanner */
38 
39      declare static_rsc_ptr         ptr internal static;    /* static storage for restructure control seg ptr */
40 
41      declare char                   char (1) internal static;
42                                                             /* character returned by get_next_char */
43      declare char_type              fixed binary internal static;
44                                                             /* integer encoding for this class of characters */
45      declare char_ptr               ptr internal static;    /* pointer to current character in source */
46      declare line_ptr               ptr internal static;    /* pointer to start of current line */
47      declare line_number            fixed binary (24) internal static;
48                                                             /* current number of source line */
49      declare line_length            fixed binary (24) internal static;
50                                                             /* current length of line */
51      declare token_count            fixed binary (24) internal static;
52                                                             /* index in line(countber of) current token */
53 
54 /* END mrds_rst_scan.incl.pl1           */
55