]> Dogcows Code - chaz/tar/blob - src/tar.c
projects / chaz / tar / blob
? search:


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