Python/getopt.c

   1 /*---------------------------------------------------------------------------*
   2  * <RCS keywords>
   3  *
   4  * C++ Library
   5  *
   6  * Copyright 1992-1994, David Gottner
   7  *
   8  *                    All Rights Reserved
   9  *
  10  * Permission to use, copy, modify, and distribute this software and its
  11  * documentation for any purpose and without fee is hereby granted,
  12  * provided that the above copyright notice, this permission notice and
  13  * the following disclaimer notice appear unmodified in all copies.
  14  *
  15  * I DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL
  16  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS.  IN NO EVENT SHALL I
  17  * BE LIABLE FOR ANY SPECIAL, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY
  18  * DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA, OR PROFITS, WHETHER
  19  * IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
  20  * OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  21  *
  22  * Nevertheless, I would like to know about bugs in this library or
  23  * suggestions for improvment.  Send bug reports and feedback to
  24  * davegottner@delphi.com.
  25  *---------------------------------------------------------------------------*/
  26
  27 #include <stdio.h>
  28 #include <string.h>
  29
  30 int _PyOS_opterr = 1;          /* generate error messages */
  31 int _PyOS_optind = 1;          /* index into argv array   */
  32 char *_PyOS_optarg = NULL;     /* optional argument       */
  33
  34 int _PyOS_GetOpt(int argc, char **argv, char *optstring)
  35 {
  36         static char *opt_ptr = "";
  37         char *ptr;
  38         int option;
  39
  40         if (*opt_ptr == '\0') {
  41
  42                 if (_PyOS_optind >= argc || argv[_PyOS_optind][0] != '-' ||
  43                     argv[_PyOS_optind][1] == '\0' /* lone dash */ )
  44                         return -1;
  45
  46                 else if (strcmp(argv[_PyOS_optind], "--") == 0) {
  47                         ++_PyOS_optind;
  48                         return -1;
  49                 }
  50
  51                 opt_ptr = &argv[_PyOS_optind++][1];
  52         }
  53
  54         if ( (option = *opt_ptr++) == '\0')
  55                 return -1;
  56
  57         if ((ptr = strchr(optstring, option)) == NULL) {
  58                 if (_PyOS_opterr)
  59                         fprintf(stderr, "Unknown option: -%c\n", option);
  60
  61                 return '?';
  62         }
  63
  64         if (*(ptr + 1) == ':') {
  65                 if (*opt_ptr != '\0') {
  66                         _PyOS_optarg  = opt_ptr;
  67                         opt_ptr = "";
  68                 }
  69
  70                 else {
  71                         if (_PyOS_optind >= argc) {
  72                                 if (_PyOS_opterr)
  73                                         fprintf(stderr,
  74                             "Argument expected for the -%c option\n", option);
  75                                 return '?';
  76                         }
  77
  78                         _PyOS_optarg = argv[_PyOS_optind++];
  79                 }
  80         }
  81
  82         return option;
  83 }