由嵌入式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時，他/她將執行您的自定義退出命令，您可以在其中執行任何您喜歡的操作。