Subversion Repositories tendra.SVN

Rev

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

Rev Author Line No. Line
2 7u83 1 
/*
2 
    		 Crown Copyright (c) 1997, 1998
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 c_class (VERSION 1.1)
32 
    BY calculus (VERSION 1.2)
33 
*/
34 
 
35 
#ifndef OFF_OPS_H_INCLUDED
36 
#define OFF_OPS_H_INCLUDED
37 
 
38 
/* Operations for union OFFSET */
39 
 
6 7u83 40 
#pragma token PROC(EXP : OFFSET :) EXP : unsigned : TAG_off #
2 7u83 41 
#pragma interface TAG_off
42 
 
43 
 
44 
/* Operations for field zero of union OFFSET */
45 
 
46 
#pragma token EXP const : unsigned : off_zero_tag #
6 7u83 47 
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_zero #
2 7u83 48 
#pragma interface off_zero_tag IS_off_zero
49 
 
6 7u83 50 
#pragma token PROC(EXP : OFFSET :)\
51 
    EXP : PTR(TYPE) : off_zero_type #
2 7u83 52 
#pragma interface off_zero_type
53 
 
6 7u83 54 
#pragma token PROC(\
2 7u83 55 
	EXP : TYPE :,\
56 
	EXP lvalue : OFFSET :\
57 
    ) STATEMENT MAKE_off_zero #
58 
#pragma interface MAKE_off_zero
59 
 
6 7u83 60 
#pragma token PROC(\
2 7u83 61 
	EXP lvalue : TYPE :,\
62 
	EXP : OFFSET :\
63 
    ) STATEMENT DECONS_off_zero #
64 
#pragma interface DECONS_off_zero
65 
 
6 7u83 66 
#pragma token PROC(\
2 7u83 67 
	EXP : DESTROYER :,\
68 
	EXP lvalue : TYPE :,\
69 
	EXP : OFFSET :\
70 
    ) STATEMENT DESTROY_off_zero #
71 
#pragma interface DESTROY_off_zero
72 
 
73 
 
74 
/* Operations for field type of union OFFSET */
75 
 
76 
#pragma token EXP const : unsigned : off_type_tag #
6 7u83 77 
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_type #
2 7u83 78 
#pragma interface off_type_tag IS_off_type
79 
 
6 7u83 80 
#pragma token PROC(EXP : OFFSET :)\
81 
    EXP : PTR(TYPE) : off_type_type #
2 7u83 82 
#pragma interface off_type_type
83 
 
6 7u83 84 
#pragma token PROC(\
2 7u83 85 
	EXP : TYPE :,\
86 
	EXP lvalue : OFFSET :\
87 
    ) STATEMENT MAKE_off_type #
88 
#pragma interface MAKE_off_type
89 
 
6 7u83 90 
#pragma token PROC(\
2 7u83 91 
	EXP lvalue : TYPE :,\
92 
	EXP : OFFSET :\
93 
    ) STATEMENT DECONS_off_type #
94 
#pragma interface DECONS_off_type
95 
 
6 7u83 96 
#pragma token PROC(\
2 7u83 97 
	EXP : DESTROYER :,\
98 
	EXP lvalue : TYPE :,\
99 
	EXP : OFFSET :\
100 
    ) STATEMENT DESTROY_off_type #
101 
#pragma interface DESTROY_off_type
102 
 
103 
 
104 
/* Operations for field array of union OFFSET */
105 
 
106 
#pragma token EXP const : unsigned : off_array_tag #
6 7u83 107 
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_array #
2 7u83 108 
#pragma interface off_array_tag IS_off_array
109 
 
6 7u83 110 
#pragma token PROC(EXP : OFFSET :)\
111 
    EXP : PTR(TYPE) : off_array_type #
2 7u83 112 
#pragma interface off_array_type
113 
 
6 7u83 114 
#pragma token PROC(EXP : OFFSET :)\
115 
    EXP : PTR(unsigned) : off_array_arg #
2 7u83 116 
#pragma interface off_array_arg
117 
 
6 7u83 118 
#pragma token PROC(\
2 7u83 119 
	EXP : TYPE :,\
120 
	EXP : unsigned :,\
121 
	EXP lvalue : OFFSET :\
122 
    ) STATEMENT MAKE_off_array #
123 
#pragma interface MAKE_off_array
124 
 
