Subversion Repositories tendra.SVN

Rev

Rev 2 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 7
Line 35... Line 35...
35 
#ifndef CMD_OPS_H_INCLUDED
 35 
#ifndef CMD_OPS_H_INCLUDED
36 
#define CMD_OPS_H_INCLUDED
 36 
#define CMD_OPS_H_INCLUDED
37 
 
 37 
 
38 
/* Operations for union COMMAND */
 38 
/* Operations for union COMMAND */
39 
 
 39 
 
40 
#pragma token PROC ( EXP : COMMAND : ) EXP : unsigned : TAG_cmd #
 40 
#pragma token PROC(EXP : COMMAND :) EXP : unsigned : TAG_cmd #
41 
#pragma interface TAG_cmd
 41 
#pragma interface TAG_cmd
42 
 
 42 
 
43 
 
 43 
 
44 
/* Operations for component line of union COMMAND */
 44 
/* Operations for component line of union COMMAND */
45 
 
 45 
 
46 
#pragma token PROC ( EXP : COMMAND : )\
 46 
#pragma token PROC(EXP : COMMAND :)\
47 
    EXP : PTR ( int ) : cmd_line #
 47 
    EXP : PTR(int) : cmd_line #
48 
#pragma interface cmd_line
 48 
#pragma interface cmd_line
49 
 
 49 
 
50 
/* Operations for field simple of union COMMAND */
 50 
/* Operations for field simple of union COMMAND */
51 
 
 51 
 
52 
#pragma token EXP const : unsigned : cmd_simple_tag #
 52 
#pragma token EXP const : unsigned : cmd_simple_tag #
53 
#pragma token PROC ( EXP : COMMAND : ) EXP : int : IS_cmd_simple #
 53 
#pragma token PROC(EXP : COMMAND :) EXP : int : IS_cmd_simple #
54 
#pragma interface cmd_simple_tag IS_cmd_simple
 54 
#pragma interface cmd_simple_tag IS_cmd_simple
55 
 
 55 
 
56 
#pragma token PROC ( EXP : COMMAND : )\
 56 
#pragma token PROC(EXP : COMMAND :)\
57 
    EXP : PTR ( string ) : cmd_simple_text #
 57 
    EXP : PTR(string) : cmd_simple_text #
58 
#pragma interface cmd_simple_text
 58 
#pragma interface cmd_simple_text
59 
 
 59 
 
60 
#pragma token PROC (\
 60 
#pragma token PROC(\
61 
	EXP : int :,\
 61 
	EXP : int :,\
62 
	EXP : string :,\
 62 
	EXP : string :,\
63 
	EXP lvalue : COMMAND :\
 63 
	EXP lvalue : COMMAND :\
64 
    ) STATEMENT MAKE_cmd_simple #
 64 
    ) STATEMENT MAKE_cmd_simple #
65 
#pragma interface MAKE_cmd_simple
 65 
#pragma interface MAKE_cmd_simple
66 
 
 66 
 
67 
#pragma token PROC (\
 67 
#pragma token PROC(\
68 
	EXP lvalue : int :,\
 68 
	EXP lvalue : int :,\
69 
	EXP lvalue : string :,\
 69 
	EXP lvalue : string :,\
70 
	EXP : COMMAND :\
 70 
	EXP : COMMAND :\
71 
    ) STATEMENT DECONS_cmd_simple #
 71 
    ) STATEMENT DECONS_cmd_simple #
72 
#pragma interface DECONS_cmd_simple
 72 
#pragma interface DECONS_cmd_simple
73 
 
 73 
 
74 
#pragma token PROC (\
 74 
#pragma token PROC(\
75 
	EXP : DESTROYER :,\
 75 
	EXP : DESTROYER :,\
76 
	EXP lvalue : int :,\
 76 
	EXP lvalue : int :,\
77 
	EXP lvalue : string :,\
 77 
	EXP lvalue : string :,\
78 
	EXP : COMMAND :\
 78 
	EXP : COMMAND :\
79 
    ) STATEMENT DESTROY_cmd_simple #
 79 
    ) STATEMENT DESTROY_cmd_simple #
Line 81... Line 81...
81 
 
 81 
 
82 
 
 82 
 
83 
/* Operations for field compound of union COMMAND */
 83 
