version 1.29, 2007/09/15 20:11:44
|
version 1.30, 2007/09/15 20:51:37
|
Line 318 here wc-table - Constant #wc-table
|
Line 318 here wc-table - Constant #wc-table
|
s" UTF-8" search nip nip |
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 ; |
|
|
|
environment-wordlist set-current |
|
: xchar-encoding |
|
max-single-byte $80 = IF s" UTF-8" ELSE s" ISO-LATIN-1" THEN ; |
|
forth definitions |
|
|
:noname ( -- ) |
:noname ( -- ) |
defers 'cold |
defers 'cold |
utf-8-cold |
utf-8-cold |