gforth/kernel/require.fs - diff

Return to require.fs CVS log

Up to [gforth] / gforth / kernel

version 1.24, 2003/01/20 19:17:59	version 1.25, 2003/01/20 22:16:04
Line 23	Line 23
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 ," a file" dup c@ swap 1 + swap	here ," somewhere" dup c@ swap 1 + swap
here ," a block" dup c@ swap 1 + swap	, A, here 2 cells -
here ," evaluated string" dup c@ swap 1 + swap	create image-included-files 1 , A, ( pointer to and count of included files )
here ," the terminal" dup c@ swap 1 + swap
, A, , A, , A, , A, here 8 cells -
create image-included-files 4 , 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 151 has? new-input [IF]	Line 148 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@ 2 cells under+ 1- .strings ;