gforth/kernel/require.fs - diff

Return to require.fs CVS log

Up to [gforth] / gforth / kernel

version 1.18, 2000/09/23 15:47:12	version 1.19, 2000/10/29 20:27:03
Line 75 create image-included-files 4 , A, ( poi	Line 75 create image-included-files 4 , A, ( poi
2/ cell / included-files 2!	2/ cell / included-files 2!
2! ;	2! ;

	has? new-input [IF]
	: included1 ( ix file-id c-addr u -- jx ) \ gforth
	\G Include the file file-id with the name given by @var{c-addr u}.
	save-mem add-included-file ( file-id )
	included-files @ 1- ['] include-file2 catch
	throw ;
	[ELSE]
: included1 ( ix file-id c-addr u -- jx ) \ gforth	: included1 ( ix file-id c-addr u -- jx ) \ gforth
\G Include the file file-id with the name given by @var{c-addr u}.	\G Include the file file-id with the name given by @var{c-addr u}.
loadfilename# @ >r	loadfilename# @ >r
Line 83 create image-included-files 4 , A, ( poi	Line 90 create image-included-files 4 , A, ( poi
['] include-file2 catch	['] include-file2 catch
r> loadfilename# !	r> loadfilename# !
throw ;	throw ;
	[THEN]

: included ( ix c-addr u -- jx ) \ file	: included ( ix c-addr u -- jx ) \ file
\G @code{include-file} the file whose name is given by the string	\G @code{include-file} the file whose name is given by the string
\G @var{c-addr u}.	\G @var{c-addr u}.