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, 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 FTYPE_OPS_H_INCLUDED
36 
#define FTYPE_OPS_H_INCLUDED
37 
 
38 
/* Operations for union FLOAT_TYPE */
39 
 
7 7u83 40 
#pragma token PROC(EXP : FLOAT_TYPE :) EXP : unsigned : TAG_ftype #
2 7u83 41 
#pragma interface TAG_ftype
42 
 
43 
 
44 
/* Operations for component arg_prom of union FLOAT_TYPE */
45 
 
7 7u83 46 
#pragma token PROC(EXP : FLOAT_TYPE :)\
47 
    EXP : PTR(TYPE) : ftype_arg_prom #
2 7u83 48 
#pragma interface ftype_arg_prom
49 
 
50 
/* Operations for component ftok of union FLOAT_TYPE */
51 
 
7 7u83 52 
#pragma token PROC(EXP : FLOAT_TYPE :)\
53 
    EXP : PTR(ulong_type) : ftype_ftok #
2 7u83 54 
#pragma interface ftype_ftok
55 
 
56 
/* Operations for component ntok of union FLOAT_TYPE */
57 
 
7 7u83 58 
#pragma token PROC(EXP : FLOAT_TYPE :)\
59 
    EXP : PTR(ulong_type) : ftype_ntok #
2 7u83 60 
#pragma interface ftype_ntok
61 
 
62 
/* Operations for component diag of union FLOAT_TYPE */
63 
 
7 7u83 64 
#pragma token PROC(EXP : FLOAT_TYPE :)\
65 
    EXP : PTR(ulong_type) : ftype_diag #
2 7u83 66 
#pragma interface ftype_diag
67 
 
68 
/* Operations for component small of union FLOAT_TYPE */
69 
 
7 7u83 70 
#pragma token PROC(EXP : FLOAT_TYPE :)\
71 
    EXP : PTR(LIST(FLOAT)) : ftype_small #
2 7u83 72 
#pragma interface ftype_small
73 
 
74 
/* Operations for field basic of union FLOAT_TYPE */
75 
 
76 
#pragma token EXP const : unsigned : ftype_basic_tag #
7 7u83 77 
#pragma token PROC(EXP : FLOAT_TYPE :) EXP : int : IS_ftype_basic #
2 7u83 78 
#pragma interface ftype_basic_tag IS_ftype_basic
79 
 
7 7u83 80 
#pragma token PROC(EXP : FLOAT_TYPE :)\
81 
    EXP : PTR(BASE_TYPE) : ftype_basic_rep #
2 7u83 82 
#pragma interface ftype_basic_rep
83 
 
7 7u83 84 
#pragma token PROC(EXP : FLOAT_TYPE :)\
85 
    EXP : PTR(BUILTIN_TYPE) : ftype_basic_no #
2 7u83 86 
#pragma interface ftype_basic_no
87 
 
7 7u83 88 
#pragma token PROC(\
2 7u83 89 
	EXP : TYPE :,\
90 
	EXP : BASE_TYPE :,\
91 
	EXP : BUILTIN_TYPE :,\
92 
	EXP lvalue : FLOAT_TYPE :\
93 
    ) STATEMENT MAKE_ftype_basic #
94 
#pragma interface MAKE_ftype_basic
95 
 
7 7u83 96 
#pragma token PROC(\
2 7u83 97 
	EXP lvalue : TYPE :,\
98 
	EXP lvalue : ulong_type :,\
99 
	EXP lvalue : ulong_type :,\
100 
	EXP lvalue : ulong_type :,\
7 7u83 101 
	EXP lvalue : LIST(FLOAT) :,\
2 7u83 102 
	EXP lvalue : BASE_TYPE :,\
103 
	EXP lvalue : BUILTIN_TYPE :,\
104 
	EXP : FLOAT_TYPE :\
105 
    ) STATEMENT DECONS_ftype_basic #
106 
#pragma interface DECONS_ftype_basic
107 
 
7 7u83 108 
#pragma token PROC(\
2 7u83 109 
	EXP : DESTROYER :,\
110 
	EXP lvalue : TYPE :,\
111 
	EXP lvalue : ulong_type :,\
112 
	EXP lvalue : ulong_type :,\
