mirror of
https://git.freebsd.org/src.git
synced 2026-01-16 23:02:24 +00:00
9c7db0931d
The real luaposix is structured differently, and our builtin version
tends to model that in its own special way. Build it back in until we
get the shlib model just right to unbreak nuageinit, among other things.
This is a partial revert of the below-referenced commit; the other two
modules are simple, though, and were accurately split out.
Reported by: markj
Fixes: b11a5709ec ("flua: kick out the remaining builtin modules")
95 lines
2.5 KiB
C
95 lines
2.5 KiB
C
/*
|
|
** $Id: linit.c,v 1.39.1.1 2017/04/19 17:20:42 roberto Exp $
|
|
** Initialization of libraries for lua.c and other clients
|
|
** See Copyright Notice in lua.h
|
|
*/
|
|
|
|
|
|
#define linit_c
|
|
#define LUA_LIB
|
|
|
|
/*
|
|
** If you embed Lua in your program and need to open the standard
|
|
** libraries, call luaL_openlibs in your program. If you need a
|
|
** different set of libraries, copy this file to your project and edit
|
|
** it to suit your needs.
|
|
**
|
|
** You can also *preload* libraries, so that a later 'require' can
|
|
** open the library, which is already linked to the application.
|
|
** For that, do the following code:
|
|
**
|
|
** luaL_getsubtable(L, LUA_REGISTRYINDEX, LUA_PRELOAD_TABLE);
|
|
** lua_pushcfunction(L, luaopen_modname);
|
|
** lua_setfield(L, -2, modname);
|
|
** lua_pop(L, 1); // remove PRELOAD table
|
|
*/
|
|
|
|
#include "lprefix.h"
|
|
|
|
#include <stddef.h>
|
|
#include <stdlib.h>
|
|
|
|
#include "lua.h"
|
|
|
|
#include "lualib.h"
|
|
#include "lauxlib.h"
|
|
#include "lposix.h"
|
|
|
|
#include "bootstrap.h"
|
|
|
|
/*
|
|
** these libs are loaded by lua.c and are readily available to any Lua
|
|
** program
|
|
*/
|
|
static const luaL_Reg loadedlibs[] = {
|
|
{"_G", luaopen_base},
|
|
{LUA_LOADLIBNAME, luaopen_package},
|
|
{LUA_COLIBNAME, luaopen_coroutine},
|
|
{LUA_TABLIBNAME, luaopen_table},
|
|
{LUA_IOLIBNAME, luaopen_io},
|
|
{LUA_OSLIBNAME, luaopen_os},
|
|
{LUA_STRLIBNAME, luaopen_string},
|
|
{LUA_MATHLIBNAME, luaopen_math},
|
|
{LUA_UTF8LIBNAME, luaopen_utf8},
|
|
{LUA_DBLIBNAME, luaopen_debug},
|
|
#if defined(LUA_COMPAT_BITLIB)
|
|
{LUA_BITLIBNAME, luaopen_bit32},
|
|
#endif
|
|
/* FreeBSD Extensions */
|
|
{"posix", luaopen_posix},
|
|
{NULL, NULL}
|
|
};
|
|
|
|
#ifdef BOOTSTRAPPING
|
|
static void __attribute__((constructor)) flua_init_env(void) {
|
|
/*
|
|
* This happens in the middle of luaopen_package(). We could move it into
|
|
* flua_setup_mods(), but it seems better to avoid its timing being so
|
|
* important that it would break some of our bootstrap modules if someone
|
|
* were to reorder things.
|
|
*/
|
|
if (getenv("LUA_PATH") == NULL)
|
|
setenv("LUA_PATH", BOOTSTRAP_FLUA_PATH, 1);
|
|
}
|
|
|
|
static void flua_setup_mods (lua_State *L) {
|
|
const luaL_Reg **flib;
|
|
|
|
SET_FOREACH(flib, FLUA_MODULE_SETNAME) {
|
|
luaL_requiref(L, (*flib)->name, (*flib)->func, 1);
|
|
lua_pop(L, 1); /* remove lib */
|
|
}
|
|
};
|
|
#endif
|
|
|
|
LUALIB_API void luaL_openlibs (lua_State *L) {
|
|
const luaL_Reg *lib;
|
|
/* "require" functions from 'loadedlibs' and set results to global table */
|
|
for (lib = loadedlibs; lib->func; lib++) {
|
|
luaL_requiref(L, lib->name, lib->func, 1);
|
|
lua_pop(L, 1); /* remove lib */
|
|
}
|
|
#ifdef BOOTSTRAPPING
|
|
flua_setup_mods(L);
|
|
#endif
|
|
}
|