Go to the source code of this file.
Modules | |
module | genStubs |
Functions/Subroutines | |
ret | lassign (type valueList, type args) |
ret lassign | ( | type | valueList, | |
type | args | |||
) |
Definition at line 885 of file genStubs.tcl.
References error().
00885 { 00886 if {[llength $args] == 0} { 00887 error "wrong # args: lassign list varname ?varname..?" 00888 } 00889 00890 uplevel [list foreach $args $valueList {break}] 00891 return [lrange $valueList [llength $args] end] 00892 }