gforth/blocks.fs - diff

Return to blocks.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/blocks.fs between versions 1.2 and 1.3

version 1.2, 1994/08/31 19:42:43	version 1.3, 1995/02/09 17:49:54
Line 15 variable block-fid 0 block-fid ! \ the f	Line 15 variable block-fid 0 block-fid ! \ the f
variable buffer-dirty buffer-dirty off	variable buffer-dirty buffer-dirty off


	\ the file is opened as binary file, since it either will contain text
	\ without newlines or binary data
: get-block-fid ( -- fid )	: get-block-fid ( -- fid )
block-fid @ 0=	block-fid @ 0=
if	if
s" blocks.fb" r/w open-file 0<>	s" blocks.fb" r/w bin open-file 0<>
if	if
s" blocks.fb" r/w create-file .s throw	s" blocks.fb" r/w bin create-file throw
then	then
block-fid !	block-fid !
then	then
Line 28 variable buffer-dirty buffer-dirty off	Line 30 variable buffer-dirty buffer-dirty off

: block-position ( u -- )	: block-position ( u -- )
\ positions the block file to the start of block u	\ positions the block file to the start of block u
1- chars/block chars um* get-block-fid reposition-file .s throw ;	1- chars/block chars um* get-block-fid reposition-file throw ;

: update ( -- )	: update ( -- )
buffer-dirty on ;	buffer-dirty on ;
Line 54 variable buffer-dirty buffer-dirty off	Line 56 variable buffer-dirty buffer-dirty off
if	if
save-buffers	save-buffers
dup block-position	dup block-position
block-buffer chars/block get-block-fid read-file .s throw	block-buffer chars/block get-block-fid read-file throw
\ clear the rest of the buffer if the file is too short	\ clear the rest of the buffer if the file is too short
block-buffer over chars + chars/block rot - blank	block-buffer over chars + chars/block rot - blank
buffer-block !	buffer-block !

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.2
changed lines
	Added in v.1.3