util_unset_local_vars

one of the documented procedures in this installation of the ACS
Usage:
util_unset_local_vars   args
What it does:
this procedure will unset all the local variables in the callers environment except the variables specified in the args
Defined 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"
    }


philg@mit.edu