gforth/utf-8.fs - diff

Return to utf-8.fs CVS log

Up to [gforth] / gforth

version 1.37, 2008/11/23 21:09:55	version 1.39, 2009/05/11 08:07:44
Line 119 Defer check-xy ' noop IS check-xy	Line 119 Defer check-xy ' noop IS check-xy
dup $f8 u< if drop 4 exit endif	dup $f8 u< if drop 4 exit endif
dup $fc u< if drop 5 exit endif	dup $fc u< if drop 5 exit endif
dup $fe u< if drop 6 exit endif	dup $fe u< if drop 6 exit endif
UTF-8-err throw ;	dup $ff u< if drop 7 exit endif
	drop 8 ;

: -u8trailing-garbage ( addr u1 -- addr u2 )	: -u8trailing-garbage ( addr u1 -- addr u2 )
2dup + dup u8<< ( addr u1 end1 end2 )	2dup + dup u8<< ( addr u1 end1 end2 )
Line 325 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 ( -- )