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 HASHID_OPS_H_INCLUDED
35
#ifndef HASHID_OPS_H_INCLUDED
36
#define HASHID_OPS_H_INCLUDED
36
#define HASHID_OPS_H_INCLUDED
37
 
37
 
38
/* Operations for union HASHID */
38
/* Operations for union HASHID */
39
 
39
 
40
#pragma token PROC ( EXP : HASHID : ) EXP : unsigned : TAG_hashid #
40
#pragma token PROC(EXP : HASHID :) EXP : unsigned : TAG_hashid #
41
#pragma interface TAG_hashid
41
#pragma interface TAG_hashid
42
 
42
 
43
 
43
 
44
/* Operations for component id of union HASHID */
44
/* Operations for component id of union HASHID */
45
 
45
 
46
#pragma token PROC ( EXP : HASHID : )\
46
#pragma token PROC(EXP : HASHID :)\
47
    EXP : PTR ( IDENTIFIER ) : hashid_id #
47
    EXP : PTR(IDENTIFIER) : hashid_id #
48
#pragma interface hashid_id
48
#pragma interface hashid_id
49
 
49
 
50
/* Operations for component cache of union HASHID */
50
/* Operations for component cache of union HASHID */
51
 
51
 
52
#pragma token PROC ( EXP : HASHID : )\
52
#pragma token PROC(EXP : HASHID :)\
53
    EXP : PTR ( IDENTIFIER ) : hashid_cache #
53
    EXP : PTR(IDENTIFIER) : hashid_cache #
54
#pragma interface hashid_cache
54
#pragma interface hashid_cache
55
 
55
 
56
/* Operations for component next of union HASHID */
56
/* Operations for component next of union HASHID */
57
 
57
 
58
#pragma token PROC ( EXP : HASHID : )\
58
#pragma token PROC(EXP : HASHID :)\
59
    EXP : PTR ( HASHID ) : hashid_next #
59
    EXP : PTR(HASHID) : hashid_next #
60
#pragma interface hashid_next
60
#pragma interface hashid_next
61
 
61
 
62
/* Operations for component hash of union HASHID */
62
/* Operations for component hash of union HASHID */
63
 
63
 
64
#pragma token PROC ( EXP : HASHID : )\
64
#pragma token PROC(EXP : HASHID :)\
65
    EXP : PTR ( ulong_type ) : hashid_hash #
65
    EXP : PTR(ulong_type) : hashid_hash #
66
#pragma interface hashid_hash
66
#pragma interface hashid_hash
67
 
67
 
68
/* Operations for field set name_etc of union HASHID */
68
/* Operations for field set name_etc of union HASHID */
69
 
69
 
70
#pragma token EXP const : unsigned : hashid_name_etc_tag #
70
#pragma token EXP const : unsigned : hashid_name_etc_tag #
71
#pragma token PROC ( EXP : HASHID : ) EXP : int : IS_hashid_name_etc #
71
#pragma token PROC(EXP : HASHID :) EXP : int : IS_hashid_name_etc #
72
#pragma interface hashid_name_etc_tag IS_hashid_name_etc
72
#pragma interface hashid_name_etc_tag IS_hashid_name_etc
73
 
73
 
74
#pragma token PROC ( EXP : HASHID : )\
74
#pragma token PROC(EXP : HASHID :)\
75
    EXP : PTR ( string ) : hashid_name_etc_text #
75
    EXP : PTR(string) : hashid_name_etc_text #
76
#pragma interface hashid_name_etc_text
76
#pragma interface hashid_name_etc_text
77
 
77
 
78
#pragma token PROC (\
78
#pragma token PROC(\
79
	EXP : unsigned :,\
79
	EXP : unsigned :,\
80
	EXP : HASHID :,\
80
	EXP : HASHID :,\
81
	EXP : ulong_type :,\
81
	EXP : ulong_type :,\
82
	EXP : string :,\
82
	EXP : string :,\
83
	EXP lvalue : HASHID :\
83
	EXP lvalue : HASHID :\
84
    ) STATEMENT MAKE_hashid_name_etc #
84
    ) STATEMENT MAKE_hashid_name_etc #
85
#pragma interface MAKE_hashid_name_etc
85
#pragma interface MAKE_hashid_name_etc
86
 
86
 
