(Tcl) Serialize / Deserialize Hashtable to/from XML

Demonstrates how to seralize / deserialize a Hashtable to/from XML.

Note: This example requires Chilkat v9.5.0.64 or later.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# Note: This example requires Chilkat v9.5.0.64 or later.

# Add some entries to a hashtable.
set hashTab [new_CkHashtable]

CkHashtable_AddStr $hashTab "aaa" "111"
CkHashtable_AddStr $hashTab "bbb" "222"
CkHashtable_AddStr $hashTab "ccc" "333"

# Serialize to XML
set sb [new_CkStringBuilder]

CkHashtable_ToXmlSb $hashTab $sb
puts [CkStringBuilder_getAsString $sb]
puts "---"

# The output is as follows.  Each hash table entry
# is contained in an "e" node.  The entry's key
# is in the "k" node, and the value in the "v" node.

# <?xml version="1.0" encoding="utf8-8"?>
# <hashtable>
# <e><k>aaa</k><v>111</v></e>
# <e><k>bbb</k><v>222</v></e>
# <e><k>ccc</k><v>333</v></e>
# </hashtable>
# 

# Now load (deserialize) into a new hash table.
set hashTab2 [new_CkHashtable]

CkHashtable_AddFromXmlSb $hashTab2 $sb

# Get the hash table keys, and lookup each (to show 
# that the hash table was correctly deserialized).
# The GetKeys method can return the keys in any order.
set sTable [new_CkStringTable]

CkHashtable_GetKeys $hashTab2 $sTable

set i 0
set numKeys [CkStringTable_get_Count $sTable]
while {$i < $numKeys} {
    set key [CkStringTable_stringAt $sTable $i]
    puts "$key: [CkHashtable_lookupStr $hashTab2 $key]"
    set i [expr $i + 1]
}

delete_CkHashtable $hashTab
delete_CkStringBuilder $sb
delete_CkHashtable $hashTab2
delete_CkStringTable $sTable