dan/TIC-80-guile
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Share lua builtins open function across all lua-based languages.

Browse Source
This commit is contained in:
Phil Hagelberg
2018-05-25 20:15:42 -07:00
parent 7a88a1b3c3
commit 7a40c6ec64
1 changed files with 24 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

77
src/luaapi.c
View File

@@ -1131,6 +1131,27 @@ static s32 lua_loadfile(lua_State *lua)
return 0; return 0;
} }
static void lua_open_builtins(lua_State *lua)
{
static const luaL_Reg loadedlibs[] =
{
{ "_G", luaopen_base },
{ LUA_LOADLIBNAME, luaopen_package },
{ LUA_COLIBNAME, luaopen_coroutine },
{ LUA_TABLIBNAME, luaopen_table },
{ LUA_STRLIBNAME, luaopen_string },
{ LUA_MATHLIBNAME, luaopen_math },
{ LUA_DBLIBNAME, luaopen_debug },
{ NULL, NULL }
};
for (const luaL_Reg *lib = loadedlibs; lib->func; lib++)
{
luaL_requiref(lua, lib->name, lib->func, 1);
lua_pop(lua, 1);
}
}
static const char* const ApiKeywords[] = API_KEYWORDS; static const char* const ApiKeywords[] = API_KEYWORDS;
static const lua_CFunction ApiFunc[] = static const lua_CFunction ApiFunc[] =
{ {
@@ -1187,23 +1208,7 @@ static bool initLua(tic_mem* tic, const char* code)
closeLua(tic); closeLua(tic);
lua_State* lua = machine->lua = luaL_newstate(); lua_State* lua = machine->lua = luaL_newstate();
lua_open_builtins(lua);
static const luaL_Reg loadedlibs[] =
{
{ "_G", luaopen_base },
{ LUA_COLIBNAME, luaopen_coroutine },
{ LUA_TABLIBNAME, luaopen_table },
{ LUA_STRLIBNAME, luaopen_string },
{ LUA_MATHLIBNAME, luaopen_math },
{ LUA_DBLIBNAME, luaopen_debug },
{ NULL, NULL }
};
for (const luaL_Reg *lib = loadedlibs; lib->func; lib++)
{
luaL_requiref(lua, lib->name, lib->func, 1);
lua_pop(lua, 1);
}
initAPI(machine); initAPI(machine);
@@ -1462,24 +1467,7 @@ static bool initMoonscript(tic_mem* tic, const char* code)
closeLua(tic); closeLua(tic);
lua_State* lua = machine->lua = luaL_newstate(); lua_State* lua = machine->lua = luaL_newstate();
lua_open_builtins(lua);
static const luaL_Reg loadedlibs[] =
{
{ "_G", luaopen_base },
{ LUA_LOADLIBNAME, luaopen_package },
{ LUA_COLIBNAME, luaopen_coroutine },
{ LUA_TABLIBNAME, luaopen_table },
{ LUA_STRLIBNAME, luaopen_string },
{ LUA_MATHLIBNAME, luaopen_math },
{ LUA_DBLIBNAME, luaopen_debug },
{ NULL, NULL }
};
for (const luaL_Reg *lib = loadedlibs; lib->func; lib++)
{
luaL_requiref(lua, lib->name, lib->func, 1);
lua_pop(lua, 1);
}
luaopen_lpeg(lua); luaopen_lpeg(lua);
setloaded(lua, "lpeg"); setloaded(lua, "lpeg");
@@ -1630,24 +1618,7 @@ static bool initFennel(tic_mem* tic, const char* code)
closeLua(tic); closeLua(tic);
lua_State* lua = machine->lua = luaL_newstate(); lua_State* lua = machine->lua = luaL_newstate();
lua_open_builtins(lua);
static const luaL_Reg loadedlibs[] =
{
{ "_G", luaopen_base },
{ LUA_LOADLIBNAME, luaopen_package },
{ LUA_COLIBNAME, luaopen_coroutine },
{ LUA_TABLIBNAME, luaopen_table },
{ LUA_STRLIBNAME, luaopen_string },
{ LUA_MATHLIBNAME, luaopen_math },
{ LUA_DBLIBNAME, luaopen_debug },
{ NULL, NULL }
};
for (const luaL_Reg *lib = loadedlibs; lib->func; lib++)
{
luaL_requiref(lua, lib->name, lib->func, 1);
lua_pop(lua, 1);
}
initAPI(machine); initAPI(machine);