![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to utf-8.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to utf-8.fs CVS log | Up to [gforth] / gforth |
| version 1.11, 2005/01/04 22:22:08 | 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' ) $80 >r | : u8>> ( u8addr -- u8addr' ) u8@+ drop ; |
| BEGIN count r> and maxascii <> $C0 >r UNTIL rdrop ; | |
| : u8<< ( u8addr -- u8addr' ) | : u8<< ( u8addr -- u8addr' ) |
| BEGIN 1- dup c@ $C0 and maxascii <> UNTIL ; | BEGIN 1- dup c@ $C0 and maxascii <> UNTIL ; |