aiken-lang 1.0.22-alpha

The Aiken compiler
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

use chumsky::prelude::*;

use crate::{
    expr::UntypedExpr,
    parser::{error::ParseError, token::Token},
};

pub fn parser(
    r: Recursive<'_, Token, UntypedExpr, ParseError>,
) -> impl Parser<Token, UntypedExpr, Error = ParseError> + '_ {
    r.clone()
        .separated_by(just(Token::Comma))
        .at_least(2)
        .allow_trailing()
        .delimited_by(
            choice((just(Token::LeftParen), just(Token::NewLineLeftParen))),
            just(Token::RightParen),
        )
        .map_with_span(|elems, span| UntypedExpr::Tuple {
            location: span,
            elems,
        })
}

#[cfg(test)]
mod tests {
    use crate::assert_expr;

    #[test]
    fn parse_tuple() {
        assert_expr!(
            r#"
            let tuple = (1, 2, 3, 4)
            tuple.1st + tuple.2nd + tuple.3rd + tuple.4th
            "#
        );
    }

    #[test]
    fn parse_tuple2() {
        assert_expr!(
            r#"
            let a = foo(14)
            (a, 42)
            "#
        );
    }
}