\section{spit.file}

Liebe Forth--Freunde,

Dirk, noch immer in USA, fragte neulich, ob es eigentlich auch das Gegenstück zum SLURP--FILE des gforth gäbe? Doch das gab es nicht. Eine Lücke, die unmöglich so bleiben kann, oder?
Also:

\begin{verbatim}
: spit-file ( buffer-adr u name-adr n -- )
  r/w create-file throw dup ( fid) >r
      write-file  throw r>
      close-file  throw ;

: ... ." mach, was du willst" ;

s" my.in" slurp-file ... s" my.out" spit-file
\end{verbatim}

mk :-) 