gforth/blocks.fs - diff

Return to blocks.fs CVS log

Up to [gforth] / gforth

version 1.29, 2000/02/28 21:27:07	version 1.30, 2000/08/17 12:46:57
Line 45 Variable last-block	Line 45 Variable last-block
$20 Value buffers	$20 Value buffers

User block-fid	User block-fid
User offset 0 offset ! \ store 1 here fore 0.4.0 compatibility	User block-offset ( -- addr ) \ gforth
	\G User variable containing the number of the first block (default
	\G since 0.5.0: 0). Block files created with Gforth versions before
	\G 0.5.0 have the offset 1. If you use these files you can: @code{1
	\G offset !}; or add 1 to every block number used; or prepend 1024
	\G characters to the file.
	0 block-offset ! \ store 1 here fore 0.4.0 compatibility

	' block-offset alias offset \ !! eliminate this?

: block-cold ( -- )	: block-cold ( -- )
block-fid off last-block off	block-fid off last-block off
Line 109 Defer flush-blocks ( -- ) \ gforth	Line 117 Defer flush-blocks ( -- ) \ gforth

: save-buffers ( -- ) \ block	: save-buffers ( -- ) \ block
\G Transfer the contents of each @code{update}d block buffer to	\G Transfer the contents of each @code{update}d block buffer to
\G mass storage, then mark all block buffers as unassigned.	\G mass storage, then mark all block buffers as assigned-clean.
block-buffers @	block-buffers @
buffers 0 ?DO dup save-buffer next-buffer LOOP drop ;	buffers 0 ?DO dup save-buffer next-buffer LOOP drop ;