test.c

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