escape-control-chars
escape-control-chars: func [
"Convert all control chars in string to \uxxxx format"
s [any-string!] /local ctrl-ch c
][
ctrl-ch: charset [#"^@" - #"^_"]
parse/all s [
any [
mark: copy c ctrl-ch (
change/part mark encode-control-char to char! c 1
) 5 skip
| skip
]
]
s
]