1use std::ffi::CStr;
4use std::marker::{PhantomData, PhantomPinned};
5use std::os::raw::{c_char, c_double, c_int, c_uchar, c_ushort, c_void};
6use std::{mem, ptr};
7
8pub const LUA_SIGNATURE: &[u8] = b"\x1bLua";
10
11pub const LUA_MULTRET: c_int = -1;
13
14pub const LUAI_MAXSTACK: c_int = 1000000;
16
17pub const LUA_EXTRASPACE: usize = mem::size_of::<*const ()>();
19
20pub const LUA_REGISTRYINDEX: c_int = -LUAI_MAXSTACK - 1000;
24
25pub const fn lua_upvalueindex(i: c_int) -> c_int {
26 LUA_REGISTRYINDEX - i
27}
28
29pub const LUA_OK: c_int = 0;
33pub const LUA_YIELD: c_int = 1;
34pub const LUA_ERRRUN: c_int = 2;
35pub const LUA_ERRSYNTAX: c_int = 3;
36pub const LUA_ERRMEM: c_int = 4;
37pub const LUA_ERRERR: c_int = 5;
38
39#[repr(C)]
41pub struct lua_State {
42 _data: [u8; 0],
43 _marker: PhantomData<(*mut u8, PhantomPinned)>,
44}
45
46pub const LUA_TNONE: c_int = -1;
50
51pub const LUA_TNIL: c_int = 0;
52pub const LUA_TBOOLEAN: c_int = 1;
53pub const LUA_TLIGHTUSERDATA: c_int = 2;
54pub const LUA_TNUMBER: c_int = 3;
55pub const LUA_TSTRING: c_int = 4;
56pub const LUA_TTABLE: c_int = 5;
57pub const LUA_TFUNCTION: c_int = 6;
58pub const LUA_TUSERDATA: c_int = 7;
59pub const LUA_TTHREAD: c_int = 8;
60
61pub const LUA_NUMTYPES: c_int = 9;
62
63pub const LUA_MINSTACK: c_int = 20;
65
66pub const LUA_RIDX_MAINTHREAD: lua_Integer = 1;
68pub const LUA_RIDX_GLOBALS: lua_Integer = 2;
69pub const LUA_RIDX_LAST: lua_Integer = LUA_RIDX_GLOBALS;
70
71pub type lua_Number = c_double;
73
74pub type lua_Integer = i64;
76
77pub type lua_Unsigned = u64;
79
80pub type lua_KContext = isize;
82
83pub type lua_CFunction = unsafe extern "C-unwind" fn(L: *mut lua_State) -> c_int;
85
86pub type lua_KFunction =
88 unsafe extern "C-unwind" fn(L: *mut lua_State, status: c_int, ctx: lua_KContext) -> c_int;
89
90#[rustfmt::skip]
92pub type lua_Reader =
93 unsafe extern "C-unwind" fn(L: *mut lua_State, ud: *mut c_void, sz: *mut usize) -> *const c_char;
94#[rustfmt::skip]
95pub type lua_Writer =
96 unsafe extern "C-unwind" fn(L: *mut lua_State, p: *const c_void, sz: usize, ud: *mut c_void) -> c_int;
97
98#[rustfmt::skip]
100pub type lua_Alloc =
101 unsafe extern "C" fn(ud: *mut c_void, ptr: *mut c_void, osize: usize, nsize: usize) -> *mut c_void;
102
103pub type lua_WarnFunction = unsafe extern "C-unwind" fn(ud: *mut c_void, msg: *const c_char, tocont: c_int);
105
106#[cfg_attr(all(windows, raw_dylib), link(name = "lua54", kind = "raw-dylib"))]
107unsafe extern "C-unwind" {
108 pub fn lua_newstate(f: lua_Alloc, ud: *mut c_void) -> *mut lua_State;
112 pub fn lua_close(L: *mut lua_State);
113 pub fn lua_newthread(L: *mut lua_State) -> *mut lua_State;
114 pub fn lua_resetthread(L: *mut lua_State) -> c_int;
116 #[cfg(feature = "vendored")]
117 pub fn lua_closethread(L: *mut lua_State, from: *mut lua_State) -> c_int;
118
119 pub fn lua_atpanic(L: *mut lua_State, panicf: lua_CFunction) -> lua_CFunction;
120
121 pub fn lua_version(L: *mut lua_State) -> lua_Number;
122
123 pub fn lua_absindex(L: *mut lua_State, idx: c_int) -> c_int;
127 pub fn lua_gettop(L: *mut lua_State) -> c_int;
128 pub fn lua_settop(L: *mut lua_State, idx: c_int);
129 pub fn lua_pushvalue(L: *mut lua_State, idx: c_int);
130 pub fn lua_rotate(L: *mut lua_State, idx: c_int, n: c_int);
131 pub fn lua_copy(L: *mut lua_State, fromidx: c_int, toidx: c_int);
132 pub fn lua_checkstack(L: *mut lua_State, sz: c_int) -> c_int;
133
134 pub fn lua_xmove(from: *mut lua_State, to: *mut lua_State, n: c_int);
135
136 pub fn lua_isnumber(L: *mut lua_State, idx: c_int) -> c_int;
140 pub fn lua_isstring(L: *mut lua_State, idx: c_int) -> c_int;
141 pub fn lua_iscfunction(L: *mut lua_State, idx: c_int) -> c_int;
142 pub fn lua_isinteger(L: *mut lua_State, idx: c_int) -> c_int;
143 pub fn lua_isuserdata(L: *mut lua_State, idx: c_int) -> c_int;
144 pub fn lua_type(L: *mut lua_State, idx: c_int) -> c_int;
145 pub fn lua_typename(L: *mut lua_State, tp: c_int) -> *const c_char;
146
147 pub fn lua_tonumberx(L: *mut lua_State, idx: c_int, isnum: *mut c_int) -> lua_Number;
148 pub fn lua_tointegerx(L: *mut lua_State, idx: c_int, isnum: *mut c_int) -> lua_Integer;
149 pub fn lua_toboolean(L: *mut lua_State, idx: c_int) -> c_int;
150 pub fn lua_tolstring(L: *mut lua_State, idx: c_int, len: *mut usize) -> *const c_char;
151 #[link_name = "lua_rawlen"]
152 fn lua_rawlen_(L: *mut lua_State, idx: c_int) -> lua_Unsigned;
153 pub fn lua_tocfunction(L: *mut lua_State, idx: c_int) -> Option<lua_CFunction>;
154 pub fn lua_touserdata(L: *mut lua_State, idx: c_int) -> *mut c_void;
155 pub fn lua_tothread(L: *mut lua_State, idx: c_int) -> *mut lua_State;
156 pub fn lua_topointer(L: *mut lua_State, idx: c_int) -> *const c_void;
157}
158
159#[inline(always)]
162pub unsafe fn lua_rawlen(L: *mut lua_State, idx: c_int) -> usize {
163 lua_rawlen_(L, idx) as usize
164}
165
166pub const LUA_OPADD: c_int = 0;
170pub const LUA_OPSUB: c_int = 1;
171pub const LUA_OPMUL: c_int = 2;
172pub const LUA_OPMOD: c_int = 3;
173pub const LUA_OPPOW: c_int = 4;
174pub const LUA_OPDIV: c_int = 5;
175pub const LUA_OPIDIV: c_int = 6;
176pub const LUA_OPBAND: c_int = 7;
177pub const LUA_OPBOR: c_int = 8;
178pub const LUA_OPBXOR: c_int = 9;
179pub const LUA_OPSHL: c_int = 10;
180pub const LUA_OPSHR: c_int = 11;
181pub const LUA_OPUNM: c_int = 12;
182pub const LUA_OPBNOT: c_int = 13;
183
184pub const LUA_OPEQ: c_int = 0;
185pub const LUA_OPLT: c_int = 1;
186pub const LUA_OPLE: c_int = 2;
187
188#[cfg_attr(all(windows, raw_dylib), link(name = "lua54", kind = "raw-dylib"))]
189unsafe extern "C-unwind" {
190 pub fn lua_arith(L: *mut lua_State, op: c_int);
191 pub fn lua_rawequal(L: *mut lua_State, idx1: c_int, idx2: c_int) -> c_int;
192 pub fn lua_compare(L: *mut lua_State, idx1: c_int, idx2: c_int, op: c_int) -> c_int;
193}
194
195#[cfg_attr(all(windows, raw_dylib), link(name = "lua54", kind = "raw-dylib"))]
196unsafe extern "C-unwind" {
197 pub fn lua_pushnil(L: *mut lua_State);
201 pub fn lua_pushnumber(L: *mut lua_State, n: lua_Number);
202 pub fn lua_pushinteger(L: *mut lua_State, n: lua_Integer);
203 pub fn lua_pushlstring(L: *mut lua_State, s: *const c_char, len: usize) -> *const c_char;
204 pub fn lua_pushstring(L: *mut lua_State, s: *const c_char) -> *const c_char;
205 pub fn lua_pushfstring(L: *mut lua_State, fmt: *const c_char, ...) -> *const c_char;
207 pub fn lua_pushcclosure(L: *mut lua_State, f: lua_CFunction, n: c_int);
208 pub fn lua_pushboolean(L: *mut lua_State, b: c_int);
209 pub fn lua_pushlightuserdata(L: *mut lua_State, p: *mut c_void);
210 pub fn lua_pushthread(L: *mut lua_State) -> c_int;
211
212 pub fn lua_getglobal(L: *mut lua_State, name: *const c_char) -> c_int;
216 pub fn lua_gettable(L: *mut lua_State, idx: c_int) -> c_int;
217 pub fn lua_getfield(L: *mut lua_State, idx: c_int, k: *const c_char) -> c_int;
218 pub fn lua_geti(L: *mut lua_State, idx: c_int, n: lua_Integer) -> c_int;
219 pub fn lua_rawget(L: *mut lua_State, idx: c_int) -> c_int;
220 pub fn lua_rawgeti(L: *mut lua_State, idx: c_int, n: lua_Integer) -> c_int;
221 pub fn lua_rawgetp(L: *mut lua_State, idx: c_int, p: *const c_void) -> c_int;
222
223 pub fn lua_createtable(L: *mut lua_State, narr: c_int, nrec: c_int);
224 pub fn lua_newuserdatauv(L: *mut lua_State, sz: usize, nuvalue: c_int) -> *mut c_void;
225 pub fn lua_getmetatable(L: *mut lua_State, objindex: c_int) -> c_int;
226 pub fn lua_getiuservalue(L: *mut lua_State, idx: c_int, n: c_int) -> c_int;
227
228 pub fn lua_setglobal(L: *mut lua_State, name: *const c_char);
232 pub fn lua_settable(L: *mut lua_State, idx: c_int);
233 pub fn lua_setfield(L: *mut lua_State, idx: c_int, k: *const c_char);
234 pub fn lua_seti(L: *mut lua_State, idx: c_int, n: lua_Integer);
235 pub fn lua_rawset(L: *mut lua_State, idx: c_int);
236 pub fn lua_rawseti(L: *mut lua_State, idx: c_int, n: lua_Integer);
237 pub fn lua_rawsetp(L: *mut lua_State, idx: c_int, p: *const c_void);
238 pub fn lua_setmetatable(L: *mut lua_State, objindex: c_int) -> c_int;
239 pub fn lua_setiuservalue(L: *mut lua_State, idx: c_int, n: c_int) -> c_int;
240
241 pub fn lua_callk(
245 L: *mut lua_State,
246 nargs: c_int,
247 nresults: c_int,
248 ctx: lua_KContext,
249 k: Option<lua_KFunction>,
250 );
251 pub fn lua_pcallk(
252 L: *mut lua_State,
253 nargs: c_int,
254 nresults: c_int,
255 errfunc: c_int,
256 ctx: lua_KContext,
257 k: Option<lua_KFunction>,
258 ) -> c_int;
259
260 pub fn lua_load(
261 L: *mut lua_State,
262 reader: lua_Reader,
263 data: *mut c_void,
264 chunkname: *const c_char,
265 mode: *const c_char,
266 ) -> c_int;
267
268 pub fn lua_dump(L: *mut lua_State, writer: lua_Writer, data: *mut c_void, strip: c_int) -> c_int;
269}
270
271#[inline(always)]
272pub unsafe fn lua_call(L: *mut lua_State, n: c_int, r: c_int) {
273 lua_callk(L, n, r, 0, None)
274}
275
276#[inline(always)]
277pub unsafe fn lua_pcall(L: *mut lua_State, n: c_int, r: c_int, f: c_int) -> c_int {
278 lua_pcallk(L, n, r, f, 0, None)
279}
280
281#[cfg_attr(all(windows, raw_dylib), link(name = "lua54", kind = "raw-dylib"))]
282unsafe extern "C-unwind" {
283 pub fn lua_yieldk(
287 L: *mut lua_State,
288 nresults: c_int,
289 ctx: lua_KContext,
290 k: Option<lua_KFunction>,
291 ) -> c_int;
292 pub fn lua_resume(L: *mut lua_State, from: *mut lua_State, narg: c_int, nres: *mut c_int) -> c_int;
293 pub fn lua_status(L: *mut lua_State) -> c_int;
294 pub fn lua_isyieldable(L: *mut lua_State) -> c_int;
295}
296
297#[inline(always)]
298pub unsafe fn lua_yield(L: *mut lua_State, n: c_int) -> c_int {
299 lua_yieldk(L, n, 0, None)
300}
301
302#[cfg_attr(all(windows, raw_dylib), link(name = "lua54", kind = "raw-dylib"))]
306unsafe extern "C-unwind" {
307 pub fn lua_setwarnf(L: *mut lua_State, f: Option<lua_WarnFunction>, ud: *mut c_void);
308 pub fn lua_warning(L: *mut lua_State, msg: *const c_char, tocont: c_int);
309}
310
311pub const LUA_GCSTOP: c_int = 0;
315pub const LUA_GCRESTART: c_int = 1;
316pub const LUA_GCCOLLECT: c_int = 2;
317pub const LUA_GCCOUNT: c_int = 3;
318pub const LUA_GCCOUNTB: c_int = 4;
319pub const LUA_GCSTEP: c_int = 5;
320pub const LUA_GCSETPAUSE: c_int = 6;
321pub const LUA_GCSETSTEPMUL: c_int = 7;
322pub const LUA_GCISRUNNING: c_int = 9;
323pub const LUA_GCGEN: c_int = 10;
324pub const LUA_GCINC: c_int = 11;
325
326#[cfg_attr(all(windows, raw_dylib), link(name = "lua54", kind = "raw-dylib"))]
327unsafe extern "C-unwind" {
328 pub fn lua_gc(L: *mut lua_State, what: c_int, ...) -> c_int;
329}
330
331#[cfg_attr(all(windows, raw_dylib), link(name = "lua54", kind = "raw-dylib"))]
332unsafe extern "C-unwind" {
333 #[link_name = "lua_error"]
337 fn lua_error_(L: *mut lua_State) -> c_int;
338 pub fn lua_next(L: *mut lua_State, idx: c_int) -> c_int;
339 pub fn lua_concat(L: *mut lua_State, n: c_int);
340 pub fn lua_len(L: *mut lua_State, idx: c_int);
341 pub fn lua_stringtonumber(L: *mut lua_State, s: *const c_char) -> usize;
342 pub fn lua_getallocf(L: *mut lua_State, ud: *mut *mut c_void) -> lua_Alloc;
343 pub fn lua_setallocf(L: *mut lua_State, f: lua_Alloc, ud: *mut c_void);
344
345 pub fn lua_toclose(L: *mut lua_State, idx: c_int);
346 pub fn lua_closeslot(L: *mut lua_State, idx: c_int);
347}
348
349#[inline(always)]
353pub unsafe fn lua_error(L: *mut lua_State) -> ! {
354 lua_error_(L);
355 unreachable!();
356}
357
358#[inline(always)]
362pub unsafe fn lua_getextraspace(L: *mut lua_State) -> *mut c_void {
363 (L as *mut c_char).sub(LUA_EXTRASPACE) as *mut c_void
364}
365
366#[inline(always)]
367pub unsafe fn lua_tonumber(L: *mut lua_State, i: c_int) -> lua_Number {
368 lua_tonumberx(L, i, ptr::null_mut())
369}
370
371#[inline(always)]
372pub unsafe fn lua_tointeger(L: *mut lua_State, i: c_int) -> lua_Integer {
373 lua_tointegerx(L, i, ptr::null_mut())
374}
375
376#[inline(always)]
377pub unsafe fn lua_pop(L: *mut lua_State, n: c_int) {
378 lua_settop(L, -n - 1)
379}
380
381#[inline(always)]
382pub unsafe fn lua_newtable(L: *mut lua_State) {
383 lua_createtable(L, 0, 0)
384}
385
386#[inline(always)]
387pub unsafe fn lua_register(L: *mut lua_State, n: *const c_char, f: lua_CFunction) {
388 lua_pushcfunction(L, f);
389 lua_setglobal(L, n)
390}
391
392#[inline(always)]
393pub unsafe fn lua_pushcfunction(L: *mut lua_State, f: lua_CFunction) {
394 lua_pushcclosure(L, f, 0)
395}
396
397#[inline(always)]
398pub unsafe fn lua_isfunction(L: *mut lua_State, n: c_int) -> c_int {
399 (lua_type(L, n) == LUA_TFUNCTION) as c_int
400}
401
402#[inline(always)]
403pub unsafe fn lua_istable(L: *mut lua_State, n: c_int) -> c_int {
404 (lua_type(L, n) == LUA_TTABLE) as c_int
405}
406
407#[inline(always)]
408pub unsafe fn lua_islightuserdata(L: *mut lua_State, n: c_int) -> c_int {
409 (lua_type(L, n) == LUA_TLIGHTUSERDATA) as c_int
410}
411
412#[inline(always)]
413pub unsafe fn lua_isnil(L: *mut lua_State, n: c_int) -> c_int {
414 (lua_type(L, n) == LUA_TNIL) as c_int
415}
416
417#[inline(always)]
418pub unsafe fn lua_isboolean(L: *mut lua_State, n: c_int) -> c_int {
419 (lua_type(L, n) == LUA_TBOOLEAN) as c_int
420}
421
422#[inline(always)]
423pub unsafe fn lua_isthread(L: *mut lua_State, n: c_int) -> c_int {
424 (lua_type(L, n) == LUA_TTHREAD) as c_int
425}
426
427#[inline(always)]
428pub unsafe fn lua_isnone(L: *mut lua_State, n: c_int) -> c_int {
429 (lua_type(L, n) == LUA_TNONE) as c_int
430}
431
432#[inline(always)]
433pub unsafe fn lua_isnoneornil(L: *mut lua_State, n: c_int) -> c_int {
434 (lua_type(L, n) <= 0) as c_int
435}
436
437#[inline(always)]
438pub unsafe fn lua_pushliteral(L: *mut lua_State, s: &'static CStr) {
439 lua_pushstring(L, s.as_ptr());
440}
441
442#[inline(always)]
443pub unsafe fn lua_pushglobaltable(L: *mut lua_State) -> c_int {
444 lua_rawgeti(L, LUA_REGISTRYINDEX, LUA_RIDX_GLOBALS)
445}
446
447#[inline(always)]
448pub unsafe fn lua_tolightuserdata(L: *mut lua_State, idx: c_int) -> *mut c_void {
449 if lua_islightuserdata(L, idx) != 0 {
450 return lua_touserdata(L, idx);
451 }
452 ptr::null_mut()
453}
454
455#[inline(always)]
456pub unsafe fn lua_tostring(L: *mut lua_State, i: c_int) -> *const c_char {
457 lua_tolstring(L, i, ptr::null_mut())
458}
459
460#[inline(always)]
461pub unsafe fn lua_insert(L: *mut lua_State, idx: c_int) {
462 lua_rotate(L, idx, 1)
463}
464
465#[inline(always)]
466pub unsafe fn lua_remove(L: *mut lua_State, idx: c_int) {
467 lua_rotate(L, idx, -1);
468 lua_pop(L, 1)
469}
470
471#[inline(always)]
472pub unsafe fn lua_replace(L: *mut lua_State, idx: c_int) {
473 lua_copy(L, -1, idx);
474 lua_pop(L, 1)
475}
476
477#[inline(always)]
478pub unsafe fn lua_xpush(from: *mut lua_State, to: *mut lua_State, idx: c_int) {
479 lua_pushvalue(from, idx);
480 lua_xmove(from, to, 1);
481}
482
483#[inline(always)]
484pub unsafe fn lua_newuserdata(L: *mut lua_State, sz: usize) -> *mut c_void {
485 lua_newuserdatauv(L, sz, 1)
486}
487
488#[inline(always)]
489pub unsafe fn lua_getuservalue(L: *mut lua_State, idx: c_int) -> c_int {
490 lua_getiuservalue(L, idx, 1)
491}
492
493#[inline(always)]
494pub unsafe fn lua_setuservalue(L: *mut lua_State, idx: c_int) -> c_int {
495 lua_setiuservalue(L, idx, 1)
496}
497
498const LUA_IDSIZE: usize = 60;
504
505pub const LUA_HOOKCALL: c_int = 0;
507pub const LUA_HOOKRET: c_int = 1;
508pub const LUA_HOOKLINE: c_int = 2;
509pub const LUA_HOOKCOUNT: c_int = 3;
510pub const LUA_HOOKTAILCALL: c_int = 4;
511
512pub const LUA_MASKCALL: c_int = 1 << (LUA_HOOKCALL as usize);
514pub const LUA_MASKRET: c_int = 1 << (LUA_HOOKRET as usize);
515pub const LUA_MASKLINE: c_int = 1 << (LUA_HOOKLINE as usize);
516pub const LUA_MASKCOUNT: c_int = 1 << (LUA_HOOKCOUNT as usize);
517
518pub type lua_Hook = unsafe extern "C-unwind" fn(L: *mut lua_State, ar: *mut lua_Debug);
520
521#[cfg_attr(all(windows, raw_dylib), link(name = "lua54", kind = "raw-dylib"))]
522unsafe extern "C-unwind" {
523 pub fn lua_getstack(L: *mut lua_State, level: c_int, ar: *mut lua_Debug) -> c_int;
524 pub fn lua_getinfo(L: *mut lua_State, what: *const c_char, ar: *mut lua_Debug) -> c_int;
525 pub fn lua_getlocal(L: *mut lua_State, ar: *const lua_Debug, n: c_int) -> *const c_char;
526 pub fn lua_setlocal(L: *mut lua_State, ar: *const lua_Debug, n: c_int) -> *const c_char;
527 pub fn lua_getupvalue(L: *mut lua_State, funcindex: c_int, n: c_int) -> *const c_char;
528 pub fn lua_setupvalue(L: *mut lua_State, funcindex: c_int, n: c_int) -> *const c_char;
529
530 pub fn lua_upvalueid(L: *mut lua_State, fidx: c_int, n: c_int) -> *mut c_void;
531 pub fn lua_upvaluejoin(L: *mut lua_State, fidx1: c_int, n1: c_int, fidx2: c_int, n2: c_int);
532
533 pub fn lua_sethook(L: *mut lua_State, func: Option<lua_Hook>, mask: c_int, count: c_int);
534 pub fn lua_gethook(L: *mut lua_State) -> Option<lua_Hook>;
535 pub fn lua_gethookmask(L: *mut lua_State) -> c_int;
536 pub fn lua_gethookcount(L: *mut lua_State) -> c_int;
537}
538
539#[repr(C)]
540pub struct lua_Debug {
541 pub event: c_int,
542 pub name: *const c_char,
543 pub namewhat: *const c_char,
544 pub what: *const c_char,
545 pub source: *const c_char,
546 pub srclen: usize,
547 pub currentline: c_int,
548 pub linedefined: c_int,
549 pub lastlinedefined: c_int,
550 pub nups: c_uchar,
551 pub nparams: c_uchar,
552 pub isvararg: c_char,
553 pub istailcall: c_char,
554 pub ftransfer: c_ushort,
555 pub ntransfer: c_ushort,
556 pub short_src: [c_char; LUA_IDSIZE],
557 i_ci: *mut c_void,
559}