gforth/utf-8.fs - diff

Return to utf-8.fs CVS log

Up to [gforth] / gforth

version 1.18, 2005/12/31 15:46:10	version 1.20, 2006/02/19 22:15:05
Line 128 $80 Value max-single-byte	Line 128 $80 Value max-single-byte
nip nip over -	nip nip over -
then ;	then ;

	: u8width ( xcaddr u -- n )
	0 rot rot over + swap ?DO
	I xc@+ swap >r wcwidth +
	r> I - +LOOP ;

: set-encoding-utf-8 ( -- )	: set-encoding-utf-8 ( -- )
['] u8emit is xemit	['] u8emit is xemit
['] u8key is xkey	['] u8key is xkey
Line 139 $80 Value max-single-byte	Line 144 $80 Value max-single-byte
['] u8!+? is xc!+?	['] u8!+? is xc!+?
['] u8@+ is xc@+	['] u8@+ is xc@+
['] u8len is xc-size	['] u8len is xc-size
	[ [IFDEF] x-width ]
	['] u8width is x-width
	[ [THEN] ]
['] -u8trailing-garbage is -trailing-garbage	['] -u8trailing-garbage is -trailing-garbage
;	;