(Tcl) Decimal Integer List Encoding

The "decList" encoding was added in Chilkat v9.5.0.66 to encode and decode binary bytes from comma-separated decimal integers.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# Note: This example requires Chilkat v9.5.0.66 or greater.

set byteVals "84,104,101,32,116,114,117,101,32,115,105,103,110,32,111,102,32,105,110,116,101,108,108,105,103,101,110,99,101,32,105,115,32,110,111,116,32,107,110,111,119,108,101,100,103,101,32,98,117,116,32,105,109,97,103,105,110,97,116,105,111,110,46"

# Demonstrate encoding/decoding comma-separated decimal integrs to/from binary.
set binData [new_CkBinData]

CkBinData_AppendEncoded $binData $byteVals "decList"

# Examine the data in hex
puts "HEX: [CkBinData_getEncoded $binData hex]"

# Decode to a StringBuilder
set sb [new_CkStringBuilder]

CkStringBuilder_AppendBd $sb $binData "us-ascii" 0 0

# The bytes were actually the us-ascii char values for the string
# "The true sign of intelligence is not knowledge but imagination."
puts [CkStringBuilder_getAsString $sb]

# Now get the bytes in decimal list format again:
puts [CkBinData_getEncoded $binData decList]

# The output of this example is:
# HEX: 5468652074727565207369676E206F6620696E74656C6C6967656E6365206973206E6F74206B6E6F776C656467652062757420696D6167696E6174696F6E2E
# The true sign of intelligence is not knowledge but imagination.
# 84,104,101,32,116,114,117,101,32,115,105,103,110,32,111,102,32,105,110,116,101,108,108,105,103,101,110,99,101,32,105,115,32,110,111,116,32,107,110,111,119,108,101,100,103,101,32,98,117,116,32,105,109,97,103,105,110,97,116,105,111,110,46

delete_CkBinData $binData
delete_CkStringBuilder $sb