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 := ABS(-666);"
  25         "       Tier(i);"
  26         "       ABS(1);"
  27         "END Test."
  28 ;
  29
  30 static oberon_context_t * ctx;
  31 static oberon_module_t * mod;
  32
  33 int
  34 main(int argc, char ** argv)
  35 {
  36         ctx = oberon_create_context();
  37         mod = oberon_compile_module(ctx, source);
  38         //mod -> begin();
  39         oberon_generator_dump(ctx, "dump.txt");
  40         oberon_destroy_context(ctx);
  41         return 0;
  42 }