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 / readlink.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-09-28  |  747 b   |  39 lines
  1. #include "amiga.h"
  2. #include <string.h>
  3.  
  4. int readlink(char *path, char *buf, int bufsiz)
  5. {
  6.   struct DevProc *dev = NULL;
  7.  
  8.   chkabort();
  9.  
  10.   while (1)
  11.     {
  12.       struct DevProc *newdev = GetDeviceProc(path, dev);
  13.       long err;
  14.       
  15.       FreeDeviceProc(dev);
  16.       if (!(dev = newdev)) ERROR;
  17.  
  18.       buf[0] = '\0';
  19.       if (ReadLink(dev->dvp_Port, dev->dvp_Lock, path, buf, bufsiz + 1))
  20.     {
  21.       FreeDeviceProc(dev);
  22.       if (!buf[0])
  23.         {
  24.           /* Play games with apparent 2.x ram: bug */
  25.           errno = ENOENT;
  26.           return -1;
  27.         }
  28.       return strlen(buf);
  29.     }
  30.       err = IoErr();
  31.       if (!(err == ERROR_OBJECT_NOT_FOUND && (dev->dvp_Flags & DVPF_ASSIGN)))
  32.     {
  33.       FreeDeviceProc(dev);
  34.       errno = convert_oserr(err);
  35.       return -1;
  36.     }
  37.     }
  38. }
  39.