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