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

use super::*;
use crate::s_expression::ListIter;

impl<'a> IntoIterator for &'a ConsCell {
    type Item = SXRef;
    type IntoIter = ConsCellIter<'a>;

    fn into_iter(self) -> Self::IntoIter {
        ConsCellIter {
            current: Current::Amp(self),
        }
    }
}

enum Current<'a> {
    Amp(&'a ConsCell),
    Ref(ListIter),
}

pub struct ConsCellIter<'a> {
    current: Current<'a>,
}

impl<'a> ConsCellIter<'a> {
    pub fn new(cc: &'a ConsCell) -> ConsCellIter<'a> {
        ConsCellIter {
            current: Current::Amp(cc),
        }
    }
}

impl<'a> Iterator for ConsCellIter<'a> {
    type Item = SXRef;

    fn next(&mut self) -> Option<Self::Item> {
        match &mut self.current {
            Current::Amp(e) => {
                let ret = SXRef::clone(&e.car);

                self.current = Current::Ref(e.cdr.iter());

                Some(ret)
            },
            Current::Ref(i) => i.next(),
        }
    }
}