66 lines
1018 B
Forth
66 lines
1018 B
Forth
|
: cond.name ( link )
|
||
|
|
dup link>flags c@ dup 2 and ( link flag literal )
|
||
|
|
if
|
||
|
|
8 and
|
||
|
|
if
|
||
|
|
.name
|
||
|
|
then
|
||
|
|
else
|
||
|
|
4 and
|
||
|
|
if
|
||
|
|
[char] s emit [char] " emit bl emit
|
||
|
|
else
|
||
|
|
.name
|
||
|
|
then
|
||
|
|
then
|
||
|
|
;
|
||
|
|
|
||
|
|
: seefunc ( xt )
|
||
|
|
>body ( listptr )
|
||
|
|
begin
|
||
|
|
dup w@ ( listptr xt )
|
||
|
|
while
|
||
|
|
dup w@ ( listptr xt )
|
||
|
|
>link .name link>flags c@ dup 2 and ( listptr flags literal )
|
||
|
|
if
|
||
|
|
8 and ( listptr flags jump )
|
||
|
|
if
|
||
|
|
2 + dup dup w@ swap - 2 - 2 / .
|
||
|
|
else
|
||
|
|
2 + dup w@ .
|
||
|
|
then
|
||
|
|
else
|
||
|
|
4 and ( listptr string )
|
||
|
|
if
|
||
|
|
2 + dup count type [char] " emit space
|
||
|
|
dup c@ + 0 2 - and
|
||
|
|
then
|
||
|
|
then
|
||
|
|
compsize + ( listptr+=compsize)
|
||
|
|
repeat
|
||
|
|
drop
|
||
|
|
;
|
||
|
|
|
||
|
|
: see
|
||
|
|
' dup ( xt xt )
|
||
|
|
if
|
||
|
|
dup >flags c@ dup 16 and ( xt flags kernel )
|
||
|
|
if
|
||
|
|
drop
|
||
|
|
drop
|
||
|
|
." Kernel Word"
|
||
|
|
else
|
||
|
|
32 and
|
||
|
|
if
|
||
|
|
drop
|
||
|
|
." Variable"
|
||
|
|
else
|
||
|
|
seefunc
|
||
|
|
then
|
||
|
|
then
|
||
|
|
else
|
||
|
|
drop
|
||
|
|
." ?"
|
||
|
|
then
|
||
|
|
;
|