Home | History | Annotate | Line # | Download | only in stdlib
getopt_long.c revision 1.9
      1  1.9       wiz /*	$NetBSD: getopt_long.c,v 1.9 2000/11/26 23:39:11 wiz Exp $	*/
      2  1.4  christos 
      3  1.4  christos /*-
      4  1.4  christos  * Copyright (c) 2000 The NetBSD Foundation, Inc.
      5  1.4  christos  * All rights reserved.
      6  1.4  christos  *
      7  1.4  christos  * This code is derived from software contributed to The NetBSD Foundation
      8  1.4  christos  * by Dieter Baron and Thomas Klausner.
      9  1.1       mcr  *
     10  1.1       mcr  * Redistribution and use in source and binary forms, with or without
     11  1.1       mcr  * modification, are permitted provided that the following conditions
     12  1.1       mcr  * are met:
     13  1.1       mcr  * 1. Redistributions of source code must retain the above copyright
     14  1.1       mcr  *    notice, this list of conditions and the following disclaimer.
     15  1.1       mcr  * 2. Redistributions in binary form must reproduce the above copyright
     16  1.1       mcr  *    notice, this list of conditions and the following disclaimer in the
     17  1.1       mcr  *    documentation and/or other materials provided with the distribution.
     18  1.1       mcr  * 3. All advertising materials mentioning features or use of this software
     19  1.1       mcr  *    must display the following acknowledgement:
     20  1.4  christos  *        This product includes software developed by the NetBSD
     21  1.4  christos  *        Foundation, Inc. and its contributors.
     22  1.4  christos  * 4. Neither the name of The NetBSD Foundation nor the names of its
     23  1.4  christos  *    contributors may be used to endorse or promote products derived
     24  1.4  christos  *    from this software without specific prior written permission.
     25  1.1       mcr  *
     26  1.4  christos  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
     27  1.4  christos  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
     28  1.4  christos  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     29  1.4  christos  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
     30  1.4  christos  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     31  1.4  christos  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     32  1.4  christos  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
     33  1.4  christos  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
     34  1.4  christos  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     35  1.4  christos  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     36  1.4  christos  * POSSIBILITY OF SUCH DAMAGE.
     37  1.1       mcr  */
     38  1.1       mcr 
     39  1.2     lukem #include <sys/cdefs.h>
     40  1.4  christos #if defined(LIBC_SCCS) && !defined(lint)
     41  1.9       wiz __RCSID("$NetBSD: getopt_long.c,v 1.9 2000/11/26 23:39:11 wiz Exp $");
     42  1.4  christos #endif /* LIBC_SCCS and not lint */
     43  1.2     lukem 
     44  1.5  christos #include "namespace.h"
     45  1.5  christos 
     46  1.2     lukem #include <assert.h>
     47  1.2     lukem #include <errno.h>
     48  1.4  christos #include <err.h>
     49  1.1       mcr #include <stdlib.h>
     50  1.1       mcr #include <string.h>
     51  1.5  christos #include <getopt.h>
     52  1.4  christos 
     53  1.4  christos #ifdef REPLACE_GETOPT
     54  1.4  christos #ifdef __weak_alias
     55  1.4  christos __weak_alias(getopt,_getopt)
     56  1.4  christos #endif
     57  1.4  christos int	opterr = 1;		/* if error message should be printed */
     58  1.4  christos int	optind = 1;		/* index into parent argv vector */
     59  1.4  christos int	optopt = '?';		/* character checked for validity */
     60  1.4  christos int	optreset;		/* reset getopt */
     61  1.4  christos char    *optarg;		/* argument associated with option */
     62  1.4  christos #endif
     63  1.1       mcr 
     64  1.4  christos #ifdef __weak_alias
     65  1.4  christos __weak_alias(getopt_long,_getopt_long)
     66  1.4  christos #endif
     67  1.2     lukem 
     68  1.2     lukem 
     69  1.4  christos #define IGNORE_FIRST	(*options == '-' || *options == '+')
     70  1.4  christos #define PRINT_ERROR	((opterr) && ((*options != ':') \
     71  1.4  christos 				      || (IGNORE_FIRST && options[1] != ':')))
     72  1.4  christos #define IS_POSIXLY_CORRECT (getenv("POSIXLY_CORRECT") != NULL)
     73  1.4  christos #define PERMUTE         (!IS_POSIXLY_CORRECT && !IGNORE_FIRST)
     74  1.4  christos /* XXX: GNU ignores PC if *options == '-' */
     75  1.4  christos #define IN_ORDER        (!IS_POSIXLY_CORRECT && *options == '-')
     76  1.1       mcr 
     77  1.4  christos /* return values */
     78  1.1       mcr #define	BADCH	(int)'?'
     79  1.9       wiz #define	BADARG		((IGNORE_FIRST && options[1] == ':') \
     80  1.9       wiz 			 || (*options == ':') ? (int)':' : (int)'?')
     81  1.4  christos #define INORDER (int)1
     82  1.4  christos 
     83  1.1       mcr #define	EMSG	""
     84  1.1       mcr 
     85  1.4  christos static int getopt_internal __P((int, char * const *, const char *));
     86  1.4  christos static int gcd __P((int, int));
     87  1.4  christos static void permute_args __P((int, int, int, char * const *));
     88  1.4  christos 
     89  1.4  christos static char *place = EMSG; /* option letter processing */
     90  1.4  christos 
     91  1.4  christos /* XXX: set optreset to 1 rather than these two */
     92  1.4  christos static int nonopt_start = -1; /* first non option argument (for permute) */
     93  1.4  christos static int nonopt_end = -1;   /* first option after non options (for permute) */
     94  1.4  christos 
     95  1.4  christos /* Error messages */
     96  1.6   nathanw static const char recargchar[] = "option requires an argument -- %c";
     97  1.6   nathanw static const char recargstring[] = "option requires an argument -- %s";
     98  1.4  christos static const char ambig[] = "ambiguous option -- %.*s";
     99  1.4  christos static const char noarg[] = "option doesn't take an argument -- %.*s";
    100  1.6   nathanw static const char illoptchar[] = "illegal option -- %c";
    101  1.6   nathanw static const char illoptstring[] = "illegal option -- %s";
    102  1.4  christos 
    103  1.4  christos 
    104  1.4  christos extern char *__progname;
    105  1.4  christos 
    106  1.1       mcr /*
    107  1.4  christos  * Compute the greatest common divisor of a and b.
    108  1.4  christos  */
    109  1.4  christos static int
    110  1.4  christos gcd(a, b)
    111  1.4  christos 	int a;
    112  1.4  christos 	int b;
    113  1.4  christos {
    114  1.4  christos 	int c;
    115  1.4  christos 
    116  1.4  christos 	c = a % b;
    117  1.4  christos 	while (c != 0) {
    118  1.4  christos 		a = b;
    119  1.4  christos 		b = c;
    120  1.4  christos 		c = a % b;
    121  1.4  christos 	}
    122  1.4  christos 
    123  1.4  christos 	return b;
    124  1.4  christos }
    125  1.4  christos 
    126  1.4  christos /*
    127  1.4  christos  * Exchange the block from nonopt_start to nonopt_end with the block
    128  1.4  christos  * from nonopt_end to opt_end (keeping the same order of arguments
    129  1.4  christos  * in each block).
    130  1.4  christos  */
    131  1.4  christos static void
    132  1.4  christos permute_args(nonopt_start, nonopt_end, opt_end, nargv)
    133  1.4  christos 	int nonopt_start;
    134  1.4  christos 	int nonopt_end;
    135  1.4  christos 	int opt_end;
    136  1.4  christos 	char * const *nargv;
    137  1.4  christos {
    138  1.4  christos 	int cstart, cyclelen, i, j, ncycle, nnonopts, nopts, pos;
    139  1.4  christos 	char *swap;
    140  1.4  christos 
    141  1.4  christos 	/*
    142  1.4  christos 	 * compute lengths of blocks and number and size of cycles
    143  1.4  christos 	 */
    144  1.4  christos 	nnonopts = nonopt_end - nonopt_start;
    145  1.4  christos 	nopts = opt_end - nonopt_end;
    146  1.4  christos 	ncycle = gcd(nnonopts, nopts);
    147  1.4  christos 	cyclelen = (opt_end - nonopt_start) / ncycle;
    148  1.4  christos 
    149  1.4  christos 	for (i = 0; i < ncycle; i++) {
    150  1.4  christos 		cstart = nonopt_end+i;
    151  1.4  christos 		pos = cstart;
    152  1.4  christos 		for (j = 0; j < cyclelen; j++) {
    153  1.4  christos 			if (pos >= nonopt_end)
    154  1.4  christos 				pos -= nnonopts;
    155  1.4  christos 			else
    156  1.4  christos 				pos += nopts;
    157  1.4  christos 			swap = nargv[pos];
    158  1.4  christos 			/* LINTED const cast */
    159  1.4  christos 			((char **) nargv)[pos] = nargv[cstart];
    160  1.4  christos 			/* LINTED const cast */
    161  1.4  christos 			((char **)nargv)[cstart] = swap;
    162  1.4  christos 		}
    163  1.4  christos 	}
    164  1.4  christos }
    165  1.4  christos 
    166  1.4  christos /*
    167  1.4  christos  * getopt_internal --
    168  1.4  christos  *	Parse argc/argv argument vector.  Called by user level routines.
    169  1.4  christos  *  Returns -2 if -- is found (can be long option or end of options marker).
    170  1.1       mcr  */
    171  1.4  christos static int
    172  1.4  christos getopt_internal(nargc, nargv, options)
    173  1.1       mcr 	int nargc;
    174  1.1       mcr 	char * const *nargv;
    175  1.4  christos 	const char *options;
    176  1.1       mcr {
    177  1.1       mcr 	char *oli;				/* option letter list index */
    178  1.4  christos 	int optchar;
    179  1.1       mcr 
    180  1.2     lukem 	_DIAGASSERT(nargv != NULL);
    181  1.4  christos 	_DIAGASSERT(options != NULL);
    182  1.4  christos 
    183  1.4  christos 	optarg = NULL;
    184  1.8   thorpej 
    185  1.8   thorpej 	/*
    186  1.8   thorpej 	 * XXX Some programs (like rsyncd) expect to be able to
    187  1.8   thorpej 	 * XXX re-initialize optind to 0 and have getopt_long(3)
    188  1.8   thorpej 	 * XXX properly function again.  Work around this braindamage.
    189  1.8   thorpej 	 */
    190  1.8   thorpej 	if (optind == 0)
    191  1.8   thorpej 		optind = 1;
    192  1.2     lukem 
    193  1.4  christos 	if (optreset)
    194  1.4  christos 		nonopt_start = nonopt_end = -1;
    195  1.4  christos start:
    196  1.1       mcr 	if (optreset || !*place) {		/* update scanning pointer */
    197  1.1       mcr 		optreset = 0;
    198  1.4  christos 		if (optind >= nargc) {          /* end of argument vector */
    199  1.4  christos 			place = EMSG;
    200  1.4  christos 			if (nonopt_end != -1) {
    201  1.4  christos 				/* do permutation, if we have to */
    202  1.4  christos 				permute_args(nonopt_start, nonopt_end,
    203  1.4  christos 				    optind, nargv);
    204  1.4  christos 				optind -= nonopt_end - nonopt_start;
    205  1.4  christos 			}
    206  1.4  christos 			else if (nonopt_start != -1) {
    207  1.4  christos 				/*
    208  1.4  christos 				 * If we skipped non-options, set optind
    209  1.4  christos 				 * to the first of them.
    210  1.4  christos 				 */
    211  1.4  christos 				optind = nonopt_start;
    212  1.4  christos 			}
    213  1.4  christos 			nonopt_start = nonopt_end = -1;
    214  1.4  christos 			return -1;
    215  1.4  christos 		}
    216  1.9       wiz 		if ((*(place = nargv[optind]) != '-')
    217  1.9       wiz 		    || (place[1] == '\0')) {    /* found non-option */
    218  1.1       mcr 			place = EMSG;
    219  1.4  christos 			if (IN_ORDER) {
    220  1.4  christos 				/*
    221  1.4  christos 				 * GNU extension:
    222  1.4  christos 				 * return non-option as argument to option 1
    223  1.4  christos 				 */
    224  1.4  christos 				optarg = nargv[optind++];
    225  1.4  christos 				return INORDER;
    226  1.4  christos 			}
    227  1.4  christos 			if (!PERMUTE) {
    228  1.4  christos 				/*
    229  1.4  christos 				 * if no permutation wanted, stop parsing
    230  1.4  christos 				 * at first non-option
    231  1.4  christos 				 */
    232  1.4  christos 				return -1;
    233  1.4  christos 			}
    234  1.4  christos 			/* do permutation */
    235  1.4  christos 			if (nonopt_start == -1)
    236  1.4  christos 				nonopt_start = optind;
    237  1.4  christos 			else if (nonopt_end != -1) {
    238  1.4  christos 				permute_args(nonopt_start, nonopt_end,
    239  1.4  christos 				    optind, nargv);
    240  1.4  christos 				nonopt_start = optind -
    241  1.4  christos 				    (nonopt_end - nonopt_start);
    242  1.4  christos 				nonopt_end = -1;
    243  1.4  christos 			}
    244  1.4  christos 			optind++;
    245  1.4  christos 			/* process next argument */
    246  1.4  christos 			goto start;
    247  1.1       mcr 		}
    248  1.4  christos 		if (nonopt_start != -1 && nonopt_end == -1)
    249  1.4  christos 			nonopt_end = optind;
    250  1.1       mcr 		if (place[1] && *++place == '-') {	/* found "--" */
    251  1.4  christos 			place++;
    252  1.4  christos 			return -2;
    253  1.4  christos 		}
    254  1.4  christos 	}
    255  1.4  christos 	if ((optchar = (int)*place++) == (int)':' ||
    256  1.4  christos 	    (oli = strchr(options + (IGNORE_FIRST ? 1 : 0), optchar)) == NULL) {
    257  1.4  christos 		/* option letter unknown or ':' */
    258  1.4  christos 		if (!*place)
    259  1.4  christos 			++optind;
    260  1.4  christos 		if (PRINT_ERROR)
    261  1.6   nathanw 			warnx(illoptchar, optchar);
    262  1.4  christos 		optopt = optchar;
    263  1.4  christos 		return BADCH;
    264  1.4  christos 	}
    265  1.4  christos 	if (optchar == 'W' && oli[1] == ';') {		/* -W long-option */
    266  1.4  christos 		/* XXX: what if no long options provided (called by getopt)? */
    267  1.4  christos 		if (*place)
    268  1.4  christos 			return -2;
    269  1.4  christos 
    270  1.4  christos 		if (++optind >= nargc) {	/* no arg */
    271  1.1       mcr 			place = EMSG;
    272  1.4  christos 			if (PRINT_ERROR)
    273  1.6   nathanw 				warnx(recargchar, optchar);
    274  1.4  christos 			optopt = optchar;
    275  1.4  christos 			return BADARG;
    276  1.4  christos 		} else				/* white space */
    277  1.4  christos 			place = nargv[optind];
    278  1.1       mcr 		/*
    279  1.4  christos 		 * Handle -W arg the same as --arg (which causes getopt to
    280  1.4  christos 		 * stop parsing).
    281  1.1       mcr 		 */
    282  1.4  christos 		return -2;
    283  1.4  christos 	}
    284  1.4  christos 	if (*++oli != ':') {			/* doesn't take argument */
    285  1.1       mcr 		if (!*place)
    286  1.1       mcr 			++optind;
    287  1.4  christos 	} else {				/* takes (optional) argument */
    288  1.1       mcr 		optarg = NULL;
    289  1.1       mcr 		if (*place)			/* no white space */
    290  1.1       mcr 			optarg = place;
    291  1.4  christos 		/* XXX: disable test for :: if PC? (GNU doesn't) */
    292  1.4  christos 		else if (oli[1] != ':') {	/* arg not optional */
    293  1.4  christos 			if (++optind >= nargc) {	/* no arg */
    294  1.4  christos 				place = EMSG;
    295  1.4  christos 				if (PRINT_ERROR)
    296  1.6   nathanw 					warnx(recargchar, optchar);
    297  1.4  christos 				optopt = optchar;
    298  1.4  christos 				return BADARG;
    299  1.4  christos 			} else
    300  1.4  christos 				optarg = nargv[optind];
    301  1.4  christos 		}
    302  1.1       mcr 		place = EMSG;
    303  1.1       mcr 		++optind;
    304  1.1       mcr 	}
    305  1.4  christos 	/* dump back option letter */
    306  1.4  christos 	return optchar;
    307  1.1       mcr }
    308  1.1       mcr 
    309  1.4  christos #ifdef REPLACE_GETOPT
    310  1.1       mcr /*
    311  1.1       mcr  * getopt --
    312  1.1       mcr  *	Parse argc/argv argument vector.
    313  1.4  christos  *
    314  1.4  christos  * [eventually this will replace the real getopt]
    315  1.1       mcr  */
    316  1.1       mcr int
    317  1.4  christos getopt(nargc, nargv, options)
    318  1.1       mcr 	int nargc;
    319  1.1       mcr 	char * const *nargv;
    320  1.4  christos 	const char *options;
    321  1.1       mcr {
    322  1.1       mcr 	int retval;
    323  1.1       mcr 
    324  1.4  christos 	if ((retval = getopt_internal(nargc, nargv, options)) == -2) {
    325  1.4  christos 		++optind;
    326  1.4  christos 		/*
    327  1.4  christos 		 * We found an option (--), so if we skipped non-options,
    328  1.4  christos 		 * we have to permute.
    329  1.4  christos 		 */
    330  1.4  christos 		if (nonopt_end != -1) {
    331  1.4  christos 			permute_args(nonopt_start, nonopt_end, optind,
    332  1.4  christos 				       nargv);
    333  1.4  christos 			optind -= nonopt_end - nonopt_start;
    334  1.4  christos 		}
    335  1.4  christos 		nonopt_start = nonopt_end = -1;
    336  1.1       mcr 		retval = -1;
    337  1.1       mcr 	}
    338  1.4  christos 	return retval;
    339  1.1       mcr }
    340  1.1       mcr #endif
    341  1.1       mcr 
    342  1.1       mcr /*
    343  1.1       mcr  * getopt_long --
    344  1.1       mcr  *	Parse argc/argv argument vector.
    345  1.1       mcr  */
    346  1.1       mcr int
    347  1.4  christos getopt_long(nargc, nargv, options, long_options, idx)
    348  1.2     lukem 	int nargc;
    349  1.4  christos 	char * const *nargv;
    350  1.4  christos 	const char *options;
    351  1.4  christos 	const struct option *long_options;
    352  1.4  christos 	int *idx;
    353  1.1       mcr {
    354  1.1       mcr 	int retval;
    355  1.1       mcr 
    356  1.2     lukem 	_DIAGASSERT(nargv != NULL);
    357  1.4  christos 	_DIAGASSERT(options != NULL);
    358  1.2     lukem 	_DIAGASSERT(long_options != NULL);
    359  1.4  christos 	/* idx may be NULL */
    360  1.2     lukem 
    361  1.1       mcr 	if ((retval = getopt_internal(nargc, nargv, options)) == -2) {
    362  1.4  christos 		char *current_argv, *has_equal;
    363  1.4  christos 		size_t current_argv_len;
    364  1.4  christos 		int i, match;
    365  1.1       mcr 
    366  1.4  christos 		current_argv = place;
    367  1.4  christos 		match = -1;
    368  1.4  christos 
    369  1.4  christos 		optind++;
    370  1.4  christos 		place = EMSG;
    371  1.4  christos 
    372  1.4  christos 		if (*current_argv == '\0') {		/* found "--" */
    373  1.4  christos 			/*
    374  1.4  christos 			 * We found an option (--), so if we skipped
    375  1.4  christos 			 * non-options, we have to permute.
    376  1.4  christos 			 */
    377  1.4  christos 			if (nonopt_end != -1) {
    378  1.4  christos 				permute_args(nonopt_start, nonopt_end,
    379  1.4  christos 				    optind, nargv);
    380  1.4  christos 				optind -= nonopt_end - nonopt_start;
    381  1.4  christos 			}
    382  1.4  christos 			nonopt_start = nonopt_end = -1;
    383  1.4  christos 			return -1;
    384  1.1       mcr 		}
    385  1.1       mcr 		if ((has_equal = strchr(current_argv, '=')) != NULL) {
    386  1.4  christos 			/* argument found (--option=arg) */
    387  1.1       mcr 			current_argv_len = has_equal - current_argv;
    388  1.1       mcr 			has_equal++;
    389  1.1       mcr 		} else
    390  1.1       mcr 			current_argv_len = strlen(current_argv);
    391  1.4  christos 
    392  1.4  christos 		for (i = 0; long_options[i].name; i++) {
    393  1.4  christos 			/* find matching long option */
    394  1.4  christos 			if (strncmp(current_argv, long_options[i].name,
    395  1.4  christos 			    current_argv_len))
    396  1.1       mcr 				continue;
    397  1.1       mcr 
    398  1.4  christos 			if (strlen(long_options[i].name) ==
    399  1.4  christos 			    (unsigned)current_argv_len) {
    400  1.4  christos 				/* exact match */
    401  1.1       mcr 				match = i;
    402  1.1       mcr 				break;
    403  1.1       mcr 			}
    404  1.4  christos 			if (match == -1)		/* partial match */
    405  1.1       mcr 				match = i;
    406  1.4  christos 			else {
    407  1.4  christos 				/* ambiguous abbreviation */
    408  1.4  christos 				if (PRINT_ERROR)
    409  1.7  sommerfe 					warnx(ambig, (int)current_argv_len,
    410  1.4  christos 					     current_argv);
    411  1.4  christos 				optopt = 0;
    412  1.4  christos 				return BADCH;
    413  1.4  christos 			}
    414  1.1       mcr 		}
    415  1.4  christos 		if (match != -1) {			/* option found */
    416  1.4  christos 		        if (long_options[match].has_arg == no_argument
    417  1.4  christos 			    && has_equal) {
    418  1.4  christos 				if (PRINT_ERROR)
    419  1.7  sommerfe 					warnx(noarg, (int)current_argv_len,
    420  1.4  christos 					     current_argv);
    421  1.4  christos 				/*
    422  1.4  christos 				 * XXX: GNU sets optopt to val regardless of
    423  1.4  christos 				 * flag
    424  1.4  christos 				 */
    425  1.4  christos 				if (long_options[match].flag == NULL)
    426  1.4  christos 					optopt = long_options[match].val;
    427  1.4  christos 				else
    428  1.4  christos 					optopt = 0;
    429  1.4  christos 				return BADARG;
    430  1.4  christos 			}
    431  1.1       mcr 			if (long_options[match].has_arg == required_argument ||
    432  1.1       mcr 			    long_options[match].has_arg == optional_argument) {
    433  1.1       mcr 				if (has_equal)
    434  1.1       mcr 					optarg = has_equal;
    435  1.4  christos 				else if (long_options[match].has_arg ==
    436  1.4  christos 				    required_argument) {
    437  1.4  christos 					/*
    438  1.4  christos 					 * optional argument doesn't use
    439  1.4  christos 					 * next nargv
    440  1.4  christos 					 */
    441  1.1       mcr 					optarg = nargv[optind++];
    442  1.4  christos 				}
    443  1.1       mcr 			}
    444  1.1       mcr 			if ((long_options[match].has_arg == required_argument)
    445  1.1       mcr 			    && (optarg == NULL)) {
    446  1.1       mcr 				/*
    447  1.4  christos 				 * Missing argument; leading ':'
    448  1.1       mcr 				 * indicates no error should be generated
    449  1.1       mcr 				 */
    450  1.4  christos 				if (PRINT_ERROR)
    451  1.6   nathanw 					warnx(recargstring, current_argv);
    452  1.4  christos 				/*
    453  1.4  christos 				 * XXX: GNU sets optopt to val regardless
    454  1.4  christos 				 * of flag
    455  1.4  christos 				 */
    456  1.4  christos 				if (long_options[match].flag == NULL)
    457  1.4  christos 					optopt = long_options[match].val;
    458  1.4  christos 				else
    459  1.4  christos 					optopt = 0;
    460  1.4  christos 				--optind;
    461  1.4  christos 				return BADARG;
    462  1.4  christos 			}
    463  1.4  christos 		} else {			/* unknown option */
    464  1.4  christos 			if (PRINT_ERROR)
    465  1.6   nathanw 				warnx(illoptstring, current_argv);
    466  1.4  christos 			optopt = 0;
    467  1.4  christos 			return BADCH;
    468  1.1       mcr 		}
    469  1.1       mcr 		if (long_options[match].flag) {
    470  1.1       mcr 			*long_options[match].flag = long_options[match].val;
    471  1.1       mcr 			retval = 0;
    472  1.1       mcr 		} else
    473  1.1       mcr 			retval = long_options[match].val;
    474  1.4  christos 		if (idx)
    475  1.4  christos 			*idx = match;
    476  1.1       mcr 	}
    477  1.4  christos 	return retval;
    478  1.1       mcr }
    479