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

static const char source[] =
	"MODULE Test;"
	"TYPE"
	"	Rec = RECORD i : INTEGER; END;"
	"VAR"
	"	i : INTEGER;"
	"	j : INTEGER;"
	""
	"PROCEDURE ^ Tier(x : INTEGER);"
	""
	"PROCEDURE Tier(x : INTEGER);"
	"VAR a : INTEGER;"
	"BEGIN;"
	"	a := 1;"
	"END Tier;"
	""
	"PROCEDURE ^ Tier(x : INTEGER);"
	""
	"BEGIN;"
	"	i := ABS(-666);"
	"	Tier(i);"
	"	ABS(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_generator_dump(ctx, "dump.txt");
	oberon_destroy_context(ctx);
	return 0;
}