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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
use crate::{
app::AppState,
lisp::{error::LispError, expr::LispExpr, number::LispNumber, Environment},
primitive,
};
use log::warn;
pub fn is_bound<S: AsRef<str>>(env: &mut Environment, name: S) -> bool {
env.get(name.as_ref()).is_some()
}
pub fn new_binding<S: AsRef<str>>(env: &mut Environment, name: S, value: LispExpr) {
let _ = env.insert(name.as_ref().into(), value);
}
pub fn with_prelude() -> Environment {
let mut env = Environment::new();
primitive!(env, Some(2), "+", |args, _| {
if args.iter().any(|arg| !matches!(arg, LispExpr::Number(_))) {
Err(LispError::EvalError)
} else {
Ok(LispExpr::Number(
args.iter()
.map(|arg| unwrap_number(arg))
.fold(LispNumber::Integer(0), |acc, x| acc + *x),
))
}
});
primitive!(env, Some(2), "sub", |args, _| {
if args.iter().any(|arg| !matches!(arg, LispExpr::Number(_))) {
Err(LispError::EvalError)
} else {
let mut acc = unwrap_number(&args[0]).clone();
for arg in args.into_iter().skip(1) {
acc = acc - *unwrap_number(&arg);
}
Ok(LispExpr::Number(acc))
}
});
primitive!(env, Some(2), "*", |args, _| {
if args.iter().any(|arg| !matches!(arg, LispExpr::Number(_))) {
Err(LispError::EvalError)
} else {
Ok(LispExpr::Number(
args.iter()
.map(|arg| unwrap_number(arg))
.fold(LispNumber::Integer(1), |acc, x| acc * *x),
))
}
});
env
}
pub fn eval(expr: &LispExpr, app: &mut AppState) -> Result<LispExpr, LispError> {
let env = &mut app.lisp_env;
match expr {
LispExpr::Unit => Ok(expr.clone()),
LispExpr::StringLit(_) => Ok(expr.clone()),
LispExpr::Number(_) => Ok(expr.clone()),
LispExpr::BoolLit(_) => Ok(expr.clone()),
LispExpr::Ident(ref id) => env
.get(id)
.ok_or_else(|| LispError::EvalError)
.map(Clone::clone),
LispExpr::List(li) => {
let head = &li[0];
match head {
LispExpr::Ident(func) => {
let func_expr = env
.get(func)
.map(Clone::clone)
.ok_or_else(|| LispError::EvalError)?;
match func_expr {
LispExpr::PrimitiveFunc(f) => {
let mut args = Vec::new();
for item in li[1..].iter() {
args.push(eval(item, app)?);
}
f.call(&args, app)
}
_ => Err(LispError::EvalError),
}
}
LispExpr::List(_) => {
// TODO
todo!();
}
_ => Err(LispError::EvalError),
}
}
_ => Err(LispError::ParseError),
}
}
pub fn unwrap_number(n: &LispExpr) -> &LispNumber {
match n {
LispExpr::Number(i) => i,
_ => panic!("unwrap_number expected number"),
}
}
|