scheme4r 0.2.1

Scheme interpreter for 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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60

use std::rc::Rc;

use crate::runtime::Value;

pub type ErrorObjectRef = Rc<ErrorObject>;

#[derive(Clone, Debug, PartialEq, Eq)]
pub enum ErrorObjectKind {
    General,
    Read,
    File,
}

#[derive(Clone, Debug)]
pub struct ErrorObject {
    kind: ErrorObjectKind,
    message: String,
    irritants: Vec<Value>,
}

impl ErrorObject {
    pub fn new(
        kind: ErrorObjectKind,
        message: impl Into<String>,
        irritants: Vec<Value>,
    ) -> ErrorObjectRef {
        Rc::new(Self {
            kind,
            message: message.into(),
            irritants,
        })
    }

    pub fn kind(&self) -> &ErrorObjectKind {
        &self.kind
    }

    pub fn message(&self) -> &str {
        &self.message
    }

    pub fn irritants(&self) -> &[Value] {
        &self.irritants
    }
}

impl PartialEq for ErrorObject {
    fn eq(&self, other: &Self) -> bool {
        self.kind == other.kind
            && self.message == other.message
            && self.irritants.len() == other.irritants.len()
            && self
                .irritants
                .iter()
                .zip(other.irritants.iter())
                .all(|(left, right)| Value::equal(left, right))
    }
}

impl Eq for ErrorObject {}