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 #include "ares_getopt.h"
  51
  52 int   opterr = 1,     /* if error message should be printed */
  53       optind = 1,     /* index into parent argv vector */
  54       optopt,         /* character checked for validity */
  55       optreset;       /* reset getopt */
  56 char  *optarg;        /* argument associated with option */
  57
  58 #define  BADCH   (int)'?'
  59 #define  BADARG  (int)':'
  60 #define  EMSG    (char *)""
  61
  62 /*
  63  * ares_getopt --
  64  *    Parse argc/argv argument vector.
  65  */
  66 int
  67 ares_getopt(int nargc, char * const nargv[], const char *ostr)
  68 {
  69     static char *place = EMSG;                /* option letter processing */
  70     char *oli;                                /* option letter list index */
  71
  72     if (optreset || !*place) {                /* update scanning pointer */
  73         optreset = 0;
  74         if (optind >= nargc || *(place = nargv[optind]) != '-') {
  75             place = EMSG;
  76             return (EOF);
  77         }
  78         if (place[1] && *++place == '-') {    /* found "--" */
  79             ++optind;
  80             place = EMSG;
  81             return (EOF);
  82         }
  83     }                                         /* option letter okay? */
  84     if ((optopt = (int)*place++) == (int)':' ||
  85         (oli = strchr(ostr, optopt)) == NULL) {
  86         /*
  87          * if the user didn't specify '-' as an option,
  88          * assume it means EOF.
  89          */
  90         if (optopt == (int)'-')
  91             return (EOF);
  92         if (!*place)
  93             ++optind;
  94         if (opterr && *ostr != ':')
  95             (void)fprintf(stderr,
  96                 "%s: illegal option -- %c\n", __FILE__, optopt);
  97         return (BADCH);
  98     }
  99     if (*++oli != ':') {                      /* don't need argument */
 100         optarg = NULL;
 101         if (!*place)
 102             ++optind;
 103     }
 104     else {                                    /* need an argument */
 105         if (*place)                           /* no white space */
 106             optarg = place;
 107         else if (nargc <= ++optind) {         /* no arg */
 108             place = EMSG;
 109             if (*ostr == ':')
 110                 return (BADARG);
 111             if (opterr)
 112                 (void)fprintf(stderr,
 113                     "%s: option requires an argument -- %c\n",
 114                     __FILE__, optopt);
 115             return (BADCH);
 116         }
 117          else                                 /* white space */
 118             optarg = nargv[optind];
 119         place = EMSG;
 120         ++optind;
 121     }
 122     return (optopt);                          /* dump back option letter */
 123 }