Subversion Repositories tendra.SVN

Rev

Go to most recent revision | Details | 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 NSPACE_OPS_H_INCLUDED
36
#define NSPACE_OPS_H_INCLUDED
37
 
38
/* Operations for union NAMESPACE */
39
 
40
#pragma token PROC ( EXP : NAMESPACE : ) EXP : unsigned : TAG_nspace #
41
#pragma interface TAG_nspace
42
 
43
 
44
/* Operations for component name of union NAMESPACE */
45
 
46
#pragma token PROC ( EXP : NAMESPACE : )\
47
    EXP : PTR ( IDENTIFIER ) : nspace_name #
48
#pragma interface nspace_name
49
 
50
/* Operations for component last of union NAMESPACE */
51
 
52
#pragma token PROC ( EXP : NAMESPACE : )\
53
    EXP : PTR ( MEMBER ) : nspace_last #
54
#pragma interface nspace_last
55
 
56
/* Operations for component prev of union NAMESPACE */
57
 
58
#pragma token PROC ( EXP : NAMESPACE : )\
59
    EXP : PTR ( MEMBER ) : nspace_prev #
60
#pragma interface nspace_prev
61
 
62
/* Operations for component parent of union NAMESPACE */
63
 
64
#pragma token PROC ( EXP : NAMESPACE : )\
65
    EXP : PTR ( NAMESPACE ) : nspace_parent #
66
#pragma interface nspace_parent
67
 
68
/* Operations for component use of union NAMESPACE */
69
 
70
#pragma token PROC ( EXP : NAMESPACE : )\
71
    EXP : PTR ( LIST ( NAMESPACE ) ) : nspace_use #
72
#pragma interface nspace_use
73
 
74
/* Operations for component join of union NAMESPACE */
75
 
76
#pragma token PROC ( EXP : NAMESPACE : )\
77
    EXP : PTR ( LIST ( NAMESPACE ) ) : nspace_join #
78
#pragma interface nspace_join
79
 
80
/* Operations for component set of union NAMESPACE */
81
 
82
#pragma token PROC ( EXP : NAMESPACE : )\
83
    EXP : PTR ( STACK ( IDENTIFIER ) ) : nspace_set #
84
#pragma interface nspace_set
85
 
86
/* Operations for component dump of union NAMESPACE */
87
 
88
#pragma token PROC ( EXP : NAMESPACE : )\
89
    EXP : PTR ( ulong_type ) : nspace_dump #
90
#pragma interface nspace_dump
91
 
92
/* Operations for field set block_etc of union NAMESPACE */
93
 
94
#pragma token EXP const : unsigned : nspace_block_etc_tag #
95
#pragma token PROC ( EXP : NAMESPACE : ) EXP : int : IS_nspace_block_etc #
96
#pragma interface nspace_block_etc_tag IS_nspace_block_etc
97
 
98
#pragma token PROC (\
99
	EXP : unsigned :,\
100
	EXP : IDENTIFIER :,\
101
	EXP : NAMESPACE :,\
102
	EXP lvalue : NAMESPACE :\
103
    ) STATEMENT MAKE_nspace_block_etc #
104
#pragma interface MAKE_nspace_block_etc
105
 
106
#pragma token PROC (\
107
	EXP : unsigned :,\
108
	EXP : NAMESPACE :\
109
    ) STATEMENT MODIFY_nspace_block_etc #
110
#pragma interface MODIFY_nspace_block_etc
111
 
112
#pragma token PROC (\
113
	EXP lvalue : IDENTIFIER :,\
114
	EXP lvalue : MEMBER :,\
115
	EXP lvalue : MEMBER :,\
116
	EXP lvalue : NAMESPACE :,\
117
	EXP lvalue : LIST ( NAMESPACE ) :,\
118
	EXP lvalue : LIST ( NAMESPACE ) :,\
119
	EXP lvalue : STACK ( IDENTIFIER ) :,\
120
	EXP lvalue : ulong_type :,\
121
	EXP : NAMESPACE :\
122
    ) STATEMENT DECONS_nspace_block_etc #
123
#pragma interface DECONS_nspace_block_etc
124
 
