diff options
Diffstat (limited to 'daemon/bindings.h')
-rw-r--r-- | daemon/bindings.h | 88 |
1 files changed, 88 insertions, 0 deletions
diff --git a/daemon/bindings.h b/daemon/bindings.h new file mode 100644 index 0000000..5540778 --- /dev/null +++ b/daemon/bindings.h @@ -0,0 +1,88 @@ +/* Copyright (C) 2015-2017 CZ.NIC, z.s.p.o. <knot-dns@labs.nic.cz> + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see <https://www.gnu.org/licenses/>. + */ + +/** + * Bindings to engine services, see \a https://www.lua.org/manual/5.2/manual.html#luaL_newlib for the reference. + */ +#pragma once + +#include <lua.h> +#include <lualib.h> +#include <lauxlib.h> + +#include "daemon/engine.h" + +/** @internal Compatibility wrapper for Lua 5.0 - 5.2 */ +#if LUA_VERSION_NUM >= 502 +#define register_lib(L, name, lib) \ + luaL_newlib((L), (lib)) +#else +#define lua_rawlen(L, obj) \ + lua_objlen((L), (obj)) +#define register_lib(L, name, lib) \ + luaL_openlib((L), (name), (lib), 0) +#endif + +#if !LUA_HAS_SETFUNCS +/* Adapted from Lua 5.2.0 */ +static inline void luaL_setfuncs (lua_State *L, const luaL_Reg *l, int nup) { + luaL_checkstack(L, nup+1, "too many upvalues"); + for (; l->name != NULL; l++) { /* fill the table with given functions */ + int i; + lua_pushstring(L, l->name); + for (i = 0; i < nup; i++) /* copy upvalues to the top */ + lua_pushvalue(L, -(nup+1)); + lua_pushcclosure(L, l->func, nup); /* closure with those upvalues */ + lua_settable(L, -(nup + 3)); + } + lua_pop(L, nup); /* remove upvalues */ +} +#endif + +/** + * Load 'modules' package. + * @param L scriptable + * @return number of packages to load + */ +int lib_modules(lua_State *L); + +/** + * Load 'net' package. + * @param L scriptable + * @return number of packages to load + */ +int lib_net(lua_State *L); + +/** + * Load 'cache' package. + * @param L scriptable + * @return number of packages to load + */ +int lib_cache(lua_State *L); + +/** + * Load 'event' package. + * @param L scriptable + * @return number of packages to load + */ +int lib_event(lua_State *L); + +/** + * Load worker API. + * @param L scriptable + * @return number of packages to load + */ +int lib_worker(lua_State *L); |