use std::ffi::{CStr, CString};

use tcl_sys::*;

fn main() {
    unsafe {
        extract_stdlib_to(guess_expected_stdlib_target()).unwrap();
        let interp = Tcl_CreateInterp();
        let init_status = Tcl_Init(interp);
        if init_status == TCL_ERROR as i32 {
            eprintln!(
                "{}",
                CStr::from_ptr(Tcl_GetStringResult(interp)).to_string_lossy()
            );
        }
        assert_eq!(init_status, TCL_OK as i32);
        let script = CString::new(r#"puts "Hello, World!""#).unwrap();
        let eval_status = Tcl_Eval(interp, script.as_ptr());
        assert_eq!(eval_status, TCL_OK as i32);

        Tcl_DeleteInterp(interp);
    }
}