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 INFO_OPS_H_INCLUDED
36 
#define INFO_OPS_H_INCLUDED
37 
 
38 
/* Operations for union SORT_INFO */
39 
 
7 7u83 40 
#pragma token PROC(EXP : SORT_INFO :) EXP : unsigned : TAG_info #
2 7u83 41 
#pragma interface TAG_info
42 
 
43 
 
44 
/* Operations for component name of union SORT_INFO */
45 
 
7 7u83 46 
#pragma token PROC(EXP : SORT_INFO :)\
47 
    EXP : PTR(string) : info_name #
2 7u83 48 
#pragma interface info_name
49 
 
50 
/* Operations for field builtin of union SORT_INFO */
51 
 
52 
#pragma token EXP const : unsigned : info_builtin_tag #
7 7u83 53 
#pragma token PROC(EXP : SORT_INFO :) EXP : int : IS_info_builtin #
2 7u83 54 
#pragma interface info_builtin_tag IS_info_builtin
55 
 
7 7u83 56 
#pragma token PROC(\
2 7u83 57 
	EXP : string :,\
58 
	EXP lvalue : SORT_INFO :\
59 
    ) STATEMENT MAKE_info_builtin #
60 
#pragma interface MAKE_info_builtin
61 
 
7 7u83 62 
#pragma token PROC(\
2 7u83 63 
	EXP lvalue : string :,\
64 
	EXP : SORT_INFO :\
65 
    ) STATEMENT DECONS_info_builtin #
66 
#pragma interface DECONS_info_builtin
67 
 
7 7u83 68 
#pragma token PROC(\
2 7u83 69 
	EXP : DESTROYER :,\
70 
	EXP lvalue : string :,\
71 
	EXP : SORT_INFO :\
72 
    ) STATEMENT DESTROY_info_builtin #
73 
#pragma interface DESTROY_info_builtin
74 
 
75 
 
76 
/* Operations for field basic of union SORT_INFO */
77 
 
78 
#pragma token EXP const : unsigned : info_basic_tag #
7 7u83 79 
#pragma token PROC(EXP : SORT_INFO :) EXP : int : IS_info_basic #
2 7u83 80 
#pragma interface info_basic_tag IS_info_basic
81 
 
7 7u83 82 
#pragma token PROC(EXP : SORT_INFO :)\
83 
    EXP : PTR(unsigned) : info_basic_bits #
2 7u83 84 
#pragma interface info_basic_bits
85 
 
7 7u83 86 
#pragma token PROC(EXP : SORT_INFO :)\
87 
    EXP : PTR(unsigned) : info_basic_extend #
2 7u83 88 
#pragma interface info_basic_extend
89 
 
7 7u83 90 
#pragma token PROC(EXP : SORT_INFO :)\
91 
    EXP : PTR(unsigned) : info_basic_max #
2 7u83 92 
#pragma interface info_basic_max
93 
 
7 7u83 94 
#pragma token PROC(EXP : SORT_INFO :)\
95 
    EXP : PTR(LIST(CONSTRUCT)) : info_basic_cons #
2 7u83 96 
#pragma interface info_basic_cons
97 
 
7 7u83 98 
#pragma token PROC(EXP : SORT_INFO :)\
99 
    EXP : PTR(CONSTRUCT) : info_basic_sortname #
2 7u83 100 
#pragma interface info_basic_sortname
101 
 
7 7u83 102 
#pragma token PROC(\
2 7u83 103 
	EXP : string :,\
104 
	EXP : unsigned :,\
105 
	EXP : unsigned :,\
106 
	EXP : unsigned :,\
7 7u83 107 
	EXP : LIST(CONSTRUCT) :,\
2 7u83 108 
	EXP : CONSTRUCT :,\
109 
	EXP lvalue : SORT_INFO :\
110 
    ) STATEMENT MAKE_info_basic #
111 
#pragma interface MAKE_info_basic
112 
 
7 7u83 113 
#pragma token PROC(\
2 7u83 114 
	EXP lvalue : string :,\
115 
	EXP lvalue : unsigned :,\
116 
	EXP lvalue : unsigned :,\
117 
	EXP lvalue : unsigned :,\
7 7u83 118 
	EXP lvalue : LIST(CONSTRUCT) :,\
2 7u83 119 
	EXP lvalue : CONSTRUCT :,\
120 
	EXP : SORT_INFO :\
121 
    ) STATEMENT DECONS_info_basic #
122 
#pragma interface DECONS_info_basic
123 
 
