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.24, 2003/01/22 17:12:49
  Line 66  AUser CSP
      \G equivalent to @code{] literal}
      ] postpone literal ;
+ [ifundef] in-dictionary?
  : in-dictionary? ( x -- f )
      forthstart dictionary-end within ;
+ [endif]
  : in-return-stack? ( addr -- f )
      rp0 @ swap - [ forthstart 6 cells + ]L @ u< ;
- Line 106  AUser CSP
+ Line 108  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> ;