1
2
3
4
5
6
7
8
9
10
11
12
13 dcl (EXTERNAL_ROUTINE init(0),
14 FORWARD_CHARACTER init(1),
15 BACKWARD_CHARACTER init(2),
16 FORWARD_DELETE_CHARACTER init(3),
17 BACKWARD_DELETE_CHARACTER
18 init(4),
19 MOVE_TO_END_OF_LINE init(5),
20 MOVE_TO_BEGINNING_OF_LINE
21 init(6),
22 KILL_TO_END_OF_LINE init(7),
23 KILL_TO_BEGINNING_OF_LINE
24 init(8),
25 FORWARD_WORD init(9),
26 BACKWARD_WORD init(10),
27 FORWARD_DELETE_WORD init(11),
28 BACKWARD_DELETE_WORD init(12),
29 QUOTE_CHARACTER init(13),
30 CLEAR_WINDOW init(14),
31 TWIDDLE_CHARACTERS init(15),
32 DISPLAY_EDITOR_DOCUMENTATION
33 init(16),
34 SELF_INSERT init(17),
35 YANK_FROM_KILL_RING init(18),
36 YANK_PREVIOUS_FROM_KILL_RING
37 init(19),
38 TERMINATE_INPUT_LINE init(20),
39 UNDEFINED init(21),
40 PROCESS_INPUT_ESCAPE init(22),
41 NUMBER_READER_0 init(23),
42 NUMBER_READER_1 init(24),
43 NUMBER_READER_2 init(25),
44 NUMBER_READER_3 init(26),
45 NUMBER_READER_4 init(27),
46 NUMBER_READER_5 init(28),
47 NUMBER_READER_6 init(29),
48 NUMBER_READER_7 init(30),
49 NUMBER_READER_8 init(31),
50 NUMBER_READER_9 init(32),
51 MULTIPLIER init(33),
52 LOWERCASE_WORD init(34),
53 UPPERCASE_WORD init(35),
54 INITIAL_CAPITAL init(36),
55 TWIDDLE_WORDS init(37),
56 NEGATIVE_NUMBER_READER init(38),
57
58
59 HIGHEST_BUILTIN_ROUTINE_VALUE
60 init(38)
61 ) fixed bin static options(constant);
62
63 dcl builtin_routine_names (-1:38) char(32) static options (constant) init
64 ("PREFIX_KEY",
65 "USER_DEFINED_COMMAND",
66 "FORWARD_CHARACTER",
67 "BACKWARD_CHARACTER",
68 "FORWARD_DELETE_CHARACTER",
69 "BACKWARD_DELETE_CHARACTER",
70 "MOVE_TO_END_OF_LINE",
71 "MOVE_TO_BEGINNING_OF_LINE",
72 "KILL_TO_END_OF_LINE",
73 "KILL_TO_BEGINNING_OF_LINE",
74 "FORWARD_WORD",
75 "BACKWARD_WORD",
76 "FORWARD_DELETE_WORD",
77 "BACKWARD_DELETE_WORD",
78 "QUOTE_CHARACTER",
79 "CLEAR_WINDOW",
80 "TWIDDLE_CHARACTERS",
81 "DISPLAY_EDITOR_DOCUMENTATION",
82 "SELF_INSERT",
83 "YANK_FROM_KILL_RING",
84 "YANK_PREVIOUS_FROM_KILL_RING",
85 "TERMINATE_INPUT_LINE",
86 "UNDEFINED",
87 "PROCESS_INPUT_ESCAPE",
88 "NUMBER_READER_0",
89 "NUMBER_READER_1",
90 "NUMBER_READER_2",
91 "NUMBER_READER_3",
92 "NUMBER_READER_4",
93 "NUMBER_READER_5",
94 "NUMBER_READER_6",
95 "NUMBER_READER_7",
96 "NUMBER_READER_8",
97 "NUMBER_READER_9",
98 "MULTIPLIER",
99 "LOWERCASE_WORD",
100 "UPPERCASE_WORD",
101 "INITIAL_CAPITAL",
102 "TWIDDLE_WORDS",
103 "NEGATIVE_NUMBER_READER");
104
105 dcl builtin_descriptions (-1:38) char (128) varying static options (constant) init
106 ("Reads another key and dispatches.",
107 "A user-defined command for which no description was supplied.",
108 "Moves forward over one character.",
109 "Moves backward over one character.",
110 "Deletes the character at the cursor.",
111 "Deletes the character to the left of the cursor.",
112 "Moves to the end of the input line.",
113 "Moves to the beginning of the input line.",
114 "Deletes the text from the cursor to the end of the input line, saving it on the kill ring.",
115 "Deletes the text from the cursor to the beginning of the input line, saving it on the kill ring.",
116 "Moves to the end of the current or following word.",
117 "Moves to the beginning of the current or preceding word.",
118 "Deletes the text from the cursor to the end of the current word, saving it on the kill ring.",
119 "Deletes the text from the cursor to the beginning of the current word, saving it on the kill ring.",
120 "Inserts the next character typed into the input line.",
121 "Clears the input window, and redisplays the current input line at the top of the window.",
122 "Interchanges the two characters to the left of the cursor.",
123 "Displays the list of standard input editor commands.",
124 "Inserts the character typed.",
125 "Inserts the top item from the kill ring.",
126 "Deletes the text just yanked, rotate the kill ring, and insert the new top item.",
127 "Enters the input line.",
128 "Undefined key - rings the terminal bell.",
129 "Does appropriate ""backslash-style"" input escape processing.",
130 (10) ("Begins reading a numeric argument."),
131 "If followed by digits, uses them as the numeric argument, otherwise multiplies the num-arg by four.",
132 "Lowercases the current word.",
133 "Uppercases the current word.",
134 "Uppercases the first letter of the current word, and lowercases the rest of the letters.",
135 "Interchange the current word and the preceding word.",
136 "Begins reading a negative numeric argument.");
137
138 dcl BUILTIN_INFO_DIR char (168) static options (constant) init (">doc>info");
139 dcl BUILTIN_INFO_ENTRY char (32) static options (constant) init ("video_editing.gi");
140
141
142
143 dcl (REJECT init(0),
144 IGNORE init(1),
145 REPEAT init(2),
146 PASS init(3),
147
148 HIGHEST_NUMARG_ACTION_VALUE
149 init(3)
150 ) fixed bin static options(constant);
151
152
153
154 dcl numarg_action_names (0:3) char(6) static options (constant) init
155 ("REJECT",
156 "INGORE",
157 "REPEAT",
158 "PASS");
159
160