xref: /titanic_51/usr/src/lib/libbc/libc/gen/common/getopt.c (revision 37714ae43602c675f9dc59b070bfdf9fa702872c)
1 /*
2  * Copyright 1989 Sun Microsystems, Inc.  All rights reserved.
3  * Use is subject to license terms.
4  */
5 
6 /*
7  * Copyright (c) 1987 Regents of the University of California.
8  * All rights reserved.
9  *
10  * Redistribution and use in source and binary forms are permitted
11  * provided that the above copyright notice and this paragraph are
12  * duplicated in all such forms and that any documentation,
13  * advertising materials, and other materials related to such
14  * distribution and use acknowledge that the software was developed
15  * by the University of California, Berkeley.  The name of the
16  * University may not be used to endorse or promote products derived
17  * from this software without specific prior written permission.
18  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
19  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
20  * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
21  */
22 
23 #pragma ident	"%Z%%M%	%I%	%E% SMI"
24 
25 
26 /* LINTLIBRARY */
27 
28 #include <stdio.h>
29 #include <string.h>
30 
31 /*
32  * get option letter from argument vector
33  */
34 /* See lib/libc/gen/common/optind.c for next 3 definitions. */
35 extern char	*optarg;	/* argument associated with option */
36 extern int	opterr;		/* if error message should be printed */
37 extern int	optind;		/* index into parent argv vector */
38 int		optopt;		/* character checked for validity */
39 
40 
41 #define	BADCH	(int)'?'
42 #define	EMSG	""
43 
44 int
45 getopt(int nargc, char **nargv, char *ostr)
46 {
47 	static char *place = EMSG;		/* option letter processing */
48 	char *oli;			/* option letter list index */
49 	char *p;
50 
51 	if (!*place) {				/* update scanning pointer */
52 		if (optind >= nargc || *(place = nargv[optind]) != '-') {
53 			place = EMSG;
54 			return (EOF);
55 		}
56 		if (place[1] && *++place == '-') {	/* found "--" */
57 			++optind;
58 			place = EMSG;
59 			return (EOF);
60 		}
61 	}					/* option letter okay? */
62 	if ((optopt = (int)*place++) == (int)':' ||
63 	    !(oli = strchr(ostr, optopt))) {
64 
65 		/*
66 		 * For backwards compatibility: don't treat '-' as an
67 		 * option letter unless caller explicitly asked for it.
68 		 */
69 		if (optopt == (int)'-')
70 			return (EOF);
71 		if (!*place)
72 			++optind;
73 		if (opterr) {
74 			if (!(p = strrchr(*nargv, '/')))
75 				p = *nargv;
76 			else
77 				++p;
78 			(void)fprintf(stderr, "%s: illegal option -- %c\n",
79 			    p, optopt);
80 		}
81 		return (BADCH);
82 	}
83 	if (*++oli != ':') {			/* don't need argument */
84 		optarg = NULL;
85 		if (!*place)
86 			++optind;
87 	} else {				/* need an argument */
88 		if (*place)			/* no white space */
89 			optarg = place;
90 		else if (nargc <= ++optind) {	/* no arg */
91 			place = EMSG;
92 			if (!(p = strrchr(*nargv, '/')))
93 				p = *nargv;
94 			else
95 				++p;
96 			if (opterr)
97 				(void)fprintf(stderr,
98 				    "%s: option requires an argument -- %c\n",
99 				    p, optopt);
100 			return (BADCH);
101 		} else				/* white space */
102 			optarg = nargv[optind];
103 		place = EMSG;
104 		++optind;
105 	}
106 	return (optopt);			/* dump back option letter */
107 }
108