home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / emacs-19.28-src.tgz / tar.out / fsf / emacs / unixlib / src / read.c < prev    next >
C/C++ Source or Header  |  1996-09-28  |  412b  |  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.