src/cp.c

   1 /* cp.c  -- file copying (main routines)
   2    Copyright (C) 89, 90, 91, 1995-2000 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
  39 /* The official name of this program (e.g., no `g' prefix).  */
  40 #define PROGRAM_NAME "cp"
  41
  42 #define AUTHORS "Torbjorn Granlund, David MacKenzie, and Jim Meyering"
  43
  44 #ifndef _POSIX_VERSION
  45 uid_t geteuid ();
  46 #endif
  47
  48 /* Used by do_copy, make_path_private, and re_protect
  49    to keep a list of leading directories whose protections
  50    need to be fixed after copying. */
  51 struct dir_attr
  52 {
  53   int is_new_dir;
  54   int slash_offset;
  55   struct dir_attr *next;
  56 };
  57
  58 /* For long options that have no equivalent short option, use a
  59    non-character as a pseudo short option, starting with CHAR_MAX + 1.  */
  60 enum
  61 {
  62   TARGET_DIRECTORY_OPTION = CHAR_MAX + 1,
  63   SPARSE_OPTION,
  64   STRIP_TRAILING_SLASHES_OPTION
  65 };
  66
  67 int stat ();
  68 int lstat ();
  69
  70 void strip_trailing_slashes ();
  71
  72 /* Initial number of entries in each hash table entry's table of inodes.  */
  73 #define INITIAL_HASH_MODULE 100
  74
  75 /* Initial number of entries in the inode hash table.  */
  76 #define INITIAL_ENTRY_TAB_SIZE 70
  77
  78 /* The invocation name of this program.  */
  79 char *program_name;
  80
  81 /* If nonzero, the command "cp x/e_file e_dir" uses "e_dir/x/e_file"
  82    as its destination instead of the usual "e_dir/e_file." */
  83 static int flag_path = 0;
  84
  85 /* Remove any trailing slashes from each SOURCE argument.  */
  86 static int remove_trailing_slashes;
  87
  88 static char const *const sparse_type_string[] =
  89 {
  90   "never", "auto", "always", 0
  91 };
  92
  93 static enum Sparse_type const sparse_type[] =
  94 {
  95   SPARSE_NEVER, SPARSE_AUTO, SPARSE_ALWAYS
  96 };
  97
  98 /* The error code to return to the system. */
  99 static int exit_status = 0;
 100
 101 static struct option const long_opts[] =
 102 {
 103   {"archive", no_argument, NULL, 'a'},
 104   {"backup", optional_argument, NULL, 'b'},
 105   {"force", no_argument, NULL, 'f'},
 106   {"sparse", required_argument, NULL, SPARSE_OPTION},
 107   {"interactive", no_argument, NULL, 'i'},
 108   {"link", no_argument, NULL, 'l'},
 109   {"no-dereference", no_argument, NULL, 'd'},
 110   {"one-file-system", no_argument, NULL, 'x'},
 111   {"parents", no_argument, NULL, 'P'},
 112   {"path", no_argument, NULL, 'P'},
 113   {"preserve", no_argument, NULL, 'p'},
 114   {"recursive", no_argument, NULL, 'R'},
 115   {"strip-trailing-slash", no_argument, NULL, STRIP_TRAILING_SLASHES_OPTION},
 116   {"suffix", required_argument, NULL, 'S'},
 117   {"symbolic-link", no_argument, NULL, 's'},
 118   {"target-directory", required_argument, NULL, TARGET_DIRECTORY_OPTION},
 119   {"update", no_argument, NULL, 'u'},
 120   {"verbose", no_argument, NULL, 'v'},
 121   {"version-control", required_argument, NULL, 'V'}, /* Deprecated. FIXME. */
 122   {GETOPT_HELP_OPTION_DECL},
 123   {GETOPT_VERSION_OPTION_DECL},
 124   {NULL, 0, NULL, 0}
 125 };
 126
 127 void
 128 usage (int status)
 129 {
 130   if (status != 0)
 131     fprintf (stderr, _("Try `%s --help' for more information.\n"),
 132              program_name);
 133   else
 134     {
 135       printf (_("\
 136 Usage: %s [OPTION]... SOURCE DEST\n\
 137   or:  %s [OPTION]... SOURCE... DIRECTORY\n\
 138   or:  %s [OPTION]... --target-directory=DIRECTORY SOURCE...\n\
 139 "),
 140               program_name, program_name, program_name);
 141       printf (_("\
 142 Copy SOURCE to DEST, or multiple SOURCE(s) to DIRECTORY.\n\
 143 \n\
 144   -a, --archive                same as -dpR\n\
 145       --backup[=CONTROL]       make a backup of each existing destination file\n\
 146   -b                           like --backup but does not accept an argument\n\
 147   -d, --no-dereference         preserve links\n\
 148   -f, --force                  remove existing destinations, never prompt\n\
 149   -i, --interactive            prompt before overwrite\n\
 150   -l, --link                   link files instead of copying\n\
 151   -p, --preserve               preserve file attributes if possible\n\
 152   -P, --parents                append source path to DIRECTORY\n\
 153   -r                           copy recursively, non-directories as files\n\
 154                                  WARNING: use -R instead when you might copy\n\
 155                                  special files like FIFOs or /dev/zero\n\
 156       --sparse=WHEN            control creation of sparse files\n\
 157   -R, --recursive              copy directories recursively\n\
 158       --strip-trailing-slashes remove any trailing slashes from each SOURCE\n\
 159                                  argument\n\
 160   -s, --symbolic-link          make symbolic links instead of copying\n\
 161   -S, --suffix=SUFFIX          override the usual backup suffix\n\
 162       --target-directory=DIRECTORY  move all SOURCE arguments into DIRECTORY\n\
 163   -u, --update                 copy only when the SOURCE file is newer\n\
 164                                  than the destination file or when the\n\
 165                                  destination file is missing\n\
 166   -v, --verbose                explain what is being done\n\
 167   -x, --one-file-system        stay on this file system\n\
 168       --help                   display this help and exit\n\
 169       --version                output version information and exit\n\
 170 \n\
 171 By default, sparse SOURCE files are detected by a crude heuristic and the\n\
 172 corresponding DEST file is made sparse as well.  That is the behavior\n\
 173 selected by --sparse=auto.  Specify --sparse=always to create a sparse DEST\n\
 174 file whenever the SOURCE file contains a long enough sequence of zero bytes.\n\
 175 Use --sparse=never to inhibit creation of sparse files.\n\
 176 \n\
 177 "));
 178       printf (_("\
 179 The backup suffix is `~', unless set with --suffix or SIMPLE_BACKUP_SUFFIX.\n\
 180 The version control method may be selected via the --backup option or through\n\
 181 the VERSION_CONTROL environment variable.  Here are the values:\n\
 182 \n\
 183   none, off       never make backups (even if --backup is given)\n\
 184   numbered, t     make numbered backups\n\
 185   existing, nil   numbered if numbered backups exist, simple otherwise\n\
 186   simple, never   always make simple backups\n\
 187 "));
 188       printf (_("\
 189 \n\
 190 As a special case, cp makes a backup of SOURCE when the force and backup\n\
 191 options are given and SOURCE and DEST are the same name for an existing,\n\
 192 regular file.\n\
 193 "));
 194       puts (_("\nReport bugs to <bug-fileutils@gnu.org>."));
 195       close_stdout ();
 196     }
 197   exit (status);
 198 }
 199
 200 /* Ensure that the parent directories of CONST_DST_PATH have the
 201    correct protections, for the --parents option.  This is done
 202    after all copying has been completed, to allow permissions
 203    that don't include user write/execute.
 204
 205    SRC_OFFSET is the index in CONST_DST_PATH of the beginning of the
 206    source directory name.
 207
 208    ATTR_LIST is a null-terminated linked list of structures that
 209    indicates the end of the filename of each intermediate directory
 210    in CONST_DST_PATH that may need to have its attributes changed.
 211    The command `cp --parents --preserve a/b/c d/e_dir' changes the
 212    attributes of the directories d/e_dir/a and d/e_dir/a/b to match
 213    the corresponding source directories regardless of whether they
 214    existed before the `cp' command was given.
 215
 216    Return 0 if the parent of CONST_DST_PATH and any intermediate
 217    directories specified by ATTR_LIST have the proper permissions
 218    when done, otherwise 1. */
 219
 220 static int
 221 re_protect (const char *const_dst_path, int src_offset,
 222             struct dir_attr *attr_list, const struct cp_options *x)
 223 {
 224   struct dir_attr *p;
 225   char *dst_path;               /* A copy of CONST_DST_PATH we can change. */
 226   char *src_path;               /* The source name in `dst_path'. */
 227   uid_t myeuid = geteuid ();
 228
 229   dst_path = (char *) alloca (strlen (const_dst_path) + 1);
 230   strcpy (dst_path, const_dst_path);
 231   src_path = dst_path + src_offset;
 232
 233   for (p = attr_list; p; p = p->next)
 234     {
 235       struct stat src_sb;
 236
 237       dst_path[p->slash_offset] = '\0';
 238
 239       if ((*(x->xstat)) (src_path, &src_sb))
 240         {
 241           error (0, errno, "%s", src_path);
 242           return 1;
 243         }
 244
 245       /* Adjust the times (and if possible, ownership) for the copy.
 246          chown turns off set[ug]id bits for non-root,
 247          so do the chmod last.  */
 248
 249       if (x->preserve_timestamps)
 250         {
 251           struct utimbuf utb;
 252
 253           /* There's currently no interface to set file timestamps with
 254              better than 1-second resolution, so discard any fractional
 255              part of the source timestamp.  */
 256
 257           utb.actime = src_sb.st_atime;
 258           utb.modtime = src_sb.st_mtime;
 259
 260           if (utime (dst_path, &utb))
 261             {
 262               error (0, errno, _("preserving times for %s"), dst_path);
 263               return 1;
 264             }
 265         }
 266
 267       if (x->preserve_owner_and_group)
 268         {
 269           /* If non-root uses -p, it's ok if we can't preserve ownership.
 270              But root probably wants to know, e.g. if NFS disallows it,
 271              or if the target system doesn't support file ownership.  */
 272           if (chown (dst_path, src_sb.st_uid, src_sb.st_gid)
 273               && ((errno != EPERM && errno != EINVAL) || myeuid == 0))
 274             {
 275               error (0, errno, _("preserving ownership for %s"), dst_path);
 276               return 1;
 277             }
 278         }
 279
 280       if (x->preserve_chmod_bits || p->is_new_dir)
 281         {
 282           if (chmod (dst_path, src_sb.st_mode & x->umask_kill))
 283             {
 284               error (0, errno, _("preserving permissions for %s"), dst_path);
 285               return 1;
 286             }
 287         }
 288
 289       dst_path[p->slash_offset] = '/';
 290     }
 291   return 0;
 292 }
 293
 294 /* Ensure that the parent directory of CONST_DIRPATH exists, for
 295    the --parents option.
 296
 297    SRC_OFFSET is the index in CONST_DIRPATH (which is a destination
 298    path) of the beginning of the source directory name.
 299    Create any leading directories that don't already exist,
 300    giving them permissions MODE.
 301    If VERBOSE_FMT_STRING is nonzero, use it as a printf format
 302    string for printing a message after successfully making a directory.
 303    The format should take two string arguments: the names of the
 304    source and destination directories.
 305    Creates a linked list of attributes of intermediate directories,
 306    *ATTR_LIST, for re_protect to use after calling copy.
 307    Sets *NEW_DST to 1 if this function creates parent of CONST_DIRPATH.
 308
 309    Return 0 if parent of CONST_DIRPATH exists as a directory with the proper
 310    permissions when done, otherwise 1. */
 311
 312 static int
 313 make_path_private (const char *const_dirpath, int src_offset, int mode,
 314                    const char *verbose_fmt_string, struct dir_attr **attr_list,
 315                    int *new_dst, int (*xstat)())
 316 {
 317   struct stat stats;
 318   char *dirpath;                /* A copy of CONST_DIRPATH we can change. */
 319   char *src;                    /* Source name in `dirpath'. */
 320   char *tmp_dst_dirname;        /* Leading path of `dirpath', malloc. */
 321   char *dst_dirname;            /* Leading path of `dirpath', alloca. */
 322
 323   dirpath = (char *) alloca (strlen (const_dirpath) + 1);
 324   strcpy (dirpath, const_dirpath);
 325
 326   src = dirpath + src_offset;
 327
 328   tmp_dst_dirname = dir_name (dirpath);
 329   dst_dirname = (char *) alloca (strlen (tmp_dst_dirname) + 1);
 330   strcpy (dst_dirname, tmp_dst_dirname);
 331   free (tmp_dst_dirname);
 332
 333   *attr_list = NULL;
 334
 335   if ((*xstat) (dst_dirname, &stats))
 336     {
 337       /* Parent of CONST_DIRNAME does not exist.
 338          Make all missing intermediate directories. */
 339       char *slash;
 340
 341       slash = src;
 342       while (*slash == '/')
 343         slash++;
 344       while ((slash = strchr (slash, '/')))
 345         {
 346           /* Add this directory to the list of directories whose modes need
 347              fixing later. */
 348           struct dir_attr *new =
 349             (struct dir_attr *) xmalloc (sizeof (struct dir_attr));
 350           new->slash_offset = slash - dirpath;
 351           new->next = *attr_list;
 352           *attr_list = new;
 353
 354           *slash = '\0';
 355           if ((*xstat) (dirpath, &stats))
 356             {
 357               /* This element of the path does not exist.  We must set
 358                  *new_dst and new->is_new_dir inside this loop because,
 359                  for example, in the command `cp --parents ../a/../b/c e_dir',
 360                  make_path_private creates only e_dir/../a if ./b already
 361                  exists. */
 362               *new_dst = 1;
 363               new->is_new_dir = 1;
 364               if (mkdir (dirpath, mode))
 365                 {
 366                   error (0, errno, _("cannot make directory `%s'"), dirpath);
 367                   return 1;
 368                 }
 369               else
 370                 {
 371                   if (verbose_fmt_string != NULL)
 372                     printf (verbose_fmt_string, src, dirpath);
 373                 }
 374             }
 375           else if (!S_ISDIR (stats.st_mode))
 376             {
 377               error (0, 0, _("`%s' exists but is not a directory"), dirpath);
 378               return 1;
 379             }
 380           else
 381             {
 382               new->is_new_dir = 0;
 383               *new_dst = 0;
 384             }
 385           *slash++ = '/';
 386
 387           /* Avoid unnecessary calls to `stat' when given
 388              pathnames containing multiple adjacent slashes.  */
 389           while (*slash == '/')
 390             slash++;
 391         }
 392     }
 393
 394   /* We get here if the parent of `dirpath' already exists. */
 395
 396   else if (!S_ISDIR (stats.st_mode))
 397     {
 398       error (0, 0, _("`%s' exists but is not a directory"), dst_dirname);
 399       return 1;
 400     }
 401   else
 402     {
 403       *new_dst = 0;
 404     }
 405   return 0;
 406 }
 407
 408 /* Scan the arguments, and copy each by calling copy.
 409    Return 0 if successful, 1 if any errors occur. */
 410
 411 static int
 412 do_copy (int n_files, char **file, const char *target_directory,
 413          const struct cp_options *x)
 414 {
 415   const char *dest;
 416   struct stat sb;
 417   int new_dst = 0;
 418   int ret = 0;
 419   int dest_is_dir = 0;
 420
 421   if (n_files <= 0)
 422     {
 423       error (0, 0, _("missing file arguments"));
 424       usage (1);
 425     }
 426   if (n_files == 1 && !target_directory)
 427     {
 428       error (0, 0, _("missing destination file"));
 429       usage (1);
 430     }
 431
 432   if (target_directory)
 433     dest = target_directory;
 434   else
 435     {
 436       dest = file[n_files - 1];
 437       --n_files;
 438     }
 439
 440   if (lstat (dest, &sb))
 441     {
 442       if (errno != ENOENT)
 443         {
 444           error (0, errno, "%s", dest);
 445           return 1;
 446         }
 447
 448       new_dst = 1;
 449     }
 450   else
 451     {
 452       struct stat sbx;
 453
 454       /* If `dest' is not a symlink to a nonexistent file, use
 455          the results of stat instead of lstat, so we can copy files
 456          into symlinks to directories. */
 457       if (stat (dest, &sbx) == 0)
 458         sb = sbx;
 459
 460       dest_is_dir = S_ISDIR (sb.st_mode);
 461     }
 462
 463   if (!dest_is_dir)
 464     {
 465       if (target_directory)
 466         {
 467           error (0, 0, _("specified target, `%s' is not a directory"), dest);
 468           usage (1);
 469         }
 470
 471       if (n_files > 1)
 472         {
 473           error (0, 0,
 474          _("copying multiple files, but last argument (%s) is not a directory"),
 475              dest);
 476           usage (1);
 477         }
 478     }
 479
 480   if (dest_is_dir)
 481     {
 482       /* cp file1...filen edir
 483          Copy the files `file1' through `filen'
 484          to the existing directory `edir'. */
 485       int i;
 486
 487       for (i = 0; i < n_files; i++)
 488         {
 489           char *ap;
 490           char *dst_path;
 491           int parent_exists = 1; /* True if dir_name (dst_path) exists. */
 492           struct dir_attr *attr_list;
 493           char *arg_in_concat = NULL;
 494           char *arg = file[i];
 495
 496           if (remove_trailing_slashes)
 497             strip_trailing_slashes (arg);
 498
 499           if (flag_path)
 500             {
 501               /* Append all of `arg' to `dest'.  */
 502               dst_path = path_concat (dest, arg, &arg_in_concat);
 503               if (dst_path == NULL)
 504                 error (1, 0, _("virtual memory exhausted"));
 505
 506               /* For --parents, we have to make sure that the directory
 507                  dir_name (dst_path) exists.  We may have to create a few
 508                  leading directories. */
 509               parent_exists = !make_path_private (dst_path,
 510                                                   arg_in_concat - dst_path,
 511                                                   S_IRWXU,
 512                                                   (x->verbose
 513                                                    ? "%s -> %s\n" : NULL),
 514                                                   &attr_list, &new_dst,
 515                                                   x->xstat);
 516             }
 517           else
 518             {
 519               /* Append the last component of `arg' to `dest'.  */
 520
 521               ap = base_name (arg);
 522               /* For `cp -R source/.. dest', don't copy into `dest/..'. */
 523               dst_path = (STREQ (ap, "..")
 524                           ? xstrdup (dest)
 525                           : path_concat (dest, ap, NULL));
 526             }
 527
 528           if (!parent_exists)
 529             {
 530               /* make_path_private failed, so don't even attempt the copy. */
 531               ret = 1;
 532             }
 533           else
 534             {
 535               int copy_into_self;
 536               ret |= copy (arg, dst_path, new_dst, x, &copy_into_self, NULL);
 537               forget_all ();
 538
 539               if (flag_path)
 540                 {
 541                   ret |= re_protect (dst_path, arg_in_concat - dst_path,
 542                                      attr_list, x);
 543                 }
 544             }
 545
 546           free (dst_path);
 547         }
 548       return ret;
 549     }
 550   else /* if (n_files == 1) */
 551     {
 552       char *new_dest;
 553       char *source;
 554       int unused;
 555       struct stat source_stats;
 556
 557       if (flag_path)
 558         {
 559           error (0, 0,
 560                _("when preserving paths, the destination must be a directory"));
 561           usage (1);
 562         }
 563
 564       source = file[0];
 565
 566       /* When the force and backup options have been specified and
 567          the source and destination are the same name for an existing
 568          regular file, convert the user's command, e.g.,
 569          `cp --force --backup foo foo' to `cp --force foo fooSUFFIX'
 570          where SUFFIX is determined by any version control options used.  */
 571
 572       if (x->force
 573           && x->backup_type != none
 574           && STREQ (source, dest)
 575           && !new_dst && S_ISREG (sb.st_mode))
 576         {
 577           static struct cp_options x_tmp;
 578
 579           new_dest = find_backup_file_name (dest, x->backup_type);
 580           /* Set x->backup_type to `none' so that the normal backup
 581              mechanism is not used when performing the actual copy.
 582              backup_type must be set to `none' only *after* the above
 583              call to find_backup_file_name -- that function uses
 584              backup_type to determine the suffix it applies.  */
 585           x_tmp = *x;
 586           x_tmp.backup_type = none;
 587           x = &x_tmp;
 588
 589           if (new_dest == NULL)
 590             error (1, 0, _("virtual memory exhausted"));
 591         }
 592
 593       /* When the destination is specified with a trailing slash and the
 594          source exists but is not a directory, convert the user's command
 595          `cp source dest/' to `cp source dest/basename(source)'.  Doing
 596          this ensures that the command `cp non-directory file/' will now
 597          fail rather than performing the copy.  COPY diagnoses the case of
 598          `cp directory non-directory'.  */
 599
 600       else if (dest[strlen (dest) - 1] == '/'
 601           && lstat (source, &source_stats) == 0
 602           && !S_ISDIR (source_stats.st_mode))
 603         {
 604           char *source_base;
 605           char *tmp_source;
 606
 607           tmp_source = (char *) alloca (strlen (source) + 1);
 608           strcpy (tmp_source, source);
 609           if (remove_trailing_slashes)
 610             strip_trailing_slashes (tmp_source);
 611           source_base = base_name (tmp_source);
 612
 613           new_dest = (char *) alloca (strlen (dest)
 614                                       + strlen (source_base) + 1);
 615           stpcpy (stpcpy (new_dest, dest), source_base);
 616         }
 617       else
 618         {
 619           new_dest = (char *) dest;
 620         }
 621
 622       return copy (source, new_dest, new_dst, x, &unused, NULL);
 623     }
 624
 625   /* unreachable */
 626 }
 627
 628 static void
 629 cp_option_init (struct cp_options *x)
 630 {
 631   x->copy_as_regular = 1;
 632   x->dereference = 1;
 633   x->force = 0;
 634   x->failed_unlink_is_fatal = 1;
 635   x->hard_link = 0;
 636   x->interactive = 0;
 637   x->myeuid = geteuid ();
 638   x->move_mode = 0;
 639   x->one_file_system = 0;
 640
 641   x->preserve_owner_and_group = 0;
 642   x->preserve_chmod_bits = 0;
 643   x->preserve_timestamps = 0;
 644
 645   x->require_preserve = 0;
 646   x->recursive = 0;
 647   x->sparse_mode = SPARSE_AUTO;
 648   x->symbolic_link = 0;
 649   x->set_mode = 0;
 650   x->mode = 0;
 651
 652   /* Find out the current file creation mask, to knock the right bits
 653      when using chmod.  The creation mask is set to be liberal, so
 654      that created directories can be written, even if it would not
 655      have been allowed with the mask this process was started with.  */
 656   x->umask_kill = ~ umask (0);
 657
 658   x->update = 0;
 659   x->verbose = 0;
 660 }
 661
 662 int
 663 main (int argc, char **argv)
 664 {
 665   int c;
 666   int make_backups = 0;
 667   char *backup_suffix_string;
 668   char *version_control_string = NULL;
 669   struct cp_options x;
 670   char *target_directory = NULL;
 671
 672   program_name = argv[0];
 673   setlocale (LC_ALL, "");
 674   bindtextdomain (PACKAGE, LOCALEDIR);
 675   textdomain (PACKAGE);
 676
 677   cp_option_init (&x);
 678
 679   /* FIXME: consider not calling getenv for SIMPLE_BACKUP_SUFFIX unless
 680      we'll actually use backup_suffix_string.  */
 681   backup_suffix_string = getenv ("SIMPLE_BACKUP_SUFFIX");
 682
 683   while ((c = getopt_long (argc, argv, "abdfilprsuvxPRS:V:", long_opts, NULL))
 684          != -1)
 685     {
 686       switch (c)
 687         {
 688         case 0:
 689           break;
 690
 691         case SPARSE_OPTION:
 692           x.sparse_mode = XARGMATCH ("--sparse", optarg,
 693                                      sparse_type_string, sparse_type);
 694           break;
 695
 696         case 'a':               /* Like -dpR. */
 697           x.dereference = 0;
 698           x.preserve_owner_and_group = 1;
 699           x.preserve_chmod_bits = 1;
 700           x.preserve_timestamps = 1;
 701           x.require_preserve = 1;
 702           x.recursive = 1;
 703           x.copy_as_regular = 0;
 704           break;
 705
 706         case 'V':  /* FIXME: this is deprecated.  Remove it in 2001.  */
 707           error (0, 0,
 708                  _("warning: --version-control (-V) is obsolete;  support for\
 709  it\nwill be removed in some future release.  Use --backup=%s instead."
 710                    ), optarg);
 711           /* Fall through.  */
 712
 713         case 'b':
 714           make_backups = 1;
 715           if (optarg)
 716             version_control_string = optarg;
 717           break;
 718
 719         case 'd':
 720           x.dereference = 0;
 721           break;
 722
 723         case 'f':
 724           x.force = 1;
 725           x.interactive = 0;
 726           break;
 727
 728         case 'i':
 729           x.force = 0;
 730           x.interactive = 1;
 731           break;
 732
 733         case 'l':
 734           x.hard_link = 1;
 735           break;
 736
 737         case 'p':
 738           x.preserve_owner_and_group = 1;
 739           x.preserve_chmod_bits = 1;
 740           x.preserve_timestamps = 1;
 741           x.require_preserve = 1;
 742           break;
 743
 744         case 'P':
 745           flag_path = 1;
 746           break;
 747
 748         case 'r':
 749           x.recursive = 1;
 750           x.copy_as_regular = 1;
 751           break;
 752
 753         case 'R':
 754           x.recursive = 1;
 755           x.copy_as_regular = 0;
 756           break;
 757
 758         case STRIP_TRAILING_SLASHES_OPTION:
 759           remove_trailing_slashes = 1;
 760           break;
 761
 762         case 's':
 763 #ifdef S_ISLNK
 764           x.symbolic_link = 1;
 765 #else
 766           error (1, 0, _("symbolic links are not supported on this system"));
 767 #endif
 768           break;
 769
 770         case TARGET_DIRECTORY_OPTION:
 771           target_directory = optarg;
 772           break;
 773
 774         case 'u':
 775           x.update = 1;
 776           break;
 777
 778         case 'v':
 779           x.verbose = 1;
 780           break;
 781
 782         case 'x':
 783           x.one_file_system = 1;
 784           break;
 785
 786         case 'S':
 787           make_backups = 1;
 788           backup_suffix_string = optarg;
 789           break;
 790
 791         case_GETOPT_HELP_CHAR;
 792
 793         case_GETOPT_VERSION_CHAR (PROGRAM_NAME, AUTHORS);
 794
 795         default:
 796           usage (1);
 797         }
 798     }
 799
 800   if (x.hard_link && x.symbolic_link)
 801     {
 802       error (0, 0, _("cannot make both hard and symbolic links"));
 803       usage (1);
 804     }
 805
 806   if (backup_suffix_string)
 807     simple_backup_suffix = xstrdup (backup_suffix_string);
 808
 809   x.backup_type = (make_backups
 810                    ? xget_version (_("backup type"),
 811                                    version_control_string)
 812                    : none);
 813
 814   if (x.preserve_chmod_bits == 1)
 815     x.umask_kill = ~ (mode_t) 0;
 816
 817   /* The key difference between -d (--no-dereference) and not is the version
 818      of `stat' to call.  */
 819
 820   if (x.dereference)
 821     x.xstat = stat;
 822   else
 823     x.xstat = lstat;
 824
 825   /* Allocate space for remembering copied and created files.  */
 826
 827   hash_init (INITIAL_HASH_MODULE, INITIAL_ENTRY_TAB_SIZE);
 828
 829   exit_status |= do_copy (argc - optind, argv + optind, target_directory, &x);
 830
 831   if (x.verbose)
 832     close_stdout ();
 833   exit (exit_status);
 834 }