/* Operations for field compound of union COMMAND */
84 
 
 84 
 
85 
#pragma token EXP const : unsigned : cmd_compound_tag #
 85 
#pragma token EXP const : unsigned : cmd_compound_tag #
86 
#pragma token PROC ( EXP : COMMAND : ) EXP : int : IS_cmd_compound #
 86 
#pragma token PROC(EXP : COMMAND :) EXP : int : IS_cmd_compound #
87 
#pragma interface cmd_compound_tag IS_cmd_compound
 87 
#pragma interface cmd_compound_tag IS_cmd_compound
88 
 
 88 
 
89 
#pragma token PROC ( EXP : COMMAND : )\
 89 
#pragma token PROC(EXP : COMMAND :)\
90 
    EXP : PTR ( LIST ( COMMAND ) ) : cmd_compound_seq #
 90 
    EXP : PTR(LIST(COMMAND)) : cmd_compound_seq #
91 
#pragma interface cmd_compound_seq
 91 
#pragma interface cmd_compound_seq
92 
 
 92 
 
93 
#pragma token PROC (\
 93 
#pragma token PROC(\
94 
	EXP : int :,\
 94 
	EXP : int :,\
95 
	EXP : LIST ( COMMAND ) :,\
 95 
	EXP : LIST(COMMAND) :,\
96 
	EXP lvalue : COMMAND :\
 96 
	EXP lvalue : COMMAND :\
97 
    ) STATEMENT MAKE_cmd_compound #
 97 
    ) STATEMENT MAKE_cmd_compound #
98 
#pragma interface MAKE_cmd_compound
 98 
#pragma interface MAKE_cmd_compound
99 
 
 99 
 
100 
#pragma token PROC (\
 100 
#pragma token PROC(\
101 
	EXP lvalue : int :,\
 101 
	EXP lvalue : int :,\
102 
	EXP lvalue : LIST ( COMMAND ) :,\
 102 
	EXP lvalue : LIST(COMMAND) :,\
103 
	EXP : COMMAND :\
 103 
	EXP : COMMAND :\
104 
    ) STATEMENT DECONS_cmd_compound #
 104 
    ) STATEMENT DECONS_cmd_compound #
105 
#pragma interface DECONS_cmd_compound
 105 
#pragma interface DECONS_cmd_compound
106 
 
 106 
 
107 
#pragma token PROC (\
 107 
#pragma token PROC(\
108 
	EXP : DESTROYER :,\
 108 
	EXP : DESTROYER :,\
109 
	EXP lvalue : int :,\
 109 
	EXP lvalue : int :,\
110 
	EXP lvalue : LIST ( COMMAND ) :,\
 110 
	EXP lvalue : LIST(COMMAND) :,\
111 
	EXP : COMMAND :\
 111 
	EXP : COMMAND :\
112 
    ) STATEMENT DESTROY_cmd_compound #
 112 
    ) STATEMENT DESTROY_cmd_compound #
113 
#pragma interface DESTROY_cmd_compound
 113 
#pragma interface DESTROY_cmd_compound
114 
 
 114 
 
115 
 
 115 
 
116 
/* Operations for field loop of union COMMAND */
 116 
/* Operations for field loop of union COMMAND */
117 
 
 117 
 
118 
#pragma token EXP const : unsigned : cmd_loop_tag #
 118 
#pragma token EXP const : unsigned : cmd_loop_tag #
119 
#pragma token PROC ( EXP : COMMAND : ) EXP : int : IS_cmd_loop #
 119 
#pragma token PROC(EXP : COMMAND :) EXP : int : IS_cmd_loop #
120 
#pragma interface cmd_loop_tag IS_cmd_loop
 120 
#pragma interface cmd_loop_tag IS_cmd_loop
121 
 
 121 
 
122 
#pragma token PROC ( EXP : COMMAND : )\
 122 
#pragma token PROC(EXP : COMMAND :)\
123 
    EXP : PTR ( string ) : cmd_loop_control #
 123 
    EXP : PTR(string) : cmd_loop_control #
124 
#pragma interface cmd_loop_control
 124 
#pragma interface cmd_loop_control
125 
 
 125 
 
126 
#pragma token PROC ( EXP : COMMAND : )\
 126 
