raze-gles/polymer/eduke32/source/lunatic/lunatic.c

116 lines
2.1 KiB
C
Raw Normal View History

/* 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;
}