gforth/blocks.fs - diff

Return to blocks.fs CVS log

Up to [gforth] / gforth

version 1.43, 2006/05/01 09:45:56	version 1.49, 2007/02/18 18:59:40
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 78 Defer flush-blocks ( -- ) \ gforth	Line 78 Defer flush-blocks ( -- ) \ gforth
try ( c-addr u )	try ( c-addr u )
2dup open-fpath-file throw	2dup open-fpath-file throw
rot close-file throw 2dup file-status throw bin open-file throw	rot close-file throw 2dup file-status throw bin open-file throw
>r 2drop r>	>r 2drop r> 0
recover ( c-addr u ior )	restore endtry
	?dup-if ( c-addr u ior )
>r 2dup file-status nip 0= r> and throw \ does it really not exist?	>r 2dup file-status nip 0= r> and throw \ does it really not exist?
r/w bin create-file throw	r/w bin create-file throw
endtry	then
block-fid @ IF	block-fid @ IF
flush-blocks block-fid @ close-file throw	flush-blocks block-fid @ close-file throw
THEN	THEN