![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to utf-8.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
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 |