7 7u83 124 
#pragma token PROC(\
2 7u83 125 
	EXP : DESTROYER :,\
126 
	EXP lvalue : string :,\
127 
	EXP lvalue : unsigned :,\
128 
	EXP lvalue : unsigned :,\
129 
	EXP lvalue : unsigned :,\
7 7u83 130 
	EXP lvalue : LIST(CONSTRUCT) :,\
2 7u83 131 
	EXP lvalue : CONSTRUCT :,\
132 
	EXP : SORT_INFO :\
133 
    ) STATEMENT DESTROY_info_basic #
134 
#pragma interface DESTROY_info_basic
135 
 
136 
 
137 
/* Operations for field dummy of union SORT_INFO */
138 
 
139 
#pragma token EXP const : unsigned : info_dummy_tag #
7 7u83 140 
#pragma token PROC(EXP : SORT_INFO :) EXP : int : IS_info_dummy #
2 7u83 141 
#pragma interface info_dummy_tag IS_info_dummy
142 
 
7 7u83 143 
#pragma token PROC(EXP : SORT_INFO :)\
144 
    EXP : PTR(CONSTRUCT) : info_dummy_cons #
2 7u83 145 
#pragma interface info_dummy_cons
146 
 
7 7u83 147 
#pragma token PROC(\
2 7u83 148 
	EXP : string :,\
149 
	EXP : CONSTRUCT :,\
150 
	EXP lvalue : SORT_INFO :\
151 
    ) STATEMENT MAKE_info_dummy #
152 
#pragma interface MAKE_info_dummy
153 
 
7 7u83 154 
#pragma token PROC(\
2 7u83 155 
	EXP lvalue : string :,\
156 
	EXP lvalue : CONSTRUCT :,\
157 
	EXP : SORT_INFO :\
158 
    ) STATEMENT DECONS_info_dummy #
159 
#pragma interface DECONS_info_dummy
160 
 
7 7u83 161 
#pragma token PROC(\
2 7u83 162 
	EXP : DESTROYER :,\
163 
	EXP lvalue : string :,\
164 
	EXP lvalue : CONSTRUCT :,\
165 
	EXP : SORT_INFO :\
166 
    ) STATEMENT DESTROY_info_dummy #
167 
#pragma interface DESTROY_info_dummy
168 
 
169 
 
170 
/* Operations for field set clist_etc of union SORT_INFO */
171 
 
172 
#pragma token EXP const : unsigned : info_clist_etc_tag #
7 7u83 173 
#pragma token PROC(EXP : SORT_INFO :) EXP : int : IS_info_clist_etc #
2 7u83 174 
#pragma interface info_clist_etc_tag IS_info_clist_etc
175 
 
7 7u83 176 
#pragma token PROC(EXP : SORT_INFO :)\
177 
    EXP : PTR(SORT) : info_clist_etc_arg #
2 7u83 178 
#pragma interface info_clist_etc_arg
179 
 
7 7u83 180 
#pragma token PROC(\
2 7u83 181 
	EXP : unsigned :,\
182 
	EXP : string :,\
183 
	EXP : SORT :,\
184 
	EXP lvalue : SORT_INFO :\
185 
    ) STATEMENT MAKE_info_clist_etc #
186 
#pragma interface MAKE_info_clist_etc
187 
 
7 7u83 188 
#pragma token PROC(\
2 7u83 189 
	EXP : unsigned :,\
190 
	EXP : SORT_INFO :\
191 
    ) STATEMENT MODIFY_info_clist_etc #
192 
#pragma interface MODIFY_info_clist_etc
193 
 
7 7u83 194 
#pragma token PROC(\
2 7u83 195 
	EXP lvalue : string :,\
196 
	EXP lvalue : SORT :,\
197 
	EXP : SORT_INFO :\
198 
    ) STATEMENT DECONS_info_clist_etc #
199 
#pragma interface DECONS_info_clist_etc
200 
 
7 7u83 201 
#pragma token PROC(\
2 7u83 202 
	EXP : DESTROYER :,\
203 
	EXP lvalue : string :,\
204 
	EXP lvalue : SORT :,\
205 
	EXP : SORT_INFO :\
206 
    ) STATEMENT DESTROY_info_clist_etc #
207 
#pragma interface DESTROY_info_clist_etc
208 
 
209 
 
210 
/* Operations for field clist of union SORT_INFO */
211 
 