#pragma token PROC(EXP : COMMAND :)\
127 
    EXP : PTR ( COMMAND ) : cmd_loop_body #
 127 
    EXP : PTR(COMMAND) : cmd_loop_body #
128 
#pragma interface cmd_loop_body
 128 
#pragma interface cmd_loop_body
129 
 
 129 
 
130 
#pragma token PROC (\
 130 
#pragma token PROC(\
131 
	EXP : int :,\
 131 
	EXP : int :,\
132 
	EXP : string :,\
 132 
	EXP : string :,\
133 
	EXP : COMMAND :,\
 133 
	EXP : COMMAND :,\
134 
	EXP lvalue : COMMAND :\
 134 
	EXP lvalue : COMMAND :\
135 
    ) STATEMENT MAKE_cmd_loop #
 135 
    ) STATEMENT MAKE_cmd_loop #
136 
#pragma interface MAKE_cmd_loop
 136 
#pragma interface MAKE_cmd_loop
137 
 
 137 
 
138 
#pragma token PROC (\
 138 
#pragma token PROC(\
139 
	EXP lvalue : int :,\
 139 
	EXP lvalue : int :,\
140 
	EXP lvalue : string :,\
 140 
	EXP lvalue : string :,\
141 
	EXP lvalue : COMMAND :,\
 141 
	EXP lvalue : COMMAND :,\
142 
	EXP : COMMAND :\
 142 
	EXP : COMMAND :\
143 
    ) STATEMENT DECONS_cmd_loop #
 143 
    ) STATEMENT DECONS_cmd_loop #
144 
#pragma interface DECONS_cmd_loop
 144 
#pragma interface DECONS_cmd_loop
145 
 
 145 
 
146 
#pragma token PROC (\
 146 
#pragma token PROC(\
147 
	EXP : DESTROYER :,\
 147 
	EXP : DESTROYER :,\
148 
	EXP lvalue : int :,\
 148 
	EXP lvalue : int :,\
149 
	EXP lvalue : string :,\
 149 
	EXP lvalue : string :,\
150 
	EXP lvalue : COMMAND :,\
 150 
	EXP lvalue : COMMAND :,\
151 
	EXP : COMMAND :\
 151 
	EXP : COMMAND :\
Line 154... Line 154...
154 
 
 154 
 
155 
 
 155 
 
156 
/* Operations for field cond of union COMMAND */
 156 
/* Operations for field cond of union COMMAND */
157 
 
 157 
 
158 
#pragma token EXP const : unsigned : cmd_cond_tag #
 158 
#pragma token EXP const : unsigned : cmd_cond_tag #
159 
#pragma token PROC ( EXP : COMMAND : ) EXP : int : IS_cmd_cond #
 159 
#pragma token PROC(EXP : COMMAND :) EXP : int : IS_cmd_cond #
160 
#pragma interface cmd_cond_tag IS_cmd_cond
 160 
#pragma interface cmd_cond_tag IS_cmd_cond
161 
 
 161 
 
162 
#pragma token PROC ( EXP : COMMAND : )\
 162 
#pragma token PROC(EXP : COMMAND :)\
163 
    EXP : PTR ( string ) : cmd_cond_control #
 163 
    EXP : PTR(string) : cmd_cond_control #
164 
#pragma interface cmd_cond_control
 164 
#pragma interface cmd_cond_control
165 
 
 165 
 
166 
#pragma token PROC ( EXP : COMMAND : )\
 166 
#pragma token PROC(EXP : COMMAND :)\
167 
    EXP : PTR ( COMMAND ) : cmd_cond_true_code #
 167 
    EXP : PTR(COMMAND) : cmd_cond_true_code #
168 
#pragma interface cmd_cond_true_code
 168 
#pragma interface cmd_cond_true_code
169 
 
 169 
 
170 
#pragma token PROC ( EXP : COMMAND : )\
 170 
#pragma token PROC(EXP : COMMAND :)\
171 
    EXP : PTR ( COMMAND ) : cmd_cond_false_code #
 171 
    EXP : PTR(COMMAND) : cmd_cond_false_code #
172 
#pragma interface cmd_cond_false_code
 172 
#pragma interface cmd_cond_false_code
173 
 
 173 
 
174 
#pragma token PROC (\
 174 
#pragma token PROC(\
175 
	EXP : int :,\
 175 
	EXP : int :,\
