Posted to tcl by hypnotoad at Fri Sep 21 18:45:56 GMT 2018view pretty
% 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
}