gforth/kernel/require.fs - diff

Return to require.fs CVS log

Up to [gforth] / gforth / kernel

version 1.25, 2003/01/20 22:16:04	version 1.28, 2003/03/09 15:17:06
Line 1	Line 1
\ require.fs	\ require.fs

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

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

Line 76 has? new-input [IF]	Line 76 has? new-input [IF]
: 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}.
save-mem 2dup add-included-file ( file-id )	save-mem 2dup add-included-file ( file-id )
['] include-file2 catch	['] read-loop execute-parsing-named-file ;
throw ;
[ELSE]	[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 2@ 2>r	save-mem 2dup loadfilename>r
save-mem 2dup loadfilename 2!
add-included-file ( file-id )	add-included-file ( file-id )
['] include-file2 catch	['] include-file2 catch
2r> loadfilename 2!	r>loadfilename
throw ;	throw ;
[THEN]	[THEN]