euph 0.3.2

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

use std::io;

use anyhow::anyhow;

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

pub const READ: EuDef = |env| {
    env.push(EuType::res_str(
        io::read_to_string(io::stdin())
            .map(EuType::str)
            .map_err(|e| anyhow!(e).into()),
    ));
    Ok(())
};

pub const READLN: EuDef = |env| {
    let mut res = String::new();
    env.push(EuType::res_str(
        io::stdin()
            .read_line(&mut res)
            .map(|_| EuType::str(res))
            .map_err(|e| anyhow!(e).into()),
    ));
    Ok(())
};

pub const PRINT: EuDef = |env| {
    print!("{}", env.arg("a0")?);
    Ok(())
};

pub const PRINTLN: EuDef = |env| {
    println!("{}", env.arg("a0")?);
    Ok(())
};