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

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

mod lisp_macro;
pub use lisp_macro::*;

mod rust_macro;
pub use rust_macro::*;

#[derive(Clone)]
pub enum Macro {
    Lisp(LispMacro),
    Rust(RustMacro),
}

impl Macro {
    pub fn execute(&self, sx: SXRef, env: &mut Env) -> EvalResult {
        eprintln!("Running Macro on: {}", sx);

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

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

        Ok(ret)
    }

    pub fn lisp_macro(args: Vec<String>, definition: SXRef) -> Macro {
        Self::Lisp(LispMacro::new(args, definition))
    }

    pub fn rust_macro(f: MacroFunc) -> Macro {
        Self::Rust(RustMacro::new(f))
    }
}

impl PartialEq for Macro {
    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 Macro {
    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 Macro {
    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 Macro {
    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 Macro {
    fn from(sx: SXRef) -> Self {
        Self::Lisp(sx.into())
    }
}

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

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