gforth/kernel/files.fs - diff

Return to files.fs CVS log

Up to [gforth] / gforth / kernel

version 1.17, 2001/09/06 08:11:52	version 1.21, 2003/01/22 10:59:54
Line 37	Line 37
\ include-file 07apr93py	\ include-file 07apr93py

has? new-input 0= [IF]	has? new-input 0= [IF]
	: loadfilename>r ( addr1 u1 -- R: addr2 u2 )
	r> loadfilename 2@ 2>r >r
	loadfilename 2! ;

	: r>loadfilename ( R: addr u -- )
	r> 2r> loadfilename 2! >r ;

: push-file ( -- ) r>	: push-file ( -- ) r>
#fill-bytes @ >r	#fill-bytes @ >r
loadline @ >r	loadline @ >r
Line 79 has? new-input 0= [IF]	Line 86 has? new-input 0= [IF]
include-file1 throw throw ;	include-file1 throw throw ;

: include-file ( ix wfileid -- jx ) \ file	: include-file ( ix wfileid -- jx ) \ file
loadfilename# @ >r	s" a file" loadfilename>r
3 loadfilename# ! \ "a file"
include-file1	include-file1
r> loadfilename# !	r>loadfilename
throw throw ;	throw throw ;
[THEN]	[THEN]