Dogcows Code - chaz/tar/blob - src/tar.c

   1 /* A tar (tape archiver) program.
   2    Copyright 1988, 92,93,94,95,96,97, 1999 Free Software Foundation, Inc.
   3    Written by John Gilmore, starting 1985-08-25.
   4
   5    This program is free software; you can redistribute it and/or modify it
   6    under the terms of the GNU General Public License as published by the
   7    Free Software Foundation; either version 2, or (at your option) any later
   8    version.
   9
  10    This program is distributed in the hope that it will be useful, but
  11    WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General
  13    Public License for more details.
  14
  15    You should have received a copy of the GNU General Public License along
  16    with this program; if not, write to the Free Software Foundation, Inc.,
  17    59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  18
  19 #include "system.h"
  20
  21 #include <getopt.h>
  22
  23 #include <signal.h>
  24 #if ! defined SIGCHLD && defined SIGCLD
  25 # define SIGCHLD SIGCLD
  26 #endif
  27
  28 #include <time.h>
  29 #ifndef time
  30 time_t time ();
  31 #endif
  32
  33 /* The following causes "common.h" to produce definitions of all the global
  34    variables, rather than just "extern" declarations of them.  GNU tar does
  35    depend on the system loader to preset all GLOBAL variables to neutral (or
  36    zero) values; explicit initialization is usually not done.  */
  37 #define GLOBAL
  38 #include "common.h"
  39
  40 #include "xstrtol.h"
  41
  42 time_t get_date ();
  43
  44 /* Local declarations.  */
  45
  46 #ifndef DEFAULT_ARCHIVE
  47 # define DEFAULT_ARCHIVE "tar.out"
  48 #endif
  49
  50 #ifndef DEFAULT_BLOCKING
  51 # define DEFAULT_BLOCKING 20
  52 #endif
  53
  54 static void usage PARAMS ((int));
  55 \f
  56 /* Miscellaneous.  */
  57
  58 /*----------------------------------------------.
  59 | Doesn't return if stdin already requested.    |
  60 `----------------------------------------------*/
  61
  62 /* Name of option using stdin.  */
  63 static const char *stdin_used_by;
  64
  65 void
  66 request_stdin (const char *option)
  67 {
  68   if (stdin_used_by)
  69     USAGE_ERROR ((0, 0, _("Options `-%s' and `-%s' both want standard input"),
  70                   stdin_used_by, option));
  71
  72   stdin_used_by = option;
  73 }
  74
  75 /*--------------------------------------------------------.
  76 | Returns true if and only if the user typed 'y' or 'Y'.  |
  77 `--------------------------------------------------------*/
  78
  79 int
  80 confirm (const char *message_action, const char *message_name)
  81 {
  82   static FILE *confirm_file;
  83   static int confirm_file_EOF;
  84
  85   if (!confirm_file)
  86     {
  87       if (archive == 0 || stdin_used_by)
  88         confirm_file = fopen (TTY_NAME, "r");
  89       else
  90         {
  91           request_stdin ("-w");
  92           confirm_file = stdin;
  93         }
  94
  95       if (!confirm_file)
  96         FATAL_ERROR ((0, 0, _("Cannot read confirmation from user")));
  97     }
  98
  99   fprintf (stdlis, "%s %s?", message_action, message_name);
 100   fflush (stdlis);
 101
 102   {
 103     int reply = confirm_file_EOF ? EOF : getc (confirm_file);
 104     int character;
 105
 106     for (character = reply;
 107          character != '\n';
 108          character = getc (confirm_file))
 109       if (character == EOF)
 110         {
 111           confirm_file_EOF = 1;
 112           fputc ('\n', stdlis);
 113           fflush (stdlis);
 114           break;
 115         }
 116     return reply == 'y' || reply == 'Y';
 117   }
 118 }
 119 \f
 120 /* Options.  */
 121
 122 /* For long options that unconditionally set a single flag, we have getopt
 123    do it.  For the others, we share the code for the equivalent short
 124    named option, the name of which is stored in the otherwise-unused `val'
 125    field of the `struct option'; for long options that have no equivalent
 126    short option, we use non-characters as pseudo short options,
 127    starting at CHAR_MAX + 1 and going upwards.  */
 128
 129 enum
 130 {
 131   BACKUP_OPTION = CHAR_MAX + 1,
 132   DELETE_OPTION,
 133   EXCLUDE_OPTION,
 134   GROUP_OPTION,
 135   MODE_OPTION,
 136   NEWER_MTIME_OPTION,
 137   NO_RECURSE_OPTION,
 138   NULL_OPTION,
 139   OWNER_OPTION,
 140   POSIX_OPTION,
 141   PRESERVE_OPTION,
 142   RECORD_SIZE_OPTION,
 143   RSH_COMMAND_OPTION,
 144   SUFFIX_OPTION,
 145   USE_COMPRESS_PROGRAM_OPTION,
 146   VOLNO_FILE_OPTION,
 147
 148   /* Some cleanup is being made in GNU tar long options.  Using old names is
 149      allowed for a while, but will also send a warning to stderr.  Take old
 150      names out in 1.14, or in summer 1997, whichever happens last.  */
 151
 152   OBSOLETE_ABSOLUTE_NAMES,
 153   OBSOLETE_BLOCK_COMPRESS,
 154   OBSOLETE_BLOCKING_FACTOR,
 155   OBSOLETE_BLOCK_NUMBER,
 156   OBSOLETE_READ_FULL_RECORDS,
 157   OBSOLETE_TOUCH,
 158   OBSOLETE_VERSION_CONTROL
 159 };
 160
 161 /* If nonzero, display usage information and exit.  */
 162 static int show_help;
 163
 164 /* If nonzero, print the version on standard output and exit.  */
 165 static int show_version;
 166
 167 struct option long_options[] =
 168 {
 169   {"absolute-names", no_argument, 0, 'P'},
 170   {"absolute-paths", no_argument, 0, OBSOLETE_ABSOLUTE_NAMES},
 171   {"after-date", required_argument, 0, 'N'},
 172   {"append", no_argument, 0, 'r'},
 173   {"atime-preserve", no_argument, &atime_preserve_option, 1},
 174   {"backup", optional_argument, 0, BACKUP_OPTION},
 175   {"block-compress", no_argument, 0, OBSOLETE_BLOCK_COMPRESS},
 176   {"block-number", no_argument, 0, 'R'},
 177   {"block-size", required_argument, 0, OBSOLETE_BLOCKING_FACTOR},
 178   {"blocking-factor", required_argument, 0, 'b'},
 179   {"bzip2", no_argument, 0, 'I'},
 180   {"catenate", no_argument, 0, 'A'},
 181   {"checkpoint", no_argument, &checkpoint_option, 1},
 182   {"compare", no_argument, 0, 'd'},
 183   {"compress", no_argument, 0, 'Z'},
 184   {"concatenate", no_argument, 0, 'A'},
 185   {"confirmation", no_argument, 0, 'w'},
 186   /* FIXME: --selective as a synonym for --confirmation?  */
 187   {"create", no_argument, 0, 'c'},
 188   {"delete", no_argument, 0, DELETE_OPTION},
 189   {"dereference", no_argument, 0, 'h'},
 190   {"diff", no_argument, 0, 'd'},
 191   {"directory", required_argument, 0, 'C'},
 192   {"exclude", required_argument, 0, EXCLUDE_OPTION},
 193   {"exclude-from", required_argument, 0, 'X'},
 194   {"extract", no_argument, 0, 'x'},
 195   {"file", required_argument, 0, 'f'},
 196   {"files-from", required_argument, 0, 'T'},
 197   {"force-local", no_argument, &force_local_option, 1},
 198   {"get", no_argument, 0, 'x'},
 199   {"group", required_argument, 0, GROUP_OPTION},
 200   {"gunzip", no_argument, 0, 'z'},
 201   {"gzip", no_argument, 0, 'z'},
 202   {"help", no_argument, &show_help, 1},
 203   {"ignore-failed-read", no_argument, &ignore_failed_read_option, 1},
 204   {"ignore-zeros", no_argument, 0, 'i'},
 205   /* FIXME: --ignore-end as a new name for --ignore-zeros?  */
 206   {"incremental", no_argument, 0, 'G'},
 207   {"info-script", required_argument, 0, 'F'},
 208   {"interactive", no_argument, 0, 'w'},
 209   {"keep-old-files", no_argument, 0, 'k'},
 210   {"label", required_argument, 0, 'V'},
 211   {"list", no_argument, 0, 't'},
 212   {"listed-incremental", required_argument, 0, 'g'},
 213   {"mode", required_argument, 0, MODE_OPTION},
 214   {"modification-time", no_argument, 0, OBSOLETE_TOUCH},
 215   {"multi-volume", no_argument, 0, 'M'},
 216   {"new-volume-script", required_argument, 0, 'F'},
 217   {"newer", required_argument, 0, 'N'},
 218   {"newer-mtime", required_argument, 0, NEWER_MTIME_OPTION},
 219   {"null", no_argument, 0, NULL_OPTION},
 220   {"no-recursion", no_argument, 0, NO_RECURSE_OPTION},
 221   {"no-same-owner", no_argument, &same_owner_option, -1},
 222   {"no-same-permissions", no_argument, &same_permissions_option, -1},
 223   {"numeric-owner", no_argument, &numeric_owner_option, 1},
 224   {"old-archive", no_argument, 0, 'o'},
 225   {"one-file-system", no_argument, 0, 'l'},
 226   {"owner", required_argument, 0, OWNER_OPTION},
 227   {"portability", no_argument, 0, 'o'},
 228   {"posix", no_argument, 0, POSIX_OPTION},
 229   {"preserve", no_argument, 0, PRESERVE_OPTION},
 230   {"preserve-order", no_argument, 0, 's'},
 231   {"preserve-permissions", no_argument, 0, 'p'},
 232   {"recursive-unlink", no_argument, &recursive_unlink_option, 1},
 233   {"read-full-blocks", no_argument, 0, OBSOLETE_READ_FULL_RECORDS},
 234   {"read-full-records", no_argument, 0, 'B'},
 235   /* FIXME: --partial-blocks might be a synonym for --read-full-records?  */
 236   {"record-number", no_argument, 0, OBSOLETE_BLOCK_NUMBER},
 237   {"record-size", required_argument, 0, RECORD_SIZE_OPTION},
 238   {"remove-files", no_argument, &remove_files_option, 1},
 239   {"rsh-command", required_argument, 0, RSH_COMMAND_OPTION},
 240   {"same-order", no_argument, 0, 's'},
 241   {"same-owner", no_argument, &same_owner_option, 1},
 242   {"same-permissions", no_argument, 0, 'p'},
 243   {"show-omitted-dirs", no_argument, &show_omitted_dirs_option, 1},
 244   {"sparse", no_argument, 0, 'S'},
 245   {"starting-file", required_argument, 0, 'K'},
 246   {"suffix", required_argument, 0, SUFFIX_OPTION},
 247   {"tape-length", required_argument, 0, 'L'},
 248   {"to-stdout", no_argument, 0, 'O'},
 249   {"totals", no_argument, &totals_option, 1},
 250   {"touch", no_argument, 0, 'm'},
 251   {"uncompress", no_argument, 0, 'Z'},
 252   {"ungzip", no_argument, 0, 'z'},
 253   {"unlink-first", no_argument, 0, 'U'},
 254   {"update", no_argument, 0, 'u'},
 255   {"use-compress-program", required_argument, 0, USE_COMPRESS_PROGRAM_OPTION},
 256   {"verbose", no_argument, 0, 'v'},
 257   {"verify", no_argument, 0, 'W'},
 258   {"version", no_argument, &show_version, 1},
 259   {"version-control", required_argument, 0, OBSOLETE_VERSION_CONTROL},
 260   {"volno-file", required_argument, 0, VOLNO_FILE_OPTION},
 261
 262   {0, 0, 0, 0}
 263 };
 264
 265 /*---------------------------------------------.
 266 | Print a usage message and exit with STATUS.  |
 267 `---------------------------------------------*/
 268
 269 static void
 270 usage (int status)
 271 {
 272   if (status != TAREXIT_SUCCESS)
 273     fprintf (stderr, _("Try `%s --help' for more information.\n"),
 274              program_name);
 275   else
 276     {
 277       fputs (_("\
 278 GNU `tar' saves many files together into a single tape or disk archive, and\n\
 279 can restore individual files from the archive.\n"),
 280              stdout);
 281       printf (_("\nUsage: %s [OPTION]... [FILE]...\n"), program_name);
 282       fputs (_("\
 283 \n\
 284 If a long option shows an argument as mandatory, then it is mandatory\n\
 285 for the equivalent short option also.  Similarly for optional arguments.\n"),
 286              stdout);
 287       fputs(_("\
 288 \n\
 289 Main operation mode:\n\
 290   -t, --list              list the contents of an archive\n\
 291   -x, --extract, --get    extract files from an archive\n\
 292   -c, --create            create a new archive\n\
 293   -d, --diff, --compare   find differences between archive and file system\n\
 294   -r, --append            append files to the end of an archive\n\
 295   -u, --update            only append files newer than copy in archive\n\
 296   -A, --catenate          append tar files to an archive\n\
 297       --concatenate       same as -A\n\
 298       --delete            delete from the archive (not on mag tapes!)\n"),
 299             stdout);
 300       fputs (_("\
 301 \n\
 302 Operation modifiers:\n\
 303   -W, --verify               attempt to verify the archive after writing it\n\
 304       --remove-files         remove files after adding them to the archive\n\
 305   -k, --keep-old-files       don't overwrite existing files when extracting\n\
 306   -U, --unlink-first         remove each file prior to extracting over it\n\
 307       --recursive-unlink     empty hierarchies prior to extracting directory\n\
 308   -S, --sparse               handle sparse files efficiently\n\
 309   -O, --to-stdout            extract files to standard output\n\
 310   -G, --incremental          handle old GNU-format incremental backup\n\
 311   -g, --listed-incremental=FILE\n\
 312                              handle new GNU-format incremental backup\n\
 313       --ignore-failed-read   do not exit with nonzero on unreadable files\n"),
 314              stdout);
 315       fputs (_("\
 316 \n\
 317 Handling of file attributes:\n\
 318       --owner=NAME             force NAME as owner for added files\n\
 319       --group=NAME             force NAME as group for added files\n\
 320       --mode=CHANGES           force (symbolic) mode CHANGES for added files\n\
 321       --atime-preserve         don't change access times on dumped files\n\
 322   -m, --modification-time      don't extract file modified time\n\
 323       --same-owner             try extracting files with the same ownership\n\
 324       --no-same-owner          extract files as yourself\n\
 325       --numeric-owner          always use numbers for user/group names\n\
 326   -p, --same-permissions       extract permissions information\n\
 327       --no-same-permissions    do not extract permissions information\n\
 328       --preserve-permissions   same as -p\n\
 329   -s, --same-order             sort names to extract to match archive\n\
 330       --preserve-order         same as -s\n\
 331       --preserve               same as both -p and -s\n"),
 332              stdout);
 333       fputs (_("\
 334 \n\
 335 Device selection and switching:\n\
 336   -f, --file=ARCHIVE             use archive file or device ARCHIVE\n\
 337       --force-local              archive file is local even if has a colon\n\
 338       --rsh-command=COMMAND      use remote COMMAND instead of rsh\n\
 339   -[0-7][lmh]                    specify drive and density\n\
 340   -M, --multi-volume             create/list/extract multi-volume archive\n\
 341   -L, --tape-length=NUM          change tape after writing NUM x 1024 bytes\n\
 342   -F, --info-script=FILE         run script at end of each tape (implies -M)\n\
 343       --new-volume-script=FILE   same as -F FILE\n\
 344       --volno-file=FILE          use/update the volume number in FILE\n"),
 345              stdout);
 346       fputs (_("\
 347 \n\
 348 Device blocking:\n\
 349   -b, --blocking-factor=BLOCKS   BLOCKS x 512 bytes per record\n\
 350       --record-size=SIZE         SIZE bytes per record, multiple of 512\n\
 351   -i, --ignore-zeros             ignore zeroed blocks in archive (means EOF)\n\
 352   -B, --read-full-records        reblock as we read (for 4.2BSD pipes)\n"),
 353              stdout);
 354       fputs (_("\
 355 \n\
 356 Archive format selection:\n\
 357   -V, --label=NAME                   create archive with volume name NAME\n\
 358               PATTERN                at list/extract time, a globbing PATTERN\n\
 359   -o, --old-archive, --portability   write a V7 format archive\n\
 360       --posix                        write a POSIX format archive\n\
 361   -I, --bzip2                        filter the archive through bzip2\n\
 362   -z, --gzip, --ungzip               filter the archive through gzip\n\
 363   -Z, --compress, --uncompress       filter the archive through compress\n\
 364       --use-compress-program=PROG    filter through PROG (must accept -d)\n"),
 365              stdout);
 366       fputs (_("\
 367 \n\
 368 Local file selection:\n\
 369   -C, --directory=DIR          change to directory DIR\n\
 370   -T, --files-from=NAME        get names to extract or create from file NAME\n\
 371       --null                   -T reads null-terminated names, disable -C\n\
 372       --exclude=PATTERN        exclude files, given as a globbing PATTERN\n\
 373   -X, --exclude-from=FILE      exclude globbing patterns listed in FILE\n\
 374   -P, --absolute-names         don't strip leading `/'s from file names\n\
 375   -h, --dereference            dump instead the files symlinks point to\n\
 376       --no-recursion           avoid descending automatically in directories\n\
 377   -l, --one-file-system        stay in local file system when creating archive\n\
 378   -K, --starting-file=NAME     begin at file NAME in the archive\n"),
 379              stdout);
 380 #if !MSDOS
 381       fputs (_("\
 382   -N, --newer=DATE             only store files newer than DATE\n\
 383       --newer-mtime            compare date and time when data changed only\n\
 384       --after-date=DATE        same as -N\n"),
 385              stdout);
 386 #endif
 387       fputs (_("\
 388       --backup[=CONTROL]       backup before removal, choose version control\n\
 389       --suffix=SUFFIX          backup before removal, override usual suffix\n"),
 390              stdout);
 391       fputs (_("\
 392 \n\
 393 Informative output:\n\
 394       --help            print this help, then exit\n\
 395       --version         print tar program version number, then exit\n\
 396   -v, --verbose         verbosely list files processed\n\
 397       --checkpoint      print directory names while reading the archive\n\
 398       --totals          print total bytes written while creating archive\n\
 399   -R, --block-number    show block number within archive with each message\n\
 400   -w, --interactive     ask for confirmation for every action\n\
 401       --confirmation    same as -w\n"),
 402              stdout);
 403       fputs (_("\
 404 \n\
 405 The backup suffix is `~', unless set with --suffix or SIMPLE_BACKUP_SUFFIX.\n\
 406 The version control may be set with --backup or VERSION_CONTROL, values are:\n\
 407 \n\
 408   t, numbered     make numbered backups\n\
 409   nil, existing   numbered if numbered backups exist, simple otherwise\n\
 410   never, simple   always make simple backups\n"),
 411              stdout);
 412       printf (_("\
 413 \n\
 414 GNU tar cannot read nor produce `--posix' archives.  If POSIXLY_CORRECT\n\
 415 is set in the environment, GNU extensions are disallowed with `--posix'.\n\
 416 Support for POSIX is only partially implemented, don't count on it yet.\n\
 417 ARCHIVE may be FILE, HOST:FILE or USER@HOST:FILE; and FILE may be a file\n\
 418 or a device.  *This* `tar' defaults to `-f%s -b%d'.\n"),
 419               DEFAULT_ARCHIVE, DEFAULT_BLOCKING);
 420       fputs (_("\
 421 \n\
 422 Report bugs to <bug-tar@gnu.org>.\n"),
 423                stdout);
 424     }
 425   exit (status);
 426 }
 427
 428 /*----------------------------.
 429 | Parse the options for tar.  |
 430 `----------------------------*/
 431
 432 /* Available option letters are DEHJQY and aejnqy.  Some are reserved:
 433
 434    y  per-file gzip compression
 435    Y  per-block gzip compression */
 436
 437 #define OPTION_STRING \
 438   "-01234567ABC:F:GIK:L:MN:OPRST:UV:WX:Zb:cdf:g:hiklmoprstuvwxz"
 439
 440 static void
 441 set_subcommand_option (enum subcommand subcommand)
 442 {
 443   if (subcommand_option != UNKNOWN_SUBCOMMAND
 444       && subcommand_option != subcommand)
 445     USAGE_ERROR ((0, 0,
 446                   _("You may not specify more than one `-Acdtrux' option")));
 447
 448   subcommand_option = subcommand;
 449 }
 450
 451 static void
 452 set_use_compress_program_option (const char *string)
 453 {
 454   if (use_compress_program_option && strcmp (use_compress_program_option, string) != 0)
 455     USAGE_ERROR ((0, 0, _("Conflicting compression options")));
 456
 457   use_compress_program_option = string;
 458 }
 459
 460 /* Ignore DUMMY (which will always be null in practice), and add
 461    PATTERN to the proper set of patterns to be excluded -- either
 462    patterns with slashes, or patterns without.  */
 463 static void
 464 add_filtered_exclude (struct exclude *dummy, char const *pattern)
 465 {
 466   add_exclude ((strchr (pattern, '/')
 467                 ? excluded_with_slash
 468                 : excluded_without_slash),
 469                pattern);
 470 }
 471
 472 static void
 473 decode_options (int argc, char *const *argv)
 474 {
 475   int optchar;                  /* option letter */
 476   int input_files;              /* number of input files */
 477   const char *backup_suffix_string;
 478   const char *version_control_string = 0;
 479
 480   /* Set some default option values.  */
 481
 482   subcommand_option = UNKNOWN_SUBCOMMAND;
 483   archive_format = DEFAULT_FORMAT;
 484   blocking_factor = DEFAULT_BLOCKING;
 485   record_size = DEFAULT_BLOCKING * BLOCKSIZE;
 486   excluded_with_slash = new_exclude ();
 487   excluded_without_slash = new_exclude ();
 488   newer_mtime_option = TYPE_MINIMUM (time_t);
 489
 490   owner_option = -1;
 491   group_option = -1;
 492
 493   backup_suffix_string = getenv ("SIMPLE_BACKUP_SUFFIX");
 494
 495   /* Convert old-style tar call by exploding option element and rearranging
 496      options accordingly.  */
 497
 498   if (argc > 1 && argv[1][0] != '-')
 499     {
 500       int new_argc;             /* argc value for rearranged arguments */
 501       char **new_argv;          /* argv value for rearranged arguments */
 502       char *const *in;          /* cursor into original argv */
 503       char **out;               /* cursor into rearranged argv */
 504       const char *letter;       /* cursor into old option letters */
 505       char buffer[3];           /* constructed option buffer */
 506       const char *cursor;       /* cursor in OPTION_STRING */
 507
 508       /* Initialize a constructed option.  */
 509
 510       buffer[0] = '-';
 511       buffer[2] = '\0';
 512
 513       /* Allocate a new argument array, and copy program name in it.  */
 514
 515       new_argc = argc - 1 + strlen (argv[1]);
 516       new_argv = xmalloc (new_argc * sizeof (char *));
 517       in = argv;
 518       out = new_argv;
 519       *out++ = *in++;
 520
 521       /* Copy each old letter option as a separate option, and have the
 522          corresponding argument moved next to it.  */
 523
 524       for (letter = *in++; *letter; letter++)
 525         {
 526           buffer[1] = *letter;
 527           *out++ = xstrdup (buffer);
 528           cursor = strchr (OPTION_STRING, *letter);
 529           if (cursor && cursor[1] == ':')
 530             {
 531               if (in < argv + argc)
 532                 *out++ = *in++;
 533               else
 534                 USAGE_ERROR ((0, 0, _("Old option `%c' requires an argument."),
 535                               *letter));
 536             }
 537         }
 538
 539       /* Copy all remaining options.  */
 540
 541       while (in < argv + argc)
 542         *out++ = *in++;
 543
 544       /* Replace the old option list by the new one.  */
 545
 546       argc = new_argc;
 547       argv = new_argv;
 548     }
 549
 550   /* Parse all options and non-options as they appear.  */
 551
 552   input_files = 0;
 553
 554   while (optchar = getopt_long (argc, argv, OPTION_STRING, long_options, 0),
 555          optchar != -1)
 556     switch (optchar)
 557       {
 558       case '?':
 559         usage (TAREXIT_FAILURE);
 560
 561       case 0:
 562         break;
 563
 564       case 1:
 565         /* File name or non-parsed option, because of RETURN_IN_ORDER
 566            ordering triggered by the leading dash in OPTION_STRING.  */
 567
 568         name_add (optarg);
 569         input_files++;
 570         break;
 571
 572       case 'A':
 573         set_subcommand_option (CAT_SUBCOMMAND);
 574         break;
 575
 576       case OBSOLETE_BLOCK_COMPRESS:
 577         WARN ((0, 0, _("Obsolete option, now implied by --blocking-factor")));
 578         break;
 579
 580       case OBSOLETE_BLOCKING_FACTOR:
 581         WARN ((0, 0, _("Obsolete option name replaced by --blocking-factor")));
 582         /* Fall through.  */
 583
 584       case 'b':
 585         {
 586           uintmax_t u;
 587           if (! (xstrtoumax (optarg, 0, 10, &u, "") == LONGINT_OK
 588                  && u == (blocking_factor = u)
 589                  && 0 < blocking_factor
 590                  && u == (record_size = u * BLOCKSIZE) / BLOCKSIZE))
 591             USAGE_ERROR ((0, 0, _("Invalid blocking factor")));
 592         }
 593         break;
 594
 595       case OBSOLETE_READ_FULL_RECORDS:
 596         WARN ((0, 0,
 597                _("Obsolete option name replaced by --read-full-records")));
 598         /* Fall through.  */
 599
 600       case 'B':
 601         /* Try to reblock input records.  For reading 4.2BSD pipes.  */
 602
 603         /* It would surely make sense to exchange -B and -R, but it seems
 604            that -B has been used for a long while in Sun tar ans most
 605            BSD-derived systems.  This is a consequence of the block/record
 606            terminology confusion.  */
 607
 608         read_full_records_option = 1;
 609         break;
 610
 611       case 'c':
 612         set_subcommand_option (CREATE_SUBCOMMAND);
 613         break;
 614
 615       case 'C':
 616         name_add ("-C");
 617         name_add (optarg);
 618         break;
 619
 620       case 'd':
 621         set_subcommand_option (DIFF_SUBCOMMAND);
 622         break;
 623
 624       case 'f':
 625         if (archive_names == allocated_archive_names)
 626           {
 627             allocated_archive_names *= 2;
 628             archive_name_array =
 629               xrealloc (archive_name_array,
 630                         sizeof (const char *) * allocated_archive_names);
 631           }
 632         archive_name_array[archive_names++] = optarg;
 633         break;
 634
 635       case 'F':
 636         /* Since -F is only useful with -M, make it implied.  Run this
 637            script at the end of each tape.  */
 638
 639         info_script_option = optarg;
 640         multi_volume_option = 1;
 641         break;
 642
 643       case 'g':
 644         listed_incremental_option = optarg;
 645         after_date_option = 1;
 646         /* Fall through.  */
 647
 648       case 'G':
 649         /* We are making an incremental dump (FIXME: are we?); save
 650            directories at the beginning of the archive, and include in each
 651            directory its contents.  */
 652
 653         incremental_option = 1;
 654         break;
 655
 656       case 'h':
 657         /* Follow symbolic links.  */
 658
 659         dereference_option = 1;
 660         break;
 661
 662       case 'i':
 663         /* Ignore zero blocks (eofs).  This can't be the default,
 664            because Unix tar writes two blocks of zeros, then pads out
 665            the record with garbage.  */
 666
 667         ignore_zeros_option = 1;
 668         break;
 669
 670       case 'I':
 671         set_use_compress_program_option ("bzip2");
 672         break;
 673
 674       case 'k':
 675         /* Don't overwrite existing files.  */
 676
 677         keep_old_files_option = 1;
 678         break;
 679
 680       case 'K':
 681         starting_file_option = 1;
 682         addname (optarg, 0);
 683         break;
 684
 685       case 'l':
 686         /* When dumping directories, don't dump files/subdirectories
 687            that are on other filesystems.  */
 688
 689         one_file_system_option = 1;
 690         break;
 691
 692       case 'L':
 693         {
 694           uintmax_t u;
 695           if (xstrtoumax (optarg, 0, 10, &u, "") != LONGINT_OK)
 696             USAGE_ERROR ((0, 0, _("Invalid tape length")));
 697           tape_length_option = 1024 * (tarlong) u;
 698           multi_volume_option = 1;
 699         }
 700         break;
 701
 702       case OBSOLETE_TOUCH:
 703         WARN ((0, 0, _("Obsolete option name replaced by --touch")));
 704         /* Fall through.  */
 705
 706       case 'm':
 707         touch_option = 1;
 708         break;
 709
 710       case 'M':
 711         /* Make multivolume archive: when we can't write any more into
 712            the archive, re-open it, and continue writing.  */
 713
 714         multi_volume_option = 1;
 715         break;
 716
 717 #if !MSDOS
 718       case 'N':
 719         after_date_option = 1;
 720         /* Fall through.  */
 721
 722       case NEWER_MTIME_OPTION:
 723         if (newer_mtime_option != TYPE_MINIMUM (time_t))
 724           USAGE_ERROR ((0, 0, _("More than one threshold date")));
 725
 726         newer_mtime_option = get_date (optarg, 0);
 727         if (newer_mtime_option == (time_t) -1)
 728           WARN ((0, 0, _("Substituting %s for unknown date format `%s'"),
 729                  tartime (newer_mtime_option), optarg));
 730
 731         break;
 732 #endif /* not MSDOS */
 733
 734       case 'o':
 735         if (archive_format == DEFAULT_FORMAT)
 736           archive_format = V7_FORMAT;
 737         else if (archive_format != V7_FORMAT)
 738           USAGE_ERROR ((0, 0, _("Conflicting archive format options")));
 739         break;
 740
 741       case 'O':
 742         to_stdout_option = 1;
 743         break;
 744
 745       case 'p':
 746         same_permissions_option = 1;
 747         break;
 748
 749       case OBSOLETE_ABSOLUTE_NAMES:
 750         WARN ((0, 0, _("Obsolete option name replaced by --absolute-names")));
 751         /* Fall through.  */
 752
 753       case 'P':
 754         absolute_names_option = 1;
 755         break;
 756
 757       case 'r':
 758         set_subcommand_option (APPEND_SUBCOMMAND);
 759         break;
 760
 761       case OBSOLETE_BLOCK_NUMBER:
 762         WARN ((0, 0, _("Obsolete option name replaced by --block-number")));
 763         /* Fall through.  */
 764
 765       case 'R':
 766         /* Print block numbers for debugging bad tar archives.  */
 767
 768         /* It would surely make sense to exchange -B and -R, but it seems
 769            that -B has been used for a long while in Sun tar ans most
 770            BSD-derived systems.  This is a consequence of the block/record
 771            terminology confusion.  */
 772
 773         block_number_option = 1;
 774         break;
 775
 776       case 's':
 777         /* Names to extr are sorted.  */
 778
 779         same_order_option = 1;
 780         break;
 781
 782       case 'S':
 783         sparse_option = 1;
 784         break;
 785
 786       case 't':
 787         set_subcommand_option (LIST_SUBCOMMAND);
 788         verbose_option++;
 789         break;
 790
 791       case 'T':
 792         files_from_option = optarg;
 793         break;
 794
 795       case 'u':
 796         set_subcommand_option (UPDATE_SUBCOMMAND);
 797         break;
 798
 799       case 'U':
 800         unlink_first_option = 1;
 801         break;
 802
 803       case 'v':
 804         verbose_option++;
 805         break;
 806
 807       case 'V':
 808         volume_label_option = optarg;
 809         break;
 810
 811       case 'w':
 812         interactive_option = 1;
 813         break;
 814
 815       case 'W':
 816         verify_option = 1;
 817         break;
 818
 819       case 'x':
 820         set_subcommand_option (EXTRACT_SUBCOMMAND);
 821         break;
 822
 823       case 'X':
 824         if (add_exclude_file (add_filtered_exclude, 0, optarg, '\n') != 0)
 825           FATAL_ERROR ((0, errno, "%s", optarg));
 826         break;
 827
 828       case 'z':
 829         set_use_compress_program_option ("gzip");
 830         break;
 831
 832       case 'Z':
 833         set_use_compress_program_option ("compress");
 834         break;
 835
 836       case OBSOLETE_VERSION_CONTROL:
 837         WARN ((0, 0, _("Obsolete option name replaced by --backup")));
 838         /* Fall through.  */
 839
 840       case BACKUP_OPTION:
 841         backup_option = 1;
 842         if (optarg)
 843           version_control_string = optarg;
 844         break;
 845
 846       case DELETE_OPTION:
 847         set_subcommand_option (DELETE_SUBCOMMAND);
 848         break;
 849
 850       case EXCLUDE_OPTION:
 851         add_filtered_exclude (0, optarg);
 852         break;
 853
 854       case GROUP_OPTION:
 855         if (! (strlen (optarg) < GNAME_FIELD_SIZE
 856                && gname_to_gid (optarg, &group_option)))
 857           {
 858             uintmax_t g;
 859             if (xstrtoumax (optarg, 0, 10, &g, "") == LONGINT_OK
 860                 && g == (gid_t) g)
 861               group_option = g;
 862             else
 863               FATAL_ERROR ((0, 0, _("Invalid group given on option")));
 864           }
 865         break;
 866
 867       case MODE_OPTION:
 868         mode_option
 869           = mode_compile (optarg,
 870                           MODE_MASK_EQUALS | MODE_MASK_PLUS | MODE_MASK_MINUS);
 871         if (mode_option == MODE_INVALID)
 872           FATAL_ERROR ((0, 0, _("Invalid mode given on option")));
 873         if (mode_option == MODE_MEMORY_EXHAUSTED)
 874           FATAL_ERROR ((0, 0, _("Memory exhausted")));
 875         break;
 876
 877       case NO_RECURSE_OPTION:
 878         no_recurse_option = 1;
 879         break;
 880
 881       case NULL_OPTION:
 882         filename_terminator = '\0';
 883         break;
 884
 885       case OWNER_OPTION:
 886         if (! (strlen (optarg) < UNAME_FIELD_SIZE
 887                && uname_to_uid (optarg, &owner_option)))
 888           {
 889             uintmax_t u;
 890             if (xstrtoumax (optarg, 0, 10, &u, "") == LONGINT_OK
 891                 && u == (uid_t) u)
 892               owner_option = u;
 893             else
 894               FATAL_ERROR ((0, 0, _("Invalid owner given on option")));
 895           }
 896         break;
 897
 898       case POSIX_OPTION:
 899 #if OLDGNU_COMPATIBILITY
 900         if (archive_format == DEFAULT_FORMAT)
 901           archive_format = GNU_FORMAT;
 902         else if (archive_format != GNU_FORMAT)
 903           USAGE_ERROR ((0, 0, _("Conflicting archive format options")));
 904 #else
 905         if (archive_format == DEFAULT_FORMAT)
 906           archive_format = POSIX_FORMAT;
 907         else if (archive_format != POSIX_FORMAT)
 908           USAGE_ERROR ((0, 0, _("Conflicting archive format options")));
 909 #endif
 910         break;
 911
 912       case PRESERVE_OPTION:
 913         same_permissions_option = 1;
 914         same_order_option = 1;
 915         break;
 916
 917       case RECORD_SIZE_OPTION:
 918         {
 919           uintmax_t u;
 920           if (! (xstrtoumax (optarg, 0, 10, &u, "") == LONGINT_OK
 921                  && u == (size_t) u))
 922             USAGE_ERROR ((0, 0, _("Invalid record size")));
 923           record_size = u;
 924           if (record_size % BLOCKSIZE != 0)
 925             USAGE_ERROR ((0, 0, _("Record size must be a multiple of %d."),
 926                           BLOCKSIZE));
 927           blocking_factor = record_size / BLOCKSIZE;
 928         }
 929         break;
 930
 931       case RSH_COMMAND_OPTION:
 932         rsh_command_option = optarg;
 933         break;
 934
 935       case SUFFIX_OPTION:
 936         backup_option = 1;
 937         backup_suffix_string = optarg;
 938         break;
 939
 940       case VOLNO_FILE_OPTION:
 941         volno_file_option = optarg;
 942         break;
 943
 944       case USE_COMPRESS_PROGRAM_OPTION:
 945         set_use_compress_program_option (optarg);
 946         break;
 947
 948       case '0':
 949       case '1':
 950       case '2':
 951       case '3':
 952       case '4':
 953       case '5':
 954       case '6':
 955       case '7':
 956
 957 #ifdef DEVICE_PREFIX
 958         {
 959           int device = optchar - '0';
 960           int density;
 961           static char buf[sizeof DEVICE_PREFIX + 10];
 962           char *cursor;
 963
 964           density = getopt_long (argc, argv, "lmh", 0, 0);
 965           strcpy (buf, DEVICE_PREFIX);
 966           cursor = buf + strlen (buf);
 967
 968 #ifdef DENSITY_LETTER
 969
 970           sprintf (cursor, "%d%c", device, density);
 971
 972 #else /* not DENSITY_LETTER */
 973
 974           switch (density)
 975             {
 976             case 'l':
 977 #ifdef LOW_NUM
 978               device += LOW_NUM;
 979 #endif
 980               break;
 981
 982             case 'm':
 983 #ifdef MID_NUM
 984               device += MID_NUM;
 985 #else
 986               device += 8;
 987 #endif
 988               break;
 989
 990             case 'h':
 991 #ifdef HGH_NUM
 992               device += HGH_NUM;
 993 #else
 994               device += 16;
 995 #endif
 996               break;
 997
 998             default:
 999               usage (TAREXIT_FAILURE);
1000             }
1001           sprintf (cursor, "%d", device);
1002
1003 #endif /* not DENSITY_LETTER */
1004
1005           if (archive_names == allocated_archive_names)
1006             {
1007               allocated_archive_names *= 2;
1008               archive_name_array =
1009                 xrealloc (archive_name_array,
1010                           sizeof (const char *) * allocated_archive_names);
1011             }
1012           archive_name_array[archive_names++] = buf;
1013
1014           /* FIXME: How comes this works for many archives when buf is
1015              not xstrdup'ed?  */
1016         }
1017         break;
1018
1019 #else /* not DEVICE_PREFIX */
1020
1021         USAGE_ERROR ((0, 0,
1022                       _("Options `-[0-7][lmh]' not supported by *this* tar")));
1023
1024 #endif /* not DEVICE_PREFIX */
1025       }
1026
1027   /* Handle operands after any "--" argument.  */
1028   for (; optind < argc; optind++)
1029     {
1030       name_add (argv[optind]);
1031       input_files++;
1032     }
1033
1034   /* Process trivial options.  */
1035
1036   if (show_version)
1037     {
1038       printf ("tar (GNU %s) %s\n%s\n%s\n%s\n", PACKAGE, VERSION,
1039               "Copyright 1999 Free Software Foundation, Inc.",
1040               _("\
1041 This program comes with NO WARRANTY, to the extent permitted by law.\n\
1042 You may redistribute it under the terms of the GNU General Public License;\n\
1043 see the file named COPYING for details."),
1044               _("Written by John Gilmore and Jay Fenlason."));
1045       exit (TAREXIT_SUCCESS);
1046     }
1047
1048   if (show_help)
1049     usage (TAREXIT_SUCCESS);
1050
1051   /* Derive option values and check option consistency.  */
1052
1053   if (archive_format == DEFAULT_FORMAT)
1054     {
1055 #if OLDGNU_COMPATIBILITY
1056       archive_format = OLDGNU_FORMAT;
1057 #else
1058       archive_format = GNU_FORMAT;
1059 #endif
1060     }
1061
1062   if (archive_format == GNU_FORMAT && getenv ("POSIXLY_CORRECT"))
1063     archive_format = POSIX_FORMAT;
1064
1065   if ((volume_label_option
1066        || incremental_option || multi_volume_option || sparse_option)
1067       && archive_format != OLDGNU_FORMAT && archive_format != GNU_FORMAT)
1068     USAGE_ERROR ((0, 0,
1069                   _("GNU features wanted on incompatible archive format")));
1070
1071   if (archive_names == 0)
1072     {
1073       /* If no archive file name given, try TAPE from the environment, or
1074          else, DEFAULT_ARCHIVE from the configuration process.  */
1075
1076       archive_names = 1;
1077       archive_name_array[0] = getenv ("TAPE");
1078       if (! archive_name_array[0])
1079         archive_name_array[0] = DEFAULT_ARCHIVE;
1080     }
1081
1082   /* Allow multiple archives only with `-M'.  */
1083
1084   if (archive_names > 1 && !multi_volume_option)
1085     USAGE_ERROR ((0, 0,
1086                   _("Multiple archive files requires `-M' option")));
1087
1088   if (listed_incremental_option
1089       && newer_mtime_option != TYPE_MINIMUM (time_t))
1090     USAGE_ERROR ((0, 0,
1091                   _("Cannot combine --listed-incremental with --newer")));
1092
1093   /* If ready to unlink hierarchies, so we are for simpler files.  */
1094   if (recursive_unlink_option)
1095     unlink_first_option = 1;
1096
1097   /* Forbid using -c with no input files whatsoever.  Check that `-f -',
1098      explicit or implied, is used correctly.  */
1099
1100   switch (subcommand_option)
1101     {
1102     case CREATE_SUBCOMMAND:
1103       if (input_files == 0 && !files_from_option)
1104         USAGE_ERROR ((0, 0,
1105                       _("Cowardly refusing to create an empty archive")));
1106       break;
1107
1108     case EXTRACT_SUBCOMMAND:
1109     case LIST_SUBCOMMAND:
1110     case DIFF_SUBCOMMAND:
1111       for (archive_name_cursor = archive_name_array;
1112            archive_name_cursor < archive_name_array + archive_names;
1113            archive_name_cursor++)
1114         if (!strcmp (*archive_name_cursor, "-"))
1115           request_stdin ("-f");
1116       break;
1117
1118     case CAT_SUBCOMMAND:
1119     case UPDATE_SUBCOMMAND:
1120     case APPEND_SUBCOMMAND:
1121       for (archive_name_cursor = archive_name_array;
1122            archive_name_cursor < archive_name_array + archive_names;
1123            archive_name_cursor++)
1124         if (!strcmp (*archive_name_cursor, "-"))
1125           USAGE_ERROR ((0, 0,
1126                         _("Options `-Aru' are incompatible with `-f -'")));
1127
1128     default:
1129       break;
1130     }
1131
1132   archive_name_cursor = archive_name_array;
1133
1134   /* Prepare for generating backup names.  */
1135
1136   if (backup_suffix_string)
1137     simple_backup_suffix = xstrdup (backup_suffix_string);
1138
1139   if (backup_option)
1140     backup_type = xget_version ("--backup", version_control_string);
1141 }
1142 \f
1143 /* Tar proper.  */
1144
1145 /*-----------------------.
1146 | Main routine for tar.  |
1147 `-----------------------*/
1148
1149 int
1150 main (int argc, char *const *argv)
1151 {
1152 #if HAVE_CLOCK_GETTIME
1153   if (clock_gettime (CLOCK_REALTIME, &start_timespec) != 0)
1154 #endif
1155     start_time = time (0);
1156   program_name = argv[0];
1157   setlocale (LC_ALL, "");
1158   bindtextdomain (PACKAGE, LOCALEDIR);
1159   textdomain (PACKAGE);
1160
1161   exit_status = TAREXIT_SUCCESS;
1162   filename_terminator = '\n';
1163
1164   /* Pre-allocate a few structures.  */
1165
1166   allocated_archive_names = 10;
1167   archive_name_array =
1168     xmalloc (sizeof (const char *) * allocated_archive_names);
1169   archive_names = 0;
1170
1171 #ifdef SIGCHLD
1172   /* System V fork+wait does not work if SIGCHLD is ignored.  */
1173   signal (SIGCHLD, SIG_DFL);
1174 #endif
1175
1176   init_names ();
1177
1178   /* Decode options.  */
1179
1180   decode_options (argc, argv);
1181   name_init (argc, argv);
1182
1183   /* Main command execution.  */
1184
1185   if (volno_file_option)
1186     init_volume_number ();
1187
1188   switch (subcommand_option)
1189     {
1190     case UNKNOWN_SUBCOMMAND:
1191       USAGE_ERROR ((0, 0,
1192                     _("You must specify one of the `-Acdtrux' options")));
1193
1194     case CAT_SUBCOMMAND:
1195     case UPDATE_SUBCOMMAND:
1196     case APPEND_SUBCOMMAND:
1197       update_archive ();
1198       break;
1199
1200     case DELETE_SUBCOMMAND:
1201       delete_archive_members ();
1202       break;
1203
1204     case CREATE_SUBCOMMAND:
1205       create_archive ();
1206       name_close ();
1207
1208       if (totals_option)
1209         print_total_written ();
1210       break;
1211
1212     case EXTRACT_SUBCOMMAND:
1213       extr_init ();
1214       read_and (extract_archive);
1215       break;
1216
1217     case LIST_SUBCOMMAND:
1218       read_and (list_archive);
1219       break;
1220
1221     case DIFF_SUBCOMMAND:
1222       diff_init ();
1223       read_and (diff_archive);
1224       break;
1225     }
1226
1227   if (volno_file_option)
1228     closeout_volume_number ();
1229
1230   /* Dispose of allocated memory, and return.  */
1231
1232   free (archive_name_array);
1233   name_term ();
1234
1235   if (stdlis == stdout && (ferror (stdout) || fclose (stdout) != 0))
1236     FATAL_ERROR ((0, 0, _("Error in writing to standard output")));
1237   if (exit_status == TAREXIT_FAILURE)
1238     error (0, 0, _("Error exit delayed from previous errors"));
1239   exit (exit_status);
1240 }