Ben / Nujel

/* Nujel - Copyright (C) 2020-2021 - Benjamin Vincent Schulenburg
 * This project uses the MIT license, a copy should be included under /LICENSE
 */
#include "../operation.h"

#include "../api.h"


/* Handler for [memory-info] */
static lVal *lnfMemInfo(lClosure *c, lVal *v){
	(void)c; (void)v;
	return lList(10,
		RVP(lValKeyword("value")),  RVP(lValInt(lValActive)),
		RVP(lValKeyword("closure")),RVP(lValInt(lClosureActive)),
		RVP(lValKeyword("array")),  RVP(lValInt(lArrayActive)),
		RVP(lValKeyword("string")), RVP(lValInt(lStringActive)),
		RVP(lValKeyword("symbol")), RVP(lValInt(lSymbolActive)));
}

static lVal *lnfGarbageCollect(lClosure *c, lVal *v){
	(void)c; (void)v;
	lGarbageCollect();
	return NULL;
}

static lVal *lnfValIndex(lClosure *c, lVal *v){
	(void)c;
	return lValInt(lValIndex(lCar(v)));
}

static lVal *lnfIndexVal(lClosure *c, lVal *v){
	(void)c;
	const int i = castToInt(lCar(v), -1);
	return lIndexVal(i);
}

static lVal *lnfSymIndex(lClosure *c, lVal *v){
	(void)c;
	lVal *car = lCar(v);
	if((car == NULL) || (car->type != ltSymbol)){return NULL;}
	return lValInt(lSymIndex(car->vSymbol));
}

static lVal *lnfIndexSym(lClosure *c, lVal *v){
	(void)c;
	const int i = castToInt(lCar(v), -1);
	return lValSymS(lIndexSym(i));
}

void lOperationsAllocation(lClosure *c){
	lAddNativeFunc(c,"memory-info", "[]", "Return memory usage data", lnfMemInfo);
	lAddNativeFunc(c,"garbage-collect", "[]", "Force the garbage collector to run", lnfGarbageCollect);
	lAddNativeFunc(c,"val->index", "[v]", "Return an index value pointing to V", lnfValIndex);
	lAddNativeFunc(c,"index->val", "[i]", "Return the value at index position I", lnfIndexVal);
	lAddNativeFunc(c,"sym->index", "[v]", "Return an index value pointing to symbol V", lnfSymIndex);
	lAddNativeFunc(c,"index->sym", "[i]", "Return the symbol at index position I", lnfIndexSym);
}