Я хочу заменить определение "proc N" процедурой с тем же именем и соглашениями о вызовах, но с небольшим дополнительным кодом обнаружения ошибок.
В python я мог бы делать то, что хочу, как показано ниже, но я не понимаю, как пространства имен и дескрипторы функций работают в tcl.
__orig_N = N
def N(arg1, arg2):
if arg1 != 'GOOD VALUE':
exit('arg1 is bad')
return __orig_N(arg1, arg2)
У 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]]
Хорошо, это не единственный способ сделать это - ответ Эрика ближе к тому, как я обычно оборачиваю команду, и у него есть преимущество в том, что он работает и с непроцедурными командами, - но это решение имеет то преимущество, что связывает код в красивом и плотном так что там очень мало, чтобы пойти не так, как надо позже. Он также не вводит дополнительные кадры стека в какие-либо трассировки ошибок, что упрощает отладку.
error в Tcl по сравнению с exit в Python из комментариев к ответу Эрика применимо и здесь, но следует отметить, что использование error (или return -code error) является идиоматическим в Tcl, тогда как предоставление коду сдуть процесс не на том основании, что он не очень соседский.
- person Donal Fellows; 24.05.2011
apply может ограничить объем временных файлов), каждый со своими специфическими компромиссами. Конечно, такие проблемы возникают и в других языках, например, AspectJ может сделать Java весьма невероятно неясной.
- person Donal Fellows; 25.05.2011
Вы можете использовать команду rename для переименования существующего процесса:
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]
}
На самом деле это немного сложнее, чем оригинал Python, поскольку использование uplevel эффективно полностью исключает оболочку из стека вызовов - что, по общему признанию, может не понадобиться в вашем случае, но приятно иметь возможность это сделать .
error "arg1 is bad" может быть более прямым переводом вместо отдельных команд puts и exit.
- person glenn jackman; 24.05.2011
tailcall, что позволяет вам переписать последнюю строку как tailcall __orig_N $arg1 $arg2, чтобы получить еще более полное исключение из стека вызовов, и очень важно не переименовывать процедуры через границы пространства имен или изменения области разрешения. (Боже, неужели я ненавижу эту особенность!)
- person Donal Fellows; 24.05.2011
rename ::ns1::foo ::ns2::bar. Но не делайте этого.
- person Donal Fellows; 25.05.2011
exit в целом эквивалентен tcl error. В этом конкретном случае error может лучше соответствовать семантике вашего примера Python.
- person Eric Melski; 27.05.2011
