1 /* A tar (tape archiver) program.
3 Copyright (C) 1988, 1992, 1993, 1994, 1995, 1996, 1997, 1999, 2000,
4 2001, 2003, 2004, 2005, 2006, 2007, 2009 Free Software Foundation, Inc.
6 Written by John Gilmore, starting 1985-08-25.
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
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.
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. */
26 #include <argp-namefrob.h>
27 #include <argp-fmtstream.h>
28 #include <argp-version-etc.h>
31 #if ! defined SIGCHLD && defined SIGCLD
32 # define SIGCHLD SIGCLD
35 /* The following causes "common.h" to produce definitions of all the global
36 variables, rather than just "extern" declarations of them. GNU tar does
37 depend on the system loader to preset all GLOBAL variables to neutral (or
38 zero) values; explicit initialization is usually not done. */
44 #include <configmake.h>
48 #include <rmt-command.h>
51 #include <version-etc.h>
56 /* Local declarations. */
58 #ifndef DEFAULT_ARCHIVE_FORMAT
59 # define DEFAULT_ARCHIVE_FORMAT GNU_FORMAT
62 #ifndef DEFAULT_ARCHIVE
63 # define DEFAULT_ARCHIVE "tar.out"
66 #ifndef DEFAULT_BLOCKING
67 # define DEFAULT_BLOCKING 20
73 /* Name of option using stdin. */
74 static const char *stdin_used_by
;
76 /* Doesn't return if stdin already requested. */
78 request_stdin (const char *option
)
81 USAGE_ERROR ((0, 0, _("Options `-%s' and `-%s' both want standard input"),
82 stdin_used_by
, option
));
84 stdin_used_by
= option
;
87 extern int rpmatch (char const *response
);
89 /* Returns true if and only if the user typed an affirmative response. */
91 confirm (const char *message_action
, const char *message_name
)
93 static FILE *confirm_file
;
94 static int confirm_file_EOF
;
99 if (archive
== 0 || stdin_used_by
)
101 confirm_file
= fopen (TTY_NAME
, "r");
103 open_fatal (TTY_NAME
);
107 request_stdin ("-w");
108 confirm_file
= stdin
;
112 fprintf (stdlis
, "%s %s?", message_action
, quote (message_name
));
115 if (!confirm_file_EOF
)
117 char *response
= NULL
;
118 size_t response_size
= 0;
119 if (getline (&response
, &response_size
, confirm_file
) < 0)
120 confirm_file_EOF
= 1;
122 status
= rpmatch (response
) > 0;
126 if (confirm_file_EOF
)
128 fputc ('\n', stdlis
);
135 static struct fmttab
{
137 enum archive_format fmt
;
140 { "oldgnu", OLDGNU_FORMAT
},
141 { "ustar", USTAR_FORMAT
},
142 { "posix", POSIX_FORMAT
},
143 #if 0 /* not fully supported yet */
144 { "star", STAR_FORMAT
},
146 { "gnu", GNU_FORMAT
},
147 { "pax", POSIX_FORMAT
}, /* An alias for posix */
152 set_archive_format (char const *name
)
154 struct fmttab
const *p
;
156 for (p
= fmttab
; strcmp (p
->name
, name
) != 0; )
158 USAGE_ERROR ((0, 0, _("%s: Invalid archive format"),
159 quotearg_colon (name
)));
161 archive_format
= p
->fmt
;
165 archive_format_string (enum archive_format fmt
)
167 struct fmttab
const *p
;
169 for (p
= fmttab
; p
->name
; p
++)
175 #define FORMAT_MASK(n) (1<<(n))
178 assert_format(unsigned fmt_mask
)
180 if ((FORMAT_MASK (archive_format
) & fmt_mask
) == 0)
182 _("GNU features wanted on incompatible archive format")));
186 subcommand_string (enum subcommand c
)
190 case UNKNOWN_SUBCOMMAND
:
193 case APPEND_SUBCOMMAND
:
199 case CREATE_SUBCOMMAND
:
202 case DELETE_SUBCOMMAND
:
205 case DIFF_SUBCOMMAND
:
208 case EXTRACT_SUBCOMMAND
:
211 case LIST_SUBCOMMAND
:
214 case UPDATE_SUBCOMMAND
:
217 case TEST_LABEL_SUBCOMMAND
:
218 return "--test-label";
224 tar_list_quoting_styles (struct obstack
*stk
, char *prefix
)
227 size_t prefixlen
= strlen (prefix
);
229 for (i
= 0; quoting_style_args
[i
]; i
++)
231 obstack_grow (stk
, prefix
, prefixlen
);
232 obstack_grow (stk
, quoting_style_args
[i
],
233 strlen (quoting_style_args
[i
]));
234 obstack_1grow (stk
, '\n');
239 tar_set_quoting_style (char *arg
)
243 for (i
= 0; quoting_style_args
[i
]; i
++)
244 if (strcmp (arg
, quoting_style_args
[i
]) == 0)
246 set_quoting_style (NULL
, i
);
250 _("Unknown quoting style `%s'. Try `%s --quoting-style=help' to get a list."), arg
, program_invocation_short_name
));
258 ANCHORED_OPTION
= CHAR_MAX
+ 1,
259 ATIME_PRESERVE_OPTION
,
263 CHECKPOINT_ACTION_OPTION
,
264 DELAY_DIRECTORY_RESTORE_OPTION
,
265 HARD_DEREFERENCE_OPTION
,
267 EXCLUDE_BACKUPS_OPTION
,
268 EXCLUDE_CACHES_OPTION
,
269 EXCLUDE_CACHES_UNDER_OPTION
,
270 EXCLUDE_CACHES_ALL_OPTION
,
273 EXCLUDE_TAG_UNDER_OPTION
,
274 EXCLUDE_TAG_ALL_OPTION
,
279 IGNORE_COMMAND_ERROR_OPTION
,
280 IGNORE_FAILED_READ_OPTION
,
282 KEEP_NEWER_FILES_OPTION
,
291 NO_AUTO_COMPRESS_OPTION
,
292 NO_CHECK_DEVICE_OPTION
,
293 NO_DELAY_DIRECTORY_RESTORE_OPTION
,
294 NO_IGNORE_CASE_OPTION
,
295 NO_IGNORE_COMMAND_ERROR_OPTION
,
297 NO_OVERWRITE_DIR_OPTION
,
298 NO_QUOTE_CHARS_OPTION
,
300 NO_SAME_OWNER_OPTION
,
301 NO_SAME_PERMISSIONS_OPTION
,
304 NO_WILDCARDS_MATCH_SLASH_OPTION
,
307 NUMERIC_OWNER_OPTION
,
310 ONE_FILE_SYSTEM_OPTION
,
311 OVERWRITE_DIR_OPTION
,
318 QUOTING_STYLE_OPTION
,
321 RECURSIVE_UNLINK_OPTION
,
327 SHOW_DEFAULTS_OPTION
,
328 SHOW_OMITTED_DIRS_OPTION
,
329 SHOW_TRANSFORMED_NAMES_OPTION
,
330 SPARSE_VERSION_OPTION
,
331 STRIP_COMPONENTS_OPTION
,
341 WILDCARDS_MATCH_SLASH_OPTION
,
345 const char *argp_program_version
= "tar (" PACKAGE_NAME
") " VERSION
;
346 const char *argp_program_bug_address
= "<" PACKAGE_BUGREPORT
">";
347 static char const doc
[] = N_("\
348 GNU `tar' saves many files together into a single tape or disk archive, \
349 and can restore individual files from the archive.\n\
352 tar -cf archive.tar foo bar # Create archive.tar from files foo and bar.\n\
353 tar -tvf archive.tar # List all files in archive.tar verbosely.\n\
354 tar -xf archive.tar # Extract all files from archive.tar.\n")
356 N_("The backup suffix is `~', unless set with --suffix or SIMPLE_BACKUP_SUFFIX.\n\
357 The version control may be set with --backup or VERSION_CONTROL, values are:\n\n\
358 none, off never make backups\n\
359 t, numbered make numbered backups\n\
360 nil, existing numbered if numbered backups exist, simple otherwise\n\
361 never, simple always make simple backups\n");
366 Available option letters are DEQY and eqy. Consider the following
369 [For Solaris tar compatibility =/= Is it important at all?]
370 e exit immediately with a nonzero exit status if unexpected errors occur
371 E use extended headers (--format=posix)
373 [q alias for --occurrence=1 =/= this would better be used for quiet?]
375 y per-file gzip compression
376 Y per-block gzip compression.
378 Additionally, the 'n' letter is assigned for option --seek, which
379 is probably not needed and should be marked as deprecated, so that
380 -n may become available in the future.
383 static struct argp_option options
[] = {
386 N_("Main operation mode:"), GRID
},
389 N_("list the contents of an archive"), GRID
+1 },
390 {"extract", 'x', 0, 0,
391 N_("extract files from an archive"), GRID
+1 },
392 {"get", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
393 {"create", 'c', 0, 0,
394 N_("create a new archive"), GRID
+1 },
396 N_("find differences between archive and file system"), GRID
+1 },
397 {"compare", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
398 {"append", 'r', 0, 0,
399 N_("append files to the end of an archive"), GRID
+1 },
400 {"update", 'u', 0, 0,
401 N_("only append files newer than copy in archive"), GRID
+1 },
402 {"catenate", 'A', 0, 0,
403 N_("append tar files to an archive"), GRID
+1 },
404 {"concatenate", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
405 {"delete", DELETE_OPTION
, 0, 0,
406 N_("delete from the archive (not on mag tapes!)"), GRID
+1 },
407 {"test-label", TEST_LABEL_OPTION
, NULL
, 0,
408 N_("test the archive volume label and exit"), GRID
+1 },
413 N_("Operation modifiers:"), GRID
},
415 {"sparse", 'S', 0, 0,
416 N_("handle sparse files efficiently"), GRID
+1 },
417 {"sparse-version", SPARSE_VERSION_OPTION
, N_("MAJOR[.MINOR]"), 0,
418 N_("set version of the sparse format to use (implies --sparse)"), GRID
+1},
419 {"incremental", 'G', 0, 0,
420 N_("handle old GNU-format incremental backup"), GRID
+1 },
421 {"listed-incremental", 'g', N_("FILE"), 0,
422 N_("handle new GNU-format incremental backup"), GRID
+1 },
423 {"level", LEVEL_OPTION
, N_("NUMBER"), 0,
424 N_("dump level for created listed-incremental archive"), GRID
+1 },
425 {"ignore-failed-read", IGNORE_FAILED_READ_OPTION
, 0, 0,
426 N_("do not exit with nonzero on unreadable files"), GRID
+1 },
427 {"occurrence", OCCURRENCE_OPTION
, N_("NUMBER"), OPTION_ARG_OPTIONAL
,
428 N_("process only the NUMBERth occurrence of each file in the archive;"
429 " this option is valid only in conjunction with one of the subcommands"
430 " --delete, --diff, --extract or --list and when a list of files"
431 " is given either on the command line or via the -T option;"
432 " NUMBER defaults to 1"), GRID
+1 },
433 {"seek", 'n', NULL
, 0,
434 N_("archive is seekable"), GRID
+1 },
435 {"no-seek", NO_SEEK_OPTION
, NULL
, 0,
436 N_("archive is not seekable"), GRID
+1 },
437 {"no-check-device", NO_CHECK_DEVICE_OPTION
, NULL
, 0,
438 N_("do not check device numbers when creating incremental archives"),
440 {"check-device", CHECK_DEVICE_OPTION
, NULL
, 0,
441 N_("check device numbers when creating incremental archives (default)"),
447 N_("Overwrite control:"), GRID
},
449 {"verify", 'W', 0, 0,
450 N_("attempt to verify the archive after writing it"), GRID
+1 },
451 {"remove-files", REMOVE_FILES_OPTION
, 0, 0,
452 N_("remove files after adding them to the archive"), GRID
+1 },
453 {"keep-old-files", 'k', 0, 0,
454 N_("don't replace existing files when extracting"), GRID
+1 },
455 {"keep-newer-files", KEEP_NEWER_FILES_OPTION
, 0, 0,
456 N_("don't replace existing files that are newer than their archive copies"), GRID
+1 },
457 {"overwrite", OVERWRITE_OPTION
, 0, 0,
458 N_("overwrite existing files when extracting"), GRID
+1 },
459 {"unlink-first", 'U', 0, 0,
460 N_("remove each file prior to extracting over it"), GRID
+1 },
461 {"recursive-unlink", RECURSIVE_UNLINK_OPTION
, 0, 0,
462 N_("empty hierarchies prior to extracting directory"), GRID
+1 },
463 {"no-overwrite-dir", NO_OVERWRITE_DIR_OPTION
, 0, 0,
464 N_("preserve metadata of existing directories"), GRID
+1 },
465 {"overwrite-dir", OVERWRITE_DIR_OPTION
, 0, 0,
466 N_("overwrite metadata of existing directories when extracting (default)"),
472 N_("Select output stream:"), GRID
},
474 {"to-stdout", 'O', 0, 0,
475 N_("extract files to standard output"), GRID
+1 },
476 {"to-command", TO_COMMAND_OPTION
, N_("COMMAND"), 0,
477 N_("pipe extracted files to another program"), GRID
+1 },
478 {"ignore-command-error", IGNORE_COMMAND_ERROR_OPTION
, 0, 0,
479 N_("ignore exit codes of children"), GRID
+1 },
480 {"no-ignore-command-error", NO_IGNORE_COMMAND_ERROR_OPTION
, 0, 0,
481 N_("treat non-zero exit codes of children as error"), GRID
+1 },
486 N_("Handling of file attributes:"), GRID
},
488 {"owner", OWNER_OPTION
, N_("NAME"), 0,
489 N_("force NAME as owner for added files"), GRID
+1 },
490 {"group", GROUP_OPTION
, N_("NAME"), 0,
491 N_("force NAME as group for added files"), GRID
+1 },
492 {"mtime", MTIME_OPTION
, N_("DATE-OR-FILE"), 0,
493 N_("set mtime for added files from DATE-OR-FILE"), GRID
+1 },
494 {"mode", MODE_OPTION
, N_("CHANGES"), 0,
495 N_("force (symbolic) mode CHANGES for added files"), GRID
+1 },
496 {"atime-preserve", ATIME_PRESERVE_OPTION
,
497 N_("METHOD"), OPTION_ARG_OPTIONAL
,
498 N_("preserve access times on dumped files, either by restoring the times"
499 " after reading (METHOD='replace'; default) or by not setting the times"
500 " in the first place (METHOD='system')"), GRID
+1 },
502 N_("don't extract file modified time"), GRID
+1 },
503 {"same-owner", SAME_OWNER_OPTION
, 0, 0,
504 N_("try extracting files with the same ownership as exists in the archive (default for superuser)"), GRID
+1 },
505 {"no-same-owner", NO_SAME_OWNER_OPTION
, 0, 0,
506 N_("extract files as yourself (default for ordinary users)"), GRID
+1 },
507 {"numeric-owner", NUMERIC_OWNER_OPTION
, 0, 0,
508 N_("always use numbers for user/group names"), GRID
+1 },
509 {"preserve-permissions", 'p', 0, 0,
510 N_("extract information about file permissions (default for superuser)"),
512 {"same-permissions", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
513 {"no-same-permissions", NO_SAME_PERMISSIONS_OPTION
, 0, 0,
514 N_("apply the user's umask when extracting permissions from the archive (default for ordinary users)"), GRID
+1 },
515 {"preserve-order", 's', 0, 0,
516 N_("sort names to extract to match archive"), GRID
+1 },
517 {"same-order", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
518 {"preserve", PRESERVE_OPTION
, 0, 0,
519 N_("same as both -p and -s"), GRID
+1 },
520 {"delay-directory-restore", DELAY_DIRECTORY_RESTORE_OPTION
, 0, 0,
521 N_("delay setting modification times and permissions of extracted"
522 " directories until the end of extraction"), GRID
+1 },
523 {"no-delay-directory-restore", NO_DELAY_DIRECTORY_RESTORE_OPTION
, 0, 0,
524 N_("cancel the effect of --delay-directory-restore option"), GRID
+1 },
529 N_("Device selection and switching:"), GRID
},
531 {"file", 'f', N_("ARCHIVE"), 0,
532 N_("use archive file or device ARCHIVE"), GRID
+1 },
533 {"force-local", FORCE_LOCAL_OPTION
, 0, 0,
534 N_("archive file is local even if it has a colon"), GRID
+1 },
535 {"rmt-command", RMT_COMMAND_OPTION
, N_("COMMAND"), 0,
536 N_("use given rmt COMMAND instead of rmt"), GRID
+1 },
537 {"rsh-command", RSH_COMMAND_OPTION
, N_("COMMAND"), 0,
538 N_("use remote COMMAND instead of rsh"), GRID
+1 },
540 {"-[0-7][lmh]", 0, NULL
, OPTION_DOC
, /* It is OK, since `name' will never be
542 N_("specify drive and density"), GRID
+1 },
544 {NULL
, '0', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
545 {NULL
, '1', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
546 {NULL
, '2', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
547 {NULL
, '3', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
548 {NULL
, '4', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
549 {NULL
, '5', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
550 {NULL
, '6', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
551 {NULL
, '7', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
552 {NULL
, '8', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
553 {NULL
, '9', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
555 {"multi-volume", 'M', 0, 0,
556 N_("create/list/extract multi-volume archive"), GRID
+1 },
557 {"tape-length", 'L', N_("NUMBER"), 0,
558 N_("change tape after writing NUMBER x 1024 bytes"), GRID
+1 },
559 {"info-script", 'F', N_("NAME"), 0,
560 N_("run script at end of each tape (implies -M)"), GRID
+1 },
561 {"new-volume-script", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
562 {"volno-file", VOLNO_FILE_OPTION
, N_("FILE"), 0,
563 N_("use/update the volume number in FILE"), GRID
+1 },
568 N_("Device blocking:"), GRID
},
570 {"blocking-factor", 'b', N_("BLOCKS"), 0,
571 N_("BLOCKS x 512 bytes per record"), GRID
+1 },
572 {"record-size", RECORD_SIZE_OPTION
, N_("NUMBER"), 0,
573 N_("NUMBER of bytes per record, multiple of 512"), GRID
+1 },
574 {"ignore-zeros", 'i', 0, 0,
575 N_("ignore zeroed blocks in archive (means EOF)"), GRID
+1 },
576 {"read-full-records", 'B', 0, 0,
577 N_("reblock as we read (for 4.2BSD pipes)"), GRID
+1 },
582 N_("Archive format selection:"), GRID
},
584 {"format", 'H', N_("FORMAT"), 0,
585 N_("create archive of the given format"), GRID
+1 },
587 {NULL
, 0, NULL
, 0, N_("FORMAT is one of the following:"), GRID
+2 },
588 {" v7", 0, NULL
, OPTION_DOC
|OPTION_NO_TRANS
, N_("old V7 tar format"),
590 {" oldgnu", 0, NULL
, OPTION_DOC
|OPTION_NO_TRANS
,
591 N_("GNU format as per tar <= 1.12"), GRID
+3 },
592 {" gnu", 0, NULL
, OPTION_DOC
|OPTION_NO_TRANS
,
593 N_("GNU tar 1.13.x format"), GRID
+3 },
594 {" ustar", 0, NULL
, OPTION_DOC
|OPTION_NO_TRANS
,
595 N_("POSIX 1003.1-1988 (ustar) format"), GRID
+3 },
596 {" pax", 0, NULL
, OPTION_DOC
|OPTION_NO_TRANS
,
597 N_("POSIX 1003.1-2001 (pax) format"), GRID
+3 },
598 {" posix", 0, NULL
, OPTION_DOC
|OPTION_NO_TRANS
, N_("same as pax"), GRID
+3 },
600 {"old-archive", OLD_ARCHIVE_OPTION
, 0, 0, /* FIXME */
601 N_("same as --format=v7"), GRID
+8 },
602 {"portability", 0, 0, OPTION_ALIAS
, NULL
, GRID
+8 },
603 {"posix", POSIX_OPTION
, 0, 0,
604 N_("same as --format=posix"), GRID
+8 },
605 {"pax-option", PAX_OPTION
, N_("keyword[[:]=value][,keyword[[:]=value]]..."), 0,
606 N_("control pax keywords"), GRID
+8 },
607 {"label", 'V', N_("TEXT"), 0,
608 N_("create archive with volume name TEXT; at list/extract time, use TEXT as a globbing pattern for volume name"), GRID
+8 },
613 N_("Compression options:"), GRID
},
614 {"auto-compress", 'a', 0, 0,
615 N_("use archive suffix to determine the compression program"), GRID
+1 },
616 {"no-auto-compress", NO_AUTO_COMPRESS_OPTION
, 0, 0,
617 N_("do not use archive suffix to determine the compression program"),
619 {"use-compress-program", 'I', N_("PROG"), 0,
620 N_("filter through PROG (must accept -d)"), GRID
+1 },
621 /* Note: docstrings for the options below are generated by tar_help_filter */
622 {"bzip2", 'j', 0, 0, NULL
, GRID
+1 },
623 {"gzip", 'z', 0, 0, NULL
, GRID
+1 },
624 {"gunzip", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
625 {"ungzip", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
626 {"compress", 'Z', 0, 0, NULL
, GRID
+1 },
627 {"uncompress", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
628 {"lzip", LZIP_OPTION
, 0, 0, NULL
, GRID
+1 },
629 {"lzma", LZMA_OPTION
, 0, 0, NULL
, GRID
+1 },
630 {"lzop", LZOP_OPTION
, 0, 0, NULL
, GRID
+1 },
631 {"xz", 'J', 0, 0, NULL
, GRID
+1 },
636 N_("Local file selection:"), GRID
},
638 {"add-file", ARGP_KEY_ARG
, N_("FILE"), 0,
639 N_("add given FILE to the archive (useful if its name starts with a dash)"), GRID
+1 },
640 {"directory", 'C', N_("DIR"), 0,
641 N_("change to directory DIR"), GRID
+1 },
642 {"files-from", 'T', N_("FILE"), 0,
643 N_("get names to extract or create from FILE"), GRID
+1 },
644 {"null", NULL_OPTION
, 0, 0,
645 N_("-T reads null-terminated names, disable -C"), GRID
+1 },
646 {"no-null", NO_NULL_OPTION
, 0, 0,
647 N_("disable the effect of the previous --null option"), GRID
+1 },
648 {"unquote", UNQUOTE_OPTION
, 0, 0,
649 N_("unquote filenames read with -T (default)"), GRID
+1 },
650 {"no-unquote", NO_UNQUOTE_OPTION
, 0, 0,
651 N_("do not unquote filenames read with -T"), GRID
+1 },
652 {"exclude", EXCLUDE_OPTION
, N_("PATTERN"), 0,
653 N_("exclude files, given as a PATTERN"), GRID
+1 },
654 {"exclude-from", 'X', N_("FILE"), 0,
655 N_("exclude patterns listed in FILE"), GRID
+1 },
656 {"exclude-caches", EXCLUDE_CACHES_OPTION
, 0, 0,
657 N_("exclude contents of directories containing CACHEDIR.TAG, "
658 "except for the tag file itself"), GRID
+1 },
659 {"exclude-caches-under", EXCLUDE_CACHES_UNDER_OPTION
, 0, 0,
660 N_("exclude everything under directories containing CACHEDIR.TAG"),
662 {"exclude-caches-all", EXCLUDE_CACHES_ALL_OPTION
, 0, 0,
663 N_("exclude directories containing CACHEDIR.TAG"), GRID
+1 },
664 {"exclude-tag", EXCLUDE_TAG_OPTION
, N_("FILE"), 0,
665 N_("exclude contents of directories containing FILE, except"
666 " for FILE itself"), GRID
+1 },
667 {"exclude-tag-under", EXCLUDE_TAG_UNDER_OPTION
, N_("FILE"), 0,
668 N_("exclude everything under directories containing FILE"), GRID
+1 },
669 {"exclude-tag-all", EXCLUDE_TAG_ALL_OPTION
, N_("FILE"), 0,
670 N_("exclude directories containing FILE"), GRID
+1 },
671 {"exclude-vcs", EXCLUDE_VCS_OPTION
, NULL
, 0,
672 N_("exclude version control system directories"), GRID
+1 },
673 {"exclude-backups", EXCLUDE_BACKUPS_OPTION
, NULL
, 0,
674 N_("exclude backup and lock files"), GRID
+1 },
675 {"no-recursion", NO_RECURSION_OPTION
, 0, 0,
676 N_("avoid descending automatically in directories"), GRID
+1 },
677 {"one-file-system", ONE_FILE_SYSTEM_OPTION
, 0, 0,
678 N_("stay in local file system when creating archive"), GRID
+1 },
679 {"recursion", RECURSION_OPTION
, 0, 0,
680 N_("recurse into directories (default)"), GRID
+1 },
681 {"absolute-names", 'P', 0, 0,
682 N_("don't strip leading `/'s from file names"), GRID
+1 },
683 {"dereference", 'h', 0, 0,
684 N_("follow symlinks; archive and dump the files they point to"), GRID
+1 },
685 {"hard-dereference", HARD_DEREFERENCE_OPTION
, 0, 0,
686 N_("follow hard links; archive and dump the files they refer to"), GRID
+1 },
687 {"starting-file", 'K', N_("MEMBER-NAME"), 0,
688 N_("begin at member MEMBER-NAME in the archive"), GRID
+1 },
689 {"newer", 'N', N_("DATE-OR-FILE"), 0,
690 N_("only store files newer than DATE-OR-FILE"), GRID
+1 },
691 {"after-date", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
692 {"newer-mtime", NEWER_MTIME_OPTION
, N_("DATE"), 0,
693 N_("compare date and time when data changed only"), GRID
+1 },
694 {"backup", BACKUP_OPTION
, N_("CONTROL"), OPTION_ARG_OPTIONAL
,
695 N_("backup before removal, choose version CONTROL"), GRID
+1 },
696 {"suffix", SUFFIX_OPTION
, N_("STRING"), 0,
697 N_("backup before removal, override usual suffix ('~' unless overridden by environment variable SIMPLE_BACKUP_SUFFIX)"), GRID
+1 },
702 N_("File name transformations:"), GRID
},
703 {"strip-components", STRIP_COMPONENTS_OPTION
, N_("NUMBER"), 0,
704 N_("strip NUMBER leading components from file names on extraction"),
706 {"transform", TRANSFORM_OPTION
, N_("EXPRESSION"), 0,
707 N_("use sed replace EXPRESSION to transform file names"), GRID
+1 },
708 {"xform", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
713 N_("File name matching options (affect both exclude and include patterns):"),
715 {"ignore-case", IGNORE_CASE_OPTION
, 0, 0,
716 N_("ignore case"), GRID
+1 },
717 {"anchored", ANCHORED_OPTION
, 0, 0,
718 N_("patterns match file name start"), GRID
+1 },
719 {"no-anchored", NO_ANCHORED_OPTION
, 0, 0,
720 N_("patterns match after any `/' (default for exclusion)"), GRID
+1 },
721 {"no-ignore-case", NO_IGNORE_CASE_OPTION
, 0, 0,
722 N_("case sensitive matching (default)"), GRID
+1 },
723 {"wildcards", WILDCARDS_OPTION
, 0, 0,
724 N_("use wildcards (default for exclusion)"), GRID
+1 },
725 {"no-wildcards", NO_WILDCARDS_OPTION
, 0, 0,
726 N_("verbatim string matching"), GRID
+1 },
727 {"no-wildcards-match-slash", NO_WILDCARDS_MATCH_SLASH_OPTION
, 0, 0,
728 N_("wildcards do not match `/'"), GRID
+1 },
729 {"wildcards-match-slash", WILDCARDS_MATCH_SLASH_OPTION
, 0, 0,
730 N_("wildcards match `/' (default for exclusion)"), GRID
+1 },
735 N_("Informative output:"), GRID
},
737 {"verbose", 'v', 0, 0,
738 N_("verbosely list files processed"), GRID
+1 },
739 {"warning", WARNING_OPTION
, N_("KEYWORD"), 0,
740 N_("warning control"), GRID
+1 },
741 {"checkpoint", CHECKPOINT_OPTION
, N_("NUMBER"), OPTION_ARG_OPTIONAL
,
742 N_("display progress messages every NUMBERth record (default 10)"),
744 {"checkpoint-action", CHECKPOINT_ACTION_OPTION
, N_("ACTION"), 0,
745 N_("execute ACTION on each checkpoint"),
747 {"check-links", 'l', 0, 0,
748 N_("print a message if not all links are dumped"), GRID
+1 },
749 {"totals", TOTALS_OPTION
, N_("SIGNAL"), OPTION_ARG_OPTIONAL
,
750 N_("print total bytes after processing the archive; "
751 "with an argument - print total bytes when this SIGNAL is delivered; "
752 "Allowed signals are: SIGHUP, SIGQUIT, SIGINT, SIGUSR1 and SIGUSR2; "
753 "the names without SIG prefix are also accepted"), GRID
+1 },
754 {"utc", UTC_OPTION
, 0, 0,
755 N_("print file modification dates in UTC"), GRID
+1 },
756 {"index-file", INDEX_FILE_OPTION
, N_("FILE"), 0,
757 N_("send verbose output to FILE"), GRID
+1 },
758 {"block-number", 'R', 0, 0,
759 N_("show block number within archive with each message"), GRID
+1 },
760 {"interactive", 'w', 0, 0,
761 N_("ask for confirmation for every action"), GRID
+1 },
762 {"confirmation", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
763 {"show-defaults", SHOW_DEFAULTS_OPTION
, 0, 0,
764 N_("show tar defaults"), GRID
+1 },
765 {"show-omitted-dirs", SHOW_OMITTED_DIRS_OPTION
, 0, 0,
766 N_("when listing or extracting, list each directory that does not match search criteria"), GRID
+1 },
767 {"show-transformed-names", SHOW_TRANSFORMED_NAMES_OPTION
, 0, 0,
768 N_("show file or archive names after transformation"),
770 {"show-stored-names", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
771 {"quoting-style", QUOTING_STYLE_OPTION
, N_("STYLE"), 0,
772 N_("set name quoting style; see below for valid STYLE values"), GRID
+1 },
773 {"quote-chars", QUOTE_CHARS_OPTION
, N_("STRING"), 0,
774 N_("additionally quote characters from STRING"), GRID
+1 },
775 {"no-quote-chars", NO_QUOTE_CHARS_OPTION
, N_("STRING"), 0,
776 N_("disable quoting for characters from STRING"), GRID
+1 },
781 N_("Compatibility options:"), GRID
},
784 N_("when creating, same as --old-archive; when extracting, same as --no-same-owner"), GRID
+1 },
789 N_("Other options:"), GRID
},
791 {"restrict", RESTRICT_OPTION
, 0, 0,
792 N_("disable use of some potentially harmful options"), -1 },
798 static char const *const atime_preserve_args
[] =
800 "replace", "system", NULL
803 static enum atime_preserve
const atime_preserve_types
[] =
805 replace_atime_preserve
, system_atime_preserve
808 /* Make sure atime_preserve_types has as much entries as atime_preserve_args
809 (minus 1 for NULL guard) */
810 ARGMATCH_VERIFY (atime_preserve_args
, atime_preserve_types
);
812 /* Wildcard matching settings */
815 default_wildcards
, /* For exclusion == enable_wildcards,
816 for inclusion == disable_wildcards */
821 struct tar_args
/* Variables used during option parsing */
823 struct textual_date
*textual_date
; /* Keeps the arguments to --newer-mtime
824 and/or --date option if they are
826 enum wildcards wildcards
; /* Wildcard settings (--wildcards/
828 int matching_flags
; /* exclude_fnmatch options */
829 int include_anchored
; /* Pattern anchoring options used for
831 bool o_option
; /* True if -o option was given */
832 bool pax_option
; /* True if --pax-option was given */
833 char const *backup_suffix_string
; /* --suffix option argument */
834 char const *version_control_string
; /* --backup option argument */
835 bool input_files
; /* True if some input files where given */
836 int compress_autodetect
; /* True if compression autodetection should
837 be attempted when creating archives */
841 #define MAKE_EXCL_OPTIONS(args) \
842 ((((args)->wildcards != disable_wildcards) ? EXCLUDE_WILDCARDS : 0) \
843 | (args)->matching_flags \
846 #define MAKE_INCL_OPTIONS(args) \
847 ((((args)->wildcards == enable_wildcards) ? EXCLUDE_WILDCARDS : 0) \
848 | (args)->include_anchored \
849 | (args)->matching_flags \
852 static char const * const vcs_file_table
[] = {
884 static char const * const backup_file_table
[] = {
892 add_exclude_array (char const * const * fv
)
896 for (i
= 0; fv
[i
]; i
++)
897 add_exclude (excluded
, fv
[i
], 0);
902 format_default_settings (void)
905 "--format=%s -f%s -b%d --quoting-style=%s --rmt-command=%s"
910 archive_format_string (DEFAULT_ARCHIVE_FORMAT
),
911 DEFAULT_ARCHIVE
, DEFAULT_BLOCKING
,
912 quoting_style_args
[DEFAULT_QUOTING_STYLE
],
922 set_subcommand_option (enum subcommand subcommand
)
924 if (subcommand_option
!= UNKNOWN_SUBCOMMAND
925 && subcommand_option
!= subcommand
)
927 _("You may not specify more than one `-Acdtrux' or `--test-label' option")));
929 subcommand_option
= subcommand
;
933 set_use_compress_program_option (const char *string
)
935 if (use_compress_program_option
936 && strcmp (use_compress_program_option
, string
) != 0)
937 USAGE_ERROR ((0, 0, _("Conflicting compression options")));
939 use_compress_program_option
= string
;
946 print_total_stats ();
947 #ifndef HAVE_SIGACTION
948 signal (signo
, sigstat
);
953 stat_on_signal (int signo
)
955 #ifdef HAVE_SIGACTION
956 struct sigaction act
;
957 act
.sa_handler
= sigstat
;
958 sigemptyset (&act
.sa_mask
);
960 sigaction (signo
, &act
, NULL
);
962 signal (signo
, sigstat
);
967 set_stat_signal (const char *name
)
974 { "SIGUSR1", SIGUSR1
},
976 { "SIGUSR2", SIGUSR2
},
978 { "SIGHUP", SIGHUP
},
980 { "SIGINT", SIGINT
},
982 { "SIGQUIT", SIGQUIT
},
987 for (p
= sigtab
; p
< sigtab
+ sizeof (sigtab
) / sizeof (sigtab
[0]); p
++)
988 if (strcmp (p
->name
, name
) == 0)
990 stat_on_signal (p
->signo
);
993 FATAL_ERROR ((0, 0, _("Unknown signal name: %s"), name
));
999 struct textual_date
*next
;
1006 get_date_or_file (struct tar_args
*args
, const char *option
,
1007 const char *str
, struct timespec
*ts
)
1009 if (FILE_SYSTEM_PREFIX_LEN (str
) != 0
1014 if (deref_stat (dereference_option
, str
, &st
) != 0)
1017 USAGE_ERROR ((0, 0, _("Date sample file not found")));
1019 *ts
= get_stat_mtime (&st
);
1023 if (! get_date (ts
, str
, NULL
))
1025 WARN ((0, 0, _("Substituting %s for unknown date format %s"),
1026 tartime (*ts
, false), quote (str
)));
1032 struct textual_date
*p
= xmalloc (sizeof (*p
));
1035 p
->date
= xstrdup (str
);
1036 p
->next
= args
->textual_date
;
1037 args
->textual_date
= p
;
1044 report_textual_dates (struct tar_args
*args
)
1046 struct textual_date
*p
;
1047 for (p
= args
->textual_date
; p
; )
1049 struct textual_date
*next
= p
->next
;
1052 char const *treated_as
= tartime (p
->ts
, true);
1053 if (strcmp (p
->date
, treated_as
) != 0)
1054 WARN ((0, 0, _("Option %s: Treating date `%s' as %s"),
1055 p
->option
, p
->date
, treated_as
));
1065 /* Either NL or NUL, as decided by the --null option. */
1066 static char filename_terminator
;
1068 enum read_file_list_state
/* Result of reading file name from the list file */
1070 file_list_success
, /* OK, name read successfully */
1071 file_list_end
, /* End of list file */
1072 file_list_zero
, /* Zero separator encountered where it should not */
1073 file_list_skip
/* Empty (zero-length) entry encountered, skip it */
1076 /* Read from FP a sequence of characters up to TERM and put them
1079 static enum read_file_list_state
1080 read_name_from_file (FILE *fp
, struct obstack
*stk
, int term
)
1085 for (c
= getc (fp
); c
!= EOF
&& c
!= term
; c
= getc (fp
))
1089 /* We have read a zero separator. The file possibly is
1091 return file_list_zero
;
1093 obstack_1grow (stk
, c
);
1097 if (counter
== 0 && c
!= EOF
)
1098 return file_list_skip
;
1100 obstack_1grow (stk
, 0);
1102 return (counter
== 0 && c
== EOF
) ? file_list_end
: file_list_success
;
1106 static bool files_from_option
; /* When set, tar will not refuse to create
1108 static struct obstack argv_stk
; /* Storage for additional command line options
1109 read using -T option */
1111 /* Prevent recursive inclusion of the same file */
1114 struct file_id_list
*next
;
1119 static struct file_id_list
*file_id_list
;
1122 add_file_id (const char *filename
)
1124 struct file_id_list
*p
;
1127 if (stat (filename
, &st
))
1128 stat_fatal (filename
);
1129 for (p
= file_id_list
; p
; p
= p
->next
)
1130 if (p
->ino
== st
.st_ino
&& p
->dev
== st
.st_dev
)
1132 FATAL_ERROR ((0, 0, _("%s: file list already read"),
1133 quotearg_colon (filename
)));
1135 p
= xmalloc (sizeof *p
);
1136 p
->next
= file_id_list
;
1142 /* Default density numbers for [0-9][lmh] device specifications */
1144 #ifndef LOW_DENSITY_NUM
1145 # define LOW_DENSITY_NUM 0
1148 #ifndef MID_DENSITY_NUM
1149 # define MID_DENSITY_NUM 8
1152 #ifndef HIGH_DENSITY_NUM
1153 # define HIGH_DENSITY_NUM 16
1157 update_argv (const char *filename
, struct argp_state
*state
)
1160 size_t count
= 0, i
;
1164 bool is_stdin
= false;
1165 enum read_file_list_state read_state
;
1166 int term
= filename_terminator
;
1168 if (!strcmp (filename
, "-"))
1171 request_stdin ("-T");
1176 add_file_id (filename
);
1177 if ((fp
= fopen (filename
, "r")) == NULL
)
1178 open_fatal (filename
);
1181 while ((read_state
= read_name_from_file (fp
, &argv_stk
, term
))
1186 case file_list_success
:
1190 case file_list_end
: /* won't happen, just to pacify gcc */
1193 case file_list_zero
:
1197 WARNOPT (WARN_FILENAME_WITH_NULS
,
1198 (0, 0, N_("%s: file name read contains nul character"),
1199 quotearg_colon (filename
)));
1201 /* Prepare new stack contents */
1202 size
= obstack_object_size (&argv_stk
);
1203 p
= obstack_finish (&argv_stk
);
1204 for (; size
> 0; size
--, p
++)
1206 obstack_1grow (&argv_stk
, *p
);
1208 obstack_1grow (&argv_stk
, '\n');
1209 obstack_1grow (&argv_stk
, 0);
1211 /* Read rest of files using new filename terminator */
1216 case file_list_skip
:
1227 start
= obstack_finish (&argv_stk
);
1230 for (p
= start
; *p
; p
+= strlen (p
) + 1)
1234 new_argc
= state
->argc
+ count
;
1235 new_argv
= xmalloc (sizeof (state
->argv
[0]) * (new_argc
+ 1));
1236 memcpy (new_argv
, state
->argv
, sizeof (state
->argv
[0]) * (state
->argc
+ 1));
1237 state
->argv
= new_argv
;
1238 memmove (&state
->argv
[state
->next
+ count
], &state
->argv
[state
->next
],
1239 (state
->argc
- state
->next
+ 1) * sizeof (state
->argv
[0]));
1241 state
->argc
= new_argc
;
1243 for (i
= state
->next
, p
= start
; *p
; p
+= strlen (p
) + 1, i
++)
1245 if (term
== 0 && p
[0] == '-')
1246 state
->argv
[i
++] = "--add-file";
1253 tar_help_filter (int key
, const char *text
, void *input
)
1265 s
= xasprintf (_("filter the archive through %s"), BZIP2_PROGRAM
);
1269 s
= xasprintf (_("filter the archive through %s"), GZIP_PROGRAM
);
1273 s
= xasprintf (_("filter the archive through %s"), COMPRESS_PROGRAM
);
1277 s
= xasprintf (_("filter the archive through %s"), LZIP_PROGRAM
);
1281 s
= xasprintf (_("filter the archive through %s"), LZMA_PROGRAM
);
1285 s
= xasprintf (_("filter the archive through %s"), XZ_PROGRAM
);
1288 case ARGP_KEY_HELP_EXTRA
:
1292 obstack_init (&stk
);
1293 tstr
= _("Valid arguments for the --quoting-style option are:");
1294 obstack_grow (&stk
, tstr
, strlen (tstr
));
1295 obstack_grow (&stk
, "\n\n", 2);
1296 tar_list_quoting_styles (&stk
, " ");
1297 tstr
= _("\n*This* tar defaults to:\n");
1298 obstack_grow (&stk
, tstr
, strlen (tstr
));
1299 s
= format_default_settings ();
1300 obstack_grow (&stk
, s
, strlen (s
));
1301 obstack_1grow (&stk
, '\n');
1302 obstack_1grow (&stk
, 0);
1303 s
= xstrdup (obstack_finish (&stk
));
1304 obstack_free (&stk
, NULL
);
1311 expand_pax_option (struct tar_args
*targs
, const char *arg
)
1316 obstack_init (&stk
);
1319 size_t seglen
= strcspn (arg
, ",");
1320 char *p
= memchr (arg
, '=', seglen
);
1323 size_t len
= p
- arg
+ 1;
1324 obstack_grow (&stk
, arg
, len
);
1326 for (++p
; *p
&& isspace ((unsigned char) *p
); p
++)
1328 if (*p
== '{' && p
[len
-1] == '}')
1331 char *tmp
= xmalloc (len
);
1332 memcpy (tmp
, p
+ 1, len
-2);
1334 if (get_date_or_file (targs
, "--pax-option", tmp
, &ts
) == 0)
1336 char buf
[UINTMAX_STRSIZE_BOUND
], *s
;
1337 s
= umaxtostr (ts
.tv_sec
, buf
);
1338 obstack_grow (&stk
, s
, strlen (s
));
1341 obstack_grow (&stk
, p
, len
);
1345 obstack_grow (&stk
, p
, len
);
1348 obstack_grow (&stk
, arg
, seglen
);
1353 obstack_1grow (&stk
, *arg
);
1357 obstack_1grow (&stk
, 0);
1358 res
= xstrdup (obstack_finish (&stk
));
1359 obstack_free (&stk
, NULL
);
1365 parse_opt (int key
, char *arg
, struct argp_state
*state
)
1367 struct tar_args
*args
= state
->input
;
1372 /* File name or non-parsed option, because of ARGP_IN_ORDER */
1373 name_add_name (arg
, MAKE_INCL_OPTIONS (args
));
1374 args
->input_files
= true;
1378 set_subcommand_option (CAT_SUBCOMMAND
);
1382 args
->compress_autodetect
= true;
1385 case NO_AUTO_COMPRESS_OPTION
:
1386 args
->compress_autodetect
= false;
1392 if (! (xstrtoumax (arg
, 0, 10, &u
, "") == LONGINT_OK
1393 && u
== (blocking_factor
= u
)
1394 && 0 < blocking_factor
1395 && u
== (record_size
= u
* BLOCKSIZE
) / BLOCKSIZE
))
1396 USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1397 _("Invalid blocking factor")));
1402 /* Try to reblock input records. For reading 4.2BSD pipes. */
1404 /* It would surely make sense to exchange -B and -R, but it seems
1405 that -B has been used for a long while in Sun tar and most
1406 BSD-derived systems. This is a consequence of the block/record
1407 terminology confusion. */
1409 read_full_records_option
= true;
1413 set_subcommand_option (CREATE_SUBCOMMAND
);
1421 set_subcommand_option (DIFF_SUBCOMMAND
);
1425 if (archive_names
== allocated_archive_names
)
1426 archive_name_array
= x2nrealloc (archive_name_array
,
1427 &allocated_archive_names
,
1428 sizeof (archive_name_array
[0]));
1430 archive_name_array
[archive_names
++] = arg
;
1434 /* Since -F is only useful with -M, make it implied. Run this
1435 script at the end of each tape. */
1437 info_script_option
= arg
;
1438 multi_volume_option
= true;
1442 listed_incremental_option
= arg
;
1443 after_date_option
= true;
1447 /* We are making an incremental dump (FIXME: are we?); save
1448 directories at the beginning of the archive, and include in each
1449 directory its contents. */
1451 incremental_option
= true;
1455 /* Follow symbolic links. */
1456 dereference_option
= true;
1459 case HARD_DEREFERENCE_OPTION
:
1460 hard_dereference_option
= true;
1464 /* Ignore zero blocks (eofs). This can't be the default,
1465 because Unix tar writes two blocks of zeros, then pads out
1466 the record with garbage. */
1468 ignore_zeros_option
= true;
1472 set_use_compress_program_option (BZIP2_PROGRAM
);
1476 set_use_compress_program_option (XZ_PROGRAM
);
1480 /* Don't replace existing files. */
1481 old_files_option
= KEEP_OLD_FILES
;
1485 starting_file_option
= true;
1486 addname (arg
, 0, true, NULL
);
1489 case ONE_FILE_SYSTEM_OPTION
:
1490 /* When dumping directories, don't dump files/subdirectories
1491 that are on other filesystems. */
1492 one_file_system_option
= true;
1496 check_links_option
= 1;
1502 if (xstrtoumax (arg
, 0, 10, &u
, "") != LONGINT_OK
)
1503 USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1504 _("Invalid tape length")));
1505 tape_length_option
= 1024 * (tarlong
) u
;
1506 multi_volume_option
= true;
1513 incremental_level
= strtoul (arg
, &p
, 10);
1515 USAGE_ERROR ((0, 0, _("Invalid incremental level value")));
1520 set_use_compress_program_option (LZIP_PROGRAM
);
1524 set_use_compress_program_option (LZMA_PROGRAM
);
1528 set_use_compress_program_option (LZOP_PROGRAM
);
1532 touch_option
= true;
1536 /* Make multivolume archive: when we can't write any more into
1537 the archive, re-open it, and continue writing. */
1539 multi_volume_option
= true;
1543 get_date_or_file (args
, "--mtime", arg
, &mtime_option
);
1544 set_mtime_option
= true;
1551 case NO_SEEK_OPTION
:
1556 after_date_option
= true;
1559 case NEWER_MTIME_OPTION
:
1560 if (NEWER_OPTION_INITIALIZED (newer_mtime_option
))
1561 USAGE_ERROR ((0, 0, _("More than one threshold date")));
1562 get_date_or_file (args
,
1563 key
== NEWER_MTIME_OPTION
? "--newer-mtime"
1564 : "--after-date", arg
, &newer_mtime_option
);
1568 args
->o_option
= true;
1572 to_stdout_option
= true;
1576 same_permissions_option
= true;
1580 absolute_names_option
= true;
1584 set_subcommand_option (APPEND_SUBCOMMAND
);
1588 /* Print block numbers for debugging bad tar archives. */
1590 /* It would surely make sense to exchange -B and -R, but it seems
1591 that -B has been used for a long while in Sun tar and most
1592 BSD-derived systems. This is a consequence of the block/record
1593 terminology confusion. */
1595 block_number_option
= true;
1599 /* Names to extract are sorted. */
1601 same_order_option
= true;
1605 sparse_option
= true;
1608 case SPARSE_VERSION_OPTION
:
1609 sparse_option
= true;
1612 tar_sparse_major
= strtoul (arg
, &p
, 10);
1616 USAGE_ERROR ((0, 0, _("Invalid sparse version value")));
1617 tar_sparse_minor
= strtoul (p
+ 1, &p
, 10);
1619 USAGE_ERROR ((0, 0, _("Invalid sparse version value")));
1625 set_subcommand_option (LIST_SUBCOMMAND
);
1629 case TEST_LABEL_OPTION
:
1630 set_subcommand_option (TEST_LABEL_SUBCOMMAND
);
1634 update_argv (arg
, state
);
1635 /* Indicate we've been given -T option. This is for backward
1636 compatibility only, so that `tar cfT archive /dev/null will
1638 files_from_option
= true;
1642 set_subcommand_option (UPDATE_SUBCOMMAND
);
1646 old_files_option
= UNLINK_FIRST_OLD_FILES
;
1655 warning_option
|= WARN_VERBOSE_WARNINGS
;
1659 volume_label_option
= arg
;
1663 interactive_option
= true;
1667 verify_option
= true;
1671 set_subcommand_option (EXTRACT_SUBCOMMAND
);
1675 if (add_exclude_file (add_exclude
, excluded
, arg
,
1676 MAKE_EXCL_OPTIONS (args
), '\n')
1680 FATAL_ERROR ((0, e
, "%s", quotearg_colon (arg
)));
1685 set_use_compress_program_option (GZIP_PROGRAM
);
1689 set_use_compress_program_option (COMPRESS_PROGRAM
);
1692 case ANCHORED_OPTION
:
1693 args
->matching_flags
|= EXCLUDE_ANCHORED
;
1696 case ATIME_PRESERVE_OPTION
:
1697 atime_preserve_option
=
1699 ? XARGMATCH ("--atime-preserve", arg
,
1700 atime_preserve_args
, atime_preserve_types
)
1701 : replace_atime_preserve
);
1702 if (! O_NOATIME
&& atime_preserve_option
== system_atime_preserve
)
1704 _("--atime-preserve='system' is not supported"
1705 " on this platform")));
1708 case CHECK_DEVICE_OPTION
:
1709 check_device_option
= true;
1712 case NO_CHECK_DEVICE_OPTION
:
1713 check_device_option
= false;
1716 case CHECKPOINT_OPTION
:
1723 checkpoint_compile_action (".");
1726 checkpoint_option
= strtoul (arg
, &p
, 0);
1729 _("--checkpoint value is not an integer")));
1732 checkpoint_option
= DEFAULT_CHECKPOINT
;
1735 case CHECKPOINT_ACTION_OPTION
:
1736 checkpoint_compile_action (arg
);
1740 backup_option
= true;
1742 args
->version_control_string
= arg
;
1745 case DELAY_DIRECTORY_RESTORE_OPTION
:
1746 delay_directory_restore_option
= true;
1749 case NO_DELAY_DIRECTORY_RESTORE_OPTION
:
1750 delay_directory_restore_option
= false;
1754 set_subcommand_option (DELETE_SUBCOMMAND
);
1757 case EXCLUDE_BACKUPS_OPTION
:
1758 add_exclude_array (backup_file_table
);
1761 case EXCLUDE_OPTION
:
1762 add_exclude (excluded
, arg
, MAKE_EXCL_OPTIONS (args
));
1765 case EXCLUDE_CACHES_OPTION
:
1766 add_exclusion_tag ("CACHEDIR.TAG", exclusion_tag_contents
,
1770 case EXCLUDE_CACHES_UNDER_OPTION
:
1771 add_exclusion_tag ("CACHEDIR.TAG", exclusion_tag_under
,
1775 case EXCLUDE_CACHES_ALL_OPTION
:
1776 add_exclusion_tag ("CACHEDIR.TAG", exclusion_tag_all
,
1780 case EXCLUDE_TAG_OPTION
:
1781 add_exclusion_tag (arg
, exclusion_tag_contents
, NULL
);
1784 case EXCLUDE_TAG_UNDER_OPTION
:
1785 add_exclusion_tag (arg
, exclusion_tag_under
, NULL
);
1788 case EXCLUDE_TAG_ALL_OPTION
:
1789 add_exclusion_tag (arg
, exclusion_tag_all
, NULL
);
1792 case EXCLUDE_VCS_OPTION
:
1793 add_exclude_array (vcs_file_table
);
1796 case FORCE_LOCAL_OPTION
:
1797 force_local_option
= true;
1801 set_archive_format (arg
);
1804 case INDEX_FILE_OPTION
:
1805 index_file_name
= arg
;
1808 case IGNORE_CASE_OPTION
:
1809 args
->matching_flags
|= FNM_CASEFOLD
;
1812 case IGNORE_COMMAND_ERROR_OPTION
:
1813 ignore_command_error_option
= true;
1816 case IGNORE_FAILED_READ_OPTION
:
1817 ignore_failed_read_option
= true;
1820 case KEEP_NEWER_FILES_OPTION
:
1821 old_files_option
= KEEP_NEWER_FILES
;
1825 if (! (strlen (arg
) < GNAME_FIELD_SIZE
1826 && gname_to_gid (arg
, &group_option
)))
1829 if (xstrtoumax (arg
, 0, 10, &g
, "") == LONGINT_OK
1833 FATAL_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1834 _("Invalid group")));
1839 mode_option
= mode_compile (arg
);
1841 FATAL_ERROR ((0, 0, _("Invalid mode given on option")));
1842 initial_umask
= umask (0);
1843 umask (initial_umask
);
1846 case NO_ANCHORED_OPTION
:
1847 args
->include_anchored
= 0; /* Clear the default for comman line args */
1848 args
->matching_flags
&= ~ EXCLUDE_ANCHORED
;
1851 case NO_IGNORE_CASE_OPTION
:
1852 args
->matching_flags
&= ~ FNM_CASEFOLD
;
1855 case NO_IGNORE_COMMAND_ERROR_OPTION
:
1856 ignore_command_error_option
= false;
1859 case NO_OVERWRITE_DIR_OPTION
:
1860 old_files_option
= NO_OVERWRITE_DIR_OLD_FILES
;
1863 case NO_QUOTE_CHARS_OPTION
:
1865 set_char_quoting (NULL
, *arg
, 0);
1868 case NO_WILDCARDS_OPTION
:
1869 args
->wildcards
= disable_wildcards
;
1872 case NO_WILDCARDS_MATCH_SLASH_OPTION
:
1873 args
->matching_flags
|= FNM_FILE_NAME
;
1877 filename_terminator
= '\0';
1880 case NO_NULL_OPTION
:
1881 filename_terminator
= '\n';
1884 case NUMERIC_OWNER_OPTION
:
1885 numeric_owner_option
= true;
1888 case OCCURRENCE_OPTION
:
1890 occurrence_option
= 1;
1894 if (xstrtoumax (arg
, 0, 10, &u
, "") == LONGINT_OK
)
1895 occurrence_option
= u
;
1897 FATAL_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1898 _("Invalid number")));
1902 case OVERWRITE_DIR_OPTION
:
1903 old_files_option
= DEFAULT_OLD_FILES
;
1906 case OVERWRITE_OPTION
:
1907 old_files_option
= OVERWRITE_OLD_FILES
;
1911 if (! (strlen (arg
) < UNAME_FIELD_SIZE
1912 && uname_to_uid (arg
, &owner_option
)))
1915 if (xstrtoumax (arg
, 0, 10, &u
, "") == LONGINT_OK
1919 FATAL_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1920 _("Invalid owner")));
1924 case QUOTE_CHARS_OPTION
:
1926 set_char_quoting (NULL
, *arg
, 1);
1929 case QUOTING_STYLE_OPTION
:
1930 tar_set_quoting_style (arg
);
1935 char *tmp
= expand_pax_option (args
, arg
);
1936 args
->pax_option
= true;
1937 xheader_set_option (tmp
);
1943 set_archive_format ("posix");
1946 case PRESERVE_OPTION
:
1947 /* FIXME: What it is good for? */
1948 same_permissions_option
= true;
1949 same_order_option
= true;
1950 WARN ((0, 0, _("The --preserve option is deprecated, "
1951 "use --preserve-permissions --preserve-order instead")));
1954 case RECORD_SIZE_OPTION
:
1957 if (! (xstrtoumax (arg
, 0, 10, &u
, "") == LONGINT_OK
1958 && u
== (size_t) u
))
1959 USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1960 _("Invalid record size")));
1962 if (record_size
% BLOCKSIZE
!= 0)
1963 USAGE_ERROR ((0, 0, _("Record size must be a multiple of %d."),
1965 blocking_factor
= record_size
/ BLOCKSIZE
;
1969 case RECURSIVE_UNLINK_OPTION
:
1970 recursive_unlink_option
= true;
1973 case REMOVE_FILES_OPTION
:
1974 remove_files_option
= true;
1977 case RESTRICT_OPTION
:
1978 restrict_option
= true;
1981 case RMT_COMMAND_OPTION
:
1985 case RSH_COMMAND_OPTION
:
1986 rsh_command_option
= arg
;
1989 case SHOW_DEFAULTS_OPTION
:
1991 char *s
= format_default_settings ();
1998 case STRIP_COMPONENTS_OPTION
:
2001 if (! (xstrtoumax (arg
, 0, 10, &u
, "") == LONGINT_OK
2002 && u
== (size_t) u
))
2003 USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
2004 _("Invalid number of elements")));
2005 strip_name_components
= u
;
2009 case SHOW_OMITTED_DIRS_OPTION
:
2010 show_omitted_dirs_option
= true;
2013 case SHOW_TRANSFORMED_NAMES_OPTION
:
2014 show_transformed_names_option
= true;
2018 backup_option
= true;
2019 args
->backup_suffix_string
= arg
;
2022 case TO_COMMAND_OPTION
:
2023 if (to_command_option
)
2024 USAGE_ERROR ((0, 0, _("Only one --to-command option allowed")));
2025 to_command_option
= arg
;
2030 set_stat_signal (arg
);
2032 totals_option
= true;
2035 case TRANSFORM_OPTION
:
2036 set_transform_expr (arg
);
2040 set_use_compress_program_option (arg
);
2043 case VOLNO_FILE_OPTION
:
2044 volno_file_option
= arg
;
2047 case WILDCARDS_OPTION
:
2048 args
->wildcards
= enable_wildcards
;
2051 case WILDCARDS_MATCH_SLASH_OPTION
:
2052 args
->matching_flags
&= ~ FNM_FILE_NAME
;
2055 case NO_RECURSION_OPTION
:
2056 recursion_option
= 0;
2059 case NO_SAME_OWNER_OPTION
:
2060 same_owner_option
= -1;
2063 case NO_SAME_PERMISSIONS_OPTION
:
2064 same_permissions_option
= -1;
2067 case RECURSION_OPTION
:
2068 recursion_option
= FNM_LEADING_DIR
;
2071 case SAME_OWNER_OPTION
:
2072 same_owner_option
= 1;
2075 case UNQUOTE_OPTION
:
2076 unquote_option
= true;
2079 case NO_UNQUOTE_OPTION
:
2080 unquote_option
= false;
2083 case WARNING_OPTION
:
2084 set_warning_option (arg
);
2096 #ifdef DEVICE_PREFIX
2098 int device
= key
- '0';
2100 static char buf
[sizeof DEVICE_PREFIX
+ 10];
2104 argp_error (state
, _("Malformed density argument: %s"), quote (arg
));
2106 strcpy (buf
, DEVICE_PREFIX
);
2107 cursor
= buf
+ strlen (buf
);
2109 #ifdef DENSITY_LETTER
2111 sprintf (cursor
, "%d%c", device
, arg
[0]);
2113 #else /* not DENSITY_LETTER */
2118 device
+= LOW_DENSITY_NUM
;
2122 device
+= MID_DENSITY_NUM
;
2126 device
+= HIGH_DENSITY_NUM
;
2130 argp_error (state
, _("Unknown density: `%c'"), arg
[0]);
2132 sprintf (cursor
, "%d", device
);
2134 #endif /* not DENSITY_LETTER */
2136 if (archive_names
== allocated_archive_names
)
2137 archive_name_array
= x2nrealloc (archive_name_array
,
2138 &allocated_archive_names
,
2139 sizeof (archive_name_array
[0]));
2140 archive_name_array
[archive_names
++] = xstrdup (buf
);
2144 #else /* not DEVICE_PREFIX */
2147 _("Options `-[0-7][lmh]' not supported by *this* tar"));
2149 #endif /* not DEVICE_PREFIX */
2152 return ARGP_ERR_UNKNOWN
;
2157 static struct argp argp
= {
2170 argp_help (&argp
, stderr
, ARGP_HELP_SEE
, (char*) program_name
);
2175 /* Parse the options for tar. */
2177 static struct argp_option
*
2178 find_argp_option (struct argp_option
*o
, int letter
)
2185 && o
->doc
== NULL
); o
++)
2186 if (o
->key
== letter
)
2191 static const char *tar_authors
[] = {
2198 decode_options (int argc
, char **argv
)
2201 struct tar_args args
;
2203 argp_version_setup ("tar", tar_authors
);
2205 /* Set some default option values. */
2206 args
.textual_date
= NULL
;
2207 args
.wildcards
= default_wildcards
;
2208 args
.matching_flags
= 0;
2209 args
.include_anchored
= EXCLUDE_ANCHORED
;
2210 args
.o_option
= false;
2211 args
.pax_option
= false;
2212 args
.backup_suffix_string
= getenv ("SIMPLE_BACKUP_SUFFIX");
2213 args
.version_control_string
= 0;
2214 args
.input_files
= false;
2215 args
.compress_autodetect
= false;
2217 subcommand_option
= UNKNOWN_SUBCOMMAND
;
2218 archive_format
= DEFAULT_FORMAT
;
2219 blocking_factor
= DEFAULT_BLOCKING
;
2220 record_size
= DEFAULT_BLOCKING
* BLOCKSIZE
;
2221 excluded
= new_exclude ();
2222 newer_mtime_option
.tv_sec
= TYPE_MINIMUM (time_t);
2223 newer_mtime_option
.tv_nsec
= -1;
2224 recursion_option
= FNM_LEADING_DIR
;
2225 unquote_option
= true;
2226 tar_sparse_major
= 1;
2227 tar_sparse_minor
= 0;
2232 check_device_option
= true;
2234 incremental_level
= -1;
2238 /* Convert old-style tar call by exploding option element and rearranging
2239 options accordingly. */
2241 if (argc
> 1 && argv
[1][0] != '-')
2243 int new_argc
; /* argc value for rearranged arguments */
2244 char **new_argv
; /* argv value for rearranged arguments */
2245 char *const *in
; /* cursor into original argv */
2246 char **out
; /* cursor into rearranged argv */
2247 const char *letter
; /* cursor into old option letters */
2248 char buffer
[3]; /* constructed option buffer */
2250 /* Initialize a constructed option. */
2255 /* Allocate a new argument array, and copy program name in it. */
2257 new_argc
= argc
- 1 + strlen (argv
[1]);
2258 new_argv
= xmalloc ((new_argc
+ 1) * sizeof (char *));
2263 /* Copy each old letter option as a separate option, and have the
2264 corresponding argument moved next to it. */
2266 for (letter
= *in
++; *letter
; letter
++)
2268 struct argp_option
*opt
;
2270 buffer
[1] = *letter
;
2271 *out
++ = xstrdup (buffer
);
2272 opt
= find_argp_option (options
, *letter
);
2273 if (opt
&& opt
->arg
)
2275 if (in
< argv
+ argc
)
2278 USAGE_ERROR ((0, 0, _("Old option `%c' requires an argument."),
2283 /* Copy all remaining options. */
2285 while (in
< argv
+ argc
)
2289 /* Replace the old option list by the new one. */
2295 /* Parse all options and non-options as they appear. */
2297 prepend_default_options (getenv ("TAR_OPTIONS"), &argc
, &argv
);
2299 if (argp_parse (&argp
, argc
, argv
, ARGP_IN_ORDER
, &idx
, &args
))
2300 exit (TAREXIT_FAILURE
);
2303 /* Special handling for 'o' option:
2305 GNU tar used to say "output old format".
2306 UNIX98 tar says don't chown files after extracting (we use
2307 "--no-same-owner" for this).
2309 The old GNU tar semantics is retained when used with --create
2310 option, otherwise UNIX98 semantics is assumed */
2314 if (subcommand_option
== CREATE_SUBCOMMAND
)
2316 /* GNU Tar <= 1.13 compatibility */
2317 set_archive_format ("v7");
2321 /* UNIX98 compatibility */
2322 same_owner_option
= -1;
2326 /* Handle operands after any "--" argument. */
2327 for (; idx
< argc
; idx
++)
2329 name_add_name (argv
[idx
], MAKE_INCL_OPTIONS (&args
));
2330 args
.input_files
= true;
2333 /* Warn about implicit use of the wildcards in command line arguments.
2335 warn_regex_usage
= args
.wildcards
== default_wildcards
;
2337 /* Derive option values and check option consistency. */
2339 if (archive_format
== DEFAULT_FORMAT
)
2341 if (args
.pax_option
)
2342 archive_format
= POSIX_FORMAT
;
2344 archive_format
= DEFAULT_ARCHIVE_FORMAT
;
2347 if ((volume_label_option
&& subcommand_option
== CREATE_SUBCOMMAND
)
2348 || incremental_option
2349 || multi_volume_option
2351 assert_format (FORMAT_MASK (OLDGNU_FORMAT
)
2352 | FORMAT_MASK (GNU_FORMAT
)
2353 | FORMAT_MASK (POSIX_FORMAT
));
2355 if (occurrence_option
)
2357 if (!args
.input_files
)
2359 _("--occurrence is meaningless without a file list")));
2360 if (subcommand_option
!= DELETE_SUBCOMMAND
2361 && subcommand_option
!= DIFF_SUBCOMMAND
2362 && subcommand_option
!= EXTRACT_SUBCOMMAND
2363 && subcommand_option
!= LIST_SUBCOMMAND
)
2365 _("--occurrence cannot be used in the requested operation mode")));
2368 if (archive_names
== 0)
2370 /* If no archive file name given, try TAPE from the environment, or
2371 else, DEFAULT_ARCHIVE from the configuration process. */
2374 archive_name_array
[0] = getenv ("TAPE");
2375 if (! archive_name_array
[0])
2376 archive_name_array
[0] = DEFAULT_ARCHIVE
;
2379 /* Allow multiple archives only with `-M'. */
2381 if (archive_names
> 1 && !multi_volume_option
)
2383 _("Multiple archive files require `-M' option")));
2385 if (listed_incremental_option
2386 && NEWER_OPTION_INITIALIZED (newer_mtime_option
))
2388 _("Cannot combine --listed-incremental with --newer")));
2389 if (incremental_level
!= -1 && !listed_incremental_option
)
2391 _("--level is meaningless without --listed-incremental")));
2393 if (volume_label_option
)
2395 if (archive_format
== GNU_FORMAT
|| archive_format
== OLDGNU_FORMAT
)
2397 size_t volume_label_max_len
=
2398 (sizeof current_header
->header
.name
2399 - 1 /* for trailing '\0' */
2400 - (multi_volume_option
2401 ? (sizeof " Volume "
2402 - 1 /* for null at end of " Volume " */
2403 + INT_STRLEN_BOUND (int) /* for volume number */
2404 - 1 /* for sign, as 0 <= volno */)
2406 if (volume_label_max_len
< strlen (volume_label_option
))
2408 ngettext ("%s: Volume label is too long (limit is %lu byte)",
2409 "%s: Volume label is too long (limit is %lu bytes)",
2410 volume_label_max_len
),
2411 quotearg_colon (volume_label_option
),
2412 (unsigned long) volume_label_max_len
));
2415 Label length in PAX format is limited by the volume size. */
2420 if (multi_volume_option
)
2421 USAGE_ERROR ((0, 0, _("Cannot verify multi-volume archives")));
2422 if (use_compress_program_option
)
2423 USAGE_ERROR ((0, 0, _("Cannot verify compressed archives")));
2426 if (use_compress_program_option
)
2428 if (multi_volume_option
)
2429 USAGE_ERROR ((0, 0, _("Cannot use multi-volume compressed archives")));
2430 if (subcommand_option
== UPDATE_SUBCOMMAND
2431 || subcommand_option
== APPEND_SUBCOMMAND
2432 || subcommand_option
== DELETE_SUBCOMMAND
)
2433 USAGE_ERROR ((0, 0, _("Cannot update compressed archives")));
2434 if (subcommand_option
== CAT_SUBCOMMAND
)
2435 USAGE_ERROR ((0, 0, _("Cannot concatenate compressed archives")));
2438 /* It is no harm to use --pax-option on non-pax archives in archive
2439 reading mode. It may even be useful, since it allows to override
2440 file attributes from tar headers. Therefore I allow such usage.
2443 && archive_format
!= POSIX_FORMAT
2444 && (subcommand_option
!= EXTRACT_SUBCOMMAND
2445 || subcommand_option
!= DIFF_SUBCOMMAND
2446 || subcommand_option
!= LIST_SUBCOMMAND
))
2447 USAGE_ERROR ((0, 0, _("--pax-option can be used only on POSIX archives")));
2449 /* If ready to unlink hierarchies, so we are for simpler files. */
2450 if (recursive_unlink_option
)
2451 old_files_option
= UNLINK_FIRST_OLD_FILES
;
2454 if (subcommand_option
== TEST_LABEL_SUBCOMMAND
)
2456 /* --test-label is silent if the user has specified the label name to
2458 if (!args
.input_files
)
2461 else if (utc_option
)
2464 if (tape_length_option
&& tape_length_option
< record_size
)
2465 USAGE_ERROR ((0, 0, _("Volume length cannot be less than record size")));
2467 if (same_order_option
&& listed_incremental_option
)
2468 USAGE_ERROR ((0, 0, _("--preserve-order is not compatible with "
2469 "--listed-incremental")));
2471 /* Forbid using -c with no input files whatsoever. Check that `-f -',
2472 explicit or implied, is used correctly. */
2474 switch (subcommand_option
)
2476 case CREATE_SUBCOMMAND
:
2477 if (!args
.input_files
&& !files_from_option
)
2479 _("Cowardly refusing to create an empty archive")));
2480 if (args
.compress_autodetect
&& archive_names
2481 && strcmp (archive_name_array
[0], "-"))
2482 set_comression_program_by_suffix (archive_name_array
[0],
2483 use_compress_program_option
);
2486 case EXTRACT_SUBCOMMAND
:
2487 case LIST_SUBCOMMAND
:
2488 case DIFF_SUBCOMMAND
:
2489 case TEST_LABEL_SUBCOMMAND
:
2490 for (archive_name_cursor
= archive_name_array
;
2491 archive_name_cursor
< archive_name_array
+ archive_names
;
2492 archive_name_cursor
++)
2493 if (!strcmp (*archive_name_cursor
, "-"))
2494 request_stdin ("-f");
2497 case CAT_SUBCOMMAND
:
2498 case UPDATE_SUBCOMMAND
:
2499 case APPEND_SUBCOMMAND
:
2500 for (archive_name_cursor
= archive_name_array
;
2501 archive_name_cursor
< archive_name_array
+ archive_names
;
2502 archive_name_cursor
++)
2503 if (!strcmp (*archive_name_cursor
, "-"))
2505 _("Options `-Aru' are incompatible with `-f -'")));
2511 /* Initialize stdlis */
2512 if (index_file_name
)
2514 stdlis
= fopen (index_file_name
, "w");
2516 open_error (index_file_name
);
2519 stdlis
= to_stdout_option
? stderr
: stdout
;
2521 archive_name_cursor
= archive_name_array
;
2523 /* Prepare for generating backup names. */
2525 if (args
.backup_suffix_string
)
2526 simple_backup_suffix
= xstrdup (args
.backup_suffix_string
);
2530 backup_type
= xget_version ("--backup", args
.version_control_string
);
2531 /* No backup is needed either if explicitely disabled or if
2532 the extracted files are not being written to disk. */
2533 if (backup_type
== no_backups
|| EXTRACT_OVER_PIPE
)
2534 backup_option
= false;
2537 checkpoint_finish_compile ();
2539 report_textual_dates (&args
);
2545 /* Main routine for tar. */
2547 main (int argc
, char **argv
)
2550 set_program_name (argv
[0]);
2552 setlocale (LC_ALL
, "");
2553 bindtextdomain (PACKAGE
, LOCALEDIR
);
2554 textdomain (PACKAGE
);
2556 exit_failure
= TAREXIT_FAILURE
;
2557 exit_status
= TAREXIT_SUCCESS
;
2558 filename_terminator
= '\n';
2559 set_quoting_style (0, DEFAULT_QUOTING_STYLE
);
2561 /* Make sure we have first three descriptors available */
2564 /* Pre-allocate a few structures. */
2566 allocated_archive_names
= 10;
2567 archive_name_array
=
2568 xmalloc (sizeof (const char *) * allocated_archive_names
);
2571 obstack_init (&argv_stk
);
2573 /* System V fork+wait does not work if SIGCHLD is ignored. */
2574 signal (SIGCHLD
, SIG_DFL
);
2576 /* Try to disable the ability to unlink a directory. */
2577 priv_set_remove_linkdir ();
2579 /* Decode options. */
2581 decode_options (argc
, argv
);
2585 /* Main command execution. */
2587 if (volno_file_option
)
2588 init_volume_number ();
2590 switch (subcommand_option
)
2592 case UNKNOWN_SUBCOMMAND
:
2594 _("You must specify one of the `-Acdtrux' or `--test-label' options")));
2596 case CAT_SUBCOMMAND
:
2597 case UPDATE_SUBCOMMAND
:
2598 case APPEND_SUBCOMMAND
:
2602 case DELETE_SUBCOMMAND
:
2603 delete_archive_members ();
2606 case CREATE_SUBCOMMAND
:
2610 case EXTRACT_SUBCOMMAND
:
2612 read_and (extract_archive
);
2614 /* FIXME: should extract_finish () even if an ordinary signal is
2620 case LIST_SUBCOMMAND
:
2621 read_and (list_archive
);
2624 case DIFF_SUBCOMMAND
:
2626 read_and (diff_archive
);
2629 case TEST_LABEL_SUBCOMMAND
:
2630 test_archive_label ();
2634 print_total_stats ();
2636 if (check_links_option
)
2639 if (volno_file_option
)
2640 closeout_volume_number ();
2642 /* Dispose of allocated memory, and return. */
2644 free (archive_name_array
);
2647 if (exit_status
== TAREXIT_FAILURE
)
2648 error (0, 0, _("Exiting with failure status due to previous errors"));
2650 if (stdlis
== stdout
)
2652 else if (ferror (stderr
) || fclose (stderr
) != 0)
2653 set_exit_status (TAREXIT_FAILURE
);
2659 tar_stat_init (struct tar_stat_info
*st
)
2661 memset (st
, 0, sizeof (*st
));
2665 tar_stat_destroy (struct tar_stat_info
*st
)
2667 free (st
->orig_file_name
);
2668 free (st
->file_name
);
2669 free (st
->link_name
);
2672 free (st
->sparse_map
);
2674 xheader_destroy (&st
->xhdr
);
2675 memset (st
, 0, sizeof (*st
));
2678 /* Format mask for all available formats that support nanosecond
2679 timestamp resolution. */
2680 #define NS_PRECISION_FORMAT_MASK FORMAT_MASK (POSIX_FORMAT)
2682 /* Same as timespec_cmp, but ignore nanoseconds if current archive
2683 format does not provide sufficient resolution. */
2685 tar_timespec_cmp (struct timespec a
, struct timespec b
)
2687 if (!(FORMAT_MASK (current_format
) & NS_PRECISION_FORMAT_MASK
))
2688 a
.tv_nsec
= b
.tv_nsec
= 0;
2689 return timespec_cmp (a
, b
);
2692 /* Set tar exit status to VAL, unless it is already indicating
2693 a more serious condition. This relies on the fact that the
2694 values of TAREXIT_ constants are ranged by severity. */
2696 set_exit_status (int val
)
2698 if (val
> exit_status
)