предположим, что у меня есть proc foo. Код процедуры:
proc foo { argy } {
if { $argy == 1 } { exit 1 }
}
Я хочу вызвать foo, но вызывающий код должен обходить/игнорировать команду выхода, а не выходить из TCL. То есть: этот код:
foo 1
puts "bar"
Должен дать:
>bar
Есть идеи?
Спасибо.
Используйте rename, чтобы переопределить поведение по умолчанию.
rename exit _exit
proc exit {{status ""}} {}
Сохраните приведенный выше код до первого появления команды выхода в вашем коде. то есть даже в начале вашего кода, так что exit будет заменен этой фиктивной процедурой exit.
exit сделать return?
- person Donal Fellows; 18.11.2015
exit, я сделал пустое определение, тем самым лишив его вообще никакого смысла. Возможно, при необходимости можно добавить return.
- person Dinesh; 18.11.2015
exit будет return -code return, поэтому она будет вести себя так же, как команда return.
- person glenn jackman; 18.11.2015
