3125a52331/library/files.retro

Show revision log
 
fc349e2cf15e1e11664eb67f38cf4acd59fe042c3125a52331ae6d7a6bb77d0ce92a95ddc2580547
4
( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
4
( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
5
' files open
5
' files open
6
6



7
: fread! ( ha-f ) swap fread dup rot ! ;



8



7
: slurp ( a"- )
9
: slurp ( a"- )



8
  :r fopen dup
10
  :r fopen dup



9
  if
11
  if



10
    swap repeat 2dup fread not if 0 swap ! fclose drop ;then 1+ again
12
    swap repeat 2dup fread! 0 =if 0 swap ! fclose drop ;then 1+ again



11
  else
13
  else



12
    drop 0 swap !
14
    drop 0 swap !



13
  then ;
15
  then ;