#include "oberon.h"
#include <assert.h>

static const char source[] =
	"MODULE Test;"
	"CONST"
	"	con = 3;"
	""
	"TYPE"
	"	MyInt = INTEGER;"
	"	MyArr = ARRAY con OF MyInt;"
	""
	"VAR"
	"	k : INTEGER;"
	"	i : INTEGER;"
	"	b : BOOLEAN;"
	"	arr : MyArr;"
	""
	"PROCEDURE Tier;"
	"BEGIN"
	"	k := 314 + con;"
	"END Tier;"
	""
	"PROCEDURE Tier2(x : INTEGER; y : INTEGER);"
	"BEGIN"
	"	k := x + y;"
	"END Tier2;"
	""
	"PROCEDURE Tier3(x : INTEGER) : INTEGER;"
	"BEGIN"
	"	RETURN x * x * x;"
	"END Tier3;"
	""
	"BEGIN"
	"	k := 1;"
	"	i := k;"
	"	b := (TRUE # FALSE);"
	"	Tier();"
	"	Tier2(21, 13);"
	"	k := Tier3(2);"
//	"	arr[0] := 1;"
	"END Test."
;

static oberon_context_t * ctx;
static oberon_module_t * mod;

int
main(int argc, char ** argv)
{
	ctx = oberon_create_context();
	mod = oberon_compile_module(ctx, source);
	//mod -> begin();
	oberon_destroy_context(ctx);
	return 0;
}