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
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
102
103
104
105
106
107
108
109

#[macro_use] extern crate assert_matches;
extern crate ketos;

use std::path::{Path, PathBuf};
use std::rc::Rc;

use ketos::{
    BuiltinModuleLoader, FileModuleLoader, ModuleLoader,
    Context, Error, Interpreter, Value, run_code,
};
use ketos::encode::{read_bytecode, write_bytecode};
use ketos::module::ModuleCode;

fn new_interpreter() -> Interpreter {
    let mut loader = FileModuleLoader::with_search_paths(vec![PathBuf::from("lib")]);

    loader.set_read_bytecode(false);
    loader.set_write_bytecode(false);

    Interpreter::with_loader(Box::new(BuiltinModuleLoader.chain(loader)))
}

// Runs `F` twice; first, after compiling and executing input;
// then, after encoding and decoding and loading the resulting ModuleCode.
fn run<F>(input: &str, mut f: F) -> Result<(), Error>
        where F: FnMut(&Context) {
    let interp = new_interpreter();

    let code: Vec<_> = interp.compile_exprs(input)?
        .into_iter().map(Rc::new).collect();

    for code in &code {
        interp.execute_code(code.clone())?;
    }

    f(interp.context());

    let mut buf = Vec::new();
    let path = Path::new("<buffer>");

    {
        let mcode = ModuleCode::new(code, interp.scope());
        let scope = interp.scope();
        let names = scope.borrow_names();
        write_bytecode(&mut buf, path, &mcode, &names)?;
    }

    let sec_interp = new_interpreter();
    let mcode = read_bytecode(&mut &buf[..], path, sec_interp.context())?;

    mcode.load_in_context(sec_interp.context())?;

    f(sec_interp.context());

    Ok(())
}

#[test]
fn test_encode() {
    run(r#"
        (const foo 1)
        (define bar 2)

        (const b #b"y halo")
        (const p #p"thar")
        "#, |ctx| {
            assert_matches!(ctx.scope().get_named_constant("foo"),
                Some(Value::Integer(ref i)) if i.to_u32() == Some(1));
            assert_matches!(ctx.scope().get_named_value("bar"),
                Some(Value::Integer(ref i)) if i.to_u32() == Some(2));
            assert_matches!(ctx.scope().get_named_constant("b"),
                Some(Value::Bytes(ref b)) if b == b"y halo");
            assert_matches!(ctx.scope().get_named_constant("p"),
                Some(Value::Path(ref p)) if p == Path::new("thar"));
        }).unwrap();
}

#[test]
fn test_docs() {
    run(r#"
        (const foo
            "foo doc"
            1)
        (define bar
            "bar doc"
            2)
        (define (baz)
            "baz doc"
            3)
        (macro (mac)
            "mac doc"
            ())
        (struct struc
            "struc doc"
            ())
        "#, |ctx| {
            run_code(ctx,
                r#"
                (use code (documentation))
                (use test (assert-eq))

                (assert-eq (documentation 'foo) "foo doc")
                (assert-eq (documentation 'bar) "bar doc")
                (assert-eq (documentation 'baz) "baz doc")
                (assert-eq (documentation 'mac) "mac doc")
                (assert-eq (documentation 'struc) "struc doc")
                "#).unwrap();
        }).unwrap();
}