125
#pragma token PROC (\
126
	EXP : DESTROYER :,\
127
	EXP lvalue : IDENTIFIER :,\
128
	EXP lvalue : MEMBER :,\
129
	EXP lvalue : MEMBER :,\
130
	EXP lvalue : NAMESPACE :,\
131
	EXP lvalue : LIST ( NAMESPACE ) :,\
132
	EXP lvalue : LIST ( NAMESPACE ) :,\
133
	EXP lvalue : STACK ( IDENTIFIER ) :,\
134
	EXP lvalue : ulong_type :,\
135
	EXP : NAMESPACE :\
136
    ) STATEMENT DESTROY_nspace_block_etc #
137
#pragma interface DESTROY_nspace_block_etc
138
 
139
 
140
/* Operations for field block of union NAMESPACE */
141
 
142
#pragma token EXP const : unsigned : nspace_block_tag #
143
#pragma token PROC ( EXP : NAMESPACE : ) EXP : int : IS_nspace_block #
144
#pragma interface nspace_block_tag IS_nspace_block
145
 
146
#pragma token PROC (\
147
	EXP : IDENTIFIER :,\
148
	EXP : NAMESPACE :,\
149
	EXP lvalue : NAMESPACE :\
150
    ) STATEMENT MAKE_nspace_block #
151
#pragma interface MAKE_nspace_block
152
 
153
#pragma token PROC (\
154
	EXP lvalue : IDENTIFIER :,\
155
	EXP lvalue : MEMBER :,\
156
	EXP lvalue : MEMBER :,\
157
	EXP lvalue : NAMESPACE :,\
158
	EXP lvalue : LIST ( NAMESPACE ) :,\
159
	EXP lvalue : LIST ( NAMESPACE ) :,\
160
	EXP lvalue : STACK ( IDENTIFIER ) :,\
161
	EXP lvalue : ulong_type :,\
162
	EXP : NAMESPACE :\
163
    ) STATEMENT DECONS_nspace_block #
164
#pragma interface DECONS_nspace_block
165
 
166
#pragma token PROC (\
167
	EXP : DESTROYER :,\
168
	EXP lvalue : IDENTIFIER :,\
169
	EXP lvalue : MEMBER :,\
170
	EXP lvalue : MEMBER :,\
171
	EXP lvalue : NAMESPACE :,\
172
	EXP lvalue : LIST ( NAMESPACE ) :,\
173
	EXP lvalue : LIST ( NAMESPACE ) :,\
174
	EXP lvalue : STACK ( IDENTIFIER ) :,\
175
	EXP lvalue : ulong_type :,\
176
	EXP : NAMESPACE :\
177
    ) STATEMENT DESTROY_nspace_block #
178
#pragma interface DESTROY_nspace_block
179
 
180
 
181
/* Operations for field param of union NAMESPACE */
182
 
183
#pragma token EXP const : unsigned : nspace_param_tag #
184
#pragma token PROC ( EXP : NAMESPACE : ) EXP : int : IS_nspace_param #
185
#pragma interface nspace_param_tag IS_nspace_param
186
 
187
#pragma token PROC (\
188
	EXP : IDENTIFIER :,\
189
	EXP : NAMESPACE :,\
190
	EXP lvalue : NAMESPACE :\
191
    ) STATEMENT MAKE_nspace_param #
192
#pragma interface MAKE_nspace_param
193
 
194
#pragma token PROC (\
195
	EXP lvalue : IDENTIFIER :,\
196
	EXP lvalue : MEMBER :,\
197
	EXP lvalue : MEMBER :,\
198
	EXP lvalue : NAMESPACE :,\
199
	EXP lvalue : LIST ( NAMESPACE ) :,\
200
	EXP lvalue : LIST ( NAMESPACE ) :,\
201
	EXP lvalue : STACK ( IDENTIFIER ) :,\
202
	EXP lvalue : ulong_type :,\
203
	EXP : NAMESPACE :\
204
    ) STATEMENT DECONS_nspace_param #
205
#pragma interface DECONS_nspace_param
206
 