212 
#pragma token EXP const : unsigned : info_clist_tag #
7 7u83 213 
#pragma token PROC(EXP : SORT_INFO :) EXP : int : IS_info_clist #
2 7u83 214 
#pragma interface info_clist_tag IS_info_clist
215 
 
7 7u83 216 
#pragma token PROC(EXP : SORT_INFO :)\
217 
    EXP : PTR(SORT) : info_clist_arg #
2 7u83 218 
#pragma interface info_clist_arg
219 
 
7 7u83 220 
#pragma token PROC(\
2 7u83 221 
	EXP : string :,\
222 
	EXP : SORT :,\
223 
	EXP lvalue : SORT_INFO :\
224 
    ) STATEMENT MAKE_info_clist #
225 
#pragma interface MAKE_info_clist
226 
 
7 7u83 227 
#pragma token PROC(\
2 7u83 228 
	EXP lvalue : string :,\
229 
	EXP lvalue : SORT :,\
230 
	EXP : SORT_INFO :\
231 
    ) STATEMENT DECONS_info_clist #
232 
#pragma interface DECONS_info_clist
233 
 
7 7u83 234 
#pragma token PROC(\
2 7u83 235 
	EXP : DESTROYER :,\
236 
	EXP lvalue : string :,\
237 
	EXP lvalue : SORT :,\
238 
	EXP : SORT_INFO :\
239 
    ) STATEMENT DESTROY_info_clist #
240 
#pragma interface DESTROY_info_clist
241 
 
242 
 
243 
/* Operations for field slist of union SORT_INFO */
244 
 
245 
#pragma token EXP const : unsigned : info_slist_tag #
7 7u83 246 
#pragma token PROC(EXP : SORT_INFO :) EXP : int : IS_info_slist #
2 7u83 247 
#pragma interface info_slist_tag IS_info_slist
248 
 
7 7u83 249 
#pragma token PROC(EXP : SORT_INFO :)\
250 
    EXP : PTR(SORT) : info_slist_arg #
2 7u83 251 
#pragma interface info_slist_arg
252 
 
7 7u83 253 
#pragma token PROC(\
2 7u83 254 
	EXP : string :,\
255 
	EXP : SORT :,\
256 
	EXP lvalue : SORT_INFO :\
257 
    ) STATEMENT MAKE_info_slist #
258 
#pragma interface MAKE_info_slist
259 
 
7 7u83 260 
#pragma token PROC(\
2 7u83 261 
	EXP lvalue : string :,\
262 
	EXP lvalue : SORT :,\
263 
	EXP : SORT_INFO :\
264 
    ) STATEMENT DECONS_info_slist #
265 
#pragma interface DECONS_info_slist
266 
 
7 7u83 267 
#pragma token PROC(\
2 7u83 268 
	EXP : DESTROYER :,\
269 
	EXP lvalue : string :,\
270 
	EXP lvalue : SORT :,\
271 
	EXP : SORT_INFO :\
272 
    ) STATEMENT DESTROY_info_slist #
273 
#pragma interface DESTROY_info_slist
274 
 
275 
 
276 
/* Operations for field option of union SORT_INFO */
277 
 
278 
#pragma token EXP const : unsigned : info_option_tag #
7 7u83 279 
#pragma token PROC(EXP : SORT_INFO :) EXP : int : IS_info_option #
2 7u83 280 
#pragma interface info_option_tag IS_info_option
281 
 
7 7u83 282 
#pragma token PROC(EXP : SORT_INFO :)\
283 
    EXP : PTR(SORT) : info_option_arg #
2 7u83 284 
#pragma interface info_option_arg
285 
 
7 7u83 286 
#pragma token PROC(\
2 7u83 287 
	EXP : string :,\
288 
	EXP : SORT :,\
289 
	EXP lvalue : SORT_INFO :\
290 
    ) STATEMENT MAKE_info_option #
291 
#pragma interface MAKE_info_option
292 
 
7 7u83 293 
#pragma token PROC(\
2 7u83 294 
	EXP lvalue : string :,\
295 
	EXP lvalue : SORT :,\
296 
	EXP : SORT_INFO :\
297 
    ) STATEMENT DECONS_info_option #
298 
#pragma interface DECONS_info_option
299 
 
7 7u83 300 
#pragma token PROC(\
2 7u83 301 
	EXP : DESTROYER :,\
302 
	EXP lvalue : string :,\
303 
	EXP lvalue : SORT :,\
304 
	EXP : SORT_INFO :\
305 
    ) STATEMENT DESTROY_info_option #
306 
#pragma interface DESTROY_info_option
307 
 
308 
 
309 
#endif