version 1.21, 2006/02/19 22:35:40
|
version 1.22, 2006/02/20 08:22:28
|
Line 128 $80 Value max-single-byte
|
Line 128 $80 Value max-single-byte
|
nip nip over - |
nip nip over - |
then ; |
then ; |
|
|
[IFDEF] wcwidth |
[IFUNDEF] wcwidth |
|
: wcwidth abort ; |
|
[THEN] |
|
|
: 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 |