]>
iEval git - fdkaac.git/blob - missings/getopt.c
1 /* $OpenBSD: getopt_long.c,v 1.21 2006/09/22 17:22:05 millert Exp $ */
2 /* $NetBSD: getopt_long.c,v 1.15 2002/01/31 22:43:40 tv Exp $ */
5 * Copyright (c) 2002 Todd C. Miller <Todd.Miller@courtesan.com>
7 * Permission to use, copy, modify, and distribute this software for any
8 * purpose with or without fee is hereby granted, provided that the above
9 * copyright notice and this permission notice appear in all copies.
11 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
12 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
13 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
14 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
15 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
16 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
17 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
19 * Sponsored in part by the Defense Advanced Research Projects
20 * Agency (DARPA) and Air Force Research Laboratory, Air Force
21 * Materiel Command, USAF, under agreement number F39502-99-1-0512.
24 * Copyright (c) 2000 The NetBSD Foundation, Inc.
25 * All rights reserved.
27 * This code is derived from software contributed to The NetBSD Foundation
28 * by Dieter Baron and Thomas Klausner.
30 * Redistribution and use in source and binary forms, with or without
31 * modification, are permitted provided that the following conditions
33 * 1. Redistributions of source code must retain the above copyright
34 * notice, this list of conditions and the following disclaimer.
35 * 2. Redistributions in binary form must reproduce the above copyright
36 * notice, this list of conditions and the following disclaimer in the
37 * documentation and/or other materials provided with the distribution.
38 * 3. All advertising materials mentioning features or use of this software
39 * must display the following acknowledgement:
40 * This product includes software developed by the NetBSD
41 * Foundation, Inc. and its contributors.
42 * 4. Neither the name of The NetBSD Foundation nor the names of its
43 * contributors may be used to endorse or promote products derived
44 * from this software without specific prior written permission.
46 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
47 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
48 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
49 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
50 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
51 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
52 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
53 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
54 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
55 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
56 * POSSIBILITY OF SUCH DAMAGE.
60 #if defined(LIBC_SCCS) && !defined(lint)
61 static char *rcsid
= "$OpenBSD: getopt_long.c,v 1.16 2004/02/04 18:17:25 millert Exp $";
62 #endif /* LIBC_SCCS and not lint */
72 #define GNU_COMPATIBLE /* Be more compatible, configure's use us! */
74 #if 0 /* we prefer to keep our getopt(3) */
75 #define REPLACE_GETOPT /* use this getopt as the system getopt(3) */
78 int opterr
= 1; /* if error message should be printed */
79 int optind
= 1; /* index into parent argv vector */
80 int optopt
= '?'; /* character checked for validity */
81 int optreset
; /* reset getopt */
82 char *optarg
; /* argument associated with option */
84 #define PRINT_ERROR ((opterr) && (*options != ':'))
86 #define FLAG_PERMUTE 0x01 /* permute non-options to the end of argv */
87 #define FLAG_ALLARGS 0x02 /* treat non-options as args to option "-1" */
88 #define FLAG_LONGONLY 0x04 /* operate as getopt_long_only */
91 #define BADCH (int)'?'
92 #define BADARG ((*options == ':') ? (int)':' : (int)'?')
93 #define INORDER (int)1
98 #define NO_PREFIX (-1)
104 static int getopt_internal(int, char * const *, const char *,
105 const struct option
*, int *, int);
106 static int parse_long_options(char * const *, const char *,
107 const struct option
*, int *, int, int);
108 static int gcd(int, int);
109 static void permute_args(int, int, int, char * const *);
111 static char *place
= EMSG
; /* option letter processing */
113 /* XXX: set optreset to 1 rather than these two */
114 static int nonopt_start
= -1; /* first non option argument (for permute) */
115 static int nonopt_end
= -1; /* first option after non options (for permute) */
118 static const char recargchar
[] = "option requires an argument -- %c";
119 static const char illoptchar
[] = "illegal option -- %c"; /* From P1003.2 */
120 #ifdef GNU_COMPATIBLE
121 static int dash_prefix
= NO_PREFIX
;
122 static const char gnuoptchar
[] = "invalid option -- %c";
124 static const char recargstring
[] = "option `%s%s' requires an argument";
125 static const char ambig
[] = "option `%s%.*s' is ambiguous";
126 static const char noarg
[] = "option `%s%.*s' doesn't allow an argument";
127 static const char illoptstring
[] = "unrecognized option `%s%s'";
129 static const char recargstring
[] = "option requires an argument -- %s";
130 static const char ambig
[] = "ambiguous option -- %.*s";
131 static const char noarg
[] = "option doesn't take an argument -- %.*s";
132 static const char illoptstring
[] = "unknown option -- %s";
136 warnx(const char *fmt
, ...)
140 vfprintf(stderr
, fmt
, args
);
146 * Compute the greatest common divisor of a and b.
164 * Exchange the block from nonopt_start to nonopt_end with the block
165 * from nonopt_end to opt_end (keeping the same order of arguments
169 permute_args(int panonopt_start
, int panonopt_end
, int opt_end
,
172 int cstart
, cyclelen
, i
, j
, ncycle
, nnonopts
, nopts
, pos
;
176 * compute lengths of blocks and number and size of cycles
178 nnonopts
= panonopt_end
- panonopt_start
;
179 nopts
= opt_end
- panonopt_end
;
180 ncycle
= gcd(nnonopts
, nopts
);
181 cyclelen
= (opt_end
- panonopt_start
) / ncycle
;
183 for (i
= 0; i
< ncycle
; i
++) {
184 cstart
= panonopt_end
+i
;
186 for (j
= 0; j
< cyclelen
; j
++) {
187 if (pos
>= panonopt_end
)
192 /* LINTED const cast */
193 ((char **) nargv
)[pos
] = nargv
[cstart
];
194 /* LINTED const cast */
195 ((char **)nargv
)[cstart
] = swap
;
201 * parse_long_options --
202 * Parse long options in argc/argv argument vector.
203 * Returns -1 if short_too is set and the option does not match long_options.
206 parse_long_options(char * const *nargv
, const char *options
,
207 const struct option
*long_options
, int *idx
, int short_too
, int flags
)
209 char *current_argv
, *has_equal
;
210 #ifdef GNU_COMPATIBLE
213 size_t current_argv_len
;
214 int i
, match
, exact_match
, second_partial_match
;
216 current_argv
= place
;
217 #ifdef GNU_COMPATIBLE
218 switch (dash_prefix
) {
226 current_dash
= "-W ";
235 second_partial_match
= 0;
239 if ((has_equal
= strchr(current_argv
, '=')) != NULL
) {
240 /* argument found (--option=arg) */
241 current_argv_len
= has_equal
- current_argv
;
244 current_argv_len
= strlen(current_argv
);
246 for (i
= 0; long_options
[i
].name
; i
++) {
247 /* find matching long option */
248 if (strncmp(current_argv
, long_options
[i
].name
,
252 if (strlen(long_options
[i
].name
) == current_argv_len
) {
259 * If this is a known short option, don't allow
260 * a partial match of a single character.
262 if (short_too
&& current_argv_len
== 1)
265 if (match
== -1) /* first partial match */
267 else if ((flags
& FLAG_LONGONLY
) ||
268 long_options
[i
].has_arg
!=
269 long_options
[match
].has_arg
||
270 long_options
[i
].flag
!= long_options
[match
].flag
||
271 long_options
[i
].val
!= long_options
[match
].val
)
272 second_partial_match
= 1;
274 if (!exact_match
&& second_partial_match
) {
275 /* ambiguous abbreviation */
278 #ifdef GNU_COMPATIBLE
281 (int)current_argv_len
,
286 if (match
!= -1) { /* option found */
287 if (long_options
[match
].has_arg
== no_argument
291 #ifdef GNU_COMPATIBLE
294 (int)current_argv_len
,
297 * XXX: GNU sets optopt to val regardless of flag
299 if (long_options
[match
].flag
== NULL
)
300 optopt
= long_options
[match
].val
;
303 #ifdef GNU_COMPATIBLE
309 if (long_options
[match
].has_arg
== required_argument
||
310 long_options
[match
].has_arg
== optional_argument
) {
313 else if (long_options
[match
].has_arg
==
316 * optional argument doesn't use next nargv
318 optarg
= nargv
[optind
++];
321 if ((long_options
[match
].has_arg
== required_argument
)
322 && (optarg
== NULL
)) {
324 * Missing argument; leading ':' indicates no error
325 * should be generated.
329 #ifdef GNU_COMPATIBLE
334 * XXX: GNU sets optopt to val regardless of flag
336 if (long_options
[match
].flag
== NULL
)
337 optopt
= long_options
[match
].val
;
343 } else { /* unknown option */
350 #ifdef GNU_COMPATIBLE
359 if (long_options
[match
].flag
) {
360 *long_options
[match
].flag
= long_options
[match
].val
;
363 return (long_options
[match
].val
);
368 * Parse argc/argv argument vector. Called by user level routines.
371 getopt_internal(int nargc
, char * const *nargv
, const char *options
,
372 const struct option
*long_options
, int *idx
, int flags
)
374 char *oli
; /* option letter list index */
375 int optchar
, short_too
;
376 int posixly_correct
; /* no static, can be changed on the fly */
382 * Disable GNU extensions if POSIXLY_CORRECT is set or options
383 * string begins with a '+'.
385 posixly_correct
= (getenv("POSIXLY_CORRECT") != NULL
);
386 #ifdef GNU_COMPATIBLE
388 flags
|= FLAG_ALLARGS
;
389 else if (posixly_correct
|| *options
== '+')
390 flags
&= ~FLAG_PERMUTE
;
392 if (posixly_correct
|| *options
== '+')
393 flags
&= ~FLAG_PERMUTE
;
394 else if (*options
== '-')
395 flags
|= FLAG_ALLARGS
;
397 if (*options
== '+' || *options
== '-')
401 * XXX Some GNU programs (like cvs) set optind to 0 instead of
402 * XXX using optreset. Work around this braindamage.
405 optind
= optreset
= 1;
409 nonopt_start
= nonopt_end
= -1;
411 if (optreset
|| !*place
) { /* update scanning pointer */
413 if (optind
>= nargc
) { /* end of argument vector */
415 if (nonopt_end
!= -1) {
416 /* do permutation, if we have to */
417 permute_args(nonopt_start
, nonopt_end
,
419 optind
-= nonopt_end
- nonopt_start
;
421 else if (nonopt_start
!= -1) {
423 * If we skipped non-options, set optind
424 * to the first of them.
426 optind
= nonopt_start
;
428 nonopt_start
= nonopt_end
= -1;
431 if (*(place
= nargv
[optind
]) != '-' ||
432 #ifdef GNU_COMPATIBLE
435 (place
[1] == '\0' && strchr(options
, '-') == NULL
)) {
437 place
= EMSG
; /* found non-option */
438 if (flags
& FLAG_ALLARGS
) {
441 * return non-option as argument to option 1
443 optarg
= nargv
[optind
++];
446 if (!(flags
& FLAG_PERMUTE
)) {
448 * If no permutation wanted, stop parsing
449 * at first non-option.
454 if (nonopt_start
== -1)
455 nonopt_start
= optind
;
456 else if (nonopt_end
!= -1) {
457 permute_args(nonopt_start
, nonopt_end
,
459 nonopt_start
= optind
-
460 (nonopt_end
- nonopt_start
);
464 /* process next argument */
467 if (nonopt_start
!= -1 && nonopt_end
== -1)
471 * If we have "-" do nothing, if "--" we are done.
473 if (place
[1] != '\0' && *++place
== '-' && place
[1] == '\0') {
477 * We found an option (--), so if we skipped
478 * non-options, we have to permute.
480 if (nonopt_end
!= -1) {
481 permute_args(nonopt_start
, nonopt_end
,
483 optind
-= nonopt_end
- nonopt_start
;
485 nonopt_start
= nonopt_end
= -1;
491 * Check long options if:
492 * 1) we were passed some
493 * 2) the arg is not just "-"
494 * 3) either the arg starts with -- we are getopt_long_only()
496 if (long_options
!= NULL
&& place
!= nargv
[optind
] &&
497 (*place
== '-' || (flags
& FLAG_LONGONLY
))) {
499 #ifdef GNU_COMPATIBLE
500 dash_prefix
= D_PREFIX
;
503 place
++; /* --foo long option */
504 #ifdef GNU_COMPATIBLE
505 dash_prefix
= DD_PREFIX
;
507 } else if (*place
!= ':' && strchr(options
, *place
) != NULL
)
508 short_too
= 1; /* could be short option too */
510 optchar
= parse_long_options(nargv
, options
, long_options
,
511 idx
, short_too
, flags
);
518 if ((optchar
= (int)*place
++) == (int)':' ||
519 (optchar
== (int)'-' && *place
!= '\0') ||
520 (oli
= strchr(options
, optchar
)) == NULL
) {
522 * If the user specified "-" and '-' isn't listed in
523 * options, return -1 (non-option) as per POSIX.
524 * Otherwise, it is an unknown option character (or ':').
526 if (optchar
== (int)'-' && *place
== '\0')
530 #ifdef GNU_COMPATIBLE
532 warnx(posixly_correct
? illoptchar
: gnuoptchar
,
536 warnx(illoptchar
, optchar
);
541 if (long_options
!= NULL
&& optchar
== 'W' && oli
[1] == ';') {
543 if (*place
) /* no space */
545 else if (++optind
>= nargc
) { /* no arg */
548 warnx(recargchar
, optchar
);
551 } else /* white space */
552 place
= nargv
[optind
];
553 #ifdef GNU_COMPATIBLE
554 dash_prefix
= W_PREFIX
;
556 optchar
= parse_long_options(nargv
, options
, long_options
,
561 if (*++oli
!= ':') { /* doesn't take argument */
564 } else { /* takes (optional) argument */
566 if (*place
) /* no white space */
568 else if (oli
[1] != ':') { /* arg not optional */
569 if (++optind
>= nargc
) { /* no arg */
572 warnx(recargchar
, optchar
);
576 optarg
= nargv
[optind
];
581 /* dump back option letter */
587 * Parse argc/argv argument vector.
589 * [eventually this will replace the BSD getopt]
592 getopt(int nargc
, char * const *nargv
, const char *options
)
596 * We don't pass FLAG_PERMUTE to getopt_internal() since
597 * the BSD getopt(3) (unlike GNU) has never done this.
599 * Furthermore, since many privileged programs call getopt()
600 * before dropping privileges it makes sense to keep things
601 * as simple (and bug-free) as possible.
603 return (getopt_internal(nargc
, nargv
, options
, NULL
, NULL
, FLAG_PERMUTE
));
608 * Parse argc/argv argument vector.
611 getopt_long(int nargc
, char * const *nargv
, const char *options
,
612 const struct option
*long_options
, int *idx
)
615 return (getopt_internal(nargc
, nargv
, options
, long_options
, idx
,
620 * getopt_long_only --
621 * Parse argc/argv argument vector.
624 getopt_long_only(int nargc
, char * const *nargv
, const char *options
,
625 const struct option
*long_options
, int *idx
)
628 return (getopt_internal(nargc
, nargv
, options
, long_options
, idx
,
629 FLAG_PERMUTE
|FLAG_LONGONLY
));
This page took 0.07377 seconds and 4 git commands to generate.