soltools/cpp/_getopt.c

   1 #include        <stdio.h>
   2 #include    <string.h>
   3
   4 #define EPR                 fprintf(stderr,
   5 #define ERR(str, chr)       if(opterr) { EPR "%s%c\n", str, chr); }
   6
   7 int opterr = 1;
   8 int optind = 1;
   9 int optopt;
  10 char *optarg;
  11
  12 int
  13     stgetopt(int argc, char *const argv[], const char *opts)
  14 {
  15     static int sp = 1;
  16     register int c;
  17     register char *cp;
  18
  19     if (sp == 1)
  20     {
  21         if (optind >= argc ||
  22             argv[optind][0] != '-' || argv[optind][1] == '\0')
  23             return -1;
  24         else
  25             if (strcmp(argv[optind], "--") == 0)
  26             {
  27                 optind++;
  28                 return -1;
  29             }
  30     }
  31     optopt = c = argv[optind][sp];
  32     if (c == ':' || (cp = strchr(opts, c)) == 0)
  33     {
  34         ERR(": illegal option -- ", c);
  35         if (argv[optind][++sp] == '\0')
  36         {
  37             optind++;
  38             sp = 1;
  39         }
  40         return '?';
  41     }
  42     if (*++cp == ':')
  43     {
  44         if (argv[optind][sp + 1] != '\0')
  45             optarg = &argv[optind++][sp + 1];
  46         else
  47             if (++optind >= argc)
  48             {
  49                 ERR(": option requires an argument -- ", c);
  50                 sp = 1;
  51                 return '?';
  52             }
  53             else
  54                 optarg = argv[optind++];
  55         sp = 1;
  56     }
  57     else
  58     {
  59         if (argv[optind][++sp] == '\0')
  60         {
  61             sp = 1;
  62             optind++;
  63         }
  64         optarg = 0;
  65     }
  66     return c;
  67 }