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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116

use chumsky::prelude::*;

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

pub fn parser() -> impl Parser<Token, UntypedExpr, Error = ParseError> {
    select! {
        Token::EqualEqual => ast::BinOp::Eq,
        Token::NotEqual => ast::BinOp::NotEq,
        Token::Less => ast::BinOp::LtInt,
        Token::LessEqual => ast::BinOp::LtEqInt,
        Token::Greater => ast::BinOp::GtInt,
        Token::GreaterEqual => ast::BinOp::GtEqInt,
        Token::VbarVbar => ast::BinOp::Or,
        Token::AmperAmper => ast::BinOp::And,
        Token::Plus => ast::BinOp::AddInt,
        Token::Minus => ast::BinOp::SubInt,
        Token::Slash => ast::BinOp::DivInt,
        Token::Star => ast::BinOp::MultInt,
        Token::Percent => ast::BinOp::ModInt,
    }
    .map_with_span(|name, location| {
        use ast::BinOp::*;

        let arg_annotation = match name {
            Or | And => Some(ast::Annotation::boolean(location)),
            Eq | NotEq => None,
            LtInt | LtEqInt | GtInt | GtEqInt | AddInt | SubInt | MultInt | DivInt | ModInt => {
                Some(ast::Annotation::int(location))
            }
        };

        let return_annotation = match name {
            Or | And | Eq | NotEq | LtInt | LtEqInt | GtInt | GtEqInt => {
                Some(ast::Annotation::boolean(location))
            }
            AddInt | SubInt | MultInt | DivInt | ModInt => Some(ast::Annotation::int(location)),
        };

        let arguments = vec![
            ast::Arg {
                arg_name: ast::ArgName::Named {
                    name: "left".to_string(),
                    label: "left".to_string(),
                    location,
                    is_validator_param: false,
                },
                annotation: arg_annotation.clone(),
                doc: None,
                location,
                tipo: (),
            },
            ast::Arg {
                arg_name: ast::ArgName::Named {
                    name: "right".to_string(),
                    label: "right".to_string(),
                    location,
                    is_validator_param: false,
                },
                annotation: arg_annotation,
                doc: None,
                location,
                tipo: (),
            },
        ];

        let body = UntypedExpr::BinOp {
            location,
            name,
            left: Box::new(UntypedExpr::Var {
                location,
                name: "left".to_string(),
            }),
            right: Box::new(UntypedExpr::Var {
                location,
                name: "right".to_string(),
            }),
        };

        UntypedExpr::Fn {
            arguments,
            body: Box::new(body),
            return_annotation,
            fn_style: FnStyle::BinOp(name),
            location,
        }
    })
}

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

    #[test]
    fn first_class_binop() {
        assert_expr!(
            r#"
            compare_with(a, >, b)
            compare_with(a, >=, b)
            compare_with(a, <, b)
            compare_with(a, <=, b)
            compare_with(a, ==, b)
            compare_with(a, !=, b)
            combine_with(a, &&, b)
            combine_with(a, ||, b)
            compute_with(a, +, b)
            compute_with(a, -, b)
            compute_with(a, /, b)
            compute_with(a, *, b)
            compute_with(a, %, b)"#
        );
    }
}