gforth/utf-8.fs - diff

Return to utf-8.fs CVS log

Up to [gforth] / gforth

version 1.38, 2009/01/17 16:55:54	version 1.39, 2009/05/11 08:07:44
Line 326 environment-wordlist set-current	Line 326 environment-wordlist set-current
\G ``ISO-LATIN-1'' or ``UTF-8'', with the exception of ``ASCII'', where	\G ``ISO-LATIN-1'' or ``UTF-8'', with the exception of ``ASCII'', where
\G we prefer the alias ``ASCII''.	\G we prefer the alias ``ASCII''.
max-single-byte $80 = IF s" UTF-8" ELSE s" ISO-LATIN-1" THEN ;	max-single-byte $80 = IF s" UTF-8" ELSE s" ISO-LATIN-1" THEN ;
	: max-xchar ( -- xchar )
	max-single-byte $80 = IF $7FFFFFFF ELSE $FF THEN ;
	' noop Alias X:xchar
forth definitions	forth definitions

:noname ( -- )	:noname ( -- )