rusche 0.2.4

A lightweight Scheme interpreter embeddable in Rust applications
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

/// A macro for creating [`crate::list::List`].
///
/// ```
/// use rusche::list;
/// use rusche::expr::{Expr, intern};
///
/// list!(); // => ()
/// list!(1); // => (1)
/// list!(1, 2); // => (1 2)
/// list!(1, 2, list!(3, 4)); // => (1 2 (3 4))
/// list!("str"); // => ("str")
/// list!("str", "str"); // => ("str" "str")
/// list!(intern("sym"), Expr::from("str")); // => (sym "str")
/// ```
#[macro_export]
macro_rules! list {
    () => {
        $crate::list::List::Nil
    };

    ($car:literal $(, $cdr:expr)*) => {
        $crate::list::cons($crate::expr::Expr::from($car), list!($($cdr),*))
    };

    ($car:expr $(, $cdr:expr)*) => {
        $crate::list::cons($car, list!($($cdr),*))
    };
}

pub(crate) use list;

#[cfg(test)]
macro_rules! setup_native_proc_test {
    ($fn_name:ident) => {
        let evaluator = $crate::eval::Evaluator::new();
        let context = evaluator.context();
        let $fn_name = |args| $fn_name(stringify!($fn_name), &args, context);
    };
    ($fn_name:ident, $env_name:ident) => {
        let evaluator = $crate::eval::Evaluator::new();
        let context = evaluator.context();
        let $fn_name = |args| $fn_name(stringify!($fn_name), &args, context);
        let $env_name = &context.env;
    };
}

#[cfg(test)]
pub(crate) use setup_native_proc_test;

#[cfg(test)]
mod tests {
    macro_rules! format_eq {
        ($list:expr, $result:literal) => {
            assert_eq!(format!("{}", $list), $result);
        };
    }

    #[test]
    fn test_list_nil() {
        format_eq!(list!(), "()");
    }

    #[test]
    fn test_list_num() {
        format_eq!(list!(1), "(1)");
        format_eq!(list!(1, 2), "(1 2)");
        format_eq!(list!(1, 2, list!(3, 4)), "(1 2 (3 4))");
    }

    #[test]
    fn test_list_str() {
        format_eq!(list!("str"), "(\"str\")");
        format_eq!(list!("str", "str"), "(\"str\" \"str\")");
    }
}