?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Sync some manuals from bin & sbin with NetBSD-8
[minix.git] / bin / pax / options.c
blob1af5fe4b7c0fdf39b9fc2d852df0ca9051011075
1 /* $NetBSD: options.c,v 1.116 2015/04/11 15:41:33 christos Exp $ */
2
3 /*-
4 * Copyright (c) 1992 Keith Muller.
5 * Copyright (c) 1992, 1993
6 * The Regents of the University of California. All rights reserved.
7 *
8 * This code is derived from software contributed to Berkeley by
9 * Keith Muller of the University of California, San Diego.
10 *
11 * Redistribution and use in source and binary forms, with or without
12 * modification, are permitted provided that the following conditions
13 * are met:
14 * 1. Redistributions of source code must retain the above copyright
15 * notice, this list of conditions and the following disclaimer.
16 * 2. Redistributions in binary form must reproduce the above copyright
17 * notice, this list of conditions and the following disclaimer in the
18 * documentation and/or other materials provided with the distribution.
19 * 3. Neither the name of the University nor the names of its contributors
20 * may be used to endorse or promote products derived from this software
21 * without specific prior written permission.
22 *
23 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33 * SUCH DAMAGE.
34 */
35
36 #if HAVE_NBTOOL_CONFIG_H
37 #include "nbtool_config.h"
38 #endif
39
40 #include <sys/cdefs.h>
41 #if !defined(lint)
42 #if 0
43 static char sccsid[] = "@(#)options.c 8.2 (Berkeley) 4/18/94";
44 #else
45 __RCSID("$NetBSD: options.c,v 1.116 2015/04/11 15:41:33 christos Exp $");
46 #endif
47 #endif /* not lint */
48
49 #include <sys/types.h>
50 #include <sys/time.h>
51 #include <sys/stat.h>
52 #include <sys/param.h>
53 #include <ctype.h>
54 #include <errno.h>
55 #if HAVE_NBTOOL_CONFIG_H
56 #include "compat_getopt.h"
57 #else
58 #include <getopt.h>
59 #endif
60 #include <limits.h>
61 #include <stdio.h>
62 #include <stdlib.h>
63 #include <string.h>
64 #include <unistd.h>
65 #include <inttypes.h>
66 #include <paths.h>
67 #include "pax.h"
68 #include "options.h"
69 #include "cpio.h"
70 #include "tar.h"
71 #include "extern.h"
72 #ifndef SMALL
73 #include "mtree.h"
74 #endif /* SMALL */
75
76 /*
77 * Routines which handle command line options
78 */
79
80 static int nopids; /* tar mode: suppress "pids" for -p option */
81 static char flgch[] = FLGCH; /* list of all possible flags (pax) */
82 static OPLIST *ophead = NULL; /* head for format specific options -x */
83 static OPLIST *optail = NULL; /* option tail */
84
85 static int opt_add(const char *);
86 static int no_op(void);
87 static void printflg(unsigned int);
88 static int c_frmt(const void *, const void *);
89 static off_t str_offt(char *);
90 static char *get_line(FILE *fp);
91 static void pax_options(int, char **);
92 __dead static void pax_usage(void);
93 static void tar_options(int, char **);
94 __dead static void tar_usage(void);
95 #ifndef NO_CPIO
96 static void cpio_options(int, char **);
97 __dead static void cpio_usage(void);
98 #endif
99
100 /* errors from get_line */
101 #define GETLINE_FILE_CORRUPT 1
102 #define GETLINE_OUT_OF_MEM 2
103 static int get_line_error;
104
105 #define BZIP2_CMD "bzip2" /* command to run as bzip2 */
106 #define GZIP_CMD "gzip" /* command to run as gzip */
107 #define XZ_CMD "xz" /* command to run as xz */
108 #define COMPRESS_CMD "compress" /* command to run as compress */
109
110 /*
111 * Long options.
112 */
113 #define OPT_USE_COMPRESS_PROGRAM 0
114 #define OPT_CHECKPOINT 1
115 #define OPT_UNLINK 2
116 #define OPT_HELP 3
117 #define OPT_ATIME_PRESERVE 4
118 #define OPT_IGNORE_FAILED_READ 5
119 #define OPT_REMOVE_FILES 6
120 #define OPT_NULL 7
121 #define OPT_TOTALS 8
122 #define OPT_VERSION 9
123 #define OPT_EXCLUDE 10
124 #define OPT_BLOCK_COMPRESS 11
125 #define OPT_NORECURSE 12
126 #define OPT_FORCE_LOCAL 13
127 #define OPT_INSECURE 14
128 #define OPT_STRICT 15
129 #define OPT_SPARSE 16
130 #define OPT_XZ 17
131 #define OPT_GNU 18
132 #if !HAVE_NBTOOL_CONFIG_H
133 #define OPT_CHROOT 19
134 #endif
135
136 /*
137 * Format specific routine table - MUST BE IN SORTED ORDER BY NAME
138 * (see pax.h for description of each function)
139 *
140 * name, blksz, hdsz, udev, hlk, blkagn, inhead, id, st_read,
141 * read, end_read, st_write, write, end_write, trail,
142 * subtrail, rd_data, wr_data, options
143 */
144
145 FSUB fsub[] = {
146 #ifndef NO_CPIO
147 /* 0: OLD BINARY CPIO */
148 { "bcpio", 5120, sizeof(HD_BCPIO), 1, 0, 0, 1, bcpio_id, cpio_strd,
149 bcpio_rd, bcpio_endrd, cpio_stwr, bcpio_wr, cpio_endwr, NULL,
150 cpio_subtrail, rd_wrfile, wr_rdfile, bad_opt },
151
152 /* 1: OLD OCTAL CHARACTER CPIO */
153 { "cpio", 5120, sizeof(HD_CPIO), 1, 0, 0, 1, cpio_id, cpio_strd,
154 cpio_rd, cpio_endrd, cpio_stwr, cpio_wr, cpio_endwr, NULL,
155 cpio_subtrail, rd_wrfile, wr_rdfile, bad_opt },
156
157 /* 2: SVR4 HEX CPIO */
158 { "sv4cpio", 5120, sizeof(HD_VCPIO), 1, 0, 0, 1, vcpio_id, cpio_strd,
159 vcpio_rd, vcpio_endrd, cpio_stwr, vcpio_wr, cpio_endwr, NULL,
160 cpio_subtrail, rd_wrfile, wr_rdfile, bad_opt },
161
162 /* 3: SVR4 HEX CPIO WITH CRC */
163 { "sv4crc", 5120, sizeof(HD_VCPIO), 1, 0, 0, 1, crc_id, crc_strd,
164 vcpio_rd, vcpio_endrd, crc_stwr, vcpio_wr, cpio_endwr, NULL,
165 cpio_subtrail, rd_wrfile, wr_rdfile, bad_opt },
166 #endif
167 /* 4: OLD TAR */
168 { "tar", 10240, BLKMULT, 0, 1, BLKMULT, 0, tar_id, no_op,
169 tar_rd, tar_endrd, no_op, tar_wr, tar_endwr, tar_trail,
170 NULL, rd_wrfile, wr_rdfile, tar_opt },
171
172 /* 5: POSIX USTAR */
173 { "ustar", 10240, BLKMULT, 0, 1, BLKMULT, 0, ustar_id, ustar_strd,
174 ustar_rd, tar_endrd, ustar_stwr, ustar_wr, tar_endwr, tar_trail,
175 NULL, rd_wrfile, wr_rdfile, bad_opt }
176 };
177 #ifndef NO_CPIO
178 #define F_BCPIO 0 /* old binary cpio format */
179 #define F_CPIO 1 /* old octal character cpio format */
180 #define F_SV4CPIO 2 /* SVR4 hex cpio format */
181 #define F_SV4CRC 3 /* SVR4 hex with crc cpio format */
182 #define F_TAR 4 /* old V7 UNIX tar format */
183 #define F_USTAR 5 /* ustar format */
184 #else
185 #define F_TAR 0 /* old V7 UNIX tar format */
186 #define F_USTAR 1 /* ustar format */
187 #endif
188 #define DEFLT F_USTAR /* default write format from list above */
189
190 /*
191 * ford is the archive search order used by get_arc() to determine what kind
192 * of archive we are dealing with. This helps to properly id archive formats
193 * some formats may be subsets of others....
194 */
195 int ford[] = {F_USTAR, F_TAR,
196 #ifndef NO_CPIO
197 F_SV4CRC, F_SV4CPIO, F_CPIO, F_BCPIO,
198 #endif
199 -1};
200
201 /*
202 * filename record separator
203 */
204 int sep = '\n';
205
206 /*
207 * Do we have -C anywhere?
208 */
209 int havechd = 0;
210
211 /*
212 * options()
213 * figure out if we are pax, tar or cpio. Call the appropriate options
214 * parser
215 */
216
217 void
218 options(int argc, char **argv)
219 {
220
221 /*
222 * Are we acting like pax, tar or cpio (based on argv[0])
223 */
224 if ((argv0 = strrchr(argv[0], '/')) != NULL)
225 argv0++;
226 else
227 argv0 = argv[0];
228
229 if (strstr(argv0, NM_TAR)) {
230 argv0 = NM_TAR;
231 tar_options(argc, argv);
232 #ifndef NO_CPIO
233 } else if (strstr(argv0, NM_CPIO)) {
234 argv0 = NM_CPIO;
235 cpio_options(argc, argv);
236 #endif
237 } else {
238 argv0 = NM_PAX;
239 pax_options(argc, argv);
240 }
241 }
242
243 struct option pax_longopts[] = {
244 { "insecure", no_argument, 0,
245 OPT_INSECURE },
246 { "force-local", no_argument, 0,
247 OPT_FORCE_LOCAL },
248 { "use-compress-program", required_argument, 0,
249 OPT_USE_COMPRESS_PROGRAM },
250 { "xz", no_argument, 0,
251 OPT_XZ },
252 { "gnu", no_argument, 0,
253 OPT_GNU },
254 { 0, 0, 0,
255 0 },
256 };
257
258 /*
259 * pax_options()
260 * look at the user specified flags. set globals as required and check if
261 * the user specified a legal set of flags. If not, complain and exit
262 */
263
264 static void
265 pax_options(int argc, char **argv)
266 {
267 int c;
268 size_t i;
269 u_int64_t flg = 0;
270 u_int64_t bflg = 0;
271 char *pt;
272 FSUB tmp;
273
274 /*
275 * process option flags
276 */
277 while ((c = getopt_long(argc, argv,
278 "0ab:cdf:ijklno:p:rs:tuvwx:zAB:DE:G:HLMN:OPT:U:VXYZ",
279 pax_longopts, NULL)) != -1) {
280 switch (c) {
281 case '0':
282 sep = '\0';
283 break;
284 case 'a':
285 /*
286 * append
287 */
288 flg |= AF;
289 break;
290 case 'b':
291 /*
292 * specify blocksize
293 */
294 flg |= BF;
295 if ((wrblksz = (int)str_offt(optarg)) <= 0) {
296 tty_warn(1, "Invalid block size %s", optarg);
297 pax_usage();
298 }
299 break;
300 case 'c':
301 /*
302 * inverse match on patterns
303 */
304 cflag = 1;
305 flg |= CF;
306 break;
307 case 'd':
308 /*
309 * match only dir on extract, not the subtree at dir
310 */
311 dflag = 1;
312 flg |= DF;
313 break;
314 case 'f':
315 /*
316 * filename where the archive is stored
317 */
318 arcname = optarg;
319 flg |= FF;
320 break;
321 case 'i':
322 /*
323 * interactive file rename
324 */
325 iflag = 1;
326 flg |= IF;
327 break;
328 case 'j':
329 /*
330 * pass through bzip2
331 */
332 gzip_program = BZIP2_CMD;
333 break;
334 case 'k':
335 /*
336 * do not clobber files that exist
337 */
338 kflag = 1;
339 flg |= KF;
340 break;
341 case 'l':
342 /*
343 * try to link src to dest with copy (-rw)
344 */
345 lflag = 1;
346 flg |= LF;
347 break;
348 case 'n':
349 /*
350 * select first match for a pattern only
351 */
352 nflag = 1;
353 flg |= NF;
354 break;
355 case 'o':
356 /*
357 * pass format specific options
358 */
359 flg |= OF;
360 if (opt_add(optarg) < 0)
361 pax_usage();
362 break;
363 case 'p':
364 /*
365 * specify file characteristic options
366 */
367 for (pt = optarg; *pt != '\0'; ++pt) {
368 switch(*pt) {
369 case 'a':
370 /*
371 * do not preserve access time
372 */
373 patime = 0;
374 break;
375 case 'e':
376 /*
377 * preserve user id, group id, file
378 * mode, access/modification times
379 * and file flags.
380 */
381 pids = 1;
382 pmode = 1;
383 patime = 1;
384 pmtime = 1;
385 pfflags = 1;
386 break;
387 #if 0
388 case 'f':
389 /*
390 * do not preserve file flags
391 */
392 pfflags = 0;
393 break;
394 #endif
395 case 'm':
396 /*
397 * do not preserve modification time
398 */
399 pmtime = 0;
400 break;
401 case 'o':
402 /*
403 * preserve uid/gid
404 */
405 pids = 1;
406 break;
407 case 'p':
408 /*
409 * preserve file mode bits
410 */
411 pmode = 1;
412 break;
413 default:
414 tty_warn(1, "Invalid -p string: %c",
415 *pt);
416 pax_usage();
417 break;
418 }
419 }
420 flg |= PF;
421 break;
422 case 'r':
423 /*
424 * read the archive
425 */
426 flg |= RF;
427 break;
428 case 's':
429 /*
430 * file name substitution name pattern
431 */
432 if (rep_add(optarg) < 0) {
433 pax_usage();
434 break;
435 }
436 flg |= SF;
437 break;
438 case 't':
439 /*
440 * preserve access time on filesystem nodes we read
441 */
442 tflag = 1;
443 flg |= TF;
444 break;
445 case 'u':
446 /*
447 * ignore those older files
448 */
449 uflag = 1;
450 flg |= UF;
451 break;
452 case 'v':
453 /*
454 * verbose operation mode
455 */
456 vflag = 1;
457 flg |= VF;
458 break;
459 case 'w':
460 /*
461 * write an archive
462 */
463 flg |= WF;
464 break;
465 case 'x':
466 /*
467 * specify an archive format on write
468 */
469 tmp.name = optarg;
470 frmt = (FSUB *)bsearch((void *)&tmp, (void *)fsub,
471 sizeof(fsub)/sizeof(FSUB), sizeof(FSUB), c_frmt);
472 if (frmt != NULL) {
473 flg |= XF;
474 break;
475 }
476 tty_warn(1, "Unknown -x format: %s", optarg);
477 (void)fputs("pax: Known -x formats are:", stderr);
478 for (i = 0; i < (sizeof(fsub)/sizeof(FSUB)); ++i)
479 (void)fprintf(stderr, " %s", fsub[i].name);
480 (void)fputs("\n\n", stderr);
481 pax_usage();
482 break;
483 case 'z':
484 /*
485 * use gzip. Non standard option.
486 */
487 gzip_program = GZIP_CMD;
488 break;
489 case 'A':
490 Aflag = 1;
491 flg |= CAF;
492 break;
493 case 'B':
494 /*
495 * non-standard option on number of bytes written on a
496 * single archive volume.
497 */
498 if ((wrlimit = str_offt(optarg)) <= 0) {
499 tty_warn(1, "Invalid write limit %s", optarg);
500 pax_usage();
501 }
502 if (wrlimit % BLKMULT) {
503 tty_warn(1,
504 "Write limit is not a %d byte multiple",
505 BLKMULT);
506 pax_usage();
507 }
508 flg |= CBF;
509 break;
510 case 'D':
511 /*
512 * On extraction check file inode change time before the
513 * modification of the file name. Non standard option.
514 */
515 Dflag = 1;
516 flg |= CDF;
517 break;
518 case 'E':
519 /*
520 * non-standard limit on read faults
521 * 0 indicates stop after first error, values
522 * indicate a limit, "none" try forever
523 */
524 flg |= CEF;
525 if (strcmp(none, optarg) == 0)
526 maxflt = -1;
527 else if ((maxflt = atoi(optarg)) < 0) {
528 tty_warn(1,
529 "Error count value must be positive");
530 pax_usage();
531 }
532 break;
533 case 'G':
534 /*
535 * non-standard option for selecting files within an
536 * archive by group (gid or name)
537 */
538 if (grp_add(optarg) < 0) {
539 pax_usage();
540 break;
541 }
542 flg |= CGF;
543 break;
544 case 'H':
545 /*
546 * follow command line symlinks only
547 */
548 Hflag = 1;
549 flg |= CHF;
550 break;
551 case 'L':
552 /*
553 * follow symlinks
554 */
555 Lflag = 1;
556 flg |= CLF;
557 break;
558 #ifdef SMALL
559 case 'M':
560 case 'N':
561 tty_warn(1, "Support for -%c is not compiled in", c);
562 exit(1);
563 #else /* !SMALL */
564 case 'M':
565 /*
566 * Treat list of filenames on stdin as an
567 * mtree(8) specfile. Non standard option.
568 */
569 Mflag = 1;
570 flg |= CMF;
571 break;
572 case 'N':
573 /*
574 * Use alternative directory for user db lookups.
575 */
576 if (!setup_getid(optarg)) {
577 tty_warn(1,
578 "Unable to use user and group databases in `%s'",
579 optarg);
580 pax_usage();
581 }
582 break;
583 #endif /* !SMALL */
584 case 'O':
585 /*
586 * Force one volume. Non standard option.
587 */
588 force_one_volume = 1;
589 break;
590 case 'P':
591 /*
592 * do NOT follow symlinks (default)
593 */
594 Lflag = 0;
595 flg |= CPF;
596 break;
597 case 'T':
598 /*
599 * non-standard option for selecting files within an
600 * archive by modification time range (lower,upper)
601 */
602 if (trng_add(optarg) < 0) {
603 pax_usage();
604 break;
605 }
606 flg |= CTF;
607 break;
608 case 'U':
609 /*
610 * non-standard option for selecting files within an
611 * archive by user (uid or name)
612 */
613 if (usr_add(optarg) < 0) {
614 pax_usage();
615 break;
616 }
617 flg |= CUF;
618 break;
619 case 'V':
620 /*
621 * somewhat verbose operation mode (no listing)
622 */
623 Vflag = 1;
624 flg |= VSF;
625 break;
626 case 'X':
627 /*
628 * do not pass over mount points in the file system
629 */
630 Xflag = 1;
631 flg |= CXF;
632 break;
633 case 'Y':
634 /*
635 * On extraction check file inode change time after the
636 * modification of the file name. Non standard option.
637 */
638 Yflag = 1;
639 flg |= CYF;
640 break;
641 case 'Z':
642 /*
643 * On extraction check modification time after the
644 * modification of the file name. Non standard option.
645 */
646 Zflag = 1;
647 flg |= CZF;
648 break;
649 case OPT_INSECURE:
650 secure = 0;
651 break;
652 case OPT_FORCE_LOCAL:
653 forcelocal = 1;
654 break;
655 case OPT_USE_COMPRESS_PROGRAM:
656 gzip_program = optarg;
657 break;
658 case OPT_XZ:
659 gzip_program = XZ_CMD;
660 break;
661 case OPT_GNU:
662 is_gnutar = 1;
663 break;
664 case '?':
665 default:
666 pax_usage();
667 break;
668 }
669 }
670
671 /*
672 * figure out the operation mode of pax read,write,extract,copy,append
673 * or list. check that we have not been given a bogus set of flags
674 * for the operation mode.
675 */
676 if (ISLIST(flg)) {
677 act = LIST;
678 listf = stdout;
679 bflg = flg & BDLIST;
680 } else if (ISEXTRACT(flg)) {
681 act = EXTRACT;
682 bflg = flg & BDEXTR;
683 } else if (ISARCHIVE(flg)) {
684 act = ARCHIVE;
685 bflg = flg & BDARCH;
686 } else if (ISAPPND(flg)) {
687 act = APPND;
688 bflg = flg & BDARCH;
689 } else if (ISCOPY(flg)) {
690 act = COPY;
691 bflg = flg & BDCOPY;
692 } else
693 pax_usage();
694 if (bflg) {
695 printflg(flg);
696 pax_usage();
697 }
698
699 /*
700 * if we are writing (ARCHIVE) we use the default format if the user
701 * did not specify a format. when we write during an APPEND, we will
702 * adopt the format of the existing archive if none was supplied.
703 */
704 if (!(flg & XF) && (act == ARCHIVE))
705 frmt = &(fsub[DEFLT]);
706
707 /*
708 * process the args as they are interpreted by the operation mode
709 */
710 switch (act) {
711 case LIST:
712 case EXTRACT:
713 for (; optind < argc; optind++)
714 if (pat_add(argv[optind], NULL, 0) < 0)
715 pax_usage();
716 break;
717 case COPY:
718 if (optind >= argc) {
719 tty_warn(0, "Destination directory was not supplied");
720 pax_usage();
721 }
722 --argc;
723 dirptr = argv[argc];
724 if (mkpath(dirptr) < 0)
725 exit(1);
726 /* FALLTHROUGH */
727 case ARCHIVE:
728 case APPND:
729 for (; optind < argc; optind++)
730 if (ftree_add(argv[optind], 0) < 0)
731 pax_usage();
732 /*
733 * no read errors allowed on updates/append operation!
734 */
735 maxflt = 0;
736 break;
737 }
738 }
739
740
741 /*
742 * tar_options()
743 * look at the user specified flags. set globals as required and check if
744 * the user specified a legal set of flags. If not, complain and exit
745 */
746
747 struct option tar_longopts[] = {
748 { "block-size", required_argument, 0, 'b' },
749 { "bunzip2", no_argument, 0, 'j' },
750 { "bzip2", no_argument, 0, 'j' },
751 { "create", no_argument, 0, 'c' }, /* F */
752 /* -e -- no corresponding long option */
753 { "file", required_argument, 0, 'f' },
754 { "dereference", no_argument, 0, 'h' },
755 { "keep-old-files", no_argument, 0, 'k' },
756 { "one-file-system", no_argument, 0, 'l' },
757 { "modification-time", no_argument, 0, 'm' },
758 { "old-archive", no_argument, 0, 'o' },
759 { "portability", no_argument, 0, 'o' },
760 { "same-permissions", no_argument, 0, 'p' },
761 { "preserve-permissions", no_argument, 0, 'p' },
762 { "preserve", no_argument, 0, 'p' },
763 { "fast-read", no_argument, 0, 'q' },
764 { "append", no_argument, 0, 'r' }, /* F */
765 { "update", no_argument, 0, 'u' }, /* F */
766 { "list", no_argument, 0, 't' }, /* F */
767 { "verbose", no_argument, 0, 'v' },
768 { "interactive", no_argument, 0, 'w' },
769 { "confirmation", no_argument, 0, 'w' },
770 { "extract", no_argument, 0, 'x' }, /* F */
771 { "get", no_argument, 0, 'x' }, /* F */
772 { "gzip", no_argument, 0, 'z' },
773 { "gunzip", no_argument, 0, 'z' },
774 { "read-full-blocks", no_argument, 0, 'B' },
775 { "directory", required_argument, 0, 'C' },
776 { "xz", no_argument, 0, 'J' },
777 { "to-stdout", no_argument, 0, 'O' },
778 { "absolute-paths", no_argument, 0, 'P' },
779 { "sparse", no_argument, 0, 'S' },
780 { "files-from", required_argument, 0, 'T' },
781 { "summary", no_argument, 0, 'V' },
782 { "stats", no_argument, 0, 'V' },
783 { "exclude-from", required_argument, 0, 'X' },
784 { "compress", no_argument, 0, 'Z' },
785 { "uncompress", no_argument, 0, 'Z' },
786 { "strict", no_argument, 0,
787 OPT_STRICT },
788 { "atime-preserve", no_argument, 0,
789 OPT_ATIME_PRESERVE },
790 { "unlink", no_argument, 0,
791 OPT_UNLINK },
792 { "use-compress-program", required_argument, 0,
793 OPT_USE_COMPRESS_PROGRAM },
794 { "force-local", no_argument, 0,
795 OPT_FORCE_LOCAL },
796 { "insecure", no_argument, 0,
797 OPT_INSECURE },
798 { "exclude", required_argument, 0,
799 OPT_EXCLUDE },
800 { "no-recursion", no_argument, 0,
801 OPT_NORECURSE },
802 #if !HAVE_NBTOOL_CONFIG_H
803 { "chroot", no_argument, 0,
804 OPT_CHROOT },
805 #endif
806 #if 0 /* Not implemented */
807 { "catenate", no_argument, 0, 'A' }, /* F */
808 { "concatenate", no_argument, 0, 'A' }, /* F */
809 { "diff", no_argument, 0, 'd' }, /* F */
810 { "compare", no_argument, 0, 'd' }, /* F */
811 { "checkpoint", no_argument, 0,
812 OPT_CHECKPOINT },
813 { "help", no_argument, 0,
814 OPT_HELP },
815 { "info-script", required_argument, 0, 'F' },
816 { "new-volume-script", required_argument, 0, 'F' },
817 { "incremental", no_argument, 0, 'G' },
818 { "listed-incremental", required_argument, 0, 'g' },
819 { "ignore-zeros", no_argument, 0, 'i' },
820 { "ignore-failed-read", no_argument, 0,
821 OPT_IGNORE_FAILED_READ },
822 { "starting-file", no_argument, 0, 'K' },
823 { "tape-length", required_argument, 0, 'L' },
824 { "multi-volume", no_argument, 0, 'M' },
825 { "after-date", required_argument, 0, 'N' },
826 { "newer", required_argument, 0, 'N' },
827 { "record-number", no_argument, 0, 'R' },
828 { "remove-files", no_argument, 0,
829 OPT_REMOVE_FILES },
830 { "same-order", no_argument, 0, 's' },
831 { "preserve-order", no_argument, 0, 's' },
832 { "null", no_argument, 0,
833 OPT_NULL },
834 { "totals", no_argument, 0,
835 OPT_TOTALS },
836 { "volume-name", required_argument, 0, 'V' }, /* XXX */
837 { "label", required_argument, 0, 'V' }, /* XXX */
838 { "version", no_argument, 0,
839 OPT_VERSION },
840 { "verify", no_argument, 0, 'W' },
841 { "block-compress", no_argument, 0,
842 OPT_BLOCK_COMPRESS },
843 #endif
844 { 0, 0, 0, 0 },
845 };
846
847 static void
848 tar_set_action(int op)
849 {
850 if (act != ERROR && act != op)
851 tar_usage();
852 act = op;
853 }
854
855 static void
856 tar_options(int argc, char **argv)
857 {
858 int c;
859 int fstdin = 0;
860 int Oflag = 0;
861 int nincfiles = 0;
862 int incfiles_max = 0;
863 struct incfile {
864 char *file;
865 char *dir;
866 };
867 struct incfile *incfiles = NULL;
868
869 /*
870 * Set default values.
871 */
872 rmleadslash = 1;
873 is_gnutar = 1;
874
875 /*
876 * process option flags
877 */
878 while ((c = getoldopt(argc, argv,
879 "+b:cef:hjklmopqrs:tuvwxzBC:HI:JOPST:X:Z014578",
880 tar_longopts, NULL))
881 != -1) {
882 switch(c) {
883 case 'b':
884 /*
885 * specify blocksize in 512-byte blocks
886 */
887 if ((wrblksz = (int)str_offt(optarg)) <= 0) {
888 tty_warn(1, "Invalid block size %s", optarg);
889 tar_usage();
890 }
891 wrblksz *= 512; /* XXX - check for int oflow */
892 break;
893 case 'c':
894 /*
895 * create an archive
896 */
897 tar_set_action(ARCHIVE);
898 break;
899 case 'e':
900 /*
901 * stop after first error
902 */
903 maxflt = 0;
904 break;
905 case 'f':
906 /*
907 * filename where the archive is stored
908 */
909 if ((optarg[0] == '-') && (optarg[1]== '\0')) {
910 /*
911 * treat a - as stdin
912 */
913 fstdin = 1;
914 arcname = NULL;
915 break;
916 }
917 fstdin = 0;
918 arcname = optarg;
919 break;
920 case 'h':
921 /*
922 * follow symlinks
923 */
924 Lflag = 1;
925 break;
926 case 'j':
927 /*
928 * pass through bzip2. not a standard option
929 */
930 gzip_program = BZIP2_CMD;
931 break;
932 case 'k':
933 /*
934 * do not clobber files that exist
935 */
936 kflag = 1;
937 break;
938 case 'l':
939 /*
940 * do not pass over mount points in the file system
941 */
942 Xflag = 1;
943 break;
944 case 'm':
945 /*
946 * do not preserve modification time
947 */
948 pmtime = 0;
949 break;
950 case 'o':
951 /*
952 * This option does several things based on whether
953 * this is a create or extract operation.
954 */
955 if (act == ARCHIVE) {
956 /* GNU tar: write V7 format archives. */
957 Oflag = 1;
958 /* 4.2BSD: don't add directory entries. */
959 if (opt_add("write_opt=nodir") < 0)
960 tar_usage();
961
962 } else {
963 /* SUS: don't preserve owner/group. */
964 pids = 0;
965 nopids = 1;
966 }
967 break;
968 case 'p':
969 /*
970 * preserve user id, group id, file
971 * mode, access/modification times
972 */
973 if (!nopids)
974 pids = 1;
975 pmode = 1;
976 patime = 1;
977 pmtime = 1;
978 break;
979 case 'q':
980 /*
981 * select first match for a pattern only
982 */
983 nflag = 1;
984 break;
985 case 'r':
986 case 'u':
987 /*
988 * append to the archive
989 */
990 tar_set_action(APPND);
991 break;
992 case 's':
993 /*
994 * file name substitution name pattern
995 */
996 if (rep_add(optarg) < 0) {
997 tar_usage();
998 break;
999 }
1000 break;
1001 case 't':
1002 /*
1003 * list contents of the tape
1004 */
1005 tar_set_action(LIST);
1006 break;
1007 case 'v':
1008 /*
1009 * verbose operation mode
1010 */
1011 vflag = 1;
1012 break;
1013 case 'w':
1014 /*
1015 * interactive file rename
1016 */
1017 iflag = 1;
1018 break;
1019 case 'x':
1020 /*
1021 * extract an archive, preserving mode,
1022 * and mtime if possible.
1023 */
1024 tar_set_action(EXTRACT);
1025 pmtime = 1;
1026 break;
1027 case 'z':
1028 /*
1029 * use gzip. Non standard option.
1030 */
1031 gzip_program = GZIP_CMD;
1032 break;
1033 case 'B':
1034 /*
1035 * Nothing to do here, this is pax default
1036 */
1037 break;
1038 case 'C':
1039 havechd++;
1040 chdname = optarg;
1041 break;
1042 case 'H':
1043 /*
1044 * follow command line symlinks only
1045 */
1046 Hflag = 1;
1047 break;
1048 case 'I':
1049 case 'T':
1050 if (++nincfiles > incfiles_max) {
1051 incfiles_max = nincfiles + 3;
1052 incfiles = realloc(incfiles,
1053 sizeof(*incfiles) * incfiles_max);
1054 if (incfiles == NULL) {
1055 tty_warn(0, "Unable to allocate space "
1056 "for option list");
1057 exit(1);
1058 }
1059 }
1060 incfiles[nincfiles - 1].file = optarg;
1061 incfiles[nincfiles - 1].dir = chdname;
1062 break;
1063 case 'J':
1064 gzip_program = XZ_CMD;
1065 break;
1066 case 'O':
1067 Oflag = 1;
1068 break;
1069 case 'P':
1070 /*
1071 * do not remove leading '/' from pathnames
1072 */
1073 rmleadslash = 0;
1074 Aflag = 1;
1075 break;
1076 case 'S':
1077 /* do nothing; we already generate sparse files */
1078 break;
1079 case 'V':
1080 /*
1081 * semi-verbose operation mode (no listing)
1082 */
1083 Vflag = 1;
1084 break;
1085 case 'X':
1086 /*
1087 * GNU tar compat: exclude the files listed in optarg
1088 */
1089 if (tar_gnutar_X_compat(optarg) != 0)
1090 tar_usage();
1091 break;
1092 case 'Z':
1093 /*
1094 * use compress.
1095 */
1096 gzip_program = COMPRESS_CMD;
1097 break;
1098 case '0':
1099 arcname = DEV_0;
1100 break;
1101 case '1':
1102 arcname = DEV_1;
1103 break;
1104 case '4':
1105 arcname = DEV_4;
1106 break;
1107 case '5':
1108 arcname = DEV_5;
1109 break;
1110 case '7':
1111 arcname = DEV_7;
1112 break;
1113 case '8':
1114 arcname = DEV_8;
1115 break;
1116 case OPT_ATIME_PRESERVE:
1117 patime = 1;
1118 break;
1119 case OPT_UNLINK:
1120 /* Just ignore -- we always unlink first. */
1121 break;
1122 case OPT_USE_COMPRESS_PROGRAM:
1123 gzip_program = optarg;
1124 break;
1125 case OPT_FORCE_LOCAL:
1126 forcelocal = 1;
1127 break;
1128 case OPT_INSECURE:
1129 secure = 0;
1130 break;
1131 case OPT_STRICT:
1132 /* disable gnu extensions */
1133 is_gnutar = 0;
1134 break;
1135 case OPT_EXCLUDE:
1136 if (tar_gnutar_minus_minus_exclude(optarg) != 0)
1137 tar_usage();
1138 break;
1139 case OPT_NORECURSE:
1140 dflag = 1;
1141 break;
1142 #if !HAVE_NBTOOL_CONFIG_H
1143 case OPT_CHROOT:
1144 do_chroot = 1;
1145 break;
1146 #endif
1147 default:
1148 tar_usage();
1149 break;
1150 }
1151 }
1152 argc -= optind;
1153 argv += optind;
1154
1155 /* Tar requires an action. */
1156 if (act == ERROR)
1157 tar_usage();
1158
1159 /* Traditional tar behaviour (pax uses stderr unless in list mode) */
1160 if (fstdin == 1 && act == ARCHIVE)
1161 listf = stderr;
1162 else
1163 listf = stdout;
1164
1165 /* Traditional tar behaviour (pax wants to read file list from stdin) */
1166 if ((act == ARCHIVE || act == APPND) && argc == 0 && nincfiles == 0)
1167 exit(0);
1168 /*
1169 * if we are writing (ARCHIVE) specify tar, otherwise run like pax
1170 * (unless -o specified)
1171 */
1172 if (act == ARCHIVE || act == APPND)
1173 frmt = &(fsub[Oflag ? F_TAR : F_USTAR]);
1174 else if (Oflag) {
1175 if (act == EXTRACT)
1176 to_stdout = 1;
1177 else {
1178 tty_warn(1, "The -O/-o options are only valid when "
1179 "writing or extracting an archive");
1180 tar_usage();
1181 }
1182 }
1183
1184 /*
1185 * process the args as they are interpreted by the operation mode
1186 */
1187 switch (act) {
1188 case LIST:
1189 case EXTRACT:
1190 default:
1191 {
1192 int sawpat = 0;
1193 int dirisnext = 0;
1194 char *file, *dir = NULL;
1195 int mustfreedir = 0;
1196
1197 while (nincfiles || *argv != NULL) {
1198 /*
1199 * If we queued up any include files,
1200 * pull them in now. Otherwise, check
1201 * for -I and -C positional flags.
1202 * Anything else must be a file to
1203 * extract.
1204 */
1205 if (nincfiles) {
1206 file = incfiles->file;
1207 dir = incfiles->dir;
1208 mustfreedir = 0;
1209 incfiles++;
1210 nincfiles--;
1211 } else if (strcmp(*argv, "-I") == 0) {
1212 if (*++argv == NULL)
1213 break;
1214 file = *argv++;
1215 dir = chdname;
1216 mustfreedir = 0;
1217 } else {
1218 file = NULL;
1219 dir = NULL;
1220 mustfreedir = 0;
1221 }
1222 if (file != NULL) {
1223 FILE *fp;
1224 char *str;
1225
1226 if (strcmp(file, "-") == 0)
1227 fp = stdin;
1228 else if ((fp = fopen(file, "r")) == NULL) {
1229 tty_warn(1, "Unable to open file '%s' for read", file);
1230 tar_usage();
1231 }
1232 while ((str = get_line(fp)) != NULL) {
1233 if (dirisnext) {
1234 if (dir && mustfreedir)
1235 free(dir);
1236 dir = str;
1237 mustfreedir = 1;
1238 dirisnext = 0;
1239 continue;
1240 }
1241 if (strcmp(str, "-C") == 0) {
1242 havechd++;
1243 dirisnext = 1;
1244 free(str);
1245 continue;
1246 }
1247 if (strncmp(str, "-C ", 3) == 0) {
1248 havechd++;
1249 if (dir && mustfreedir)
1250 free(dir);
1251 dir = strdup(str + 3);
1252 mustfreedir = 1;
1253 free(str);
1254 continue;
1255 }
1256 if (pat_add(str, dir, NOGLOB_MTCH) < 0)
1257 tar_usage();
1258 sawpat = 1;
1259 }
1260 /* Bomb if given -C w/out a dir. */
1261 if (dirisnext)
1262 tar_usage();
1263 if (dir && mustfreedir)
1264 free(dir);
1265 if (strcmp(file, "-") != 0)
1266 fclose(fp);
1267 if (get_line_error) {
1268 tty_warn(1, "Problem with file '%s'", file);
1269 tar_usage();
1270 }
1271 } else if (strcmp(*argv, "-C") == 0) {
1272 if (*++argv == NULL)
1273 break;
1274 chdname = *argv++;
1275 havechd++;
1276 } else if (pat_add(*argv++, chdname, 0) < 0)
1277 tar_usage();
1278 else
1279 sawpat = 1;
1280 }
1281 /*
1282 * if patterns were added, we are doing chdir()
1283 * on a file-by-file basis, else, just one
1284 * global chdir (if any) after opening input.
1285 */
1286 if (sawpat > 0)
1287 chdname = NULL;
1288 }
1289 break;
1290 case ARCHIVE:
1291 case APPND:
1292 if (chdname != NULL) { /* initial chdir() */
1293 if (ftree_add(chdname, 1) < 0)
1294 tar_usage();
1295 }
1296
1297 while (nincfiles || *argv != NULL) {
1298 char *file, *dir;
1299
1300 /*
1301 * If we queued up any include files, pull them in
1302 * now. Otherwise, check for -I and -C positional
1303 * flags. Anything else must be a file to include
1304 * in the archive.
1305 */
1306 if (nincfiles) {
1307 file = incfiles->file;
1308 dir = incfiles->dir;
1309 incfiles++;
1310 nincfiles--;
1311 } else if (strcmp(*argv, "-I") == 0) {
1312 if (*++argv == NULL)
1313 break;
1314 file = *argv++;
1315 dir = NULL;
1316 } else {
1317 file = NULL;
1318 dir = NULL;
1319 }
1320 if (file != NULL) {
1321 FILE *fp;
1322 char *str;
1323 int dirisnext = 0;
1324
1325 /* Set directory if needed */
1326 if (dir) {
1327 if (ftree_add(dir, 1) < 0)
1328 tar_usage();
1329 }
1330
1331 if (strcmp(file, "-") == 0)
1332 fp = stdin;
1333 else if ((fp = fopen(file, "r")) == NULL) {
1334 tty_warn(1, "Unable to open file '%s' for read", file);
1335 tar_usage();
1336 }
1337 while ((str = get_line(fp)) != NULL) {
1338 if (dirisnext) {
1339 if (ftree_add(str, 1) < 0)
1340 tar_usage();
1341 dirisnext = 0;
1342 continue;
1343 }
1344 if (strcmp(str, "-C") == 0) {
1345 dirisnext = 1;
1346 continue;
1347 }
1348 if (strncmp(str, "-C ", 3) == 0) {
1349 if (ftree_add(str + 3, 1) < 0)
1350 tar_usage();
1351 continue;
1352 }
1353 if (ftree_add(str, 0) < 0)
1354 tar_usage();
1355 }
1356 /* Bomb if given -C w/out a dir. */
1357 if (dirisnext)
1358 tar_usage();
1359 if (strcmp(file, "-") != 0)
1360 fclose(fp);
1361 if (get_line_error) {
1362 tty_warn(1, "Problem with file '%s'",
1363 file);
1364 tar_usage();
1365 }
1366 } else if (strcmp(*argv, "-C") == 0) {
1367 if (*++argv == NULL)
1368 break;
1369 if (ftree_add(*argv++, 1) < 0)
1370 tar_usage();
1371 } else if (ftree_add(*argv++, 0) < 0)
1372 tar_usage();
1373 }
1374 /*
1375 * no read errors allowed on updates/append operation!
1376 */
1377 maxflt = 0;
1378 break;
1379 }
1380 if (!fstdin && ((arcname == NULL) || (*arcname == '\0'))) {
1381 arcname = getenv("TAPE");
1382 if ((arcname == NULL) || (*arcname == '\0'))
1383 arcname = _PATH_DEFTAPE;
1384 }
1385 }
1386
1387 int
1388 mkpath(char *path)
1389 {
1390 char *slash;
1391 int done = 0;
1392
1393 slash = path;
1394
1395 while (!done) {
1396 slash += strspn(slash, "/");
1397 slash += strcspn(slash, "/");
1398
1399 done = (*slash == '\0');
1400 *slash = '\0';
1401
1402 if (domkdir(path, 0777) == -1)
1403 goto out;
1404
1405 if (!done)
1406 *slash = '/';
1407 }
1408
1409 return 0;
1410 out:
1411 /* Can't create or or not a directory */
1412 syswarn(1, errno, "Cannot create directory `%s'", path);
1413 return -1;
1414 }
1415
1416
1417 #ifndef NO_CPIO
1418 struct option cpio_longopts[] = {
1419 { "reset-access-time", no_argument, 0, 'a' },
1420 { "make-directories", no_argument, 0, 'd' },
1421 { "nonmatching", no_argument, 0, 'f' },
1422 { "extract", no_argument, 0, 'i' },
1423 { "link", no_argument, 0, 'l' },
1424 { "preserve-modification-time", no_argument, 0, 'm' },
1425 { "create", no_argument, 0, 'o' },
1426 { "pass-through", no_argument, 0, 'p' },
1427 { "rename", no_argument, 0, 'r' },
1428 { "list", no_argument, 0, 't' },
1429 { "unconditional", no_argument, 0, 'u' },
1430 { "verbose", no_argument, 0, 'v' },
1431 { "append", no_argument, 0, 'A' },
1432 { "pattern-file", required_argument, 0, 'E' },
1433 { "file", required_argument, 0, 'F' },
1434 { "force-local", no_argument, 0,
1435 OPT_FORCE_LOCAL },
1436 { "format", required_argument, 0, 'H' },
1437 { "dereference", no_argument, 0, 'L' },
1438 { "swap-halfwords", no_argument, 0, 'S' },
1439 { "summary", no_argument, 0, 'V' },
1440 { "stats", no_argument, 0, 'V' },
1441 { "insecure", no_argument, 0,
1442 OPT_INSECURE },
1443 { "sparse", no_argument, 0,
1444 OPT_SPARSE },
1445 { "xz", no_argument, 0,
1446 OPT_XZ },
1447
1448 #ifdef notyet
1449 /* Not implemented */
1450 { "null", no_argument, 0, '0' },
1451 { "swap", no_argument, 0, 'b' },
1452 { "numeric-uid-gid", no_argument, 0, 'n' },
1453 { "swap-bytes", no_argument, 0, 's' },
1454 { "message", required_argument, 0, 'M' },
1455 { "owner", required_argument, 0 'R' },
1456 { "dot", no_argument, 0, 'V' }, /* xxx */
1457 { "block-size", required_argument, 0,
1458 OPT_BLOCK_SIZE },
1459 { "no-absolute-pathnames", no_argument, 0,
1460 OPT_NO_ABSOLUTE_PATHNAMES },
1461 { "no-preserve-owner", no_argument, 0,
1462 OPT_NO_PRESERVE_OWNER },
1463 { "only-verify-crc", no_argument, 0,
1464 OPT_ONLY_VERIFY_CRC },
1465 { "rsh-command", required_argument, 0,
1466 OPT_RSH_COMMAND },
1467 { "version", no_argument, 0,
1468 OPT_VERSION },
1469 #endif
1470 { 0, 0, 0, 0 },
1471 };
1472
1473 static void
1474 cpio_set_action(int op)
1475 {
1476 if ((act == APPND && op == ARCHIVE) || (act == ARCHIVE && op == APPND))
1477 act = APPND;
1478 else if (act == EXTRACT && op == LIST)
1479 act = op;
1480 else if (act != ERROR && act != op)
1481 cpio_usage();
1482 else
1483 act = op;
1484 }
1485
1486 /*
1487 * cpio_options()
1488 * look at the user specified flags. set globals as required and check if
1489 * the user specified a legal set of flags. If not, complain and exit
1490 */
1491
1492 static void
1493 cpio_options(int argc, char **argv)
1494 {
1495 FSUB tmp;
1496 u_int64_t flg = 0;
1497 u_int64_t bflg = 0;
1498 int c;
1499 size_t i;
1500 FILE *fp;
1501 char *str;
1502
1503 uflag = 1;
1504 kflag = 1;
1505 pids = 1;
1506 pmode = 1;
1507 pmtime = 0;
1508 arcname = NULL;
1509 dflag = 1;
1510 nodirs = 1;
1511 /*
1512 * process option flags
1513 */
1514 while ((c = getoldopt(argc, argv,
1515 "+abcdfiklmoprstuvzABC:E:F:H:I:LM:O:R:SVZ6",
1516 cpio_longopts, NULL)) != -1) {
1517 switch(c) {
1518 case 'a':
1519 /*
1520 * preserve access time on filesystem nodes we read
1521 */
1522 tflag = 1;
1523 flg |= TF;
1524 break;
1525 #ifdef notyet
1526 case 'b':
1527 /*
1528 * swap bytes and half-words when reading data
1529 */
1530 break;
1531 #endif
1532 case 'c':
1533 /*
1534 * ASCII cpio header
1535 */
1536 frmt = &fsub[F_SV4CPIO];
1537 break;
1538 case 'd':
1539 /*
1540 * create directories as needed
1541 * pax does this by default ..
1542 */
1543 nodirs = 0;
1544 break;
1545 case 'f':
1546 /*
1547 * inverse match on patterns
1548 */
1549 cflag = 1;
1550 flg |= CF;
1551 break;
1552 case 'i':
1553 /*
1554 * read the archive
1555 */
1556 cpio_set_action(EXTRACT);
1557 flg |= RF;
1558 break;
1559 #ifdef notyet
1560 case 'k':
1561 break;
1562 #endif
1563 case 'l':
1564 /*
1565 * try to link src to dest with copy (-rw)
1566 */
1567 lflag = 1;
1568 flg |= LF;
1569 break;
1570 case 'm':
1571 /*
1572 * preserve mtime
1573 */
1574 flg |= PF;
1575 pmtime = 1;
1576 break;
1577 case 'o':
1578 /*
1579 * write an archive
1580 */
1581 cpio_set_action(ARCHIVE);
1582 frmt = &(fsub[F_SV4CRC]);
1583 flg |= WF;
1584 break;
1585 case 'p':
1586 /*
1587 * cpio -p is like pax -rw
1588 */
1589 cpio_set_action(COPY);
1590 flg |= RF | WF;
1591 break;
1592 case 'r':
1593 /*
1594 * interactive file rename
1595 */
1596 iflag = 1;
1597 flg |= IF;
1598 break;
1599 #ifdef notyet
1600 case 's':
1601 /*
1602 * swap bytes after reading data
1603 */
1604 break;
1605 #endif
1606 case 't':
1607 /*
1608 * list contents of archive
1609 */
1610 cpio_set_action(LIST);
1611 listf = stdout;
1612 flg &= ~RF;
1613 break;
1614 case 'u':
1615 /*
1616 * don't ignore those older files
1617 */
1618 uflag = 0;
1619 kflag = 0;
1620 flg |= UF;
1621 break;
1622 case 'v':
1623 /*
1624 * verbose operation mode
1625 */
1626 vflag = 1;
1627 flg |= VF;
1628 break;
1629 case 'z':
1630 /*
1631 * use gzip. Non standard option.
1632 */
1633 gzip_program = GZIP_CMD;
1634 break;
1635 case 'A':
1636 /*
1637 * append to an archive
1638 */
1639 cpio_set_action(APPND);
1640 flg |= AF;
1641 break;
1642 case 'B':
1643 /*
1644 * set blocksize to 5120
1645 */
1646 blksz = 5120;
1647 break;
1648 case 'C':
1649 /*
1650 * specify blocksize
1651 */
1652 if ((blksz = (int)str_offt(optarg)) <= 0) {
1653 tty_warn(1, "Invalid block size %s", optarg);
1654 cpio_usage();
1655 }
1656 break;
1657 case 'E':
1658 /*
1659 * file with patterns to extract or list
1660 */
1661 if ((fp = fopen(optarg, "r")) == NULL) {
1662 tty_warn(1, "Unable to open file '%s' for read",
1663 optarg);
1664 cpio_usage();
1665 }
1666 while ((str = get_line(fp)) != NULL) {
1667 pat_add(str, NULL, 0);
1668 }
1669 fclose(fp);
1670 if (get_line_error) {
1671 tty_warn(1, "Problem with file '%s'", optarg);
1672 cpio_usage();
1673 }
1674 break;
1675 case 'H':
1676 /*
1677 * specify an archive format on write
1678 */
1679 tmp.name = optarg;
1680 frmt = (FSUB *)bsearch((void *)&tmp, (void *)fsub,
1681 sizeof(fsub)/sizeof(FSUB), sizeof(FSUB), c_frmt);
1682 if (frmt != NULL) {
1683 flg |= XF;
1684 break;
1685 }
1686 tty_warn(1, "Unknown -H format: %s", optarg);
1687 (void)fputs("cpio: Known -H formats are:", stderr);
1688 for (i = 0; i < (sizeof(fsub)/sizeof(FSUB)); ++i)
1689 (void)fprintf(stderr, " %s", fsub[i].name);
1690 (void)fputs("\n\n", stderr);
1691 cpio_usage();
1692 break;
1693 case 'F':
1694 case 'I':
1695 case 'O':
1696 /*
1697 * filename where the archive is stored
1698 */
1699 if ((optarg[0] == '-') && (optarg[1]== '\0')) {
1700 /*
1701 * treat a - as stdin
1702 */
1703 arcname = NULL;
1704 break;
1705 }
1706 arcname = optarg;
1707 break;
1708 case 'L':
1709 /*
1710 * follow symlinks
1711 */
1712 Lflag = 1;
1713 flg |= CLF;
1714 break;
1715 #ifdef notyet
1716 case 'M':
1717 arg = optarg;
1718 break;
1719 case 'R':
1720 arg = optarg;
1721 break;
1722 #endif
1723 case 'S':
1724 /*
1725 * swap halfwords after reading data
1726 */
1727 cpio_swp_head = 1;
1728 break;
1729 #ifdef notyet
1730 case 'V': /* print a '.' for each file processed */
1731 break;
1732 #endif
1733 case 'V':
1734 /*
1735 * semi-verbose operation mode (no listing)
1736 */
1737 Vflag = 1;
1738 flg |= VF;
1739 break;
1740 case 'Z':
1741 /*
1742 * use compress. Non standard option.
1743 */
1744 gzip_program = COMPRESS_CMD;
1745 break;
1746 case '6':
1747 /*
1748 * process Version 6 cpio format
1749 */
1750 frmt = &(fsub[F_BCPIO]);
1751 break;
1752 case OPT_FORCE_LOCAL:
1753 forcelocal = 1;
1754 break;
1755 case OPT_INSECURE:
1756 secure = 0;
1757 break;
1758 case OPT_SPARSE:
1759 /* do nothing; we already generate sparse files */
1760 break;
1761 case OPT_XZ:
1762 gzip_program = XZ_CMD;
1763 break;
1764 default:
1765 cpio_usage();
1766 break;
1767 }
1768 }
1769
1770 /*
1771 * figure out the operation mode of cpio. check that we have not been
1772 * given a bogus set of flags for the operation mode.
1773 */
1774 if (ISLIST(flg)) {
1775 act = LIST;
1776 bflg = flg & BDLIST;
1777 } else if (ISEXTRACT(flg)) {
1778 act = EXTRACT;
1779 bflg = flg & BDEXTR;
1780 } else if (ISARCHIVE(flg)) {
1781 act = ARCHIVE;
1782 bflg = flg & BDARCH;
1783 } else if (ISAPPND(flg)) {
1784 act = APPND;
1785 bflg = flg & BDARCH;
1786 } else if (ISCOPY(flg)) {
1787 act = COPY;
1788 bflg = flg & BDCOPY;
1789 } else
1790 cpio_usage();
1791 if (bflg) {
1792 cpio_usage();
1793 }
1794
1795 /*
1796 * if we are writing (ARCHIVE) we use the default format if the user
1797 * did not specify a format. when we write during an APPEND, we will
1798 * adopt the format of the existing archive if none was supplied.
1799 */
1800 if (!(flg & XF) && (act == ARCHIVE))
1801 frmt = &(fsub[F_BCPIO]);
1802
1803 /*
1804 * process the args as they are interpreted by the operation mode
1805 */
1806 switch (act) {
1807 case LIST:
1808 case EXTRACT:
1809 for (; optind < argc; optind++)
1810 if (pat_add(argv[optind], NULL, 0) < 0)
1811 cpio_usage();
1812 break;
1813 case COPY:
1814 if (optind >= argc) {
1815 tty_warn(0, "Destination directory was not supplied");
1816 cpio_usage();
1817 }
1818 --argc;
1819 dirptr = argv[argc];
1820 /* FALLTHROUGH */
1821 case ARCHIVE:
1822 case APPND:
1823 if (argc != optind) {
1824 for (; optind < argc; optind++)
1825 if (ftree_add(argv[optind], 0) < 0)
1826 cpio_usage();
1827 break;
1828 }
1829 /*
1830 * no read errors allowed on updates/append operation!
1831 */
1832 maxflt = 0;
1833 while ((str = get_line(stdin)) != NULL) {
1834 ftree_add(str, 0);
1835 }
1836 if (get_line_error) {
1837 tty_warn(1, "Problem while reading stdin");
1838 cpio_usage();
1839 }
1840 break;
1841 default:
1842 cpio_usage();
1843 break;
1844 }
1845 }
1846 #endif
1847
1848 /*
1849 * printflg()
1850 * print out those invalid flag sets found to the user
1851 */
1852
1853 static void
1854 printflg(unsigned int flg)
1855 {
1856 int nxt;
1857
1858 (void)fprintf(stderr,"%s: Invalid combination of options:", argv0);
1859 while ((nxt = ffs(flg)) != 0) {
1860 flg &= ~(1 << (nxt - 1));
1861 (void)fprintf(stderr, " -%c", flgch[nxt - 1]);
1862 }
1863 (void)putc('\n', stderr);
1864 }
1865
1866 /*
1867 * c_frmt()
1868 * comparison routine used by bsearch to find the format specified
1869 * by the user
1870 */
1871
1872 static int
1873 c_frmt(const void *a, const void *b)
1874 {
1875 return strcmp(((const FSUB *)a)->name, ((const FSUB *)b)->name);
1876 }
1877
1878 /*
1879 * opt_next()
1880 * called by format specific options routines to get each format specific
1881 * flag and value specified with -o
1882 * Return:
1883 * pointer to next OPLIST entry or NULL (end of list).
1884 */
1885
1886 OPLIST *
1887 opt_next(void)
1888 {
1889 OPLIST *opt;
1890
1891 if ((opt = ophead) != NULL)
1892 ophead = ophead->fow;
1893 return opt;
1894 }
1895
1896 /*
1897 * bad_opt()
1898 * generic routine used to complain about a format specific options
1899 * when the format does not support options.
1900 */
1901
1902 int
1903 bad_opt(void)
1904 {
1905 OPLIST *opt;
1906
1907 if (ophead == NULL)
1908 return 0;
1909 /*
1910 * print all we were given
1911 */
1912 tty_warn(1," These format options are not supported for %s",
1913 frmt->name);
1914 while ((opt = opt_next()) != NULL)
1915 (void)fprintf(stderr, "\t%s = %s\n", opt->name, opt->value);
1916 if (strcmp(NM_TAR, argv0) == 0)
1917 tar_usage();
1918 #ifndef NO_CPIO
1919 else if (strcmp(NM_CPIO, argv0) == 0)
1920 cpio_usage();
1921 #endif
1922 else
1923 pax_usage();
1924 return 0;
1925 }
1926
1927 /*
1928 * opt_add()
1929 * breaks the value supplied to -o into a option name and value. options
1930 * are given to -o in the form -o name-value,name=value
1931 * multiple -o may be specified.
1932 * Return:
1933 * 0 if format in name=value format, -1 if -o is passed junk
1934 */
1935
1936 int
1937 opt_add(const char *str)
1938 {
1939 OPLIST *opt;
1940 char *frpt;
1941 char *pt;
1942 char *endpt;
1943 char *dstr;
1944
1945 if ((str == NULL) || (*str == '\0')) {
1946 tty_warn(0, "Invalid option name");
1947 return -1;
1948 }
1949 if ((dstr = strdup(str)) == NULL) {
1950 tty_warn(0, "Unable to allocate space for option list");
1951 return -1;
1952 }
1953 frpt = endpt = dstr;
1954
1955 /*
1956 * break into name and values pieces and stuff each one into a
1957 * OPLIST structure. When we know the format, the format specific
1958 * option function will go through this list
1959 */
1960 while ((frpt != NULL) && (*frpt != '\0')) {
1961 if ((endpt = strchr(frpt, ',')) != NULL)
1962 *endpt = '\0';
1963 if ((pt = strchr(frpt, '=')) == NULL) {
1964 tty_warn(0, "Invalid options format");
1965 free(dstr);
1966 return -1;
1967 }
1968 if ((opt = (OPLIST *)malloc(sizeof(OPLIST))) == NULL) {
1969 tty_warn(0, "Unable to allocate space for option list");
1970 free(dstr);
1971 return -1;
1972 }
1973 *pt++ = '\0';
1974 opt->name = frpt;
1975 opt->value = pt;
1976 opt->fow = NULL;
1977 if (endpt != NULL)
1978 frpt = endpt + 1;
1979 else
1980 frpt = NULL;
1981 if (ophead == NULL) {
1982 optail = ophead = opt;
1983 continue;
1984 }
1985 optail->fow = opt;
1986 optail = opt;
1987 }
1988 return 0;
1989 }
1990
1991 /*
1992 * str_offt()
1993 * Convert an expression of the following forms to an off_t > 0.
1994 * 1) A positive decimal number.
1995 * 2) A positive decimal number followed by a b (mult by 512).
1996 * 3) A positive decimal number followed by a k (mult by 1024).
1997 * 4) A positive decimal number followed by a m (mult by 512).
1998 * 5) A positive decimal number followed by a w (mult by sizeof int)
1999 * 6) Two or more positive decimal numbers (with/without k,b or w).
2000 * separated by x (also * for backwards compatibility), specifying
2001 * the product of the indicated values.
2002 * Return:
2003 * 0 for an error, a positive value o.w.
2004 */
2005
2006 static off_t
2007 str_offt(char *val)
2008 {
2009 char *expr;
2010 off_t num, t;
2011
2012 num = STRTOOFFT(val, &expr, 0);
2013 if ((num == OFFT_MAX) || (num <= 0) || (expr == val))
2014 return 0;
2015
2016 switch(*expr) {
2017 case 'b':
2018 t = num;
2019 num *= 512;
2020 if (t > num)
2021 return 0;
2022 ++expr;
2023 break;
2024 case 'k':
2025 t = num;
2026 num *= 1024;
2027 if (t > num)
2028 return 0;
2029 ++expr;
2030 break;
2031 case 'm':
2032 t = num;
2033 num *= 1048576;
2034 if (t > num)
2035 return 0;
2036 ++expr;
2037 break;
2038 case 'w':
2039 t = num;
2040 num *= sizeof(int);
2041 if (t > num)
2042 return 0;
2043 ++expr;
2044 break;
2045 }
2046
2047 switch(*expr) {
2048 case '\0':
2049 break;
2050 case '*':
2051 case 'x':
2052 t = num;
2053 num *= str_offt(expr + 1);
2054 if (t > num)
2055 return 0;
2056 break;
2057 default:
2058 return 0;
2059 }
2060 return num;
2061 }
2062
2063 static char *
2064 get_line(FILE *f)
2065 {
2066 char *name, *temp;
2067 size_t len;
2068
2069 name = fgetln(f, &len);
2070 if (!name) {
2071 get_line_error = ferror(f) ? GETLINE_FILE_CORRUPT : 0;
2072 return 0;
2073 }
2074 if (name[len-1] != '\n')
2075 len++;
2076 temp = malloc(len);
2077 if (!temp) {
2078 get_line_error = GETLINE_OUT_OF_MEM;
2079 return 0;
2080 }
2081 memcpy(temp, name, len-1);
2082 temp[len-1] = 0;
2083 return temp;
2084 }
2085
2086 /*
2087 * no_op()
2088 * for those option functions where the archive format has nothing to do.
2089 * Return:
2090 * 0
2091 */
2092
2093 static int
2094 no_op(void)
2095 {
2096 return 0;
2097 }
2098
2099 /*
2100 * pax_usage()
2101 * print the usage summary to the user
2102 */
2103
2104 static void
2105 pax_usage(void)
2106 {
2107 fprintf(stderr,
2108 "usage: pax [-0cdjnvzVO] [-E limit] [-f archive] [-N dbdir] [-s replstr] ...\n"
2109 " [-U user] ... [-G group] ... [-T [from_date][,to_date]] ...\n"
2110 " [pattern ...]\n");
2111 fprintf(stderr,
2112 " pax -r [-cdijknuvzADOVYZ] [-E limit] [-f archive] [-N dbdir]\n"
2113 " [-o options] ... [-p string] ... [-s replstr] ... [-U user] ...\n"
2114 " [-G group] ... [-T [from_date][,to_date]] ... [pattern ...]\n");
2115 fprintf(stderr,
2116 " pax -w [-dijtuvzAHLMOPVX] [-b blocksize] [[-a] [-f archive]] [-x format]\n"
2117 " [-B bytes] [-N dbdir] [-o options] ... [-s replstr] ...\n"
2118 " [-U user] ... [-G group] ...\n"
2119 " [-T [from_date][,to_date][/[c][m]]] ... [file ...]\n");
2120 fprintf(stderr,
2121 " pax -r -w [-dijklntuvzADHLMOPVXYZ] [-N dbdir] [-p string] ...\n"
2122 " [-s replstr] ... [-U user] ... [-G group] ...\n"
2123 " [-T [from_date][,to_date][/[c][m]]] ... [file ...] directory\n");
2124 exit(1);
2125 /* NOTREACHED */
2126 }
2127
2128 /*
2129 * tar_usage()
2130 * print the usage summary to the user
2131 */
2132
2133 static void
2134 tar_usage(void)
2135 {
2136 (void)fputs("usage: tar [-]{crtux}[-befhjklmopqvwzHJOPSXZ014578] "
2137 "[archive] [blocksize]\n"
2138 " [-C directory] [-T file] [-s replstr] "
2139 "[file ...]\n", stderr);
2140 exit(1);
2141 /* NOTREACHED */
2142 }
2143
2144 #ifndef NO_CPIO
2145 /*
2146 * cpio_usage()
2147 * print the usage summary to the user
2148 */
2149
2150 static void
2151 cpio_usage(void)
2152 {
2153
2154 (void)fputs("usage: cpio -o [-aABcLvzZ] [-C bytes] [-F archive] "
2155 "[-H format] [-O archive]\n"
2156 " < name-list [> archive]\n"
2157 " cpio -i [-bBcdfmrsStuvzZ6] [-C bytes] [-E file] "
2158 "[-F archive] [-H format] \n"
2159 " [-I archive] "
2160 "[pattern ...] [< archive]\n"
2161 " cpio -p [-adlLmuv] destination-directory "
2162 "< name-list\n", stderr);
2163 exit(1);
2164 /* NOTREACHED */
2165 }
2166 #endif
MINIX 3 (repo.or.cz mirror)