gforth/kernel/files.fs - diff

Return to files.fs CVS log

Up to [gforth] / gforth / kernel

version 1.2, 1997/08/31 19:32:30	version 1.4, 1998/06/17 16:55:16
Line 37	Line 37
\ include-file 07apr93py	\ include-file 07apr93py

: push-file ( -- ) r>	: push-file ( -- ) r>
sourceline# >r loadfile @ >r	loadline @ >r
blk @ >r tibstack @ >r >tib @ >r #tib @ >r	loadfile @ >r
>tib @ tibstack @ = IF r@ tibstack +! THEN	blk @ >r
tibstack @ >tib ! >in @ >r >r ;	tibstack @ >r
	>tib @ >r
	#tib @ >r
	>in @ >r >r
	>tib @ tibstack @ = IF #tib @ tibstack +! THEN
	tibstack @ >tib ! ;

: pop-file ( throw-code -- throw-code )	: pop-file ( throw-code -- throw-code )
dup IF	dup IF
Line 53	Line 58
-1 cells +LOOP	-1 cells +LOOP
THEN	THEN
r>	r>
r> >in ! r> #tib ! r> >tib ! r> tibstack ! r> blk !	r> >in !
r> loadfile ! r> loadline ! >r ;	r> #tib !
	r> >tib !
	r> tibstack !
	r> blk !
	r> loadfile !
	r> loadline ! >r ;

: read-loop ( ix -- jx )	: read-loop ( ix -- jx )
BEGIN refill WHILE interpret REPEAT ;	BEGIN refill WHILE interpret REPEAT ;

: include-file ( ix fid -- jx ) \ file	: include-file ( ix fid -- jx ) \ file
push-file loadfile !	\G interpret (process using the text interpreter) the contents of
0 loadline ! blk off ['] read-loop catch	\G the file @var{fid}.
loadfile @ close-file swap 2dup or	push-file loadfile !
pop-file drop throw throw ;	0 loadline ! blk off ['] read-loop catch
	loadfile @ close-file swap 2dup or
	pop-file drop throw throw ;

\ additional words only needed if there is file support	\ additional words only needed if there is file support