home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Programming / lsEstuff / myfile.e < prev    next >
Encoding:
Text File  |  1999-09-07  |  555 b   |  32 lines
  1. OPT MODULE
  2.  
  3. OPT EXPORT
  4.  
  5. PROC readfile(name, memflags=NIL)
  6.    DEF rl, len, mem, fh
  7.    len:=FileLength(name)
  8.    IF len < 1 THEN Throw("OPEN", name)
  9.    mem:=NewM(len, memflags)
  10.    fh:=Open(name, OLDFILE)
  11.    IF fh = NIL THEN Raise("OPEN")
  12.    rl:=Read(fh, mem, len)
  13.    Close(fh)
  14.    IF rl<>len THEN Raise("IN")
  15. ENDPROC mem, len
  16.  
  17.  
  18. PROC writefile(name, mem, len)
  19.    DEF fh, wl
  20.    fh:=Open(name, NEWFILE)
  21.    IF fh = NIL THEN Throw("OUT", name)
  22.    wl:=Write(fh, mem, len)
  23.    Close(fh)
  24.    IF wl<>len THEN Raise("OUT")
  25. ENDPROC
  26.  
  27. PROC freefile(mem) IS Dispose(mem)
  28.  
  29.  
  30.  
  31.  
  32.