#ifndef EMBEDED_OBERON_SCRIPT_H
#define EMBEDED_OBERON_SCRIPT_H

typedef struct oberon_var_s oberon_var_t;
typedef struct oberon_type_s oberon_type_t;
typedef struct oberon_module_s oberon_module_t;
typedef struct oberon_context_s oberon_context_t;

enum {
	OBERON_TYPE_INTEGER,
	OBERON_TYPE_BOOLEAN,
};

struct oberon_type_s
{
	char * name;
	int class;
	int size;
	oberon_type_t * next;

	void * gen_type;
};

struct oberon_var_s
{
        char * name;
        oberon_type_t * type;
        oberon_var_t * next;

	void * gen_var;
};

struct oberon_module_s
{
	char * name;
	oberon_var_t * vars;

	void (* begin)();
};

struct oberon_context_s
{
	const char * code;
	int code_index;

	char c;
	int token;
	char * string;
	int integer;

	oberon_module_t * mod;
	oberon_type_t * types;

	oberon_type_t * int_type;
	oberon_type_t * bool_type;

	void * gen_context;
};

enum {
	MODE_VAR,
	MODE_INTEGER,
	MODE_BOOLEAN
};

enum {
	OP_LOGIC_NOT,
	OP_UNARY_MINUS,
	OP_ADD,
	OP_SUB,
	OP_MUL,
	OP_DIV,
	OP_MOD,
	OP_LOGIC_AND,
	OP_LOGIC_OR,
	OP_EQ,
	OP_NEQ,
	OP_LSS,
	OP_LEQ,
	OP_GRT,
	OP_GEQ
};

typedef struct oberon_item_s oberon_item_t;
typedef struct oberon_oper_s oberon_oper_t;
typedef union oberon_expr_u oberon_expr_t;

struct oberon_item_s
{
	int is_item;
	oberon_type_t * result;

	int mode;
	int integer;
	int boolean;
	oberon_var_t * var;
};

struct oberon_oper_s
{
	int is_item;
	oberon_type_t * result;

	int op;
	oberon_expr_t * left;
	oberon_expr_t * right;
};

union oberon_expr_u
{
	struct {
		int is_item;
		oberon_type_t * result;
	};

	oberon_item_t item;
	oberon_oper_t oper;
};

oberon_context_t * oberon_create_context();
void oberon_destroy_context(oberon_context_t * ctx);
void oberon_register_global_type(oberon_context_t * ctx, oberon_type_t * type);
oberon_module_t * oberon_compile_module(oberon_context_t * ctx, const char * code);
void oberon_error(oberon_context_t * ctx, const char * fmt, ...);

#endif // EMBEDED_OBERON_SCRIPT_H