1 | /* getopt_long and getopt_long_only entry points for GNU getopt. |
2 | Copyright (C) 1987-2017 Free Software Foundation, Inc. |
3 | This file is part of the GNU C Library. |
4 | |
5 | The GNU C Library is free software; you can redistribute it and/or |
6 | modify it under the terms of the GNU Lesser General Public |
7 | License as published by the Free Software Foundation; either |
8 | version 2.1 of the License, or (at your option) any later version. |
9 | |
10 | The GNU C Library is distributed in the hope that it will be useful, |
11 | but WITHOUT ANY WARRANTY; without even the implied warranty of |
12 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
13 | Lesser General Public License for more details. |
14 | |
15 | You should have received a copy of the GNU Lesser General Public |
16 | License along with the GNU C Library; if not, see |
17 | <http://www.gnu.org/licenses/>. */ |
18 | |
19 | #ifdef HAVE_CONFIG_H |
20 | #include <config.h> |
21 | #endif |
22 | |
23 | #ifdef _LIBC |
24 | # include <getopt.h> |
25 | #else |
26 | # include "getopt.h" |
27 | #endif |
28 | #include "getopt_int.h" |
29 | |
30 | #include <stdio.h> |
31 | |
32 | /* Comment out all this code if we are using the GNU C Library, and are not |
33 | actually compiling the library itself. This code is part of the GNU C |
34 | Library, but also included in many other GNU distributions. Compiling |
35 | and linking in this code is a waste when using the GNU C library |
36 | (especially if it is a shared library). Rather than having every GNU |
37 | program understand `configure --with-gnu-libc' and omit the object files, |
38 | it is simpler to just do this in the source for each such file. */ |
39 | |
40 | #define GETOPT_INTERFACE_VERSION 2 |
41 | #if !defined _LIBC && defined __GLIBC__ && __GLIBC__ >= 2 |
42 | #include <gnu-versions.h> |
43 | #if _GNU_GETOPT_INTERFACE_VERSION == GETOPT_INTERFACE_VERSION |
44 | #define ELIDE_CODE |
45 | #endif |
46 | #endif |
47 | |
48 | #ifndef ELIDE_CODE |
49 | |
50 | |
51 | /* This needs to come after some library #include |
52 | to get __GNU_LIBRARY__ defined. */ |
53 | #ifdef __GNU_LIBRARY__ |
54 | #include <stdlib.h> |
55 | #endif |
56 | |
57 | #ifndef NULL |
58 | #define NULL 0 |
59 | #endif |
60 | |
61 | int |
62 | getopt_long (int argc, char *const *argv, const char *options, |
63 | const struct option *long_options, int *opt_index) |
64 | { |
65 | return _getopt_internal (argc, argv, options, long_options, opt_index, 0, 0); |
66 | } |
67 | |
68 | int |
69 | _getopt_long_r (int argc, char *const *argv, const char *options, |
70 | const struct option *long_options, int *opt_index, |
71 | struct _getopt_data *d) |
72 | { |
73 | return _getopt_internal_r (argc, argv, options, long_options, opt_index, |
74 | 0, d, 0); |
75 | } |
76 | |
77 | /* Like getopt_long, but '-' as well as '--' can indicate a long option. |
78 | If an option that starts with '-' (not '--') doesn't match a long option, |
79 | but does match a short option, it is parsed as a short option |
80 | instead. */ |
81 | |
82 | int |
83 | getopt_long_only (int argc, char *const *argv, const char *options, |
84 | const struct option *long_options, int *opt_index) |
85 | { |
86 | return _getopt_internal (argc, argv, options, long_options, opt_index, 1, 0); |
87 | } |
88 | |
89 | int |
90 | _getopt_long_only_r (int argc, char *const *argv, const char *options, |
91 | const struct option *long_options, int *opt_index, |
92 | struct _getopt_data *d) |
93 | { |
94 | return _getopt_internal_r (argc, argv, options, long_options, opt_index, |
95 | 1, d, 0); |
96 | } |
97 | |
98 | #endif /* Not ELIDE_CODE. */ |
99 | |
100 | #ifdef TEST |
101 | |
102 | #include <stdio.h> |
103 | |
104 | int |
105 | main (int argc, char **argv) |
106 | { |
107 | int c; |
108 | int digit_optind = 0; |
109 | |
110 | while (1) |
111 | { |
112 | int this_option_optind = optind ? optind : 1; |
113 | int option_index = 0; |
114 | static struct option long_options[] = |
115 | { |
116 | {"add" , 1, 0, 0}, |
117 | {"append" , 0, 0, 0}, |
118 | {"delete" , 1, 0, 0}, |
119 | {"verbose" , 0, 0, 0}, |
120 | {"create" , 0, 0, 0}, |
121 | {"file" , 1, 0, 0}, |
122 | {0, 0, 0, 0} |
123 | }; |
124 | |
125 | c = getopt_long (argc, argv, "abc:d:0123456789" , |
126 | long_options, &option_index); |
127 | if (c == -1) |
128 | break; |
129 | |
130 | switch (c) |
131 | { |
132 | case 0: |
133 | printf ("option %s" , long_options[option_index].name); |
134 | if (optarg) |
135 | printf (" with arg %s" , optarg); |
136 | printf ("\n" ); |
137 | break; |
138 | |
139 | case '0': |
140 | case '1': |
141 | case '2': |
142 | case '3': |
143 | case '4': |
144 | case '5': |
145 | case '6': |
146 | case '7': |
147 | case '8': |
148 | case '9': |
149 | if (digit_optind != 0 && digit_optind != this_option_optind) |
150 | printf ("digits occur in two different argv-elements.\n" ); |
151 | digit_optind = this_option_optind; |
152 | printf ("option %c\n" , c); |
153 | break; |
154 | |
155 | case 'a': |
156 | printf ("option a\n" ); |
157 | break; |
158 | |
159 | case 'b': |
160 | printf ("option b\n" ); |
161 | break; |
162 | |
163 | case 'c': |
164 | printf ("option c with value `%s'\n" , optarg); |
165 | break; |
166 | |
167 | case 'd': |
168 | printf ("option d with value `%s'\n" , optarg); |
169 | break; |
170 | |
171 | case '?': |
172 | break; |
173 | |
174 | default: |
175 | printf ("?? getopt returned character code 0%o ??\n" , c); |
176 | } |
177 | } |
178 | |
179 | if (optind < argc) |
180 | { |
181 | printf ("non-option ARGV-elements: " ); |
182 | while (optind < argc) |
183 | printf ("%s " , argv[optind++]); |
184 | printf ("\n" ); |
185 | } |
186 | |
187 | exit (0); |
188 | } |
189 | |
190 | #endif /* TEST */ |
191 | |