在Tcl中的代碼旁路退出

Question

讓我們假設我有proc foo。我們把proc代碼：

proc foo { argy } { 
    if { $argy == 1 } { exit 1 } 
} 

我想調用foo，但有調用代碼旁路/忽略exit命令，而不是退出TCL。即：此代碼：

foo 1 
puts "bar" 

應該產生：

>bar 

任何想法？
謝謝。

Answer 1

使用rename覆蓋默認行爲。

rename exit _exit 
proc exit {{status ""}} {} 

在代碼中第一次出現exit命令之前，請保留上面的代碼。即使在您的代碼開始時，也會將exit替換爲此虛擬exit過程。