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.
5
NOTE: This source is derived from an old version taken from the GNU C
8
This program is free software; you can redistribute it and/or modify it
9
under the terms of the GNU General Public License as published by the
10
Free Software Foundation; either version 2, or (at your option) any
13
This program 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
16
GNU General Public License for more details.
18
You should have received a copy of the GNU General Public License
19
along with this program; if not, write to the Free Software
20
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
27
#include "gnugetopt.h"
29
#if !defined __STDC__ || !__STDC__
30
/* This is a separate conditional since some stdc systems
31
reject `defined (const)'. */
39
/* Comment out all this code if we are using the GNU C Library, and are not
40
actually compiling the library itself. This code is part of the GNU C
41
Library, but also included in many other GNU distributions. Compiling
42
and linking in this code is a waste when using the GNU C library
43
(especially if it is a shared library). Rather than having every GNU
44
program understand `configure --with-gnu-libc' and omit the object files,
45
it is simpler to just do this in the source for each such file. */
47
#define GETOPT_INTERFACE_VERSION 2
48
#if !defined _LIBC && defined __GLIBC__ && __GLIBC__ >= 2
49
#include <gnu-versions.h>
50
#if _GNU_GETOPT_INTERFACE_VERSION == GETOPT_INTERFACE_VERSION
57
#ifndef HAVE_GETOPT_LONG
60
/* This needs to come after some library #include
61
to get __GNU_LIBRARY__ defined. */
62
#ifdef __GNU_LIBRARY__
71
getopt_long (argc, argv, options, long_options, opt_index)
75
const struct option *long_options;
78
return _getopt_internal (argc, argv, options, long_options, opt_index, 0);
81
/* Like getopt_long, but '-' as well as '--' can indicate a long option.
82
If an option that starts with '-' (not '--') doesn't match a long option,
83
but does match a short option, it is parsed as a short option
87
getopt_long_only (argc, argv, options, long_options, opt_index)
91
const struct option *long_options;
94
return _getopt_internal (argc, argv, options, long_options, opt_index, 1);
97
#endif /* ! HAVE_GETOPT_LONG */
99
#endif /* Not ELIDE_CODE. */
111
int digit_optind = 0;
115
int this_option_optind = optind ? optind : 1;
116
int option_index = 0;
117
static struct option long_options[] =
122
{"verbose", 0, 0, 0},
128
c = getopt_long (argc, argv, "abc:d:0123456789",
129
long_options, &option_index);
136
printf ("option %s", long_options[option_index].name);
138
printf (" with arg %s", optarg);
152
if (digit_optind != 0 && digit_optind != this_option_optind)
153
printf ("digits occur in two different argv-elements.\n");
154
digit_optind = this_option_optind;
155
printf ("option %c\n", c);
159
printf ("option a\n");
163
printf ("option b\n");
167
printf ("option c with value `%s'\n", optarg);
171
printf ("option d with value `%s'\n", optarg);
178
printf ("?? getopt returned character code 0%o ??\n", c);
184
printf ("non-option ARGV-elements: ");
185
while (optind < argc)
186
printf ("%s ", argv[optind++]);
added
removed
gnats/gnugetopt1.c
