Posted to tcl by hypnotoad at Fri Sep 21 18:45:56 GMT 2018view raw

  1. % exit
  2. basra:dicttool seandeelywoods$ tclsh
  3. % source dicttool.tcl
  4. % package require dicttool 1.2
  5. 1.2
  6. % ::dicttool::dictmerge t {
  7. a {
  8. aa 1
  9. ab 2
  10. }
  11. b {
  12. ba 3
  13. bb 4
  14. }
  15. c {
  16. ca 5
  17. ca 6
  18. }
  19. }
  20. . 1 a {
  21. aa 1
  22. ab 2
  23. } b {
  24. ba 3
  25. bb 4
  26. } c {
  27. ca 5
  28. ca 6
  29. }
  30. % dicttool::dictset t b bc 5
  31. . 1 a {
  32. aa 1
  33. ab 2
  34. } b {ba 3 bb 4 . 1 bc 5} c {
  35. ca 5
  36. ca 6
  37. }
  38. % dicttool::dictset t b {}
  39. . 1 a {
  40. aa 1
  41. ab 2
  42. } b {. 1 ba 3 bb 4 bc 5} c {
  43. ca 5
  44. ca 6
  45. }
  46. % dict set t b {}
  47. . 1 a {
  48. aa 1
  49. ab 2
  50. } b {} c {
  51. ca 5
  52. ca 6
  53. }
  54. % dicttool::dictset t b {y Y z Z}
  55. . 1 a {
  56. aa 1
  57. ab 2
  58. } b {y Y z Z} c {
  59. ca 5
  60. ca 6
  61. }
  62. % dicttool::dictset t b {x x}
  63. . 1 a {
  64. aa 1
  65. ab 2
  66. } b {x x} c {
  67. ca 5
  68. ca 6
  69. }
  70. % dicttool::dictset t b {y Y z Z}
  71. . 1 a {
  72. aa 1
  73. ab 2
  74. } b {y Y z Z} c {
  75. ca 5
  76. ca 6
  77. }
  78. % dicttool::dictset t b x x
  79. . 1 a {
  80. aa 1
  81. ab 2
  82. } b {y Y z Z . 1 x x} c {
  83. ca 5
  84. ca 6
  85. }
  86. % dicttool::dictset t b {y Y z Z}
  87. . 1 a {
  88. aa 1
  89. ab 2
  90. } b {. 1 y Y z Z x x} c {
  91. ca 5
  92. ca 6
  93. }
  94. % dict unset t b z
  95. . 1 a {
  96. aa 1
  97. ab 2
  98. } b {. 1 y Y x x} c {
  99. ca 5
  100. ca 6
  101. }
  102. % dicttool::dictset t b z {bza 8 bzb 9}
  103. . 1 a {
  104. aa 1
  105. ab 2
  106. } b {. 1 y Y x x z {bza 8 bzb 9}} c {
  107. ca 5
  108. ca 6
  109. }
  110. % dicttool::dictset t b z {A&C} [list [dict get $t a] [dict get $t c]]
  111. . 1 a {
  112. aa 1
  113. ab 2
  114. } b {. 1 y Y x x z {bza 8 bzb 9 . 1 A&C {{
  115. aa 1
  116. ab 2
  117. } {
  118. ca 5
  119. ca 6
  120. }}}} c {
  121. ca 5
  122. ca 6
  123. }
  124.