home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / prog / c / gcctools.lha / ar / ar.c < prev    next >
C/C++ Source or Header  |  1992-04-20  |  7KB  |  239 lines
  1. /*-
  2.  * Copyright (c) 1990 The Regents of the University of California.
  3.  * All rights reserved.
  4.  *
  5.  * This code is derived from software contributed to Berkeley by
  6.  * Hugh Smith at The University of Guelph.
  7.  *
  8.  * Redistribution and use in source and binary forms, with or without
  9.  * modification, are permitted provided that the following conditions
  10.  * are met:
  11.  * 1. Redistributions of source code must retain the above copyright
  12.  *    notice, this list of conditions and the following disclaimer.
  13.  * 2. Redistributions in binary form must reproduce the above copyright
  14.  *    notice, this list of conditions and the following disclaimer in the
  15.  *    documentation and/or other materials provided with the distribution.
  16.  * 3. All advertising materials mentioning features or use of this software
  17.  *    must display the following acknowledgement:
  18.  *    This product includes software developed by the University of
  19.  *    California, Berkeley and its contributors.
  20.  * 4. Neither the name of the University nor the names of its contributors
  21.  *    may be used to endorse or promote products derived from this software
  22.  *    without specific prior written permission.
  23.  *
  24.  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  25.  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  26.  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  27.  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  28.  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  29.  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  30.  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  31.  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  32.  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  33.  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  34.  * SUCH DAMAGE.
  35.  */
  36.  
  37. #ifndef lint
  38. char copyright[] =
  39. "@(#) Copyright (c) 1990 The Regents of the University of California.\n\
  40.  All rights reserved.\n";
  41. #endif /* not lint */
  42.  
  43. #ifndef lint
  44. static char sccsid[] = "@(#)ar.c    5.11 (Berkeley) 3/21/91";
  45. #endif /* not lint */
  46.  
  47. #include <sys/param.h>
  48. #include <sys/errno.h>
  49. #include <dirent.h>
  50. #include <stdio.h>
  51. #include <ar.h>
  52. #include <string.h>
  53. #include <stdlib.h>
  54. #include <paths.h>
  55. #include "archive.h"
  56. #include "extern.h"
  57.  
  58. CHDR chdr;
  59. u_int options;
  60. char *archive, *envtmp, *posarg, *posname;
  61. static void badoptions(), usage();
  62.  
  63. /*
  64.  * main --
  65.  *    main basically uses getopt to parse options and calls the appropriate
  66.  *    functions.  Some hacks that let us be backward compatible with 4.3 ar
  67.  *    option parsing and sanity checking.
  68.  */
  69. main(argc, argv)
  70.     int argc;
  71.     char **argv;
  72. {
  73.     extern int optind;
  74.     int c;
  75.     char *p;
  76.     int (*fcall)(), append(), contents(), delete(), extract(),
  77.         move(), print(), replace();
  78.  
  79.     if (argc < 3)
  80.         usage();
  81.  
  82.     /*
  83.      * Historic versions didn't require a '-' in front of the options.
  84.      * Fix it, if necessary.
  85.     */
  86.     if (*argv[1] != '-') {
  87.         if (!(p = malloc((u_int)(strlen(argv[1]) + 2)))) {
  88.             (void)fprintf(stderr, "ar: %s.\n", strerror(errno));
  89.             exit(1);
  90.         }
  91.         *p = '-';
  92.         (void)strcpy(p + 1, argv[1]);
  93.         argv[1] = p;
  94.     }
  95.  
  96.     while ((c = getopt(argc, argv, "abcdilmopqrTtuvx")) != EOF) {
  97.         switch(c) {
  98.         case 'a':
  99.             options |= AR_A;
  100.             break;
  101.         case 'b':
  102.         case 'i':
  103.             options |= AR_B;
  104.             break;
  105.         case 'c':
  106.             options |= AR_C;
  107.             break;
  108.         case 'd':
  109.             options |= AR_D;
  110.             fcall = delete;
  111.             break;
  112.         case 'l':        /* not documented, compatibility only */
  113.             envtmp = ".";
  114.             break;
  115.         case 'm':
  116.             options |= AR_M;
  117.             fcall = move;
  118.             break;
  119.         case 'o':
  120.             options |= AR_O;
  121.             break;
  122.         case 'p':
  123.             options |= AR_P;
  124.             fcall = print;
  125.             break;
  126.         case 'q':
  127.             options |= AR_Q;
  128.             fcall = append;
  129.             break;
  130.         case 'r':
  131.             options |= AR_R;
  132.             fcall = replace;
  133.             break;
  134.         case 'T':
  135.             options |= AR_TR;
  136.             break;
  137.         case 't':
  138.             options |= AR_T;
  139.             fcall = contents;
  140.             break;
  141.         case 'u':
  142.             options |= AR_U;
  143.             break;
  144.         case 'v':
  145.             options |= AR_V;
  146.             break;
  147.         case 'x':
  148.             options |= AR_X;
  149.             fcall = extract;
  150.             break;
  151.         default:
  152.             usage();
  153.         }
  154.     }
  155.  
  156.     argv += optind;
  157.     argc -= optind;
  158.  
  159.     /* One of -dmpqrtx required. */
  160.     if (!(options & (AR_D|AR_M|AR_P|AR_Q|AR_R|AR_T|AR_X))) {
  161.         (void)fprintf(stderr,
  162.             "ar: one of options -dmpqrtx is required.\n");
  163.         usage();
  164.     }
  165.     /* Only one of -a and -bi allowed. */
  166.     if (options & AR_A && options & AR_B) {
  167.         (void)fprintf(stderr,
  168.             "ar: only one of -a and -[bi] options allowed.\n");
  169.         usage();
  170.     }
  171.     /* -ab require a position argument. */
  172.     if (options & (AR_A|AR_B)) {
  173.         if (!(posarg = *argv++)) {
  174.             (void)fprintf(stderr,
  175.                 "ar: no position operand specified.\n");
  176.             usage();
  177.         }
  178.         posname = rname(posarg);
  179.     }
  180.     /* -d only valid with -Tv. */
  181.     if (options & AR_D && options & ~(AR_D|AR_TR|AR_V))
  182.         badoptions("-d");
  183.     /* -m only valid with -abiTv. */
  184.     if (options & AR_M && options & ~(AR_A|AR_B|AR_M|AR_TR|AR_V))
  185.         badoptions("-m");
  186.     /* -p only valid with -Tv. */
  187.     if (options & AR_P && options & ~(AR_P|AR_TR|AR_V))
  188.         badoptions("-p");
  189.     /* -q only valid with -cTv. */
  190.     if (options & AR_Q && options & ~(AR_C|AR_Q|AR_TR|AR_V))
  191.         badoptions("-q");
  192.     /* -r only valid with -abcuTv. */
  193.     if (options & AR_R && options & ~(AR_A|AR_B|AR_C|AR_R|AR_U|AR_TR|AR_V))
  194.         badoptions("-r");
  195.     /* -t only valid with -Tv. */
  196.     if (options & AR_T && options & ~(AR_T|AR_TR|AR_V))
  197.         badoptions("-t");
  198.     /* -x only valid with -ouTv. */
  199.     if (options & AR_X && options & ~(AR_O|AR_U|AR_TR|AR_V|AR_X))
  200.         badoptions("-x");
  201.  
  202.     if (!(archive = *argv++)) {
  203.         (void)fprintf(stderr, "ar: no archive specified.\n");
  204.         usage();
  205.     }
  206.  
  207.     /* -dmqr require a list of archive elements. */
  208.     if (options & (AR_D|AR_M|AR_Q|AR_R) && !*argv) {
  209.         (void)fprintf(stderr, "ar: no archive members specified.\n");
  210.         usage();
  211.     }
  212.  
  213.     exit((*fcall)(argv));
  214. }
  215.  
  216. static void
  217. badoptions(arg)
  218.     char *arg;
  219. {
  220.     (void)fprintf(stderr,
  221.         "ar: illegal option combination for %s.\n", arg);
  222.     usage();
  223. }
  224.  
  225. static void
  226. usage()
  227. {
  228.     (void)fprintf(stderr, "usage:  ar -d [-Tv] archive file ...\n");
  229.     (void)fprintf(stderr, "\tar -m [-Tv] archive file ...\n");
  230.     (void)fprintf(stderr, "\tar -m [-abiTv] position archive file ...\n");
  231.     (void)fprintf(stderr, "\tar -p [-Tv] archive [file ...]\n");
  232.     (void)fprintf(stderr, "\tar -q [-cTv] archive file ...\n");
  233.     (void)fprintf(stderr, "\tar -r [-cuTv] archive file ...\n");
  234.     (void)fprintf(stderr, "\tar -r [-abciuTv] position archive file ...\n");
  235.     (void)fprintf(stderr, "\tar -t [-Tv] archive [file ...]\n");
  236.     (void)fprintf(stderr, "\tar -x [-ouTv] archive [file ...]\n");
  237.     exit(1);
  238. }    
  239.