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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86

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_vectormax(
    _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 >= 2 && nresults <= 1 && ttisvector!(arg0) && ttisvector!(args) {
        let a = vvalue!(arg0).as_ptr();
        let b = vvalue!(args).as_ptr();

        let mut result = [0.0f32; 4];

        result[0] = if (*b.offset(0)) > (*a.offset(0)) {
            (*b.offset(0))
        } else {
            (*a.offset(0))
        };
        result[1] = if (*b.offset(1)) > (*a.offset(1)) {
            (*b.offset(1))
        } else {
            (*a.offset(1))
        };
        result[2] = if (*b.offset(2)) > (*a.offset(2)) {
            (*b.offset(2))
        } else {
            (*a.offset(2))
        };

        result[3] = if LUA_VECTOR_SIZE == 4 {
            if (*b.offset(3)) > (*a.offset(3)) {
                (*b.offset(3))
            } else {
                (*a.offset(3))
            }
        } else {
            0.0f32
        };

        for i in 3..=nparams {
            if !ttisvector!(args.offset(i as isize - 2)) {
                return -1;
            }

            let c = vvalue!(args.offset(i as isize - 2)).as_ptr();

            result[0] = if (*c.offset(0)) > result[0] {
                (*c.offset(0))
            } else {
                result[0]
            };
            result[1] = if (*c.offset(1)) > result[1] {
                (*c.offset(1))
            } else {
                result[1]
            };
            result[2] = if (*c.offset(2)) > result[2] {
                (*c.offset(2))
            } else {
                result[2]
            };
            if LUA_VECTOR_SIZE == 4 {
                result[3] = if (*c.offset(3)) > result[3] {
                    (*c.offset(3))
                } else {
                    result[3]
                };
            }
        }

        setvvalue!(res, result[0], result[1], result[2], result[3]);
        return 1;
    }

    -1
}