2c2966752c60839008da78f4ce6eec82f9154e3a
5 static const char source
[] =
11 "PROCEDURE Tier(VAR x : INTEGER);"
22 static oberon_context_t
* ctx
;
23 static oberon_module_t
* mod
;
26 main(int argc
, char ** argv
)
28 ctx
= oberon_create_context();
29 mod
= oberon_compile_module(ctx
, source
);
31 oberon_generator_dump(ctx
, "dump.txt");
32 oberon_destroy_context(ctx
);