tulisp 0.26.0

An embeddable lisp 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
80
81
82
83
84
85

use crate::{
    Error, TulispContext, TulispObject, builtin::functions::functions::reduce_with,
    destruct_eval_bind,
};

macro_rules! compare_impl {
    ($name:ident, $symbol:literal) => {
        fn $name(ctx: &mut TulispContext, args: &TulispObject) -> Result<TulispObject, Error> {
            if args.null() || args.cdr_and_then(|x| Ok(x.null()))? {
                return Err(Error::out_of_range(format!(
                    "{} requires at least 2 arguments",
                    $symbol
                )));
            }
            args.car_and_then(|x| {
                ctx.eval_and_then(x, |ctx, first| {
                    let first = first.as_number()?;
                    args.cadr_and_then(|x| {
                        ctx.eval_and_then(x, |ctx, second| {
                            let second = second.as_number()?;
                            if std::cmp::PartialOrd::$name(&first, &second) {
                                args.cdr_and_then(|cdr| {
                                    if cdr.cdr_and_then(|x| Ok(x.null()))? {
                                        Ok(TulispObject::t())
                                    } else {
                                        $name(ctx, &cdr)
                                    }
                                })
                            } else {
                                Ok(TulispObject::nil())
                            }
                        })
                    })
                })
            })
        }
    };
}

pub(crate) fn add(ctx: &mut TulispContext) {
    compare_impl!(gt, ">");
    ctx.add_special_form(">", gt);

    compare_impl!(ge, ">=");
    ctx.add_special_form(">=", ge);

    compare_impl!(lt, "<");
    ctx.add_special_form("<", lt);

    compare_impl!(le, "<=");
    ctx.add_special_form("<=", le);

    fn max(ctx: &mut TulispContext, rest: &TulispObject) -> Result<TulispObject, Error> {
        reduce_with(ctx, rest, |a, b| Ok(if a > b { a } else { b }))
    }
    ctx.add_special_form("max", max);

    fn min(ctx: &mut TulispContext, rest: &TulispObject) -> Result<TulispObject, Error> {
        reduce_with(ctx, rest, |a, b| Ok(if a < b { a } else { b }))
    }
    ctx.add_special_form("min", min);

    ctx.add_special_form("abs", |ctx, args| {
        destruct_eval_bind!(ctx, (number) = args);

        Ok(number.try_float()?.abs().into())
    });
}

#[cfg(test)]
mod tests {
    use crate::{TulispContext, test_utils::eval_assert_equal};

    #[test]
    fn test_abs() {
        let ctx = &mut TulispContext::new();

        eval_assert_equal(ctx, "(abs -4.0)", "4.0");
        eval_assert_equal(ctx, "(abs 0.0)", "0.0");
        eval_assert_equal(ctx, "(abs 2.25)", "2.25");
        eval_assert_equal(ctx, "(abs -3)", "3.0");
        eval_assert_equal(ctx, "(abs 0)", "0.0");
        eval_assert_equal(ctx, "(abs 5)", "5.0");
    }
}