79 lines
2.0 KiB
C
79 lines
2.0 KiB
C
/*
|
|
** $Id: linit.c,v 1.14.1.1 2007/12/27 13:02:25 roberto Exp $
|
|
** Initialization of libraries for lua.c
|
|
** See Copyright Notice in lua.h
|
|
*/
|
|
|
|
|
|
#define linit_c
|
|
#define LUA_LIB
|
|
#define LUAC_CROSS_FILE
|
|
|
|
#include "lua.h"
|
|
|
|
#include "lualib.h"
|
|
#include "lauxlib.h"
|
|
#include "luaconf.h"
|
|
#include "module.h"
|
|
|
|
|
|
BUILTIN_LIB_INIT( BASE, "", luaopen_base);
|
|
BUILTIN_LIB_INIT( LOADLIB, LUA_LOADLIBNAME, luaopen_package);
|
|
|
|
#if defined(LUA_USE_BUILTIN_IO)
|
|
BUILTIN_LIB_INIT( IO, LUA_IOLIBNAME, luaopen_io);
|
|
#endif
|
|
|
|
#if defined (LUA_USE_BUILTIN_STRING)
|
|
extern const luaR_entry strlib[];
|
|
BUILTIN_LIB_INIT( STRING, LUA_STRLIBNAME, luaopen_string);
|
|
BUILTIN_LIB( STRING, LUA_STRLIBNAME, strlib);
|
|
#endif
|
|
|
|
#if defined(LUA_USE_BUILTIN_TABLE)
|
|
extern const luaR_entry tab_funcs[];
|
|
BUILTIN_LIB_INIT( TABLE, LUA_TABLIBNAME, luaopen_table);
|
|
BUILTIN_LIB( TABLE, LUA_TABLIBNAME, tab_funcs);
|
|
#endif
|
|
|
|
#if defined(LUA_USE_BUILTIN_DEBUG) || defined(LUA_USE_BUILTIN_DEBUG_MINIMAL)
|
|
extern const luaR_entry dblib[];
|
|
BUILTIN_LIB_INIT( DBG, LUA_DBLIBNAME, luaopen_debug);
|
|
BUILTIN_LIB( DBG, LUA_DBLIBNAME, dblib);
|
|
#endif
|
|
|
|
#if defined(LUA_USE_BUILTIN_OS)
|
|
extern const luaR_entry syslib[];
|
|
BUILTIN_LIB( OS, LUA_OSLIBNAME, syslib);
|
|
#endif
|
|
|
|
#if defined(LUA_USE_BUILTIN_COROUTINE)
|
|
extern const luaR_entry co_funcs[];
|
|
BUILTIN_LIB( CO, LUA_COLIBNAME, co_funcs);
|
|
#endif
|
|
|
|
#if defined(LUA_USE_BUILTIN_MATH)
|
|
extern const luaR_entry math_map[];
|
|
BUILTIN_LIB( MATH, LUA_MATHLIBNAME, math_map);
|
|
#endif
|
|
|
|
#ifdef LUA_CROSS_COMPILER
|
|
const luaL_Reg lua_libs[] = {{NULL, NULL}};
|
|
const luaR_table lua_rotable[] = {{NULL, NULL}};
|
|
#else
|
|
extern const luaL_Reg lua_libs[];
|
|
#endif
|
|
|
|
void luaL_openlibs (lua_State *L) {
|
|
const luaL_Reg *lib = lua_libs;
|
|
for (; lib->name; lib++) {
|
|
if (lib->func)
|
|
{
|
|
lua_pushcfunction(L, lib->func);
|
|
lua_pushstring(L, lib->name);
|
|
lua_call(L, 1, 0);
|
|
}
|
|
}
|
|
}
|
|
|