version 1.4, 1994/05/18 17:29:50
|
version 1.5, 1994/06/01 10:05:14
|
Line 23
|
Line 23
|
|
|
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 |
Line 155 endian 0 pad ! -1 pad c! pad @ 0<
|
Line 161 endian 0 pad ! -1 pad c! pad @ 0<
|
\ 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" |
Line 263 Variable atonce atonce off
|
Line 269 Variable atonce atonce off
|
: 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 |
|
|