version 1.17, 2011/12/31 15:29:26
|
version 1.18, 2012/08/09 23:58:53
|
Line 103 Defer -trailing-garbage ( xc-addr u1 --
|
Line 103 Defer -trailing-garbage ( xc-addr u1 --
|
: string- ( c-addr1 u1 -- c-addr1 u2 ) |
: string- ( c-addr1 u1 -- c-addr1 u2 ) |
1- ; |
1- ; |
|
|
|
: c!+ ( c c-addr1 -- c-addr2 ) |
|
dup 1+ >r c! r> ; |
|
|
: c!+? ( c c-addr1 u1 -- c-addr2 u2 f ) |
: c!+? ( c c-addr1 u1 -- c-addr2 u2 f ) |
dup 1 chars u< if \ or use < ? |
dup 1 chars u< if \ or use < ? |
rot drop false |
rot drop false |
Line 122 Defer -trailing-garbage ( xc-addr u1 --
|
Line 125 Defer -trailing-garbage ( xc-addr u1 --
|
['] +string is +x/string |
['] +string is +x/string |
['] string- is x\string- |
['] string- is x\string- |
['] c@ is xc@ |
['] c@ is xc@ |
|
['] c!+ is xc!+ |
['] c!+? is xc!+? |
['] c!+? is xc!+? |
['] count is xc@+ |
['] count is xc@+ |
['] c-size is xc-size |
['] c-size is xc-size |