1 | /* Getopt for GNU.
|
---|
2 | NOTE: getopt is now part of the C library, so if you don't know what
|
---|
3 | "Keep this file name-space clean" means, talk to [email protected]
|
---|
4 | before changing it!
|
---|
5 |
|
---|
6 | Copyright (C) 1987-2016 Free Software Foundation, Inc.
|
---|
7 |
|
---|
8 | NOTE: The canonical source of this file is maintained with the GNU C Library.
|
---|
9 | Bugs can be reported to [email protected].
|
---|
10 |
|
---|
11 | GNU Make is free software; you can redistribute it and/or modify it under the
|
---|
12 | terms of the GNU General Public License as published by the Free Software
|
---|
13 | Foundation; either version 3 of the License, or (at your option) any later
|
---|
14 | version.
|
---|
15 |
|
---|
16 | GNU Make is distributed in the hope that it will be useful, but WITHOUT ANY
|
---|
17 | WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
|
---|
18 | A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
---|
19 |
|
---|
20 | You should have received a copy of the GNU General Public License along with
|
---|
21 | this program. If not, see <http://www.gnu.org/licenses/>. */
|
---|
22 |
|
---|
23 | /* This tells Alpha OSF/1 not to define a getopt prototype in <stdio.h>.
|
---|
24 | Ditto for AIX 3.2 and <stdlib.h>. */
|
---|
25 | #ifndef _NO_PROTO
|
---|
26 | # define _NO_PROTO
|
---|
27 | #endif
|
---|
28 |
|
---|
29 | #ifdef HAVE_CONFIG_H
|
---|
30 | # include <config.h>
|
---|
31 | #endif
|
---|
32 |
|
---|
33 | #if !defined __STDC__ || !__STDC__
|
---|
34 | /* This is a separate conditional since some stdc systems
|
---|
35 | reject `defined (const)'. */
|
---|
36 | # ifndef const
|
---|
37 | # define const
|
---|
38 | # endif
|
---|
39 | #endif
|
---|
40 |
|
---|
41 | #include <stdio.h>
|
---|
42 |
|
---|
43 | /* Comment out all this code if we are using the GNU C Library, and are not
|
---|
44 | actually compiling the library itself. This code is part of the GNU C
|
---|
45 | Library, but also included in many other GNU distributions. Compiling
|
---|
46 | and linking in this code is a waste when using the GNU C library
|
---|
47 | (especially if it is a shared library). Rather than having every GNU
|
---|
48 | program understand `configure --with-gnu-libc' and omit the object files,
|
---|
49 | it is simpler to just do this in the source for each such file. */
|
---|
50 |
|
---|
51 | #define GETOPT_INTERFACE_VERSION 2
|
---|
52 | #if !defined _LIBC && defined __GLIBC__ && __GLIBC__ >= 2
|
---|
53 | # include <gnu-versions.h>
|
---|
54 | # if _GNU_GETOPT_INTERFACE_VERSION == GETOPT_INTERFACE_VERSION
|
---|
55 | # define ELIDE_CODE
|
---|
56 | # endif
|
---|
57 | #endif
|
---|
58 |
|
---|
59 | #ifndef ELIDE_CODE
|
---|
60 |
|
---|
61 |
|
---|
62 | /* This needs to come after some library #include
|
---|
63 | to get __GNU_LIBRARY__ defined. */
|
---|
64 | #ifdef __GNU_LIBRARY__
|
---|
65 | /* Don't include stdlib.h for non-GNU C libraries because some of them
|
---|
66 | contain conflicting prototypes for getopt. */
|
---|
67 | # include <stdlib.h>
|
---|
68 | # include <unistd.h>
|
---|
69 | #endif /* GNU C library. */
|
---|
70 |
|
---|
71 | #ifdef VMS
|
---|
72 | # include <unixlib.h>
|
---|
73 | # if HAVE_STRING_H - 0
|
---|
74 | # include <string.h>
|
---|
75 | # endif
|
---|
76 | #endif
|
---|
77 |
|
---|
78 | /* This is for other GNU distributions with internationalized messages.
|
---|
79 | When compiling libc, the _ macro is predefined. */
|
---|
80 | #include "gettext.h"
|
---|
81 | #define _(msgid) gettext (msgid)
|
---|
82 |
|
---|
83 |
|
---|
84 | /* This version of `getopt' appears to the caller like standard Unix 'getopt'
|
---|
85 | but it behaves differently for the user, since it allows the user
|
---|
86 | to intersperse the options with the other arguments.
|
---|
87 |
|
---|
88 | As `getopt' works, it permutes the elements of ARGV so that,
|
---|
89 | when it is done, all the options precede everything else. Thus
|
---|
90 | all application programs are extended to handle flexible argument order.
|
---|
91 |
|
---|
92 | Setting the environment variable POSIXLY_CORRECT disables permutation.
|
---|
93 | Then the behavior is completely standard.
|
---|
94 |
|
---|
95 | GNU application programs can use a third alternative mode in which
|
---|
96 | they can distinguish the relative order of options and other arguments. */
|
---|
97 |
|
---|
98 | #include "getopt.h"
|
---|
99 |
|
---|
100 | /* For communication from `getopt' to the caller.
|
---|
101 | When `getopt' finds an option that takes an argument,
|
---|
102 | the argument value is returned here.
|
---|
103 | Also, when `ordering' is RETURN_IN_ORDER,
|
---|
104 | each non-option ARGV-element is returned here. */
|
---|
105 |
|
---|
106 | char *optarg = NULL;
|
---|
107 |
|
---|
108 | /* Index in ARGV of the next element to be scanned.
|
---|
109 | This is used for communication to and from the caller
|
---|
110 | and for communication between successive calls to `getopt'.
|
---|
111 |
|
---|
112 | On entry to `getopt', zero means this is the first call; initialize.
|
---|
113 |
|
---|
114 | When `getopt' returns -1, this is the index of the first of the
|
---|
115 | non-option elements that the caller should itself scan.
|
---|
116 |
|
---|
117 | Otherwise, `optind' communicates from one call to the next
|
---|
118 | how much of ARGV has been scanned so far. */
|
---|
119 |
|
---|
120 | /* 1003.2 says this must be 1 before any call. */
|
---|
121 | int optind = 1;
|
---|
122 |
|
---|
123 | /* Formerly, initialization of getopt depended on optind==0, which
|
---|
124 | causes problems with re-calling getopt as programs generally don't
|
---|
125 | know that. */
|
---|
126 |
|
---|
127 | int __getopt_initialized = 0;
|
---|
128 |
|
---|
129 | /* The next char to be scanned in the option-element
|
---|
130 | in which the last option character we returned was found.
|
---|
131 | This allows us to pick up the scan where we left off.
|
---|
132 |
|
---|
133 | If this is zero, or a null string, it means resume the scan
|
---|
134 | by advancing to the next ARGV-element. */
|
---|
135 |
|
---|
136 | static char *nextchar;
|
---|
137 |
|
---|
138 | /* Callers store zero here to inhibit the error message
|
---|
139 | for unrecognized options. */
|
---|
140 |
|
---|
141 | int opterr = 1;
|
---|
142 |
|
---|
143 | /* Set to an option character which was unrecognized.
|
---|
144 | This must be initialized on some systems to avoid linking in the
|
---|
145 | system's own getopt implementation. */
|
---|
146 |
|
---|
147 | int optopt = '?';
|
---|
148 |
|
---|
149 | /* Describe how to deal with options that follow non-option ARGV-elements.
|
---|
150 |
|
---|
151 | If the caller did not specify anything,
|
---|
152 | the default is REQUIRE_ORDER if the environment variable
|
---|
153 | POSIXLY_CORRECT is defined, PERMUTE otherwise.
|
---|
154 |
|
---|
155 | REQUIRE_ORDER means don't recognize them as options;
|
---|
156 | stop option processing when the first non-option is seen.
|
---|
157 | This is what Unix does.
|
---|
158 | This mode of operation is selected by either setting the environment
|
---|
159 | variable POSIXLY_CORRECT, or using `+' as the first character
|
---|
160 | of the list of option characters.
|
---|
161 |
|
---|
162 | PERMUTE is the default. We permute the contents of ARGV as we scan,
|
---|
163 | so that eventually all the non-options are at the end. This allows options
|
---|
164 | to be given in any order, even with programs that were not written to
|
---|
165 | expect this.
|
---|
166 |
|
---|
167 | RETURN_IN_ORDER is an option available to programs that were written
|
---|
168 | to expect options and other ARGV-elements in any order and that care about
|
---|
169 | the ordering of the two. We describe each non-option ARGV-element
|
---|
170 | as if it were the argument of an option with character code 1.
|
---|
171 | Using `-' as the first character of the list of option characters
|
---|
172 | selects this mode of operation.
|
---|
173 |
|
---|
174 | The special argument `--' forces an end of option-scanning regardless
|
---|
175 | of the value of `ordering'. In the case of RETURN_IN_ORDER, only
|
---|
176 | `--' can cause `getopt' to return -1 with `optind' != ARGC. */
|
---|
177 |
|
---|
178 | static enum
|
---|
179 | {
|
---|
180 | REQUIRE_ORDER, PERMUTE, RETURN_IN_ORDER
|
---|
181 | } ordering;
|
---|
182 |
|
---|
183 | /* Value of POSIXLY_CORRECT environment variable. */
|
---|
184 | static char *posixly_correct;
|
---|
185 | |
---|
186 |
|
---|
187 | #ifdef __GNU_LIBRARY__
|
---|
188 | /* We want to avoid inclusion of string.h with non-GNU libraries
|
---|
189 | because there are many ways it can cause trouble.
|
---|
190 | On some systems, it contains special magic macros that don't work
|
---|
191 | in GCC. */
|
---|
192 | # include <string.h>
|
---|
193 | # define my_index strchr
|
---|
194 | #else
|
---|
195 |
|
---|
196 | # if HAVE_STRING_H
|
---|
197 | # include <string.h>
|
---|
198 | # else
|
---|
199 | # include <strings.h>
|
---|
200 | # endif
|
---|
201 |
|
---|
202 | #ifndef KMK
|
---|
203 | /* Avoid depending on library functions or files
|
---|
204 | whose names are inconsistent. */
|
---|
205 | #ifndef getenv
|
---|
206 | extern char *getenv ();
|
---|
207 | #endif
|
---|
208 | #else /* KMK */
|
---|
209 | # include <stdlib.h>
|
---|
210 | #endif /* KMK */
|
---|
211 |
|
---|
212 | static char *
|
---|
213 | my_index (const char *str, int chr)
|
---|
214 | {
|
---|
215 | while (*str)
|
---|
216 | {
|
---|
217 | if (*str == chr)
|
---|
218 | return (char *) str;
|
---|
219 | str++;
|
---|
220 | }
|
---|
221 | return 0;
|
---|
222 | }
|
---|
223 |
|
---|
224 | /* If using GCC, we can safely declare strlen this way.
|
---|
225 | If not using GCC, it is ok not to declare it. */
|
---|
226 | #ifdef __GNUC__
|
---|
227 | /* Note that Motorola Delta 68k R3V7 comes with GCC but not stddef.h.
|
---|
228 | That was relevant to code that was here before. */
|
---|
229 | # if (!defined __STDC__ || !__STDC__) && !defined strlen
|
---|
230 | /* gcc with -traditional declares the built-in strlen to return int,
|
---|
231 | and has done so at least since version 2.4.5. -- rms. */
|
---|
232 | extern int strlen (const char *);
|
---|
233 | # endif /* not __STDC__ */
|
---|
234 | #endif /* __GNUC__ */
|
---|
235 |
|
---|
236 | #endif /* not __GNU_LIBRARY__ */
|
---|
237 | |
---|
238 |
|
---|
239 | /* Handle permutation of arguments. */
|
---|
240 |
|
---|
241 | /* Describe the part of ARGV that contains non-options that have
|
---|
242 | been skipped. `first_nonopt' is the index in ARGV of the first of them;
|
---|
243 | `last_nonopt' is the index after the last of them. */
|
---|
244 |
|
---|
245 | static int first_nonopt;
|
---|
246 | static int last_nonopt;
|
---|
247 |
|
---|
248 | #ifdef _LIBC
|
---|
249 | /* Bash 2.0 gives us an environment variable containing flags
|
---|
250 | indicating ARGV elements that should not be considered arguments. */
|
---|
251 |
|
---|
252 | /* Defined in getopt_init.c */
|
---|
253 | extern char *__getopt_nonoption_flags;
|
---|
254 |
|
---|
255 | static int nonoption_flags_max_len;
|
---|
256 | static int nonoption_flags_len;
|
---|
257 |
|
---|
258 | static int original_argc;
|
---|
259 | static char *const *original_argv;
|
---|
260 |
|
---|
261 | /* Make sure the environment variable bash 2.0 puts in the environment
|
---|
262 | is valid for the getopt call we must make sure that the ARGV passed
|
---|
263 | to getopt is that one passed to the process. */
|
---|
264 | static void __attribute__ ((unused))
|
---|
265 | store_args_and_env (int argc, char *const *argv)
|
---|
266 | {
|
---|
267 | /* XXX This is no good solution. We should rather copy the args so
|
---|
268 | that we can compare them later. But we must not use malloc(3). */
|
---|
269 | original_argc = argc;
|
---|
270 | original_argv = argv;
|
---|
271 | }
|
---|
272 | # ifdef text_set_element
|
---|
273 | text_set_element (__libc_subinit, store_args_and_env);
|
---|
274 | # endif /* text_set_element */
|
---|
275 |
|
---|
276 | # define SWAP_FLAGS(ch1, ch2) \
|
---|
277 | if (nonoption_flags_len > 0) \
|
---|
278 | { \
|
---|
279 | char __tmp = __getopt_nonoption_flags[ch1]; \
|
---|
280 | __getopt_nonoption_flags[ch1] = __getopt_nonoption_flags[ch2]; \
|
---|
281 | __getopt_nonoption_flags[ch2] = __tmp; \
|
---|
282 | }
|
---|
283 | #else /* !_LIBC */
|
---|
284 | # define SWAP_FLAGS(ch1, ch2)
|
---|
285 | #endif /* _LIBC */
|
---|
286 |
|
---|
287 | /* Exchange two adjacent subsequences of ARGV.
|
---|
288 | One subsequence is elements [first_nonopt,last_nonopt)
|
---|
289 | which contains all the non-options that have been skipped so far.
|
---|
290 | The other is elements [last_nonopt,optind), which contains all
|
---|
291 | the options processed since those non-options were skipped.
|
---|
292 |
|
---|
293 | `first_nonopt' and `last_nonopt' are relocated so that they describe
|
---|
294 | the new indices of the non-options in ARGV after they are moved. */
|
---|
295 |
|
---|
296 | #if defined __STDC__ && __STDC__
|
---|
297 | static void exchange (char **);
|
---|
298 | #endif
|
---|
299 |
|
---|
300 | static void
|
---|
301 | exchange (char **argv)
|
---|
302 | {
|
---|
303 | int bottom = first_nonopt;
|
---|
304 | int middle = last_nonopt;
|
---|
305 | int top = optind;
|
---|
306 | char *tem;
|
---|
307 |
|
---|
308 | /* Exchange the shorter segment with the far end of the longer segment.
|
---|
309 | That puts the shorter segment into the right place.
|
---|
310 | It leaves the longer segment in the right place overall,
|
---|
311 | but it consists of two parts that need to be swapped next. */
|
---|
312 |
|
---|
313 | #ifdef _LIBC
|
---|
314 | /* First make sure the handling of the `__getopt_nonoption_flags'
|
---|
315 | string can work normally. Our top argument must be in the range
|
---|
316 | of the string. */
|
---|
317 | if (nonoption_flags_len > 0 && top >= nonoption_flags_max_len)
|
---|
318 | {
|
---|
319 | /* We must extend the array. The user plays games with us and
|
---|
320 | presents new arguments. */
|
---|
321 | char *new_str = malloc (top + 1);
|
---|
322 | if (new_str == NULL)
|
---|
323 | nonoption_flags_len = nonoption_flags_max_len = 0;
|
---|
324 | else
|
---|
325 | {
|
---|
326 | memset (__mempcpy (new_str, __getopt_nonoption_flags,
|
---|
327 | nonoption_flags_max_len),
|
---|
328 | '\0', top + 1 - nonoption_flags_max_len);
|
---|
329 | nonoption_flags_max_len = top + 1;
|
---|
330 | __getopt_nonoption_flags = new_str;
|
---|
331 | }
|
---|
332 | }
|
---|
333 | #endif
|
---|
334 |
|
---|
335 | while (top > middle && middle > bottom)
|
---|
336 | {
|
---|
337 | if (top - middle > middle - bottom)
|
---|
338 | {
|
---|
339 | /* Bottom segment is the short one. */
|
---|
340 | int len = middle - bottom;
|
---|
341 | register int i;
|
---|
342 |
|
---|
343 | /* Swap it with the top part of the top segment. */
|
---|
344 | for (i = 0; i < len; i++)
|
---|
345 | {
|
---|
346 | tem = argv[bottom + i];
|
---|
347 | argv[bottom + i] = argv[top - (middle - bottom) + i];
|
---|
348 | argv[top - (middle - bottom) + i] = tem;
|
---|
349 | SWAP_FLAGS (bottom + i, top - (middle - bottom) + i);
|
---|
350 | }
|
---|
351 | /* Exclude the moved bottom segment from further swapping. */
|
---|
352 | top -= len;
|
---|
353 | }
|
---|
354 | else
|
---|
355 | {
|
---|
356 | /* Top segment is the short one. */
|
---|
357 | int len = top - middle;
|
---|
358 | register int i;
|
---|
359 |
|
---|
360 | /* Swap it with the bottom part of the bottom segment. */
|
---|
361 | for (i = 0; i < len; i++)
|
---|
362 | {
|
---|
363 | tem = argv[bottom + i];
|
---|
364 | argv[bottom + i] = argv[middle + i];
|
---|
365 | argv[middle + i] = tem;
|
---|
366 | SWAP_FLAGS (bottom + i, middle + i);
|
---|
367 | }
|
---|
368 | /* Exclude the moved top segment from further swapping. */
|
---|
369 | bottom += len;
|
---|
370 | }
|
---|
371 | }
|
---|
372 |
|
---|
373 | /* Update records for the slots the non-options now occupy. */
|
---|
374 |
|
---|
375 | first_nonopt += (optind - last_nonopt);
|
---|
376 | last_nonopt = optind;
|
---|
377 | }
|
---|
378 |
|
---|
379 | /* Initialize the internal data when the first call is made. */
|
---|
380 |
|
---|
381 | #if defined __STDC__ && __STDC__
|
---|
382 | static const char *_getopt_initialize (int, char *const *, const char *);
|
---|
383 | #endif
|
---|
384 | static const char *
|
---|
385 | _getopt_initialize (int argc, char *const *argv, const char *optstring)
|
---|
386 | {
|
---|
387 | /* Start processing options with ARGV-element 1 (since ARGV-element 0
|
---|
388 | is the program name); the sequence of previously skipped
|
---|
389 | non-option ARGV-elements is empty. */
|
---|
390 |
|
---|
391 | first_nonopt = last_nonopt = optind;
|
---|
392 |
|
---|
393 | nextchar = NULL;
|
---|
394 |
|
---|
395 | posixly_correct = getenv ("POSIXLY_CORRECT");
|
---|
396 |
|
---|
397 | /* Determine how to handle the ordering of options and nonoptions. */
|
---|
398 |
|
---|
399 | if (optstring[0] == '-')
|
---|
400 | {
|
---|
401 | ordering = RETURN_IN_ORDER;
|
---|
402 | ++optstring;
|
---|
403 | }
|
---|
404 | else if (optstring[0] == '+')
|
---|
405 | {
|
---|
406 | ordering = REQUIRE_ORDER;
|
---|
407 | ++optstring;
|
---|
408 | }
|
---|
409 | else if (posixly_correct != NULL)
|
---|
410 | ordering = REQUIRE_ORDER;
|
---|
411 | else
|
---|
412 | ordering = PERMUTE;
|
---|
413 |
|
---|
414 | #ifdef _LIBC
|
---|
415 | if (posixly_correct == NULL
|
---|
416 | && argc == original_argc && argv == original_argv)
|
---|
417 | {
|
---|
418 | if (nonoption_flags_max_len == 0)
|
---|
419 | {
|
---|
420 | if (__getopt_nonoption_flags == NULL
|
---|
421 | || __getopt_nonoption_flags[0] == '\0')
|
---|
422 | nonoption_flags_max_len = -1;
|
---|
423 | else
|
---|
424 | {
|
---|
425 | const char *orig_str = __getopt_nonoption_flags;
|
---|
426 | int len = nonoption_flags_max_len = strlen (orig_str);
|
---|
427 | if (nonoption_flags_max_len < argc)
|
---|
428 | nonoption_flags_max_len = argc;
|
---|
429 | __getopt_nonoption_flags =
|
---|
430 | (char *) malloc (nonoption_flags_max_len);
|
---|
431 | if (__getopt_nonoption_flags == NULL)
|
---|
432 | nonoption_flags_max_len = -1;
|
---|
433 | else
|
---|
434 | memset (__mempcpy (__getopt_nonoption_flags, orig_str, len),
|
---|
435 | '\0', nonoption_flags_max_len - len);
|
---|
436 | }
|
---|
437 | }
|
---|
438 | nonoption_flags_len = nonoption_flags_max_len;
|
---|
439 | }
|
---|
440 | else
|
---|
441 | nonoption_flags_len = 0;
|
---|
442 | #endif
|
---|
443 |
|
---|
444 | return optstring;
|
---|
445 | }
|
---|
446 | |
---|
447 |
|
---|
448 | /* Scan elements of ARGV (whose length is ARGC) for option characters
|
---|
449 | given in OPTSTRING.
|
---|
450 |
|
---|
451 | If an element of ARGV starts with '-', and is not exactly "-" or "--",
|
---|
452 | then it is an option element. The characters of this element
|
---|
453 | (aside from the initial '-') are option characters. If `getopt'
|
---|
454 | is called repeatedly, it returns successively each of the option characters
|
---|
455 | from each of the option elements.
|
---|
456 |
|
---|
457 | If `getopt' finds another option character, it returns that character,
|
---|
458 | updating `optind' and `nextchar' so that the next call to `getopt' can
|
---|
459 | resume the scan with the following option character or ARGV-element.
|
---|
460 |
|
---|
461 | If there are no more option characters, `getopt' returns -1.
|
---|
462 | Then `optind' is the index in ARGV of the first ARGV-element
|
---|
463 | that is not an option. (The ARGV-elements have been permuted
|
---|
464 | so that those that are not options now come last.)
|
---|
465 |
|
---|
466 | OPTSTRING is a string containing the legitimate option characters.
|
---|
467 | If an option character is seen that is not listed in OPTSTRING,
|
---|
468 | return '?' after printing an error message. If you set `opterr' to
|
---|
469 | zero, the error message is suppressed but we still return '?'.
|
---|
470 |
|
---|
471 | If a char in OPTSTRING is followed by a colon, that means it wants an arg,
|
---|
472 | so the following text in the same ARGV-element, or the text of the following
|
---|
473 | ARGV-element, is returned in `optarg'. Two colons mean an option that
|
---|
474 | wants an optional arg; if there is text in the current ARGV-element,
|
---|
475 | it is returned in `optarg', otherwise `optarg' is set to zero.
|
---|
476 |
|
---|
477 | If OPTSTRING starts with `-' or `+', it requests different methods of
|
---|
478 | handling the non-option ARGV-elements.
|
---|
479 | See the comments about RETURN_IN_ORDER and REQUIRE_ORDER, above.
|
---|
480 |
|
---|
481 | Long-named options begin with `--' instead of `-'.
|
---|
482 | Their names may be abbreviated as long as the abbreviation is unique
|
---|
483 | or is an exact match for some defined option. If they have an
|
---|
484 | argument, it follows the option name in the same ARGV-element, separated
|
---|
485 | from the option name by a `=', or else the in next ARGV-element.
|
---|
486 | When `getopt' finds a long-named option, it returns 0 if that option's
|
---|
487 | `flag' field is nonzero, the value of the option's `val' field
|
---|
488 | if the `flag' field is zero.
|
---|
489 |
|
---|
490 | The elements of ARGV aren't really const, because we permute them.
|
---|
491 | But we pretend they're const in the prototype to be compatible
|
---|
492 | with other systems.
|
---|
493 |
|
---|
494 | LONGOPTS is a vector of `struct option' terminated by an
|
---|
495 | element containing a name which is zero.
|
---|
496 |
|
---|
497 | LONGIND returns the index in LONGOPT of the long-named option found.
|
---|
498 | It is only valid when a long-named option has been found by the most
|
---|
499 | recent call.
|
---|
500 |
|
---|
501 | If LONG_ONLY is nonzero, '-' as well as '--' can introduce
|
---|
502 | long-named options. */
|
---|
503 |
|
---|
504 | int
|
---|
505 | _getopt_internal (int argc, char *const *argv, const char *optstring,
|
---|
506 | const struct option *longopts, int *longind, int long_only)
|
---|
507 | {
|
---|
508 | optarg = NULL;
|
---|
509 |
|
---|
510 | if (optind == 0 || !__getopt_initialized)
|
---|
511 | {
|
---|
512 | if (optind == 0)
|
---|
513 | optind = 1; /* Don't scan ARGV[0], the program name. */
|
---|
514 | optstring = _getopt_initialize (argc, argv, optstring);
|
---|
515 | __getopt_initialized = 1;
|
---|
516 | }
|
---|
517 |
|
---|
518 | /* Test whether ARGV[optind] points to a non-option argument.
|
---|
519 | Either it does not have option syntax, or there is an environment flag
|
---|
520 | from the shell indicating it is not an option. The later information
|
---|
521 | is only used when the used in the GNU libc. */
|
---|
522 | #ifdef _LIBC
|
---|
523 | # define NONOPTION_P (argv[optind][0] != '-' || argv[optind][1] == '\0' \
|
---|
524 | || (optind < nonoption_flags_len \
|
---|
525 | && __getopt_nonoption_flags[optind] == '1'))
|
---|
526 | #else
|
---|
527 | # define NONOPTION_P (argv[optind][0] != '-' || argv[optind][1] == '\0')
|
---|
528 | #endif
|
---|
529 |
|
---|
530 | if (nextchar == NULL || *nextchar == '\0')
|
---|
531 | {
|
---|
532 | /* Advance to the next ARGV-element. */
|
---|
533 |
|
---|
534 | /* Give FIRST_NONOPT & LAST_NONOPT rational values if OPTIND has been
|
---|
535 | moved back by the user (who may also have changed the arguments). */
|
---|
536 | if (last_nonopt > optind)
|
---|
537 | last_nonopt = optind;
|
---|
538 | if (first_nonopt > optind)
|
---|
539 | first_nonopt = optind;
|
---|
540 |
|
---|
541 | if (ordering == PERMUTE)
|
---|
542 | {
|
---|
543 | /* If we have just processed some options following some non-options,
|
---|
544 | exchange them so that the options come first. */
|
---|
545 |
|
---|
546 | if (first_nonopt != last_nonopt && last_nonopt != optind)
|
---|
547 | exchange ((char **) argv);
|
---|
548 | else if (last_nonopt != optind)
|
---|
549 | first_nonopt = optind;
|
---|
550 |
|
---|
551 | /* Skip any additional non-options
|
---|
552 | and extend the range of non-options previously skipped. */
|
---|
553 |
|
---|
554 | while (optind < argc && NONOPTION_P)
|
---|
555 | optind++;
|
---|
556 | last_nonopt = optind;
|
---|
557 | }
|
---|
558 |
|
---|
559 | /* The special ARGV-element `--' means premature end of options.
|
---|
560 | Skip it like a null option,
|
---|
561 | then exchange with previous non-options as if it were an option,
|
---|
562 | then skip everything else like a non-option. */
|
---|
563 |
|
---|
564 | if (optind != argc && !strcmp (argv[optind], "--"))
|
---|
565 | {
|
---|
566 | optind++;
|
---|
567 |
|
---|
568 | if (first_nonopt != last_nonopt && last_nonopt != optind)
|
---|
569 | exchange ((char **) argv);
|
---|
570 | else if (first_nonopt == last_nonopt)
|
---|
571 | first_nonopt = optind;
|
---|
572 | last_nonopt = argc;
|
---|
573 |
|
---|
574 | optind = argc;
|
---|
575 | }
|
---|
576 |
|
---|
577 | /* If we have done all the ARGV-elements, stop the scan
|
---|
578 | and back over any non-options that we skipped and permuted. */
|
---|
579 |
|
---|
580 | if (optind == argc)
|
---|
581 | {
|
---|
582 | /* Set the next-arg-index to point at the non-options
|
---|
583 | that we previously skipped, so the caller will digest them. */
|
---|
584 | if (first_nonopt != last_nonopt)
|
---|
585 | optind = first_nonopt;
|
---|
586 | return -1;
|
---|
587 | }
|
---|
588 |
|
---|
589 | /* If we have come to a non-option and did not permute it,
|
---|
590 | either stop the scan or describe it to the caller and pass it by. */
|
---|
591 |
|
---|
592 | if (NONOPTION_P)
|
---|
593 | {
|
---|
594 | if (ordering == REQUIRE_ORDER)
|
---|
595 | return -1;
|
---|
596 | optarg = argv[optind++];
|
---|
597 | return 1;
|
---|
598 | }
|
---|
599 |
|
---|
600 | /* We have found another option-ARGV-element.
|
---|
601 | Skip the initial punctuation. */
|
---|
602 |
|
---|
603 | nextchar = (argv[optind] + 1
|
---|
604 | + (longopts != NULL && argv[optind][1] == '-'));
|
---|
605 | }
|
---|
606 |
|
---|
607 | /* Decode the current option-ARGV-element. */
|
---|
608 |
|
---|
609 | /* Check whether the ARGV-element is a long option.
|
---|
610 |
|
---|
611 | If long_only and the ARGV-element has the form "-f", where f is
|
---|
612 | a valid short option, don't consider it an abbreviated form of
|
---|
613 | a long option that starts with f. Otherwise there would be no
|
---|
614 | way to give the -f short option.
|
---|
615 |
|
---|
616 | On the other hand, if there's a long option "fubar" and
|
---|
617 | the ARGV-element is "-fu", do consider that an abbreviation of
|
---|
618 | the long option, just like "--fu", and not "-f" with arg "u".
|
---|
619 |
|
---|
620 | This distinction seems to be the most useful approach. */
|
---|
621 |
|
---|
622 | if (longopts != NULL
|
---|
623 | && (argv[optind][1] == '-'
|
---|
624 | || (long_only && (argv[optind][2] || !my_index (optstring, argv[optind][1])))))
|
---|
625 | {
|
---|
626 | char *nameend;
|
---|
627 | const struct option *p;
|
---|
628 | const struct option *pfound = NULL;
|
---|
629 | int exact = 0;
|
---|
630 | int ambig = 0;
|
---|
631 | int indfound = -1;
|
---|
632 | int option_index;
|
---|
633 |
|
---|
634 | for (nameend = nextchar; *nameend && *nameend != '='; nameend++)
|
---|
635 | /* Do nothing. */ ;
|
---|
636 |
|
---|
637 | /* Test all long options for either exact match
|
---|
638 | or abbreviated matches. */
|
---|
639 | for (p = longopts, option_index = 0; p->name; p++, option_index++)
|
---|
640 | if (!strncmp (p->name, nextchar, nameend - nextchar))
|
---|
641 | {
|
---|
642 | if ((unsigned int) (nameend - nextchar)
|
---|
643 | == (unsigned int) strlen (p->name))
|
---|
644 | {
|
---|
645 | /* Exact match found. */
|
---|
646 | pfound = p;
|
---|
647 | indfound = option_index;
|
---|
648 | exact = 1;
|
---|
649 | break;
|
---|
650 | }
|
---|
651 | else if (pfound == NULL)
|
---|
652 | {
|
---|
653 | /* First nonexact match found. */
|
---|
654 | pfound = p;
|
---|
655 | indfound = option_index;
|
---|
656 | }
|
---|
657 | else
|
---|
658 | /* Second or later nonexact match found. */
|
---|
659 | ambig = 1;
|
---|
660 | }
|
---|
661 |
|
---|
662 | if (ambig && !exact)
|
---|
663 | {
|
---|
664 | if (opterr)
|
---|
665 | fprintf (stderr, _("%s: option '%s' is ambiguous\n"),
|
---|
666 | argv[0], argv[optind]);
|
---|
667 | nextchar += strlen (nextchar);
|
---|
668 | optind++;
|
---|
669 | optopt = 0;
|
---|
670 | return '?';
|
---|
671 | }
|
---|
672 |
|
---|
673 | if (pfound != NULL)
|
---|
674 | {
|
---|
675 | option_index = indfound;
|
---|
676 | optind++;
|
---|
677 | if (*nameend)
|
---|
678 | {
|
---|
679 | /* Don't test has_arg with >, because some C compilers don't
|
---|
680 | allow it to be used on enums. */
|
---|
681 | if (pfound->has_arg)
|
---|
682 | optarg = nameend + 1;
|
---|
683 | else
|
---|
684 | {
|
---|
685 | if (opterr)
|
---|
686 | { /* bird: disambiguate */
|
---|
687 | if (argv[optind - 1][1] == '-')
|
---|
688 | /* --option */
|
---|
689 | fprintf (stderr,
|
---|
690 | _("%s: option '--%s' doesn't allow an argument\n"),
|
---|
691 | argv[0], pfound->name);
|
---|
692 | else
|
---|
693 | /* +option or -option */
|
---|
694 | fprintf (stderr,
|
---|
695 | _("%s: option '%c%s' doesn't allow an argument\n"),
|
---|
696 | argv[0], argv[optind - 1][0], pfound->name);
|
---|
697 | }
|
---|
698 |
|
---|
699 | nextchar += strlen (nextchar);
|
---|
700 |
|
---|
701 | optopt = pfound->val;
|
---|
702 | return '?';
|
---|
703 | }
|
---|
704 | }
|
---|
705 | else if (pfound->has_arg == 1)
|
---|
706 | {
|
---|
707 | if (optind < argc)
|
---|
708 | optarg = argv[optind++];
|
---|
709 | else
|
---|
710 | {
|
---|
711 | if (opterr)
|
---|
712 | fprintf (stderr,
|
---|
713 | _("%s: option '%s' requires an argument\n"),
|
---|
714 | argv[0], argv[optind - 1]);
|
---|
715 | nextchar += strlen (nextchar);
|
---|
716 | optopt = pfound->val;
|
---|
717 | return optstring[0] == ':' ? ':' : '?';
|
---|
718 | }
|
---|
719 | }
|
---|
720 | nextchar += strlen (nextchar);
|
---|
721 | if (longind != NULL)
|
---|
722 | *longind = option_index;
|
---|
723 | if (pfound->flag)
|
---|
724 | {
|
---|
725 | *(pfound->flag) = pfound->val;
|
---|
726 | return 0;
|
---|
727 | }
|
---|
728 | return pfound->val;
|
---|
729 | }
|
---|
730 |
|
---|
731 | /* Can't find it as a long option. If this is not getopt_long_only,
|
---|
732 | or the option starts with '--' or is not a valid short
|
---|
733 | option, then it's an error.
|
---|
734 | Otherwise interpret it as a short option. */
|
---|
735 | if (!long_only || argv[optind][1] == '-'
|
---|
736 | || my_index (optstring, *nextchar) == NULL)
|
---|
737 | {
|
---|
738 | if (opterr)
|
---|
739 | {
|
---|
740 | if (argv[optind][1] == '-')
|
---|
741 | /* --option */
|
---|
742 | fprintf (stderr, _("%s: unrecognized option '--%s'\n"),
|
---|
743 | argv[0], nextchar);
|
---|
744 | else
|
---|
745 | /* +option or -option */
|
---|
746 | fprintf (stderr, _("%s: unrecognized option '%c%s'\n"),
|
---|
747 | argv[0], argv[optind][0], nextchar);
|
---|
748 | }
|
---|
749 | nextchar = (char *) "";
|
---|
750 | optind++;
|
---|
751 | optopt = 0;
|
---|
752 | return '?';
|
---|
753 | }
|
---|
754 | }
|
---|
755 |
|
---|
756 | /* Look at and handle the next short option-character. */
|
---|
757 |
|
---|
758 | {
|
---|
759 | char c = *nextchar++;
|
---|
760 | char *temp = my_index (optstring, c);
|
---|
761 |
|
---|
762 | /* Increment `optind' when we start to process its last character. */
|
---|
763 | if (*nextchar == '\0')
|
---|
764 | ++optind;
|
---|
765 |
|
---|
766 | if (temp == NULL || c == ':')
|
---|
767 | {
|
---|
768 | if (opterr)
|
---|
769 | {
|
---|
770 | if (posixly_correct)
|
---|
771 | /* 1003.2 specifies the format of this message. */
|
---|
772 | fprintf (stderr, _("%s: illegal option -- %c\n"),
|
---|
773 | argv[0], c);
|
---|
774 | else
|
---|
775 | fprintf (stderr, _("%s: invalid option -- %c\n"),
|
---|
776 | argv[0], c);
|
---|
777 | }
|
---|
778 | optopt = c;
|
---|
779 | return '?';
|
---|
780 | }
|
---|
781 | /* Convenience. Treat POSIX -W foo same as long option --foo */
|
---|
782 | if (temp[0] == 'W' && temp[1] == ';')
|
---|
783 | {
|
---|
784 | char *nameend;
|
---|
785 | const struct option *p;
|
---|
786 | const struct option *pfound = NULL;
|
---|
787 | int exact = 0;
|
---|
788 | int ambig = 0;
|
---|
789 | int indfound = 0;
|
---|
790 | int option_index;
|
---|
791 |
|
---|
792 | /* This is an option that requires an argument. */
|
---|
793 | if (*nextchar != '\0')
|
---|
794 | {
|
---|
795 | optarg = nextchar;
|
---|
796 | /* If we end this ARGV-element by taking the rest as an arg,
|
---|
797 | we must advance to the next element now. */
|
---|
798 | optind++;
|
---|
799 | }
|
---|
800 | else if (optind == argc)
|
---|
801 | {
|
---|
802 | if (opterr)
|
---|
803 | {
|
---|
804 | /* 1003.2 specifies the format of this message. */
|
---|
805 | fprintf (stderr, _("%s: option requires an argument -- %c\n"),
|
---|
806 | argv[0], c);
|
---|
807 | }
|
---|
808 | optopt = c;
|
---|
809 | if (optstring[0] == ':')
|
---|
810 | c = ':';
|
---|
811 | else
|
---|
812 | c = '?';
|
---|
813 | return c;
|
---|
814 | }
|
---|
815 | else
|
---|
816 | /* We already incremented `optind' once;
|
---|
817 | increment it again when taking next ARGV-elt as argument. */
|
---|
818 | optarg = argv[optind++];
|
---|
819 |
|
---|
820 | /* optarg is now the argument, see if it's in the
|
---|
821 | table of longopts. */
|
---|
822 |
|
---|
823 | for (nextchar = nameend = optarg; *nameend && *nameend != '='; nameend++)
|
---|
824 | /* Do nothing. */ ;
|
---|
825 |
|
---|
826 | /* Test all long options for either exact match
|
---|
827 | or abbreviated matches. */
|
---|
828 | for (p = longopts, option_index = 0; p->name; p++, option_index++)
|
---|
829 | if (!strncmp (p->name, nextchar, nameend - nextchar))
|
---|
830 | {
|
---|
831 | if ((unsigned int) (nameend - nextchar) == strlen (p->name))
|
---|
832 | {
|
---|
833 | /* Exact match found. */
|
---|
834 | pfound = p;
|
---|
835 | indfound = option_index;
|
---|
836 | exact = 1;
|
---|
837 | break;
|
---|
838 | }
|
---|
839 | else if (pfound == NULL)
|
---|
840 | {
|
---|
841 | /* First nonexact match found. */
|
---|
842 | pfound = p;
|
---|
843 | indfound = option_index;
|
---|
844 | }
|
---|
845 | else
|
---|
846 | /* Second or later nonexact match found. */
|
---|
847 | ambig = 1;
|
---|
848 | }
|
---|
849 | if (ambig && !exact)
|
---|
850 | {
|
---|
851 | if (opterr)
|
---|
852 | fprintf (stderr, _("%s: option '-W %s' is ambiguous\n"),
|
---|
853 | argv[0], argv[optind]);
|
---|
854 | nextchar += strlen (nextchar);
|
---|
855 | optind++;
|
---|
856 | return '?';
|
---|
857 | }
|
---|
858 | if (pfound != NULL)
|
---|
859 | {
|
---|
860 | option_index = indfound;
|
---|
861 | if (*nameend)
|
---|
862 | {
|
---|
863 | /* Don't test has_arg with >, because some C compilers don't
|
---|
864 | allow it to be used on enums. */
|
---|
865 | if (pfound->has_arg)
|
---|
866 | optarg = nameend + 1;
|
---|
867 | else
|
---|
868 | {
|
---|
869 | if (opterr)
|
---|
870 | fprintf (stderr, _("\
|
---|
871 | %s: option '-W %s' doesn't allow an argument\n"),
|
---|
872 | argv[0], pfound->name);
|
---|
873 |
|
---|
874 | nextchar += strlen (nextchar);
|
---|
875 | return '?';
|
---|
876 | }
|
---|
877 | }
|
---|
878 | else if (pfound->has_arg == 1)
|
---|
879 | {
|
---|
880 | if (optind < argc)
|
---|
881 | optarg = argv[optind++];
|
---|
882 | else
|
---|
883 | {
|
---|
884 | if (opterr)
|
---|
885 | fprintf (stderr,
|
---|
886 | _("%s: option '%s' requires an argument\n"),
|
---|
887 | argv[0], argv[optind - 1]);
|
---|
888 | nextchar += strlen (nextchar);
|
---|
889 | return optstring[0] == ':' ? ':' : '?';
|
---|
890 | }
|
---|
891 | }
|
---|
892 | nextchar += strlen (nextchar);
|
---|
893 | if (longind != NULL)
|
---|
894 | *longind = option_index;
|
---|
895 | if (pfound->flag)
|
---|
896 | {
|
---|
897 | *(pfound->flag) = pfound->val;
|
---|
898 | return 0;
|
---|
899 | }
|
---|
900 | return pfound->val;
|
---|
901 | }
|
---|
902 | nextchar = NULL;
|
---|
903 | return 'W'; /* Let the application handle it. */
|
---|
904 | }
|
---|
905 | if (temp[1] == ':')
|
---|
906 | {
|
---|
907 | if (temp[2] == ':')
|
---|
908 | {
|
---|
909 | /* This is an option that accepts an argument optionally. */
|
---|
910 | if (*nextchar != '\0')
|
---|
911 | {
|
---|
912 | optarg = nextchar;
|
---|
913 | optind++;
|
---|
914 | }
|
---|
915 | else
|
---|
916 | optarg = NULL;
|
---|
917 | nextchar = NULL;
|
---|
918 | }
|
---|
919 | else
|
---|
920 | {
|
---|
921 | /* This is an option that requires an argument. */
|
---|
922 | if (*nextchar != '\0')
|
---|
923 | {
|
---|
924 | optarg = nextchar;
|
---|
925 | /* If we end this ARGV-element by taking the rest as an arg,
|
---|
926 | we must advance to the next element now. */
|
---|
927 | optind++;
|
---|
928 | }
|
---|
929 | else if (optind == argc)
|
---|
930 | {
|
---|
931 | if (opterr)
|
---|
932 | {
|
---|
933 | /* 1003.2 specifies the format of this message. */
|
---|
934 | fprintf (stderr,
|
---|
935 | _("%s: option requires an argument -- %c\n"),
|
---|
936 | argv[0], c);
|
---|
937 | }
|
---|
938 | optopt = c;
|
---|
939 | if (optstring[0] == ':')
|
---|
940 | c = ':';
|
---|
941 | else
|
---|
942 | c = '?';
|
---|
943 | }
|
---|
944 | else
|
---|
945 | /* We already incremented `optind' once;
|
---|
946 | increment it again when taking next ARGV-elt as argument. */
|
---|
947 | optarg = argv[optind++];
|
---|
948 | nextchar = NULL;
|
---|
949 | }
|
---|
950 | }
|
---|
951 | return c;
|
---|
952 | }
|
---|
953 | }
|
---|
954 |
|
---|
955 | int
|
---|
956 | getopt (int argc, char *const *argv, const char *optstring)
|
---|
957 | {
|
---|
958 | return _getopt_internal (argc, argv, optstring,
|
---|
959 | (const struct option *) 0,
|
---|
960 | (int *) 0,
|
---|
961 | 0);
|
---|
962 | }
|
---|
963 |
|
---|
964 | #endif /* Not ELIDE_CODE. */
|
---|
965 | |
---|
966 |
|
---|
967 | #ifdef TEST
|
---|
968 |
|
---|
969 | /* Compile with -DTEST to make an executable for use in testing
|
---|
970 | the above definition of `getopt'. */
|
---|
971 |
|
---|
972 | int
|
---|
973 | main (int argc, char **argv)
|
---|
974 | {
|
---|
975 | int c;
|
---|
976 | int digit_optind = 0;
|
---|
977 |
|
---|
978 | while (1)
|
---|
979 | {
|
---|
980 | int this_option_optind = optind ? optind : 1;
|
---|
981 |
|
---|
982 | c = getopt (argc, argv, "abc:d:0123456789");
|
---|
983 | if (c == -1)
|
---|
984 | break;
|
---|
985 |
|
---|
986 | switch (c)
|
---|
987 | {
|
---|
988 | case '0':
|
---|
989 | case '1':
|
---|
990 | case '2':
|
---|
991 | case '3':
|
---|
992 | case '4':
|
---|
993 | case '5':
|
---|
994 | case '6':
|
---|
995 | case '7':
|
---|
996 | case '8':
|
---|
997 | case '9':
|
---|
998 | if (digit_optind != 0 && digit_optind != this_option_optind)
|
---|
999 | printf ("digits occur in two different argv-elements.\n");
|
---|
1000 | digit_optind = this_option_optind;
|
---|
1001 | printf ("option %c\n", c);
|
---|
1002 | break;
|
---|
1003 |
|
---|
1004 | case 'a':
|
---|
1005 | printf ("option a\n");
|
---|
1006 | break;
|
---|
1007 |
|
---|
1008 | case 'b':
|
---|
1009 | printf ("option b\n");
|
---|
1010 | break;
|
---|
1011 |
|
---|
1012 | case 'c':
|
---|
1013 | printf ("option c with value '%s'\n", optarg);
|
---|
1014 | break;
|
---|
1015 |
|
---|
1016 | case '?':
|
---|
1017 | break;
|
---|
1018 |
|
---|
1019 | default:
|
---|
1020 | printf ("?? getopt returned character code 0%o ??\n", c);
|
---|
1021 | }
|
---|
1022 | }
|
---|
1023 |
|
---|
1024 | if (optind < argc)
|
---|
1025 | {
|
---|
1026 | printf ("non-option ARGV-elements: ");
|
---|
1027 | while (optind < argc)
|
---|
1028 | printf ("%s ", argv[optind++]);
|
---|
1029 | printf ("\n");
|
---|
1030 | }
|
---|
1031 |
|
---|
1032 | exit (0);
|
---|
1033 | }
|
---|
1034 |
|
---|
1035 | #endif /* TEST */
|
---|