113 
	EXP lvalue : ulong_type :,\
7 7u83 114 
	EXP lvalue : LIST(FLOAT) :,\
2 7u83 115 
	EXP lvalue : BASE_TYPE :,\
116 
	EXP lvalue : BUILTIN_TYPE :,\
117 
	EXP : FLOAT_TYPE :\
118 
    ) STATEMENT DESTROY_ftype_basic #
119 
#pragma interface DESTROY_ftype_basic
120 
 
121 
 
122 
/* Operations for field arg_promote of union FLOAT_TYPE */
123 
 
124 
#pragma token EXP const : unsigned : ftype_arg_promote_tag #
7 7u83 125 
#pragma token PROC(EXP : FLOAT_TYPE :) EXP : int : IS_ftype_arg_promote #
2 7u83 126 
#pragma interface ftype_arg_promote_tag IS_ftype_arg_promote
127 
 
7 7u83 128 
#pragma token PROC(EXP : FLOAT_TYPE :)\
129 
    EXP : PTR(FLOAT_TYPE) : ftype_arg_promote_arg #
2 7u83 130 
#pragma interface ftype_arg_promote_arg
131 
 
7 7u83 132 
#pragma token PROC(\
2 7u83 133 
	EXP : TYPE :,\
134 
	EXP : FLOAT_TYPE :,\
135 
	EXP lvalue : FLOAT_TYPE :\
136 
    ) STATEMENT MAKE_ftype_arg_promote #
137 
#pragma interface MAKE_ftype_arg_promote
138 
 
7 7u83 139 
#pragma token PROC(\
2 7u83 140 
	EXP lvalue : TYPE :,\
141 
	EXP lvalue : ulong_type :,\
142 
	EXP lvalue : ulong_type :,\
143 
	EXP lvalue : ulong_type :,\
7 7u83 144 
	EXP lvalue : LIST(FLOAT) :,\
2 7u83 145 
	EXP lvalue : FLOAT_TYPE :,\
146 
	EXP : FLOAT_TYPE :\
147 
    ) STATEMENT DECONS_ftype_arg_promote #
148 
#pragma interface DECONS_ftype_arg_promote
149 
 
7 7u83 150 
#pragma token PROC(\
2 7u83 151 
	EXP : DESTROYER :,\
152 
	EXP lvalue : TYPE :,\
153 
	EXP lvalue : ulong_type :,\
154 
	EXP lvalue : ulong_type :,\
155 
	EXP lvalue : ulong_type :,\
7 7u83 156 
	EXP lvalue : LIST(FLOAT) :,\
2 7u83 157 
	EXP lvalue : FLOAT_TYPE :,\
158 
	EXP : FLOAT_TYPE :\
159 
    ) STATEMENT DESTROY_ftype_arg_promote #
160 
#pragma interface DESTROY_ftype_arg_promote
161 
 
162 
 
163 
/* Operations for field arith of union FLOAT_TYPE */
164 
 
165 
#pragma token EXP const : unsigned : ftype_arith_tag #
7 7u83 166 
#pragma token PROC(EXP : FLOAT_TYPE :) EXP : int : IS_ftype_arith #
2 7u83 167 
#pragma interface ftype_arith_tag IS_ftype_arith
168 
 
7 7u83 169 
#pragma token PROC(EXP : FLOAT_TYPE :)\
170 
    EXP : PTR(FLOAT_TYPE) : ftype_arith_arg1 #
2 7u83 171 
#pragma interface ftype_arith_arg1
172 
 
7 7u83 173 
#pragma token PROC(EXP : FLOAT_TYPE :)\
174 
    EXP : PTR(FLOAT_TYPE) : ftype_arith_arg2 #
2 7u83 175 
#pragma interface ftype_arith_arg2
176 
 
7 7u83 177 
#pragma token PROC(\
2 7u83 178 
	EXP : TYPE :,\
179 
	EXP : FLOAT_TYPE :,\
180 
	EXP : FLOAT_TYPE :,\
181 
	EXP lvalue : FLOAT_TYPE :\
182 
    ) STATEMENT MAKE_ftype_arith #
183 
#pragma interface MAKE_ftype_arith
184 
 
