(Tcl) Append Big-Endian or Little-Endian Integers

Demonstrates how to append integers in big-endian or little-endian byte order to a BinData.

Note: This example requires Chilkat v9.5.0.77 or greater.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set bd [new_CkBinData]

# The hex value of decimal 123456789 is 0x075BCD15
set x 123456789

# Appending little-endian causes bytes to be
# appended in the order 0x15, 0xCD, 0x5B, 0x07
set littleEndian 1
set success [CkBinData_AppendInt4 $bd $x $littleEndian]

puts [CkBinData_getEncoded $bd hex]
# Output is: 15CD5B07

# Now append the same integer in big-endian byte order.
# Appending bit-endian causes bytes to be
# appended in the order 0x07, 0x5B, 0xCD, 0x15
set littleEndian 0
CkBinData_AppendInt4 $bd $x $littleEndian

puts [CkBinData_getEncoded $bd hex]
# bd now contains: 15CD5B07075BCD15

# -------------------------------------------
# Now do the same thing with 16-bit integers
CkBinData_Clear $bd

# 1234 decimal = 0x04D2 hex.
set x 1234

set littleEndian 1
CkBinData_AppendInt2 $bd $x $littleEndian

puts [CkBinData_getEncoded $bd hex]
# Output is: D204

set littleEndian 0
CkBinData_AppendInt2 $bd $x $littleEndian

puts [CkBinData_getEncoded $bd hex]
# Output is now: D20404D2

delete_CkBinData $bd