gforth/kernel/require.fs - diff

Return to require.fs CVS log

Up to [gforth] / gforth / kernel

version 1.12, 2000/08/26 13:29:49	version 1.13, 2000/09/06 08:47:15
Line 146 create image-included-files 1 , A, ( po	Line 146 create image-included-files 1 , A, ( po
: loadfilename#>str ( n -- adr len )	: loadfilename#>str ( n -- adr len )
included-files 2@ drop swap 2* cells + 2@ ;	included-files 2@ drop swap 2* cells + 2@ ;

: .included ( -- ) \ gforth	: .strings ( addr u -- ) \ gforth
\G list the names of the files that have been @code{included}	\G list the strings from an array of string descriptors at addr
	\G with u entries, one per line.
included-files 2@ 2* cells bounds ?DO	included-files 2@ 2* cells bounds ?DO
cr I 2@ type 2 cells +LOOP ;	cr I 2@ type 2 cells +LOOP ;

	: .included ( -- ) \ gforth
	\G list the names of the files that have been @code{included}
	included-files 2@ .strings ;

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