7149026862087a8f63577916ffd361e8b89b08ef
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
[] =
20 static oberon_context_t
* ctx
;
21 static oberon_module_t
* mod
;
24 main(int argc
, char ** argv
)
26 ctx
= oberon_create_context();
27 oberon_register_global_type(ctx
, &integer
);
28 oberon_register_global_type(ctx
, &boolean
);
29 mod
= oberon_compile_module(ctx
, source
);
30 oberon_destroy_context(ctx
);