mirror of
https://github.com/suchmememanyskill/TegraExplorer.git
synced 2024-11-26 05:42:07 +00:00
519 lines
No EOL
13 KiB
C
519 lines
No EOL
13 KiB
C
#include "model.h"
|
|
#include "compat.h"
|
|
#include "genericClass.h"
|
|
#include "eval.h"
|
|
#include "garbageCollector.h"
|
|
#include "intClass.h"
|
|
#include "standardLibrary.h"
|
|
#include "scriptError.h"
|
|
#include <string.h>
|
|
#include "dictionaryClass.h"
|
|
|
|
#ifndef WIN32
|
|
#include "../storage/mountmanager.h"
|
|
#include "../keys/keys.h"
|
|
#include "../fs/readers/folderReader.h"
|
|
#include "../fs/fscopy.h"
|
|
#include <mem/heap.h>
|
|
#include "../keys/nca.h"
|
|
#include "../hid/hid.h"
|
|
#include "../gfx/menu.h"
|
|
#include "../gfx/gfxutils.h"
|
|
#include "../tegraexplorer/tconf.h"
|
|
#include "../storage/emummc.h"
|
|
#include <utils/util.h>
|
|
#include "../fs/fsutils.h"
|
|
#include <storage/nx_sd.h>
|
|
#endif
|
|
// Takes [int, function]. Returns elseable.
|
|
ClassFunction(stdIf) {
|
|
s64 value = getIntValue(args[0]);
|
|
|
|
if (value) {
|
|
Variable_t* res = genericCallDirect(args[1], NULL, 0);
|
|
if (res == NULL)
|
|
return NULL;
|
|
|
|
removePendingReference(res);
|
|
}
|
|
|
|
Variable_t* ret = newIntVariablePtr(value);
|
|
ret->variableType = ElseClass;
|
|
|
|
return ret;
|
|
}
|
|
|
|
// Takes [function, function]. Returns empty. Works by evaling the first function and running the 2nd if true.
|
|
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) {
|
|
if (scriptLastError == SCRIPT_BREAK) {
|
|
break;
|
|
}
|
|
else {
|
|
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;
|
|
}
|
|
|
|
// Takes [???]. Returns empty. Works by calling .print on every argument
|
|
ClassFunction(stdPrint) {
|
|
for (int i = 0; i < argsLen; i++) {
|
|
Variable_t* res = callMemberFunctionDirect(args[i], "print", NULL, 0);
|
|
if (res == NULL)
|
|
return NULL;
|
|
if (i + 1 != argsLen)
|
|
gfx_putc(' ');
|
|
}
|
|
|
|
|
|
return &emptyClass;
|
|
}
|
|
|
|
// Takes [???]. Returns empty. Calls stdPrint
|
|
ClassFunction(stdPrintLn) {
|
|
stdPrint(caller, args, argsLen);
|
|
gfx_printf("\n");
|
|
return &emptyClass;
|
|
}
|
|
|
|
// Takes none. Returns none. Returning NULL will cause a cascade of errors and will exit runtime
|
|
ClassFunction(stdExit) {
|
|
return NULL;
|
|
}
|
|
|
|
// Takes none. Returns none. See stdExit. stdWhile and array.foreach look for SCRIPT_BREAK and break when seen.
|
|
ClassFunction(stdBreak) {
|
|
scriptLastError = SCRIPT_BREAK;
|
|
return NULL;
|
|
}
|
|
|
|
// Takes none. Returns empty dictionary.
|
|
ClassFunction(stdDict) {
|
|
Variable_t a = { 0 };
|
|
a.variableType = DictionaryClass;
|
|
a.dictionary.vector = newVec(sizeof(Dict_t), 0);
|
|
return copyVariableToPtr(a);
|
|
}
|
|
|
|
#ifndef WIN32
|
|
|
|
|
|
int mountMmc(u8 mmc, char *part){
|
|
if (connectMMC(mmc))
|
|
return 1;
|
|
|
|
if (mountMMCPart(part).err)
|
|
return 1;
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Takes [str]. Returns int (0=success). str=partition to mount
|
|
ClassFunction(stdMountSysmmc){
|
|
return newIntVariablePtr(mountMmc(MMC_CONN_EMMC, args[0]->string.value));
|
|
}
|
|
|
|
ClassFunction(stdMountEmummc){
|
|
if (!emu_cfg.enabled){
|
|
SCRIPT_FATAL_ERR("emummc is not enabled");
|
|
}
|
|
|
|
return newIntVariablePtr(mountMmc(MMC_CONN_EMUMMC, args[0]->string.value));
|
|
}
|
|
|
|
// Takes [str]. Returns int (0=success) str=path to save
|
|
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);
|
|
}
|
|
|
|
// Takes [int, int, int]. Returns empty. 0: posX, 1: posY, 2: hexColor
|
|
ClassFunction(stdSetPixel) {
|
|
u32 color = getIntValue(args[2]);
|
|
gfx_set_pixel_horz(args[0]->integer.value, args[1]->integer.value, color);
|
|
return &emptyClass;
|
|
}
|
|
|
|
// Takes [str]. Returns empty. str: path to dir
|
|
ClassFunction(stdReadDir){
|
|
Variable_t* resPtr = newIntVariablePtr(0);
|
|
Variable_t ret = {.variableType = DictionaryClass, .dictionary.vector = newVec(sizeof(Dict_t), 4)};
|
|
addVariableToDict(&ret, "result", resPtr);
|
|
|
|
Variable_t fileNamesArray = {.variableType = StringArrayClass, .solvedArray.vector = newVec(sizeof(char*), 0)};
|
|
Variable_t dirNamesArray = {.variableType = StringArrayClass, .solvedArray.vector = newVec(sizeof(char*), 0)};
|
|
Variable_t fileSizeArray = {.variableType = IntArrayClass, .solvedArray.vector = newVec(sizeof(s64), 0)};
|
|
|
|
DIR dir;
|
|
if ((resPtr->integer.value = f_opendir(&dir, args[0]->string.value))){
|
|
return copyVariableToPtr(ret);
|
|
}
|
|
|
|
FILINFO fno;
|
|
while (!(resPtr->integer.value = f_readdir(&dir, &fno)) && fno.fname[0]){
|
|
char *name = CpyStr(fno.fname);
|
|
if (fno.fattrib & AM_DIR){
|
|
vecAdd(&dirNamesArray.solvedArray.vector, name);
|
|
}
|
|
else {
|
|
vecAdd(&fileNamesArray.solvedArray.vector, name);
|
|
s64 size = fno.fsize;
|
|
vecAdd(&fileSizeArray.solvedArray.vector, size);
|
|
}
|
|
}
|
|
|
|
f_closedir(&dir);
|
|
|
|
addVariableToDict(&ret, "files", copyVariableToPtr(fileNamesArray));
|
|
addVariableToDict(&ret, "folders", copyVariableToPtr(dirNamesArray));
|
|
addVariableToDict(&ret, "fileSizes", copyVariableToPtr(fileSizeArray));
|
|
|
|
return copyVariableToPtr(ret);
|
|
}
|
|
|
|
char *abxyNames[] = {
|
|
"y",
|
|
"x",
|
|
"b",
|
|
"a"
|
|
};
|
|
|
|
char *ulrdNames[] = {
|
|
"down",
|
|
"up",
|
|
"right",
|
|
"left",
|
|
};
|
|
|
|
char *powNames[] = {
|
|
"power",
|
|
"volplus",
|
|
"volminus",
|
|
};
|
|
|
|
// Takes [int]. Returns dict[a,b,x,y,down,up,right,left,power,volplus,volminus,raw]. int: mask for hidWaitMask
|
|
ClassFunction(stdPauseMask){
|
|
Variable_t ret = {.variableType = DictionaryClass, .dictionary.vector = newVec(sizeof(Dict_t), 9)};
|
|
Input_t *i = hidWaitMask((u32)getIntValue(*args));
|
|
|
|
u32 raw = i->buttons;
|
|
|
|
addIntToDict(&ret, "raw", raw);
|
|
|
|
for (int i = 0; i < ARRAY_SIZE(abxyNames); i++){
|
|
addIntToDict(&ret, abxyNames[i], raw & 0x1);
|
|
raw >>= 1;
|
|
}
|
|
|
|
raw >>= 12;
|
|
|
|
for (int i = 0; i < ARRAY_SIZE(ulrdNames); i++){
|
|
addIntToDict(&ret, ulrdNames[i], raw & 0x1);
|
|
raw >>= 1;
|
|
}
|
|
|
|
raw >>= 4;
|
|
|
|
for (int i = 0; i < ARRAY_SIZE(powNames); i++){
|
|
addIntToDict(&ret, powNames[i], raw & 0x1);
|
|
raw >>= 1;
|
|
}
|
|
|
|
return copyVariableToPtr(ret);
|
|
}
|
|
|
|
// Takes none. Returns dict (same as stdPauseMask).
|
|
ClassFunction(stdPause){
|
|
Variable_t a = {.integer.value = 0xFFFFFFFF};
|
|
Variable_t *b = &a;
|
|
return stdPauseMask(caller, &b, 1);
|
|
}
|
|
|
|
// Takes [str, str]. Returns int (0=success). 0: src path, 1: dst path
|
|
ClassFunction(stdFileCopy){
|
|
ErrCode_t e = FileCopy(args[0]->string.value, args[1]->string.value, 0);
|
|
return newIntVariablePtr(e.err);
|
|
}
|
|
|
|
ClassFunction(stdMkdir){
|
|
return newIntVariablePtr(f_mkdir(args[0]->string.value));
|
|
}
|
|
|
|
// Broken????
|
|
ClassFunction(stdGetMemUsage){
|
|
heap_monitor_t mon;
|
|
heap_monitor(&mon, false);
|
|
Dict_t a = {.name = CpyStr("used"), .var = newIntVariablePtr((s64)mon.used)};
|
|
Dict_t b = {.name = CpyStr("total"), .var = newIntVariablePtr((s64)mon.total)};
|
|
Variable_t ret = {.variableType = DictionaryClass, .dictionary.vector = newVec(sizeof(Dict_t), 2)};
|
|
vecAdd(&ret.dictionary.vector, a);
|
|
vecAdd(&ret.dictionary.vector, b);
|
|
return copyVariableToPtr(ret);
|
|
}
|
|
|
|
// Takes [int]. Returns empty. int: hex color
|
|
ClassFunction(stdColor){
|
|
gfx_con_setcol((u32)getIntValue(*args) | 0xFF000000, gfx_con.fillbg, gfx_con.bgcol);
|
|
return &emptyClass;
|
|
}
|
|
|
|
// Takes [str]. Returns int. str: path to nca
|
|
ClassFunction(stdGetNcaType){
|
|
int type = GetNcaType(args[0]->string.value);
|
|
return newIntVariablePtr(type);
|
|
}
|
|
|
|
// Takes [str[], int, int[]]. Returns int (index). str[]: names of entries, int: starting index, int[]: colors & options. The 3rd argument is optional
|
|
ClassFunction(stdMenuFull){
|
|
if (argsLen > 2){
|
|
if (args[2]->solvedArray.vector.count < args[0]->solvedArray.vector.count){
|
|
SCRIPT_FATAL_ERR("invalid menu args");
|
|
}
|
|
}
|
|
|
|
Vector_t v = newVec(sizeof(MenuEntry_t), args[0]->solvedArray.vector.count);
|
|
|
|
vecDefArray(char**, menuEntryNames, args[0]->solvedArray.vector);
|
|
vecDefArray(s64*, menuEntryOptions, args[2]->solvedArray.vector);
|
|
|
|
for (int i = 0; i < args[0]->solvedArray.vector.count; i++){
|
|
MenuEntry_t a = {.name = menuEntryNames[i]};
|
|
if (argsLen > 2){
|
|
u32 options = (u32)menuEntryOptions[i];
|
|
if (options & BIT(26)){
|
|
a.icon = 128;
|
|
}
|
|
else if (options & BIT(27)){
|
|
a.icon = 127;
|
|
}
|
|
|
|
a.optionUnion = options;
|
|
}
|
|
else {
|
|
a.optionUnion = COLORTORGB(COLOR_WHITE);
|
|
}
|
|
|
|
vecAdd(&v, a);
|
|
}
|
|
|
|
u32 x=0,y=0;
|
|
gfx_con_getpos(&x,&y);
|
|
|
|
int res = newMenu(&v, getIntValue(args[1]), ScreenDefaultLenX - ((x + 1) / 16), ScreenDefaultLenY - ((y + 1) / 16) - 1, ENABLEB | ALWAYSREDRAW, 0);
|
|
vecFree(v);
|
|
return newIntVariablePtr(res);
|
|
}
|
|
|
|
ClassFunction(stdHasEmu){
|
|
return newIntVariablePtr(emu_cfg.enabled);
|
|
}
|
|
|
|
ClassFunction(stdClear){
|
|
gfx_clearscreen();
|
|
return &emptyClass;
|
|
}
|
|
|
|
ClassFunction(stdRmDir){
|
|
return newIntVariablePtr(FolderDelete(args[0]->string.value).err);
|
|
}
|
|
|
|
ClassFunction(stdGetMs){
|
|
return newIntVariablePtr(get_tmr_ms());
|
|
}
|
|
|
|
ClassFunction(stdFileExists){
|
|
return newIntVariablePtr(FileExists(args[0]->string.value));
|
|
}
|
|
|
|
ClassFunction(stdFileDel){
|
|
return newIntVariablePtr(f_unlink(args[0]->string.value));
|
|
}
|
|
|
|
ClassFunction(stdCopyDir){
|
|
return newIntVariablePtr(FolderCopy(args[0]->string.value, args[1]->string.value).err);
|
|
}
|
|
|
|
ClassFunction(stdFileMove){
|
|
return newIntVariablePtr(f_rename(args[0]->string.value, args[1]->string.value));
|
|
}
|
|
|
|
ClassFunction(stdFileRead){
|
|
u32 fSize = 0;
|
|
u8 *buff = sd_file_read(args[0]->string.value, &fSize);
|
|
if (buff == NULL){
|
|
SCRIPT_FATAL_ERR("Failed to read file");
|
|
}
|
|
|
|
Vector_t vec = vecFromArray(buff, fSize, sizeof(u8));
|
|
Variable_t v = {.variableType = ByteArrayClass, .solvedArray.vector = vec};
|
|
return copyVariableToPtr(v);
|
|
}
|
|
|
|
ClassFunction(stdFileWrite){
|
|
return newIntVariablePtr(sd_save_to_file(args[1]->solvedArray.vector.data, args[1]->solvedArray.vector.count, args[0]->string.value));
|
|
}
|
|
|
|
extern int launch_payload(char *path);
|
|
|
|
ClassFunction(stdLaunchPayload){
|
|
return newIntVariablePtr(launch_payload(args[0]->string.value));
|
|
}
|
|
|
|
#else
|
|
#define STUBBED(name) ClassFunction(name) { return newIntVariablePtr(0); }
|
|
|
|
ClassFunction(stdMountSysmmc){
|
|
return newIntVariablePtr(0);
|
|
}
|
|
ClassFunction(stdMountSave){
|
|
return newIntVariablePtr(0);
|
|
}
|
|
ClassFunction(stdSetPixel) {
|
|
return newIntVariablePtr(0);
|
|
}
|
|
|
|
ClassFunction(stdReadDir){
|
|
return newIntVariablePtr(0);
|
|
}
|
|
|
|
ClassFunction(stdFileCopy){
|
|
return newIntVariablePtr(0);
|
|
}
|
|
|
|
ClassFunction(stdMkdir){
|
|
return newIntVariablePtr(0);
|
|
}
|
|
|
|
ClassFunction(stdGetMemUsage) {
|
|
return newIntVariablePtr(0);
|
|
}
|
|
|
|
ClassFunction(stdGetNcaType) {
|
|
return newIntVariablePtr(0);
|
|
}
|
|
|
|
STUBBED(stdPause)
|
|
STUBBED(stdPauseMask)
|
|
STUBBED(stdColor)
|
|
STUBBED(stdMenuFull)
|
|
STUBBED(stdMountEmummc)
|
|
STUBBED(stdHasEmu)
|
|
STUBBED(stdGetMs)
|
|
STUBBED(stdClear)
|
|
STUBBED(stdRmDir)
|
|
STUBBED(stdFileExists)
|
|
STUBBED(stdFileDel)
|
|
STUBBED(stdCopyDir)
|
|
STUBBED(stdFileMove)
|
|
STUBBED(stdLaunchPayload)
|
|
STUBBED(stdFileWrite)
|
|
STUBBED(stdFileRead)
|
|
#endif
|
|
|
|
u8 oneIntoneFunction[] = { IntClass, FunctionClass };
|
|
u8 doubleFunctionClass[] = { FunctionClass, FunctionClass };
|
|
u8 oneStringArgStd[] = {StringClass};
|
|
u8 threeIntsStd[] = { IntClass, IntClass, IntClass };
|
|
u8 twoStringArgStd[] = {StringClass, StringClass};
|
|
u8 oneIntStd[] = {IntClass};
|
|
u8 menuArgsStd[] = {StringArrayClass, IntClass, IntArrayClass};
|
|
u8 oneStringOneByteArrayStd[] = {StringClass, ByteArrayClass};
|
|
|
|
ClassFunctionTableEntry_t standardFunctionDefenitions[] = {
|
|
// Flow control
|
|
{"if", stdIf, 2, oneIntoneFunction},
|
|
{"while", stdWhile, 2, doubleFunctionClass},
|
|
{"exit", stdExit, 0, 0},
|
|
{"break", stdBreak, 0, 0},
|
|
|
|
// Class creation
|
|
{"readsave", stdMountSave, 1, oneStringArgStd},
|
|
{"dict", stdDict, 0, 0},
|
|
|
|
// Utils
|
|
{"print", stdPrint, VARARGCOUNT, 0},
|
|
{"println", stdPrintLn, VARARGCOUNT, 0},
|
|
{"setpixel", stdSetPixel, 3, threeIntsStd}, // TODO: change for setblock
|
|
{"emu", stdHasEmu, 0, 0},
|
|
{"clear", stdClear, 0, 0},
|
|
{"timer", stdGetMs, 0, 0},
|
|
{"memory", stdGetMemUsage, 0, 0},
|
|
{"pause", stdPauseMask, 1, oneIntStd},
|
|
{"pause", stdPause, 0, 0},
|
|
{"color", stdColor, 1, oneIntStd},
|
|
{"menu", stdMenuFull, 3, menuArgsStd},
|
|
{"menu", stdMenuFull, 2, menuArgsStd},
|
|
|
|
// System
|
|
{"mountsys", stdMountSysmmc, 1, oneStringArgStd},
|
|
{"mountemu", stdMountEmummc, 1, oneStringArgStd},
|
|
{"ncatype", stdGetNcaType, 1, oneStringArgStd},
|
|
|
|
// FileSystem
|
|
// Dir
|
|
{"readdir", stdReadDir, 1, oneStringArgStd},
|
|
{"deldir", stdRmDir, 1, oneStringArgStd},
|
|
{"mkdir", stdMkdir, 1, oneStringArgStd},
|
|
{"copydir", stdCopyDir, 2, twoStringArgStd},
|
|
|
|
// File
|
|
{"copyfile", stdFileCopy, 2, twoStringArgStd},
|
|
{"movefile", stdFileMove, 2, twoStringArgStd},
|
|
{"delfile", stdFileDel, 1, oneStringArgStd},
|
|
{"readfile", stdFileRead, 1, oneStringArgStd},
|
|
{"writefile", stdFileWrite, 2, oneStringOneByteArrayStd},
|
|
|
|
// Utils
|
|
{"fsexists", stdFileExists, 1, oneStringArgStd},
|
|
{"payload", stdLaunchPayload, 1, oneStringArgStd},
|
|
};
|
|
|
|
ClassFunctionTableEntry_t* searchStdLib(char* funcName, u8 *len) {
|
|
u8 lenInternal = 0;
|
|
*len = 0;
|
|
ClassFunctionTableEntry_t *ret = NULL;
|
|
|
|
for (int i = 0; i < ARRAY_SIZE(standardFunctionDefenitions); i++) {
|
|
if (!strcmp(funcName, standardFunctionDefenitions[i].name)) {
|
|
lenInternal++;
|
|
if (ret == NULL){
|
|
ret = &standardFunctionDefenitions[i];
|
|
}
|
|
}
|
|
else if (lenInternal != 0){
|
|
*len = lenInternal;
|
|
return ret;
|
|
}
|
|
}
|
|
|
|
*len = lenInternal;
|
|
return ret;
|
|
} |