version 1.34, 2001/01/28 17:39:33
|
version 1.35, 2001/03/17 21:36:41
|
Line 254 VARIABLE C-Pass
|
Line 254 VARIABLE C-Pass
|
THEN |
THEN |
cell+ ; |
cell+ ; |
|
|
|
: .word |
|
look 0= IF |
|
drop dup 1 cells - @ ." <" 0 .r ." >" |
|
ELSE |
|
dup cell+ @ immediate-mask and |
|
IF |
|
bl cemit ." POSTPONE " |
|
THEN |
|
dup name>string rot wordinfo .string |
|
THEN ; |
|
|
|
: c-call |
|
Display? IF dup @ body> .word bl cemit THEN cell+ ; |
|
|
: .name-without ( addr -- addr ) |
: .name-without ( addr -- addr ) |
\ prints a name without () e.g. (+LOOP) or (s") |
\ prints a name without () e.g. (+LOOP) or (s") |
dup 1 cells - @ look |
dup 1 cells - @ look |
Line 425 VARIABLE C-Pass
|
Line 439 VARIABLE C-Pass
|
|
|
CREATE C-Table |
CREATE C-Table |
' lit A, ' c-lit A, |
' lit A, ' c-lit A, |
|
' call A, ' c-call A, |
' (s") A, ' c-c" A, |
' (s") A, ' c-c" A, |
' (.") A, ' c-c" A, |
' (.") A, ' c-c" A, |
' "lit A, ' c-c" A, |
' "lit A, ' c-c" A, |
Line 493 c-extender !
|
Line 508 c-extender !
|
dup >r DoTable r> swap IF drop EXIT THEN |
dup >r DoTable r> swap IF drop EXIT THEN |
Display? |
Display? |
IF |
IF |
look 0= IF |
.word bl cemit |
drop dup 1 cells - @ ." <" 0 .r ." >" |
|
ELSE |
|
dup cell+ @ immediate-mask and |
|
IF |
|
bl cemit ." POSTPONE " |
|
THEN |
|
dup name>string rot wordinfo .string |
|
THEN |
|
bl cemit |
|
ELSE |
ELSE |
drop |
drop |
THEN ; |
THEN ; |