87
#pragma token PROC (\
87
#pragma token PROC(\
88
	EXP : unsigned :,\
88
	EXP : unsigned :,\
89
	EXP : HASHID :\
89
	EXP : HASHID :\
90
    ) STATEMENT MODIFY_hashid_name_etc #
90
    ) STATEMENT MODIFY_hashid_name_etc #
91
#pragma interface MODIFY_hashid_name_etc
91
#pragma interface MODIFY_hashid_name_etc
92
 
92
 
93
#pragma token PROC (\
93
#pragma token PROC(\
94
	EXP lvalue : IDENTIFIER :,\
94
	EXP lvalue : IDENTIFIER :,\
95
	EXP lvalue : IDENTIFIER :,\
95
	EXP lvalue : IDENTIFIER :,\
96
	EXP lvalue : HASHID :,\
96
	EXP lvalue : HASHID :,\
97
	EXP lvalue : ulong_type :,\
97
	EXP lvalue : ulong_type :,\
98
	EXP lvalue : string :,\
98
	EXP lvalue : string :,\
99
	EXP : HASHID :\
99
	EXP : HASHID :\
100
    ) STATEMENT DECONS_hashid_name_etc #
100
    ) STATEMENT DECONS_hashid_name_etc #
101
#pragma interface DECONS_hashid_name_etc
101
#pragma interface DECONS_hashid_name_etc
102
 
102
 
103
#pragma token PROC (\
103
#pragma token PROC(\
104
	EXP : DESTROYER :,\
104
	EXP : DESTROYER :,\
105
	EXP lvalue : IDENTIFIER :,\
105
	EXP lvalue : IDENTIFIER :,\
106
	EXP lvalue : IDENTIFIER :,\
106
	EXP lvalue : IDENTIFIER :,\
107
	EXP lvalue : HASHID :,\
107
	EXP lvalue : HASHID :,\
108
	EXP lvalue : ulong_type :,\
108
	EXP lvalue : ulong_type :,\
Line 113... Line 113...
113
 
113
 
114
 
114
 
115
/* Operations for field name of union HASHID */
115
/* Operations for field name of union HASHID */
116
 
116
 
117
#pragma token EXP const : unsigned : hashid_name_tag #
117
#pragma token EXP const : unsigned : hashid_name_tag #
118
#pragma token PROC ( EXP : HASHID : ) EXP : int : IS_hashid_name #
118
#pragma token PROC(EXP : HASHID :) EXP : int : IS_hashid_name #
119
#pragma interface hashid_name_tag IS_hashid_name
119
#pragma interface hashid_name_tag IS_hashid_name
120
 
120
 
121
#pragma token PROC ( EXP : HASHID : )\
121
#pragma token PROC(EXP : HASHID :)\
122
    EXP : PTR ( string ) : hashid_name_text #
122
    EXP : PTR(string) : hashid_name_text #
123
#pragma interface hashid_name_text
123
#pragma interface hashid_name_text
124
 
124
 
125
#pragma token PROC (\
125
#pragma token PROC(\
126
	EXP : HASHID :,\
126
	EXP : HASHID :,\
127
	EXP : ulong_type :,\
127
	EXP : ulong_type :,\
128
	EXP : string :,\
128
	EXP : string :,\
129
	EXP lvalue : HASHID :\
129
	EXP lvalue : HASHID :\
130
    ) STATEMENT MAKE_hashid_name #
130
    ) STATEMENT MAKE_hashid_name #
131
#pragma interface MAKE_hashid_name
131
#pragma interface MAKE_hashid_name
132
 
132
 
133
#pragma token PROC (\
133
#pragma token PROC(\
134
	EXP lvalue : IDENTIFIER :,\
134
	EXP lvalue : IDENTIFIER :,\
135
	EXP lvalue : IDENTIFIER :,\
135
	EXP lvalue : IDENTIFIER :,\
136
	EXP lvalue : HASHID :,\
136
	EXP lvalue : HASHID :,\
137
	EXP lvalue : ulong_type :,\
137
	EXP lvalue : ulong_type :,\
138
	EXP lvalue : string :,\
138
	EXP lvalue : string :,\
139
	EXP : HASHID :\
139
	EXP : HASHID :\
140
    ) STATEMENT DECONS_hashid_name #
140
    ) STATEMENT DECONS_hashid_name #
