tcl-sys 0.2.0

rust bindings for the tcl interpreter library
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

use std::ffi::CString;
use tcl_sys::*;

mod common;
use common::Wrapper;

const PROGRAM: &'static str = "\
set A 6
set B 6
expr { $A * $B}";

#[test]
fn use_embedded_tcl_engine() {
    let tcl_interp = Wrapper::new();

    let script = CString::new(PROGRAM).expect("Unable to create cstring");
    assert_eq!(
        unsafe { Tcl_Eval(tcl_interp.0, script.as_ptr()) },
        TCL_OK as i32,
        "Failed to run tcl script"
    );

    let obj_result = unsafe { Tcl_GetObjResult(tcl_interp.0) };
    assert!(!obj_result.is_null());

    let mut result = 0;
    assert_eq!(
        unsafe { Tcl_GetIntFromObj(tcl_interp.0, obj_result, &mut result) },
        TCL_OK as i32,
        "Contents of tcl result was not an integer"
    );

    assert_eq!(result, 36);
}