version 1.15, 2005/01/12 21:21:53
|
version 1.16, 2005/01/13 21:26:46
|
Line 141 $80 Value max-single-byte
|
Line 141 $80 Value max-single-byte
|
; |
; |
|
|
: utf-8-cold ( -- ) |
: utf-8-cold ( -- ) |
s" LANG" getenv s" .UTF-8" search nip nip |
s" LC_ALL" getenv 2dup d0= IF 2drop |
|
s" LC_CTYPE" getenv 2dup d0= IF 2drop |
|
s" LANG" getenv 2dup d0= IF 2drop |
|
s" C" THEN THEN THEN |
|
s" UTF-8" search nip nip |
IF set-encoding-utf-8 ELSE set-encoding-fixed-width THEN ; |
IF set-encoding-utf-8 ELSE set-encoding-fixed-width THEN ; |
|
|
' utf-8-cold INIT8 chained |
' utf-8-cold INIT8 chained |