|
|
@@ -0,0 +1,384 @@ |
|
|
|
/** |
|
|
|
* Copyright (C) 2012-2015 Yecheng Fu <cofyc.jackson at gmail dot com> |
|
|
|
* All rights reserved. |
|
|
|
* |
|
|
|
* Use of this source code is governed by a MIT-style license that can be found |
|
|
|
* in the LICENSE file. |
|
|
|
*/ |
|
|
|
#include <stdio.h> |
|
|
|
#include <stdlib.h> |
|
|
|
#include <string.h> |
|
|
|
#include <assert.h> |
|
|
|
#include <errno.h> |
|
|
|
#include "argparse.h" |
|
|
|
|
|
|
|
#define OPT_UNSET 1 |
|
|
|
#define OPT_LONG (1 << 1) |
|
|
|
|
|
|
|
static const char * |
|
|
|
prefix_skip(const char *str, const char *prefix) |
|
|
|
{ |
|
|
|
size_t len = strlen(prefix); |
|
|
|
return strncmp(str, prefix, len) ? NULL : str + len; |
|
|
|
} |
|
|
|
|
|
|
|
static int |
|
|
|
prefix_cmp(const char *str, const char *prefix) |
|
|
|
{ |
|
|
|
for (;; str++, prefix++) |
|
|
|
if (!*prefix) { |
|
|
|
return 0; |
|
|
|
} else if (*str != *prefix) { |
|
|
|
return (unsigned char)*prefix - (unsigned char)*str; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
static void |
|
|
|
argparse_error(struct argparse *self, const struct argparse_option *opt, |
|
|
|
const char *reason, int flags) |
|
|
|
{ |
|
|
|
(void)self; |
|
|
|
if (flags & OPT_LONG) { |
|
|
|
fprintf(stderr, "error: option `--%s` %s\n", opt->long_name, reason); |
|
|
|
} else { |
|
|
|
fprintf(stderr, "error: option `-%c` %s\n", opt->short_name, reason); |
|
|
|
} |
|
|
|
exit(1); |
|
|
|
} |
|
|
|
|
|
|
|
static int |
|
|
|
argparse_getvalue(struct argparse *self, const struct argparse_option *opt, |
|
|
|
int flags) |
|
|
|
{ |
|
|
|
const char *s = NULL; |
|
|
|
if (!opt->value) |
|
|
|
goto skipped; |
|
|
|
switch (opt->type) { |
|
|
|
case ARGPARSE_OPT_BOOLEAN: |
|
|
|
if (flags & OPT_UNSET) { |
|
|
|
*(int *)opt->value = *(int *)opt->value - 1; |
|
|
|
} else { |
|
|
|
*(int *)opt->value = *(int *)opt->value + 1; |
|
|
|
} |
|
|
|
if (*(int *)opt->value < 0) { |
|
|
|
*(int *)opt->value = 0; |
|
|
|
} |
|
|
|
break; |
|
|
|
case ARGPARSE_OPT_BIT: |
|
|
|
if (flags & OPT_UNSET) { |
|
|
|
*(int *)opt->value &= ~opt->data; |
|
|
|
} else { |
|
|
|
*(int *)opt->value |= opt->data; |
|
|
|
} |
|
|
|
break; |
|
|
|
case ARGPARSE_OPT_STRING: |
|
|
|
if (self->optvalue) { |
|
|
|
*(const char **)opt->value = self->optvalue; |
|
|
|
self->optvalue = NULL; |
|
|
|
} else if (self->argc > 1) { |
|
|
|
self->argc--; |
|
|
|
*(const char **)opt->value = *++self->argv; |
|
|
|
} else { |
|
|
|
argparse_error(self, opt, "requires a value", flags); |
|
|
|
} |
|
|
|
break; |
|
|
|
case ARGPARSE_OPT_INTEGER: |
|
|
|
errno = 0; |
|
|
|
if (self->optvalue) { |
|
|
|
*(int *)opt->value = strtol(self->optvalue, (char **)&s, 0); |
|
|
|
self->optvalue = NULL; |
|
|
|
} else if (self->argc > 1) { |
|
|
|
self->argc--; |
|
|
|
*(int *)opt->value = strtol(*++self->argv, (char **)&s, 0); |
|
|
|
} else { |
|
|
|
argparse_error(self, opt, "requires a value", flags); |
|
|
|
} |
|
|
|
if (errno) |
|
|
|
argparse_error(self, opt, strerror(errno), flags); |
|
|
|
if (s[0] != '\0') |
|
|
|
argparse_error(self, opt, "expects an integer value", flags); |
|
|
|
break; |
|
|
|
case ARGPARSE_OPT_FLOAT: |
|
|
|
errno = 0; |
|
|
|
if (self->optvalue) { |
|
|
|
*(float *)opt->value = strtof(self->optvalue, (char **)&s); |
|
|
|
self->optvalue = NULL; |
|
|
|
} else if (self->argc > 1) { |
|
|
|
self->argc--; |
|
|
|
*(float *)opt->value = strtof(*++self->argv, (char **)&s); |
|
|
|
} else { |
|
|
|
argparse_error(self, opt, "requires a value", flags); |
|
|
|
} |
|
|
|
if (errno) |
|
|
|
argparse_error(self, opt, strerror(errno), flags); |
|
|
|
if (s[0] != '\0') |
|
|
|
argparse_error(self, opt, "expects a numerical value", flags); |
|
|
|
break; |
|
|
|
default: |
|
|
|
assert(0); |
|
|
|
} |
|
|
|
|
|
|
|
skipped: |
|
|
|
if (opt->callback) { |
|
|
|
return opt->callback(self, opt); |
|
|
|
} |
|
|
|
|
|
|
|
return 0; |
|
|
|
} |
|
|
|
|
|
|
|
static void |
|
|
|
argparse_options_check(const struct argparse_option *options) |
|
|
|
{ |
|
|
|
for (; options->type != ARGPARSE_OPT_END; options++) { |
|
|
|
switch (options->type) { |
|
|
|
case ARGPARSE_OPT_END: |
|
|
|
case ARGPARSE_OPT_BOOLEAN: |
|
|
|
case ARGPARSE_OPT_BIT: |
|
|
|
case ARGPARSE_OPT_INTEGER: |
|
|
|
case ARGPARSE_OPT_FLOAT: |
|
|
|
case ARGPARSE_OPT_STRING: |
|
|
|
case ARGPARSE_OPT_GROUP: |
|
|
|
continue; |
|
|
|
default: |
|
|
|
fprintf(stderr, "wrong option type: %d", options->type); |
|
|
|
break; |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
static int |
|
|
|
argparse_short_opt(struct argparse *self, const struct argparse_option *options) |
|
|
|
{ |
|
|
|
for (; options->type != ARGPARSE_OPT_END; options++) { |
|
|
|
if (options->short_name == *self->optvalue) { |
|
|
|
self->optvalue = self->optvalue[1] ? self->optvalue + 1 : NULL; |
|
|
|
return argparse_getvalue(self, options, 0); |
|
|
|
} |
|
|
|
} |
|
|
|
return -2; |
|
|
|
} |
|
|
|
|
|
|
|
static int |
|
|
|
argparse_long_opt(struct argparse *self, const struct argparse_option *options) |
|
|
|
{ |
|
|
|
for (; options->type != ARGPARSE_OPT_END; options++) { |
|
|
|
const char *rest; |
|
|
|
int opt_flags = 0; |
|
|
|
if (!options->long_name) |
|
|
|
continue; |
|
|
|
|
|
|
|
rest = prefix_skip(self->argv[0] + 2, options->long_name); |
|
|
|
if (!rest) { |
|
|
|
// negation disabled? |
|
|
|
if (options->flags & OPT_NONEG) { |
|
|
|
continue; |
|
|
|
} |
|
|
|
// only OPT_BOOLEAN/OPT_BIT supports negation |
|
|
|
if (options->type != ARGPARSE_OPT_BOOLEAN && options->type != |
|
|
|
ARGPARSE_OPT_BIT) { |
|
|
|
continue; |
|
|
|
} |
|
|
|
|
|
|
|
if (prefix_cmp(self->argv[0] + 2, "no-")) { |
|
|
|
continue; |
|
|
|
} |
|
|
|
rest = prefix_skip(self->argv[0] + 2 + 3, options->long_name); |
|
|
|
if (!rest) |
|
|
|
continue; |
|
|
|
opt_flags |= OPT_UNSET; |
|
|
|
} |
|
|
|
if (*rest) { |
|
|
|
if (*rest != '=') |
|
|
|
continue; |
|
|
|
self->optvalue = rest + 1; |
|
|
|
} |
|
|
|
return argparse_getvalue(self, options, opt_flags | OPT_LONG); |
|
|
|
} |
|
|
|
return -2; |
|
|
|
} |
|
|
|
|
|
|
|
int |
|
|
|
argparse_init(struct argparse *self, struct argparse_option *options, |
|
|
|
const char *const *usages, int flags) |
|
|
|
{ |
|
|
|
memset(self, 0, sizeof(*self)); |
|
|
|
self->options = options; |
|
|
|
self->usages = usages; |
|
|
|
self->flags = flags; |
|
|
|
self->description = NULL; |
|
|
|
self->epilog = NULL; |
|
|
|
return 0; |
|
|
|
} |
|
|
|
|
|
|
|
void |
|
|
|
argparse_describe(struct argparse *self, const char *description, |
|
|
|
const char *epilog) |
|
|
|
{ |
|
|
|
self->description = description; |
|
|
|
self->epilog = epilog; |
|
|
|
} |
|
|
|
|
|
|
|
int |
|
|
|
argparse_parse(struct argparse *self, int argc, const char **argv) |
|
|
|
{ |
|
|
|
self->argc = argc - 1; |
|
|
|
self->argv = argv + 1; |
|
|
|
self->out = argv; |
|
|
|
|
|
|
|
argparse_options_check(self->options); |
|
|
|
|
|
|
|
for (; self->argc; self->argc--, self->argv++) { |
|
|
|
const char *arg = self->argv[0]; |
|
|
|
if (arg[0] != '-' || !arg[1]) { |
|
|
|
if (self->flags & ARGPARSE_STOP_AT_NON_OPTION) { |
|
|
|
goto end; |
|
|
|
} |
|
|
|
// if it's not option or is a single char '-', copy verbatim |
|
|
|
self->out[self->cpidx++] = self->argv[0]; |
|
|
|
continue; |
|
|
|
} |
|
|
|
// short option |
|
|
|
if (arg[1] != '-') { |
|
|
|
self->optvalue = arg + 1; |
|
|
|
switch (argparse_short_opt(self, self->options)) { |
|
|
|
case -1: |
|
|
|
break; |
|
|
|
case -2: |
|
|
|
goto unknown; |
|
|
|
} |
|
|
|
while (self->optvalue) { |
|
|
|
switch (argparse_short_opt(self, self->options)) { |
|
|
|
case -1: |
|
|
|
break; |
|
|
|
case -2: |
|
|
|
goto unknown; |
|
|
|
} |
|
|
|
} |
|
|
|
continue; |
|
|
|
} |
|
|
|
// if '--' presents |
|
|
|
if (!arg[2]) { |
|
|
|
self->argc--; |
|
|
|
self->argv++; |
|
|
|
break; |
|
|
|
} |
|
|
|
// long option |
|
|
|
switch (argparse_long_opt(self, self->options)) { |
|
|
|
case -1: |
|
|
|
break; |
|
|
|
case -2: |
|
|
|
goto unknown; |
|
|
|
} |
|
|
|
continue; |
|
|
|
|
|
|
|
unknown: |
|
|
|
fprintf(stderr, "error: unknown option `%s`\n", self->argv[0]); |
|
|
|
argparse_usage(self); |
|
|
|
exit(1); |
|
|
|
} |
|
|
|
|
|
|
|
end: |
|
|
|
memmove(self->out + self->cpidx, self->argv, |
|
|
|
self->argc * sizeof(*self->out)); |
|
|
|
self->out[self->cpidx + self->argc] = NULL; |
|
|
|
|
|
|
|
return self->cpidx + self->argc; |
|
|
|
} |
|
|
|
|
|
|
|
void |
|
|
|
argparse_usage(struct argparse *self) |
|
|
|
{ |
|
|
|
if (self->usages) { |
|
|
|
fprintf(stdout, "Usage: %s\n", *self->usages++); |
|
|
|
while (*self->usages && **self->usages) |
|
|
|
fprintf(stdout, " or: %s\n", *self->usages++); |
|
|
|
} else { |
|
|
|
fprintf(stdout, "Usage:\n"); |
|
|
|
} |
|
|
|
|
|
|
|
// print description |
|
|
|
if (self->description) |
|
|
|
fprintf(stdout, "%s\n", self->description); |
|
|
|
|
|
|
|
fputc('\n', stdout); |
|
|
|
|
|
|
|
const struct argparse_option *options; |
|
|
|
|
|
|
|
// figure out best width |
|
|
|
size_t usage_opts_width = 0; |
|
|
|
size_t len; |
|
|
|
options = self->options; |
|
|
|
for (; options->type != ARGPARSE_OPT_END; options++) { |
|
|
|
len = 0; |
|
|
|
if ((options)->short_name) { |
|
|
|
len += 2; |
|
|
|
} |
|
|
|
if ((options)->short_name && (options)->long_name) { |
|
|
|
len += 2; // separator ", " |
|
|
|
} |
|
|
|
if ((options)->long_name) { |
|
|
|
len += strlen((options)->long_name) + 2; |
|
|
|
} |
|
|
|
if (options->type == ARGPARSE_OPT_INTEGER) { |
|
|
|
len += strlen("=<int>"); |
|
|
|
} |
|
|
|
if (options->type == ARGPARSE_OPT_FLOAT) { |
|
|
|
len += strlen("=<flt>"); |
|
|
|
} else if (options->type == ARGPARSE_OPT_STRING) { |
|
|
|
len += strlen("=<str>"); |
|
|
|
} |
|
|
|
len = (len + 3) - ((len + 3) & 3); |
|
|
|
if (usage_opts_width < len) { |
|
|
|
usage_opts_width = len; |
|
|
|
} |
|
|
|
} |
|
|
|
usage_opts_width += 4; // 4 spaces prefix |
|
|
|
|
|
|
|
options = self->options; |
|
|
|
for (; options->type != ARGPARSE_OPT_END; options++) { |
|
|
|
size_t pos = 0; |
|
|
|
int pad = 0; |
|
|
|
if (options->type == ARGPARSE_OPT_GROUP) { |
|
|
|
fputc('\n', stdout); |
|
|
|
fprintf(stdout, "%s", options->help); |
|
|
|
fputc('\n', stdout); |
|
|
|
continue; |
|
|
|
} |
|
|
|
pos = fprintf(stdout, " "); |
|
|
|
if (options->short_name) { |
|
|
|
pos += fprintf(stdout, "-%c", options->short_name); |
|
|
|
} |
|
|
|
if (options->long_name && options->short_name) { |
|
|
|
pos += fprintf(stdout, ", "); |
|
|
|
} |
|
|
|
if (options->long_name) { |
|
|
|
pos += fprintf(stdout, "--%s", options->long_name); |
|
|
|
} |
|
|
|
if (options->type == ARGPARSE_OPT_INTEGER) { |
|
|
|
pos += fprintf(stdout, "=<int>"); |
|
|
|
} else if (options->type == ARGPARSE_OPT_FLOAT) { |
|
|
|
pos += fprintf(stdout, "=<flt>"); |
|
|
|
} else if (options->type == ARGPARSE_OPT_STRING) { |
|
|
|
pos += fprintf(stdout, "=<str>"); |
|
|
|
} |
|
|
|
if (pos <= usage_opts_width) { |
|
|
|
pad = usage_opts_width - pos; |
|
|
|
} else { |
|
|
|
fputc('\n', stdout); |
|
|
|
pad = usage_opts_width; |
|
|
|
} |
|
|
|
fprintf(stdout, "%*s%s\n", pad + 2, "", options->help); |
|
|
|
} |
|
|
|
|
|
|
|
// print epilog |
|
|
|
if (self->epilog) |
|
|
|
fprintf(stdout, "%s\n", self->epilog); |
|
|
|
} |
|
|
|
|
|
|
|
int |
|
|
|
argparse_help_cb(struct argparse *self, const struct argparse_option *option) |
|
|
|
{ |
|
|
|
(void)option; |
|
|
|
argparse_usage(self); |
|
|
|
exit(0); |
|
|
|
} |