version 1.26, 2007/05/05 17:26:02
|
version 1.27, 2007/06/30 23:00:14
|
Line 71 $80 Value max-single-byte
|
Line 71 $80 Value max-single-byte
|
|
|
\ utf key and emit |
\ utf key and emit |
|
|
|
Defer check-xy ' noop IS check-xy |
|
|
: u8key ( -- u ) |
: u8key ( -- u ) |
defers key dup max-single-byte u< ?EXIT \ special case ASCII |
defers key dup max-single-byte u< ?EXIT \ special case ASCII |
|
dup $FF = ?EXIT \ special resize character |
dup $C2 u< IF UTF-8-err throw THEN \ malformed character |
dup $C2 u< IF UTF-8-err throw THEN \ malformed character |
$7F and $40 >r |
$7F and $40 >r |
BEGIN dup r@ and WHILE r@ xor |
BEGIN dup r@ and WHILE r@ xor |