1 /* BEGIN INCLUDE FILE ... probe_scan_dcls.incl.pl1
 2 
 3    James R. Davis 27 July 79
 4    Modified JMAthane June 83 to add PASCAL_ARROW char type
 5    Added COLON_CHAR_TYPE to be used in Pascal operator ":=" 07/26/83 S. Herbst
 6    Modified April 88 Hinatsu to add the C_ADDRESS_CHAR_TYPE, and
 7     C_MOD_CHAR_TYPE to support C
 8 
 9    The names of all the  STATES the Finite State Machine can assume */
10 
11 
12 
13 /****^  HISTORY COMMENTS:
14   1) change(88-09-20,WAAnderson), approve(88-09-20,MCR7952),
15      audit(88-09-30,JRGray), install(88-10-24,MR12.2-1184):
16      Added declarations for C input action tables.
17                                                    END HISTORY COMMENTS */
18 
19 
20 dcl          (NULL_STATE            init (1),
21              POSSIBLE_DOUBLE_STATE  init (2),
22              NAME_STATE             init (3),
23              STRING_STATE           init (4),
24              QUOTE_SEEN_STATE       init (5),
25              BIT_STR_END_STATE      init (6),
26              DOT_SEEN_STATE         init (7),
27              NUMBER_PRE_DOT_STATE   init (8),
28              NUMBER_POST_DOT_STATE  init (9),
29              NUMBER_EXP1_STATE      init (10),
30              NUMBER_EXP2_STATE      init (11),
31              IN_DOT_OP_STATE        init (12),
32              PTR_WORD_STATE         init (13),
33              PTR_BIT_STATE          init (14))
34                                     fixed bin internal static options (constant);
35 
36 /* The types of single character that are recognized: */
37 
38      dcl     (ILLEGAL_CHAR_TYPE     init (0),
39              LEFT_PAREN_CHAR_TYPE   init (1),
40              RIGHT_PAREN_CHAR_TYPE  init (2),
41              DOT_CHAR_TYPE          init (3),
42              VERTICAL_BAR_CHAR_TYPE init (4),
43              PLUS_CHAR_TYPE         init (5),
44              MINUS_CHAR_TYPE        init (6),
45              GREATER_CHAR_TYPE      init (7),
46              LESS_CHAR_TYPE         init (8),
47              EQUAL_CHAR_TYPE        init (9),
48              NOT_CHAR_TYPE          init (10),              /* ^ */
49              ZERO_CHAR_TYPE         init (11),              /* 0 */
50              RADIX_DIGITS_CHAR_TYPE init (12),              /* 1-4 can be used after "..."b */
51              OCTAL_DIGITS_CHAR_TYPE init (13),              /* 5 - 7 */
52              OTHER_DIGITS_CHAR_TYPE init (14),              /* 8-9 */
53              LETTER_B_CHAR_TYPE     init (15),              /* speaking words of wisdom */
54              LETTER_E_CHAR_TYPE     init (16),
55              LETTER_I_CHAR_TYPE     init (17),
56              LETTER_O_CHAR_TYPE     init (18),
57              LETTER_F_CHAR_TYPE     init (19),
58              QUOTE_CHAR_TYPE        init (20),              /* ",  and ' for FORTRAN */
59              WHITE_SPACE_CHAR_TYPE  init (21),              /* SP, CR, HT */
60              OTHER_LETTER_CHAR_TYPE init (22),
61              COLON_CHAR_TYPE        init (23),              /* : */
62              OTHER_OPS_CHAR_TYPE    init (24),
63              PASCAL_ARROW_CHAR_TYPE init (25),
64              C_ADDRESS_CHAR_TYPE    init (26),
65              C_MOD_CHAR_TYPE        init (27)) fixed bin (17) unal internal static options (constant);
66 
67 /* END INCLUDE FILE ... probe_scan_dcls.incl.pl1 */