Tcl Source Code

View Ticket
Login
Ticket UUID: 048dd20b4171c8da89d94a126e3f98c83178a33d
Title: cesu-8 encoding fails on \u80
Type: Bug Version: 8.7a5
Submitter: pooryorick Created on: 2021-06-19 09:02:13
Subsystem: 44. UTF-8 Strings Assigned To: jan.nijtmans
Priority: 5 Medium Severity: Important
Status: Closed Last Modified: 2021-06-21 09:31:10
Resolution: Fixed Closed By: jan.nijtmans
    Closed on: 2021-06-21 09:31:10
Description: (text/x-fossil-wiki)
In the following script, a character is unsuccessfully converted to cesu-8 and
back again:

<code><verbatim>
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]

}
</verbatim></code>

<b>output:</b>

<verbatim>
fail 128 224
</verbatim>
User Comments: jan.nijtmans added on 2021-06-21 09:31:10: (text/x-fossil-wiki)
Fixed [0c93c6f969c2bc02|here]

Thanks for the report!