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.40, 2009/12/31 15:32:35
Line 1	Line 1
\ UTF-8 handling 12dec04py	\ UTF-8 handling 12dec04py

\ Copyright (C) 2004,2005,2006,2007,2008 Free Software Foundation, Inc.	\ Copyright (C) 2004,2005,2006,2007,2008,2009 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

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 ( -- )