]>
Commit | Line | Data |
---|---|---|
1 | /* | |
2 | ** $Id: linit.c,v 1.14.1.1 2007/12/27 13:02:25 roberto Exp $ | |
3 | ** Initialization of libraries for lua.c | |
4 | ** See Copyright Notice in lua.h | |
5 | */ | |
6 | ||
7 | ||
8 | #define linit_c | |
9 | #define LUA_LIB | |
10 | ||
11 | #include "lua.h" | |
12 | ||
13 | #include "lualib.h" | |
14 | #include "lauxlib.h" | |
15 | ||
16 | ||
17 | static const luaL_Reg lualibs[] = { | |
18 | {"", luaopen_base}, | |
19 | {LUA_LOADLIBNAME, luaopen_package}, | |
20 | {LUA_TABLIBNAME, luaopen_table}, | |
21 | {LUA_IOLIBNAME, luaopen_io}, | |
22 | {LUA_OSLIBNAME, luaopen_os}, | |
23 | {LUA_STRLIBNAME, luaopen_string}, | |
24 | {LUA_MATHLIBNAME, luaopen_math}, | |
25 | {LUA_DBLIBNAME, luaopen_debug}, | |
26 | {NULL, NULL} | |
27 | }; | |
28 | ||
29 | ||
30 | LUALIB_API void luaL_openlibs (lua_State *L) { | |
31 | const luaL_Reg *lib = lualibs; | |
32 | for (; lib->func; lib++) { | |
33 | lua_pushcfunction(L, lib->func); | |
34 | lua_pushstring(L, lib->name); | |
35 | lua_call(L, 1, 0); | |
36 | } | |
37 | } | |
38 |