nyavascript 0.1.0

Lisp implementation. Called NyavaScript because I'm a monster
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
93
94
95
96
97
98

mod lisp_function;
pub use lisp_function::LispFunction;

mod rust_function;
pub use rust_function::ScopeableRustFn;
pub use rust_function::RustFunction;

use crate::s_expression::SExpressionRef as SXRef;
use crate::evaluate::{
    Environment as Env,
    Result as EvalResult,
};
use crate::parse::ParseError;

#[derive(Clone)]
pub enum Function {
    Lisp(LispFunction),
    Rust(RustFunction),
}

impl Function {
    pub fn execute(&self, args: Vec<SXRef>, env: &mut Env) -> EvalResult {
        eprintln!("Running Function on: {}", SXRef::from(args.clone()));

        let ret = match self {
            Self::Lisp(f) => f.execute(args, env)?,
            Self::Rust(f) => f.execute(args, env)?,
        };

        eprintln!("Function returning: {}", ret);

        Ok(ret)
    }

    pub fn lisp_function(args: Vec<String>, definition: SXRef) -> Function {
        Self::Lisp(LispFunction::new(args, definition))
    }

    pub fn rust_function(f: RustFunction) -> Self {
        Self::Rust(f)
    }
}

impl PartialEq for Function {
    fn eq(&self, other: &Self) -> bool {
        match (self, other) {
            (Self::Lisp(l), Self::Lisp(o)) => l.eq(o),
            (Self::Rust(r), Self::Rust(o)) => r.eq(o),
            _ => false,
        }
    }
}

impl std::fmt::Debug  for Function {
    fn fmt(&self, f: &mut std::fmt::Formatter) -> std::fmt::Result {
        match self {
            Self::Lisp(l) => write!(f, "{:?}", l),
            Self::Rust(r) => write!(f, "{:?}", r),
        }
    }
}

impl std::fmt::Display for Function {
    fn fmt(&self, f: &mut std::fmt::Formatter) -> std::fmt::Result {
        match self {
            Self::Lisp(l) => write!(f, "{}", l),
            Self::Rust(r) => write!(f, "{}", r),
        }
    }
}

impl TryFrom<&str> for Function {
    type Error = ParseError;

    fn try_from(text: &str) -> Result<Self, Self::Error> {
        let f = text.try_into()?;

        Ok(Self::Lisp(f))
    }
}

impl From<SXRef> for Function {
    fn from(sx: SXRef) -> Self {
        Self::Lisp(sx.into())
    }
}

impl From<RustFunction> for Function {
    fn from(f: RustFunction) -> Self {
        Self::Rust(f)
    }
}

impl From<LispFunction> for Function {
    fn from(l: LispFunction) -> Self {
        Self::Lisp(l)
    }
}