1 | /* |
2 | ** $Id: linit.c,v 1.39.1.1 2017/04/19 17:20:42 roberto Exp $ |
3 | ** Initialization of libraries for lua.c and other clients |
4 | ** See Copyright Notice in lua.h |
5 | */ |
6 | |
7 | |
8 | #define linit_c |
9 | #define LUA_LIB |
10 | |
11 | /* |
12 | ** If you embed Lua in your program and need to open the standard |
13 | ** libraries, call luaL_openlibs in your program. If you need a |
14 | ** different set of libraries, copy this file to your project and edit |
15 | ** it to suit your needs. |
16 | ** |
17 | ** You can also *preload* libraries, so that a later 'require' can |
18 | ** open the library, which is already linked to the application. |
19 | ** For that, do the following code: |
20 | ** |
21 | ** luaL_getsubtable(L, LUA_REGISTRYINDEX, LUA_PRELOAD_TABLE); |
22 | ** lua_pushcfunction(L, luaopen_modname); |
23 | ** lua_setfield(L, -2, modname); |
24 | ** lua_pop(L, 1); // remove PRELOAD table |
25 | */ |
26 | |
27 | #include "lprefix.h" |
28 | |
29 | |
30 | #include <stddef.h> |
31 | |
32 | #include "lua.h" |
33 | |
34 | #include "lualib.h" |
35 | #include "lauxlib.h" |
36 | |
37 | |
38 | /* |
39 | ** these libs are loaded by lua.c and are readily available to any Lua |
40 | ** program |
41 | */ |
42 | static const luaL_Reg loadedlibs[] = { |
43 | {"_G" , luaopen_base}, |
44 | {LUA_LOADLIBNAME, luaopen_package}, |
45 | {LUA_COLIBNAME, luaopen_coroutine}, |
46 | {LUA_TABLIBNAME, luaopen_table}, |
47 | {LUA_IOLIBNAME, luaopen_io}, |
48 | {LUA_OSLIBNAME, luaopen_os}, |
49 | {LUA_STRLIBNAME, luaopen_string}, |
50 | {LUA_MATHLIBNAME, luaopen_math}, |
51 | {LUA_UTF8LIBNAME, luaopen_utf8}, |
52 | {LUA_DBLIBNAME, luaopen_debug}, |
53 | #if defined(LUA_COMPAT_BITLIB) |
54 | {LUA_BITLIBNAME, luaopen_bit32}, |
55 | #endif |
56 | {NULL, NULL} |
57 | }; |
58 | |
59 | |
60 | LUALIB_API void luaL_openlibs (lua_State *L) { |
61 | const luaL_Reg *lib; |
62 | /* "require" functions from 'loadedlibs' and set results to global table */ |
63 | for (lib = loadedlibs; lib->func; lib++) { |
64 | luaL_requiref(L, lib->name, lib->func, 1); |
65 | lua_pop(L, 1); /* remove lib */ |
66 | } |
67 | } |
68 | |
69 | |