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

extern crate ketos;

use ketos::{
    BuiltinModuleLoader, FileModuleLoader, ModuleLoader,
    Error, Interpreter,
};

use std::fs::read_dir;
use std::path::{Path, PathBuf};

fn run_file(path: &Path) -> Result<(), Error> {
    let mut loader = FileModuleLoader::with_search_paths(vec![PathBuf::from("lib")]);

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

    let interp = Interpreter::with_loader(
        Box::new(BuiltinModuleLoader.chain(loader)));

    interp.run_file(path)
}

// Runs all the tests matching `lib/test-*.ket`
#[test]
fn test_run() {
    let dir = read_dir("lib").expect("failed to read dir");

    for ent in dir {
        let ent = ent.expect("failed to read dir entry");
        let fname = ent.file_name();
        let name = fname.to_str().expect("failed to convert filename to string");

        if name.starts_with("test-") && name.ends_with(".ket") {
            run_file(&ent.path()).unwrap();
        }
    }
}