ketos 0.12.0

Lisp dialect scripting and extension 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
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

//! Example module construction

#[macro_use] extern crate ketos;

use ketos::{
    CompileError,
    Context,
    Error,
    Interpreter,
    BuiltinModuleLoader, Module, ModuleBuilder, ModuleLoader,
    Name,
    Scope,
    FromValue,
};

fn main() {
    // Create an interpreter using our custom loader
    let interp = Interpreter::with_loader(
        Box::new(CustomModuleLoader.chain(BuiltinModuleLoader)));

    // Import our custom module and run the imported function
    let v = interp.run_code(r#"
        (use custom (hello))
        (hello "world")
        "#, None).unwrap();

    // Pull a String value out of the result
    let s = String::from_value(v).unwrap();

    assert_eq!(s, "Hello, world!");
    println!("{}", s);
}

#[derive(Debug)]
struct CustomModuleLoader;

impl ModuleLoader for CustomModuleLoader {
    fn load_module(&self, name: Name, ctx: Context) -> Result<Module, Error> {
        let load_custom = ctx.scope().with_name(name, |name| name == "custom");

        if load_custom {
            Ok(load_mod(ctx.scope()))
        } else {
            Err(From::from(CompileError::ModuleError(name)))
        }
    }
}

fn load_mod(scope: &Scope) -> Module {
    ketos_fn!{ scope => "hello" => fn hello(what: &str) -> String }

    ModuleBuilder::new("custom", scope.clone()).finish()
}

fn hello(what: &str) -> Result<String, Error> {
    Ok(format!("Hello, {}!", what))
}