ksl 0.1.30

KSL core library and interpreter
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

//! # ksl::builtin::math
//!
//! Built-in math functions which expects one number argument.
//!
//! - Abs
//! - ArcCos
//! - ArcSin
//! - ArcTan
//! - Cos
//! - Cosh
//! - Exp
//! - Ln
//! - Neg
//! - Sin
//! - Sinh
//! - Sqrt
//! - Tan
//! - Tanh
//! - Trunc

use crate::{Environment, builtin::MathFunctionType, eval::apply::eval_apply, is_number_eq, value::Value};

pub(crate) fn builtin(args: &[Value], ftype: MathFunctionType, env: Environment) -> Result<Value, std::sync::Arc<str>> {
    if let [v] = args {
        match eval_apply(v, env)? {
            Value::Number(n) => Ok(Value::Number(match ftype {
                MathFunctionType::Abs => n.abs(),
                MathFunctionType::ArcCos => n.acos(),
                MathFunctionType::ArcSin => n.asin(),
                MathFunctionType::ArcTan => n.atan(),
                MathFunctionType::Ceiling => n.ceil(),
                MathFunctionType::Cos => n.cos(),
                MathFunctionType::Cosh => n.cosh(),
                MathFunctionType::Exp => n.exp(),
                MathFunctionType::Floor => n.floor(),
                MathFunctionType::Ln => {
                    if n > 0.0 {
                        n.ln()
                    } else {
                        return Err(std::sync::Arc::from(concat!(
                            "Error[ksl::builtin::Ln]: ",
                            "Logarithm of non-positive number.",
                        )));
                    }
                }
                MathFunctionType::Neg => {
                    if is_number_eq(n, 0.0) {
                        0.0
                    } else {
                        -n
                    }
                }
                MathFunctionType::Round => n.round(),
                MathFunctionType::Sin => n.sin(),
                MathFunctionType::Sinh => n.sinh(),
                MathFunctionType::Sqrt => n.sqrt(),
                MathFunctionType::Tan => n.tan(),
                MathFunctionType::Tanh => n.tanh(),
                MathFunctionType::Trunc => n.trunc(),
            })),
            e => Err(std::sync::Arc::from(format!(
                concat!(
                    "Error[ksl::builtin::{:?}]: ",
                    "Expected a number, but got: `{}`."
                ),
                ftype, e
            ))),
        }
    } else {
        Err(std::sync::Arc::from(format!(
            concat!(
                "Error[ksl::builtin::{:?}]: ",
                "Expected 1 parameter, but {} were passed."
            ),
            ftype,
            args.len()
        )))
    }
}