Subversion Repositories tendra.SVN

Rev

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