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

use crate::{Error, TulispContext, TulispObject, TulispValue, bytecode::Instruction};

impl TulispContext {
    pub(crate) fn compile_1_arg_call(
        &mut self,
        _name: &TulispObject,
        args: &TulispObject,
        has_rest: bool,
        mut lambda: impl FnMut(
            &mut TulispContext,
            &TulispObject,
            &TulispObject,
        ) -> Result<Vec<Instruction>, Error>,
    ) -> Result<Vec<Instruction>, Error> {
        if args.null() {
            return Err(Error::missing_argument("Too few arguments".to_string()));
        }
        args.car_and_then(|arg1| {
            args.cdr_and_then(|rest| {
                if !has_rest && !rest.null() {
                    return Err(Error::invalid_argument("Too many arguments".to_string()));
                }
                lambda(self, arg1, rest)
            })
        })
    }

    pub(crate) fn compile_2_arg_call(
        &mut self,
        _name: &TulispObject,
        args: &TulispObject,
        has_rest: bool,
        mut lambda: impl FnMut(
            &mut TulispContext,
            &TulispObject,
            &TulispObject,
            &TulispObject,
        ) -> Result<Vec<Instruction>, Error>,
    ) -> Result<Vec<Instruction>, Error> {
        let (TulispValue::List { cons: args, .. }, _) = &*args.inner_ref() else {
            return Err(Error::missing_argument("Too few arguments".to_string()));
        };
        if args.cdr().null() {
            return Err(Error::missing_argument("Too few arguments".to_string()));
        }
        let arg1 = args.car();
        args.cdr().car_and_then(|arg2| {
            args.cdr().cdr_and_then(|rest| {
                if !has_rest && !rest.null() {
                    return Err(Error::invalid_argument("Too many arguments".to_string()));
                }
                lambda(self, arg1, arg2, rest)
            })
        })
    }
}