gforth/look.fs - diff

Return to look.fs CVS log

Up to [gforth] / gforth

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]