git.gag.com Git - debian/tar/blob - src/tar.c

   1 /* A tar (tape archiver) program.
   2
   3    Copyright (C) 1988, 1992, 1993, 1994, 1995, 1996, 1997, 1999, 2000,
   4    2001, 2003, 2004, 2005, 2006, 2007, 2009 Free Software Foundation, Inc.
   5
   6    Written by John Gilmore, starting 1985-08-25.
   7
   8    This program is free software; you can redistribute it and/or modify it
   9    under the terms of the GNU General Public License as published by the
  10    Free Software Foundation; either version 3, or (at your option) any later
  11    version.
  12
  13    This program is distributed in the hope that it will be useful, but
  14    WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General
  16    Public License for more details.
  17
  18    You should have received a copy of the GNU General Public License along
  19    with this program; if not, write to the Free Software Foundation, Inc.,
  20    51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.  */
  21
  22 #include <system.h>
  23
  24 #include <fnmatch.h>
  25 #include <argp.h>
  26 #include <argp-namefrob.h>
  27 #include <argp-fmtstream.h>
  28
  29 #include <signal.h>
  30 #if ! defined SIGCHLD && defined SIGCLD
  31 # define SIGCHLD SIGCLD
  32 #endif
  33
  34 /* The following causes "common.h" to produce definitions of all the global
  35    variables, rather than just "extern" declarations of them.  GNU tar does
  36    depend on the system loader to preset all GLOBAL variables to neutral (or
  37    zero) values; explicit initialization is usually not done.  */
  38 #define GLOBAL
  39 #include "common.h"
  40
  41 #include <argmatch.h>
  42 #include <closeout.h>
  43 #include <configmake.h>
  44 #include <exitfail.h>
  45 #include <getdate.h>
  46 #include <rmt.h>
  47 #include <rmt-command.h>
  48 #include <prepargs.h>
  49 #include <quotearg.h>
  50 #include <version-etc.h>
  51 #include <xstrtol.h>
  52 #include <stdopen.h>
  53 #include <priv-set.h>
  54
  55 /* Local declarations.  */
  56
  57 #ifndef DEFAULT_ARCHIVE_FORMAT
  58 # define DEFAULT_ARCHIVE_FORMAT GNU_FORMAT
  59 #endif
  60
  61 #ifndef DEFAULT_ARCHIVE
  62 # define DEFAULT_ARCHIVE "tar.out"
  63 #endif
  64
  65 #ifndef DEFAULT_BLOCKING
  66 # define DEFAULT_BLOCKING 20
  67 #endif
  68
  69 \f
  70 /* Miscellaneous.  */
  71
  72 /* Name of option using stdin.  */
  73 static const char *stdin_used_by;
  74
  75 /* Doesn't return if stdin already requested.  */
  76 void
  77 request_stdin (const char *option)
  78 {
  79   if (stdin_used_by)
  80     USAGE_ERROR ((0, 0, _("Options `-%s' and `-%s' both want standard input"),
  81                   stdin_used_by, option));
  82
  83   stdin_used_by = option;
  84 }
  85
  86 extern int rpmatch (char const *response);
  87
  88 /* Returns true if and only if the user typed an affirmative response.  */
  89 int
  90 confirm (const char *message_action, const char *message_name)
  91 {
  92   static FILE *confirm_file;
  93   static int confirm_file_EOF;
  94   bool status = false;
  95
  96   if (!confirm_file)
  97     {
  98       if (archive == 0 || stdin_used_by)
  99         {
 100           confirm_file = fopen (TTY_NAME, "r");
 101           if (! confirm_file)
 102             open_fatal (TTY_NAME);
 103         }
 104       else
 105         {
 106           request_stdin ("-w");
 107           confirm_file = stdin;
 108         }
 109     }
 110
 111   fprintf (stdlis, "%s %s?", message_action, quote (message_name));
 112   fflush (stdlis);
 113
 114   if (!confirm_file_EOF)
 115     {
 116       char *response = NULL;
 117       size_t response_size = 0;
 118       if (getline (&response, &response_size, confirm_file) < 0)
 119         confirm_file_EOF = 1;
 120       else
 121         status = rpmatch (response) > 0;
 122       free (response);
 123     }
 124
 125   if (confirm_file_EOF)
 126     {
 127       fputc ('\n', stdlis);
 128       fflush (stdlis);
 129     }
 130
 131   return status;
 132 }
 133
 134 static struct fmttab {
 135   char const *name;
 136   enum archive_format fmt;
 137 } const fmttab[] = {
 138   { "v7",      V7_FORMAT },
 139   { "oldgnu",  OLDGNU_FORMAT },
 140   { "ustar",   USTAR_FORMAT },
 141   { "posix",   POSIX_FORMAT },
 142 #if 0 /* not fully supported yet */
 143   { "star",    STAR_FORMAT },
 144 #endif
 145   { "gnu",     GNU_FORMAT },
 146   { "pax",     POSIX_FORMAT }, /* An alias for posix */
 147   { NULL,      0 }
 148 };
 149
 150 static void
 151 set_archive_format (char const *name)
 152 {
 153   struct fmttab const *p;
 154
 155   for (p = fmttab; strcmp (p->name, name) != 0; )
 156     if (! (++p)->name)
 157       USAGE_ERROR ((0, 0, _("%s: Invalid archive format"),
 158                     quotearg_colon (name)));
 159
 160   archive_format = p->fmt;
 161 }
 162
 163 const char *
 164 archive_format_string (enum archive_format fmt)
 165 {
 166   struct fmttab const *p;
 167
 168   for (p = fmttab; p->name; p++)
 169     if (p->fmt == fmt)
 170       return p->name;
 171   return "unknown?";
 172 }
 173
 174 #define FORMAT_MASK(n) (1<<(n))
 175
 176 static void
 177 assert_format(unsigned fmt_mask)
 178 {
 179   if ((FORMAT_MASK (archive_format) & fmt_mask) == 0)
 180     USAGE_ERROR ((0, 0,
 181                   _("GNU features wanted on incompatible archive format")));
 182 }
 183
 184 const char *
 185 subcommand_string (enum subcommand c)
 186 {
 187   switch (c)
 188     {
 189     case UNKNOWN_SUBCOMMAND:
 190       return "unknown?";
 191
 192     case APPEND_SUBCOMMAND:
 193       return "-r";
 194
 195     case CAT_SUBCOMMAND:
 196       return "-A";
 197
 198     case CREATE_SUBCOMMAND:
 199       return "-c";
 200
 201     case DELETE_SUBCOMMAND:
 202       return "-D";
 203
 204     case DIFF_SUBCOMMAND:
 205       return "-d";
 206
 207     case EXTRACT_SUBCOMMAND:
 208       return "-x";
 209
 210     case LIST_SUBCOMMAND:
 211       return "-t";
 212
 213     case UPDATE_SUBCOMMAND:
 214       return "-u";
 215
 216     default:
 217       abort ();
 218     }
 219 }
 220
 221 void
 222 tar_list_quoting_styles (argp_fmtstream_t fs, char *prefix)
 223 {
 224   int i;
 225
 226   for (i = 0; quoting_style_args[i]; i++)
 227     argp_fmtstream_printf (fs, "%s%s\n", prefix, quoting_style_args[i]);
 228 }
 229
 230 void
 231 tar_set_quoting_style (char *arg)
 232 {
 233   int i;
 234
 235   for (i = 0; quoting_style_args[i]; i++)
 236     if (strcmp (arg, quoting_style_args[i]) == 0)
 237       {
 238         set_quoting_style (NULL, i);
 239         return;
 240       }
 241   FATAL_ERROR ((0, 0,
 242                 _("Unknown quoting style `%s'. Try `%s --quoting-style=help' to get a list."), arg, program_invocation_short_name));
 243 }
 244
 245 \f
 246 /* Options.  */
 247
 248 enum
 249 {
 250   ANCHORED_OPTION = CHAR_MAX + 1,
 251   ATIME_PRESERVE_OPTION,
 252   BACKUP_OPTION,
 253   CHECK_DEVICE_OPTION,
 254   CHECKPOINT_OPTION,
 255   CHECKPOINT_ACTION_OPTION,
 256   DELAY_DIRECTORY_RESTORE_OPTION,
 257   HARD_DEREFERENCE_OPTION,
 258   DELETE_OPTION,
 259   EXCLUDE_CACHES_OPTION,
 260   EXCLUDE_CACHES_UNDER_OPTION,
 261   EXCLUDE_CACHES_ALL_OPTION,
 262   EXCLUDE_OPTION,
 263   EXCLUDE_TAG_OPTION,
 264   EXCLUDE_TAG_UNDER_OPTION,
 265   EXCLUDE_TAG_ALL_OPTION,
 266   EXCLUDE_VCS_OPTION,
 267   FORCE_LOCAL_OPTION,
 268   GROUP_OPTION,
 269   HANG_OPTION,
 270   IGNORE_CASE_OPTION,
 271   IGNORE_COMMAND_ERROR_OPTION,
 272   IGNORE_FAILED_READ_OPTION,
 273   INDEX_FILE_OPTION,
 274   KEEP_NEWER_FILES_OPTION,
 275   LEVEL_OPTION,
 276   LZMA_OPTION,
 277   LZOP_OPTION,
 278   MODE_OPTION,
 279   MTIME_OPTION,
 280   NEWER_MTIME_OPTION,
 281   NO_ANCHORED_OPTION,
 282   NO_AUTO_COMPRESS_OPTION,
 283   NO_CHECK_DEVICE_OPTION,
 284   NO_DELAY_DIRECTORY_RESTORE_OPTION,
 285   NO_IGNORE_CASE_OPTION,
 286   NO_IGNORE_COMMAND_ERROR_OPTION,
 287   NO_NULL_OPTION,
 288   NO_OVERWRITE_DIR_OPTION,
 289   NO_QUOTE_CHARS_OPTION,
 290   NO_RECURSION_OPTION,
 291   NO_SAME_OWNER_OPTION,
 292   NO_SAME_PERMISSIONS_OPTION,
 293   NO_UNQUOTE_OPTION,
 294   NO_WILDCARDS_MATCH_SLASH_OPTION,
 295   NO_WILDCARDS_OPTION,
 296   NULL_OPTION,
 297   NUMERIC_OWNER_OPTION,
 298   OCCURRENCE_OPTION,
 299   OLD_ARCHIVE_OPTION,
 300   ONE_FILE_SYSTEM_OPTION,
 301   OVERWRITE_DIR_OPTION,
 302   OVERWRITE_OPTION,
 303   OWNER_OPTION,
 304   PAX_OPTION,
 305   POSIX_OPTION,
 306   PRESERVE_OPTION,
 307   QUOTE_CHARS_OPTION,
 308   QUOTING_STYLE_OPTION,
 309   RECORD_SIZE_OPTION,
 310   RECURSION_OPTION,
 311   RECURSIVE_UNLINK_OPTION,
 312   REMOVE_FILES_OPTION,
 313   RESTRICT_OPTION,
 314   RMT_COMMAND_OPTION,
 315   RSH_COMMAND_OPTION,
 316   SAME_OWNER_OPTION,
 317   SHOW_DEFAULTS_OPTION,
 318   SHOW_OMITTED_DIRS_OPTION,
 319   SHOW_TRANSFORMED_NAMES_OPTION,
 320   SPARSE_VERSION_OPTION,
 321   STRIP_COMPONENTS_OPTION,
 322   SUFFIX_OPTION,
 323   TEST_LABEL_OPTION,
 324   TOTALS_OPTION,
 325   TO_COMMAND_OPTION,
 326   TRANSFORM_OPTION,
 327   UNQUOTE_OPTION,
 328   USAGE_OPTION,
 329   UTC_OPTION,
 330   VERSION_OPTION,
 331   VOLNO_FILE_OPTION,
 332   WARNING_OPTION,
 333   WILDCARDS_MATCH_SLASH_OPTION,
 334   WILDCARDS_OPTION
 335 };
 336
 337 const char *argp_program_version = "tar (" PACKAGE_NAME ") " VERSION;
 338 const char *argp_program_bug_address = "<" PACKAGE_BUGREPORT ">";
 339 static char const doc[] = N_("\
 340 GNU `tar' saves many files together into a single tape or disk archive, \
 341 and can restore individual files from the archive.\n\
 342 \n\
 343 Examples:\n\
 344   tar -cf archive.tar foo bar  # Create archive.tar from files foo and bar.\n\
 345   tar -tvf archive.tar         # List all files in archive.tar verbosely.\n\
 346   tar -xf archive.tar          # Extract all files from archive.tar.\n")
 347 "\v"
 348 N_("The backup suffix is `~', unless set with --suffix or SIMPLE_BACKUP_SUFFIX.\n\
 349 The version control may be set with --backup or VERSION_CONTROL, values are:\n\n\
 350   none, off       never make backups\n\
 351   t, numbered     make numbered backups\n\
 352   nil, existing   numbered if numbered backups exist, simple otherwise\n\
 353   never, simple   always make simple backups\n");
 354
 355
 356 /* NOTE:
 357
 358    Available option letters are DEQY and eqy. Consider the following
 359    assignments:
 360
 361    [For Solaris tar compatibility =/= Is it important at all?]
 362    e  exit immediately with a nonzero exit status if unexpected errors occur
 363    E  use extended headers (--format=posix)
 364
 365    [q  alias for --occurrence=1 =/= this would better be used for quiet?]
 366
 367    y  per-file gzip compression
 368    Y  per-block gzip compression */
 369
 370 static struct argp_option options[] = {
 371 #define GRID 10
 372   {NULL, 0, NULL, 0,
 373    N_("Main operation mode:"), GRID },
 374
 375   {"list", 't', 0, 0,
 376    N_("list the contents of an archive"), GRID+1 },
 377   {"extract", 'x', 0, 0,
 378    N_("extract files from an archive"), GRID+1 },
 379   {"get", 0, 0, OPTION_ALIAS, NULL, GRID+1 },
 380   {"create", 'c', 0, 0,
 381    N_("create a new archive"), GRID+1 },
 382   {"diff", 'd', 0, 0,
 383    N_("find differences between archive and file system"), GRID+1 },
 384   {"compare", 0, 0, OPTION_ALIAS, NULL, GRID+1 },
 385   {"append", 'r', 0, 0,
 386    N_("append files to the end of an archive"), GRID+1 },
 387   {"update", 'u', 0, 0,
 388    N_("only append files newer than copy in archive"), GRID+1 },
 389   {"catenate", 'A', 0, 0,
 390    N_("append tar files to an archive"), GRID+1 },
 391   {"concatenate", 0, 0, OPTION_ALIAS, NULL, GRID+1 },
 392   {"delete", DELETE_OPTION, 0, 0,
 393    N_("delete from the archive (not on mag tapes!)"), GRID+1 },
 394   {"test-label", TEST_LABEL_OPTION, NULL, 0,
 395    N_("test the archive volume label and exit"), GRID+1 },
 396 #undef GRID
 397
 398 #define GRID 20
 399   {NULL, 0, NULL, 0,
 400    N_("Operation modifiers:"), GRID },
 401
 402   {"sparse", 'S', 0, 0,
 403    N_("handle sparse files efficiently"), GRID+1 },
 404   {"sparse-version", SPARSE_VERSION_OPTION, N_("MAJOR[.MINOR]"), 0,
 405    N_("set version of the sparse format to use (implies --sparse)"), GRID+1},
 406   {"incremental", 'G', 0, 0,
 407    N_("handle old GNU-format incremental backup"), GRID+1 },
 408   {"listed-incremental", 'g', N_("FILE"), 0,
 409    N_("handle new GNU-format incremental backup"), GRID+1 },
 410   {"level", LEVEL_OPTION, N_("NUMBER"), 0,
 411    N_("dump level for created listed-incremental archive"), GRID+1 },
 412   {"ignore-failed-read", IGNORE_FAILED_READ_OPTION, 0, 0,
 413    N_("do not exit with nonzero on unreadable files"), GRID+1 },
 414   {"occurrence", OCCURRENCE_OPTION, N_("NUMBER"), OPTION_ARG_OPTIONAL,
 415    N_("process only the NUMBERth occurrence of each file in the archive;"
 416       " this option is valid only in conjunction with one of the subcommands"
 417       " --delete, --diff, --extract or --list and when a list of files"
 418       " is given either on the command line or via the -T option;"
 419       " NUMBER defaults to 1"), GRID+1 },
 420   {"seek", 'n', NULL, 0,
 421    N_("archive is seekable"), GRID+1 },
 422   {"no-check-device", NO_CHECK_DEVICE_OPTION, NULL, 0,
 423    N_("do not check device numbers when creating incremental archives"),
 424    GRID+1 },
 425   {"check-device", CHECK_DEVICE_OPTION, NULL, 0,
 426    N_("check device numbers when creating incremental archives (default)"),
 427    GRID+1 },
 428 #undef GRID
 429
 430 #define GRID 30
 431   {NULL, 0, NULL, 0,
 432    N_("Overwrite control:"), GRID },
 433
 434   {"verify", 'W', 0, 0,
 435    N_("attempt to verify the archive after writing it"), GRID+1 },
 436   {"remove-files", REMOVE_FILES_OPTION, 0, 0,
 437    N_("remove files after adding them to the archive"), GRID+1 },
 438   {"keep-old-files", 'k', 0, 0,
 439    N_("don't replace existing files when extracting"), GRID+1 },
 440   {"keep-newer-files", KEEP_NEWER_FILES_OPTION, 0, 0,
 441    N_("don't replace existing files that are newer than their archive copies"), GRID+1 },
 442   {"overwrite", OVERWRITE_OPTION, 0, 0,
 443    N_("overwrite existing files when extracting"), GRID+1 },
 444   {"unlink-first", 'U', 0, 0,
 445    N_("remove each file prior to extracting over it"), GRID+1 },
 446   {"recursive-unlink", RECURSIVE_UNLINK_OPTION, 0, 0,
 447    N_("empty hierarchies prior to extracting directory"), GRID+1 },
 448   {"no-overwrite-dir", NO_OVERWRITE_DIR_OPTION, 0, 0,
 449    N_("preserve metadata of existing directories"), GRID+1 },
 450   {"overwrite-dir", OVERWRITE_DIR_OPTION, 0, 0,
 451    N_("overwrite metadata of existing directories when extracting (default)"),
 452    GRID+1 },
 453 #undef GRID
 454
 455 #define GRID 40
 456   {NULL, 0, NULL, 0,
 457    N_("Select output stream:"), GRID },
 458
 459   {"to-stdout", 'O', 0, 0,
 460    N_("extract files to standard output"), GRID+1 },
 461   {"to-command", TO_COMMAND_OPTION, N_("COMMAND"), 0,
 462    N_("pipe extracted files to another program"), GRID+1 },
 463   {"ignore-command-error", IGNORE_COMMAND_ERROR_OPTION, 0, 0,
 464    N_("ignore exit codes of children"), GRID+1 },
 465   {"no-ignore-command-error", NO_IGNORE_COMMAND_ERROR_OPTION, 0, 0,
 466    N_("treat non-zero exit codes of children as error"), GRID+1 },
 467 #undef GRID
 468
 469 #define GRID 50
 470   {NULL, 0, NULL, 0,
 471    N_("Handling of file attributes:"), GRID },
 472
 473   {"owner", OWNER_OPTION, N_("NAME"), 0,
 474    N_("force NAME as owner for added files"), GRID+1 },
 475   {"group", GROUP_OPTION, N_("NAME"), 0,
 476    N_("force NAME as group for added files"), GRID+1 },
 477   {"mtime", MTIME_OPTION, N_("DATE-OR-FILE"), 0,
 478    N_("set mtime for added files from DATE-OR-FILE"), GRID+1 },
 479   {"mode", MODE_OPTION, N_("CHANGES"), 0,
 480    N_("force (symbolic) mode CHANGES for added files"), GRID+1 },
 481   {"atime-preserve", ATIME_PRESERVE_OPTION,
 482    N_("METHOD"), OPTION_ARG_OPTIONAL,
 483    N_("preserve access times on dumped files, either by restoring the times"
 484       " after reading (METHOD='replace'; default) or by not setting the times"
 485       " in the first place (METHOD='system')"), GRID+1 },
 486   {"touch", 'm', 0, 0,
 487    N_("don't extract file modified time"), GRID+1 },
 488   {"same-owner", SAME_OWNER_OPTION, 0, 0,
 489    N_("try extracting files with the same ownership as exists in the archive (default for superuser)"), GRID+1 },
 490   {"no-same-owner", NO_SAME_OWNER_OPTION, 0, 0,
 491    N_("extract files as yourself (default for ordinary users)"), GRID+1 },
 492   {"numeric-owner", NUMERIC_OWNER_OPTION, 0, 0,
 493    N_("always use numbers for user/group names"), GRID+1 },
 494   {"preserve-permissions", 'p', 0, 0,
 495    N_("extract information about file permissions (default for superuser)"),
 496    GRID+1 },
 497   {"same-permissions", 0, 0, OPTION_ALIAS, NULL, GRID+1 },
 498   {"no-same-permissions", NO_SAME_PERMISSIONS_OPTION, 0, 0,
 499    N_("apply the user's umask when extracting permissions from the archive (default for ordinary users)"), GRID+1 },
 500   {"preserve-order", 's', 0, 0,
 501    N_("sort names to extract to match archive"), GRID+1 },
 502   {"same-order", 0, 0, OPTION_ALIAS, NULL, GRID+1 },
 503   {"preserve", PRESERVE_OPTION, 0, 0,
 504    N_("same as both -p and -s"), GRID+1 },
 505   {"delay-directory-restore", DELAY_DIRECTORY_RESTORE_OPTION, 0, 0,
 506    N_("delay setting modification times and permissions of extracted"
 507       " directories until the end of extraction"), GRID+1 },
 508   {"no-delay-directory-restore", NO_DELAY_DIRECTORY_RESTORE_OPTION, 0, 0,
 509    N_("cancel the effect of --delay-directory-restore option"), GRID+1 },
 510 #undef GRID
 511
 512 #define GRID 60
 513   {NULL, 0, NULL, 0,
 514    N_("Device selection and switching:"), GRID },
 515
 516   {"file", 'f', N_("ARCHIVE"), 0,
 517    N_("use archive file or device ARCHIVE"), GRID+1 },
 518   {"force-local", FORCE_LOCAL_OPTION, 0, 0,
 519    N_("archive file is local even if it has a colon"), GRID+1 },
 520   {"rmt-command", RMT_COMMAND_OPTION, N_("COMMAND"), 0,
 521    N_("use given rmt COMMAND instead of rmt"), GRID+1 },
 522   {"rsh-command", RSH_COMMAND_OPTION, N_("COMMAND"), 0,
 523    N_("use remote COMMAND instead of rsh"), GRID+1 },
 524 #ifdef DEVICE_PREFIX
 525   {"-[0-7][lmh]", 0, NULL, OPTION_DOC, /* It is OK, since `name' will never be
 526                                           translated */
 527    N_("specify drive and density"), GRID+1 },
 528 #endif
 529   {NULL, '0', NULL, OPTION_HIDDEN, NULL, GRID+1 },
 530   {NULL, '1', NULL, OPTION_HIDDEN, NULL, GRID+1 },
 531   {NULL, '2', NULL, OPTION_HIDDEN, NULL, GRID+1 },
 532   {NULL, '3', NULL, OPTION_HIDDEN, NULL, GRID+1 },
 533   {NULL, '4', NULL, OPTION_HIDDEN, NULL, GRID+1 },
 534   {NULL, '5', NULL, OPTION_HIDDEN, NULL, GRID+1 },
 535   {NULL, '6', NULL, OPTION_HIDDEN, NULL, GRID+1 },
 536   {NULL, '7', NULL, OPTION_HIDDEN, NULL, GRID+1 },
 537   {NULL, '8', NULL, OPTION_HIDDEN, NULL, GRID+1 },
 538   {NULL, '9', NULL, OPTION_HIDDEN, NULL, GRID+1 },
 539
 540   {"multi-volume", 'M', 0, 0,
 541    N_("create/list/extract multi-volume archive"), GRID+1 },
 542   {"tape-length", 'L', N_("NUMBER"), 0,
 543    N_("change tape after writing NUMBER x 1024 bytes"), GRID+1 },
 544   {"info-script", 'F', N_("NAME"), 0,
 545    N_("run script at end of each tape (implies -M)"), GRID+1 },
 546   {"new-volume-script", 0, 0, OPTION_ALIAS, NULL, GRID+1 },
 547   {"volno-file", VOLNO_FILE_OPTION, N_("FILE"), 0,
 548    N_("use/update the volume number in FILE"), GRID+1 },
 549 #undef GRID
 550
 551 #define GRID 70
 552   {NULL, 0, NULL, 0,
 553    N_("Device blocking:"), GRID },
 554
 555   {"blocking-factor", 'b', N_("BLOCKS"), 0,
 556    N_("BLOCKS x 512 bytes per record"), GRID+1 },
 557   {"record-size", RECORD_SIZE_OPTION, N_("NUMBER"), 0,
 558    N_("NUMBER of bytes per record, multiple of 512"), GRID+1 },
 559   {"ignore-zeros", 'i', 0, 0,
 560    N_("ignore zeroed blocks in archive (means EOF)"), GRID+1 },
 561   {"read-full-records", 'B', 0, 0,
 562    N_("reblock as we read (for 4.2BSD pipes)"), GRID+1 },
 563 #undef GRID
 564
 565 #define GRID 80
 566   {NULL, 0, NULL, 0,
 567    N_("Archive format selection:"), GRID },
 568
 569   {"format", 'H', N_("FORMAT"), 0,
 570    N_("create archive of the given format"), GRID+1 },
 571
 572   {NULL, 0, NULL, 0, N_("FORMAT is one of the following:"), GRID+2 },
 573   {"  v7", 0, NULL, OPTION_DOC|OPTION_NO_TRANS, N_("old V7 tar format"),
 574    GRID+3 },
 575   {"  oldgnu", 0, NULL, OPTION_DOC|OPTION_NO_TRANS,
 576    N_("GNU format as per tar <= 1.12"), GRID+3 },
 577   {"  gnu", 0, NULL, OPTION_DOC|OPTION_NO_TRANS,
 578    N_("GNU tar 1.13.x format"), GRID+3 },
 579   {"  ustar", 0, NULL, OPTION_DOC|OPTION_NO_TRANS,
 580    N_("POSIX 1003.1-1988 (ustar) format"), GRID+3 },
 581   {"  pax", 0, NULL, OPTION_DOC|OPTION_NO_TRANS,
 582    N_("POSIX 1003.1-2001 (pax) format"), GRID+3 },
 583   {"  posix", 0, NULL, OPTION_DOC|OPTION_NO_TRANS, N_("same as pax"), GRID+3 },
 584
 585   {"old-archive", OLD_ARCHIVE_OPTION, 0, 0, /* FIXME */
 586    N_("same as --format=v7"), GRID+8 },
 587   {"portability", 0, 0, OPTION_ALIAS, NULL, GRID+8 },
 588   {"posix", POSIX_OPTION, 0, 0,
 589    N_("same as --format=posix"), GRID+8 },
 590   {"pax-option", PAX_OPTION, N_("keyword[[:]=value][,keyword[[:]=value]]..."), 0,
 591    N_("control pax keywords"), GRID+8 },
 592   {"label", 'V', N_("TEXT"), 0,
 593    N_("create archive with volume name TEXT; at list/extract time, use TEXT as a globbing pattern for volume name"), GRID+8 },
 594 #undef GRID
 595
 596 #define GRID 90
 597   {NULL, 0, NULL, 0,
 598    N_("Compression options:"), GRID },
 599   {"auto-compress", 'a', 0, 0,
 600    N_("use archive suffix to determine the compression program"), GRID+1 },
 601   {"no-auto-compress", NO_AUTO_COMPRESS_OPTION, 0, 0,
 602    N_("do not use archive suffix to determine the compression program"),
 603    GRID+1 },
 604   {"bzip2", 'j', 0, 0,
 605    N_("filter the archive through bzip2"), GRID+1 },
 606   {"gzip", 'z', 0, 0,
 607    N_("filter the archive through gzip"), GRID+1 },
 608   {"gunzip", 0, 0, OPTION_ALIAS, NULL, GRID+1 },
 609   {"ungzip", 0, 0, OPTION_ALIAS, NULL, GRID+1 },
 610   {"compress", 'Z', 0, 0,
 611    N_("filter the archive through compress"), GRID+1 },
 612   {"uncompress", 0, 0, OPTION_ALIAS, NULL, GRID+1 },
 613   {"lzma", LZMA_OPTION, 0, 0,
 614    N_("filter the archive through lzma"), GRID+1 },
 615   {"lzop", LZOP_OPTION, 0, 0,
 616    N_("filter the archive through lzop"), GRID+8 },
 617   {"xz", 'J', 0, 0,
 618    N_("filter the archive through xz"), GRID+8 },
 619   {"use-compress-program", 'I', N_("PROG"), 0,
 620    N_("filter through PROG (must accept -d)"), GRID+1 },
 621 #undef GRID
 622
 623 #define GRID 100
 624   {NULL, 0, NULL, 0,
 625    N_("Local file selection:"), GRID },
 626
 627   {"add-file", ARGP_KEY_ARG, N_("FILE"), 0,
 628    N_("add given FILE to the archive (useful if its name starts with a dash)"), GRID+1 },
 629   {"directory", 'C', N_("DIR"), 0,
 630    N_("change to directory DIR"), GRID+1 },
 631   {"files-from", 'T', N_("FILE"), 0,
 632    N_("get names to extract or create from FILE"), GRID+1 },
 633   {"null", NULL_OPTION, 0, 0,
 634    N_("-T reads null-terminated names, disable -C"), GRID+1 },
 635   {"no-null", NO_NULL_OPTION, 0, 0,
 636    N_("disable the effect of the previous --null option"), GRID+1 },
 637   {"unquote", UNQUOTE_OPTION, 0, 0,
 638    N_("unquote filenames read with -T (default)"), GRID+1 },
 639   {"no-unquote", NO_UNQUOTE_OPTION, 0, 0,
 640    N_("do not unquote filenames read with -T"), GRID+1 },
 641   {"exclude", EXCLUDE_OPTION, N_("PATTERN"), 0,
 642    N_("exclude files, given as a PATTERN"), GRID+1 },
 643   {"exclude-from", 'X', N_("FILE"), 0,
 644    N_("exclude patterns listed in FILE"), GRID+1 },
 645   {"exclude-caches", EXCLUDE_CACHES_OPTION, 0, 0,
 646    N_("exclude contents of directories containing CACHEDIR.TAG, "
 647       "except for the tag file itself"), GRID+1 },
 648   {"exclude-caches-under", EXCLUDE_CACHES_UNDER_OPTION, 0, 0,
 649    N_("exclude everything under directories containing CACHEDIR.TAG"),
 650    GRID+1 },
 651   {"exclude-caches-all", EXCLUDE_CACHES_ALL_OPTION, 0, 0,
 652    N_("exclude directories containing CACHEDIR.TAG"), GRID+1 },
 653   {"exclude-tag", EXCLUDE_TAG_OPTION, N_("FILE"), 0,
 654    N_("exclude contents of directories containing FILE, except"
 655       " for FILE itself"), GRID+1 },
 656   {"exclude-tag-under", EXCLUDE_TAG_UNDER_OPTION, N_("FILE"), 0,
 657    N_("exclude everything under directories containing FILE"), GRID+1 },
 658   {"exclude-tag-all", EXCLUDE_TAG_ALL_OPTION, N_("FILE"), 0,
 659    N_("exclude directories containing FILE"), GRID+1 },
 660   {"exclude-vcs", EXCLUDE_VCS_OPTION, NULL, 0,
 661    N_("exclude version control system directories"), GRID+1 },
 662   {"no-recursion", NO_RECURSION_OPTION, 0, 0,
 663    N_("avoid descending automatically in directories"), GRID+1 },
 664   {"one-file-system", ONE_FILE_SYSTEM_OPTION, 0, 0,
 665    N_("stay in local file system when creating archive"), GRID+1 },
 666   {"recursion", RECURSION_OPTION, 0, 0,
 667    N_("recurse into directories (default)"), GRID+1 },
 668   {"absolute-names", 'P', 0, 0,
 669    N_("don't strip leading `/'s from file names"), GRID+1 },
 670   {"dereference", 'h', 0, 0,
 671    N_("follow symlinks; archive and dump the files they point to"), GRID+1 },
 672   {"hard-dereference", HARD_DEREFERENCE_OPTION, 0, 0,
 673    N_("follow hard links; archive and dump the files they refer to"), GRID+1 },
 674   {"starting-file", 'K', N_("MEMBER-NAME"), 0,
 675    N_("begin at member MEMBER-NAME in the archive"), GRID+1 },
 676   {"newer", 'N', N_("DATE-OR-FILE"), 0,
 677    N_("only store files newer than DATE-OR-FILE"), GRID+1 },
 678   {"after-date", 0, 0, OPTION_ALIAS, NULL, GRID+1 },
 679   {"newer-mtime", NEWER_MTIME_OPTION, N_("DATE"), 0,
 680    N_("compare date and time when data changed only"), GRID+1 },
 681   {"backup", BACKUP_OPTION, N_("CONTROL"), OPTION_ARG_OPTIONAL,
 682    N_("backup before removal, choose version CONTROL"), GRID+1 },
 683   {"suffix", SUFFIX_OPTION, N_("STRING"), 0,
 684    N_("backup before removal, override usual suffix ('~' unless overridden by environment variable SIMPLE_BACKUP_SUFFIX)"), GRID+1 },
 685 #undef GRID
 686
 687 #define GRID 110
 688   {NULL, 0, NULL, 0,
 689    N_("File name transformations:"), GRID },
 690   {"strip-components", STRIP_COMPONENTS_OPTION, N_("NUMBER"), 0,
 691    N_("strip NUMBER leading components from file names on extraction"),
 692    GRID+1 },
 693   {"transform", TRANSFORM_OPTION, N_("EXPRESSION"), 0,
 694    N_("use sed replace EXPRESSION to transform file names"), GRID+1 },
 695   {"xform", 0, 0, OPTION_ALIAS, NULL, GRID+1 },
 696 #undef GRID
 697
 698 #define GRID 120
 699   {NULL, 0, NULL, 0,
 700    N_("File name matching options (affect both exclude and include patterns):"),
 701    GRID },
 702   {"ignore-case", IGNORE_CASE_OPTION, 0, 0,
 703    N_("ignore case"), GRID+1 },
 704   {"anchored", ANCHORED_OPTION, 0, 0,
 705    N_("patterns match file name start"), GRID+1 },
 706   {"no-anchored", NO_ANCHORED_OPTION, 0, 0,
 707    N_("patterns match after any `/' (default for exclusion)"), GRID+1 },
 708   {"no-ignore-case", NO_IGNORE_CASE_OPTION, 0, 0,
 709    N_("case sensitive matching (default)"), GRID+1 },
 710   {"wildcards", WILDCARDS_OPTION, 0, 0,
 711    N_("use wildcards (default for exclusion)"), GRID+1 },
 712   {"no-wildcards", NO_WILDCARDS_OPTION, 0, 0,
 713    N_("verbatim string matching"), GRID+1 },
 714   {"no-wildcards-match-slash", NO_WILDCARDS_MATCH_SLASH_OPTION, 0, 0,
 715    N_("wildcards do not match `/'"), GRID+1 },
 716   {"wildcards-match-slash", WILDCARDS_MATCH_SLASH_OPTION, 0, 0,
 717    N_("wildcards match `/' (default for exclusion)"), GRID+1 },
 718 #undef GRID
 719
 720 #define GRID 130
 721   {NULL, 0, NULL, 0,
 722    N_("Informative output:"), GRID },
 723
 724   {"verbose", 'v', 0, 0,
 725    N_("verbosely list files processed"), GRID+1 },
 726   {"warning", WARNING_OPTION, N_("KEYWORD"), 0,
 727    N_("warning control"), GRID+1 },
 728   {"checkpoint", CHECKPOINT_OPTION, N_("NUMBER"), OPTION_ARG_OPTIONAL,
 729    N_("display progress messages every NUMBERth record (default 10)"),
 730    GRID+1 },
 731   {"checkpoint-action", CHECKPOINT_ACTION_OPTION, N_("ACTION"), 0,
 732    N_("execute ACTION on each checkpoint"),
 733    GRID+1 },
 734   {"check-links", 'l', 0, 0,
 735    N_("print a message if not all links are dumped"), GRID+1 },
 736   {"totals", TOTALS_OPTION, N_("SIGNAL"), OPTION_ARG_OPTIONAL,
 737    N_("print total bytes after processing the archive; "
 738       "with an argument - print total bytes when this SIGNAL is delivered; "
 739       "Allowed signals are: SIGHUP, SIGQUIT, SIGINT, SIGUSR1 and SIGUSR2; "
 740       "the names without SIG prefix are also accepted"), GRID+1 },
 741   {"utc", UTC_OPTION, 0, 0,
 742    N_("print file modification dates in UTC"), GRID+1 },
 743   {"index-file", INDEX_FILE_OPTION, N_("FILE"), 0,
 744    N_("send verbose output to FILE"), GRID+1 },
 745   {"block-number", 'R', 0, 0,
 746    N_("show block number within archive with each message"), GRID+1 },
 747   {"interactive", 'w', 0, 0,
 748    N_("ask for confirmation for every action"), GRID+1 },
 749   {"confirmation", 0, 0, OPTION_ALIAS, NULL, GRID+1 },
 750   {"show-defaults", SHOW_DEFAULTS_OPTION, 0, 0,
 751    N_("show tar defaults"), GRID+1 },
 752   {"show-omitted-dirs", SHOW_OMITTED_DIRS_OPTION, 0, 0,
 753    N_("when listing or extracting, list each directory that does not match search criteria"), GRID+1 },
 754   {"show-transformed-names", SHOW_TRANSFORMED_NAMES_OPTION, 0, 0,
 755    N_("show file or archive names after transformation"),
 756    GRID+1 },
 757   {"show-stored-names", 0, 0, OPTION_ALIAS, NULL, GRID+1 },
 758   {"quoting-style", QUOTING_STYLE_OPTION, N_("STYLE"), 0,
 759    N_("set name quoting style; see below for valid STYLE values"), GRID+1 },
 760   {"quote-chars", QUOTE_CHARS_OPTION, N_("STRING"), 0,
 761    N_("additionally quote characters from STRING"), GRID+1 },
 762   {"no-quote-chars", NO_QUOTE_CHARS_OPTION, N_("STRING"), 0,
 763    N_("disable quoting for characters from STRING"), GRID+1 },
 764 #undef GRID
 765
 766 #define GRID 140
 767   {NULL, 0, NULL, 0,
 768    N_("Compatibility options:"), GRID },
 769
 770   {NULL, 'o', 0, 0,
 771    N_("when creating, same as --old-archive; when extracting, same as --no-same-owner"), GRID+1 },
 772 #undef GRID
 773
 774 #define GRID 150
 775   {NULL, 0, NULL, 0,
 776    N_("Other options:"), GRID },
 777
 778   {"restrict", RESTRICT_OPTION, 0, 0,
 779    N_("disable use of some potentially harmful options"), -1 },
 780
 781   {"help",  '?', 0, 0,  N_("give this help list"), -1},
 782   {"usage", USAGE_OPTION, 0, 0,  N_("give a short usage message"), -1},
 783   {"version", VERSION_OPTION, 0, 0,  N_("print program version"), -1},
 784   /* FIXME -V (--label) conflicts with the default short option for
 785      --version */
 786   {"HANG",        HANG_OPTION,    "SECS", OPTION_ARG_OPTIONAL | OPTION_HIDDEN,
 787    N_("hang for SECS seconds (default 3600)"), 0},
 788 #undef GRID
 789
 790   {0, 0, 0, 0, 0, 0}
 791 };
 792
 793 static char const *const atime_preserve_args[] =
 794 {
 795   "replace", "system", NULL
 796 };
 797
 798 static enum atime_preserve const atime_preserve_types[] =
 799 {
 800   replace_atime_preserve, system_atime_preserve
 801 };
 802
 803 /* Make sure atime_preserve_types has as much entries as atime_preserve_args
 804    (minus 1 for NULL guard) */
 805 ARGMATCH_VERIFY (atime_preserve_args, atime_preserve_types);
 806
 807 /* Wildcard matching settings */
 808 enum wildcards
 809   {
 810     default_wildcards, /* For exclusion == enable_wildcards,
 811                           for inclusion == disable_wildcards */
 812     disable_wildcards,
 813     enable_wildcards
 814   };
 815
 816 struct tar_args        /* Variables used during option parsing */
 817 {
 818   struct textual_date *textual_date; /* Keeps the arguments to --newer-mtime
 819                                         and/or --date option if they are
 820                                         textual dates */
 821   enum wildcards wildcards;        /* Wildcard settings (--wildcards/
 822                                       --no-wildcards) */
 823   int matching_flags;              /* exclude_fnmatch options */
 824   int include_anchored;            /* Pattern anchoring options used for
 825                                       file inclusion */
 826   bool o_option;                   /* True if -o option was given */
 827   bool pax_option;                 /* True if --pax-option was given */
 828   char const *backup_suffix_string;   /* --suffix option argument */
 829   char const *version_control_string; /* --backup option argument */
 830   bool input_files;                /* True if some input files where given */
 831   int compress_autodetect;         /* True if compression autodetection should
 832                                       be attempted when creating archives */
 833 };
 834
 835 \f
 836 #define MAKE_EXCL_OPTIONS(args) \
 837  ((((args)->wildcards != disable_wildcards) ? EXCLUDE_WILDCARDS : 0) \
 838   | (args)->matching_flags \
 839   | recursion_option)
 840
 841 #define MAKE_INCL_OPTIONS(args) \
 842  ((((args)->wildcards == enable_wildcards) ? EXCLUDE_WILDCARDS : 0) \
 843   | (args)->include_anchored \
 844   | (args)->matching_flags \
 845   | recursion_option)
 846
 847 void
 848 exclude_vcs_files ()
 849 {
 850   int i;
 851   static char *vcs_file[] = {
 852     /* CVS: */
 853     "CVS",
 854     ".cvsignore",
 855     /* RCS: */
 856     "RCS",
 857     /* SCCS: */
 858     "SCCS",
 859     /* SVN: */
 860     ".svn",
 861     /* git: */
 862     ".git",
 863     ".gitignore",
 864     /* Arch: */
 865     ".arch-ids",
 866     "{arch}",
 867     "=RELEASE-ID",
 868     "=meta-update",
 869     "=update",
 870     /* Bazaar */
 871     ".bzr",
 872     ".bzrignore",
 873     ".bzrtags",
 874     /* Mercurial */
 875     ".hg",
 876     ".hgignore",
 877     ".hgtags",
 878     /* darcs */
 879     "_darcs",
 880     NULL
 881   };
 882
 883   for (i = 0; vcs_file[i]; i++)
 884     add_exclude (excluded, vcs_file[i], 0);
 885 }
 886
 887 \f
 888 #ifdef REMOTE_SHELL
 889 # define DECL_SHOW_DEFAULT_SETTINGS(stream, printer)                      \
 890 {                                                                         \
 891   printer (stream,                                                        \
 892            "--format=%s -f%s -b%d --quoting-style=%s --rmt-command=%s",   \
 893            archive_format_string (DEFAULT_ARCHIVE_FORMAT),                \
 894            DEFAULT_ARCHIVE, DEFAULT_BLOCKING,                             \
 895            quoting_style_args[DEFAULT_QUOTING_STYLE],                     \
 896            DEFAULT_RMT_COMMAND);                                          \
 897   printer (stream, " --rsh-command=%s", REMOTE_SHELL);                    \
 898   printer (stream, "\n");                                                 \
 899 }
 900 #else
 901 # define DECL_SHOW_DEFAULT_SETTINGS(stream, printer)                      \
 902 {                                                                         \
 903   printer (stream,                                                        \
 904            "--format=%s -f%s -b%d --quoting-style=%s --rmt-command=%s",   \
 905            archive_format_string (DEFAULT_ARCHIVE_FORMAT),                \
 906            DEFAULT_ARCHIVE, DEFAULT_BLOCKING,                             \
 907            quoting_style_args[DEFAULT_QUOTING_STYLE],                     \
 908            DEFAULT_RMT_COMMAND);                                          \
 909   printer (stream, "\n");                                                 \
 910 }
 911 #endif
 912
 913 static void
 914 show_default_settings (FILE *fp)
 915      DECL_SHOW_DEFAULT_SETTINGS(fp, fprintf)
 916
 917 static void
 918 show_default_settings_fs (argp_fmtstream_t fs)
 919      DECL_SHOW_DEFAULT_SETTINGS(fs, argp_fmtstream_printf)
 920
 921 static void
 922 set_subcommand_option (enum subcommand subcommand)
 923 {
 924   if (subcommand_option != UNKNOWN_SUBCOMMAND
 925       && subcommand_option != subcommand)
 926     USAGE_ERROR ((0, 0,
 927                   _("You may not specify more than one `-Acdtrux' option")));
 928
 929   subcommand_option = subcommand;
 930 }
 931
 932 static void
 933 set_use_compress_program_option (const char *string)
 934 {
 935   if (use_compress_program_option
 936       && strcmp (use_compress_program_option, string) != 0)
 937     USAGE_ERROR ((0, 0, _("Conflicting compression options")));
 938
 939   use_compress_program_option = string;
 940 }
 941 \f
 942 static RETSIGTYPE
 943 sigstat (int signo)
 944 {
 945   compute_duration ();
 946   print_total_stats ();
 947 #ifndef HAVE_SIGACTION
 948   signal (signo, sigstat);
 949 #endif
 950 }
 951
 952 static void
 953 stat_on_signal (int signo)
 954 {
 955 #ifdef HAVE_SIGACTION
 956   struct sigaction act;
 957   act.sa_handler = sigstat;
 958   sigemptyset (&act.sa_mask);
 959   act.sa_flags = 0;
 960   sigaction (signo, &act, NULL);
 961 #else
 962   signal (signo, sigstat);
 963 #endif
 964 }
 965
 966 void
 967 set_stat_signal (const char *name)
 968 {
 969   static struct sigtab
 970   {
 971     char *name;
 972     int signo;
 973   } sigtab[] = {
 974     { "SIGUSR1", SIGUSR1 },
 975     { "USR1", SIGUSR1 },
 976     { "SIGUSR2", SIGUSR2 },
 977     { "USR2", SIGUSR2 },
 978     { "SIGHUP", SIGHUP },
 979     { "HUP", SIGHUP },
 980     { "SIGINT", SIGINT },
 981     { "INT", SIGINT },
 982     { "SIGQUIT", SIGQUIT },
 983     { "QUIT", SIGQUIT }
 984   };
 985   struct sigtab *p;
 986
 987   for (p = sigtab; p < sigtab + sizeof (sigtab) / sizeof (sigtab[0]); p++)
 988     if (strcmp (p->name, name) == 0)
 989       {
 990         stat_on_signal (p->signo);
 991         return;
 992       }
 993   FATAL_ERROR ((0, 0, _("Unknown signal name: %s"), name));
 994 }
 995
 996 \f
 997 struct textual_date
 998 {
 999   struct textual_date *next;
1000   struct timespec *ts;
1001   const char *option;
1002   const char *date;
1003 };
1004
1005 static void
1006 get_date_or_file (struct tar_args *args, const char *option,
1007                   const char *str, struct timespec *ts)
1008 {
1009   if (FILE_SYSTEM_PREFIX_LEN (str) != 0
1010       || ISSLASH (*str)
1011       || *str == '.')
1012     {
1013       struct stat st;
1014       if (deref_stat (dereference_option, str, &st) != 0)
1015         {
1016           stat_error (str);
1017           USAGE_ERROR ((0, 0, _("Date sample file not found")));
1018         }
1019       *ts = get_stat_mtime (&st);
1020     }
1021   else
1022     {
1023       if (! get_date (ts, str, NULL))
1024         {
1025           WARN ((0, 0, _("Substituting %s for unknown date format %s"),
1026                  tartime (*ts, false), quote (str)));
1027           ts->tv_nsec = 0;
1028         }
1029       else
1030         {
1031           struct textual_date *p = xmalloc (sizeof (*p));
1032           p->ts = ts;
1033           p->option = option;
1034           p->date = str;
1035           p->next = args->textual_date;
1036           args->textual_date = p;
1037         }
1038     }
1039 }
1040
1041 static void
1042 report_textual_dates (struct tar_args *args)
1043 {
1044   struct textual_date *p;
1045   for (p = args->textual_date; p; )
1046     {
1047       struct textual_date *next = p->next;
1048       char const *treated_as = tartime (*p->ts, true);
1049       if (strcmp (p->date, treated_as) != 0)
1050         WARN ((0, 0, _("Option %s: Treating date `%s' as %s"),
1051                p->option, p->date, treated_as));
1052       free (p);
1053       p = next;
1054     }
1055 }
1056
1057 \f
1058 static volatile int _argp_hang;
1059
1060 /* Either NL or NUL, as decided by the --null option.  */
1061 static char filename_terminator;
1062
1063 enum read_file_list_state  /* Result of reading file name from the list file */
1064   {
1065     file_list_success,     /* OK, name read successfully */
1066     file_list_end,         /* End of list file */
1067     file_list_zero,        /* Zero separator encountered where it should not */
1068     file_list_skip         /* Empty (zero-length) entry encountered, skip it */
1069   };
1070
1071 /* Read from FP a sequence of characters up to TERM and put them
1072    into STK.
1073  */
1074 static enum read_file_list_state
1075 read_name_from_file (FILE *fp, struct obstack *stk, int term)
1076 {
1077   int c;
1078   size_t counter = 0;
1079
1080   for (c = getc (fp); c != EOF && c != term; c = getc (fp))
1081     {
1082       if (c == 0)
1083         {
1084           /* We have read a zero separator. The file possibly is
1085              zero-separated */
1086           return file_list_zero;
1087         }
1088       obstack_1grow (stk, c);
1089       counter++;
1090     }
1091
1092   if (counter == 0 && c != EOF)
1093     return file_list_skip;
1094
1095   obstack_1grow (stk, 0);
1096
1097   return (counter == 0 && c == EOF) ? file_list_end : file_list_success;
1098 }
1099
1100 \f
1101 static bool files_from_option;  /* When set, tar will not refuse to create
1102                                    empty archives */
1103 static struct obstack argv_stk; /* Storage for additional command line options
1104                                    read using -T option */
1105
1106 /* Prevent recursive inclusion of the same file */
1107 struct file_id_list
1108 {
1109   struct file_id_list *next;
1110   ino_t ino;
1111   dev_t dev;
1112 };
1113
1114 static struct file_id_list *file_id_list;
1115
1116 static void
1117 add_file_id (const char *filename)
1118 {
1119   struct file_id_list *p;
1120   struct stat st;
1121
1122   if (stat (filename, &st))
1123     stat_fatal (filename);
1124   for (p = file_id_list; p; p = p->next)
1125     if (p->ino == st.st_ino && p->dev == st.st_dev)
1126       {
1127         FATAL_ERROR ((0, 0, _("%s: file list already read"),
1128                       quotearg_colon (filename)));
1129       }
1130   p = xmalloc (sizeof *p);
1131   p->next = file_id_list;
1132   p->ino = st.st_ino;
1133   p->dev = st.st_dev;
1134   file_id_list = p;
1135 }
1136
1137 /* Default density numbers for [0-9][lmh] device specifications */
1138
1139 #ifndef LOW_DENSITY_NUM
1140 # define LOW_DENSITY_NUM 0
1141 #endif
1142
1143 #ifndef MID_DENSITY_NUM
1144 # define MID_DENSITY_NUM 8
1145 #endif
1146
1147 #ifndef HIGH_DENSITY_NUM
1148 # define HIGH_DENSITY_NUM 16
1149 #endif
1150
1151 static void
1152 update_argv (const char *filename, struct argp_state *state)
1153 {
1154   FILE *fp;
1155   size_t count = 0, i;
1156   char *start, *p;
1157   char **new_argv;
1158   size_t new_argc;
1159   bool is_stdin = false;
1160   enum read_file_list_state read_state;
1161   int term = filename_terminator;
1162
1163   if (!strcmp (filename, "-"))
1164     {
1165       is_stdin = true;
1166       request_stdin ("-T");
1167       fp = stdin;
1168     }
1169   else
1170     {
1171       add_file_id (filename);
1172       if ((fp = fopen (filename, "r")) == NULL)
1173         open_fatal (filename);
1174     }
1175
1176   while ((read_state = read_name_from_file (fp, &argv_stk, term))
1177          != file_list_end)
1178     {
1179       switch (read_state)
1180         {
1181         case file_list_success:
1182           count++;
1183           break;
1184
1185         case file_list_end: /* won't happen, just to pacify gcc */
1186           break;
1187
1188         case file_list_zero:
1189           {
1190             size_t size;
1191
1192             WARNOPT (WARN_FILENAME_WITH_NULS,
1193                      (0, 0, N_("%s: file name read contains nul character"),
1194                       quotearg_colon (filename)));
1195
1196             /* Prepare new stack contents */
1197             size = obstack_object_size (&argv_stk);
1198             p = obstack_finish (&argv_stk);
1199             for (; size > 0; size--, p++)
1200               if (*p)
1201                 obstack_1grow (&argv_stk, *p);
1202               else
1203                 obstack_1grow (&argv_stk, '\n');
1204             obstack_1grow (&argv_stk, 0);
1205             count = 1;
1206             /* Read rest of files using new filename terminator */
1207             term = 0;
1208             break;
1209           }
1210
1211         case file_list_skip:
1212           break;
1213         }
1214     }
1215
1216   if (!is_stdin)
1217     fclose (fp);
1218
1219   if (count == 0)
1220     return;
1221
1222   start = obstack_finish (&argv_stk);
1223
1224   if (term == 0)
1225     for (p = start; *p; p += strlen (p) + 1)
1226       if (p[0] == '-')
1227         count++;
1228
1229   new_argc = state->argc + count;
1230   new_argv = xmalloc (sizeof (state->argv[0]) * (new_argc + 1));
1231   memcpy (new_argv, state->argv, sizeof (state->argv[0]) * (state->argc + 1));
1232   state->argv = new_argv;
1233   memmove (&state->argv[state->next + count], &state->argv[state->next],
1234            (state->argc - state->next + 1) * sizeof (state->argv[0]));
1235
1236   state->argc = new_argc;
1237
1238   for (i = state->next, p = start; *p; p += strlen (p) + 1, i++)
1239     {
1240       if (term == 0 && p[0] == '-')
1241         state->argv[i++] = "--add-file";
1242       state->argv[i] = p;
1243     }
1244 }
1245
1246 \f
1247 static void
1248 tar_help (struct argp_state *state)
1249 {
1250   argp_fmtstream_t fs;
1251   state->flags |= ARGP_NO_EXIT;
1252   argp_state_help (state, state->out_stream,
1253                    ARGP_HELP_STD_HELP & ~ARGP_HELP_BUG_ADDR);
1254   /* FIXME: use struct uparams.rmargin (from argp-help.c) instead of 79 */
1255   fs = argp_make_fmtstream (state->out_stream, 0, 79, 0);
1256
1257   argp_fmtstream_printf (fs, "\n%s\n\n",
1258                        _("Valid arguments for --quoting-style options are:"));
1259   tar_list_quoting_styles (fs, "  ");
1260
1261   argp_fmtstream_puts (fs, _("\n*This* tar defaults to:\n"));
1262   show_default_settings_fs (fs);
1263   argp_fmtstream_putc (fs, '\n');
1264   argp_fmtstream_printf (fs, _("Report bugs to %s.\n"),
1265                          argp_program_bug_address);
1266   argp_fmtstream_free (fs);
1267 }
1268 \f
1269 static error_t
1270 parse_opt (int key, char *arg, struct argp_state *state)
1271 {
1272   struct tar_args *args = state->input;
1273
1274   switch (key)
1275     {
1276     case ARGP_KEY_ARG:
1277       /* File name or non-parsed option, because of ARGP_IN_ORDER */
1278       name_add_name (arg, MAKE_INCL_OPTIONS (args));
1279       args->input_files = true;
1280       break;
1281
1282     case 'A':
1283       set_subcommand_option (CAT_SUBCOMMAND);
1284       break;
1285
1286     case 'a':
1287       args->compress_autodetect = true;
1288       break;
1289
1290     case NO_AUTO_COMPRESS_OPTION:
1291       args->compress_autodetect = false;
1292       break;
1293
1294     case 'b':
1295       {
1296         uintmax_t u;
1297         if (! (xstrtoumax (arg, 0, 10, &u, "") == LONGINT_OK
1298                && u == (blocking_factor = u)
1299                && 0 < blocking_factor
1300                && u == (record_size = u * BLOCKSIZE) / BLOCKSIZE))
1301           USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (arg),
1302                         _("Invalid blocking factor")));
1303       }
1304       break;
1305
1306     case 'B':
1307       /* Try to reblock input records.  For reading 4.2BSD pipes.  */
1308
1309       /* It would surely make sense to exchange -B and -R, but it seems
1310          that -B has been used for a long while in Sun tar and most
1311          BSD-derived systems.  This is a consequence of the block/record
1312          terminology confusion.  */
1313
1314       read_full_records_option = true;
1315       break;
1316
1317     case 'c':
1318       set_subcommand_option (CREATE_SUBCOMMAND);
1319       break;
1320
1321     case 'C':
1322       name_add_dir (arg);
1323       break;
1324
1325     case 'd':
1326       set_subcommand_option (DIFF_SUBCOMMAND);
1327       break;
1328
1329     case 'f':
1330       if (archive_names == allocated_archive_names)
1331         archive_name_array = x2nrealloc (archive_name_array,
1332                                          &allocated_archive_names,
1333                                          sizeof (archive_name_array[0]));
1334
1335       archive_name_array[archive_names++] = arg;
1336       break;
1337
1338     case 'F':
1339       /* Since -F is only useful with -M, make it implied.  Run this
1340          script at the end of each tape.  */
1341
1342       info_script_option = arg;
1343       multi_volume_option = true;
1344       break;
1345
1346     case 'g':
1347       listed_incremental_option = arg;
1348       after_date_option = true;
1349       /* Fall through.  */
1350
1351     case 'G':
1352       /* We are making an incremental dump (FIXME: are we?); save
1353          directories at the beginning of the archive, and include in each
1354          directory its contents.  */
1355
1356       incremental_option = true;
1357       break;
1358
1359     case 'h':
1360       /* Follow symbolic links.  */
1361       dereference_option = true;
1362       break;
1363
1364     case HARD_DEREFERENCE_OPTION:
1365       hard_dereference_option = true;
1366       break;
1367
1368     case 'i':
1369       /* Ignore zero blocks (eofs).  This can't be the default,
1370          because Unix tar writes two blocks of zeros, then pads out
1371          the record with garbage.  */
1372
1373       ignore_zeros_option = true;
1374       break;
1375
1376     case 'j':
1377       set_use_compress_program_option ("bzip2");
1378       break;
1379
1380     case 'J':
1381       set_use_compress_program_option ("xz");
1382       break;
1383
1384     case 'k':
1385       /* Don't replace existing files.  */
1386       old_files_option = KEEP_OLD_FILES;
1387       break;
1388
1389     case 'K':
1390       starting_file_option = true;
1391       addname (arg, 0, NULL);
1392       break;
1393
1394     case ONE_FILE_SYSTEM_OPTION:
1395       /* When dumping directories, don't dump files/subdirectories
1396          that are on other filesystems. */
1397       one_file_system_option = true;
1398       break;
1399
1400     case 'l':
1401       check_links_option = 1;
1402       break;
1403
1404     case 'L':
1405       {
1406         uintmax_t u;
1407         if (xstrtoumax (arg, 0, 10, &u, "") != LONGINT_OK)
1408           USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (arg),
1409                         _("Invalid tape length")));
1410         tape_length_option = 1024 * (tarlong) u;
1411         multi_volume_option = true;
1412       }
1413       break;
1414
1415     case LEVEL_OPTION:
1416       {
1417         char *p;
1418         incremental_level = strtoul (arg, &p, 10);
1419         if (*p)
1420           USAGE_ERROR ((0, 0, _("Invalid incremental level value")));
1421       }
1422       break;
1423
1424     case LZMA_OPTION:
1425       set_use_compress_program_option ("lzma");
1426       break;
1427
1428     case LZOP_OPTION:
1429       set_use_compress_program_option ("lzop");
1430       break;
1431
1432     case 'm':
1433       touch_option = true;
1434       break;
1435
1436     case 'M':
1437       /* Make multivolume archive: when we can't write any more into
1438          the archive, re-open it, and continue writing.  */
1439
1440       multi_volume_option = true;
1441       break;
1442
1443     case MTIME_OPTION:
1444       get_date_or_file (args, "--mtime", arg, &mtime_option);
1445       set_mtime_option = true;
1446       break;
1447
1448     case 'n':
1449       seekable_archive = true;
1450       break;
1451
1452     case 'N':
1453       after_date_option = true;
1454       /* Fall through.  */
1455
1456     case NEWER_MTIME_OPTION:
1457       if (NEWER_OPTION_INITIALIZED (newer_mtime_option))
1458         USAGE_ERROR ((0, 0, _("More than one threshold date")));
1459       get_date_or_file (args,
1460                         key == NEWER_MTIME_OPTION ? "--newer-mtime"
1461                           : "--after-date", arg, &newer_mtime_option);
1462       break;
1463
1464     case 'o':
1465       args->o_option = true;
1466       break;
1467
1468     case 'O':
1469       to_stdout_option = true;
1470       break;
1471
1472     case 'p':
1473       same_permissions_option = true;
1474       break;
1475
1476     case 'P':
1477       absolute_names_option = true;
1478       break;
1479
1480     case 'r':
1481       set_subcommand_option (APPEND_SUBCOMMAND);
1482       break;
1483
1484     case 'R':
1485       /* Print block numbers for debugging bad tar archives.  */
1486
1487       /* It would surely make sense to exchange -B and -R, but it seems
1488          that -B has been used for a long while in Sun tar and most
1489          BSD-derived systems.  This is a consequence of the block/record
1490          terminology confusion.  */
1491
1492       block_number_option = true;
1493       break;
1494
1495     case 's':
1496       /* Names to extract are sorted.  */
1497
1498       same_order_option = true;
1499       break;
1500
1501     case 'S':
1502       sparse_option = true;
1503       break;
1504
1505     case SPARSE_VERSION_OPTION:
1506       sparse_option = true;
1507       {
1508         char *p;
1509         tar_sparse_major = strtoul (arg, &p, 10);
1510         if (*p)
1511           {
1512             if (*p != '.')
1513               USAGE_ERROR ((0, 0, _("Invalid sparse version value")));
1514             tar_sparse_minor = strtoul (p + 1, &p, 10);
1515             if (*p)
1516               USAGE_ERROR ((0, 0, _("Invalid sparse version value")));
1517           }
1518       }
1519       break;
1520
1521     case 't':
1522       set_subcommand_option (LIST_SUBCOMMAND);
1523       verbose_option++;
1524       break;
1525
1526     case TEST_LABEL_OPTION:
1527       set_subcommand_option (LIST_SUBCOMMAND);
1528       test_label_option = true;
1529       break;
1530
1531     case 'T':
1532       update_argv (arg, state);
1533       /* Indicate we've been given -T option. This is for backward
1534          compatibility only, so that `tar cfT archive /dev/null will
1535          succeed */
1536       files_from_option = true;
1537       break;
1538
1539     case 'u':
1540       set_subcommand_option (UPDATE_SUBCOMMAND);
1541       break;
1542
1543     case 'U':
1544       old_files_option = UNLINK_FIRST_OLD_FILES;
1545       break;
1546
1547     case UTC_OPTION:
1548       utc_option = true;
1549       break;
1550
1551     case 'v':
1552       verbose_option++;
1553       warning_option |= WARN_VERBOSE_WARNINGS;
1554       break;
1555
1556     case 'V':
1557       volume_label_option = arg;
1558       break;
1559
1560     case 'w':
1561       interactive_option = true;
1562       break;
1563
1564     case 'W':
1565       verify_option = true;
1566       break;
1567
1568     case 'x':
1569       set_subcommand_option (EXTRACT_SUBCOMMAND);
1570       break;
1571
1572     case 'X':
1573       if (add_exclude_file (add_exclude, excluded, arg,
1574                             MAKE_EXCL_OPTIONS (args), '\n')
1575           != 0)
1576         {
1577           int e = errno;
1578           FATAL_ERROR ((0, e, "%s", quotearg_colon (arg)));
1579         }
1580       break;
1581
1582     case 'z':
1583       set_use_compress_program_option ("gzip");
1584       break;
1585
1586     case 'Z':
1587       set_use_compress_program_option ("compress");
1588       break;
1589
1590     case ANCHORED_OPTION:
1591       args->matching_flags |= EXCLUDE_ANCHORED;
1592       break;
1593
1594     case ATIME_PRESERVE_OPTION:
1595       atime_preserve_option =
1596         (arg
1597          ? XARGMATCH ("--atime-preserve", arg,
1598                       atime_preserve_args, atime_preserve_types)
1599          : replace_atime_preserve);
1600       if (! O_NOATIME && atime_preserve_option == system_atime_preserve)
1601         FATAL_ERROR ((0, 0,
1602                       _("--atime-preserve='system' is not supported"
1603                         " on this platform")));
1604       break;
1605
1606     case CHECK_DEVICE_OPTION:
1607       check_device_option = true;
1608       break;
1609
1610     case NO_CHECK_DEVICE_OPTION:
1611       check_device_option = false;
1612       break;
1613
1614     case CHECKPOINT_OPTION:
1615       if (arg)
1616         {
1617           char *p;
1618
1619           if (*arg == '.')
1620             {
1621               checkpoint_compile_action (".");
1622               arg++;
1623             }
1624           checkpoint_option = strtoul (arg, &p, 0);
1625           if (*p)
1626             FATAL_ERROR ((0, 0,
1627                           _("--checkpoint value is not an integer")));
1628         }
1629       else
1630         checkpoint_option = DEFAULT_CHECKPOINT;
1631       break;
1632
1633     case CHECKPOINT_ACTION_OPTION:
1634       checkpoint_compile_action (arg);
1635       break;
1636
1637     case BACKUP_OPTION:
1638       backup_option = true;
1639       if (arg)
1640         args->version_control_string = arg;
1641       break;
1642
1643     case DELAY_DIRECTORY_RESTORE_OPTION:
1644       delay_directory_restore_option = true;
1645       break;
1646
1647     case NO_DELAY_DIRECTORY_RESTORE_OPTION:
1648       delay_directory_restore_option = false;
1649       break;
1650
1651     case DELETE_OPTION:
1652       set_subcommand_option (DELETE_SUBCOMMAND);
1653       break;
1654
1655     case EXCLUDE_OPTION:
1656       add_exclude (excluded, arg, MAKE_EXCL_OPTIONS (args));
1657       break;
1658
1659     case EXCLUDE_CACHES_OPTION:
1660       add_exclusion_tag ("CACHEDIR.TAG", exclusion_tag_contents,
1661                          cachedir_file_p);
1662       break;
1663
1664     case EXCLUDE_CACHES_UNDER_OPTION:
1665       add_exclusion_tag ("CACHEDIR.TAG", exclusion_tag_under,
1666                          cachedir_file_p);
1667       break;
1668
1669     case EXCLUDE_CACHES_ALL_OPTION:
1670       add_exclusion_tag ("CACHEDIR.TAG", exclusion_tag_all,
1671                          cachedir_file_p);
1672       break;
1673
1674     case EXCLUDE_TAG_OPTION:
1675       add_exclusion_tag (arg, exclusion_tag_contents, NULL);
1676       break;
1677
1678     case EXCLUDE_TAG_UNDER_OPTION:
1679       add_exclusion_tag (arg, exclusion_tag_under, NULL);
1680       break;
1681
1682     case EXCLUDE_TAG_ALL_OPTION:
1683       add_exclusion_tag (arg, exclusion_tag_all, NULL);
1684       break;
1685
1686     case EXCLUDE_VCS_OPTION:
1687       exclude_vcs_files ();
1688       break;
1689
1690     case FORCE_LOCAL_OPTION:
1691       force_local_option = true;
1692       break;
1693
1694     case 'H':
1695       set_archive_format (arg);
1696       break;
1697
1698     case INDEX_FILE_OPTION:
1699       index_file_name = arg;
1700       break;
1701
1702     case IGNORE_CASE_OPTION:
1703       args->matching_flags |= FNM_CASEFOLD;
1704       break;
1705
1706     case IGNORE_COMMAND_ERROR_OPTION:
1707       ignore_command_error_option = true;
1708       break;
1709
1710     case IGNORE_FAILED_READ_OPTION:
1711       ignore_failed_read_option = true;
1712       break;
1713
1714     case KEEP_NEWER_FILES_OPTION:
1715       old_files_option = KEEP_NEWER_FILES;
1716       break;
1717
1718     case GROUP_OPTION:
1719       if (! (strlen (arg) < GNAME_FIELD_SIZE
1720              && gname_to_gid (arg, &group_option)))
1721         {
1722           uintmax_t g;
1723           if (xstrtoumax (arg, 0, 10, &g, "") == LONGINT_OK
1724               && g == (gid_t) g)
1725             group_option = g;
1726           else
1727             FATAL_ERROR ((0, 0, "%s: %s", quotearg_colon (arg),
1728                           _("%s: Invalid group")));
1729         }
1730       break;
1731
1732     case MODE_OPTION:
1733       mode_option = mode_compile (arg);
1734       if (!mode_option)
1735         FATAL_ERROR ((0, 0, _("Invalid mode given on option")));
1736       initial_umask = umask (0);
1737       umask (initial_umask);
1738       break;
1739
1740     case NO_ANCHORED_OPTION:
1741       args->include_anchored = 0; /* Clear the default for comman line args */
1742       args->matching_flags &= ~ EXCLUDE_ANCHORED;
1743       break;
1744
1745     case NO_IGNORE_CASE_OPTION:
1746       args->matching_flags &= ~ FNM_CASEFOLD;
1747       break;
1748
1749     case NO_IGNORE_COMMAND_ERROR_OPTION:
1750       ignore_command_error_option = false;
1751       break;
1752
1753     case NO_OVERWRITE_DIR_OPTION:
1754       old_files_option = NO_OVERWRITE_DIR_OLD_FILES;
1755       break;
1756
1757     case NO_QUOTE_CHARS_OPTION:
1758       for (;*arg; arg++)
1759         set_char_quoting (NULL, *arg, 0);
1760       break;
1761
1762     case NO_WILDCARDS_OPTION:
1763       args->wildcards = disable_wildcards;
1764       break;
1765
1766     case NO_WILDCARDS_MATCH_SLASH_OPTION:
1767       args->matching_flags |= FNM_FILE_NAME;
1768       break;
1769
1770     case NULL_OPTION:
1771       filename_terminator = '\0';
1772       break;
1773
1774     case NO_NULL_OPTION:
1775       filename_terminator = '\n';
1776       break;
1777
1778     case NUMERIC_OWNER_OPTION:
1779       numeric_owner_option = true;
1780       break;
1781
1782     case OCCURRENCE_OPTION:
1783       if (!arg)
1784         occurrence_option = 1;
1785       else
1786         {
1787           uintmax_t u;
1788           if (xstrtoumax (arg, 0, 10, &u, "") == LONGINT_OK)
1789             occurrence_option = u;
1790           else
1791             FATAL_ERROR ((0, 0, "%s: %s", quotearg_colon (arg),
1792                           _("Invalid number")));
1793         }
1794       break;
1795
1796     case OVERWRITE_DIR_OPTION:
1797       old_files_option = DEFAULT_OLD_FILES;
1798       break;
1799
1800     case OVERWRITE_OPTION:
1801       old_files_option = OVERWRITE_OLD_FILES;
1802       break;
1803
1804     case OWNER_OPTION:
1805       if (! (strlen (arg) < UNAME_FIELD_SIZE
1806              && uname_to_uid (arg, &owner_option)))
1807         {
1808           uintmax_t u;
1809           if (xstrtoumax (arg, 0, 10, &u, "") == LONGINT_OK
1810               && u == (uid_t) u)
1811             owner_option = u;
1812           else
1813             FATAL_ERROR ((0, 0, "%s: %s", quotearg_colon (arg),
1814                           _("Invalid owner")));
1815         }
1816       break;
1817
1818     case QUOTE_CHARS_OPTION:
1819       for (;*arg; arg++)
1820         set_char_quoting (NULL, *arg, 1);
1821       break;
1822
1823     case QUOTING_STYLE_OPTION:
1824       tar_set_quoting_style (arg);
1825       break;
1826
1827     case PAX_OPTION:
1828       args->pax_option = true;
1829       xheader_set_option (arg);
1830       break;
1831
1832     case POSIX_OPTION:
1833       set_archive_format ("posix");
1834       break;
1835
1836     case PRESERVE_OPTION:
1837       /* FIXME: What it is good for? */
1838       same_permissions_option = true;
1839       same_order_option = true;
1840       WARN ((0, 0, _("The --preserve option is deprecated, "
1841                      "use --preserve-permissions --preserve-order instead")));
1842       break;
1843
1844     case RECORD_SIZE_OPTION:
1845       {
1846         uintmax_t u;
1847         if (! (xstrtoumax (arg, 0, 10, &u, "") == LONGINT_OK
1848                && u == (size_t) u))
1849           USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (arg),
1850                         _("Invalid record size")));
1851         record_size = u;
1852         if (record_size % BLOCKSIZE != 0)
1853           USAGE_ERROR ((0, 0, _("Record size must be a multiple of %d."),
1854                         BLOCKSIZE));
1855         blocking_factor = record_size / BLOCKSIZE;
1856       }
1857       break;
1858
1859     case RECURSIVE_UNLINK_OPTION:
1860       recursive_unlink_option = true;
1861       break;
1862
1863     case REMOVE_FILES_OPTION:
1864       remove_files_option = true;
1865       break;
1866
1867     case RESTRICT_OPTION:
1868       restrict_option = true;
1869       break;
1870
1871     case RMT_COMMAND_OPTION:
1872       rmt_command = arg;
1873       break;
1874
1875     case RSH_COMMAND_OPTION:
1876       rsh_command_option = arg;
1877       break;
1878
1879     case SHOW_DEFAULTS_OPTION:
1880       show_default_settings (stdout);
1881       close_stdout ();
1882       exit (0);
1883
1884     case STRIP_COMPONENTS_OPTION:
1885       {
1886         uintmax_t u;
1887         if (! (xstrtoumax (arg, 0, 10, &u, "") == LONGINT_OK
1888                && u == (size_t) u))
1889           USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (arg),
1890                         _("Invalid number of elements")));
1891         strip_name_components = u;
1892       }
1893       break;
1894
1895     case SHOW_OMITTED_DIRS_OPTION:
1896       show_omitted_dirs_option = true;
1897       break;
1898
1899     case SHOW_TRANSFORMED_NAMES_OPTION:
1900       show_transformed_names_option = true;
1901       break;
1902
1903     case SUFFIX_OPTION:
1904       backup_option = true;
1905       args->backup_suffix_string = arg;
1906       break;
1907
1908     case TO_COMMAND_OPTION:
1909       if (to_command_option)
1910         USAGE_ERROR ((0, 0, _("Only one --to-command option allowed")));
1911       to_command_option = arg;
1912       break;
1913
1914     case TOTALS_OPTION:
1915       if (arg)
1916         set_stat_signal (arg);
1917       else
1918         totals_option = true;
1919       break;
1920
1921     case TRANSFORM_OPTION:
1922       set_transform_expr (arg);
1923       break;
1924
1925     case 'I':
1926       set_use_compress_program_option (arg);
1927       break;
1928
1929     case VOLNO_FILE_OPTION:
1930       volno_file_option = arg;
1931       break;
1932
1933     case WILDCARDS_OPTION:
1934       args->wildcards = enable_wildcards;
1935       break;
1936
1937     case WILDCARDS_MATCH_SLASH_OPTION:
1938       args->matching_flags &= ~ FNM_FILE_NAME;
1939       break;
1940
1941     case NO_RECURSION_OPTION:
1942       recursion_option = 0;
1943       break;
1944
1945     case NO_SAME_OWNER_OPTION:
1946       same_owner_option = -1;
1947       break;
1948
1949     case NO_SAME_PERMISSIONS_OPTION:
1950       same_permissions_option = -1;
1951       break;
1952
1953     case RECURSION_OPTION:
1954       recursion_option = FNM_LEADING_DIR;
1955       break;
1956
1957     case SAME_OWNER_OPTION:
1958       same_owner_option = 1;
1959       break;
1960
1961     case UNQUOTE_OPTION:
1962       unquote_option = true;
1963       break;
1964
1965     case NO_UNQUOTE_OPTION:
1966       unquote_option = false;
1967       break;
1968
1969     case WARNING_OPTION:
1970       set_warning_option (arg);
1971       break;
1972
1973     case '0':
1974     case '1':
1975     case '2':
1976     case '3':
1977     case '4':
1978     case '5':
1979     case '6':
1980     case '7':
1981
1982 #ifdef DEVICE_PREFIX
1983       {
1984         int device = key - '0';
1985         int density;
1986         static char buf[sizeof DEVICE_PREFIX + 10];
1987         char *cursor;
1988
1989         if (arg[1])
1990           argp_error (state, _("Malformed density argument: %s"), quote (arg));
1991
1992         strcpy (buf, DEVICE_PREFIX);
1993         cursor = buf + strlen (buf);
1994
1995 #ifdef DENSITY_LETTER
1996
1997         sprintf (cursor, "%d%c", device, arg[0]);
1998
1999 #else /* not DENSITY_LETTER */
2000
2001         switch (arg[0])
2002           {
2003           case 'l':
2004             device += LOW_DENSITY_NUM;
2005             break;
2006
2007           case 'm':
2008             device += MID_DENSITY_NUM;
2009             break;
2010
2011           case 'h':
2012             device += HIGH_DENSITY_NUM;
2013             break;
2014
2015           default:
2016             argp_error (state, _("Unknown density: `%c'"), arg[0]);
2017           }
2018         sprintf (cursor, "%d", device);
2019
2020 #endif /* not DENSITY_LETTER */
2021
2022         if (archive_names == allocated_archive_names)
2023           archive_name_array = x2nrealloc (archive_name_array,
2024                                            &allocated_archive_names,
2025                                            sizeof (archive_name_array[0]));
2026         archive_name_array[archive_names++] = xstrdup (buf);
2027       }
2028       break;
2029
2030 #else /* not DEVICE_PREFIX */
2031
2032       argp_error (state,
2033                   _("Options `-[0-7][lmh]' not supported by *this* tar"));
2034
2035 #endif /* not DEVICE_PREFIX */
2036
2037     case '?':
2038       tar_help (state);
2039       close_stdout ();
2040       exit (0);
2041
2042     case USAGE_OPTION:
2043       argp_state_help (state, state->out_stream, ARGP_HELP_USAGE);
2044       close_stdout ();
2045       exit (0);
2046
2047     case VERSION_OPTION:
2048       version_etc (state->out_stream, "tar", PACKAGE_NAME, VERSION,
2049                    "John Gilmore", "Jay Fenlason", (char *) NULL);
2050       close_stdout ();
2051       exit (0);
2052
2053     case HANG_OPTION:
2054       _argp_hang = atoi (arg ? arg : "3600");
2055       while (_argp_hang-- > 0)
2056         sleep (1);
2057       break;
2058
2059     default:
2060       return ARGP_ERR_UNKNOWN;
2061     }
2062   return 0;
2063 }
2064
2065 static struct argp argp = {
2066   options,
2067   parse_opt,
2068   N_("[FILE]..."),
2069   doc,
2070   NULL,
2071   NULL,
2072   NULL
2073 };
2074
2075 void
2076 usage (int status)
2077 {
2078   argp_help (&argp, stderr, ARGP_HELP_SEE, (char*) program_name);
2079   close_stdout ();
2080   exit (status);
2081 }
2082
2083 /* Parse the options for tar.  */
2084
2085 static struct argp_option *
2086 find_argp_option (struct argp_option *o, int letter)
2087 {
2088   for (;
2089        !(o->name == NULL
2090          && o->key == 0
2091          && o->arg == 0
2092          && o->flags == 0
2093          && o->doc == NULL); o++)
2094     if (o->key == letter)
2095       return o;
2096   return NULL;
2097 }
2098
2099 static void
2100 decode_options (int argc, char **argv)
2101 {
2102   int idx;
2103   struct tar_args args;
2104
2105   /* Set some default option values.  */
2106   args.textual_date = NULL;
2107   args.wildcards = default_wildcards;
2108   args.matching_flags = 0;
2109   args.include_anchored = EXCLUDE_ANCHORED;
2110   args.o_option = false;
2111   args.pax_option = false;
2112   args.backup_suffix_string = getenv ("SIMPLE_BACKUP_SUFFIX");
2113   args.version_control_string = 0;
2114   args.input_files = false;
2115   args.compress_autodetect = false;
2116
2117   subcommand_option = UNKNOWN_SUBCOMMAND;
2118   archive_format = DEFAULT_FORMAT;
2119   blocking_factor = DEFAULT_BLOCKING;
2120   record_size = DEFAULT_BLOCKING * BLOCKSIZE;
2121   excluded = new_exclude ();
2122   newer_mtime_option.tv_sec = TYPE_MINIMUM (time_t);
2123   newer_mtime_option.tv_nsec = -1;
2124   recursion_option = FNM_LEADING_DIR;
2125   unquote_option = true;
2126   tar_sparse_major = 1;
2127   tar_sparse_minor = 0;
2128
2129   owner_option = -1;
2130   group_option = -1;
2131
2132   check_device_option = true;
2133
2134   incremental_level = -1;
2135
2136   /* Convert old-style tar call by exploding option element and rearranging
2137      options accordingly.  */
2138
2139   if (argc > 1 && argv[1][0] != '-')
2140     {
2141       int new_argc;             /* argc value for rearranged arguments */
2142       char **new_argv;          /* argv value for rearranged arguments */
2143       char *const *in;          /* cursor into original argv */
2144       char **out;               /* cursor into rearranged argv */
2145       const char *letter;       /* cursor into old option letters */
2146       char buffer[3];           /* constructed option buffer */
2147
2148       /* Initialize a constructed option.  */
2149
2150       buffer[0] = '-';
2151       buffer[2] = '\0';
2152
2153       /* Allocate a new argument array, and copy program name in it.  */
2154
2155       new_argc = argc - 1 + strlen (argv[1]);
2156       new_argv = xmalloc ((new_argc + 1) * sizeof (char *));
2157       in = argv;
2158       out = new_argv;
2159       *out++ = *in++;
2160
2161       /* Copy each old letter option as a separate option, and have the
2162          corresponding argument moved next to it.  */
2163
2164       for (letter = *in++; *letter; letter++)
2165         {
2166           struct argp_option *opt;
2167
2168           buffer[1] = *letter;
2169           *out++ = xstrdup (buffer);
2170           opt = find_argp_option (options, *letter);
2171           if (opt && opt->arg)
2172             {
2173               if (in < argv + argc)
2174                 *out++ = *in++;
2175               else
2176                 USAGE_ERROR ((0, 0, _("Old option `%c' requires an argument."),
2177                               *letter));
2178             }
2179         }
2180
2181       /* Copy all remaining options.  */
2182
2183       while (in < argv + argc)
2184         *out++ = *in++;
2185       *out = 0;
2186
2187       /* Replace the old option list by the new one.  */
2188
2189       argc = new_argc;
2190       argv = new_argv;
2191     }
2192
2193   /* Parse all options and non-options as they appear.  */
2194
2195   prepend_default_options (getenv ("TAR_OPTIONS"), &argc, &argv);
2196
2197   if (argp_parse (&argp, argc, argv, ARGP_IN_ORDER|ARGP_NO_HELP,
2198                   &idx, &args))
2199     exit (TAREXIT_FAILURE);
2200
2201
2202   /* Special handling for 'o' option:
2203
2204      GNU tar used to say "output old format".
2205      UNIX98 tar says don't chown files after extracting (we use
2206      "--no-same-owner" for this).
2207
2208      The old GNU tar semantics is retained when used with --create
2209      option, otherwise UNIX98 semantics is assumed */
2210
2211   if (args.o_option)
2212     {
2213       if (subcommand_option == CREATE_SUBCOMMAND)
2214         {
2215           /* GNU Tar <= 1.13 compatibility */
2216           set_archive_format ("v7");
2217         }
2218       else
2219         {
2220           /* UNIX98 compatibility */
2221           same_owner_option = -1;
2222         }
2223     }
2224
2225   /* Handle operands after any "--" argument.  */
2226   for (; idx < argc; idx++)
2227     {
2228       name_add_name (argv[idx], MAKE_INCL_OPTIONS (&args));
2229       args.input_files = true;
2230     }
2231
2232   /* Warn about implicit use of the wildcards in command line arguments.
2233      See TODO */
2234   warn_regex_usage = args.wildcards == default_wildcards;
2235
2236   /* Derive option values and check option consistency.  */
2237
2238   if (archive_format == DEFAULT_FORMAT)
2239     {
2240       if (args.pax_option)
2241         archive_format = POSIX_FORMAT;
2242       else
2243         archive_format = DEFAULT_ARCHIVE_FORMAT;
2244     }
2245
2246   if ((volume_label_option && subcommand_option == CREATE_SUBCOMMAND)
2247       || incremental_option
2248       || multi_volume_option
2249       || sparse_option)
2250     assert_format (FORMAT_MASK (OLDGNU_FORMAT)
2251                    | FORMAT_MASK (GNU_FORMAT)
2252                    | FORMAT_MASK (POSIX_FORMAT));
2253
2254   if (occurrence_option)
2255     {
2256       if (!args.input_files)
2257         USAGE_ERROR ((0, 0,
2258                       _("--occurrence is meaningless without a file list")));
2259       if (subcommand_option != DELETE_SUBCOMMAND
2260           && subcommand_option != DIFF_SUBCOMMAND
2261           && subcommand_option != EXTRACT_SUBCOMMAND
2262           && subcommand_option != LIST_SUBCOMMAND)
2263             USAGE_ERROR ((0, 0,
2264                           _("--occurrence cannot be used in the requested operation mode")));
2265     }
2266
2267   if (seekable_archive && subcommand_option == DELETE_SUBCOMMAND)
2268     {
2269       /* The current code in delete.c is based on the assumption that
2270          skip_member() reads all data from the archive. So, we should
2271          make sure it won't use seeks. On the other hand, the same code
2272          depends on the ability to backspace a record in the archive,
2273          so setting seekable_archive to false is technically incorrect.
2274          However, it is tested only in skip_member(), so it's not a
2275          problem. */
2276       seekable_archive = false;
2277     }
2278
2279   if (archive_names == 0)
2280     {
2281       /* If no archive file name given, try TAPE from the environment, or
2282          else, DEFAULT_ARCHIVE from the configuration process.  */
2283
2284       archive_names = 1;
2285       archive_name_array[0] = getenv ("TAPE");
2286       if (! archive_name_array[0])
2287         archive_name_array[0] = DEFAULT_ARCHIVE;
2288     }
2289
2290   /* Allow multiple archives only with `-M'.  */
2291
2292   if (archive_names > 1 && !multi_volume_option)
2293     USAGE_ERROR ((0, 0,
2294                   _("Multiple archive files require `-M' option")));
2295
2296   if (listed_incremental_option
2297       && NEWER_OPTION_INITIALIZED (newer_mtime_option))
2298     USAGE_ERROR ((0, 0,
2299                   _("Cannot combine --listed-incremental with --newer")));
2300   if (incremental_level != -1 && !listed_incremental_option)
2301     WARN ((0, 0,
2302            _("--level is meaningless without --listed-incremental")));
2303
2304   if (volume_label_option)
2305     {
2306       if (archive_format == GNU_FORMAT || archive_format == OLDGNU_FORMAT)
2307         {
2308           size_t volume_label_max_len =
2309             (sizeof current_header->header.name
2310              - 1 /* for trailing '\0' */
2311              - (multi_volume_option
2312                 ? (sizeof " Volume "
2313                    - 1 /* for null at end of " Volume " */
2314                    + INT_STRLEN_BOUND (int) /* for volume number */
2315                    - 1 /* for sign, as 0 <= volno */)
2316                 : 0));
2317           if (volume_label_max_len < strlen (volume_label_option))
2318             USAGE_ERROR ((0, 0,
2319                           ngettext ("%s: Volume label is too long (limit is %lu byte)",
2320                                     "%s: Volume label is too long (limit is %lu bytes)",
2321                                     volume_label_max_len),
2322                           quotearg_colon (volume_label_option),
2323                           (unsigned long) volume_label_max_len));
2324         }
2325       /* else FIXME
2326          Label length in PAX format is limited by the volume size. */
2327     }
2328
2329   if (verify_option)
2330     {
2331       if (multi_volume_option)
2332         USAGE_ERROR ((0, 0, _("Cannot verify multi-volume archives")));
2333       if (use_compress_program_option)
2334         USAGE_ERROR ((0, 0, _("Cannot verify compressed archives")));
2335     }
2336
2337   if (use_compress_program_option)
2338     {
2339       if (multi_volume_option)
2340         USAGE_ERROR ((0, 0, _("Cannot use multi-volume compressed archives")));
2341       if (subcommand_option == UPDATE_SUBCOMMAND
2342           || subcommand_option == APPEND_SUBCOMMAND
2343           || subcommand_option == DELETE_SUBCOMMAND)
2344         USAGE_ERROR ((0, 0, _("Cannot update compressed archives")));
2345       if (subcommand_option == CAT_SUBCOMMAND)
2346         USAGE_ERROR ((0, 0, _("Cannot concatenate compressed archives")));
2347     }
2348
2349   /* It is no harm to use --pax-option on non-pax archives in archive
2350      reading mode. It may even be useful, since it allows to override
2351      file attributes from tar headers. Therefore I allow such usage.
2352      --gray */
2353   if (args.pax_option
2354       && archive_format != POSIX_FORMAT
2355       && (subcommand_option != EXTRACT_SUBCOMMAND
2356           || subcommand_option != DIFF_SUBCOMMAND
2357           || subcommand_option != LIST_SUBCOMMAND))
2358     USAGE_ERROR ((0, 0, _("--pax-option can be used only on POSIX archives")));
2359
2360   /* If ready to unlink hierarchies, so we are for simpler files.  */
2361   if (recursive_unlink_option)
2362     old_files_option = UNLINK_FIRST_OLD_FILES;
2363
2364
2365   if (test_label_option)
2366     {
2367       /* --test-label is silent if the user has specified the label name to
2368          compare against. */
2369       if (!args.input_files)
2370         verbose_option++;
2371     }
2372   else if (utc_option)
2373     verbose_option = 2;
2374
2375   if (tape_length_option && tape_length_option < record_size)
2376     USAGE_ERROR ((0, 0, _("Volume length cannot be less than record size")));
2377
2378   if (same_order_option && listed_incremental_option)
2379     USAGE_ERROR ((0, 0, _("--preserve-order is not compatible with "
2380                           "--listed-incremental")));
2381
2382   /* Forbid using -c with no input files whatsoever.  Check that `-f -',
2383      explicit or implied, is used correctly.  */
2384
2385   switch (subcommand_option)
2386     {
2387     case CREATE_SUBCOMMAND:
2388       if (!args.input_files && !files_from_option)
2389         USAGE_ERROR ((0, 0,
2390                       _("Cowardly refusing to create an empty archive")));
2391       if (args.compress_autodetect && archive_names
2392           && strcmp (archive_name_array[0], "-"))
2393         set_comression_program_by_suffix (archive_name_array[0],
2394                                           use_compress_program_option);
2395       break;
2396
2397     case EXTRACT_SUBCOMMAND:
2398     case LIST_SUBCOMMAND:
2399     case DIFF_SUBCOMMAND:
2400       for (archive_name_cursor = archive_name_array;
2401            archive_name_cursor < archive_name_array + archive_names;
2402            archive_name_cursor++)
2403         if (!strcmp (*archive_name_cursor, "-"))
2404           request_stdin ("-f");
2405       break;
2406
2407     case CAT_SUBCOMMAND:
2408     case UPDATE_SUBCOMMAND:
2409     case APPEND_SUBCOMMAND:
2410       for (archive_name_cursor = archive_name_array;
2411            archive_name_cursor < archive_name_array + archive_names;
2412            archive_name_cursor++)
2413         if (!strcmp (*archive_name_cursor, "-"))
2414           USAGE_ERROR ((0, 0,
2415                         _("Options `-Aru' are incompatible with `-f -'")));
2416
2417     default:
2418       break;
2419     }
2420
2421   /* Initialize stdlis */
2422   if (index_file_name)
2423     {
2424       stdlis = fopen (index_file_name, "w");
2425       if (! stdlis)
2426         open_error (index_file_name);
2427     }
2428   else
2429     stdlis = to_stdout_option ? stderr : stdout;
2430
2431   archive_name_cursor = archive_name_array;
2432
2433   /* Prepare for generating backup names.  */
2434
2435   if (args.backup_suffix_string)
2436     simple_backup_suffix = xstrdup (args.backup_suffix_string);
2437
2438   if (backup_option)
2439     {
2440       backup_type = xget_version ("--backup", args.version_control_string);
2441       /* No backup is needed either if explicitely disabled or if
2442          the extracted files are not being written to disk. */
2443       if (backup_type == no_backups || EXTRACT_OVER_PIPE)
2444         backup_option = false;
2445     }
2446
2447   checkpoint_finish_compile ();
2448
2449   if (verbose_option)
2450     report_textual_dates (&args);
2451 }
2452
2453 \f
2454 /* Tar proper.  */
2455
2456 /* Main routine for tar.  */
2457 int
2458 main (int argc, char **argv)
2459 {
2460   set_start_time ();
2461   program_name = argv[0];
2462
2463   setlocale (LC_ALL, "");
2464   bindtextdomain (PACKAGE, LOCALEDIR);
2465   textdomain (PACKAGE);
2466
2467   exit_failure = TAREXIT_FAILURE;
2468   exit_status = TAREXIT_SUCCESS;
2469   filename_terminator = '\n';
2470   set_quoting_style (0, DEFAULT_QUOTING_STYLE);
2471
2472   /* Make sure we have first three descriptors available */
2473   stdopen ();
2474
2475   /* Pre-allocate a few structures.  */
2476
2477   allocated_archive_names = 10;
2478   archive_name_array =
2479     xmalloc (sizeof (const char *) * allocated_archive_names);
2480   archive_names = 0;
2481
2482   obstack_init (&argv_stk);
2483
2484   /* Ensure default behavior for some signals */
2485   signal (SIGPIPE, SIG_DFL);
2486   /* System V fork+wait does not work if SIGCHLD is ignored.  */
2487   signal (SIGCHLD, SIG_DFL);
2488
2489   /* Try to disable the ability to unlink a directory.  */
2490   priv_set_remove_linkdir ();
2491
2492   /* Decode options.  */
2493
2494   decode_options (argc, argv);
2495
2496   name_init ();
2497
2498   /* Main command execution.  */
2499
2500   if (volno_file_option)
2501     init_volume_number ();
2502
2503   switch (subcommand_option)
2504     {
2505     case UNKNOWN_SUBCOMMAND:
2506       USAGE_ERROR ((0, 0,
2507                     _("You must specify one of the `-Acdtrux' options")));
2508
2509     case CAT_SUBCOMMAND:
2510     case UPDATE_SUBCOMMAND:
2511     case APPEND_SUBCOMMAND:
2512       update_archive ();
2513       break;
2514
2515     case DELETE_SUBCOMMAND:
2516       delete_archive_members ();
2517       break;
2518
2519     case CREATE_SUBCOMMAND:
2520       create_archive ();
2521       break;
2522
2523     case EXTRACT_SUBCOMMAND:
2524       extr_init ();
2525       read_and (extract_archive);
2526
2527       /* FIXME: should extract_finish () even if an ordinary signal is
2528          received.  */
2529       extract_finish ();
2530
2531       break;
2532
2533     case LIST_SUBCOMMAND:
2534       read_and (list_archive);
2535       break;
2536
2537     case DIFF_SUBCOMMAND:
2538       diff_init ();
2539       read_and (diff_archive);
2540       break;
2541     }
2542
2543   if (totals_option)
2544     print_total_stats ();
2545
2546   if (check_links_option)
2547     check_links ();
2548
2549   if (volno_file_option)
2550     closeout_volume_number ();
2551
2552   /* Dispose of allocated memory, and return.  */
2553
2554   free (archive_name_array);
2555   name_term ();
2556
2557   if (exit_status == TAREXIT_FAILURE)
2558     error (0, 0, _("Exiting with failure status due to previous errors"));
2559
2560   if (stdlis == stdout)
2561     close_stdout ();
2562   else if (ferror (stderr) || fclose (stderr) != 0)
2563     exit_status = TAREXIT_FAILURE;
2564
2565   return exit_status;
2566 }
2567
2568 void
2569 tar_stat_init (struct tar_stat_info *st)
2570 {
2571   memset (st, 0, sizeof (*st));
2572 }
2573
2574 void
2575 tar_stat_destroy (struct tar_stat_info *st)
2576 {
2577   free (st->orig_file_name);
2578   free (st->file_name);
2579   free (st->link_name);
2580   free (st->uname);
2581   free (st->gname);
2582   free (st->sparse_map);
2583   free (st->dumpdir);
2584   xheader_destroy (&st->xhdr);
2585   memset (st, 0, sizeof (*st));
2586 }
2587
2588 /* Format mask for all available formats that support nanosecond
2589    timestamp resolution. */
2590 #define NS_PRECISION_FORMAT_MASK FORMAT_MASK (POSIX_FORMAT)
2591
2592 /* Same as timespec_cmp, but ignore nanoseconds if current archive
2593    format does not provide sufficient resolution.  */
2594 int
2595 tar_timespec_cmp (struct timespec a, struct timespec b)
2596 {
2597   if (!(FORMAT_MASK (current_format) & NS_PRECISION_FORMAT_MASK))
2598     a.tv_nsec = b.tv_nsec = 0;
2599   return timespec_cmp (a, b);
2600 }