6 7u83 125 
#pragma token PROC(\
2 7u83 126 
	EXP lvalue : TYPE :,\
127 
	EXP lvalue : unsigned :,\
128 
	EXP : OFFSET :\
129 
    ) STATEMENT DECONS_off_array #
130 
#pragma interface DECONS_off_array
131 
 
6 7u83 132 
#pragma token PROC(\
2 7u83 133 
	EXP : DESTROYER :,\
134 
	EXP lvalue : TYPE :,\
135 
	EXP lvalue : unsigned :,\
136 
	EXP : OFFSET :\
137 
    ) STATEMENT DESTROY_off_array #
138 
#pragma interface DESTROY_off_array
139 
 
140 
 
141 
/* Operations for field extra of union OFFSET */
142 
 
143 
#pragma token EXP const : unsigned : off_extra_tag #
6 7u83 144 
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_extra #
2 7u83 145 
#pragma interface off_extra_tag IS_off_extra
146 
 
6 7u83 147 
#pragma token PROC(EXP : OFFSET :)\
148 
    EXP : PTR(TYPE) : off_extra_type #
2 7u83 149 
#pragma interface off_extra_type
150 
 
6 7u83 151 
#pragma token PROC(EXP : OFFSET :)\
152 
    EXP : PTR(int) : off_extra_scale #
2 7u83 153 
#pragma interface off_extra_scale
154 
 
6 7u83 155 
#pragma token PROC(\
2 7u83 156 
	EXP : TYPE :,\
157 
	EXP : int :,\
158 
	EXP lvalue : OFFSET :\
159 
    ) STATEMENT MAKE_off_extra #
160 
#pragma interface MAKE_off_extra
161 
 
6 7u83 162 
#pragma token PROC(\
2 7u83 163 
	EXP lvalue : TYPE :,\
164 
	EXP lvalue : int :,\
165 
	EXP : OFFSET :\
166 
    ) STATEMENT DECONS_off_extra #
167 
#pragma interface DECONS_off_extra
168 
 
6 7u83 169 
#pragma token PROC(\
2 7u83 170 
	EXP : DESTROYER :,\
171 
	EXP lvalue : TYPE :,\
172 
	EXP lvalue : int :,\
173 
	EXP : OFFSET :\
174 
    ) STATEMENT DESTROY_off_extra #
175 
#pragma interface DESTROY_off_extra
176 
 
177 
 
178 
/* Operations for field base of union OFFSET */
179 
 
180 
#pragma token EXP const : unsigned : off_base_tag #
6 7u83 181 
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_base #
2 7u83 182 
#pragma interface off_base_tag IS_off_base
183 
 
6 7u83 184 
#pragma token PROC(EXP : OFFSET :)\
185 
    EXP : PTR(GRAPH) : off_base_graph #
2 7u83 186 
#pragma interface off_base_graph
187 
 
6 7u83 188 
#pragma token PROC(\
2 7u83 189 
	EXP : GRAPH :,\
190 
	EXP lvalue : OFFSET :\
191 
    ) STATEMENT MAKE_off_base #
192 
#pragma interface MAKE_off_base
193 
 
6 7u83 194 
#pragma token PROC(\
2 7u83 195 
	EXP lvalue : GRAPH :,\
196 
	EXP : OFFSET :\
197 
    ) STATEMENT DECONS_off_base #
198 
#pragma interface DECONS_off_base
199 
 
6 7u83 200 
#pragma token PROC(\
2 7u83 201 
	EXP : DESTROYER :,\
202 
	EXP lvalue : GRAPH :,\
203 
	EXP : OFFSET :\
204 
    ) STATEMENT DESTROY_off_base #
205 
#pragma interface DESTROY_off_base
206 
 
207 
 
208 
/* Operations for field deriv of union OFFSET */
209 
 
210 
#pragma token EXP const : unsigned : off_deriv_tag #
6 7u83 211 
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_deriv #
2 7u83 212 
#pragma interface off_deriv_tag IS_off_deriv
213 
 
6 7u83 214 
#pragma token PROC(EXP : OFFSET :)\
215 
    EXP : PTR(GRAPH) : off_deriv_graph #
2 7u83 216 
#pragma interface off_deriv_graph
217 
 
6 7u83 218 
#pragma token PROC(EXP : OFFSET :)\
219 
    EXP : PTR(OFFSET) : off_deriv_direct #
