sema-stdlib 1.19.2

Standard library (350+ native functions) for the Sema programming language
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

use sema_core::{check_arity, SemaError, Value};

use crate::register_fn;

pub fn register(env: &sema_core::Env) {
    register_fn(env, "bit/and", |args| {
        check_arity!(args, "bit/and", 2);
        let a = args[0]
            .as_int()
            .ok_or_else(|| SemaError::type_error("int", args[0].type_name()))?;
        let b = args[1]
            .as_int()
            .ok_or_else(|| SemaError::type_error("int", args[1].type_name()))?;
        Ok(Value::int(a & b))
    });

    register_fn(env, "bit/or", |args| {
        check_arity!(args, "bit/or", 2);
        let a = args[0]
            .as_int()
            .ok_or_else(|| SemaError::type_error("int", args[0].type_name()))?;
        let b = args[1]
            .as_int()
            .ok_or_else(|| SemaError::type_error("int", args[1].type_name()))?;
        Ok(Value::int(a | b))
    });

    register_fn(env, "bit/xor", |args| {
        check_arity!(args, "bit/xor", 2);
        let a = args[0]
            .as_int()
            .ok_or_else(|| SemaError::type_error("int", args[0].type_name()))?;
        let b = args[1]
            .as_int()
            .ok_or_else(|| SemaError::type_error("int", args[1].type_name()))?;
        Ok(Value::int(a ^ b))
    });

    register_fn(env, "bit/not", |args| {
        check_arity!(args, "bit/not", 1);
        let a = args[0]
            .as_int()
            .ok_or_else(|| SemaError::type_error("int", args[0].type_name()))?;
        Ok(Value::int(!a))
    });

    register_fn(env, "bit/shift-left", |args| {
        check_arity!(args, "bit/shift-left", 2);
        let a = args[0]
            .as_int()
            .ok_or_else(|| SemaError::type_error("int", args[0].type_name()))?;
        let n = args[1]
            .as_int()
            .ok_or_else(|| SemaError::type_error("int", args[1].type_name()))?;
        if !(0..64).contains(&n) {
            return Err(SemaError::eval(format!(
                "bit/shift-left: shift amount must be in 0..64, got {n}"
            )));
        }
        Ok(Value::int(a << n))
    });

    register_fn(env, "bit/shift-right", |args| {
        check_arity!(args, "bit/shift-right", 2);
        let a = args[0]
            .as_int()
            .ok_or_else(|| SemaError::type_error("int", args[0].type_name()))?;
        let n = args[1]
            .as_int()
            .ok_or_else(|| SemaError::type_error("int", args[1].type_name()))?;
        if !(0..64).contains(&n) {
            return Err(SemaError::eval(format!(
                "bit/shift-right: shift amount must be in 0..64, got {n}"
            )));
        }
        Ok(Value::int(a >> n))
    });
}