structs.c

#include <stdlib.h>
#include "structs.h"
#include "gc.h"


Function *new_Function(t_point body_function, int params_count)
{
	Function *f = (Function *) malloc(sizeof(Function));

	f->body.structure = body_function;
	f->params_count   = params_count;
	f->built_in       = 0;
	f->more_params    = 0;

	gc_collect(make_Func(f));
	return f;
}


Cons *new_Cons(t_point a, t_point b)
{
	Cons *l = (Cons *) malloc(sizeof(Cons));

	l->a = a;
	l->b = b;

	gc_collect(make_Cons(l));
	return l;
}


Thunk *new_Thunk(t_point fce, Cons *params)
{
	Thunk *t = (Thunk *) malloc(sizeof(Thunk));

	t->function = fce;
	t->params = params;

	gc_collect(make_Thunk(t));
	return t;
}


Function *new_inner_Func(int params_count, int more_params, t_point (*link)(Cons *))
{
	Function *f = new_Function(NIL, params_count);
	f->built_in = 1;
	f->body.link = link;

	gc_inc_immortal(make_Func(f));
	return f;
}