2 7u83 220 
#pragma interface off_deriv_direct
221 
 
6 7u83 222 
#pragma token PROC(EXP : OFFSET :)\
223 
    EXP : PTR(OFFSET) : off_deriv_indirect #
2 7u83 224 
#pragma interface off_deriv_indirect
225 
 
6 7u83 226 
#pragma token PROC(\
2 7u83 227 
	EXP : GRAPH :,\
228 
	EXP : OFFSET :,\
229 
	EXP : OFFSET :,\
230 
	EXP lvalue : OFFSET :\
231 
    ) STATEMENT MAKE_off_deriv #
232 
#pragma interface MAKE_off_deriv
233 
 
6 7u83 234 
#pragma token PROC(\
2 7u83 235 
	EXP lvalue : GRAPH :,\
236 
	EXP lvalue : OFFSET :,\
237 
	EXP lvalue : OFFSET :,\
238 
	EXP : OFFSET :\
239 
    ) STATEMENT DECONS_off_deriv #
240 
#pragma interface DECONS_off_deriv
241 
 
6 7u83 242 
#pragma token PROC(\
2 7u83 243 
	EXP : DESTROYER :,\
244 
	EXP lvalue : GRAPH :,\
245 
	EXP lvalue : OFFSET :,\
246 
	EXP lvalue : OFFSET :,\
247 
	EXP : OFFSET :\
248 
    ) STATEMENT DESTROY_off_deriv #
249 
#pragma interface DESTROY_off_deriv
250 
 
251 
 
252 
/* Operations for field member of union OFFSET */
253 
 
254 
#pragma token EXP const : unsigned : off_member_tag #
6 7u83 255 
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_member #
2 7u83 256 
#pragma interface off_member_tag IS_off_member
257 
 
6 7u83 258 
#pragma token PROC(EXP : OFFSET :)\
259 
    EXP : PTR(IDENTIFIER) : off_member_id #
2 7u83 260 
#pragma interface off_member_id
261 
 
6 7u83 262 
#pragma token PROC(\
2 7u83 263 
	EXP : IDENTIFIER :,\
264 
	EXP lvalue : OFFSET :\
265 
    ) STATEMENT MAKE_off_member #
266 
#pragma interface MAKE_off_member
267 
 
6 7u83 268 
#pragma token PROC(\
2 7u83 269 
	EXP lvalue : IDENTIFIER :,\
270 
	EXP : OFFSET :\
271 
    ) STATEMENT DECONS_off_member #
272 
#pragma interface DECONS_off_member
273 
 
6 7u83 274 
#pragma token PROC(\
2 7u83 275 
	EXP : DESTROYER :,\
276 
	EXP lvalue : IDENTIFIER :,\
277 
	EXP : OFFSET :\
278 
    ) STATEMENT DESTROY_off_member #
279 
#pragma interface DESTROY_off_member
280 
 
281 
 
282 
/* Operations for field ptr_mem of union OFFSET */
283 
 
284 
#pragma token EXP const : unsigned : off_ptr_mem_tag #
6 7u83 285 
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_ptr_mem #
2 7u83 286 
#pragma interface off_ptr_mem_tag IS_off_ptr_mem
287 
 
6 7u83 288 
#pragma token PROC(EXP : OFFSET :)\
289 
    EXP : PTR(EXP) : off_ptr_mem_arg #
2 7u83 290 
#pragma interface off_ptr_mem_arg
291 
 
6 7u83 292 
#pragma token PROC(\
2 7u83 293 
	EXP : EXP :,\
294 
	EXP lvalue : OFFSET :\
295 
    ) STATEMENT MAKE_off_ptr_mem #
296 
#pragma interface MAKE_off_ptr_mem
297 
 
6 7u83 298 
#pragma token PROC(\
2 7u83 299 
	EXP lvalue : EXP :,\
300 
	EXP : OFFSET :\
301 
    ) STATEMENT DECONS_off_ptr_mem #
302 
#pragma interface DECONS_off_ptr_mem
303 
 
6 7u83 304 
#pragma token PROC(\
2 7u83 305 
	EXP : DESTROYER :,\
306 
	EXP lvalue : EXP :,\
307 
	EXP : OFFSET :\
308 
    ) STATEMENT DESTROY_off_ptr_mem #
309 
#pragma interface DESTROY_off_ptr_mem
310 
 
