/*- * Copyright (c) 1990 The Regents of the University of California. * All rights reserved. * * This code is derived from software contributed to Berkeley by * Hugh Smith at The University of Guelph. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by the University of * California, Berkeley and its contributors. * 4. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #if defined(DOSCCS) && !defined(lint) char copyright[] = "@(#) Copyright (c) 1990 The Regents of the University of California.\n\ All rights reserved.\n"; static char sccsid[] = "@(#)ar.c 5.11 (Berkeley) 3/21/91"; #endif #include #include #include #include #include #include #include #include "archive.h" #include "extern.h" extern char *malloc(); extern int errno; CHDR chdr; u_int options; char *archive, *envtmp, *posarg, *posname; static void badoptions(), usage(); /* * main -- * main basically uses getopt to parse options and calls the appropriate * functions. Some hacks that let us be backward compatible with 4.3 ar * option parsing and sanity checking. */ main(argc, argv) int argc; char **argv; { extern int optind; int c; char *p; int (*fcall)(), append(), contents(), delete(), extract(), move(), print(), replace(); if (argc < 3) usage(); /* * Historic versions didn't require a '-' in front of the options. * Fix it, if necessary. */ if (*argv[1] != '-') { if (!(p = malloc((u_int)(strlen(argv[1]) + 2)))) { (void)fprintf(stderr, "ar: %s.\n", strerror(errno)); exit(1); } *p = '-'; (void)strcpy(p + 1, argv[1]); argv[1] = p; } while ((c = getopt(argc, argv, "abcdilmopqrTtuvx")) != EOF) { switch(c) { case 'a': options |= AR_A; break; case 'b': case 'i': options |= AR_B; break; case 'c': options |= AR_C; break; case 'd': options |= AR_D; fcall = delete; break; case 'l': /* not documented, compatibility only */ envtmp = "."; break; case 'm': options |= AR_M; fcall = move; break; case 'o': options |= AR_O; break; case 'p': options |= AR_P; fcall = print; break; case 'q': options |= AR_Q; fcall = append; break; case 'r': options |= AR_R; fcall = replace; break; case 'T': options |= AR_TR; break; case 't': options |= AR_T; fcall = contents; break; case 'u': options |= AR_U; break; case 'v': options |= AR_V; break; case 'x': options |= AR_X; fcall = extract; break; default: usage(); } } argv += optind; argc -= optind; /* One of -dmpqrtx required. */ if (!(options & (AR_D|AR_M|AR_P|AR_Q|AR_R|AR_T|AR_X))) { (void)fprintf(stderr, "ar: one of options -dmpqrtx is required.\n"); usage(); } /* Only one of -a and -bi allowed. */ if (options & AR_A && options & AR_B) { (void)fprintf(stderr, "ar: only one of -a and -[bi] options allowed.\n"); usage(); } /* -ab require a position argument. */ if (options & (AR_A|AR_B)) { if (!(posarg = *argv++)) { (void)fprintf(stderr, "ar: no position operand specified.\n"); usage(); } posname = rname(posarg); } /* -d only valid with -Tv. */ if (options & AR_D && options & ~(AR_D|AR_TR|AR_V)) badoptions("-d"); /* -m only valid with -abiTv. */ if (options & AR_M && options & ~(AR_A|AR_B|AR_M|AR_TR|AR_V)) badoptions("-m"); /* -p only valid with -Tv. */ if (options & AR_P && options & ~(AR_P|AR_TR|AR_V)) badoptions("-p"); /* -q only valid with -cTv. */ if (options & AR_Q && options & ~(AR_C|AR_Q|AR_TR|AR_V)) badoptions("-q"); /* -r only valid with -abcuTv. */ if (options & AR_R && options & ~(AR_A|AR_B|AR_C|AR_R|AR_U|AR_TR|AR_V)) badoptions("-r"); /* -t only valid with -Tv. */ if (options & AR_T && options & ~(AR_T|AR_TR|AR_V)) badoptions("-t"); /* -x only valid with -ouTv. */ if (options & AR_X && options & ~(AR_O|AR_U|AR_TR|AR_V|AR_X)) badoptions("-x"); if (!(archive = *argv++)) { (void)fprintf(stderr, "ar: no archive specified.\n"); usage(); } /* -dmqr require a list of archive elements. */ if (options & (AR_D|AR_M|AR_Q|AR_R) && !*argv) { (void)fprintf(stderr, "ar: no archive members specified.\n"); usage(); } exit((*fcall)(argv)); } static void badoptions(arg) char *arg; { (void)fprintf(stderr, "ar: illegal option combination for %s.\n", arg); usage(); } static void usage() { (void)fprintf(stderr, "usage: ar -d [-Tv] archive file ...\n"); (void)fprintf(stderr, "\tar -m [-Tv] archive file ...\n"); (void)fprintf(stderr, "\tar -m [-abiTv] position archive file ...\n"); (void)fprintf(stderr, "\tar -p [-Tv] archive [file ...]\n"); (void)fprintf(stderr, "\tar -q [-cTv] archive file ...\n"); (void)fprintf(stderr, "\tar -r [-cuTv] archive file ...\n"); (void)fprintf(stderr, "\tar -r [-abciuTv] position archive file ...\n"); (void)fprintf(stderr, "\tar -t [-Tv] archive [file ...]\n"); (void)fprintf(stderr, "\tar -x [-ouTv] archive [file ...]\n"); exit(1); }