stutter-rs 0.1.1

A lisp made by Jacob Wunder to learn how to make programming languages
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

#![allow(unused_imports, unused_must_use, dead_code)]
use std::collections::HashMap;
use ast::types::*;
use eval::types::*;

pub type StaticFn = Fn(Vec<Value>) -> Value;

pub fn init(scope: &mut HashMap<Symbol, Box<StaticFn>>) {
    scope.insert(
        String::from("plus"),
        box | values | -> Value {

            use types::Value::*;

            let mut acc: f32 = 0.0;
            for value in values {
                if let Number(ref a) = value {
                    acc += a;
                } else { return Null }
            }

            Number(acc)
        }
    );

    scope.insert(
        String::from("print"),
        box | values | -> Value {

            for value in values {
                print!("{} ", value);
            }
            println!("");

            Value::Null
        }
    );
}