#include "dat.h"
#include "fn.h"

Object Nil	= (Object){.type=OSYMBOL, .sym="nil"};
Object Minus= (Object){.type=OBLTIN, .sym="-"};
Object Plus	= (Object){.type=OBLTIN, .sym="+"};
Object Mul	= (Object){.type=OBLTIN, .sym="*"};
Object Div	= (Object){.type=OBLTIN, .sym="/"};
Object Mod	= (Object){.type=OBLTIN, .sym="%"};

Object Ge	= (Object){.type=OBLTIN, .sym= ">="};
Object Le	= (Object){.type=OBLTIN, .sym= "<="};
Object Lt	= (Object){.type=OBLTIN, .sym= "<"};
Object Gt	= (Object){.type=OBLTIN, .sym= ">"};
Object Ne	= (Object){.type=OBLTIN, .sym= "!="};
Object Eq	= (Object){.type=OBLTIN, .sym= "=="};

Object Lambda= (Object){.type=OBLTIN, .sym="lambda"};
Object Car	= (Object){.type=OBLTIN, .sym="car"};
Object Cdr	= (Object){.type=OBLTIN, .sym="cdr"};
Object Quote= (Object){.type=OBLTIN, .sym="'"};
Object Cons	= (Object){.type=OBLTIN, .sym="cons"};
Object Define= (Object){.type=OBLTIN, .sym="define"};
Object Setq	= (Object){.type=OBLTIN, .sym="setq"};
Object If	= (Object){.type=OBLTIN, .sym="if"};

extern Object* fnplus(Object *, Object *);
extern Object* fnmul(Object *, Object *);
extern Object* fndiv(Object *, Object *);
extern Object* fnmod(Object *, Object *);
extern Object* fnlambda(Object *, Object *);
extern Object* fndefine(Object *, Object *);
extern Object* fnsetq(Object *, Object *);
extern Object* fnundef(Object *, Object *);
extern Object* fnquote(Object *, Object *);
extern Object* fncar(Object *, Object *);
extern Object* fncdr(Object *, Object *);
extern Object* fncons(Object *, Object *);
extern Object* fneq(Object *, Object *);
extern Object* fnif(Object *, Object *);
extern Object* fnge(Object *env, Object *list);
extern Object* fngt(Object *env, Object *list);
extern Object* fnle(Object *env, Object *list);
extern Object* fnlt(Object *env, Object *list);
extern Object* fnne(Object *env, Object *list);
/*extern Object* fnminus(Object *, Object *);*/

Bltinfn
bltinlookup(Object *obj)
{
	static struct
	{
		Object *sym;
		Bltinfn fn;
	}bltins[] = {
		{&Lambda , fnlambda},
		{&Plus , fnplus},
		{&Mul , fnmul},
		{&Mod , fnmod},
		{&Div , fndiv},
		{&Define ,fndefine},
		{&Setq ,fnsetq},
		{&Quote ,fnquote},
		{&Car ,fncar},
		{&Cdr ,fncdr},
		{&Cons ,fncons},
        {&Eq, fneq},
        {&Ne, fnne},
        {&If, fnif},
        {&Ge, fnge},
        {&Le, fnle},
        {&Gt, fngt},
        {&Lt, fnlt},
		{&Minus ,0},
        {0},
	};

	for(int i = 0; bltins[i].sym; ++i){
		if(obj == bltins[i].sym)
			return bltins[i].fn;
	}
	return 0;
}