hara-native 0.1.13

HAL-free native host runtime and package launcher for Hara
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

use std::rc::Rc;

use crate::core::Value;

#[derive(Clone, Debug)]
pub(crate) enum VmSlot {
    Number(i64),
    Bool(bool),
    Nil,
    Value(Rc<Value>),
    InlineClosure { prototype: u16, identity: u64 },
    Closure(Rc<VmClosure>),
    MultiArity(Rc<VmMultiArity>),
}

#[derive(Clone, Debug)]
pub(crate) struct VmClosure {
    pub prototype: u16,
    pub captures: Vec<VmSlot>,
}

#[derive(Clone, Debug)]
pub(crate) struct VmMultiArity {
    pub name: String,
    pub clauses: Vec<Rc<VmClosure>>,
}

impl VmSlot {
    pub fn runtime_value(&self) -> Option<Value> {
        match self {
            VmSlot::Number(value) => Some(Value::Number(*value)),
            VmSlot::Bool(value) => Some(Value::Bool(*value)),
            VmSlot::Nil => Some(Value::Nil),
            VmSlot::Value(value) => Some(value.as_ref().clone()),
            VmSlot::InlineClosure { .. } | VmSlot::Closure(_) | VmSlot::MultiArity(_) => None,
        }
    }

    pub fn into_runtime_value(self) -> Option<Value> {
        match self {
            VmSlot::Number(value) => Some(Value::Number(value)),
            VmSlot::Bool(value) => Some(Value::Bool(value)),
            VmSlot::Nil => Some(Value::Nil),
            VmSlot::Value(value) => {
                Some(Rc::try_unwrap(value).unwrap_or_else(|value| (*value).clone()))
            }
            VmSlot::InlineClosure { .. } | VmSlot::Closure(_) | VmSlot::MultiArity(_) => None,
        }
    }

    pub fn truthy(&self) -> bool {
        !matches!(self, VmSlot::Bool(false) | VmSlot::Nil)
    }
}

impl From<Value> for VmSlot {
    fn from(value: Value) -> Self {
        match value {
            Value::Number(value) => VmSlot::Number(value),
            Value::Bool(value) => VmSlot::Bool(value),
            Value::Nil => VmSlot::Nil,
            value => VmSlot::Value(Rc::new(value)),
        }
    }
}

#[cfg(test)]
mod tests {
    use super::VmSlot;

    #[test]
    fn hot_vm_slots_stay_two_machine_words_or_smaller() {
        assert!(std::mem::size_of::<VmSlot>() <= 16);
    }
}