util_unset_local_vars argsWhat it does:
this procedure will unset all the local variables in the callers environment except the variables specified in the argsDefined in: /web/philip/tcl/user-group-defs.tcl
Source code:
set local_vars_list [uplevel {info locals}] foreach arg $args { set index [lsearch -exact $local_vars_list $arg] if {$index>=0} { set local_vars_list [lreplace $local_vars_list $index $index] } } foreach var $local_vars_list { uplevel "unset $var" }