gforth/kernel/require.fs - diff

Return to require.fs CVS log

Up to [gforth] / gforth / kernel

version 1.15, 2000/09/11 20:56:39	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 28 here ," a block" dup c@ swap 1 + swap	Line 28 here ," a block" dup c@ swap 1 + swap
here ," evaluated string" dup c@ swap 1 + swap	here ," evaluated string" dup c@ swap 1 + swap
here ," the terminal" 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	create image-included-files 4 , A, ( pointer to and count of included files )
\ files ) included-files points to ALLOCATEd space, while	\ included-files points to ALLOCATEd space, while image-included-files
\ image-included-files points to ALLOTed objects, so it survives a	\ points to ALLOTed objects, so it survives a save-system
\ 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