grift_eval 1.4.0

Lisp evaluator for the Grift Scheme language
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

use grift_eval::*;

#[allow(dead_code)]
pub fn eval_to_num<const N: usize>(lisp: &Lisp<N>, eval: &mut Evaluator<N>, input: &str) -> isize {
    let result = eval.eval_str(input).unwrap();
    lisp.get(result).unwrap().as_number().unwrap()
}

#[allow(dead_code)]
pub fn eval_is_true<const N: usize>(lisp: &Lisp<N>, eval: &mut Evaluator<N>, input: &str) -> bool {
    let result = eval.eval_str(input).unwrap();
    lisp.get(result).unwrap().is_true()
}

#[allow(dead_code)]
pub fn eval_is_false<const N: usize>(lisp: &Lisp<N>, eval: &mut Evaluator<N>, input: &str) -> bool {
    let result = eval.eval_str(input).unwrap();
    lisp.get(result).unwrap().is_false()
}

#[allow(dead_code)]
pub fn eval_to_string<const N: usize>(lisp: &Lisp<N>, eval: &mut Evaluator<N>, input: &str) -> String {
    let result = eval.eval_str(input).unwrap();
    format!("{}", lisp.display(result))
}