摘要： #include <tcl.h>static intZtcllib_Cmd(ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]){ Tcl_SetObjResult(interp, Tcl_NewStringObj("test!", -1)); return TCL_OK;}/* * Ztcllib_Init -- Called when Tcl loads your extension. */int DLLEXPORTZtcllib_Init(Tcl_Interp *int 阅读全文