2 * Copyright 2008-2009 Katholieke Universiteit Leuven
4 * Use of this software is governed by the GNU LGPLv2.1 license
6 * Written by Sven Verdoolaege, K.U.Leuven, Departement
7 * Computerwetenschappen, Celestijnenlaan 200A, B-3001 Leuven, Belgium
17 static void set_default_choice(struct isl_arg
*arg
, void *opt
)
19 *(unsigned *)(((char *)opt
) + arg
->offset
) = arg
->u
.choice
.default_value
;
22 static void set_default_flags(struct isl_arg
*arg
, void *opt
)
24 *(unsigned *)(((char *)opt
) + arg
->offset
) = arg
->u
.flags
.default_value
;
27 static void set_default_bool(struct isl_arg
*arg
, void *opt
)
29 *(unsigned *)(((char *)opt
) + arg
->offset
) = arg
->u
.b
.default_value
;
32 static void set_default_child(struct isl_arg
*arg
, void *opt
)
34 void *child
= calloc(1, arg
->u
.child
.size
);
37 isl_arg_set_defaults(arg
->u
.child
.child
, child
);
39 *(void **)(((char *)opt
) + arg
->offset
) = child
;
42 static void set_default_user(struct isl_arg
*arg
, void *opt
)
44 arg
->u
.user
.init(((char *)opt
) + arg
->offset
);
47 static void set_default_long(struct isl_arg
*arg
, void *opt
)
49 *(long *)(((char *)opt
) + arg
->offset
) = arg
->u
.l
.default_value
;
52 static void set_default_ulong(struct isl_arg
*arg
, void *opt
)
54 *(unsigned long *)(((char *)opt
) + arg
->offset
) = arg
->u
.ul
.default_value
;
57 static void set_default_str(struct isl_arg
*arg
, void *opt
)
59 const char *str
= NULL
;
60 if (arg
->u
.str
.default_value
)
61 str
= strdup(arg
->u
.str
.default_value
);
62 *(const char **)(((char *)opt
) + arg
->offset
) = str
;
65 void isl_arg_set_defaults(struct isl_arg
*arg
, void *opt
)
69 for (i
= 0; arg
[i
].type
!= isl_arg_end
; ++i
) {
70 switch (arg
[i
].type
) {
72 set_default_choice(&arg
[i
], opt
);
75 set_default_flags(&arg
[i
], opt
);
78 set_default_bool(&arg
[i
], opt
);
81 set_default_child(&arg
[i
], opt
);
84 set_default_user(&arg
[i
], opt
);
87 set_default_long(&arg
[i
], opt
);
90 set_default_ulong(&arg
[i
], opt
);
94 set_default_str(&arg
[i
], opt
);
103 void isl_arg_free(struct isl_arg
*arg
, void *opt
)
110 for (i
= 0; arg
[i
].type
!= isl_arg_end
; ++i
) {
111 switch (arg
[i
].type
) {
113 isl_arg_free(arg
[i
].u
.child
.child
,
114 *(void **)(((char *)opt
) + arg
[i
].offset
));
118 free(*(char **)(((char *)opt
) + arg
[i
].offset
));
121 if (arg
[i
].u
.user
.clear
)
122 arg
[i
].u
.user
.clear(((char *)opt
) + arg
[i
].offset
);
129 case isl_arg_version
:
138 static int print_arg_help(struct isl_arg
*decl
, const char *prefix
, int no
)
142 if (!decl
->long_name
) {
143 printf(" -%c", decl
->short_name
);
147 if (decl
->short_name
)
148 printf(" -%c, --", decl
->short_name
);
154 printf("%s-", prefix
);
155 len
+= strlen(prefix
) + 1;
161 printf("%s", decl
->long_name
);
162 len
+= strlen(decl
->long_name
);
167 const void *isl_memrchr(const void *s
, int c
, size_t n
)
176 static int print_help_msg(struct isl_arg
*decl
, int pos
)
185 printf("\n%30s", "");
187 printf("%*s", 30 - pos
, "");
192 const char *space
= isl_memrchr(s
, ' ', 45);
196 space
= strchr(s
+ 45, ' ');
200 printf("%.*s", l
, s
);
203 printf("\n%30s", "");
210 static void print_default(struct isl_arg
*decl
, const char *def
, int pos
)
213 const char *default_prefix
= "[default: ";
214 const char *default_suffix
= "]";
217 len
= strlen(default_prefix
) + strlen(def
) + strlen(default_suffix
);
219 if (!decl
->help_msg
) {
221 printf("\n%30s", "");
223 printf("%*s", 30 - pos
, "");
227 printf("\n%30s", "");
231 printf("%s%s%s", default_prefix
, def
, default_suffix
);
234 static void print_default_choice(struct isl_arg
*decl
, int pos
)
237 const char *s
= "none";
239 for (i
= 0; decl
->u
.choice
.choice
[i
].name
; ++i
)
240 if (decl
->u
.choice
.choice
[i
].value
== decl
->u
.choice
.default_value
) {
241 s
= decl
->u
.choice
.choice
[i
].name
;
245 print_default(decl
, s
, pos
);
248 static void print_choice_help(struct isl_arg
*decl
, const char *prefix
)
253 pos
= print_arg_help(decl
, prefix
, 0);
257 for (i
= 0; decl
->u
.choice
.choice
[i
].name
; ++i
) {
262 printf("%s", decl
->u
.choice
.choice
[i
].name
);
263 pos
+= strlen(decl
->u
.choice
.choice
[i
].name
);
266 pos
= print_help_msg(decl
, pos
);
267 print_default_choice(decl
, pos
);
272 static void print_default_flags(struct isl_arg
*decl
, int pos
)
275 const char *default_prefix
= "[default: ";
276 const char *default_suffix
= "]";
277 int len
= strlen(default_prefix
) + strlen(default_suffix
);
279 for (i
= 0; decl
->u
.flags
.flags
[i
].name
; ++i
)
280 if ((decl
->u
.flags
.default_value
& decl
->u
.flags
.flags
[i
].mask
) ==
281 decl
->u
.flags
.flags
[i
].value
)
282 len
+= strlen(decl
->u
.flags
.flags
[i
].name
);
284 if (!decl
->help_msg
) {
286 printf("\n%30s", "");
288 printf("%*s", 30 - pos
, "");
292 printf("\n%30s", "");
296 printf("%s", default_prefix
);
298 for (first
= 1, i
= 0; decl
->u
.flags
.flags
[i
].name
; ++i
)
299 if ((decl
->u
.flags
.default_value
& decl
->u
.flags
.flags
[i
].mask
) ==
300 decl
->u
.flags
.flags
[i
].value
) {
303 printf("%s", decl
->u
.flags
.flags
[i
].name
);
307 printf("%s", default_suffix
);
310 static void print_flags_help(struct isl_arg
*decl
, const char *prefix
)
315 pos
= print_arg_help(decl
, prefix
, 0);
319 for (i
= 0; decl
->u
.flags
.flags
[i
].name
; ++i
) {
325 decl
->u
.flags
.flags
[j
].mask
== decl
->u
.flags
.flags
[i
].mask
;
331 printf("%s", decl
->u
.flags
.flags
[j
].name
);
332 pos
+= strlen(decl
->u
.flags
.flags
[j
].name
);
337 pos
= print_help_msg(decl
, pos
);
338 print_default_flags(decl
, pos
);
343 static void print_bool_help(struct isl_arg
*decl
, const char *prefix
)
346 int no
= decl
->u
.b
.default_value
== 1;
347 pos
= print_arg_help(decl
, prefix
, no
);
348 pos
= print_help_msg(decl
, pos
);
349 print_default(decl
, no
? "yes" : "no", pos
);
353 static void print_long_help(struct isl_arg
*decl
, const char *prefix
)
356 pos
= print_arg_help(decl
, prefix
, 0);
357 if (decl
->u
.l
.default_value
!= decl
->u
.l
.default_selected
) {
363 if (decl
->u
.l
.default_value
!= decl
->u
.l
.default_selected
) {
367 print_help_msg(decl
, pos
);
371 static void print_ulong_help(struct isl_arg
*decl
, const char *prefix
)
374 pos
= print_arg_help(decl
, prefix
, 0);
377 print_help_msg(decl
, pos
);
381 static void print_str_help(struct isl_arg
*decl
, const char *prefix
)
384 const char *a
= decl
->argument_name
? decl
->argument_name
: "string";
385 pos
= print_arg_help(decl
, prefix
, 0);
387 pos
+= 1 + strlen(a
);
388 print_help_msg(decl
, pos
);
392 static void print_help(struct isl_arg
*arg
, const char *prefix
)
396 for (i
= 0; arg
[i
].type
!= isl_arg_end
; ++i
) {
397 switch (arg
[i
].type
) {
399 print_flags_help(&arg
[i
], prefix
);
402 print_choice_help(&arg
[i
], prefix
);
405 print_bool_help(&arg
[i
], prefix
);
408 print_long_help(&arg
[i
], prefix
);
411 print_ulong_help(&arg
[i
], prefix
);
414 print_str_help(&arg
[i
], prefix
);
416 case isl_arg_version
:
417 printf(" -V, --version\n");
427 for (i
= 0; arg
[i
].type
!= isl_arg_end
; ++i
) {
428 if (arg
[i
].type
!= isl_arg_child
)
433 printf(" %s\n", arg
[i
].help_msg
);
434 print_help(arg
[i
].u
.child
.child
, arg
[i
].long_name
);
438 static const char *prog_name(const char *prog
)
442 slash
= strrchr(prog
, '/');
445 if (strncmp(prog
, "lt-", 3) == 0)
451 static void print_help_and_exit(struct isl_arg
*arg
, const char *prog
)
455 printf("Usage: %s [OPTION...]", prog_name(prog
));
457 for (i
= 0; arg
[i
].type
!= isl_arg_end
; ++i
)
458 if (arg
[i
].type
== isl_arg_arg
)
459 printf(" %s", arg
[i
].argument_name
);
463 print_help(arg
, NULL
);
468 static const char *skip_name(struct isl_arg
*decl
, const char *arg
,
469 const char *prefix
, int need_argument
, int *has_argument
)
475 if (arg
[0] == '-' && arg
[1] && arg
[1] == decl
->short_name
) {
476 if (need_argument
&& !arg
[2])
479 *has_argument
= arg
[2] != '\0';
483 if (strncmp(arg
, "--", 2))
487 equal
= strchr(name
, '=');
488 if (need_argument
&& !equal
)
492 *has_argument
= !!equal
;
493 end
= equal
? equal
: name
+ strlen(name
);
496 size_t prefix_len
= strlen(prefix
);
497 if (strncmp(name
, prefix
, prefix_len
) == 0 &&
498 name
[prefix_len
] == '-')
499 name
+= prefix_len
+ 1;
502 if (end
- name
!= strlen(decl
->long_name
) ||
503 strncmp(name
, decl
->long_name
, end
- name
))
506 return equal
? equal
+ 1 : end
;
509 static int parse_choice_option(struct isl_arg
*decl
, char **arg
,
510 const char *prefix
, void *opt
)
516 choice
= skip_name(decl
, arg
[0], prefix
, 0, &has_argument
);
520 if (!has_argument
&& (!arg
[1] || arg
[1][0] == '-')) {
521 unsigned u
= decl
->u
.choice
.default_selected
;
522 if (decl
->u
.choice
.set
)
523 decl
->u
.choice
.set(opt
, u
);
525 *(unsigned *)(((char *)opt
) + decl
->offset
) = u
;
533 for (i
= 0; decl
->u
.choice
.choice
[i
].name
; ++i
) {
536 if (strcmp(choice
, decl
->u
.choice
.choice
[i
].name
))
539 u
= decl
->u
.choice
.choice
[i
].value
;
540 if (decl
->u
.choice
.set
)
541 decl
->u
.choice
.set(opt
, u
);
543 *(unsigned *)(((char *)opt
) + decl
->offset
) = u
;
545 return has_argument
? 1 : 2;
551 static int set_flag(struct isl_arg
*decl
, unsigned *val
, const char *flag
,
556 for (i
= 0; decl
->u
.flags
.flags
[i
].name
; ++i
) {
557 if (strncmp(flag
, decl
->u
.flags
.flags
[i
].name
, len
))
560 *val
&= ~decl
->u
.flags
.flags
[i
].mask
;
561 *val
|= decl
->u
.flags
.flags
[i
].value
;
569 static int parse_flags_option(struct isl_arg
*decl
, char **arg
,
570 const char *prefix
, void *opt
)
577 flags
= skip_name(decl
, arg
[0], prefix
, 0, &has_argument
);
581 if (!has_argument
&& !arg
[1])
587 val
= *(unsigned *)(((char *)opt
) + decl
->offset
);
589 while ((comma
= strchr(flags
, ',')) != NULL
) {
590 if (!set_flag(decl
, &val
, flags
, comma
- flags
))
594 if (!set_flag(decl
, &val
, flags
, strlen(flags
)))
597 *(unsigned *)(((char *)opt
) + decl
->offset
) = val
;
599 return has_argument
? 1 : 2;
602 static int parse_bool_option(struct isl_arg
*decl
, const char *arg
,
603 const char *prefix
, void *opt
)
605 if (skip_name(decl
, arg
, prefix
, 0, NULL
)) {
606 *(unsigned *)(((char *)opt
) + decl
->offset
) = 1;
611 if (strncmp(arg
, "--", 2))
616 size_t prefix_len
= strlen(prefix
);
617 if (strncmp(arg
, prefix
, prefix_len
) == 0 &&
618 arg
[prefix_len
] == '-') {
619 arg
+= prefix_len
+ 1;
624 if (strncmp(arg
, "no-", 3))
629 size_t prefix_len
= strlen(prefix
);
630 if (strncmp(arg
, prefix
, prefix_len
) == 0 &&
631 arg
[prefix_len
] == '-')
632 arg
+= prefix_len
+ 1;
635 if (!strcmp(arg
, decl
->long_name
)) {
636 *(unsigned *)(((char *)opt
) + decl
->offset
) = 0;
644 static int parse_str_option(struct isl_arg
*decl
, char **arg
,
645 const char *prefix
, void *opt
)
649 char **p
= (char **)(((char *)opt
) + decl
->offset
);
651 s
= skip_name(decl
, arg
[0], prefix
, 0, &has_argument
);
668 static int parse_long_option(struct isl_arg
*decl
, char **arg
,
669 const char *prefix
, void *opt
)
674 long *p
= (long *)(((char *)opt
) + decl
->offset
);
676 val
= skip_name(decl
, arg
[0], prefix
, 0, &has_argument
);
681 long l
= strtol(val
, NULL
, 0);
683 decl
->u
.l
.set(opt
, l
);
690 long l
= strtol(arg
[1], &endptr
, 0);
691 if (*endptr
== '\0') {
693 decl
->u
.l
.set(opt
, l
);
700 if (decl
->u
.l
.default_value
!= decl
->u
.l
.default_selected
) {
702 decl
->u
.l
.set(opt
, decl
->u
.l
.default_selected
);
704 *p
= decl
->u
.l
.default_selected
;
711 static int parse_ulong_option(struct isl_arg
*decl
, char **arg
,
712 const char *prefix
, void *opt
)
717 unsigned long *p
= (unsigned long *)(((char *)opt
) + decl
->offset
);
719 val
= skip_name(decl
, arg
[0], prefix
, 0, &has_argument
);
724 *p
= strtoul(val
, NULL
, 0);
729 unsigned long ul
= strtoul(arg
[1], &endptr
, 0);
730 if (*endptr
== '\0') {
739 static int parse_option(struct isl_arg
*decl
, char **arg
,
740 const char *prefix
, void *opt
);
742 static int parse_child_option(struct isl_arg
*decl
, char **arg
, void *opt
)
744 return parse_option(decl
->u
.child
.child
, arg
, decl
->long_name
,
745 *(void **)(((char *)opt
) + decl
->offset
));
748 static int parse_option(struct isl_arg
*decl
, char **arg
,
749 const char *prefix
, void *opt
)
753 for (i
= 0; decl
[i
].type
!= isl_arg_end
; ++i
) {
755 switch (decl
[i
].type
) {
757 parsed
= parse_choice_option(&decl
[i
], arg
, prefix
, opt
);
760 parsed
= parse_flags_option(&decl
[i
], arg
, prefix
, opt
);
763 parsed
= parse_long_option(&decl
[i
], arg
, prefix
, opt
);
766 parsed
= parse_ulong_option(&decl
[i
], arg
, prefix
, opt
);
769 parsed
= parse_bool_option(&decl
[i
], *arg
, prefix
, opt
);
772 parsed
= parse_str_option(&decl
[i
], arg
, prefix
, opt
);
775 parsed
= parse_child_option(&decl
[i
], arg
, opt
);
779 case isl_arg_version
:
790 static int any_version(struct isl_arg
*decl
)
794 for (i
= 0; decl
[i
].type
!= isl_arg_end
; ++i
) {
795 switch (decl
[i
].type
) {
796 case isl_arg_version
:
799 if (any_version(decl
[i
].u
.child
.child
))
810 static void print_version(struct isl_arg
*decl
)
814 for (i
= 0; decl
[i
].type
!= isl_arg_end
; ++i
) {
815 switch (decl
[i
].type
) {
816 case isl_arg_version
:
817 decl
[i
].u
.version
.print_version();
820 print_version(decl
[i
].u
.child
.child
);
828 static void print_version_and_exit(struct isl_arg
*decl
)
835 static int drop_argument(int argc
, char **argv
, int drop
, int n
)
837 for (; drop
< argc
; ++drop
)
838 argv
[drop
] = argv
[drop
+ n
];
843 static int n_arg(struct isl_arg
*arg
)
848 for (i
= 0; arg
[i
].type
!= isl_arg_end
; ++i
)
849 if (arg
[i
].type
== isl_arg_arg
)
855 int isl_arg_parse(struct isl_arg
*arg
, int argc
, char **argv
, void *opt
,
864 for (i
= 1; i
< argc
; ++i
) {
865 if (strcmp(argv
[i
], "--help") == 0)
866 print_help_and_exit(arg
, argv
[0]);
869 for (i
= 1; i
< argc
; ++i
) {
870 if ((strcmp(argv
[i
], "--version") == 0 ||
871 strcmp(argv
[i
], "-V") == 0) && any_version(arg
))
872 print_version_and_exit(arg
);
875 while (argc
> 1 + skip
) {
877 if (argv
[1 + skip
][0] != '-')
879 parsed
= parse_option(arg
, &argv
[1 + skip
], NULL
, opt
);
881 argc
= drop_argument(argc
, argv
, 1 + skip
, parsed
);
882 else if (ISL_FL_ISSET(flags
, ISL_ARG_ALL
)) {
883 fprintf(stderr
, "%s: unrecognized option: %s\n",
884 prog_name(argv
[0]), argv
[1 + skip
]);
890 if (ISL_FL_ISSET(flags
, ISL_ARG_ALL
) ? argc
!= 1 + n
891 : argc
< 1 + skip
+ n
) {
892 fprintf(stderr
, "%s: expecting %d arguments\n",
893 prog_name(argv
[0]), n
);
897 for (i
= 0; arg
[i
].type
!= isl_arg_end
; ++i
) {
899 if (arg
[i
].type
!= isl_arg_arg
)
901 str
= strdup(argv
[1 + skip
]);
902 *(const char **)(((char *)opt
) + arg
[i
].offset
) = str
;
903 argc
= drop_argument(argc
, argv
, 1 + skip
, 1);