mj2/compat/getopt.c

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