elf/sln.c

   1 /* `sln' program to create symboblic links between files.
   2    Copyright (C) 1998 Free Software Foundation, Inc.
   3    This file is part of the GNU C Library.
   4
   5    The GNU C Library is free software; you can redistribute it and/or
   6    modify it under the terms of the GNU Library General Public License as
   7    published by the Free Software Foundation; either version 2 of the
   8    License, or (at your option) any later version.
   9
  10    The GNU C Library is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13    Library General Public License for more details.
  14
  15    You should have received a copy of the GNU Library General Public
  16    License along with the GNU C Library; see the file COPYING.LIB.  If not,
  17    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  18    Boston, MA 02111-1307, USA.  */
  19 \f
  20 #include <sys/types.h>
  21 #include <sys/stat.h>
  22 #include <unistd.h>
  23 #include <errno.h>
  24 #include <ctype.h>
  25 #include <stdio.h>
  26 #include <string.h>
  27 #include <limits.h>
  28
  29 #if !defined(S_ISDIR) && defined(S_IFDIR)
  30 #define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)
  31 #endif
  32
  33 static int makesymlink __P ((const char *src, const char *dest));
  34 static int makesymlinks __P ((const char *file));
  35
  36 int
  37 main (argc, argv)
  38      int argc;
  39      char **argv;
  40 {
  41   switch (argc)
  42     {
  43     case 2:
  44       return makesymlinks (argv [1]) == 0 ? 0 : 1;
  45       break;
  46
  47     case 3:
  48       return makesymlink (argv [1], argv [2]) == 0 ? 0 : 1;
  49       break;
  50
  51     default:
  52       printf ("Usage: %s src dest|file\n", argv [0]);
  53       return 1;
  54       break;
  55     }
  56 }
  57
  58 static int
  59 makesymlinks (file)
  60      const char *file;
  61 {
  62 #ifndef PATH_MAX
  63 #define PATH_MAX 4095
  64 #endif
  65   char buffer [PATH_MAX * 4];
  66   int i, ret, len;
  67   int lineno;
  68   const char *src;
  69   const char *dest;
  70   const char *error;
  71   FILE *fp;
  72
  73   fp = fopen (file, "r");
  74   if (fp == NULL)
  75     {
  76       error = strerror (errno);
  77       fprintf (stderr, "%s: file open error: %s\n", file, error);
  78       return -1;
  79     }
  80
  81   ret = 0;
  82   lineno = 0;
  83   while (fgets (buffer, sizeof (buffer) - 1, fp))
  84     {
  85       lineno++;
  86       src = dest = NULL;
  87       buffer [sizeof (buffer) - 1] = '\0';
  88       len = strlen (buffer);
  89       for (i = 0; i < len && isspace (buffer [i]); i++);
  90       if (i >= len)
  91         {
  92           fprintf (stderr, "Fail to parse line %d: \"%s\"\n", lineno,
  93                    buffer);
  94           ret--;
  95           continue;
  96         }
  97
  98       src = &buffer [i];
  99       for (; i < len && !isspace (buffer [i]); i++);
 100       if (i < len)
 101         {
 102           buffer [i++] = '\0';
 103           for (; i < len && isspace (buffer [i]); i++);
 104           if (i >= len)
 105             {
 106               fprintf (stderr, "No target in line %d: \"%s\"\n", lineno,
 107                        buffer);
 108               ret--;
 109               continue;
 110             }
 111           dest = &buffer [i];
 112           for (; i < len && !isspace (buffer [i]); i++);
 113           buffer [i] = '\0';
 114         }
 115       else
 116         {
 117           fprintf (stderr, "No target in line %d: \"%s\"\n", lineno,
 118                    buffer);
 119           ret--;
 120           continue;
 121         }
 122
 123       if (makesymlink (src, dest))
 124         {
 125           fprintf (stderr, "Failed to make link from \"%s\" to \"%s\" in line %d\n",
 126                    src, dest, lineno);
 127           ret--;
 128         }
 129     }
 130   fclose (fp);
 131
 132   return ret;
 133 }
 134
 135 static int
 136 makesymlink (src, dest)
 137      const char *src;
 138      const char *dest;
 139 {
 140   struct stat stats;
 141   const char *error;
 142
 143   /* Destination must not be a directory. */
 144   if (lstat (dest, &stats) == 0)
 145     {
 146       if (S_ISDIR (stats.st_mode))
 147         {
 148           fprintf (stderr, "%s: destination must not be a directory\n",
 149                    dest);
 150           return -1;
 151         }
 152       else if (unlink (dest) && errno != ENOENT)
 153         {
 154           fprintf (stderr, "%s: failed to remove the old destination\n",
 155                    dest);
 156           return -1;
 157         }
 158     }
 159   else if (errno != ENOENT)
 160     {
 161       error = strerror (errno);
 162       fprintf (stderr, "%s: invalid destination: %s\n", dest, error);
 163       return -1;
 164     }
 165
 166 #ifdef S_ISLNK
 167   if (symlink (src, dest) == 0)
 168 #else
 169   if (link (src, dest) == 0)
 170 #endif
 171     {
 172       /* Destination must exist by now. */
 173       if (access (dest, F_OK))
 174         {
 175           error = strerror (errno);
 176           unlink (dest);
 177           fprintf (stderr, "Invalid link from \"%s\" to \"%s\": %s\n",
 178                    src, dest, error);
 179           return -1;
 180         }
 181       return 0;
 182     }
 183   else
 184     {
 185       error = strerror (errno);
 186       fprintf (stderr, "Invalid link from \"%s\" to \"%s\": %s\n",
 187                src, dest, error);
 188       return -1;
 189     }
 190 }