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
:
1289 obstack_init (&stk
);
1290 s
= _("Valid arguments for the --quoting-style option are:");
1291 obstack_grow (&stk
, s
, strlen (s
));
1292 obstack_grow (&stk
, "\n\n", 2);
1293 tar_list_quoting_styles (&stk
, " ");
1294 s
= _("\n*This* tar defaults to:\n");
1295 obstack_grow (&stk
, s
, strlen (s
));
1296 s
= format_default_settings ();
1297 obstack_grow (&stk
, s
, strlen (s
));
1298 obstack_1grow (&stk
, '\n');
1299 obstack_1grow (&stk
, 0);
1300 s
= xstrdup (obstack_finish (&stk
));
1301 obstack_free (&stk
, NULL
);
1307 expand_pax_option (struct tar_args
*targs
, const char *arg
)
1312 obstack_init (&stk
);
1315 size_t seglen
= strcspn (arg
, ",");
1316 char *p
= memchr (arg
, '=', seglen
);
1319 size_t len
= p
- arg
+ 1;
1320 obstack_grow (&stk
, arg
, len
);
1322 for (++p
; *p
&& isspace ((unsigned char) *p
); p
++)
1324 if (*p
== '{' && p
[len
-1] == '}')
1327 char *tmp
= xmalloc (len
);
1328 memcpy (tmp
, p
+ 1, len
-2);
1330 if (get_date_or_file (targs
, "--pax-option", tmp
, &ts
) == 0)
1332 char buf
[UINTMAX_STRSIZE_BOUND
], *s
;
1333 s
= umaxtostr (ts
.tv_sec
, buf
);
1334 obstack_grow (&stk
, s
, strlen (s
));
1337 obstack_grow (&stk
, p
, len
);
1341 obstack_grow (&stk
, p
, len
);
1344 obstack_grow (&stk
, arg
, seglen
);
1349 obstack_1grow (&stk
, *arg
);
1353 obstack_1grow (&stk
, 0);
1354 res
= xstrdup (obstack_finish (&stk
));
1355 obstack_free (&stk
, NULL
);
1361 parse_opt (int key
, char *arg
, struct argp_state
*state
)
1363 struct tar_args
*args
= state
->input
;
1368 /* File name or non-parsed option, because of ARGP_IN_ORDER */
1369 name_add_name (arg
, MAKE_INCL_OPTIONS (args
));
1370 args
->input_files
= true;
1374 set_subcommand_option (CAT_SUBCOMMAND
);
1378 args
->compress_autodetect
= true;
1381 case NO_AUTO_COMPRESS_OPTION
:
1382 args
->compress_autodetect
= false;
1388 if (! (xstrtoumax (arg
, 0, 10, &u
, "") == LONGINT_OK
1389 && u
== (blocking_factor
= u
)
1390 && 0 < blocking_factor
1391 && u
== (record_size
= u
* BLOCKSIZE
) / BLOCKSIZE
))
1392 USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1393 _("Invalid blocking factor")));
1398 /* Try to reblock input records. For reading 4.2BSD pipes. */
1400 /* It would surely make sense to exchange -B and -R, but it seems
1401 that -B has been used for a long while in Sun tar and most
1402 BSD-derived systems. This is a consequence of the block/record
1403 terminology confusion. */
1405 read_full_records_option
= true;
1409 set_subcommand_option (CREATE_SUBCOMMAND
);
1417 set_subcommand_option (DIFF_SUBCOMMAND
);
1421 if (archive_names
== allocated_archive_names
)
1422 archive_name_array
= x2nrealloc (archive_name_array
,
1423 &allocated_archive_names
,
1424 sizeof (archive_name_array
[0]));
1426 archive_name_array
[archive_names
++] = arg
;
1430 /* Since -F is only useful with -M, make it implied. Run this
1431 script at the end of each tape. */
1433 info_script_option
= arg
;
1434 multi_volume_option
= true;
1438 listed_incremental_option
= arg
;
1439 after_date_option
= true;
1443 /* We are making an incremental dump (FIXME: are we?); save
1444 directories at the beginning of the archive, and include in each
1445 directory its contents. */
1447 incremental_option
= true;
1451 /* Follow symbolic links. */
1452 dereference_option
= true;
1455 case HARD_DEREFERENCE_OPTION
:
1456 hard_dereference_option
= true;
1460 /* Ignore zero blocks (eofs). This can't be the default,
1461 because Unix tar writes two blocks of zeros, then pads out
1462 the record with garbage. */
1464 ignore_zeros_option
= true;
1468 set_use_compress_program_option (BZIP2_PROGRAM
);
1472 set_use_compress_program_option (XZ_PROGRAM
);
1476 /* Don't replace existing files. */
1477 old_files_option
= KEEP_OLD_FILES
;
1481 starting_file_option
= true;
1482 addname (arg
, 0, true, NULL
);
1485 case ONE_FILE_SYSTEM_OPTION
:
1486 /* When dumping directories, don't dump files/subdirectories
1487 that are on other filesystems. */
1488 one_file_system_option
= true;
1492 check_links_option
= 1;
1498 if (xstrtoumax (arg
, 0, 10, &u
, "") != LONGINT_OK
)
1499 USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1500 _("Invalid tape length")));
1501 tape_length_option
= 1024 * (tarlong
) u
;
1502 multi_volume_option
= true;
1509 incremental_level
= strtoul (arg
, &p
, 10);
1511 USAGE_ERROR ((0, 0, _("Invalid incremental level value")));
1516 set_use_compress_program_option (LZIP_PROGRAM
);
1520 set_use_compress_program_option (LZMA_PROGRAM
);
1524 set_use_compress_program_option (LZOP_PROGRAM
);
1528 touch_option
= true;
1532 /* Make multivolume archive: when we can't write any more into
1533 the archive, re-open it, and continue writing. */
1535 multi_volume_option
= true;
1539 get_date_or_file (args
, "--mtime", arg
, &mtime_option
);
1540 set_mtime_option
= true;
1547 case NO_SEEK_OPTION
:
1552 after_date_option
= true;
1555 case NEWER_MTIME_OPTION
:
1556 if (NEWER_OPTION_INITIALIZED (newer_mtime_option
))
1557 USAGE_ERROR ((0, 0, _("More than one threshold date")));
1558 get_date_or_file (args
,
1559 key
== NEWER_MTIME_OPTION
? "--newer-mtime"
1560 : "--after-date", arg
, &newer_mtime_option
);
1564 args
->o_option
= true;
1568 to_stdout_option
= true;
1572 same_permissions_option
= true;
1576 absolute_names_option
= true;
1580 set_subcommand_option (APPEND_SUBCOMMAND
);
1584 /* Print block numbers for debugging bad tar archives. */
1586 /* It would surely make sense to exchange -B and -R, but it seems
1587 that -B has been used for a long while in Sun tar and most
1588 BSD-derived systems. This is a consequence of the block/record
1589 terminology confusion. */
1591 block_number_option
= true;
1595 /* Names to extract are sorted. */
1597 same_order_option
= true;
1601 sparse_option
= true;
1604 case SPARSE_VERSION_OPTION
:
1605 sparse_option
= true;
1608 tar_sparse_major
= strtoul (arg
, &p
, 10);
1612 USAGE_ERROR ((0, 0, _("Invalid sparse version value")));
1613 tar_sparse_minor
= strtoul (p
+ 1, &p
, 10);
1615 USAGE_ERROR ((0, 0, _("Invalid sparse version value")));
1621 set_subcommand_option (LIST_SUBCOMMAND
);
1625 case TEST_LABEL_OPTION
:
1626 set_subcommand_option (TEST_LABEL_SUBCOMMAND
);
1630 update_argv (arg
, state
);
1631 /* Indicate we've been given -T option. This is for backward
1632 compatibility only, so that `tar cfT archive /dev/null will
1634 files_from_option
= true;
1638 set_subcommand_option (UPDATE_SUBCOMMAND
);
1642 old_files_option
= UNLINK_FIRST_OLD_FILES
;
1651 warning_option
|= WARN_VERBOSE_WARNINGS
;
1655 volume_label_option
= arg
;
1659 interactive_option
= true;
1663 verify_option
= true;
1667 set_subcommand_option (EXTRACT_SUBCOMMAND
);
1671 if (add_exclude_file (add_exclude
, excluded
, arg
,
1672 MAKE_EXCL_OPTIONS (args
), '\n')
1676 FATAL_ERROR ((0, e
, "%s", quotearg_colon (arg
)));
1681 set_use_compress_program_option (GZIP_PROGRAM
);
1685 set_use_compress_program_option (COMPRESS_PROGRAM
);
1688 case ANCHORED_OPTION
:
1689 args
->matching_flags
|= EXCLUDE_ANCHORED
;
1692 case ATIME_PRESERVE_OPTION
:
1693 atime_preserve_option
=
1695 ? XARGMATCH ("--atime-preserve", arg
,
1696 atime_preserve_args
, atime_preserve_types
)
1697 : replace_atime_preserve
);
1698 if (! O_NOATIME
&& atime_preserve_option
== system_atime_preserve
)
1700 _("--atime-preserve='system' is not supported"
1701 " on this platform")));
1704 case CHECK_DEVICE_OPTION
:
1705 check_device_option
= true;
1708 case NO_CHECK_DEVICE_OPTION
:
1709 check_device_option
= false;
1712 case CHECKPOINT_OPTION
:
1719 checkpoint_compile_action (".");
1722 checkpoint_option
= strtoul (arg
, &p
, 0);
1725 _("--checkpoint value is not an integer")));
1728 checkpoint_option
= DEFAULT_CHECKPOINT
;
1731 case CHECKPOINT_ACTION_OPTION
:
1732 checkpoint_compile_action (arg
);
1736 backup_option
= true;
1738 args
->version_control_string
= arg
;
1741 case DELAY_DIRECTORY_RESTORE_OPTION
:
1742 delay_directory_restore_option
= true;
1745 case NO_DELAY_DIRECTORY_RESTORE_OPTION
:
1746 delay_directory_restore_option
= false;
1750 set_subcommand_option (DELETE_SUBCOMMAND
);
1753 case EXCLUDE_BACKUPS_OPTION
:
1754 add_exclude_array (backup_file_table
);
1757 case EXCLUDE_OPTION
:
1758 add_exclude (excluded
, arg
, MAKE_EXCL_OPTIONS (args
));
1761 case EXCLUDE_CACHES_OPTION
:
1762 add_exclusion_tag ("CACHEDIR.TAG", exclusion_tag_contents
,
1766 case EXCLUDE_CACHES_UNDER_OPTION
:
1767 add_exclusion_tag ("CACHEDIR.TAG", exclusion_tag_under
,
1771 case EXCLUDE_CACHES_ALL_OPTION
:
1772 add_exclusion_tag ("CACHEDIR.TAG", exclusion_tag_all
,
1776 case EXCLUDE_TAG_OPTION
:
1777 add_exclusion_tag (arg
, exclusion_tag_contents
, NULL
);
1780 case EXCLUDE_TAG_UNDER_OPTION
:
1781 add_exclusion_tag (arg
, exclusion_tag_under
, NULL
);
1784 case EXCLUDE_TAG_ALL_OPTION
:
1785 add_exclusion_tag (arg
, exclusion_tag_all
, NULL
);
1788 case EXCLUDE_VCS_OPTION
:
1789 add_exclude_array (vcs_file_table
);
1792 case FORCE_LOCAL_OPTION
:
1793 force_local_option
= true;
1797 set_archive_format (arg
);
1800 case INDEX_FILE_OPTION
:
1801 index_file_name
= arg
;
1804 case IGNORE_CASE_OPTION
:
1805 args
->matching_flags
|= FNM_CASEFOLD
;
1808 case IGNORE_COMMAND_ERROR_OPTION
:
1809 ignore_command_error_option
= true;
1812 case IGNORE_FAILED_READ_OPTION
:
1813 ignore_failed_read_option
= true;
1816 case KEEP_NEWER_FILES_OPTION
:
1817 old_files_option
= KEEP_NEWER_FILES
;
1821 if (! (strlen (arg
) < GNAME_FIELD_SIZE
1822 && gname_to_gid (arg
, &group_option
)))
1825 if (xstrtoumax (arg
, 0, 10, &g
, "") == LONGINT_OK
1829 FATAL_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1830 _("Invalid group")));
1835 mode_option
= mode_compile (arg
);
1837 FATAL_ERROR ((0, 0, _("Invalid mode given on option")));
1838 initial_umask
= umask (0);
1839 umask (initial_umask
);
1842 case NO_ANCHORED_OPTION
:
1843 args
->include_anchored
= 0; /* Clear the default for comman line args */
1844 args
->matching_flags
&= ~ EXCLUDE_ANCHORED
;
1847 case NO_IGNORE_CASE_OPTION
:
1848 args
->matching_flags
&= ~ FNM_CASEFOLD
;
1851 case NO_IGNORE_COMMAND_ERROR_OPTION
:
1852 ignore_command_error_option
= false;
1855 case NO_OVERWRITE_DIR_OPTION
:
1856 old_files_option
= NO_OVERWRITE_DIR_OLD_FILES
;
1859 case NO_QUOTE_CHARS_OPTION
:
1861 set_char_quoting (NULL
, *arg
, 0);
1864 case NO_WILDCARDS_OPTION
:
1865 args
->wildcards
= disable_wildcards
;
1868 case NO_WILDCARDS_MATCH_SLASH_OPTION
:
1869 args
->matching_flags
|= FNM_FILE_NAME
;
1873 filename_terminator
= '\0';
1876 case NO_NULL_OPTION
:
1877 filename_terminator
= '\n';
1880 case NUMERIC_OWNER_OPTION
:
1881 numeric_owner_option
= true;
1884 case OCCURRENCE_OPTION
:
1886 occurrence_option
= 1;
1890 if (xstrtoumax (arg
, 0, 10, &u
, "") == LONGINT_OK
)
1891 occurrence_option
= u
;
1893 FATAL_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1894 _("Invalid number")));
1898 case OVERWRITE_DIR_OPTION
:
1899 old_files_option
= DEFAULT_OLD_FILES
;
1902 case OVERWRITE_OPTION
:
1903 old_files_option
= OVERWRITE_OLD_FILES
;
1907 if (! (strlen (arg
) < UNAME_FIELD_SIZE
1908 && uname_to_uid (arg
, &owner_option
)))
1911 if (xstrtoumax (arg
, 0, 10, &u
, "") == LONGINT_OK
1915 FATAL_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1916 _("Invalid owner")));
1920 case QUOTE_CHARS_OPTION
:
1922 set_char_quoting (NULL
, *arg
, 1);
1925 case QUOTING_STYLE_OPTION
:
1926 tar_set_quoting_style (arg
);
1931 char *tmp
= expand_pax_option (args
, arg
);
1932 args
->pax_option
= true;
1933 xheader_set_option (tmp
);
1939 set_archive_format ("posix");
1942 case PRESERVE_OPTION
:
1943 /* FIXME: What it is good for? */
1944 same_permissions_option
= true;
1945 same_order_option
= true;
1946 WARN ((0, 0, _("The --preserve option is deprecated, "
1947 "use --preserve-permissions --preserve-order instead")));
1950 case RECORD_SIZE_OPTION
:
1953 if (! (xstrtoumax (arg
, 0, 10, &u
, "") == LONGINT_OK
1954 && u
== (size_t) u
))
1955 USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1956 _("Invalid record size")));
1958 if (record_size
% BLOCKSIZE
!= 0)
1959 USAGE_ERROR ((0, 0, _("Record size must be a multiple of %d."),
1961 blocking_factor
= record_size
/ BLOCKSIZE
;
1965 case RECURSIVE_UNLINK_OPTION
:
1966 recursive_unlink_option
= true;
1969 case REMOVE_FILES_OPTION
:
1970 remove_files_option
= true;
1973 case RESTRICT_OPTION
:
1974 restrict_option
= true;
1977 case RMT_COMMAND_OPTION
:
1981 case RSH_COMMAND_OPTION
:
1982 rsh_command_option
= arg
;
1985 case SHOW_DEFAULTS_OPTION
:
1987 char *s
= format_default_settings ();
1994 case STRIP_COMPONENTS_OPTION
:
1997 if (! (xstrtoumax (arg
, 0, 10, &u
, "") == LONGINT_OK
1998 && u
== (size_t) u
))
1999 USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
2000 _("Invalid number of elements")));
2001 strip_name_components
= u
;
2005 case SHOW_OMITTED_DIRS_OPTION
:
2006 show_omitted_dirs_option
= true;
2009 case SHOW_TRANSFORMED_NAMES_OPTION
:
2010 show_transformed_names_option
= true;
2014 backup_option
= true;
2015 args
->backup_suffix_string
= arg
;
2018 case TO_COMMAND_OPTION
:
2019 if (to_command_option
)
2020 USAGE_ERROR ((0, 0, _("Only one --to-command option allowed")));
2021 to_command_option
= arg
;
2026 set_stat_signal (arg
);
2028 totals_option
= true;
2031 case TRANSFORM_OPTION
:
2032 set_transform_expr (arg
);
2036 set_use_compress_program_option (arg
);
2039 case VOLNO_FILE_OPTION
:
2040 volno_file_option
= arg
;
2043 case WILDCARDS_OPTION
:
2044 args
->wildcards
= enable_wildcards
;
2047 case WILDCARDS_MATCH_SLASH_OPTION
:
2048 args
->matching_flags
&= ~ FNM_FILE_NAME
;
2051 case NO_RECURSION_OPTION
:
2052 recursion_option
= 0;
2055 case NO_SAME_OWNER_OPTION
:
2056 same_owner_option
= -1;
2059 case NO_SAME_PERMISSIONS_OPTION
:
2060 same_permissions_option
= -1;
2063 case RECURSION_OPTION
:
2064 recursion_option
= FNM_LEADING_DIR
;
2067 case SAME_OWNER_OPTION
:
2068 same_owner_option
= 1;
2071 case UNQUOTE_OPTION
:
2072 unquote_option
= true;
2075 case NO_UNQUOTE_OPTION
:
2076 unquote_option
= false;
2079 case WARNING_OPTION
:
2080 set_warning_option (arg
);
2092 #ifdef DEVICE_PREFIX
2094 int device
= key
- '0';
2096 static char buf
[sizeof DEVICE_PREFIX
+ 10];
2100 argp_error (state
, _("Malformed density argument: %s"), quote (arg
));
2102 strcpy (buf
, DEVICE_PREFIX
);
2103 cursor
= buf
+ strlen (buf
);
2105 #ifdef DENSITY_LETTER
2107 sprintf (cursor
, "%d%c", device
, arg
[0]);
2109 #else /* not DENSITY_LETTER */
2114 device
+= LOW_DENSITY_NUM
;
2118 device
+= MID_DENSITY_NUM
;
2122 device
+= HIGH_DENSITY_NUM
;
2126 argp_error (state
, _("Unknown density: `%c'"), arg
[0]);
2128 sprintf (cursor
, "%d", device
);
2130 #endif /* not DENSITY_LETTER */
2132 if (archive_names
== allocated_archive_names
)
2133 archive_name_array
= x2nrealloc (archive_name_array
,
2134 &allocated_archive_names
,
2135 sizeof (archive_name_array
[0]));
2136 archive_name_array
[archive_names
++] = xstrdup (buf
);
2140 #else /* not DEVICE_PREFIX */
2143 _("Options `-[0-7][lmh]' not supported by *this* tar"));
2145 #endif /* not DEVICE_PREFIX */
2148 return ARGP_ERR_UNKNOWN
;
2153 static struct argp argp
= {
2166 argp_help (&argp
, stderr
, ARGP_HELP_SEE
, (char*) program_name
);
2171 /* Parse the options for tar. */
2173 static struct argp_option
*
2174 find_argp_option (struct argp_option
*o
, int letter
)
2181 && o
->doc
== NULL
); o
++)
2182 if (o
->key
== letter
)
2187 static const char *tar_authors
[] = {
2194 decode_options (int argc
, char **argv
)
2197 struct tar_args args
;
2199 argp_version_setup ("tar", tar_authors
);
2201 /* Set some default option values. */
2202 args
.textual_date
= NULL
;
2203 args
.wildcards
= default_wildcards
;
2204 args
.matching_flags
= 0;
2205 args
.include_anchored
= EXCLUDE_ANCHORED
;
2206 args
.o_option
= false;
2207 args
.pax_option
= false;
2208 args
.backup_suffix_string
= getenv ("SIMPLE_BACKUP_SUFFIX");
2209 args
.version_control_string
= 0;
2210 args
.input_files
= false;
2211 args
.compress_autodetect
= false;
2213 subcommand_option
= UNKNOWN_SUBCOMMAND
;
2214 archive_format
= DEFAULT_FORMAT
;
2215 blocking_factor
= DEFAULT_BLOCKING
;
2216 record_size
= DEFAULT_BLOCKING
* BLOCKSIZE
;
2217 excluded
= new_exclude ();
2218 newer_mtime_option
.tv_sec
= TYPE_MINIMUM (time_t);
2219 newer_mtime_option
.tv_nsec
= -1;
2220 recursion_option
= FNM_LEADING_DIR
;
2221 unquote_option
= true;
2222 tar_sparse_major
= 1;
2223 tar_sparse_minor
= 0;
2228 check_device_option
= true;
2230 incremental_level
= -1;
2234 /* Convert old-style tar call by exploding option element and rearranging
2235 options accordingly. */
2237 if (argc
> 1 && argv
[1][0] != '-')
2239 int new_argc
; /* argc value for rearranged arguments */
2240 char **new_argv
; /* argv value for rearranged arguments */
2241 char *const *in
; /* cursor into original argv */
2242 char **out
; /* cursor into rearranged argv */
2243 const char *letter
; /* cursor into old option letters */
2244 char buffer
[3]; /* constructed option buffer */
2246 /* Initialize a constructed option. */
2251 /* Allocate a new argument array, and copy program name in it. */
2253 new_argc
= argc
- 1 + strlen (argv
[1]);
2254 new_argv
= xmalloc ((new_argc
+ 1) * sizeof (char *));
2259 /* Copy each old letter option as a separate option, and have the
2260 corresponding argument moved next to it. */
2262 for (letter
= *in
++; *letter
; letter
++)
2264 struct argp_option
*opt
;
2266 buffer
[1] = *letter
;
2267 *out
++ = xstrdup (buffer
);
2268 opt
= find_argp_option (options
, *letter
);
2269 if (opt
&& opt
->arg
)
2271 if (in
< argv
+ argc
)
2274 USAGE_ERROR ((0, 0, _("Old option `%c' requires an argument."),
2279 /* Copy all remaining options. */
2281 while (in
< argv
+ argc
)
2285 /* Replace the old option list by the new one. */
2291 /* Parse all options and non-options as they appear. */
2293 prepend_default_options (getenv ("TAR_OPTIONS"), &argc
, &argv
);
2295 if (argp_parse (&argp
, argc
, argv
, ARGP_IN_ORDER
, &idx
, &args
))
2296 exit (TAREXIT_FAILURE
);
2299 /* Special handling for 'o' option:
2301 GNU tar used to say "output old format".
2302 UNIX98 tar says don't chown files after extracting (we use
2303 "--no-same-owner" for this).
2305 The old GNU tar semantics is retained when used with --create
2306 option, otherwise UNIX98 semantics is assumed */
2310 if (subcommand_option
== CREATE_SUBCOMMAND
)
2312 /* GNU Tar <= 1.13 compatibility */
2313 set_archive_format ("v7");
2317 /* UNIX98 compatibility */
2318 same_owner_option
= -1;
2322 /* Handle operands after any "--" argument. */
2323 for (; idx
< argc
; idx
++)
2325 name_add_name (argv
[idx
], MAKE_INCL_OPTIONS (&args
));
2326 args
.input_files
= true;
2329 /* Warn about implicit use of the wildcards in command line arguments.
2331 warn_regex_usage
= args
.wildcards
== default_wildcards
;
2333 /* Derive option values and check option consistency. */
2335 if (archive_format
== DEFAULT_FORMAT
)
2337 if (args
.pax_option
)
2338 archive_format
= POSIX_FORMAT
;
2340 archive_format
= DEFAULT_ARCHIVE_FORMAT
;
2343 if ((volume_label_option
&& subcommand_option
== CREATE_SUBCOMMAND
)
2344 || incremental_option
2345 || multi_volume_option
2347 assert_format (FORMAT_MASK (OLDGNU_FORMAT
)
2348 | FORMAT_MASK (GNU_FORMAT
)
2349 | FORMAT_MASK (POSIX_FORMAT
));
2351 if (occurrence_option
)
2353 if (!args
.input_files
)
2355 _("--occurrence is meaningless without a file list")));
2356 if (subcommand_option
!= DELETE_SUBCOMMAND
2357 && subcommand_option
!= DIFF_SUBCOMMAND
2358 && subcommand_option
!= EXTRACT_SUBCOMMAND
2359 && subcommand_option
!= LIST_SUBCOMMAND
)
2361 _("--occurrence cannot be used in the requested operation mode")));
2364 if (archive_names
== 0)
2366 /* If no archive file name given, try TAPE from the environment, or
2367 else, DEFAULT_ARCHIVE from the configuration process. */
2370 archive_name_array
[0] = getenv ("TAPE");
2371 if (! archive_name_array
[0])
2372 archive_name_array
[0] = DEFAULT_ARCHIVE
;
2375 /* Allow multiple archives only with `-M'. */
2377 if (archive_names
> 1 && !multi_volume_option
)
2379 _("Multiple archive files require `-M' option")));
2381 if (listed_incremental_option
2382 && NEWER_OPTION_INITIALIZED (newer_mtime_option
))
2384 _("Cannot combine --listed-incremental with --newer")));
2385 if (incremental_level
!= -1 && !listed_incremental_option
)
2387 _("--level is meaningless without --listed-incremental")));
2389 if (volume_label_option
)
2391 if (archive_format
== GNU_FORMAT
|| archive_format
== OLDGNU_FORMAT
)
2393 size_t volume_label_max_len
=
2394 (sizeof current_header
->header
.name
2395 - 1 /* for trailing '\0' */
2396 - (multi_volume_option
2397 ? (sizeof " Volume "
2398 - 1 /* for null at end of " Volume " */
2399 + INT_STRLEN_BOUND (int) /* for volume number */
2400 - 1 /* for sign, as 0 <= volno */)
2402 if (volume_label_max_len
< strlen (volume_label_option
))
2404 ngettext ("%s: Volume label is too long (limit is %lu byte)",
2405 "%s: Volume label is too long (limit is %lu bytes)",
2406 volume_label_max_len
),
2407 quotearg_colon (volume_label_option
),
2408 (unsigned long) volume_label_max_len
));
2411 Label length in PAX format is limited by the volume size. */
2416 if (multi_volume_option
)
2417 USAGE_ERROR ((0, 0, _("Cannot verify multi-volume archives")));
2418 if (use_compress_program_option
)
2419 USAGE_ERROR ((0, 0, _("Cannot verify compressed archives")));
2422 if (use_compress_program_option
)
2424 if (multi_volume_option
)
2425 USAGE_ERROR ((0, 0, _("Cannot use multi-volume compressed archives")));
2426 if (subcommand_option
== UPDATE_SUBCOMMAND
2427 || subcommand_option
== APPEND_SUBCOMMAND
2428 || subcommand_option
== DELETE_SUBCOMMAND
)
2429 USAGE_ERROR ((0, 0, _("Cannot update compressed archives")));
2430 if (subcommand_option
== CAT_SUBCOMMAND
)
2431 USAGE_ERROR ((0, 0, _("Cannot concatenate compressed archives")));
2434 /* It is no harm to use --pax-option on non-pax archives in archive
2435 reading mode. It may even be useful, since it allows to override
2436 file attributes from tar headers. Therefore I allow such usage.
2439 && archive_format
!= POSIX_FORMAT
2440 && (subcommand_option
!= EXTRACT_SUBCOMMAND
2441 || subcommand_option
!= DIFF_SUBCOMMAND
2442 || subcommand_option
!= LIST_SUBCOMMAND
))
2443 USAGE_ERROR ((0, 0, _("--pax-option can be used only on POSIX archives")));
2445 /* If ready to unlink hierarchies, so we are for simpler files. */
2446 if (recursive_unlink_option
)
2447 old_files_option
= UNLINK_FIRST_OLD_FILES
;
2450 if (subcommand_option
== TEST_LABEL_SUBCOMMAND
)
2452 /* --test-label is silent if the user has specified the label name to
2454 if (!args
.input_files
)
2457 else if (utc_option
)
2460 if (tape_length_option
&& tape_length_option
< record_size
)
2461 USAGE_ERROR ((0, 0, _("Volume length cannot be less than record size")));
2463 if (same_order_option
&& listed_incremental_option
)
2464 USAGE_ERROR ((0, 0, _("--preserve-order is not compatible with "
2465 "--listed-incremental")));
2467 /* Forbid using -c with no input files whatsoever. Check that `-f -',
2468 explicit or implied, is used correctly. */
2470 switch (subcommand_option
)
2472 case CREATE_SUBCOMMAND
:
2473 if (!args
.input_files
&& !files_from_option
)
2475 _("Cowardly refusing to create an empty archive")));
2476 if (args
.compress_autodetect
&& archive_names
2477 && strcmp (archive_name_array
[0], "-"))
2478 set_comression_program_by_suffix (archive_name_array
[0],
2479 use_compress_program_option
);
2482 case EXTRACT_SUBCOMMAND
:
2483 case LIST_SUBCOMMAND
:
2484 case DIFF_SUBCOMMAND
:
2485 case TEST_LABEL_SUBCOMMAND
:
2486 for (archive_name_cursor
= archive_name_array
;
2487 archive_name_cursor
< archive_name_array
+ archive_names
;
2488 archive_name_cursor
++)
2489 if (!strcmp (*archive_name_cursor
, "-"))
2490 request_stdin ("-f");
2493 case CAT_SUBCOMMAND
:
2494 case UPDATE_SUBCOMMAND
:
2495 case APPEND_SUBCOMMAND
:
2496 for (archive_name_cursor
= archive_name_array
;
2497 archive_name_cursor
< archive_name_array
+ archive_names
;
2498 archive_name_cursor
++)
2499 if (!strcmp (*archive_name_cursor
, "-"))
2501 _("Options `-Aru' are incompatible with `-f -'")));
2507 /* Initialize stdlis */
2508 if (index_file_name
)
2510 stdlis
= fopen (index_file_name
, "w");
2512 open_error (index_file_name
);
2515 stdlis
= to_stdout_option
? stderr
: stdout
;
2517 archive_name_cursor
= archive_name_array
;
2519 /* Prepare for generating backup names. */
2521 if (args
.backup_suffix_string
)
2522 simple_backup_suffix
= xstrdup (args
.backup_suffix_string
);
2526 backup_type
= xget_version ("--backup", args
.version_control_string
);
2527 /* No backup is needed either if explicitely disabled or if
2528 the extracted files are not being written to disk. */
2529 if (backup_type
== no_backups
|| EXTRACT_OVER_PIPE
)
2530 backup_option
= false;
2533 checkpoint_finish_compile ();
2535 report_textual_dates (&args
);
2541 /* Main routine for tar. */
2543 main (int argc
, char **argv
)
2546 set_program_name (argv
[0]);
2548 setlocale (LC_ALL
, "");
2549 bindtextdomain (PACKAGE
, LOCALEDIR
);
2550 textdomain (PACKAGE
);
2552 exit_failure
= TAREXIT_FAILURE
;
2553 exit_status
= TAREXIT_SUCCESS
;
2554 filename_terminator
= '\n';
2555 set_quoting_style (0, DEFAULT_QUOTING_STYLE
);
2557 /* Make sure we have first three descriptors available */
2560 /* Pre-allocate a few structures. */
2562 allocated_archive_names
= 10;
2563 archive_name_array
=
2564 xmalloc (sizeof (const char *) * allocated_archive_names
);
2567 obstack_init (&argv_stk
);
2569 /* Ensure default behavior for some signals */
2570 signal (SIGPIPE
, SIG_IGN
);
2571 /* System V fork+wait does not work if SIGCHLD is ignored. */
2572 signal (SIGCHLD
, SIG_DFL
);
2574 /* Try to disable the ability to unlink a directory. */
2575 priv_set_remove_linkdir ();
2577 /* Decode options. */
2579 decode_options (argc
, argv
);
2583 /* Main command execution. */
2585 if (volno_file_option
)
2586 init_volume_number ();
2588 switch (subcommand_option
)
2590 case UNKNOWN_SUBCOMMAND
:
2592 _("You must specify one of the `-Acdtrux' or `--test-label' options")));
2594 case CAT_SUBCOMMAND
:
2595 case UPDATE_SUBCOMMAND
:
2596 case APPEND_SUBCOMMAND
:
2600 case DELETE_SUBCOMMAND
:
2601 delete_archive_members ();
2604 case CREATE_SUBCOMMAND
:
2608 case EXTRACT_SUBCOMMAND
:
2610 read_and (extract_archive
);
2612 /* FIXME: should extract_finish () even if an ordinary signal is
2618 case LIST_SUBCOMMAND
:
2619 read_and (list_archive
);
2622 case DIFF_SUBCOMMAND
:
2624 read_and (diff_archive
);
2627 case TEST_LABEL_SUBCOMMAND
:
2628 test_archive_label ();
2632 print_total_stats ();
2634 if (check_links_option
)
2637 if (volno_file_option
)
2638 closeout_volume_number ();
2640 /* Dispose of allocated memory, and return. */
2642 free (archive_name_array
);
2645 if (exit_status
== TAREXIT_FAILURE
)
2646 error (0, 0, _("Exiting with failure status due to previous errors"));
2648 if (stdlis
== stdout
)
2650 else if (ferror (stderr
) || fclose (stderr
) != 0)
2651 set_exit_status (TAREXIT_FAILURE
);
2657 tar_stat_init (struct tar_stat_info
*st
)
2659 memset (st
, 0, sizeof (*st
));
2663 tar_stat_destroy (struct tar_stat_info
*st
)
2665 free (st
->orig_file_name
);
2666 free (st
->file_name
);
2667 free (st
->link_name
);
2670 free (st
->sparse_map
);
2672 xheader_destroy (&st
->xhdr
);
2673 memset (st
, 0, sizeof (*st
));
2676 /* Format mask for all available formats that support nanosecond
2677 timestamp resolution. */
2678 #define NS_PRECISION_FORMAT_MASK FORMAT_MASK (POSIX_FORMAT)
2680 /* Same as timespec_cmp, but ignore nanoseconds if current archive
2681 format does not provide sufficient resolution. */
2683 tar_timespec_cmp (struct timespec a
, struct timespec b
)
2685 if (!(FORMAT_MASK (current_format
) & NS_PRECISION_FORMAT_MASK
))
2686 a
.tv_nsec
= b
.tv_nsec
= 0;
2687 return timespec_cmp (a
, b
);
2690 /* Set tar exit status to VAL, unless it is already indicating
2691 a more serious condition. This relies on the fact that the
2692 values of TAREXIT_ constants are ranged by severity. */
2694 set_exit_status (int val
)
2696 if (val
> exit_status
)