kamo 0.9.0

A library to assist in the creation of an interpreter or compiler and its associated runtime.
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

use crate::{
    parser::{code, prelude::*, Code, Input, ParseResult},
    value::Value,
};

use super::{
    code::{ERR_VECTOR_CLOSING, ERR_VECTOR_LITERAL},
    Sexpr, SexprError,
};

impl<'a, 'b, const ECO: Code> Sexpr<'a, ECO> {
    /// Parses a vector literal.
    ///
    /// # Grammar
    ///
    /// ```text
    /// vector = "#(" intertoken (datum intertoken)* ")"
    /// ```
    pub fn vector(&self) -> impl Fn(Input<'b>) -> ParseResult<'b, Value<'a>> + '_ {
        let m = self.m.clone();

        move |input| {
            map(
                delimited(
                    terminated(tag("#("), Self::intertoken),
                    many0(terminated(self.datum(), Self::intertoken)),
                    tag(")"),
                ),
                |items| m.borrow_mut().new_vector(items).into(),
            )(input)
            .map_err(|mut err| {
                let span = err.span();

                match err.code() {
                    code::ERR_PRECEDED => {
                        err.push(span, ERR_VECTOR_LITERAL + ECO, SexprError::VectorClosing);
                    }
                    code::ERR_TERMINATED => {
                        err.push(span, ERR_VECTOR_CLOSING + ECO, SexprError::VectorClosing);
                    }
                    _ => (),
                }
                err
            })
        }
    }
}

#[cfg(test)]
mod tests {
    use kamo_macros::sexpr;

    use crate::mem::Mutator;

    use super::*;

    #[test]
    fn vector_success() {
        let m = Mutator::new_ref();
        let sexpr = Sexpr::<0>::new(m.clone());
        let parse = sexpr.vector();

        assert_eq!(
            parse(Input::new("#(1 2 3)")),
            Ok((sexpr!(m, "#(1 2 3)"), Input::from(""))),
        );
    }
}