Ben / Nujel

/* Nujel - Copyright (C) 2020-2022 - Benjamin Vincent Schulenburg
 * This project uses the MIT license, a copy should be included under /LICENSE */
#ifndef NUJEL_AMALGAMATION
#include "nujel-private.h"
#endif

char *errorSym = "vm-error";
char *errorMsg = "Gotta use bytecode";
#define lVMErrorPlaceholder(sym) \
	static lVal sym (lClosure *c, lVal v){			\
		(void)c; \
		return lValException(errorSym, errorMsg, v); \
	}

lVMErrorPlaceholder(lnfAnd)
lVMErrorPlaceholder(lnfOr)
lVMErrorPlaceholder(lnfIf)
lVMErrorPlaceholder(lnfWhile)
lVMErrorPlaceholder(lnfTry)
lVMErrorPlaceholder(lnfDo)
lVMErrorPlaceholder(lnfReturn)
lVMErrorPlaceholder(lnfDef)
lVMErrorPlaceholder(lnfSet)
lVMErrorPlaceholder(lnfLetRaw)
lVMErrorPlaceholder(lnfLambda)
lVMErrorPlaceholder(lnfMacro)
lVMErrorPlaceholder(lnfEnvironment)
lVMErrorPlaceholder(lnfBytecodeEval)
lVMErrorPlaceholder(lnfMutableEval)
lVMErrorPlaceholder(lnfRef)
lVMErrorPlaceholder(lnfCadr)
lVMErrorPlaceholder(lnfList)
lVMErrorPlaceholder(lnfThrow)
lVMErrorPlaceholder(lnfApply)

void lOperationsSpecial(lClosure *c){
	lAddNativeFunc(c,"do",              "body",                    "Evaluate body in order and returns the last result", lnfDo);
	lAddNativeFunc(c,"let*",            "body",                    "Run BODY wihtin a new closure",  lnfLetRaw);
	lAddNativeFunc(c,"if",              "(cond then else)",        "Evalute then if pred? is #t, otherwise evaluates ...else", lnfIf);
	lAddNativeFunc(c,"and",             "args",                    "#t if all ARGS evaluate to true",   lnfAnd);
	lAddNativeFunc(c,"or" ,             "args",                    "#t if one member of ARGS evaluates to true", lnfOr);
	lAddNativeFunc(c,"while",           "(cond . body)",           "Evaluate BODY while COND is #t", lnfWhile);
	lAddNativeFunc(c,"try",             "(catch . body)",          "Try evaluating ...BODY, and if an exception is thrown handle it using CATCH", lnfTry);
	lAddNativeFunc(c,"return",          "(v)",                     "Do an early return with V", lnfReturn);
	lAddNativeFunc(c,"def",             "(sym val)",               "Define a new symbol SYM and link it to value VAL", lnfDef);
	lAddNativeFunc(c,"set!",            "(s v)",                   "Bind a new value v to already defined symbol s",   lnfSet);
	lAddNativeFunc(c,"macro*",          "(name args source body)", "Create a new, bytecoded, macro", lnfMacro);
	lAddNativeFunc(c,"fn*",             "(name args source body)", "Create a new, bytecoded, lambda", lnfLambda);
	lAddNativeFunc(c,"environment*",    "()",                      "Create a new object",       lnfEnvironment);
	lAddNativeFunc(c,"bytecode-eval*",  "(bc-arr env)",            "Evaluate BC-ARR in call closure ofENV", lnfBytecodeEval);
	lAddNativeFunc(c,"mutable-eval*",   "(bc-arr env)",            "Evaluate BC-ARR directly in ENV", lnfMutableEval);
	lAddNativeFunc(c,"list",            "arguments",               "Return ARGUMENTS as a list", lnfList);
	lAddNativeFuncPure(c,"ref",         "(collection key)",        "Look up key in collection", lnfRef);
	lAddNativeFuncPure(c,"cadr",        "(list)",                  "Look up the cadr of list", lnfCadr);
	lAddNativeFunc(c,"throw",           "(v)",                     "Throw V to the closest exception handler", lnfThrow);
	lAddNativeFuncPure(c,"apply",       "(func list)", "Evaluate FUNC with LIST as arguments",  lnfApply);
}