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