gforth/kernel/require.fs - diff

Return to require.fs CVS log

Up to [gforth] / gforth / kernel

version 1.35, 2010/05/13 09:48:45	version 1.36, 2010/12/30 21:46:14
Line 22	Line 22
create included-files 0 , 0 , ( pointer to and count of included files )	create included-files 0 , 0 , ( pointer to and count of included files )
\ note: these names must not contain a "/" or "\"; otherwise a part of	\ note: these names must not contain a "/" or "\"; otherwise a part of
\ that name might be used when expanding "./" (see expandtopic).	\ that name might be used when expanding "./" (see expandtopic).
here ," somewhere" dup c@ swap 1 + swap	here ," string.fs" dup c@ swap 1 + swap , A,
, A, here 2 cells -	here 2 cells -
create image-included-files 1 , A, ( pointer to and count of included files )	create image-included-files 1 , A, ( pointer to and count of included files )
\ included-files points to ALLOCATEd space, while image-included-files	\ included-files points to ALLOCATEd space, while image-included-files
\ points to ALLOTed objects, so it survives a save-system	\ points to ALLOTed objects, so it survives a save-system
Line 137 create image-included-files 1 , A, ( poi	Line 137 create image-included-files 1 , A, ( poi

: .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@ 2 cells under+ 1- .strings ;	included-files 2@ .strings ;