| false DefaultValue stack-warn \ check on empty stack at any definition |
false DefaultValue stack-warn \ check on empty stack at any definition |
| false DefaultValue create-forward-warn \ warn on forward declaration of created words |
false DefaultValue create-forward-warn \ warn on forward declaration of created words |
| |
|
| |
|
| |
|
| |
|
| |
|
| previous >CROSS |
previous >CROSS |
| |
|
| : .dec |
: .dec |
| |
|
| Variable atonce atonce off |
Variable atonce atonce off |
| |
|
| : NoExec true ABORT" CROSS: Don't execute ghost" ; |
: NoExec true ABORT" CROSS: Don't execute ghost, or immediate target word" ; |
| |
|
| : GhostHeader <fwd> , 0 , ['] NoExec , ; |
: GhostHeader <fwd> , 0 , ['] NoExec , ; |
| |
|
| |
|
| : ghost ( "name" -- ghost ) |
: ghost ( "name" -- ghost ) |
| Already off |
Already off |
| >in @ bl word gfind IF Already on nip EXIT THEN |
>in @ bl word gfind IF atonce off Already on nip EXIT THEN |
| drop >in ! Make-Ghost ; |
drop >in ! Make-Ghost ; |
| |
|
| : >ghostname ( ghost -- adr len ) |
: >ghostname ( ghost -- adr len ) |
| \ Symbol table |
\ Symbol table |
| \ >in @ cr ." sym:s/CFA=" there 4 0.r ." /" bl word count .sym ." /g" cr >in ! |
\ >in @ cr ." sym:s/CFA=" there 4 0.r ." /" bl word count .sym ." /g" cr >in ! |
| CreateFlag @ |
CreateFlag @ |
| IF |
IF \ for a created word we need also a definition in target |
| |
\ to execute the created word while compile time |
| |
\ dont mind if a alias is defined twice |
| |
Warnings @ >r Warnings off |
| >in @ alias2 swap >in ! \ create alias in target |
>in @ alias2 swap >in ! \ create alias in target |
| |
r> Warnings ! |
| >in @ ghost swap >in ! |
>in @ ghost swap >in ! |
| swap also ghosts ' previous swap ! \ tick ghost and store in alias |
swap also ghosts ' previous swap ! \ tick ghost and store in alias |
| CreateFlag off |
CreateFlag off |
