rust_multistackvm 0.38.0

Stack-based virtual machine on top of rust_multistack crate
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

#[cfg(test)]
mod tests {
    #![allow(unused_imports)]
    use super::*;
    use rust_dynamic::value::Value;
    use rust_multistack::stack::Stack;
    use rust_multistackvm::multistackvm::VM;

    #[test]
    fn test_vm_register_class() {
        let mut vm = VM::new();
        vm.apply(Value::from("A").unwrap()).unwrap();
        vm.apply(Value::call("class".to_string(), Vec::new())).unwrap();
        vm.apply(Value::from("ANSWER").unwrap()).unwrap();
        vm.apply(Value::from(42).unwrap()).unwrap();
        vm.apply(Value::call("set".to_string(), Vec::new())).unwrap();
        vm.apply(Value::call("register".to_string(), Vec::new())).unwrap();
        assert_eq!(vm.is_class("A".to_string()), true);
    }

    #[test]
    fn test_vm_make_a() {
        let mut vm = VM::new();
        vm.apply(Value::from("A").unwrap()).unwrap();
        vm.apply(Value::from("A").unwrap()).unwrap();
        vm.apply(Value::call("class".to_string(), Vec::new())).unwrap();
        vm.apply(Value::from("ANSWER").unwrap()).unwrap();
        vm.apply(Value::from(42).unwrap()).unwrap();
        vm.apply(Value::call("set".to_string(), Vec::new())).unwrap();
        vm.apply(Value::from(".super").unwrap()).unwrap();
        vm.apply(Value::from_list(vec![Value::from_string("B")])).unwrap();
        vm.apply(Value::call("set".to_string(), Vec::new())).unwrap();
        vm.apply(Value::call("register".to_string(), Vec::new())).unwrap();
        vm.apply(Value::from("B").unwrap()).unwrap();
        vm.apply(Value::call("class".to_string(), Vec::new())).unwrap();
        vm.apply(Value::from("PI").unwrap()).unwrap();
        vm.apply(Value::from(3.14).unwrap()).unwrap();
        vm.apply(Value::call("set".to_string(), Vec::new())).unwrap();
        vm.apply(Value::call("register".to_string(), Vec::new())).unwrap();
        vm.apply(Value::call("object".to_string(), Vec::new())).unwrap();
        let pi = vm.value_locate("PI".to_string()).unwrap();
        assert_eq!(pi.cast_float().unwrap(), 3.14 as f64);
    }

    #[test]
    fn test_vm_make_a_and_execute() {
        let mut vm = VM::new();
        vm.apply(Value::from("PI").unwrap()).unwrap();
        vm.apply(Value::from("A").unwrap()).unwrap();
        vm.apply(Value::from("A").unwrap()).unwrap();
        vm.apply(Value::call("class".to_string(), Vec::new())).unwrap();
        vm.apply(Value::from("ANSWER").unwrap()).unwrap();
        vm.apply(Value::from(42).unwrap()).unwrap();
        vm.apply(Value::call("set".to_string(), Vec::new())).unwrap();
        vm.apply(Value::from(".super").unwrap()).unwrap();
        vm.apply(Value::from_list(vec![Value::from_string("B")])).unwrap();
        vm.apply(Value::call("set".to_string(), Vec::new())).unwrap();
        vm.apply(Value::call("register".to_string(), Vec::new())).unwrap();
        vm.apply(Value::from("B").unwrap()).unwrap();
        vm.apply(Value::call("class".to_string(), Vec::new())).unwrap();
        vm.apply(Value::from("PI").unwrap()).unwrap();
        vm.apply(Value::from(3.14).unwrap()).unwrap();
        vm.apply(Value::call("set".to_string(), Vec::new())).unwrap();
        vm.apply(Value::call("register".to_string(), Vec::new())).unwrap();
        vm.apply(Value::call("object".to_string(), Vec::new())).unwrap();
        vm.apply(Value::call("!".to_string(), Vec::new())).unwrap();
        let pi = vm.stack.pull().unwrap();
        assert_eq!(pi.cast_float().unwrap(), 3.14 as f64);
    }

}