Skip to main content

luaur_vm/functions/
lua_tolstring.rs

1use core::ffi::{c_char, c_int};
2
3use crate::functions::index_2_addr::index2addr;
4use crate::functions::lua_concat::lua_c_threadbarrier_lapi;
5use crate::functions::lua_v_tostring::lua_v_tostring;
6use crate::macros::lua_c_check_gc::luaC_checkGC;
7use crate::macros::svalue::svalue;
8use crate::macros::tsvalue::tsvalue;
9use crate::macros::ttisstring::ttisstring;
10use crate::records::lua_state::lua_State;
11use crate::type_aliases::stk_id::StkId;
12
13#[allow(non_snake_case)]
14pub unsafe fn lua_tolstring(L: *mut lua_State, idx: c_int, len: *mut usize) -> *const c_char {
15    let mut o: StkId = index2addr(L, idx);
16
17    if !ttisstring!(o) {
18        lua_c_threadbarrier_lapi(L);
19        if lua_v_tostring(L, o) == 0 {
20            if !len.is_null() {
21                *len = 0;
22            }
23            return core::ptr::null();
24        }
25        luaC_checkGC!(L);
26        o = index2addr(L, idx);
27    }
28
29    if !len.is_null() {
30        *len = (*tsvalue!(o)).len as usize;
31    }
32
33    svalue!(o)
34}