207
#pragma token PROC (\
208
	EXP : DESTROYER :,\
209
	EXP lvalue : IDENTIFIER :,\
210
	EXP lvalue : MEMBER :,\
211
	EXP lvalue : MEMBER :,\
212
	EXP lvalue : NAMESPACE :,\
213
	EXP lvalue : LIST ( NAMESPACE ) :,\
214
	EXP lvalue : LIST ( NAMESPACE ) :,\
215
	EXP lvalue : STACK ( IDENTIFIER ) :,\
216
	EXP lvalue : ulong_type :,\
217
	EXP : NAMESPACE :\
218
    ) STATEMENT DESTROY_nspace_param #
219
#pragma interface DESTROY_nspace_param
220
 
221
 
222
/* Operations for field dummy of union NAMESPACE */
223
 
224
#pragma token EXP const : unsigned : nspace_dummy_tag #
225
#pragma token PROC ( EXP : NAMESPACE : ) EXP : int : IS_nspace_dummy #
226
#pragma interface nspace_dummy_tag IS_nspace_dummy
227
 
228
#pragma token PROC (\
229
	EXP : IDENTIFIER :,\
230
	EXP : NAMESPACE :,\
231
	EXP lvalue : NAMESPACE :\
232
    ) STATEMENT MAKE_nspace_dummy #
233
#pragma interface MAKE_nspace_dummy
234
 
235
#pragma token PROC (\
236
	EXP lvalue : IDENTIFIER :,\
237
	EXP lvalue : MEMBER :,\
238
	EXP lvalue : MEMBER :,\
239
	EXP lvalue : NAMESPACE :,\
240
	EXP lvalue : LIST ( NAMESPACE ) :,\
241
	EXP lvalue : LIST ( NAMESPACE ) :,\
242
	EXP lvalue : STACK ( IDENTIFIER ) :,\
243
	EXP lvalue : ulong_type :,\
244
	EXP : NAMESPACE :\
245
    ) STATEMENT DECONS_nspace_dummy #
246
#pragma interface DECONS_nspace_dummy
247
 
248
#pragma token PROC (\
249
	EXP : DESTROYER :,\
250
	EXP lvalue : IDENTIFIER :,\
251
	EXP lvalue : MEMBER :,\
252
	EXP lvalue : MEMBER :,\
253
	EXP lvalue : NAMESPACE :,\
254
	EXP lvalue : LIST ( NAMESPACE ) :,\
255
	EXP lvalue : LIST ( NAMESPACE ) :,\
256
	EXP lvalue : STACK ( IDENTIFIER ) :,\
257
	EXP lvalue : ulong_type :,\
258
	EXP : NAMESPACE :\
259
    ) STATEMENT DESTROY_nspace_dummy #
260
#pragma interface DESTROY_nspace_dummy
261
 
262
 
263
/* Operations for field label of union NAMESPACE */
264
 
265
#pragma token EXP const : unsigned : nspace_label_tag #
266
#pragma token PROC ( EXP : NAMESPACE : ) EXP : int : IS_nspace_label #
267
#pragma interface nspace_label_tag IS_nspace_label
268
 
269
#pragma token PROC (\
270
	EXP : IDENTIFIER :,\
271
	EXP : NAMESPACE :,\
272
	EXP lvalue : NAMESPACE :\
273
    ) STATEMENT MAKE_nspace_label #
274
#pragma interface MAKE_nspace_label
275
 
276
#pragma token PROC (\
277
	EXP lvalue : IDENTIFIER :,\
278
	EXP lvalue : MEMBER :,\
279
	EXP lvalue : MEMBER :,\
280
	EXP lvalue : NAMESPACE :,\
281
	EXP lvalue : LIST ( NAMESPACE ) :,\
282
	EXP lvalue : LIST ( NAMESPACE ) :,\
283
	EXP lvalue : STACK ( IDENTIFIER ) :,\
284
	EXP lvalue : ulong_type :,\
285
	EXP : NAMESPACE :\
286
    ) STATEMENT DECONS_nspace_label #
287
#pragma interface DECONS_nspace_label
288
 
289
#pragma token PROC (\
290
	EXP : DESTROYER :,\
