(Tcl) Replacment for Deprecated Crypt2 Compress Functions

The Chilkat Crypt2 compression functions are deprecated and will be removed. This example shows how to duplicate the functionality using the Chilkat Compression class.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set crypt [new_CkCrypt2]

# Create data to be compressed.
set sb [new_CkStringBuilder]

set i 0
while {$i < 25} {
    CkStringBuilder_Append $sb "Hello World, this is a test.\r\n"
    set i [expr $i + 1]
}

# Bzip2 compress the utf-8 byte representation of the string and return the compressed data as base64.
CkCrypt2_put_Charset $crypt "utf-8"
CkCrypt2_put_EncodingMode $crypt "base64"
set compressedStr [CkCrypt2_compressStringENC $crypt [CkStringBuilder_getAsString $sb]]

puts "$compressedStr"

# Result: 4aeUs+4CAABCWmgzMUFZJlNZZ6znBgAAfNeAABJABQBAAIAmZJwAIABwUNNMAAUqoekYjMp4ixF1FlFxF8i5i1FvFwizF9iwi9RdxaizF7RZi6i0ixF3Fui/i7kinChIM9ZzgwA=

# The result contains an 8-byte header composed of a 4-byte magic number (0xB394A7E1) and a 4-byte length.
# Do the following to BZip2 decompress using Chilkat Compression
set bd [new_CkBinData]

CkBinData_AppendEncoded $bd $compressedStr "base64"

# Remove the 8-byte header.
CkBinData_RemoveChunk $bd 0 8

# Decompress
set compress [new_CkCompression]

CkCompression_put_Algorithm $compress "bzip2"
CkCompression_DecompressBd $compress $bd

# Get the decompressed string.
set decompressedStr [CkBinData_getString $bd "utf-8"]
puts "$decompressedStr"

delete_CkCrypt2 $crypt
delete_CkStringBuilder $sb
delete_CkBinData $bd
delete_CkCompression $compress