contrib/bluegnu2.0.3/testsuite/T/env.exp


1
2
3
4
5
6
7
8
9
10
11
12


uplevel #0 {
    foreach var [lsort [info globals]] {
	if {[array exists $var]} {
	    foreach index [lsort [array names $var]] {
		puts "${var}($index)=[set ${var}($index)]"
	    }
	} else {
	    puts "$var=[set $var]"
	}
    }
}