291
	EXP lvalue : IDENTIFIER :,\
292
	EXP lvalue : MEMBER :,\
293
	EXP lvalue : MEMBER :,\
294
	EXP lvalue : NAMESPACE :,\
295
	EXP lvalue : LIST ( NAMESPACE ) :,\
296
	EXP lvalue : LIST ( NAMESPACE ) :,\
297
	EXP lvalue : STACK ( IDENTIFIER ) :,\
298
	EXP lvalue : ulong_type :,\
299
	EXP : NAMESPACE :\
300
    ) STATEMENT DESTROY_nspace_label #
301
#pragma interface DESTROY_nspace_label
302
 
303
 
304
/* Operations for field templ of union NAMESPACE */
305
 
306
#pragma token EXP const : unsigned : nspace_templ_tag #
307
#pragma token PROC ( EXP : NAMESPACE : ) EXP : int : IS_nspace_templ #
308
#pragma interface nspace_templ_tag IS_nspace_templ
309
 
310
#pragma token PROC (\
311
	EXP : IDENTIFIER :,\
312
	EXP : NAMESPACE :,\
313
	EXP lvalue : NAMESPACE :\
314
    ) STATEMENT MAKE_nspace_templ #
315
#pragma interface MAKE_nspace_templ
316
 
317
#pragma token PROC (\
318
	EXP lvalue : IDENTIFIER :,\
319
	EXP lvalue : MEMBER :,\
320
	EXP lvalue : MEMBER :,\
321
	EXP lvalue : NAMESPACE :,\
322
	EXP lvalue : LIST ( NAMESPACE ) :,\
323
	EXP lvalue : LIST ( NAMESPACE ) :,\
324
	EXP lvalue : STACK ( IDENTIFIER ) :,\
325
	EXP lvalue : ulong_type :,\
326
	EXP : NAMESPACE :\
327
    ) STATEMENT DECONS_nspace_templ #
328
#pragma interface DECONS_nspace_templ
329
 
330
#pragma token PROC (\
331
	EXP : DESTROYER :,\
332
	EXP lvalue : IDENTIFIER :,\
333
	EXP lvalue : MEMBER :,\
334
	EXP lvalue : MEMBER :,\
335
	EXP lvalue : NAMESPACE :,\
336
	EXP lvalue : LIST ( NAMESPACE ) :,\
337
	EXP lvalue : LIST ( NAMESPACE ) :,\
338
	EXP lvalue : STACK ( IDENTIFIER ) :,\
339
	EXP lvalue : ulong_type :,\
340
	EXP : NAMESPACE :\
341
    ) STATEMENT DESTROY_nspace_templ #
342
#pragma interface DESTROY_nspace_templ
343
 
344
 
345
/* Operations for field set named_etc of union NAMESPACE */
346
 
347
#pragma token EXP const : unsigned : nspace_named_etc_tag #
348
#pragma token PROC ( EXP : NAMESPACE : ) EXP : int : IS_nspace_named_etc #
349
#pragma interface nspace_named_etc_tag IS_nspace_named_etc
350
 
351
#pragma token PROC ( EXP : NAMESPACE : )\
352
    EXP : PTR ( MEMBER ) : nspace_named_etc_first #
353
#pragma interface nspace_named_etc_first
354
 
355
#pragma token PROC ( EXP : NAMESPACE : )\
356
    EXP : PTR ( LIST ( IDENTIFIER ) ) : nspace_named_etc_extra #
357
#pragma interface nspace_named_etc_extra
358
 
359
#pragma token PROC ( EXP : NAMESPACE : )\
360
    EXP : PTR ( ulong_type ) : nspace_named_etc_size #
361
#pragma interface nspace_named_etc_size
362
 
363
#pragma token PROC ( EXP : NAMESPACE : )\
364
    EXP : PTR ( PTR ( MEMBER ) ) : nspace_named_etc_table #
365
#pragma interface nspace_named_etc_table
366
 
367
#pragma token PROC (\
368
	EXP : unsigned :,\
369
	EXP : IDENTIFIER :,\
