cljrs-eval 0.1.7

Tree-walking interpreter and macro expander for clojurust
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

use cljrs_gc::GcPtr;
use cljrs_value::error::ExceptionInfo;
use cljrs_value::{Value, ValueError, ValueResult};

// Work-alike for 'new' for a limited set of "classes"
pub(crate) fn builtin_new(args: &[Value]) -> ValueResult<Value> {
    if let Value::Symbol(symbol) = &args[0] {
        match symbol.get().full_name().as_str() {
            "Exception" | "java.lang.Exception" => builtin_exception_dot(&args[1..]),
            _ => Err(ValueError::Other(format!(
                "unknown type {}",
                symbol.get().full_name()
            ))),
        }
    } else {
        Err(ValueError::WrongType {
            expected: "symbol",
            got: args[0].type_name().to_string(),
        })
    }
}

pub(crate) fn builtin_exception_dot(args: &[Value]) -> ValueResult<Value> {
    if args.is_empty() {
        Ok(Value::Error(GcPtr::new(ExceptionInfo::new(
            ValueError::Other("".to_string()),
            "".to_string(),
            None,
            None,
        ))))
    } else if args.len() == 1 {
        match &args[0] {
            Value::Str(s) => Ok(Value::Error(GcPtr::new(ExceptionInfo::new(
                ValueError::Other(s.get().to_string()),
                s.get().to_string(),
                None,
                None,
            )))),
            Value::Error(e) => Ok(Value::Error(GcPtr::new(ExceptionInfo::new(
                ValueError::Other("".to_string()),
                "".to_string(),
                None,
                Some(e.clone()),
            )))),
            v => Err(ValueError::WrongType {
                expected: "str or error",
                got: v.type_name().to_string(),
            }),
        }
    } else {
        let message = match &args[0] {
            Value::Str(s) => s.get().to_string(),
            v => {
                return Err(ValueError::WrongType {
                    expected: "str",
                    got: v.type_name().to_string(),
                });
            }
        };
        let cause = match &args[1] {
            Value::Error(e) => Some(e.clone()),
            v => {
                return Err(ValueError::WrongType {
                    expected: "error",
                    got: v.type_name().to_string(),
                });
            }
        };
        Ok(Value::Error(GcPtr::new(ExceptionInfo::new(
            ValueError::Other(message.to_string()),
            message.to_string(),
            None,
            cause,
        ))))
    }
}