gforth/kernel/require.fs - diff

Return to require.fs CVS log

Up to [gforth] / gforth / kernel

version 1.19, 2000/10/29 20:27:03	version 1.23, 2003/01/20 17:07:42
Line 60 create image-included-files 4 , A, ( poi	Line 60 create image-included-files 4 , A, ( poi
\G @file{./foo.fs}	\G @file{./foo.fs}
included-files 2@ 0	included-files 2@ 0
?do ( c-addr u addr )	?do ( c-addr u addr )
dup >r 2@ 2over compare 0=	dup >r 2@ 2over str=
if	if
2drop rdrop unloop	2drop rdrop unloop
true EXIT	true EXIT
Line 162 has? new-input [IF]	Line 162 has? new-input [IF]
: .included ( -- ) \ gforth	: .included ( -- ) \ gforth
\G list the names of the files that have been @code{included}	\G list the names of the files that have been @code{included}
included-files 2@ .strings ;	included-files 2@ .strings ;

\ contains tools/newrequire.fs
\ \I $Id$