370
	EXP : NAMESPACE :,\
371
	EXP : ulong_type :,\
372
	EXP : PTR ( MEMBER ) :,\
373
	EXP lvalue : NAMESPACE :\
374
    ) STATEMENT MAKE_nspace_named_etc #
375
#pragma interface MAKE_nspace_named_etc
376
 
377
#pragma token PROC (\
378
	EXP : unsigned :,\
379
	EXP : NAMESPACE :\
380
    ) STATEMENT MODIFY_nspace_named_etc #
381
#pragma interface MODIFY_nspace_named_etc
382
 
383
#pragma token PROC (\
384
	EXP lvalue : IDENTIFIER :,\
385
	EXP lvalue : MEMBER :,\
386
	EXP lvalue : MEMBER :,\
387
	EXP lvalue : NAMESPACE :,\
388
	EXP lvalue : LIST ( NAMESPACE ) :,\
389
	EXP lvalue : LIST ( NAMESPACE ) :,\
390
	EXP lvalue : STACK ( IDENTIFIER ) :,\
391
	EXP lvalue : ulong_type :,\
392
	EXP lvalue : MEMBER :,\
393
	EXP lvalue : LIST ( IDENTIFIER ) :,\
394
	EXP lvalue : ulong_type :,\
395
	EXP lvalue : PTR ( MEMBER ) :,\
396
	EXP : NAMESPACE :\
397
    ) STATEMENT DECONS_nspace_named_etc #
398
#pragma interface DECONS_nspace_named_etc
399
 
400
#pragma token PROC (\
401
	EXP : DESTROYER :,\
402
	EXP lvalue : IDENTIFIER :,\
403
	EXP lvalue : MEMBER :,\
404
	EXP lvalue : MEMBER :,\
405
	EXP lvalue : NAMESPACE :,\
406
	EXP lvalue : LIST ( NAMESPACE ) :,\
407
	EXP lvalue : LIST ( NAMESPACE ) :,\
408
	EXP lvalue : STACK ( IDENTIFIER ) :,\
409
	EXP lvalue : ulong_type :,\
410
	EXP lvalue : MEMBER :,\
411
	EXP lvalue : LIST ( IDENTIFIER ) :,\
412
	EXP lvalue : ulong_type :,\
413
	EXP lvalue : PTR ( MEMBER ) :,\
414
	EXP : NAMESPACE :\
415
    ) STATEMENT DESTROY_nspace_named_etc #
416
#pragma interface DESTROY_nspace_named_etc
417
 
418
 
419
/* Operations for field named of union NAMESPACE */
420
 
421
#pragma token EXP const : unsigned : nspace_named_tag #
422
#pragma token PROC ( EXP : NAMESPACE : ) EXP : int : IS_nspace_named #
423
#pragma interface nspace_named_tag IS_nspace_named
424
 
425
#pragma token PROC ( EXP : NAMESPACE : )\
426
    EXP : PTR ( MEMBER ) : nspace_named_first #
427
#pragma interface nspace_named_first
428
 
429
#pragma token PROC ( EXP : NAMESPACE : )\
430
    EXP : PTR ( LIST ( IDENTIFIER ) ) : nspace_named_extra #
431
#pragma interface nspace_named_extra
432
 
433
#pragma token PROC ( EXP : NAMESPACE : )\
434
    EXP : PTR ( ulong_type ) : nspace_named_size #
435
#pragma interface nspace_named_size
436
 
437
#pragma token PROC ( EXP : NAMESPACE : )\
438
    EXP : PTR ( PTR ( MEMBER ) ) : nspace_named_table #
439
#pragma interface nspace_named_table
440
 
441
#pragma token PROC (\
442
	EXP : IDENTIFIER :,\
443
	EXP : NAMESPACE :,\
444
	EXP : ulong_type :,\
445
	EXP : PTR ( MEMBER ) :,\
446
	EXP lvalue : NAMESPACE :\
447
    ) STATEMENT MAKE_nspace_named #
448
#pragma interface MAKE_nspace_named
449
 
450
#pragma token PROC (\
451
	EXP lvalue : IDENTIFIER :,\
