test.c

   1 #include "oberon.h"
   2 #include <assert.h>
   3
   4 static oberon_type_t integer = { "INTEGER", OBERON_TYPE_INTEGER, sizeof(int) };
   5 static oberon_type_t boolean = { "BOOLEAN", OBERON_TYPE_BOOLEAN, sizeof(int) };
   6
   7 static const char source[] =
   8         "MODULE Test;"
   9         "VAR"
  10         "       k : INTEGER;"
  11         "       i : INTEGER;"
  12         "       b : BOOLEAN;"
  13         "BEGIN"
  14         "       k := 10;"
  15         "       i := k;"
  16         "       b := TRUE;"
  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         oberon_register_global_type(ctx, &integer);
  28         oberon_register_global_type(ctx, &boolean);
  29         mod = oberon_compile_module(ctx, source);
  30         oberon_destroy_context(ctx);
  31         return 0;
  32 }