oxide_lisp 0.7.0

A simple lisp interpreter engine in Rust
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

#[macro_use]
extern crate lazy_static;

use std::sync::{Arc, Mutex};
pub mod oxl;

use oxl::value::{Control, Types};
use oxl::vm::{self, ScopeBase};
use oxl::vm::{Engine, GlobalScope};
use oxl::{basics, json};

#[derive(Debug)]
struct State {
    call_count: u32,
}

impl State {
    fn new() -> Arc<Mutex<Self>> {
        Arc::new(Mutex::new(State { call_count: 0 }))
    }
}

impl vm::ScopedCall for State {
    fn call(&mut self, _: Vec<Types>) -> Option<Types> {
        self.call_count += 1;
        Some(Types::Int(self.call_count.into()))
    }
}

fn main() {
    let mut global = GlobalScope::from_opts(vec![basics::engine_opt, json::engine_opt]);
    let mut vm = Engine::new();

    let state = State::new();

    global.put_func("state::call", vm::Function::from_scoped(state));

    let res = vm.eval_file("test/arith.oxl", &mut global);
    match res {
        Ok(Types::None) => {
            println!()
        }
        Ok(data) => {
            println!("{}", data)
        }
        Err(Control::Error(err)) => {
            println!("Error: {err}")
        }
        _ => {}
    }
}