Return to utf-8.fs CVS log | Up to [gforth] / gforth |
version 1.14, 2005/01/10 10:30:55 | version 1.15, 2005/01/12 21:21:53 |
---|---|
Line 140 $80 Value max-single-byte | Line 140 $80 Value max-single-byte |
['] -u8trailing-garbage is -trailing-garbage | ['] -u8trailing-garbage is -trailing-garbage |
; | ; |
: utf-8-cold ( -- ) | |
s" LANG" getenv s" .UTF-8" search nip nip | |
IF set-encoding-utf-8 ELSE set-encoding-fixed-width THEN ; | |
' utf-8-cold INIT8 chained | |
utf-8-cold |