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         "BEGIN"
  11         "       k := -10 + 1;"
  12         "       i := k;"
  13         "       b := ~TRUE OR FALSE;"
  14         "END Test."
  15 ;
  16
  17 static oberon_context_t * ctx;
  18 static oberon_module_t * mod;
  19
  20 int
  21 main(int argc, char ** argv)
  22 {
  23         ctx = oberon_create_context();
  24         mod = oberon_compile_module(ctx, source);
  25         oberon_destroy_context(ctx);
  26         return 0;
  27 }