| 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 | } |