Skip to main content

luaur_vm/functions/
buffer_writelong.rs

1use luaur_common::macros::luau_big_endian::LUAU_BIG_ENDIAN;
2
3use crate::functions::buffer_swapbe::buffer_swapbe;
4use crate::functions::lua_l_checkbuffer::lua_l_checkbuffer;
5use crate::functions::lua_l_checkinteger::lua_l_checkinteger;
6use crate::functions::lua_l_checkinteger_64::lua_l_checkinteger_64;
7use crate::macros::isoutofbounds::isoutofbounds;
8use crate::macros::lua_l_error::luaL_error;
9use crate::type_aliases::lua_state::lua_State;
10
11pub fn buffer_writelong(L: *mut lua_State) -> core::ffi::c_int {
12    let mut len: usize = 0;
13    let buf = lua_l_checkbuffer(L, 1, &mut len) as *mut core::ffi::c_char;
14    let offset = lua_l_checkinteger(L, 2);
15    let value = unsafe { lua_l_checkinteger_64(L, 3) };
16
17    if isoutofbounds(offset, len, core::mem::size_of::<i64>()) {
18        unsafe {
19            luaL_error!(L, "buffer access out of bounds");
20        }
21    }
22
23    let value = if LUAU_BIG_ENDIAN {
24        unsafe { buffer_swapbe(value) }
25    } else {
26        value
27    };
28
29    unsafe {
30        core::ptr::copy_nonoverlapping(
31            &value as *const i64 as *const core::ffi::c_char,
32            buf.add(offset as usize),
33            core::mem::size_of::<i64>(),
34        );
35    }
36
37    0
38}