Home | History | Annotate | Line # | Download | only in libiberty 
      1 /* getopt_long and getopt_long_only entry points for GNU getopt.
      2    Copyright (C) 1987-2025 Free Software Foundation, Inc.
      3 
      4    NOTE: This source is derived from an old version taken from the GNU C
      5    Library (glibc).
      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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301,
     20    USA.  */
     21 
     22 #ifdef HAVE_CONFIG_H
     24 #include <config.h>
     25 #endif
     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 #include "getopt.h"
     38 
     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.  */
     46 
     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
     51 #define ELIDE_CODE
     52 #endif
     53 #endif
     54 
     55 #ifndef ELIDE_CODE
     56 
     57 
     58 /* This needs to come after some library #include
     59    to get __GNU_LIBRARY__ defined.  */
     60 #ifdef __GNU_LIBRARY__
     61 #include <stdlib.h>
     62 #endif
     63 
     64 #ifndef	NULL
     65 #define NULL 0
     66 #endif
     67 
     68 int
     69 getopt_long (int argc,  char *const *argv,  const char *options,
     70              const struct option *long_options, int *opt_index)
     71 {
     72   return _getopt_internal (argc, argv, options, long_options, opt_index, 0);
     73 }
     74 
     75 /* Like getopt_long, but '-' as well as '--' can indicate a long option.
     76    If an option that starts with '-' (not '--') doesn't match a long option,
     77    but does match a short option, it is parsed as a short option
     78    instead.  */
     79 
     80 int
     81 getopt_long_only (int argc, char *const *argv, const char *options,
     82                   const struct option *long_options, int *opt_index)
     83 {
     84   return _getopt_internal (argc, argv, options, long_options, opt_index, 1);
     85 }
     86 
     87 
     88 #endif	/* Not ELIDE_CODE.  */
     89 
     90 #ifdef TEST
     92 
     93 #include <stdio.h>
     94 
     95 int
     96 main (int argc, char **argv)
     97 {
     98   int c;
     99   int digit_optind = 0;
    100 
    101   while (1)
    102     {
    103       int this_option_optind = optind ? optind : 1;
    104       int option_index = 0;
    105       static struct option long_options[] =
    106       {
    107 	{"add", 1, 0, 0},
    108 	{"append", 0, 0, 0},
    109 	{"delete", 1, 0, 0},
    110 	{"verbose", 0, 0, 0},
    111 	{"create", 0, 0, 0},
    112 	{"file", 1, 0, 0},
    113 	{0, 0, 0, 0}
    114       };
    115 
    116       c = getopt_long (argc, argv, "abc:d:0123456789",
    117 		       long_options, &option_index);
    118       if (c == -1)
    119 	break;
    120 
    121       switch (c)
    122 	{
    123 	case 0:
    124 	  printf ("option %s", long_options[option_index].name);
    125 	  if (optarg)
    126 	    printf (" with arg %s", optarg);
    127 	  printf ("\n");
    128 	  break;
    129 
    130 	case '0':
    131 	case '1':
    132 	case '2':
    133 	case '3':
    134 	case '4':
    135 	case '5':
    136 	case '6':
    137 	case '7':
    138 	case '8':
    139 	case '9':
    140 	  if (digit_optind != 0 && digit_optind != this_option_optind)
    141 	    printf ("digits occur in two different argv-elements.\n");
    142 	  digit_optind = this_option_optind;
    143 	  printf ("option %c\n", c);
    144 	  break;
    145 
    146 	case 'a':
    147 	  printf ("option a\n");
    148 	  break;
    149 
    150 	case 'b':
    151 	  printf ("option b\n");
    152 	  break;
    153 
    154 	case 'c':
    155 	  printf ("option c with value `%s'\n", optarg);
    156 	  break;
    157 
    158 	case 'd':
    159 	  printf ("option d with value `%s'\n", optarg);
    160 	  break;
    161 
    162 	case '?':
    163 	  break;
    164 
    165 	default:
    166 	  printf ("?? getopt returned character code 0%o ??\n", c);
    167 	}
    168     }
    169 
    170   if (optind < argc)
    171     {
    172       printf ("non-option ARGV-elements: ");
    173       while (optind < argc)
    174 	printf ("%s ", argv[optind++]);
    175       printf ("\n");
    176     }
    177 
    178   exit (0);
    179 }
    180 
    181 #endif /* TEST */
    182