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 CTYPE_OPS_H_INCLUDED
36 
#define CTYPE_OPS_H_INCLUDED
37 
 
38 
/* Operations for union CLASS_TYPE */
39 
 
6 7u83 40 
#pragma token PROC(EXP : CLASS_TYPE :) EXP : unsigned : TAG_ctype #
2 7u83 41 
#pragma interface TAG_ctype
42 
 
43 
 
44 
/* Operations for component name of union CLASS_TYPE */
45 
 
6 7u83 46 
#pragma token PROC(EXP : CLASS_TYPE :)\
47 
    EXP : PTR(IDENTIFIER) : ctype_name #
2 7u83 48 
#pragma interface ctype_name
49 
 
50 
/* Operations for component info of union CLASS_TYPE */
51 
 
6 7u83 52 
#pragma token PROC(EXP : CLASS_TYPE :)\
53 
    EXP : PTR(CLASS_INFO) : ctype_info #
2 7u83 54 
#pragma interface ctype_info
55 
 
56 
/* Operations for component usage of union CLASS_TYPE */
57 
 
6 7u83 58 
#pragma token PROC(EXP : CLASS_TYPE :)\
59 
    EXP : PTR(CLASS_USAGE) : ctype_usage #
2 7u83 60 
#pragma interface ctype_usage
61 
 
62 
/* Operations for component member of union CLASS_TYPE */
63 
 
6 7u83 64 
#pragma token PROC(EXP : CLASS_TYPE :)\
65 
    EXP : PTR(NAMESPACE) : ctype_member #
2 7u83 66 
#pragma interface ctype_member
67 
 
68 
/* Operations for component base of union CLASS_TYPE */
69 
 
6 7u83 70 
#pragma token PROC(EXP : CLASS_TYPE :)\
71 
    EXP : PTR(GRAPH) : ctype_base #
2 7u83 72 
#pragma interface ctype_base
73 
 
74 
/* Operations for component no_bases of union CLASS_TYPE */
75 
 
6 7u83 76 
#pragma token PROC(EXP : CLASS_TYPE :)\
77 
    EXP : PTR(unsigned) : ctype_no_bases #
2 7u83 78 
#pragma interface ctype_no_bases
79 
 
80 
/* Operations for component prev of union CLASS_TYPE */
81 
 
6 7u83 82 
#pragma token PROC(EXP : CLASS_TYPE :)\
83 
    EXP : PTR(TYPE) : ctype_prev #
2 7u83 84 
#pragma interface ctype_prev
85 
 
86 
/* Operations for component form of union CLASS_TYPE */
87 
 
6 7u83 88 
#pragma token PROC(EXP : CLASS_TYPE :)\
89 
    EXP : PTR(TYPE) : ctype_form #
2 7u83 90 
#pragma interface ctype_form
91 
 
92 
/* Operations for component constr of union CLASS_TYPE */
93 
 
6 7u83 94 
#pragma token PROC(EXP : CLASS_TYPE :)\
95 
    EXP : PTR(IDENTIFIER) : ctype_constr #
2 7u83 96 
#pragma interface ctype_constr
97 
 
98 
/* Operations for component destr of union CLASS_TYPE */
99 
 
6 7u83 100 
#pragma token PROC(EXP : CLASS_TYPE :)\
101 
    EXP : PTR(IDENTIFIER) : ctype_destr #
2 7u83 102 
#pragma interface ctype_destr
103 
 
104 
/* Operations for component virt of union CLASS_TYPE */
105 
 
6 7u83 106 
#pragma token PROC(EXP : CLASS_TYPE :)\
107 
    EXP : PTR(VIRTUAL) : ctype_virt #
2 7u83 108 
#pragma interface ctype_virt
109 
 
110 
/* Operations for component vbase of union CLASS_TYPE */
111 
 
6 7u83 112 
#pragma token PROC(EXP : CLASS_TYPE :)\
113 
    EXP : PTR(LIST(GRAPH)) : ctype_vbase #
2 7u83 114 
#pragma interface ctype_vbase
115 
 
116 
/* Operations for component conv of union CLASS_TYPE */
117 
 
6 7u83 118 
#pragma token PROC(EXP : CLASS_TYPE :)\
119 
    EXP : PTR(LIST(IDENTIFIER)) : ctype_conv #
2 7u83 120 
#pragma interface ctype_conv
121 
 
122 
/* Operations for component chums of union CLASS_TYPE */
123 
 
6 7u83 124 
#pragma token PROC(EXP : CLASS_TYPE :)\
125 
    EXP : PTR(LIST(CLASS_TYPE)) : ctype_chums #
2 7u83 126 
#pragma interface ctype_chums
127 
 
128 
/* Operations for component pals of union CLASS_TYPE */
129 
 
6 7u83 130 
#pragma token PROC(EXP : CLASS_TYPE :)\
131 
    EXP : PTR(LIST(IDENTIFIER)) : ctype_pals #
