gforth/blocks.fs - diff

Return to blocks.fs CVS log

Up to [gforth] / gforth

version 1.44, 2006/10/08 11:30:55	version 1.46, 2006/12/31 13:39:11
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,2003 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,2000,2003,2006 Free Software Foundation, Inc.

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

Line 229 Create block-input A, A, A, A, A,	Line 229 Create block-input A, A, A, A, A,
\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.
block-input 0 new-tib dup loadline ! blk ! s" * a block*" loadfilename 2!	block-input 0 new-tib dup loadline ! blk ! s" * a block*" loadfilename 2!
['] interpret catch pop-file rethrow ;	['] interpret catch pop-file throw ;
[ELSE]	[ELSE]
: (source) ( -- c-addr u )	: (source) ( -- c-addr u )
blk @ ?dup	blk @ ?dup
Line 250 Create block-input A, A, A, A, A,	Line 250 Create block-input A, A, A, A, A,
dup loadline ! blk ! >in off ['] interpret catch	dup loadline ! blk ! >in off ['] interpret catch
pop-file	pop-file
r>loadfilename	r>loadfilename
rethrow ;	throw ;
[THEN]	[THEN]

: thru ( ix n1 n2 -- jx ) \ block-ext	: thru ( ix n1 n2 -- jx ) \ block-ext