Posted to tcl by miguel at Sun May 25 22:11:01 GMT 2008view raw
- mig@cpq:/home/CVS/tcl_SF_clean/unix$ tclsh
- % set body {
- set system [encoding system]
- set path [encoding dirs]
- encoding system shiftjis ;# incr ref count
- encoding dirs [list [pwd]]
- set x [encoding convertto shiftjis \u4e4e] ;# old one found
- encoding system identity
- lappend x [catch {encoding convertto shiftjis \u4e4e} msg] $msg
- encoding system identity
- encoding dirs $path
- encoding system $system
- set x
- }
- set system [encoding system]
- set path [encoding dirs]
- encoding system shiftjis ;# incr ref count
- encoding dirs [list [pwd]]
- set x [encoding convertto shiftjis \u4e4e] ;# old one found
- encoding system identity
- lappend x [catch {encoding convertto shiftjis \u4e4e} msg] $msg
- encoding system identity
- encoding dirs $path
- encoding system $system
- set x
- % eval $body
- Á 1 {unknown encoding "shiftjis"}
- % proc foo {} $body
- % foo
- Á 0 Á