mpack_src/mpack-1.6-4/getopt.c

/* (C) Copyright 1993,1994 by Carnegie Mellon University
 * All Rights Reserved.
 *
 * Permission to use, copy, modify, distribute, and sell this software
 * and its documentation for any purpose is hereby granted without
 * fee, provided that the above copyright notice appear in all copies
 * and that both that copyright notice and this permission notice
 * appear in supporting documentation, and that the name of Carnegie
 * Mellon University not be used in advertising or publicity
 * pertaining to distribution of the software without specific,
 * written prior permission.  Carnegie Mellon University makes no
 * representations about the suitability of this software for any
 * purpose.  It is provided "as is" without express or implied
 * warranty.
 *
 * CARNEGIE MELLON UNIVERSITY DISCLAIMS ALL WARRANTIES WITH REGARD TO
 * THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
 * AND FITNESS, IN NO EVENT SHALL CARNEGIE MELLON UNIVERSITY BE LIABLE
 * FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN
 * AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
 * OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
 * SOFTWARE.
 */
#include <stdio.h>

#ifdef __OS2__ 
# include <io.h>
#endif

#if defined(__MSDOS__) || defined(__OS2__)
#define ERR(s, c)                                       \
    if (opterr) {                                       \
        char buff[3];                                   \
        buff[0] = c; buff[1] = '\r'; buff[2] = '\n';    \
        (void)write(2, av[0], strlen(av[0]));           \
        (void)write(2, s, strlen(s));                   \
        (void)write(2, buff, 3);                        \
    }
#else /* __MSDOS__ */
#define ERR(s, c)                                       \
    if (opterr) {                                       \
        char buff[2];                                   \
        buff[0] = c; buff[1] = '\n';                    \
        (void)write(2, av[0], strlen(av[0]));           \
        (void)write(2, s, strlen(s));                   \
        (void)write(2, buff, 2);                        \
    }
#endif

int     opterr = 1;
int     optind = 1;
int     optopt;
char    *optarg;


/*
**  Return options and their values from the command line.
**  This comes from the AT&T public-domain getopt published in mod.sources
**  (i.e., comp.sources.unix before the great Usenet renaming).
*/
int
getopt(int ac, char **av, char *opts)
{
    extern char *strchr(const char *, int);
    static int  i = 1;
    char        *p;

    /* Move to next value from argv? */
    if (i == 1) {
        if (optind >= ac ||
#if defined(__MSDOS__) || defined(__OS2__)
            (av[optind][0] != '-' && av[optind][0] != '/')
#else
            av[optind][0] != '-'
#endif
            || av[optind][1] == '\0')
            return EOF;
        if (strcmp(av[optind], "--") == 0) {
            optind++;
            return EOF;
        }
    }

    /* Get next option character. */
    if ((optopt = av[optind][i]) == ':'
     || (p = strchr(opts,  optopt)) == NULL) {
        ERR(": illegal option -- ", optopt);
        if (av[optind][++i] == '\0') {
            optind++;
            i = 1;
        }
        return '?';
    }

    /* Snarf argument? */
    if (*++p == ':') {
        if (av[optind][i + 1] != '\0')
            optarg = &av[optind++][i + 1];
        else {
            if (++optind >= ac) {
                ERR(": option requires an argument -- ", optopt);
                i = 1;
                return '?';
            }
            optarg = av[optind++];
        }
        i = 1;
    }
    else {
        if (av[optind][++i] == '\0') {
            i = 1;
            optind++;
        }
        optarg = NULL;
    }

    return optopt;
}
1	jmc	1.1	/* (C) Copyright 1993,1994 by Carnegie Mellon University
2			* All Rights Reserved.
3			*
4			* Permission to use, copy, modify, distribute, and sell this software
5			* and its documentation for any purpose is hereby granted without
6			* fee, provided that the above copyright notice appear in all copies
7			* and that both that copyright notice and this permission notice
8			* appear in supporting documentation, and that the name of Carnegie
9			* Mellon University not be used in advertising or publicity
10			* pertaining to distribution of the software without specific,
11			* written prior permission. Carnegie Mellon University makes no
12			* representations about the suitability of this software for any
13			* purpose. It is provided "as is" without express or implied
14			* warranty.
15			*
16			* CARNEGIE MELLON UNIVERSITY DISCLAIMS ALL WARRANTIES WITH REGARD TO
17			* THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
18			* AND FITNESS, IN NO EVENT SHALL CARNEGIE MELLON UNIVERSITY BE LIABLE
19			* FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
20			* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN
21			* AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
22			* OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
23			* SOFTWARE.
24			*/
25			#include <stdio.h>
26
27			#ifdef __OS2__
28			# include <io.h>
29			#endif
30
31			#if defined(__MSDOS__) \|\| defined(__OS2__)
32			#define ERR(s, c) \
33			if (opterr) { \
34			char buff[3]; \
35			buff[0] = c; buff[1] = '\r'; buff[2] = '\n'; \
36			(void)write(2, av[0], strlen(av[0])); \
37			(void)write(2, s, strlen(s)); \
38			(void)write(2, buff, 3); \
39			}
40			#else /* __MSDOS__ */
41			#define ERR(s, c) \
42			if (opterr) { \
43			char buff[2]; \
44			buff[0] = c; buff[1] = '\n'; \
45			(void)write(2, av[0], strlen(av[0])); \
46			(void)write(2, s, strlen(s)); \
47			(void)write(2, buff, 2); \
48			}
49			#endif
50
51			int opterr = 1;
52			int optind = 1;
53			int optopt;
54			char *optarg;
55
56
57			/*
58			** Return options and their values from the command line.
59			** This comes from the AT&T public-domain getopt published in mod.sources
60			** (i.e., comp.sources.unix before the great Usenet renaming).
61			*/
62			int
63			getopt(int ac, char *av, char opts)
64			{
65			extern char strchr(const char , int);
66			static int i = 1;
67			char *p;
68
69			/* Move to next value from argv? */
70			if (i == 1) {
71			if (optind >= ac \|\|
72			#if defined(__MSDOS__) \|\| defined(__OS2__)
73			(av[optind][0] != '-' && av[optind][0] != '/')
74			#else
75			av[optind][0] != '-'
76			#endif
77			\|\| av[optind][1] == '\0')
78			return EOF;
79			if (strcmp(av[optind], "--") == 0) {
80			optind++;
81			return EOF;
82			}
83			}
84
85			/* Get next option character. */
86			if ((optopt = av[optind][i]) == ':'
87			\|\| (p = strchr(opts, optopt)) == NULL) {
88			ERR(": illegal option -- ", optopt);
89			if (av[optind][++i] == '\0') {
90			optind++;
91			i = 1;
92			}
93			return '?';
94			}
95
96			/* Snarf argument? */
97			if (*++p == ':') {
98			if (av[optind][i + 1] != '\0')
99			optarg = &av[optind++][i + 1];
100			else {
101			if (++optind >= ac) {
102			ERR(": option requires an argument -- ", optopt);
103			i = 1;
104			return '?';
105			}
106			optarg = av[optind++];
107			}
108			i = 1;
109			}
110			else {
111			if (av[optind][++i] == '\0') {
112			i = 1;
113			optind++;
114			}
115			optarg = NULL;
116			}
117
118			return optopt;
119			}