deps/flac-1.3.2/src/share/getopt/getopt1.c

   1 /*
   2         NOTE:
   3         I cannot get the vanilla getopt code to work (i.e. compile only what
   4         is needed and not duplicate symbols found in the standard library)
   5         on all the platforms that FLAC supports.  In particular the gating
   6         of code with the ELIDE_CODE #define is not accurate enough on systems
   7         that are POSIX but not glibc.  If someone has a patch that works on
   8         GNU/Linux, Darwin, AND Solaris please submit it on the project page:
   9                 https://sourceforge.net/p/flac/patches/
  10
  11         In the meantime I have munged the global symbols and removed gates
  12         around code, while at the same time trying to touch the original as
  13         little as possible.
  14 */
  15 /* getopt_long and getopt_long_only entry points for GNU getopt.
  16    Copyright (C) 1987,88,89,90,91,92,93,94,96,97,98
  17      Free Software Foundation, Inc.
  18    This file is part of the GNU C Library.
  19
  20    The GNU C Library is free software; you can redistribute it and/or
  21    modify it under the terms of the GNU Library General Public License as
  22    published by the Free Software Foundation; either version 2 of the
  23    License, or (at your option) any later version.
  24
  25    The GNU C Library is distributed in the hope that it will be useful,
  26    but WITHOUT ANY WARRANTY; without even the implied warranty of
  27    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  28    Library General Public License for more details.
  29
  30    You should have received a copy of the GNU Library General Public
  31    License along with the GNU C Library; see the file COPYING.LIB.  If not,
  32    write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  33    Boston, MA 02110-1301, USA.  */
  34 \f
  35 #ifdef HAVE_CONFIG_H
  36 #  include <config.h>
  37 #endif
  38
  39 #include "share/getopt.h"
  40 /*[JEC] was:#include "getopt.h"*/
  41
  42 #if !defined __STDC__ || !__STDC__
  43 /* This is a separate conditional since some stdc systems
  44    reject `defined (const)'.  */
  45 #ifndef const
  46 #define const
  47 #endif
  48 #endif
  49
  50 #include <stdio.h>
  51
  52 /* Comment out all this code if we are using the GNU C Library, and are not
  53    actually compiling the library itself.  This code is part of the GNU C
  54    Library, but also included in many other GNU distributions.  Compiling
  55    and linking in this code is a waste when using the GNU C library
  56    (especially if it is a shared library).  Rather than having every GNU
  57    program understand `configure --with-gnu-libc' and omit the object files,
  58    it is simpler to just do this in the source for each such file.  */
  59
  60 #define GETOPT_INTERFACE_VERSION 2
  61 #if !defined _LIBC && defined __GLIBC__ && __GLIBC__ >= 2
  62 #include <gnu-versions.h>
  63 #if _GNU_GETOPT_INTERFACE_VERSION == GETOPT_INTERFACE_VERSION
  64 #define ELIDE_CODE
  65 #endif
  66 #endif
  67
  68 #if 1
  69 /*[JEC] was:#ifndef ELIDE_CODE*/
  70
  71
  72 /* This needs to come after some library #include
  73    to get __GNU_LIBRARY__ defined.  */
  74 #ifdef __GNU_LIBRARY__
  75 #include <stdlib.h>
  76 #endif
  77
  78 #ifndef NULL
  79 #define NULL 0
  80 #endif
  81
  82 int
  83 share__getopt_long (argc, argv, options, long_options, opt_index)
  84      int argc;
  85      char *const *argv;
  86      const char *options;
  87      const struct share__option *long_options;
  88      int *opt_index;
  89 {
  90   return share___getopt_internal (argc, argv, options, long_options, opt_index, 0);
  91 }
  92
  93 /* Like share__getopt_long, but '-' as well as '--' can indicate a long option.
  94    If an option that starts with '-' (not '--') doesn't match a long option,
  95    but does match a short option, it is parsed as a short option
  96    instead.  */
  97
  98 int
  99 share__getopt_long_only (argc, argv, options, long_options, opt_index)
 100      int argc;
 101      char *const *argv;
 102      const char *options;
 103      const struct share__option *long_options;
 104      int *opt_index;
 105 {
 106   return share___getopt_internal (argc, argv, options, long_options, opt_index, 1);
 107 }
 108
 109
 110 #endif  /* Not ELIDE_CODE.  */
 111 \f
 112 #ifdef TEST
 113
 114 #include <stdio.h>
 115
 116 int
 117 main (argc, argv)
 118      int argc;
 119      char **argv;
 120 {
 121   int c;
 122   int digit_optind = 0;
 123
 124   while (1)
 125     {
 126       int this_option_optind = share__optind ? share__optind : 1;
 127       int option_index = 0;
 128       static struct share__option long_options[] =
 129       {
 130         {"add", 1, 0, 0},
 131         {"append", 0, 0, 0},
 132         {"delete", 1, 0, 0},
 133         {"verbose", 0, 0, 0},
 134         {"create", 0, 0, 0},
 135         {"file", 1, 0, 0},
 136         {0, 0, 0, 0}
 137       };
 138
 139       c = share__getopt_long (argc, argv, "abc:d:0123456789",
 140                        long_options, &option_index);
 141       if (c == -1)
 142         break;
 143
 144       switch (c)
 145         {
 146         case 0:
 147           printf ("option %s", long_options[option_index].name);
 148           if (share__optarg)
 149             printf (" with arg %s", share__optarg);
 150           printf ("\n");
 151           break;
 152
 153         case '0':
 154         case '1':
 155         case '2':
 156         case '3':
 157         case '4':
 158         case '5':
 159         case '6':
 160         case '7':
 161         case '8':
 162         case '9':
 163           if (digit_optind != 0 && digit_optind != this_option_optind)
 164             printf ("digits occur in two different argv-elements.\n");
 165           digit_optind = this_option_optind;
 166           printf ("option %c\n", c);
 167           break;
 168
 169         case 'a':
 170           printf ("option a\n");
 171           break;
 172
 173         case 'b':
 174           printf ("option b\n");
 175           break;
 176
 177         case 'c':
 178           printf ("option c with value `%s'\n", share__optarg);
 179           break;
 180
 181         case 'd':
 182           printf ("option d with value `%s'\n", share__optarg);
 183           break;
 184
 185         case '?':
 186           break;
 187
 188         default:
 189           printf ("?? getopt returned character code 0%o ??\n", c);
 190         }
 191     }
 192
 193   if (share__optind < argc)
 194     {
 195       printf ("non-option ARGV-elements: ");
 196       while (share__optind < argc)
 197         printf ("%s ", argv[share__optind++]);
 198       printf ("\n");
 199     }
 200
 201   exit (0);
 202 }
 203
 204 #endif /* TEST */