euph 0.2.0

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
37
38
39
40
41
42
43
44
45
46

#[crabtime::function]
fn f_2_to_1(name: String) {
    let f = name.to_lowercase();
    crabtime::output! {
        pub const {{name}}: EuDef = |env| {
            let a1 = env.arg("a1")?;
            let a0 = env.arg("a0")?;
            env.push(a0.{{f}}(a1)?);
            Ok(())
        };
    }
}

pub(crate) use f_2_to_1;

#[crabtime::function]
fn f_env_2_to_1(name: String) {
    let f = format!("{}_env", name.to_lowercase());
    crabtime::output! {
        pub const {{name}}: EuDef = |env| {
            let a1 = env.arg("a1 (eval)")?;
            let a0 = env.arg("a0")?;
            env.push(a0.{{f}}(a1, env.scope.clone())?);
            Ok(())
        };
    }
}

pub(crate) use f_env_2_to_1;

#[crabtime::function]
fn f_env_3_to_1(name: String, a1: String) {
    let f = format!("{}_env", name.to_lowercase());
    let a1 = format!(r#""a1{a1}""#);
    crabtime::output! {
        pub const {{name}}: EuDef = |env| {
            let a2 = env.arg("a2 (eval)")?;
            let a1 = env.arg({{a1}})?;
            let a0 = env.arg("a0")?;
            env.push(a0.{{f}}(a1, a2, env.scope.clone())?);
            Ok(())
        };
    }
}

pub(crate) use f_env_3_to_1;