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