]> Dogcows Code - chaz/tar/blob - src/tar.c
projects / chaz / tar / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Updated
[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 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 2, 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 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
21
22 #include "system.h"
23
24 #include <fnmatch.h>
25 #include <getopt.h>
26
27 #include <signal.h>
28 #if ! defined SIGCHLD && defined SIGCLD
29 # define SIGCHLD SIGCLD
30 #endif
31
32 /* The following causes "common.h" to produce definitions of all the global
33 variables, rather than just "extern" declarations of them. GNU tar does
34 depend on the system loader to preset all GLOBAL variables to neutral (or
35 zero) values; explicit initialization is usually not done. */
36 #define GLOBAL
37 #include "common.h"
38
39 #include <getdate.h>
40 #include <localedir.h>
41 #include <prepargs.h>
42 #include <quotearg.h>
43 #include <xstrtol.h>
44
45 /* Local declarations. */
46
47 #ifndef DEFAULT_ARCHIVE_FORMAT
48 # define DEFAULT_ARCHIVE_FORMAT GNU_FORMAT
49 #endif
50
51 #ifndef DEFAULT_ARCHIVE
52 # define DEFAULT_ARCHIVE "tar.out"
53 #endif
54
55 #ifndef DEFAULT_BLOCKING
56 # define DEFAULT_BLOCKING 20
57 #endif
58
59 void usage (int) __attribute__ ((noreturn));
60 \f
61 /* Miscellaneous. */
62
63 /* Name of option using stdin. */
64 static const char *stdin_used_by;
65
66 /* Doesn't return if stdin already requested. */
67 void
68 request_stdin (const char *option)
69 {
70 if (stdin_used_by)
71 USAGE_ERROR ((0, 0, _("Options `-%s' and `-%s' both want standard input"),
72 stdin_used_by, option));
73
74 stdin_used_by = option;
75 }
76
77 /* Returns true if and only if the user typed 'y' or 'Y'. */
78 int
79 confirm (const char *message_action, const char *message_name)
80 {
81 static FILE *confirm_file;
82 static int confirm_file_EOF;
83
84 if (!confirm_file)
85 {
86 if (archive == 0 || stdin_used_by)
87 {
88 confirm_file = fopen (TTY_NAME, "r");
89 if (! confirm_file)
90 open_fatal (TTY_NAME);
91 }
92 else
93 {
94 request_stdin ("-w");
95 confirm_file = stdin;
96 }
97 }
98
99 fprintf (stdlis, "%s %s?", message_action, quote (message_name));
100 fflush (stdlis);
101
102 {
103 int reply = confirm_file_EOF ? EOF : getc (confirm_file);
104 int character;
105
106 for (character = reply;
107 character != '\n';
108 character = getc (confirm_file))
109 if (character == EOF)
110 {
111 confirm_file_EOF = 1;
112 fputc ('\n', stdlis);
113 fflush (stdlis);
114 break;
115 }
116 return reply == 'y' || reply == 'Y';
117 }
118 }
119
120 static struct fmttab {
121 char const *name;
122 enum archive_format fmt;
123 } const fmttab[] = {
124 { "v7", V7_FORMAT },
125 { "oldgnu", OLDGNU_FORMAT },
126 { "ustar", USTAR_FORMAT },
127 { "posix", POSIX_FORMAT },
128 #if 0 /* not fully supported yet */
129 { "star", STAR_FORMAT },
130 #endif
131 { "gnu", GNU_FORMAT },
132 { NULL, 0 }
133 };
134
135 static void
136 set_archive_format (char const *name)
137 {
138 struct fmttab const *p;
139
140 for (p = fmttab; strcmp (p->name, name) != 0; )
141 if (! (++p)->name)
142 USAGE_ERROR ((0, 0, _("%s: Invalid archive format"),
143 quotearg_colon (name)));
144
145 archive_format = p->fmt;
146 }
147
148 static const char *
149 archive_format_string (enum archive_format fmt)
150 {
151 struct fmttab const *p;
152
153 for (p = fmttab; p->name; p++)
154 if (p->fmt == fmt)
155 return p->name;
156 return "unknown?";
157 }
158
159 #define FORMAT_MASK(n) (1<<(n))
160
161 static void
162 assert_format(unsigned fmt_mask)
163 {
164 if ((FORMAT_MASK(archive_format) & fmt_mask) == 0)
165 USAGE_ERROR ((0, 0,
166 _("GNU features wanted on incompatible archive format")));
167 }
168
169
170 \f
171 /* Options. */
172
173 /* For long options that unconditionally set a single flag, we have getopt
174 do it. For the others, we share the code for the equivalent short
175 named option, the name of which is stored in the otherwise-unused `val'
176 field of the `struct option'; for long options that have no equivalent
177 short option, we use non-characters as pseudo short options,
178 starting at CHAR_MAX + 1 and going upwards. */
179
180 enum
181 {
182 ANCHORED_OPTION = CHAR_MAX + 1,
183 ATIME_PRESERVE_OPTION,
184 BACKUP_OPTION,
185 CHECKPOINT_OPTION,
186 DELETE_OPTION,
187 EXCLUDE_OPTION,
188 FORCE_LOCAL_OPTION,
189 FORMAT_OPTION,
190 GROUP_OPTION,
191 IGNORE_CASE_OPTION,
192 IGNORE_FAILED_READ_OPTION,
193 INDEX_FILE_OPTION,
194 KEEP_NEWER_FILES_OPTION,
195 MODE_OPTION,
196 NEWER_MTIME_OPTION,
197 NO_ANCHORED_OPTION,
198 NO_IGNORE_CASE_OPTION,
199 NO_OVERWRITE_DIR_OPTION,
200 NO_WILDCARDS_OPTION,
201 NO_WILDCARDS_MATCH_SLASH_OPTION,
202 NULL_OPTION,
203 NUMERIC_OWNER_OPTION,
204 OCCURRENCE_OPTION,
205 OVERWRITE_OPTION,
206 OWNER_OPTION,
207 PAX_OPTION,
208 POSIX_OPTION,
209 PRESERVE_OPTION,
210 RECORD_SIZE_OPTION,
211 RECURSIVE_UNLINK_OPTION,
212 REMOVE_FILES_OPTION,
213 RSH_COMMAND_OPTION,
214 SHOW_DEFAULTS_OPTION,
215 SHOW_OMITTED_DIRS_OPTION,
216 STRIP_PATH_OPTION,
217 SUFFIX_OPTION,
218 TOTALS_OPTION,
219 USE_COMPRESS_PROGRAM_OPTION,
220 UTC_OPTION,
221 VOLNO_FILE_OPTION,
222 WILDCARDS_OPTION,
223 WILDCARDS_MATCH_SLASH_OPTION
224 };
225
226 /* If nonzero, display usage information and exit. */
227 static int show_help;
228
229 /* If nonzero, print the version on standard output and exit. */
230 static int show_version;
231
232 static struct option long_options[] =
233 {
234 {"absolute-names", no_argument, 0, 'P'},
235 {"after-date", required_argument, 0, 'N'},
236 {"anchored", no_argument, 0, ANCHORED_OPTION},
237 {"append", no_argument, 0, 'r'},
238 {"atime-preserve", no_argument, 0, ATIME_PRESERVE_OPTION},
239 {"backup", optional_argument, 0, BACKUP_OPTION},
240 {"block-number", no_argument, 0, 'R'},
241 {"blocking-factor", required_argument, 0, 'b'},
242 {"bzip2", no_argument, 0, 'j'},
243 {"catenate", no_argument, 0, 'A'},
244 {"checkpoint", no_argument, 0, CHECKPOINT_OPTION},
245 {"check-links", no_argument, &check_links_option, 1},
246 {"compare", no_argument, 0, 'd'},
247 {"compress", no_argument, 0, 'Z'},
248 {"concatenate", no_argument, 0, 'A'},
249 {"confirmation", no_argument, 0, 'w'},
250 /* FIXME: --selective as a synonym for --confirmation? */
251 {"create", no_argument, 0, 'c'},
252 {"delete", no_argument, 0, DELETE_OPTION},
253 {"dereference", no_argument, 0, 'h'},
254 {"diff", no_argument, 0, 'd'},
255 {"directory", required_argument, 0, 'C'},
256 {"exclude", required_argument, 0, EXCLUDE_OPTION},
257 {"exclude-from", required_argument, 0, 'X'},
258 {"extract", no_argument, 0, 'x'},
259 {"file", required_argument, 0, 'f'},
260 {"files-from", required_argument, 0, 'T'},
261 {"force-local", no_argument, 0, FORCE_LOCAL_OPTION},
262 {"format", required_argument, 0, FORMAT_OPTION},
263 {"get", no_argument, 0, 'x'},
264 {"group", required_argument, 0, GROUP_OPTION},
265 {"gunzip", no_argument, 0, 'z'},
266 {"gzip", no_argument, 0, 'z'},
267 {"help", no_argument, &show_help, 1},
268 {"ignore-case", no_argument, 0, IGNORE_CASE_OPTION},
269 {"ignore-failed-read", no_argument, 0, IGNORE_FAILED_READ_OPTION},
270 {"ignore-zeros", no_argument, 0, 'i'},
271 /* FIXME: --ignore-end as a new name for --ignore-zeros? */
272 {"incremental", no_argument, 0, 'G'},
273 {"index-file", required_argument, 0, INDEX_FILE_OPTION},
274 {"info-script", required_argument, 0, 'F'},
275 {"interactive", no_argument, 0, 'w'},
276 {"keep-newer-files", no_argument, 0, KEEP_NEWER_FILES_OPTION},
277 {"keep-old-files", no_argument, 0, 'k'},
278 {"label", required_argument, 0, 'V'},
279 {"list", no_argument, 0, 't'},
280 {"listed-incremental", required_argument, 0, 'g'},
281 {"mode", required_argument, 0, MODE_OPTION},
282 {"multi-volume", no_argument, 0, 'M'},
283 {"new-volume-script", required_argument, 0, 'F'},
284 {"newer", required_argument, 0, 'N'},
285 {"newer-mtime", required_argument, 0, NEWER_MTIME_OPTION},
286 {"null", no_argument, 0, NULL_OPTION},
287 {"no-anchored", no_argument, 0, NO_ANCHORED_OPTION},
288 {"no-ignore-case", no_argument, 0, NO_IGNORE_CASE_OPTION},
289 {"no-overwrite-dir", no_argument, 0, NO_OVERWRITE_DIR_OPTION},
290 {"no-wildcards", no_argument, 0, NO_WILDCARDS_OPTION},
291 {"no-wildcards-match-slash", no_argument, 0, NO_WILDCARDS_MATCH_SLASH_OPTION},
292 {"no-recursion", no_argument, &recursion_option, 0},
293 {"no-same-owner", no_argument, &same_owner_option, -1},
294 {"no-same-permissions", no_argument, &same_permissions_option, -1},
295 {"numeric-owner", no_argument, 0, NUMERIC_OWNER_OPTION},
296 {"occurrence", optional_argument, 0, OCCURRENCE_OPTION},
297 {"old-archive", no_argument, 0, 'o'},
298 {"one-file-system", no_argument, 0, 'l'},
299 {"overwrite", no_argument, 0, OVERWRITE_OPTION},
300 {"owner", required_argument, 0, OWNER_OPTION},
301 {"pax-option", required_argument, 0, PAX_OPTION},
302 {"portability", no_argument, 0, 'o'},
303 {"posix", no_argument, 0, POSIX_OPTION},
304 {"preserve", no_argument, 0, PRESERVE_OPTION},
305 {"preserve-order", no_argument, 0, 's'},
306 {"preserve-permissions", no_argument, 0, 'p'},
307 {"recursion", no_argument, &recursion_option, FNM_LEADING_DIR},
308 {"recursive-unlink", no_argument, 0, RECURSIVE_UNLINK_OPTION},
309 {"read-full-records", no_argument, 0, 'B'},
310 /* FIXME: --partial-blocks might be a synonym for --read-full-records? */
311 {"record-size", required_argument, 0, RECORD_SIZE_OPTION},
312 {"remove-files", no_argument, 0, REMOVE_FILES_OPTION},
313 {"rsh-command", required_argument, 0, RSH_COMMAND_OPTION},
314 {"same-order", no_argument, 0, 's'},
315 {"same-owner", no_argument, &same_owner_option, 1},
316 {"same-permissions", no_argument, 0, 'p'},
317 {"show-defaults", no_argument, 0, SHOW_DEFAULTS_OPTION},
318 {"show-omitted-dirs", no_argument, 0, SHOW_OMITTED_DIRS_OPTION},
319 {"sparse", no_argument, 0, 'S'},
320 {"starting-file", required_argument, 0, 'K'},
321 {"strip-path", required_argument, 0, STRIP_PATH_OPTION },
322 {"suffix", required_argument, 0, SUFFIX_OPTION},
323 {"tape-length", required_argument, 0, 'L'},
324 {"to-stdout", no_argument, 0, 'O'},
325 {"totals", no_argument, 0, TOTALS_OPTION},
326 {"touch", no_argument, 0, 'm'},
327 {"uncompress", no_argument, 0, 'Z'},
328 {"ungzip", no_argument, 0, 'z'},
329 {"unlink-first", no_argument, 0, 'U'},
330 {"update", no_argument, 0, 'u'},
331 {"utc", no_argument, 0, UTC_OPTION },
332 {"use-compress-program", required_argument, 0, USE_COMPRESS_PROGRAM_OPTION},
333 {"verbose", no_argument, 0, 'v'},
334 {"verify", no_argument, 0, 'W'},
335 {"version", no_argument, &show_version, 1},
336 {"volno-file", required_argument, 0, VOLNO_FILE_OPTION},
337 {"wildcards", no_argument, 0, WILDCARDS_OPTION},
338 {"wildcards-match-slash", no_argument, 0, WILDCARDS_MATCH_SLASH_OPTION},
339
340 {0, 0, 0, 0}
341 };
342
343 /* Print a usage message and exit with STATUS. */
344 void
345 usage (int status)
346 {
347 if (status != TAREXIT_SUCCESS)
348 fprintf (stderr, _("Try `%s --help' for more information.\n"),
349 program_name);
350 else
351 {
352 fputs (_("\
353 GNU `tar' saves many files together into a single tape or disk archive, and\n\
354 can restore individual files from the archive.\n"),
355 stdout);
356 printf (_("\nUsage: %s [OPTION]... [FILE]...\n\
357 \n\
358 Examples:\n\
359 %s -cf archive.tar foo bar # Create archive.tar from files foo and bar.\n\
360 %s -tvf archive.tar # List all files in archive.tar verbosely.\n\
361 %s -xf archive.tar # Extract all files from archive.tar.\n"),
362 program_name, program_name, program_name, program_name);
363 fputs (_("\
364 \n\
365 If a long option shows an argument as mandatory, then it is mandatory\n\
366 for the equivalent short option also. Similarly for optional arguments.\n"),
367 stdout);
368 fputs(_("\
369 \n\
370 Main operation mode:\n\
371 -t, --list list the contents of an archive\n\
372 -x, --extract, --get extract files from an archive\n\
373 -c, --create create a new archive\n\
374 -d, --diff, --compare find differences between archive and file system\n\
375 -r, --append append files to the end of an archive\n\
376 -u, --update only append files newer than copy in archive\n\
377 -A, --catenate append tar files to an archive\n\
378 --concatenate same as -A\n\
379 --delete delete from the archive (not on mag tapes!)\n"),
380 stdout);
381 fputs (_("\
382 \n\
383 Operation modifiers:\n\
384 -W, --verify attempt to verify the archive after writing it\n\
385 --remove-files remove files after adding them to the archive\n\
386 -k, --keep-old-files don't replace existing files when extracting\n\
387 --keep-newer-files don't replace existing files that are newer\n\
388 than their archive copies\n\
389 --overwrite overwrite existing files when extracting\n\
390 --no-overwrite-dir preserve metadata of existing directories\n\
391 -U, --unlink-first remove each file prior to extracting over it\n\
392 --recursive-unlink empty hierarchies prior to extracting directory\n\
393 -S, --sparse handle sparse files efficiently\n\
394 -O, --to-stdout extract files to standard output\n\
395 -G, --incremental handle old GNU-format incremental backup\n\
396 -g, --listed-incremental=FILE\n\
397 handle new GNU-format incremental backup\n\
398 --ignore-failed-read do not exit with nonzero on unreadable files\n\
399 --occurrence[=NUM] process only the NUMth occurrence of each file in\n\
400 the archive. This option is valid only in\n\
401 conjunction with one of the subcommands --delete,\n\
402 --diff, --extract or --list and when a list of\n\
403 files is given either on the command line or\n\
404 via -T option.\n\
405 NUM defaults to 1.\n"),
406 stdout);
407 fputs (_("\
408 \n\
409 Handling of file attributes:\n\
410 --owner=NAME force NAME as owner for added files\n\
411 --group=NAME force NAME as group for added files\n\
412 --mode=CHANGES force (symbolic) mode CHANGES for added files\n\
413 --atime-preserve don't change access times on dumped files\n\
414 -m, --modification-time don't extract file modified time\n\
415 --same-owner try extracting files with the same ownership\n\
416 --no-same-owner extract files as yourself\n\
417 --numeric-owner always use numbers for user/group names\n\
418 -p, --same-permissions extract permissions information\n\
419 --no-same-permissions do not extract permissions information\n\
420 --preserve-permissions same as -p\n\
421 -s, --same-order sort names to extract to match archive\n\
422 --preserve-order same as -s\n\
423 --preserve same as both -p and -s\n"),
424 stdout);
425 fputs (_("\
426 \n\
427 Device selection and switching:\n\
428 -f, --file=ARCHIVE use archive file or device ARCHIVE\n\
429 --force-local archive file is local even if has a colon\n\
430 --rsh-command=COMMAND use remote COMMAND instead of rsh\n\
431 -[0-7][lmh] specify drive and density\n\
432 -M, --multi-volume create/list/extract multi-volume archive\n\
433 -L, --tape-length=NUM change tape after writing NUM x 1024 bytes\n\
434 -F, --info-script=FILE run script at end of each tape (implies -M)\n\
435 --new-volume-script=FILE same as -F FILE\n\
436 --volno-file=FILE use/update the volume number in FILE\n"),
437 stdout);
438 fputs (_("\
439 \n\
440 Device blocking:\n\
441 -b, --blocking-factor=BLOCKS BLOCKS x 512 bytes per record\n\
442 --record-size=SIZE SIZE bytes per record, multiple of 512\n\
443 -i, --ignore-zeros ignore zeroed blocks in archive (means EOF)\n\
444 -B, --read-full-records reblock as we read (for 4.2BSD pipes)\n"),
445 stdout);
446 fputs (_("\
447 \n\
448 Archive format selection:\n\
449 --format=FMTNAME create archive of the given format.\n\
450 FMTNAME is one of the following:\n\
451 v7 old V7 tar format\n\
452 oldgnu GNU format as per tar <= 1.12\n\
453 gnu GNU tar 1.13 format\n\
454 ustar POSIX 1003.1-1988 (ustar) format\n\
455 posix POSIX 1003.1-2001 (pax) format\n\
456 --old-archive, --portability same as --format=v7\n\
457 --posix same as --format=posix\n\
458 --pax-option keyword[[:]=value][,keyword[[:]=value], ...]\n\
459 control pax keywords\n\
460 -V, --label=NAME create archive with volume name NAME\n\
461 PATTERN at list/extract time, a globbing PATTERN\n\
462 -j, --bzip2 filter the archive through bzip2\n\
463 -z, --gzip, --ungzip filter the archive through gzip\n\
464 -Z, --compress, --uncompress filter the archive through compress\n\
465 --use-compress-program=PROG filter through PROG (must accept -d)\n"),
466 stdout);
467 fputs (_("\
468 \n\
469 Local file selection:\n\
470 -C, --directory=DIR change to directory DIR\n\
471 -T, --files-from=NAME get names to extract or create from file NAME\n\
472 --null -T reads null-terminated names, disable -C\n\
473 --exclude=PATTERN exclude files, given as a PATTERN\n\
474 -X, --exclude-from=FILE exclude patterns listed in FILE\n\
475 --anchored exclude patterns match file name start (default)\n\
476 --no-anchored exclude patterns match after any /\n\
477 --ignore-case exclusion ignores case\n\
478 --no-ignore-case exclusion is case sensitive (default)\n\
479 --wildcards exclude patterns use wildcards (default)\n\
480 --no-wildcards exclude patterns are plain strings\n\
481 --wildcards-match-slash exclude pattern wildcards match '/' (default)\n\
482 --no-wildcards-match-slash exclude pattern wildcards do not match '/'\n\
483 -P, --absolute-names don't strip leading `/'s from file names\n\
484 -h, --dereference dump instead the files symlinks point to\n\
485 --no-recursion avoid descending automatically in directories\n\
486 -l, --one-file-system stay in local file system when creating archive\n\
487 -K, --starting-file=NAME begin at file NAME in the archive\n\
488 --strip-path=NUM strip NUM leading components from file names\n\
489 before extraction\n"),
490 stdout);
491 #if !MSDOS
492 fputs (_("\
493 -N, --newer=DATE-OR-FILE only store files newer than DATE-OR-FILE\n\
494 --newer-mtime=DATE compare date and time when data changed only\n\
495 --after-date=DATE same as -N\n"),
496 stdout);
497 #endif
498 fputs (_("\
499 --backup[=CONTROL] backup before removal, choose version control\n\
500 --suffix=SUFFIX backup before removal, override usual suffix\n"),
501 stdout);
502 fputs (_("\
503 \n\
504 Informative output:\n\
505 --help print this help, then exit\n\
506 --version print tar program version number, then exit\n\
507 -v, --verbose verbosely list files processed\n\
508 --checkpoint print directory names while reading the archive\n\
509 --check-links print a message if not all links are dumped\n\
510 --totals print total bytes written while creating archive\n\
511 --index-file=FILE send verbose output to FILE\n\
512 --utc print file modification dates in UTC\n\
513 -R, --block-number show block number within archive with each message\n\
514 -w, --interactive ask for confirmation for every action\n\
515 --confirmation same as -w\n"),
516 stdout);
517 fputs (_("\
518 \n\
519 Compatibility options:\n\
520 -o when creating, same as --old-archive\n\
521 when extracting, same as --no-same-owner\n"),
522 stdout);
523
524 fputs (_("\
525 \n\
526 The backup suffix is `~', unless set with --suffix or SIMPLE_BACKUP_SUFFIX.\n\
527 The version control may be set with --backup or VERSION_CONTROL, values are:\n\
528 \n\
529 t, numbered make numbered backups\n\
530 nil, existing numbered if numbered backups exist, simple otherwise\n\
531 never, simple always make simple backups\n"),
532 stdout);
533 printf (_("\
534 \n\
535 ARCHIVE may be FILE, HOST:FILE or USER@HOST:FILE; DATE may be a textual date\n\
536 or a file name starting with `/' or `.', in which case the file's date is used.\n\
537 *This* `tar' defaults to `--format=%s -f%s -b%d'.\n"),
538 archive_format_string (DEFAULT_ARCHIVE_FORMAT),
539 DEFAULT_ARCHIVE, DEFAULT_BLOCKING);
540 printf (_("\nReport bugs to <%s>.\n"), PACKAGE_BUGREPORT);
541 }
542 exit (status);
543 }
544
545 /* Parse the options for tar. */
546
547 /* Available option letters are DEHIJQY and aenqy. Some are reserved:
548
549 e exit immediately with a nonzero exit status if unexpected errors occur
550 E use extended headers (draft POSIX headers, that is)
551 I same as T (for compatibility with Solaris tar)
552 n the archive is quickly seekable, so don't worry about random seeks
553 q stop after extracting the first occurrence of the named file
554 y per-file gzip compression
555 Y per-block gzip compression */
556
557 #define OPTION_STRING \
558 "-01234567ABC:F:GIK:L:MN:OPRST:UV:WX:Zb:cdf:g:hijklmoprstuvwxyz"
559
560 static void
561 set_subcommand_option (enum subcommand subcommand)
562 {
563 if (subcommand_option != UNKNOWN_SUBCOMMAND
564 && subcommand_option != subcommand)
565 USAGE_ERROR ((0, 0,
566 _("You may not specify more than one `-Acdtrux' option")));
567
568 subcommand_option = subcommand;
569 }
570
571 static void
572 set_use_compress_program_option (const char *string)
573 {
574 if (use_compress_program_option && strcmp (use_compress_program_option, string) != 0)
575 USAGE_ERROR ((0, 0, _("Conflicting compression options")));
576
577 use_compress_program_option = string;
578 }
579
580 static void
581 decode_options (int argc, char **argv)
582 {
583 int optchar; /* option letter */
584 int input_files; /* number of input files */
585 char const *textual_date_option = 0;
586 char const *backup_suffix_string;
587 char const *version_control_string = 0;
588 int exclude_options = EXCLUDE_WILDCARDS;
589 bool o_option = 0;
590 int pax_option = 0;
591
592 /* Set some default option values. */
593
594 subcommand_option = UNKNOWN_SUBCOMMAND;
595 archive_format = DEFAULT_FORMAT;
596 blocking_factor = DEFAULT_BLOCKING;
597 record_size = DEFAULT_BLOCKING * BLOCKSIZE;
598 excluded = new_exclude ();
599 newer_mtime_option = TYPE_MINIMUM (time_t);
600 recursion_option = FNM_LEADING_DIR;
601
602 owner_option = -1;
603 group_option = -1;
604
605 backup_suffix_string = getenv ("SIMPLE_BACKUP_SUFFIX");
606
607 /* Convert old-style tar call by exploding option element and rearranging
608 options accordingly. */
609
610 if (argc > 1 && argv[1][0] != '-')
611 {
612 int new_argc; /* argc value for rearranged arguments */
613 char **new_argv; /* argv value for rearranged arguments */
614 char *const *in; /* cursor into original argv */
615 char **out; /* cursor into rearranged argv */
616 const char *letter; /* cursor into old option letters */
617 char buffer[3]; /* constructed option buffer */
618 const char *cursor; /* cursor in OPTION_STRING */
619
620 /* Initialize a constructed option. */
621
622 buffer[0] = '-';
623 buffer[2] = '\0';
624
625 /* Allocate a new argument array, and copy program name in it. */
626
627 new_argc = argc - 1 + strlen (argv[1]);
628 new_argv = xmalloc ((new_argc + 1) * sizeof (char *));
629 in = argv;
630 out = new_argv;
631 *out++ = *in++;
632
633 /* Copy each old letter option as a separate option, and have the
634 corresponding argument moved next to it. */
635
636 for (letter = *in++; *letter; letter++)
637 {
638 buffer[1] = *letter;
639 *out++ = xstrdup (buffer);
640 cursor = strchr (OPTION_STRING, *letter);
641 if (cursor && cursor[1] == ':')
642 {
643 if (in < argv + argc)
644 *out++ = *in++;
645 else
646 USAGE_ERROR ((0, 0, _("Old option `%c' requires an argument."),
647 *letter));
648 }
649 }
650
651 /* Copy all remaining options. */
652
653 while (in < argv + argc)
654 *out++ = *in++;
655 *out = 0;
656
657 /* Replace the old option list by the new one. */
658
659 argc = new_argc;
660 argv = new_argv;
661 }
662
663 /* Parse all options and non-options as they appear. */
664
665 input_files = 0;
666
667 prepend_default_options (getenv ("TAR_OPTIONS"), &argc, &argv);
668
669 while (optchar = getopt_long (argc, argv, OPTION_STRING, long_options, 0),
670 optchar != -1)
671 switch (optchar)
672 {
673 case '?':
674 usage (TAREXIT_FAILURE);
675
676 case 0:
677 break;
678
679 case 1:
680 /* File name or non-parsed option, because of RETURN_IN_ORDER
681 ordering triggered by the leading dash in OPTION_STRING. */
682
683 name_add (optarg);
684 input_files++;
685 break;
686
687 case 'A':
688 set_subcommand_option (CAT_SUBCOMMAND);
689 break;
690
691 case 'b':
692 {
693 uintmax_t u;
694 if (! (xstrtoumax (optarg, 0, 10, &u, "") == LONGINT_OK
695 && u == (blocking_factor = u)
696 && 0 < blocking_factor
697 && u == (record_size = u * BLOCKSIZE) / BLOCKSIZE))
698 USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (optarg),
699 _("Invalid blocking factor")));
700 }
701 break;
702
703 case 'B':
704 /* Try to reblock input records. For reading 4.2BSD pipes. */
705
706 /* It would surely make sense to exchange -B and -R, but it seems
707 that -B has been used for a long while in Sun tar ans most
708 BSD-derived systems. This is a consequence of the block/record
709 terminology confusion. */
710
711 read_full_records_option = true;
712 break;
713
714 case 'c':
715 set_subcommand_option (CREATE_SUBCOMMAND);
716 break;
717
718 case 'C':
719 name_add ("-C");
720 name_add (optarg);
721 break;
722
723 case 'd':
724 set_subcommand_option (DIFF_SUBCOMMAND);
725 break;
726
727 case 'f':
728 if (archive_names == allocated_archive_names)
729 {
730 allocated_archive_names *= 2;
731 archive_name_array =
732 xrealloc (archive_name_array,
733 sizeof (const char *) * allocated_archive_names);
734 }
735 archive_name_array[archive_names++] = optarg;
736 break;
737
738 case 'F':
739 /* Since -F is only useful with -M, make it implied. Run this
740 script at the end of each tape. */
741
742 info_script_option = optarg;
743 multi_volume_option = true;
744 break;
745
746 case 'g':
747 listed_incremental_option = optarg;
748 after_date_option = true;
749 /* Fall through. */
750
751 case 'G':
752 /* We are making an incremental dump (FIXME: are we?); save
753 directories at the beginning of the archive, and include in each
754 directory its contents. */
755
756 incremental_option = true;
757 break;
758
759 case 'h':
760 /* Follow symbolic links. */
761 dereference_option = true;
762 break;
763
764 case 'i':
765 /* Ignore zero blocks (eofs). This can't be the default,
766 because Unix tar writes two blocks of zeros, then pads out
767 the record with garbage. */
768
769 ignore_zeros_option = true;
770 break;
771
772 case 'I':
773 USAGE_ERROR ((0, 0,
774 _("Warning: the -I option is not supported;"
775 " perhaps you meant -j or -T?")));
776 break;
777
778 case 'j':
779 set_use_compress_program_option ("bzip2");
780 break;
781
782 case 'k':
783 /* Don't replace existing files. */
784 old_files_option = KEEP_OLD_FILES;
785 break;
786
787 case 'K':
788 starting_file_option = true;
789 addname (optarg, 0);
790 break;
791
792 case 'l':
793 /* When dumping directories, don't dump files/subdirectories
794 that are on other filesystems. */
795
796 one_file_system_option = true;
797 break;
798
799 case 'L':
800 {
801 uintmax_t u;
802 if (xstrtoumax (optarg, 0, 10, &u, "") != LONGINT_OK)
803 USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (optarg),
804 _("Invalid tape length")));
805 tape_length_option = 1024 * (tarlong) u;
806 multi_volume_option = true;
807 }
808 break;
809
810 case 'm':
811 touch_option = true;
812 break;
813
814 case 'M':
815 /* Make multivolume archive: when we can't write any more into
816 the archive, re-open it, and continue writing. */
817
818 multi_volume_option = true;
819 break;
820
821 #if !MSDOS
822 case 'N':
823 after_date_option = true;
824 /* Fall through. */
825
826 case NEWER_MTIME_OPTION:
827 if (newer_mtime_option != TYPE_MINIMUM (time_t))
828 USAGE_ERROR ((0, 0, _("More than one threshold date")));
829
830 if (FILESYSTEM_PREFIX_LEN (optarg) != 0
831 || ISSLASH (*optarg)
832 || *optarg == '.')
833 {
834 struct stat st;
835 if (deref_stat (dereference_option, optarg, &st) != 0)
836 {
837 stat_error (optarg);
838 USAGE_ERROR ((0, 0, _("Date file not found")));
839 }
840 newer_mtime_option = st.st_mtime;
841 }
842 else
843 {
844 newer_mtime_option = get_date (optarg, 0);
845 if (newer_mtime_option == (time_t) -1)
846 WARN ((0, 0, _("Substituting %s for unknown date format %s"),
847 tartime (newer_mtime_option), quote (optarg)));
848 else
849 textual_date_option = optarg;
850 }
851
852 break;
853 #endif /* not MSDOS */
854
855 case 'o':
856 o_option = true;
857 break;
858
859 case 'O':
860 to_stdout_option = true;
861 break;
862
863 case 'p':
864 same_permissions_option = true;
865 break;
866
867 case 'P':
868 absolute_names_option = true;
869 break;
870
871 case 'r':
872 set_subcommand_option (APPEND_SUBCOMMAND);
873 break;
874
875 case 'R':
876 /* Print block numbers for debugging bad tar archives. */
877
878 /* It would surely make sense to exchange -B and -R, but it seems
879 that -B has been used for a long while in Sun tar ans most
880 BSD-derived systems. This is a consequence of the block/record
881 terminology confusion. */
882
883 block_number_option = true;
884 break;
885
886 case 's':
887 /* Names to extr are sorted. */
888
889 same_order_option = true;
890 break;
891
892 case 'S':
893 sparse_option = true;
894 break;
895
896 case 't':
897 set_subcommand_option (LIST_SUBCOMMAND);
898 verbose_option++;
899 break;
900
901 case 'T':
902 files_from_option = optarg;
903 break;
904
905 case 'u':
906 set_subcommand_option (UPDATE_SUBCOMMAND);
907 break;
908
909 case 'U':
910 old_files_option = UNLINK_FIRST_OLD_FILES;
911 break;
912
913 case UTC_OPTION:
914 utc_option = true;
915 break;
916
917 case 'v':
918 verbose_option++;
919 break;
920
921 case 'V':
922 volume_label_option = optarg;
923 break;
924
925 case 'w':
926 interactive_option = true;
927 break;
928
929 case 'W':
930 verify_option = true;
931 break;
932
933 case 'x':
934 set_subcommand_option (EXTRACT_SUBCOMMAND);
935 break;
936
937 case 'X':
938 if (add_exclude_file (add_exclude, excluded, optarg,
939 exclude_options | recursion_option, '\n')
940 != 0)
941 {
942 int e = errno;
943 FATAL_ERROR ((0, e, "%s", quotearg_colon (optarg)));
944 }
945 break;
946
947 case 'y':
948 USAGE_ERROR ((0, 0,
949 _("Warning: the -y option is not supported;"
950 " perhaps you meant -j?")));
951 break;
952
953 case 'z':
954 set_use_compress_program_option ("gzip");
955 break;
956
957 case 'Z':
958 set_use_compress_program_option ("compress");
959 break;
960
961 case ANCHORED_OPTION:
962 exclude_options |= EXCLUDE_ANCHORED;
963 break;
964
965 case ATIME_PRESERVE_OPTION:
966 atime_preserve_option = true;
967 break;
968
969 case CHECKPOINT_OPTION:
970 checkpoint_option = true;
971 break;
972
973 case BACKUP_OPTION:
974 backup_option = true;
975 if (optarg)
976 version_control_string = optarg;
977 break;
978
979 case DELETE_OPTION:
980 set_subcommand_option (DELETE_SUBCOMMAND);
981 break;
982
983 case EXCLUDE_OPTION:
984 add_exclude (excluded, optarg, exclude_options | recursion_option);
985 break;
986
987 case FORCE_LOCAL_OPTION:
988 force_local_option = true;
989 break;
990
991 case FORMAT_OPTION:
992 set_archive_format (optarg);
993 break;
994
995 case INDEX_FILE_OPTION:
996 index_file_name = optarg;
997 break;
998
999 case IGNORE_CASE_OPTION:
1000 exclude_options |= FNM_CASEFOLD;
1001 break;
1002
1003 case IGNORE_FAILED_READ_OPTION:
1004 ignore_failed_read_option = true;
1005 break;
1006
1007 case KEEP_NEWER_FILES_OPTION:
1008 old_files_option = KEEP_NEWER_FILES;
1009 break;
1010
1011 case GROUP_OPTION:
1012 if (! (strlen (optarg) < GNAME_FIELD_SIZE
1013 && gname_to_gid (optarg, &group_option)))
1014 {
1015 uintmax_t g;
1016 if (xstrtoumax (optarg, 0, 10, &g, "") == LONGINT_OK
1017 && g == (gid_t) g)
1018 group_option = g;
1019 else
1020 FATAL_ERROR ((0, 0, "%s: %s", quotearg_colon (optarg),
1021 _("%s: Invalid group")));
1022 }
1023 break;
1024
1025 case MODE_OPTION:
1026 mode_option
1027 = mode_compile (optarg,
1028 MODE_MASK_EQUALS | MODE_MASK_PLUS | MODE_MASK_MINUS);
1029 if (mode_option == MODE_INVALID)
1030 FATAL_ERROR ((0, 0, _("Invalid mode given on option")));
1031 if (mode_option == MODE_MEMORY_EXHAUSTED)
1032 xalloc_die ();
1033 break;
1034
1035 case NO_ANCHORED_OPTION:
1036 exclude_options &= ~ EXCLUDE_ANCHORED;
1037 break;
1038
1039 case NO_IGNORE_CASE_OPTION:
1040 exclude_options &= ~ FNM_CASEFOLD;
1041 break;
1042
1043 case NO_OVERWRITE_DIR_OPTION:
1044 old_files_option = NO_OVERWRITE_DIR_OLD_FILES;
1045 break;
1046
1047 case NO_WILDCARDS_OPTION:
1048 exclude_options &= ~ EXCLUDE_WILDCARDS;
1049 break;
1050
1051 case NO_WILDCARDS_MATCH_SLASH_OPTION:
1052 exclude_options |= FNM_FILE_NAME;
1053 break;
1054
1055 case NULL_OPTION:
1056 filename_terminator = '\0';
1057 break;
1058
1059 case NUMERIC_OWNER_OPTION:
1060 numeric_owner_option = true;
1061 break;
1062
1063 case OCCURRENCE_OPTION:
1064 if (!optarg)
1065 occurrence_option = 1;
1066 else
1067 {
1068 uintmax_t u;
1069 if (xstrtoumax (optarg, 0, 10, &u, "") == LONGINT_OK)
1070 occurrence_option = u;
1071 else
1072 FATAL_ERROR ((0, 0, "%s: %s", quotearg_colon (optarg),
1073 _("Invalid number")));
1074 }
1075 break;
1076
1077 case OVERWRITE_OPTION:
1078 old_files_option = OVERWRITE_OLD_FILES;
1079 break;
1080
1081 case OWNER_OPTION:
1082 if (! (strlen (optarg) < UNAME_FIELD_SIZE
1083 && uname_to_uid (optarg, &owner_option)))
1084 {
1085 uintmax_t u;
1086 if (xstrtoumax (optarg, 0, 10, &u, "") == LONGINT_OK
1087 && u == (uid_t) u)
1088 owner_option = u;
1089 else
1090 FATAL_ERROR ((0, 0, "%s: %s", quotearg_colon (optarg),
1091 _("Invalid owner")));
1092 }
1093 break;
1094
1095 case PAX_OPTION:
1096 pax_option++;
1097 xheader_set_option (optarg);
1098 break;
1099
1100 case POSIX_OPTION:
1101 set_archive_format ("posix");
1102 break;
1103
1104 case PRESERVE_OPTION:
1105 same_permissions_option = true;
1106 same_order_option = true;
1107 break;
1108
1109 case RECORD_SIZE_OPTION:
1110 {
1111 uintmax_t u;
1112 if (! (xstrtoumax (optarg, 0, 10, &u, "") == LONGINT_OK
1113 && u == (size_t) u))
1114 USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (optarg),
1115 _("Invalid record size")));
1116 record_size = u;
1117 if (record_size % BLOCKSIZE != 0)
1118 USAGE_ERROR ((0, 0, _("Record size must be a multiple of %d."),
1119 BLOCKSIZE));
1120 blocking_factor = record_size / BLOCKSIZE;
1121 }
1122 break;
1123
1124 case RECURSIVE_UNLINK_OPTION:
1125 recursive_unlink_option = true;
1126 break;
1127
1128 case REMOVE_FILES_OPTION:
1129 remove_files_option = true;
1130 break;
1131
1132 case RSH_COMMAND_OPTION:
1133 rsh_command_option = optarg;
1134 break;
1135
1136 case SHOW_DEFAULTS_OPTION:
1137 printf ("--format=%s -f%s -b%d\n",
1138 archive_format_string (DEFAULT_ARCHIVE_FORMAT),
1139 DEFAULT_ARCHIVE, DEFAULT_BLOCKING);
1140 exit(0);
1141
1142 case STRIP_PATH_OPTION:
1143 {
1144 uintmax_t u;
1145 if (! (xstrtoumax (optarg, 0, 10, &u, "") == LONGINT_OK
1146 && u == (size_t) u))
1147 USAGE_ERROR ((0, 0, "%s: %s", quotearg_colon (optarg),
1148 _("Invalid number of elements")));
1149 strip_path_elements = u;
1150 }
1151 break;
1152
1153 case SUFFIX_OPTION:
1154 backup_option = true;
1155 backup_suffix_string = optarg;
1156 break;
1157
1158 case TOTALS_OPTION:
1159 totals_option = true;
1160 break;
1161
1162 case USE_COMPRESS_PROGRAM_OPTION:
1163 set_use_compress_program_option (optarg);
1164 break;
1165
1166 case VOLNO_FILE_OPTION:
1167 volno_file_option = optarg;
1168 break;
1169
1170 case WILDCARDS_OPTION:
1171 exclude_options |= EXCLUDE_WILDCARDS;
1172 break;
1173
1174 case WILDCARDS_MATCH_SLASH_OPTION:
1175 exclude_options &= ~ FNM_FILE_NAME;
1176 break;
1177
1178 case '0':
1179 case '1':
1180 case '2':
1181 case '3':
1182 case '4':
1183 case '5':
1184 case '6':
1185 case '7':
1186
1187 #ifdef DEVICE_PREFIX
1188 {
1189 int device = optchar - '0';
1190 int density;
1191 static char buf[sizeof DEVICE_PREFIX + 10];
1192 char *cursor;
1193
1194 density = getopt_long (argc, argv, "lmh", 0, 0);
1195 strcpy (buf, DEVICE_PREFIX);
1196 cursor = buf + strlen (buf);
1197
1198 #ifdef DENSITY_LETTER
1199
1200 sprintf (cursor, "%d%c", device, density);
1201
1202 #else /* not DENSITY_LETTER */
1203
1204 switch (density)
1205 {
1206 case 'l':
1207 #ifdef LOW_NUM
1208 device += LOW_NUM;
1209 #endif
1210 break;
1211
1212 case 'm':
1213 #ifdef MID_NUM
1214 device += MID_NUM;
1215 #else
1216 device += 8;
1217 #endif
1218 break;
1219
1220 case 'h':
1221 #ifdef HGH_NUM
1222 device += HGH_NUM;
1223 #else
1224 device += 16;
1225 #endif
1226 break;
1227
1228 default:
1229 usage (TAREXIT_FAILURE);
1230 }
1231 sprintf (cursor, "%d", device);
1232
1233 #endif /* not DENSITY_LETTER */
1234
1235 if (archive_names == allocated_archive_names)
1236 {
1237 allocated_archive_names *= 2;
1238 archive_name_array =
1239 xrealloc (archive_name_array,
1240 sizeof (const char *) * allocated_archive_names);
1241 }
1242 archive_name_array[archive_names++] = strdup (buf);
1243 }
1244 break;
1245
1246 #else /* not DEVICE_PREFIX */
1247
1248 USAGE_ERROR ((0, 0,
1249 _("Options `-[0-7][lmh]' not supported by *this* tar")));
1250
1251 #endif /* not DEVICE_PREFIX */
1252 }
1253
1254 /* Special handling for 'o' option:
1255
1256 GNU tar used to say "output old format".
1257 UNIX98 tar says don't chown files after extracting (we use
1258 "--no-same-owner" for this).
1259
1260 The old GNU tar semantics is retained when used with --create
1261 option, otherwise UNIX98 semantics is assumed */
1262
1263 if (o_option)
1264 {
1265 if (subcommand_option == CREATE_SUBCOMMAND)
1266 {
1267 /* GNU Tar <= 1.13 compatibility */
1268 set_archive_format ("v7");
1269 }
1270 else
1271 {
1272 /* UNIX98 compatibility */
1273 same_owner_option = 1;
1274 }
1275 }
1276
1277 /* Handle operands after any "--" argument. */
1278 for (; optind < argc; optind++)
1279 {
1280 name_add (argv[optind]);
1281 input_files++;
1282 }
1283
1284 /* Process trivial options. */
1285
1286 if (show_version)
1287 {
1288 printf ("tar (%s) %s\n%s\n", PACKAGE_NAME, PACKAGE_VERSION,
1289 "Copyright (C) 2003 Free Software Foundation, Inc.");
1290 puts (_("\
1291 This program comes with NO WARRANTY, to the extent permitted by law.\n\
1292 You may redistribute it under the terms of the GNU General Public License;\n\
1293 see the file named COPYING for details."));
1294
1295 puts (_("Written by John Gilmore and Jay Fenlason."));
1296
1297 exit (TAREXIT_SUCCESS);
1298 }
1299
1300 if (show_help)
1301 usage (TAREXIT_SUCCESS);
1302
1303 /* Derive option values and check option consistency. */
1304
1305 if (archive_format == DEFAULT_FORMAT)
1306 {
1307 if (pax_option)
1308 archive_format = POSIX_FORMAT;
1309 else
1310 archive_format = DEFAULT_ARCHIVE_FORMAT;
1311 }
1312
1313 if (volume_label_option && subcommand_option == CREATE_SUBCOMMAND)
1314 assert_format (FORMAT_MASK (OLDGNU_FORMAT)
1315 | FORMAT_MASK (GNU_FORMAT));
1316
1317
1318 if (incremental_option || multi_volume_option)
1319 assert_format (FORMAT_MASK (OLDGNU_FORMAT) | FORMAT_MASK (GNU_FORMAT));
1320
1321 if (sparse_option)
1322 assert_format (FORMAT_MASK (OLDGNU_FORMAT)
1323 | FORMAT_MASK (GNU_FORMAT)
1324 | FORMAT_MASK (POSIX_FORMAT));
1325
1326 if (occurrence_option)
1327 {
1328 if (!input_files && !files_from_option)
1329 USAGE_ERROR ((0, 0,
1330 _("--occurrence is meaningless without a file list")));
1331 if (subcommand_option != DELETE_SUBCOMMAND
1332 && subcommand_option != DIFF_SUBCOMMAND
1333 && subcommand_option != EXTRACT_SUBCOMMAND
1334 && subcommand_option != LIST_SUBCOMMAND)
1335 USAGE_ERROR ((0, 0,
1336 _("--occurrence cannot be used in the requested operation mode")));
1337 }
1338
1339 if (archive_names == 0)
1340 {
1341 /* If no archive file name given, try TAPE from the environment, or
1342 else, DEFAULT_ARCHIVE from the configuration process. */
1343
1344 archive_names = 1;
1345 archive_name_array[0] = getenv ("TAPE");
1346 if (! archive_name_array[0])
1347 archive_name_array[0] = DEFAULT_ARCHIVE;
1348 }
1349
1350 /* Allow multiple archives only with `-M'. */
1351
1352 if (archive_names > 1 && !multi_volume_option)
1353 USAGE_ERROR ((0, 0,
1354 _("Multiple archive files require `-M' option")));
1355
1356 if (listed_incremental_option
1357 && newer_mtime_option != TYPE_MINIMUM (time_t))
1358 USAGE_ERROR ((0, 0,
1359 _("Cannot combine --listed-incremental with --newer")));
1360
1361 if (volume_label_option)
1362 {
1363 size_t volume_label_max_len =
1364 (sizeof current_header->header.name
1365 - 1 /* for trailing '\0' */
1366 - (multi_volume_option
1367 ? (sizeof " Volume "
1368 - 1 /* for null at end of " Volume " */
1369 + INT_STRLEN_BOUND (int) /* for volume number */
1370 - 1 /* for sign, as 0 <= volno */)
1371 : 0));
1372 if (volume_label_max_len < strlen (volume_label_option))
1373 USAGE_ERROR ((0, 0,
1374 ngettext ("%s: Volume label is too long (limit is %lu byte)",
1375 "%s: Volume label is too long (limit is %lu bytes)",
1376 volume_label_max_len),
1377 quotearg_colon (volume_label_option),
1378 (unsigned long) volume_label_max_len));
1379 }
1380
1381 if (verify_option)
1382 {
1383 if (multi_volume_option)
1384 USAGE_ERROR ((0, 0, _("Cannot verify multi-volume archives")));
1385 if (use_compress_program_option)
1386 USAGE_ERROR ((0, 0, _("Cannot verify compressed archives")));
1387 }
1388
1389 if (use_compress_program_option)
1390 {
1391 if (multi_volume_option)
1392 USAGE_ERROR ((0, 0, _("Cannot use multi-volume compressed archives")));
1393 if (subcommand_option == UPDATE_SUBCOMMAND)
1394 USAGE_ERROR ((0, 0, _("Cannot update compressed archives")));
1395 }
1396
1397 /* It is no harm to use --pax-option on non-pax archives in archive
1398 reading mode. It may even be useful, since it allows to override
1399 file attributes from tar headers. Therefore I allow such usage.
1400 --gray */
1401 if (pax_option
1402 && archive_format != POSIX_FORMAT
1403 && (subcommand_option != EXTRACT_SUBCOMMAND
1404 || subcommand_option != DIFF_SUBCOMMAND
1405 || subcommand_option != LIST_SUBCOMMAND))
1406 USAGE_ERROR ((0, 0, _("--pax-option can be used only on POSIX archives")));
1407
1408 /* If ready to unlink hierarchies, so we are for simpler files. */
1409 if (recursive_unlink_option)
1410 old_files_option = UNLINK_FIRST_OLD_FILES;
1411
1412 /* Forbid using -c with no input files whatsoever. Check that `-f -',
1413 explicit or implied, is used correctly. */
1414
1415 switch (subcommand_option)
1416 {
1417 case CREATE_SUBCOMMAND:
1418 if (input_files == 0 && !files_from_option)
1419 USAGE_ERROR ((0, 0,
1420 _("Cowardly refusing to create an empty archive")));
1421 break;
1422
1423 case EXTRACT_SUBCOMMAND:
1424 case LIST_SUBCOMMAND:
1425 case DIFF_SUBCOMMAND:
1426 for (archive_name_cursor = archive_name_array;
1427 archive_name_cursor < archive_name_array + archive_names;
1428 archive_name_cursor++)
1429 if (!strcmp (*archive_name_cursor, "-"))
1430 request_stdin ("-f");
1431 break;
1432
1433 case CAT_SUBCOMMAND:
1434 case UPDATE_SUBCOMMAND:
1435 case APPEND_SUBCOMMAND:
1436 for (archive_name_cursor = archive_name_array;
1437 archive_name_cursor < archive_name_array + archive_names;
1438 archive_name_cursor++)
1439 if (!strcmp (*archive_name_cursor, "-"))
1440 USAGE_ERROR ((0, 0,
1441 _("Options `-Aru' are incompatible with `-f -'")));
1442
1443 default:
1444 break;
1445 }
1446
1447 archive_name_cursor = archive_name_array;
1448
1449 /* Prepare for generating backup names. */
1450
1451 if (backup_suffix_string)
1452 simple_backup_suffix = xstrdup (backup_suffix_string);
1453
1454 if (backup_option)
1455 backup_type = xget_version ("--backup", version_control_string);
1456
1457 if (verbose_option && textual_date_option)
1458 {
1459 char const *treated_as = tartime (newer_mtime_option);
1460 if (strcmp (textual_date_option, treated_as) != 0)
1461 WARN ((0, 0, _("Treating date `%s' as %s"),
1462 textual_date_option, treated_as));
1463 }
1464 }
1465
1466 \f
1467 /* Tar proper. */
1468
1469 /* Main routine for tar. */
1470 int
1471 main (int argc, char **argv)
1472 {
1473 #if HAVE_CLOCK_GETTIME
1474 if (clock_gettime (CLOCK_REALTIME, &start_timespec) != 0)
1475 #endif
1476 start_time = time (0);
1477 program_name = argv[0];
1478 setlocale (LC_ALL, "");
1479 bindtextdomain (PACKAGE, LOCALEDIR);
1480 textdomain (PACKAGE);
1481
1482 exit_status = TAREXIT_SUCCESS;
1483 filename_terminator = '\n';
1484 set_quoting_style (0, escape_quoting_style);
1485
1486 /* Pre-allocate a few structures. */
1487
1488 allocated_archive_names = 10;
1489 archive_name_array =
1490 xmalloc (sizeof (const char *) * allocated_archive_names);
1491 archive_names = 0;
1492
1493 #ifdef SIGCHLD
1494 /* System V fork+wait does not work if SIGCHLD is ignored. */
1495 signal (SIGCHLD, SIG_DFL);
1496 #endif
1497
1498 init_names ();
1499
1500 /* Decode options. */
1501
1502 decode_options (argc, argv);
1503 name_init (argc, argv);
1504
1505 /* Main command execution. */
1506
1507 if (volno_file_option)
1508 init_volume_number ();
1509
1510 switch (subcommand_option)
1511 {
1512 case UNKNOWN_SUBCOMMAND:
1513 USAGE_ERROR ((0, 0,
1514 _("You must specify one of the `-Acdtrux' options")));
1515
1516 case CAT_SUBCOMMAND:
1517 case UPDATE_SUBCOMMAND:
1518 case APPEND_SUBCOMMAND:
1519 update_archive ();
1520 break;
1521
1522 case DELETE_SUBCOMMAND:
1523 delete_archive_members ();
1524 break;
1525
1526 case CREATE_SUBCOMMAND:
1527 create_archive ();
1528 name_close ();
1529
1530 if (totals_option)
1531 print_total_written ();
1532 break;
1533
1534 case EXTRACT_SUBCOMMAND:
1535 extr_init ();
1536 read_and (extract_archive);
1537
1538 /* FIXME: should extract_finish () even if an ordinary signal is
1539 received. */
1540 extract_finish ();
1541
1542 break;
1543
1544 case LIST_SUBCOMMAND:
1545 read_and (list_archive);
1546 break;
1547
1548 case DIFF_SUBCOMMAND:
1549 diff_init ();
1550 read_and (diff_archive);
1551 break;
1552 }
1553
1554 if (check_links_option)
1555 check_links ();
1556
1557 if (volno_file_option)
1558 closeout_volume_number ();
1559
1560 /* Dispose of allocated memory, and return. */
1561
1562 free (archive_name_array);
1563 name_term ();
1564
1565 if (stdlis != stderr && (ferror (stdlis) || fclose (stdlis) != 0))
1566 FATAL_ERROR ((0, 0, _("Error in writing to standard output")));
1567 if (exit_status == TAREXIT_FAILURE)
1568 error (0, 0, _("Error exit delayed from previous errors"));
1569 if (ferror (stderr) || fclose (stderr) != 0)
1570 exit_status = TAREXIT_FAILURE;
1571 return exit_status;
1572 }
1573
1574 void
1575 tar_stat_init (struct tar_stat_info *st)
1576 {
1577 memset (st, 0, sizeof (*st));
1578 }
1579
1580 void
1581 tar_stat_destroy (struct tar_stat_info *st)
1582 {
1583 free (st->orig_file_name);
1584 free (st->file_name);
1585 free (st->link_name);
1586 free (st->uname);
1587 free (st->gname);
1588 free (st->sparse_map);
1589 memset (st, 0, sizeof (*st));
1590 }
1591
Unnamed repository; edit this file 'description' to name the repository.
This page took 0.108137 seconds and 4 git commands to generate.