gforth/stuff.fs - diff

Return to stuff.fs CVS log

Up to [gforth] / gforth

-version 1.18, 2000/11/29 22:21:57
+version 1.20, 2001/08/07 09:39:30
  Line 106  AUser CSP
      noname : POSTPONE rdrop
      lastxt r> cell+ ! \ patch the literal
  ; immediate
+ \ !! rewrite slurp-file using slurp-fid
+ : slurp-file ( c-addr1 u1 -- c-addr2 u2 )
+     \G @var{c-addr1 u1} is the filename, @var{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
+dup r@ read-file throw over <> abort" could not read whole file"
+     r> close-file throw ;
+ : slurp-fid { fid -- addr u }
+     \G @var{addr u} is the content of the file @var{fid}
+0 begin ( awhole uwhole )
+         dup 1024 + dup >r extend-mem ( anew awhole uwhole R: unew )
+         rot r@ fid read-file throw ( awhole uwhole uread R: unew )
+         r> 2dup =
+     while ( awhole uwhole uread unew )
+drop
+     repeat
+     - + dup >r resize throw r> ;