|
version 1.9, 2007/10/03 16:58:15
|
version 1.10, 2007/10/17 15:50:01
|
|
Line 83 Defer -trailing-garbage ( xc-addr u1 --
|
Line 83 Defer -trailing-garbage ( xc-addr u1 --
|
| over >r +x/string |
over >r +x/string |
| r> xc@ ; |
r> xc@ ; |
| |
|
| |
Create xholdbuf 8 allot |
| |
: xhold ( xc -- ) |
| |
\G Put xc into the pictured numeric output |
| |
xholdbuf 8 xc!+? 2drop |
| |
BEGIN 1- dup xholdbuf u>= WHILE dup c@ hold REPEAT drop ; |
| |
|
| \ fixed-size versions of these words |
\ fixed-size versions of these words |
| |
|
| : char- ( c-addr1 -- c-addr2 ) |
: char- ( c-addr1 -- c-addr2 ) |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to xchars.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel