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

use crate::functions::lua_l_checknumber::lua_l_checknumber;
use crate::functions::lua_pushinteger::lua_pushinteger;
use crate::functions::lua_pushnumber::lua_pushnumber;
use crate::type_aliases::lua_state::lua_State;

#[no_mangle]
pub unsafe fn math_frexp(l: *mut lua_State) -> i32 {
    let mut e: core::ffi::c_int = 0;
    let x = lua_l_checknumber(l, 1);
    let m = frexp(x, &mut e);
    lua_pushnumber(l, m);
    lua_pushinteger(l, e);
    2
}

fn frexp(x: f64, exp: &mut core::ffi::c_int) -> f64 {
    if !x.is_finite() || x == 0.0 {
        *exp = 0;
        return x;
    }
    let bits = x.to_bits();
    let mut exponent = ((bits >> 52) & 0x7ff) as i32;
    let mut mantissa_bits = bits & 0xfffffffffffff;

    if exponent == 0 {
        // Subnormal
        let x_norm = x * 18014398509481984.0; // 2^54
        let bits_norm = x_norm.to_bits();
        exponent = (((bits_norm >> 52) & 0x7ff) as i32) - 54;
        mantissa_bits = bits_norm & 0xfffffffffffff;
    }

    *exp = (exponent - 1022) as core::ffi::c_int;

    let sign_bit = bits & (1 << 63);
    let res_bits = sign_bit | (0x3fe << 52) | mantissa_bits;
    f64::from_bits(res_bits)
}