Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/misc/volume26/tclx/part01/extended/tclsrc/asgnfields.tcl

Text File | 1991-11-19 | 195 b | 9 lines

#@package: assign_fields assign_fields

proc assign_fields {list args} {
    set listIndex -1
    foreach varName $args {
    uplevel 1 "set $varName [list [lindex $list [incr listIndex]]]"
    }
}