version 1.48, 2003/01/06 11:18:59
|
version 1.49, 2003/01/26 20:56:37
|
Line 359 VARIABLE C-Pass
|
Line 359 VARIABLE C-Pass
|
\ if f is false, addr2=addr1 |
\ if f is false, addr2=addr1 |
\ recognizes the following patterns: |
\ recognizes the following patterns: |
\ c": ahead X: len string then lit X |
\ c": ahead X: len string then lit X |
\ s\": ahead X: string then lit X lit len |
\ flit: ahead X: float then lit X f@ |
\ .\": ahead X: string then lit X lit len type |
\ s\": ahead X: string then lit X lit len |
|
\ .\": ahead X: string then lit X lit len type |
\ !! not recognized anywhere: |
\ !! not recognized anywhere: |
\ abort": if ahead X: len string then lit X c(abort") then |
\ abort": if ahead X: len string then lit X c(abort") then |
dup @ back? if false exit endif |
dup @ back? if false exit endif |
Line 368 VARIABLE C-Pass
|
Line 369 VARIABLE C-Pass
|
r@ @ decompile-prim ['] lit xt>threaded <> if rdrop false exit endif |
r@ @ decompile-prim ['] lit xt>threaded <> if rdrop false exit endif |
r@ cell+ @ over cell+ <> if rdrop false exit endif |
r@ cell+ @ over cell+ <> if rdrop false exit endif |
\ we have at least C" |
\ we have at least C" |
r@ 2 cells + @ decompile-prim ['] lit xt>threaded = if |
r@ 2 cells + @ decompile-prim dup ['] lit xt>threaded = if |
r@ 3 cells + @ over cell+ + aligned r@ = if |
drop r@ 3 cells + @ over cell+ + aligned r@ = if |
\ we have at least s" |
\ we have at least s" |
r@ 4 cells + @ decompile-prim ['] lit-perform xt>threaded = |
r@ 4 cells + @ decompile-prim ['] lit-perform xt>threaded = |
r@ 5 cells + @ ['] type >body = and if |
r@ 5 cells + @ ['] type >body = and if |
Line 386 VARIABLE C-Pass
|
Line 387 VARIABLE C-Pass
|
nip cells r> + true exit |
nip cells r> + true exit |
endif |
endif |
endif |
endif |
|
['] f@ xt>threaded = if |
|
display? if |
|
r@ cell+ @ f@ 10 8 16 f>str-rdp 0 .string bl cemit |
|
endif |
|
drop r> 3 cells + true exit |
|
endif |
\ !! check if count matches space? |
\ !! check if count matches space? |
display? if |
display? if |
s\" c\" " 0 .string r@ cell+ @ count 0 .string '" cemit bl cemit |
s\" c\" " 0 .string r@ cell+ @ count 0 .string '" cemit bl cemit |