luaur-vm 0.1.0

The Luau register virtual machine and standard library (Rust).
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57

use crate::enums::lua_type::lua_Type;
use crate::macros::lua_vector_size::LUA_VECTOR_SIZE;
use crate::macros::setvvalue::setvvalue;
use crate::macros::ttisvector::ttisvector;
use crate::macros::vvalue::vvalue;
use crate::type_aliases::lua_state::lua_State;
use crate::type_aliases::stk_id::StkId;
use crate::type_aliases::t_value::TValue;

#[allow(non_snake_case)]
pub unsafe fn luau_f_vectornormalize(
    _L: *mut lua_State,
    res: StkId,
    arg0: *mut TValue,
    nresults: core::ffi::c_int,
    _args: StkId,
    nparams: core::ffi::c_int,
) -> core::ffi::c_int {
    if nparams >= 1 && nresults <= 1 && ttisvector!(arg0) {
        let v = vvalue!(arg0).as_ptr();

        if LUA_VECTOR_SIZE == 4 {
            let inv_sqrt = 1.0f32
                / ((*v.offset(0)) * (*v.offset(0))
                    + (*v.offset(1)) * (*v.offset(1))
                    + (*v.offset(2)) * (*v.offset(2))
                    + (*v.offset(3)) * (*v.offset(3)))
                .sqrt();

            setvvalue!(
                res,
                (*v.offset(0)) * inv_sqrt,
                (*v.offset(1)) * inv_sqrt,
                (*v.offset(2)) * inv_sqrt,
                (*v.offset(3)) * inv_sqrt
            );
        } else {
            let inv_sqrt = 1.0f32
                / ((*v.offset(0)) * (*v.offset(0))
                    + (*v.offset(1)) * (*v.offset(1))
                    + (*v.offset(2)) * (*v.offset(2)))
                .sqrt();

            setvvalue!(
                res,
                (*v.offset(0)) * inv_sqrt,
                (*v.offset(1)) * inv_sqrt,
                (*v.offset(2)) * inv_sqrt,
                0.0f32
            );
        }

        return 1;
    }

    -1
}