oris 0.2.1

An interpreter for Monkey
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

pub(crate) mod builtin;
mod closure;

use std::{collections::HashMap, fmt, rc::Rc};

pub(crate) type Builtin = builtin::Builtin;
pub(crate) type Closure = closure::Closure;

#[derive(Clone)]
pub(crate) enum Value {
    Unit,
    Int(i32),
    Bool(bool),
    Str(Rc<str>),
    Seq(Rc<[Value]>),
    Map(Rc<HashMap<Key, Value>>),
    Builtin(Builtin),
    Closure(Rc<Closure>),
}

#[derive(Hash, PartialEq, Eq)]
pub(crate) enum Key {
    Int(i32),
    Bool(bool),
    Str(Rc<str>),
}

pub(super) fn to_key(value: &Value) -> Option<Key> {
    match value {
        Value::Int(x) => Some(Key::Int(*x)),
        Value::Bool(x) => Some(Key::Bool(*x)),
        Value::Str(s) => Some(Key::Str(Rc::clone(s))),
        _ => None,
    }
}

impl fmt::Debug for Value {
    fn fmt(&self, f: &mut fmt::Formatter<'_>) -> fmt::Result {
        match self {
            Value::Unit => f.write_str("<unit>"),
            Value::Int(v) => v.fmt(f),
            Value::Bool(v) => v.fmt(f),
            Value::Str(v) => v.fmt(f),
            Value::Seq(seq) => f.debug_list().entries(seq.iter()).finish(),
            Value::Map(map) => f.debug_map().entries(map.iter()).finish(),
            Value::Closure(_) => f.write_str("<closure>"),
            Value::Builtin(_) => f.write_str("<builtin>"),
        }
    }
}

impl fmt::Debug for Key {
    fn fmt(&self, f: &mut fmt::Formatter<'_>) -> fmt::Result {
        match self {
            Key::Int(v) => v.fmt(f),
            Key::Bool(v) => v.fmt(f),
            Key::Str(v) => v.fmt(f),
        }
    }
}

impl std::cmp::PartialEq for Value {
    fn eq(&self, other: &Self) -> bool {
        match (self, other) {
            (Self::Unit, Self::Unit) => true,
            (Self::Int(left), Self::Int(right)) => left == right,
            (Self::Bool(left), Self::Bool(right)) => left == right,
            (Self::Str(left), Self::Str(right)) => left == right,
            (Self::Seq(left), Self::Seq(right)) => left == right,
            (Self::Map(left), Self::Map(right)) => left == right,
            (Self::Builtin(left), Self::Builtin(right)) => left == right,
            (Self::Closure(left), Self::Closure(right)) => Rc::ptr_eq(left, right),
            _ => false,
        }
    }
}

impl std::cmp::Eq for Value {}