tsv3 start ig

source/script/standardLibrary.c

@@ -0,0 +1,133 @@
+#include "model.h"
+#include "compat.h"
+#include "genericClass.h"
+#include "eval.h"
+#include "garbageCollector.h"
+#include "intClass.h"
+#include "standardLibrary.h"
+#include <string.h>
+
+#ifndef WIN32
+#include "../storage/mountmanager.h"
+#include "../keys/keys.h"
+#endif
+
+ClassFunction(stdIf) {
+	s64 value = getIntValue(args[0]);
+
+
+	if (value) {
+		Variable_t* res = genericCallDirect(args[1], NULL, 0);
+		if (res == NULL)
+			return NULL;
+
+		removePendingReference(res);
+	}
+
+	return &emptyClass;
+}
+
+// TODO: implement else by making if return a class that is else-able
+
+ClassFunction(stdWhile) {
+	Variable_t* result = eval(args[0]->function.function.operations.data, args[0]->function.function.operations.count, 1);
+	if (result == NULL || result->variableType != IntClass)
+		return NULL;
+
+	while (result->integer.value) {
+		removePendingReference(result);
+		Variable_t* res = genericCallDirect(args[1], NULL, 0);
+		if (res == NULL)
+			return NULL;
+
+		removePendingReference(res);
+
+		result = eval(args[0]->function.function.operations.data, args[0]->function.function.operations.count, 1);
+		if (result == NULL || result->variableType != IntClass)
+			return NULL;
+	}
+
+	removePendingReference(result);
+
+	return &emptyClass;
+}
+
+ClassFunction(stdPrint) {
+	for (int i = 0; i < argsLen; i++) {
+		Variable_t* res = callMemberFunctionDirect(args[i], "print", NULL, 0);
+		if (res == NULL)
+			return NULL;
+	}
+	
+
+	return &emptyClass;
+}
+
+ClassFunction(stdExit) {
+	return NULL;
+}
+
+#ifndef WIN32
+ClassFunction(stdMountSysmmc){
+	if (connectMMC(MMC_CONN_EMMC))
+		return newIntVariablePtr(1);
+
+	Variable_t *arg = (*args);
+	if (mountMMCPart(arg->string.value).err)
+		return newIntVariablePtr(1); // Maybe change for error?
+
+	return newIntVariablePtr(0);
+}
+
+ClassFunction(stdMountSave){
+	Variable_t *arg = (*args);
+	Variable_t var = {.variableType = SaveClass};
+	SaveClass_t* save = calloc(1, sizeof(SaveClass_t));
+	if (f_open(&save->saveFile, arg->string.value, FA_READ))
+		return NULL;
+	save_init(&save->saveCtx, &save->saveFile, dumpedKeys.save_mac_key, 0);
+	if (!save_process(&save->saveCtx))
+		return NULL;
+	
+	var.save = save;
+	return copyVariableToPtr(var);
+}
+#else
+ClassFunction(stdMountSysmmc){
+	return newIntVariablePtr(0);
+}
+ClassFunction(stdMountSave){
+	return newIntVariablePtr(0);
+}
+#endif
+
+enum standardFunctionIndexes {
+	STD_IF = 0,
+	STD_WHILE,
+	STD_PRINT,
+	STD_MOUNTSYSMMC,
+	STD_MOUNTSAVE,
+	STD_EXIT,
+};
+
+u8 oneIntoneFunction[] = { IntClass, FunctionClass };
+u8 doubleFunctionClass[] = { FunctionClass, FunctionClass };
+u8 oneStringArgStd[] = {StringClass};
+
+ClassFunctionTableEntry_t standardFunctionDefenitions[] = {
+	[STD_IF] = {"if", stdIf, 2, oneIntoneFunction},
+	[STD_WHILE] = {"while", stdWhile, 2, doubleFunctionClass},
+	[STD_PRINT] = {"print", stdPrint, VARARGCOUNT, 0},
+	[STD_MOUNTSYSMMC] = {"mountsys", stdMountSysmmc, 1, oneStringArgStd},
+	[STD_MOUNTSAVE] = {"readsave", stdMountSave, 1, oneStringArgStd},
+	[STD_EXIT] = {"exit", stdExit, 0, 0},
+};
+
+ClassFunctionTableEntry_t* searchStdLib(char* funcName) {
+	for (int i = 0; i < ARRAY_SIZE(standardFunctionDefenitions); i++) {
+		if (!strcmp(funcName, standardFunctionDefenitions[i].name))
+			return &standardFunctionDefenitions[i];
+	}
+
+	return NULL;
+}