e4482f2c1c86bf67a6aad0dc8a61c70f3affbb7d
[apps/madmutt.git] / lib-lua / runtime.c
1 /*
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.
6  *
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.
11  *
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,
15  *  MA 02110-1301, USA.
16  *
17  *  Copyright © 2007 Pierre Habouzit
18  */
19
20 #include <lib-lib/lib-lib.h>
21 #include "lib-lua_priv.h"
22
23 static lua_State *L;
24
25
26 void luaM_initialize(void)
27 {
28     static const luaL_Reg lualibs[] = {
29         {"",              luaopen_base},
30         {LUA_OSLIBNAME,   luaopen_os},
31         {LUA_LOADLIBNAME, luaopen_package},
32         {LUA_TABLIBNAME,  luaopen_table},
33         {LUA_IOLIBNAME,   luaopen_io},
34         {LUA_STRLIBNAME,  luaopen_string},
35         {LUA_MATHLIBNAME, luaopen_math},
36         {LUA_DBLIBNAME,   luaopen_debug},
37         {"madmutt",       luaopen_madmutt},
38     };
39
40     int i;
41
42     L = lua_open();
43     for (i = 0; i < countof(lualibs); i++) {
44         lua_pushcfunction(L, lualibs[i].func);
45         lua_pushstring(L, lualibs[i].name);
46         lua_call(L, 1, 0);
47     }
48 }
49
50 void luaM_shutdown(void)
51 {
52     lua_close(L);
53 }
54
55
56 int luaM_dofile(const char *filename)
57 {
58     return luaL_dofile(L, filename);
59 }
60
61 int luaM_wrap(void (*errfun)(const char *fmt, ...), int status)
62 {
63     if (status) {
64         (*errfun)("-[lua]-: %s\n", lua_tostring(L, -1));
65         lua_pop(L, 1);
66     }
67     return status;
68 }
69
70
71 quadopt_t luaM_checkquadopt(lua_State *Ls, int narg)
72 {
73     const char *s;
74     int i = luaL_checkinteger(Ls, narg);
75
76     if (i & ~3) {
77         s = lua_pushfstring(Ls, "int in [0-3] expected, got %d", i);
78         return luaL_argerror(Ls, narg, s);
79     }
80     return i;
81 }
82