+/* Licensed under GPLv2+ - see LICENSE file for details */
#include <ccan/opt/opt.h>
#include <string.h>
#include <errno.h>
-#include <getopt.h>
#include <stdlib.h>
#include <stdio.h>
-#include <err.h>
#include <assert.h>
#include <stdarg.h>
#include <stdint.h>
struct opt_table *opt_table;
unsigned int opt_count, opt_num_short, opt_num_short_arg, opt_num_long;
const char *opt_argv0;
+struct opt_alloc opt_alloc = {
+ malloc, realloc, free
+};
/* Returns string after first '-'. */
static const char *first_name(const char *names, unsigned *len)
{
- *len = strcspn(names + 1, "/= ");
+ *len = strcspn(names + 1, "|= ");
return names + 1;
}
return NULL;
}
-static const char *first_lopt(unsigned *i, unsigned *len)
+const char *first_lopt(unsigned *i, unsigned *len)
{
const char *p;
for (p = first_opt(i, len); p; p = next_opt(p, i, len)) {
return p;
}
-static const char *next_lopt(const char *p, unsigned *i, unsigned *len)
+const char *next_lopt(const char *p, unsigned *i, unsigned *len)
{
for (p = next_opt(p, i, len); p; p = next_opt(p, i, len)) {
if (p[0] == '-') {
return p;
}
+/* Avoids dependency on err.h or ccan/err */
+#ifndef failmsg
+#define failmsg(fmt, ...) \
+ do { fprintf(stderr, fmt, __VA_ARGS__); exit(1); } while(0)
+#endif
+
static void check_opt(const struct opt_table *entry)
{
const char *p;
unsigned len;
- if (entry->type != OPT_HASARG && entry->type != OPT_NOARG)
- errx(1, "Option %s: unknown entry type %u",
- entry->names, entry->type);
+ if (entry->type != OPT_HASARG && entry->type != OPT_NOARG
+ && entry->type != (OPT_EARLY|OPT_HASARG)
+ && entry->type != (OPT_EARLY|OPT_NOARG))
+ failmsg("Option %s: unknown entry type %u",
+ entry->names, entry->type);
if (!entry->desc)
- errx(1, "Option %s: description cannot be NULL", entry->names);
+ failmsg("Option %s: description cannot be NULL", entry->names);
if (entry->names[0] != '-')
- errx(1, "Option %s: does not begin with '-'", entry->names);
+ failmsg("Option %s: does not begin with '-'", entry->names);
for (p = first_name(entry->names, &len); p; p = next_name(p, &len)) {
if (*p == '-') {
if (len == 1)
- errx(1, "Option %s: invalid long option '--'",
- entry->names);
+ failmsg("Option %s: invalid long option '--'",
+ entry->names);
opt_num_long++;
} else {
if (len != 1)
- errx(1, "Option %s: invalid short option"
- " '%.*s'", entry->names, len+1, p-1);
- if (*p == ':')
- errx(1, "Option %s: invalid short option '-:'",
- entry->names);
+ failmsg("Option %s: invalid short option"
+ " '%.*s'", entry->names, len+1, p-1);
opt_num_short++;
- if (entry->type == OPT_HASARG) {
+ if (entry->type == OPT_HASARG)
opt_num_short_arg++;
- if (*p == '?')
- errx(1, "Option %s: '-?' cannot take"
- " an argument", entry->names);
- }
}
/* Don't document args unless there are some. */
if (entry->type == OPT_NOARG) {
if (p[len] == ' ' || p[len] == '=')
- errx(1, "Option %s: does not take arguments"
- "'%s'", entry->names, p+len+1);
+ failmsg("Option %s: does not take arguments"
+ " '%s'", entry->names, p+len+1);
}
}
}
static void add_opt(const struct opt_table *entry)
{
- opt_table = realloc(opt_table, sizeof(opt_table[0]) * (opt_count+1));
+ opt_table = opt_alloc.realloc(opt_table,
+ sizeof(opt_table[0]) * (opt_count+1));
opt_table[opt_count++] = *entry;
}
char *(*cb)(void *arg),
char *(*cb_arg)(const char *optarg, void *arg),
void (*show)(char buf[OPT_SHOW_LEN], const void *arg),
- void *arg, const char *desc)
+ const void *arg, const char *desc)
{
struct opt_table opt;
opt.names = names;
opt.cb = cb;
opt.cb_arg = cb_arg;
opt.show = show;
- opt.arg = arg;
+ opt.u.carg = arg;
opt.desc = desc;
check_opt(&opt);
add_opt(&opt);
}
/* We store the table length in arg ptr. */
if (desc)
- opt_table[start].arg = (void *)(intptr_t)(opt_count - start);
-}
-
-static char *make_optstring(void)
-{
- char *str = malloc(1 + opt_num_short + opt_num_short_arg + 1);
- const char *p;
- unsigned int i, num = 0;
-
- /* This tells getopt_long we want a ':' returned for missing arg. */
- str[num++] = ':';
- for (p = first_sopt(&i); p; p = next_sopt(p, &i)) {
- str[num++] = *p;
- if (opt_table[i].type == OPT_HASARG)
- str[num++] = ':';
- }
- str[num++] = '\0';
- assert(num == 1 + opt_num_short + opt_num_short_arg + 1);
- return str;
+ opt_table[start].u.tlen = (opt_count - start);
}
-static struct option *make_options(void)
+/* Parse your arguments. */
+bool opt_parse(int *argc, char *argv[], void (*errlog)(const char *fmt, ...))
{
- struct option *options = malloc(sizeof(*options) * (opt_num_long + 1));
- unsigned int i, num = 0, len = 0 /* GCC bogus warning */;
- const char *p;
+ int ret;
+ unsigned offset = 0;
- for (p = first_lopt(&i, &len); p; p = next_lopt(p, &i, &len)) {
- char *buf = malloc(len + 1);
- memcpy(buf, p, len);
- buf[len] = 0;
- options[num].name = buf;
- options[num].has_arg = (opt_table[i].type == OPT_HASARG);
- options[num].flag = NULL;
- options[num].val = 0;
- num++;
- }
- memset(&options[num], 0, sizeof(options[num]));
- assert(num == opt_num_long);
- return options;
-}
+ /* This helps opt_usage. */
+ opt_argv0 = argv[0];
-static struct opt_table *find_short(char shortopt)
-{
- unsigned int i;
- const char *p;
+ while ((ret = parse_one(argc, argv, 0, &offset, errlog)) == 1);
- for (p = first_sopt(&i); p; p = next_sopt(p, &i)) {
- if (*p == shortopt)
- return &opt_table[i];
- }
- abort();
+ /* parse_one returns 0 on finish, -1 on error */
+ return (ret == 0);
}
-/* We want the index'th long entry. */
-static struct opt_table *find_long(int index, const char **name)
+bool opt_early_parse(int argc, char *argv[],
+ void (*errlog)(const char *fmt, ...))
{
- unsigned int i, len;
- const char *p;
+ int ret;
+ unsigned off = 0;
+ char **tmpargv = opt_alloc.alloc(sizeof(argv[0]) * (argc + 1));
- for (p = first_lopt(&i, &len); p; p = next_lopt(p, &i, &len)) {
- if (index == 0) {
- *name = p;
- return &opt_table[i];
- }
- index--;
- }
- abort();
-}
-
-/* glibc does this as:
-/tmp/opt-example: invalid option -- 'x'
-/tmp/opt-example: unrecognized option '--long'
-/tmp/opt-example: option '--someflag' doesn't allow an argument
-/tmp/opt-example: option '--s' is ambiguous
-/tmp/opt-example: option requires an argument -- 's'
-*/
-static void parse_fail(void (*errlog)(const char *fmt, ...),
- char shortopt, const char *longopt, const char *problem)
-{
- if (shortopt)
- errlog("%s: -%c: %s", opt_argv0, shortopt, problem);
- else
- errlog("%s: --%.*s: %s", opt_argv0,
- strcspn(longopt, "/"), longopt, problem);
-}
+ /* We could avoid a copy and skip instead, but this is simple. */
+ memcpy(tmpargv, argv, sizeof(argv[0]) * (argc + 1));
-/* Parse your arguments. */
-bool opt_parse(int *argc, char *argv[], void (*errlog)(const char *fmt, ...))
-{
- char *optstring = make_optstring();
- struct option *options = make_options();
- int ret, longidx = 0;
- struct opt_table *e;
-
- /* We will do our own error reporting. */
- opterr = 0;
+ /* This helps opt_usage. */
opt_argv0 = argv[0];
- /* Reset in case we're called more than once. */
- optopt = 0;
- optind = 0;
- while ((ret = getopt_long(*argc, argv, optstring, options, &longidx))
- != -1) {
- char *problem;
- const char *name = NULL; /* GCC bogus warning */
-
- /* optopt is 0 if it's an unknown long option, *or* if
- * -? is a valid short option. */
- if (ret == '?') {
- if (optopt || strncmp(argv[optind-1], "--", 2) == 0) {
- parse_fail(errlog, optopt, argv[optind-1]+2,
- "unrecognized option");
- break;
- }
- } else if (ret == ':') {
- /* Missing argument: longidx not updated :( */
- parse_fail(errlog, optopt, argv[optind-1]+2,
- "option requires an argument");
- break;
- }
+ while ((ret = parse_one(&argc, tmpargv, OPT_EARLY, &off, errlog)) == 1);
- if (ret != 0)
- e = find_short(ret);
- else
- e = find_long(longidx, &name);
+ opt_alloc.free(tmpargv);
- if (e->type == OPT_HASARG)
- problem = e->cb_arg(optarg, e->arg);
- else
- problem = e->cb(e->arg);
+ /* parse_one returns 0 on finish, -1 on error */
+ return (ret == 0);
+}
- if (problem) {
- parse_fail(errlog, ret, name, problem);
- free(problem);
- break;
- }
- }
- free(optstring);
- free(options);
- if (ret != -1)
- return false;
+void opt_free_table(void)
+{
+ opt_alloc.free(opt_table);
+ opt_table = NULL;
+ opt_count = opt_num_short = opt_num_short_arg = opt_num_long = 0;
+}
- /* We hide everything but remaining arguments. */
- memmove(&argv[1], &argv[optind], sizeof(argv[1]) * (*argc-optind+1));
- *argc -= optind - 1;
+void opt_log_stderr(const char *fmt, ...)
+{
+ va_list ap;
- return ret == -1 ? true : false;
+ va_start(ap, fmt);
+ vfprintf(stderr, fmt, ap);
+ fprintf(stderr, "\n");
+ va_end(ap);
}
-void opt_log_stderr(const char *fmt, ...)
+void opt_log_stderr_exit(const char *fmt, ...)
{
va_list ap;
va_start(ap, fmt);
vfprintf(stderr, fmt, ap);
+ fprintf(stderr, "\n");
va_end(ap);
+ exit(1);
}
char *opt_invalid_argument(const char *arg)
{
- char *str = malloc(sizeof("Invalid argument '%s'") + strlen(arg));
+ char *str = opt_alloc.alloc(sizeof("Invalid argument '%s'") + strlen(arg));
sprintf(str, "Invalid argument '%s'", arg);
return str;
}
+
+void opt_set_alloc(void *(*allocfn)(size_t size),
+ void *(*reallocfn)(void *ptr, size_t size),
+ void (*freefn)(void *ptr))
+{
+ opt_alloc.alloc = allocfn;
+ opt_alloc.realloc = reallocfn;
+ opt_alloc.free = freefn;
+}