Subversion Repositories tendra.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 7u83 1 
/*
2 
    		 Crown Copyright (c) 1997
3 
 
4 
    This TenDRA(r) Computer Program is subject to Copyright
5 
    owned by the United Kingdom Secretary of State for Defence
6 
    acting through the Defence Evaluation and Research Agency
7 
    (DERA).  It is made available to Recipients with a
8 
    royalty-free licence for its use, reproduction, transfer
9 
    to other parties and amendment for any purpose not excluding
10 
    product development provided that any such use et cetera
11 
    shall be deemed to be acceptance of the following conditions:-
12 
 
13 
        (1) Its Recipients shall ensure that this Notice is
14 
        reproduced upon any copies or amended versions of it;
15 
 
16 
        (2) Any amended version of it shall be clearly marked to
17 
        show both the nature of and the organisation responsible
18 
        for the relevant amendment or amendments;
19 
 
20 
        (3) Its onward transfer from a recipient to another
21 
        party shall be deemed to be that party's acceptance of
22 
        these conditions;
23 
 
24 
        (4) DERA gives no warranty or assurance as to its
25 
        quality or suitability for any purpose and DERA accepts
26 
        no liability whatsoever in relation to any use to which
27 
        it may be put.
28 
*/
29 
 
30 
/*
31 
    AUTOMATICALLY GENERATED FROM ALGEBRA tdf (VERSION 1.0)
32 
    BY calculus (VERSION 1.2)
33 
*/
34 
 
35 
#ifndef CMD_OPS_H_INCLUDED
36 
#define CMD_OPS_H_INCLUDED
37 
 
38 
/* Operations for union COMMAND */
39 
 
7 7u83 40 
#pragma token PROC(EXP : COMMAND :) EXP : unsigned : TAG_cmd #
2 7u83 41 
#pragma interface TAG_cmd
42 
 
43 
 
44 
/* Operations for component line of union COMMAND */
45 
 
7 7u83 46 
#pragma token PROC(EXP : COMMAND :)\
47 
    EXP : PTR(int) : cmd_line #
2 7u83 48 
#pragma interface cmd_line
49 
 
50 
/* Operations for field simple of union COMMAND */
51 
 
52 
#pragma token EXP const : unsigned : cmd_simple_tag #
7 7u83 53 
#pragma token PROC(EXP : COMMAND :) EXP : int : IS_cmd_simple #
2 7u83 54 
#pragma interface cmd_simple_tag IS_cmd_simple
55 
 
7 7u83 56 
#pragma token PROC(EXP : COMMAND :)\
57 
    EXP : PTR(string) : cmd_simple_text #
2 7u83 58 
#pragma interface cmd_simple_text
59 
 
7 7u83 60 
#pragma token PROC(\
2 7u83 61 
	EXP : int :,\
62 
	EXP : string :,\
63 
	EXP lvalue : COMMAND :\
64 
    ) STATEMENT MAKE_cmd_simple #
65 
#pragma interface MAKE_cmd_simple
66 
 
7 7u83 67 
#pragma token PROC(\
2 7u83 68 
	EXP lvalue : int :,\
69 
	EXP lvalue : string :,\
70 
	EXP : COMMAND :\
71 
    ) STATEMENT DECONS_cmd_simple #
72 
#pragma interface DECONS_cmd_simple
73 
 
7 7u83 74 
#pragma token PROC(\
2 7u83 75 
	EXP : DESTROYER :,\
76 
	EXP lvalue : int :,\
77 
	EXP lvalue : string :,\
78 
	EXP : COMMAND :\
79 
    ) STATEMENT DESTROY_cmd_simple #
80 
#pragma interface DESTROY_cmd_simple
81 
 
82 
 
83 
/* Operations for field compound of union COMMAND */
84 
 
85 
#pragma token EXP const : unsigned : cmd_compound_tag #
7 7u83 86 
#pragma token PROC(EXP : COMMAND :) EXP : int : IS_cmd_compound #
2 7u83 87 
#pragma interface cmd_compound_tag IS_cmd_compound
88 
 
7 7u83 89 
#pragma token PROC(EXP : COMMAND :)\
90 
    EXP : PTR(LIST(COMMAND)) : cmd_compound_seq #
2 7u83 91 
#pragma interface cmd_compound_seq
92 
 
7 7u83 93 
#pragma token PROC(\
2 7u83 94 
	EXP : int :,\
7 7u83 95 
	EXP : LIST(COMMAND) :,\
2 7u83 96 
	EXP lvalue : COMMAND :\
