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

use super::{
    SExpression as SX,
    SExpressionRef as SXRef,
};

mod iter;
use iter::ConsCellIter;

#[cfg(test)]
mod test;

#[derive(Clone, Debug, PartialEq)]
pub struct ConsCell {
    pub car: SXRef,
    pub cdr: SXRef,
}

impl ConsCell {
    pub fn new(car: SXRef, cdr: SXRef) -> ConsCell {
        ConsCell {
            car,
            cdr,
        }
    }

    pub fn iter(&self) -> ConsCellIter {
        ConsCellIter::new(self)
    }
}

impl std::fmt::Display for ConsCell {
    fn fmt(&self, f: &mut std::fmt::Formatter) -> std::fmt::Result {
        let mut s = "(".to_owned();

        let mut current = self;

        loop {
            s.push_str(&format!("{}", current.car));

            match &*current.cdr {
                SX::Nil => break,
                SX::ConsCell(c) => {
                    s.push(' ');
                    current = c;
                },
                x => {
                    s.push_str(&format!(" . {}", x));
                    break
                }
            }
        }

        s.push(')');

        write!(f, "{}", s)
    }
}