src/cp.c

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