311 
 
312 
/* Operations for field negate of union OFFSET */
313 
 
314 
#pragma token EXP const : unsigned : off_negate_tag #
6 7u83 315 
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_negate #
2 7u83 316 
#pragma interface off_negate_tag IS_off_negate
317 
 
6 7u83 318 
#pragma token PROC(EXP : OFFSET :)\
319 
    EXP : PTR(OFFSET) : off_negate_arg #
2 7u83 320 
#pragma interface off_negate_arg
321 
 
6 7u83 322 
#pragma token PROC(\
2 7u83 323 
	EXP : OFFSET :,\
324 
	EXP lvalue : OFFSET :\
325 
    ) STATEMENT MAKE_off_negate #
326 
#pragma interface MAKE_off_negate
327 
 
6 7u83 328 
#pragma token PROC(\
2 7u83 329 
	EXP lvalue : OFFSET :,\
330 
	EXP : OFFSET :\
331 
    ) STATEMENT DECONS_off_negate #
332 
#pragma interface DECONS_off_negate
333 
 
6 7u83 334 
#pragma token PROC(\
2 7u83 335 
	EXP : DESTROYER :,\
336 
	EXP lvalue : OFFSET :,\
337 
	EXP : OFFSET :\
338 
    ) STATEMENT DESTROY_off_negate #
339 
#pragma interface DESTROY_off_negate
340 
 
341 
 
342 
/* Operations for field plus of union OFFSET */
343 
 
344 
#pragma token EXP const : unsigned : off_plus_tag #
6 7u83 345 
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_plus #
2 7u83 346 
#pragma interface off_plus_tag IS_off_plus
347 
 
6 7u83 348 
#pragma token PROC(EXP : OFFSET :)\
349 
    EXP : PTR(OFFSET) : off_plus_arg1 #
2 7u83 350 
#pragma interface off_plus_arg1
351 
 
6 7u83 352 
#pragma token PROC(EXP : OFFSET :)\
353 
    EXP : PTR(OFFSET) : off_plus_arg2 #
2 7u83 354 
#pragma interface off_plus_arg2
355 
 
6 7u83 356 
#pragma token PROC(\
2 7u83 357 
	EXP : OFFSET :,\
358 
	EXP : OFFSET :,\
359 
	EXP lvalue : OFFSET :\
360 
    ) STATEMENT MAKE_off_plus #
361 
#pragma interface MAKE_off_plus
362 
 
6 7u83 363 
#pragma token PROC(\
2 7u83 364 
	EXP lvalue : OFFSET :,\
365 
	EXP lvalue : OFFSET :,\
366 
	EXP : OFFSET :\
367 
    ) STATEMENT DECONS_off_plus #
368 
#pragma interface DECONS_off_plus
369 
 
6 7u83 370 
#pragma token PROC(\
2 7u83 371 
	EXP : DESTROYER :,\
372 
	EXP lvalue : OFFSET :,\
373 
	EXP lvalue : OFFSET :,\
374 
	EXP : OFFSET :\
375 
    ) STATEMENT DESTROY_off_plus #
376 
#pragma interface DESTROY_off_plus
377 
 
378 
 
379 
/* Operations for field mult of union OFFSET */
380 
 
381 
#pragma token EXP const : unsigned : off_mult_tag #
6 7u83 382 
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_mult #
2 7u83 383 
#pragma interface off_mult_tag IS_off_mult
384 
 
6 7u83 385 
#pragma token PROC(EXP : OFFSET :)\
386 
    EXP : PTR(OFFSET) : off_mult_arg1 #
2 7u83 387 
#pragma interface off_mult_arg1
388 
 
6 7u83 389 
#pragma token PROC(EXP : OFFSET :)\
390 
    EXP : PTR(EXP) : off_mult_arg2 #
2 7u83 391 
#pragma interface off_mult_arg2
392 
 
6 7u83 393 
#pragma token PROC(\
2 7u83 394 
	EXP : OFFSET :,\
395 
	EXP : EXP :,\
396 
	EXP lvalue : OFFSET :\
397 
    ) STATEMENT MAKE_off_mult #
398 
#pragma interface MAKE_off_mult
399 
 
6 7u83 400 
#pragma token PROC(\
2 7u83 401 
	EXP lvalue : OFFSET :,\
402 
	EXP lvalue : EXP :,\
403 
	EXP : OFFSET :\
