3125a52331/image/source/files.retro

Show revision log
 
fc349e2cf15e1e11664eb67f38cf4acd59fe042c3125a52331ae6d7a6bb77d0ce92a95ddc2580547
7
  : file.io ( n-f ) 4 out wait 4 in ;
7
  : file.io ( n-f ) 4 out wait 4 in ;
8
---reveal---
8
---reveal---
9
  : fopen  ( $m-f ) -1 file.io ;
9
  : fopen  ( $m-f ) -1 file.io ;
 
10
  : fread  ( hc-f ) -2 file.io ;
10
  : fread  (  h-f ) -2 file.io ;
 
11
  : fwrite ( ch-f ) -3 file.io ;
11
  : fwrite ( ch-f ) -3 file.io ;
12
  : fclose ( h -f ) -4 file.io ;
12
  : fclose ( h -f ) -4 file.io ;
13
  : fpos   ( h -n ) -5 file.io ;
13
  : fpos   ( h -n ) -5 file.io ;
14
  : fseek  ( nh-f ) -6 file.io ;
14
  : fseek  ( nh-f ) -6 file.io ;
 
15
  : fsize  ( h-n  ) -7 file.io ;
15
  : fsize  (  h-n ) -7 file.io ;
 
16
}}
16
}}
17
))
17
))
18
18