gforth/kernel/files.fs - diff

Return to files.fs CVS log

Up to [gforth] / gforth / kernel

version 1.1, 1997/05/21 20:40:14	version 1.3, 1998/04/12 21:49:29
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 ;
Line 67	Line 77

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

	Warnings off

: ( ( compilation 'ccc<close-paren>' -- ; run-time -- ) \ core,file paren	: ( ( compilation 'ccc<close-paren>' -- ; run-time -- ) \ core,file paren
loadfile @ 0= IF postpone ( EXIT THEN	loadfile @ 0= IF postpone ( EXIT THEN
BEGIN	BEGIN
Line 84	Line 96
THEN	THEN
REPEAT ; immediate	REPEAT ; immediate

	Warnings on