lua53_sys/
lauxlib.rs

1//! Definitions from `lauxlib.h`.
2
3use libc::{c_int, c_char, c_void, size_t};
4use lua::{self, lua_State, lua_CFunction, lua_Integer, lua_Number};
5use luaconf::LUAL_BUFFERSIZE;
6use std::ptr;
7
8pub use super::glue::LUAL_NUMSIZES;
9pub use super::glue::LUA_FILEHANDLE;
10
11// extra error code for `luaL_load`
12pub const LUA_ERRFILE: c_int = lua::LUA_ERRERR + 1;
13
14#[repr(C)]
15pub struct luaL_Reg {
16    pub name: *const c_char,
17    pub func: lua_CFunction,
18}
19
20
21#[inline(always)]
22pub unsafe fn luaL_checkversion(L: *mut lua_State) {
23    luaL_checkversion_(L,
24                       lua::LUA_VERSION_NUM as lua_Number,
25                       LUAL_NUMSIZES as size_t)
26}
27
28extern "C" {
29    pub fn luaL_checkversion_(L: *mut lua_State, ver: lua_Number, sz: size_t);
30
31    pub fn luaL_getmetafield(L: *mut lua_State, obj: c_int, e: *const c_char) -> c_int;
32    pub fn luaL_callmeta(L: *mut lua_State, obj: c_int, e: *const c_char) -> c_int;
33    pub fn luaL_tolstring(L: *mut lua_State, idx: c_int, len: *mut size_t) -> *const c_char;
34    pub fn luaL_argerror(L: *mut lua_State, arg: c_int, l: *const c_char) -> c_int;
35    pub fn luaL_checklstring(L: *mut lua_State, arg: c_int, l: *mut size_t) -> *const c_char;
36    pub fn luaL_optlstring(L: *mut lua_State,
37                           arg: c_int,
38                           def: *const c_char,
39                           l: *mut size_t)
40                           -> *const c_char;
41    pub fn luaL_checknumber(L: *mut lua_State, arg: c_int) -> lua_Number;
42    pub fn luaL_optnumber(L: *mut lua_State, arg: c_int, def: lua_Number) -> lua_Number;
43    pub fn luaL_checkinteger(L: *mut lua_State, arg: c_int) -> lua_Integer;
44    pub fn luaL_optinteger(L: *mut lua_State, arg: c_int, def: lua_Integer) -> lua_Integer;
45
46    pub fn luaL_checkstack(L: *mut lua_State, sz: c_int, msg: *const c_char);
47    pub fn luaL_checktype(L: *mut lua_State, arg: c_int, t: c_int);
48    pub fn luaL_checkany(L: *mut lua_State, arg: c_int);
49
50    pub fn luaL_newmetatable(L: *mut lua_State, tname: *const c_char) -> c_int;
51    pub fn luaL_setmetatable(L: *mut lua_State, tname: *const c_char);
52    pub fn luaL_testudata(L: *mut lua_State, ud: c_int, tname: *const c_char) -> *mut c_void;
53    pub fn luaL_checkudata(L: *mut lua_State, ud: c_int, tname: *const c_char) -> *mut c_void;
54
55    pub fn luaL_where(L: *mut lua_State, lvl: c_int);
56    pub fn luaL_error(L: *mut lua_State, fmt: *const c_char, ...) -> c_int;
57
58    pub fn luaL_checkoption(L: *mut lua_State,
59                            arg: c_int,
60                            def: *const c_char,
61                            lst: *const *const c_char)
62                            -> c_int;
63
64    pub fn luaL_fileresult(L: *mut lua_State, stat: c_int, fname: *const c_char) -> c_int;
65    pub fn luaL_execresult(L: *mut lua_State, stat: c_int) -> c_int;
66}
67
68// Pre-defined references.
69pub const LUA_NOREF: c_int = -2;
70pub const LUA_REFNIL: c_int = -1;
71
72extern "C" {
73    pub fn luaL_ref(L: *mut lua_State, t: c_int) -> c_int;
74    pub fn luaL_unref(L: *mut lua_State, t: c_int, r: c_int);
75
76    pub fn luaL_loadfilex(L: *mut lua_State,
77                          filename: *const c_char,
78                          mode: *const c_char)
79                          -> c_int;
80}
81
82#[inline(always)]
83pub unsafe fn luaL_loadfile(L: *mut lua_State, f: *const c_char) -> c_int {
84    luaL_loadfilex(L, f, ptr::null())
85}
86
87extern "C" {
88    pub fn luaL_loadbufferx(L: *mut lua_State,
89                            buff: *const c_char,
90                            sz: size_t,
91                            name: *const c_char,
92                            mode: *const c_char)
93                            -> c_int;
94    pub fn luaL_loadstring(L: *mut lua_State, s: *const c_char) -> c_int;
95
96    pub fn luaL_newstate() -> *mut lua_State;
97
98    pub fn luaL_len(L: *mut lua_State, idx: c_int) -> lua_Integer;
99
100    pub fn luaL_gsub(L: *mut lua_State,
101                     s: *const c_char,
102                     p: *const c_char,
103                     r: *const c_char)
104                     -> *const c_char;
105
106    pub fn luaL_setfuncs(L: *mut lua_State, l: *const luaL_Reg, nup: c_int);
107
108    pub fn luaL_getsubtable(L: *mut lua_State, idx: c_int, fname: *const c_char) -> c_int;
109
110    pub fn luaL_traceback(L: *mut lua_State,
111                          L1: *mut lua_State,
112                          msg: *const c_char,
113                          level: c_int);
114
115    pub fn luaL_requiref(L: *mut lua_State,
116                         modname: *const c_char,
117                         openf: lua_CFunction,
118                         glb: c_int);
119}
120
121#[inline(always)]
122pub unsafe fn luaL_newlibtable(L: *mut lua_State, l: &[luaL_Reg]) {
123    lua::lua_createtable(L, 0, l.len() as c_int)
124}
125
126#[inline(always)]
127pub unsafe fn luaL_newlib(L: *mut lua_State, l: &[luaL_Reg]) {
128    luaL_checkversion(L);
129    luaL_newlibtable(L, l);
130    luaL_setfuncs(L, l.as_ptr(), 0)
131}
132
133#[inline(always)]
134pub unsafe fn luaL_argcheck(L: *mut lua_State, cond: c_int, arg: c_int, extramsg: *const c_char) {
135    if cond == 0 {
136        luaL_argerror(L, arg, extramsg);
137    }
138}
139
140#[inline(always)]
141pub unsafe fn luaL_checkstring(L: *mut lua_State, n: c_int) -> *const c_char {
142    luaL_checklstring(L, n, ptr::null_mut())
143}
144
145#[inline(always)]
146pub unsafe fn luaL_optstring(L: *mut lua_State, n: c_int, d: *const c_char) -> *const c_char {
147    luaL_optlstring(L, n, d, ptr::null_mut())
148}
149
150#[inline(always)]
151pub unsafe fn luaL_typename(L: *mut lua_State, i: c_int) -> *const c_char {
152    lua::lua_typename(L, lua::lua_type(L, i))
153}
154
155#[inline(always)]
156pub unsafe fn luaL_dofile(L: *mut lua_State, filename: *const c_char) -> c_int {
157    let status = luaL_loadfile(L, filename);
158    if status == 0 {
159        lua::lua_pcall(L, 0, lua::LUA_MULTRET, 0)
160    } else {
161        status
162    }
163}
164
165#[inline(always)]
166pub unsafe fn luaL_dostring(L: *mut lua_State, s: *const c_char) -> c_int {
167    let status = luaL_loadstring(L, s);
168    if status == 0 {
169        lua::lua_pcall(L, 0, lua::LUA_MULTRET, 0)
170    } else {
171        status
172    }
173}
174
175#[inline(always)]
176pub unsafe fn luaL_getmetatable(L: *mut lua_State, n: *const c_char) {
177    lua::lua_getfield(L, lua::LUA_REGISTRYINDEX, n);
178}
179
180// luaL_opt would be implemented here but it is undocumented, so it's omitted
181
182#[inline(always)]
183pub unsafe fn luaL_loadbuffer(L: *mut lua_State,
184                              s: *const c_char,
185                              sz: size_t,
186                              n: *const c_char)
187                              -> c_int {
188    luaL_loadbufferx(L, s, sz, n, ptr::null())
189}
190
191#[repr(C)]
192pub struct luaL_Buffer {
193    pub b: *mut c_char,
194    pub size: size_t,
195    pub n: size_t,
196    pub L: *mut lua_State,
197    pub initb: [c_char; LUAL_BUFFERSIZE as usize],
198}
199
200// TODO: Test this thoroughly
201#[inline(always)]
202pub unsafe fn luaL_addchar(B: *mut luaL_Buffer, c: c_char) {
203    // (B)->n < (B) -> size || luaL_prepbuffsize((B), 1)
204    if (*B).n < (*B).size {
205        luaL_prepbuffsize(B, 1);
206    }
207    // (B)->b[(B)->n++] = (c)
208    let offset = (*B).b.offset((*B).n as isize);
209    ptr::write(offset, c);
210    (*B).n += 1;
211}
212
213#[inline(always)]
214pub unsafe fn luaL_addsize(B: *mut luaL_Buffer, s: size_t) {
215    (*B).n += s;
216}
217
218extern "C" {
219    pub fn luaL_buffinit(L: *mut lua_State, B: *mut luaL_Buffer);
220    pub fn luaL_prepbuffsize(B: *mut luaL_Buffer, sz: size_t) -> *mut c_char;
221    pub fn luaL_addlstring(B: *mut luaL_Buffer, s: *const c_char, l: size_t);
222    pub fn luaL_addstring(B: *mut luaL_Buffer, s: *const c_char);
223    pub fn luaL_addvalue(B: *mut luaL_Buffer);
224    pub fn luaL_pushresult(B: *mut luaL_Buffer);
225    pub fn luaL_pushresultsize(B: *mut luaL_Buffer, sz: size_t);
226    pub fn luaL_buffinitsize(L: *mut lua_State, B: *mut luaL_Buffer, sz: size_t) -> *mut c_char;
227}
228
229pub unsafe fn luaL_prepbuffer(B: *mut luaL_Buffer) -> *mut c_char {
230    luaL_prepbuffsize(B, LUAL_BUFFERSIZE as size_t)
231}
232
233#[repr(C)]
234pub struct luaL_Stream {
235    pub f: *mut ::libc::FILE,
236    pub closef: lua_CFunction,
237}
238
239extern "C" {
240    pub fn luaL_openlibs(L: *mut lua_State);
241}
lua53_sys/lauxlib.rs

lua53_sys/
lauxlib.rs