141
#pragma interface DECONS_hashid_name
141
#pragma interface DECONS_hashid_name
142
 
142
 
143
#pragma token PROC (\
143
#pragma token PROC(\
144
	EXP : DESTROYER :,\
144
	EXP : DESTROYER :,\
145
	EXP lvalue : IDENTIFIER :,\
145
	EXP lvalue : IDENTIFIER :,\
146
	EXP lvalue : IDENTIFIER :,\
146
	EXP lvalue : IDENTIFIER :,\
147
	EXP lvalue : HASHID :,\
147
	EXP lvalue : HASHID :,\
148
	EXP lvalue : ulong_type :,\
148
	EXP lvalue : ulong_type :,\
Line 153... Line 153...
153
 
153
 
154
 
154
 
155
/* Operations for field ename of union HASHID */
155
/* Operations for field ename of union HASHID */
156
 
156
 
157
#pragma token EXP const : unsigned : hashid_ename_tag #
157
#pragma token EXP const : unsigned : hashid_ename_tag #
158
#pragma token PROC ( EXP : HASHID : ) EXP : int : IS_hashid_ename #
158
#pragma token PROC(EXP : HASHID :) EXP : int : IS_hashid_ename #
159
#pragma interface hashid_ename_tag IS_hashid_ename
159
#pragma interface hashid_ename_tag IS_hashid_ename
160
 
160
 
161
#pragma token PROC ( EXP : HASHID : )\
161
#pragma token PROC(EXP : HASHID :)\
162
    EXP : PTR ( string ) : hashid_ename_text #
162
    EXP : PTR(string) : hashid_ename_text #
163
#pragma interface hashid_ename_text
163
#pragma interface hashid_ename_text
164
 
164
 
165
#pragma token PROC (\
165
#pragma token PROC(\
166
	EXP : HASHID :,\
166
	EXP : HASHID :,\
167
	EXP : ulong_type :,\
167
	EXP : ulong_type :,\
168
	EXP : string :,\
168
	EXP : string :,\
169
	EXP lvalue : HASHID :\
169
	EXP lvalue : HASHID :\
170
    ) STATEMENT MAKE_hashid_ename #
170
    ) STATEMENT MAKE_hashid_ename #
171
#pragma interface MAKE_hashid_ename
171
#pragma interface MAKE_hashid_ename
172
 
172
 
173
#pragma token PROC (\
173
#pragma token PROC(\
174
	EXP lvalue : IDENTIFIER :,\
174
	EXP lvalue : IDENTIFIER :,\
175
	EXP lvalue : IDENTIFIER :,\
175
	EXP lvalue : IDENTIFIER :,\
176
	EXP lvalue : HASHID :,\
176
	EXP lvalue : HASHID :,\
177
	EXP lvalue : ulong_type :,\
177
	EXP lvalue : ulong_type :,\
178
	EXP lvalue : string :,\
178
	EXP lvalue : string :,\
179
	EXP : HASHID :\
179
	EXP : HASHID :\
180
    ) STATEMENT DECONS_hashid_ename #
180
    ) STATEMENT DECONS_hashid_ename #
181
#pragma interface DECONS_hashid_ename
181
#pragma interface DECONS_hashid_ename
182
 
182
 
183
#pragma token PROC (\
183
#pragma token PROC(\
184
	EXP : DESTROYER :,\
184
	EXP : DESTROYER :,\
185
	EXP lvalue : IDENTIFIER :,\
185
	EXP lvalue : IDENTIFIER :,\
186
	EXP lvalue : IDENTIFIER :,\
186
	EXP lvalue : IDENTIFIER :,\
187
	EXP lvalue : HASHID :,\
187
	EXP lvalue : HASHID :,\
188
	EXP lvalue : ulong_type :,\
188
	EXP lvalue : ulong_type :,\
Line 193... Line 193...
193
 
193
 
194
 
194
 
195
/* Operations for field set constr_etc of union HASHID */
195
/* Operations for field set constr_etc of union HASHID */
196
 
196
 
197
#pragma token EXP const : unsigned : hashid_constr_etc_tag #
197
#pragma token EXP const : unsigned : hashid_constr_etc_tag #
198
#pragma token PROC ( EXP : HASHID : ) EXP : int : IS_hashid_constr_etc #
198
#pragma token PROC(EXP : HASHID :) EXP : int : IS_hashid_constr_etc #
199
#pragma interface hashid_constr_etc_tag IS_hashid_constr_etc
199
#pragma interface hashid_constr_etc_tag IS_hashid_constr_etc
200
 
