/* *  Copyright (c) 2010 The WebM project authors. All Rights Reserved. * *  Use of this source code is governed by a BSD-style license *  that can be found in the LICENSE file in the root of the source *  tree. An additional intellectual property rights grant can be found *  in the file PATENTS.  All contributing project authors may *  be found in the AUTHORS file in the root of the source tree. */ #include "vpx_config.h" #include <stdlib.h>#include <string.h>#include <limits.h>#include "args.h" #include "vpx/vpx_integer.h"#include "vpx_ports/msvc.h" #if defined(__GNUC__) && __GNUC__extern void die(const char *fmt, ...) __attribute__((noreturn));#elseextern void die(const char *fmt, ...);#endif struct arg arg_init(char **argv) {  struct arg a;   a.argv = argv;  a.argv_step = 1;  a.name = NULL;  a.val = NULL;  a.def = NULL;  return a;} int arg_match(struct arg *arg_, const struct arg_def *def, char **argv) {  struct arg arg;   if (!argv[0] || argv[0][0] != '-') return 0;   arg = arg_init(argv);   if (def->short_name && strlen(arg.argv[0]) == strlen(def->short_name) + 1 &&      !strcmp(arg.argv[0] + 1, def->short_name)) {    arg.name = arg.argv[0] + 1;    arg.val = def->has_val ? arg.argv[1] : NULL;    arg.argv_step = def->has_val ? 2 : 1;  } else if (def->long_name) {    const size_t name_len = strlen(def->long_name);     if (strlen(arg.argv[0]) >= name_len + 2 && arg.argv[0][1] == '-' &&        !strncmp(arg.argv[0] + 2, def->long_name, name_len) &&        (arg.argv[0][name_len + 2] == '=' ||         arg.argv[0][name_len + 2] == '\0')) {      arg.name = arg.argv[0] + 2;      arg.val = arg.name[name_len] == '=' ? arg.name + name_len + 1 : NULL;      arg.argv_step = 1;    }  }   if (arg.name && !arg.val && def->has_val)    die("Error: option %s requires argument.\n", arg.name);   if (arg.name && arg.val && !def->has_val)    die("Error: option %s requires no argument.\n", arg.name);   if (arg.name && (arg.val || !def->has_val)) {    arg.def = def;    *arg_ = arg;    return 1;  }   return 0;} const char *arg_next(struct arg *arg) {  if (arg->argv[0]) arg->argv += arg->argv_step;   return *arg->argv;} char **argv_dup(int argc, const char **argv) {  char **new_argv = malloc((argc + 1) * sizeof(*argv));   memcpy(new_argv, argv, argc * sizeof(*argv));  new_argv[argc] = NULL;  return new_argv;} void arg_show_usage(FILE *fp, const struct arg_def *const *defs) {  char option_text[40] = { 0 };   for (; *defs; defs++) {    const struct arg_def *def = *defs;    char *short_val = def->has_val ? " <arg>" : "";    char *long_val = def->has_val ? "=<arg>" : "";     if (def->short_name && def->long_name) {      char *comma = def->has_val ? "," : ",      ";       snprintf(option_text, 37, "-%s%s%s --%s%6s", def->short_name, short_val,               comma, def->long_name, long_val);    } else if (def->short_name)      snprintf(option_text, 37, "-%s%s", def->short_name, short_val);    else if (def->long_name)      snprintf(option_text, 37, "          --%s%s", def->long_name, long_val);     fprintf(fp, "  %-37s\t%s\n", option_text, def->desc);     if (def->enums) {      const struct arg_enum_list *listptr;       fprintf(fp, "  %-37s\t  ", "");       for (listptr = def->enums; listptr->name; listptr++)        fprintf(fp, "%s%s", listptr->name, listptr[1].name ? ", " : "\n");    }  }} unsigned int arg_parse_uint(const struct arg *arg) {  uint32_t rawval;  char *endptr;   rawval = (uint32_t)strtoul(arg->val, &endptr, 10);   if (arg->val[0] != '\0' && endptr[0] == '\0') {    if (rawval <= UINT_MAX) return rawval;     die("Option %s: Value %ld out of range for unsigned int\n", arg->name,        rawval);  }   die("Option %s: Invalid character '%c'\n", arg->name, *endptr);  return 0;} int arg_parse_int(const struct arg *arg) {  int32_t rawval;  char *endptr;   rawval = (int32_t)strtol(arg->val, &endptr, 10);   if (arg->val[0] != '\0' && endptr[0] == '\0') {    if (rawval >= INT_MIN && rawval <= INT_MAX) return (int)rawval;     die("Option %s: Value %ld out of range for signed int\n", arg->name,        rawval);  }   die("Option %s: Invalid character '%c'\n", arg->name, *endptr);  return 0;} struct vpx_rational {  int num; /**< fraction numerator */  int den; /**< fraction denominator */};struct vpx_rational arg_parse_rational(const struct arg *arg) {  long int rawval;  char *endptr;  struct vpx_rational rat;   /* parse numerator */  rawval = strtol(arg->val, &endptr, 10);   if (arg->val[0] != '\0' && endptr[0] == '/') {    if (rawval >= INT_MIN && rawval <= INT_MAX)      rat.num = (int)rawval;    else      die("Option %s: Value %ld out of range for signed int\n", arg->name,          rawval);  } else    die("Option %s: Expected / at '%c'\n", arg->name, *endptr);   /* parse denominator */  rawval = strtol(endptr + 1, &endptr, 10);   if (arg->val[0] != '\0' && endptr[0] == '\0') {    if (rawval >= INT_MIN && rawval <= INT_MAX)      rat.den = (int)rawval;    else      die("Option %s: Value %ld out of range for signed int\n", arg->name,          rawval);  } else    die("Option %s: Invalid character '%c'\n", arg->name, *endptr);   return rat;} int arg_parse_enum(const struct arg *arg) {  const struct arg_enum_list *listptr;  long int rawval;  char *endptr;   /* First see if the value can be parsed as a raw value */  rawval = strtol(arg->val, &endptr, 10);  if (arg->val[0] != '\0' && endptr[0] == '\0') {    /* Got a raw value, make sure it's valid */    for (listptr = arg->def->enums; listptr->name; listptr++)      if (listptr->val == rawval) return (int)rawval;  }   /* Next see if it can be parsed as a string */  for (listptr = arg->def->enums; listptr->name; listptr++)    if (!strcmp(arg->val, listptr->name)) return listptr->val;   die("Option %s: Invalid value '%s'\n", arg->name, arg->val);  return 0;} int arg_parse_enum_or_int(const struct arg *arg) {  if (arg->def->enums) return arg_parse_enum(arg);  return arg_parse_int(arg);}