1 /* A tar (tape archiver) program.
3 Copyright (C) 1988, 1992, 1993, 1994, 1995, 1996, 1997, 1999, 2000,
4 2001, 2003, 2004, 2005, 2006 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 2, 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>
29 #if ! defined SIGCHLD && defined SIGCLD
30 # define SIGCHLD SIGCLD
33 /* The following causes "common.h" to produce definitions of all the global
34 variables, rather than just "extern" declarations of them. GNU tar does
35 depend on the system loader to preset all GLOBAL variables to neutral (or
36 zero) values; explicit initialization is usually not done. */
44 #include <localedir.h>
48 #include <version-etc.h>
52 /* Local declarations. */
54 #ifndef DEFAULT_ARCHIVE_FORMAT
55 # define DEFAULT_ARCHIVE_FORMAT GNU_FORMAT
58 #ifndef DEFAULT_ARCHIVE
59 # define DEFAULT_ARCHIVE "tar.out"
62 #ifndef DEFAULT_BLOCKING
63 # define DEFAULT_BLOCKING 20
69 /* Name of option using stdin. */
70 static const char *stdin_used_by
;
72 /* Doesn't return if stdin already requested. */
74 request_stdin (const char *option
)
77 USAGE_ERROR ((0, 0, _("Options `-%s' and `-%s' both want standard input"),
78 stdin_used_by
, option
));
80 stdin_used_by
= option
;
83 extern int rpmatch (char const *response
);
85 /* Returns true if and only if the user typed an affirmative response. */
87 confirm (const char *message_action
, const char *message_name
)
89 static FILE *confirm_file
;
90 static int confirm_file_EOF
;
95 if (archive
== 0 || stdin_used_by
)
97 confirm_file
= fopen (TTY_NAME
, "r");
99 open_fatal (TTY_NAME
);
103 request_stdin ("-w");
104 confirm_file
= stdin
;
108 fprintf (stdlis
, "%s %s?", message_action
, quote (message_name
));
111 if (!confirm_file_EOF
)
113 char *response
= NULL
;
114 size_t response_size
= 0;
115 if (getline (&response
, &response_size
, confirm_file
) < 0)
116 confirm_file_EOF
= 1;
118 status
= rpmatch (response
) > 0;
122 if (confirm_file_EOF
)
124 fputc ('\n', stdlis
);
131 static struct fmttab
{
133 enum archive_format fmt
;
136 { "oldgnu", OLDGNU_FORMAT
},
137 { "ustar", USTAR_FORMAT
},
138 { "posix", POSIX_FORMAT
},
139 #if 0 /* not fully supported yet */
140 { "star", STAR_FORMAT
},
142 { "gnu", GNU_FORMAT
},
143 { "pax", POSIX_FORMAT
}, /* An alias for posix */
148 set_archive_format (char const *name
)
150 struct fmttab
const *p
;
152 for (p
= fmttab
; strcmp (p
->name
, name
) != 0; )
154 USAGE_ERROR ((0, 0, _("%s: Invalid archive format"),
155 quotearg_colon (name
)));
157 archive_format
= p
->fmt
;
161 archive_format_string (enum archive_format fmt
)
163 struct fmttab
const *p
;
165 for (p
= fmttab
; p
->name
; p
++)
171 #define FORMAT_MASK(n) (1<<(n))
174 assert_format(unsigned fmt_mask
)
176 if ((FORMAT_MASK (archive_format
) & fmt_mask
) == 0)
178 _("GNU features wanted on incompatible archive format")));
182 subcommand_string (enum subcommand c
)
186 case UNKNOWN_SUBCOMMAND
:
189 case APPEND_SUBCOMMAND
:
195 case CREATE_SUBCOMMAND
:
198 case DELETE_SUBCOMMAND
:
201 case DIFF_SUBCOMMAND
:
204 case EXTRACT_SUBCOMMAND
:
207 case LIST_SUBCOMMAND
:
210 case UPDATE_SUBCOMMAND
:
219 tar_list_quoting_styles (FILE *fp
, char *prefix
)
223 for (i
= 0; quoting_style_args
[i
]; i
++)
224 fprintf (fp
, "%s%s\n", prefix
, quoting_style_args
[i
]);
228 tar_set_quoting_style (char *arg
)
232 for (i
= 0; quoting_style_args
[i
]; i
++)
233 if (strcmp (arg
, quoting_style_args
[i
]) == 0)
235 set_quoting_style (NULL
, i
);
239 _("Unknown quoting style `%s'. Try `%s --quoting-style=help' to get a list."), arg
, program_invocation_short_name
));
247 ANCHORED_OPTION
= CHAR_MAX
+ 1,
248 ATIME_PRESERVE_OPTION
,
252 DELAY_DIRECTORY_RESTORE_OPTION
,
254 EXCLUDE_CACHES_OPTION
,
260 IGNORE_COMMAND_ERROR_OPTION
,
261 IGNORE_FAILED_READ_OPTION
,
263 KEEP_NEWER_FILES_OPTION
,
267 NO_DELAY_DIRECTORY_RESTORE_OPTION
,
268 NO_IGNORE_CASE_OPTION
,
269 NO_IGNORE_COMMAND_ERROR_OPTION
,
270 NO_OVERWRITE_DIR_OPTION
,
271 NO_QUOTE_CHARS_OPTION
,
273 NO_SAME_OWNER_OPTION
,
274 NO_SAME_PERMISSIONS_OPTION
,
276 NO_WILDCARDS_MATCH_SLASH_OPTION
,
279 NUMERIC_OWNER_OPTION
,
282 ONE_FILE_SYSTEM_OPTION
,
289 QUOTING_STYLE_OPTION
,
292 RECURSIVE_UNLINK_OPTION
,
298 SHOW_DEFAULTS_OPTION
,
299 SHOW_OMITTED_DIRS_OPTION
,
300 SHOW_STORED_NAMES_OPTION
,
301 STRIP_COMPONENTS_OPTION
,
308 USE_COMPRESS_PROGRAM_OPTION
,
312 WILDCARDS_MATCH_SLASH_OPTION
,
316 const char *argp_program_version
= "tar (" PACKAGE_NAME
") " VERSION
;
317 const char *argp_program_bug_address
= "<" PACKAGE_BUGREPORT
">";
318 static char doc
[] = N_("GNU `tar' saves many files together into a single tape or disk archive, and can restore individual files from the archive.\n\
321 tar -cf archive.tar foo bar # Create archive.tar from files foo and bar.\n\
322 tar -tvf archive.tar # List all files in archive.tar verbosely.\n\
323 tar -xf archive.tar # Extract all files from archive.tar.\n\
324 \vThe backup suffix is `~', unless set with --suffix or SIMPLE_BACKUP_SUFFIX.\n\
325 The version control may be set with --backup or VERSION_CONTROL, values are:\n\n\
326 none, off never make backups\n\
327 t, numbered make numbered backups\n\
328 nil, existing numbered if numbered backups exist, simple otherwise\n\
329 never, simple always make simple backups\n");
334 Available option letters are DEIJQY and aeqy. Consider the following
337 [For Solaris tar compatibility =/= Is it important at all?]
338 e exit immediately with a nonzero exit status if unexpected errors occur
339 E use extended headers (--format=posix)
341 [q alias for --occurrence=1 =/= this would better be used for quiet?]
342 [I same as T =/= will harm star compatibility]
344 y per-file gzip compression
345 Y per-block gzip compression */
347 static struct argp_option options
[] = {
350 N_("Main operation mode:"), GRID
},
353 N_("list the contents of an archive"), GRID
+1 },
354 {"extract", 'x', 0, 0,
355 N_("extract files from an archive"), GRID
+1 },
356 {"get", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
357 {"create", 'c', 0, 0,
358 N_("create a new archive"), GRID
+1 },
360 N_("find differences between archive and file system"), GRID
+1 },
361 {"compare", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
362 {"append", 'r', 0, 0,
363 N_("append files to the end of an archive"), GRID
+1 },
364 {"update", 'u', 0, 0,
365 N_("only append files newer than copy in archive"), GRID
+1 },
366 {"catenate", 'A', 0, 0,
367 N_("append tar files to an archive"), GRID
+1 },
368 {"concatenate", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
369 {"delete", DELETE_OPTION
, 0, 0,
370 N_("delete from the archive (not on mag tapes!)"), GRID
+1 },
371 {"test-label", TEST_LABEL_OPTION
, NULL
, 0,
372 N_("Test archive volume label and exit"), GRID
+1 },
377 N_("Operation modifiers:"), GRID
},
379 {"sparse", 'S', 0, 0,
380 N_("handle sparse files efficiently"), GRID
+1 },
381 {"incremental", 'G', 0, 0,
382 N_("handle old GNU-format incremental backup"), GRID
+1 },
383 {"listed-incremental", 'g', N_("FILE"), 0,
384 N_("handle new GNU-format incremental backup"), GRID
+1 },
385 {"ignore-failed-read", IGNORE_FAILED_READ_OPTION
, 0, 0,
386 N_("do not exit with nonzero on unreadable files"), GRID
+1 },
387 {"occurrence", OCCURRENCE_OPTION
, N_("NUMBER"), OPTION_ARG_OPTIONAL
,
388 N_("process only the NUMBERth occurrence of each file in the archive. This option is valid only in conjunction with one of the subcommands --delete, --diff, --extract or --list and when a list of files is given either on the command line or via -T option. NUMBER defaults to 1."), GRID
+1 },
389 {"seek", 'n', NULL
, 0,
390 N_("archive is seekable"), GRID
+1 },
395 N_("Overwrite control:\n"), GRID
+1 },
397 {"verify", 'W', 0, 0,
398 N_("attempt to verify the archive after writing it"), GRID
+1 },
399 {"remove-files", REMOVE_FILES_OPTION
, 0, 0,
400 N_("remove files after adding them to the archive"), GRID
+1 },
401 {"keep-old-files", 'k', 0, 0,
402 N_("don't replace existing files when extracting"), GRID
+1 },
403 {"keep-newer-files", KEEP_NEWER_FILES_OPTION
, 0, 0,
404 N_("don't replace existing files that are newer than their archive copies"), GRID
+1 },
405 {"overwrite", OVERWRITE_OPTION
, 0, 0,
406 N_("overwrite existing files when extracting"), GRID
+1 },
407 {"unlink-first", 'U', 0, 0,
408 N_("remove each file prior to extracting over it"), GRID
+1 },
409 {"recursive-unlink", RECURSIVE_UNLINK_OPTION
, 0, 0,
410 N_("empty hierarchies prior to extracting directory"), GRID
+1 },
411 {"no-overwrite-dir", NO_OVERWRITE_DIR_OPTION
, 0, 0,
412 N_("preserve metadata of existing directories"), GRID
+1 },
417 N_("Select output stream:"), GRID
},
419 {"to-stdout", 'O', 0, 0,
420 N_("extract files to standard output"), GRID
+1 },
421 {"to-command", TO_COMMAND_OPTION
, N_("COMMAND"), 0,
422 N_("pipe extracted files to another program"), GRID
+1 },
423 {"ignore-command-error", IGNORE_COMMAND_ERROR_OPTION
, 0, 0,
424 N_("ignore exit codes of children"), GRID
+1 },
425 {"no-ignore-command-error", NO_IGNORE_COMMAND_ERROR_OPTION
, 0, 0,
426 N_("treat non-zero exit codes of children as error"), GRID
+1 },
431 N_("Handling of file attributes:"), GRID
},
433 {"owner", OWNER_OPTION
, N_("NAME"), 0,
434 N_("force NAME as owner for added files"), GRID
+1 },
435 {"group", GROUP_OPTION
, N_("NAME"), 0,
436 N_("force NAME as group for added files"), GRID
+1 },
437 {"mode", MODE_OPTION
, N_("CHANGES"), 0,
438 N_("force (symbolic) mode CHANGES for added files"), GRID
+1 },
439 {"atime-preserve", ATIME_PRESERVE_OPTION
,
440 N_("METHOD"), OPTION_ARG_OPTIONAL
,
441 N_("preserve access times on dumped files, either by restoring the times"
442 " after reading (METHOD='replace'; default) or by not setting the times"
443 " in the first place (METHOD='system')"), GRID
+1 },
445 N_("don't extract file modified time"), GRID
+1 },
446 {"same-owner", SAME_OWNER_OPTION
, 0, 0,
447 N_("try extracting files with the same ownership"), GRID
+1 },
448 {"no-same-owner", NO_SAME_OWNER_OPTION
, 0, 0,
449 N_("extract files as yourself"), GRID
+1 },
450 {"numeric-owner", NUMERIC_OWNER_OPTION
, 0, 0,
451 N_("always use numbers for user/group names"), GRID
+1 },
452 {"preserve-permissions", 'p', 0, 0,
453 N_("extract information about file permissions (default for superuser)"),
455 {"same-permissions", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
456 {"no-same-permissions", NO_SAME_PERMISSIONS_OPTION
, 0, 0,
457 N_("apply the user's umask when extracting permissions from the archive (default for ordinary users)"), GRID
+1 },
458 {"preserve-order", 's', 0, 0,
459 N_("sort names to extract to match archive"), GRID
+1 },
460 {"same-order", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
461 {"preserve", PRESERVE_OPTION
, 0, 0,
462 N_("same as both -p and -s"), GRID
+1 },
463 {"delay-directory-restore", DELAY_DIRECTORY_RESTORE_OPTION
, 0, 0,
464 N_("Delay setting modification times and permissions of extracted directories until the end of extraction."), GRID
+1 },
465 {"no-delay-directory-restore", NO_DELAY_DIRECTORY_RESTORE_OPTION
, 0, 0,
466 N_("Cancel the effect of --delay-directory-restore option."), GRID
+1 },
471 N_("Device selection and switching:\n"), GRID
+1 },
473 {"file", 'f', N_("ARCHIVE"), 0,
474 N_("use archive file or device ARCHIVE"), GRID
+1 },
475 {"force-local", FORCE_LOCAL_OPTION
, 0, 0,
476 N_("archive file is local even if it has a colon"), GRID
+1 },
477 {"rmt-command", RMT_COMMAND_OPTION
, N_("COMMAND"), 0,
478 N_("use given rmt COMMAND instead of rmt"), GRID
+1 },
479 {"rsh-command", RSH_COMMAND_OPTION
, N_("COMMAND"), 0,
480 N_("use remote COMMAND instead of rsh"), GRID
+1 },
482 {"-[0-7][lmh]", 0, NULL
, OPTION_DOC
, /* It is OK, since `name' will never be
484 N_("specify drive and density"), GRID
+1 },
486 {NULL
, '0', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
487 {NULL
, '1', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
488 {NULL
, '2', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
489 {NULL
, '3', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
490 {NULL
, '4', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
491 {NULL
, '5', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
492 {NULL
, '6', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
493 {NULL
, '7', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
494 {NULL
, '8', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
495 {NULL
, '9', NULL
, OPTION_HIDDEN
, NULL
, GRID
+1 },
497 {"multi-volume", 'M', 0, 0,
498 N_("create/list/extract multi-volume archive"), GRID
+1 },
499 {"tape-length", 'L', N_("NUMBER"), 0,
500 N_("change tape after writing NUMBER x 1024 bytes"), GRID
+1 },
501 {"info-script", 'F', N_("NAME"), 0,
502 N_("run script at end of each tape (implies -M)"), GRID
+1 },
503 {"new-volume-script", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
504 {"volno-file", VOLNO_FILE_OPTION
, N_("FILE"), 0,
505 N_("use/update the volume number in FILE"), GRID
+1 },
510 N_("Device blocking:"), GRID
+1 },
512 {"blocking-factor", 'b', N_("BLOCKS"), 0,
513 N_("BLOCKS x 512 bytes per record"), GRID
+1 },
514 {"record-size", RECORD_SIZE_OPTION
, N_("NUMBER"), 0,
515 N_("NUMBER of bytes per record, multiple of 512"), GRID
+1 },
516 {"ignore-zeros", 'i', 0, 0,
517 N_("ignore zeroed blocks in archive (means EOF)"), GRID
+1 },
518 {"read-full-records", 'B', 0, 0,
519 N_("reblock as we read (for 4.2BSD pipes)"), GRID
+1 },
524 N_("Archive format selection:"), GRID
},
526 {"format", 'H', N_("FORMAT"), 0,
527 N_("create archive of the given format."), GRID
+1 },
529 {NULL
, 0, NULL
, 0, N_("FORMAT is one of the following:"), GRID
+2 },
530 {" v7", 0, NULL
, OPTION_DOC
|OPTION_NO_TRANS
, N_("old V7 tar format"),
532 {" oldgnu", 0, NULL
, OPTION_DOC
|OPTION_NO_TRANS
,
533 N_("GNU format as per tar <= 1.12"), GRID
+3 },
534 {" gnu", 0, NULL
, OPTION_DOC
|OPTION_NO_TRANS
,
535 N_("GNU tar 1.13.x format"), GRID
+3 },
536 {" ustar", 0, NULL
, OPTION_DOC
|OPTION_NO_TRANS
,
537 N_("POSIX 1003.1-1988 (ustar) format"), GRID
+3 },
538 {" pax", 0, NULL
, OPTION_DOC
|OPTION_NO_TRANS
,
539 N_("POSIX 1003.1-2001 (pax) format"), GRID
+3 },
540 {" posix", 0, NULL
, OPTION_DOC
|OPTION_NO_TRANS
, N_("same as pax"), GRID
+3 },
542 {"old-archive", OLD_ARCHIVE_OPTION
, 0, 0, /* FIXME */
543 N_("same as --format=v7"), GRID
+8 },
544 {"portability", 0, 0, OPTION_ALIAS
, NULL
, GRID
+8 },
545 {"posix", POSIX_OPTION
, 0, 0,
546 N_("same as --format=posix"), GRID
+8 },
547 {"pax-option", PAX_OPTION
, N_("keyword[[:]=value][,keyword[[:]=value], ...]"), 0,
548 N_("control pax keywords"), GRID
+8 },
549 {"label", 'V', N_("TEXT"), 0,
550 N_("create archive with volume name TEXT. At list/extract time, use TEXT as a globbing pattern for volume name"), GRID
+8 },
552 N_("filter the archive through bzip2"), GRID
+8 },
554 N_("filter the archive through gzip"), GRID
+8 },
555 {"gunzip", 0, 0, OPTION_ALIAS
, NULL
, GRID
+8 },
556 {"ungzip", 0, 0, OPTION_ALIAS
, NULL
, GRID
+8 },
557 {"compress", 'Z', 0, 0,
558 N_("filter the archive through compress"), GRID
+8 },
559 {"uncompress", 0, 0, OPTION_ALIAS
, NULL
, GRID
+8 },
560 {"use-compress-program", USE_COMPRESS_PROGRAM_OPTION
, N_("PROG"), 0,
561 N_("filter through PROG (must accept -d)"), GRID
+8 },
566 N_("Local file selection:"), GRID
},
568 {"add-file", ARGP_KEY_ARG
, N_("FILE"), 0,
569 N_("add given FILE to the archive (useful if its name starts with a dash)"), GRID
+1 },
570 {"directory", 'C', N_("DIR"), 0,
571 N_("change to directory DIR"), GRID
+1 },
572 {"files-from", 'T', N_("FILE"), 0,
573 N_("get names to extract or create from FILE"), GRID
+1 },
574 {"null", NULL_OPTION
, 0, 0,
575 N_("-T reads null-terminated names, disable -C"), GRID
+1 },
576 {"unquote", UNQUOTE_OPTION
, 0, 0,
577 N_("unquote filenames read with -T (default)"), GRID
+1 },
578 {"no-unquote", NO_UNQUOTE_OPTION
, 0, 0,
579 N_("do not unquote filenames read with -T"), GRID
+1 },
580 {"exclude", EXCLUDE_OPTION
, N_("PATTERN"), 0,
581 N_("exclude files, given as a PATTERN"), GRID
+1 },
582 {"exclude-from", 'X', N_("FILE"), 0,
583 N_("exclude patterns listed in FILE"), GRID
+1 },
584 {"exclude-caches", EXCLUDE_CACHES_OPTION
, 0, 0,
585 N_("exclude directories containing a cache tag"), GRID
+1 },
586 {"ignore-case", IGNORE_CASE_OPTION
, 0, 0,
587 N_("exclusion ignores case"), GRID
+1 },
588 {"anchored", ANCHORED_OPTION
, 0, 0,
589 N_("exclude patterns match file name start"), GRID
+1 },
590 {"no-anchored", NO_ANCHORED_OPTION
, 0, 0,
591 N_("exclude patterns match after any `/' (default)"), GRID
+1 },
592 {"no-ignore-case", NO_IGNORE_CASE_OPTION
, 0, 0,
593 N_("exclusion is case sensitive (default)"), GRID
+1 },
594 {"no-wildcards", NO_WILDCARDS_OPTION
, 0, 0,
595 N_("exclude patterns are plain strings"), GRID
+1 },
596 {"no-wildcards-match-slash", NO_WILDCARDS_MATCH_SLASH_OPTION
, 0, 0,
597 N_("exclude pattern wildcards do not match `/'"), GRID
+1 },
598 {"no-recursion", NO_RECURSION_OPTION
, 0, 0,
599 N_("avoid descending automatically in directories"), GRID
+1 },
600 {"one-file-system", ONE_FILE_SYSTEM_OPTION
, 0, 0,
601 N_("stay in local file system when creating archive"), GRID
+1 },
602 {NULL
, 'l', 0, OPTION_HIDDEN
, "", GRID
+1 },
603 {"recursion", RECURSION_OPTION
, 0, 0,
604 N_("recurse into directories (default)"), GRID
+1 },
605 {"absolute-names", 'P', 0, 0,
606 N_("don't strip leading `/'s from file names"), GRID
+1 },
607 {"dereference", 'h', 0, 0,
608 N_("follow symlinks; archive and dump the files they point to"), GRID
+1 },
609 {"starting-file", 'K', N_("MEMBER-NAME"), 0,
610 N_("begin at member MEMBER-NAME in the archive"), GRID
+1 },
611 {"strip-components", STRIP_COMPONENTS_OPTION
, N_("NUMBER"), 0,
612 N_("strip NUMBER leading components from file names"), GRID
+1 },
613 {"newer", 'N', N_("DATE-OR-FILE"), 0,
614 N_("only store files newer than DATE-OR-FILE"), GRID
+1 },
615 {"newer-mtime", NEWER_MTIME_OPTION
, N_("DATE"), 0,
616 N_("compare date and time when data changed only"), GRID
+1 },
617 {"after-date", 'N', N_("DATE"), 0,
618 N_("same as -N"), GRID
+1 },
619 {"backup", BACKUP_OPTION
, N_("CONTROL"), OPTION_ARG_OPTIONAL
,
620 N_("backup before removal, choose version CONTROL"), GRID
+1 },
621 {"suffix", SUFFIX_OPTION
, N_("STRING"), 0,
622 N_("backup before removal, override usual suffix ('~' unless overridden by environment variable SIMPLE_BACKUP_SUFFIX)"), GRID
+1 },
623 {"wildcards", WILDCARDS_OPTION
, 0, 0,
624 N_("exclude patterns use wildcards (default)"), GRID
+1 },
625 {"wildcards-match-slash", WILDCARDS_MATCH_SLASH_OPTION
, 0, 0,
626 N_("exclude pattern wildcards match `/' (default)"), GRID
+1 },
631 N_("Informative output:"), GRID
},
633 {"verbose", 'v', 0, 0,
634 N_("verbosely list files processed"), GRID
+1 },
635 {"checkpoint", CHECKPOINT_OPTION
, 0, 0,
636 N_("display progress messages every 10th record"), GRID
+1 },
637 {"check-links", CHECK_LINKS_OPTION
, 0, 0,
638 N_("print a message if not all links are dumped"), GRID
+1 },
639 {"totals", TOTALS_OPTION
, 0, 0,
640 N_("print total bytes written while creating archive"), GRID
+1 },
641 {"utc", UTC_OPTION
, 0, 0,
642 N_("print file modification dates in UTC"), GRID
+1 },
643 {"index-file", INDEX_FILE_OPTION
, N_("FILE"), 0,
644 N_("send verbose output to FILE"), GRID
+1 },
645 {"block-number", 'R', 0, 0,
646 N_("show block number within archive with each message"), GRID
+1 },
647 {"interactive", 'w', 0, 0,
648 N_("ask for confirmation for every action"), GRID
+1 },
649 {"confirmation", 0, 0, OPTION_ALIAS
, NULL
, GRID
+1 },
650 {"show-defaults", SHOW_DEFAULTS_OPTION
, 0, 0,
651 N_("Show tar defaults"), GRID
+1 },
652 {"show-omitted-dirs", SHOW_OMITTED_DIRS_OPTION
, 0, 0,
653 N_("When listing or extracting, list each directory that does not match search criteria"), GRID
+1 },
654 {"show-stored-names", SHOW_STORED_NAMES_OPTION
, 0, 0,
655 N_("When creating archive in verbose mode, list member names as stored in the archive"),
657 {"quoting-style", QUOTING_STYLE_OPTION
, N_("STYLE"), 0,
658 N_("Set name quoting style. See below for valid STYLE values."), GRID
+1 },
659 {"quote-chars", QUOTE_CHARS_OPTION
, N_("STRING"), 0,
660 N_("Additionally quote characters from STRING"), GRID
+1 },
661 {"no-quote-chars", NO_QUOTE_CHARS_OPTION
, N_("STRING"), 0,
662 N_("Disable quoting for characters from STRING"), GRID
+1 },
667 N_("Compatibility options:"), GRID
},
670 N_("when creating, same as --old-archive. When extracting, same as --no-same-owner"), GRID
+1 },
675 N_("Other options:"), GRID
},
677 {"restrict", RESTRICT_OPTION
, 0, 0,
678 N_("Restrict use of some potentially harmful options"), -1 },
680 {"help", '?', 0, 0, N_("Give this help list"), -1},
681 {"usage", USAGE_OPTION
, 0, 0, N_("Give a short usage message"), -1},
682 {"version", VERSION_OPTION
, 0, 0, N_("Print program version"), -1},
683 /* FIXME -V (--label) conflicts with the default short option for
685 {"HANG", HANG_OPTION
, "SECS", OPTION_ARG_OPTIONAL
| OPTION_HIDDEN
,
686 N_("Hang for SECS seconds (default 3600)"), 0},
692 static char const *const atime_preserve_args
[] =
694 "replace", "system", NULL
696 static enum atime_preserve
const atime_preserve_types
[] =
698 replace_atime_preserve
, system_atime_preserve
700 ARGMATCH_VERIFY (atime_preserve_args
, atime_preserve_types
);
704 char const *textual_date_option
;
708 char const *backup_suffix_string
;
709 char const *version_control_string
;
714 show_default_settings (FILE *stream
)
717 "--format=%s -f%s -b%d --quoting-style=%s --rmt-command=%s",
718 archive_format_string (DEFAULT_ARCHIVE_FORMAT
),
719 DEFAULT_ARCHIVE
, DEFAULT_BLOCKING
,
720 quoting_style_args
[DEFAULT_QUOTING_STYLE
],
721 DEFAULT_RMT_COMMAND
);
723 fprintf (stream
, " --rsh-command=%s", REMOTE_SHELL
);
725 fprintf (stream
, "\n");
729 set_subcommand_option (enum subcommand subcommand
)
731 if (subcommand_option
!= UNKNOWN_SUBCOMMAND
732 && subcommand_option
!= subcommand
)
734 _("You may not specify more than one `-Acdtrux' option")));
736 subcommand_option
= subcommand
;
740 set_use_compress_program_option (const char *string
)
742 if (use_compress_program_option
743 && strcmp (use_compress_program_option
, string
) != 0)
744 USAGE_ERROR ((0, 0, _("Conflicting compression options")));
746 use_compress_program_option
= string
;
749 static volatile int _argp_hang
;
751 enum read_file_list_state
/* Result of reading file name from the list file */
753 file_list_success
, /* OK, name read successfully */
754 file_list_end
, /* End of list file */
755 file_list_zero
/* Zero separator encountered where it should not */
758 /* Read from FP a sequence of characters up to FILENAME_TERMINATOR and put them
761 static enum read_file_list_state
762 read_name_from_file (FILE *fp
, struct obstack
*stk
)
767 for (c
= getc (fp
); c
!= EOF
&& c
!= filename_terminator
; c
= getc (fp
))
771 /* We have read a zero separator. The file possibly is
773 /* FATAL_ERROR((0, 0, N_("file name contains null character"))); */
774 return file_list_zero
;
776 obstack_1grow (stk
, c
);
780 obstack_1grow (stk
, 0);
782 return (counter
== 0 && c
== EOF
) ? file_list_end
: file_list_success
;
786 static bool files_from_option
; /* When set, tar will not refuse to create
788 static struct obstack argv_stk
; /* Storage for additional command line options
789 read using -T option */
791 /* Prevent recursive inclusion of the same file */
794 struct file_id_list
*next
;
799 static struct file_id_list
*file_id_list
;
802 add_file_id (const char *filename
)
804 struct file_id_list
*p
;
807 if (stat (filename
, &st
))
808 stat_fatal (filename
);
809 for (p
= file_id_list
; p
; p
= p
->next
)
810 if (p
->ino
== st
.st_ino
&& p
->dev
== st
.st_dev
)
812 FATAL_ERROR ((0, 0, _("%s: file list already read"),
813 quotearg_colon (filename
)));
815 p
= xmalloc (sizeof *p
);
816 p
->next
= file_id_list
;
822 /* Default density numbers for [0-9][lmh] device specifications */
824 #ifndef LOW_DENSITY_NUM
825 # define LOW_DENSITY_NUM 0
828 #ifndef MID_DENSITY_NUM
829 # define MID_DENSITY_NUM 8
832 #ifndef HIGH_DENSITY_NUM
833 # define HIGH_DENSITY_NUM 16
837 update_argv (const char *filename
, struct argp_state
*state
)
844 bool is_stdin
= false;
845 enum read_file_list_state read_state
;
847 if (!strcmp (filename
, "-"))
850 request_stdin ("-T");
855 add_file_id (filename
);
856 if ((fp
= fopen (filename
, "r")) == NULL
)
857 open_fatal (filename
);
860 while ((read_state
= read_name_from_file (fp
, &argv_stk
)) == file_list_success
)
863 if (read_state
== file_list_zero
)
867 WARN ((0, 0, N_("%s: file name read contains nul character"),
868 quotearg_colon (filename
)));
870 /* Prepare new stack contents */
871 size
= obstack_object_size (&argv_stk
);
872 p
= obstack_finish (&argv_stk
);
873 for (; size
> 0; size
--, p
++)
875 obstack_1grow (&argv_stk
, *p
);
877 obstack_1grow (&argv_stk
, '\n');
878 obstack_1grow (&argv_stk
, 0);
881 /* Read rest of files using new filename terminator */
882 filename_terminator
= 0;
883 while (read_name_from_file (fp
, &argv_stk
) == file_list_success
)
893 start
= obstack_finish (&argv_stk
);
895 if (filename_terminator
== 0)
896 for (p
= start
; *p
; p
+= strlen (p
) + 1)
900 new_argc
= state
->argc
+ count
;
901 new_argv
= xmalloc (sizeof (state
->argv
[0]) * (new_argc
+ 1));
902 memcpy (new_argv
, state
->argv
, sizeof (state
->argv
[0]) * (state
->argc
+ 1));
903 state
->argv
= new_argv
;
904 memmove (&state
->argv
[state
->next
+ count
], &state
->argv
[state
->next
],
905 (state
->argc
- state
->next
+ 1) * sizeof (state
->argv
[0]));
907 state
->argc
= new_argc
;
909 for (i
= state
->next
, p
= start
; *p
; p
+= strlen (p
) + 1, i
++)
911 if (filename_terminator
== 0 && p
[0] == '-')
912 state
->argv
[i
++] = "--add-file";
919 parse_opt (int key
, char *arg
, struct argp_state
*state
)
921 struct tar_args
*args
= state
->input
;
926 /* File name or non-parsed option, because of ARGP_IN_ORDER */
932 set_subcommand_option (CAT_SUBCOMMAND
);
938 if (! (xstrtoumax (arg
, 0, 10, &u
, "") == LONGINT_OK
939 && u
== (blocking_factor
= u
)
940 && 0 < blocking_factor
941 && u
== (record_size
= u
* BLOCKSIZE
) / BLOCKSIZE
))
942 USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
943 _("Invalid blocking factor")));
948 /* Try to reblock input records. For reading 4.2BSD pipes. */
950 /* It would surely make sense to exchange -B and -R, but it seems
951 that -B has been used for a long while in Sun tar and most
952 BSD-derived systems. This is a consequence of the block/record
953 terminology confusion. */
955 read_full_records_option
= true;
959 set_subcommand_option (CREATE_SUBCOMMAND
);
968 set_subcommand_option (DIFF_SUBCOMMAND
);
972 if (archive_names
== allocated_archive_names
)
974 allocated_archive_names
*= 2;
976 xrealloc (archive_name_array
,
977 sizeof (const char *) * allocated_archive_names
);
979 archive_name_array
[archive_names
++] = arg
;
983 /* Since -F is only useful with -M, make it implied. Run this
984 script at the end of each tape. */
986 info_script_option
= arg
;
987 multi_volume_option
= true;
991 listed_incremental_option
= arg
;
992 after_date_option
= true;
996 /* We are making an incremental dump (FIXME: are we?); save
997 directories at the beginning of the archive, and include in each
998 directory its contents. */
1000 incremental_option
= true;
1004 /* Follow symbolic links. */
1005 dereference_option
= true;
1009 /* Ignore zero blocks (eofs). This can't be the default,
1010 because Unix tar writes two blocks of zeros, then pads out
1011 the record with garbage. */
1013 ignore_zeros_option
= true;
1018 _("Warning: the -I option is not supported;"
1019 " perhaps you meant -j or -T?")));
1023 set_use_compress_program_option ("bzip2");
1027 /* Don't replace existing files. */
1028 old_files_option
= KEEP_OLD_FILES
;
1032 starting_file_option
= true;
1037 /* Historically equivalent to --one-file-system. This usage is
1038 incompatible with UNIX98 and POSIX specs and therefore is
1039 deprecated. The semantics of -l option will be changed in
1040 future versions. See TODO.
1043 _("Semantics of -l option will change in the future releases.")));
1045 _("Please use --one-file-system option instead.")));
1047 case ONE_FILE_SYSTEM_OPTION
:
1048 /* When dumping directories, don't dump files/subdirectories
1049 that are on other filesystems. */
1050 one_file_system_option
= true;
1056 if (xstrtoumax (arg
, 0, 10, &u
, "") != LONGINT_OK
)
1057 USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1058 _("Invalid tape length")));
1059 tape_length_option
= 1024 * (tarlong
) u
;
1060 multi_volume_option
= true;
1065 touch_option
= true;
1069 /* Make multivolume archive: when we can't write any more into
1070 the archive, re-open it, and continue writing. */
1072 multi_volume_option
= true;
1076 seekable_archive
= true;
1080 after_date_option
= true;
1083 case NEWER_MTIME_OPTION
:
1084 if (NEWER_OPTION_INITIALIZED (newer_mtime_option
))
1085 USAGE_ERROR ((0, 0, _("More than one threshold date")));
1087 if (FILE_SYSTEM_PREFIX_LEN (arg
) != 0
1092 if (deref_stat (dereference_option
, arg
, &st
) != 0)
1095 USAGE_ERROR ((0, 0, _("Date sample file not found")));
1097 newer_mtime_option
= get_stat_mtime (&st
);
1101 if (! get_date (&newer_mtime_option
, arg
, NULL
))
1103 WARN ((0, 0, _("Substituting %s for unknown date format %s"),
1104 tartime (newer_mtime_option
, false), quote (arg
)));
1105 newer_mtime_option
.tv_nsec
= 0;
1108 args
->textual_date_option
= arg
;
1114 args
->o_option
= true;
1118 to_stdout_option
= true;
1122 same_permissions_option
= true;
1126 absolute_names_option
= true;
1130 set_subcommand_option (APPEND_SUBCOMMAND
);
1134 /* Print block numbers for debugging bad tar archives. */
1136 /* It would surely make sense to exchange -B and -R, but it seems
1137 that -B has been used for a long while in Sun tar ans most
1138 BSD-derived systems. This is a consequence of the block/record
1139 terminology confusion. */
1141 block_number_option
= true;
1145 /* Names to extr are sorted. */
1147 same_order_option
= true;
1151 sparse_option
= true;
1155 set_subcommand_option (LIST_SUBCOMMAND
);
1159 case TEST_LABEL_OPTION
:
1160 set_subcommand_option (LIST_SUBCOMMAND
);
1161 test_label_option
= true;
1165 update_argv (arg
, state
);
1166 /* Indicate we've been given -T option. This is for backward
1167 compatibility only, so that `tar cfT archive /dev/null will
1169 files_from_option
= true;
1173 set_subcommand_option (UPDATE_SUBCOMMAND
);
1177 old_files_option
= UNLINK_FIRST_OLD_FILES
;
1189 volume_label_option
= arg
;
1193 interactive_option
= true;
1197 verify_option
= true;
1201 set_subcommand_option (EXTRACT_SUBCOMMAND
);
1205 if (add_exclude_file (add_exclude
, excluded
, arg
,
1206 args
->exclude_options
| recursion_option
, '\n')
1210 FATAL_ERROR ((0, e
, "%s", quotearg_colon (arg
)));
1215 set_use_compress_program_option ("gzip");
1219 set_use_compress_program_option ("compress");
1222 case ANCHORED_OPTION
:
1223 args
->exclude_options
|= EXCLUDE_ANCHORED
;
1226 case ATIME_PRESERVE_OPTION
:
1227 atime_preserve_option
=
1229 ? XARGMATCH ("--atime-preserve", arg
,
1230 atime_preserve_args
, atime_preserve_types
)
1231 : replace_atime_preserve
);
1232 if (! O_NOATIME
&& atime_preserve_option
== system_atime_preserve
)
1234 _("--atime-preserve='system' is not supported"
1235 " on this platform")));
1238 case CHECKPOINT_OPTION
:
1239 checkpoint_option
= true;
1243 backup_option
= true;
1245 args
->version_control_string
= arg
;
1248 case DELAY_DIRECTORY_RESTORE_OPTION
:
1249 delay_directory_restore_option
= true;
1252 case NO_DELAY_DIRECTORY_RESTORE_OPTION
:
1253 delay_directory_restore_option
= false;
1257 set_subcommand_option (DELETE_SUBCOMMAND
);
1260 case EXCLUDE_OPTION
:
1261 add_exclude (excluded
, arg
, args
->exclude_options
| recursion_option
);
1264 case EXCLUDE_CACHES_OPTION
:
1265 exclude_caches_option
= true;
1268 case FORCE_LOCAL_OPTION
:
1269 force_local_option
= true;
1273 set_archive_format (arg
);
1276 case INDEX_FILE_OPTION
:
1277 index_file_name
= arg
;
1280 case IGNORE_CASE_OPTION
:
1281 args
->exclude_options
|= FNM_CASEFOLD
;
1284 case IGNORE_COMMAND_ERROR_OPTION
:
1285 ignore_command_error_option
= true;
1288 case IGNORE_FAILED_READ_OPTION
:
1289 ignore_failed_read_option
= true;
1292 case KEEP_NEWER_FILES_OPTION
:
1293 old_files_option
= KEEP_NEWER_FILES
;
1297 if (! (strlen (arg
) < GNAME_FIELD_SIZE
1298 && gname_to_gid (arg
, &group_option
)))
1301 if (xstrtoumax (arg
, 0, 10, &g
, "") == LONGINT_OK
1305 FATAL_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1306 _("%s: Invalid group")));
1311 mode_option
= mode_compile (arg
);
1313 FATAL_ERROR ((0, 0, _("Invalid mode given on option")));
1314 initial_umask
= umask (0);
1315 umask (initial_umask
);
1318 case NO_ANCHORED_OPTION
:
1319 args
->exclude_options
&= ~ EXCLUDE_ANCHORED
;
1322 case NO_IGNORE_CASE_OPTION
:
1323 args
->exclude_options
&= ~ FNM_CASEFOLD
;
1326 case NO_IGNORE_COMMAND_ERROR_OPTION
:
1327 ignore_command_error_option
= false;
1330 case NO_OVERWRITE_DIR_OPTION
:
1331 old_files_option
= NO_OVERWRITE_DIR_OLD_FILES
;
1334 case NO_QUOTE_CHARS_OPTION
:
1336 set_char_quoting (NULL
, *arg
, 0);
1339 case NO_WILDCARDS_OPTION
:
1340 args
->exclude_options
&= ~ EXCLUDE_WILDCARDS
;
1343 case NO_WILDCARDS_MATCH_SLASH_OPTION
:
1344 args
->exclude_options
|= FNM_FILE_NAME
;
1348 filename_terminator
= '\0';
1351 case NUMERIC_OWNER_OPTION
:
1352 numeric_owner_option
= true;
1355 case OCCURRENCE_OPTION
:
1357 occurrence_option
= 1;
1361 if (xstrtoumax (arg
, 0, 10, &u
, "") == LONGINT_OK
)
1362 occurrence_option
= u
;
1364 FATAL_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1365 _("Invalid number")));
1369 case OVERWRITE_OPTION
:
1370 old_files_option
= OVERWRITE_OLD_FILES
;
1374 if (! (strlen (arg
) < UNAME_FIELD_SIZE
1375 && uname_to_uid (arg
, &owner_option
)))
1378 if (xstrtoumax (arg
, 0, 10, &u
, "") == LONGINT_OK
1382 FATAL_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1383 _("Invalid owner")));
1387 case QUOTE_CHARS_OPTION
:
1389 set_char_quoting (NULL
, *arg
, 1);
1392 case QUOTING_STYLE_OPTION
:
1393 tar_set_quoting_style (arg
);
1398 xheader_set_option (arg
);
1402 set_archive_format ("posix");
1405 case PRESERVE_OPTION
:
1406 same_permissions_option
= true;
1407 same_order_option
= true;
1410 case RECORD_SIZE_OPTION
:
1413 if (! (xstrtoumax (arg
, 0, 10, &u
, "") == LONGINT_OK
1414 && u
== (size_t) u
))
1415 USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1416 _("Invalid record size")));
1418 if (record_size
% BLOCKSIZE
!= 0)
1419 USAGE_ERROR ((0, 0, _("Record size must be a multiple of %d."),
1421 blocking_factor
= record_size
/ BLOCKSIZE
;
1425 case RECURSIVE_UNLINK_OPTION
:
1426 recursive_unlink_option
= true;
1429 case REMOVE_FILES_OPTION
:
1430 remove_files_option
= true;
1433 case RESTRICT_OPTION
:
1434 restrict_option
= true;
1437 case RMT_COMMAND_OPTION
:
1441 case RSH_COMMAND_OPTION
:
1442 rsh_command_option
= arg
;
1445 case SHOW_DEFAULTS_OPTION
:
1446 show_default_settings (stdout
);
1450 case STRIP_COMPONENTS_OPTION
:
1453 if (! (xstrtoumax (arg
, 0, 10, &u
, "") == LONGINT_OK
1454 && u
== (size_t) u
))
1455 USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (arg
),
1456 _("Invalid number of elements")));
1457 strip_name_components
= u
;
1461 case SHOW_OMITTED_DIRS_OPTION
:
1462 show_omitted_dirs_option
= true;
1465 case SHOW_STORED_NAMES_OPTION
:
1466 show_stored_names_option
= true;
1470 backup_option
= true;
1471 args
->backup_suffix_string
= arg
;
1474 case TO_COMMAND_OPTION
:
1475 if (to_command_option
)
1476 USAGE_ERROR ((0, 0, _("Only one --to-command option allowed")));
1477 to_command_option
= arg
;
1481 totals_option
= true;
1484 case USE_COMPRESS_PROGRAM_OPTION
:
1485 set_use_compress_program_option (arg
);
1488 case VOLNO_FILE_OPTION
:
1489 volno_file_option
= arg
;
1492 case WILDCARDS_OPTION
:
1493 args
->exclude_options
|= EXCLUDE_WILDCARDS
;
1496 case WILDCARDS_MATCH_SLASH_OPTION
:
1497 args
->exclude_options
&= ~ FNM_FILE_NAME
;
1500 case CHECK_LINKS_OPTION
:
1501 check_links_option
= 1;
1504 case NO_RECURSION_OPTION
:
1505 recursion_option
= 0;
1508 case NO_SAME_OWNER_OPTION
:
1509 same_owner_option
= -1;
1512 case NO_SAME_PERMISSIONS_OPTION
:
1513 same_permissions_option
= -1;
1516 case RECURSION_OPTION
:
1517 recursion_option
= FNM_LEADING_DIR
;
1520 case SAME_OWNER_OPTION
:
1521 same_owner_option
= 1;
1524 case UNQUOTE_OPTION
:
1525 unquote_option
= true;
1528 case NO_UNQUOTE_OPTION
:
1529 unquote_option
= false;
1541 #ifdef DEVICE_PREFIX
1543 int device
= key
- '0';
1545 static char buf
[sizeof DEVICE_PREFIX
+ 10];
1549 argp_error (state
, _("Malformed density argument: %s"), quote (arg
));
1551 strcpy (buf
, DEVICE_PREFIX
);
1552 cursor
= buf
+ strlen (buf
);
1554 #ifdef DENSITY_LETTER
1556 sprintf (cursor
, "%d%c", device
, arg
[0]);
1558 #else /* not DENSITY_LETTER */
1563 device
+= LOW_DENSITY_NUM
;
1567 device
+= MID_DENSITY_NUM
;
1571 device
+= HIGH_DENSITY_NUM
;
1575 argp_error (state
, _("Unknown density: `%c'"), arg
[0]);
1577 sprintf (cursor
, "%d", device
);
1579 #endif /* not DENSITY_LETTER */
1581 if (archive_names
== allocated_archive_names
)
1583 allocated_archive_names
*= 2;
1584 archive_name_array
=
1585 xrealloc (archive_name_array
,
1586 sizeof (const char *) * allocated_archive_names
);
1588 archive_name_array
[archive_names
++] = xstrdup (buf
);
1592 #else /* not DEVICE_PREFIX */
1595 _("Options `-[0-7][lmh]' not supported by *this* tar"));
1597 #endif /* not DEVICE_PREFIX */
1600 state
->flags
|= ARGP_NO_EXIT
;
1601 argp_state_help (state
, state
->out_stream
,
1602 ARGP_HELP_STD_HELP
& ~ARGP_HELP_BUG_ADDR
);
1603 fprintf (state
->out_stream
, "\n%s\n\n",
1604 _("Valid arguments for --quoting-style options are:"));
1605 tar_list_quoting_styles (state
->out_stream
, " ");
1607 fprintf (state
->out_stream
, _("\n*This* tar defaults to:\n"));
1608 show_default_settings (state
->out_stream
);
1609 fprintf (state
->out_stream
, "\n");
1610 fprintf (state
->out_stream
, _("Report bugs to %s.\n"),
1611 argp_program_bug_address
);
1616 argp_state_help (state
, state
->out_stream
, ARGP_HELP_USAGE
);
1620 case VERSION_OPTION
:
1621 version_etc (state
->out_stream
, "tar", PACKAGE_NAME
, VERSION
,
1622 "John Gilmore", "Jay Fenlason", (char *) NULL
);
1627 _argp_hang
= atoi (arg
? arg
: "3600");
1628 while (_argp_hang
-- > 0)
1633 return ARGP_ERR_UNKNOWN
;
1638 static struct argp argp
= {
1651 argp_help (&argp
, stderr
, ARGP_HELP_SEE
, (char*) program_name
);
1656 /* Parse the options for tar. */
1658 static struct argp_option
*
1659 find_argp_option (struct argp_option
*options
, int letter
)
1662 !(options
->name
== NULL
1663 && options
->key
== 0
1664 && options
->arg
== 0
1665 && options
->flags
== 0
1666 && options
->doc
== NULL
); options
++)
1667 if (options
->key
== letter
)
1673 decode_options (int argc
, char **argv
)
1676 struct tar_args args
;
1678 /* Set some default option values. */
1679 args
.textual_date_option
= NULL
;
1680 args
.exclude_options
= EXCLUDE_WILDCARDS
;
1682 args
.pax_option
= 0;
1683 args
.backup_suffix_string
= getenv ("SIMPLE_BACKUP_SUFFIX");
1684 args
.version_control_string
= 0;
1685 args
.input_files
= 0;
1687 subcommand_option
= UNKNOWN_SUBCOMMAND
;
1688 archive_format
= DEFAULT_FORMAT
;
1689 blocking_factor
= DEFAULT_BLOCKING
;
1690 record_size
= DEFAULT_BLOCKING
* BLOCKSIZE
;
1691 excluded
= new_exclude ();
1692 newer_mtime_option
.tv_sec
= TYPE_MINIMUM (time_t);
1693 newer_mtime_option
.tv_nsec
= -1;
1694 recursion_option
= FNM_LEADING_DIR
;
1695 unquote_option
= true;
1700 /* Convert old-style tar call by exploding option element and rearranging
1701 options accordingly. */
1703 if (argc
> 1 && argv
[1][0] != '-')
1705 int new_argc
; /* argc value for rearranged arguments */
1706 char **new_argv
; /* argv value for rearranged arguments */
1707 char *const *in
; /* cursor into original argv */
1708 char **out
; /* cursor into rearranged argv */
1709 const char *letter
; /* cursor into old option letters */
1710 char buffer
[3]; /* constructed option buffer */
1712 /* Initialize a constructed option. */
1717 /* Allocate a new argument array, and copy program name in it. */
1719 new_argc
= argc
- 1 + strlen (argv
[1]);
1720 new_argv
= xmalloc ((new_argc
+ 1) * sizeof (char *));
1725 /* Copy each old letter option as a separate option, and have the
1726 corresponding argument moved next to it. */
1728 for (letter
= *in
++; *letter
; letter
++)
1730 struct argp_option
*opt
;
1732 buffer
[1] = *letter
;
1733 *out
++ = xstrdup (buffer
);
1734 opt
= find_argp_option (options
, *letter
);
1735 if (opt
&& opt
->arg
)
1737 if (in
< argv
+ argc
)
1740 USAGE_ERROR ((0, 0, _("Old option `%c' requires an argument."),
1745 /* Copy all remaining options. */
1747 while (in
< argv
+ argc
)
1751 /* Replace the old option list by the new one. */
1757 /* Parse all options and non-options as they appear. */
1759 prepend_default_options (getenv ("TAR_OPTIONS"), &argc
, &argv
);
1761 if (argp_parse (&argp
, argc
, argv
, ARGP_IN_ORDER
|ARGP_NO_HELP
,
1763 exit (TAREXIT_FAILURE
);
1766 /* Special handling for 'o' option:
1768 GNU tar used to say "output old format".
1769 UNIX98 tar says don't chown files after extracting (we use
1770 "--no-same-owner" for this).
1772 The old GNU tar semantics is retained when used with --create
1773 option, otherwise UNIX98 semantics is assumed */
1777 if (subcommand_option
== CREATE_SUBCOMMAND
)
1779 /* GNU Tar <= 1.13 compatibility */
1780 set_archive_format ("v7");
1784 /* UNIX98 compatibility */
1785 same_owner_option
= -1;
1789 /* Handle operands after any "--" argument. */
1790 for (; index
< argc
; index
++)
1792 name_add (argv
[index
]);
1796 /* Derive option values and check option consistency. */
1798 if (archive_format
== DEFAULT_FORMAT
)
1800 if (args
.pax_option
)
1801 archive_format
= POSIX_FORMAT
;
1803 archive_format
= DEFAULT_ARCHIVE_FORMAT
;
1806 if ((volume_label_option
&& subcommand_option
== CREATE_SUBCOMMAND
)
1807 || incremental_option
1808 || multi_volume_option
1810 assert_format (FORMAT_MASK (OLDGNU_FORMAT
)
1811 | FORMAT_MASK (GNU_FORMAT
)
1812 | FORMAT_MASK (POSIX_FORMAT
));
1814 if (multi_volume_option
1815 && archive_format
== POSIX_FORMAT
1816 && subcommand_option
== CREATE_SUBCOMMAND
1817 && !tape_length_option
)
1819 _("creating multi-volume archives in posix format requires using --tape-length (-L) option")));
1821 if (occurrence_option
)
1823 if (!args
.input_files
)
1825 _("--occurrence is meaningless without a file list")));
1826 if (subcommand_option
!= DELETE_SUBCOMMAND
1827 && subcommand_option
!= DIFF_SUBCOMMAND
1828 && subcommand_option
!= EXTRACT_SUBCOMMAND
1829 && subcommand_option
!= LIST_SUBCOMMAND
)
1831 _("--occurrence cannot be used in the requested operation mode")));
1834 if (seekable_archive
&& subcommand_option
== DELETE_SUBCOMMAND
)
1836 /* The current code in delete.c is based on the assumption that
1837 skip_member() reads all data from the archive. So, we should
1838 make sure it won't use seeks. On the other hand, the same code
1839 depends on the ability to backspace a record in the archive,
1840 so setting seekable_archive to false is technically incorrect.
1841 However, it is tested only in skip_member(), so it's not a
1843 seekable_archive
= false;
1846 if (archive_names
== 0)
1848 /* If no archive file name given, try TAPE from the environment, or
1849 else, DEFAULT_ARCHIVE from the configuration process. */
1852 archive_name_array
[0] = getenv ("TAPE");
1853 if (! archive_name_array
[0])
1854 archive_name_array
[0] = DEFAULT_ARCHIVE
;
1857 /* Allow multiple archives only with `-M'. */
1859 if (archive_names
> 1 && !multi_volume_option
)
1861 _("Multiple archive files require `-M' option")));
1863 if (listed_incremental_option
1864 && NEWER_OPTION_INITIALIZED (newer_mtime_option
))
1866 _("Cannot combine --listed-incremental with --newer")));
1868 if (volume_label_option
)
1870 if (archive_format
== GNU_FORMAT
|| archive_format
== OLDGNU_FORMAT
)
1872 size_t volume_label_max_len
=
1873 (sizeof current_header
->header
.name
1874 - 1 /* for trailing '\0' */
1875 - (multi_volume_option
1876 ? (sizeof " Volume "
1877 - 1 /* for null at end of " Volume " */
1878 + INT_STRLEN_BOUND (int) /* for volume number */
1879 - 1 /* for sign, as 0 <= volno */)
1881 if (volume_label_max_len
< strlen (volume_label_option
))
1883 ngettext ("%s: Volume label is too long (limit is %lu byte)",
1884 "%s: Volume label is too long (limit is %lu bytes)",
1885 volume_label_max_len
),
1886 quotearg_colon (volume_label_option
),
1887 (unsigned long) volume_label_max_len
));
1890 Label length in PAX format is limited by the volume size. */
1895 if (multi_volume_option
)
1896 USAGE_ERROR ((0, 0, _("Cannot verify multi-volume archives")));
1897 if (use_compress_program_option
)
1898 USAGE_ERROR ((0, 0, _("Cannot verify compressed archives")));
1901 if (use_compress_program_option
)
1903 if (multi_volume_option
)
1904 USAGE_ERROR ((0, 0, _("Cannot use multi-volume compressed archives")));
1905 if (subcommand_option
== UPDATE_SUBCOMMAND
1906 || subcommand_option
== APPEND_SUBCOMMAND
1907 || subcommand_option
== DELETE_SUBCOMMAND
)
1908 USAGE_ERROR ((0, 0, _("Cannot update compressed archives")));
1909 if (subcommand_option
== CAT_SUBCOMMAND
)
1910 USAGE_ERROR ((0, 0, _("Cannot concatenate compressed archives")));
1913 /* It is no harm to use --pax-option on non-pax archives in archive
1914 reading mode. It may even be useful, since it allows to override
1915 file attributes from tar headers. Therefore I allow such usage.
1918 && archive_format
!= POSIX_FORMAT
1919 && (subcommand_option
!= EXTRACT_SUBCOMMAND
1920 || subcommand_option
!= DIFF_SUBCOMMAND
1921 || subcommand_option
!= LIST_SUBCOMMAND
))
1922 USAGE_ERROR ((0, 0, _("--pax-option can be used only on POSIX archives")));
1924 /* If ready to unlink hierarchies, so we are for simpler files. */
1925 if (recursive_unlink_option
)
1926 old_files_option
= UNLINK_FIRST_OLD_FILES
;
1929 if (test_label_option
)
1931 /* --test-label is silent if the user has specified the label name to
1933 if (args
.input_files
== 0)
1936 else if (utc_option
)
1939 /* Forbid using -c with no input files whatsoever. Check that `-f -',
1940 explicit or implied, is used correctly. */
1942 switch (subcommand_option
)
1944 case CREATE_SUBCOMMAND
:
1945 if (args
.input_files
== 0 && !files_from_option
)
1947 _("Cowardly refusing to create an empty archive")));
1950 case EXTRACT_SUBCOMMAND
:
1951 case LIST_SUBCOMMAND
:
1952 case DIFF_SUBCOMMAND
:
1953 for (archive_name_cursor
= archive_name_array
;
1954 archive_name_cursor
< archive_name_array
+ archive_names
;
1955 archive_name_cursor
++)
1956 if (!strcmp (*archive_name_cursor
, "-"))
1957 request_stdin ("-f");
1960 case CAT_SUBCOMMAND
:
1961 case UPDATE_SUBCOMMAND
:
1962 case APPEND_SUBCOMMAND
:
1963 for (archive_name_cursor
= archive_name_array
;
1964 archive_name_cursor
< archive_name_array
+ archive_names
;
1965 archive_name_cursor
++)
1966 if (!strcmp (*archive_name_cursor
, "-"))
1968 _("Options `-Aru' are incompatible with `-f -'")));
1974 archive_name_cursor
= archive_name_array
;
1976 /* Prepare for generating backup names. */
1978 if (args
.backup_suffix_string
)
1979 simple_backup_suffix
= xstrdup (args
.backup_suffix_string
);
1983 backup_type
= xget_version ("--backup", args
.version_control_string
);
1984 /* No backup is needed either if explicitely disabled or if
1985 the extracted files are not being written to disk. */
1986 if (backup_type
== no_backups
|| EXTRACT_OVER_PIPE
)
1987 backup_option
= false;
1990 if (verbose_option
&& args
.textual_date_option
)
1992 char const *treated_as
= tartime (newer_mtime_option
, true);
1993 if (strcmp (args
.textual_date_option
, treated_as
) != 0)
1994 WARN ((0, 0, _("Treating date `%s' as %s"),
1995 args
.textual_date_option
, treated_as
));
2002 /* Main routine for tar. */
2004 main (int argc
, char **argv
)
2007 program_name
= argv
[0];
2009 setlocale (LC_ALL
, "");
2010 bindtextdomain (PACKAGE
, LOCALEDIR
);
2011 textdomain (PACKAGE
);
2013 exit_failure
= TAREXIT_FAILURE
;
2014 exit_status
= TAREXIT_SUCCESS
;
2015 filename_terminator
= '\n';
2016 set_quoting_style (0, DEFAULT_QUOTING_STYLE
);
2018 /* Make sure we have first three descriptors available */
2021 /* Pre-allocate a few structures. */
2023 allocated_archive_names
= 10;
2024 archive_name_array
=
2025 xmalloc (sizeof (const char *) * allocated_archive_names
);
2028 obstack_init (&argv_stk
);
2031 /* System V fork+wait does not work if SIGCHLD is ignored. */
2032 signal (SIGCHLD
, SIG_DFL
);
2037 /* Decode options. */
2039 decode_options (argc
, argv
);
2042 /* Main command execution. */
2044 if (volno_file_option
)
2045 init_volume_number ();
2047 switch (subcommand_option
)
2049 case UNKNOWN_SUBCOMMAND
:
2051 _("You must specify one of the `-Acdtrux' options")));
2053 case CAT_SUBCOMMAND
:
2054 case UPDATE_SUBCOMMAND
:
2055 case APPEND_SUBCOMMAND
:
2059 case DELETE_SUBCOMMAND
:
2060 delete_archive_members ();
2063 case CREATE_SUBCOMMAND
:
2066 print_total_written ();
2069 case EXTRACT_SUBCOMMAND
:
2071 read_and (extract_archive
);
2073 /* FIXME: should extract_finish () even if an ordinary signal is
2079 case LIST_SUBCOMMAND
:
2080 read_and (list_archive
);
2083 case DIFF_SUBCOMMAND
:
2085 read_and (diff_archive
);
2089 if (check_links_option
)
2092 if (volno_file_option
)
2093 closeout_volume_number ();
2095 /* Dispose of allocated memory, and return. */
2097 free (archive_name_array
);
2100 if (stdlis
== stdout
)
2103 if (exit_status
== TAREXIT_FAILURE
)
2104 error (0, 0, _("Error exit delayed from previous errors"));
2105 if (ferror (stderr
) || fclose (stderr
) != 0)
2106 exit_status
= TAREXIT_FAILURE
;
2111 tar_stat_init (struct tar_stat_info
*st
)
2113 memset (st
, 0, sizeof (*st
));
2117 tar_stat_destroy (struct tar_stat_info
*st
)
2119 free (st
->orig_file_name
);
2120 free (st
->file_name
);
2121 free (st
->link_name
);
2124 free (st
->sparse_map
);
2126 memset (st
, 0, sizeof (*st
));
2129 /* Format mask for all available formats that support nanosecond
2130 timestamp resolution. */
2131 #define NS_PRECISION_FORMAT_MASK FORMAT_MASK (POSIX_FORMAT)
2133 /* Same as timespec_cmp, but ignore nanoseconds if current archive
2134 format does not provide sufficient resolution. */
2136 tar_timespec_cmp (struct timespec a
, struct timespec b
)
2138 if (!(FORMAT_MASK (current_format
) & NS_PRECISION_FORMAT_MASK
))
2139 a
.tv_nsec
= b
.tv_nsec
= 0;
2140 return timespec_cmp (a
, b
);