]> CyberLeo.Net >> Repos - FreeBSD/FreeBSD.git/blob - bin/pax/options.c
kern: cpuset: allow jails to modify child jails' roots
[FreeBSD/FreeBSD.git] / bin / pax / options.c
1 /*-
2  * SPDX-License-Identifier: BSD-3-Clause
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 0
37 #ifndef lint
38 static char sccsid[] = "@(#)options.c   8.2 (Berkeley) 4/18/94";
39 #endif /* not lint */
40 #endif
41
42 #include <sys/cdefs.h>
43 __FBSDID("$FreeBSD$");
44
45 #include <sys/types.h>
46 #include <sys/stat.h>
47 #include <sys/mtio.h>
48 #include <stdio.h>
49 #include <string.h>
50 #include <errno.h>
51 #include <unistd.h>
52 #include <stdlib.h>
53 #include <limits.h>
54 #include <paths.h>
55 #include "pax.h"
56 #include "options.h"
57 #include "cpio.h"
58 #include "tar.h"
59 #include "extern.h"
60
61 /*
62  * Routines which handle command line options
63  */
64
65 static char flgch[] = FLGCH;    /* list of all possible flags */
66 static OPLIST *ophead = NULL;   /* head for format specific options -x */
67 static OPLIST *optail = NULL;   /* option tail */
68
69 static int no_op(void);
70 static void printflg(unsigned int);
71 static int c_frmt(const void *, const void *);
72 static off_t str_offt(char *);
73 static char *get_line(FILE *fp);
74 static void pax_options(int, char **);
75 static void pax_usage(void);
76 static void tar_options(int, char **);
77 static void tar_usage(void);
78 static void cpio_options(int, char **);
79 static void cpio_usage(void);
80
81 /* errors from get_line */
82 #define GETLINE_FILE_CORRUPT 1
83 #define GETLINE_OUT_OF_MEM 2
84 static int get_line_error;
85
86 char *chdname;
87
88 #define GZIP_CMD        "gzip"          /* command to run as gzip */
89 #define COMPRESS_CMD    "compress"      /* command to run as compress */
90 #define BZIP2_CMD       "bzip2"         /* command to run as gzip */
91
92 /*
93  *      Format specific routine table - MUST BE IN SORTED ORDER BY NAME
94  *      (see pax.h for description of each function)
95  *
96  *      name, blksz, hdsz, udev, hlk, blkagn, inhead, id, st_read,
97  *      read, end_read, st_write, write, end_write, trail,
98  *      rd_data, wr_data, options
99  */
100
101 FSUB fsub[] = {
102 /* 0: OLD BINARY CPIO */
103         {"bcpio", 5120, sizeof(HD_BCPIO), 1, 0, 0, 1, bcpio_id, cpio_strd,
104         bcpio_rd, bcpio_endrd, cpio_stwr, bcpio_wr, cpio_endwr, cpio_trail,
105         NULL, rd_wrfile, wr_rdfile, bad_opt},
106
107 /* 1: OLD OCTAL CHARACTER CPIO */
108         {"cpio", 5120, sizeof(HD_CPIO), 1, 0, 0, 1, cpio_id, cpio_strd,
109         cpio_rd, cpio_endrd, cpio_stwr, cpio_wr, cpio_endwr, cpio_trail,
110         NULL, rd_wrfile, wr_rdfile, bad_opt},
111
112 /* 2: SVR4 HEX CPIO */
113         {"sv4cpio", 5120, sizeof(HD_VCPIO), 1, 0, 0, 1, vcpio_id, cpio_strd,
114         vcpio_rd, vcpio_endrd, cpio_stwr, vcpio_wr, cpio_endwr, cpio_trail,
115         NULL, rd_wrfile, wr_rdfile, bad_opt},
116
117 /* 3: SVR4 HEX CPIO WITH CRC */
118         {"sv4crc", 5120, sizeof(HD_VCPIO), 1, 0, 0, 1, crc_id, crc_strd,
119         vcpio_rd, vcpio_endrd, crc_stwr, vcpio_wr, cpio_endwr, cpio_trail,
120         NULL, rd_wrfile, wr_rdfile, bad_opt},
121
122 /* 4: OLD TAR */
123         {"tar", 10240, BLKMULT, 0, 1, BLKMULT, 0, tar_id, no_op,
124         tar_rd, tar_endrd, no_op, tar_wr, tar_endwr, NULL, tar_trail,
125         rd_wrfile, wr_rdfile, tar_opt},
126
127 /* 5: POSIX USTAR */
128         {"ustar", 10240, BLKMULT, 0, 1, BLKMULT, 0, ustar_id, ustar_strd,
129         ustar_rd, tar_endrd, ustar_stwr, ustar_wr, tar_endwr, NULL, tar_trail,
130         rd_wrfile, wr_rdfile, bad_opt},
131 };
132 #define F_OCPIO 0       /* format when called as cpio -6 */
133 #define F_ACPIO 1       /* format when called as cpio -c */
134 #define F_CPIO  3       /* format when called as cpio */
135 #define F_OTAR  4       /* format when called as tar -o */
136 #define F_TAR   5       /* format when called as tar */
137 #define DEFLT   5       /* default write format from list above */
138
139 /*
140  * ford is the archive search order used by get_arc() to determine what kind
141  * of archive we are dealing with. This helps to properly id  archive formats
142  * some formats may be subsets of others....
143  */
144 int ford[] = {5, 4, 3, 2, 1, 0, -1 };
145
146 /*
147  * options()
148  *      figure out if we are pax, tar or cpio. Call the appropriate options
149  *      parser
150  */
151
152 void
153 options(int argc, char **argv)
154 {
155
156         /*
157          * Are we acting like pax, tar or cpio (based on argv[0])
158          */
159         if ((argv0 = strrchr(argv[0], '/')) != NULL)
160                 argv0++;
161         else
162                 argv0 = argv[0];
163
164         if (strcmp(NM_TAR, argv0) == 0) {
165                 tar_options(argc, argv);
166                 return;
167         }
168         else if (strcmp(NM_CPIO, argv0) == 0) {
169                 cpio_options(argc, argv);
170                 return;
171         }
172         /*
173          * assume pax as the default
174          */
175         argv0 = NM_PAX;
176         pax_options(argc, argv);
177         return;
178 }
179
180 /*
181  * pax_options()
182  *      look at the user specified flags. set globals as required and check if
183  *      the user specified a legal set of flags. If not, complain and exit
184  */
185
186 static void
187 pax_options(int argc, char **argv)
188 {
189         int c;
190         size_t i;
191         unsigned int flg = 0;
192         unsigned int bflg = 0;
193         char *pt;
194         FSUB tmp;
195
196         /*
197          * process option flags
198          */
199         while ((c=getopt(argc,argv,"ab:cdf:iklno:p:rs:tuvwx:zB:DE:G:HLOPT:U:XYZ"))
200             != -1) {
201                 switch (c) {
202                 case 'a':
203                         /*
204                          * append
205                          */
206                         flg |= AF;
207                         break;
208                 case 'b':
209                         /*
210                          * specify blocksize
211                          */
212                         flg |= BF;
213                         if ((wrblksz = (int)str_offt(optarg)) <= 0) {
214                                 paxwarn(1, "Invalid block size %s", optarg);
215                                 pax_usage();
216                         }
217                         break;
218                 case 'c':
219                         /*
220                          * inverse match on patterns
221                          */
222                         cflag = 1;
223                         flg |= CF;
224                         break;
225                 case 'd':
226                         /*
227                          * match only dir on extract, not the subtree at dir
228                          */
229                         dflag = 1;
230                         flg |= DF;
231                         break;
232                 case 'f':
233                         /*
234                          * filename where the archive is stored
235                          */
236                         arcname = optarg;
237                         flg |= FF;
238                         break;
239                 case 'i':
240                         /*
241                          * interactive file rename
242                          */
243                         iflag = 1;
244                         flg |= IF;
245                         break;
246                 case 'k':
247                         /*
248                          * do not clobber files that exist
249                          */
250                         kflag = 1;
251                         flg |= KF;
252                         break;
253                 case 'l':
254                         /*
255                          * try to link src to dest with copy (-rw)
256                          */
257                         lflag = 1;
258                         flg |= LF;
259                         break;
260                 case 'n':
261                         /*
262                          * select first match for a pattern only
263                          */
264                         nflag = 1;
265                         flg |= NF;
266                         break;
267                 case 'o':
268                         /*
269                          * pass format specific options
270                          */
271                         flg |= OF;
272                         if (opt_add(optarg) < 0)
273                                 pax_usage();
274                         break;
275                 case 'p':
276                         /*
277                          * specify file characteristic options
278                          */
279                         for (pt = optarg; *pt != '\0'; ++pt) {
280                                 switch(*pt) {
281                                 case 'a':
282                                         /*
283                                          * do not preserve access time
284                                          */
285                                         patime = 0;
286                                         break;
287                                 case 'e':
288                                         /*
289                                          * preserve user id, group id, file
290                                          * mode, access/modification times
291                                          */
292                                         pids = 1;
293                                         pmode = 1;
294                                         patime = 1;
295                                         pmtime = 1;
296                                         break;
297                                 case 'm':
298                                         /*
299                                          * do not preserve modification time
300                                          */
301                                         pmtime = 0;
302                                         break;
303                                 case 'o':
304                                         /*
305                                          * preserve uid/gid
306                                          */
307                                         pids = 1;
308                                         break;
309                                 case 'p':
310                                         /*
311                                          * preserver file mode bits
312                                          */
313                                         pmode = 1;
314                                         break;
315                                 default:
316                                         paxwarn(1, "Invalid -p string: %c", *pt);
317                                         pax_usage();
318                                         break;
319                                 }
320                         }
321                         flg |= PF;
322                         break;
323                 case 'r':
324                         /*
325                          * read the archive
326                          */
327                         flg |= RF;
328                         break;
329                 case 's':
330                         /*
331                          * file name substitution name pattern
332                          */
333                         if (rep_add(optarg) < 0) {
334                                 pax_usage();
335                                 break;
336                         }
337                         flg |= SF;
338                         break;
339                 case 't':
340                         /*
341                          * preserve access time on file system nodes we read
342                          */
343                         tflag = 1;
344                         flg |= TF;
345                         break;
346                 case 'u':
347                         /*
348                          * ignore those older files
349                          */
350                         uflag = 1;
351                         flg |= UF;
352                         break;
353                 case 'v':
354                         /*
355                          * verbose operation mode
356                          */
357                         vflag = 1;
358                         flg |= VF;
359                         break;
360                 case 'w':
361                         /*
362                          * write an archive
363                          */
364                         flg |= WF;
365                         break;
366                 case 'x':
367                         /*
368                          * specify an archive format on write
369                          */
370                         tmp.name = optarg;
371                         if ((frmt = (FSUB *)bsearch((void *)&tmp, (void *)fsub,
372                             sizeof(fsub)/sizeof(FSUB), sizeof(FSUB), c_frmt)) != NULL) {
373                                 flg |= XF;
374                                 break;
375                         }
376                         paxwarn(1, "Unknown -x format: %s", optarg);
377                         (void)fputs("pax: Known -x formats are:", stderr);
378                         for (i = 0; i < (sizeof(fsub)/sizeof(FSUB)); ++i)
379                                 (void)fprintf(stderr, " %s", fsub[i].name);
380                         (void)fputs("\n\n", stderr);
381                         pax_usage();
382                         break;
383                 case 'z':
384                         /*
385                          * use gzip.  Non standard option.
386                          */
387                         gzip_program = GZIP_CMD;
388                         break;
389                 case 'B':
390                         /*
391                          * non-standard option on number of bytes written on a
392                          * single archive volume.
393                          */
394                         if ((wrlimit = str_offt(optarg)) <= 0) {
395                                 paxwarn(1, "Invalid write limit %s", optarg);
396                                 pax_usage();
397                         }
398                         if (wrlimit % BLKMULT) {
399                                 paxwarn(1, "Write limit is not a %d byte multiple",
400                                     BLKMULT);
401                                 pax_usage();
402                         }
403                         flg |= CBF;
404                         break;
405                 case 'D':
406                         /*
407                          * On extraction check file inode change time before the
408                          * modification of the file name. Non standard option.
409                          */
410                         Dflag = 1;
411                         flg |= CDF;
412                         break;
413                 case 'E':
414                         /*
415                          * non-standard limit on read faults
416                          * 0 indicates stop after first error, values
417                          * indicate a limit, "NONE" try forever
418                          */
419                         flg |= CEF;
420                         if (strcmp(NONE, optarg) == 0)
421                                 maxflt = -1;
422                         else if ((maxflt = atoi(optarg)) < 0) {
423                                 paxwarn(1, "Error count value must be positive");
424                                 pax_usage();
425                         }
426                         break;
427                 case 'G':
428                         /*
429                          * non-standard option for selecting files within an
430                          * archive by group (gid or name)
431                          */
432                         if (grp_add(optarg) < 0) {
433                                 pax_usage();
434                                 break;
435                         }
436                         flg |= CGF;
437                         break;
438                 case 'H':
439                         /*
440                          * follow command line symlinks only
441                          */
442                         Hflag = 1;
443                         flg |= CHF;
444                         break;
445                 case 'L':
446                         /*
447                          * follow symlinks
448                          */
449                         Lflag = 1;
450                         flg |= CLF;
451                         break;
452                 case 'O':
453                         /*
454                          * Force one volume. Non standard option.
455                          */
456                         Oflag = 1;
457                         break;
458                 case 'P':
459                         /*
460                          * do NOT follow symlinks (default)
461                          */
462                         Lflag = 0;
463                         flg |= CPF;
464                         break;
465                 case 'T':
466                         /*
467                          * non-standard option for selecting files within an
468                          * archive by modification time range (lower,upper)
469                          */
470                         if (trng_add(optarg) < 0) {
471                                 pax_usage();
472                                 break;
473                         }
474                         flg |= CTF;
475                         break;
476                 case 'U':
477                         /*
478                          * non-standard option for selecting files within an
479                          * archive by user (uid or name)
480                          */
481                         if (usr_add(optarg) < 0) {
482                                 pax_usage();
483                                 break;
484                         }
485                         flg |= CUF;
486                         break;
487                 case 'X':
488                         /*
489                          * do not pass over mount points in the file system
490                          */
491                         Xflag = 1;
492                         flg |= CXF;
493                         break;
494                 case 'Y':
495                         /*
496                          * On extraction check file inode change time after the
497                          * modification of the file name. Non standard option.
498                          */
499                         Yflag = 1;
500                         flg |= CYF;
501                         break;
502                 case 'Z':
503                         /*
504                          * On extraction check modification time after the
505                          * modification of the file name. Non standard option.
506                          */
507                         Zflag = 1;
508                         flg |= CZF;
509                         break;
510                 default:
511                         pax_usage();
512                         break;
513                 }
514         }
515
516         /*
517          * figure out the operation mode of pax read,write,extract,copy,append
518          * or list. check that we have not been given a bogus set of flags
519          * for the operation mode.
520          */
521         if (ISLIST(flg)) {
522                 act = LIST;
523                 listf = stdout;
524                 bflg = flg & BDLIST;
525         } else if (ISEXTRACT(flg)) {
526                 act = EXTRACT;
527                 bflg = flg & BDEXTR;
528         } else if (ISARCHIVE(flg)) {
529                 act = ARCHIVE;
530                 bflg = flg & BDARCH;
531         } else if (ISAPPND(flg)) {
532                 act = APPND;
533                 bflg = flg & BDARCH;
534         } else if (ISCOPY(flg)) {
535                 act = COPY;
536                 bflg = flg & BDCOPY;
537         } else
538                 pax_usage();
539         if (bflg) {
540                 printflg(flg);
541                 pax_usage();
542         }
543
544         /*
545          * if we are writing (ARCHIVE) we use the default format if the user
546          * did not specify a format. when we write during an APPEND, we will
547          * adopt the format of the existing archive if none was supplied.
548          */
549         if (!(flg & XF) && (act == ARCHIVE))
550                 frmt = &(fsub[DEFLT]);
551
552         /*
553          * process the args as they are interpreted by the operation mode
554          */
555         switch (act) {
556         case LIST:
557         case EXTRACT:
558                 for (; optind < argc; optind++)
559                         if (pat_add(argv[optind], NULL) < 0)
560                                 pax_usage();
561                 break;
562         case COPY:
563                 if (optind >= argc) {
564                         paxwarn(0, "Destination directory was not supplied");
565                         pax_usage();
566                 }
567                 --argc;
568                 dirptr = argv[argc];
569                 /* FALLTHROUGH */
570         case ARCHIVE:
571         case APPND:
572                 for (; optind < argc; optind++)
573                         if (ftree_add(argv[optind], 0) < 0)
574                                 pax_usage();
575                 /*
576                  * no read errors allowed on updates/append operation!
577                  */
578                 maxflt = 0;
579                 break;
580         }
581 }
582
583
584 /*
585  * tar_options()
586  *      look at the user specified flags. set globals as required and check if
587  *      the user specified a legal set of flags. If not, complain and exit
588  */
589
590 static void
591 tar_options(int argc, char **argv)
592 {
593         int c;
594         int fstdin = 0;
595         int tar_Oflag = 0;
596         int nincfiles = 0;
597         int incfiles_max = 0;
598         struct incfile {
599                 char *file;
600                 char *dir;
601         };
602         struct incfile *incfiles = NULL;
603
604         /*
605          * Set default values.
606          */
607         rmleadslash = 1;
608
609         /*
610          * process option flags
611          */
612         while ((c = getoldopt(argc, argv,
613             "b:cef:hjmopqruts:vwxyzBC:HI:LOPXZ014578")) != -1) {
614                 switch(c) {
615                 case 'b':
616                         /*
617                          * specify blocksize in 512-byte blocks
618                          */
619                         if ((wrblksz = (int)str_offt(optarg)) <= 0) {
620                                 paxwarn(1, "Invalid block size %s", optarg);
621                                 tar_usage();
622                         }
623                         wrblksz *= 512;         /* XXX - check for int oflow */
624                         break;
625                 case 'c':
626                         /*
627                          * create an archive
628                          */
629                         act = ARCHIVE;
630                         break;
631                 case 'e':
632                         /*
633                          * stop after first error
634                          */
635                         maxflt = 0;
636                         break;
637                 case 'f':
638                         /*
639                          * filename where the archive is stored
640                          */
641                         if ((optarg[0] == '-') && (optarg[1]== '\0')) {
642                                 /*
643                                  * treat a - as stdin
644                                  */
645                                 fstdin = 1;
646                                 arcname = NULL;
647                                 break;
648                         }
649                         fstdin = 0;
650                         arcname = optarg;
651                         break;
652                 case 'h':
653                         /*
654                          * follow symlinks
655                          */
656                         Lflag = 1;
657                         break;
658                 case 'j':
659                 case 'y':
660                         /*
661                          * use bzip2.  Non standard option.
662                          */
663                         gzip_program = BZIP2_CMD;
664                         break;
665                 case 'm':
666                         /*
667                          * do not preserve modification time
668                          */
669                         pmtime = 0;
670                         break;
671                 case 'o':
672                         if (opt_add("write_opt=nodir") < 0)
673                                 tar_usage();
674                 case 'O':
675                         tar_Oflag = 1;
676                         break;
677                 case 'p':
678                         /*
679                          * preserve uid/gid and file mode, regardless of umask
680                          */
681                         pmode = 1;
682                         pids = 1;
683                         break;
684                 case 'q':
685                         /*
686                          * select first match for a pattern only
687                          */
688                         nflag = 1;
689                         break;
690                 case 'r':
691                 case 'u':
692                         /*
693                          * append to the archive
694                          */
695                         act = APPND;
696                         break;
697                 case 's':
698                         /*
699                          * file name substitution name pattern
700                          */
701                         if (rep_add(optarg) < 0) {
702                                 tar_usage();
703                                 break;
704                         }
705                         break;
706                 case 't':
707                         /*
708                          * list contents of the tape
709                          */
710                         act = LIST;
711                         break;
712                 case 'v':
713                         /*
714                          * verbose operation mode
715                          */
716                         vflag++;
717                         break;
718                 case 'w':
719                         /*
720                          * interactive file rename
721                          */
722                         iflag = 1;
723                         break;
724                 case 'x':
725                         /*
726                          * extract an archive, preserving mode,
727                          * and mtime if possible.
728                          */
729                         act = EXTRACT;
730                         pmtime = 1;
731                         break;
732                 case 'z':
733                         /*
734                          * use gzip.  Non standard option.
735                          */
736                         gzip_program = GZIP_CMD;
737                         break;
738                 case 'B':
739                         /*
740                          * Nothing to do here, this is pax default
741                          */
742                         break;
743                 case 'C':
744                         chdname = optarg;
745                         break;
746                 case 'H':
747                         /*
748                          * follow command line symlinks only
749                          */
750                         Hflag = 1;
751                         break;
752                 case 'I':
753                         if (++nincfiles > incfiles_max) {
754                                 incfiles_max = nincfiles + 3;
755                                 incfiles = realloc(incfiles,
756                                     sizeof(*incfiles) * incfiles_max);
757                                 if (incfiles == NULL) {
758                                         paxwarn(0, "Unable to allocate space "
759                                             "for option list");
760                                         exit(1);
761                                 }
762                         }
763                         incfiles[nincfiles - 1].file = optarg;
764                         incfiles[nincfiles - 1].dir = chdname;
765                         break;
766                 case 'L':
767                         /*
768                          * follow symlinks
769                          */
770                         Lflag = 1;
771                         break;
772                 case 'P':
773                         /*
774                          * do not remove leading '/' from pathnames
775                          */
776                         rmleadslash = 0;
777                         break;
778                 case 'X':
779                         /*
780                          * do not pass over mount points in the file system
781                          */
782                         Xflag = 1;
783                         break;
784                 case 'Z':
785                         /*
786                          * use compress.
787                          */
788                         gzip_program = COMPRESS_CMD;
789                         break;
790                 case '0':
791                         arcname = DEV_0;
792                         break;
793                 case '1':
794                         arcname = DEV_1;
795                         break;
796                 case '4':
797                         arcname = DEV_4;
798                         break;
799                 case '5':
800                         arcname = DEV_5;
801                         break;
802                 case '7':
803                         arcname = DEV_7;
804                         break;
805                 case '8':
806                         arcname = DEV_8;
807                         break;
808                 default:
809                         tar_usage();
810                         break;
811                 }
812         }
813         argc -= optind;
814         argv += optind;
815
816         /* Traditional tar behaviour (pax uses stderr unless in list mode) */
817         if (fstdin == 1 && act == ARCHIVE)
818                 listf = stderr;
819         else
820                 listf = stdout;
821
822         /* Traditional tar behaviour (pax wants to read file list from stdin) */
823         if ((act == ARCHIVE || act == APPND) && argc == 0 && nincfiles == 0)
824                 exit(0);
825
826         /*
827          * if we are writing (ARCHIVE) specify tar, otherwise run like pax
828          * (unless -o specified)
829          */
830         if (act == ARCHIVE || act == APPND)
831                 frmt = &(fsub[tar_Oflag ? F_OTAR : F_TAR]);
832         else if (tar_Oflag) {
833                 paxwarn(1, "The -O/-o options are only valid when writing an archive");
834                 tar_usage();            /* only valid when writing */
835         }
836
837         /*
838          * process the args as they are interpreted by the operation mode
839          */
840         switch (act) {
841         case LIST:
842         case EXTRACT:
843         default:
844                 {
845                         int sawpat = 0;
846                         char *file, *dir = NULL;
847
848                         while (nincfiles || *argv != NULL) {
849                                 /*
850                                  * If we queued up any include files,
851                                  * pull them in now.  Otherwise, check
852                                  * for -I and -C positional flags.
853                                  * Anything else must be a file to
854                                  * extract.
855                                  */
856                                 if (nincfiles) {
857                                         file = incfiles->file;
858                                         dir = incfiles->dir;
859                                         incfiles++;
860                                         nincfiles--;
861                                 } else if (strcmp(*argv, "-I") == 0) {
862                                         if (*++argv == NULL)
863                                                 break;
864                                         file = *argv++;
865                                         dir = chdname;
866                                 } else
867                                         file = NULL;
868                                 if (file != NULL) {
869                                         FILE *fp;
870                                         char *str;
871
872                                         if (strcmp(file, "-") == 0)
873                                                 fp = stdin;
874                                         else if ((fp = fopen(file, "r")) == NULL) {
875                                                 paxwarn(1, "Unable to open file '%s' for read", file);
876                                                 tar_usage();
877                                         }
878                                         while ((str = get_line(fp)) != NULL) {
879                                                 if (pat_add(str, dir) < 0)
880                                                         tar_usage();
881                                                 sawpat = 1;
882                                         }
883                                         if (strcmp(file, "-") != 0)
884                                                 fclose(fp);
885                                         if (get_line_error) {
886                                                 paxwarn(1, "Problem with file '%s'", file);
887                                                 tar_usage();
888                                         }
889                                 } else if (strcmp(*argv, "-C") == 0) {
890                                         if (*++argv == NULL)
891                                                 break;
892                                         chdname = *argv++;
893                                 } else if (pat_add(*argv++, chdname) < 0)
894                                         tar_usage();
895                                 else
896                                         sawpat = 1;
897                         }
898                         /*
899                          * if patterns were added, we are doing chdir()
900                          * on a file-by-file basis, else, just one
901                          * global chdir (if any) after opening input.
902                          */
903                         if (sawpat > 0)
904                                 chdname = NULL; 
905                 }
906                 break;
907         case ARCHIVE:
908         case APPND:
909                 if (chdname != NULL) {  /* initial chdir() */
910                         if (ftree_add(chdname, 1) < 0)
911                                 tar_usage();
912                 }
913
914                 while (nincfiles || *argv != NULL) {
915                         char *file, *dir = NULL;
916
917                         /*
918                          * If we queued up any include files, pull them in
919                          * now.  Otherwise, check for -I and -C positional
920                          * flags.  Anything else must be a file to include
921                          * in the archive.
922                          */
923                         if (nincfiles) {
924                                 file = incfiles->file;
925                                 dir = incfiles->dir;
926                                 incfiles++;
927                                 nincfiles--;
928                         } else if (strcmp(*argv, "-I") == 0) {
929                                 if (*++argv == NULL)
930                                         break;
931                                 file = *argv++;
932                                 dir = NULL;
933                         } else
934                                 file = NULL;
935                         if (file != NULL) {
936                                 FILE *fp;
937                                 char *str;
938
939                                 /* Set directory if needed */
940                                 if (dir) {
941                                         if (ftree_add(dir, 1) < 0)
942                                                 tar_usage();
943                                 }
944
945                                 if (strcmp(file, "-") == 0)
946                                         fp = stdin;
947                                 else if ((fp = fopen(file, "r")) == NULL) {
948                                         paxwarn(1, "Unable to open file '%s' for read", file);
949                                         tar_usage();
950                                 }
951                                 while ((str = get_line(fp)) != NULL) {
952                                         if (ftree_add(str, 0) < 0)
953                                                 tar_usage();
954                                 }
955                                 if (strcmp(file, "-") != 0)
956                                         fclose(fp);
957                                 if (get_line_error) {
958                                         paxwarn(1, "Problem with file '%s'",
959                                             file);
960                                         tar_usage();
961                                 }
962                         } else if (strcmp(*argv, "-C") == 0) {
963                                 if (*++argv == NULL)
964                                         break;
965                                 if (ftree_add(*argv++, 1) < 0)
966                                         tar_usage();
967                         } else if (ftree_add(*argv++, 0) < 0)
968                                 tar_usage();
969                 }
970                 /*
971                  * no read errors allowed on updates/append operation!
972                  */
973                 maxflt = 0;
974                 break;
975         }
976         if (!fstdin && ((arcname == NULL) || (*arcname == '\0'))) {
977                 arcname = getenv("TAPE");
978                 if ((arcname == NULL) || (*arcname == '\0'))
979                         arcname = _PATH_DEFTAPE;
980         }
981 }
982
983 static int
984 mkpath(char *path)
985 {
986         struct stat sb;
987         char *slash;
988         int done = 0;
989
990         slash = path;
991
992         while (!done) {
993                 slash += strspn(slash, "/");
994                 slash += strcspn(slash, "/");
995
996                 done = (*slash == '\0');
997                 *slash = '\0';
998
999                 if (stat(path, &sb)) {
1000                         if (errno != ENOENT || mkdir(path, 0777)) {
1001                                 paxwarn(1, "%s", path);
1002                                 return (-1);
1003                         }
1004                 } else if (!S_ISDIR(sb.st_mode)) {
1005                         syswarn(1, ENOTDIR, "%s", path);
1006                         return (-1);
1007                 }
1008
1009                 if (!done)
1010                         *slash = '/';
1011         }
1012
1013         return (0);
1014 }
1015 /*
1016  * cpio_options()
1017  *      look at the user specified flags. set globals as required and check if
1018  *      the user specified a legal set of flags. If not, complain and exit
1019  */
1020
1021 static void
1022 cpio_options(int argc, char **argv)
1023 {
1024         int c;
1025         size_t i;
1026         char *str;
1027         FSUB tmp;
1028         FILE *fp;
1029
1030         kflag = 1;
1031         pids = 1;
1032         pmode = 1;
1033         pmtime = 0;
1034         arcname = NULL;
1035         dflag = 1;
1036         act = -1;
1037         nodirs = 1;
1038         while ((c=getopt(argc,argv,"abcdfiklmoprstuvzABC:E:F:H:I:LO:SZ6")) != -1)
1039                 switch (c) {
1040                         case 'a':
1041                                 /*
1042                                  * preserve access time on files read
1043                                  */
1044                                 tflag = 1;
1045                                 break;
1046                         case 'b':
1047                                 /*
1048                                  * swap bytes and half-words when reading data
1049                                  */
1050                                 break;
1051                         case 'c':
1052                                 /*
1053                                  * ASCII cpio header
1054                                  */
1055                                 frmt = &(fsub[F_ACPIO]);
1056                                 break;
1057                         case 'd':
1058                                 /*
1059                                  * create directories as needed
1060                                  */
1061                                 nodirs = 0;
1062                                 break;
1063                         case 'f':
1064                                 /*
1065                                  * invert meaning of pattern list
1066                                  */
1067                                 cflag = 1;
1068                                 break;
1069                         case 'i':
1070                                 /*
1071                                  * restore an archive
1072                                  */
1073                                 act = EXTRACT;
1074                                 break;
1075                         case 'k':
1076                                 break;
1077                         case 'l':
1078                                 /*
1079                                  * use links instead of copies when possible
1080                                  */
1081                                 lflag = 1;
1082                                 break;
1083                         case 'm':
1084                                 /*
1085                                  * preserve modification time
1086                                  */
1087                                 pmtime = 1;
1088                                 break;
1089                         case 'o':
1090                                 /*
1091                                  * create an archive
1092                                  */
1093                                 act = ARCHIVE;
1094                                 frmt = &(fsub[F_CPIO]);
1095                                 break;
1096                         case 'p':
1097                                 /*
1098                                  * copy-pass mode
1099                                  */
1100                                 act = COPY;
1101                                 break;
1102                         case 'r':
1103                                 /*
1104                                  * interactively rename files
1105                                  */
1106                                 iflag = 1;
1107                                 break;
1108                         case 's':
1109                                 /*
1110                                  * swap bytes after reading data
1111                                  */
1112                                 break;
1113                         case 't':
1114                                 /*
1115                                  * list contents of archive
1116                                  */
1117                                 act = LIST;
1118                                 listf = stdout;
1119                                 break;
1120                         case 'u':
1121                                 /*
1122                                  * replace newer files
1123                                  */
1124                                 kflag = 0;
1125                                 break;
1126                         case 'v':
1127                                 /*
1128                                  * verbose operation mode
1129                                  */
1130                                 vflag = 1;
1131                                 break;
1132                         case 'z':
1133                                 /*
1134                                  * use gzip.  Non standard option.
1135                                  */
1136                                 gzip_program = GZIP_CMD;
1137                                 break;
1138                         case 'A':
1139                                 /*
1140                                  * append mode
1141                                  */
1142                                 act = APPND;
1143                                 break;
1144                         case 'B':
1145                                 /*
1146                                  * Use 5120 byte block size
1147                                  */
1148                                 wrblksz = 5120;
1149                                 break;
1150                         case 'C':
1151                                 /*
1152                                  * set block size in bytes
1153                                  */
1154                                 wrblksz = atoi(optarg);
1155                                 break;
1156                         case 'E':
1157                                 /*
1158                                  * file with patterns to extract or list
1159                                  */
1160                                 if ((fp = fopen(optarg, "r")) == NULL) {
1161                                         paxwarn(1, "Unable to open file '%s' for read", optarg);
1162                                         cpio_usage();
1163                                 }
1164                                 while ((str = get_line(fp)) != NULL) {
1165                                         pat_add(str, NULL);
1166                                 }
1167                                 fclose(fp);
1168                                 if (get_line_error) {
1169                                         paxwarn(1, "Problem with file '%s'", optarg);
1170                                         cpio_usage();
1171                                 }
1172                                 break;
1173                         case 'F':
1174                         case 'I':
1175                         case 'O':
1176                                 /*
1177                                  * filename where the archive is stored
1178                                  */
1179                                 if ((optarg[0] == '-') && (optarg[1]== '\0')) {
1180                                         /*
1181                                          * treat a - as stdin
1182                                          */
1183                                         arcname = NULL;
1184                                         break;
1185                                 }
1186                                 arcname = optarg;
1187                                 break;
1188                         case 'H':
1189                                 /*
1190                                  * specify an archive format on write
1191                                  */
1192                                 tmp.name = optarg;
1193                                 if ((frmt = (FSUB *)bsearch((void *)&tmp, (void *)fsub,
1194                                     sizeof(fsub)/sizeof(FSUB), sizeof(FSUB), c_frmt)) != NULL)
1195                                         break;
1196                                 paxwarn(1, "Unknown -H format: %s", optarg);
1197                                 (void)fputs("cpio: Known -H formats are:", stderr);
1198                                 for (i = 0; i < (sizeof(fsub)/sizeof(FSUB)); ++i)
1199                                         (void)fprintf(stderr, " %s", fsub[i].name);
1200                                 (void)fputs("\n\n", stderr);
1201                                 cpio_usage();
1202                                 break;
1203                         case 'L':
1204                                 /*
1205                                  * follow symbolic links
1206                                  */
1207                                 Lflag = 1;
1208                                 break;
1209                         case 'S':
1210                                 /*
1211                                  * swap halfwords after reading data
1212                                  */
1213                                 break;
1214                         case 'Z':
1215                                 /*
1216                                  * use compress.  Non standard option.
1217                                  */
1218                                 gzip_program = COMPRESS_CMD;
1219                                 break;
1220                         case '6':
1221                                 /*
1222                                  * process Version 6 cpio format
1223                                  */
1224                                 frmt = &(fsub[F_OCPIO]);
1225                                 break;
1226                         case '?':
1227                         default:
1228                                 cpio_usage();
1229                                 break;
1230                 }
1231         argc -= optind;
1232         argv += optind;
1233
1234         /*
1235          * process the args as they are interpreted by the operation mode
1236          */
1237         switch (act) {
1238                 case LIST:
1239                 case EXTRACT:
1240                         while (*argv != NULL)
1241                                 if (pat_add(*argv++, NULL) < 0)
1242                                         cpio_usage();
1243                         break;
1244                 case COPY:
1245                         if (*argv == NULL) {
1246                                 paxwarn(0, "Destination directory was not supplied");
1247                                 cpio_usage();
1248                         }
1249                         dirptr = *argv;
1250                         if (mkpath(dirptr) < 0)
1251                                 cpio_usage();
1252                         --argc;
1253                         ++argv;
1254                         /* FALLTHROUGH */
1255                 case ARCHIVE:
1256                 case APPND:
1257                         if (*argv != NULL)
1258                                 cpio_usage();
1259                         /*
1260                          * no read errors allowed on updates/append operation!
1261                          */
1262                         maxflt = 0;
1263                         while ((str = get_line(stdin)) != NULL) {
1264                                 ftree_add(str, 0);
1265                         }
1266                         if (get_line_error) {
1267                                 paxwarn(1, "Problem while reading stdin");
1268                                 cpio_usage();
1269                         }
1270                         break;
1271                 default:
1272                         cpio_usage();
1273                         break;
1274         }
1275 }
1276
1277 /*
1278  * printflg()
1279  *      print out those invalid flag sets found to the user
1280  */
1281
1282 static void
1283 printflg(unsigned int flg)
1284 {
1285         int nxt;
1286         int pos = 0;
1287
1288         (void)fprintf(stderr,"%s: Invalid combination of options:", argv0);
1289         while ((nxt = ffs(flg)) != 0) {
1290                 flg = flg >> nxt;
1291                 pos += nxt;
1292                 (void)fprintf(stderr, " -%c", flgch[pos-1]);
1293         }
1294         (void)putc('\n', stderr);
1295 }
1296
1297 /*
1298  * c_frmt()
1299  *      comparison routine used by bsearch to find the format specified
1300  *      by the user
1301  */
1302
1303 static int
1304 c_frmt(const void *a, const void *b)
1305 {
1306         return(strcmp(((const FSUB *)a)->name, ((const FSUB *)b)->name));
1307 }
1308
1309 /*
1310  * opt_next()
1311  *      called by format specific options routines to get each format specific
1312  *      flag and value specified with -o
1313  * Return:
1314  *      pointer to next OPLIST entry or NULL (end of list).
1315  */
1316
1317 OPLIST *
1318 opt_next(void)
1319 {
1320         OPLIST *opt;
1321
1322         if ((opt = ophead) != NULL)
1323                 ophead = ophead->fow;
1324         return(opt);
1325 }
1326
1327 /*
1328  * bad_opt()
1329  *      generic routine used to complain about a format specific options
1330  *      when the format does not support options.
1331  */
1332
1333 int
1334 bad_opt(void)
1335 {
1336         OPLIST *opt;
1337
1338         if (ophead == NULL)
1339                 return(0);
1340         /*
1341          * print all we were given
1342          */
1343         paxwarn(1,"These format options are not supported");
1344         while ((opt = opt_next()) != NULL)
1345                 (void)fprintf(stderr, "\t%s = %s\n", opt->name, opt->value);
1346         pax_usage();
1347         return(0);
1348 }
1349
1350 /*
1351  * opt_add()
1352  *      breaks the value supplied to -o into an option name and value. Options
1353  *      are given to -o in the form -o name-value,name=value
1354  *      multiple -o may be specified.
1355  * Return:
1356  *      0 if format in name=value format, -1 if -o is passed junk.
1357  */
1358
1359 int
1360 opt_add(const char *str)
1361 {
1362         OPLIST *opt;
1363         char *frpt;
1364         char *pt;
1365         char *endpt;
1366         char *lstr;
1367
1368         if ((str == NULL) || (*str == '\0')) {
1369                 paxwarn(0, "Invalid option name");
1370                 return(-1);
1371         }
1372         if ((lstr = strdup(str)) == NULL) {
1373                 paxwarn(0, "Unable to allocate space for option list");
1374                 return(-1);
1375         }
1376         frpt = endpt = lstr;
1377
1378         /*
1379          * break into name and values pieces and stuff each one into a
1380          * OPLIST structure. When we know the format, the format specific
1381          * option function will go through this list
1382          */
1383         while ((frpt != NULL) && (*frpt != '\0')) {
1384                 if ((endpt = strchr(frpt, ',')) != NULL)
1385                         *endpt = '\0';
1386                 if ((pt = strchr(frpt, '=')) == NULL) {
1387                         paxwarn(0, "Invalid options format");
1388                         free(lstr);
1389                         return(-1);
1390                 }
1391                 if ((opt = (OPLIST *)malloc(sizeof(OPLIST))) == NULL) {
1392                         paxwarn(0, "Unable to allocate space for option list");
1393                         free(lstr);
1394                         return(-1);
1395                 }
1396                 lstr = NULL;    /* parts of string going onto the OPLIST */
1397                 *pt++ = '\0';
1398                 opt->name = frpt;
1399                 opt->value = pt;
1400                 opt->fow = NULL;
1401                 if (endpt != NULL)
1402                         frpt = endpt + 1;
1403                 else
1404                         frpt = NULL;
1405                 if (ophead == NULL) {
1406                         optail = ophead = opt;
1407                         continue;
1408                 }
1409                 optail->fow = opt;
1410                 optail = opt;
1411         }
1412         free(lstr);
1413         return(0);
1414 }
1415
1416 /*
1417  * str_offt()
1418  *      Convert an expression of the following forms to an off_t > 0.
1419  *      1) A positive decimal number.
1420  *      2) A positive decimal number followed by a b (mult by 512).
1421  *      3) A positive decimal number followed by a k (mult by 1024).
1422  *      4) A positive decimal number followed by a m (mult by 512).
1423  *      5) A positive decimal number followed by a w (mult by sizeof int)
1424  *      6) Two or more positive decimal numbers (with/without k,b or w).
1425  *         separated by x (also * for backwards compatibility), specifying
1426  *         the product of the indicated values.
1427  * Return:
1428  *      0 for an error, a positive value o.w.
1429  */
1430
1431 static off_t
1432 str_offt(char *val)
1433 {
1434         char *expr;
1435         off_t num, t;
1436
1437 #       ifdef NET2_STAT
1438         num = strtol(val, &expr, 0);
1439         if ((num == LONG_MAX) || (num <= 0) || (expr == val))
1440 #       else
1441         num = strtoq(val, &expr, 0);
1442         if ((num == QUAD_MAX) || (num <= 0) || (expr == val))
1443 #       endif
1444                 return(0);
1445
1446         switch(*expr) {
1447         case 'b':
1448                 t = num;
1449                 num *= 512;
1450                 if (t > num)
1451                         return(0);
1452                 ++expr;
1453                 break;
1454         case 'k':
1455                 t = num;
1456                 num *= 1024;
1457                 if (t > num)
1458                         return(0);
1459                 ++expr;
1460                 break;
1461         case 'm':
1462                 t = num;
1463                 num *= 1048576;
1464                 if (t > num)
1465                         return(0);
1466                 ++expr;
1467                 break;
1468         case 'w':
1469                 t = num;
1470                 num *= sizeof(int);
1471                 if (t > num)
1472                         return(0);
1473                 ++expr;
1474                 break;
1475         }
1476
1477         switch(*expr) {
1478                 case '\0':
1479                         break;
1480                 case '*':
1481                 case 'x':
1482                         t = num;
1483                         num *= str_offt(expr + 1);
1484                         if (t > num)
1485                                 return(0);
1486                         break;
1487                 default:
1488                         return(0);
1489         }
1490         return(num);
1491 }
1492
1493 char *
1494 get_line(FILE *f)
1495 {
1496         char *name, *temp;
1497         size_t len;
1498
1499         name = fgetln(f, &len);
1500         if (!name) {
1501                 get_line_error = ferror(f) ? GETLINE_FILE_CORRUPT : 0;
1502                 return(0);
1503         }
1504         if (name[len-1] != '\n')
1505                 len++;
1506         temp = malloc(len);
1507         if (!temp) {
1508                 get_line_error = GETLINE_OUT_OF_MEM;
1509                 return(0);
1510         }
1511         memcpy(temp, name, len-1);
1512         temp[len-1] = 0;
1513         return(temp);
1514 }
1515                         
1516 /*
1517  * no_op()
1518  *      for those option functions where the archive format has nothing to do.
1519  * Return:
1520  *      0
1521  */
1522
1523 static int
1524 no_op(void)
1525 {
1526         return(0);
1527 }
1528
1529 /*
1530  * pax_usage()
1531  *      print the usage summary to the user
1532  */
1533
1534 void
1535 pax_usage(void)
1536 {
1537         (void)fputs("usage: pax [-cdnOvz] [-E limit] [-f archive] ", stderr);
1538         (void)fputs("[-s replstr] ... [-U user] ...", stderr);
1539         (void)fputs("\n    [-G group] ... ", stderr);
1540         (void)fputs("[-T [from_date][,to_date]] ... ", stderr);
1541         (void)fputs("[pattern ...]\n", stderr);
1542         (void)fputs("       pax -r [-cdiknOuvzDYZ] [-E limit] ", stderr);
1543         (void)fputs("[-f archive] [-o options] ... \n", stderr);
1544         (void)fputs("      [-p string] ... [-s replstr] ... ", stderr);
1545         (void)fputs("[-U user] ... [-G group] ...\n        ", stderr);
1546         (void)fputs("[-T [from_date][,to_date]] ... ", stderr);
1547         (void)fputs(" [pattern ...]\n", stderr);
1548         (void)fputs("       pax -w [-dituvzHLOPX] [-b blocksize] ", stderr);
1549         (void)fputs("[ [-a] [-f archive] ] [-x format] \n", stderr);
1550         (void)fputs("      [-B bytes] [-s replstr] ... ", stderr);
1551         (void)fputs("[-o options] ... [-U user] ...", stderr);
1552         (void)fputs("\n    [-G group] ... ", stderr);
1553         (void)fputs("[-T [from_date][,to_date][/[c][m]]] ... ", stderr);
1554         (void)fputs("[file ...]\n", stderr);
1555         (void)fputs("       pax -r -w [-diklntuvDHLOPXYZ] ", stderr);
1556         (void)fputs("[-p string] ... [-s replstr] ...", stderr);
1557         (void)fputs("\n    [-U user] ... [-G group] ... ", stderr);
1558         (void)fputs("[-T [from_date][,to_date][/[c][m]]] ... ", stderr);
1559         (void)fputs("\n    [file ...] directory\n", stderr);
1560         exit(1);
1561 }
1562
1563 /*
1564  * tar_usage()
1565  *      print the usage summary to the user
1566  */
1567
1568 void
1569 tar_usage(void)
1570 {
1571         (void)fputs("usage: tar [-]{crtux}[-befhjmopqsvwyzHLOPXZ014578] [blocksize] ",
1572                  stderr);
1573         (void)fputs("[archive] [replstr] [-C directory] [-I file] [file ...]\n",
1574             stderr);
1575         exit(1);
1576 }
1577
1578 /*
1579  * cpio_usage()
1580  *      print the usage summary to the user
1581  */
1582
1583 void
1584 cpio_usage(void)
1585 {
1586         (void)fputs("usage: cpio -o [-aABcLvVzZ] [-C bytes] [-H format] [-O archive]\n", stderr);
1587         (void)fputs("               [-F archive] < name-list [> archive]\n", stderr);
1588         (void)fputs("       cpio -i [-bBcdfmnrsStuvVzZ6] [-C bytes] [-E file] [-H format]\n", stderr);
1589         (void)fputs("               [-I archive] [-F archive] [pattern...] [< archive]\n", stderr);
1590         (void)fputs("       cpio -p [-adlLmuvV] destination-directory < name-list\n", stderr);
1591         exit(1);
1592 }