Subversion Repositories tendra.SVN

Rev

Rev 2 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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