200
 
201
#pragma token PROC ( EXP : HASHID : )\
201
#pragma token PROC(EXP : HASHID :)\
202
    EXP : PTR ( TYPE ) : hashid_constr_etc_type #
202
    EXP : PTR(TYPE) : hashid_constr_etc_type #
203
#pragma interface hashid_constr_etc_type
203
#pragma interface hashid_constr_etc_type
204
 
204
 
205
#pragma token PROC ( EXP : HASHID : )\
205
#pragma token PROC(EXP : HASHID :)\
206
    EXP : PTR ( IDENTIFIER ) : hashid_constr_etc_tid #
206
    EXP : PTR(IDENTIFIER) : hashid_constr_etc_tid #
207
#pragma interface hashid_constr_etc_tid
207
#pragma interface hashid_constr_etc_tid
208
 
208
 
209
#pragma token PROC (\
209
#pragma token PROC(\
210
	EXP : unsigned :,\
210
	EXP : unsigned :,\
211
	EXP : HASHID :,\
211
	EXP : HASHID :,\
212
	EXP : ulong_type :,\
212
	EXP : ulong_type :,\
213
	EXP : TYPE :,\
213
	EXP : TYPE :,\
214
	EXP : IDENTIFIER :,\
214
	EXP : IDENTIFIER :,\
215
	EXP lvalue : HASHID :\
215
	EXP lvalue : HASHID :\
216
    ) STATEMENT MAKE_hashid_constr_etc #
216
    ) STATEMENT MAKE_hashid_constr_etc #
217
#pragma interface MAKE_hashid_constr_etc
217
#pragma interface MAKE_hashid_constr_etc
218
 
218
 
219
#pragma token PROC (\
219
#pragma token PROC(\
220
	EXP : unsigned :,\
220
	EXP : unsigned :,\
221
	EXP : HASHID :\
221
	EXP : HASHID :\
222
    ) STATEMENT MODIFY_hashid_constr_etc #
222
    ) STATEMENT MODIFY_hashid_constr_etc #
223
#pragma interface MODIFY_hashid_constr_etc
223
#pragma interface MODIFY_hashid_constr_etc
224
 
224
 
225
#pragma token PROC (\
225
#pragma token PROC(\
226
	EXP lvalue : IDENTIFIER :,\
226
	EXP lvalue : IDENTIFIER :,\
227
	EXP lvalue : IDENTIFIER :,\
227
	EXP lvalue : IDENTIFIER :,\
228
	EXP lvalue : HASHID :,\
228
	EXP lvalue : HASHID :,\
229
	EXP lvalue : ulong_type :,\
229
	EXP lvalue : ulong_type :,\
230
	EXP lvalue : TYPE :,\
230
	EXP lvalue : TYPE :,\
231
	EXP lvalue : IDENTIFIER :,\
231
	EXP lvalue : IDENTIFIER :,\
232
	EXP : HASHID :\
232
	EXP : HASHID :\
233
    ) STATEMENT DECONS_hashid_constr_etc #
233
    ) STATEMENT DECONS_hashid_constr_etc #
234
#pragma interface DECONS_hashid_constr_etc
234
#pragma interface DECONS_hashid_constr_etc
235
 
235
 
236
#pragma token PROC (\
236
#pragma token PROC(\
237
	EXP : DESTROYER :,\
237
	EXP : DESTROYER :,\
238
	EXP lvalue : IDENTIFIER :,\
238
	EXP lvalue : IDENTIFIER :,\
239
	EXP lvalue : IDENTIFIER :,\
239
	EXP lvalue : IDENTIFIER :,\
240
	EXP lvalue : HASHID :,\
240
	EXP lvalue : HASHID :,\
241
	EXP lvalue : ulong_type :,\
241
	EXP lvalue : ulong_type :,\
Line 247... Line 247...
247
 
247
 
248
 
248
 
249
/* Operations for field constr of union HASHID */
249
/* Operations for field constr of union HASHID */
250
 
250
 
