ares_getopt.c

   1 /*
   2  * Original file name getopt.c  Initial import into the c-ares source tree
   3  * on 2007-04-11.  Lifted from version 5.2 of the 'Open Mash' project with
   4  * the modified BSD license, BSD license without the advertising clause.
   5  *
   6  * $Id$
   7  */
   8
   9 /*
  10  * getopt.c --
  11  *
  12  *      Standard UNIX getopt function.  Code is from BSD.
  13  *
  14  * Copyright (c) 1987-2001 The Regents of the University of California.
  15  * All rights reserved.
  16  *
  17  * Redistribution and use in source and binary forms, with or without
  18  * modification, are permitted provided that the following conditions are met:
  19  *
  20  * A. Redistributions of source code must retain the above copyright notice,
  21  *    this list of conditions and the following disclaimer.
  22  * B. Redistributions in binary form must reproduce the above copyright notice,
  23  *    this list of conditions and the following disclaimer in the documentation
  24  *    and/or other materials provided with the distribution.
  25  * C. Neither the names of the copyright holders nor the names of its
  26  *    contributors may be used to endorse or promote products derived from this
  27  *    software without specific prior written permission.
  28  *
  29  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS
  30  * IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
  31  * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  32  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE
  33  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  34  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  35  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  36  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  37  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  38  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  39  * POSSIBILITY OF SUCH DAMAGE.
  40  */
  41
  42 /* #if !defined(lint)
  43  * static char sccsid[] = "@(#)getopt.c 8.2 (Berkeley) 4/2/94";
  44  * #endif
  45  */
  46
  47 #include <stdio.h>
  48 #include <stdlib.h>
  49 #include <string.h>
  50
  51 /* declarations to provide consistent linkage */
  52 extern char *optarg;
  53 extern int optind;
  54 extern int opterr;
  55
  56 int   opterr = 1,     /* if error message should be printed */
  57       optind = 1,     /* index into parent argv vector */
  58       optopt,         /* character checked for validity */
  59       optreset;       /* reset getopt */
  60 char  *optarg;        /* argument associated with option */
  61
  62 #define  BADCH   (int)'?'
  63 #define  BADARG  (int)':'
  64 #define  EMSG    ""
  65
  66 /*
  67  * getopt --
  68  *    Parse argc/argv argument vector.
  69  */
  70 int
  71 getopt(nargc, nargv, ostr)
  72     int nargc;
  73     char * const *nargv;
  74     const char *ostr;
  75 {
  76     static char *place = EMSG;                /* option letter processing */
  77     char *oli;                                /* option letter list index */
  78
  79     if (optreset || !*place) {                /* update scanning pointer */
  80         optreset = 0;
  81         if (optind >= nargc || *(place = nargv[optind]) != '-') {
  82             place = EMSG;
  83             return (EOF);
  84         }
  85         if (place[1] && *++place == '-') {    /* found "--" */
  86             ++optind;
  87             place = EMSG;
  88             return (EOF);
  89         }
  90     }                                         /* option letter okay? */
  91     if ((optopt = (int)*place++) == (int)':' ||
  92         !(oli = strchr(ostr, optopt))) {
  93         /*
  94          * if the user didn't specify '-' as an option,
  95          * assume it means EOF.
  96          */
  97         if (optopt == (int)'-')
  98             return (EOF);
  99         if (!*place)
 100             ++optind;
 101         if (opterr && *ostr != ':')
 102             (void)fprintf(stderr,
 103                 "%s: illegal option -- %c\n", __FILE__, optopt);
 104         return (BADCH);
 105     }
 106     if (*++oli != ':') {                      /* don't need argument */
 107         optarg = NULL;
 108         if (!*place)
 109             ++optind;
 110     }
 111     else {                                    /* need an argument */
 112         if (*place)                           /* no white space */
 113             optarg = place;
 114         else if (nargc <= ++optind) {         /* no arg */
 115             place = EMSG;
 116             if (*ostr == ':')
 117                 return (BADARG);
 118             if (opterr)
 119                 (void)fprintf(stderr,
 120                     "%s: option requires an argument -- %c\n",
 121                     __FILE__, optopt);
 122             return (BADCH);
 123         }
 124          else                                 /* white space */
 125             optarg = nargv[optind];
 126         place = EMSG;
 127         ++optind;
 128     }
 129     return (optopt);                          /* dump back option letter */
 130 }