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