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.8, 1996/05/07 16:15:21
Line 58 block-cold	Line 58 block-cold
Defer flush-file	Defer flush-file

: use-file ( addr u -- )	: use-file ( addr u -- )
2dup r/w bin open-file 0<>	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" -- )
	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 )