version 1.4, 1996/05/13 16:37:01
|
version 1.7, 1997/03/27 13:31:02
|
Line 28
|
Line 28
|
|
|
decimal |
decimal |
|
|
\ >NAME PRIMSTART 22may93jaw |
|
|
|
\ : >name ( xt -- nfa ) |
|
\ BEGIN 1 chars - |
|
\ dup c@ alias-mask and |
|
\ UNTIL ; |
|
|
|
: PrimStart ['] true >name ; |
: PrimStart ['] true >name ; |
|
|
\ look 17may93jaw |
\ look 17may93jaw |
Line 42 decimal
|
Line 35 decimal
|
: (look) ( xt startlfa -- lfa flag ) |
: (look) ( xt startlfa -- lfa flag ) |
false swap |
false swap |
BEGIN @ dup |
BEGIN @ dup |
WHILE dup name> |
WHILE dup name>int |
3 pick = IF nip dup THEN |
3 pick = IF nip dup THEN |
REPEAT |
REPEAT |
drop nip |
drop nip |
dup 0<> ; |
dup 0<> ; |
|
|
: look ( cfa -- lfa flag ) |
: look ( cfa -- lfa flag ) |
dup forthstart < |
dup dictionary-end forthstart within |
IF PrimStart (look) |
IF |
ELSE >name true THEN ; |
PrimStart (look) |
|
ELSE |
|
>name dup ??? <> |
|
THEN ; |
|
|