blob: ce48f7969d575fe2fdae619b13c82bfe77d17fc9 (
plain)
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]"
}
}
}
|