Re: Decoding CJK characters to unicode in Tcl

From: "suchenwi" <richard.suchenwirth-bauersachs@xxxxxxxxxxx>
Date: 14 Mar 2007 10:55:46 -0700

Tcl natively uses Unicode for (almost) all strings.
Does this example from an interactive wish help?

proc u2x str {
set res {}
foreach c [split $str ""] {
scan $c %c i
append res [expr {$i>127? "\\u[format %04.4x $i]" : $c}]
}
set res
}
166 % u2x "太酷 - very cool"
\u592a \u9177 - very cool

.

Follow-Ups:
- Re: Decoding CJK characters to unicode in Tcl
  - From: jhe618

References:
- Decoding CJK characters to unicode in Tcl
  - From: jhe618

Prev by Date: Hang on application close when using 'socket -server ...'
Next by Date: Re: OSX like "dock" menu
Previous by thread: Decoding CJK characters to unicode in Tcl
Next by thread: Re: Decoding CJK characters to unicode in Tcl
Index(es):
- Date
- Thread

Relevant Pages

Need a reliable way to determine the line of code being executed
... I was wondering if anyone knows of a reliable method of obtaining the line of code being executed; specifically, I want to see how a proc was called from within that proc. ... set res [MyProc $myVar] ...
(comp.lang.tcl)
Re: xor two strings
... how would I translate the following piece of C-Code into tcl? ... unsigned char str3; ... Strings are all ascii if that matters. ...
(comp.lang.tcl)
Re: Recursive Proc - wish I knew what was going on?
... Man proc says: ... Now to end a proc body with "return $res", ... In older Tcl versions around 8.3, "set res" was indeed even faster ... John Maynard war unser Steuermann. ...
(comp.lang.tcl)
Re: Logic to clear tags within canvas
... You also have to iterate over all tags of all items, ... foreach item { ... proc ladd { ...
(comp.lang.tcl)
Re: How to interpet Tcl/Tk stack information.
... Unluckily this proc is called by a big program. ... proc format_vis {num ticksfmt} { ... set res "0.0" ... set res [format $ticksfmt $num] ...
(comp.lang.tcl)