c++ - TCL C API，打印 Tcl 对象

Question

我需要一个简单的 C/C++ 程序，它创建一个Tcl_Obj，为其设置一些值并打印该值。我需要看看如何使用 C API 来完成。这是我到目前为止所做的。

#include <tcl.h>

int main() {
    Tcl_Interp *interp = Tcl_CreateInterp(); 

    Tcl_Obj* tclObj = new Tcl_NewObj();

    // setting tclObj some value
    // printing it using something like this Tcl_PrintVariable(tclObj);

    return 0;
}

Answer 1

/*set value */
Tcl_SetIntObj(tclObj, 3);
/*print value*/
int i;
Tcl_GetIntFromObj(interp, tclObj, &i);
printf("Value: %d\r\n", i);

最好检查 Tcl_GetIntFromObj() 的返回值。请参阅此页面 - Tcl 参考手册