Posted to tcl by miguel at Sun May 25 22:11:01 GMT 2008view raw

  1. mig@cpq:/home/CVS/tcl_SF_clean/unix$ tclsh
  2. % set body {
  3. set system [encoding system]
  4. set path [encoding dirs]
  5. encoding system shiftjis ;# incr ref count
  6. encoding dirs [list [pwd]]
  7. set x [encoding convertto shiftjis \u4e4e] ;# old one found
  8. encoding system identity
  9. lappend x [catch {encoding convertto shiftjis \u4e4e} msg] $msg
  10. encoding system identity
  11. encoding dirs $path
  12. encoding system $system
  13. set x
  14. }
  15.  
  16. set system [encoding system]
  17. set path [encoding dirs]
  18. encoding system shiftjis ;# incr ref count
  19. encoding dirs [list [pwd]]
  20. set x [encoding convertto shiftjis \u4e4e] ;# old one found
  21. encoding system identity
  22. lappend x [catch {encoding convertto shiftjis \u4e4e} msg] $msg
  23. encoding system identity
  24. encoding dirs $path
  25. encoding system $system
  26. set x
  27.  
  28. % eval $body
  29. Á 1 {unknown encoding "shiftjis"}
  30. % proc foo {} $body
  31. % foo
  32. Á 0 Á