gforth/utf-8.fs - diff

Return to utf-8.fs CVS log

Up to [gforth] / gforth

version 1.7, 2004/12/28 21:09:47	version 1.8, 2004/12/29 14:15:12
Line 45 s" malformed UTF-8 character" exception	Line 45 s" malformed UTF-8 character" exception
REPEAT $7F xor 2* or r>	REPEAT $7F xor 2* or r>
BEGIN over $80 u>= WHILE tuck c! 1+ REPEAT nip ;	BEGIN over $80 u>= WHILE tuck c! 1+ REPEAT nip ;

	\ plug-in so that char and '<char> work for UTF-8

	:noname ( addr u -- char addr' u' )
	dup 1 u<= IF defers char@ EXIT THEN
	over + >r u8@+ swap r> over - ; IS char@

\ scan to next/previous character	\ scan to next/previous character

: u8>> ( u8addr -- u8addr' )	: u8>> ( u8addr -- u8addr' )