97 
    ) STATEMENT MAKE_cmd_compound #
98 
#pragma interface MAKE_cmd_compound
99 
 
7 7u83 100 
#pragma token PROC(\
2 7u83 101 
	EXP lvalue : int :,\
7 7u83 102 
	EXP lvalue : LIST(COMMAND) :,\
2 7u83 103 
	EXP : COMMAND :\
104 
    ) STATEMENT DECONS_cmd_compound #
105 
#pragma interface DECONS_cmd_compound
106 
 
7 7u83 107 
#pragma token PROC(\
2 7u83 108 
	EXP : DESTROYER :,\
109 
	EXP lvalue : int :,\
7 7u83 110 
	EXP lvalue : LIST(COMMAND) :,\
2 7u83 111 
	EXP : COMMAND :\
112 
    ) STATEMENT DESTROY_cmd_compound #
113 
#pragma interface DESTROY_cmd_compound
114 
 
115 
 
116 
/* Operations for field loop of union COMMAND */
117 
 
118 
#pragma token EXP const : unsigned : cmd_loop_tag #
7 7u83 119 
#pragma token PROC(EXP : COMMAND :) EXP : int : IS_cmd_loop #
2 7u83 120 
#pragma interface cmd_loop_tag IS_cmd_loop
121 
 
7 7u83 122 
#pragma token PROC(EXP : COMMAND :)\
123 
    EXP : PTR(string) : cmd_loop_control #
2 7u83 124 
#pragma interface cmd_loop_control
125 
 
7 7u83 126 
#pragma token PROC(EXP : COMMAND :)\
127 
    EXP : PTR(COMMAND) : cmd_loop_body #
2 7u83 128 
#pragma interface cmd_loop_body
129 
 
7 7u83 130 
#pragma token PROC(\
2 7u83 131 
	EXP : int :,\
132 
	EXP : string :,\
133 
	EXP : COMMAND :,\
134 
	EXP lvalue : COMMAND :\
135 
    ) STATEMENT MAKE_cmd_loop #
136 
#pragma interface MAKE_cmd_loop
137 
 
7 7u83 138 
#pragma token PROC(\
2 7u83 139 
	EXP lvalue : int :,\
140 
	EXP lvalue : string :,\
141 
	EXP lvalue : COMMAND :,\
142 
	EXP : COMMAND :\
143 
    ) STATEMENT DECONS_cmd_loop #
144 
#pragma interface DECONS_cmd_loop
145 
 
7 7u83 146 
#pragma token PROC(\
2 7u83 147 
	EXP : DESTROYER :,\
148 
	EXP lvalue : int :,\
149 
	EXP lvalue : string :,\
150 
	EXP lvalue : COMMAND :,\
151 
	EXP : COMMAND :\
152 
    ) STATEMENT DESTROY_cmd_loop #
153 
#pragma interface DESTROY_cmd_loop
154 
 
155 
 
156 
/* Operations for field cond of union COMMAND */
157 
 
158 
#pragma token EXP const : unsigned : cmd_cond_tag #
7 7u83 159 
#pragma token PROC(EXP : COMMAND :) EXP : int : IS_cmd_cond #
2 7u83 160 
#pragma interface cmd_cond_tag IS_cmd_cond
161 
 
7 7u83 162 
#pragma token PROC(EXP : COMMAND :)\
163 
    EXP : PTR(string) : cmd_cond_control #
2 7u83 164 
#pragma interface cmd_cond_control
165 
 
7 7u83 166 
#pragma token PROC(EXP : COMMAND :)\
167 
    EXP : PTR(COMMAND) : cmd_cond_true_code #
2 7u83 168 
#pragma interface cmd_cond_true_code
169 
 
7 7u83 170 
#pragma token PROC(EXP : COMMAND :)\
171 
    EXP : PTR(COMMAND) : cmd_cond_false_code #
2 7u83 172 
#pragma interface cmd_cond_false_code
173 
 
7 7u83 174 
#pragma token PROC(\
2 7u83 175 
	EXP : int :,\
176 
	EXP : string :,\
177 
	EXP : COMMAND :,\
178 
	EXP : COMMAND :,\
179 
	EXP lvalue : COMMAND :\
180 
    ) STATEMENT MAKE_cmd_cond #
181 
#pragma interface MAKE_cmd_cond
182 
 
7 7u83 183 
#pragma token PROC(\
2 7u83 184 
	EXP lvalue : int :,\
185 
	EXP lvalue : string :,\
186 
	EXP lvalue : COMMAND :,\
