#---------------
# convert unicode character to ascii escape sequence
# source: http://wiki.tcl.tk/515
#---------------
proc u2a {s} {
    set res ""
    foreach i [split $s ""] {
        scan $i %c c
        if {$c<128} {append res $i} else {append res [format %04.4X $c]}
    }
    return $res
} ;#RS


#~~~~~~~~~~~~~~~
# convert unicode to character
# U+3405
#~~~~~~~~~~~~~~~
proc unicode2char { code } {
        eval set str "\\u[string map "U+ {}" $code]"
}

proc uni2char {code} {
        set val [scan $code "U+%x"]
        return [format %c $val]
}