1 /* A tar (tape archiver) program.
2 Copyright (C) 1988, 92, 93, 94, 95, 96, 97 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 Place - Suite 330, Boston, MA 02111-1307, USA. */
23 /* The following causes "common.h" to produce definitions of all the global
24 variables, rather than just "extern" declarations of them. GNU tar does
25 depend on the system loader to preset all GLOBAL variables to neutral (or
26 zero) values, explicit initialisation is usually not done. */
30 #include "backupfile.h"
31 enum backup_type get_version ();
33 /* FIXME: We should use a conversion routine that does reasonable error
34 checking -- atol doesn't. For now, punt. */
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 | Check if STRING0 is the decimal representation of number, and store its |
55 | value. If not a decimal number, return 0. |
56 `------------------------------------------------------------------------*/
59 check_decimal (const char *string0, uintmax_t *result)
61 const char *string = string0;
78 uintmax_t v10 = value * 10;
79 uintmax_t v10d = v10 + (*string - '0');
80 if (v10 / 10 != value || v10d < v10)
95 /*----------------------------------------------.
96 | Doesn't return if stdin already requested. |
97 `----------------------------------------------*/
99 /* Name of option using stdin. */
100 static const char *stdin_used_by = NULL;
103 request_stdin (const char *option)
106 USAGE_ERROR ((0, 0, _("Options `-%s' and `-%s' both want standard input"),
107 stdin_used_by, option));
109 stdin_used_by = option;
112 /*--------------------------------------------------------.
113 | Returns true if and only if the user typed 'y' or 'Y'. |
114 `--------------------------------------------------------*/
117 confirm (const char *message_action, const char *message_name)
119 static FILE *confirm_file = NULL;
123 if (archive == 0 || stdin_used_by)
124 confirm_file = fopen (TTY_NAME, "r");
127 request_stdin ("-w");
128 confirm_file = stdin;
132 FATAL_ERROR ((0, 0, _("Cannot read confirmation from user")));
135 fprintf (stdlis, "%s %s?", message_action, message_name);
139 int reply = getc (confirm_file);
142 for (character = reply;
143 character != '\n' && character != EOF;
144 character = getc (confirm_file))
146 return reply == 'y' || reply == 'Y';
152 /* For long options that unconditionally set a single flag, we have getopt
153 do it. For the others, we share the code for the equivalent short
154 named option, the name of which is stored in the otherwise-unused `val'
155 field of the `struct option'; for long options that have no equivalent
156 short option, we use nongraphic characters as pseudo short option
157 characters, starting at 2 and going upwards. */
159 #define BACKUP_OPTION 2
160 #define DELETE_OPTION 3
161 #define EXCLUDE_OPTION 4
162 #define GROUP_OPTION 5
163 #define MODE_OPTION 6
164 #define NEWER_MTIME_OPTION 7
165 #define NO_RECURSE_OPTION 8
166 #define NULL_OPTION 9
167 #define OWNER_OPTION 10
168 #define POSIX_OPTION 11
169 #define PRESERVE_OPTION 12
170 #define RECORD_SIZE_OPTION 13
171 #define RSH_COMMAND_OPTION 14
172 #define SUFFIX_OPTION 15
173 #define USE_COMPRESS_PROGRAM_OPTION 16
174 #define VOLNO_FILE_OPTION 17
176 /* Some cleanup is being made in GNU tar long options. Using old names is
177 allowed for a while, but will also send a warning to stderr. Take old
178 names out in 1.14, or in summer 1997, whichever happens last. We use
179 nongraphic characters as pseudo short option characters, starting at 31
180 and going downwards. */
182 #define OBSOLETE_ABSOLUTE_NAMES 31
183 #define OBSOLETE_BLOCK_COMPRESS 30
184 #define OBSOLETE_BLOCKING_FACTOR 29
185 #define OBSOLETE_BLOCK_NUMBER 28
186 #define OBSOLETE_READ_FULL_RECORDS 27
187 #define OBSOLETE_TOUCH 26
188 #define OBSOLETE_VERSION_CONTROL 25
190 /* If nonzero, display usage information and exit. */
191 static int show_help = 0;
193 /* If nonzero, print the version on standard output and exit. */
194 static int show_version = 0;
196 struct option long_options[] =
198 {"absolute-names", no_argument, NULL, 'P'},
199 {"absolute-paths", no_argument, NULL, OBSOLETE_ABSOLUTE_NAMES},
200 {"after-date", required_argument, NULL, 'N'},
201 {"append", no_argument, NULL, 'r'},
202 {"atime-preserve", no_argument, &atime_preserve_option, 1},
203 {"backup", optional_argument, NULL, BACKUP_OPTION},
204 {"block-compress", no_argument, NULL, OBSOLETE_BLOCK_COMPRESS},
205 {"block-number", no_argument, NULL, 'R'},
206 {"block-size", required_argument, NULL, OBSOLETE_BLOCKING_FACTOR},
207 {"blocking-factor", required_argument, NULL, 'b'},
208 {"catenate", no_argument, NULL, 'A'},
209 {"checkpoint", no_argument, &checkpoint_option, 1},
210 {"compare", no_argument, NULL, 'd'},
211 {"compress", no_argument, NULL, 'Z'},
212 {"concatenate", no_argument, NULL, 'A'},
213 {"confirmation", no_argument, NULL, 'w'},
214 /* FIXME: --selective as a synonym for --confirmation? */
215 {"create", no_argument, NULL, 'c'},
216 {"delete", no_argument, NULL, DELETE_OPTION},
217 {"dereference", no_argument, NULL, 'h'},
218 {"diff", no_argument, NULL, 'd'},
219 {"directory", required_argument, NULL, 'C'},
220 {"ending-file", required_argument, NULL, 'E'},
221 {"exclude", required_argument, NULL, EXCLUDE_OPTION},
222 {"exclude-from", required_argument, NULL, 'X'},
223 {"extract", no_argument, NULL, 'x'},
224 {"file", required_argument, NULL, 'f'},
225 {"files-from", required_argument, NULL, 'T'},
226 {"force-local", no_argument, &force_local_option, 1},
227 {"get", no_argument, NULL, 'x'},
228 {"group", required_argument, NULL, GROUP_OPTION},
229 {"gunzip", no_argument, NULL, 'z'},
230 {"gzip", no_argument, NULL, 'z'},
231 {"help", no_argument, &show_help, 1},
232 {"ignore-failed-read", no_argument, &ignore_failed_read_option, 1},
233 {"ignore-zeros", no_argument, NULL, 'i'},
234 /* FIXME: --ignore-end as a new name for --ignore-zeros? */
235 {"incremental", no_argument, NULL, 'G'},
236 {"info-script", required_argument, NULL, 'F'},
237 {"interactive", no_argument, NULL, 'w'},
238 {"keep-old-files", no_argument, NULL, 'k'},
239 {"label", required_argument, NULL, 'V'},
240 {"list", no_argument, NULL, 't'},
241 {"listed-incremental", required_argument, NULL, 'g'},
242 {"mode", required_argument, NULL, MODE_OPTION},
243 {"modification-time", no_argument, NULL, OBSOLETE_TOUCH},
244 {"multi-volume", no_argument, NULL, 'M'},
245 {"new-volume-script", required_argument, NULL, 'F'},
246 {"newer", required_argument, NULL, 'N'},
247 {"newer-mtime", required_argument, NULL, NEWER_MTIME_OPTION},
248 {"null", no_argument, NULL, NULL_OPTION},
249 {"no-recursion", no_argument, NULL, NO_RECURSE_OPTION},
250 {"numeric-owner", no_argument, &numeric_owner_option, 1},
251 {"old-archive", no_argument, NULL, 'o'},
252 {"one-file-system", no_argument, NULL, 'l'},
253 {"owner", required_argument, NULL, OWNER_OPTION},
254 {"portability", no_argument, NULL, 'o'},
255 {"posix", no_argument, NULL, POSIX_OPTION},
256 {"preserve", no_argument, NULL, PRESERVE_OPTION},
257 {"preserve-order", no_argument, NULL, 's'},
258 {"preserve-permissions", no_argument, NULL, 'p'},
259 {"recursive-unlink", no_argument, &recursive_unlink_option, 1},
260 {"read-full-blocks", no_argument, NULL, OBSOLETE_READ_FULL_RECORDS},
261 {"read-full-records", no_argument, NULL, 'B'},
262 /* FIXME: --partial-blocks might be a synonym for --read-full-records? */
263 {"record-number", no_argument, NULL, OBSOLETE_BLOCK_NUMBER},
264 {"record-size", required_argument, NULL, RECORD_SIZE_OPTION},
265 {"remove-files", no_argument, &remove_files_option, 1},
266 {"rsh-command", required_argument, NULL, RSH_COMMAND_OPTION},
267 {"same-order", no_argument, NULL, 's'},
268 {"same-owner", no_argument, &same_owner_option, 1},
269 {"same-permissions", no_argument, NULL, 'p'},
270 {"show-omitted-dirs", no_argument, &show_omitted_dirs_option, 1},
271 {"sparse", no_argument, NULL, 'S'},
272 {"starting-file", required_argument, NULL, 'K'},
273 {"suffix", required_argument, NULL, SUFFIX_OPTION},
274 {"tape-length", required_argument, NULL, 'L'},
275 {"to-stdout", no_argument, NULL, 'O'},
276 {"totals", no_argument, &totals_option, 1},
277 {"touch", no_argument, NULL, 'm'},
278 {"uncompress", no_argument, NULL, 'Z'},
279 {"ungzip", no_argument, NULL, 'z'},
280 {"unlink-first", no_argument, NULL, 'U'},
281 {"update", no_argument, NULL, 'u'},
282 {"use-compress-program", required_argument, NULL, USE_COMPRESS_PROGRAM_OPTION},
283 {"verbose", no_argument, NULL, 'v'},
284 {"verify", no_argument, NULL, 'W'},
285 {"version", no_argument, &show_version, 1},
286 {"version-control", required_argument, NULL, OBSOLETE_VERSION_CONTROL},
287 {"volno-file", required_argument, NULL, VOLNO_FILE_OPTION},
292 /*---------------------------------------------.
293 | Print a usage message and exit with STATUS. |
294 `---------------------------------------------*/
299 if (status != TAREXIT_SUCCESS)
300 fprintf (stderr, _("Try `%s --help' for more information.\n"),
305 GNU `tar' saves many files together into a single tape or disk archive, and\n\
306 can restore individual files from the archive.\n"),
308 printf (_("\nUsage: %s [OPTION]... [FILE]...\n"), program_name);
311 If a long option shows an argument as mandatory, then it is mandatory\n\
312 for the equivalent short option also. Similarly for optional arguments.\n"),
316 Main operation mode:\n\
317 -t, --list list the contents of an archive\n\
318 -x, --extract, --get extract files from an archive\n\
319 -c, --create create a new archive\n\
320 -d, --diff, --compare find differences between archive and file system\n\
321 -r, --append append files to the end of an archive\n\
322 -u, --update only append files newer than copy in archive\n\
323 -A, --catenate append tar files to an archive\n\
324 --concatenate same as -A\n\
325 --delete delete from the archive (not on mag tapes!)\n"),
329 Operation modifiers:\n\
330 -W, --verify attempt to verify the archive after writing it\n\
331 --remove-files remove files after adding them to the archive\n\
332 -k, --keep-old-files don't overwrite existing files when extracting\n\
333 -U, --unlink-first remove each file prior to extracting over it\n\
334 --recursive-unlink empty hierarchies prior to extracting directory\n\
335 -S, --sparse handle sparse files efficiently\n\
336 -O, --to-stdout extract files to standard output\n\
337 -G, --incremental handle old GNU-format incremental backup\n\
338 -g, --listed-incremental handle new GNU-format incremental backup\n\
339 --ignore-failed-read do not exit with nonzero on unreadable files\n"),
343 Handling of file attributes:\n\
344 --owner=NAME force NAME as owner for added files\n\
345 --group=NAME force NAME as group for added files\n\
346 --mode=CHANGES force (symbolic) mode CHANGES for added files\n\
347 --atime-preserve don't change access times on dumped files\n\
348 -m, --modification-time don't extract file modified time\n\
349 --same-owner try extracting files with the same ownership\n\
350 --numeric-owner always use numbers for user/group names\n\
351 -p, --same-permissions extract all protection information\n\
352 --preserve-permissions same as -p\n\
353 -s, --same-order sort names to extract to match archive\n\
354 --preserve-order same as -s\n\
355 --preserve same as both -p and -s\n"),
359 Device selection and switching:\n\
360 -f, --file=ARCHIVE use archive file or device ARCHIVE\n\
361 --force-local archive file is local even if has a colon\n\
362 --rsh-command=COMMAND use remote COMMAND instead of rsh\n\
363 -[0-7][lmh] specify drive and density\n\
364 -M, --multi-volume create/list/extract multi-volume archive\n\
365 -L, --tape-length=NUM change tape after writing NUM x 1024 bytes\n\
366 -F, --info-script=FILE run script at end of each tape (implies -M)\n\
367 --new-volume-script=FILE same as -F FILE\n\
368 --volno-file=FILE use/update the volume number in FILE\n"),
373 -b, --blocking-factor=BLOCKS BLOCKS x 512 bytes per record\n\
374 --record-size=SIZE SIZE bytes per record, multiple of 512\n\
375 -i, --ignore-zeros ignore zeroed blocks in archive (means EOF)\n\
376 -B, --read-full-records reblock as we read (for 4.2BSD pipes)\n"),
380 Archive format selection:\n\
381 -V, --label=NAME create archive with volume name NAME\n\
382 PATTERN at list/extract time, a globbing PATTERN\n\
383 -o, --old-archive, --portability write a V7 format archive\n\
384 --posix write a POSIX conformant archive\n\
385 -z, --gzip, --ungzip filter the archive through gzip\n\
386 -Z, --compress, --uncompress filter the archive through compress\n\
387 --use-compress-program=PROG filter through PROG (must accept -d)\n"),
391 Local file selection:\n\
392 -C, --directory=DIR change to directory DIR\n\
393 -T, --files-from=NAME get names to extract or create from file NAME\n\
394 --null -T reads null-terminated names, disable -C\n\
395 --exclude=PATTERN exclude files, given as a globbing PATTERN\n\
396 -X, --exclude-from=FILE exclude globbing patterns listed in FILE\n\
397 -P, --absolute-names don't strip leading `/'s from file names\n\
398 -h, --dereference dump instead the files symlinks point to\n\
399 --no-recursion avoid descending automatically in directories\n\
400 -l, --one-file-system stay in local file system when creating archive\n\
401 -E, --ending-file=NAME end reading the archive before file NAME\n\
402 -K, --starting-file=NAME begin at file NAME in the archive\n"),
406 -N, --newer=DATE only store files newer than DATE\n\
407 --newer-mtime compare date and time when data changed only\n\
408 --after-date=DATE same as -N\n"),
412 --backup[=CONTROL] backup before removal, choose version control\n\
413 --suffix=SUFFIX backup before removel, override usual suffix\n"),
417 Informative output:\n\
418 --help print this help, then exit\n\
419 --version print tar program version number, then exit\n\
420 -v, --verbose verbosely list files processed\n\
421 --checkpoint print directory names while reading the archive\n\
422 --totals print total bytes written while creating archive\n\
423 -R, --block-number show block number within archive with each message\n\
424 -w, --interactive ask for confirmation for every action\n\
425 --confirmation same as -w\n"),
429 The backup suffix is `~', unless set with --suffix or SIMPLE_BACKUP_SUFFIX.\n\
430 The version control may be set with --backup or VERSION_CONTROL, values are:\n\
432 t, numbered make numbered backups\n\
433 nil, existing numbered if numbered backups exist, simple otherwise\n\
434 never, simple always make simple backups\n"),
438 GNU tar cannot read nor produce `--posix' archives. If POSIXLY_CORRECT\n\
439 is set in the environment, GNU extensions are disallowed with `--posix'.\n\
440 Support for POSIX is only partially implemented, don't count on it yet.\n\
441 ARCHIVE may be FILE, HOST:FILE or USER@HOST:FILE; and FILE may be a file\n\
442 or a device. *This* `tar' defaults to `-f%s -b%d'.\n"),
443 DEFAULT_ARCHIVE, DEFAULT_BLOCKING);
446 Report bugs to <tar-bugs@gnu.ai.mit.edu>.\n"),
452 /*----------------------------.
453 | Parse the options for tar. |
454 `----------------------------*/
456 /* Available option letters are DHIJQY and aejnqy. Some are reserved:
458 y per-file gzip compression
459 Y per-block gzip compression */
461 #define OPTION_STRING \
462 "-01234567ABC:E:F:GK:L:MN:OPRST:UV:WX:Zb:cdf:g:hiklmoprstuvwxz"
465 set_subcommand_option (enum subcommand subcommand)
467 if (subcommand_option != UNKNOWN_SUBCOMMAND
468 && subcommand_option != subcommand)
470 _("You may not specify more than one `-Acdtrux' option")));
472 subcommand_option = subcommand;
476 set_use_compress_program_option (const char *string)
478 if (use_compress_program_option && strcmp (use_compress_program_option, string) != 0)
479 USAGE_ERROR ((0, 0, _("Conflicting compression options")));
481 use_compress_program_option = string;
485 decode_options (int argc, char *const *argv)
487 int optchar; /* option letter */
488 int input_files; /* number of input files */
489 const char *backup_suffix_string;
490 const char *version_control_string;
492 /* Set some default option values. */
494 subcommand_option = UNKNOWN_SUBCOMMAND;
495 archive_format = DEFAULT_FORMAT;
496 blocking_factor = DEFAULT_BLOCKING;
497 record_size = DEFAULT_BLOCKING * BLOCKSIZE;
502 backup_suffix_string = getenv ("SIMPLE_BACKUP_SUFFIX");
503 version_control_string = getenv ("VERSION_CONTROL");
505 /* Convert old-style tar call by exploding option element and rearranging
506 options accordingly. */
508 if (argc > 1 && argv[1][0] != '-')
510 int new_argc; /* argc value for rearranged arguments */
511 char **new_argv; /* argv value for rearranged arguments */
512 char *const *in; /* cursor into original argv */
513 char **out; /* cursor into rearranged argv */
514 const char *letter; /* cursor into old option letters */
515 char buffer[3]; /* constructed option buffer */
516 const char *cursor; /* cursor in OPTION_STRING */
518 /* Initialize a constructed option. */
523 /* Allocate a new argument array, and copy program name in it. */
525 new_argc = argc - 1 + strlen (argv[1]);
526 new_argv = (char **) xmalloc (new_argc * sizeof (char *));
531 /* Copy each old letter option as a separate option, and have the
532 corresponding argument moved next to it. */
534 for (letter = *in++; *letter; letter++)
537 *out++ = xstrdup (buffer);
538 cursor = strchr (OPTION_STRING, *letter);
539 if (cursor && cursor[1] == ':')
540 if (in < argv + argc)
543 USAGE_ERROR ((0, 0, _("Old option `%c' requires an argument."),
547 /* Copy all remaining options. */
549 while (in < argv + argc)
552 /* Replace the old option list by the new one. */
558 /* Parse all options and non-options as they appear. */
562 while (optchar = getopt_long (argc, argv, OPTION_STRING, long_options, NULL),
567 usage (TAREXIT_FAILURE);
573 /* File name or non-parsed option, because of RETURN_IN_ORDER
574 ordering triggerred by the leading dash in OPTION_STRING. */
581 set_subcommand_option (CAT_SUBCOMMAND);
584 case OBSOLETE_BLOCK_COMPRESS:
585 WARN ((0, 0, _("Obsolete option, now implied by --blocking-factor")));
588 case OBSOLETE_BLOCKING_FACTOR:
589 WARN ((0, 0, _("Obsolete option name replaced by --blocking-factor")));
593 blocking_factor = intconv (optarg);
594 record_size = blocking_factor * (size_t) BLOCKSIZE;
597 case OBSOLETE_READ_FULL_RECORDS:
599 _("Obsolete option name replaced by --read-full-records")));
603 /* Try to reblock input records. For reading 4.2BSD pipes. */
605 /* It would surely make sense to exchange -B and -R, but it seems
606 that -B has been used for a long while in Sun tar ans most
607 BSD-derived systems. This is a consequence of the block/record
608 terminology confusion. */
610 read_full_records_option = 1;
614 set_subcommand_option (CREATE_SUBCOMMAND);
623 set_subcommand_option (DIFF_SUBCOMMAND);
627 ending_file_option = optarg;
631 if (archive_names == allocated_archive_names)
633 allocated_archive_names *= 2;
634 archive_name_array = (const char **)
635 xrealloc (archive_name_array,
636 sizeof (const char *) * allocated_archive_names);
638 archive_name_array[archive_names++] = optarg;
642 /* Since -F is only useful with -M, make it implied. Run this
643 script at the end of each tape. */
645 info_script_option = optarg;
646 multi_volume_option = 1;
650 listed_incremental_option = optarg;
654 /* We are making an incremental dump (FIXME: are we?); save
655 directories at the beginning of the archive, and include in each
656 directory its contents. */
658 incremental_option = 1;
662 /* Follow symbolic links. */
664 dereference_option = 1;
668 /* Ignore zero blocks (eofs). This can't be the default,
669 because Unix tar writes two blocks of zeros, then pads out
670 the record with garbage. */
672 ignore_zeros_option = 1;
676 /* Don't overwrite existing files. */
678 keep_old_files_option = 1;
682 starting_file_option = 1;
687 /* When dumping directories, don't dump files/subdirectories
688 that are on other filesystems. */
690 one_file_system_option = 1;
694 clear_tarlong (tape_length_option);
695 add_to_tarlong (tape_length_option, intconv (optarg));
696 mult_tarlong (tape_length_option, 1024);
697 multi_volume_option = 1;
701 WARN ((0, 0, _("Obsolete option name replaced by --touch")));
709 /* Make multivolume archive: when we can't write any more into
710 the archive, re-open it, and continue writing. */
712 multi_volume_option = 1;
717 after_date_option = 1;
720 case NEWER_MTIME_OPTION:
721 if (newer_mtime_option)
722 USAGE_ERROR ((0, 0, _("More than one threshold date")));
724 newer_mtime_option = get_date (optarg, (voidstar) 0);
725 if (newer_mtime_option == (time_t) -1)
726 USAGE_ERROR ((0, 0, _("Invalid date format `%s'"), optarg));
729 #endif /* not MSDOS */
732 if (archive_format == DEFAULT_FORMAT)
733 archive_format = V7_FORMAT;
734 else if (archive_format != V7_FORMAT)
735 USAGE_ERROR ((0, 0, _("Conflicting archive format options")));
739 to_stdout_option = 1;
743 same_permissions_option = 1;
746 case OBSOLETE_ABSOLUTE_NAMES:
747 WARN ((0, 0, _("Obsolete option name replaced by --absolute-names")));
751 absolute_names_option = 1;
755 set_subcommand_option (APPEND_SUBCOMMAND);
758 case OBSOLETE_BLOCK_NUMBER:
759 WARN ((0, 0, _("Obsolete option name replaced by --block-number")));
763 /* Print block numbers for debugging bad tar archives. */
765 /* It would surely make sense to exchange -B and -R, but it seems
766 that -B has been used for a long while in Sun tar ans most
767 BSD-derived systems. This is a consequence of the block/record
768 terminology confusion. */
770 block_number_option = 1;
774 /* Names to extr are sorted. */
776 same_order_option = 1;
784 set_subcommand_option (LIST_SUBCOMMAND);
789 files_from_option = optarg;
793 set_subcommand_option (UPDATE_SUBCOMMAND);
797 unlink_first_option = 1;
805 volume_label_option = optarg;
809 interactive_option = 1;
817 set_subcommand_option (EXTRACT_SUBCOMMAND);
822 add_exclude_file (optarg);
826 set_use_compress_program_option ("gzip");
830 set_use_compress_program_option ("compress");
833 case OBSOLETE_VERSION_CONTROL:
834 WARN ((0, 0, _("Obsolete option name replaced by --backup")));
840 version_control_string = optarg;
844 set_subcommand_option (DELETE_SUBCOMMAND);
849 add_exclude (optarg);
853 if (!gname_to_gid (optarg, &group_option))
856 if (!check_decimal (optarg, &g) || g != (gid_t) g)
857 ERROR ((TAREXIT_FAILURE, 0, _("Invalid group given on option")));
865 = mode_compile (optarg,
866 MODE_MASK_EQUALS | MODE_MASK_PLUS | MODE_MASK_MINUS);
867 if (mode_option == MODE_INVALID)
868 ERROR ((TAREXIT_FAILURE, 0, _("Invalid mode given on option")));
869 if (mode_option == MODE_MEMORY_EXHAUSTED)
870 ERROR ((TAREXIT_FAILURE, 0, _("Memory exhausted")));
873 case NO_RECURSE_OPTION:
874 no_recurse_option = 1;
878 filename_terminator = '\0';
882 if (!uname_to_uid (optarg, &owner_option))
885 if (!check_decimal (optarg, &u) || u != (uid_t) u)
886 ERROR ((TAREXIT_FAILURE, 0, _("Invalid owner given on option")));
893 #if OLDGNU_COMPATIBILITY
894 if (archive_format == DEFAULT_FORMAT)
895 archive_format = GNU_FORMAT;
896 else if (archive_format != GNU_FORMAT)
897 USAGE_ERROR ((0, 0, _("Conflicting archive format options")));
899 if (archive_format == DEFAULT_FORMAT)
900 archive_format = POSIX_FORMAT;
901 else if (archive_format != POSIX_FORMAT)
902 USAGE_ERROR ((0, 0, _("Conflicting archive format options")));
906 case PRESERVE_OPTION:
907 same_permissions_option = 1;
908 same_order_option = 1;
911 case RECORD_SIZE_OPTION:
912 record_size = intconv (optarg);
913 if (record_size % BLOCKSIZE != 0)
914 USAGE_ERROR ((0, 0, _("Record size must be a multiple of %d."),
916 blocking_factor = record_size / BLOCKSIZE;
919 case RSH_COMMAND_OPTION:
920 rsh_command_option = optarg;
925 backup_suffix_string = optarg;
928 case VOLNO_FILE_OPTION:
929 volno_file_option = optarg;
932 case USE_COMPRESS_PROGRAM_OPTION:
933 set_use_compress_program_option (optarg);
947 int device = optchar - '0';
949 static char buf[sizeof DEVICE_PREFIX + 10];
952 density = getopt_long (argc, argv, "lmh", NULL, NULL);
953 strcpy (buf, DEVICE_PREFIX);
954 cursor = buf + strlen (buf);
956 #ifdef DENSITY_LETTER
958 sprintf (cursor, "%d%c", device, density);
960 #else /* not DENSITY_LETTER */
987 usage (TAREXIT_FAILURE);
989 sprintf (cursor, "%d", device);
991 #endif /* not DENSITY_LETTER */
993 if (archive_names == allocated_archive_names)
995 allocated_archive_names *= 2;
996 archive_name_array = (const char **)
997 xrealloc (archive_name_array,
998 sizeof (const char *) * allocated_archive_names);
1000 archive_name_array[archive_names++] = buf;
1002 /* FIXME: How comes this works for many archives when buf is
1007 #else /* not DEVICE_PREFIX */
1010 _("Options `-[0-7][lmh]' not supported by *this* tar")));
1012 #endif /* not DEVICE_PREFIX */
1015 /* Process trivial options. */
1019 printf ("tar (GNU %s) %s\n", PACKAGE, VERSION);
1022 Copyright (C) 1988, 92, 93, 94, 95, 96, 97 Free Software Foundation, Inc.\n"),
1025 This is free software; see the source for copying conditions. There is NO\n\
1026 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n"),
1030 Written by John Gilmore and Jay Fenlason.\n"),
1032 exit (TAREXIT_SUCCESS);
1036 usage (TAREXIT_SUCCESS);
1038 /* Derive option values and check option consistency. */
1040 if (archive_format == DEFAULT_FORMAT)
1042 #if OLDGNU_COMPATIBILITY
1043 archive_format = OLDGNU_FORMAT;
1045 archive_format = GNU_FORMAT;
1049 if (archive_format == GNU_FORMAT && getenv ("POSIXLY_CORRECT"))
1050 archive_format = POSIX_FORMAT;
1052 if ((volume_label_option != NULL
1053 || incremental_option || multi_volume_option || sparse_option)
1054 && archive_format != OLDGNU_FORMAT && archive_format != GNU_FORMAT)
1056 _("GNU features wanted on incompatible archive format")));
1058 if (archive_names == 0)
1060 /* If no archive file name given, try TAPE from the environment, or
1061 else, DEFAULT_ARCHIVE from the configuration process. */
1064 archive_name_array[0] = getenv ("TAPE");
1065 if (archive_name_array[0] == NULL)
1066 archive_name_array[0] = DEFAULT_ARCHIVE;
1069 /* Allow multiple archives only with `-M'. */
1071 if (archive_names > 1 && !multi_volume_option)
1073 _("Multiple archive files requires `-M' option")));
1075 /* If ready to unlink hierarchies, so we are for simpler files. */
1076 if (recursive_unlink_option)
1077 unlink_first_option = 1;
1079 /* Forbid using -c with no input files whatsoever. Check that `-f -',
1080 explicit or implied, is used correctly. */
1082 switch (subcommand_option)
1084 case CREATE_SUBCOMMAND:
1085 if (input_files == 0 && !files_from_option)
1087 _("Cowardly refusing to create an empty archive")));
1090 case EXTRACT_SUBCOMMAND:
1091 case LIST_SUBCOMMAND:
1092 case DIFF_SUBCOMMAND:
1093 for (archive_name_cursor = archive_name_array;
1094 archive_name_cursor < archive_name_array + archive_names;
1095 archive_name_cursor++)
1096 if (!strcmp (*archive_name_cursor, "-"))
1097 request_stdin ("-f");
1100 case CAT_SUBCOMMAND:
1101 case UPDATE_SUBCOMMAND:
1102 case APPEND_SUBCOMMAND:
1103 for (archive_name_cursor = archive_name_array;
1104 archive_name_cursor < archive_name_array + archive_names;
1105 archive_name_cursor++)
1106 if (!strcmp (*archive_name_cursor, "-"))
1108 _("Options `-Aru' are incompatible with `-f -'")));
1114 archive_name_cursor = archive_name_array;
1116 /* Prepare for generating backup names. */
1118 if (backup_suffix_string)
1119 simple_backup_suffix = xstrdup (backup_suffix_string);
1122 backup_type = get_version (version_control_string);
1127 /*-----------------------.
1128 | Main routine for tar. |
1129 `-----------------------*/
1132 main (int argc, char *const *argv)
1134 program_name = argv[0];
1135 setlocale (LC_ALL, "");
1136 bindtextdomain (PACKAGE, LOCALEDIR);
1137 textdomain (PACKAGE);
1139 exit_status = TAREXIT_SUCCESS;
1140 filename_terminator = '\n';
1142 /* Pre-allocate a few structures. */
1144 allocated_archive_names = 10;
1145 archive_name_array = (const char **)
1146 xmalloc (sizeof (const char *) * allocated_archive_names);
1151 /* Decode options. */
1153 decode_options (argc, argv);
1154 name_init (argc, argv);
1156 /* Main command execution. */
1158 if (volno_file_option)
1159 init_volume_number ();
1161 switch (subcommand_option)
1163 case UNKNOWN_SUBCOMMAND:
1165 _("You must specify one of the `-Acdtrux' options")));
1167 case CAT_SUBCOMMAND:
1168 case UPDATE_SUBCOMMAND:
1169 case APPEND_SUBCOMMAND:
1173 case DELETE_SUBCOMMAND:
1174 delete_archive_members ();
1177 case CREATE_SUBCOMMAND:
1179 init_total_written ();
1185 print_total_written ();
1188 case EXTRACT_SUBCOMMAND:
1190 read_and (extract_archive);
1193 case LIST_SUBCOMMAND:
1194 read_and (list_archive);
1197 case DIFF_SUBCOMMAND:
1199 read_and (diff_archive);
1203 if (volno_file_option)
1204 closeout_volume_number ();
1206 /* Dispose of allocated memory, and return. */
1208 free (archive_name_array);
1211 if (exit_status == TAREXIT_FAILURE)
1212 error (0, 0, _("Error exit delayed from previous errors"));