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

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