Tcl Source Code

In the following script, a character is unsuccessfully converted to cesu-8 and back again:

set char \u80
set encoded [encoding convertto cesu-8 $char]
set decoded [encoding convertfrom cesu-8 $encoded]
if {$decoded ne $char} {
	scan $char %c ord1
	scan $decoded %c ord2
	puts [list fail $ord1 $ord2]

}

output:

fail 128 224