Subversion Repositories tendra.SVN

Rev

Rev 5 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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