version 1.12, 1996/08/21 14:58:45
|
version 1.15, 1998/05/13 16:47:24
|
Line 22
|
Line 22
|
\ If you want check values then exclude comments, |
\ If you want check values then exclude comments, |
\ but keep in mind that this can't be cross-compiled |
\ but keep in mind that this can't be cross-compiled |
|
|
INCLUDE look.fs |
\ INCLUDE look.fs |
|
|
\ Wordinfo is a tool that checks a nfa |
\ Wordinfo is a tool that checks a nfa |
\ and finds out what wordtype we have |
\ and finds out what wordtype we have |
Line 49 INCLUDE look.fs
|
Line 49 INCLUDE look.fs
|
((name>)) >code-address douser: = ; |
((name>)) >code-address douser: = ; |
|
|
: does? ( nfa -- flag ) |
: does? ( nfa -- flag ) |
\ !! does not work on all installations |
|
((name>)) |
((name>)) |
>code-address ['] spaces >code-address = ; |
>does-code 0<> ; |
|
|
: defered? ( nfa -- flag ) |
: defered? ( nfa -- flag ) |
((name>)) >code-address dodefer: = ; |
((name>)) >code-address dodefer: = ; |
Line 62 INCLUDE look.fs
|
Line 61 INCLUDE look.fs
|
\ the above words could be factored with create-does>, but this would |
\ the above words could be factored with create-does>, but this would |
\ probably make this file incompatible with cross. |
\ probably make this file incompatible with cross. |
|
|
|
[IFDEF] forthstart |
|
: xtprim? ( xt -- flag ) |
|
forthstart dictionary-end within ; \ !! does not work for CODE words |
|
[ELSE] |
|
: xtprim? ( xt -- flag ) |
|
dup >body swap >code-address = ; \ !! works only for indirect threaded code |
|
\ !! does not work for primitives |
|
[THEN] |
: prim? ( nfa -- flag ) |
: prim? ( nfa -- flag ) |
name>int |
name>int xtprim? ; |
forthstart u< ; |
|
|
|
\ None nestable IDs: |
\ None nestable IDs: |
|
|