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