由嵌入式Tcl运行时执行的句柄退出命令

Question

我有一个嵌入Tcl以执行一些Tcl代码的小型shell应用程序。 Tcl解释器使用Tcl_CreateInterp进行初始化。一切都非常简单：

1. 用户类型Tcl命令
2. 命令被传递给Tcl_Eval评估
3. 重复

但是，如果用户键入“退出”，这是一个有效的Tcl命令，整个事情 - Tcl解释器和我的shell应用程序 - 自动退出。

问：有没有什么办法可以捕捉到来自Tcl解释器的退出信号。我真的不想检查每个用户的命令。我试过Tcl_CreateExitHandler，但没有奏效。

非常感谢。

Answer 1

使用Tcl_CreateExitHandler工作正常。问题在于我在处理程序实现中添加了printf，并且输出未显示在终端上。所以我认为它没有被调用。但是，在执行该处理程序时，不再有stdout。在应用程序上运行strace显示处理程序正在正常执行。

此问题的另一种解决方案可以是使用atexit并在那里处理退出事件。

Answer 2

摆脱命令

rename exit "" 

，或者重新定义它让用户知道这是禁用：

proc exit {args} { error "The exit command is not available in this context" } 

也是值得考虑的运行用户在safe interp代码，而不是在主贝壳。这样做可以让您精确控制用户访问的内容。

您可能也可以创建一个子interp（非安全），只是禁用该interp的退出命令。

最后，你可以只重命名退出到别的东西，如果你只是想避免用户错误地键入它：

namespace eval ::hidden {} 
rename exit ::hidden::exit 

Answer 3

重命名exit命令：

rename exit __exit 

proc exit {args} { 
    puts -nonewline "Do you really want to exit? (y/n) " 
    flush stdout 
    gets stdin answer 
    if {$answer == "y"} { 
     __exit [lindex $args 0] 
    } 
} 

这样，当用户输入exit时，他/她将执行您的自定义退出命令，您可以在其中执行任何您喜欢的操作。