187 
	EXP lvalue : COMMAND :,\
188 
	EXP : COMMAND :\
189 
    ) STATEMENT DECONS_cmd_cond #
190 
#pragma interface DECONS_cmd_cond
191 
 
7 7u83 192 
#pragma token PROC(\
2 7u83 193 
	EXP : DESTROYER :,\
194 
	EXP lvalue : int :,\
195 
	EXP lvalue : string :,\
196 
	EXP lvalue : COMMAND :,\
197 
	EXP lvalue : COMMAND :,\
198 
	EXP : COMMAND :\
199 
    ) STATEMENT DESTROY_cmd_cond #
200 
#pragma interface DESTROY_cmd_cond
201 
 
202 
 
203 
/* Operations for field use of union COMMAND */
204 
 
205 
#pragma token EXP const : unsigned : cmd_use_tag #
7 7u83 206 
#pragma token PROC(EXP : COMMAND :) EXP : int : IS_cmd_use #
2 7u83 207 
#pragma interface cmd_use_tag IS_cmd_use
208 
 
7 7u83 209 
#pragma token PROC(EXP : COMMAND :)\
210 
    EXP : PTR(string) : cmd_use_sort #
2 7u83 211 
#pragma interface cmd_use_sort
212 
 
7 7u83 213 
#pragma token PROC(EXP : COMMAND :)\
214 
    EXP : PTR(string) : cmd_use_cons #
2 7u83 215 
#pragma interface cmd_use_cons
216 
 
7 7u83 217 
#pragma token PROC(\
2 7u83 218 
	EXP : int :,\
219 
	EXP : string :,\
220 
	EXP : string :,\
221 
	EXP lvalue : COMMAND :\
222 
    ) STATEMENT MAKE_cmd_use #
223 
#pragma interface MAKE_cmd_use
224 
 
7 7u83 225 
#pragma token PROC(\
2 7u83 226 
	EXP lvalue : int :,\
227 
	EXP lvalue : string :,\
228 
	EXP lvalue : string :,\
229 
	EXP : COMMAND :\
230 
    ) STATEMENT DECONS_cmd_use #
231 
#pragma interface DECONS_cmd_use
232 
 
7 7u83 233 
#pragma token PROC(\
2 7u83 234 
	EXP : DESTROYER :,\
235 
	EXP lvalue : int :,\
236 
	EXP lvalue : string :,\
237 
	EXP lvalue : string :,\
238 
	EXP : COMMAND :\
239 
    ) STATEMENT DESTROY_cmd_use #
240 
#pragma interface DESTROY_cmd_use
241 
 
242 
 
243 
/* Operations for field special of union COMMAND */
244 
 
245 
#pragma token EXP const : unsigned : cmd_special_tag #
7 7u83 246 
#pragma token PROC(EXP : COMMAND :) EXP : int : IS_cmd_special #
2 7u83 247 
#pragma interface cmd_special_tag IS_cmd_special
248 
 
7 7u83 249 
#pragma token PROC(EXP : COMMAND :)\
250 
    EXP : PTR(string) : cmd_special_sort #
2 7u83 251 
#pragma interface cmd_special_sort
252 
 
7 7u83 253 
#pragma token PROC(EXP : COMMAND :)\
254 
    EXP : PTR(string) : cmd_special_cons #
2 7u83 255 
#pragma interface cmd_special_cons
256 
 
7 7u83 257 
#pragma token PROC(\
2 7u83 258 
	EXP : int :,\
259 
	EXP : string :,\
260 
	EXP : string :,\
261 
	EXP lvalue : COMMAND :\
262 
    ) STATEMENT MAKE_cmd_special #
263 
#pragma interface MAKE_cmd_special
264 
 
7 7u83 265 
#pragma token PROC(\
2 7u83 266 
	EXP lvalue : int :,\
267 
	EXP lvalue : string :,\
268 
	EXP lvalue : string :,\
269 
	EXP : COMMAND :\
270 
    ) STATEMENT DECONS_cmd_special #
271 
#pragma interface DECONS_cmd_special
272 
 
7 7u83 273 
#pragma token PROC(\
2 7u83 274 
	EXP : DESTROYER :,\
275 
	EXP lvalue : int :,\
276 
	EXP lvalue : string :,\
277 
	EXP lvalue : string :,\
278 
	EXP : COMMAND :\
279 
    ) STATEMENT DESTROY_cmd_special #
280 
#pragma interface DESTROY_cmd_special
281 
 
282 
 
283 
#endif