getopt1.c

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