src/cp.c

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