Posted to tcl by evilotto at Thu Jul 03 17:14:29 GMT 2014view raw
- proc dict_explode {dictVal {prefix {}} {level 1}} {
- if {$prefix == ""} {error "prefix must be specified"}
- dict for {k v} $dictVal {
- uplevel $level [list set ${prefix}${k} $v]
- if {[llength $v] % 2 == 0} {
- dict_explode $v ${prefix}${k}. [expr {$level+1}]
- }
- }
- }