Merge branch 'master' of ssh://crater.dragonflybsd.org/repository/git/dragonfly into...
[dragonfly.git] / bin / pax / options.c
blob50687c3491514c9174edcec4fe779ee99f531f75
1 /*
2 * Copyright (c) 1992 Keith Muller.
3 * Copyright (c) 1992, 1993
4 * The Regents of the University of California. All rights reserved.
6 * This code is derived from software contributed to Berkeley by
7 * Keith Muller of the University of California, San Diego.
9 * Redistribution and use in source and binary forms, with or without
10 * modification, are permitted provided that the following conditions
11 * are met:
12 * 1. Redistributions of source code must retain the above copyright
13 * notice, this list of conditions and the following disclaimer.
14 * 2. Redistributions in binary form must reproduce the above copyright
15 * notice, this list of conditions and the following disclaimer in the
16 * documentation and/or other materials provided with the distribution.
17 * 3. All advertising materials mentioning features or use of this software
18 * must display the following acknowledgement:
19 * This product includes software developed by the University of
20 * California, Berkeley and its contributors.
21 * 4. Neither the name of the University nor the names of its contributors
22 * may be used to endorse or promote products derived from this software
23 * without specific prior written permission.
25 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
26 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
27 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
28 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
29 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
30 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
31 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
32 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
33 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
34 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
35 * SUCH DAMAGE.
37 * @(#)options.c 8.2 (Berkeley) 4/18/94
38 * $FreeBSD: src/bin/pax/options.c,v 1.13.2.3 2001/08/01 05:03:11 obrien Exp $
39 * $DragonFly: src/bin/pax/options.c,v 1.9 2008/06/05 18:06:30 swildner Exp $
42 #include <sys/types.h>
43 #include <sys/stat.h>
44 #include <sys/mtio.h>
45 #include <stdio.h>
46 #include <string.h>
47 #include <errno.h>
48 #include <unistd.h>
49 #include <stdlib.h>
50 #include <limits.h>
51 #include <paths.h>
52 #include "pax.h"
53 #include "options.h"
54 #include "cpio.h"
55 #include "tar.h"
56 #include "extern.h"
59 * Routines which handle command line options
62 static char flgch[] = FLGCH; /* list of all possible flags */
63 static OPLIST *ophead = NULL; /* head for format specific options -x */
64 static OPLIST *optail = NULL; /* option tail */
66 static int no_op (void);
67 static void printflg (unsigned int);
68 static int c_frmt (const void *, const void *);
69 static off_t str_offt (char *);
70 static char *getline (FILE *fp);
71 static void pax_options (int, char **);
72 static void pax_usage (void);
73 static void tar_options (int, char **);
74 static void tar_usage (void);
75 static void cpio_options (int, char **);
76 static void cpio_usage (void);
78 /* errors from getline */
79 #define GETLINE_FILE_CORRUPT 1
80 #define GETLINE_OUT_OF_MEM 2
81 static int getline_error;
84 #define GZIP_CMD "gzip" /* command to run as gzip */
85 #define COMPRESS_CMD "compress" /* command to run as compress */
86 #define BZIP2_CMD "bzip2" /* command to run as gzip */
89 * Format specific routine table - MUST BE IN SORTED ORDER BY NAME
90 * (see pax.h for description of each function)
92 * name, blksz, hdsz, udev, hlk, blkagn, inhead, id, st_read,
93 * read, end_read, st_write, write, end_write, trail,
94 * rd_data, wr_data, options
97 FSUB fsub[] = {
98 /* 0: OLD BINARY CPIO */
99 {"bcpio", 5120, sizeof(HD_BCPIO), 1, 0, 0, 1, bcpio_id, cpio_strd,
100 bcpio_rd, bcpio_endrd, cpio_stwr, bcpio_wr, cpio_endwr, cpio_trail,
101 rd_wrfile, wr_rdfile, bad_opt},
103 /* 1: OLD OCTAL CHARACTER CPIO */
104 {"cpio", 5120, sizeof(HD_CPIO), 1, 0, 0, 1, cpio_id, cpio_strd,
105 cpio_rd, cpio_endrd, cpio_stwr, cpio_wr, cpio_endwr, cpio_trail,
106 rd_wrfile, wr_rdfile, bad_opt},
108 /* 2: SVR4 HEX CPIO */
109 {"sv4cpio", 5120, sizeof(HD_VCPIO), 1, 0, 0, 1, vcpio_id, cpio_strd,
110 vcpio_rd, vcpio_endrd, cpio_stwr, vcpio_wr, cpio_endwr, cpio_trail,
111 rd_wrfile, wr_rdfile, bad_opt},
113 /* 3: SVR4 HEX CPIO WITH CRC */
114 {"sv4crc", 5120, sizeof(HD_VCPIO), 1, 0, 0, 1, crc_id, crc_strd,
115 vcpio_rd, vcpio_endrd, crc_stwr, vcpio_wr, cpio_endwr, cpio_trail,
116 rd_wrfile, wr_rdfile, bad_opt},
118 /* 4: OLD TAR */
119 {"tar", 10240, BLKMULT, 0, 1, BLKMULT, 0, tar_id, no_op,
120 tar_rd, tar_endrd, no_op, tar_wr, tar_endwr, tar_trail,
121 rd_wrfile, wr_rdfile, tar_opt},
123 /* 5: POSIX USTAR */
124 {"ustar", 10240, BLKMULT, 0, 1, BLKMULT, 0, ustar_id, ustar_strd,
125 ustar_rd, tar_endrd, ustar_stwr, ustar_wr, tar_endwr, tar_trail,
126 rd_wrfile, wr_rdfile, bad_opt},
128 #define F_OCPIO 0 /* format when called as cpio -6 */
129 #define F_ACPIO 1 /* format when called as cpio -c */
130 #define F_CPIO 3 /* format when called as cpio */
131 #define F_OTAR 4 /* format when called as tar -o */
132 #define F_TAR 5 /* format when called as tar */
133 #define DEFLT 5 /* default write format from list above */
136 * ford is the archive search order used by get_arc() to determine what kind
137 * of archive we are dealing with. This helps to properly id archive formats
138 * some formats may be subsets of others....
140 int ford[] = {5, 4, 3, 2, 1, 0, -1 };
143 * options()
144 * figure out if we are pax, tar or cpio. Call the appropriate options
145 * parser
148 void
149 options(int argc, char **argv)
153 * Are we acting like pax, tar or cpio (based on argv[0])
155 if ((argv0 = strrchr(argv[0], '/')) != NULL)
156 argv0++;
157 else
158 argv0 = argv[0];
160 if (strcmp(NM_TAR, argv0) == 0)
161 return(tar_options(argc, argv));
162 else if (strcmp(NM_CPIO, argv0) == 0)
163 return(cpio_options(argc, argv));
165 * assume pax as the default
167 argv0 = NM_PAX;
168 return(pax_options(argc, argv));
172 * pax_options()
173 * look at the user specified flags. set globals as required and check if
174 * the user specified a legal set of flags. If not, complain and exit
177 static void
178 pax_options(int argc, char **argv)
180 int c;
181 int i;
182 unsigned int flg = 0;
183 unsigned int bflg = 0;
184 char *pt;
185 FSUB tmp;
188 * process option flags
190 while ((c=getopt(argc,argv,"ab:cdf:iklno:p:rs:tuvwx:zB:DE:G:HLPT:U:XYZ"))
191 != -1) {
192 switch (c) {
193 case 'a':
195 * append
197 flg |= AF;
198 break;
199 case 'b':
201 * specify blocksize
203 flg |= BF;
204 if ((wrblksz = (int)str_offt(optarg)) <= 0) {
205 paxwarn(1, "Invalid block size %s", optarg);
206 pax_usage();
208 break;
209 case 'c':
211 * inverse match on patterns
213 cflag = 1;
214 flg |= CF;
215 break;
216 case 'd':
218 * match only dir on extract, not the subtree at dir
220 dflag = 1;
221 flg |= DF;
222 break;
223 case 'f':
225 * filename where the archive is stored
227 arcname = optarg;
228 flg |= FF;
229 break;
230 case 'i':
232 * interactive file rename
234 iflag = 1;
235 flg |= IF;
236 break;
237 case 'k':
239 * do not clobber files that exist
241 kflag = 1;
242 flg |= KF;
243 break;
244 case 'l':
246 * try to link src to dest with copy (-rw)
248 lflag = 1;
249 flg |= LF;
250 break;
251 case 'n':
253 * select first match for a pattern only
255 nflag = 1;
256 flg |= NF;
257 break;
258 case 'o':
260 * pass format specific options
262 flg |= OF;
263 if (opt_add(optarg) < 0)
264 pax_usage();
265 break;
266 case 'p':
268 * specify file characteristic options
270 for (pt = optarg; *pt != '\0'; ++pt) {
271 switch(*pt) {
272 case 'a':
274 * do not preserve access time
276 patime = 0;
277 break;
278 case 'e':
280 * preserve user id, group id, file
281 * mode, access/modification times
283 pids = 1;
284 pmode = 1;
285 patime = 1;
286 pmtime = 1;
287 break;
288 case 'm':
290 * do not preserve modification time
292 pmtime = 0;
293 break;
294 case 'o':
296 * preserve uid/gid
298 pids = 1;
299 break;
300 case 'p':
302 * preserve file mode bits
304 pmode = 1;
305 break;
306 default:
307 paxwarn(1, "Invalid -p string: %c", *pt);
308 pax_usage();
309 break;
312 flg |= PF;
313 break;
314 case 'r':
316 * read the archive
318 flg |= RF;
319 break;
320 case 's':
322 * file name substitution name pattern
324 if (rep_add(optarg) < 0) {
325 pax_usage();
326 break;
328 flg |= SF;
329 break;
330 case 't':
332 * preserve access time on filesystem nodes we read
334 tflag = 1;
335 flg |= TF;
336 break;
337 case 'u':
339 * ignore those older files
341 uflag = 1;
342 flg |= UF;
343 break;
344 case 'v':
346 * verbose operation mode
348 vflag = 1;
349 flg |= VF;
350 break;
351 case 'w':
353 * write an archive
355 flg |= WF;
356 break;
357 case 'x':
359 * specify an archive format on write
361 tmp.name = optarg;
362 if ((frmt = (FSUB *)bsearch((void *)&tmp, (void *)fsub,
363 sizeof(fsub)/sizeof(FSUB), sizeof(FSUB), c_frmt)) != NULL) {
364 flg |= XF;
365 break;
367 paxwarn(1, "Unknown -x format: %s", optarg);
368 fputs("pax: Known -x formats are:", stderr);
369 for (i = 0; i < (sizeof(fsub)/sizeof(FSUB)); ++i)
370 fprintf(stderr, " %s", fsub[i].name);
371 fputs("\n\n", stderr);
372 pax_usage();
373 break;
374 case 'z':
376 * use gzip. Non standard option.
378 gzip_program = GZIP_CMD;
379 break;
380 case 'B':
382 * non-standard option on number of bytes written on a
383 * single archive volume.
385 if ((wrlimit = str_offt(optarg)) <= 0) {
386 paxwarn(1, "Invalid write limit %s", optarg);
387 pax_usage();
389 if (wrlimit % BLKMULT) {
390 paxwarn(1, "Write limit is not a %d byte multiple",
391 BLKMULT);
392 pax_usage();
394 flg |= CBF;
395 break;
396 case 'D':
398 * On extraction check file inode change time before the
399 * modification of the file name. Non standard option.
401 Dflag = 1;
402 flg |= CDF;
403 break;
404 case 'E':
406 * non-standard limit on read faults
407 * 0 indicates stop after first error, values
408 * indicate a limit, "NONE" try forever
410 flg |= CEF;
411 if (strcmp(NONE, optarg) == 0)
412 maxflt = -1;
413 else if ((maxflt = atoi(optarg)) < 0) {
414 paxwarn(1, "Error count value must be positive");
415 pax_usage();
417 break;
418 case 'G':
420 * non-standard option for selecting files within an
421 * archive by group (gid or name)
423 if (grp_add(optarg) < 0) {
424 pax_usage();
425 break;
427 flg |= CGF;
428 break;
429 case 'H':
431 * follow command line symlinks only
433 Hflag = 1;
434 flg |= CHF;
435 break;
436 case 'L':
438 * follow symlinks
440 Lflag = 1;
441 flg |= CLF;
442 break;
443 case 'P':
445 * do NOT follow symlinks (default)
447 Lflag = 0;
448 flg |= CPF;
449 break;
450 case 'T':
452 * non-standard option for selecting files within an
453 * archive by modification time range (lower,upper)
455 if (trng_add(optarg) < 0) {
456 pax_usage();
457 break;
459 flg |= CTF;
460 break;
461 case 'U':
463 * non-standard option for selecting files within an
464 * archive by user (uid or name)
466 if (usr_add(optarg) < 0) {
467 pax_usage();
468 break;
470 flg |= CUF;
471 break;
472 case 'X':
474 * do not pass over mount points in the file system
476 Xflag = 1;
477 flg |= CXF;
478 break;
479 case 'Y':
481 * On extraction check file inode change time after the
482 * modification of the file name. Non standard option.
484 Yflag = 1;
485 flg |= CYF;
486 break;
487 case 'Z':
489 * On extraction check modification time after the
490 * modification of the file name. Non standard option.
492 Zflag = 1;
493 flg |= CZF;
494 break;
495 default:
496 pax_usage();
497 break;
502 * figure out the operation mode of pax read,write,extract,copy,append
503 * or list. check that we have not been given a bogus set of flags
504 * for the operation mode.
506 if (ISLIST(flg)) {
507 act = LIST;
508 listf = stdout;
509 bflg = flg & BDLIST;
510 } else if (ISEXTRACT(flg)) {
511 act = EXTRACT;
512 bflg = flg & BDEXTR;
513 } else if (ISARCHIVE(flg)) {
514 act = ARCHIVE;
515 bflg = flg & BDARCH;
516 } else if (ISAPPND(flg)) {
517 act = APPND;
518 bflg = flg & BDARCH;
519 } else if (ISCOPY(flg)) {
520 act = COPY;
521 bflg = flg & BDCOPY;
522 } else
523 pax_usage();
524 if (bflg) {
525 printflg(flg);
526 pax_usage();
530 * if we are writing (ARCHIVE) we use the default format if the user
531 * did not specify a format. when we write during an APPEND, we will
532 * adopt the format of the existing archive if none was supplied.
534 if (!(flg & XF) && (act == ARCHIVE))
535 frmt = &(fsub[DEFLT]);
538 * process the args as they are interpreted by the operation mode
540 switch (act) {
541 case LIST:
542 case EXTRACT:
543 for (; optind < argc; optind++)
544 if (pat_add(argv[optind], NULL) < 0)
545 pax_usage();
546 break;
547 case COPY:
548 if (optind >= argc) {
549 paxwarn(0, "Destination directory was not supplied");
550 pax_usage();
552 --argc;
553 dirptr = argv[argc];
554 /* FALL THROUGH */
555 case ARCHIVE:
556 case APPND:
557 for (; optind < argc; optind++)
558 if (ftree_add(argv[optind], 0) < 0)
559 pax_usage();
561 * no read errors allowed on updates/append operation!
563 maxflt = 0;
564 break;
570 * tar_options()
571 * look at the user specified flags. set globals as required and check if
572 * the user specified a legal set of flags. If not, complain and exit
575 static void
576 tar_options(int argc, char **argv)
578 int c;
579 int fstdin = 0;
580 int Oflag = 0;
581 int nincfiles = 0;
582 int incfiles_max = 0;
583 struct incfile {
584 char *file;
585 char *dir;
587 struct incfile *incfiles = NULL;
590 * Set default values.
592 rmleadslash = 1;
595 * process option flags
597 while ((c = getoldopt(argc, argv,
598 "b:cef:hjmopqruts:vwxyzBC:HI:LOPXZ014578")) != -1) {
599 switch(c) {
600 case 'b':
602 * specify blocksize in 512-byte blocks
604 if ((wrblksz = (int)str_offt(optarg)) <= 0) {
605 paxwarn(1, "Invalid block size %s", optarg);
606 tar_usage();
608 wrblksz *= 512; /* XXX - check for int oflow */
609 break;
610 case 'c':
612 * create an archive
614 act = ARCHIVE;
615 break;
616 case 'e':
618 * stop after first error
620 maxflt = 0;
621 break;
622 case 'f':
624 * filename where the archive is stored
626 if ((optarg[0] == '-') && (optarg[1]== '\0')) {
628 * treat a - as stdin
630 fstdin = 1;
631 arcname = NULL;
632 break;
634 fstdin = 0;
635 arcname = optarg;
636 break;
637 case 'h':
639 * follow symlinks
641 Lflag = 1;
642 break;
643 case 'j':
644 case 'y':
646 * use bzip2. Non standard option.
648 gzip_program = BZIP2_CMD;
649 break;
650 case 'm':
652 * do not preserve modification time
654 pmtime = 0;
655 break;
656 case 'o':
657 if (opt_add("write_opt=nodir") < 0)
658 tar_usage();
659 case 'O':
660 Oflag = 1;
661 break;
662 case 'p':
664 * preserve uid/gid and file mode, regardless of umask
666 pmode = 1;
667 pids = 1;
668 break;
669 case 'q':
671 * select first match for a pattern only
673 nflag = 1;
674 break;
675 case 'r':
676 case 'u':
678 * append to the archive
680 act = APPND;
681 break;
682 case 's':
684 * file name substitution name pattern
686 if (rep_add(optarg) < 0) {
687 tar_usage();
688 break;
690 break;
691 case 't':
693 * list contents of the tape
695 act = LIST;
696 break;
697 case 'v':
699 * verbose operation mode
701 vflag++;
702 break;
703 case 'w':
705 * interactive file rename
707 iflag = 1;
708 break;
709 case 'x':
711 * extract an archive, preserving mode,
712 * and mtime if possible.
714 act = EXTRACT;
715 pmtime = 1;
716 break;
717 case 'z':
719 * use gzip. Non standard option.
721 gzip_program = GZIP_CMD;
722 break;
723 case 'B':
725 * Nothing to do here, this is pax default
727 break;
728 case 'C':
729 chdname = optarg;
730 break;
731 case 'H':
733 * follow command line symlinks only
735 Hflag = 1;
736 break;
737 case 'I':
738 if (++nincfiles > incfiles_max) {
739 incfiles_max = nincfiles + 3;
740 incfiles = realloc(incfiles,
741 sizeof(*incfiles) * incfiles_max);
742 if (incfiles == NULL) {
743 paxwarn(0, "Unable to allocate space "
744 "for option list");
745 exit(1);
748 incfiles[nincfiles - 1].file = optarg;
749 incfiles[nincfiles - 1].dir = chdname;
750 break;
751 case 'L':
753 * follow symlinks
755 Lflag = 1;
756 break;
757 case 'P':
759 * do not remove leading '/' from pathnames
761 rmleadslash = 0;
762 break;
763 case 'X':
765 * do not pass over mount points in the file system
767 Xflag = 1;
768 break;
769 case 'Z':
771 * use compress.
773 gzip_program = COMPRESS_CMD;
774 break;
775 case '0':
776 arcname = DEV_0;
777 break;
778 case '1':
779 arcname = DEV_1;
780 break;
781 case '4':
782 arcname = DEV_4;
783 break;
784 case '5':
785 arcname = DEV_5;
786 break;
787 case '7':
788 arcname = DEV_7;
789 break;
790 case '8':
791 arcname = DEV_8;
792 break;
793 default:
794 tar_usage();
795 break;
798 argc -= optind;
799 argv += optind;
801 /* Traditional tar behaviour (pax uses stderr unless in list mode) */
802 if (fstdin == 1 && act == ARCHIVE)
803 listf = stderr;
804 else
805 listf = stdout;
807 /* Traditional tar behaviour (pax wants to read file list from stdin) */
808 if ((act == ARCHIVE || act == APPND) && argc == 0 && nincfiles == 0)
809 exit(0);
812 * if we are writing (ARCHIVE) specify tar, otherwise run like pax
813 * (unless -o specified)
815 if (act == ARCHIVE || act == APPND)
816 frmt = &(fsub[Oflag ? F_OTAR : F_TAR]);
817 else if (Oflag) {
818 paxwarn(1, "The -O/-o options are only valid when writing an archive");
819 tar_usage(); /* only valid when writing */
823 * process the args as they are interpreted by the operation mode
825 switch (act) {
826 case LIST:
827 case EXTRACT:
828 default:
830 int sawpat = 0;
831 char *file, *dir = NULL;
833 while (nincfiles || *argv != NULL) {
835 * If we queued up any include files,
836 * pull them in now. Otherwise, check
837 * for -I and -C positional flags.
838 * Anything else must be a file to
839 * extract.
841 if (nincfiles) {
842 file = incfiles->file;
843 dir = incfiles->dir;
844 incfiles++;
845 nincfiles--;
846 } else if (strcmp(*argv, "-I") == 0) {
847 if (*++argv == NULL)
848 break;
849 file = *argv++;
850 dir = chdname;
851 } else
852 file = NULL;
853 if (file != NULL) {
854 FILE *fp;
855 char *str;
857 if (strcmp(file, "-") == 0)
858 fp = stdin;
859 else if ((fp = fopen(file, "r")) == NULL) {
860 paxwarn(1, "Unable to open file '%s' for read", file);
861 tar_usage();
863 while ((str = getline(fp)) != NULL) {
864 if (pat_add(str, dir) < 0)
865 tar_usage();
866 sawpat = 1;
868 if (strcmp(file, "-") != 0)
869 fclose(fp);
870 if (getline_error) {
871 paxwarn(1, "Problem with file '%s'", file);
872 tar_usage();
874 } else if (strcmp(*argv, "-C") == 0) {
875 if (*++argv == NULL)
876 break;
877 chdname = *argv++;
878 } else if (pat_add(*argv++, chdname) < 0)
879 tar_usage();
880 else
881 sawpat = 1;
884 * if patterns were added, we are doing chdir()
885 * on a file-by-file basis, else, just one
886 * global chdir (if any) after opening input.
888 if (sawpat > 0)
889 chdname = NULL;
891 break;
892 case ARCHIVE:
893 case APPND:
894 if (chdname != NULL) { /* initial chdir() */
895 if (ftree_add(chdname, 1) < 0)
896 tar_usage();
899 while (nincfiles || *argv != NULL) {
900 char *file, *dir = NULL;
903 * If we queued up any include files, pull them in
904 * now. Otherwise, check for -I and -C positional
905 * flags. Anything else must be a file to include
906 * in the archive.
908 if (nincfiles) {
909 file = incfiles->file;
910 dir = incfiles->dir;
911 incfiles++;
912 nincfiles--;
913 } else if (strcmp(*argv, "-I") == 0) {
914 if (*++argv == NULL)
915 break;
916 file = *argv++;
917 dir = NULL;
918 } else
919 file = NULL;
920 if (file != NULL) {
921 FILE *fp;
922 char *str;
924 /* Set directory if needed */
925 if (dir) {
926 if (ftree_add(dir, 1) < 0)
927 tar_usage();
930 if (strcmp(file, "-") == 0)
931 fp = stdin;
932 else if ((fp = fopen(file, "r")) == NULL) {
933 paxwarn(1, "Unable to open file '%s' for read", file);
934 tar_usage();
936 while ((str = getline(fp)) != NULL) {
937 if (ftree_add(str, 0) < 0)
938 tar_usage();
940 if (strcmp(file, "-") != 0)
941 fclose(fp);
942 if (getline_error) {
943 paxwarn(1, "Problem with file '%s'",
944 file);
945 tar_usage();
947 } else if (strcmp(*argv, "-C") == 0) {
948 if (*++argv == NULL)
949 break;
950 if (ftree_add(*argv++, 1) < 0)
951 tar_usage();
952 } else if (ftree_add(*argv++, 0) < 0)
953 tar_usage();
956 * no read errors allowed on updates/append operation!
958 maxflt = 0;
959 break;
961 if (!fstdin && ((arcname == NULL) || (*arcname == '\0'))) {
962 arcname = getenv("TAPE");
963 if ((arcname == NULL) || (*arcname == '\0'))
964 arcname = _PATH_DEFTAPE;
969 mkpath(char *path)
971 struct stat sb;
972 char *slash;
973 int done = 0;
975 slash = path;
977 while (!done) {
978 slash += strspn(slash, "/");
979 slash += strcspn(slash, "/");
981 done = (*slash == '\0');
982 *slash = '\0';
984 if (stat(path, &sb)) {
985 if (errno != ENOENT || mkdir(path, 0777)) {
986 paxwarn(1, "%s", path);
987 return (-1);
989 } else if (!S_ISDIR(sb.st_mode)) {
990 syswarn(1, ENOTDIR, "%s", path);
991 return (-1);
994 if (!done)
995 *slash = '/';
998 return (0);
1001 * cpio_options()
1002 * look at the user specified flags. set globals as required and check if
1003 * the user specified a legal set of flags. If not, complain and exit
1006 static void
1007 cpio_options(int argc, char **argv)
1009 int c, i;
1010 char *str;
1011 FSUB tmp;
1012 FILE *fp;
1014 kflag = 1;
1015 pids = 1;
1016 pmode = 1;
1017 pmtime = 0;
1018 arcname = NULL;
1019 dflag = 1;
1020 act = -1;
1021 nodirs = 1;
1022 while ((c=getopt(argc,argv,"abcdfiklmoprstuvzABC:E:F:H:I:LO:SZ6")) != -1)
1023 switch (c) {
1024 case 'a':
1026 * preserve access time on files read
1028 tflag = 1;
1029 break;
1030 case 'b':
1032 * swap bytes and half-words when reading data
1034 break;
1035 case 'c':
1037 * ASCII cpio header
1039 frmt = &(fsub[F_ACPIO]);
1040 break;
1041 case 'd':
1043 * create directories as needed
1045 nodirs = 0;
1046 break;
1047 case 'f':
1049 * invert meaning of pattern list
1051 cflag = 1;
1052 break;
1053 case 'i':
1055 * restore an archive
1057 act = EXTRACT;
1058 break;
1059 case 'k':
1060 break;
1061 case 'l':
1063 * use links instead of copies when possible
1065 lflag = 1;
1066 break;
1067 case 'm':
1069 * preserve modification time
1071 pmtime = 1;
1072 break;
1073 case 'o':
1075 * create an archive
1077 act = ARCHIVE;
1078 frmt = &(fsub[F_CPIO]);
1079 break;
1080 case 'p':
1082 * copy-pass mode
1084 act = COPY;
1085 break;
1086 case 'r':
1088 * interactively rename files
1090 iflag = 1;
1091 break;
1092 case 's':
1094 * swap bytes after reading data
1096 break;
1097 case 't':
1099 * list contents of archive
1101 act = LIST;
1102 listf = stdout;
1103 break;
1104 case 'u':
1106 * replace newer files
1108 kflag = 0;
1109 break;
1110 case 'v':
1112 * verbose operation mode
1114 vflag = 1;
1115 break;
1116 case 'z':
1118 * use gzip. Non standard option.
1120 gzip_program = GZIP_CMD;
1121 break;
1122 case 'A':
1124 * append mode
1126 act = APPND;
1127 break;
1128 case 'B':
1130 * Use 5120 byte block size
1132 wrblksz = 5120;
1133 break;
1134 case 'C':
1136 * set block size in bytes
1138 wrblksz = atoi(optarg);
1139 break;
1140 case 'E':
1142 * file with patterns to extract or list
1144 if ((fp = fopen(optarg, "r")) == NULL) {
1145 paxwarn(1, "Unable to open file '%s' for read", optarg);
1146 cpio_usage();
1148 while ((str = getline(fp)) != NULL) {
1149 pat_add(str, NULL);
1151 fclose(fp);
1152 if (getline_error) {
1153 paxwarn(1, "Problem with file '%s'", optarg);
1154 cpio_usage();
1156 break;
1157 case 'F':
1158 case 'I':
1159 case 'O':
1161 * filename where the archive is stored
1163 if ((optarg[0] == '-') && (optarg[1]== '\0')) {
1165 * treat a - as stdin
1167 arcname = NULL;
1168 break;
1170 arcname = optarg;
1171 break;
1172 case 'H':
1174 * specify an archive format on write
1176 tmp.name = optarg;
1177 if ((frmt = (FSUB *)bsearch((void *)&tmp, (void *)fsub,
1178 sizeof(fsub)/sizeof(FSUB), sizeof(FSUB), c_frmt)) != NULL)
1179 break;
1180 paxwarn(1, "Unknown -H format: %s", optarg);
1181 fputs("cpio: Known -H formats are:", stderr);
1182 for (i = 0; i < (sizeof(fsub)/sizeof(FSUB)); ++i)
1183 fprintf(stderr, " %s", fsub[i].name);
1184 fputs("\n\n", stderr);
1185 cpio_usage();
1186 break;
1187 case 'L':
1189 * follow symbolic links
1191 Lflag = 1;
1192 break;
1193 case 'S':
1195 * swap halfwords after reading data
1197 break;
1198 case 'Z':
1200 * use compress. Non standard option.
1202 gzip_program = COMPRESS_CMD;
1203 break;
1204 case '6':
1206 * process Version 6 cpio format
1208 frmt = &(fsub[F_OCPIO]);
1209 break;
1210 case '?':
1211 default:
1212 cpio_usage();
1213 break;
1215 argc -= optind;
1216 argv += optind;
1219 * process the args as they are interpreted by the operation mode
1221 switch (act) {
1222 case LIST:
1223 case EXTRACT:
1224 while (*argv != NULL)
1225 if (pat_add(*argv++, NULL) < 0)
1226 cpio_usage();
1227 break;
1228 case COPY:
1229 if (*argv == NULL) {
1230 paxwarn(0, "Destination directory was not supplied");
1231 cpio_usage();
1233 dirptr = *argv;
1234 if (mkpath(dirptr) < 0)
1235 cpio_usage();
1236 --argc;
1237 ++argv;
1238 /* FALL THROUGH */
1239 case ARCHIVE:
1240 case APPND:
1241 if (*argv != NULL)
1242 cpio_usage();
1244 * no read errors allowed on updates/append operation!
1246 maxflt = 0;
1247 while ((str = getline(stdin)) != NULL) {
1248 ftree_add(str, 0);
1250 if (getline_error) {
1251 paxwarn(1, "Problem while reading stdin");
1252 cpio_usage();
1254 break;
1255 default:
1256 cpio_usage();
1257 break;
1262 * printflg()
1263 * print out those invalid flag sets found to the user
1266 static void
1267 printflg(unsigned int flg)
1269 int nxt;
1270 int pos = 0;
1272 fprintf(stderr,"%s: Invalid combination of options:", argv0);
1273 while ((nxt = ffs(flg)) != 0) {
1274 flg = flg >> nxt;
1275 pos += nxt;
1276 fprintf(stderr, " -%c", flgch[pos-1]);
1278 putc('\n', stderr);
1282 * c_frmt()
1283 * comparison routine used by bsearch to find the format specified
1284 * by the user
1287 static int
1288 c_frmt(const void *a, const void *b)
1290 return(strcmp(((FSUB *)a)->name, ((FSUB *)b)->name));
1294 * opt_next()
1295 * called by format specific options routines to get each format specific
1296 * flag and value specified with -o
1297 * Return:
1298 * pointer to next OPLIST entry or NULL (end of list).
1301 OPLIST *
1302 opt_next(void)
1304 OPLIST *opt;
1306 if ((opt = ophead) != NULL)
1307 ophead = ophead->fow;
1308 return(opt);
1312 * bad_opt()
1313 * generic routine used to complain about a format specific options
1314 * when the format does not support options.
1318 bad_opt(void)
1320 OPLIST *opt;
1322 if (ophead == NULL)
1323 return(0);
1325 * print all we were given
1327 paxwarn(1,"These format options are not supported");
1328 while ((opt = opt_next()) != NULL)
1329 fprintf(stderr, "\t%s = %s\n", opt->name, opt->value);
1330 pax_usage();
1331 return(0);
1335 * opt_add()
1336 * breaks the value supplied to -o into a option name and value. options
1337 * are given to -o in the form -o name-value,name=value
1338 * multiple -o may be specified.
1339 * Return:
1340 * 0 if format in name=value format, -1 if -o is passed junk
1344 opt_add(char *str)
1346 OPLIST *opt;
1347 char *frpt;
1348 char *pt;
1349 char *endpt;
1351 if ((str == NULL) || (*str == '\0')) {
1352 paxwarn(0, "Invalid option name");
1353 return(-1);
1355 if ((str = strdup(str)) == NULL) {
1356 paxwarn(0, "Unable to allocate space for option list");
1357 return(-1);
1359 frpt = endpt = str;
1362 * break into name and values pieces and stuff each one into a
1363 * OPLIST structure. When we know the format, the format specific
1364 * option function will go through this list
1366 while ((frpt != NULL) && (*frpt != '\0')) {
1367 if ((endpt = strchr(frpt, ',')) != NULL)
1368 *endpt = '\0';
1369 if ((pt = strchr(frpt, '=')) == NULL) {
1370 paxwarn(0, "Invalid options format");
1371 free(str);
1372 return(-1);
1374 if ((opt = (OPLIST *)malloc(sizeof(OPLIST))) == NULL) {
1375 paxwarn(0, "Unable to allocate space for option list");
1376 free(str);
1377 return(-1);
1379 *pt++ = '\0';
1380 opt->name = frpt;
1381 opt->value = pt;
1382 opt->fow = NULL;
1383 if (endpt != NULL)
1384 frpt = endpt + 1;
1385 else
1386 frpt = NULL;
1387 if (ophead == NULL) {
1388 optail = ophead = opt;
1389 continue;
1391 optail->fow = opt;
1392 optail = opt;
1394 return(0);
1398 * str_offt()
1399 * Convert an expression of the following forms to an off_t > 0.
1400 * 1) A positive decimal number.
1401 * 2) A positive decimal number followed by a b (mult by 512).
1402 * 3) A positive decimal number followed by a k (mult by 1024).
1403 * 4) A positive decimal number followed by a m (mult by 512).
1404 * 5) A positive decimal number followed by a w (mult by sizeof int)
1405 * 6) Two or more positive decimal numbers (with/without k,b or w).
1406 * separated by x (also * for backwards compatibility), specifying
1407 * the product of the indicated values.
1408 * Return:
1409 * 0 for an error, a positive value o.w.
1412 static off_t
1413 str_offt(char *val)
1415 char *expr;
1416 off_t num, t;
1418 num = strtoq(val, &expr, 0);
1419 if ((num == QUAD_MAX) || (num <= 0) || (expr == val))
1420 return(0);
1422 switch(*expr) {
1423 case 'b':
1424 t = num;
1425 num *= 512;
1426 if (t > num)
1427 return(0);
1428 ++expr;
1429 break;
1430 case 'k':
1431 t = num;
1432 num *= 1024;
1433 if (t > num)
1434 return(0);
1435 ++expr;
1436 break;
1437 case 'm':
1438 t = num;
1439 num *= 1048576;
1440 if (t > num)
1441 return(0);
1442 ++expr;
1443 break;
1444 case 'w':
1445 t = num;
1446 num *= sizeof(int);
1447 if (t > num)
1448 return(0);
1449 ++expr;
1450 break;
1453 switch(*expr) {
1454 case '\0':
1455 break;
1456 case '*':
1457 case 'x':
1458 t = num;
1459 num *= str_offt(expr + 1);
1460 if (t > num)
1461 return(0);
1462 break;
1463 default:
1464 return(0);
1466 return(num);
1469 char *
1470 getline(FILE *f)
1472 char *name, *temp;
1473 size_t len;
1475 name = fgetln(f, &len);
1476 if (!name) {
1477 getline_error = ferror(f) ? GETLINE_FILE_CORRUPT : 0;
1478 return(0);
1480 if (name[len-1] != '\n')
1481 len++;
1482 temp = malloc(len);
1483 if (!temp) {
1484 getline_error = GETLINE_OUT_OF_MEM;
1485 return(0);
1487 memcpy(temp, name, len-1);
1488 temp[len-1] = 0;
1489 return(temp);
1493 * no_op()
1494 * for those option functions where the archive format has nothing to do.
1495 * Return:
1499 static int
1500 no_op(void)
1502 return(0);
1506 * pax_usage()
1507 * print the usage summary to the user
1510 void
1511 pax_usage(void)
1513 fputs("usage: pax [-cdnvz] [-E limit] [-f archive] ", stderr);
1514 fputs("[-s replstr] ... [-U user] ...", stderr);
1515 fputs("\n [-G group] ... ", stderr);
1516 fputs("[-T [from_date][,to_date]] ... ", stderr);
1517 fputs("[pattern ...]\n", stderr);
1518 fputs(" pax -r [-cdiknuvzDYZ] [-E limit] ", stderr);
1519 fputs("[-f archive] [-o options] ... \n", stderr);
1520 fputs(" [-p string] ... [-s replstr] ... ", stderr);
1521 fputs("[-U user] ... [-G group] ...\n ", stderr);
1522 fputs("[-T [from_date][,to_date]] ... ", stderr);
1523 fputs(" [pattern ...]\n", stderr);
1524 fputs(" pax -w [-dituvzHLPX] [-b blocksize] ", stderr);
1525 fputs("[ [-a] [-f archive] ] [-x format] \n", stderr);
1526 fputs(" [-B bytes] [-s replstr] ... ", stderr);
1527 fputs("[-o options] ... [-U user] ...", stderr);
1528 fputs("\n [-G group] ... ", stderr);
1529 fputs("[-T [from_date][,to_date][/[c][m]]] ... ", stderr);
1530 fputs("[file ...]\n", stderr);
1531 fputs(" pax -r -w [-diklntuvDHLPXYZ] ", stderr);
1532 fputs("[-p string] ... [-s replstr] ...", stderr);
1533 fputs("\n [-U user] ... [-G group] ... ", stderr);
1534 fputs("[-T [from_date][,to_date][/[c][m]]] ... ", stderr);
1535 fputs("\n [file ...] directory\n", stderr);
1536 exit(1);
1540 * tar_usage()
1541 * print the usage summary to the user
1544 void
1545 tar_usage(void)
1547 fputs("usage: tar [-]{crtux}[-befhjmopqsvwyzHLOPXZ014578] [blocksize] ",
1548 stderr);
1549 fputs("[archive] [replstr] [-C directory] [-I file] [file ...]\n",
1550 stderr);
1551 exit(1);
1555 * cpio_usage()
1556 * print the usage summary to the user
1559 void
1560 cpio_usage(void)
1562 fputs("usage: cpio -o [-aABcLvVzZ] [-C bytes] [-H format] [-O archive]\n", stderr);
1563 fputs(" [-F archive] < name-list [> archive]\n", stderr);
1564 fputs(" cpio -i [-bBcdfmnrsStuvVzZ6] [-C bytes] [-E file] [-H format]\n", stderr);
1565 fputs(" [-I archive] [-F archive] [pattern...] [< archive]\n", stderr);
1566 fputs(" cpio -p [-adlLmuvV] destination-directory < name-list\n", stderr);
1567 exit(1);