1use std::os::raw::{c_char, c_int, c_void};
4use std::ptr;
5
6use super::lua::{self, lua_CFunction, lua_Integer, lua_Number, lua_State, lua_Unsigned};
7
8pub const LUA_ERRFILE: c_int = lua::LUA_ERRERR + 1;
10
11#[repr(C)]
12pub struct luaL_Reg {
13 pub name: *const c_char,
14 pub func: lua_CFunction,
15}
16
17#[cfg_attr(all(windows, raw_dylib), link(name = "lua52", kind = "raw-dylib"))]
18extern "C-unwind" {
19 pub fn luaL_checkversion_(L: *mut lua_State, ver: lua_Number);
20
21 #[link_name = "luaL_getmetafield"]
22 pub fn luaL_getmetafield_(L: *mut lua_State, obj: c_int, e: *const c_char) -> c_int;
23 pub fn luaL_callmeta(L: *mut lua_State, obj: c_int, e: *const c_char) -> c_int;
24 #[link_name = "luaL_tolstring"]
25 pub fn luaL_tolstring_(L: *mut lua_State, idx: c_int, len: *mut usize) -> *const c_char;
26 pub fn luaL_argerror(L: *mut lua_State, arg: c_int, extramsg: *const c_char) -> c_int;
27 pub fn luaL_checklstring(L: *mut lua_State, arg: c_int, l: *mut usize) -> *const c_char;
28 pub fn luaL_optlstring(L: *mut lua_State, arg: c_int, def: *const c_char, l: *mut usize)
29 -> *const c_char;
30 pub fn luaL_checknumber(L: *mut lua_State, arg: c_int) -> lua_Number;
31 pub fn luaL_optnumber(L: *mut lua_State, arg: c_int, def: lua_Number) -> lua_Number;
32 pub fn luaL_checkinteger(L: *mut lua_State, arg: c_int) -> lua_Integer;
33 pub fn luaL_optinteger(L: *mut lua_State, arg: c_int, def: lua_Integer) -> lua_Integer;
34 pub fn luaL_checkunsigned(L: *mut lua_State, arg: c_int) -> lua_Unsigned;
35 pub fn luaL_optunsigned(L: *mut lua_State, arg: c_int, def: lua_Unsigned) -> lua_Unsigned;
36
37 pub fn luaL_checkstack(L: *mut lua_State, sz: c_int, msg: *const c_char);
38 pub fn luaL_checktype(L: *mut lua_State, arg: c_int, t: c_int);
39 pub fn luaL_checkany(L: *mut lua_State, arg: c_int);
40
41 #[link_name = "luaL_newmetatable"]
42 pub fn luaL_newmetatable_(L: *mut lua_State, tname: *const c_char) -> c_int;
43 pub fn luaL_setmetatable(L: *mut lua_State, tname: *const c_char);
44 pub fn luaL_testudata(L: *mut lua_State, ud: c_int, tname: *const c_char) -> *mut c_void;
45 pub fn luaL_checkudata(L: *mut lua_State, ud: c_int, tname: *const c_char) -> *mut c_void;
46
47 pub fn luaL_where(L: *mut lua_State, lvl: c_int);
48 pub fn luaL_error(L: *mut lua_State, fmt: *const c_char, ...) -> c_int;
49
50 pub fn luaL_checkoption(
51 L: *mut lua_State,
52 arg: c_int,
53 def: *const c_char,
54 lst: *const *const c_char,
55 ) -> c_int;
56
57 pub fn luaL_fileresult(L: *mut lua_State, stat: c_int, fname: *const c_char) -> c_int;
58 pub fn luaL_execresult(L: *mut lua_State, stat: c_int) -> c_int;
59}
60
61pub const LUA_NOREF: c_int = -2;
63pub const LUA_REFNIL: c_int = -1;
64
65#[cfg_attr(all(windows, raw_dylib), link(name = "lua52", kind = "raw-dylib"))]
66extern "C-unwind" {
67 pub fn luaL_ref(L: *mut lua_State, t: c_int) -> c_int;
68 pub fn luaL_unref(L: *mut lua_State, t: c_int, r#ref: c_int);
69
70 pub fn luaL_loadfilex(L: *mut lua_State, filename: *const c_char, mode: *const c_char) -> c_int;
71}
72
73#[inline(always)]
74pub unsafe fn luaL_loadfile(L: *mut lua_State, f: *const c_char) -> c_int {
75 luaL_loadfilex(L, f, ptr::null())
76}
77
78#[cfg_attr(all(windows, raw_dylib), link(name = "lua52", kind = "raw-dylib"))]
79extern "C-unwind" {
80 pub fn luaL_loadbufferx(
81 L: *mut lua_State,
82 buff: *const c_char,
83 sz: usize,
84 name: *const c_char,
85 mode: *const c_char,
86 ) -> c_int;
87 pub fn luaL_loadstring(L: *mut lua_State, s: *const c_char) -> c_int;
88
89 pub fn luaL_newstate() -> *mut lua_State;
90
91 pub fn luaL_len(L: *mut lua_State, idx: c_int) -> lua_Integer;
92
93 pub fn luaL_gsub(
94 L: *mut lua_State,
95 s: *const c_char,
96 p: *const c_char,
97 r: *const c_char,
98 ) -> *const c_char;
99
100 pub fn luaL_setfuncs(L: *mut lua_State, l: *const luaL_Reg, nup: c_int);
101
102 pub fn luaL_getsubtable(L: *mut lua_State, idx: c_int, fname: *const c_char) -> c_int;
103
104 pub fn luaL_traceback(L: *mut lua_State, L1: *mut lua_State, msg: *const c_char, level: c_int);
105
106 #[link_name = "luaL_requiref"]
107 pub fn luaL_requiref_(L: *mut lua_State, modname: *const c_char, openf: lua_CFunction, glb: c_int);
108}
109
110#[inline(always)]
117pub unsafe fn luaL_argcheck(L: *mut lua_State, cond: c_int, arg: c_int, extramsg: *const c_char) {
118 if cond == 0 {
119 luaL_argerror(L, arg, extramsg);
120 }
121}
122
123#[inline(always)]
124pub unsafe fn luaL_checkstring(L: *mut lua_State, n: c_int) -> *const c_char {
125 luaL_checklstring(L, n, ptr::null_mut())
126}
127
128#[inline(always)]
129pub unsafe fn luaL_optstring(L: *mut lua_State, n: c_int, d: *const c_char) -> *const c_char {
130 luaL_optlstring(L, n, d, ptr::null_mut())
131}
132
133#[inline(always)]
134pub unsafe fn luaL_typename(L: *mut lua_State, i: c_int) -> *const c_char {
135 lua::lua_typename(L, lua::lua_type(L, i))
136}
137
138#[inline(always)]
139pub unsafe fn luaL_dofile(L: *mut lua_State, filename: *const c_char) -> c_int {
140 let status = luaL_loadfile(L, filename);
141 if status == 0 {
142 lua::lua_pcall(L, 0, lua::LUA_MULTRET, 0)
143 } else {
144 status
145 }
146}
147
148#[inline(always)]
149pub unsafe fn luaL_dostring(L: *mut lua_State, s: *const c_char) -> c_int {
150 let status = luaL_loadstring(L, s);
151 if status == 0 {
152 lua::lua_pcall(L, 0, lua::LUA_MULTRET, 0)
153 } else {
154 status
155 }
156}
157
158#[inline(always)]
159pub unsafe fn luaL_getmetatable(L: *mut lua_State, n: *const c_char) {
160 lua::lua_getfield_(L, lua::LUA_REGISTRYINDEX, n);
161}
162
163#[inline(always)]
166pub unsafe fn luaL_loadbuffer(L: *mut lua_State, s: *const c_char, sz: usize, n: *const c_char) -> c_int {
167 luaL_loadbufferx(L, s, sz, n, ptr::null())
168}
169
170