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