C++ TCL C API，打印TCL对象

我需要一个简单的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;
}

#包括
int main（）{
Tcl_Interp*Interp=Tcl_CreateInterp（）；
Tcl_Obj*tclObj=newtcl_NewObj（）；
//将tclObj设置为某个值
//使用类似于Tcl_PrintVariable（tclObj）的东西打印它；
返回0；
}

最好检查Tcl_GetIntFromObj（）的返回值。

---

请参阅本页-

建议您在创建解释器或调用任何其他Tcl API函数（pass

argv[0]

或

NULL

）之前调用

Tcl\u FindExecutable

，因为除其他外，这会初始化Tcl的内存管理子系统。

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