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

Question

我需要创建一个 Tcl_Obj 的简单 C/C++ 程序，为其设置一些值并打印该值。我需要看看如何使用 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 reference manual