libretro/scummvm
1
0
Fork 0
mirror of https://github.com/libretro/scummvm.git synced 2025-03-05 09:49:14 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

HDB: Added initial version for Lua dofile()

Browse Source
This commit is contained in:
Eugene Sandulenko 2019-07-09 23:14:15 +02:00
parent 42edeb4114
commit 6fe1d65ca7
1 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
engines/hdb/lua-script.cpp
View File

@ -1215,6 +1215,8 @@ static int openFile(lua_State *L) {
if (!outLua)
error("Cannot open %s", fName);
lua_pushlightuserdata(L, outLua);
} else {
error("LUA openFile: Unsupported mode '%s'", mode);
}
return 1;
@ -1229,7 +1231,6 @@ static int write(lua_State *L) {
lua_pop(L, 2);
out->write(data, strlen(data));
debugN(3, "%s", data);
return 0;
}
@ -1248,6 +1249,23 @@ static int closeFile(lua_State *L) {
return 0;
}
static int dofile(lua_State *L) {
const char *fName = lua_tostring(L, 1);
g_hdb->_lua->checkParameters("dofile", 1);
lua_pop(L, 1);
Common::InSaveFile *in = g_system->getSavefileManager()->openForLoading(fName);
if (!in)
error("Lua dofile: cannot open file '%s'", fName);
delete in;
return 0;
}
/*
Lua Initialization Code
*/
@ -1549,8 +1567,9 @@ struct FuncInit {
{ "Cine_PlayVoice", cinePlayVoice },
{ "openfile", openFile, },
{ "write", write, },
{ "write", write, },
{ "closefile", closeFile, },
{ "dofile", dofile, },
{ NULL, NULL }
};