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.17, 2000/09/23 15:06:10
Line 1	Line 1
\ require.fs	\ require.fs

\ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

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 files )
\ included-files points to ALLOCATEd space, while image-included-files	\ included-files points to ALLOCATEd space, while image-included-files