251
#pragma token EXP const : unsigned : hashid_constr_tag #
251
#pragma token EXP const : unsigned : hashid_constr_tag #
252
#pragma token PROC ( EXP : HASHID : ) EXP : int : IS_hashid_constr #
252
#pragma token PROC(EXP : HASHID :) EXP : int : IS_hashid_constr #
253
#pragma interface hashid_constr_tag IS_hashid_constr
253
#pragma interface hashid_constr_tag IS_hashid_constr
254
 
254
 
255
#pragma token PROC ( EXP : HASHID : )\
255
#pragma token PROC(EXP : HASHID :)\
256
    EXP : PTR ( TYPE ) : hashid_constr_type #
256
    EXP : PTR(TYPE) : hashid_constr_type #
257
#pragma interface hashid_constr_type
257
#pragma interface hashid_constr_type
258
 
258
 
259
#pragma token PROC ( EXP : HASHID : )\
259
#pragma token PROC(EXP : HASHID :)\
260
    EXP : PTR ( IDENTIFIER ) : hashid_constr_tid #
260
    EXP : PTR(IDENTIFIER) : hashid_constr_tid #
261
#pragma interface hashid_constr_tid
261
#pragma interface hashid_constr_tid
262
 
262
 
263
#pragma token PROC (\
263
#pragma token PROC(\
264
	EXP : HASHID :,\
264
	EXP : HASHID :,\
265
	EXP : ulong_type :,\
265
	EXP : ulong_type :,\
266
	EXP : TYPE :,\
266
	EXP : TYPE :,\
267
	EXP : IDENTIFIER :,\
267
	EXP : IDENTIFIER :,\
268
	EXP lvalue : HASHID :\
268
	EXP lvalue : HASHID :\
269
    ) STATEMENT MAKE_hashid_constr #
269
    ) STATEMENT MAKE_hashid_constr #
270
#pragma interface MAKE_hashid_constr
270
#pragma interface MAKE_hashid_constr
271
 
271
 
272
#pragma token PROC (\
272
#pragma token PROC(\
273
	EXP lvalue : IDENTIFIER :,\
273
	EXP lvalue : IDENTIFIER :,\
274
	EXP lvalue : IDENTIFIER :,\
274
	EXP lvalue : IDENTIFIER :,\
275
	EXP lvalue : HASHID :,\
275
	EXP lvalue : HASHID :,\
276
	EXP lvalue : ulong_type :,\
276
	EXP lvalue : ulong_type :,\
277
	EXP lvalue : TYPE :,\
277
	EXP lvalue : TYPE :,\
278
	EXP lvalue : IDENTIFIER :,\
278
	EXP lvalue : IDENTIFIER :,\
279
	EXP : HASHID :\
279
	EXP : HASHID :\
280
    ) STATEMENT DECONS_hashid_constr #
280
    ) STATEMENT DECONS_hashid_constr #
281
#pragma interface DECONS_hashid_constr
281
#pragma interface DECONS_hashid_constr
282
 
282
 
283
#pragma token PROC (\
283
#pragma token PROC(\
284
	EXP : DESTROYER :,\
284
	EXP : DESTROYER :,\
285
	EXP lvalue : IDENTIFIER :,\
285
	EXP lvalue : IDENTIFIER :,\
286
	EXP lvalue : IDENTIFIER :,\
286
	EXP lvalue : IDENTIFIER :,\
287
	EXP lvalue : HASHID :,\
287
	EXP lvalue : HASHID :,\
288
	EXP lvalue : ulong_type :,\
288
	EXP lvalue : ulong_type :,\
Line 294... Line 294...
294
 
294
 
295
 
295
 
296
/* Operations for field destr of union HASHID */
296
/* Operations for field destr of union HASHID */
297
 
297
 
298
#pragma token EXP const : unsigned : hashid_destr_tag #
298
#pragma token EXP const : unsigned : hashid_destr_tag #
299
#pragma token PROC ( EXP : HASHID : ) EXP : int : IS_hashid_destr #
299
#pragma token PROC(EXP : HASHID :) EXP : int : IS_hashid_destr #
300
#pragma interface hashid_destr_tag IS_hashid_destr
300
#pragma interface hashid_destr_tag IS_hashid_destr
301
 
301
 
302
#pragma token PROC ( EXP : HASHID : )\
302
#pragma token PROC(EXP : HASHID :)\
303
    EXP : PTR ( TYPE ) : hashid_destr_type #
