mirror of https://github.com/ZDoom/raze-gles.git
116 lines
2.1 KiB
C
116 lines
2.1 KiB
C
/* The Lunatic Interpreter, part of EDuke32 */
|
|
|
|
#include <stdint.h>
|
|
|
|
#include <lua.h>
|
|
#include <lualib.h>
|
|
#include <lauxlib.h>
|
|
|
|
#include "cache1d.h"
|
|
#include "osd.h"
|
|
|
|
#include "lunatic.h"
|
|
|
|
|
|
// 0: success, -1: failure
|
|
int32_t El_CreateState(El_State *estate, const char *name)
|
|
{
|
|
estate->name = Bstrdup(name);
|
|
if (!estate->name)
|
|
return -1;
|
|
|
|
estate->L = luaL_newstate();
|
|
|
|
if (!estate->L)
|
|
{
|
|
Bfree((char *)estate->name);
|
|
estate->name = NULL;
|
|
return -2;
|
|
}
|
|
|
|
luaL_openlibs(estate->L); // XXX: only for internal use and testing, obviously
|
|
|
|
return 0;
|
|
}
|
|
|
|
void El_DestroyState(El_State *estate)
|
|
{
|
|
if (!estate->L)
|
|
return;
|
|
|
|
Bfree((char *)estate->name);
|
|
estate->name = NULL;
|
|
|
|
lua_close(estate->L);
|
|
estate->L = NULL;
|
|
}
|
|
|
|
// -1: alloc failure
|
|
// 0: success
|
|
// 1: didn't find file
|
|
// 2: couldn't read whole file
|
|
// 3: syntax error in lua file
|
|
// 4: runtime error while executing lua file
|
|
int32_t El_RunOnce(El_State *estate, const char *fn)
|
|
{
|
|
int32_t fid, flen, i;
|
|
char *buf;
|
|
|
|
fid = kopen4load(fn, 0);
|
|
|
|
if (fid < 0)
|
|
return 1;
|
|
|
|
flen = kfilelength(fid);
|
|
if (flen == 0)
|
|
return 0; // empty script ...
|
|
|
|
buf = Bmalloc(flen+1);
|
|
if (!buf)
|
|
{
|
|
kclose(fid);
|
|
return -1;
|
|
}
|
|
|
|
i = kread(fid, buf, flen);
|
|
kclose(fid);
|
|
|
|
if (i != flen)
|
|
{
|
|
Bfree(buf);
|
|
return 2;
|
|
}
|
|
|
|
buf[flen] = 0;
|
|
|
|
// -- lua --
|
|
|
|
i = luaL_loadstring(estate->L, buf);
|
|
Bfree(buf);
|
|
|
|
if (i == LUA_ERRMEM)
|
|
return -1;
|
|
|
|
if (i == LUA_ERRSYNTAX)
|
|
{
|
|
OSD_Printf("state '%s' syntax error: %s\n", estate->name, lua_tostring(estate->L, 1)); // get err msg
|
|
lua_pop(estate->L, 1);
|
|
return 3;
|
|
}
|
|
|
|
// -- call the lua chunk! --
|
|
|
|
i = lua_pcall(estate->L, 0, 0, 0);
|
|
if (i == LUA_ERRMEM) // XXX: should be more sophisticated. Clean up stack? Do GC?
|
|
return -1;
|
|
|
|
if (i == LUA_ERRRUN)
|
|
{
|
|
OSD_Printf("state '%s' runtime error: %s\n", estate->name, lua_tostring(estate->L, 1)); // get err msg
|
|
lua_pop(estate->L, 1);
|
|
return 4;
|
|
}
|
|
|
|
return 0;
|
|
}
|