452
	EXP lvalue : MEMBER :,\
453
	EXP lvalue : MEMBER :,\
454
	EXP lvalue : NAMESPACE :,\
455
	EXP lvalue : LIST ( NAMESPACE ) :,\
456
	EXP lvalue : LIST ( NAMESPACE ) :,\
457
	EXP lvalue : STACK ( IDENTIFIER ) :,\
458
	EXP lvalue : ulong_type :,\
459
	EXP lvalue : MEMBER :,\
460
	EXP lvalue : LIST ( IDENTIFIER ) :,\
461
	EXP lvalue : ulong_type :,\
462
	EXP lvalue : PTR ( MEMBER ) :,\
463
	EXP : NAMESPACE :\
464
    ) STATEMENT DECONS_nspace_named #
465
#pragma interface DECONS_nspace_named
466
 
467
#pragma token PROC (\
468
	EXP : DESTROYER :,\
469
	EXP lvalue : IDENTIFIER :,\
470
	EXP lvalue : MEMBER :,\
471
	EXP lvalue : MEMBER :,\
472
	EXP lvalue : NAMESPACE :,\
473
	EXP lvalue : LIST ( NAMESPACE ) :,\
474
	EXP lvalue : LIST ( NAMESPACE ) :,\
475
	EXP lvalue : STACK ( IDENTIFIER ) :,\
476
	EXP lvalue : ulong_type :,\
477
	EXP lvalue : MEMBER :,\
478
	EXP lvalue : LIST ( IDENTIFIER ) :,\
479
	EXP lvalue : ulong_type :,\
480
	EXP lvalue : PTR ( MEMBER ) :,\
481
	EXP : NAMESPACE :\
482
    ) STATEMENT DESTROY_nspace_named #
483
#pragma interface DESTROY_nspace_named
484
 
485
 
486
/* Operations for field unnamed of union NAMESPACE */
487
 
488
#pragma token EXP const : unsigned : nspace_unnamed_tag #
489
#pragma token PROC ( EXP : NAMESPACE : ) EXP : int : IS_nspace_unnamed #
490
#pragma interface nspace_unnamed_tag IS_nspace_unnamed
491
 
492
#pragma token PROC ( EXP : NAMESPACE : )\
493
    EXP : PTR ( MEMBER ) : nspace_unnamed_first #
494
#pragma interface nspace_unnamed_first
495
 
496
#pragma token PROC ( EXP : NAMESPACE : )\
497
    EXP : PTR ( LIST ( IDENTIFIER ) ) : nspace_unnamed_extra #
498
#pragma interface nspace_unnamed_extra
499
 
500
#pragma token PROC ( EXP : NAMESPACE : )\
501
    EXP : PTR ( ulong_type ) : nspace_unnamed_size #
502
#pragma interface nspace_unnamed_size
503
 
504
#pragma token PROC ( EXP : NAMESPACE : )\
505
    EXP : PTR ( PTR ( MEMBER ) ) : nspace_unnamed_table #
506
#pragma interface nspace_unnamed_table
507
 
508
#pragma token PROC (\
509
	EXP : IDENTIFIER :,\
510
	EXP : NAMESPACE :,\
511
	EXP : ulong_type :,\
512
	EXP : PTR ( MEMBER ) :,\
513
	EXP lvalue : NAMESPACE :\
514
    ) STATEMENT MAKE_nspace_unnamed #
515
#pragma interface MAKE_nspace_unnamed
516
 
517
#pragma token PROC (\
518
	EXP lvalue : IDENTIFIER :,\
519
	EXP lvalue : MEMBER :,\
520
	EXP lvalue : MEMBER :,\
521
	EXP lvalue : NAMESPACE :,\
522
	EXP lvalue : LIST ( NAMESPACE ) :,\
523
	EXP lvalue : LIST ( NAMESPACE ) :,\
524
	EXP lvalue : STACK ( IDENTIFIER ) :,\
525
	EXP lvalue : ulong_type :,\
526
	EXP lvalue : MEMBER :,\
527
	EXP lvalue : LIST ( IDENTIFIER ) :,\
