version 1.8, 1997/07/06 14:29:33
|
version 1.11, 1998/12/08 22:02:46
|
Line 1
|
Line 1
|
\ LOOK.FS xt -> lfa 22may93jaw |
\ LOOK.FS xt -> lfa 22may93jaw |
|
|
\ Copyright (C) 1995 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 44 decimal
|
Line 44 decimal
|
|
|
\ !!! nicht optimal! |
\ !!! nicht optimal! |
[IFUNDEF] look |
[IFUNDEF] look |
[IFUNDEF] dictionary-end has-rom [ELSE] false [THEN] |
has? ec [IF] |
[IF] |
|
|
|
|
has? rom |
|
[IF] |
|
: look |
|
dup [ unlock rom-dictionary area lock ] |
|
literal literal within |
|
IF |
|
>name dup ?? <> |
|
ELSE |
|
forth-wordlist @ (look) |
|
THEN ; |
|
[ELSE] |
: look ( cfa -- lfa flag ) |
: look ( cfa -- lfa flag ) |
forth-wordlist @ (look) ; |
>name dup ??? <> ; |
|
[THEN] |
|
|
[ELSE] |
[ELSE] |
|
|
: PrimStart ['] true >name ; |
: PrimStart ['] true >name ; |
|
|
: look ( cfa -- lfa flag ) |
: look ( cfa -- lfa flag ) |
dup dictionary-end forthstart within |
dup dictionary-end forthstart within |
IF |
IF |
PrimStart (look) |
PrimStart (look) |
ELSE |
ELSE |
>name dup ??? <> |
>name dup ??? <> |
THEN ; |
THEN ; |
|
|
[THEN] |
[THEN] |
[THEN] |
[THEN] |