| 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 |
| |
|
| \ 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 + @ ; |
| |
|