528
	EXP lvalue : ulong_type :,\
529
	EXP lvalue : PTR ( MEMBER ) :,\
530
	EXP : NAMESPACE :\
531
    ) STATEMENT DECONS_nspace_unnamed #
532
#pragma interface DECONS_nspace_unnamed
533
 
534
#pragma token PROC (\
535
	EXP : DESTROYER :,\
536
	EXP lvalue : IDENTIFIER :,\
537
	EXP lvalue : MEMBER :,\
538
	EXP lvalue : MEMBER :,\
539
	EXP lvalue : NAMESPACE :,\
540
	EXP lvalue : LIST ( NAMESPACE ) :,\
541
	EXP lvalue : LIST ( NAMESPACE ) :,\
542
	EXP lvalue : STACK ( IDENTIFIER ) :,\
543
	EXP lvalue : ulong_type :,\
544
	EXP lvalue : MEMBER :,\
545
	EXP lvalue : LIST ( IDENTIFIER ) :,\
546
	EXP lvalue : ulong_type :,\
547
	EXP lvalue : PTR ( MEMBER ) :,\
548
	EXP : NAMESPACE :\
549
    ) STATEMENT DESTROY_nspace_unnamed #
550
#pragma interface DESTROY_nspace_unnamed
551
 
552
 
553
/* Operations for field global of union NAMESPACE */
554
 
555
#pragma token EXP const : unsigned : nspace_global_tag #
556
#pragma token PROC ( EXP : NAMESPACE : ) EXP : int : IS_nspace_global #
557
#pragma interface nspace_global_tag IS_nspace_global
558
 
559
#pragma token PROC ( EXP : NAMESPACE : )\
560
    EXP : PTR ( MEMBER ) : nspace_global_first #
561
#pragma interface nspace_global_first
562
 
563
#pragma token PROC ( EXP : NAMESPACE : )\
564
    EXP : PTR ( LIST ( IDENTIFIER ) ) : nspace_global_extra #
565
#pragma interface nspace_global_extra
566
 
567
#pragma token PROC ( EXP : NAMESPACE : )\
568
    EXP : PTR ( ulong_type ) : nspace_global_size #
569
#pragma interface nspace_global_size
570
 
571
#pragma token PROC ( EXP : NAMESPACE : )\
572
    EXP : PTR ( PTR ( MEMBER ) ) : nspace_global_table #
573
#pragma interface nspace_global_table
574
 
575
#pragma token PROC (\
576
	EXP : IDENTIFIER :,\
577
	EXP : NAMESPACE :,\
578
	EXP : ulong_type :,\
579
	EXP : PTR ( MEMBER ) :,\
580
	EXP lvalue : NAMESPACE :\
581
    ) STATEMENT MAKE_nspace_global #
582
#pragma interface MAKE_nspace_global
583
 
584
#pragma token PROC (\
585
	EXP lvalue : IDENTIFIER :,\
586
	EXP lvalue : MEMBER :,\
587
	EXP lvalue : MEMBER :,\
588
	EXP lvalue : NAMESPACE :,\
589
	EXP lvalue : LIST ( NAMESPACE ) :,\
590
	EXP lvalue : LIST ( NAMESPACE ) :,\
591
	EXP lvalue : STACK ( IDENTIFIER ) :,\
592
	EXP lvalue : ulong_type :,\
593
	EXP lvalue : MEMBER :,\
594
	EXP lvalue : LIST ( IDENTIFIER ) :,\
595
	EXP lvalue : ulong_type :,\
596
	EXP lvalue : PTR ( MEMBER ) :,\
597
	EXP : NAMESPACE :\
598
    ) STATEMENT DECONS_nspace_global #
599
#pragma interface DECONS_nspace_global
600
 
601
#pragma token PROC (\
602
	EXP : DESTROYER :,\
603
	EXP lvalue : IDENTIFIER :,\
604
	EXP lvalue : MEMBER :,\
605
	EXP lvalue : MEMBER :,\
606
	EXP lvalue : NAMESPACE :,\
607
	EXP lvalue : LIST ( NAMESPACE ) :,\
608
	EXP lvalue : LIST ( NAMESPACE ) :,\
