gforth/kernel/require.fs - diff

Return to require.fs CVS log

Up to [gforth] / gforth / kernel

version 1.14, 2000/09/06 20:30:07	version 1.15, 2000/09/11 20:56:39
Line 21	Line 21
\ Now: Kernel Module, Reloadable	\ Now: Kernel Module, Reloadable

create included-files 0 , 0 , ( pointer to and count of included files )	create included-files 0 , 0 , ( pointer to and count of included files )
here ," \a file/" dup c@ swap 1 + swap	\ note: these names must not contain a "/" or "\"; otherwise a part of
here ," \a block/" dup c@ swap 1 + swap	\ that name might be used when expanding "./" (see expandtopic).
here ," \evaluated string/" dup c@ swap 1 + swap	here ," a file" dup c@ swap 1 + swap
here ," \the terminal/" dup c@ swap 1 + swap	here ," a block" dup c@ swap 1 + swap
	here ," evaluated string" dup c@ swap 1 + swap
	here ," the terminal" dup c@ swap 1 + swap
, A, , A, , A, , A, here 8 cells -	, A, , A, , A, , A, here 8 cells -
create image-included-files 4 , A, ( pointer to and count of included files )	create image-included-files 4 , A, ( pointer to and count of included
\ included-files points to ALLOCATEd space, while image-included-files	\ files ) included-files points to ALLOCATEd space, while
\ points to ALLOTed objects, so it survives a save-system	\ image-included-files points to ALLOTed objects, so it survives a
	\ save-system

: sourcefilename ( -- c-addr u ) \ gforth	: sourcefilename ( -- c-addr u ) \ gforth
\G The name of the source file which is currently the input	\G The name of the source file which is currently the input