test.c

   1 #include "oberon.h"
   2 #include "generator.h"
   3 #include <assert.h>
   4
   5 static const char source[] =
   6         "MODULE Test;"
   7         "TYPE"
   8         "       Callback = PROCEDURE() : INTEGER;"
   9         ""
  10         "VAR"
  11         "       cb : Callback;"
  12         "       i : INTEGER;"
  13         ""
  14         "PROCEDURE RelBack;"
  15         "BEGIN"
  16         "       i := 666;"
  17         "END RelBack;"
  18         ""
  19         "BEGIN;"
  20         "       i := ABS(-1);"
  21         "       i := cb();"
  22         "       RelBack;"
  23         "END Test."
  24 ;
  25
  26 static oberon_context_t * ctx;
  27 static oberon_module_t * mod;
  28
  29 int
  30 main(int argc, char ** argv)
  31 {
  32         ctx = oberon_create_context();
  33         mod = oberon_compile_module(ctx, source);
  34         //mod -> begin();
  35         oberon_generator_dump(ctx, "dump.txt");
  36         oberon_destroy_context(ctx);
  37         return 0;
  38 }