gforth/comp-i.fs - diff

Return to comp-i.fs CVS log

Up to [gforth] / gforth

version 1.5, 2000/09/23 15:46:51	version 1.6, 2001/01/19 21:07:05
Line 80 s" address-unit-bits" environment? drop	Line 80 s" address-unit-bits" environment? drop
endif	endif
loop ;	loop ;

: slurp-file ( c-addr1 u1 -- c-addr2 u2 )
\ c-addr1 u1 is the filename, c-addr2 u2 is the file's contents
r/o bin open-file throw >r
r@ file-size throw abort" file too large"
dup allocate throw swap
2dup r@ read-file throw over <> abort" could not read whole file"
r> close-file throw ;

: comp-image ( "image-file1" "image-file2" "new-image" -- )	: comp-image ( "image-file1" "image-file2" "new-image" -- )
name slurp-file { image1 size1 }	name slurp-file { image1 size1 }
image1 size1 s" Gforth2" search 0= abort" not a Gforth image"	image1 size1 s" Gforth2" search 0= abort" not a Gforth image"