176 
	EXP : string :,\
 176 
	EXP : string :,\
177 
	EXP : COMMAND :,\
 177 
	EXP : COMMAND :,\
178 
	EXP : COMMAND :,\
 178 
	EXP : COMMAND :,\
179 
	EXP lvalue : COMMAND :\
 179 
	EXP lvalue : COMMAND :\
180 
    ) STATEMENT MAKE_cmd_cond #
 180 
    ) STATEMENT MAKE_cmd_cond #
181 
#pragma interface MAKE_cmd_cond
 181 
#pragma interface MAKE_cmd_cond
182 
 
 182 
 
183 
#pragma token PROC (\
 183 
#pragma token PROC(\
184 
	EXP lvalue : int :,\
 184 
	EXP lvalue : int :,\
185 
	EXP lvalue : string :,\
 185 
	EXP lvalue : string :,\
186 
	EXP lvalue : COMMAND :,\
 186 
	EXP lvalue : COMMAND :,\
187 
	EXP lvalue : COMMAND :,\
 187 
	EXP lvalue : COMMAND :,\
188 
	EXP : COMMAND :\
 188 
	EXP : COMMAND :\
189 
    ) STATEMENT DECONS_cmd_cond #
 189 
    ) STATEMENT DECONS_cmd_cond #
190 
#pragma interface DECONS_cmd_cond
 190 
#pragma interface DECONS_cmd_cond
191 
 
 191 
 
192 
#pragma token PROC (\
 192 
#pragma token PROC(\
193 
	EXP : DESTROYER :,\
 193 
	EXP : DESTROYER :,\
194 
	EXP lvalue : int :,\
 194 
	EXP lvalue : int :,\
195 
	EXP lvalue : string :,\
 195 
	EXP lvalue : string :,\
196 
	EXP lvalue : COMMAND :,\
 196 
	EXP lvalue : COMMAND :,\
197 
	EXP lvalue : COMMAND :,\
 197 
	EXP lvalue : COMMAND :,\
Line 201... Line 201...
201 
 
 201 
 
202 
 
 202 
 
203 
/* Operations for field use of union COMMAND */
 203 
/* Operations for field use of union COMMAND */
204 
 
 204 
 
205 
#pragma token EXP const : unsigned : cmd_use_tag #
 205 
#pragma token EXP const : unsigned : cmd_use_tag #
206 
#pragma token PROC ( EXP : COMMAND : ) EXP : int : IS_cmd_use #
 206 
#pragma token PROC(EXP : COMMAND :) EXP : int : IS_cmd_use #
207 
#pragma interface cmd_use_tag IS_cmd_use
 207 
#pragma interface cmd_use_tag IS_cmd_use
208 
 
 208 
 
209 
#pragma token PROC ( EXP : COMMAND : )\
 209 
#pragma token PROC(EXP : COMMAND :)\
210 
    EXP : PTR ( string ) : cmd_use_sort #
 210 
    EXP : PTR(string) : cmd_use_sort #
211 
#pragma interface cmd_use_sort
 211 
#pragma interface cmd_use_sort
212 
 
 212 
 
213 
#pragma token PROC ( EXP : COMMAND : )\
 213 
#pragma token PROC(EXP : COMMAND :)\
214 
    EXP : PTR ( string ) : cmd_use_cons #
 214 
    EXP : PTR(string) : cmd_use_cons #
215 
#pragma interface cmd_use_cons
 215 
#pragma interface cmd_use_cons
216 
 
 216 
 
217 
#pragma token PROC (\
 217 
#pragma token PROC(\
218 
	EXP : int :,\
 218 
	EXP : int :,\
219 
	EXP : string :,\
 219 
	EXP : string :,\
220 
	EXP : string :,\
 220 
	EXP : string :,\
221 
	EXP lvalue : COMMAND :\
 221 
	EXP lvalue : COMMAND :\
222 
    ) STATEMENT MAKE_cmd_use #
 222 
    ) STATEMENT MAKE_cmd_use #
223 
#pragma interface MAKE_cmd_use
 223 
#pragma interface MAKE_cmd_use
224 
 
 224 
 
225 
#pragma token PROC (\
 225 
#pragma token PROC(\
226 
	EXP lvalue : int :,\
 226 
	EXP lvalue : int :,\
227 
	EXP lvalue : string :,\
 227 
	EXP lvalue : string :,\
