Powered by ViewCVS 1.0-dev
| version 1.26, Sat May 5 17:26:02 2007 UTC | version 1.27, Sat Jun 30 23:00:14 2007 UTC | ||
|---|---|---|---|
|
|
||
| \ 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 |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |