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