TCL C API，打印Tcl对象

Question

我需要简单的C/C++程序，它创建一个Tcl_Obj，为它设置一些值并打印该值。我需要看看如何使用can来完成它。以下是我迄今所做的工作。

#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参考手册