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>
30 #if ! defined SIGCHLD && defined SIGCLD
31 # define SIGCHLD SIGCLD
34 /* The following causes "common.h" to produce definitions of all the global
35 variables, rather than just "extern" declarations of them. GNU tar does
36 depend on the system loader to preset all GLOBAL variables to neutral (or
37 zero) values; explicit initialization is usually not done. */
43 #include <configmake.h>
47 #include <rmt-command.h>
50 #include <version-etc.h>
55 /* Local declarations. */
57 #ifndef DEFAULT_ARCHIVE_FORMAT
58 # define DEFAULT_ARCHIVE_FORMAT GNU_FORMAT
61 #ifndef DEFAULT_ARCHIVE
62 # define DEFAULT_ARCHIVE "tar.out"
65 #ifndef DEFAULT_BLOCKING
66 # define DEFAULT_BLOCKING 20
72 /* Name of option using stdin. */
73 static const char *stdin_used_by
;
75 /* Doesn't return if stdin already requested. */
77 request_stdin (const char *option
)
80 USAGE_ERROR ((0, 0, _("Options `-%s' and `-%s' both want standard input"),
81 stdin_used_by
, option
));
83 stdin_used_by
= option
;
86 extern int rpmatch (char const *response
);
88 /* Returns true if and only if the user typed an affirmative response. */
90 confirm (const char *message_action
, const char *message_name
)
92 static FILE *confirm_file
;
93 static int confirm_file_EOF
;
98 if (archive
== 0 || stdin_used_by
)
100 confirm_file
= fopen (TTY_NAME
, "r");
102 open_fatal (TTY_NAME
);
106 request_stdin ("-w");
107 confirm_file
= stdin
;
111 fprintf (stdlis
, "%s %s?", message_action
, quote (message_name
));
114 if (!confirm_file_EOF
)
116 char *response
= NULL
;
117 size_t response_size
= 0;
118 if (getline (&response
, &response_size
, confirm_file
) < 0)
119 confirm_file_EOF
= 1;
121 status
= rpmatch (response
) > 0;
125 if (confirm_file_EOF
)
127 fputc ('\n', stdlis
);
134 static struct fmttab
{
136 enum archive_format fmt
;
139 { "oldgnu", OLDGNU_FORMAT
},
140 { "ustar", USTAR_FORMAT
},
141 { "posix", POSIX_FORMAT
},
142 #if 0 /* not fully supported yet */
143 { "star", STAR_FORMAT
},
145 { "gnu", GNU_FORMAT
},
146 { "pax", POSIX_FORMAT
}, /* An alias for posix */
151 set_archive_format (char const *name
)
153 struct fmttab
const *p
;
155 for (p
= fmttab
; strcmp (p
->name
, name
) != 0; )
157 USAGE_ERROR ((0, 0, _("%s: Invalid archive format"),
158 quotearg_colon (name
)));
160 archive_format
= p
->fmt
;
164 archive_format_string (enum archive_format fmt
)
166 struct fmttab
const *p
;
168 for (p
= fmttab
; p
->name
; p
++)
174 #define FORMAT_MASK(n) (1<<(n))
177 assert_format(unsigned fmt_mask
)
179 if ((FORMAT_MASK (archive_format
) & fmt_mask
) == 0)
181 _("GNU features wanted on incompatible archive format")));
185 subcommand_string (enum subcommand c
)
189 case UNKNOWN_SUBCOMMAND
:
192 case APPEND_SUBCOMMAND
:
198 case CREATE_SUBCOMMAND
:
201 case DELETE_SUBCOMMAND
:
204 case DIFF_SUBCOMMAND
:
207 case EXTRACT_SUBCOMMAND
:
210 case LIST_SUBCOMMAND
:
213 case UPDATE_SUBCOMMAND
:
222 tar_list_quoting_styles (argp_fmtstream_t fs
, char *prefix
)
226 for (i
= 0; quoting_style_args
[i
]; i
++)
227 argp_fmtstream_printf (fs
, "%s%s\n", prefix
, quoting_style_args
[i
]);
231 tar_set_quoting_style (char *arg
)
235 for (i
= 0; quoting_style_args
[i
]; i
++)
236 if (strcmp (arg
, quoting_style_args
[i
]) == 0)
238 set_quoting_style (NULL
, i
);
242 _("Unknown quoting style `%s'. Try `%s --quoting-style=help' to get a list."), arg
, program_invocation_short_name
));
250 ANCHORED_OPTION
= CHAR_MAX
+ 1,
251 ATIME_PRESERVE_OPTION
,
255 CHECKPOINT_ACTION_OPTION
,
256 DELAY_DIRECTORY_RESTORE_OPTION
,
257 HARD_DEREFERENCE_OPTION
,
259 EXCLUDE_BACKUPS_OPTION
,
260 EXCLUDE_CACHES_OPTION
,
261 EXCLUDE_CACHES_UNDER_OPTION
,
262 EXCLUDE_CACHES_ALL_OPTION
,
265 EXCLUDE_TAG_UNDER_OPTION
,
266 EXCLUDE_TAG_ALL_OPTION
,
272 IGNORE_COMMAND_ERROR_OPTION
,
273 IGNORE_FAILED_READ_OPTION
,
275 KEEP_NEWER_FILES_OPTION
,
283 NO_AUTO_COMPRESS_OPTION
,
284 NO_CHECK_DEVICE_OPTION
,
285 NO_DELAY_DIRECTORY_RESTORE_OPTION
,
286 NO_IGNORE_CASE_OPTION
,
287 NO_IGNORE_COMMAND_ERROR_OPTION
,
289 NO_OVERWRITE_DIR_OPTION
,
290 NO_QUOTE_CHARS_OPTION
,
292 NO_SAME_OWNER_OPTION
,
293 NO_SAME_PERMISSIONS_OPTION
,
295 NO_WILDCARDS_MATCH_SLASH_OPTION
,
298 NUMERIC_OWNER_OPTION
,
301 ONE_FILE_SYSTEM_OPTION
,
302 OVERWRITE_DIR_OPTION
,
309 QUOTING_STYLE_OPTION
,
312 RECURSIVE_UNLINK_OPTION
,
318 SHOW_DEFAULTS_OPTION
,
319 SHOW_OMITTED_DIRS_OPTION
,
320 SHOW_TRANSFORMED_NAMES_OPTION
,
321 SPARSE_VERSION_OPTION
,
322 STRIP_COMPONENTS_OPTION
,
334 WILDCARDS_MATCH_SLASH_OPTION
,
338 const char *argp_program_version
= "tar (" PACKAGE_NAME
") " VERSION
;
339 const char *argp_program_bug_address
= "<" PACKAGE_BUGREPORT
">";
340 static char const doc
[] = N_("\
341 GNU `tar' saves many files together into a single tape or disk archive, \
342 and can restore individual files from the archive.\n\
345 tar -cf archive.tar foo bar # Create archive.tar from files foo and bar.\n\
346 tar -tvf archive.tar # List all files in archive.tar verbosely.\n\
347 tar -xf archive.tar # Extract all files from archive.tar.\n")
349 N_("The backup suffix is `~', unless set with --suffix or SIMPLE_BACKUP_SUFFIX.\n\
350 The version control may be set with --backup or VERSION_CONTROL, values are:\n\n\
351 none, off never make backups\n\
352 t, numbered make numbered backups\n\
353 nil, existing numbered if numbered backups exist, simple otherwise\n\
354 never, simple always make simple backups\n");
359 Available option letters are DEQY and eqy. Consider the following
362 [For Solaris tar compatibility =/= Is it important at all?]
363 e exit immediately with a nonzero exit status if unexpected errors occur
364 E use extended headers (--format=posix)
366 [q alias for --occurrence=1 =/= this would better be used for quiet?]
368 y per-file gzip compression
369 Y per-block gzip compression */
371 static struct argp_option options
[] = {
374 N_("Main operation mode:"), GRID
},
377 N_("list the contents of an archive"), GRID
+1 },
378 {"extract", 'x', 0, 0,
379 N_("extract files from an archive"), GRID
+1 },
380 {"get", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
381 {"create", 'c', 0, 0,
382 N_("create a new archive"), GRID
+1 },
384 N_("find differences between archive and file system"), GRID
+1 },
385 {"compare", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
386 {"append", 'r', 0, 0,
387 N_("append files to the end of an archive"), GRID
+1 },
388 {"update", 'u', 0, 0,
389 N_("only append files newer than copy in archive"), GRID
+1 },
390 {"catenate", 'A', 0, 0,
391 N_("append tar files to an archive"), GRID
+1 },
392 {"concatenate", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
393 {"delete", DELETE_OPTION
, 0, 0,
394 N_("delete from the archive (not on mag tapes!)"), GRID
+1 },
395 {"test-label", TEST_LABEL_OPTION
, NULL
, 0,
396 N_("test the archive volume label and exit"), GRID
+1 },
401 N_("Operation modifiers:"), GRID
},
403 {"sparse", 'S', 0, 0,
404 N_("handle sparse files efficiently"), GRID
+1 },
405 {"sparse-version", SPARSE_VERSION_OPTION
, N_("MAJOR[.MINOR]"), 0,
406 N_("set version of the sparse format to use (implies --sparse)"), GRID
+1},
407 {"incremental", 'G', 0, 0,
408 N_("handle old GNU-format incremental backup"), GRID
+1 },
409 {"listed-incremental", 'g', N_("FILE"), 0,
410 N_("handle new GNU-format incremental backup"), GRID
+1 },
411 {"level", LEVEL_OPTION
, N_("NUMBER"), 0,
412 N_("dump level for created listed-incremental archive"), GRID
+1 },
413 {"ignore-failed-read", IGNORE_FAILED_READ_OPTION
, 0, 0,
414 N_("do not exit with nonzero on unreadable files"), GRID
+1 },
415 {"occurrence", OCCURRENCE_OPTION
, N_("NUMBER"), OPTION_ARG_OPTIONAL
,
416 N_("process only the NUMBERth occurrence of each file in the archive;"
417 " this option is valid only in conjunction with one of the subcommands"
418 " --delete, --diff, --extract or --list and when a list of files"
419 " is given either on the command line or via the -T option;"
420 " NUMBER defaults to 1"), GRID
+1 },
421 {"seek", 'n', NULL
, 0,
422 N_("archive is seekable"), GRID
+1 },
423 {"no-check-device", NO_CHECK_DEVICE_OPTION
, NULL
, 0,
424 N_("do not check device numbers when creating incremental archives"),
426 {"check-device", CHECK_DEVICE_OPTION
, NULL
, 0,
427 N_("check device numbers when creating incremental archives (default)"),
433 N_("Overwrite control:"), GRID
},
435 {"verify", 'W', 0, 0,
436 N_("attempt to verify the archive after writing it"), GRID
+1 },
437 {"remove-files", REMOVE_FILES_OPTION
, 0, 0,
438 N_("remove files after adding them to the archive"), GRID
+1 },
439 {"keep-old-files", 'k', 0, 0,
440 N_("don't replace existing files when extracting"), GRID
+1 },
441 {"keep-newer-files", KEEP_NEWER_FILES_OPTION
, 0, 0,
442 N_("don't replace existing files that are newer than their archive copies"), GRID
+1 },
443 {"overwrite", OVERWRITE_OPTION
, 0, 0,
444 N_("overwrite existing files when extracting"), GRID
+1 },
445 {"unlink-first", 'U', 0, 0,
446 N_("remove each file prior to extracting over it"), GRID
+1 },
447 {"recursive-unlink", RECURSIVE_UNLINK_OPTION
, 0, 0,
448 N_("empty hierarchies prior to extracting directory"), GRID
+1 },
449 {"no-overwrite-dir", NO_OVERWRITE_DIR_OPTION
, 0, 0,
450 N_("preserve metadata of existing directories"), GRID
+1 },
451 {"overwrite-dir", OVERWRITE_DIR_OPTION
, 0, 0,
452 N_("overwrite metadata of existing directories when extracting (default)"),
458 N_("Select output stream:"), GRID
},
460 {"to-stdout", 'O', 0, 0,
461 N_("extract files to standard output"), GRID
+1 },
462 {"to-command", TO_COMMAND_OPTION
, N_("COMMAND"), 0,
463 N_("pipe extracted files to another program"), GRID
+1 },
464 {"ignore-command-error", IGNORE_COMMAND_ERROR_OPTION
, 0, 0,
465 N_("ignore exit codes of children"), GRID
+1 },
466 {"no-ignore-command-error", NO_IGNORE_COMMAND_ERROR_OPTION
, 0, 0,
467 N_("treat non-zero exit codes of children as error"), GRID
+1 },
472 N_("Handling of file attributes:"), GRID
},
474 {"owner", OWNER_OPTION
, N_("NAME"), 0,
475 N_("force NAME as owner for added files"), GRID
+1 },
476 {"group", GROUP_OPTION
, N_("NAME"), 0,
477 N_("force NAME as group for added files"), GRID
+1 },
478 {"mtime", MTIME_OPTION
, N_("DATE-OR-FILE"), 0,
479 N_("set mtime for added files from DATE-OR-FILE"), GRID
+1 },
480 {"mode", MODE_OPTION
, N_("CHANGES"), 0,
481 N_("force (symbolic) mode CHANGES for added files"), GRID
+1 },
482 {"atime-preserve", ATIME_PRESERVE_OPTION
,
483 N_("METHOD"), OPTION_ARG_OPTIONAL
,
484 N_("preserve access times on dumped files, either by restoring the times"
485 " after reading (METHOD='replace'; default) or by not setting the times"
486 " in the first place (METHOD='system')"), GRID
+1 },
488 N_("don't extract file modified time"), GRID
+1 },
489 {"same-owner", SAME_OWNER_OPTION
, 0, 0,
490 N_("try extracting files with the same ownership as exists in the archive (default for superuser)"), GRID
+1 },
491 {"no-same-owner", NO_SAME_OWNER_OPTION
, 0, 0,
492 N_("extract files as yourself (default for ordinary users)"), GRID
+1 },
493 {"numeric-owner", NUMERIC_OWNER_OPTION
, 0, 0,
494 N_("always use numbers for user/group names"), GRID
+1 },
495 {"preserve-permissions", 'p', 0, 0,
496 N_("extract information about file permissions (default for superuser)"),
498 {"same-permissions", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
499 {"no-same-permissions", NO_SAME_PERMISSIONS_OPTION
, 0, 0,
500 N_("apply the user's umask when extracting permissions from the archive (default for ordinary users)"), GRID
+1 },
501 {"preserve-order", 's', 0, 0,
502 N_("sort names to extract to match archive"), GRID
+1 },
503 {"same-order", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
504 {"preserve", PRESERVE_OPTION
, 0, 0,
505 N_("same as both -p and -s"), GRID
+1 },
506 {"delay-directory-restore", DELAY_DIRECTORY_RESTORE_OPTION
, 0, 0,
507 N_("delay setting modification times and permissions of extracted"
508 " directories until the end of extraction"), GRID
+1 },
509 {"no-delay-directory-restore", NO_DELAY_DIRECTORY_RESTORE_OPTION
, 0, 0,
510 N_("cancel the effect of --delay-directory-restore option"), GRID
+1 },
515 N_("Device selection and switching:"), GRID
},
517 {"file", 'f', N_("ARCHIVE"), 0,
518 N_("use archive file or device ARCHIVE"), GRID
+1 },
519 {"force-local", FORCE_LOCAL_OPTION
, 0, 0,
520 N_("archive file is local even if it has a colon"), GRID
+1 },
521 {"rmt-command", RMT_COMMAND_OPTION
, N_("COMMAND"), 0,
522 N_("use given rmt COMMAND instead of rmt"), GRID
+1 },
523 {"rsh-command", RSH_COMMAND_OPTION
, N_("COMMAND"), 0,
524 N_("use remote COMMAND instead of rsh"), GRID
+1 },
526 {"-[0-7][lmh]", 0, NULL
, OPTION_DOC
, /* It is OK, since `name' will never be
528 N_("specify drive and density"), GRID
+1 },
530 {NULL
, '0', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
531 {NULL
, '1', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
532 {NULL
, '2', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
533 {NULL
, '3', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
534 {NULL
, '4', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
535 {NULL
, '5', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
536 {NULL
, '6', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
537 {NULL
, '7', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
538 {NULL
, '8', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
539 {NULL
, '9', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
541 {"multi-volume", 'M', 0, 0,
542 N_("create/list/extract multi-volume archive"), GRID
+1 },
543 {"tape-length", 'L', N_("NUMBER"), 0,
544 N_("change tape after writing NUMBER x 1024 bytes"), GRID
+1 },
545 {"info-script", 'F', N_("NAME"), 0,
546 N_("run script at end of each tape (implies -M)"), GRID
+1 },
547 {"new-volume-script", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
548 {"volno-file", VOLNO_FILE_OPTION
, N_("FILE"), 0,
549 N_("use/update the volume number in FILE"), GRID
+1 },
554 N_("Device blocking:"), GRID
},
556 {"blocking-factor", 'b', N_("BLOCKS"), 0,
557 N_("BLOCKS x 512 bytes per record"), GRID
+1 },
558 {"record-size", RECORD_SIZE_OPTION
, N_("NUMBER"), 0,
559 N_("NUMBER of bytes per record, multiple of 512"), GRID
+1 },
560 {"ignore-zeros", 'i', 0, 0,
561 N_("ignore zeroed blocks in archive (means EOF)"), GRID
+1 },
562 {"read-full-records", 'B', 0, 0,
563 N_("reblock as we read (for 4.2BSD pipes)"), GRID
+1 },
568 N_("Archive format selection:"), GRID
},
570 {"format", 'H', N_("FORMAT"), 0,
571 N_("create archive of the given format"), GRID
+1 },
573 {NULL
, 0, NULL
, 0, N_("FORMAT is one of the following:"), GRID
+2 },
574 {" v7", 0, NULL
, OPTION_DOC
|OPTION_NO_TRANS
, N_("old V7 tar format"),
576 {" oldgnu", 0, NULL
, OPTION_DOC
|OPTION_NO_TRANS
,
577 N_("GNU format as per tar <= 1.12"), GRID
+3 },
578 {" gnu", 0, NULL
, OPTION_DOC
|OPTION_NO_TRANS
,
579 N_("GNU tar 1.13.x format"), GRID
+3 },
580 {" ustar", 0, NULL
, OPTION_DOC
|OPTION_NO_TRANS
,
581 N_("POSIX 1003.1-1988 (ustar) format"), GRID
+3 },
582 {" pax", 0, NULL
, OPTION_DOC
|OPTION_NO_TRANS
,
583 N_("POSIX 1003.1-2001 (pax) format"), GRID
+3 },
584 {" posix", 0, NULL
, OPTION_DOC
|OPTION_NO_TRANS
, N_("same as pax"), GRID
+3 },
586 {"old-archive", OLD_ARCHIVE_OPTION
, 0, 0, /* FIXME */
587 N_("same as --format=v7"), GRID
+8 },
588 {"portability", 0, 0, OPTION_ALIAS
, NULL
, GRID
+8 },
589 {"posix", POSIX_OPTION
, 0, 0,
590 N_("same as --format=posix"), GRID
+8 },
591 {"pax-option", PAX_OPTION
, N_("keyword[[:]=value][,keyword[[:]=value]]..."), 0,
592 N_("control pax keywords"), GRID
+8 },
593 {"label", 'V', N_("TEXT"), 0,
594 N_("create archive with volume name TEXT; at list/extract time, use TEXT as a globbing pattern for volume name"), GRID
+8 },
599 N_("Compression options:"), GRID
},
600 {"auto-compress", 'a', 0, 0,
601 N_("use archive suffix to determine the compression program"), GRID
+1 },
602 {"no-auto-compress", NO_AUTO_COMPRESS_OPTION
, 0, 0,
603 N_("do not use archive suffix to determine the compression program"),
606 N_("filter the archive through bzip2"), GRID
+1 },
608 N_("filter the archive through gzip"), GRID
+1 },
609 {"gunzip", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
610 {"ungzip", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
611 {"compress", 'Z', 0, 0,
612 N_("filter the archive through compress"), GRID
+1 },
613 {"uncompress", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
614 {"lzma", LZMA_OPTION
, 0, 0,
615 N_("filter the archive through lzma"), GRID
+1 },
616 {"lzop", LZOP_OPTION
, 0, 0,
617 N_("filter the archive through lzop"), GRID
+8 },
619 N_("filter the archive through xz"), GRID
+8 },
620 {"use-compress-program", 'I', N_("PROG"), 0,
621 N_("filter through PROG (must accept -d)"), GRID
+1 },
626 N_("Local file selection:"), GRID
},
628 {"add-file", ARGP_KEY_ARG
, N_("FILE"), 0,
629 N_("add given FILE to the archive (useful if its name starts with a dash)"), GRID
+1 },
630 {"directory", 'C', N_("DIR"), 0,
631 N_("change to directory DIR"), GRID
+1 },
632 {"files-from", 'T', N_("FILE"), 0,
633 N_("get names to extract or create from FILE"), GRID
+1 },
634 {"null", NULL_OPTION
, 0, 0,
635 N_("-T reads null-terminated names, disable -C"), GRID
+1 },
636 {"no-null", NO_NULL_OPTION
, 0, 0,
637 N_("disable the effect of the previous --null option"), GRID
+1 },
638 {"unquote", UNQUOTE_OPTION
, 0, 0,
639 N_("unquote filenames read with -T (default)"), GRID
+1 },
640 {"no-unquote", NO_UNQUOTE_OPTION
, 0, 0,
641 N_("do not unquote filenames read with -T"), GRID
+1 },
642 {"exclude", EXCLUDE_OPTION
, N_("PATTERN"), 0,
643 N_("exclude files, given as a PATTERN"), GRID
+1 },
644 {"exclude-from", 'X', N_("FILE"), 0,
645 N_("exclude patterns listed in FILE"), GRID
+1 },
646 {"exclude-caches", EXCLUDE_CACHES_OPTION
, 0, 0,
647 N_("exclude contents of directories containing CACHEDIR.TAG, "
648 "except for the tag file itself"), GRID
+1 },
649 {"exclude-caches-under", EXCLUDE_CACHES_UNDER_OPTION
, 0, 0,
650 N_("exclude everything under directories containing CACHEDIR.TAG"),
652 {"exclude-caches-all", EXCLUDE_CACHES_ALL_OPTION
, 0, 0,
653 N_("exclude directories containing CACHEDIR.TAG"), GRID
+1 },
654 {"exclude-tag", EXCLUDE_TAG_OPTION
, N_("FILE"), 0,
655 N_("exclude contents of directories containing FILE, except"
656 " for FILE itself"), GRID
+1 },
657 {"exclude-tag-under", EXCLUDE_TAG_UNDER_OPTION
, N_("FILE"), 0,
658 N_("exclude everything under directories containing FILE"), GRID
+1 },
659 {"exclude-tag-all", EXCLUDE_TAG_ALL_OPTION
, N_("FILE"), 0,
660 N_("exclude directories containing FILE"), GRID
+1 },
661 {"exclude-vcs", EXCLUDE_VCS_OPTION
, NULL
, 0,
662 N_("exclude version control system directories"), GRID
+1 },
663 {"exclude-backups", EXCLUDE_BACKUPS_OPTION
, NULL
, 0,
664 N_("exclude backup and lock files"), GRID
+1 },
665 {"no-recursion", NO_RECURSION_OPTION
, 0, 0,
666 N_("avoid descending automatically in directories"), GRID
+1 },
667 {"one-file-system", ONE_FILE_SYSTEM_OPTION
, 0, 0,
668 N_("stay in local file system when creating archive"), GRID
+1 },
669 {"recursion", RECURSION_OPTION
, 0, 0,
670 N_("recurse into directories (default)"), GRID
+1 },
671 {"absolute-names", 'P', 0, 0,
672 N_("don't strip leading `/'s from file names"), GRID
+1 },
673 {"dereference", 'h', 0, 0,
674 N_("follow symlinks; archive and dump the files they point to"), GRID
+1 },
675 {"hard-dereference", HARD_DEREFERENCE_OPTION
, 0, 0,
676 N_("follow hard links; archive and dump the files they refer to"), GRID
+1 },
677 {"starting-file", 'K', N_("MEMBER-NAME"), 0,
678 N_("begin at member MEMBER-NAME in the archive"), GRID
+1 },
679 {"newer", 'N', N_("DATE-OR-FILE"), 0,
680 N_("only store files newer than DATE-OR-FILE"), GRID
+1 },
681 {"after-date", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
682 {"newer-mtime", NEWER_MTIME_OPTION
, N_("DATE"), 0,
683 N_("compare date and time when data changed only"), GRID
+1 },
684 {"backup", BACKUP_OPTION
, N_("CONTROL"), OPTION_ARG_OPTIONAL
,
685 N_("backup before removal, choose version CONTROL"), GRID
+1 },
686 {"suffix", SUFFIX_OPTION
, N_("STRING"), 0,
687 N_("backup before removal, override usual suffix ('~' unless overridden by environment variable SIMPLE_BACKUP_SUFFIX)"), GRID
+1 },
692 N_("File name transformations:"), GRID
},
693 {"strip-components", STRIP_COMPONENTS_OPTION
, N_("NUMBER"), 0,
694 N_("strip NUMBER leading components from file names on extraction"),
696 {"transform", TRANSFORM_OPTION
, N_("EXPRESSION"), 0,
697 N_("use sed replace EXPRESSION to transform file names"), GRID
+1 },
698 {"xform", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
703 N_("File name matching options (affect both exclude and include patterns):"),
705 {"ignore-case", IGNORE_CASE_OPTION
, 0, 0,
706 N_("ignore case"), GRID
+1 },
707 {"anchored", ANCHORED_OPTION
, 0, 0,
708 N_("patterns match file name start"), GRID
+1 },
709 {"no-anchored", NO_ANCHORED_OPTION
, 0, 0,
710 N_("patterns match after any `/' (default for exclusion)"), GRID
+1 },
711 {"no-ignore-case", NO_IGNORE_CASE_OPTION
, 0, 0,
712 N_("case sensitive matching (default)"), GRID
+1 },
713 {"wildcards", WILDCARDS_OPTION
, 0, 0,
714 N_("use wildcards (default for exclusion)"), GRID
+1 },
715 {"no-wildcards", NO_WILDCARDS_OPTION
, 0, 0,
716 N_("verbatim string matching"), GRID
+1 },
717 {"no-wildcards-match-slash", NO_WILDCARDS_MATCH_SLASH_OPTION
, 0, 0,
718 N_("wildcards do not match `/'"), GRID
+1 },
719 {"wildcards-match-slash", WILDCARDS_MATCH_SLASH_OPTION
, 0, 0,
720 N_("wildcards match `/' (default for exclusion)"), GRID
+1 },
725 N_("Informative output:"), GRID
},
727 {"verbose", 'v', 0, 0,
728 N_("verbosely list files processed"), GRID
+1 },
729 {"warning", WARNING_OPTION
, N_("KEYWORD"), 0,
730 N_("warning control"), GRID
+1 },
731 {"checkpoint", CHECKPOINT_OPTION
, N_("NUMBER"), OPTION_ARG_OPTIONAL
,
732 N_("display progress messages every NUMBERth record (default 10)"),
734 {"checkpoint-action", CHECKPOINT_ACTION_OPTION
, N_("ACTION"), 0,
735 N_("execute ACTION on each checkpoint"),
737 {"check-links", 'l', 0, 0,
738 N_("print a message if not all links are dumped"), GRID
+1 },
739 {"totals", TOTALS_OPTION
, N_("SIGNAL"), OPTION_ARG_OPTIONAL
,
740 N_("print total bytes after processing the archive; "
741 "with an argument - print total bytes when this SIGNAL is delivered; "
742 "Allowed signals are: SIGHUP, SIGQUIT, SIGINT, SIGUSR1 and SIGUSR2; "
743 "the names without SIG prefix are also accepted"), GRID
+1 },
744 {"utc", UTC_OPTION
, 0, 0,
745 N_("print file modification dates in UTC"), GRID
+1 },
746 {"index-file", INDEX_FILE_OPTION
, N_("FILE"), 0,
747 N_("send verbose output to FILE"), GRID
+1 },
748 {"block-number", 'R', 0, 0,
749 N_("show block number within archive with each message"), GRID
+1 },
750 {"interactive", 'w', 0, 0,
751 N_("ask for confirmation for every action"), GRID
+1 },
752 {"confirmation", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
753 {"show-defaults", SHOW_DEFAULTS_OPTION
, 0, 0,
754 N_("show tar defaults"), GRID
+1 },
755 {"show-omitted-dirs", SHOW_OMITTED_DIRS_OPTION
, 0, 0,
756 N_("when listing or extracting, list each directory that does not match search criteria"), GRID
+1 },
757 {"show-transformed-names", SHOW_TRANSFORMED_NAMES_OPTION
, 0, 0,
758 N_("show file or archive names after transformation"),
760 {"show-stored-names", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
761 {"quoting-style", QUOTING_STYLE_OPTION
, N_("STYLE"), 0,
762 N_("set name quoting style; see below for valid STYLE values"), GRID
+1 },
763 {"quote-chars", QUOTE_CHARS_OPTION
, N_("STRING"), 0,
764 N_("additionally quote characters from STRING"), GRID
+1 },
765 {"no-quote-chars", NO_QUOTE_CHARS_OPTION
, N_("STRING"), 0,
766 N_("disable quoting for characters from STRING"), GRID
+1 },
771 N_("Compatibility options:"), GRID
},
774 N_("when creating, same as --old-archive; when extracting, same as --no-same-owner"), GRID
+1 },
779 N_("Other options:"), GRID
},
781 {"restrict", RESTRICT_OPTION
, 0, 0,
782 N_("disable use of some potentially harmful options"), -1 },
784 {"help", '?', 0, 0, N_("give this help list"), -1},
785 {"usage", USAGE_OPTION
, 0, 0, N_("give a short usage message"), -1},
786 {"version", VERSION_OPTION
, 0, 0, N_("print program version"), -1},
787 /* FIXME -V (--label) conflicts with the default short option for
789 {"HANG", HANG_OPTION
, "SECS", OPTION_ARG_OPTIONAL
| OPTION_HIDDEN
,
790 N_("hang for SECS seconds (default 3600)"), 0},
796 static char const *const atime_preserve_args
[] =
798 "replace", "system", NULL
801 static enum atime_preserve
const atime_preserve_types
[] =
803 replace_atime_preserve
, system_atime_preserve
806 /* Make sure atime_preserve_types has as much entries as atime_preserve_args
807 (minus 1 for NULL guard) */
808 ARGMATCH_VERIFY (atime_preserve_args
, atime_preserve_types
);
810 /* Wildcard matching settings */
813 default_wildcards
, /* For exclusion == enable_wildcards,
814 for inclusion == disable_wildcards */
819 struct tar_args
/* Variables used during option parsing */
821 struct textual_date
*textual_date
; /* Keeps the arguments to --newer-mtime
822 and/or --date option if they are
824 enum wildcards wildcards
; /* Wildcard settings (--wildcards/
826 int matching_flags
; /* exclude_fnmatch options */
827 int include_anchored
; /* Pattern anchoring options used for
829 bool o_option
; /* True if -o option was given */
830 bool pax_option
; /* True if --pax-option was given */
831 char const *backup_suffix_string
; /* --suffix option argument */
832 char const *version_control_string
; /* --backup option argument */
833 bool input_files
; /* True if some input files where given */
834 int compress_autodetect
; /* True if compression autodetection should
835 be attempted when creating archives */
839 #define MAKE_EXCL_OPTIONS(args) \
840 ((((args)->wildcards != disable_wildcards) ? EXCLUDE_WILDCARDS : 0) \
841 | (args)->matching_flags \
844 #define MAKE_INCL_OPTIONS(args) \
845 ((((args)->wildcards == enable_wildcards) ? EXCLUDE_WILDCARDS : 0) \
846 | (args)->include_anchored \
847 | (args)->matching_flags \
850 static char const * const vcs_file_table
[] = {
882 static char const * const backup_file_table
[] = {
890 add_exclude_array (char const * const * fv
)
894 for (i
= 0; fv
[i
]; i
++)
895 add_exclude (excluded
, fv
[i
], 0);
900 # define DECL_SHOW_DEFAULT_SETTINGS(stream, printer) \
903 "--format=%s -f%s -b%d --quoting-style=%s --rmt-command=%s", \
904 archive_format_string (DEFAULT_ARCHIVE_FORMAT), \
905 DEFAULT_ARCHIVE, DEFAULT_BLOCKING, \
906 quoting_style_args[DEFAULT_QUOTING_STYLE], \
907 DEFAULT_RMT_COMMAND); \
908 printer (stream, " --rsh-command=%s", REMOTE_SHELL); \
909 printer (stream, "\n"); \
912 # define DECL_SHOW_DEFAULT_SETTINGS(stream, printer) \
915 "--format=%s -f%s -b%d --quoting-style=%s --rmt-command=%s", \
916 archive_format_string (DEFAULT_ARCHIVE_FORMAT), \
917 DEFAULT_ARCHIVE, DEFAULT_BLOCKING, \
918 quoting_style_args[DEFAULT_QUOTING_STYLE], \
919 DEFAULT_RMT_COMMAND); \
920 printer (stream, "\n"); \
925 show_default_settings (FILE *fp
)
926 DECL_SHOW_DEFAULT_SETTINGS(fp
, fprintf
)
929 show_default_settings_fs (argp_fmtstream_t fs
)
930 DECL_SHOW_DEFAULT_SETTINGS(fs
, argp_fmtstream_printf
)
933 set_subcommand_option (enum subcommand subcommand
)
935 if (subcommand_option
!= UNKNOWN_SUBCOMMAND
936 && subcommand_option
!= subcommand
)
938 _("You may not specify more than one `-Acdtrux' option")));
940 subcommand_option
= subcommand
;
944 set_use_compress_program_option (const char *string
)
946 if (use_compress_program_option
947 && strcmp (use_compress_program_option
, string
) != 0)
948 USAGE_ERROR ((0, 0, _("Conflicting compression options")));
950 use_compress_program_option
= string
;
957 print_total_stats ();
958 #ifndef HAVE_SIGACTION
959 signal (signo
, sigstat
);
964 stat_on_signal (int signo
)
966 #ifdef HAVE_SIGACTION
967 struct sigaction act
;
968 act
.sa_handler
= sigstat
;
969 sigemptyset (&act
.sa_mask
);
971 sigaction (signo
, &act
, NULL
);
973 signal (signo
, sigstat
);
978 set_stat_signal (const char *name
)
985 { "SIGUSR1", SIGUSR1
},
987 { "SIGUSR2", SIGUSR2
},
989 { "SIGHUP", SIGHUP
},
991 { "SIGINT", SIGINT
},
993 { "SIGQUIT", SIGQUIT
},
998 for (p
= sigtab
; p
< sigtab
+ sizeof (sigtab
) / sizeof (sigtab
[0]); p
++)
999 if (strcmp (p
->name
, name
) == 0)
1001 stat_on_signal (p
->signo
);
1004 FATAL_ERROR ((0, 0, _("Unknown signal name: %s"), name
));
1010 struct textual_date
*next
;
1011 struct timespec
*ts
;
1017 get_date_or_file (struct tar_args
*args
, const char *option
,
1018 const char *str
, struct timespec
*ts
)
1020 if (FILE_SYSTEM_PREFIX_LEN (str
) != 0
1025 if (deref_stat (dereference_option
, str
, &st
) != 0)
1028 USAGE_ERROR ((0, 0, _("Date sample file not found")));
1030 *ts
= get_stat_mtime (&st
);
1034 if (! get_date (ts
, str
, NULL
))
1036 WARN ((0, 0, _("Substituting %s for unknown date format %s"),
1037 tartime (*ts
, false), quote (str
)));
1042 struct textual_date
*p
= xmalloc (sizeof (*p
));
1046 p
->next
= args
->textual_date
;
1047 args
->textual_date
= p
;
1053 report_textual_dates (struct tar_args
*args
)
1055 struct textual_date
*p
;
1056 for (p
= args
->textual_date
; p
; )
1058 struct textual_date
*next
= p
->next
;
1059 char const *treated_as
= tartime (*p
->ts
, true);
1060 if (strcmp (p
->date
, treated_as
) != 0)
1061 WARN ((0, 0, _("Option %s: Treating date `%s' as %s"),
1062 p
->option
, p
->date
, treated_as
));
1069 static volatile int _argp_hang
;
1071 /* Either NL or NUL, as decided by the --null option. */
1072 static char filename_terminator
;
1074 enum read_file_list_state
/* Result of reading file name from the list file */
1076 file_list_success
, /* OK, name read successfully */
1077 file_list_end
, /* End of list file */
1078 file_list_zero
, /* Zero separator encountered where it should not */
1079 file_list_skip
/* Empty (zero-length) entry encountered, skip it */
1082 /* Read from FP a sequence of characters up to TERM and put them
1085 static enum read_file_list_state
1086 read_name_from_file (FILE *fp
, struct obstack
*stk
, int term
)
1091 for (c
= getc (fp
); c
!= EOF
&& c
!= term
; c
= getc (fp
))
1095 /* We have read a zero separator. The file possibly is
1097 return file_list_zero
;
1099 obstack_1grow (stk
, c
);
1103 if (counter
== 0 && c
!= EOF
)
1104 return file_list_skip
;
1106 obstack_1grow (stk
, 0);
1108 return (counter
== 0 && c
== EOF
) ? file_list_end
: file_list_success
;
1112 static bool files_from_option
; /* When set, tar will not refuse to create
1114 static struct obstack argv_stk
; /* Storage for additional command line options
1115 read using -T option */
1117 /* Prevent recursive inclusion of the same file */
1120 struct file_id_list
*next
;
1125 static struct file_id_list
*file_id_list
;
1128 add_file_id (const char *filename
)
1130 struct file_id_list
*p
;
1133 if (stat (filename
, &st
))
1134 stat_fatal (filename
);
1135 for (p
= file_id_list
; p
; p
= p
->next
)
1136 if (p
->ino
== st
.st_ino
&& p
->dev
== st
.st_dev
)
1138 FATAL_ERROR ((0, 0, _("%s: file list already read"),
1139 quotearg_colon (filename
)));
1141 p
= xmalloc (sizeof *p
);
1142 p
->next
= file_id_list
;
1148 /* Default density numbers for [0-9][lmh] device specifications */
1150 #ifndef LOW_DENSITY_NUM
1151 # define LOW_DENSITY_NUM 0
1154 #ifndef MID_DENSITY_NUM
1155 # define MID_DENSITY_NUM 8
1158 #ifndef HIGH_DENSITY_NUM
1159 # define HIGH_DENSITY_NUM 16
1163 update_argv (const char *filename
, struct argp_state
*state
)
1166 size_t count
= 0, i
;
1170 bool is_stdin
= false;
1171 enum read_file_list_state read_state
;
1172 int term
= filename_terminator
;
1174 if (!strcmp (filename
, "-"))
1177 request_stdin ("-T");
1182 add_file_id (filename
);
1183 if ((fp
= fopen (filename
, "r")) == NULL
)
1184 open_fatal (filename
);
1187 while ((read_state
= read_name_from_file (fp
, &argv_stk
, term
))
1192 case file_list_success
:
1196 case file_list_end
: /* won't happen, just to pacify gcc */
1199 case file_list_zero
:
1203 WARNOPT (WARN_FILENAME_WITH_NULS
,
1204 (0, 0, N_("%s: file name read contains nul character"),
1205 quotearg_colon (filename
)));
1207 /* Prepare new stack contents */
1208 size
= obstack_object_size (&argv_stk
);
1209 p
= obstack_finish (&argv_stk
);
1210 for (; size
> 0; size
--, p
++)
1212 obstack_1grow (&argv_stk
, *p
);
1214 obstack_1grow (&argv_stk
, '\n');
1215 obstack_1grow (&argv_stk
, 0);
1217 /* Read rest of files using new filename terminator */
1222 case file_list_skip
:
1233 start
= obstack_finish (&argv_stk
);
1236 for (p
= start
; *p
; p
+= strlen (p
) + 1)
1240 new_argc
= state
->argc
+ count
;
1241 new_argv
= xmalloc (sizeof (state
->argv
[0]) * (new_argc
+ 1));
1242 memcpy (new_argv
, state
->argv
, sizeof (state
->argv
[0]) * (state
->argc
+ 1));
1243 state
->argv
= new_argv
;
1244 memmove (&state
->argv
[state
->next
+ count
], &state
->argv
[state
->next
],
1245 (state
->argc
- state
->next
+ 1) * sizeof (state
->argv
[0]));
1247 state
->argc
= new_argc
;
1249 for (i
= state
->next
, p
= start
; *p
; p
+= strlen (p
) + 1, i
++)
1251 if (term
== 0 && p
[0] == '-')
1252 state
->argv
[i
++] = "--add-file";
1259 tar_help (struct argp_state
*state
)
1261 argp_fmtstream_t fs
;
1262 state
->flags
|= ARGP_NO_EXIT
;
1263 argp_state_help (state
, state
->out_stream
,
1264 ARGP_HELP_STD_HELP
& ~ARGP_HELP_BUG_ADDR
);
1265 /* FIXME: use struct uparams.rmargin (from argp-help.c) instead of 79 */
1266 fs
= argp_make_fmtstream (state
->out_stream
, 0, 79, 0);
1268 argp_fmtstream_printf (fs
, "\n%s\n\n",
1269 _("Valid arguments for --quoting-style options are:"));
1270 tar_list_quoting_styles (fs
, " ");
1272 argp_fmtstream_puts (fs
, _("\n*This* tar defaults to:\n"));
1273 show_default_settings_fs (fs
);
1274 argp_fmtstream_putc (fs
, '\n');
1275 argp_fmtstream_printf (fs
, _("Report bugs to %s.\n"),
1276 argp_program_bug_address
);
1277 argp_fmtstream_free (fs
);
1281 parse_opt (int key
, char *arg
, struct argp_state
*state
)
1283 struct tar_args
*args
= state
->input
;
1288 /* File name or non-parsed option, because of ARGP_IN_ORDER */
1289 name_add_name (arg
, MAKE_INCL_OPTIONS (args
));
1290 args
->input_files
= true;
1294 set_subcommand_option (CAT_SUBCOMMAND
);
1298 args
->compress_autodetect
= true;
1301 case NO_AUTO_COMPRESS_OPTION
:
1302 args
->compress_autodetect
= false;
1308 if (! (xstrtoumax (arg
, 0, 10, &u
, "") == LONGINT_OK
1309 && u
== (blocking_factor
= u
)
1310 && 0 < blocking_factor
1311 && u
== (record_size
= u
* BLOCKSIZE
) / BLOCKSIZE
))
1312 USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1313 _("Invalid blocking factor")));
1318 /* Try to reblock input records. For reading 4.2BSD pipes. */
1320 /* It would surely make sense to exchange -B and -R, but it seems
1321 that -B has been used for a long while in Sun tar and most
1322 BSD-derived systems. This is a consequence of the block/record
1323 terminology confusion. */
1325 read_full_records_option
= true;
1329 set_subcommand_option (CREATE_SUBCOMMAND
);
1337 set_subcommand_option (DIFF_SUBCOMMAND
);
1341 if (archive_names
== allocated_archive_names
)
1342 archive_name_array
= x2nrealloc (archive_name_array
,
1343 &allocated_archive_names
,
1344 sizeof (archive_name_array
[0]));
1346 archive_name_array
[archive_names
++] = arg
;
1350 /* Since -F is only useful with -M, make it implied. Run this
1351 script at the end of each tape. */
1353 info_script_option
= arg
;
1354 multi_volume_option
= true;
1358 listed_incremental_option
= arg
;
1359 after_date_option
= true;
1363 /* We are making an incremental dump (FIXME: are we?); save
1364 directories at the beginning of the archive, and include in each
1365 directory its contents. */
1367 incremental_option
= true;
1371 /* Follow symbolic links. */
1372 dereference_option
= true;
1375 case HARD_DEREFERENCE_OPTION
:
1376 hard_dereference_option
= true;
1380 /* Ignore zero blocks (eofs). This can't be the default,
1381 because Unix tar writes two blocks of zeros, then pads out
1382 the record with garbage. */
1384 ignore_zeros_option
= true;
1388 set_use_compress_program_option ("bzip2");
1392 set_use_compress_program_option ("xz");
1396 /* Don't replace existing files. */
1397 old_files_option
= KEEP_OLD_FILES
;
1401 starting_file_option
= true;
1402 addname (arg
, 0, true, NULL
);
1405 case ONE_FILE_SYSTEM_OPTION
:
1406 /* When dumping directories, don't dump files/subdirectories
1407 that are on other filesystems. */
1408 one_file_system_option
= true;
1412 check_links_option
= 1;
1418 if (xstrtoumax (arg
, 0, 10, &u
, "") != LONGINT_OK
)
1419 USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1420 _("Invalid tape length")));
1421 tape_length_option
= 1024 * (tarlong
) u
;
1422 multi_volume_option
= true;
1429 incremental_level
= strtoul (arg
, &p
, 10);
1431 USAGE_ERROR ((0, 0, _("Invalid incremental level value")));
1436 set_use_compress_program_option ("lzma");
1440 set_use_compress_program_option ("lzop");
1444 touch_option
= true;
1448 /* Make multivolume archive: when we can't write any more into
1449 the archive, re-open it, and continue writing. */
1451 multi_volume_option
= true;
1455 get_date_or_file (args
, "--mtime", arg
, &mtime_option
);
1456 set_mtime_option
= true;
1460 seekable_archive
= true;
1464 after_date_option
= true;
1467 case NEWER_MTIME_OPTION
:
1468 if (NEWER_OPTION_INITIALIZED (newer_mtime_option
))
1469 USAGE_ERROR ((0, 0, _("More than one threshold date")));
1470 get_date_or_file (args
,
1471 key
== NEWER_MTIME_OPTION
? "--newer-mtime"
1472 : "--after-date", arg
, &newer_mtime_option
);
1476 args
->o_option
= true;
1480 to_stdout_option
= true;
1484 same_permissions_option
= true;
1488 absolute_names_option
= true;
1492 set_subcommand_option (APPEND_SUBCOMMAND
);
1496 /* Print block numbers for debugging bad tar archives. */
1498 /* It would surely make sense to exchange -B and -R, but it seems
1499 that -B has been used for a long while in Sun tar and most
1500 BSD-derived systems. This is a consequence of the block/record
1501 terminology confusion. */
1503 block_number_option
= true;
1507 /* Names to extract are sorted. */
1509 same_order_option
= true;
1513 sparse_option
= true;
1516 case SPARSE_VERSION_OPTION
:
1517 sparse_option
= true;
1520 tar_sparse_major
= strtoul (arg
, &p
, 10);
1524 USAGE_ERROR ((0, 0, _("Invalid sparse version value")));
1525 tar_sparse_minor
= strtoul (p
+ 1, &p
, 10);
1527 USAGE_ERROR ((0, 0, _("Invalid sparse version value")));
1533 set_subcommand_option (LIST_SUBCOMMAND
);
1537 case TEST_LABEL_OPTION
:
1538 set_subcommand_option (LIST_SUBCOMMAND
);
1539 test_label_option
= true;
1543 update_argv (arg
, state
);
1544 /* Indicate we've been given -T option. This is for backward
1545 compatibility only, so that `tar cfT archive /dev/null will
1547 files_from_option
= true;
1551 set_subcommand_option (UPDATE_SUBCOMMAND
);
1555 old_files_option
= UNLINK_FIRST_OLD_FILES
;
1564 warning_option
|= WARN_VERBOSE_WARNINGS
;
1568 volume_label_option
= arg
;
1572 interactive_option
= true;
1576 verify_option
= true;
1580 set_subcommand_option (EXTRACT_SUBCOMMAND
);
1584 if (add_exclude_file (add_exclude
, excluded
, arg
,
1585 MAKE_EXCL_OPTIONS (args
), '\n')
1589 FATAL_ERROR ((0, e
, "%s", quotearg_colon (arg
)));
1594 set_use_compress_program_option ("gzip");
1598 set_use_compress_program_option ("compress");
1601 case ANCHORED_OPTION
:
1602 args
->matching_flags
|= EXCLUDE_ANCHORED
;
1605 case ATIME_PRESERVE_OPTION
:
1606 atime_preserve_option
=
1608 ? XARGMATCH ("--atime-preserve", arg
,
1609 atime_preserve_args
, atime_preserve_types
)
1610 : replace_atime_preserve
);
1611 if (! O_NOATIME
&& atime_preserve_option
== system_atime_preserve
)
1613 _("--atime-preserve='system' is not supported"
1614 " on this platform")));
1617 case CHECK_DEVICE_OPTION
:
1618 check_device_option
= true;
1621 case NO_CHECK_DEVICE_OPTION
:
1622 check_device_option
= false;
1625 case CHECKPOINT_OPTION
:
1632 checkpoint_compile_action (".");
1635 checkpoint_option
= strtoul (arg
, &p
, 0);
1638 _("--checkpoint value is not an integer")));
1641 checkpoint_option
= DEFAULT_CHECKPOINT
;
1644 case CHECKPOINT_ACTION_OPTION
:
1645 checkpoint_compile_action (arg
);
1649 backup_option
= true;
1651 args
->version_control_string
= arg
;
1654 case DELAY_DIRECTORY_RESTORE_OPTION
:
1655 delay_directory_restore_option
= true;
1658 case NO_DELAY_DIRECTORY_RESTORE_OPTION
:
1659 delay_directory_restore_option
= false;
1663 set_subcommand_option (DELETE_SUBCOMMAND
);
1666 case EXCLUDE_BACKUPS_OPTION
:
1667 add_exclude_array (backup_file_table
);
1670 case EXCLUDE_OPTION
:
1671 add_exclude (excluded
, arg
, MAKE_EXCL_OPTIONS (args
));
1674 case EXCLUDE_CACHES_OPTION
:
1675 add_exclusion_tag ("CACHEDIR.TAG", exclusion_tag_contents
,
1679 case EXCLUDE_CACHES_UNDER_OPTION
:
1680 add_exclusion_tag ("CACHEDIR.TAG", exclusion_tag_under
,
1684 case EXCLUDE_CACHES_ALL_OPTION
:
1685 add_exclusion_tag ("CACHEDIR.TAG", exclusion_tag_all
,
1689 case EXCLUDE_TAG_OPTION
:
1690 add_exclusion_tag (arg
, exclusion_tag_contents
, NULL
);
1693 case EXCLUDE_TAG_UNDER_OPTION
:
1694 add_exclusion_tag (arg
, exclusion_tag_under
, NULL
);
1697 case EXCLUDE_TAG_ALL_OPTION
:
1698 add_exclusion_tag (arg
, exclusion_tag_all
, NULL
);
1701 case EXCLUDE_VCS_OPTION
:
1702 add_exclude_array (vcs_file_table
);
1705 case FORCE_LOCAL_OPTION
:
1706 force_local_option
= true;
1710 set_archive_format (arg
);
1713 case INDEX_FILE_OPTION
:
1714 index_file_name
= arg
;
1717 case IGNORE_CASE_OPTION
:
1718 args
->matching_flags
|= FNM_CASEFOLD
;
1721 case IGNORE_COMMAND_ERROR_OPTION
:
1722 ignore_command_error_option
= true;
1725 case IGNORE_FAILED_READ_OPTION
:
1726 ignore_failed_read_option
= true;
1729 case KEEP_NEWER_FILES_OPTION
:
1730 old_files_option
= KEEP_NEWER_FILES
;
1734 if (! (strlen (arg
) < GNAME_FIELD_SIZE
1735 && gname_to_gid (arg
, &group_option
)))
1738 if (xstrtoumax (arg
, 0, 10, &g
, "") == LONGINT_OK
1742 FATAL_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1743 _("%s: Invalid group")));
1748 mode_option
= mode_compile (arg
);
1750 FATAL_ERROR ((0, 0, _("Invalid mode given on option")));
1751 initial_umask
= umask (0);
1752 umask (initial_umask
);
1755 case NO_ANCHORED_OPTION
:
1756 args
->include_anchored
= 0; /* Clear the default for comman line args */
1757 args
->matching_flags
&= ~ EXCLUDE_ANCHORED
;
1760 case NO_IGNORE_CASE_OPTION
:
1761 args
->matching_flags
&= ~ FNM_CASEFOLD
;
1764 case NO_IGNORE_COMMAND_ERROR_OPTION
:
1765 ignore_command_error_option
= false;
1768 case NO_OVERWRITE_DIR_OPTION
:
1769 old_files_option
= NO_OVERWRITE_DIR_OLD_FILES
;
1772 case NO_QUOTE_CHARS_OPTION
:
1774 set_char_quoting (NULL
, *arg
, 0);
1777 case NO_WILDCARDS_OPTION
:
1778 args
->wildcards
= disable_wildcards
;
1781 case NO_WILDCARDS_MATCH_SLASH_OPTION
:
1782 args
->matching_flags
|= FNM_FILE_NAME
;
1786 filename_terminator
= '\0';
1789 case NO_NULL_OPTION
:
1790 filename_terminator
= '\n';
1793 case NUMERIC_OWNER_OPTION
:
1794 numeric_owner_option
= true;
1797 case OCCURRENCE_OPTION
:
1799 occurrence_option
= 1;
1803 if (xstrtoumax (arg
, 0, 10, &u
, "") == LONGINT_OK
)
1804 occurrence_option
= u
;
1806 FATAL_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1807 _("Invalid number")));
1811 case OVERWRITE_DIR_OPTION
:
1812 old_files_option
= DEFAULT_OLD_FILES
;
1815 case OVERWRITE_OPTION
:
1816 old_files_option
= OVERWRITE_OLD_FILES
;
1820 if (! (strlen (arg
) < UNAME_FIELD_SIZE
1821 && uname_to_uid (arg
, &owner_option
)))
1824 if (xstrtoumax (arg
, 0, 10, &u
, "") == LONGINT_OK
1828 FATAL_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1829 _("Invalid owner")));
1833 case QUOTE_CHARS_OPTION
:
1835 set_char_quoting (NULL
, *arg
, 1);
1838 case QUOTING_STYLE_OPTION
:
1839 tar_set_quoting_style (arg
);
1843 args
->pax_option
= true;
1844 xheader_set_option (arg
);
1848 set_archive_format ("posix");
1851 case PRESERVE_OPTION
:
1852 /* FIXME: What it is good for? */
1853 same_permissions_option
= true;
1854 same_order_option
= true;
1855 WARN ((0, 0, _("The --preserve option is deprecated, "
1856 "use --preserve-permissions --preserve-order instead")));
1859 case RECORD_SIZE_OPTION
:
1862 if (! (xstrtoumax (arg
, 0, 10, &u
, "") == LONGINT_OK
1863 && u
== (size_t) u
))
1864 USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1865 _("Invalid record size")));
1867 if (record_size
% BLOCKSIZE
!= 0)
1868 USAGE_ERROR ((0, 0, _("Record size must be a multiple of %d."),
1870 blocking_factor
= record_size
/ BLOCKSIZE
;
1874 case RECURSIVE_UNLINK_OPTION
:
1875 recursive_unlink_option
= true;
1878 case REMOVE_FILES_OPTION
:
1879 remove_files_option
= true;
1882 case RESTRICT_OPTION
:
1883 restrict_option
= true;
1886 case RMT_COMMAND_OPTION
:
1890 case RSH_COMMAND_OPTION
:
1891 rsh_command_option
= arg
;
1894 case SHOW_DEFAULTS_OPTION
:
1895 show_default_settings (stdout
);
1899 case STRIP_COMPONENTS_OPTION
:
1902 if (! (xstrtoumax (arg
, 0, 10, &u
, "") == LONGINT_OK
1903 && u
== (size_t) u
))
1904 USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1905 _("Invalid number of elements")));
1906 strip_name_components
= u
;
1910 case SHOW_OMITTED_DIRS_OPTION
:
1911 show_omitted_dirs_option
= true;
1914 case SHOW_TRANSFORMED_NAMES_OPTION
:
1915 show_transformed_names_option
= true;
1919 backup_option
= true;
1920 args
->backup_suffix_string
= arg
;
1923 case TO_COMMAND_OPTION
:
1924 if (to_command_option
)
1925 USAGE_ERROR ((0, 0, _("Only one --to-command option allowed")));
1926 to_command_option
= arg
;
1931 set_stat_signal (arg
);
1933 totals_option
= true;
1936 case TRANSFORM_OPTION
:
1937 set_transform_expr (arg
);
1941 set_use_compress_program_option (arg
);
1944 case VOLNO_FILE_OPTION
:
1945 volno_file_option
= arg
;
1948 case WILDCARDS_OPTION
:
1949 args
->wildcards
= enable_wildcards
;
1952 case WILDCARDS_MATCH_SLASH_OPTION
:
1953 args
->matching_flags
&= ~ FNM_FILE_NAME
;
1956 case NO_RECURSION_OPTION
:
1957 recursion_option
= 0;
1960 case NO_SAME_OWNER_OPTION
:
1961 same_owner_option
= -1;
1964 case NO_SAME_PERMISSIONS_OPTION
:
1965 same_permissions_option
= -1;
1968 case RECURSION_OPTION
:
1969 recursion_option
= FNM_LEADING_DIR
;
1972 case SAME_OWNER_OPTION
:
1973 same_owner_option
= 1;
1976 case UNQUOTE_OPTION
:
1977 unquote_option
= true;
1980 case NO_UNQUOTE_OPTION
:
1981 unquote_option
= false;
1984 case WARNING_OPTION
:
1985 set_warning_option (arg
);
1997 #ifdef DEVICE_PREFIX
1999 int device
= key
- '0';
2001 static char buf
[sizeof DEVICE_PREFIX
+ 10];
2005 argp_error (state
, _("Malformed density argument: %s"), quote (arg
));
2007 strcpy (buf
, DEVICE_PREFIX
);
2008 cursor
= buf
+ strlen (buf
);
2010 #ifdef DENSITY_LETTER
2012 sprintf (cursor
, "%d%c", device
, arg
[0]);
2014 #else /* not DENSITY_LETTER */
2019 device
+= LOW_DENSITY_NUM
;
2023 device
+= MID_DENSITY_NUM
;
2027 device
+= HIGH_DENSITY_NUM
;
2031 argp_error (state
, _("Unknown density: `%c'"), arg
[0]);
2033 sprintf (cursor
, "%d", device
);
2035 #endif /* not DENSITY_LETTER */
2037 if (archive_names
== allocated_archive_names
)
2038 archive_name_array
= x2nrealloc (archive_name_array
,
2039 &allocated_archive_names
,
2040 sizeof (archive_name_array
[0]));
2041 archive_name_array
[archive_names
++] = xstrdup (buf
);
2045 #else /* not DEVICE_PREFIX */
2048 _("Options `-[0-7][lmh]' not supported by *this* tar"));
2050 #endif /* not DEVICE_PREFIX */
2058 argp_state_help (state
, state
->out_stream
, ARGP_HELP_USAGE
);
2062 case VERSION_OPTION
:
2063 version_etc (state
->out_stream
, "tar", PACKAGE_NAME
, VERSION
,
2064 "John Gilmore", "Jay Fenlason", (char *) NULL
);
2069 _argp_hang
= atoi (arg
? arg
: "3600");
2070 while (_argp_hang
-- > 0)
2075 return ARGP_ERR_UNKNOWN
;
2080 static struct argp argp
= {
2093 argp_help (&argp
, stderr
, ARGP_HELP_SEE
, (char*) program_name
);
2098 /* Parse the options for tar. */
2100 static struct argp_option
*
2101 find_argp_option (struct argp_option
*o
, int letter
)
2108 && o
->doc
== NULL
); o
++)
2109 if (o
->key
== letter
)
2115 decode_options (int argc
, char **argv
)
2118 struct tar_args args
;
2120 /* Set some default option values. */
2121 args
.textual_date
= NULL
;
2122 args
.wildcards
= default_wildcards
;
2123 args
.matching_flags
= 0;
2124 args
.include_anchored
= EXCLUDE_ANCHORED
;
2125 args
.o_option
= false;
2126 args
.pax_option
= false;
2127 args
.backup_suffix_string
= getenv ("SIMPLE_BACKUP_SUFFIX");
2128 args
.version_control_string
= 0;
2129 args
.input_files
= false;
2130 args
.compress_autodetect
= false;
2132 subcommand_option
= UNKNOWN_SUBCOMMAND
;
2133 archive_format
= DEFAULT_FORMAT
;
2134 blocking_factor
= DEFAULT_BLOCKING
;
2135 record_size
= DEFAULT_BLOCKING
* BLOCKSIZE
;
2136 excluded
= new_exclude ();
2137 newer_mtime_option
.tv_sec
= TYPE_MINIMUM (time_t);
2138 newer_mtime_option
.tv_nsec
= -1;
2139 recursion_option
= FNM_LEADING_DIR
;
2140 unquote_option
= true;
2141 tar_sparse_major
= 1;
2142 tar_sparse_minor
= 0;
2147 check_device_option
= true;
2149 incremental_level
= -1;
2151 /* Convert old-style tar call by exploding option element and rearranging
2152 options accordingly. */
2154 if (argc
> 1 && argv
[1][0] != '-')
2156 int new_argc
; /* argc value for rearranged arguments */
2157 char **new_argv
; /* argv value for rearranged arguments */
2158 char *const *in
; /* cursor into original argv */
2159 char **out
; /* cursor into rearranged argv */
2160 const char *letter
; /* cursor into old option letters */
2161 char buffer
[3]; /* constructed option buffer */
2163 /* Initialize a constructed option. */
2168 /* Allocate a new argument array, and copy program name in it. */
2170 new_argc
= argc
- 1 + strlen (argv
[1]);
2171 new_argv
= xmalloc ((new_argc
+ 1) * sizeof (char *));
2176 /* Copy each old letter option as a separate option, and have the
2177 corresponding argument moved next to it. */
2179 for (letter
= *in
++; *letter
; letter
++)
2181 struct argp_option
*opt
;
2183 buffer
[1] = *letter
;
2184 *out
++ = xstrdup (buffer
);
2185 opt
= find_argp_option (options
, *letter
);
2186 if (opt
&& opt
->arg
)
2188 if (in
< argv
+ argc
)
2191 USAGE_ERROR ((0, 0, _("Old option `%c' requires an argument."),
2196 /* Copy all remaining options. */
2198 while (in
< argv
+ argc
)
2202 /* Replace the old option list by the new one. */
2208 /* Parse all options and non-options as they appear. */
2210 prepend_default_options (getenv ("TAR_OPTIONS"), &argc
, &argv
);
2212 if (argp_parse (&argp
, argc
, argv
, ARGP_IN_ORDER
|ARGP_NO_HELP
,
2214 exit (TAREXIT_FAILURE
);
2217 /* Special handling for 'o' option:
2219 GNU tar used to say "output old format".
2220 UNIX98 tar says don't chown files after extracting (we use
2221 "--no-same-owner" for this).
2223 The old GNU tar semantics is retained when used with --create
2224 option, otherwise UNIX98 semantics is assumed */
2228 if (subcommand_option
== CREATE_SUBCOMMAND
)
2230 /* GNU Tar <= 1.13 compatibility */
2231 set_archive_format ("v7");
2235 /* UNIX98 compatibility */
2236 same_owner_option
= -1;
2240 /* Handle operands after any "--" argument. */
2241 for (; idx
< argc
; idx
++)
2243 name_add_name (argv
[idx
], MAKE_INCL_OPTIONS (&args
));
2244 args
.input_files
= true;
2247 /* Warn about implicit use of the wildcards in command line arguments.
2249 warn_regex_usage
= args
.wildcards
== default_wildcards
;
2251 /* Derive option values and check option consistency. */
2253 if (archive_format
== DEFAULT_FORMAT
)
2255 if (args
.pax_option
)
2256 archive_format
= POSIX_FORMAT
;
2258 archive_format
= DEFAULT_ARCHIVE_FORMAT
;
2261 if ((volume_label_option
&& subcommand_option
== CREATE_SUBCOMMAND
)
2262 || incremental_option
2263 || multi_volume_option
2265 assert_format (FORMAT_MASK (OLDGNU_FORMAT
)
2266 | FORMAT_MASK (GNU_FORMAT
)
2267 | FORMAT_MASK (POSIX_FORMAT
));
2269 if (occurrence_option
)
2271 if (!args
.input_files
)
2273 _("--occurrence is meaningless without a file list")));
2274 if (subcommand_option
!= DELETE_SUBCOMMAND
2275 && subcommand_option
!= DIFF_SUBCOMMAND
2276 && subcommand_option
!= EXTRACT_SUBCOMMAND
2277 && subcommand_option
!= LIST_SUBCOMMAND
)
2279 _("--occurrence cannot be used in the requested operation mode")));
2282 if (seekable_archive
&& subcommand_option
== DELETE_SUBCOMMAND
)
2284 /* The current code in delete.c is based on the assumption that
2285 skip_member() reads all data from the archive. So, we should
2286 make sure it won't use seeks. On the other hand, the same code
2287 depends on the ability to backspace a record in the archive,
2288 so setting seekable_archive to false is technically incorrect.
2289 However, it is tested only in skip_member(), so it's not a
2291 seekable_archive
= false;
2294 if (archive_names
== 0)
2296 /* If no archive file name given, try TAPE from the environment, or
2297 else, DEFAULT_ARCHIVE from the configuration process. */
2300 archive_name_array
[0] = getenv ("TAPE");
2301 if (! archive_name_array
[0])
2302 archive_name_array
[0] = DEFAULT_ARCHIVE
;
2305 /* Allow multiple archives only with `-M'. */
2307 if (archive_names
> 1 && !multi_volume_option
)
2309 _("Multiple archive files require `-M' option")));
2311 if (listed_incremental_option
2312 && NEWER_OPTION_INITIALIZED (newer_mtime_option
))
2314 _("Cannot combine --listed-incremental with --newer")));
2315 if (incremental_level
!= -1 && !listed_incremental_option
)
2317 _("--level is meaningless without --listed-incremental")));
2319 if (volume_label_option
)
2321 if (archive_format
== GNU_FORMAT
|| archive_format
== OLDGNU_FORMAT
)
2323 size_t volume_label_max_len
=
2324 (sizeof current_header
->header
.name
2325 - 1 /* for trailing '\0' */
2326 - (multi_volume_option
2327 ? (sizeof " Volume "
2328 - 1 /* for null at end of " Volume " */
2329 + INT_STRLEN_BOUND (int) /* for volume number */
2330 - 1 /* for sign, as 0 <= volno */)
2332 if (volume_label_max_len
< strlen (volume_label_option
))
2334 ngettext ("%s: Volume label is too long (limit is %lu byte)",
2335 "%s: Volume label is too long (limit is %lu bytes)",
2336 volume_label_max_len
),
2337 quotearg_colon (volume_label_option
),
2338 (unsigned long) volume_label_max_len
));
2341 Label length in PAX format is limited by the volume size. */
2346 if (multi_volume_option
)
2347 USAGE_ERROR ((0, 0, _("Cannot verify multi-volume archives")));
2348 if (use_compress_program_option
)
2349 USAGE_ERROR ((0, 0, _("Cannot verify compressed archives")));
2352 if (use_compress_program_option
)
2354 if (multi_volume_option
)
2355 USAGE_ERROR ((0, 0, _("Cannot use multi-volume compressed archives")));
2356 if (subcommand_option
== UPDATE_SUBCOMMAND
2357 || subcommand_option
== APPEND_SUBCOMMAND
2358 || subcommand_option
== DELETE_SUBCOMMAND
)
2359 USAGE_ERROR ((0, 0, _("Cannot update compressed archives")));
2360 if (subcommand_option
== CAT_SUBCOMMAND
)
2361 USAGE_ERROR ((0, 0, _("Cannot concatenate compressed archives")));
2364 /* It is no harm to use --pax-option on non-pax archives in archive
2365 reading mode. It may even be useful, since it allows to override
2366 file attributes from tar headers. Therefore I allow such usage.
2369 && archive_format
!= POSIX_FORMAT
2370 && (subcommand_option
!= EXTRACT_SUBCOMMAND
2371 || subcommand_option
!= DIFF_SUBCOMMAND
2372 || subcommand_option
!= LIST_SUBCOMMAND
))
2373 USAGE_ERROR ((0, 0, _("--pax-option can be used only on POSIX archives")));
2375 /* If ready to unlink hierarchies, so we are for simpler files. */
2376 if (recursive_unlink_option
)
2377 old_files_option
= UNLINK_FIRST_OLD_FILES
;
2380 if (test_label_option
)
2382 /* --test-label is silent if the user has specified the label name to
2384 if (!args
.input_files
)
2387 else if (utc_option
)
2390 if (tape_length_option
&& tape_length_option
< record_size
)
2391 USAGE_ERROR ((0, 0, _("Volume length cannot be less than record size")));
2393 if (same_order_option
&& listed_incremental_option
)
2394 USAGE_ERROR ((0, 0, _("--preserve-order is not compatible with "
2395 "--listed-incremental")));
2397 /* Forbid using -c with no input files whatsoever. Check that `-f -',
2398 explicit or implied, is used correctly. */
2400 switch (subcommand_option
)
2402 case CREATE_SUBCOMMAND
:
2403 if (!args
.input_files
&& !files_from_option
)
2405 _("Cowardly refusing to create an empty archive")));
2406 if (args
.compress_autodetect
&& archive_names
2407 && strcmp (archive_name_array
[0], "-"))
2408 set_comression_program_by_suffix (archive_name_array
[0],
2409 use_compress_program_option
);
2412 case EXTRACT_SUBCOMMAND
:
2413 case LIST_SUBCOMMAND
:
2414 case DIFF_SUBCOMMAND
:
2415 for (archive_name_cursor
= archive_name_array
;
2416 archive_name_cursor
< archive_name_array
+ archive_names
;
2417 archive_name_cursor
++)
2418 if (!strcmp (*archive_name_cursor
, "-"))
2419 request_stdin ("-f");
2422 case CAT_SUBCOMMAND
:
2423 case UPDATE_SUBCOMMAND
:
2424 case APPEND_SUBCOMMAND
:
2425 for (archive_name_cursor
= archive_name_array
;
2426 archive_name_cursor
< archive_name_array
+ archive_names
;
2427 archive_name_cursor
++)
2428 if (!strcmp (*archive_name_cursor
, "-"))
2430 _("Options `-Aru' are incompatible with `-f -'")));
2436 /* Initialize stdlis */
2437 if (index_file_name
)
2439 stdlis
= fopen (index_file_name
, "w");
2441 open_error (index_file_name
);
2444 stdlis
= to_stdout_option
? stderr
: stdout
;
2446 archive_name_cursor
= archive_name_array
;
2448 /* Prepare for generating backup names. */
2450 if (args
.backup_suffix_string
)
2451 simple_backup_suffix
= xstrdup (args
.backup_suffix_string
);
2455 backup_type
= xget_version ("--backup", args
.version_control_string
);
2456 /* No backup is needed either if explicitely disabled or if
2457 the extracted files are not being written to disk. */
2458 if (backup_type
== no_backups
|| EXTRACT_OVER_PIPE
)
2459 backup_option
= false;
2462 checkpoint_finish_compile ();
2465 report_textual_dates (&args
);
2471 /* Main routine for tar. */
2473 main (int argc
, char **argv
)
2476 program_name
= argv
[0];
2478 setlocale (LC_ALL
, "");
2479 bindtextdomain (PACKAGE
, LOCALEDIR
);
2480 textdomain (PACKAGE
);
2482 exit_failure
= TAREXIT_FAILURE
;
2483 exit_status
= TAREXIT_SUCCESS
;
2484 filename_terminator
= '\n';
2485 set_quoting_style (0, DEFAULT_QUOTING_STYLE
);
2487 /* Make sure we have first three descriptors available */
2490 /* Pre-allocate a few structures. */
2492 allocated_archive_names
= 10;
2493 archive_name_array
=
2494 xmalloc (sizeof (const char *) * allocated_archive_names
);
2497 obstack_init (&argv_stk
);
2499 /* Ensure default behavior for some signals */
2500 signal (SIGPIPE
, SIG_DFL
);
2501 /* System V fork+wait does not work if SIGCHLD is ignored. */
2502 signal (SIGCHLD
, SIG_DFL
);
2504 /* Try to disable the ability to unlink a directory. */
2505 priv_set_remove_linkdir ();
2507 /* Decode options. */
2509 decode_options (argc
, argv
);
2513 /* Main command execution. */
2515 if (volno_file_option
)
2516 init_volume_number ();
2518 switch (subcommand_option
)
2520 case UNKNOWN_SUBCOMMAND
:
2522 _("You must specify one of the `-Acdtrux' options")));
2524 case CAT_SUBCOMMAND
:
2525 case UPDATE_SUBCOMMAND
:
2526 case APPEND_SUBCOMMAND
:
2530 case DELETE_SUBCOMMAND
:
2531 delete_archive_members ();
2534 case CREATE_SUBCOMMAND
:
2538 case EXTRACT_SUBCOMMAND
:
2540 read_and (extract_archive
);
2542 /* FIXME: should extract_finish () even if an ordinary signal is
2548 case LIST_SUBCOMMAND
:
2549 read_and (list_archive
);
2552 case DIFF_SUBCOMMAND
:
2554 read_and (diff_archive
);
2559 print_total_stats ();
2561 if (check_links_option
)
2564 if (volno_file_option
)
2565 closeout_volume_number ();
2567 /* Dispose of allocated memory, and return. */
2569 free (archive_name_array
);
2572 if (exit_status
== TAREXIT_FAILURE
)
2573 error (0, 0, _("Exiting with failure status due to previous errors"));
2575 if (stdlis
== stdout
)
2577 else if (ferror (stderr
) || fclose (stderr
) != 0)
2578 exit_status
= TAREXIT_FAILURE
;
2584 tar_stat_init (struct tar_stat_info
*st
)
2586 memset (st
, 0, sizeof (*st
));
2590 tar_stat_destroy (struct tar_stat_info
*st
)
2592 free (st
->orig_file_name
);
2593 free (st
->file_name
);
2594 free (st
->link_name
);
2597 free (st
->sparse_map
);
2599 xheader_destroy (&st
->xhdr
);
2600 memset (st
, 0, sizeof (*st
));
2603 /* Format mask for all available formats that support nanosecond
2604 timestamp resolution. */
2605 #define NS_PRECISION_FORMAT_MASK FORMAT_MASK (POSIX_FORMAT)
2607 /* Same as timespec_cmp, but ignore nanoseconds if current archive
2608 format does not provide sufficient resolution. */
2610 tar_timespec_cmp (struct timespec a
, struct timespec b
)
2612 if (!(FORMAT_MASK (current_format
) & NS_PRECISION_FORMAT_MASK
))
2613 a
.tv_nsec
= b
.tv_nsec
= 0;
2614 return timespec_cmp (a
, b
);