9 extern int __optpos, __optreset;
11 static void permute(char *const *argv, int dest, int src)
13 char **av = (char **)argv;
16 for (i=src; i>dest; i--)
21 void __getopt_msg(const char *, const char *, const char *, size_t);
23 static int __getopt_long_core(int argc, char *const *argv, const char *optstring, const struct option *longopts, int *idx, int longonly);
25 static int __getopt_long(int argc, char *const *argv, const char *optstring, const struct option *longopts, int *idx, int longonly)
27 int ret, skipped, resumed;
28 if (!optind || __optreset) {
33 if (optind >= argc || !argv[optind]) return -1;
35 if (optstring[0] != '+' && optstring[0] != '-') {
37 for (i=optind; ; i++) {
38 if (i >= argc || !argv[i]) return -1;
39 if (argv[i][0] == '-' && argv[i][1]) break;
44 ret = __getopt_long_core(argc, argv, optstring, longopts, idx, longonly);
45 if (resumed > skipped) {
46 int i, cnt = optind-resumed;
48 permute(argv, skipped, optind-1);
49 optind = skipped + cnt;
54 static int __getopt_long_core(int argc, char *const *argv, const char *optstring, const struct option *longopts, int *idx, int longonly)
57 if (longopts && argv[optind][0] == '-' &&
58 ((longonly && argv[optind][1] && argv[optind][1] != '-') ||
59 (argv[optind][1] == '-' && argv[optind][2])))
61 int colon = optstring[optstring[0]=='+'||optstring[0]=='-']==':';
63 char *arg, *opt, *start = argv[optind]+1;
64 for (cnt=i=0; longopts[i].name; i++) {
65 const char *name = longopts[i].name;
67 if (*opt == '-') opt++;
68 while (*opt && *opt != '=' && *opt == *name)
70 if (*opt && *opt != '=') continue;
79 if (cnt==1 && longonly && arg-start == mblen(start, MB_LEN_MAX)) {
81 for (i=0; optstring[i]; i++) {
83 for (j=0; j<l && start[j]==optstring[i+j]; j++);
95 if (!longopts[i].has_arg) {
96 optopt = longopts[i].val;
100 ": option does not take an argument: ",
102 strlen(longopts[i].name));
106 } else if (longopts[i].has_arg == required_argument) {
107 if (!(optarg = argv[optind])) {
108 optopt = longopts[i].val;
109 if (colon) return ':';
110 if (!opterr) return '?';
111 __getopt_msg(argv[0],
112 ": option requires an argument: ",
114 strlen(longopts[i].name));
120 if (longopts[i].flag) {
121 *longopts[i].flag = longopts[i].val;
124 return longopts[i].val;
126 if (argv[optind][1] == '-') {
128 if (!colon && opterr)
129 __getopt_msg(argv[0], cnt ?
130 ": option is ambiguous: " :
131 ": unrecognized option: ",
133 strlen(argv[optind]+2));
138 return getopt(argc, argv, optstring);
141 int getopt_long(int argc, char *const *argv, const char *optstring, const struct option *longopts, int *idx)
143 return __getopt_long(argc, argv, optstring, longopts, idx, 0);
146 int getopt_long_only(int argc, char *const *argv, const char *optstring, const struct option *longopts, int *idx)
148 return __getopt_long(argc, argv, optstring, longopts, idx, 1);