version 1.7, 2007/07/14 19:57:16
|
version 1.8, 2007/09/15 20:11:44
|
Line 27 DEFER XEMIT ( xc -- )
|
Line 27 DEFER XEMIT ( xc -- )
|
DEFER XKEY ( -- xc ) |
DEFER XKEY ( -- xc ) |
DEFER XCHAR+ ( xc-addr1 -- xc-addr2 ) |
DEFER XCHAR+ ( xc-addr1 -- xc-addr2 ) |
DEFER XCHAR- ( xc-addr1 -- xc-addr2 ) |
DEFER XCHAR- ( xc-addr1 -- xc-addr2 ) |
DEFER +XSTRING ( xc-addr1 u1 -- xc-addr2 u2 ) |
DEFER +X/STRING ( xc-addr1 u1 -- xc-addr2 u2 ) |
DEFER -XSTRING ( xc-addr1 u1 -- xc-addr2 u2 ) |
DEFER X\STRING- ( xc-addr1 u1 -- xc-addr1 u2 ) |
DEFER XSTRING+ ( xc-addr1 u1 -- xc-addr1 u2 ) |
|
DEFER XSTRING- ( xc-addr1 u1 -- xc-addr1 u2 ) |
|
DEFER XC@ ( xc-addr -- xc ) |
DEFER XC@ ( xc-addr -- xc ) |
DEFER XC!+? ( xc xc-addr1 u1 -- xc-addr2 u2 f ) \ f if operation succeeded |
DEFER XC!+? ( xc xc-addr1 u1 -- xc-addr2 u2 f ) \ f if operation succeeded |
DEFER XC@+ ( xc-addr1 -- xc-addr2 xc ) |
DEFER XC@+ ( xc-addr1 -- xc-addr2 xc ) |
Line 43 DEFER -TRAILING-GARBAGE ( addr u1 -- add
|
Line 41 DEFER -TRAILING-GARBAGE ( addr u1 -- add
|
|
|
: x@+/string ( xc-addr1 u1 -- xc-addr2 u2 xc ) |
: x@+/string ( xc-addr1 u1 -- xc-addr2 u2 xc ) |
\ !! check for errors? |
\ !! check for errors? |
over >r +xstring |
over >r +x/string |
r> xc@ ; |
r> xc@ ; |
|
|
\ fixed-size versions of these words |
\ fixed-size versions of these words |
Line 53 DEFER -TRAILING-GARBAGE ( addr u1 -- add
|
Line 51 DEFER -TRAILING-GARBAGE ( addr u1 -- add
|
|
|
: +string ( c-addr1 u1 -- c-addr2 u2 ) |
: +string ( c-addr1 u1 -- c-addr2 u2 ) |
1 /string ; |
1 /string ; |
: -string ( c-addr1 u1 -- c-addr2 u2 ) |
|
-1 /string ; |
|
|
|
: string+ ( c-addr1 u1 -- c-addr1 u2 ) |
|
1+ ; |
|
: string- ( c-addr1 u1 -- c-addr1 u2 ) |
: string- ( c-addr1 u1 -- c-addr1 u2 ) |
1- ; |
1- ; |
|
|
Line 77 DEFER -TRAILING-GARBAGE ( addr u1 -- add
|
Line 70 DEFER -TRAILING-GARBAGE ( addr u1 -- add
|
['] key is xkey |
['] key is xkey |
['] char+ is xchar+ |
['] char+ is xchar+ |
['] char- is xchar- |
['] char- is xchar- |
['] +string is +xstring |
['] +string is +x/string |
['] -string is -xstring |
['] string- is x\string- |
['] string+ is xstring+ |
|
['] string- is xstring- |
|
['] c@ is xc@ |
['] c@ is xc@ |
['] c!+? is xc!+? |
['] c!+? is xc!+? |
['] count is xc@+ |
['] count is xc@+ |