Posted to tcl by hypnotoad at Fri Sep 21 18:45:56 GMT 2018view raw
- % exit
- basra:dicttool seandeelywoods$ tclsh
- % source dicttool.tcl
- % package require dicttool 1.2
- 1.2
- % ::dicttool::dictmerge t {
- a {
- aa 1
- ab 2
- }
- b {
- ba 3
- bb 4
- }
- c {
- ca 5
- ca 6
- }
- }
- . 1 a {
- aa 1
- ab 2
- } b {
- ba 3
- bb 4
- } c {
- ca 5
- ca 6
- }
- % dicttool::dictset t b bc 5
- . 1 a {
- aa 1
- ab 2
- } b {ba 3 bb 4 . 1 bc 5} c {
- ca 5
- ca 6
- }
- % dicttool::dictset t b {}
- . 1 a {
- aa 1
- ab 2
- } b {. 1 ba 3 bb 4 bc 5} c {
- ca 5
- ca 6
- }
- % dict set t b {}
- . 1 a {
- aa 1
- ab 2
- } b {} c {
- ca 5
- ca 6
- }
- % dicttool::dictset t b {y Y z Z}
- . 1 a {
- aa 1
- ab 2
- } b {y Y z Z} c {
- ca 5
- ca 6
- }
- % dicttool::dictset t b {x x}
- . 1 a {
- aa 1
- ab 2
- } b {x x} c {
- ca 5
- ca 6
- }
- % dicttool::dictset t b {y Y z Z}
- . 1 a {
- aa 1
- ab 2
- } b {y Y z Z} c {
- ca 5
- ca 6
- }
- % dicttool::dictset t b x x
- . 1 a {
- aa 1
- ab 2
- } b {y Y z Z . 1 x x} c {
- ca 5
- ca 6
- }
- % dicttool::dictset t b {y Y z Z}
- . 1 a {
- aa 1
- ab 2
- } b {. 1 y Y z Z x x} c {
- ca 5
- ca 6
- }
- % dict unset t b z
- . 1 a {
- aa 1
- ab 2
- } b {. 1 y Y x x} c {
- ca 5
- ca 6
- }
- % dicttool::dictset t b z {bza 8 bzb 9}
- . 1 a {
- aa 1
- ab 2
- } b {. 1 y Y x x z {bza 8 bzb 9}} c {
- ca 5
- ca 6
- }
- % dicttool::dictset t b z {A&C} [list [dict get $t a] [dict get $t c]]
- . 1 a {
- aa 1
- ab 2
- } b {. 1 y Y x x z {bza 8 bzb 9 . 1 A&C {{
- aa 1
- ab 2
- } {
- ca 5
- ca 6
- }}}} c {
- ca 5
- ca 6
- }