303
    EXP : PTR(TYPE) : hashid_destr_type #
304
#pragma interface hashid_destr_type
304
#pragma interface hashid_destr_type
305
 
305
 
306
#pragma token PROC ( EXP : HASHID : )\
306
#pragma token PROC(EXP : HASHID :)\
307
    EXP : PTR ( IDENTIFIER ) : hashid_destr_tid #
307
    EXP : PTR(IDENTIFIER) : hashid_destr_tid #
308
#pragma interface hashid_destr_tid
308
#pragma interface hashid_destr_tid
309
 
309
 
310
#pragma token PROC (\
310
#pragma token PROC(\
311
	EXP : HASHID :,\
311
	EXP : HASHID :,\
312
	EXP : ulong_type :,\
312
	EXP : ulong_type :,\
313
	EXP : TYPE :,\
313
	EXP : TYPE :,\
314
	EXP : IDENTIFIER :,\
314
	EXP : IDENTIFIER :,\
315
	EXP lvalue : HASHID :\
315
	EXP lvalue : HASHID :\
316
    ) STATEMENT MAKE_hashid_destr #
316
    ) STATEMENT MAKE_hashid_destr #
317
#pragma interface MAKE_hashid_destr
317
#pragma interface MAKE_hashid_destr
318
 
318
 
319
#pragma token PROC (\
319
#pragma token PROC(\
320
	EXP lvalue : IDENTIFIER :,\
320
	EXP lvalue : IDENTIFIER :,\
321
	EXP lvalue : IDENTIFIER :,\
321
	EXP lvalue : IDENTIFIER :,\
322
	EXP lvalue : HASHID :,\
322
	EXP lvalue : HASHID :,\
323
	EXP lvalue : ulong_type :,\
323
	EXP lvalue : ulong_type :,\
324
	EXP lvalue : TYPE :,\
324
	EXP lvalue : TYPE :,\
325
	EXP lvalue : IDENTIFIER :,\
325
	EXP lvalue : IDENTIFIER :,\
326
	EXP : HASHID :\
326
	EXP : HASHID :\
327
    ) STATEMENT DECONS_hashid_destr #
327
    ) STATEMENT DECONS_hashid_destr #
328
#pragma interface DECONS_hashid_destr
328
#pragma interface DECONS_hashid_destr
329
 
329
 
330
#pragma token PROC (\
330
#pragma token PROC(\
331
	EXP : DESTROYER :,\
331
	EXP : DESTROYER :,\
332
	EXP lvalue : IDENTIFIER :,\
332
	EXP lvalue : IDENTIFIER :,\
333
	EXP lvalue : IDENTIFIER :,\
333
	EXP lvalue : IDENTIFIER :,\
334
	EXP lvalue : HASHID :,\
334
	EXP lvalue : HASHID :,\
335
	EXP lvalue : ulong_type :,\
335
	EXP lvalue : ulong_type :,\
Line 341... Line 341...
341
 
341
 
342
 
342
 
343
/* Operations for field conv of union HASHID */
343
/* Operations for field conv of union HASHID */
344
 
344
 
345
#pragma token EXP const : unsigned : hashid_conv_tag #
345
#pragma token EXP const : unsigned : hashid_conv_tag #
346
#pragma token PROC ( EXP : HASHID : ) EXP : int : IS_hashid_conv #
346
#pragma token PROC(EXP : HASHID :) EXP : int : IS_hashid_conv #
347
#pragma interface hashid_conv_tag IS_hashid_conv
347
#pragma interface hashid_conv_tag IS_hashid_conv
348
 
348
 
349
#pragma token PROC ( EXP : HASHID : )\
349
#pragma token PROC(EXP : HASHID :)\
350
    EXP : PTR ( TYPE ) : hashid_conv_type #
350
    EXP : PTR(TYPE) : hashid_conv_type #
351
#pragma interface hashid_conv_type
351
#pragma interface hashid_conv_type
352
 
352
 
353
#pragma token PROC ( EXP : HASHID : )\
353
#pragma token PROC(EXP : HASHID :)\
354
    EXP : PTR ( IDENTIFIER ) : hashid_conv_tid #
354
    EXP : PTR(IDENTIFIER) : hashid_conv_tid #
355
#pragma interface hashid_conv_tid
355
#pragma interface hashid_conv_tid
356
 