228 
	EXP lvalue : string :,\
 228 
	EXP lvalue : string :,\
229 
	EXP : COMMAND :\
 229 
	EXP : COMMAND :\
230 
    ) STATEMENT DECONS_cmd_use #
 230 
    ) STATEMENT DECONS_cmd_use #
231 
#pragma interface DECONS_cmd_use
 231 
#pragma interface DECONS_cmd_use
232 
 
 232 
 
233 
#pragma token PROC (\
 233 
#pragma token PROC(\
234 
	EXP : DESTROYER :,\
 234 
	EXP : DESTROYER :,\
235 
	EXP lvalue : int :,\
 235 
	EXP lvalue : int :,\
236 
	EXP lvalue : string :,\
 236 
	EXP lvalue : string :,\
237 
	EXP lvalue : string :,\
 237 
	EXP lvalue : string :,\
238 
	EXP : COMMAND :\
 238 
	EXP : COMMAND :\
Line 241... Line 241...
241 
 
 241 
 
242 
 
 242 
 
243 
/* Operations for field special of union COMMAND */
 243 
/* Operations for field special of union COMMAND */
244 
 
 244 
 
245 
#pragma token EXP const : unsigned : cmd_special_tag #
 245 
#pragma token EXP const : unsigned : cmd_special_tag #
246 
#pragma token PROC ( EXP : COMMAND : ) EXP : int : IS_cmd_special #
 246 
#pragma token PROC(EXP : COMMAND :) EXP : int : IS_cmd_special #
247 
#pragma interface cmd_special_tag IS_cmd_special
 247 
#pragma interface cmd_special_tag IS_cmd_special
248 
 
 248 
 
249 
#pragma token PROC ( EXP : COMMAND : )\
 249 
#pragma token PROC(EXP : COMMAND :)\
250 
    EXP : PTR ( string ) : cmd_special_sort #
 250 
    EXP : PTR(string) : cmd_special_sort #
251 
#pragma interface cmd_special_sort
 251 
#pragma interface cmd_special_sort
252 
 
 252 
 
253 
#pragma token PROC ( EXP : COMMAND : )\
 253 
#pragma token PROC(EXP : COMMAND :)\
254 
    EXP : PTR ( string ) : cmd_special_cons #
 254 
    EXP : PTR(string) : cmd_special_cons #
255 
#pragma interface cmd_special_cons
 255 
#pragma interface cmd_special_cons
256 
 
 256 
 
257 
#pragma token PROC (\
 257 
#pragma token PROC(\
258 
	EXP : int :,\
 258 
	EXP : int :,\
259 
	EXP : string :,\
 259 
	EXP : string :,\
260 
	EXP : string :,\
 260 
	EXP : string :,\
261 
	EXP lvalue : COMMAND :\
 261 
	EXP lvalue : COMMAND :\
262 
    ) STATEMENT MAKE_cmd_special #
 262 
    ) STATEMENT MAKE_cmd_special #
263 
#pragma interface MAKE_cmd_special
 263 
#pragma interface MAKE_cmd_special
264 
 
 264 
 
265 
#pragma token PROC (\
 265 
#pragma token PROC(\
266 
	EXP lvalue : int :,\
 266 
	EXP lvalue : int :,\
267 
	EXP lvalue : string :,\
 267 
	EXP lvalue : string :,\
268 
	EXP lvalue : string :,\
 268 
	EXP lvalue : string :,\
269 
	EXP : COMMAND :\
 269 
	EXP : COMMAND :\
270 
    ) STATEMENT DECONS_cmd_special #
 270 
    ) STATEMENT DECONS_cmd_special #
271 
#pragma interface DECONS_cmd_special
 271 
#pragma interface DECONS_cmd_special
272 
 
 272 
 
273 
#pragma token PROC (\
 273 
#pragma token PROC(\
274 
	EXP : DESTROYER :,\
 274 
	EXP : DESTROYER :,\
275 
	EXP lvalue : int :,\
 275 
	EXP lvalue : int :,\
276 
	EXP lvalue : string :,\
 276 
	EXP lvalue : string :,\
277 
	EXP lvalue : string :,\
 277 
	EXP lvalue : string :,\
278 
	EXP : COMMAND :\
 278 
	EXP : COMMAND :\