404 
    ) STATEMENT DECONS_off_mult #
405 
#pragma interface DECONS_off_mult
406 
 
6 7u83 407 
#pragma token PROC(\
2 7u83 408 
	EXP : DESTROYER :,\
409 
	EXP lvalue : OFFSET :,\
410 
	EXP lvalue : EXP :,\
411 
	EXP : OFFSET :\
412 
    ) STATEMENT DESTROY_off_mult #
413 
#pragma interface DESTROY_off_mult
414 
 
415 
 
416 
/* Operations for field ptr_diff of union OFFSET */
417 
 
418 
#pragma token EXP const : unsigned : off_ptr_diff_tag #
6 7u83 419 
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_ptr_diff #
2 7u83 420 
#pragma interface off_ptr_diff_tag IS_off_ptr_diff
421 
 
6 7u83 422 
#pragma token PROC(EXP : OFFSET :)\
423 
    EXP : PTR(EXP) : off_ptr_diff_ptr1 #
2 7u83 424 
#pragma interface off_ptr_diff_ptr1
425 
 
6 7u83 426 
#pragma token PROC(EXP : OFFSET :)\
427 
    EXP : PTR(EXP) : off_ptr_diff_ptr2 #
2 7u83 428 
#pragma interface off_ptr_diff_ptr2
429 
 
6 7u83 430 
#pragma token PROC(\
2 7u83 431 
	EXP : EXP :,\
432 
	EXP : EXP :,\
433 
	EXP lvalue : OFFSET :\
434 
    ) STATEMENT MAKE_off_ptr_diff #
435 
#pragma interface MAKE_off_ptr_diff
436 
 
6 7u83 437 
#pragma token PROC(\
2 7u83 438 
	EXP lvalue : EXP :,\
439 
	EXP lvalue : EXP :,\
440 
	EXP : OFFSET :\
441 
    ) STATEMENT DECONS_off_ptr_diff #
442 
#pragma interface DECONS_off_ptr_diff
443 
 
6 7u83 444 
#pragma token PROC(\
2 7u83 445 
	EXP : DESTROYER :,\
446 
	EXP lvalue : EXP :,\
447 
	EXP lvalue : EXP :,\
448 
	EXP : OFFSET :\
449 
    ) STATEMENT DESTROY_off_ptr_diff #
450 
#pragma interface DESTROY_off_ptr_diff
451 
 
452 
 
453 
/* Operations for field token of union OFFSET */
454 
 
455 
#pragma token EXP const : unsigned : off_token_tag #
6 7u83 456 
#pragma token PROC(EXP : OFFSET :) EXP : int : IS_off_token #
2 7u83 457 
#pragma interface off_token_tag IS_off_token
458 
 
6 7u83 459 
#pragma token PROC(EXP : OFFSET :)\
460 
    EXP : PTR(IDENTIFIER) : off_token_tok #
2 7u83 461 
#pragma interface off_token_tok
462 
 
6 7u83 463 
#pragma token PROC(EXP : OFFSET :)\
464 
    EXP : PTR(LIST(TOKEN)) : off_token_args #
2 7u83 465 
#pragma interface off_token_args
466 
 
6 7u83 467 
#pragma token PROC(\
2 7u83 468 
	EXP : IDENTIFIER :,\
6 7u83 469 
	EXP : LIST(TOKEN) :,\
2 7u83 470 
	EXP lvalue : OFFSET :\
471 
    ) STATEMENT MAKE_off_token #
472 
#pragma interface MAKE_off_token
473 
 
6 7u83 474 
#pragma token PROC(\
2 7u83 475 
	EXP lvalue : IDENTIFIER :,\
6 7u83 476 
	EXP lvalue : LIST(TOKEN) :,\
2 7u83 477 
	EXP : OFFSET :\
478 
    ) STATEMENT DECONS_off_token #
479 
#pragma interface DECONS_off_token
480 
 
6 7u83 481 
#pragma token PROC(\
2 7u83 482 
	EXP : DESTROYER :,\
483 
	EXP lvalue : IDENTIFIER :,\
6 7u83 484 
	EXP lvalue : LIST(TOKEN) :,\
2 7u83 485 
	EXP : OFFSET :\
486 
    ) STATEMENT DESTROY_off_token #
487 
#pragma interface DESTROY_off_token
488 
 
489 
 
490 
#endif