506f364029
FreeBSDlua ("flua") is a FreeBSD-private lua, flavored with whatever
extensions we need for base system operations. We currently support a subset
of lfs and lposix that are used in the rewrite of makesyscall.sh into lua,
added in r354786.
flua is intentionally written such that one can install standard lua and
some set of lua modules from ports and achieve the same effect.
linit_flua is a copy of linit.c from contrib/lua with lfs and lposix added
in. This is similar to what we do in stand/. linit.c has been renamed to
make it clear that this has flua-specific bits.
luaconf has been slightly obfuscated to make extensions more difficult. Part
of the problem is that flua is already hard enough to use as a bootstrap
tool because it's not in PATH- attempting to do extension loading would
require a special bootstrap version of flua with paths changed to protect
the innocent.
src.lua.mk has been added to make it easy for in-tree stuff to find flua,
whether it's bootstrap-flua or relying on PATH frobbing by Makefile.inc1.
Reviewed by: brooks, emaste (both earlier version), imp
Differential Revision: https://reviews.freebsd.org/D21893
74 lines
1.8 KiB
C
74 lines
1.8 KiB
C
/* $FreeBSD$ */
|
|
/*
|
|
** $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 "lua.h"
|
|
|
|
#include "lualib.h"
|
|
#include "lauxlib.h"
|
|
#include "lfs.h"
|
|
#include "lposix.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 */
|
|
{"lfs", luaopen_lfs},
|
|
{"posix.unistd", luaopen_posix_unistd},
|
|
{NULL, NULL}
|
|
};
|
|
|
|
|
|
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 */
|
|
}
|
|
}
|
|
|