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