356
 
357
#pragma token PROC (\
357
#pragma token PROC(\
358
	EXP : HASHID :,\
358
	EXP : HASHID :,\
359
	EXP : ulong_type :,\
359
	EXP : ulong_type :,\
360
	EXP : TYPE :,\
360
	EXP : TYPE :,\
361
	EXP : IDENTIFIER :,\
361
	EXP : IDENTIFIER :,\
362
	EXP lvalue : HASHID :\
362
	EXP lvalue : HASHID :\
363
    ) STATEMENT MAKE_hashid_conv #
363
    ) STATEMENT MAKE_hashid_conv #
364
#pragma interface MAKE_hashid_conv
364
#pragma interface MAKE_hashid_conv
365
 
365
 
366
#pragma token PROC (\
366
#pragma token PROC(\
367
	EXP lvalue : IDENTIFIER :,\
367
	EXP lvalue : IDENTIFIER :,\
368
	EXP lvalue : IDENTIFIER :,\
368
	EXP lvalue : IDENTIFIER :,\
369
	EXP lvalue : HASHID :,\
369
	EXP lvalue : HASHID :,\
370
	EXP lvalue : ulong_type :,\
370
	EXP lvalue : ulong_type :,\
371
	EXP lvalue : TYPE :,\
371
	EXP lvalue : TYPE :,\
372
	EXP lvalue : IDENTIFIER :,\
372
	EXP lvalue : IDENTIFIER :,\
373
	EXP : HASHID :\
373
	EXP : HASHID :\
374
    ) STATEMENT DECONS_hashid_conv #
374
    ) STATEMENT DECONS_hashid_conv #
375
#pragma interface DECONS_hashid_conv
375
#pragma interface DECONS_hashid_conv
376
 
376
 
377
#pragma token PROC (\
377
#pragma token PROC(\
378
	EXP : DESTROYER :,\
378
	EXP : DESTROYER :,\
379
	EXP lvalue : IDENTIFIER :,\
379
	EXP lvalue : IDENTIFIER :,\
380
	EXP lvalue : IDENTIFIER :,\
380
	EXP lvalue : IDENTIFIER :,\
381
	EXP lvalue : HASHID :,\
381
	EXP lvalue : HASHID :,\
382
	EXP lvalue : ulong_type :,\
382
	EXP lvalue : ulong_type :,\
Line 388... Line 388...
388
 
388
 
389
 
389
 
390
/* Operations for field op of union HASHID */
390
/* Operations for field op of union HASHID */
391
 
391
 
392
#pragma token EXP const : unsigned : hashid_op_tag #
392
#pragma token EXP const : unsigned : hashid_op_tag #
393
#pragma token PROC ( EXP : HASHID : ) EXP : int : IS_hashid_op #
393
#pragma token PROC(EXP : HASHID :) EXP : int : IS_hashid_op #
394
#pragma interface hashid_op_tag IS_hashid_op
394
#pragma interface hashid_op_tag IS_hashid_op
395
 
395
 
396
#pragma token PROC ( EXP : HASHID : )\
396
#pragma token PROC(EXP : HASHID :)\
397
    EXP : PTR ( int ) : hashid_op_lex #
397
    EXP : PTR(int) : hashid_op_lex #
398
#pragma interface hashid_op_lex
398
#pragma interface hashid_op_lex
399
 
399
 
400
#pragma token PROC (\
400
#pragma token PROC(\
401
	EXP : HASHID :,\
401
	EXP : HASHID :,\
402
	EXP : ulong_type :,\
402
	EXP : ulong_type :,\
403
	EXP : int :,\
403
	EXP : int :,\
404
	EXP lvalue : HASHID :\
404
	EXP lvalue : HASHID :\
405
    ) STATEMENT MAKE_hashid_op #
405
    ) STATEMENT MAKE_hashid_op #
406
#pragma interface MAKE_hashid_op
406
#pragma interface MAKE_hashid_op
407
 
407
 
408
#pragma token PROC (\
408
#pragma token PROC(\
409
	EXP lvalue : IDENTIFIER :,\
409
	EXP lvalue : IDENTIFIER :,\
410
	EXP lvalue : IDENTIFIER :,\
410
	EXP lvalue : IDENTIFIER :,\
411
	EXP lvalue : HASHID :,\
