Go to most recent revision | Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 2 | pj | 1 | /* |
| 2 | * getlopt.c |
||
| 3 | * |
||
| 4 | * Oliver Fromme <oliver.fromme@heim3.tu-clausthal.de> |
||
| 5 | * Tue Apr 8 07:15:13 MET DST 1997 |
||
| 6 | */ |
||
| 7 | |||
| 8 | #include "getlopt.h" |
||
| 9 | |||
| 10 | int loptind = 1; /* index in argv[] */ |
||
| 11 | int loptchr = 0; /* index in argv[loptind] */ |
||
| 12 | char *loptarg; /* points to argument if present, else to option */ |
||
| 13 | |||
| 14 | #if defined(ultrix) || defined(ULTRIX) |
||
| 15 | char *strdup (char *src) |
||
| 16 | { |
||
| 17 | char *dest; |
||
| 18 | |||
| 19 | if (!(dest = (char *) malloc(strlen(src)+1))) |
||
| 20 | return (NULL); |
||
| 21 | return (strcpy(dest, src)); |
||
| 22 | } |
||
| 23 | #endif |
||
| 24 | |||
| 25 | topt *findopt (int islong, char *opt, topt *opts) |
||
| 26 | { |
||
| 27 | if (!opts) |
||
| 28 | return (0); |
||
| 29 | while (opts->lname) { |
||
| 30 | if (islong) { |
||
| 31 | if (!strcmp(opts->lname, opt)) |
||
| 32 | return (opts); |
||
| 33 | } |
||
| 34 | else |
||
| 35 | if (opts->sname == *opt) |
||
| 36 | return (opts); |
||
| 37 | opts++; |
||
| 38 | } |
||
| 39 | return (0); |
||
| 40 | } |
||
| 41 | |||
| 42 | int performoption (int argc, char *argv[], topt *opt) |
||
| 43 | { |
||
| 44 | int result = GLO_CONTINUE; |
||
| 45 | |||
| 46 | if (!(opt->flags & 1)) /* doesn't take argument */ |
||
| 47 | if (opt->var) |
||
| 48 | if (opt->flags & 2) /* var is *char */ |
||
| 49 | *((char *) opt->var) = (char) opt->value; |
||
| 50 | else |
||
| 51 | *((int *) opt->var) = opt->value; |
||
| 52 | else |
||
| 53 | result = opt->value ? opt->value : opt->sname; |
||
| 54 | else { /* requires argument */ |
||
| 55 | if (loptind >= argc) |
||
| 56 | return (GLO_NOARG); |
||
| 57 | loptarg = argv[loptind++]+loptchr; |
||
| 58 | loptchr = 0; |
||
| 59 | if (opt->var) |
||
| 60 | if (opt->flags & 2) /* var is *char */ |
||
| 61 | *((char **) opt->var) = strdup(loptarg); |
||
| 62 | else |
||
| 63 | *((int *) opt->var) = atoi(loptarg); |
||
| 64 | else |
||
| 65 | result = opt->value ? opt->value : opt->sname; |
||
| 66 | } |
||
| 67 | if (opt->func) |
||
| 68 | opt->func(loptarg); |
||
| 69 | return (result); |
||
| 70 | } |
||
| 71 | |||
| 72 | int getsingleopt (int argc, char *argv[], topt *opts) |
||
| 73 | { |
||
| 74 | char *thisopt; |
||
| 75 | topt *opt; |
||
| 76 | static char shortopt[2] = {0, 0}; |
||
| 77 | |||
| 78 | if (loptind >= argc) |
||
| 79 | return (GLO_END); |
||
| 80 | thisopt = argv[loptind]; |
||
| 81 | if (!loptchr) { /* start new option string */ |
||
| 82 | if (thisopt[0] != '-' || !thisopt[1]) /* no more options */ |
||
| 83 | return (GLO_END); |
||
| 84 | if (thisopt[1] == '-') /* "--" */ |
||
| 85 | if (thisopt[2]) { /* long option */ |
||
| 86 | loptarg = thisopt+2; |
||
| 87 | loptind++; |
||
| 88 | if (!(opt = findopt(1, thisopt+2, opts))) |
||
| 89 | return (GLO_UNKNOWN); |
||
| 90 | else |
||
| 91 | return (performoption(argc, argv, opt)); |
||
| 92 | } |
||
| 93 | else { /* "--" == end of options */ |
||
| 94 | loptind++; |
||
| 95 | return (GLO_END); |
||
| 96 | } |
||
| 97 | else /* start short option(s) */ |
||
| 98 | loptchr = 1; |
||
| 99 | } |
||
| 100 | shortopt[0] = thisopt[loptchr]; |
||
| 101 | loptarg = shortopt; |
||
| 102 | opt = findopt(0, thisopt+(loptchr++), opts); |
||
| 103 | if (!thisopt[loptchr]) { |
||
| 104 | loptind++; |
||
| 105 | loptchr = 0; |
||
| 106 | } |
||
| 107 | if (!opt) |
||
| 108 | return (GLO_UNKNOWN); |
||
| 109 | else |
||
| 110 | return (performoption(argc, argv, opt)); |
||
| 111 | } |
||
| 112 | |||
| 113 | int getlopt (int argc, char *argv[], topt *opts) |
||
| 114 | { |
||
| 115 | int result; |
||
| 116 | |||
| 117 | while ((result = getsingleopt(argc, argv, opts)) == GLO_CONTINUE); |
||
| 118 | return (result); |
||
| 119 | } |
||
| 120 | |||
| 121 | /* EOF */ |