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

use super::*;

use crate::s_expression::{ ConsCell };

#[test]
pub fn full_parse() {
    let subject = "((lambda (x) (cons x (\"foo\" 2))) (car (3 \"bar\")))";

    let expected =
        SExpressionRef::cons_cell(ConsCell::new( // First actual parenthesis
            SExpressionRef::cons_cell(ConsCell::new(
                SExpressionRef::symbol("lambda".to_owned()),
                SExpressionRef::cons_cell(ConsCell::new(
                    SExpressionRef::cons_cell(ConsCell::new(
                        SExpressionRef::symbol("x".to_owned()),
                        SExpressionRef::nil(),
                    )),
                    SExpressionRef::cons_cell(ConsCell::new(
                        SExpressionRef::cons_cell(ConsCell::new(
                            SExpressionRef::symbol("cons".to_owned()),
                            SExpressionRef::cons_cell(ConsCell::new(
                                SExpressionRef::symbol("x".to_owned()),
                                SExpressionRef::cons_cell(ConsCell::new(
                                    SExpressionRef::cons_cell(ConsCell::new(
                                        SExpressionRef::string("foo".to_owned()),
                                        SExpressionRef::cons_cell(ConsCell::new(
                                            SExpressionRef::number(2),
                                            SExpressionRef::nil(),
                                        )),
                                    )),
                                    SExpressionRef::nil(),
                                )),
                            )),
                        )),
                        SExpressionRef::nil(),
                    )),
                )),
            )),
            SExpressionRef::cons_cell(ConsCell::new(
                SExpressionRef::cons_cell(ConsCell::new(
                    SExpressionRef::symbol("car".to_owned()),
                    SExpressionRef::cons_cell(ConsCell::new(
                        SExpressionRef::cons_cell(ConsCell::new(
                            SExpressionRef::number(3),
                            SExpressionRef::cons_cell(ConsCell::new(
                                SExpressionRef::string("bar".to_owned()),
                                SExpressionRef::nil(),
                            )),
                        )),
                        SExpressionRef::nil(),
                    )),
                )),
                SExpressionRef::nil(),
            )),
        ));

    assert_eq!(expected, parse(subject).unwrap());
}