/src/testdir/build/lua-master/source/linit.c
Line | Count | Source |
1 | | /* |
2 | | ** $Id: linit.c $ |
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 | | {LUA_GNAME, 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 | | {NULL, NULL} |
54 | | }; |
55 | | |
56 | | |
57 | 3.20k | LUALIB_API void luaL_openlibs (lua_State *L) { |
58 | 3.20k | const luaL_Reg *lib; |
59 | | /* "require" functions from 'loadedlibs' and set results to global table */ |
60 | 35.2k | for (lib = loadedlibs; lib->func; lib++) { |
61 | 32.0k | luaL_requiref(L, lib->name, lib->func, 1); |
62 | 32.0k | lua_pop(L, 1); /* remove lib */ |
63 | 32.0k | } |
64 | 3.20k | } |
65 | | |