| |
|
| include other.fs \ ansforth extentions for cross |
include other.fs \ ansforth extentions for cross |
| |
|
| |
: comment? ( c-addr u -- c-addr u ) |
| |
2dup s" (" compare 0= |
| |
IF postpone ( |
| |
ELSE 2dup s" \" compare 0= IF postpone \ THEN |
| |
THEN ; |
| |
|
| decimal |
decimal |
| |
|
| \ number? 11may93jaw |
\ number? 11may93jaw |
| \ Fixed bug in else part 11may93jaw |
\ Fixed bug in else part 11may93jaw |
| |
|
| [IFDEF] Memory \ Memory is a bigFORTH feature |
[IFDEF] Memory \ Memory is a bigFORTH feature |
| Memory |
also Memory |
| : initmem ( var len -- ) |
: initmem ( var len -- ) |
| 2dup swap handle! >r @ r> erase ; |
2dup swap handle! >r @ r> erase ; |
| Target |
toss |
| [ELSE] |
[ELSE] |
| : initmem ( var len -- ) |
: initmem ( var len -- ) |
| tuck allocate abort" CROSS: No memory for target" |
tuck allocate abort" CROSS: No memory for target" |
| : gfind ( string -- ghost true/1 / string false ) |
: gfind ( string -- ghost true/1 / string false ) |
| \ searches for string in word-list ghosts |
\ searches for string in word-list ghosts |
| \ !! wouldn't it be simpler to just use search-wordlist ? ae |
\ !! wouldn't it be simpler to just use search-wordlist ? ae |
| >r get-order 0 set-order also ghosts r> find >r >r |
dup count [ ' ghosts >body ] ALiteral search-wordlist |
| set-order r> r@ IF >body THEN r> ; |
\ >r get-order 0 set-order also ghosts r> find >r >r |
| |
>r r@ IF >body nip THEN r> ; |
| |
\ set-order r> r@ IF >body THEN r> ; |
| |
|
| VARIABLE Already |
VARIABLE Already |
| |
|
