Return to utf-8.fs CVS log | Up to [gforth] / gforth |
version 1.20, 2006/02/19 22:15:05 | version 1.21, 2006/02/19 22:35:40 |
---|---|
Line 128 $80 Value max-single-byte | Line 128 $80 Value max-single-byte |
nip nip over - | nip nip over - |
then ; | then ; |
[IFDEF] wcwidth | |
: u8width ( xcaddr u -- n ) | : u8width ( xcaddr u -- n ) |
0 rot rot over + swap ?DO | 0 rot rot over + swap ?DO |
I xc@+ swap >r wcwidth + | I xc@+ swap >r wcwidth + |
r> I - +LOOP ; | r> I - +LOOP ; |
[THEN] | |
: set-encoding-utf-8 ( -- ) | : set-encoding-utf-8 ( -- ) |
['] u8emit is xemit | ['] u8emit is xemit |