1 /* A tar (tape archiver) program.
2 Copyright (C) 1988, 92,93,94,95,96,97, 1999 Free Software Foundation, Inc.
3 Written by John Gilmore, starting 1985-08-25.
5 This program is free software; you can redistribute it and/or modify it
6 under the terms of the GNU General Public License as published by the
7 Free Software Foundation; either version 2, or (at your option) any later
10 This program is distributed in the hope that it will be useful, but
11 WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
13 Public License for more details.
15 You should have received a copy of the GNU General Public License along
16 with this program; if not, write to the Free Software Foundation, Inc.,
17 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
24 #if ! defined SIGCHLD && defined SIGCLD
25 # define SIGCHLD SIGCLD
28 /* The following causes "common.h" to produce definitions of all the global
29 variables, rather than just "extern" declarations of them. GNU tar does
30 depend on the system loader to preset all GLOBAL variables to neutral (or
31 zero) values, explicit initialisation is usually not done. */
39 /* Local declarations. */
41 #ifndef DEFAULT_ARCHIVE
42 # define DEFAULT_ARCHIVE "tar.out"
45 #ifndef DEFAULT_BLOCKING
46 # define DEFAULT_BLOCKING 20
49 static void usage
PARAMS ((int));
53 /*----------------------------------------------.
54 | Doesn't return if stdin already requested. |
55 `----------------------------------------------*/
57 /* Name of option using stdin. */
58 static const char *stdin_used_by
= NULL
;
61 request_stdin (const char *option
)
64 USAGE_ERROR ((0, 0, _("Options `-%s' and `-%s' both want standard input"),
65 stdin_used_by
, option
));
67 stdin_used_by
= option
;
70 /*--------------------------------------------------------.
71 | Returns true if and only if the user typed 'y' or 'Y'. |
72 `--------------------------------------------------------*/
75 confirm (const char *message_action
, const char *message_name
)
77 static FILE *confirm_file
= NULL
;
81 if (archive
== 0 || stdin_used_by
)
82 confirm_file
= fopen (TTY_NAME
, "r");
90 FATAL_ERROR ((0, 0, _("Cannot read confirmation from user")));
93 fprintf (stdlis
, "%s %s?", message_action
, message_name
);
97 int reply
= getc (confirm_file
);
100 for (character
= reply
;
101 character
!= '\n' && character
!= EOF
;
102 character
= getc (confirm_file
))
104 return reply
== 'y' || reply
== 'Y';
110 /* For long options that unconditionally set a single flag, we have getopt
111 do it. For the others, we share the code for the equivalent short
112 named option, the name of which is stored in the otherwise-unused `val'
113 field of the `struct option'; for long options that have no equivalent
114 short option, we use non-characters as pseudo short options,
115 starting at CHAR_MAX + 1 and going upwards. */
119 BACKUP_OPTION
= CHAR_MAX
+ 1,
133 USE_COMPRESS_PROGRAM_OPTION
,
136 /* Some cleanup is being made in GNU tar long options. Using old names is
137 allowed for a while, but will also send a warning to stderr. Take old
138 names out in 1.14, or in summer 1997, whichever happens last. */
140 OBSOLETE_ABSOLUTE_NAMES
,
141 OBSOLETE_BLOCK_COMPRESS
,
142 OBSOLETE_BLOCKING_FACTOR
,
143 OBSOLETE_BLOCK_NUMBER
,
144 OBSOLETE_READ_FULL_RECORDS
,
146 OBSOLETE_VERSION_CONTROL
149 /* If nonzero, display usage information and exit. */
150 static int show_help
= 0;
152 /* If nonzero, print the version on standard output and exit. */
153 static int show_version
= 0;
155 struct option long_options
[] =
157 {"absolute-names", no_argument
, NULL
, 'P'},
158 {"absolute-paths", no_argument
, NULL
, OBSOLETE_ABSOLUTE_NAMES
},
159 {"after-date", required_argument
, NULL
, 'N'},
160 {"append", no_argument
, NULL
, 'r'},
161 {"atime-preserve", no_argument
, &atime_preserve_option
, 1},
162 {"backup", optional_argument
, NULL
, BACKUP_OPTION
},
163 {"block-compress", no_argument
, NULL
, OBSOLETE_BLOCK_COMPRESS
},
164 {"block-number", no_argument
, NULL
, 'R'},
165 {"block-size", required_argument
, NULL
, OBSOLETE_BLOCKING_FACTOR
},
166 {"blocking-factor", required_argument
, NULL
, 'b'},
167 {"catenate", no_argument
, NULL
, 'A'},
168 {"checkpoint", no_argument
, &checkpoint_option
, 1},
169 {"compare", no_argument
, NULL
, 'd'},
170 {"compress", no_argument
, NULL
, 'Z'},
171 {"concatenate", no_argument
, NULL
, 'A'},
172 {"confirmation", no_argument
, NULL
, 'w'},
173 /* FIXME: --selective as a synonym for --confirmation? */
174 {"create", no_argument
, NULL
, 'c'},
175 {"delete", no_argument
, NULL
, DELETE_OPTION
},
176 {"dereference", no_argument
, NULL
, 'h'},
177 {"diff", no_argument
, NULL
, 'd'},
178 {"directory", required_argument
, NULL
, 'C'},
179 {"exclude", required_argument
, NULL
, EXCLUDE_OPTION
},
180 {"exclude-from", required_argument
, NULL
, 'X'},
181 {"extract", no_argument
, NULL
, 'x'},
182 {"file", required_argument
, NULL
, 'f'},
183 {"files-from", required_argument
, NULL
, 'T'},
184 {"force-local", no_argument
, &force_local_option
, 1},
185 {"get", no_argument
, NULL
, 'x'},
186 {"group", required_argument
, NULL
, GROUP_OPTION
},
187 {"gunzip", no_argument
, NULL
, 'z'},
188 {"gzip", no_argument
, NULL
, 'z'},
189 {"help", no_argument
, &show_help
, 1},
190 {"ignore-failed-read", no_argument
, &ignore_failed_read_option
, 1},
191 {"ignore-zeros", no_argument
, NULL
, 'i'},
192 /* FIXME: --ignore-end as a new name for --ignore-zeros? */
193 {"incremental", no_argument
, NULL
, 'G'},
194 {"info-script", required_argument
, NULL
, 'F'},
195 {"interactive", no_argument
, NULL
, 'w'},
196 {"keep-old-files", no_argument
, NULL
, 'k'},
197 {"label", required_argument
, NULL
, 'V'},
198 {"list", no_argument
, NULL
, 't'},
199 {"listed-incremental", required_argument
, NULL
, 'g'},
200 {"mode", required_argument
, NULL
, MODE_OPTION
},
201 {"modification-time", no_argument
, NULL
, OBSOLETE_TOUCH
},
202 {"multi-volume", no_argument
, NULL
, 'M'},
203 {"new-volume-script", required_argument
, NULL
, 'F'},
204 {"newer", required_argument
, NULL
, 'N'},
205 {"newer-mtime", required_argument
, NULL
, NEWER_MTIME_OPTION
},
206 {"null", no_argument
, NULL
, NULL_OPTION
},
207 {"no-recursion", no_argument
, NULL
, NO_RECURSE_OPTION
},
208 {"numeric-owner", no_argument
, &numeric_owner_option
, 1},
209 {"old-archive", no_argument
, NULL
, 'o'},
210 {"one-file-system", no_argument
, NULL
, 'l'},
211 {"owner", required_argument
, NULL
, OWNER_OPTION
},
212 {"portability", no_argument
, NULL
, 'o'},
213 {"posix", no_argument
, NULL
, POSIX_OPTION
},
214 {"preserve", no_argument
, NULL
, PRESERVE_OPTION
},
215 {"preserve-order", no_argument
, NULL
, 's'},
216 {"preserve-permissions", no_argument
, NULL
, 'p'},
217 {"recursive-unlink", no_argument
, &recursive_unlink_option
, 1},
218 {"read-full-blocks", no_argument
, NULL
, OBSOLETE_READ_FULL_RECORDS
},
219 {"read-full-records", no_argument
, NULL
, 'B'},
220 /* FIXME: --partial-blocks might be a synonym for --read-full-records? */
221 {"record-number", no_argument
, NULL
, OBSOLETE_BLOCK_NUMBER
},
222 {"record-size", required_argument
, NULL
, RECORD_SIZE_OPTION
},
223 {"remove-files", no_argument
, &remove_files_option
, 1},
224 {"rsh-command", required_argument
, NULL
, RSH_COMMAND_OPTION
},
225 {"same-order", no_argument
, NULL
, 's'},
226 {"same-owner", no_argument
, &same_owner_option
, 1},
227 {"same-permissions", no_argument
, NULL
, 'p'},
228 {"show-omitted-dirs", no_argument
, &show_omitted_dirs_option
, 1},
229 {"sparse", no_argument
, NULL
, 'S'},
230 {"starting-file", required_argument
, NULL
, 'K'},
231 {"suffix", required_argument
, NULL
, SUFFIX_OPTION
},
232 {"tape-length", required_argument
, NULL
, 'L'},
233 {"to-stdout", no_argument
, NULL
, 'O'},
234 {"totals", no_argument
, &totals_option
, 1},
235 {"touch", no_argument
, NULL
, 'm'},
236 {"uncompress", no_argument
, NULL
, 'Z'},
237 {"ungzip", no_argument
, NULL
, 'z'},
238 {"unlink-first", no_argument
, NULL
, 'U'},
239 {"update", no_argument
, NULL
, 'u'},
240 {"use-compress-program", required_argument
, NULL
, USE_COMPRESS_PROGRAM_OPTION
},
241 {"verbose", no_argument
, NULL
, 'v'},
242 {"verify", no_argument
, NULL
, 'W'},
243 {"version", no_argument
, &show_version
, 1},
244 {"version-control", required_argument
, NULL
, OBSOLETE_VERSION_CONTROL
},
245 {"volno-file", required_argument
, NULL
, VOLNO_FILE_OPTION
},
250 /*---------------------------------------------.
251 | Print a usage message and exit with STATUS. |
252 `---------------------------------------------*/
257 if (status
!= TAREXIT_SUCCESS
)
258 fprintf (stderr
, _("Try `%s --help' for more information.\n"),
263 GNU `tar' saves many files together into a single tape or disk archive, and\n\
264 can restore individual files from the archive.\n"),
266 printf (_("\nUsage: %s [OPTION]... [FILE]...\n"), program_name
);
269 If a long option shows an argument as mandatory, then it is mandatory\n\
270 for the equivalent short option also. Similarly for optional arguments.\n"),
274 Main operation mode:\n\
275 -t, --list list the contents of an archive\n\
276 -x, --extract, --get extract files from an archive\n\
277 -c, --create create a new archive\n\
278 -d, --diff, --compare find differences between archive and file system\n\
279 -r, --append append files to the end of an archive\n\
280 -u, --update only append files newer than copy in archive\n\
281 -A, --catenate append tar files to an archive\n\
282 --concatenate same as -A\n\
283 --delete delete from the archive (not on mag tapes!)\n"),
287 Operation modifiers:\n\
288 -W, --verify attempt to verify the archive after writing it\n\
289 --remove-files remove files after adding them to the archive\n\
290 -k, --keep-old-files don't overwrite existing files when extracting\n\
291 -U, --unlink-first remove each file prior to extracting over it\n\
292 --recursive-unlink empty hierarchies prior to extracting directory\n\
293 -S, --sparse handle sparse files efficiently\n\
294 -O, --to-stdout extract files to standard output\n\
295 -G, --incremental handle old GNU-format incremental backup\n\
296 -g, --listed-incremental handle new GNU-format incremental backup\n\
297 --ignore-failed-read do not exit with nonzero on unreadable files\n"),
301 Handling of file attributes:\n\
302 --owner=NAME force NAME as owner for added files\n\
303 --group=NAME force NAME as group for added files\n\
304 --mode=CHANGES force (symbolic) mode CHANGES for added files\n\
305 --atime-preserve don't change access times on dumped files\n\
306 -m, --modification-time don't extract file modified time\n\
307 --same-owner try extracting files with the same ownership\n\
308 --numeric-owner always use numbers for user/group names\n\
309 -p, --same-permissions extract all protection information\n\
310 --preserve-permissions same as -p\n\
311 -s, --same-order sort names to extract to match archive\n\
312 --preserve-order same as -s\n\
313 --preserve same as both -p and -s\n"),
317 Device selection and switching:\n\
318 -f, --file=ARCHIVE use archive file or device ARCHIVE\n\
319 --force-local archive file is local even if has a colon\n\
320 --rsh-command=COMMAND use remote COMMAND instead of rsh\n\
321 -[0-7][lmh] specify drive and density\n\
322 -M, --multi-volume create/list/extract multi-volume archive\n\
323 -L, --tape-length=NUM change tape after writing NUM x 1024 bytes\n\
324 -F, --info-script=FILE run script at end of each tape (implies -M)\n\
325 --new-volume-script=FILE same as -F FILE\n\
326 --volno-file=FILE use/update the volume number in FILE\n"),
331 -b, --blocking-factor=BLOCKS BLOCKS x 512 bytes per record\n\
332 --record-size=SIZE SIZE bytes per record, multiple of 512\n\
333 -i, --ignore-zeros ignore zeroed blocks in archive (means EOF)\n\
334 -B, --read-full-records reblock as we read (for 4.2BSD pipes)\n"),
338 Archive format selection:\n\
339 -V, --label=NAME create archive with volume name NAME\n\
340 PATTERN at list/extract time, a globbing PATTERN\n\
341 -o, --old-archive, --portability write a V7 format archive\n\
342 --posix write a POSIX conformant archive\n\
343 -z, --gzip, --ungzip filter the archive through gzip\n\
344 -Z, --compress, --uncompress filter the archive through compress\n\
345 --use-compress-program=PROG filter through PROG (must accept -d)\n"),
349 Local file selection:\n\
350 -C, --directory=DIR change to directory DIR\n\
351 -T, --files-from=NAME get names to extract or create from file NAME\n\
352 --null -T reads null-terminated names, disable -C\n\
353 --exclude=PATTERN exclude files, given as a globbing PATTERN\n\
354 -X, --exclude-from=FILE exclude globbing patterns listed in FILE\n\
355 -P, --absolute-names don't strip leading `/'s from file names\n\
356 -h, --dereference dump instead the files symlinks point to\n\
357 --no-recursion avoid descending automatically in directories\n\
358 -l, --one-file-system stay in local file system when creating archive\n\
359 -K, --starting-file=NAME begin at file NAME in the archive\n"),
363 -N, --newer=DATE only store files newer than DATE\n\
364 --newer-mtime compare date and time when data changed only\n\
365 --after-date=DATE same as -N\n"),
369 --backup[=CONTROL] backup before removal, choose version control\n\
370 --suffix=SUFFIX backup before removel, override usual suffix\n"),
374 Informative output:\n\
375 --help print this help, then exit\n\
376 --version print tar program version number, then exit\n\
377 -v, --verbose verbosely list files processed\n\
378 --checkpoint print directory names while reading the archive\n\
379 --totals print total bytes written while creating archive\n\
380 -R, --block-number show block number within archive with each message\n\
381 -w, --interactive ask for confirmation for every action\n\
382 --confirmation same as -w\n"),
386 The backup suffix is `~', unless set with --suffix or SIMPLE_BACKUP_SUFFIX.\n\
387 The version control may be set with --backup or VERSION_CONTROL, values are:\n\
389 t, numbered make numbered backups\n\
390 nil, existing numbered if numbered backups exist, simple otherwise\n\
391 never, simple always make simple backups\n"),
395 GNU tar cannot read nor produce `--posix' archives. If POSIXLY_CORRECT\n\
396 is set in the environment, GNU extensions are disallowed with `--posix'.\n\
397 Support for POSIX is only partially implemented, don't count on it yet.\n\
398 ARCHIVE may be FILE, HOST:FILE or USER@HOST:FILE; and FILE may be a file\n\
399 or a device. *This* `tar' defaults to `-f%s -b%d'.\n"),
400 DEFAULT_ARCHIVE
, DEFAULT_BLOCKING
);
403 Report bugs to <tar-bugs@gnu.org>.\n"),
409 /*----------------------------.
410 | Parse the options for tar. |
411 `----------------------------*/
413 /* Available option letters are DEHIJQY and aejnqy. Some are reserved:
415 y per-file gzip compression
416 Y per-block gzip compression */
418 #define OPTION_STRING \
419 "-01234567ABC:F:GK:L:MN:OPRST:UV:WX:Zb:cdf:g:hiklmoprstuvwxz"
422 set_subcommand_option (enum subcommand subcommand
)
424 if (subcommand_option
!= UNKNOWN_SUBCOMMAND
425 && subcommand_option
!= subcommand
)
427 _("You may not specify more than one `-Acdtrux' option")));
429 subcommand_option
= subcommand
;
433 set_use_compress_program_option (const char *string
)
435 if (use_compress_program_option
&& strcmp (use_compress_program_option
, string
) != 0)
436 USAGE_ERROR ((0, 0, _("Conflicting compression options")));
438 use_compress_program_option
= string
;
442 decode_options (int argc
, char *const *argv
)
444 int optchar
; /* option letter */
445 int input_files
; /* number of input files */
446 const char *backup_suffix_string
;
447 const char *version_control_string
= NULL
;
449 /* Set some default option values. */
451 subcommand_option
= UNKNOWN_SUBCOMMAND
;
452 archive_format
= DEFAULT_FORMAT
;
453 blocking_factor
= DEFAULT_BLOCKING
;
454 record_size
= DEFAULT_BLOCKING
* BLOCKSIZE
;
459 backup_suffix_string
= getenv ("SIMPLE_BACKUP_SUFFIX");
461 /* Convert old-style tar call by exploding option element and rearranging
462 options accordingly. */
464 if (argc
> 1 && argv
[1][0] != '-')
466 int new_argc
; /* argc value for rearranged arguments */
467 char **new_argv
; /* argv value for rearranged arguments */
468 char *const *in
; /* cursor into original argv */
469 char **out
; /* cursor into rearranged argv */
470 const char *letter
; /* cursor into old option letters */
471 char buffer
[3]; /* constructed option buffer */
472 const char *cursor
; /* cursor in OPTION_STRING */
474 /* Initialize a constructed option. */
479 /* Allocate a new argument array, and copy program name in it. */
481 new_argc
= argc
- 1 + strlen (argv
[1]);
482 new_argv
= (char **) xmalloc (new_argc
* sizeof (char *));
487 /* Copy each old letter option as a separate option, and have the
488 corresponding argument moved next to it. */
490 for (letter
= *in
++; *letter
; letter
++)
493 *out
++ = xstrdup (buffer
);
494 cursor
= strchr (OPTION_STRING
, *letter
);
495 if (cursor
&& cursor
[1] == ':')
497 if (in
< argv
+ argc
)
500 USAGE_ERROR ((0, 0, _("Old option `%c' requires an argument."),
505 /* Copy all remaining options. */
507 while (in
< argv
+ argc
)
510 /* Replace the old option list by the new one. */
516 /* Parse all options and non-options as they appear. */
520 while (optchar
= getopt_long (argc
, argv
, OPTION_STRING
, long_options
, NULL
),
525 usage (TAREXIT_FAILURE
);
531 /* File name or non-parsed option, because of RETURN_IN_ORDER
532 ordering triggerred by the leading dash in OPTION_STRING. */
539 set_subcommand_option (CAT_SUBCOMMAND
);
542 case OBSOLETE_BLOCK_COMPRESS
:
543 WARN ((0, 0, _("Obsolete option, now implied by --blocking-factor")));
546 case OBSOLETE_BLOCKING_FACTOR
:
547 WARN ((0, 0, _("Obsolete option name replaced by --blocking-factor")));
553 if (! (xstrtol (optarg
, (char **) 0, 10, &l
, "") == LONGINT_OK
554 && l
== (blocking_factor
= l
)
555 && 0 < blocking_factor
556 && l
== (record_size
= l
* (size_t) BLOCKSIZE
) / BLOCKSIZE
))
557 USAGE_ERROR ((0, 0, _("Invalid blocking factor")));
561 case OBSOLETE_READ_FULL_RECORDS
:
563 _("Obsolete option name replaced by --read-full-records")));
567 /* Try to reblock input records. For reading 4.2BSD pipes. */
569 /* It would surely make sense to exchange -B and -R, but it seems
570 that -B has been used for a long while in Sun tar ans most
571 BSD-derived systems. This is a consequence of the block/record
572 terminology confusion. */
574 read_full_records_option
= 1;
578 set_subcommand_option (CREATE_SUBCOMMAND
);
587 set_subcommand_option (DIFF_SUBCOMMAND
);
591 if (archive_names
== allocated_archive_names
)
593 allocated_archive_names
*= 2;
594 archive_name_array
= (const char **)
595 xrealloc (archive_name_array
,
596 sizeof (const char *) * allocated_archive_names
);
598 archive_name_array
[archive_names
++] = optarg
;
602 /* Since -F is only useful with -M, make it implied. Run this
603 script at the end of each tape. */
605 info_script_option
= optarg
;
606 multi_volume_option
= 1;
610 listed_incremental_option
= optarg
;
614 /* We are making an incremental dump (FIXME: are we?); save
615 directories at the beginning of the archive, and include in each
616 directory its contents. */
618 incremental_option
= 1;
622 /* Follow symbolic links. */
624 dereference_option
= 1;
628 /* Ignore zero blocks (eofs). This can't be the default,
629 because Unix tar writes two blocks of zeros, then pads out
630 the record with garbage. */
632 ignore_zeros_option
= 1;
636 /* Don't overwrite existing files. */
638 keep_old_files_option
= 1;
642 starting_file_option
= 1;
647 /* When dumping directories, don't dump files/subdirectories
648 that are on other filesystems. */
650 one_file_system_option
= 1;
656 if (xstrtoul (optarg
, (char **) 0, 10, &u
, "") != LONG_MAX
)
657 USAGE_ERROR ((0, 0, _("Invalid tape length")));
658 clear_tarlong (tape_length_option
);
659 add_to_tarlong (tape_length_option
, u
);
660 mult_tarlong (tape_length_option
, 1024);
661 multi_volume_option
= 1;
666 WARN ((0, 0, _("Obsolete option name replaced by --touch")));
674 /* Make multivolume archive: when we can't write any more into
675 the archive, re-open it, and continue writing. */
677 multi_volume_option
= 1;
682 after_date_option
= 1;
685 case NEWER_MTIME_OPTION
:
686 if (newer_mtime_option
)
687 USAGE_ERROR ((0, 0, _("More than one threshold date")));
689 newer_mtime_option
= get_date (optarg
, (voidstar
) 0);
690 if (newer_mtime_option
== (time_t) -1)
691 USAGE_ERROR ((0, 0, _("Invalid date format `%s'"), optarg
));
694 #endif /* not MSDOS */
697 if (archive_format
== DEFAULT_FORMAT
)
698 archive_format
= V7_FORMAT
;
699 else if (archive_format
!= V7_FORMAT
)
700 USAGE_ERROR ((0, 0, _("Conflicting archive format options")));
704 to_stdout_option
= 1;
708 same_permissions_option
= 1;
711 case OBSOLETE_ABSOLUTE_NAMES
:
712 WARN ((0, 0, _("Obsolete option name replaced by --absolute-names")));
716 absolute_names_option
= 1;
720 set_subcommand_option (APPEND_SUBCOMMAND
);
723 case OBSOLETE_BLOCK_NUMBER
:
724 WARN ((0, 0, _("Obsolete option name replaced by --block-number")));
728 /* Print block numbers for debugging bad tar archives. */
730 /* It would surely make sense to exchange -B and -R, but it seems
731 that -B has been used for a long while in Sun tar ans most
732 BSD-derived systems. This is a consequence of the block/record
733 terminology confusion. */
735 block_number_option
= 1;
739 /* Names to extr are sorted. */
741 same_order_option
= 1;
749 set_subcommand_option (LIST_SUBCOMMAND
);
754 files_from_option
= optarg
;
758 set_subcommand_option (UPDATE_SUBCOMMAND
);
762 unlink_first_option
= 1;
770 volume_label_option
= optarg
;
774 interactive_option
= 1;
782 set_subcommand_option (EXTRACT_SUBCOMMAND
);
787 add_exclude_file (optarg
);
791 set_use_compress_program_option ("gzip");
795 set_use_compress_program_option ("compress");
798 case OBSOLETE_VERSION_CONTROL
:
799 WARN ((0, 0, _("Obsolete option name replaced by --backup")));
805 version_control_string
= optarg
;
809 set_subcommand_option (DELETE_SUBCOMMAND
);
814 add_exclude (optarg
);
818 if (! (strlen (optarg
) < GNAME_FIELD_SIZE
819 && gname_to_gid (optarg
, &group_option
)))
822 if (xstrtoumax (optarg
, (char **) 0, 10, &g
, "") == LONGINT_OK
826 ERROR ((TAREXIT_FAILURE
, 0, _("Invalid group given on option")));
832 = mode_compile (optarg
,
833 MODE_MASK_EQUALS
| MODE_MASK_PLUS
| MODE_MASK_MINUS
);
834 if (mode_option
== MODE_INVALID
)
835 ERROR ((TAREXIT_FAILURE
, 0, _("Invalid mode given on option")));
836 if (mode_option
== MODE_MEMORY_EXHAUSTED
)
837 ERROR ((TAREXIT_FAILURE
, 0, _("Memory exhausted")));
840 case NO_RECURSE_OPTION
:
841 no_recurse_option
= 1;
845 filename_terminator
= '\0';
849 if (! (strlen (optarg
) < UNAME_FIELD_SIZE
850 && uname_to_uid (optarg
, &owner_option
)))
853 if (xstrtoumax (optarg
, (char **) 0, 10, &u
, "") == LONGINT_OK
857 ERROR ((TAREXIT_FAILURE
, 0, _("Invalid owner given on option")));
862 #if OLDGNU_COMPATIBILITY
863 if (archive_format
== DEFAULT_FORMAT
)
864 archive_format
= GNU_FORMAT
;
865 else if (archive_format
!= GNU_FORMAT
)
866 USAGE_ERROR ((0, 0, _("Conflicting archive format options")));
868 if (archive_format
== DEFAULT_FORMAT
)
869 archive_format
= POSIX_FORMAT
;
870 else if (archive_format
!= POSIX_FORMAT
)
871 USAGE_ERROR ((0, 0, _("Conflicting archive format options")));
875 case PRESERVE_OPTION
:
876 same_permissions_option
= 1;
877 same_order_option
= 1;
880 case RECORD_SIZE_OPTION
:
883 if (! (xstrtoumax (optarg
, (char **) 0, 10, &u
, "") == LONG_MAX
885 USAGE_ERROR ((0, 0, _("Invalid record size")));
887 if (record_size
% BLOCKSIZE
!= 0)
888 USAGE_ERROR ((0, 0, _("Record size must be a multiple of %d."),
890 blocking_factor
= record_size
/ BLOCKSIZE
;
894 case RSH_COMMAND_OPTION
:
895 rsh_command_option
= optarg
;
900 backup_suffix_string
= optarg
;
903 case VOLNO_FILE_OPTION
:
904 volno_file_option
= optarg
;
907 case USE_COMPRESS_PROGRAM_OPTION
:
908 set_use_compress_program_option (optarg
);
922 int device
= optchar
- '0';
924 static char buf
[sizeof DEVICE_PREFIX
+ 10];
927 density
= getopt_long (argc
, argv
, "lmh", NULL
, NULL
);
928 strcpy (buf
, DEVICE_PREFIX
);
929 cursor
= buf
+ strlen (buf
);
931 #ifdef DENSITY_LETTER
933 sprintf (cursor
, "%d%c", device
, density
);
935 #else /* not DENSITY_LETTER */
962 usage (TAREXIT_FAILURE
);
964 sprintf (cursor
, "%d", device
);
966 #endif /* not DENSITY_LETTER */
968 if (archive_names
== allocated_archive_names
)
970 allocated_archive_names
*= 2;
971 archive_name_array
= (const char **)
972 xrealloc (archive_name_array
,
973 sizeof (const char *) * allocated_archive_names
);
975 archive_name_array
[archive_names
++] = buf
;
977 /* FIXME: How comes this works for many archives when buf is
982 #else /* not DEVICE_PREFIX */
985 _("Options `-[0-7][lmh]' not supported by *this* tar")));
987 #endif /* not DEVICE_PREFIX */
990 /* Process trivial options. */
994 printf ("tar (GNU %s) %s\n", PACKAGE
, VERSION
);
997 Copyright (C) 1988, 92,93,94,95,96,97,98, 1999 Free Software Foundation, Inc.\n"),
1000 This is free software; see the source for copying conditions. There is NO\n\
1001 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n"),
1005 Written by John Gilmore and Jay Fenlason.\n"),
1007 exit (TAREXIT_SUCCESS
);
1011 usage (TAREXIT_SUCCESS
);
1013 /* Derive option values and check option consistency. */
1015 if (archive_format
== DEFAULT_FORMAT
)
1017 #if OLDGNU_COMPATIBILITY
1018 archive_format
= OLDGNU_FORMAT
;
1020 archive_format
= GNU_FORMAT
;
1024 if (archive_format
== GNU_FORMAT
&& getenv ("POSIXLY_CORRECT"))
1025 archive_format
= POSIX_FORMAT
;
1027 if ((volume_label_option
!= NULL
1028 || incremental_option
|| multi_volume_option
|| sparse_option
)
1029 && archive_format
!= OLDGNU_FORMAT
&& archive_format
!= GNU_FORMAT
)
1031 _("GNU features wanted on incompatible archive format")));
1033 if (archive_names
== 0)
1035 /* If no archive file name given, try TAPE from the environment, or
1036 else, DEFAULT_ARCHIVE from the configuration process. */
1039 archive_name_array
[0] = getenv ("TAPE");
1040 if (archive_name_array
[0] == NULL
)
1041 archive_name_array
[0] = DEFAULT_ARCHIVE
;
1044 /* Allow multiple archives only with `-M'. */
1046 if (archive_names
> 1 && !multi_volume_option
)
1048 _("Multiple archive files requires `-M' option")));
1050 /* If ready to unlink hierarchies, so we are for simpler files. */
1051 if (recursive_unlink_option
)
1052 unlink_first_option
= 1;
1054 /* Forbid using -c with no input files whatsoever. Check that `-f -',
1055 explicit or implied, is used correctly. */
1057 switch (subcommand_option
)
1059 case CREATE_SUBCOMMAND
:
1060 if (input_files
== 0 && !files_from_option
)
1062 _("Cowardly refusing to create an empty archive")));
1065 case EXTRACT_SUBCOMMAND
:
1066 case LIST_SUBCOMMAND
:
1067 case DIFF_SUBCOMMAND
:
1068 for (archive_name_cursor
= archive_name_array
;
1069 archive_name_cursor
< archive_name_array
+ archive_names
;
1070 archive_name_cursor
++)
1071 if (!strcmp (*archive_name_cursor
, "-"))
1072 request_stdin ("-f");
1075 case CAT_SUBCOMMAND
:
1076 case UPDATE_SUBCOMMAND
:
1077 case APPEND_SUBCOMMAND
:
1078 for (archive_name_cursor
= archive_name_array
;
1079 archive_name_cursor
< archive_name_array
+ archive_names
;
1080 archive_name_cursor
++)
1081 if (!strcmp (*archive_name_cursor
, "-"))
1083 _("Options `-Aru' are incompatible with `-f -'")));
1089 archive_name_cursor
= archive_name_array
;
1091 /* Prepare for generating backup names. */
1093 if (backup_suffix_string
)
1094 simple_backup_suffix
= xstrdup (backup_suffix_string
);
1097 backup_type
= xget_version ("--backup", version_control_string
);
1102 /*-----------------------.
1103 | Main routine for tar. |
1104 `-----------------------*/
1107 main (int argc
, char *const *argv
)
1109 program_name
= argv
[0];
1110 setlocale (LC_ALL
, "");
1111 bindtextdomain (PACKAGE
, LOCALEDIR
);
1112 textdomain (PACKAGE
);
1114 exit_status
= TAREXIT_SUCCESS
;
1115 filename_terminator
= '\n';
1117 /* Pre-allocate a few structures. */
1119 allocated_archive_names
= 10;
1120 archive_name_array
= (const char **)
1121 xmalloc (sizeof (const char *) * allocated_archive_names
);
1125 /* System V fork+wait does not work if SIGCHLD is ignored. */
1126 signal (SIGCHLD
, SIG_DFL
);
1131 /* Decode options. */
1133 decode_options (argc
, argv
);
1134 name_init (argc
, argv
);
1136 /* Main command execution. */
1138 if (volno_file_option
)
1139 init_volume_number ();
1141 switch (subcommand_option
)
1143 case UNKNOWN_SUBCOMMAND
:
1145 _("You must specify one of the `-Acdtrux' options")));
1147 case CAT_SUBCOMMAND
:
1148 case UPDATE_SUBCOMMAND
:
1149 case APPEND_SUBCOMMAND
:
1153 case DELETE_SUBCOMMAND
:
1154 delete_archive_members ();
1157 case CREATE_SUBCOMMAND
:
1159 init_total_written ();
1165 print_total_written ();
1168 case EXTRACT_SUBCOMMAND
:
1170 read_and (extract_archive
);
1173 case LIST_SUBCOMMAND
:
1174 read_and (list_archive
);
1177 case DIFF_SUBCOMMAND
:
1179 read_and (diff_archive
);
1183 if (volno_file_option
)
1184 closeout_volume_number ();
1186 /* Dispose of allocated memory, and return. */
1188 free (archive_name_array
);
1191 if (exit_status
== TAREXIT_FAILURE
)
1192 error (0, 0, _("Error exit delayed from previous errors"));