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         "       Rec = RECORD i : INTEGER; END;"
   9         "VAR"
  10         "       i : INTEGER;"
  11         "       j : INTEGER;"
  12         ""
  13         "PROCEDURE ^ Tier(x : INTEGER);"
  14         ""
  15         "PROCEDURE Tier(x : INTEGER);"
  16         "VAR a : INTEGER;"
  17         "BEGIN;"
  18         "       a := 1;"
  19         "END Tier;"
  20         ""
  21         "PROCEDURE ^ Tier(x : INTEGER);"
  22         ""
  23         "BEGIN;"
  24         "       i := 666;"
  25         "       Tier(1);"
  26         "END Test."
  27 ;
  28
  29 static oberon_context_t * ctx;
  30 static oberon_module_t * mod;
  31
  32 int
  33 main(int argc, char ** argv)
  34 {
  35         ctx = oberon_create_context();
  36         mod = oberon_compile_module(ctx, source);
  37         //mod -> begin();
  38         oberon_generator_dump(ctx, "dump.txt");
  39         oberon_destroy_context(ctx);
  40         return 0;
  41 }