File indexing completed on 2024-12-22 04:04:11

 /* getopt_long and getopt_long_only entry points for GNU getopt.
    Copyright (C) 1987,88,89,90,91,92,93,94,96,97,98
      Free Software Foundation, Inc.
    This file is part of the GNU C Library.
 
    The GNU C Library is free software; you can redistribute it and/or
    modify it under the terms of the GNU Library General Public License as
    published by the Free Software Foundation; either version 2 of the
    License, or (at your option) any later version.
 
    The GNU C Library is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    Library General Public License for more details.
 
    You should have received a copy of the GNU Library General Public
    License along with the GNU C Library; see the file COPYING.LIB.  If not,
    write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
    Boston, MA 02110-1301, USA.  */
 
 #ifdef HAVE_CONFIG_H
 #include <config.h>
 #endif
 
 #include "getopt.h"
 
 #if !defined __STDC__ || !__STDC__
 /* This is a separate conditional since some stdc systems
    reject `defined (const)'.  */
 #ifndef const
 #define const
 #endif
 #endif
 
 #include <stdio.h>
 
 /* This needs to come after some library #include
    to get __GNU_LIBRARY__ defined.  */
 #ifdef __GNU_LIBRARY__
 #include <stdlib.h>
 #endif
 
 #ifndef NULL
 #define NULL 0
 #endif
 
 int
 getopt_long (argc, argv, options, long_options, opt_index)
      int argc;
      char *const *argv;
      const char *options;
      const struct option *long_options;
      int *opt_index;
 {
   return _getopt_internal (argc, argv, options, long_options, opt_index, 0);
 }
 
 /* Like getopt_long, but '-' as well as '--' can indicate a long option.
    If an option that starts with '-' (not '--') doesn't match a long option,
    but does match a short option, it is parsed as a short option
    instead.  */
 
 int
 getopt_long_only (argc, argv, options, long_options, opt_index)
      int argc;
      char *const *argv;
      const char *options;
      const struct option *long_options;
      int *opt_index;
 {
   return _getopt_internal (argc, argv, options, long_options, opt_index, 1);
 }
 
 
 
 #ifdef TEST
 
 #include <stdio.h>
 
 int
 main (argc, argv)
      int argc;
      char **argv;
 {
   int c;
   int digit_optind = 0;
 
   while (1)
     {
       int this_option_optind = optind ? optind : 1;
       int option_index = 0;
       static struct option long_options[] =
       {
     {"add", 1, 0, 0},
     {"append", 0, 0, 0},
     {"delete", 1, 0, 0},
     {"verbose", 0, 0, 0},
     {"create", 0, 0, 0},
     {"file", 1, 0, 0},
     {0, 0, 0, 0}
       };
 
       c = getopt_long (argc, argv, "abc:d:0123456789",
                long_options, &option_index);
       if (c == -1)
     break;
 
       switch (c)
     {
     case 0:
       printf ("option %s", long_options[option_index].name);
       if (optarg)
         printf (" with arg %s", optarg);
       printf ("\n");
       break;
 
     case '0':
     case '1':
     case '2':
     case '3':
     case '4':
     case '5':
     case '6':
     case '7':
     case '8':
     case '9':
       if (digit_optind != 0 && digit_optind != this_option_optind)
         printf ("digits occur in two different argv-elements.\n");
       digit_optind = this_option_optind;
       printf ("option %c\n", c);
       break;
 
     case 'a':
       printf ("option a\n");
       break;
 
     case 'b':
       printf ("option b\n");
       break;
 
     case 'c':
       printf ("option c with value `%s'\n", optarg);
       break;
 
     case 'd':
       printf ("option d with value `%s'\n", optarg);
       break;
 
     case '?':
       break;
 
     default:
       printf ("?? getopt returned character code 0%o ??\n", c);
     }
     }
 
   if (optind < argc)
     {
       printf ("non-option ARGV-elements: ");
       while (optind < argc)
     printf ("%s ", argv[optind++]);
       printf ("\n");
     }
 
   exit (0);
 }
 
 #endif /* TEST */