chiark - git - mdw - qmail/blob - sgetopt.c

   1 /* sgetopt.c, sgetopt.h: (yet another) improved getopt clone, outer layer
   2 D. J. Bernstein, djb@pobox.com.
   3 Depends on subgetopt.h, substdio.h, subfd.h.
   4 No system requirements.
   5 19970208: Cleanups.
   6 931201: Baseline.
   7 No known patent problems.
   8
   9 Documentation in sgetopt.3.
  10 */
  11
  12 #include "substdio.h"
  13 #include "subfd.h"
  14 #define SGETOPTNOSHORT
  15 #include "sgetopt.h"
  16 #define SUBGETOPTNOSHORT
  17 #include "subgetopt.h"
  18
  19 #define getopt sgetoptmine
  20 #define optind subgetoptind
  21 #define opterr sgetopterr
  22 #define optproblem subgetoptproblem
  23 #define optprogname sgetoptprogname
  24
  25 int opterr = 1;
  26 char *optprogname = 0;
  27
  28 int getopt(argc,argv,opts)
  29 int argc;
  30 char **argv;
  31 char *opts;
  32 {
  33   int c;
  34   char *s;
  35
  36   if (!optprogname) {
  37     optprogname = *argv;
  38     if (!optprogname) optprogname = "";
  39     for (s = optprogname;*s;++s) if (*s == '/') optprogname = s + 1;
  40   }
  41   c = subgetopt(argc,argv,opts);
  42   if (opterr)
  43     if (c == '?') {
  44       char chp[2]; chp[0] = optproblem; chp[1] = '\n';
  45       substdio_puts(subfderr,optprogname);
  46       if (argv[optind] && (optind < argc))
  47         substdio_puts(subfderr,": illegal option -- ");
  48       else
  49         substdio_puts(subfderr,": option requires an argument -- ");
  50       substdio_put(subfderr,chp,2);
  51       substdio_flush(subfderr);
  52     }
  53   return c;
  54 }