Mercurial > vba-clojure
comparison src/lua/linit.c @ 11:27763b933818
raise lua sources up one level
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Sat, 03 Mar 2012 11:07:39 -0600 |
parents | src/lua/src/linit.c@f9f4f1b99eed |
children |
comparison
equal
deleted
inserted
replaced
10:48b74a4e4692 | 11:27763b933818 |
---|---|
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 |