1 /* BEGIN INCLUDE FILE ... probe_scan_data.incl.pl1  */
 2 
 3 
 4 
 5 
 6 /****^  HISTORY COMMENTS:
 7   1) change(88-09-20,WAAnderson), approve(88-09-20,MCR7952),
 8      audit(88-09-30,JRGray), install(88-10-24,MR12.2-1184):
 9      Added info for C input action tables.
10                                                    END HISTORY COMMENTS */
11 
12 
13 /* Modified June 83 JMAthane to add PASCAL */
14 /* Added actions for COLON_CHAR_TYPE, default like OTHER_OPS_CHAR_TYPE 07/26/83 S. Herbst */
15 /* Changed action(7,3) to 71 so that . + . -> ..  03/09/84 S. Herbst */
16 /* Modified April 88 Hinatsu to add C char type, C action table */
17 /*  and <<,>>,==,!= to the double table */
18 
19 
20 /* for the 14 states and the 25 char types - the transfer table
21 
22    whats stored here is the subscript of the label constant in
23    probe_scan_input_ to transfer to when a char of type T is read in
24    state S.
25 
26 */
27 
28 
29      dcl     1 probe_scan_data      aligned,
30                2 pl1_char_type      (0:127) fixed bin (17) unal,
31                2 fortran_char_type  (0:127) fixed bin (17) unal,
32                2 cobol_char_type    (0:127) fixed bin (17) unal,
33                2 pascal_char_type   (0:127) fixed bin (17) unal,
34                2 c_char_type        (0:127) fixed bin (17) unal,
35                2 operator_type
36                                     (0:127) fixed bin (17) unal init
37                                     (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 34, 0, 0, 0, 0, 0, /* HT, NL, FF, CR */
38                                     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* Control Characters */
39                                     0, 10, 0, 10, 17, 16, 15, 0, 29, 30, 3, 1, 21, 2, 13, 4, /*  !"#$%&'()*+,-./ */
40                                     0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 14, 33, 7, 9, 8, 26, /* 0123456789:;<=>? */
41                                     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* @ABCDEFGHIJKLMNO */
42                                     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 18, 0, 19, 6, 0, /* PQRSTUVWXYZ[\]^_ */
43                                     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* `abcdefghijklmno */
44                                     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0), /* pqrstuvwxyz{|}~ DEL */
45                2 pl1_action_table
46                                     (14, 0:27) fixed bin (17) unal init (
47                                     99, 11, 12, 14, 13, 13, 15, 15, 15, 15, 15, 20, 20, 20, 20, 30, 30, 30, 30, 30, 40, 1, 30, 13, 13, *, *, *,
48                                     70, 70, 70, 70, 70, 70, 70, 71, 71, 71, 71, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, *, *, *,
49                                     99, 32, 32, 32, 65, 32, 32, 32, 32, 32, 32, 31, 31, 31, 31, 31, 31, 31, 31, 31, 32, 32, 31, 32, 32, *, *, *,
50                                     41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 42, 41, 41, 41, 41, *, *, *,
51                                     45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 46, 45, 45, 47, 45, 48, 45, 45, 45, 45, *, *, *,
52                                     51, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, 50, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, *, *, *,
53                                     55, 55, 55, 71, 55, 55, 55, 55, 55, 55, 55, 21, 21, 21, 21, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, *, *, *,
54                                     23, 23, 23, 24, 60, 23, 23, 23, 23, 23, 23, 22, 22, 22, 22, 22, 26, 27, 28, 26, 23, 23, 23, 23, 23, *, *, *,
55                                     23, 23, 23, 90, 91, 23, 23, 23, 23, 23, 23, 22, 22, 22, 22, 22, 26, 27, 92, 26, 23, 23, 23, 23, 23, *, *, *,
56                                     23, 23, 23, 90, 92, 25, 25, 23, 23, 23, 23, 22, 22, 22, 22, 22, 92, 27, 92, 92, 23, 23, 23, 23, 23, *, *, *,
57                                     23, 23, 23, 90, 92, 22, 22, 23, 23, 23, 23, 22, 22, 22, 22, 22, 92, 27, 92, 92, 23, 23, 23, 23, 23, *, *, *,
58                                     *, *, *, *, *, *, *, *, *, *, *, *, *, *, *, *, *, *, *, *, *, *, *, *, *, *, *, *,
59                                     93, 62, 64, 64, 64, 64, 64, 64, 64, 64, 64, 61, 61, 61, 93, 93, 93, 93, 93, 93, 93, 64, 93, 64, 64, *, *, *,
60                                     95, 95, 63, 95, 95, 95, 95, 95, 95, 95, 95, 61, 61, 61, 61, 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, *, *, *),
61                2 fortran_action_table (14, 0:27) fixed bin (17) unal,
62                2 cobol_action_table (14, 0:27) fixed bin (17) unal,
63                2 pascal_action_table (14, 0:27) fixed bin (17) unal,
64                2 c_action_table (14, 0:27) fixed bin (17) unal,
65                2 doubles            (13),
66                  3 pair             char (2),
67                  3 type             fixed bin,
68                2 fort_ops           (9),
69                  3 name             char (4) aligned,
70                  3 op_code          fixed bin,
71                2 pasc_ops           (3),
72                  3 name             char (4) aligned,
73                  3 op_code          fixed bin;
74 
75 /* END INCLUDE FILE ... probe_scan_data.incl.pl1 */