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

#[cfg(test)]
mod test;

use super::SExpressionRef as SXRef;
use super::*;

pub fn car(list: &SXRef) -> SXRef {
    match list.as_cons_cell() {
        Some(e) => SXRef::clone(&e.car),
        None => SXRef::nil(),
    }
}

pub fn cdr(list: &SXRef) -> SXRef {
    match list.as_cons_cell() {
        Some(e) => SXRef::clone(&e.cdr),
        None => SXRef::nil(),
    }
}

pub fn cons(car: &SXRef, cdr: &SXRef) -> SXRef {
    SXRef::cons_cell(
        ConsCell::new(
            SXRef::clone(car),
            SXRef::clone(cdr),
        )
    )
}

pub fn push(list: &SXRef, item: &SXRef) -> SXRef {
    if list.is_nil() {
        util::cons(item, &SXRef::nil())
    } else if list.is_cons_cell() {
        let head = util::car(&list);
        let tail = util::cdr(&list);

        util::cons(
            &head,
            &util::push(&tail, item),
        )
    } else {
        util::cons(
            list,
            &util::cons(item, &SXRef::nil()),
        )
    }
}