tcl：包裝一個相同名稱的過程

Question

我想用一個同名的過程和調用約定來替換「proc N」的定義，但只需要一些額外的錯誤檢測代碼。

在python中，我可以在下面做我想做的事情，但我沒有掌握如何在tcl中使用名稱空間和函數句柄。

__orig_N = N 
def N(arg1, arg2): 
    if arg1 != 'GOOD VALUE': 
     exit('arg1 is bad') 
    return __orig_N(arg1, arg2) 

Answer 1

Tcl對程序有很好的反省。這使您可以重寫的過程中更多的代碼添加：

# Assume there are no defaults; defaults make this more complicated... 
proc N [info args N] [concat { 
    # Use 'ne' for string comparison, '!=' for numeric comparison 
    if {$arg1 ne "GOOD VALUE"} { 
     error "arg1 is bad" 
     # The semicolon is _important_ because of the odd semantics of [concat] 
    }; 
} [info body N]] 

OK，這不是做到這一點的唯一途徑 - Eric的回答是更接近我怎麼會常換一個命令，它的優點也可以使用非過程命令 - 但這種解決方案的優點是可以很好地綁定代碼，這樣以後就不會出錯了。它也不會在任何錯誤跟蹤中引入額外的堆棧幀，這有助於簡化調試。

Answer 2

可以使用rename命令重命名現有PROC：

rename N __orig_N 
proc N {arg1 arg2} { 
    if { $arg1 != "GOOD_VALUE" } { 
     puts stderr "arg1 is bad" 
     exit 1 
    } 
    return [uplevel 1 __orig_N $arg1 $arg2] 
} 

這實際上是一點點比蟒蛇原來更復雜，在使用uplevel有效地從elides包裝整個調用堆棧 - 在你的情況下可能並不需要，但是能夠做到這一點很好。