gforth/blocks.fs - diff

Return to blocks.fs CVS log

Up to [gforth] / gforth

version 1.7, 1995/11/07 18:06:32	version 1.10, 1996/09/30 13:16:07
Line 57 block-cold	Line 57 block-cold

Defer flush-file	Defer flush-file

: use-file ( addr u -- )	: use-file ( addr u -- ) \ gforth
2dup r/w bin open-file 0<>	\g use the file, whose name is given by @var{addr u}, as blocks file
	2dup ['] open-path-file catch 0<>
if	if
drop r/w bin create-file throw	2drop r/w bin create-file throw
else	else
nip nip	rot close-file throw 2dup file-status throw bin open-file throw
	>r 2drop r>
then	then
block-fid @ IF flush-file block-fid @ close-file throw THEN	block-fid @ IF flush-file block-fid @ close-file throw THEN
block-fid ! ;	block-fid ! ;

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

\ 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
\ without newlines or binary data	\ without newlines or binary data
: get-block-fid ( -- fid )	: get-block-fid ( -- fid )
Line 114 Defer flush-file	Line 120 Defer flush-file
dup 0= -35 and throw	dup 0= -35 and throw
dup get-buffer >r	dup get-buffer >r
dup r@ buffer-block @ <>	dup r@ buffer-block @ <>
r@ buffer-fid @ block-fid @ <> and	r@ buffer-fid @ block-fid @ <> or
if	if
r@ save-buffer	r@ save-buffer
dup block-position	dup block-position