11573Srgrimes/*- 21573Srgrimes * Copyright (c) 1990, 1993 31573Srgrimes * The Regents of the University of California. All rights reserved. 41573Srgrimes * 51573Srgrimes * Redistribution and use in source and binary forms, with or without 61573Srgrimes * modification, are permitted provided that the following conditions 71573Srgrimes * are met: 81573Srgrimes * 1. Redistributions of source code must retain the above copyright 91573Srgrimes * notice, this list of conditions and the following disclaimer. 101573Srgrimes * 2. Redistributions in binary form must reproduce the above copyright 111573Srgrimes * notice, this list of conditions and the following disclaimer in the 121573Srgrimes * documentation and/or other materials provided with the distribution. 13251069Semaste * 3. Neither the name of the University nor the names of its contributors 141573Srgrimes * may be used to endorse or promote products derived from this software 151573Srgrimes * without specific prior written permission. 161573Srgrimes * 171573Srgrimes * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 181573Srgrimes * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 191573Srgrimes * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 201573Srgrimes * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 211573Srgrimes * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 221573Srgrimes * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 231573Srgrimes * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 241573Srgrimes * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 251573Srgrimes * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 261573Srgrimes * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 271573Srgrimes * SUCH DAMAGE. 281573Srgrimes */ 291573Srgrimes 3092889Sobrien#if defined(LIBC_SCCS) && !defined(lint) 311573Srgrimesstatic char sccsid[] = "@(#)getsubopt.c 8.1 (Berkeley) 6/4/93"; 3292889Sobrien#endif /* LIBC_SCCS and not lint */ 3392889Sobrien#include <sys/cdefs.h> 3492889Sobrien__FBSDID("$FreeBSD$"); 351573Srgrimes 36108623Stjr#include <stdlib.h> 37108623Stjr#include <string.h> 381573Srgrimes 391573Srgrimes/* 401573Srgrimes * The SVID interface to getsubopt provides no way of figuring out which 411573Srgrimes * part of the suboptions list wasn't matched. This makes error messages 421573Srgrimes * tricky... The extern variable suboptarg is a pointer to the token 431573Srgrimes * which didn't match. 441573Srgrimes */ 451573Srgrimeschar *suboptarg; 461573Srgrimes 4717141Sjkhint 48260618Sdelphijgetsubopt(char **optionp, char * const *tokens, char **valuep) 491573Srgrimes{ 5092889Sobrien int cnt; 5192889Sobrien char *p; 521573Srgrimes 531573Srgrimes suboptarg = *valuep = NULL; 541573Srgrimes 551573Srgrimes if (!optionp || !*optionp) 561573Srgrimes return(-1); 571573Srgrimes 581573Srgrimes /* skip leading white-space, commas */ 591573Srgrimes for (p = *optionp; *p && (*p == ',' || *p == ' ' || *p == '\t'); ++p); 601573Srgrimes 611573Srgrimes if (!*p) { 621573Srgrimes *optionp = p; 631573Srgrimes return(-1); 641573Srgrimes } 651573Srgrimes 661573Srgrimes /* save the start of the token, and skip the rest of the token. */ 671573Srgrimes for (suboptarg = p; 681573Srgrimes *++p && *p != ',' && *p != '=' && *p != ' ' && *p != '\t';); 691573Srgrimes 701573Srgrimes if (*p) { 711573Srgrimes /* 721573Srgrimes * If there's an equals sign, set the value pointer, and 731573Srgrimes * skip over the value part of the token. Terminate the 741573Srgrimes * token. 751573Srgrimes */ 761573Srgrimes if (*p == '=') { 771573Srgrimes *p = '\0'; 781573Srgrimes for (*valuep = ++p; 791573Srgrimes *p && *p != ',' && *p != ' ' && *p != '\t'; ++p); 808870Srgrimes if (*p) 811573Srgrimes *p++ = '\0'; 821573Srgrimes } else 831573Srgrimes *p++ = '\0'; 841573Srgrimes /* Skip any whitespace or commas after this token. */ 851573Srgrimes for (; *p && (*p == ',' || *p == ' ' || *p == '\t'); ++p); 861573Srgrimes } 871573Srgrimes 881573Srgrimes /* set optionp for next round. */ 891573Srgrimes *optionp = p; 901573Srgrimes 911573Srgrimes for (cnt = 0; *tokens; ++tokens, ++cnt) 921573Srgrimes if (!strcmp(suboptarg, *tokens)) 931573Srgrimes return(cnt); 941573Srgrimes return(-1); 951573Srgrimes} 96