4 static oberon_type_t integer
= { "INTEGER", OBERON_TYPE_INTEGER
, sizeof(int) };
5 static oberon_type_t boolean
= { "BOOLEAN", OBERON_TYPE_BOOLEAN
, sizeof(int) };
7 static const char source
[] =
17 static oberon_context_t
* ctx
;
18 static oberon_module_t
* mod
;
21 main(int argc
, char ** argv
)
23 ctx
= oberon_create_context();
24 oberon_register_global_type(ctx
, &integer
);
25 oberon_register_global_type(ctx
, &boolean
);
26 mod
= oberon_compile_module(ctx
, source
);