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 / lseek.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-09-28  |  334 b   |  24 lines
  1. #include "amiga.h"
  2. #include "files.h"
  3. #include <fcntl.h>
  4.  
  5. #undef lseek
  6.  
  7. int __lseek(int fd, long rpos, int mode)
  8. {
  9.   struct fileinfo *fi;
  10.  
  11.   chkabort();
  12.   if (fi = _find_fd(fd))
  13.     {
  14.       return fi->lseek(fi->userinfo, rpos, mode);
  15.     }
  16.   return -1;
  17. }
  18.  
  19. int lseek(int fd, long rpos, int mode)
  20. {
  21.   return __lseek(fd, rpos, mode);
  22. }
  23.  
  24.