2812
|
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 |
|