xref: /titanic_50/usr/src/lib/libbc/libc/gen/common/getsubopt.c (revision c77a61a72b5ecdc507d6cf104142edd371a16c84)
1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License, Version 1.0 only
6  * (the "License").  You may not use this file except in compliance
7  * with the License.
8  *
9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10  * or http://www.opensolaris.org/os/licensing.
11  * See the License for the specific language governing permissions
12  * and limitations under the License.
13  *
14  * When distributing Covered Code, include this CDDL HEADER in each
15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16  * If applicable, add the following below this CDDL HEADER, with the
17  * fields enclosed by brackets "[]" replaced with your own identifying
18  * information: Portions Copyright [yyyy] [name of copyright owner]
19  *
20  * CDDL HEADER END
21  */
22 /*
23  * Copyright 1990 Sun Microsystems, Inc.  All rights reserved.
24  * Use is subject to license terms.
25  */
26 
27 #pragma ident	"%Z%%M%	%I%	%E% SMI"
28 	  /* created from scratch */
29 
30 /*
31  * getsubopt - parse suboptions from a flag argument.
32  */
33 #include <string.h>
34 #include <stdio.h>
35 
36 int
37 getsubopt(optionsp, tokens, valuep)
38 	char **optionsp;
39 	char *tokens[];
40 	char **valuep;
41 {
42 	register char *s = *optionsp, *p;
43 	register int i, optlen;
44 
45 	*valuep = NULL;
46 	if (*s == '\0')
47 		return (-1);
48 	p = strchr(s, ',');		/* find next option */
49 	if (p == NULL) {
50 		p = s + strlen(s);
51 	} else {
52 		*p++ = '\0';		/* mark end and point to next */
53 	}
54 	*optionsp = p;			/* point to next option */
55 	p = strchr(s, '=');		/* find value */
56 	if (p == NULL) {
57 		optlen = strlen(s);
58 		*valuep = NULL;
59 	} else {
60 		optlen = p - s;
61 		*valuep = ++p;
62 	}
63 	for (i = 0; tokens[i] != NULL; i++) {
64 		if ((optlen == strlen(tokens[i])) &&
65 		    (strncmp(s, tokens[i], optlen) == 0))
66 			return (i);
67 	}
68 	/* no match, point value at option and return error */
69 	*valuep = s;
70 	return (-1);
71 }
72 
73