version 1.37, 2008/11/23 21:09:55
|
version 1.38, 2009/01/17 16:55:54
|
Line 119 Defer check-xy ' noop IS check-xy
|
Line 119 Defer check-xy ' noop IS check-xy
|
dup $f8 u< if drop 4 exit endif |
dup $f8 u< if drop 4 exit endif |
dup $fc u< if drop 5 exit endif |
dup $fc u< if drop 5 exit endif |
dup $fe u< if drop 6 exit endif |
dup $fe u< if drop 6 exit endif |
UTF-8-err throw ; |
dup $ff u< if drop 7 exit endif |
|
drop 8 ; |
|
|
: -u8trailing-garbage ( addr u1 -- addr u2 ) |
: -u8trailing-garbage ( addr u1 -- addr u2 ) |
2dup + dup u8<< ( addr u1 end1 end2 ) |
2dup + dup u8<< ( addr u1 end1 end2 ) |