| \ 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 |
| |
\ flit: ahead X: float then lit X f@ |
| \ s\": ahead X: string then lit X lit len |
\ s\": ahead X: string then lit X lit len |
| \ .\": ahead X: string then lit X lit len type |
\ .\": ahead X: string then lit X lit len type |
| \ !! not recognized anywhere: |
\ !! not recognized anywhere: |
| 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 |
| 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 |
