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' ) |