Posted to tcl by hypnotoad at Wed Oct 03 14:29:49 GMT 2018view pretty

% 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}
      }
    }
  }
}