嵌入的Tcl解释器如何保留Tcl_CreateObjCommand创建的命令供交互使用

你遇到的问题核心是错误覆盖了Tcl解释器实例：

• Tcl_AppInit的入参interp是Tcl_Main提前创建好的、最终会用于交互模式的解释器实例，你在函数内调用Tcl_CreateInterp()重新创建了一个新的解释器，覆盖了传入的指针
• 自定义命令my_command是注册到你手动新建的临时解释器上的，脚本也在这个临时解释器上执行，因此脚本运行正常
• 脚本执行完成后，Tcl_Main会用最开始创建的、没有注册过自定义命令的解释器进入交互模式，自然找不到my_command命令
• 额外的冗余逻辑：你在My_Init中手动调用Tcl_EvalFile执行脚本属于多余操作，Tcl_Main本身会自动处理命令行传入的Tcl脚本执行逻辑

1. 修正Tcl_AppInit逻辑 #

删除手动创建解释器的代码，直接使用传入的解释器实例：

int Tcl_AppInit(Tcl_Interp *interp)
{   
    if (interp == NULL)
        return TCL_ERROR;

    if (Tcl_Init(interp) == TCL_ERROR)
        return TCL_ERROR;

    if (My_Init(interp) == TCL_ERROR)
        return TCL_ERROR;

    return TCL_OK; 
}

2. 修正My_Init逻辑 #

删除手动执行脚本的代码，仅保留命令注册逻辑即可：

int My_Init(Tcl_Interp *interp) {
    Tcl_CreateObjCommand(interp, "my_command", myCmd, (ClientData) NULL, NULL);
    // 移除Tcl_EvalFile相关逻辑，脚本执行交由Tcl_Main自动处理
    return TCL_OK;
}

你贴出的myCmd函数中val和valLen变量未声明定义，实际编译时会报错，补充对应类型的变量声明即可。

内容的提问来源于stack exchange，提问作者Ender