2 7u83 132 
#pragma interface ctype_pals
133 
 
134 
/* Operations for component nest of union CLASS_TYPE */
135 
 
6 7u83 136 
#pragma token PROC(EXP : CLASS_TYPE :)\
137 
    EXP : PTR(LIST(IDENTIFIER)) : ctype_nest #
2 7u83 138 
#pragma interface ctype_nest
139 
 
140 
/* Operations for component tok1 of union CLASS_TYPE */
141 
 
6 7u83 142 
#pragma token PROC(EXP : CLASS_TYPE :)\
143 
    EXP : PTR(ulong_type) : ctype_tok1 #
2 7u83 144 
#pragma interface ctype_tok1
145 
 
146 
/* Operations for component tok2 of union CLASS_TYPE */
147 
 
6 7u83 148 
#pragma token PROC(EXP : CLASS_TYPE :)\
149 
    EXP : PTR(ulong_type) : ctype_tok2 #
2 7u83 150 
#pragma interface ctype_tok2
151 
 
152 
/* Operations for field basic of union CLASS_TYPE */
153 
 
154 
#pragma token EXP const : unsigned : ctype_basic_tag #
6 7u83 155 
#pragma token PROC(EXP : CLASS_TYPE :) EXP : int : IS_ctype_basic #
2 7u83 156 
#pragma interface ctype_basic_tag IS_ctype_basic
157 
 
6 7u83 158 
#pragma token PROC(\
2 7u83 159 
	EXP : IDENTIFIER :,\
160 
	EXP : CLASS_INFO :,\
161 
	EXP : CLASS_USAGE :,\
162 
	EXP : NAMESPACE :,\
163 
	EXP : GRAPH :,\
164 
	EXP : unsigned :,\
165 
	EXP : TYPE :,\
166 
	EXP lvalue : CLASS_TYPE :\
167 
    ) STATEMENT MAKE_ctype_basic #
168 
#pragma interface MAKE_ctype_basic
169 
 
6 7u83 170 
#pragma token PROC(\
2 7u83 171 
	EXP lvalue : IDENTIFIER :,\
172 
	EXP lvalue : CLASS_INFO :,\
173 
	EXP lvalue : CLASS_USAGE :,\
174 
	EXP lvalue : NAMESPACE :,\
175 
	EXP lvalue : GRAPH :,\
176 
	EXP lvalue : unsigned :,\
177 
	EXP lvalue : TYPE :,\
178 
	EXP lvalue : TYPE :,\
179 
	EXP lvalue : IDENTIFIER :,\
180 
	EXP lvalue : IDENTIFIER :,\
181 
	EXP lvalue : VIRTUAL :,\
6 7u83 182 
	EXP lvalue : LIST(GRAPH) :,\
183 
	EXP lvalue : LIST(IDENTIFIER) :,\
184 
	EXP lvalue : LIST(CLASS_TYPE) :,\
185 
	EXP lvalue : LIST(IDENTIFIER) :,\
186 
	EXP lvalue : LIST(IDENTIFIER) :,\
2 7u83 187 
	EXP lvalue : ulong_type :,\
188 
	EXP lvalue : ulong_type :,\
189 
	EXP : CLASS_TYPE :\
190 
    ) STATEMENT DECONS_ctype_basic #
191 
#pragma interface DECONS_ctype_basic
192 
 
6 7u83 193 
#pragma token PROC(\
2 7u83 194 
	EXP : DESTROYER :,\
195 
	EXP lvalue : IDENTIFIER :,\
196 
	EXP lvalue : CLASS_INFO :,\
197 
	EXP lvalue : CLASS_USAGE :,\
198 
	EXP lvalue : NAMESPACE :,\
199 
	EXP lvalue : GRAPH :,\
200 
	EXP lvalue : unsigned :,\
201 
	EXP lvalue : TYPE :,\
202 
	EXP lvalue : TYPE :,\
203 
	EXP lvalue : IDENTIFIER :,\
204 
	EXP lvalue : IDENTIFIER :,\
205 
	EXP lvalue : VIRTUAL :,\
6 7u83 206 
	EXP lvalue : LIST(GRAPH) :,\
207 
	EXP lvalue : LIST(IDENTIFIER) :,\
208 
	EXP lvalue : LIST(CLASS_TYPE) :,\
209 
	EXP lvalue : LIST(IDENTIFIER) :,\
210 
	EXP lvalue : LIST(IDENTIFIER) :,\
2 7u83 211 
	EXP lvalue : ulong_type :,\
212 
	EXP lvalue : ulong_type :,\
213 
	EXP : CLASS_TYPE :\
214 
    ) STATEMENT DESTROY_ctype_basic #
215 
#pragma interface DESTROY_ctype_basic
216 
 
217 
 
218 
#endif