test.c

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