CREATE files.txt  \ Leo Wong 24 March 02003 fyj +
\ close-in close-out create-out files.txt infile inpad maxin open-in
\ open-rw outfile read read-in read-inl readl write writel

0 VALUE infile
0 VALUE outfile
1000 CONSTANT maxin
CREATE inpad maxin 2 + CHARS ALLOT
: open-in  ( a u -- )  R/O OPEN-FILE THROW TO infile ;
: open-rw  ( a u -- )  R/W OPEN-FILE THROW TO infile ;
: create-out  ( a u -- )  R/W CREATE-FILE THROW TO outfile ;
: close-in  ( -- )  infile CLOSE-FILE THROW ;
: close-out  ( -- )  outfile CLOSE-FILE THROW ;
: read-in  ( a u -- a u' )  OVER SWAP infile READ-FILE THROW ;
: read  ( u1 -- a u2 )  inpad SWAP read-in ;
: read-inl  ( a u -- a u' f )  OVER SWAP infile READ-LINE THROW ;
: readl  ( -- a u f )  inpad maxin read-inl ;
: write  ( a u -- )  outfile WRITE-FILE THROW ;
: writel  ( a u -- )  outfile WRITE-LINE THROW ;