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)

                        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);
}