sysdeps/mach/hurd/link.c

   1 /* Copyright (C) 1991, 92, 93, 94, 95, 96, 97 Free Software Foundation, Inc.
   2    This file is part of the GNU C Library.
   3
   4    The GNU C Library is free software; you can redistribute it and/or
   5    modify it under the terms of the GNU Lesser General Public
   6    License as published by the Free Software Foundation; either
   7    version 2.1 of the License, or (at your option) any later version.
   8
   9    The GNU C Library is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12    Lesser General Public License for more details.
  13
  14    You should have received a copy of the GNU Lesser General Public
  15    License along with the GNU C Library; if not, write to the Free
  16    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
  17    02111-1307 USA.  */
  18
  19 #include <errno.h>
  20 #include <stddef.h>
  21 #include <unistd.h>
  22 #include <hurd.h>
  23
  24 /* Make a link to FROM called TO.  */
  25 int
  26 __link (from, to)
  27      const char *from;
  28      const char *to;
  29 {
  30   error_t err;
  31   file_t oldfile, linknode, todir;
  32   char *toname;
  33
  34   oldfile = __file_name_lookup (from, 0, 0);
  35   if (oldfile == MACH_PORT_NULL)
  36     return -1;
  37
  38   /* The file_getlinknode RPC returns the port that should be passed to
  39      the receiving filesystem (the one containing TODIR) in dir_link.  */
  40
  41   err = __file_getlinknode (oldfile, &linknode);
  42   __mach_port_deallocate (__mach_task_self (), oldfile);
  43   if (err)
  44     return __hurd_fail (err);
  45
  46   todir = __file_name_split (to, &toname);
  47   if (todir != MACH_PORT_NULL)
  48     {
  49       err = __dir_link (todir, linknode, toname, 1);
  50       __mach_port_deallocate (__mach_task_self (), todir);
  51     }
  52   __mach_port_deallocate (__mach_task_self (), linknode);
  53   if (todir == MACH_PORT_NULL)
  54     return -1;
  55
  56   if (err)
  57     return __hurd_fail (err);
  58   return 0;
  59 }
  60
  61 weak_alias (__link, link)