util_unset_local_vars

util_unset_local_vars   args

this procedure will unset all the local variables in the callers environment except the variables specified in the args

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"
    }