compiler/posixc/getopt.c

   1 /* File imported from FreeBSD source into AROS */
   2
   3 /*
   4  * Copyright (c) 1987, 1993, 1994
   5  *      The Regents of the University of California.  All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  * 3. All advertising materials mentioning features or use of this software
  16  *    must display the following acknowledgement:
  17  *      This product includes software developed by the University of
  18  *      California, Berkeley and its contributors.
  19  * 4. 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 #include <stdio.h>
  37 #include <stdlib.h>
  38 #include <string.h>
  39
  40 int     opterr = 1,             /* if error message should be printed */
  41         optind = 1,             /* index into parent argv vector */
  42         optopt,                 /* character checked for validity */
  43         optreset;               /* reset getopt */
  44 char    *optarg;                /* argument associated with option */
  45
  46 #define BADCH   (int)'?'
  47 #define BADARG  (int)':'
  48 #define EMSG    ""
  49
  50 /*
  51  * getopt --
  52  *      Parse argc/argv argument vector.
  53  */
  54
  55 /*****************************************************************************
  56
  57     NAME */
  58 #include <unistd.h>
  59
  60         int getopt(
  61
  62 /*  SYNOPSIS */
  63         int nargc,
  64         char * const nargv[],
  65         const char *ostr)
  66
  67 /*  FUNCTION
  68
  69     INPUTS
  70
  71     RESULT
  72
  73     NOTES
  74         Due to the usage of global variables this function is now put in
  75         the static link library. This means each compilation unit using
  76         getopt has its own getopt state tracking.
  77
  78     EXAMPLE
  79
  80     BUGS
  81
  82     SEE ALSO
  83         getopt_long()
  84
  85     INTERNALS
  86
  87 ******************************************************************************/
  88 {
  89     static char *place = EMSG;          /* option letter processing */
  90     char *oli;                          /* option letter list index */
  91
  92     if (optreset || *place == 0)
  93     {
  94         /* update scanning pointer */
  95         optreset = 0;
  96         place = nargv[optind];
  97         if (optind >= nargc || *place++ != '-')
  98         {
  99             /* Argument is absent or is not an option */
 100             place = EMSG;
 101             return (-1);
 102         }
 103         optopt = *place++;
 104         if (optopt == '-' && *place == 0)
 105         {
 106             /* "--" => end of options */
 107             ++optind;
 108             place = EMSG;
 109             return (-1);
 110         }
 111         if (optopt == 0)
 112         {
 113             /* Solitary '-', treat as a '-' option
 114              if the program (eg su) is looking for it. */
 115             place = EMSG;
 116             if (strchr(ostr, '-') == NULL)
 117                 return (-1);
 118             optopt = '-';
 119         }
 120     }
 121     else
 122         optopt = *place++;
 123
 124     /* See if option letter is one the caller wanted... */
 125     if (optopt == ':' || (oli = strchr(ostr, optopt)) == NULL)
 126     {
 127         if (*place == 0)
 128             ++optind;
 129         if (opterr && *ostr != ':')
 130             fprintf(stderr,
 131                     "%s: illegal option -- %c\n", nargv[0],
 132                     optopt
 133             );
 134         return (BADCH);
 135     }
 136
 137     /* Does this option need an argument? */
 138     if (oli[1] != ':')
 139     {
 140         /* don't need argument */
 141         optarg = NULL;
 142         if (*place == 0)
 143             ++optind;
 144     }
 145     else
 146     {
 147         /* Option-argument is either the rest of this argument or the
 148            entire next argument. */
 149         if (*place)
 150             optarg = place;
 151         else if (nargc > ++optind)
 152             optarg = nargv[optind];
 153         else
 154         {
 155             /* option-argument absent */
 156             place = EMSG;
 157             if (*ostr == ':')
 158                 return (BADARG);
 159             if (opterr)
 160                 (void)fprintf(stderr,
 161                               "%s: option requires an argument -- %c\n",
 162                               nargv[0], optopt
 163                 );
 164             return (BADCH);
 165         }
 166         place = EMSG;
 167         ++optind;
 168     }
 169     return (optopt);                    /* return option letter */
 170 }
 171