(Tcl) Decode 2-digit Hex Escaped

Demonstrates how to replace escaped us-ascii chars such as \x7b and \x22 with the chars.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# We have the following string with some us-ascii chars escaped like this:
set s "\x7b\x22responseContext\x22:\x7b\x22"

# Note: The above escaping does not conform to any standard format (as far as I know).
# Chilkat does not have anything to decode from the above.
# However, we can 1st transform into a standard format, and then decode..

# JSON escapes chars outside us-ascii like this:  "Hello, \ud83d\ude03!"
# We can transform the above to this:  "\u007b\u0022responseContext\u0022:\u007b\u0022"
# And then decode..

set sb [new_CkStringBuilder]

CkStringBuilder_Append $sb $s
set numReplaced [CkStringBuilder_Replace $sb "\\x" "\\u00"]

# Now decode from "json" escapes
CkStringBuilder_Decode $sb "json" "utf-8"

# Show the decoded string
puts [CkStringBuilder_getAsString $sb]

# Here's the result: {"responseContext":{"

delete_CkStringBuilder $sb