Anonymous user
UTF-8 encode and decode: Difference between revisions
m
→Alternative Implementation
(another take in Tcl) |
|||
Line 409:
scan $codepoint %llx cp
if {$cp < 0x10000} {
set str [
set bytes [encoding convertto utf-8 $str] ;# encode
} else { ;# codepoints beyond the BMP need manual approach
| |||