home *** CD-ROM | disk | FTP | other *** search
/ Dream 57 / Amiga_Dream_57.iso / Amiga / Programmation / e / Modules / AmiTCP_beta.lha / Src / AmiTCP / fcntl.e < prev    next >
Encoding:
Text File  |  1996-08-11  |  665 b   |  42 lines
  1. OPT MODULE, PREPROCESS
  2. OPT EXPORT
  3.  
  4. -> Setup by dosio_init() in 'amitcp/init/dosio_init'
  5. DEF __dosio_files:PTR TO LONG
  6.  
  7. PROC read(fd, buf, len)
  8.   IF fd<3
  9.     RETURN Read(__dosio_files[fd], buf, len)
  10.   ELSE
  11.     RETURN -1
  12.   ENDIF
  13. ENDPROC
  14.  
  15. PROC write(fd, buf, len)
  16.   IF fd<3
  17.     RETURN Write(__dosio_files[fd], buf, len)
  18.   ELSE
  19.     RETURN -1
  20.   ENDIF
  21. ENDPROC
  22.  
  23. PROC lseek(fd, pos, mode)
  24.   IF fd<3
  25.     RETURN Seek(__dosio_files[fd], pos, mode-1)
  26.   ELSE
  27.     RETURN -1
  28.   ENDIF
  29. ENDPROC
  30.  
  31. PROC tell(x) IS lseek(x, 0, 1)
  32.  
  33. PROC unlink(name) IS Not(DeleteFile(name))
  34.  
  35. PROC isatty(fd)
  36.   IF fd<3
  37.     RETURN IsInteractive(__dosio_files[fd]) AND 1
  38.   ELSE
  39.     RETURN 0
  40.   ENDIF
  41. ENDPROC
  42.