Geek Gadgets 1/ADE-1.bin/ade-dist/emacs-19.28-src.tgz/tar.out/fsf/emacs/unixlib/src/link.c

C/C++ Source or Header | 1996-09-28 | 245b | 17 lines

#include "amiga.h"

int link(char *from, char *to)
{
  BPTR from_lock = Lock(from, ACCESS_READ);

  chkabort();
  if (from_lock)
    {
      int ok = MakeLink(to, from_lock, 0);

      UnLock(from_lock);
      if (ok) return 0;
    }
  ERROR;
}