Posted to tcl by kbk at Mon Jun 08 03:05:19 GMT 2009view pretty

foreach var [info vars] {
    if {[array exists $var]} {
        foreach {key value} [array get $var] {
            puts [list set ${var}($key) $value]
        }
    } else {
        puts [list set $var [set $var]]
    }
}