gforth/blocks.fs - diff

Return to blocks.fs CVS log

Up to [gforth] / gforth

version 1.28, 1999/12/03 18:24:21	version 1.29, 2000/02/28 21:27:07
Line 91 Defer flush-blocks ( -- ) \ gforth	Line 91 Defer flush-blocks ( -- ) \ gforth
offset @ - chars/block chars um* get-block-fid reposition-file throw ;	offset @ - chars/block chars um* get-block-fid reposition-file throw ;

: update ( -- ) \ block	: update ( -- ) \ block
\G Mark the current block buffer as dirty.	\G Mark the state of the current block buffer as assigned-dirty.
last-block @ ?dup IF buffer-dirty on THEN ;	last-block @ ?dup IF buffer-dirty on THEN ;

: save-buffer ( buffer -- ) \ gforth	: save-buffer ( buffer -- ) \ gforth
Line 176 User scr ( -- a-addr ) \ block-ext s-c-r	Line 176 User scr ( -- a-addr ) \ block-ext s-c-r

\ nac31Mar1999 moved "scr @" to list to make the stack comment correct	\ nac31Mar1999 moved "scr @" to list to make the stack comment correct
: updated? ( n -- f ) \ gforth	: updated? ( n -- f ) \ gforth
\G Return true if block @i{n} has been marked as dirty.	\G Return true if @code{updated} has been used to mark block @i{n}
	\G as assigned-dirty.
buffer	buffer
[ 0 buffer-dirty 0 block-buffer - ] Literal + @ ;	[ 0 buffer-dirty 0 block-buffer - ] Literal + @ ;