theseus_mlua_sys/lua_factorio/
lauxlib.rs

1//! Contains definitions from `lauxlib.h`.
2
3use 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
8// Extra error code for 'luaL_load'
9pub const LUA_ERRFILE: c_int = lua::LUA_ERRERR + 1;
10
11// Key, in the registry, for table of loaded modules
12pub const LUA_LOADED_TABLE: *const c_char = cstr!("_LOADED");
13
14// Key, in the registry, for table of preloaded loaders
15pub const LUA_PRELOAD_TABLE: *const c_char = cstr!("_PRELOAD");
16
17#[repr(C)]
18pub struct luaL_Reg {
19    pub name: *const c_char,
20    pub func: lua_CFunction,
21}
22
23extern "C" {
24    pub fn luaL_checkversion_(L: *mut lua_State, ver: lua_Number);
25
26    #[link_name = "luaL_getmetafield"]
27    pub fn luaL_getmetafield_(L: *mut lua_State, obj: c_int, e: *const c_char) -> c_int;
28    pub fn luaL_callmeta(L: *mut lua_State, obj: c_int, e: *const c_char) -> c_int;
29    #[link_name = "luaL_tolstring"]
30    pub fn luaL_tolstring_(L: *mut lua_State, idx: c_int, len: *mut usize) -> *const c_char;
31    pub fn luaL_argerror(L: *mut lua_State, arg: c_int, extramsg: *const c_char) -> c_int;
32    pub fn luaL_checklstring(L: *mut lua_State, arg: c_int, l: *mut usize) -> *const c_char;
33    pub fn luaL_optlstring(L: *mut lua_State, arg: c_int, def: *const c_char, l: *mut usize)
34        -> *const c_char;
35    pub fn luaL_checknumber(L: *mut lua_State, arg: c_int) -> lua_Number;
36    pub fn luaL_optnumber(L: *mut lua_State, arg: c_int, def: lua_Number) -> lua_Number;
37    pub fn luaL_checkinteger(L: *mut lua_State, arg: c_int) -> lua_Integer;
38    pub fn luaL_optinteger(L: *mut lua_State, arg: c_int, def: lua_Integer) -> lua_Integer;
39    pub fn luaL_checkunsigned(L: *mut lua_State, arg: c_int) -> lua_Unsigned;
40    pub fn luaL_optunsigned(L: *mut lua_State, arg: c_int, def: lua_Unsigned) -> lua_Unsigned;
41
42    pub fn luaL_checkstack(L: *mut lua_State, sz: c_int, msg: *const c_char);
43    pub fn luaL_checktype(L: *mut lua_State, arg: c_int, t: c_int);
44    pub fn luaL_checkany(L: *mut lua_State, arg: c_int);
45
46    #[link_name = "luaL_newmetatable"]
47    pub fn luaL_newmetatable_(L: *mut lua_State, tname: *const c_char) -> c_int;
48    pub fn luaL_setmetatable(L: *mut lua_State, tname: *const c_char);
49    pub fn luaL_testudata(L: *mut lua_State, ud: c_int, tname: *const c_char) -> *mut c_void;
50    pub fn luaL_checkudata(L: *mut lua_State, ud: c_int, tname: *const c_char) -> *mut c_void;
51
52    pub fn luaL_where(L: *mut lua_State, lvl: c_int);
53    pub fn luaL_error(L: *mut lua_State, fmt: *const c_char, ...) -> !;
54
55    pub fn luaL_checkoption(
56        L: *mut lua_State,
57        arg: c_int,
58        def: *const c_char,
59        lst: *const *const c_char,
60    ) -> c_int;
61
62    pub fn luaL_fileresult(L: *mut lua_State, stat: c_int, fname: *const c_char) -> c_int;
63    pub fn luaL_execresult(L: *mut lua_State, stat: c_int) -> c_int;
64}
65
66// Pre-defined references
67pub const LUA_NOREF: c_int = -2;
68pub const LUA_REFNIL: c_int = -1;
69
70extern "C" {
71    pub fn luaL_ref(L: *mut lua_State, t: c_int) -> c_int;
72    pub fn luaL_unref(L: *mut lua_State, t: c_int, r#ref: c_int);
73
74    pub fn luaL_loadfilex(L: *mut lua_State, filename: *const c_char, mode: *const c_char) -> c_int;
75}
76
77#[inline(always)]
78pub unsafe fn luaL_loadfile(L: *mut lua_State, f: *const c_char) -> c_int {
79    luaL_loadfilex(L, f, ptr::null())
80}
81
82extern "C" {
83    pub fn luaL_loadbufferx(
84        L: *mut lua_State,
85        buff: *const c_char,
86        sz: usize,
87        name: *const c_char,
88        mode: *const c_char,
89    ) -> c_int;
90    pub fn luaL_loadstring(L: *mut lua_State, s: *const c_char) -> c_int;
91
92    pub fn luaL_newstate() -> *mut lua_State;
93
94    pub fn luaL_len(L: *mut lua_State, idx: c_int) -> lua_Integer;
95
96    pub fn luaL_gsub(
97        L: *mut lua_State,
98        s: *const c_char,
99        p: *const c_char,
100        r: *const c_char,
101    ) -> *const c_char;
102
103    pub fn luaL_setfuncs(L: *mut lua_State, l: *const luaL_Reg, nup: c_int);
104
105    pub fn luaL_getsubtable(L: *mut lua_State, idx: c_int, fname: *const c_char) -> c_int;
106
107    pub fn luaL_traceback(L: *mut lua_State, L1: *mut lua_State, msg: *const c_char, level: c_int);
108
109    #[link_name = "luaL_requiref"]
110    pub fn luaL_requiref_(L: *mut lua_State, modname: *const c_char, openf: lua_CFunction, glb: c_int);
111}
112
113//
114// Some useful macros (implemented as Rust functions)
115//
116
117// TODO: luaL_newlibtable, luaL_newlib
118
119#[inline(always)]
120pub unsafe fn luaL_argcheck(L: *mut lua_State, cond: c_int, arg: c_int, extramsg: *const c_char) {
121    if cond == 0 {
122        luaL_argerror(L, arg, extramsg);
123    }
124}
125
126#[inline(always)]
127pub unsafe fn luaL_checkstring(L: *mut lua_State, n: c_int) -> *const c_char {
128    luaL_checklstring(L, n, ptr::null_mut())
129}
130
131#[inline(always)]
132pub unsafe fn luaL_optstring(L: *mut lua_State, n: c_int, d: *const c_char) -> *const c_char {
133    luaL_optlstring(L, n, d, ptr::null_mut())
134}
135
136#[inline(always)]
137pub unsafe fn luaL_typename(L: *mut lua_State, i: c_int) -> *const c_char {
138    lua::lua_typename(L, lua::lua_type(L, i))
139}
140
141#[inline(always)]
142pub unsafe fn luaL_dofile(L: *mut lua_State, filename: *const c_char) -> c_int {
143    let status = luaL_loadfile(L, filename);
144    if status == 0 {
145        lua::lua_pcall(L, 0, lua::LUA_MULTRET, 0)
146    } else {
147        status
148    }
149}
150
151#[inline(always)]
152pub unsafe fn luaL_dostring(L: *mut lua_State, s: *const c_char) -> c_int {
153    let status = luaL_loadstring(L, s);
154    if status == 0 {
155        lua::lua_pcall(L, 0, lua::LUA_MULTRET, 0)
156    } else {
157        status
158    }
159}
160
161#[inline(always)]
162pub unsafe fn luaL_getmetatable(L: *mut lua_State, n: *const c_char) {
163    lua::lua_getfield_(L, lua::LUA_REGISTRYINDEX, n);
164}
165
166// luaL_opt would be implemented here but it is undocumented, so it's omitted
167
168#[inline(always)]
169pub unsafe fn luaL_loadbuffer(L: *mut lua_State, s: *const c_char, sz: usize, n: *const c_char) -> c_int {
170    luaL_loadbufferx(L, s, sz, n, ptr::null())
171}
172
173//
174// TODO: Generic Buffer Manipulation
175//