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