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