tulisp 0.28.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

use crate::{TulispContext, TulispObject, destruct_eval_bind, lists};

pub(crate) fn add(ctx: &mut TulispContext) {
    ctx.defspecial("nth", |ctx, args| {
        destruct_eval_bind!(ctx, (n list) = args);
        lists::nth(n.as_int()?, list)
    });

    ctx.defspecial("nthcdr", |ctx, args| {
        destruct_eval_bind!(ctx, (n list) = args);
        lists::nthcdr(n.as_int()?, list)
    });

    ctx.defspecial("last", |ctx, args| {
        destruct_eval_bind!(ctx, (list &optional n) = args);
        lists::last(&list, if n.null() { None } else { Some(n.as_int()?) })
    });

    macro_rules! impl_all_cxr {
        ($name:ident) => {
            ctx.defspecial(stringify!($name), |ctx, args| {
                destruct_eval_bind!(ctx, (name) = args);
                name.$name()
            });
        };
        ($name:ident, $($rest:ident),*) => {
            impl_all_cxr!($name);
            impl_all_cxr!($($rest),*);
        };
    }

    impl_all_cxr!(
        car, cdr, caar, cadr, cdar, cddr, caaar, caadr, cadar, caddr, cdaar, cdadr, cddar, cdddr,
        caaaar, caaadr, caadar, caaddr, cadaar, cadadr, caddar, cadddr, cdaaar, cdaadr, cdadar,
        cdaddr, cddaar, cddadr, cdddar, cddddr
    );
}