Lines Matching refs:var
295 proc addentry {cmd var val} {
297 _set ${epoch}-$cmd $var $val
300 proc delentry {cmd var} {
304 catch {_unset ${epoch}-$cmd $var}
309 proc getentry {cmd var} {
313 if {[catch {_set ${epoch}-$cmd $var} val]} {
382 foreach var [_names $old-*] {
383 set cmd [lindex [split $var -] 1]
384 _array reset $new-$cmd [_array get $var]
412 foreach var [_names $epoch-*] {
413 _unset $var
454 foreach var [info vars ${nsp}::*] {
455 set vname [namespace tail $var]
456 if {[array exists $var] == 0} {
457 append res [list ::variable $vname [set $var]] \n
460 append res [list ::array set $vname [array get $var]] \n
625 foreach {var val} $opts {
626 if {![string match "::*" $var]} {
627 set var ${cns}::$var
629 ttrace::addentry variable $var 1
638 set var [namespace tail $entry]
640 append res "::variable $var"
642 append res "\n::array set $var [list [array get $entry]]" \n