src/cp.c

   1 /* cp.c  -- file copying (main routines)
   2    Copyright (C) 89, 90, 91, 1995-2001 Free Software Foundation.
   3
   4    This program is free software; you can redistribute it and/or modify
   5    it under the terms of the GNU General Public License as published by
   6    the Free Software Foundation; either version 2, or (at your option)
   7    any later version.
   8
   9    This program 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
  12    GNU General Public License for more details.
  13
  14    You should have received a copy of the GNU General Public License
  15    along with this program; if not, write to the Free Software Foundation,
  16    Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  17
  18    Written by Torbjorn Granlund, David MacKenzie, and Jim Meyering. */
  19
  20 #ifdef _AIX
  21  #pragma alloca
  22 #endif
  23
  24 #include <config.h>
  25 #include <stdio.h>
  26 #include <sys/types.h>
  27 #include <assert.h>
  28 #include <getopt.h>
  29
  30 #include "system.h"
  31 #include "argmatch.h"
  32 #include "backupfile.h"
  33 #include "copy.h"
  34 #include "cp-hash.h"
  35 #include "error.h"
  36 #include "dirname.h"
  37 #include "path-concat.h"
  38 #include "quote.h"
  39
  40 #define ASSIGN_BASENAME_STRDUPA(Dest, File_name)        \
  41   do                                                    \
  42     {                                                   \
  43       char *tmp_abns_;                                  \
  44       ASSIGN_STRDUPA (tmp_abns_, (File_name));          \
  45       strip_trailing_slashes (tmp_abns_);               \
  46       Dest = base_name (tmp_abns_);                     \
  47     }                                                   \
  48   while (0)
  49
  50 /* The official name of this program (e.g., no `g' prefix).  */
  51 #define PROGRAM_NAME "cp"
  52
  53 #define AUTHORS N_ ("Torbjorn Granlund, David MacKenzie, and Jim Meyering")
  54
  55 #ifndef _POSIX_VERSION
  56 uid_t geteuid ();
  57 #endif
  58
  59 /* Used by do_copy, make_path_private, and re_protect
  60    to keep a list of leading directories whose protections
  61    need to be fixed after copying. */
  62 struct dir_attr
  63 {
  64   int is_new_dir;
  65   int slash_offset;
  66   struct dir_attr *next;
  67 };
  68
  69 /* For long options that have no equivalent short option, use a
  70    non-character as a pseudo short option, starting with CHAR_MAX + 1.  */
  71 enum
  72 {
  73   NO_PRESERVE_ATTRIBUTES_OPTION = CHAR_MAX + 1,
  74   PARENTS_OPTION,
  75   PRESERVE_ATTRIBUTES_OPTION,
  76   REPLY_OPTION,
  77   SPARSE_OPTION,
  78   STRIP_TRAILING_SLASHES_OPTION,
  79   TARGET_DIRECTORY_OPTION,
  80   UNLINK_DEST_BEFORE_OPENING
  81 };
  82
  83 /* Initial number of entries in each hash table entry's table of inodes.  */
  84 #define INITIAL_HASH_MODULE 100
  85
  86 /* Initial number of entries in the inode hash table.  */
  87 #define INITIAL_ENTRY_TAB_SIZE 70
  88
  89 /* The invocation name of this program.  */
  90 char *program_name;
  91
  92 /* If nonzero, the command "cp x/e_file e_dir" uses "e_dir/x/e_file"
  93    as its destination instead of the usual "e_dir/e_file." */
  94 static int flag_path = 0;
  95
  96 /* Remove any trailing slashes from each SOURCE argument.  */
  97 static int remove_trailing_slashes;
  98
  99 static char const *const sparse_type_string[] =
 100 {
 101   "never", "auto", "always", 0
 102 };
 103
 104 static enum Sparse_type const sparse_type[] =
 105 {
 106   SPARSE_NEVER, SPARSE_AUTO, SPARSE_ALWAYS
 107 };
 108
 109 /* Valid arguments to the `--reply' option. */
 110 static char const* const reply_args[] =
 111 {
 112   "yes", "no", "query", 0
 113 };
 114
 115 /* The values that correspond to the above strings. */
 116 static int const reply_vals[] =
 117 {
 118   I_ALWAYS_YES, I_ALWAYS_NO, I_ASK_USER
 119 };
 120
 121 /* The error code to return to the system. */
 122 static int exit_status = 0;
 123
 124 static struct option const long_opts[] =
 125 {
 126   {"archive", no_argument, NULL, 'a'},
 127   {"backup", optional_argument, NULL, 'b'},
 128   {"dereference", no_argument, NULL, 'L'},
 129   {"force", no_argument, NULL, 'f'},
 130   {"interactive", no_argument, NULL, 'i'},
 131   {"link", no_argument, NULL, 'l'},
 132   {"no-dereference", no_argument, NULL, 'P'},
 133   {"no-preserve", required_argument, NULL, NO_PRESERVE_ATTRIBUTES_OPTION},
 134   {"one-file-system", no_argument, NULL, 'x'},
 135   {"parents", no_argument, NULL, PARENTS_OPTION},
 136   {"path", no_argument, NULL, PARENTS_OPTION},   /* Deprecated.  */
 137   {"preserve", optional_argument, NULL, PRESERVE_ATTRIBUTES_OPTION},
 138   {"recursive", no_argument, NULL, 'R'},
 139   {"remove-destination", no_argument, NULL, UNLINK_DEST_BEFORE_OPENING},
 140   {"reply", required_argument, NULL, REPLY_OPTION},
 141   {"sparse", required_argument, NULL, SPARSE_OPTION},
 142   {"strip-trailing-slashes", no_argument, NULL, STRIP_TRAILING_SLASHES_OPTION},
 143   {"suffix", required_argument, NULL, 'S'},
 144   {"symbolic-link", no_argument, NULL, 's'},
 145   {"target-directory", required_argument, NULL, TARGET_DIRECTORY_OPTION},
 146   {"update", no_argument, NULL, 'u'},
 147   {"verbose", no_argument, NULL, 'v'},
 148   {"version-control", required_argument, NULL, 'V'}, /* Deprecated. FIXME. */
 149   {GETOPT_HELP_OPTION_DECL},
 150   {GETOPT_VERSION_OPTION_DECL},
 151   {NULL, 0, NULL, 0}
 152 };
 153
 154 void
 155 usage (int status)
 156 {
 157   if (status != 0)
 158     fprintf (stderr, _("Try `%s --help' for more information.\n"),
 159              program_name);
 160   else
 161     {
 162       printf (_("\
 163 Usage: %s [OPTION]... SOURCE DEST\n\
 164   or:  %s [OPTION]... SOURCE... DIRECTORY\n\
 165   or:  %s [OPTION]... --target-directory=DIRECTORY SOURCE...\n\
 166 "),
 167               program_name, program_name, program_name);
 168       fputs (_("\
 169 Copy SOURCE to DEST, or multiple SOURCE(s) to DIRECTORY.\n\
 170 \n\
 171   -a, --archive                same as -dpR\n\
 172       --backup[=CONTROL]       make a backup of each existing destination file\n\
 173   -b                           like --backup but does not accept an argument\n\
 174   -d                           same as --no-dereference --preserve=link\n\
 175 "), stdout);
 176       fputs (_("\
 177       --no-dereference         never follow symbolic links\n\
 178   -f, --force                  if an existing destination file cannot be\n\
 179                                  opened, remove it and try again\n\
 180   -i, --interactive            prompt before overwrite\n\
 181   -H                           follow command-line symbolic links\n\
 182 "), stdout);
 183       fputs (_("\
 184   -l, --link                   link files instead of copying\n\
 185   -L, --dereference            always follow symbolic links\n\
 186   -p                           same as --preserve=mode,ownership,timestamps\n\
 187       --preserve[=ATTR_LIST]   preserve the specified attributes (default:\n\
 188                                  mode,ownership,timestamps), if possible\n\
 189                                  additional attributes: links, all\n\
 190 "), stdout);
 191       fputs (_("\
 192       --no-preserve=ATTR_LIST  don't preserve the specified attributes\n\
 193       --parents                append source path to DIRECTORY\n\
 194   -P                           same as `--no-dereference'\n\
 195 "), stdout);
 196       fputs (_("\
 197   -r                           copy recursively, non-directories as files\n\
 198                                  WARNING: use -R instead when you might copy\n\
 199                                  special files like FIFOs or /dev/zero\n\
 200       --remove-destination     remove each existing destination file before\n\
 201                                  attempting to open it (contrast with --force)\n\
 202 "), stdout);
 203       fputs (_("\
 204       --sparse=WHEN            control creation of sparse files\n\
 205   -R, --recursive              copy directories recursively\n\
 206       --reply={yes,no,query}   specify how to handle the prompt about an\n\
 207                                  existing destination file\n\
 208       --strip-trailing-slashes remove any trailing slashes from each SOURCE\n\
 209                                  argument\n\
 210 "), stdout);
 211       fputs (_("\
 212   -s, --symbolic-link          make symbolic links instead of copying\n\
 213   -S, --suffix=SUFFIX          override the usual backup suffix\n\
 214       --target-directory=DIRECTORY  move all SOURCE arguments into DIRECTORY\n\
 215   -u, --update                 copy only when the SOURCE file is newer\n\
 216                                  than the destination file or when the\n\
 217                                  destination file is missing\n\
 218 "), stdout);
 219       fputs (_("\
 220   -v, --verbose                explain what is being done\n\
 221   -x, --one-file-system        stay on this file system\n\
 222       --help                   display this help and exit\n\
 223       --version                output version information and exit\n\
 224 \n\
 225 "), stdout);
 226       fputs (_("\
 227 By default, sparse SOURCE files are detected by a crude heuristic and the\n\
 228 corresponding DEST file is made sparse as well.  That is the behavior\n\
 229 selected by --sparse=auto.  Specify --sparse=always to create a sparse DEST\n\
 230 file whenever the SOURCE file contains a long enough sequence of zero bytes.\n\
 231 Use --sparse=never to inhibit creation of sparse files.\n\
 232 \n\
 233 "), stdout);
 234       fputs (_("\
 235 The backup suffix is `~', unless set with --suffix or SIMPLE_BACKUP_SUFFIX.\n\
 236 The version control method may be selected via the --backup option or through\n\
 237 the VERSION_CONTROL environment variable.  Here are the values:\n\
 238 \n\
 239 "), stdout);
 240       fputs (_("\
 241   none, off       never make backups (even if --backup is given)\n\
 242   numbered, t     make numbered backups\n\
 243   existing, nil   numbered if numbered backups exist, simple otherwise\n\
 244   simple, never   always make simple backups\n\
 245 "), stdout);
 246       fputs (_("\
 247 \n\
 248 As a special case, cp makes a backup of SOURCE when the force and backup\n\
 249 options are given and SOURCE and DEST are the same name for an existing,\n\
 250 regular file.\n\
 251 "), stdout);
 252       puts (_("\nReport bugs to <bug-fileutils@gnu.org>."));
 253     }
 254   exit (status);
 255 }
 256
 257 /* Ensure that the parent directories of CONST_DST_PATH have the
 258    correct protections, for the --parents option.  This is done
 259    after all copying has been completed, to allow permissions
 260    that don't include user write/execute.
 261
 262    SRC_OFFSET is the index in CONST_DST_PATH of the beginning of the
 263    source directory name.
 264
 265    ATTR_LIST is a null-terminated linked list of structures that
 266    indicates the end of the filename of each intermediate directory
 267    in CONST_DST_PATH that may need to have its attributes changed.
 268    The command `cp --parents --preserve a/b/c d/e_dir' changes the
 269    attributes of the directories d/e_dir/a and d/e_dir/a/b to match
 270    the corresponding source directories regardless of whether they
 271    existed before the `cp' command was given.
 272
 273    Return 0 if the parent of CONST_DST_PATH and any intermediate
 274    directories specified by ATTR_LIST have the proper permissions
 275    when done, otherwise 1. */
 276
 277 static int
 278 re_protect (const char *const_dst_path, int src_offset,
 279             struct dir_attr *attr_list, const struct cp_options *x)
 280 {
 281   struct dir_attr *p;
 282   char *dst_path;               /* A copy of CONST_DST_PATH we can change. */
 283   char *src_path;               /* The source name in `dst_path'. */
 284   uid_t myeuid = geteuid ();
 285
 286   dst_path = (char *) alloca (strlen (const_dst_path) + 1);
 287   strcpy (dst_path, const_dst_path);
 288   src_path = dst_path + src_offset;
 289
 290   for (p = attr_list; p; p = p->next)
 291     {
 292       struct stat src_sb;
 293
 294       dst_path[p->slash_offset] = '\0';
 295
 296       if ((*(x->xstat)) (src_path, &src_sb))
 297         {
 298           error (0, errno, _("getting attributes of %s"),
 299                  quote (src_path));
 300           return 1;
 301         }
 302
 303       /* Adjust the times (and if possible, ownership) for the copy.
 304          chown turns off set[ug]id bits for non-root,
 305          so do the chmod last.  */
 306
 307       if (x->preserve_timestamps)
 308         {
 309           struct utimbuf utb;
 310
 311           /* There's currently no interface to set file timestamps with
 312              better than 1-second resolution, so discard any fractional
 313              part of the source timestamp.  */
 314
 315           utb.actime = src_sb.st_atime;
 316           utb.modtime = src_sb.st_mtime;
 317
 318           if (utime (dst_path, &utb))
 319             {
 320               error (0, errno, _("preserving times for %s"), quote (dst_path));
 321               return 1;
 322             }
 323         }
 324
 325       if (x->preserve_ownership)
 326         {
 327           /* If non-root uses -p, it's ok if we can't preserve ownership.
 328              But root probably wants to know, e.g. if NFS disallows it,
 329              or if the target system doesn't support file ownership.  */
 330           if (chown (dst_path, src_sb.st_uid, src_sb.st_gid)
 331               && ((errno != EPERM && errno != EINVAL) || myeuid == 0))
 332             {
 333               error (0, errno, _("preserving ownership for %s"),
 334                      quote (dst_path));
 335               return 1;
 336             }
 337         }
 338
 339       if (x->preserve_mode || p->is_new_dir)
 340         {
 341           if (chmod (dst_path, src_sb.st_mode & x->umask_kill))
 342             {
 343               error (0, errno, _("preserving permissions for %s"),
 344                      quote (dst_path));
 345               return 1;
 346             }
 347         }
 348
 349       dst_path[p->slash_offset] = '/';
 350     }
 351   return 0;
 352 }
 353
 354 /* Ensure that the parent directory of CONST_DIRPATH exists, for
 355    the --parents option.
 356
 357    SRC_OFFSET is the index in CONST_DIRPATH (which is a destination
 358    path) of the beginning of the source directory name.
 359    Create any leading directories that don't already exist,
 360    giving them permissions MODE.
 361    If VERBOSE_FMT_STRING is nonzero, use it as a printf format
 362    string for printing a message after successfully making a directory.
 363    The format should take two string arguments: the names of the
 364    source and destination directories.
 365    Creates a linked list of attributes of intermediate directories,
 366    *ATTR_LIST, for re_protect to use after calling copy.
 367    Sets *NEW_DST to 1 if this function creates parent of CONST_DIRPATH.
 368
 369    Return 0 if parent of CONST_DIRPATH exists as a directory with the proper
 370    permissions when done, otherwise 1. */
 371
 372 /* FIXME: find a way to synch this function with the one in lib/makepath.c. */
 373
 374 static int
 375 make_path_private (const char *const_dirpath, int src_offset, int mode,
 376                    const char *verbose_fmt_string, struct dir_attr **attr_list,
 377                    int *new_dst, int (*xstat)())
 378 {
 379   struct stat stats;
 380   char *dirpath;                /* A copy of CONST_DIRPATH we can change. */
 381   char *src;                    /* Source name in `dirpath'. */
 382   char *dst_dirname;            /* Leading path of `dirpath'. */
 383   size_t dirlen;                /* Length of leading path of `dirpath'. */
 384
 385   dirpath = (char *) alloca (strlen (const_dirpath) + 1);
 386   strcpy (dirpath, const_dirpath);
 387
 388   src = dirpath + src_offset;
 389
 390   dirlen = dir_len (dirpath);
 391   dst_dirname = (char *) alloca (dirlen + 1);
 392   memcpy (dst_dirname, dirpath, dirlen);
 393   dst_dirname[dirlen] = '\0';
 394
 395   *attr_list = NULL;
 396
 397   if ((*xstat) (dst_dirname, &stats))
 398     {
 399       /* Parent of CONST_DIRNAME does not exist.
 400          Make all missing intermediate directories. */
 401       char *slash;
 402
 403       slash = src;
 404       while (*slash == '/')
 405         slash++;
 406       while ((slash = strchr (slash, '/')))
 407         {
 408           /* Add this directory to the list of directories whose modes need
 409              fixing later. */
 410           struct dir_attr *new =
 411             (struct dir_attr *) xmalloc (sizeof (struct dir_attr));
 412           new->slash_offset = slash - dirpath;
 413           new->next = *attr_list;
 414           *attr_list = new;
 415
 416           *slash = '\0';
 417           if ((*xstat) (dirpath, &stats))
 418             {
 419               /* This element of the path does not exist.  We must set
 420                  *new_dst and new->is_new_dir inside this loop because,
 421                  for example, in the command `cp --parents ../a/../b/c e_dir',
 422                  make_path_private creates only e_dir/../a if ./b already
 423                  exists. */
 424               *new_dst = 1;
 425               new->is_new_dir = 1;
 426               if (mkdir (dirpath, mode))
 427                 {
 428                   error (0, errno, _("cannot make directory %s"),
 429                          quote (dirpath));
 430                   return 1;
 431                 }
 432               else
 433                 {
 434                   if (verbose_fmt_string != NULL)
 435                     printf (verbose_fmt_string, src, dirpath);
 436                 }
 437             }
 438           else if (!S_ISDIR (stats.st_mode))
 439             {
 440               error (0, 0, _("%s exists but is not a directory"),
 441                      quote (dirpath));
 442               return 1;
 443             }
 444           else
 445             {
 446               new->is_new_dir = 0;
 447               *new_dst = 0;
 448             }
 449           *slash++ = '/';
 450
 451           /* Avoid unnecessary calls to `stat' when given
 452              pathnames containing multiple adjacent slashes.  */
 453           while (*slash == '/')
 454             slash++;
 455         }
 456     }
 457
 458   /* We get here if the parent of `dirpath' already exists. */
 459
 460   else if (!S_ISDIR (stats.st_mode))
 461     {
 462       error (0, 0, _("%s exists but is not a directory"), quote (dst_dirname));
 463       return 1;
 464     }
 465   else
 466     {
 467       *new_dst = 0;
 468     }
 469   return 0;
 470 }
 471
 472 /* Scan the arguments, and copy each by calling copy.
 473    Return 0 if successful, 1 if any errors occur. */
 474
 475 static int
 476 do_copy (int n_files, char **file, const char *target_directory,
 477          struct cp_options *x)
 478 {
 479   const char *dest;
 480   struct stat sb;
 481   int new_dst = 0;
 482   int ret = 0;
 483   int dest_is_dir = 0;
 484
 485   if (n_files <= 0)
 486     {
 487       error (0, 0, _("missing file arguments"));
 488       usage (1);
 489     }
 490   if (n_files == 1 && !target_directory)
 491     {
 492       error (0, 0, _("missing destination file"));
 493       usage (1);
 494     }
 495
 496   if (target_directory)
 497     dest = target_directory;
 498   else
 499     {
 500       dest = file[n_files - 1];
 501       --n_files;
 502     }
 503
 504   /* Initialize these hash tables only if we'll need them.
 505      The problems they're used to detect can arise only if
 506      there are two or more files to copy.  */
 507   if (n_files >= 2)
 508     {
 509       dest_info_init (x);
 510       src_info_init (x);
 511     }
 512
 513   if (lstat (dest, &sb))
 514     {
 515       if (errno != ENOENT)
 516         {
 517           error (0, errno, _("accessing %s"), quote (dest));
 518           return 1;
 519         }
 520
 521       new_dst = 1;
 522     }
 523   else
 524     {
 525       struct stat sbx;
 526
 527       /* If `dest' is not a symlink to a nonexistent file, use
 528          the results of stat instead of lstat, so we can copy files
 529          into symlinks to directories. */
 530       if (stat (dest, &sbx) == 0)
 531         sb = sbx;
 532
 533       dest_is_dir = S_ISDIR (sb.st_mode);
 534     }
 535
 536   if (!dest_is_dir)
 537     {
 538       if (target_directory)
 539         {
 540           error (0, 0, _("specified target, %s is not a directory"),
 541                  quote (dest));
 542           usage (1);
 543         }
 544
 545       if (n_files > 1)
 546         {
 547           error (0, 0,
 548          _("copying multiple files, but last argument %s is not a directory"),
 549              quote (dest));
 550           usage (1);
 551         }
 552     }
 553
 554   if (dest_is_dir)
 555     {
 556       /* cp file1...filen edir
 557          Copy the files `file1' through `filen'
 558          to the existing directory `edir'. */
 559       int i;
 560
 561       for (i = 0; i < n_files; i++)
 562         {
 563           char *dst_path;
 564           int parent_exists = 1; /* True if dir_name (dst_path) exists. */
 565           struct dir_attr *attr_list;
 566           char *arg_in_concat = NULL;
 567           char *arg = file[i];
 568
 569           /* Trailing slashes are meaningful (i.e., maybe worth preserving)
 570              only in the source file names.  */
 571           if (remove_trailing_slashes)
 572             strip_trailing_slashes (arg);
 573
 574           if (flag_path)
 575             {
 576               char *arg_no_trailing_slash;
 577
 578               /* Use `arg' without trailing slashes in constructing destination
 579                  file names.  Otherwise, we can end up trying to create a
 580                  directory via `mkdir ("dst/foo/"...', which is not portable.
 581                  It fails, due to the trailing slash, on at least
 582                  NetBSD 1.[34] systems.  */
 583               ASSIGN_STRDUPA (arg_no_trailing_slash, arg);
 584               strip_trailing_slashes (arg_no_trailing_slash);
 585
 586               /* Append all of `arg' (minus any trailing slash) to `dest'.  */
 587               dst_path = path_concat (dest, arg_no_trailing_slash,
 588                                       &arg_in_concat);
 589               if (dst_path == NULL)
 590                 xalloc_die ();
 591
 592               /* For --parents, we have to make sure that the directory
 593                  dir_name (dst_path) exists.  We may have to create a few
 594                  leading directories. */
 595               parent_exists = !make_path_private (dst_path,
 596                                                   arg_in_concat - dst_path,
 597                                                   S_IRWXU,
 598                                                   (x->verbose
 599                                                    ? "%s -> %s\n" : NULL),
 600                                                   &attr_list, &new_dst,
 601                                                   x->xstat);
 602             }
 603           else
 604             {
 605               char *arg_base;
 606               /* Append the last component of `arg' to `dest'.  */
 607
 608               ASSIGN_BASENAME_STRDUPA (arg_base, arg);
 609               /* For `cp -R source/.. dest', don't copy into `dest/..'. */
 610               dst_path = (STREQ (arg_base, "..")
 611                           ? xstrdup (dest)
 612                           : path_concat (dest, arg_base, NULL));
 613             }
 614
 615           if (!parent_exists)
 616             {
 617               /* make_path_private failed, so don't even attempt the copy. */
 618               ret = 1;
 619             }
 620           else
 621             {
 622               int copy_into_self;
 623               ret |= copy (arg, dst_path, new_dst, x, &copy_into_self, NULL);
 624
 625               if (flag_path)
 626                 {
 627                   ret |= re_protect (dst_path, arg_in_concat - dst_path,
 628                                      attr_list, x);
 629                 }
 630             }
 631
 632           free (dst_path);
 633         }
 634       return ret;
 635     }
 636   else /* if (n_files == 1) */
 637     {
 638       char *new_dest;
 639       char *source;
 640       int unused;
 641       struct stat source_stats;
 642
 643       if (flag_path)
 644         {
 645           error (0, 0,
 646                _("when preserving paths, the destination must be a directory"));
 647           usage (1);
 648         }
 649
 650       source = file[0];
 651
 652       /* When the force and backup options have been specified and
 653          the source and destination are the same name for an existing
 654          regular file, convert the user's command, e.g.,
 655          `cp --force --backup foo foo' to `cp --force foo fooSUFFIX'
 656          where SUFFIX is determined by any version control options used.  */
 657
 658       if (x->unlink_dest_after_failed_open
 659           && x->backup_type != none
 660           && STREQ (source, dest)
 661           && !new_dst && S_ISREG (sb.st_mode))
 662         {
 663           static struct cp_options x_tmp;
 664
 665           new_dest = find_backup_file_name (dest, x->backup_type);
 666           /* Set x->backup_type to `none' so that the normal backup
 667              mechanism is not used when performing the actual copy.
 668              backup_type must be set to `none' only *after* the above
 669              call to find_backup_file_name -- that function uses
 670              backup_type to determine the suffix it applies.  */
 671           x_tmp = *x;
 672           x_tmp.backup_type = none;
 673           x = &x_tmp;
 674
 675           if (new_dest == NULL)
 676             xalloc_die ();
 677         }
 678
 679       /* When the destination is specified with a trailing slash and the
 680          source exists but is not a directory, convert the user's command
 681          `cp source dest/' to `cp source dest/basename(source)'.  Doing
 682          this ensures that the command `cp non-directory file/' will now
 683          fail rather than performing the copy.  COPY diagnoses the case of
 684          `cp directory non-directory'.  */
 685
 686       else if (dest[strlen (dest) - 1] == '/'
 687           && lstat (source, &source_stats) == 0
 688           && !S_ISDIR (source_stats.st_mode))
 689         {
 690           char *source_base;
 691
 692           ASSIGN_BASENAME_STRDUPA (source_base, source);
 693           new_dest = (char *) alloca (strlen (dest)
 694                                       + strlen (source_base) + 1);
 695           stpcpy (stpcpy (new_dest, dest), source_base);
 696         }
 697       else
 698         {
 699           new_dest = (char *) dest;
 700         }
 701
 702       return copy (source, new_dest, new_dst, x, &unused, NULL);
 703     }
 704
 705   /* unreachable */
 706 }
 707
 708 static void
 709 cp_option_init (struct cp_options *x)
 710 {
 711   x->copy_as_regular = 1;
 712   x->dereference = DEREF_UNDEFINED;
 713   x->unlink_dest_before_opening = 0;
 714   x->unlink_dest_after_failed_open = 0;
 715   x->hard_link = 0;
 716   x->interactive = I_UNSPECIFIED;
 717   x->myeuid = geteuid ();
 718   x->move_mode = 0;
 719   x->one_file_system = 0;
 720
 721   x->preserve_ownership = 0;
 722   x->preserve_links = 0;
 723   x->preserve_mode = 0;
 724   x->preserve_timestamps = 0;
 725
 726   x->require_preserve = 0;
 727   x->recursive = 0;
 728   x->sparse_mode = SPARSE_AUTO;
 729   x->symbolic_link = 0;
 730   x->set_mode = 0;
 731   x->mode = 0;
 732
 733   /* Not used.  */
 734   x->stdin_tty = 0;
 735
 736   /* Find out the current file creation mask, to knock the right bits
 737      when using chmod.  The creation mask is set to be liberal, so
 738      that created directories can be written, even if it would not
 739      have been allowed with the mask this process was started with.  */
 740   x->umask_kill = ~ umask (0);
 741
 742   x->update = 0;
 743   x->verbose = 0;
 744   x->dest_info = NULL;
 745   x->src_info = NULL;
 746 }
 747
 748 /* Given a string, ARG, containing a comma-separated list of arguments
 749    to the --preserve option, set the appropriate fields of X to ON_OFF.  */
 750 static void
 751 decode_preserve_arg (char const *arg, struct cp_options *x, int on_off)
 752 {
 753   enum File_attribute
 754     {
 755       PRESERVE_MODE,
 756       PRESERVE_TIMESTAMPS,
 757       PRESERVE_OWNERSHIP,
 758       PRESERVE_LINK,
 759       PRESERVE_ALL
 760     };
 761   static enum File_attribute const preserve_vals[] =
 762     {
 763       PRESERVE_MODE, PRESERVE_TIMESTAMPS,
 764       PRESERVE_OWNERSHIP, PRESERVE_LINK, PRESERVE_ALL
 765     };
 766
 767   /* Valid arguments to the `--reply' option. */
 768   static char const* const preserve_args[] =
 769     {
 770       "mode", "timestamps",
 771       "ownership", "links", "all", 0
 772     };
 773
 774   char *arg_writable = xstrdup (arg);
 775   char *s = arg_writable;
 776   do
 777     {
 778       /* find next comma */
 779       char *comma = strchr (s, ',');
 780       enum File_attribute val;
 781
 782       /* put a NUL in its place */
 783       if (comma)
 784         *comma = 0;
 785
 786       /* process S.  */
 787       val = XARGMATCH ("--preserve", s, preserve_args, preserve_vals);
 788       switch (val)
 789         {
 790         case PRESERVE_MODE:
 791           x->preserve_mode = on_off;
 792           break;
 793
 794         case PRESERVE_TIMESTAMPS:
 795           x->preserve_timestamps = on_off;
 796           break;
 797
 798         case PRESERVE_OWNERSHIP:
 799           x->preserve_ownership = on_off;
 800           break;
 801
 802         case PRESERVE_LINK:
 803           x->preserve_links = on_off;
 804           break;
 805
 806         case PRESERVE_ALL:
 807           x->preserve_mode = on_off;
 808           x->preserve_timestamps = on_off;
 809           x->preserve_ownership = on_off;
 810           x->preserve_links = on_off;
 811           break;
 812
 813         default:
 814           abort ();
 815         }
 816       s = comma;
 817     }
 818   while (s);
 819
 820   free (arg_writable);
 821 }
 822
 823 int
 824 main (int argc, char **argv)
 825 {
 826   int c;
 827   int make_backups = 0;
 828   char *backup_suffix_string;
 829   char *version_control_string = NULL;
 830   struct cp_options x;
 831   char *target_directory = NULL;
 832
 833   program_name = argv[0];
 834   setlocale (LC_ALL, "");
 835   bindtextdomain (PACKAGE, LOCALEDIR);
 836   textdomain (PACKAGE);
 837
 838   atexit (close_stdout);
 839
 840   cp_option_init (&x);
 841
 842   /* FIXME: consider not calling getenv for SIMPLE_BACKUP_SUFFIX unless
 843      we'll actually use backup_suffix_string.  */
 844   backup_suffix_string = getenv ("SIMPLE_BACKUP_SUFFIX");
 845
 846   while ((c = getopt_long (argc, argv, "abdfHilLprsuvxPRS:V:", long_opts, NULL))
 847          != -1)
 848     {
 849       switch (c)
 850         {
 851         case 0:
 852           break;
 853
 854         case SPARSE_OPTION:
 855           x.sparse_mode = XARGMATCH ("--sparse", optarg,
 856                                      sparse_type_string, sparse_type);
 857           break;
 858
 859         case 'a':               /* Like -dpR. */
 860           x.dereference = DEREF_NEVER;
 861           x.preserve_links = 1;
 862           x.preserve_ownership = 1;
 863           x.preserve_mode = 1;
 864           x.preserve_timestamps = 1;
 865           x.require_preserve = 1;
 866           x.recursive = 1;
 867           x.copy_as_regular = 0;
 868           break;
 869
 870         case 'V':  /* FIXME: this is deprecated.  Remove it in 2001.  */
 871           error (0, 0,
 872                  _("warning: --version-control (-V) is obsolete;  support for\
 873  it\nwill be removed in some future release.  Use --backup=%s instead."
 874                    ), optarg);
 875           /* Fall through.  */
 876
 877         case 'b':
 878           make_backups = 1;
 879           if (optarg)
 880             version_control_string = optarg;
 881           break;
 882
 883         case 'd':
 884           x.preserve_links = 1;
 885           x.dereference = DEREF_NEVER;
 886           break;
 887
 888         case 'f':
 889           x.unlink_dest_after_failed_open = 1;
 890           break;
 891
 892         case 'H':
 893           x.dereference = DEREF_COMMAND_LINE_ARGUMENTS;
 894           break;
 895
 896         case 'i':
 897           x.interactive = I_ASK_USER;
 898           break;
 899
 900         case 'l':
 901           x.hard_link = 1;
 902           break;
 903
 904         case 'L':
 905           x.dereference = DEREF_ALWAYS;
 906           break;
 907
 908         case 'P':
 909           x.dereference = DEREF_NEVER;
 910           break;
 911
 912         case NO_PRESERVE_ATTRIBUTES_OPTION:
 913           decode_preserve_arg (optarg, &x, 0);
 914           break;
 915
 916         case PRESERVE_ATTRIBUTES_OPTION:
 917           if (optarg == NULL)
 918             {
 919               /* Fall through to the case for `p' below.  */
 920             }
 921           else
 922             {
 923               decode_preserve_arg (optarg, &x, 1);
 924               x.require_preserve = 1;
 925               break;
 926             }
 927
 928         case 'p':
 929           x.preserve_ownership = 1;
 930           x.preserve_mode = 1;
 931           x.preserve_timestamps = 1;
 932           x.require_preserve = 1;
 933           break;
 934
 935         case PARENTS_OPTION:
 936           flag_path = 1;
 937           break;
 938
 939         case 'r':
 940           x.recursive = 1;
 941           x.copy_as_regular = 1;
 942           break;
 943
 944         case 'R':
 945           x.recursive = 1;
 946           x.copy_as_regular = 0;
 947           break;
 948
 949         case REPLY_OPTION:
 950           x.interactive = XARGMATCH ("--reply", optarg,
 951                                      reply_args, reply_vals);
 952           break;
 953
 954         case UNLINK_DEST_BEFORE_OPENING:
 955           x.unlink_dest_before_opening = 1;
 956           break;
 957
 958         case STRIP_TRAILING_SLASHES_OPTION:
 959           remove_trailing_slashes = 1;
 960           break;
 961
 962         case 's':
 963 #ifdef S_ISLNK
 964           x.symbolic_link = 1;
 965 #else
 966           error (1, 0, _("symbolic links are not supported on this system"));
 967 #endif
 968           break;
 969
 970         case TARGET_DIRECTORY_OPTION:
 971           target_directory = optarg;
 972           break;
 973
 974         case 'u':
 975           x.update = 1;
 976           break;
 977
 978         case 'v':
 979           x.verbose = 1;
 980           break;
 981
 982         case 'x':
 983           x.one_file_system = 1;
 984           break;
 985
 986         case 'S':
 987           make_backups = 1;
 988           backup_suffix_string = optarg;
 989           break;
 990
 991         case_GETOPT_HELP_CHAR;
 992
 993         case_GETOPT_VERSION_CHAR (PROGRAM_NAME, AUTHORS);
 994
 995         default:
 996           usage (1);
 997         }
 998     }
 999
1000   if (x.hard_link && x.symbolic_link)
1001     {
1002       error (0, 0, _("cannot make both hard and symbolic links"));
1003       usage (1);
1004     }
1005
1006   if (backup_suffix_string)
1007     simple_backup_suffix = xstrdup (backup_suffix_string);
1008
1009   x.backup_type = (make_backups
1010                    ? xget_version (_("backup type"),
1011                                    version_control_string)
1012                    : none);
1013
1014   if (x.preserve_mode == 1)
1015     x.umask_kill = ~ (mode_t) 0;
1016
1017   if (x.dereference == DEREF_UNDEFINED)
1018     {
1019       if (x.recursive)
1020         /* This is compatible with FreeBSD.  */
1021         x.dereference = DEREF_NEVER;
1022       else
1023         x.dereference = DEREF_ALWAYS;
1024     }
1025
1026   /* The key difference between -d (--no-dereference) and not is the version
1027      of `stat' to call.  */
1028
1029   if (x.dereference == DEREF_NEVER)
1030     x.xstat = lstat;
1031   else
1032     {
1033       /* For DEREF_COMMAND_LINE_ARGUMENTS, x.xstat must be stat for
1034          each command line argument, but must later be `lstat' for
1035          any symlinks that are found via recursive traversal.  */
1036       x.xstat = stat;
1037     }
1038
1039   /* If --force (-f) was specified and we're in link-creation mode,
1040      first remove any existing destination file.  */
1041   if (x.unlink_dest_after_failed_open && (x.hard_link || x.symbolic_link))
1042     x.unlink_dest_before_opening = 1;
1043
1044   /* Allocate space for remembering copied and created files.  */
1045
1046   hash_init ();
1047
1048   exit_status |= do_copy (argc - optind, argv + optind, target_directory, &x);
1049
1050   forget_all ();
1051
1052   exit (exit_status);
1053 }