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 <sys/cdefs.h>
  37
  38 #include <stdio.h>
  39 #include <stdlib.h>
  40 #include <string.h>
  41
  42 int     opterr = 1,             /* if error message should be printed */
  43         optind = 1,             /* index into parent argv vector */
  44         optopt,                 /* character checked for validity */
  45         optreset;               /* reset getopt */
  46 char    *optarg;                /* argument associated with option */
  47
  48 #define BADCH   (int)'?'
  49 #define BADARG  (int)':'
  50 #define EMSG    ""
  51
  52 /*
  53  * getopt --
  54  *      Parse argc/argv argument vector.
  55  */
  56
  57 /*****************************************************************************
  58
  59     NAME */
  60 #include <unistd.h>
  61
  62         int getopt(
  63
  64 /*  SYNOPSIS */
  65         int nargc,
  66         char * const nargv[],
  67         const char *ostr)
  68
  69 /*  FUNCTION
  70
  71     INPUTS
  72
  73     RESULT
  74
  75     NOTES
  76         Due to the usage of global variables this function is now put in
  77         the static link library. This means each compilation unit using
  78         getopt_long has it's own getopt_long state tracking.
  79
  80     EXAMPLE
  81
  82     BUGS
  83
  84     SEE ALSO
  85         getopt_long()
  86
  87     INTERNALS
  88
  89 ******************************************************************************/
  90 {
  91     static char *place = EMSG;          /* option letter processing */
  92     char *oli;                          /* option letter list index */
  93
  94     if (optreset || *place == 0)
  95     {
  96         /* update scanning pointer */
  97         optreset = 0;
  98         place = nargv[optind];
  99         if (optind >= nargc || *place++ != '-')
 100         {
 101             /* Argument is absent or is not an option */
 102             place = EMSG;
 103             return (-1);
 104         }
 105         optopt = *place++;
 106         if (optopt == '-' && *place == 0)
 107         {
 108             /* "--" => end of options */
 109             ++optind;
 110             place = EMSG;
 111             return (-1);
 112         }
 113         if (optopt == 0)
 114         {
 115             /* Solitary '-', treat as a '-' option
 116              if the program (eg su) is looking for it. */
 117             place = EMSG;
 118             if (strchr(ostr, '-') == NULL)
 119                 return (-1);
 120             optopt = '-';
 121         }
 122     }
 123     else
 124         optopt = *place++;
 125
 126     /* See if option letter is one the caller wanted... */
 127     if (optopt == ':' || (oli = strchr(ostr, optopt)) == NULL)
 128     {
 129         if (*place == 0)
 130             ++optind;
 131         if (opterr && *ostr != ':')
 132             fprintf(stderr,
 133                     "%s: illegal option -- %c\n", nargv[0],
 134                     optopt
 135             );
 136         return (BADCH);
 137     }
 138
 139     /* Does this option need an argument? */
 140     if (oli[1] != ':')
 141     {
 142         /* don't need argument */
 143         optarg = NULL;
 144         if (*place == 0)
 145             ++optind;
 146     }
 147     else
 148     {
 149         /* Option-argument is either the rest of this argument or the
 150            entire next argument. */
 151         if (*place)
 152             optarg = place;
 153         else if (nargc > ++optind)
 154             optarg = nargv[optind];
 155         else
 156         {
 157             /* option-argument absent */
 158             place = EMSG;
 159             if (*ostr == ':')
 160                 return (BADARG);
 161             if (opterr)
 162                 (void)fprintf(stderr,
 163                               "%s: option requires an argument -- %c\n",
 164                               nargv[0], optopt
 165                 );
 166             return (BADCH);
 167         }
 168         place = EMSG;
 169         ++optind;
 170     }
 171     return (optopt);                    /* return option letter */
 172 }
 173