coreutils/ln.c

   1 /* vi: set sw=4 ts=4: */
   2 /*
   3  * Mini ln implementation for busybox
   4  *
   5  * Copyright (C) 1999,2000 by Lineo, inc. and Erik Andersen
   6  * Copyright (C) 1999,2000,2001 by Erik Andersen <andersee@debian.org>
   7  *
   8  * This program is free software; you can redistribute it and/or modify
   9  * it under the terms of the GNU General Public License as published by
  10  * the Free Software Foundation; either version 2 of the License, or
  11  * (at your option) any later version.
  12  *
  13  * This program is distributed in the hope that it will be useful,
  14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  16  * General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU General Public License
  19  * along with this program; if not, write to the Free Software
  20  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
  21  *
  22  */
  23
  24 #include <stdio.h>
  25 #include <dirent.h>
  26 #include <string.h>
  27 #include <stdlib.h>
  28 #include <errno.h>
  29 #include <unistd.h>
  30 #include "busybox.h"
  31
  32
  33 static const int LN_SYMLINK = 1;
  34 static const int LN_FORCE = 2;
  35 static const int LN_NODEREFERENCE = 4;
  36
  37 /*
  38  * linkDestName is where the link points to,
  39  * linkSrcName is the name of the link to be created.
  40  */
  41 static int fs_link(const char *link_destname, const char *link_srcname,
  42                 const int flag)
  43 {
  44         int status;
  45         int src_is_dir;
  46         char *src_name;
  47
  48         if (link_destname==NULL)
  49                 return(FALSE);
  50
  51         src_name = (char *) xmalloc(strlen(link_srcname)+strlen(link_destname)+1);
  52
  53         if (link_srcname==NULL)
  54                 strcpy(src_name, link_destname);
  55         else
  56                 strcpy(src_name, link_srcname);
  57
  58         if (flag&LN_NODEREFERENCE)
  59                 src_is_dir = is_directory(src_name, TRUE, NULL);
  60         else
  61                 src_is_dir = is_directory(src_name, FALSE, NULL);
  62
  63         if ((src_is_dir==TRUE)&&((flag&LN_NODEREFERENCE)==0)) {
  64                 char* srcdir_name;
  65
  66                 srcdir_name = xstrdup(link_destname);
  67                 strcat(src_name, "/");
  68                 strcat(src_name, get_last_path_component(srcdir_name));
  69                 free(srcdir_name);
  70         }
  71
  72         if (flag&LN_FORCE)
  73                 unlink(src_name);
  74
  75         if (flag&LN_SYMLINK)
  76                 status = symlink(link_destname, src_name);
  77         else
  78                 status = link(link_destname, src_name);
  79
  80         if (status != 0) {
  81                 perror_msg(src_name);
  82                 return(FALSE);
  83         }
  84         return(TRUE);
  85 }
  86
  87 extern int ln_main(int argc, char **argv)
  88 {
  89         int status = EXIT_SUCCESS;
  90         int flag = 0;
  91         int opt;
  92
  93         /* Parse any options */
  94         while ((opt=getopt(argc, argv, "sfn")) != -1) {
  95                 switch(opt) {
  96                         case 's':
  97                                 flag |= LN_SYMLINK;
  98                                 break;
  99                         case 'f':
 100                                 flag |= LN_FORCE;
 101                                 break;
 102                         case 'n':
 103                                 flag |= LN_NODEREFERENCE;
 104                                 break;
 105                         default:
 106                                 show_usage();
 107                 }
 108         }
 109         if (optind > (argc-1)) {
 110                 show_usage();
 111         }
 112         if (optind == (argc-1)) {
 113                 if (fs_link(argv[optind],
 114                                         get_last_path_component(argv[optind]), flag)==FALSE)
 115                         status = EXIT_FAILURE;
 116         }
 117         while(optind<(argc-1)) {
 118                 if (fs_link(argv[optind], argv[argc-1], flag)==FALSE)
 119                         status = EXIT_FAILURE;
 120                 optind++;
 121         }
 122         return status;
 123 }
 124
 125 /*
 126 Local Variables:
 127 c-file-style: "linux"
 128 c-basic-offset: 4
 129 tab-width: 4
 130 End:
 131 */