rtea 0.4.0

Makes writing Tcl extensions in Rust ergonomic.
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

use rtea::*;

#[link(name = "tcl9.0")]
unsafe extern "C" {
    // fn Tcl_FindExecutable(name: *const c_char);
    fn Tcl_CreateInterp() -> *mut Interpreter;
    fn Tcl_DeleteInterp(interp: *mut Interpreter);
}

#[derive(Debug)]
pub struct TestInterpreter {
    interp: *mut Interpreter,
}

impl Drop for TestInterpreter {
    fn drop(&mut self) {
        unsafe { Tcl_DeleteInterp(self.interp) }
    }
}

impl Default for TestInterpreter {
    fn default() -> Self {
        TestInterpreter::new()
    }
}

impl TestInterpreter {
    pub fn new() -> TestInterpreter {
        let raw_interp = unsafe { Tcl_CreateInterp() };
        assert_ne!(raw_interp, std::ptr::null_mut());
        TestInterpreter { interp: raw_interp }
    }

    pub fn as_ptr(&self) -> *mut Interpreter {
        self.interp
    }

    pub fn as_ref(&self) -> &Interpreter {
        Interpreter::from_raw(self.as_ptr()).expect("TestInterpreter holds a valid interpreter")
    }
}