Skip to main content

luaur_vm/functions/
luau_f_integerlshift.rs

1use crate::enums::lua_type::lua_Type;
2use crate::macros::lvalue::lvalue;
3use crate::macros::setlvalue::setlvalue;
4use crate::macros::ttisinteger::ttisinteger;
5use crate::type_aliases::lua_state::lua_State;
6use crate::type_aliases::stk_id::StkId;
7use crate::type_aliases::t_value::TValue;
8
9#[allow(non_snake_case)]
10pub unsafe fn luau_f_integerlshift(
11    _L: *mut lua_State,
12    res: StkId,
13    arg0: *mut TValue,
14    nresults: core::ffi::c_int,
15    args: StkId,
16    nparams: core::ffi::c_int,
17) -> core::ffi::c_int {
18    if nparams >= 2 && nresults <= 1 && ttisinteger!(arg0) && ttisinteger!(args) {
19        let n: u64 = lvalue!(arg0) as u64;
20        let i: i64 = lvalue!(args);
21
22        setlvalue!(
23            res,
24            if (i >= -63) && (i <= 63) {
25                (if i < 0 {
26                    n >> (-i as u32)
27                } else {
28                    n << (i as u32)
29                }) as i64
30            } else {
31                0
32            }
33        );
34
35        1
36    } else {
37        -1
38    }
39}