tcl/tk参考——控制结构return
名称
return - 从进程中返回或者返回一个值语法
return ? result?return ? -code code? ? result?
return ? option value ...? ? result?
描述
最简单的用法， return命令在程序体内直接使用而不带任何可选项，这样将会使过程立刻返回。如果有 result变元，过程就返回 result的值，如果 result没有指定就返回一个空字符串。return命令可以在source命令中执行，当source运行一个脚本，return命令可以使脚本的运行立刻停止，result将作为source的结果返回。
异常返回代码
对于一个过程的结果，可以通过 return的-code可选项来返回额外的代码，通常当 -code不指定时过程正常返回，但是当 -code使用时就产生一个异常， code可以是以下的值：- ok (or 0)
- 一般返回：就像这个可选项被忽略掉的效果相同，过程的返回代码为0（TCL_OK）。
- error (1)
- 错误返回：过程的返回代码为1（TCL_ERROR），返回的方式就像是命令 error result相同。
- return (2)
- 过程返回代码为2（TCL_RETURN），返回的方式就像是命令 return（没有变元）。
- break (3)
- 过程返回代码为3（TCL_BREAK），返回的方式就像是命令 break。
- continue (4)
- 过程返回代码为4（TCL_CONTINUE），返回的方式就像是命令 continue。
- value
- value必须是一个整数，作为返回代码返回。
当一个过程想指出它接收到了一个错误的变元，使用return -code error加上result去设置一个合适的错误消息，其它return -code的用法一般都是执行一个新的控制结构。
return -code命令可以在source命令中执行，当source运行一个脚本，return -code命令可以使脚本的运行立刻停止，return -code中的code将作为source的结果返回。
返回可选项
除了作为结果和返回代码，在Tcl中运行一个命令也可以返回一个可选项，一般的用法，所有的以下列出的 option value都可以被 catch命令捕获到。上文中所述的-code可选项会被Tcl特殊处理，下面的其它的可选项也会被Tcl特殊处理。它们是：
返回代码处理机制
返回代码使用Tcl去控制程序流，一个Tcl脚本就是一系列的Tcl命令，所以命令返回 TCL_OK，运行会继续进行到脚本的下一个命令，如果异常返回代码不是 TCL_OK，那么就会中断继续进行到脚本下一个命令的动作，脚本会终止，并且把返回的异常信息作为返回值返回，如果出现了 break、 continue和 return就会导致脚本没有执行完所有的命令就直接返回了。一些Tcl的内建命令会对这些异常进行特殊处理，例如，在循环中， while、for和foreach这三个命令在循环体重运行命令，如果在循环体中出现了返回代码为TCL_BREAK或TCL_CONTINUE，循环命令将会重新执行，就相当于一个break或continue命令在循环中的作用。
示例
一个简单的例子，在一个过程中使用 return命令来中断过程体：proc printOneLine {} {
puts "line 1" ;#这行将会打印
return
puts "line 2" ;#这行不会打印
}
使用return来返回值：
proc returnX {} {return X}
puts [returnX] ;#打印"X"
使用return -code error来汇报错误变元：
proc factorial {n} {
if {![string is integer $n] || ($n < 0)} {
return -code error /
"expected non-negative integer,/
but got /"$n/""
}
if {$n < 2} {
return 1
}
set m [expr {$n - 1}]
set code [catch {factorial $m} factor]
if {$code != 0} {
return -code $code $factor
}
set product [expr {$n * $factor}]
if {$product < 0} {
return -code error /
"overflow computing factorial of $n"
}
return $product
}
代替break命令：
proc myBreak {} {
return -code break
}
使用-level 0可选项，返回自己本身，可以替代break命令：
interp alias {} Break {} return -level 0 -code break
使用catch命令来捕获return -options返回的错误：
proc doSomething {} {
set resource [allocate]
catch {
# Long script of operations
# that might raise an error
} result options
deallocate $resource
return -options $options $result
}
使用return可选项来创建一个过程替代return命令本身：
proc myReturn {args} {
set result ""
if {[llength $args] % 2} {
set result [lindex $args end]
set args [lrange $args 0 end-1]
}
set options [dict merge {-level 1} $args]
dict incr options -level
return -options $options $result
}