0a97386fda71b126636f70500fe0643fa3597862
1 #ifndef OBERON_INTERNALS_H
2 #define OBERON_INTERNALS_H
4 #include <stdint.h>
5 #include <stdbool.h>
24 struct oberon_scope_t
25 {
35 };
37 enum oberon_type_kind
38 {
39 OBERON_TYPE_NOTYPE,
40 OBERON_TYPE_INTEGER,
41 OBERON_TYPE_BOOLEAN,
42 OBERON_TYPE_PROCEDURE,
43 OBERON_TYPE_ARRAY,
44 OBERON_TYPE_RECORD,
45 OBERON_TYPE_POINTER,
46 OBERON_TYPE_REAL,
47 OBERON_TYPE_CHAR,
48 OBERON_TYPE_STRING,
49 OBERON_TYPE_SET,
50 OBERON_TYPE_NIL,
51 OBERON_TYPE_SYSTEM_BYTE,
52 OBERON_TYPE_SYSTEM_PTR
53 };
58 struct oberon_type_t
59 {
71 GenerateFuncCallback genfunc;
72 GenerateProcCallback genproc;
79 };
81 enum oberon_object_kind
82 {
83 OBERON_CLASS_VAR,
84 OBERON_CLASS_TYPE,
85 OBERON_CLASS_PROC,
86 OBERON_CLASS_PARAM,
87 OBERON_CLASS_VAR_PARAM,
88 OBERON_CLASS_CONST,
89 OBERON_CLASS_FIELD,
90 OBERON_CLASS_MODULE
91 };
93 struct oberon_object_t
94 {
118 };
120 struct oberon_module_t
121 {
131 };
135 struct oberon_context_t
136 {
137 /*** SCANER DATA ***/
147 /*** END SCANER DATA ***/
149 /*** PARSER DATA ***/
152 /*** END PARSER DATA ***/
173 ModuleImportCallback import_module;
175 };
177 enum oberon_mode_kind
178 {
179 MODE_VAR,
180 MODE_INTEGER,
181 MODE_BOOLEAN,
182 MODE_CALL,
183 MODE_INDEX,
184 MODE_FIELD,
185 MODE_DEREF,
186 MODE_NIL,
187 MODE_NEW,
188 MODE_REAL,
189 MODE_CHAR,
190 MODE_STRING,
191 MODE_TYPE,
192 MODE_SET,
193 MODE_LEN
194 };
196 enum oberon_operator_kind
197 {
198 OP_UNARY_MINUS,
199 OP_LOGIC_NOT,
200 OP_ABS,
201 OP_CAP,
202 OP_ENTIER,
204 OP_ADD,
205 OP_SUB,
206 OP_MUL,
207 OP_DIV,
208 OP_MOD,
209 OP_LOGIC_AND,
210 OP_LOGIC_OR,
212 OP_EQ,
213 OP_NEQ,
214 OP_LSS,
215 OP_LEQ,
216 OP_GRT,
217 OP_GEQ,
219 OP_CAST,
220 OP_IS,
222 OP_RANGE,
223 OP_UNION,
224 OP_INTERSECTION,
225 OP_DIFFERENCE,
226 OP_SYM_DIFFERENCE,
227 OP_COMPLEMENTATION,
228 OP_IN,
230 OP_ASH
231 };
233 struct oberon_item_t
234 {
250 };
252 struct oberon_oper_t
253 {
262 };
264 union oberon_expr_t
265 {
271 };
273 oberon_item_t item;
274 oberon_oper_t oper;
275 };