609
	EXP lvalue : STACK ( IDENTIFIER ) :,\
610
	EXP lvalue : ulong_type :,\
611
	EXP lvalue : MEMBER :,\
612
	EXP lvalue : LIST ( IDENTIFIER ) :,\
613
	EXP lvalue : ulong_type :,\
614
	EXP lvalue : PTR ( MEMBER ) :,\
615
	EXP : NAMESPACE :\
616
    ) STATEMENT DESTROY_nspace_global #
617
#pragma interface DESTROY_nspace_global
618
 
619
 
620
/* Operations for field ctype of union NAMESPACE */
621
 
622
#pragma token EXP const : unsigned : nspace_ctype_tag #
623
#pragma token PROC ( EXP : NAMESPACE : ) EXP : int : IS_nspace_ctype #
624
#pragma interface nspace_ctype_tag IS_nspace_ctype
625
 
626
#pragma token PROC ( EXP : NAMESPACE : )\
627
    EXP : PTR ( MEMBER ) : nspace_ctype_first #
628
#pragma interface nspace_ctype_first
629
 
630
#pragma token PROC ( EXP : NAMESPACE : )\
631
    EXP : PTR ( LIST ( IDENTIFIER ) ) : nspace_ctype_extra #
632
#pragma interface nspace_ctype_extra
633
 
634
#pragma token PROC ( EXP : NAMESPACE : )\
635
    EXP : PTR ( ulong_type ) : nspace_ctype_size #
636
#pragma interface nspace_ctype_size
637
 
638
#pragma token PROC ( EXP : NAMESPACE : )\
639
    EXP : PTR ( PTR ( MEMBER ) ) : nspace_ctype_table #
640
#pragma interface nspace_ctype_table
641
 
642
#pragma token PROC (\
643
	EXP : IDENTIFIER :,\
644
	EXP : NAMESPACE :,\
645
	EXP : ulong_type :,\
646
	EXP : PTR ( MEMBER ) :,\
647
	EXP lvalue : NAMESPACE :\
648
    ) STATEMENT MAKE_nspace_ctype #
649
#pragma interface MAKE_nspace_ctype
650
 
651
#pragma token PROC (\
652
	EXP lvalue : IDENTIFIER :,\
653
	EXP lvalue : MEMBER :,\
654
	EXP lvalue : MEMBER :,\
655
	EXP lvalue : NAMESPACE :,\
656
	EXP lvalue : LIST ( NAMESPACE ) :,\
657
	EXP lvalue : LIST ( NAMESPACE ) :,\
658
	EXP lvalue : STACK ( IDENTIFIER ) :,\
659
	EXP lvalue : ulong_type :,\
660
	EXP lvalue : MEMBER :,\
661
	EXP lvalue : LIST ( IDENTIFIER ) :,\
662
	EXP lvalue : ulong_type :,\
663
	EXP lvalue : PTR ( MEMBER ) :,\
664
	EXP : NAMESPACE :\
665
    ) STATEMENT DECONS_nspace_ctype #
666
#pragma interface DECONS_nspace_ctype
667
 
668
#pragma token PROC (\
669
	EXP : DESTROYER :,\
670
	EXP lvalue : IDENTIFIER :,\
671
	EXP lvalue : MEMBER :,\
672
	EXP lvalue : MEMBER :,\
673
	EXP lvalue : NAMESPACE :,\
674
	EXP lvalue : LIST ( NAMESPACE ) :,\
675
	EXP lvalue : LIST ( NAMESPACE ) :,\
676
	EXP lvalue : STACK ( IDENTIFIER ) :,\
677
	EXP lvalue : ulong_type :,\
678
	EXP lvalue : MEMBER :,\
679
	EXP lvalue : LIST ( IDENTIFIER ) :,\
680
	EXP lvalue : ulong_type :,\
681
	EXP lvalue : PTR ( MEMBER ) :,\
682
	EXP : NAMESPACE :\
683
    ) STATEMENT DESTROY_nspace_ctype #
684
#pragma interface DESTROY_nspace_ctype
685
 
686
 
687
#endif