2 * This program is free software; you can redistribute it and/or modify
3 * it under the terms of the GNU General Public License as published by
4 * the Free Software Foundation; either version 2 of the License, or (at
5 * your option) any later version.
7 * This program is distributed in the hope that it will be useful, but
8 * WITHOUT ANY WARRANTY; without even the implied warranty of
9 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
10 * General Public License for more details.
12 * You should have received a copy of the GNU General Public License
13 * along with this program; if not, write to the Free Software
14 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
17 * Copyright © 2007 Pierre Habouzit
20 #include <lib-lib/lib-lib.h>
21 #include "lib-lua_priv.h"
24 static reg_entry registry[LTK_count];
26 static const luaL_Reg lualibs[] = {
28 {LUA_OSLIBNAME, luaopen_os},
29 {LUA_LOADLIBNAME, luaopen_package},
30 {LUA_TABLIBNAME, luaopen_table},
31 {LUA_IOLIBNAME, luaopen_io},
32 {LUA_STRLIBNAME, luaopen_string},
33 {LUA_MATHLIBNAME, luaopen_math},
34 {LUA_DBLIBNAME, luaopen_debug},
35 {LUA_MADMUTT, luaopen_madmutt},
38 void mlua_initialize(void)
43 for (i = 0; i < countof(lualibs); i++) {
44 lua_pushcfunction(L, lualibs[i].func);
45 lua_pushstring(L, lualibs[i].name);
50 void mlua_shutdown(void)
56 int mlua_dofile(const char *filename)
58 return luaL_dofile(L, filename);
61 int mlua_wrap(void (*errfun)(const char *fmt, ...), int status)
64 (*errfun)("-[lua]-: %s\n", lua_tostring(L, -1));
70 const char *mlua_reggets(int tk)
72 if (registry[tk].type != REG_STR)
74 return registry[tk].s;
77 int mlua_reggeti(int tk)
79 if (registry[tk].type != REG_INT)
81 return registry[tk].i;
84 void mlua_regsets(int tk, const char *s)
86 reg_entry_wipe(registry + tk);
87 registry[tk].type = REG_STR;
88 registry[tk].s = m_strdup(s);
91 void mlua_regseti(int tk, int i)
93 reg_entry_wipe(registry + tk);
94 registry[tk].type = REG_INT;