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