TCL でのアップレベルの使用を理解するのに問題があります。Brent Welch の TCL と Tk での実用的なプログラミングを読んでいますが、理解できないアップレベルの例があります。ここにあります:
proc lassign {valueList args} {
if {[llength $args] == 0} {
error "wrong # args:lassign list varname ?varname...?"
}
if {[llength $valueList] == 0} {
#Ensure one trip through the foreach loop
set valueList [List {}]
}
uplevel 1 [list foreach $args $valueList {break}]
return [lrange $valueList [llength $args] end]
}
誰か説明してくれませんか?本の説明は私を十分に助けません:(