home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD2.bin / bbs / gnu / emacs-19.28-src.lha / emacs-19.28 / unixlib / src / read.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-12-05  |  412 b   |  25 lines
  1. #include "amiga.h"
  2. #include "files.h"
  3. #include <fcntl.h>
  4.  
  5. #undef read
  6.  
  7. int __read(int fd, void *buffer, unsigned int length)
  8. {
  9.   struct fileinfo *fi;
  10.  
  11.   chkabort();
  12.   if (fi = _find_fd(fd))
  13.     {
  14.       if (fi->flags & FI_READ) return fi->read(fi->userinfo, buffer, length);
  15.       errno = EACCES;
  16.     }
  17.   return -1;
  18. }
  19.  
  20. int read(int fd, void *buffer, unsigned int length)
  21. {
  22.   return __read(fd, buffer, length);
  23. }
  24.  
  25.