luau-vm 0.732.0

Pure-Rust Luau virtual machine, garbage collector, and standard libraries
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

use crate::native::{NativeCallContext, NativeCallResult, NativeFunction};
use crate::thread::Thread;
use crate::thread::stack::RawStackAccess;
use crate::types::LUA_TCLASS;

static CLASS_LIB: [NativeFunction; 2] = [
    NativeFunction {
        name: "isinstance",
        function: class_isinstance,
    },
    NativeFunction {
        name: "classof",
        function: class_classof,
    },
];

/// `class_isinstance`
fn class_isinstance(ctx: NativeCallContext) -> NativeCallResult {
    let thread = ctx.raw_thread();
    let is_instance = unsafe {
        thread.check_any(1)?;
        thread.check_type(2, LUA_TCLASS)?;

        let instance = thread.to_object(1);
        let object = thread.to_object(2).unwrap_unchecked();
        let class = object.class_value();

        instance.is_some_and(|instance| {
            instance.is_object() && instance.object_value().class() == class
        })
    };

    ctx.push_boolean(is_instance)?;
    Ok(1)
}

/// `class_classof`
fn class_classof(ctx: NativeCallContext) -> NativeCallResult {
    let thread = ctx.raw_thread();
    unsafe {
        thread.check_any(1)?;

        if thread.is_object(1) == 0 {
            thread.push_nil()?;
            return Ok(1);
        }

        let instance = thread.to_object(1).unwrap_unchecked().object_value();
        let class = instance.class();
        thread.push_class(class)?;
        Ok(1)
    }
}

impl Thread {
    /// `luaopen_class`
    pub unsafe fn open_class(&self) -> NativeCallResult {
        unsafe { self.register(Some(super::LUA_CLASSLIB_NAME), &CLASS_LIB[..])? };
        Ok(1)
    }
}