gforth/blocks.fs - diff

Return to blocks.fs CVS log

Up to [gforth] / gforth

version 1.39, 2003/01/20 19:17:59	version 1.41, 2003/03/09 15:16:46
Line 1	Line 1
\ A less simple implementation of the blocks wordset.	\ A less simple implementation of the blocks wordset.

\ 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 242 Create block-input A, A, A, A, A,	Line 242 Create block-input A, A, A, A, A,
\G Save the current input source specification. Store @i{n} in	\G Save the current input source specification. Store @i{n} in
\G @code{BLK}, set @code{>IN} to 0 and interpret. When the parse	\G @code{BLK}, set @code{>IN} to 0 and interpret. When the parse
\G area is exhausted, restore the input source specification.	\G area is exhausted, restore the input source specification.
loadfilename 2@ 2>r	s" * a block*" loadfilename>r
s" * a block*" loadfilename 2!
push-file	push-file
dup loadline ! blk ! >in off ['] interpret catch	dup loadline ! blk ! >in off ['] interpret catch
pop-file	pop-file
2r> loadfilename 2!	r>loadfilename
throw ;	throw ;
[THEN]	[THEN]