| \ SEE.FS highend SEE for ANSforth 16may93jaw |
\ SEE.FS highend SEE for ANSforth 16may93jaw |
| |
|
| \ Copyright (C) 1995,2000 Free Software Foundation, Inc. |
\ Copyright (C) 1995,2000,2003 Free Software Foundation, Inc. |
| |
|
| \ This file is part of Gforth. |
\ This file is part of Gforth. |
| |
|
| require look.fs |
require look.fs |
| require termsize.fs |
require termsize.fs |
| require wordinfo.fs |
require wordinfo.fs |
| [IFUNDEF] .name |
|
| : id. ( nt -- ) \ gforth |
|
| \G Print the name of the word represented by @var{nt}. |
|
| \ this name comes from fig-Forth |
|
| name>string type space ; |
|
| |
|
| ' id. alias .id ( nt -- ) |
|
| \G F83 name for @code{id.}. |
|
| |
|
| ' id. alias .name ( nt -- ) |
|
| \G Gforth <=0.5.0 name for @code{id.}. |
|
| |
|
| [THEN] |
|
| |
|
| decimal |
decimal |
| |
|
| >name ?dup-if |
>name ?dup-if |
| ." IS " .name cr |
." IS " .name cr |
| else |
else |
| ." lastxt >body !" |
." latestxt >body !" |
| then ; |
then ; |
| : see-threaded ( addr -- ) |
: see-threaded ( addr -- ) |
| C-Pass @ DebugMode = IF |
C-Pass @ DebugMode = IF |
| ENDCASE ; |
ENDCASE ; |
| |
|
| : (xt-see-xt) ( xt -- ) |
: (xt-see-xt) ( xt -- ) |
| xt-see cr ." lastxt" ; |
xt-see cr ." latestxt" ; |
| ' (xt-see-xt) is xt-see-xt |
' (xt-see-xt) is xt-see-xt |
| |
|
| : (.immediate) ( xt -- ) |
: (.immediate) ( xt -- ) |
| else \ interpret/compile word |
else \ interpret/compile word |
| r@ xt-see-xt cr |
r@ xt-see-xt cr |
| swap xt-see-xt cr |
swap xt-see-xt cr |
| ." interpret/compile " over .name (.immediate) |
." interpret/compile: " over .name drop |
| then |
then |
| then |
then |
| rdrop drop ; |
rdrop drop ; |
