]> Creatis software - gdcm.git/blob - src/gdcmopenjpeg/codec/compat/getopt.c
ENH: Huge update to openjpeg 1.0 (actually more CVS)...
[gdcm.git] / 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