Subversion Repositories tendra.SVN

Rev

Rev 2 | 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 INST_OPS_H_INCLUDED
36 
#define INST_OPS_H_INCLUDED
37 
 
38 
/* Operations for union INSTANCE */
39 
 
7 7u83 40 
#pragma token PROC(EXP : INSTANCE :) EXP : unsigned : TAG_inst #
2 7u83 41 
#pragma interface TAG_inst
42 
 
43 
 
44 
/* Operations for component form of union INSTANCE */
45 
 
7 7u83 46 
#pragma token PROC(EXP : INSTANCE :)\
47 
    EXP : PTR(TYPE) : inst_form #
2 7u83 48 
#pragma interface inst_form
49 
 
50 
/* Operations for component alias of union INSTANCE */
51 
 
7 7u83 52 
#pragma token PROC(EXP : INSTANCE :)\
53 
    EXP : PTR(INSTANCE) : inst_alias #
2 7u83 54 
#pragma interface inst_alias
55 
 
56 
/* Operations for component next of union INSTANCE */
57 
 
7 7u83 58 
#pragma token PROC(EXP : INSTANCE :)\
59 
    EXP : PTR(INSTANCE) : inst_next #
2 7u83 60 
#pragma interface inst_next
61 
 
62 
/* Operations for field templ of union INSTANCE */
63 
 
64 
#pragma token EXP const : unsigned : inst_templ_tag #
7 7u83 65 
#pragma token PROC(EXP : INSTANCE :) EXP : int : IS_inst_templ #
2 7u83 66 
#pragma interface inst_templ_tag IS_inst_templ
67 
 
7 7u83 68 
#pragma token PROC(EXP : INSTANCE :)\
69 
    EXP : PTR(IDENTIFIER) : inst_templ_id #
2 7u83 70 
#pragma interface inst_templ_id
71 
 
7 7u83 72 
#pragma token PROC(EXP : INSTANCE :)\
73 
    EXP : PTR(TYPE) : inst_templ_spec #
2 7u83 74 
#pragma interface inst_templ_spec
75 
 
7 7u83 76 
#pragma token PROC(EXP : INSTANCE :)\
77 
    EXP : PTR(DECL_SPEC) : inst_templ_access #
2 7u83 78 
#pragma interface inst_templ_access
79 
 
7 7u83 80 
#pragma token PROC(EXP : INSTANCE :)\
81 
    EXP : PTR(PPTOKEN_P) : inst_templ_mode #
2 7u83 82 
#pragma interface inst_templ_mode
83 
 
7 7u83 84 
#pragma token PROC(EXP : INSTANCE :)\
85 
    EXP : PTR(LIST(IDENTIFIER)) : inst_templ_mems #
2 7u83 86 
#pragma interface inst_templ_mems
87 
 
7 7u83 88 
#pragma token PROC(EXP : INSTANCE :)\
89 
    EXP : PTR(INSTANCE) : inst_templ_prev #
2 7u83 90 
#pragma interface inst_templ_prev
91 
 
7 7u83 92 
#pragma token PROC(\
2 7u83 93 
	EXP : TYPE :,\
94 
	EXP : INSTANCE :,\
95 
	EXP : IDENTIFIER :,\
96 
	EXP : DECL_SPEC :,\
97 
	EXP : INSTANCE :,\
98 
	EXP lvalue : INSTANCE :\
99 
    ) STATEMENT MAKE_inst_templ #
100 
#pragma interface MAKE_inst_templ
101 
 
7 7u83 102 
#pragma token PROC(\
2 7u83 103 
	EXP lvalue : TYPE :,\
104 
	EXP lvalue : INSTANCE :,\
105 
	EXP lvalue : INSTANCE :,\
106 
	EXP lvalue : IDENTIFIER :,\
107 
	EXP lvalue : TYPE :,\
108 
	EXP lvalue : DECL_SPEC :,\
109 
	EXP lvalue : PPTOKEN_P :,\
7 7u83 110 
	EXP lvalue : LIST(IDENTIFIER) :,\
2 7u83 111 
	EXP lvalue : INSTANCE :,\
112 
	EXP : INSTANCE :\
113 
    ) STATEMENT DECONS_inst_templ #
114 
#pragma interface DECONS_inst_templ
115 
 
7 7u83 116 
#pragma token PROC(\
2 7u83 117 
	EXP : DESTROYER :,\
118 
	EXP lvalue : TYPE :,\
119 
	EXP lvalue : INSTANCE :,\
120 
	EXP lvalue : INSTANCE :,\
121 
	EXP lvalue : IDENTIFIER :,\
122 
	EXP lvalue : TYPE :,\
123 
	EXP lvalue : DECL_SPEC :,\
124 
	EXP lvalue : PPTOKEN_P :,\
7 7u83 125 
	EXP lvalue : LIST(IDENTIFIER) :,\
2 7u83 126 
	EXP lvalue : INSTANCE :,\
127 
	EXP : INSTANCE :\
128 
    ) STATEMENT DESTROY_inst_templ #
129 
#pragma interface DESTROY_inst_templ
130 
 
131 
 
132 
/* Operations for field token of union INSTANCE */
133 
 
134 
#pragma token EXP const : unsigned : inst_token_tag #
7 7u83 135 
#pragma token PROC(EXP : INSTANCE :) EXP : int : IS_inst_token #
2 7u83 136 
#pragma interface inst_token_tag IS_inst_token
137 
 
7 7u83 138 
#pragma token PROC(EXP : INSTANCE :)\
139 
    EXP : PTR(ulong_type) : inst_token_no #
2 7u83 140 
#pragma interface inst_token_no
141 
 
7 7u83 142 
#pragma token PROC(\
2 7u83 143 
	EXP : TYPE :,\
144 
	EXP : INSTANCE :,\
145 
	EXP lvalue : INSTANCE :\
146 
    ) STATEMENT MAKE_inst_token #
147 
#pragma interface MAKE_inst_token
148 
 
7 7u83 149 
#pragma token PROC(\
2 7u83 150 
	EXP lvalue : TYPE :,\
151 
	EXP lvalue : INSTANCE :,\
152 
	EXP lvalue : INSTANCE :,\
153 
	EXP lvalue : ulong_type :,\
154 
	EXP : INSTANCE :\
155 
    ) STATEMENT DECONS_inst_token #
156 
#pragma interface DECONS_inst_token
157 
 
7 7u83 158 
#pragma token PROC(\
2 7u83 159 
	EXP : DESTROYER :,\
160 
	EXP lvalue : TYPE :,\
161 
	EXP lvalue : INSTANCE :,\
162 
	EXP lvalue : INSTANCE :,\
163 
	EXP lvalue : ulong_type :,\
164 
	EXP : INSTANCE :\
165 
    ) STATEMENT DESTROY_inst_token #
166 
#pragma interface DESTROY_inst_token
167 
 
168 
 
169 
#endif