src/gdcmopenjpeg/codec/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(int nargc, char *const *nargv, const char *ostr) {\r
  59 #  define __progname nargv[0]\r
  60   static char *place = EMSG;  /* option letter processing */\r
  61   char *oli;      /* option letter list index */\r
  62 \r
  63   if (optreset || !*place) {  /* update scanning pointer */\r
  64     optreset = 0;\r
  65     if (optind >= nargc || *(place = nargv[optind]) != '-') {\r
  66       place = EMSG;\r
  67       return (-1);\r
  68     }\r
  69     if (place[1] && *++place == '-') {  /* found "--" */\r
  70       ++optind;\r
  71       place = EMSG;\r
  72       return (-1);\r
  73     }\r
  74   }        /* option letter okay? */\r
  75   if ((optopt = (int) *place++) == (int) ':' ||\r
  76       !(oli = strchr(ostr, optopt))) {\r
  77     /*\r
  78      * if the user didn't specify '-' as an option,\r
  79      * assume it means -1.\r
  80      */\r
  81     if (optopt == (int) '-')\r
  82       return (-1);\r
  83     if (!*place)\r
  84       ++optind;\r
  85     if (opterr && *ostr != ':')\r
  86       (void) fprintf(stderr,\r
  87          "%s: illegal option -- %c\n", __progname, optopt);\r
  88     return (BADCH);\r
  89   }\r
  90   if (*++oli != ':') {    /* don't need argument */\r
  91     optarg = NULL;\r
  92     if (!*place)\r
  93       ++optind;\r
  94   } else {      /* need an argument */\r
  95     if (*place)      /* no white space */\r
  96       optarg = place;\r
  97     else if (nargc <= ++optind) {  /* no arg */\r
  98       place = EMSG;\r
  99       if (*ostr == ':')\r
 100   return (BADARG);\r
 101       if (opterr)\r
 102   (void) fprintf(stderr,\r
 103            "%s: option requires an argument -- %c\n",\r
 104            __progname, optopt);\r
 105       return (BADCH);\r
 106     } else      /* white space */\r
 107       optarg = nargv[optind];\r
 108     place = EMSG;\r
 109     ++optind;\r
 110   }\r
 111   return (optopt);    /* dump back option letter */\r
 112 }\r