(Tcl) Compress XML Tree

Demonstrates how to compress and restore the entire subtree rooted at an XML node.

The input XML, available at http://www.chilkatsoft.com/data/compress2.xml, is this:

<root>
    <lazydog>
        <fox>The quick brown fox jumps over the lazy dog</fox>
    </lazydog>
    <fox>The quick brown fox jumps over the lazy dog</fox>
    <child>
        <grandchild>The quick brown fox jumps over the lazy dog</grandchild>
    </child>
    <child>
        <grandchild>The quick brown fox jumps over the lazy dog</grandchild>
    </child>
</root>

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set xml [new_CkXml]

# The sample input XML is available at http://www.chilkatsoft.com/data/compress2.xml
set success [CkXml_LoadXmlFile $xml "compress2.xml"]
if {$success != 1} then {
    puts [CkXml_lastErrorText $xml]
    delete_CkXml $xml
    exit
}

# Zip compress the root node's entire subtree:
set success [CkXml_ZipTree $xml]

# Examine the new XML document:
puts [CkXml_getXml $xml]

# This is the XML w/ the compressed subtree in Base64 encoded format:

# <root><![CDATA[4+WyKcrPL7Hj5VIAApucxKrKlPx0KBcslJZfYReSkapQWJqZnK2QVJRfnqcAFFPIKs0tKFbIL0st
# UigBSoN0KgC12uiDNECN00c1jyKzkjMyc1KQHZZelJiXAhElyUwkfTBnovDoYZGNPjTUAQ==
# ]]></root>

# Now uncompress and show that the original subtree was restored:
set success [CkXml_UnzipTree $xml]
puts [CkXml_getXml $xml]

delete_CkXml $xml