7 7u83 185 
#pragma token PROC(\
2 7u83 186 
	EXP lvalue : TYPE :,\
187 
	EXP lvalue : ulong_type :,\
188 
	EXP lvalue : ulong_type :,\
189 
	EXP lvalue : ulong_type :,\
7 7u83 190 
	EXP lvalue : LIST(FLOAT) :,\
2 7u83 191 
	EXP lvalue : FLOAT_TYPE :,\
192 
	EXP lvalue : FLOAT_TYPE :,\
193 
	EXP : FLOAT_TYPE :\
194 
    ) STATEMENT DECONS_ftype_arith #
195 
#pragma interface DECONS_ftype_arith
196 
 
7 7u83 197 
#pragma token PROC(\
2 7u83 198 
	EXP : DESTROYER :,\
199 
	EXP lvalue : TYPE :,\
200 
	EXP lvalue : ulong_type :,\
201 
	EXP lvalue : ulong_type :,\
202 
	EXP lvalue : ulong_type :,\
7 7u83 203 
	EXP lvalue : LIST(FLOAT) :,\
2 7u83 204 
	EXP lvalue : FLOAT_TYPE :,\
205 
	EXP lvalue : FLOAT_TYPE :,\
206 
	EXP : FLOAT_TYPE :\
207 
    ) STATEMENT DESTROY_ftype_arith #
208 
#pragma interface DESTROY_ftype_arith
209 
 
210 
 
211 
/* Operations for field token of union FLOAT_TYPE */
212 
 
213 
#pragma token EXP const : unsigned : ftype_token_tag #
7 7u83 214 
#pragma token PROC(EXP : FLOAT_TYPE :) EXP : int : IS_ftype_token #
2 7u83 215 
#pragma interface ftype_token_tag IS_ftype_token
216 
 
7 7u83 217 
#pragma token PROC(EXP : FLOAT_TYPE :)\
218 
    EXP : PTR(IDENTIFIER) : ftype_token_tok #
2 7u83 219 
#pragma interface ftype_token_tok
220 
 
7 7u83 221 
#pragma token PROC(EXP : FLOAT_TYPE :)\
222 
    EXP : PTR(LIST(TOKEN)) : ftype_token_args #
2 7u83 223 
#pragma interface ftype_token_args
224 
 
7 7u83 225 
#pragma token PROC(\
2 7u83 226 
	EXP : TYPE :,\
227 
	EXP : IDENTIFIER :,\
7 7u83 228 
	EXP : LIST(TOKEN) :,\
2 7u83 229 
	EXP lvalue : FLOAT_TYPE :\
230 
    ) STATEMENT MAKE_ftype_token #
231 
#pragma interface MAKE_ftype_token
232 
 
7 7u83 233 
#pragma token PROC(\
2 7u83 234 
	EXP lvalue : TYPE :,\
235 
	EXP lvalue : ulong_type :,\
236 
	EXP lvalue : ulong_type :,\
237 
	EXP lvalue : ulong_type :,\
7 7u83 238 
	EXP lvalue : LIST(FLOAT) :,\
2 7u83 239 
	EXP lvalue : IDENTIFIER :,\
7 7u83 240 
	EXP lvalue : LIST(TOKEN) :,\
2 7u83 241 
	EXP : FLOAT_TYPE :\
242 
    ) STATEMENT DECONS_ftype_token #
243 
#pragma interface DECONS_ftype_token
244 
 
7 7u83 245 
#pragma token PROC(\
2 7u83 246 
	EXP : DESTROYER :,\
247 
	EXP lvalue : TYPE :,\
248 
	EXP lvalue : ulong_type :,\
249 
	EXP lvalue : ulong_type :,\
250 
	EXP lvalue : ulong_type :,\
7 7u83 251 
	EXP lvalue : LIST(FLOAT) :,\
2 7u83 252 
	EXP lvalue : IDENTIFIER :,\
7 7u83 253 
	EXP lvalue : LIST(TOKEN) :,\
2 7u83 254 
	EXP : FLOAT_TYPE :\
255 
    ) STATEMENT DESTROY_ftype_token #
256 
#pragma interface DESTROY_ftype_token
257 
 
258 
 
259 
#endif