Return to utf-8.fs CVS log | Up to [gforth] / gforth |
version 1.10, 2005/01/04 22:09:04 | version 1.12, 2005/01/05 16:24:33 |
---|---|
Line 62 $80 Value maxascii | Line 62 $80 Value maxascii |
\ scan to next/previous character | \ scan to next/previous character |
: u8>> ( u8addr -- u8addr' ) | : u8>> ( u8addr -- u8addr' ) u8@+ drop ; |
BEGIN count $C0 and maxascii <> UNTIL ; | |
: u8<< ( u8addr -- u8addr' ) | : u8<< ( u8addr -- u8addr' ) |
BEGIN 1- dup c@ $C0 and maxascii <> UNTIL ; | BEGIN 1- dup c@ $C0 and maxascii <> UNTIL ; |