![[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.10, 2005/01/04 22:09:04 | version 1.11, 2005/01/04 22:22:08 |
|---|---|
| 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' ) $80 >r |
| BEGIN count $C0 and maxascii <> UNTIL ; | 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 ; |