1 /* BEGIN INCLUDE FILE ... cp_character_types.incl.pl1 */
 2 /* Created:  June 1982 by G. Palter */
 3 
 4 /* Character types used to define Multics command language and subsystem request languages */
 5 
 6 dcl (NORMAL_CHARACTER                   initial ( 0),       /* normal everyday character */
 7 
 8      WHITESPACE                         initial ( 1),       /* separates tokens but is otherwise ignored (ie: does not
 9                                                                appear in the command/request name or any arguments */
10 
11      COMMAND_SEPARATOR                  initial ( 2),       /* separate multiple commands/requests on the line but is
12                                                                otherwise ignored (as above) (semi-colon) */
13      COMMAND_SEPARATOR_OR_WHITESPACE    initial ( 3),       /* separate multiple commands/requests on the line and is also
14                                                                treated as whitespace when rescanning |[...] return values
15                                                                (newline) */
16 
17      SINGLE_TOKEN                       initial ( 4),       /* appears as a one character argument to the command/request
18                                                                even if not surrounded by whitespace (causes a break) */
19 
20      COMPOUND_TOKEN                     initial ( 5),       /* appears as an argument to the command/request even if not
21                                                                surrounded by whitespace; if several of this type character
22                                                                appear on the line without any intervening characters, they
23                                                                are merged into a single argument (eg: ^=) */
24 
25      QUOTE_CHARACTER                    initial ( 6),       /* begin and end a quoted string ("): only the same character
26                                                                ends the quoted string (ie: "' isn't a completed string);
27                                                                within the string, any occurence of this character must be
28                                                                doubled */
29 
30      ACTIVE_STRING_MODIFIER             initial ( 7),       /* modifies interpretation of an active string (|) */
31 
32      BEGIN_ITERATION_1                  initial (17),       /* starts an iteration set; only matches END_ITERATION_1 */
33      BEGIN_ITERATION_2                  initial (18),       /* starts an iteration set; only matches END_ITERATION_2 */
34      BEGIN_ITERATION_3                  initial (19),       /* ... */
35      BEGIN_ITERATION_4                  initial (20),       /* ... */
36      BEGIN_ITERATION_5                  initial (21),       /* ... */
37      BEGIN_ITERATION_6                  initial (22),       /* ... */
38      BEGIN_ITERATION_7                  initial (23),       /* ... */
39      BEGIN_ITERATION_8                  initial (24),       /* ... */
40 
41      END_ITERATION_1                    initial (25),       /* ends an iteration set; only matches BEGIN_ITERATION_1 */
42      END_ITERATION_2                    initial (26),       /* ends an iteration set; only matches BEGIN_ITERATION_2 */
43      END_ITERATION_3                    initial (27),       /* ... */
44      END_ITERATION_4                    initial (28),       /* ... */
45      END_ITERATION_5                    initial (29),       /* ... */
46      END_ITERATION_6                    initial (30),       /* ... */
47      END_ITERATION_7                    initial (31),       /* ... */
48      END_ITERATION_8                    initial (32),       /* ... */
49 
50      BEGIN_ACTIVE_STRING_1              initial (33),       /* starts active string; only matches END_ACTIVE_STRING_1 */
51      BEGIN_ACTIVE_STRING_2              initial (34),       /* starts active string; only matches END_ACTIVE_STRING_2 */
52      BEGIN_ACTIVE_STRING_3              initial (35),       /* ... */
53      BEGIN_ACTIVE_STRING_4              initial (36),       /* ... */
54      BEGIN_ACTIVE_STRING_5              initial (37),       /* ... */
55      BEGIN_ACTIVE_STRING_6              initial (38),       /* ... */
56      BEGIN_ACTIVE_STRING_7              initial (39),       /* ... */
57      BEGIN_ACTIVE_STRING_8              initial (40),       /* ... */
58 
59      END_ACTIVE_STRING_1                initial (41),       /* ends active string; only matches BEGIN_ACTIVE_STRING_1 */
60      END_ACTIVE_STRING_2                initial (42),       /* ends active string; only matches BEGIN_ACTIVE_STRING_2 */
61      END_ACTIVE_STRING_3                initial (43),       /* ... */
62      END_ACTIVE_STRING_4                initial (44),       /* ... */
63      END_ACTIVE_STRING_5                initial (45),       /* ... */
64      END_ACTIVE_STRING_6                initial (46),       /* ... */
65      END_ACTIVE_STRING_7                initial (47),       /* ... */
66      END_ACTIVE_STRING_8                initial (48))       /* ... */
67           fixed binary (9) unsigned static options (constant);
68 
69 /* END INCLUDE FILE ... cp_character_types.incl.pl1 */