raze/polymer/eduke32/source/lunatic/lunatic_m32.c
2012-10-07 15:26:04 +00:00

41 lines
770 B
C

/* The Lunatic Interpreter, part of EDuke32/Mapster32 */
#include <stdint.h>
#include <lua.h>
#include <lualib.h>
#include <lauxlib.h>
#include "lunatic_m32.h"
#include "lunatic_priv.h"
Em_State *Em_CreateState(void)
{
lua_State *L = luaL_newstate();
if (L == NULL)
return NULL;
luaL_openlibs(L);
setup_debug_traceback(L);
return L;
}
// -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
// 5: empty file
int32_t Em_RunOnce(Em_State *L, const char *fn)
{
return lunatic_run_once(L, fn, "file");
}
int32_t Em_RunStringOnce(Em_State *L, const char *str)
{
return lunatic_run_string(L, (char *)str, 0, "string");
}