summaryrefslogtreecommitdiff
path: root/src/ffi/lauxlib.rs
diff options
context:
space:
mode:
Diffstat (limited to 'src/ffi/lauxlib.rs')
-rw-r--r--src/ffi/lauxlib.rs313
1 files changed, 18 insertions, 295 deletions
diff --git a/src/ffi/lauxlib.rs b/src/ffi/lauxlib.rs
index b3c0a81..2371edb 100644
--- a/src/ffi/lauxlib.rs
+++ b/src/ffi/lauxlib.rs
@@ -1,306 +1,29 @@
-// The MIT License (MIT)
-//
-// Copyright (c) 2019-2021 A. Orlenko
-// Copyright (c) 2014 J.C. Moyer
-//
-// Permission is hereby granted, free of charge, to any person obtaining a copy
-// of this software and associated documentation files (the "Software"), to deal
-// in the Software without restriction, including without limitation the rights
-// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-// copies of the Software, and to permit persons to whom the Software is
-// furnished to do so, subject to the following conditions:
-//
-// The above copyright notice and this permission notice shall be included in
-// all copies or substantial portions of the Software.
-//
-// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-// THE SOFTWARE.
-
//! Contains definitions from `lauxlib.h`.
-use std::os::raw::{c_char, c_int, c_long, c_void};
-use std::ptr;
+use std::os::raw::c_int;
+
+#[cfg(feature = "lua54")]
+pub use super::lua54::lauxlib::*;
+
+#[cfg(feature = "lua53")]
+pub use super::lua53::lauxlib::*;
-use super::lua::{self, lua_CFunction, lua_Integer, lua_Number, lua_State};
+#[cfg(feature = "lua52")]
+pub use super::lua52::lauxlib::*;
-#[cfg(any(feature = "lua54", feature = "lua53"))]
-pub use super::glue::LUAL_NUMSIZES;
+#[cfg(any(feature = "lua51", feature = "luajit"))]
+pub use super::lua51::lauxlib::*;
-#[cfg(any(feature = "lua52", feature = "lua51", feature = "luajit"))]
+#[cfg(feature = "lua52")]
pub use super::compat53::{luaL_getmetafield, luaL_newmetatable, luaL_requiref, luaL_tolstring};
#[cfg(any(feature = "lua51", feature = "luajit"))]
pub use super::compat53::{
- luaL_checkstack, luaL_checkversion, luaL_getsubtable, luaL_len, luaL_loadbufferx,
- luaL_setfuncs, luaL_setmetatable, luaL_testudata, luaL_traceback,
+ luaL_checkstack, luaL_getmetafield, luaL_getsubtable, luaL_len, luaL_loadbufferx,
+ luaL_newmetatable, luaL_requiref, luaL_setfuncs, luaL_setmetatable, luaL_testudata,
+ luaL_tolstring, luaL_traceback,
};
-// extra error code for 'luaL_load'
-pub const LUA_ERRFILE: c_int = lua::LUA_ERRERR + 1;
-
-#[repr(C)]
-pub struct luaL_Reg {
- pub name: *const c_char,
- pub func: lua_CFunction,
-}
-
-#[cfg(any(feature = "lua54", feature = "lua53", feature = "lua52"))]
-#[inline(always)]
-pub unsafe fn luaL_checkversion(L: *mut lua_State) {
- #[cfg(any(feature = "lua54", feature = "lua53"))]
- luaL_checkversion_(
- L,
- lua::LUA_VERSION_NUM as lua_Number,
- LUAL_NUMSIZES as usize,
- );
- #[cfg(feature = "lua52")]
- luaL_checkversion_(L, lua::LUA_VERSION_NUM as lua_Number);
-}
-
-extern "C" {
- #[cfg(any(feature = "lua54", feature = "lua53"))]
- pub fn luaL_checkversion_(L: *mut lua_State, ver: lua_Number, sz: usize);
- #[cfg(feature = "lua52")]
- pub fn luaL_checkversion_(L: *mut lua_State, ver: lua_Number);
-
- #[cfg(any(feature = "lua54", feature = "lua53"))]
- pub fn luaL_getmetafield(L: *mut lua_State, obj: c_int, e: *const c_char) -> c_int;
- #[cfg(any(feature = "lua52", feature = "lua51", feature = "luajit"))]
- #[link_name = "luaL_getmetafield"]
- pub fn luaL_getmetafield_old(L: *mut lua_State, obj: c_int, e: *const c_char) -> c_int;
-
- pub fn luaL_callmeta(L: *mut lua_State, obj: c_int, e: *const c_char) -> c_int;
- #[cfg(any(feature = "lua54", feature = "lua53"))]
- pub fn luaL_tolstring(L: *mut lua_State, idx: c_int, len: *mut usize) -> *const c_char;
- pub fn luaL_argerror(L: *mut lua_State, arg: c_int, l: *const c_char) -> c_int;
- pub fn luaL_checklstring(L: *mut lua_State, arg: c_int, l: *mut usize) -> *const c_char;
- pub fn luaL_optlstring(
- L: *mut lua_State,
- arg: c_int,
- def: *const c_char,
- l: *mut usize,
- ) -> *const c_char;
- pub fn luaL_checknumber(L: *mut lua_State, arg: c_int) -> lua_Number;
- pub fn luaL_optnumber(L: *mut lua_State, arg: c_int, def: lua_Number) -> lua_Number;
- pub fn luaL_checkinteger(L: *mut lua_State, arg: c_int) -> lua_Integer;
- pub fn luaL_optinteger(L: *mut lua_State, arg: c_int, def: lua_Integer) -> lua_Integer;
-
- #[cfg(any(feature = "lua54", feature = "lua53", feature = "lua52"))]
- pub fn luaL_checkstack(L: *mut lua_State, sz: c_int, msg: *const c_char);
- pub fn luaL_checktype(L: *mut lua_State, arg: c_int, t: c_int);
- pub fn luaL_checkany(L: *mut lua_State, arg: c_int);
-
- #[cfg(any(feature = "lua54", feature = "lua53"))]
- pub fn luaL_newmetatable(L: *mut lua_State, tname: *const c_char) -> c_int;
- #[cfg(any(feature = "lua52", feature = "lua51", feature = "luajit"))]
- #[link_name = "luaL_newmetatable"]
- pub fn luaL_newmetatable_old(L: *mut lua_State, tname: *const c_char) -> c_int;
-
- #[cfg(any(feature = "lua54", feature = "lua53", feature = "lua52"))]
- pub fn luaL_setmetatable(L: *mut lua_State, tname: *const c_char);
- #[cfg(any(feature = "lua54", feature = "lua53", feature = "lua52"))]
- pub fn luaL_testudata(L: *mut lua_State, ud: c_int, tname: *const c_char) -> *mut c_void;
- pub fn luaL_checkudata(L: *mut lua_State, ud: c_int, tname: *const c_char) -> *mut c_void;
-
- pub fn luaL_where(L: *mut lua_State, lvl: c_int);
- pub fn luaL_error(L: *mut lua_State, fmt: *const c_char, ...) -> !;
-
- // TODO: test this
- pub fn luaL_checkoption(
- L: *mut lua_State,
- arg: c_int,
- def: *const c_char,
- lst: *const *const c_char,
- ) -> c_int;
-
- #[cfg(any(feature = "lua54", feature = "lua53", feature = "lua52"))]
- pub fn luaL_fileresult(L: *mut lua_State, stat: c_int, fname: *const c_char) -> c_int;
- #[cfg(any(feature = "lua54", feature = "lua53", feature = "lua52"))]
- pub fn luaL_execresult(L: *mut lua_State, stat: c_int) -> c_int;
-}
-
-// pre-defined references
-pub const LUA_NOREF: c_int = -2;
-pub const LUA_REFNIL: c_int = -1;
-
-extern "C" {
- pub fn luaL_ref(L: *mut lua_State, t: c_int) -> c_int;
- pub fn luaL_unref(L: *mut lua_State, t: c_int, r: c_int);
-
- #[cfg(any(feature = "lua54", feature = "lua53", feature = "lua52"))]
- pub fn luaL_loadfilex(L: *mut lua_State, filename: *const c_char, mode: *const c_char)
- -> c_int;
- #[cfg(any(feature = "lua51", feature = "luajit"))]
- pub fn luaL_loadfile(L: *mut lua_State, filename: *const c_char) -> c_int;
-}
-
-#[cfg(any(feature = "lua54", feature = "lua53", feature = "lua52"))]
-#[inline(always)]
-pub unsafe fn luaL_loadfile(L: *mut lua_State, f: *const c_char) -> c_int {
- luaL_loadfilex(L, f, ptr::null())
-}
-
-extern "C" {
- #[cfg(any(feature = "lua54", feature = "lua53", feature = "lua52"))]
- pub fn luaL_loadbufferx(
- L: *mut lua_State,
- buff: *const c_char,
- sz: usize,
- name: *const c_char,
- mode: *const c_char,
- ) -> c_int;
- #[cfg(any(feature = "lua51", feature = "luajit"))]
- pub fn luaL_loadbuffer(
- L: *mut lua_State,
- buff: *const c_char,
- sz: usize,
- name: *const c_char,
- ) -> c_int;
- pub fn luaL_loadstring(L: *mut lua_State, s: *const c_char) -> c_int;
-
- pub fn luaL_newstate() -> *mut lua_State;
-
- #[cfg(any(feature = "lua54", feature = "lua53", feature = "lua52"))]
- pub fn luaL_len(L: *mut lua_State, idx: c_int) -> lua_Integer;
-
- // TODO (lua54): luaL_addgsub
-
- pub fn luaL_gsub(
- L: *mut lua_State,
- s: *const c_char,
- p: *const c_char,
- r: *const c_char,
- ) -> *const c_char;
-
- #[cfg(any(feature = "lua54", feature = "lua53", feature = "lua52"))]
- pub fn luaL_setfuncs(L: *mut lua_State, l: *const luaL_Reg, nup: c_int);
-
- #[cfg(any(feature = "lua54", feature = "lua53", feature = "lua52"))]
- pub fn luaL_getsubtable(L: *mut lua_State, idx: c_int, fname: *const c_char) -> c_int;
-
- #[cfg(any(feature = "lua54", feature = "lua53", feature = "lua52"))]
- pub fn luaL_traceback(L: *mut lua_State, L1: *mut lua_State, msg: *const c_char, level: c_int);
-
- // Skip Lua 5.2 implementation in favor of the compat53 one
- #[cfg(any(feature = "lua54", feature = "lua53"))]
- pub fn luaL_requiref(
- L: *mut lua_State,
- modname: *const c_char,
- openf: lua_CFunction,
- glb: c_int,
- );
-}
-
-#[inline(always)]
-#[allow(unused_variables)]
-pub unsafe fn luaL_newlibtable(L: *mut lua_State, l: *const luaL_Reg) {
- // TODO: figure out how to pass an appropriate hint for the second param
- // this involves correcting the second parameter's type; in C this is
- // sizeof(l)/sizeof(l[0])
- lua::lua_createtable(L, 0, 0)
-}
-
-#[inline(always)]
-pub unsafe fn luaL_newlib(L: *mut lua_State, l: *const luaL_Reg) {
- luaL_checkversion(L);
- luaL_newlibtable(L, l);
- luaL_setfuncs(L, l, 0)
-}
-
-#[inline(always)]
-pub unsafe fn luaL_argcheck(L: *mut lua_State, cond: c_int, arg: c_int, extramsg: *const c_char) {
- if cond == 0 {
- luaL_argerror(L, arg, extramsg);
- }
-}
-
-#[inline(always)]
-pub unsafe fn luaL_checkstring(L: *mut lua_State, n: c_int) -> *const c_char {
- luaL_checklstring(L, n, ptr::null_mut())
-}
-
-#[inline(always)]
-pub unsafe fn luaL_optstring(L: *mut lua_State, n: c_int, d: *const c_char) -> *const c_char {
- luaL_optlstring(L, n, d, ptr::null_mut())
-}
-
-// From 5.3 user manual:
-// Macros to project non-default integer types (luaL_checkint, luaL_optint,
-// luaL_checklong, luaL_optlong) were deprecated. Use their equivalent over
-// lua_Integer with a type cast (or, when possible, use lua_Integer in your
-// code).
-#[inline(always)]
-//#[deprecated]
-pub unsafe fn luaL_checkint(L: *mut lua_State, n: c_int) -> c_int {
- luaL_checkinteger(L, n) as c_int
-}
-
-#[inline(always)]
-//#[deprecated]
-pub unsafe fn luaL_optint(L: *mut lua_State, n: c_int, d: c_int) -> c_int {
- luaL_optinteger(L, n, d as lua_Integer) as c_int
-}
-
-#[inline(always)]
-//#[deprecated]
-pub unsafe fn luaL_checklong(L: *mut lua_State, n: c_int) -> c_long {
- luaL_checkinteger(L, n) as c_long
-}
-
-#[inline(always)]
-//#[deprecated]
-pub unsafe fn luaL_optlong(L: *mut lua_State, n: c_int, d: c_long) -> c_long {
- luaL_optinteger(L, n, d as lua_Integer) as c_long
-}
-
-#[inline(always)]
-pub unsafe fn luaL_typename(L: *mut lua_State, i: c_int) -> *const c_char {
- lua::lua_typename(L, lua::lua_type(L, i))
-}
-
-#[inline(always)]
-pub unsafe fn luaL_dofile(L: *mut lua_State, filename: *const c_char) -> c_int {
- let status = luaL_loadfile(L, filename);
- if status == 0 {
- lua::lua_pcall(L, 0, lua::LUA_MULTRET, 0)
- } else {
- status
- }
-}
-
-#[inline(always)]
-pub unsafe fn luaL_dostring(L: *mut lua_State, s: *const c_char) -> c_int {
- let status = luaL_loadstring(L, s);
- if status == 0 {
- lua::lua_pcall(L, 0, lua::LUA_MULTRET, 0)
- } else {
- status
- }
-}
-
-#[inline(always)]
-pub unsafe fn luaL_getmetatable(L: *mut lua_State, n: *const c_char) {
- lua::lua_getfield(L, lua::LUA_REGISTRYINDEX, n);
-}
-
-// luaL_opt would be implemented here but it is undocumented, so it's omitted
-
-#[cfg(any(feature = "lua54", feature = "lua53", feature = "lua52"))]
-#[inline(always)]
-pub unsafe fn luaL_loadbuffer(
- L: *mut lua_State,
- s: *const c_char,
- sz: usize,
- n: *const c_char,
-) -> c_int {
- luaL_loadbufferx(L, s, sz, n, ptr::null())
-}
-
-// TODO: Add buffer API
-
-// omitted: old module system compatibility (removed in 5.4)
+// I believe `luaL_traceback` < 5.4 requires this much free stack to not error.
+// 5.4 uses `luaL_Buffer`
+pub const LUA_TRACEBACK_STACK: c_int = 11;