tulisp 0.27.0

An embeddable lisp interpreter.
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
79
80
81
82
83
84
85
86
87
88
89
90
91
92

use crate::{Error, Number, Shared, TulispAny, TulispObject, TulispValue};

pub trait TulispConvertible {
    fn from_tulisp(value: &TulispObject) -> Result<Self, Error>
    where
        Self: Sized;

    fn into_tulisp(self) -> TulispObject;
}

impl TulispConvertible for String {
    fn from_tulisp(value: &TulispObject) -> Result<String, Error> {
        value.as_string().map_err(|e| e.with_trace(value.clone()))
    }

    fn into_tulisp(self) -> TulispObject {
        TulispValue::from(self).into_ref(None)
    }
}

impl TulispConvertible for f64 {
    fn from_tulisp(value: &TulispObject) -> Result<f64, Error> {
        let res = value.rc.borrow().0.try_float();
        res.map_err(|e| e.with_trace(value.clone()))
    }
    fn into_tulisp(self) -> TulispObject {
        TulispValue::from(self).into_ref(None)
    }
}

impl TulispConvertible for i64 {
    fn from_tulisp(value: &TulispObject) -> Result<i64, Error> {
        let res = value.rc.borrow().0.as_int();
        res.map_err(|e| e.with_trace(value.clone()))
    }
    fn into_tulisp(self) -> TulispObject {
        TulispValue::from(self).into_ref(None)
    }
}

impl TulispConvertible for bool {
    fn from_tulisp(value: &TulispObject) -> Result<bool, Error> {
        Ok(value.is_truthy())
    }
    fn into_tulisp(self) -> TulispObject {
        TulispValue::from(self).into_ref(None)
    }
}

impl TulispConvertible for Shared<dyn TulispAny> {
    fn from_tulisp(value: &TulispObject) -> Result<Shared<dyn TulispAny>, Error> {
        value.as_any().map_err(|e| e.with_trace(value.clone()))
    }
    fn into_tulisp(self) -> TulispObject {
        TulispValue::from(self).into_ref(None)
    }
}

impl<T> TulispConvertible for Vec<T>
where
    T: TulispConvertible,
{
    fn from_tulisp(value: &TulispObject) -> Result<Vec<T>, Error> {
        value
            .base_iter()
            .map(|item| T::from_tulisp(&item))
            .collect::<Result<Vec<T>, Error>>()
            .map_err(|e| e.with_trace(value.clone()))
    }
    fn into_tulisp(self) -> TulispObject {
        TulispValue::from_iter(self.into_iter().map(|x| TulispConvertible::into_tulisp(x)))
            .into_ref(None)
    }
}

impl TulispConvertible for TulispObject {
    fn from_tulisp(value: &TulispObject) -> Result<TulispObject, Error> {
        Ok(value.clone())
    }
    fn into_tulisp(self) -> TulispObject {
        self
    }
}

impl TulispConvertible for Number {
    fn from_tulisp(value: &TulispObject) -> Result<Number, Error> {
        value.as_number().map_err(|e| e.with_trace(value.clone()))
    }
    fn into_tulisp(self) -> TulispObject {
        TulispValue::from(self).into_ref(None)
    }
}