test.c

   1 #include "oberon.h"
   2 #include <assert.h>
   3
   4 static const char source[] =
   5         "MODULE Test;"
   6         "CONST"
   7         "       con = 3;"
   8         ""
   9         "TYPE"
  10         "       MyInt = INTEGER;"
  11         "       MyArr = ARRAY con OF MyInt;"
  12         ""
  13         "VAR"
  14         "       k : INTEGER;"
  15         "       i : INTEGER;"
  16         "       b : BOOLEAN;"
  17         "       arr : MyArr;"
  18         ""
  19         "PROCEDURE Tier;"
  20         "BEGIN"
  21         "       k := 314 + con;"
  22         "END Tier;"
  23         ""
  24         "PROCEDURE Tier2(x : INTEGER; y : INTEGER);"
  25         "BEGIN"
  26         "       k := x + y;"
  27         "END Tier2;"
  28         ""
  29         "PROCEDURE Tier3(x : INTEGER) : INTEGER;"
  30         "BEGIN"
  31         "       RETURN x * x * x;"
  32         "END Tier3;"
  33         ""
  34         "BEGIN"
  35         "       k := 1;"
  36         "       i := k;"
  37         "       b := (TRUE # FALSE);"
  38         "       Tier();"
  39         "       Tier2(21, 13);"
  40         "       k := Tier3(2);"
  41 //      "       arr[0] := 1;"
  42         "END Test."
  43 ;
  44
  45 static oberon_context_t * ctx;
  46 static oberon_module_t * mod;
  47
  48 int
  49 main(int argc, char ** argv)
  50 {
  51         ctx = oberon_create_context();
  52         mod = oberon_compile_module(ctx, source);
  53         //mod -> begin();
  54         oberon_destroy_context(ctx);
  55         return 0;
  56 }