Posted to tcl by hypnotoad at Wed Oct 03 14:29:49 GMT 2018view raw
- % package require dicttool
- 1.2
- % dicttool::dictset myvar foo bar baz {Value is bing}
- % set myvar
- . {} foo {. {} bar {. {} baz {Value is bing}}}
- % dicttool::dictset othervar foo bar doodle has stuff {The value is not a dict}
- . {} foo {. {} bar {. {} doodle {. {} has {. {} stuff {The value is not a dict}}}}}
- % dicttool::merge $myvar $othervar
- . {} foo {. {} bar {. {} baz {Value is bing} doodle {. {} has {. {} stuff {The value is not a dict}}}}}
- % dicttool::print [dicttool::merge $myvar $othervar]
- foo {
- bar {
- baz {Value is bing}
- doodle {
- has {
- stuff {The value is not a dict}
- }
- }
- }
- }