gforth/utf-8.fs - diff

Return to utf-8.fs CVS log

Up to [gforth] / gforth

version 1.25, 2006/12/31 13:39:14	version 1.26, 2007/05/05 17:26:02
Line 91 $80 Value max-single-byte	Line 91 $80 Value max-single-byte

\ utf-8 stuff for xchars	\ utf-8 stuff for xchars

: +u8/string ( c-addr1 u1 -- c-addr2 u2 )	: u8string+ ( xcaddr u -- xcaddr u' )
over dup u8>> swap - /string ;	over + u8>> over - ;
	: u8string- ( xcaddr u -- xcaddr u' )
	over + u8<< over - ;

: -u8/string ( c-addr1 u1 -- c-addr2 u2 )	: +u8string ( xc-addr1 u1 -- xc-addr2 u2 )
	over dup u8>> swap - /string ;
	: -u8string ( xc-addr1 u1 -- xc-addr2 u2 )
over dup u8<< swap - /string ;	over dup u8<< swap - /string ;

: u8@ ( c-addr -- u )	: u8@ ( c-addr -- u )
Line 287 here wc-table - Constant #wc-table	Line 291 here wc-table - Constant #wc-table
['] u8key is xkey	['] u8key is xkey
['] u8>> is xchar+	['] u8>> is xchar+
['] u8<< is xchar-	['] u8<< is xchar-
['] +u8/string is +x/string	[ [IFDEF] xstring+ ]
['] -u8/string is -x/string	['] u8string+ is xstring+
	['] u8string- is xstring-
	['] +u8string is +xstring
	['] -u8string is -xstring
	[ [THEN] ]
['] u8@ is xc@	['] u8@ is xc@
['] u8!+? is xc!+?	['] u8!+? is xc!+?
['] u8@+ is xc@+	['] u8@+ is xc@+