Posted to tcl by venks at Sun Mar 15 18:10:38 GMT 2015view raw

  1. proc dict_print_fo {fo pfx d} {
  2. if {[catch {set keys [dict keys $d]}]} {
  3. return 1
  4. } else {
  5. foreach key $keys {
  6. if {[dict_print_fo $fo $pfx.$key [set val [dict get $d $key]]]} {
  7. puts $fo "$pfx.$key=$val"
  8. }
  9. }
  10. return 0
  11. }
  12. }
  13.  
  14. proc dict_print {fn d prefix} {
  15. set fo [open $fn w]
  16. dict_print_fo $fo $prefix $d
  17. close $fo
  18. }
  19.