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 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 {"bunzip2", no_argument
, NULL
, 'y'},
209 {"bzip2", no_argument
, NULL
, 'y'},
210 {"catenate", no_argument
, NULL
, 'A'},
211 {"checkpoint", no_argument
, &checkpoint_option
, 1},
212 {"compare", no_argument
, NULL
, 'd'},
213 {"compress", no_argument
, NULL
, 'Z'},
214 {"concatenate", no_argument
, NULL
, 'A'},
215 {"confirmation", no_argument
, NULL
, 'w'},
216 /* FIXME: --selective as a synonym for --confirmation? */
217 {"create", no_argument
, NULL
, 'c'},
218 {"delete", no_argument
, NULL
, DELETE_OPTION
},
219 {"dereference", no_argument
, NULL
, 'h'},
220 {"diff", no_argument
, NULL
, 'd'},
221 {"directory", required_argument
, NULL
, 'C'},
222 {"ending-file", required_argument
, NULL
, 'E'},
223 {"exclude", required_argument
, NULL
, EXCLUDE_OPTION
},
224 {"exclude-from", required_argument
, NULL
, 'X'},
225 {"extract", no_argument
, NULL
, 'x'},
226 {"file", required_argument
, NULL
, 'f'},
227 {"files-from", required_argument
, NULL
, 'T'},
228 {"force-local", no_argument
, &force_local_option
, 1},
229 {"get", no_argument
, NULL
, 'x'},
230 {"group", required_argument
, NULL
, GROUP_OPTION
},
231 {"gunzip", no_argument
, NULL
, 'z'},
232 {"gzip", no_argument
, NULL
, 'z'},
233 {"help", no_argument
, &show_help
, 1},
234 {"ignore-failed-read", no_argument
, &ignore_failed_read_option
, 1},
235 {"ignore-zeros", no_argument
, NULL
, 'i'},
236 /* FIXME: --ignore-end as a new name for --ignore-zeros? */
237 {"incremental", no_argument
, NULL
, 'G'},
238 {"info-script", required_argument
, NULL
, 'F'},
239 {"interactive", no_argument
, NULL
, 'w'},
240 {"keep-old-files", no_argument
, NULL
, 'k'},
241 {"label", required_argument
, NULL
, 'V'},
242 {"list", no_argument
, NULL
, 't'},
243 {"listed-incremental", required_argument
, NULL
, 'g'},
244 {"mode", required_argument
, NULL
, MODE_OPTION
},
245 {"modification-time", no_argument
, NULL
, OBSOLETE_TOUCH
},
246 {"multi-volume", no_argument
, NULL
, 'M'},
247 {"new-volume-script", required_argument
, NULL
, 'F'},
248 {"newer", required_argument
, NULL
, 'N'},
249 {"newer-mtime", required_argument
, NULL
, NEWER_MTIME_OPTION
},
250 {"null", no_argument
, NULL
, NULL_OPTION
},
251 {"no-recursion", no_argument
, NULL
, NO_RECURSE_OPTION
},
252 {"numeric-owner", no_argument
, &numeric_owner_option
, 1},
253 {"old-archive", no_argument
, NULL
, 'o'},
254 {"one-file-system", no_argument
, NULL
, 'l'},
255 {"owner", required_argument
, NULL
, OWNER_OPTION
},
256 {"portability", no_argument
, NULL
, 'o'},
257 {"posix", no_argument
, NULL
, POSIX_OPTION
},
258 {"preserve", no_argument
, NULL
, PRESERVE_OPTION
},
259 {"preserve-order", no_argument
, NULL
, 's'},
260 {"preserve-permissions", no_argument
, NULL
, 'p'},
261 {"recursive-unlink", no_argument
, &recursive_unlink_option
, 1},
262 {"read-full-blocks", no_argument
, NULL
, OBSOLETE_READ_FULL_RECORDS
},
263 {"read-full-records", no_argument
, NULL
, 'B'},
264 /* FIXME: --partial-blocks might be a synonym for --read-full-records? */
265 {"record-number", no_argument
, NULL
, OBSOLETE_BLOCK_NUMBER
},
266 {"record-size", required_argument
, NULL
, RECORD_SIZE_OPTION
},
267 {"remove-files", no_argument
, &remove_files_option
, 1},
268 {"rsh-command", required_argument
, NULL
, RSH_COMMAND_OPTION
},
269 {"same-order", no_argument
, NULL
, 's'},
270 {"same-owner", no_argument
, &same_owner_option
, 1},
271 {"same-permissions", no_argument
, NULL
, 'p'},
272 {"show-omitted-dirs", no_argument
, &show_omitted_dirs_option
, 1},
273 {"sparse", no_argument
, NULL
, 'S'},
274 {"starting-file", required_argument
, NULL
, 'K'},
275 {"suffix", required_argument
, NULL
, SUFFIX_OPTION
},
276 {"tape-length", required_argument
, NULL
, 'L'},
277 {"to-stdout", no_argument
, NULL
, 'O'},
278 {"totals", no_argument
, &totals_option
, 1},
279 {"touch", no_argument
, NULL
, 'm'},
280 {"uncompress", no_argument
, NULL
, 'Z'},
281 {"ungzip", no_argument
, NULL
, 'z'},
282 {"unlink-first", no_argument
, NULL
, 'U'},
283 {"update", no_argument
, NULL
, 'u'},
284 {"use-compress-program", required_argument
, NULL
, USE_COMPRESS_PROGRAM_OPTION
},
285 {"verbose", no_argument
, NULL
, 'v'},
286 {"verify", no_argument
, NULL
, 'W'},
287 {"version", no_argument
, &show_version
, 1},
288 {"version-control", required_argument
, NULL
, OBSOLETE_VERSION_CONTROL
},
289 {"volno-file", required_argument
, NULL
, VOLNO_FILE_OPTION
},
294 /*---------------------------------------------.
295 | Print a usage message and exit with STATUS. |
296 `---------------------------------------------*/
301 if (status
!= TAREXIT_SUCCESS
)
302 fprintf (stderr
, _("Try `%s --help' for more information.\n"),
307 GNU `tar' saves many files together into a single tape or disk archive, and\n\
308 can restore individual files from the archive.\n"),
310 printf (_("\nUsage: %s [OPTION]... [FILE]...\n"), program_name
);
313 If a long option shows an argument as mandatory, then it is mandatory\n\
314 for the equivalent short option also. Similarly for optional arguments.\n"),
318 Main operation mode:\n\
319 -t, --list list the contents of an archive\n\
320 -x, --extract, --get extract files from an archive\n\
321 -c, --create create a new archive\n\
322 -d, --diff, --compare find differences between archive and file system\n\
323 -r, --append append files to the end of an archive\n\
324 -u, --update only append files newer than copy in archive\n\
325 -A, --catenate append tar files to an archive\n\
326 --concatenate same as -A\n\
327 --delete delete from the archive (not on mag tapes!)\n"),
331 Operation modifiers:\n\
332 -W, --verify attempt to verify the archive after writing it\n\
333 --remove-files remove files after adding them to the archive\n\
334 -k, --keep-old-files don't overwrite existing files when extracting\n\
335 -U, --unlink-first remove each file prior to extracting over it\n\
336 --recursive-unlink empty hierarchies prior to extracting directory\n\
337 -S, --sparse handle sparse files efficiently\n\
338 -O, --to-stdout extract files to standard output\n\
339 -G, --incremental handle old GNU-format incremental backup\n\
340 -g, --listed-incremental handle new GNU-format incremental backup\n\
341 --ignore-failed-read do not exit with nonzero on unreadable files\n"),
345 Handling of file attributes:\n\
346 --owner=NAME force NAME as owner for added files\n\
347 --group=NAME force NAME as group for added files\n\
348 --mode=CHANGES force (symbolic) mode CHANGES for added files\n\
349 --atime-preserve don't change access times on dumped files\n\
350 -m, --modification-time don't extract file modified time\n\
351 --same-owner try extracting files with the same ownership\n\
352 --numeric-owner always use numbers for user/group names\n\
353 -p, --same-permissions extract all protection information\n\
354 --preserve-permissions same as -p\n\
355 -s, --same-order sort names to extract to match archive\n\
356 --preserve-order same as -s\n\
357 --preserve same as both -p and -s\n"),
361 Device selection and switching:\n\
362 -f, --file=ARCHIVE use archive file or device ARCHIVE\n\
363 --force-local archive file is local even if has a colon\n\
364 --rsh-command=COMMAND use remote COMMAND instead of rsh\n\
365 -[0-7][lmh] specify drive and density\n\
366 -M, --multi-volume create/list/extract multi-volume archive\n\
367 -L, --tape-length=NUM change tape after writing NUM x 1024 bytes\n\
368 -F, --info-script=FILE run script at end of each tape (implies -M)\n\
369 --new-volume-script=FILE same as -F FILE\n\
370 --volno-file=FILE use/update the volume number in FILE\n"),
375 -b, --blocking-factor=BLOCKS BLOCKS x 512 bytes per record\n\
376 --record-size=SIZE SIZE bytes per record, multiple of 512\n\
377 -i, --ignore-zeros ignore zeroed blocks in archive (means EOF)\n\
378 -B, --read-full-records reblock as we read (for 4.2BSD pipes)\n"),
382 Archive format selection:\n\
383 -V, --label=NAME create archive with volume name NAME\n\
384 PATTERN at list/extract time, a globbing PATTERN\n\
385 -o, --old-archive, --portability write a V7 format archive\n\
386 --posix write a POSIX conformant archive\n\
387 -y, --bzip2, --bunzip2 filter the archive through bzip2\n\
388 -z, --gzip, --ungzip filter the archive through gzip\n\
389 -Z, --compress, --uncompress filter the archive through compress\n\
390 --use-compress-program=PROG filter through PROG (must accept -d)\n"),
394 Local file selection:\n\
395 -C, --directory=DIR change to directory DIR\n\
396 -T, --files-from=NAME get names to extract or create from file NAME\n\
397 --null -T reads null-terminated names, disable -C\n\
398 --exclude=PATTERN exclude files, given as a globbing PATTERN\n\
399 -X, --exclude-from=FILE exclude globbing patterns listed in FILE\n\
400 -P, --absolute-names don't strip leading `/'s from file names\n\
401 -h, --dereference dump instead the files symlinks point to\n\
402 --no-recursion avoid descending automatically in directories\n\
403 -l, --one-file-system stay in local file system when creating archive\n\
404 -E, --ending-file=NAME end reading the archive before file NAME\n\
405 -K, --starting-file=NAME begin at file NAME in the archive\n"),
409 -N, --newer=DATE only store files newer than DATE\n\
410 --newer-mtime compare date and time when data changed only\n\
411 --after-date=DATE same as -N\n"),
415 --backup[=CONTROL] backup before removal, choose version control\n\
416 --suffix=SUFFIX backup before removel, override usual suffix\n"),
420 Informative output:\n\
421 --help print this help, then exit\n\
422 --version print tar program version number, then exit\n\
423 -v, --verbose verbosely list files processed\n\
424 --checkpoint print directory names while reading the archive\n\
425 --totals print total bytes written while creating archive\n\
426 -R, --block-number show block number within archive with each message\n\
427 -w, --interactive ask for confirmation for every action\n\
428 --confirmation same as -w\n"),
432 The backup suffix is `~', unless set with --suffix or SIMPLE_BACKUP_SUFFIX.\n\
433 The version control may be set with --backup or VERSION_CONTROL, values are:\n\
435 t, numbered make numbered backups\n\
436 nil, existing numbered if numbered backups exist, simple otherwise\n\
437 never, simple always make simple backups\n"),
441 GNU tar cannot read nor produce `--posix' archives. If POSIXLY_CORRECT\n\
442 is set in the environment, GNU extensions are disallowed with `--posix'.\n\
443 Support for POSIX is only partially implemented, don't count on it yet.\n\
444 ARCHIVE may be FILE, HOST:FILE or USER@HOST:FILE; and FILE may be a file\n\
445 or a device. *This* `tar' defaults to `-f%s -b%d'.\n"),
446 DEFAULT_ARCHIVE
, DEFAULT_BLOCKING
);
449 Report bugs to <tar-bugs@gnu.ai.mit.edu>.\n"),
455 /*----------------------------.
456 | Parse the options for tar. |
457 `----------------------------*/
459 /* Available option letters are DHIJQY and aejnqy. Some are reserved:
461 y per-file gzip compression
462 Y per-block gzip compression */
464 #define OPTION_STRING \
465 "-01234567ABC:E:F:GK:L:MN:OPRST:UV:WX:Zb:cdf:g:hiklmoprstuvwxyz"
468 set_subcommand_option (enum subcommand subcommand
)
470 if (subcommand_option
!= UNKNOWN_SUBCOMMAND
471 && subcommand_option
!= subcommand
)
473 _("You may not specify more than one `-Acdtrux' option")));
475 subcommand_option
= subcommand
;
479 set_use_compress_program_option (const char *string
)
481 if (use_compress_program_option
&& strcmp (use_compress_program_option
, string
) != 0)
482 USAGE_ERROR ((0, 0, _("Conflicting compression options")));
484 use_compress_program_option
= string
;
488 decode_options (int argc
, char *const *argv
)
490 int optchar
; /* option letter */
491 int input_files
; /* number of input files */
492 const char *backup_suffix_string
;
493 const char *version_control_string
;
495 /* Set some default option values. */
497 subcommand_option
= UNKNOWN_SUBCOMMAND
;
498 archive_format
= DEFAULT_FORMAT
;
499 blocking_factor
= DEFAULT_BLOCKING
;
500 record_size
= DEFAULT_BLOCKING
* BLOCKSIZE
;
505 backup_suffix_string
= getenv ("SIMPLE_BACKUP_SUFFIX");
506 version_control_string
= getenv ("VERSION_CONTROL");
508 /* Convert old-style tar call by exploding option element and rearranging
509 options accordingly. */
511 if (argc
> 1 && argv
[1][0] != '-')
513 int new_argc
; /* argc value for rearranged arguments */
514 char **new_argv
; /* argv value for rearranged arguments */
515 char *const *in
; /* cursor into original argv */
516 char **out
; /* cursor into rearranged argv */
517 const char *letter
; /* cursor into old option letters */
518 char buffer
[3]; /* constructed option buffer */
519 const char *cursor
; /* cursor in OPTION_STRING */
521 /* Initialize a constructed option. */
526 /* Allocate a new argument array, and copy program name in it. */
528 new_argc
= argc
- 1 + strlen (argv
[1]);
529 new_argv
= (char **) xmalloc (new_argc
* sizeof (char *));
534 /* Copy each old letter option as a separate option, and have the
535 corresponding argument moved next to it. */
537 for (letter
= *in
++; *letter
; letter
++)
540 *out
++ = xstrdup (buffer
);
541 cursor
= strchr (OPTION_STRING
, *letter
);
542 if (cursor
&& cursor
[1] == ':')
544 if (in
< argv
+ argc
)
547 USAGE_ERROR ((0, 0, _("Old option `%c' requires an argument."),
552 /* Copy all remaining options. */
554 while (in
< argv
+ argc
)
557 /* Replace the old option list by the new one. */
563 /* Parse all options and non-options as they appear. */
567 while (optchar
= getopt_long (argc
, argv
, OPTION_STRING
, long_options
, NULL
),
572 usage (TAREXIT_FAILURE
);
578 /* File name or non-parsed option, because of RETURN_IN_ORDER
579 ordering triggerred by the leading dash in OPTION_STRING. */
586 set_subcommand_option (CAT_SUBCOMMAND
);
589 case OBSOLETE_BLOCK_COMPRESS
:
590 WARN ((0, 0, _("Obsolete option, now implied by --blocking-factor")));
593 case OBSOLETE_BLOCKING_FACTOR
:
594 WARN ((0, 0, _("Obsolete option name replaced by --blocking-factor")));
598 blocking_factor
= intconv (optarg
);
599 record_size
= blocking_factor
* (size_t) BLOCKSIZE
;
602 case OBSOLETE_READ_FULL_RECORDS
:
604 _("Obsolete option name replaced by --read-full-records")));
608 /* Try to reblock input records. For reading 4.2BSD pipes. */
610 /* It would surely make sense to exchange -B and -R, but it seems
611 that -B has been used for a long while in Sun tar ans most
612 BSD-derived systems. This is a consequence of the block/record
613 terminology confusion. */
615 read_full_records_option
= 1;
619 set_subcommand_option (CREATE_SUBCOMMAND
);
628 set_subcommand_option (DIFF_SUBCOMMAND
);
632 ending_file_option
= optarg
;
636 if (archive_names
== allocated_archive_names
)
638 allocated_archive_names
*= 2;
639 archive_name_array
= (const char **)
640 xrealloc (archive_name_array
,
641 sizeof (const char *) * allocated_archive_names
);
643 archive_name_array
[archive_names
++] = optarg
;
647 /* Since -F is only useful with -M, make it implied. Run this
648 script at the end of each tape. */
650 info_script_option
= optarg
;
651 multi_volume_option
= 1;
655 listed_incremental_option
= optarg
;
659 /* We are making an incremental dump (FIXME: are we?); save
660 directories at the beginning of the archive, and include in each
661 directory its contents. */
663 incremental_option
= 1;
667 /* Follow symbolic links. */
669 dereference_option
= 1;
673 /* Ignore zero blocks (eofs). This can't be the default,
674 because Unix tar writes two blocks of zeros, then pads out
675 the record with garbage. */
677 ignore_zeros_option
= 1;
681 /* Don't overwrite existing files. */
683 keep_old_files_option
= 1;
687 starting_file_option
= 1;
692 /* When dumping directories, don't dump files/subdirectories
693 that are on other filesystems. */
695 one_file_system_option
= 1;
699 clear_tarlong (tape_length_option
);
700 add_to_tarlong (tape_length_option
, intconv (optarg
));
701 mult_tarlong (tape_length_option
, 1024);
702 multi_volume_option
= 1;
706 WARN ((0, 0, _("Obsolete option name replaced by --touch")));
714 /* Make multivolume archive: when we can't write any more into
715 the archive, re-open it, and continue writing. */
717 multi_volume_option
= 1;
722 after_date_option
= 1;
725 case NEWER_MTIME_OPTION
:
726 if (newer_mtime_option
)
727 USAGE_ERROR ((0, 0, _("More than one threshold date")));
729 newer_mtime_option
= get_date (optarg
, (voidstar
) 0);
730 if (newer_mtime_option
== (time_t) -1)
731 USAGE_ERROR ((0, 0, _("Invalid date format `%s'"), optarg
));
734 #endif /* not MSDOS */
737 if (archive_format
== DEFAULT_FORMAT
)
738 archive_format
= V7_FORMAT
;
739 else if (archive_format
!= V7_FORMAT
)
740 USAGE_ERROR ((0, 0, _("Conflicting archive format options")));
744 to_stdout_option
= 1;
748 same_permissions_option
= 1;
751 case OBSOLETE_ABSOLUTE_NAMES
:
752 WARN ((0, 0, _("Obsolete option name replaced by --absolute-names")));
756 absolute_names_option
= 1;
760 set_subcommand_option (APPEND_SUBCOMMAND
);
763 case OBSOLETE_BLOCK_NUMBER
:
764 WARN ((0, 0, _("Obsolete option name replaced by --block-number")));
768 /* Print block numbers for debugging bad tar archives. */
770 /* It would surely make sense to exchange -B and -R, but it seems
771 that -B has been used for a long while in Sun tar ans most
772 BSD-derived systems. This is a consequence of the block/record
773 terminology confusion. */
775 block_number_option
= 1;
779 /* Names to extr are sorted. */
781 same_order_option
= 1;
789 set_subcommand_option (LIST_SUBCOMMAND
);
794 files_from_option
= optarg
;
798 set_subcommand_option (UPDATE_SUBCOMMAND
);
802 unlink_first_option
= 1;
810 volume_label_option
= optarg
;
814 interactive_option
= 1;
822 set_subcommand_option (EXTRACT_SUBCOMMAND
);
827 add_exclude_file (optarg
);
831 set_use_compress_program_option ("bzip2");
835 set_use_compress_program_option ("gzip");
839 set_use_compress_program_option ("compress");
842 case OBSOLETE_VERSION_CONTROL
:
843 WARN ((0, 0, _("Obsolete option name replaced by --backup")));
849 version_control_string
= optarg
;
853 set_subcommand_option (DELETE_SUBCOMMAND
);
858 add_exclude (optarg
);
862 if (! (strlen (optarg
) < GNAME_FIELD_SIZE
863 && gname_to_gid (optarg
, &group_option
)))
866 if (!check_decimal (optarg
, &g
) || g
!= (gid_t
) g
)
867 ERROR ((TAREXIT_FAILURE
, 0, _("Invalid group given on option")));
875 = mode_compile (optarg
,
876 MODE_MASK_EQUALS
| MODE_MASK_PLUS
| MODE_MASK_MINUS
);
877 if (mode_option
== MODE_INVALID
)
878 ERROR ((TAREXIT_FAILURE
, 0, _("Invalid mode given on option")));
879 if (mode_option
== MODE_MEMORY_EXHAUSTED
)
880 ERROR ((TAREXIT_FAILURE
, 0, _("Memory exhausted")));
883 case NO_RECURSE_OPTION
:
884 no_recurse_option
= 1;
888 filename_terminator
= '\0';
892 if (! (strlen (optarg
) < UNAME_FIELD_SIZE
893 && uname_to_uid (optarg
, &owner_option
)))
896 if (!check_decimal (optarg
, &u
) || u
!= (uid_t
) u
)
897 ERROR ((TAREXIT_FAILURE
, 0, _("Invalid owner given on option")));
904 #if OLDGNU_COMPATIBILITY
905 if (archive_format
== DEFAULT_FORMAT
)
906 archive_format
= GNU_FORMAT
;
907 else if (archive_format
!= GNU_FORMAT
)
908 USAGE_ERROR ((0, 0, _("Conflicting archive format options")));
910 if (archive_format
== DEFAULT_FORMAT
)
911 archive_format
= POSIX_FORMAT
;
912 else if (archive_format
!= POSIX_FORMAT
)
913 USAGE_ERROR ((0, 0, _("Conflicting archive format options")));
917 case PRESERVE_OPTION
:
918 same_permissions_option
= 1;
919 same_order_option
= 1;
922 case RECORD_SIZE_OPTION
:
923 record_size
= intconv (optarg
);
924 if (record_size
% BLOCKSIZE
!= 0)
925 USAGE_ERROR ((0, 0, _("Record size must be a multiple of %d."),
927 blocking_factor
= record_size
/ BLOCKSIZE
;
930 case RSH_COMMAND_OPTION
:
931 rsh_command_option
= optarg
;
936 backup_suffix_string
= optarg
;
939 case VOLNO_FILE_OPTION
:
940 volno_file_option
= optarg
;
943 case USE_COMPRESS_PROGRAM_OPTION
:
944 set_use_compress_program_option (optarg
);
958 int device
= optchar
- '0';
960 static char buf
[sizeof DEVICE_PREFIX
+ 10];
963 density
= getopt_long (argc
, argv
, "lmh", NULL
, NULL
);
964 strcpy (buf
, DEVICE_PREFIX
);
965 cursor
= buf
+ strlen (buf
);
967 #ifdef DENSITY_LETTER
969 sprintf (cursor
, "%d%c", device
, density
);
971 #else /* not DENSITY_LETTER */
998 usage (TAREXIT_FAILURE
);
1000 sprintf (cursor
, "%d", device
);
1002 #endif /* not DENSITY_LETTER */
1004 if (archive_names
== allocated_archive_names
)
1006 allocated_archive_names
*= 2;
1007 archive_name_array
= (const char **)
1008 xrealloc (archive_name_array
,
1009 sizeof (const char *) * allocated_archive_names
);
1011 archive_name_array
[archive_names
++] = buf
;
1013 /* FIXME: How comes this works for many archives when buf is
1018 #else /* not DEVICE_PREFIX */
1021 _("Options `-[0-7][lmh]' not supported by *this* tar")));
1023 #endif /* not DEVICE_PREFIX */
1026 /* Process trivial options. */
1030 printf ("tar (GNU %s) %s\n", PACKAGE
, VERSION
);
1033 Copyright (C) 1988, 92, 93, 94, 95, 96, 97 Free Software Foundation, Inc.\n"),
1036 This is free software; see the source for copying conditions. There is NO\n\
1037 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n"),
1041 Written by John Gilmore and Jay Fenlason.\n"),
1043 exit (TAREXIT_SUCCESS
);
1047 usage (TAREXIT_SUCCESS
);
1049 /* Derive option values and check option consistency. */
1051 if (archive_format
== DEFAULT_FORMAT
)
1053 #if OLDGNU_COMPATIBILITY
1054 archive_format
= OLDGNU_FORMAT
;
1056 archive_format
= GNU_FORMAT
;
1060 if (archive_format
== GNU_FORMAT
&& getenv ("POSIXLY_CORRECT"))
1061 archive_format
= POSIX_FORMAT
;
1063 if ((volume_label_option
!= NULL
1064 || incremental_option
|| multi_volume_option
|| sparse_option
)
1065 && archive_format
!= OLDGNU_FORMAT
&& archive_format
!= GNU_FORMAT
)
1067 _("GNU features wanted on incompatible archive format")));
1069 if (archive_names
== 0)
1071 /* If no archive file name given, try TAPE from the environment, or
1072 else, DEFAULT_ARCHIVE from the configuration process. */
1075 archive_name_array
[0] = getenv ("TAPE");
1076 if (archive_name_array
[0] == NULL
)
1077 archive_name_array
[0] = DEFAULT_ARCHIVE
;
1080 /* Allow multiple archives only with `-M'. */
1082 if (archive_names
> 1 && !multi_volume_option
)
1084 _("Multiple archive files requires `-M' option")));
1086 /* If ready to unlink hierarchies, so we are for simpler files. */
1087 if (recursive_unlink_option
)
1088 unlink_first_option
= 1;
1090 /* Forbid using -c with no input files whatsoever. Check that `-f -',
1091 explicit or implied, is used correctly. */
1093 switch (subcommand_option
)
1095 case CREATE_SUBCOMMAND
:
1096 if (input_files
== 0 && !files_from_option
)
1098 _("Cowardly refusing to create an empty archive")));
1101 case EXTRACT_SUBCOMMAND
:
1102 case LIST_SUBCOMMAND
:
1103 case DIFF_SUBCOMMAND
:
1104 for (archive_name_cursor
= archive_name_array
;
1105 archive_name_cursor
< archive_name_array
+ archive_names
;
1106 archive_name_cursor
++)
1107 if (!strcmp (*archive_name_cursor
, "-"))
1108 request_stdin ("-f");
1111 case CAT_SUBCOMMAND
:
1112 case UPDATE_SUBCOMMAND
:
1113 case APPEND_SUBCOMMAND
:
1114 for (archive_name_cursor
= archive_name_array
;
1115 archive_name_cursor
< archive_name_array
+ archive_names
;
1116 archive_name_cursor
++)
1117 if (!strcmp (*archive_name_cursor
, "-"))
1119 _("Options `-Aru' are incompatible with `-f -'")));
1125 archive_name_cursor
= archive_name_array
;
1127 /* Prepare for generating backup names. */
1129 if (backup_suffix_string
)
1130 simple_backup_suffix
= xstrdup (backup_suffix_string
);
1133 backup_type
= get_version (version_control_string
);
1138 /*-----------------------.
1139 | Main routine for tar. |
1140 `-----------------------*/
1143 main (int argc
, char *const *argv
)
1145 program_name
= argv
[0];
1146 setlocale (LC_ALL
, "");
1147 bindtextdomain (PACKAGE
, LOCALEDIR
);
1148 textdomain (PACKAGE
);
1150 exit_status
= TAREXIT_SUCCESS
;
1151 filename_terminator
= '\n';
1153 /* Pre-allocate a few structures. */
1155 allocated_archive_names
= 10;
1156 archive_name_array
= (const char **)
1157 xmalloc (sizeof (const char *) * allocated_archive_names
);
1162 /* Decode options. */
1164 decode_options (argc
, argv
);
1165 name_init (argc
, argv
);
1167 /* Main command execution. */
1169 if (volno_file_option
)
1170 init_volume_number ();
1172 switch (subcommand_option
)
1174 case UNKNOWN_SUBCOMMAND
:
1176 _("You must specify one of the `-Acdtrux' options")));
1178 case CAT_SUBCOMMAND
:
1179 case UPDATE_SUBCOMMAND
:
1180 case APPEND_SUBCOMMAND
:
1184 case DELETE_SUBCOMMAND
:
1185 delete_archive_members ();
1188 case CREATE_SUBCOMMAND
:
1190 init_total_written ();
1196 print_total_written ();
1199 case EXTRACT_SUBCOMMAND
:
1201 read_and (extract_archive
);
1204 case LIST_SUBCOMMAND
:
1205 read_and (list_archive
);
1208 case DIFF_SUBCOMMAND
:
1210 read_and (diff_archive
);
1214 if (volno_file_option
)
1215 closeout_volume_number ();
1217 /* Dispose of allocated memory, and return. */
1219 free (archive_name_array
);
1222 if (exit_status
== TAREXIT_FAILURE
)
1223 error (0, 0, _("Error exit delayed from previous errors"));