]> mj.ucw.cz Git - libucw.git/blob - ucw/opt.c
Opt: Introduced contexts
[libucw.git] / ucw / opt.c
1 /*
2  *      UCW Library -- Parsing of command line options
3  *
4  *      (c) 2013 Jan Moskyto Matejka <mq@ucw.cz>
5  *
6  *      This software may be freely distributed and used according to the terms
7  *      of the GNU Lesser General Public License.
8  */
9
10 #include <ucw/lib.h>
11 #include <ucw/opt.h>
12 #include <ucw/conf.h>
13 #include <ucw/conf-internal.h>
14 #include <ucw/fastbuf.h>
15 #include <ucw/stkstring.h>
16 #include <ucw/strtonum.h>
17
18 #include <alloca.h>
19 #include <math.h>
20
21 // FIXME: Do we need these?
22 int opt_parsed_count = 0;
23 int opt_conf_parsed_count = 0;
24
25 struct opt_precomputed {
26   struct opt_item * item;
27   const char * name;
28   short flags;
29   short count;
30 };
31
32 struct opt_context {
33   struct opt_precomputed ** opts;
34   struct opt_precomputed ** shortopt;
35   struct opt_item ** hooks_before_arg;
36   struct opt_item ** hooks_before_value;
37   struct opt_item ** hooks_after_value;
38   short opt_count;
39   short hooks_before_arg_count;
40   short hooks_before_value_count;
41   short hooks_after_value_count;
42   int positional_max;
43   int positional_count;
44 };
45
46 static void opt_failure(const char * mesg, ...) FORMAT_CHECK(printf,1,2) NONRET;
47 static void opt_failure(const char * mesg, ...) {
48   va_list args;
49   va_start(args, mesg);
50   vfprintf(stderr, mesg, args);
51   fprintf(stderr, "\n");
52   opt_usage();
53   exit(OPT_EXIT_BAD_ARGS);
54   va_end(args);         // FIXME: Does this make a sense after exit()?
55 }
56
57 // FIXME: This could be an inline function, couldn't it?
58 #define OPT_ADD_DEFAULT_ITEM_FLAGS(item, flags) \
59   do { \
60     if (item->letter >= 256) { \
61       if (flags & OPT_VALUE_FLAGS) /* FIXME: Redundant condition */ \
62         flags &= ~OPT_VALUE_FLAGS; \
63       flags |= OPT_REQUIRED_VALUE; \
64     } \
65     if (!(flags & OPT_VALUE_FLAGS) && \
66         (item->cls == OPT_CL_CALL || item->cls == OPT_CL_USER)) { \
67       fprintf(stderr, "You MUST specify some of the value flags for the %c/%s item.\n", item->letter, item->name); \
68       ASSERT(0); \
69     } \
70     else if (!(flags & OPT_VALUE_FLAGS)) /* FIXME: Streamline the conditions */ \
71       flags |= opt_default_value_flags[item->cls]; \
72   } while (0)
73 // FIXME: Is this still useful? Isn't it better to use OPT_ADD_DEFAULT_ITEM_FLAGS during init?
74 #define OPT_ITEM_FLAGS(item) ((item->flags & OPT_VALUE_FLAGS) ? item->flags : item->flags | opt_default_value_flags[item->cls])
75
76 const struct opt_section * opt_section_root;
77
78 #define FOREACHLINE(text) for (const char * begin = (text), * end = (text); (*end) && (end = strchrnul(begin, '\n')); begin = end+1)
79
80 static inline uns uns_min(uns x, uns y)
81 {
82   return MIN(x, y);
83 }
84
85 void opt_help_internal(const struct opt_section * help) {
86   int sections_cnt = 0;
87   int lines_cnt = 0;
88
89   for (struct opt_item * item = help->opt; item->cls != OPT_CL_END; item++) {
90     if (item->flags & OPT_NO_HELP) continue;
91     if (item->cls == OPT_CL_SECTION) {
92       sections_cnt++;
93       continue;
94     }
95     if (!*(item->help)) {
96       lines_cnt++;
97       continue;
98     }
99     FOREACHLINE(item->help)
100       lines_cnt++;
101   }
102
103   struct opt_sectlist {
104     int pos;
105     struct opt_section * sect;
106   } sections[sections_cnt];
107   int s = 0;
108
109   const char *lines[lines_cnt][3];
110   memset(lines, 0, sizeof(lines));
111   int line = 0;
112
113   int linelengths[3] = { -1, -1, -1 };
114
115   for (struct opt_item * item = help->opt; item->cls != OPT_CL_END; item++) {
116     if (item->flags & OPT_NO_HELP) continue;
117
118     if (item->cls == OPT_CL_HELP) {
119       if (!*(item->help)) {
120         line++;
121         continue;
122       }
123 #define SPLITLINES(text) do { \
124       FOREACHLINE(text) { \
125         int cell = 0; \
126         for (const char * b = begin, * e = begin; (e < end) && (e = strchrnul(b, '\t')) && (e > end ? (e = end) : end); b = e+1) { \
127           lines[line][cell] = b; \
128           if (cell >= 2) \
129             break; \
130           else \
131             if (*e == '\t' && linelengths[cell] < (e - b)) \
132               linelengths[cell] = e-b; \
133           cell++; \
134         } \
135         line++; \
136       } } while (0)
137       SPLITLINES(item->help);
138       continue;
139     }
140
141     if (item->cls == OPT_CL_SECTION) {
142       sections[s++] = (struct opt_sectlist) { .pos = line, .sect = item->u.section };
143       continue;
144     }
145
146     uns valoff = strchrnul(item->help, '\t') - item->help;
147     uns eol = strchrnul(item->help, '\n') - item->help;
148     if (valoff > eol)
149       valoff = eol;
150 #define VAL(it) ((OPT_ITEM_FLAGS(it) & OPT_REQUIRED_VALUE) ? stk_printf("=%.*s", valoff, item->help)  : ((OPT_ITEM_FLAGS(it) & OPT_NO_VALUE) ? "" : stk_printf("(=%.*s)", valoff, item->help)))
151     if (item->name) {
152       lines[line][1] = stk_printf("--%s%s", item->name, VAL(item));
153       if (linelengths[1] < (int) strlen(lines[line][1]))
154         linelengths[1] = strlen(lines[line][1]);
155       lines[line][0] = "";
156       if (linelengths[0] < 0)
157         linelengths[0] = 0;
158     }
159     if (item->letter) {
160       lines[line][0] = stk_printf("-%c,", item->letter);
161       if (linelengths[0] < (int) strlen(lines[line][0]))
162         linelengths[0] = strlen(lines[line][0]);
163     }
164 #undef VAL
165
166     if (eol > valoff) {
167       lines[line][2] = item->help + valoff + 1;
168     }
169
170     line++;
171
172     if (*(item->help + eol))
173       SPLITLINES(item->help + eol + 1);
174   }
175 #undef SPLITLINES
176
177   s = 0;
178 #define FIELD(k) linelengths[k], uns_min(strchrnul(lines[i][k], '\t') - lines[i][k], strchrnul(lines[i][k], '\n') - lines[i][k]), lines[i][k]
179 #define LASTFIELD(k) uns_min(strchrnul(lines[i][k], '\t') - lines[i][k], strchrnul(lines[i][k], '\n') - lines[i][k]), lines[i][k]
180   for (int i=0;i<line;i++) {
181     while (s < sections_cnt && sections[s].pos == i) {
182       opt_help_internal(sections[s].sect);
183       s++;
184     }
185     if (lines[i][0] == NULL)
186       printf("\n");
187     else if (linelengths[0] == -1 || lines[i][1] == NULL)
188       printf("%.*s\n", LASTFIELD(0));
189     else if (linelengths[1] == -1 || lines[i][2] == NULL)
190       printf("%-*.*s  %.*s\n", FIELD(0), LASTFIELD(1));
191     else
192       printf("%-*.*s  %-*.*s  %.*s\n", FIELD(0), FIELD(1), LASTFIELD(2));
193   }
194   while (s < sections_cnt && sections[s].pos == line) {
195     opt_help_internal(sections[s].sect);
196     s++;
197   }
198 }
199
200 static struct opt_precomputed * opt_find_item_shortopt(struct opt_context * oc, int chr) {
201   struct opt_precomputed * candidate = oc->shortopt[chr];
202   if (!candidate)
203     opt_failure("Invalid option -%c", chr);
204   if (candidate->count++ && (candidate->flags & OPT_SINGLE))
205     opt_failure("Option -%c appeared the second time.", candidate->item->letter);
206   return candidate;
207 }
208
209 static struct opt_precomputed * opt_find_item_longopt(struct opt_context * oc, char * str) {
210   uns len = strlen(str);
211   struct opt_precomputed * candidate = NULL;
212
213   for (int i=0; i<oc->opt_count; i++) {
214     if (!oc->opts[i]->name)
215       continue;
216     if (!strncmp(oc->opts[i]->name, str, len)) {
217       if (strlen(oc->opts[i]->name) == len) {
218         if (oc->opts[i]->count++ && (oc->opts[i]->flags & OPT_SINGLE))
219           opt_failure("Option %s appeared the second time.", oc->opts[i]->name);
220
221         return oc->opts[i];
222       }
223       if (candidate)
224         opt_failure("Ambiguous prefix %s: Found matching %s and %s.", str, candidate->name, oc->opts[i]->name);
225       else
226         candidate = oc->opts[i];
227     }
228     if (!strncmp("no-", str, 3) && !strncmp(oc->opts[i]->name, str+3, len-3)) {
229       if (strlen(oc->opts[i]->name) == len-3) {
230         if (oc->opts[i]->count++ && (oc->opts[i]->flags & OPT_SINGLE))
231           opt_failure("Option %s appeared the second time.", oc->opts[i]->name);
232
233         return oc->opts[i];
234       }
235       if (candidate)
236         opt_failure("Ambiguous prefix %s: Found matching %s and %s.", str, candidate->name, oc->opts[i]->name);
237       else
238         candidate = oc->opts[i];
239     }
240   }
241
242   if (candidate)
243     return candidate;
244
245   opt_failure("Invalid option %s.", str);
246 }
247
248 #define OPT_PTR(type) ({ \
249   type * ptr; \
250   if (item->flags & OPT_MULTIPLE) { \
251     struct { \
252       cnode n; \
253       type v; \
254     } * n = xmalloc(sizeof(*n)); \
255     clist_add_tail(item->ptr, &(n->n)); \
256     ptr = &(n->v); \
257   } else \
258     ptr = item->ptr; \
259   ptr; })
260
261 #define OPT_NAME (longopt == 2 ? stk_printf("positional arg #%d", oc->positional_count) : (longopt == 1 ? stk_printf("--%s", opt->name) : stk_printf("-%c", item->letter)))
262 static void opt_parse_value(struct opt_context * oc, struct opt_precomputed * opt, char * value, int longopt) {
263   struct opt_item * item = opt->item;
264   for (int i=0;i<oc->hooks_before_value_count;i++)
265     oc->hooks_before_value[i]->u.call(item, value, oc->hooks_before_value[i]->ptr);
266
267   switch (item->cls) {
268     case OPT_CL_BOOL:
269       if (!value || !strcasecmp(value, "y") || !strcasecmp(value, "yes") || !strcasecmp(value, "true") || !strcasecmp(value, "1"))
270         *((int *) item->ptr) = 1 ^ (!!(opt->flags & OPT_NEGATIVE));
271       else if (!strcasecmp(value, "n") || !strcasecmp(value, "no") || !strcasecmp(value, "false") || !strcasecmp(value, "0"))
272         *((int *) item->ptr) = 0 ^ (!!(opt->flags & OPT_NEGATIVE));
273       else
274         opt_failure("Boolean argument for %s has a strange value. Supported (case insensitive): y/n, yes/no, true/false.", OPT_NAME);
275       break;
276     case OPT_CL_STATIC:
277       {
278         char * e = NULL;
279         switch (item->type) {
280           case CT_INT:
281             if (!value)
282               *OPT_PTR(int) = 0;
283             else
284               e = cf_parse_int(value, OPT_PTR(int));
285             if (e)
286               opt_failure("Integer value parsing failed for %s: %s", OPT_NAME, e);
287             break;
288           case CT_U64:
289             if (!value)
290               *OPT_PTR(u64) = 0;
291             else
292               e = cf_parse_u64(value, OPT_PTR(u64));
293             if (e)
294               opt_failure("Unsigned 64-bit value parsing failed for %s: %s", OPT_NAME, e);
295             break;
296           case CT_DOUBLE:
297             if (!value)
298               *OPT_PTR(double) = NAN;
299             else
300               e = cf_parse_double(value, OPT_PTR(double));
301             if (e)
302               opt_failure("Double value parsing failed for %s: %s", OPT_NAME, e);
303             break;
304           case CT_IP:
305             if (!value)
306               e = cf_parse_ip("0.0.0.0", OPT_PTR(u32));
307             else
308               e = cf_parse_ip(value, OPT_PTR(u32));
309             if (e)
310               opt_failure("IP parsing failed for %s: %s", OPT_NAME, e);
311             break;
312           case CT_STRING:
313             if (!value)
314               *OPT_PTR(const char *) = NULL;
315             else
316               *OPT_PTR(const char *) = xstrdup(value);
317             break;
318           default:
319             ASSERT(0);
320         }
321         break;
322       }
323     case OPT_CL_SWITCH:
324       if (*((int *)item->ptr) != -1)
325         opt_failure("Multiple switches: %s", OPT_NAME);
326       else
327         *((int *)item->ptr) = item->u.value;
328       break;
329     case OPT_CL_INC:
330       if (opt->flags & OPT_NEGATIVE)
331         (*((int *)item->ptr))--;
332       else
333         (*((int *)item->ptr))++;
334       break;
335     case OPT_CL_CALL:
336       item->u.call(item, value, item->ptr);
337       break;
338     case OPT_CL_USER:
339       {
340         char * e = NULL;
341         e = item->u.utype->parser(value, OPT_PTR(void*));
342         if (e)
343           opt_failure("User defined type value parsing failed for %s: %s", OPT_NAME, e);
344         break;
345       }
346     default:
347       ASSERT(0);
348   }
349   opt_parsed_count++;
350
351   for (int i=0;i<oc->hooks_after_value_count;i++)
352     oc->hooks_after_value[i]->u.call(item, value, oc->hooks_after_value[i]->ptr);
353 }
354 #undef OPT_NAME
355
356 static int opt_longopt(struct opt_context * oc, char ** argv, int index) {
357   int eaten = 0;
358   char * name_in = argv[index] + 2; // skipping the -- on the beginning
359   uns pos = strchrnul(name_in, '=') - name_in;
360   struct opt_precomputed * opt = opt_find_item_longopt(oc, strndupa(name_in, pos));     // FIXME: free?
361   char * value = NULL;
362
363   if (opt->item->cls == OPT_CL_BOOL && !strncmp(name_in, "no-", 3) && !strncmp(name_in+3, opt->item->name, pos-3))
364     value = "n";
365   else if (opt->flags & OPT_REQUIRED_VALUE) {
366     if (pos < strlen(name_in))
367       value = name_in + pos + 1;
368     else {
369       value = argv[index+1];
370       if (!value)
371         opt_failure("Argument --%s must have a value but nothing supplied.", opt->name);
372       eaten++;
373     }
374   }
375   else if (opt->flags & OPT_MAYBE_VALUE) {
376     if (pos < strlen(name_in))
377       value = name_in + pos + 1;
378   }
379   else {
380     if (pos < strlen(name_in))
381       opt_failure("Argument --%s must not have any value.", opt->name);
382   }
383   opt_parse_value(oc, opt, value, 1);
384   return eaten;
385 }
386
387 static int opt_shortopt(struct opt_context * oc, char ** argv, int index) {
388   int chr = 0;
389   struct opt_precomputed * opt;
390   while (argv[index][++chr] && (opt = opt_find_item_shortopt(oc, argv[index][chr]))) {
391     if (opt->flags & OPT_NO_VALUE) {
392       opt_parse_value(oc, opt, NULL, 0);
393     }
394     else if (opt->flags & OPT_REQUIRED_VALUE) {
395       if (chr == 1 && argv[index][2]) {
396         opt_parse_value(oc, opt, argv[index] + 2, 0);
397         return 0;
398       }
399       else if (argv[index][chr+1])
400         opt_failure("Option -%c must have a value but found inside a bunch of short opts.", opt->item->letter);
401       else if (!argv[index+1])
402         opt_failure("Option -%c must have a value but nothing supplied.", opt->item->letter);
403       else {
404         opt_parse_value(oc, opt, argv[index+1], 0);
405         return 1;
406       }
407     }
408     else if (opt->flags & OPT_MAYBE_VALUE) {
409       if (chr == 1 && argv[index][2]) {
410         opt_parse_value(oc, opt, argv[index] + 2, 0);
411         return 0;
412       }
413       else
414         opt_parse_value(oc, opt, NULL, 0);
415     }
416     else {
417       ASSERT(0);
418     }
419   }
420
421   if (argv[index][chr])
422     opt_failure("Unknown option -%c.", argv[index][chr]);
423
424   return 0;
425 }
426
427 static void opt_positional(struct opt_context * oc, char * value) {
428   oc->positional_count++;
429   struct opt_precomputed * opt = opt_find_item_shortopt(oc, (oc->positional_count > oc->positional_max ? 256 : oc->positional_count + 256));
430   if (!opt) {
431     ASSERT(oc->positional_count > oc->positional_max);
432     opt_failure("Too many positional args.");
433   }
434
435   opt_parse_value(oc, opt, value, 2);
436 }
437
438 #define OPT_TRAVERSE_SECTIONS \
439     while (item->cls == OPT_CL_SECTION) { \
440       if (stk->next) \
441         stk = stk->next; \
442       else { \
443         struct opt_stack * new_stk = alloca(sizeof(*new_stk)); \
444         new_stk->prev = stk; \
445         stk->next = new_stk; \
446         stk = new_stk; \
447       } \
448       stk->this = item; \
449       item = item->u.section->opt; \
450     } \
451     if (item->cls == OPT_CL_END) { \
452       if (!stk->prev) break; \
453       item = stk->this; \
454       stk = stk->prev; \
455       continue; \
456     }
457
458 void opt_parse(const struct opt_section * options, char ** argv) {
459   struct opt_stack {
460     struct opt_item * this;
461     struct opt_stack * prev;
462     struct opt_stack * next;
463   } * stk = alloca(sizeof(*stk));
464   stk->this = NULL;
465   stk->prev = NULL;
466   stk->next = NULL;
467
468   struct opt_context * oc = alloca(sizeof(*oc));
469   memset(oc, 0, sizeof (*oc));
470
471   int count = 0;
472   int hooks = 0;
473
474   for (struct opt_item * item = options->opt; ; item++) {
475     OPT_TRAVERSE_SECTIONS;
476     if (item->letter || item->name)
477       count++;
478     if (item->cls == OPT_CL_BOOL)
479       count++;
480     if (item->letter > 256)
481       oc->positional_max++;
482     if (item->cls == OPT_CL_HOOK)
483       hooks++;
484   }
485
486   oc->opts = alloca(sizeof(*oc->opts) * count);
487   oc->shortopt = alloca(sizeof(*oc->shortopt) * (oc->positional_max + 257));
488   memset(oc->shortopt, 0, sizeof(*oc->shortopt) * (oc->positional_max + 257));
489   oc->hooks_before_arg = alloca(sizeof (*oc->hooks_before_arg) * hooks);
490   oc->hooks_before_value = alloca(sizeof (*oc->hooks_before_value) * hooks);
491   oc->hooks_after_value = alloca(sizeof (*oc->hooks_after_value) * hooks);
492
493   oc->hooks_before_arg_count = 0;
494   oc->hooks_before_value_count = 0;
495   oc->hooks_after_value_count = 0;
496
497   oc->opt_count = 0;
498
499   for (struct opt_item * item = options->opt; ; item++) {
500     OPT_TRAVERSE_SECTIONS;
501     if (item->letter || item->name) {
502       struct opt_precomputed * opt = xmalloc(sizeof(*opt));
503       opt->item = item;
504       opt->flags = item->flags;
505       opt->count = 0;
506       opt->name = item->name;
507       oc->opts[oc->opt_count++] = opt;
508       if (item->letter)
509         oc->shortopt[(int) item->letter] = opt;
510       OPT_ADD_DEFAULT_ITEM_FLAGS(item, opt->flags);
511     }
512     if (item->cls == OPT_CL_HOOK) {
513       if (item->flags & OPT_HOOK_BEFORE_ARG)
514         oc->hooks_before_arg[oc->hooks_before_arg_count++] = item;
515       else if (item->flags & OPT_HOOK_BEFORE_VALUE)
516         oc->hooks_before_value[oc->hooks_before_value_count++] = item;
517       else if (item->flags & OPT_HOOK_AFTER_VALUE)
518         oc->hooks_after_value[oc->hooks_after_value_count++] = item;
519       else
520         ASSERT(0);
521     }
522   }
523
524   int force_positional = 0;
525   for (int i=0;argv[i];i++) {
526     for (int j=0;j<oc->hooks_before_arg_count;j++)
527       oc->hooks_before_arg[j]->u.call(NULL, NULL, oc->hooks_before_arg[j]->ptr);
528     if (argv[i][0] != '-' || force_positional) {
529       opt_positional(oc, argv[i]);
530     }
531     else {
532       if (argv[i][1] == '-') {
533         if (argv[i][2] == '\0')
534           force_positional++;
535         else
536           i += opt_longopt(oc, argv, i);
537       }
538       else if (argv[i][1])
539         i += opt_shortopt(oc, argv, i);
540       else
541         opt_positional(oc, argv[i]);
542     }
543   }
544
545   for (int i=0;i<oc->positional_max+257;i++) {
546     if (!oc->shortopt[i])
547       continue;
548     if (!oc->shortopt[i]->count && (oc->shortopt[i]->flags & OPT_REQUIRED))
549       if (i < 256)
550         opt_failure("Required option -%c not found.", oc->shortopt[i]->item->letter);
551       else
552         opt_failure("Required positional argument #%d not found.", (i > 256) ? oc->shortopt[i]->item->letter-256 : oc->positional_max+1);
553   }
554
555   for (int i=0;i<oc->opt_count;i++) {
556     if (!oc->opts[i])
557       continue;
558     if (!oc->opts[i]->count && (oc->opts[i]->flags & OPT_REQUIRED))
559       opt_failure("Required option --%s not found.", oc->opts[i]->item->name);
560   }
561 }
562
563 static void opt_conf_end_of_options(struct cf_context *cc) {
564   cf_load_default(cc);
565   if (cc->postpone_commit && cf_close_group())
566     opt_failure("Loading of configuration failed");
567 }
568
569 void opt_conf_internal(struct opt_item * opt, const char * value, void * data UNUSED) {
570   struct cf_context *cc = cf_get_context();
571   switch (opt->letter) {
572     case 'S':
573       cf_load_default(cc);
574       if (cf_set(value))
575         opt_failure("Cannot set %s", value);
576       break;
577     case 'C':
578       if (cf_load(value))
579         opt_failure("Cannot load config file %s", value);
580       break;
581 #ifdef CONFIG_UCW_DEBUG
582     case '0':
583       opt_conf_end_of_options(cc);
584       struct fastbuf *b = bfdopen(1, 4096);
585       cf_dump_sections(b);
586       bclose(b);
587       exit(0);
588       break;
589 #endif
590   }
591
592   opt_conf_parsed_count++;
593 }
594
595 void opt_conf_hook_internal(struct opt_item * opt, const char * value UNUSED, void * data UNUSED) {
596   static enum {
597     OPT_CONF_HOOK_BEGIN,
598     OPT_CONF_HOOK_CONFIG,
599     OPT_CONF_HOOK_OTHERS
600   } state = OPT_CONF_HOOK_BEGIN;
601
602   int confopt = 0;
603
604   if (opt->letter == 'S' || opt->letter == 'C' || (opt->name && !strcmp(opt->name, "dumpconfig")))
605     confopt = 1;
606
607   switch (state) {
608     case OPT_CONF_HOOK_BEGIN:
609       if (confopt)
610         state = OPT_CONF_HOOK_CONFIG;
611       else {
612         opt_conf_end_of_options(cf_get_context());
613         state = OPT_CONF_HOOK_OTHERS;
614       }
615       break;
616     case OPT_CONF_HOOK_CONFIG:
617       if (!confopt) {
618         opt_conf_end_of_options(cf_get_context());
619         state = OPT_CONF_HOOK_OTHERS;
620       }
621       break;
622     case OPT_CONF_HOOK_OTHERS:
623       if (confopt)
624         opt_failure("Config options (-C, -S) must stand before other options.");
625       break;
626     default:
627       ASSERT(0);
628   }
629 }