411
	EXP lvalue : HASHID :,\
412
	EXP lvalue : ulong_type :,\
412
	EXP lvalue : ulong_type :,\
413
	EXP lvalue : int :,\
413
	EXP lvalue : int :,\
414
	EXP : HASHID :\
414
	EXP : HASHID :\
415
    ) STATEMENT DECONS_hashid_op #
415
    ) STATEMENT DECONS_hashid_op #
416
#pragma interface DECONS_hashid_op
416
#pragma interface DECONS_hashid_op
417
 
417
 
418
#pragma token PROC (\
418
#pragma token PROC(\
419
	EXP : DESTROYER :,\
419
	EXP : DESTROYER :,\
420
	EXP lvalue : IDENTIFIER :,\
420
	EXP lvalue : IDENTIFIER :,\
421
	EXP lvalue : IDENTIFIER :,\
421
	EXP lvalue : IDENTIFIER :,\
422
	EXP lvalue : HASHID :,\
422
	EXP lvalue : HASHID :,\
423
	EXP lvalue : ulong_type :,\
423
	EXP lvalue : ulong_type :,\
Line 428... Line 428...
428
 
428
 
429
 
429
 
430
/* Operations for field anon of union HASHID */
430
/* Operations for field anon of union HASHID */
431
 
431
 
432
#pragma token EXP const : unsigned : hashid_anon_tag #
432
#pragma token EXP const : unsigned : hashid_anon_tag #
433
#pragma token PROC ( EXP : HASHID : ) EXP : int : IS_hashid_anon #
433
#pragma token PROC(EXP : HASHID :) EXP : int : IS_hashid_anon #
434
#pragma interface hashid_anon_tag IS_hashid_anon
434
#pragma interface hashid_anon_tag IS_hashid_anon
435
 
435
 
436
#pragma token PROC ( EXP : HASHID : )\
436
#pragma token PROC(EXP : HASHID :)\
437
    EXP : PTR ( ulong_type ) : hashid_anon_uniq #
437
    EXP : PTR(ulong_type) : hashid_anon_uniq #
438
#pragma interface hashid_anon_uniq
438
#pragma interface hashid_anon_uniq
439
 
439
 
440
#pragma token PROC (\
440
#pragma token PROC(\
441
	EXP : HASHID :,\
441
	EXP : HASHID :,\
442
	EXP : ulong_type :,\
442
	EXP : ulong_type :,\
443
	EXP : ulong_type :,\
443
	EXP : ulong_type :,\
444
	EXP lvalue : HASHID :\
444
	EXP lvalue : HASHID :\
445
    ) STATEMENT MAKE_hashid_anon #
445
    ) STATEMENT MAKE_hashid_anon #
446
#pragma interface MAKE_hashid_anon
446
#pragma interface MAKE_hashid_anon
447
 
447
 
448
#pragma token PROC (\
448
#pragma token PROC(\
449
	EXP lvalue : IDENTIFIER :,\
449
	EXP lvalue : IDENTIFIER :,\
450
	EXP lvalue : IDENTIFIER :,\
450
	EXP lvalue : IDENTIFIER :,\
451
	EXP lvalue : HASHID :,\
451
	EXP lvalue : HASHID :,\
452
	EXP lvalue : ulong_type :,\
452
	EXP lvalue : ulong_type :,\
453
	EXP lvalue : ulong_type :,\
453
	EXP lvalue : ulong_type :,\
454
	EXP : HASHID :\
454
	EXP : HASHID :\
455
    ) STATEMENT DECONS_hashid_anon #
455
    ) STATEMENT DECONS_hashid_anon #
456
#pragma interface DECONS_hashid_anon
456
#pragma interface DECONS_hashid_anon
457
 
457
 
458
#pragma token PROC (\
458
#pragma token PROC(\
459
	EXP : DESTROYER :,\
459
	EXP : DESTROYER :,\
460
	EXP lvalue : IDENTIFIER :,\
460
	EXP lvalue : IDENTIFIER :,\
461
	EXP lvalue : IDENTIFIER :,\
461
	EXP lvalue : IDENTIFIER :,\
462
	EXP lvalue : HASHID :,\
462
	EXP lvalue : HASHID :,\
463
	EXP lvalue : ulong_type :,\
463
	EXP lvalue : ulong_type :,\