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         "       MyRec = POINTER TO MyRecDesc;"
   9         "       MyRecDesc = RECORD"
  10         "               a : INTEGER;"
  11         "       END;"
  12         "VAR"
  13         "       r : MyRec;"
  14         "BEGIN;"
  15         "       r := NIL;"
  16         "       r.a := 1;"
  17         "END Test."
  18 ;
  19
  20 static oberon_context_t * ctx;
  21 static oberon_module_t * mod;
  22
  23 int
  24 main(int argc, char ** argv)
  25 {
  26         ctx = oberon_create_context();
  27         mod = oberon_compile_module(ctx, source);
  28         //mod -> begin();
  29         oberon_generator_dump(ctx, "dump.txt");
  30         oberon_destroy_context(ctx);
  31         return 0;
  32 }