gforth/blocks.fs - diff

Return to blocks.fs CVS log

Up to [gforth] / gforth

version 1.22, 1999/03/23 20:24:16	version 1.23, 1999/03/29 22:52:27
Line 58 block-cold	Line 58 block-cold
Defer flush-blocks	Defer flush-blocks

: open-blocks ( addr u -- ) \ gforth	: open-blocks ( addr u -- ) \ gforth
\g use the file, whose name is given by @var{addr u}, as blocks file	\g Use the file, whose name is given by @var{addr u}, as the blocks file.
2dup open-fpath-file 0<>	2dup open-fpath-file 0<>
if	if
r/w bin create-file throw	r/w bin create-file throw
Line 70 Defer flush-blocks	Line 70 Defer flush-blocks
block-fid ! ;	block-fid ! ;

: use ( "file" -- ) \ gforth	: use ( "file" -- ) \ gforth
\g use @var{file} as blocks file	\g Use @var{file} as the blocks file.
name open-blocks ;	name open-blocks ;

\ the file is opened as binary file, since it either will contain text	\ the file is opened as binary file, since it either will contain text
Line 165 User scr ( -- a-addr ) \ block-ext	Line 165 User scr ( -- a-addr ) \ block-ext
i 2 .r space scr @ block i 64 * chars + 64 type cr	i 2 .r space scr @ block i 64 * chars + 64 type cr
loop ;	loop ;

: (source) ( -- addr len )	: (source) ( -- c-addr u )
blk @ ?dup	blk @ ?dup
IF block chars/block	IF block chars/block
ELSE tib #tib @	ELSE tib #tib @
THEN ;	THEN ;

' (source) IS source	' (source) IS source ( -- c-addr u ) \ core
	\G @var{c-addr} is the address of the input buffer and @var{u} is the
	\G number of characters in it.

: load ( ix n -- jx ) \ block	: load ( ix n -- jx ) \ block
push-file	push-file