euph 0.1.1

A functional stack-based programming language
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

use crate::{
    fns::EuDef,
    types::EuType,
};

pub const CMP: EuDef = |env| {
    env.check_nargs(2)?;
    let a1 = env.stack.pop().unwrap();
    let a0 = env.stack.pop().unwrap();
    env.push(EuType::i32(a0.cmp(&a1) as i32));
    Ok(())
};

#[crabtime::function]
fn gen_fn_cmp_binops() {
    for (name, op) in [
        ("EQ", "=="),
        ("NE", "!="),
        ("LT", "<"),
        ("LE", "<="),
        ("GT", ">"),
        ("GE", ">="),
    ] {
        crabtime::output! {
            pub const {{name}}: EuDef = |env| {
                env.check_nargs(2)?;
                let a1 = env.stack.pop().unwrap();
                let a0 = env.stack.pop().unwrap();
                env.push(EuType::Bool(a0 {{op}} a1));
                Ok(())
            };
        }
    }
}

gen_fn_cmp_binops!();