gforth/blocks.fs - diff

Return to blocks.fs CVS log

Up to [gforth] / gforth

version 1.12, 1997/03/20 14:39:49	version 1.14, 1997/05/21 20:39:18
Line 59 Defer flush-blocks	Line 59 Defer flush-blocks

: open-blocks ( addr u -- ) \ gforth	: open-blocks ( addr u -- ) \ gforth
\g use the file, whose name is given by @var{addr u}, as blocks file	\g use the file, whose name is given by @var{addr u}, as blocks file
2dup ['] open-path-file catch 0<>	2dup ['] open-fpath-file catch 0<>
if	if
2drop r/w bin create-file throw	2drop r/w bin create-file throw
else	else
Line 182 User scr 0 scr !	Line 182 User scr 0 scr !
1 load block-fid @ close-file throw flush	1 load block-fid @ close-file throw flush
r> block-fid ! ;	r> block-fid ! ;

: include ( "name" -- )	\ thrown out because it may provide unpleasant surprises - anton
name 2dup dup 3 - /string s" .fb" compare	\ : include ( "name" -- )
0= IF block-included ELSE included THEN ;	\ name 2dup dup 3 - /string s" .fb" compare
	\ 0= IF block-included ELSE included THEN ;

get-current environment-wordlist set-current	get-current environment-wordlist set-current
true constant block	true constant block