/*
- File autogenerated by gengetopt version 2.20
+ File autogenerated by gengetopt version 2.22
generated with the following command:
- gengetopt --include-getopt --file-name=gimmick_ggo
+ gengetopt --file-name=/home/guigues/coding/CreaTools/creaImageIO/appli/gimmick/gimmick_ggo -u --conf-parser
The developers of gengetopt consider the fixed text that goes in all
gengetopt output files to be in the public domain:
#include <stdlib.h>
#include <string.h>
+#include "getopt.h"
-#include "gimmick_ggo.h"
+#include "/home/guigues/coding/CreaTools/creaImageIO/appli/gimmick/gimmick_ggo.h"
const char *gengetopt_args_info_purpose = "";
0
};
+typedef enum {ARG_NO
+ , ARG_FLAG
+ , ARG_STRING
+ , ARG_INT
+} cmdline_parser_arg_type;
+
static
void clear_given (struct gengetopt_args_info *args_info);
static
void clear_args (struct gengetopt_args_info *args_info);
static int
-cmdline_parser_internal (int argc, char * const *argv, struct gengetopt_args_info *args_info, int override, int initialize, int check_required, const char *additional_error);
+cmdline_parser_internal (int argc, char * const *argv, struct gengetopt_args_info *args_info,
+ struct cmdline_parser_params *params, const char *additional_error);
static int
cmdline_parser_required2 (struct gengetopt_args_info *args_info, const char *prog_name, const char *additional_error);
+struct line_list
+{
+ char * string_arg;
+ struct line_list * next;
+};
+
+static struct line_list *cmd_line_list = 0;
+static struct line_list *cmd_line_list_tmp = 0;
+
+static void
+free_cmd_list(void)
+{
+ /* free the list of a previous call */
+ if (cmd_line_list)
+ {
+ while (cmd_line_list) {
+ cmd_line_list_tmp = cmd_line_list;
+ cmd_line_list = cmd_line_list->next;
+ free (cmd_line_list_tmp->string_arg);
+ free (cmd_line_list_tmp);
+ }
+ }
+}
+
static char *
gengetopt_strdup (const char *s);
static
void init_args_info(struct gengetopt_args_info *args_info)
{
+
+
args_info->help_help = gengetopt_args_info_help[0] ;
args_info->version_help = gengetopt_args_info_help[1] ;
args_info->print_help = gengetopt_args_info_help[3] ;
printf ("%s %s\n", CMDLINE_PARSER_PACKAGE, CMDLINE_PARSER_VERSION);
}
-void
-cmdline_parser_print_help (void)
-{
- int i = 0;
+static void print_help_common(void) {
cmdline_parser_print_version ();
if (strlen(gengetopt_args_info_purpose) > 0)
printf("\n%s\n", gengetopt_args_info_purpose);
- printf("\n%s\n\n", gengetopt_args_info_usage);
+ if (strlen(gengetopt_args_info_usage) > 0)
+ printf("\n%s\n", gengetopt_args_info_usage);
+
+ printf("\n");
if (strlen(gengetopt_args_info_description) > 0)
printf("%s\n", gengetopt_args_info_description);
+}
+void
+cmdline_parser_print_help (void)
+{
+ int i = 0;
+ print_help_common();
while (gengetopt_args_info_help[i])
printf("%s\n", gengetopt_args_info_help[i++]);
}
clear_given (args_info);
clear_args (args_info);
init_args_info (args_info);
+
+ args_info->inputs = NULL;
+ args_info->inputs_num = 0;
}
-static void
-cmdline_parser_release (struct gengetopt_args_info *args_info)
+void
+cmdline_parser_params_init(struct cmdline_parser_params *params)
{
-
- if (args_info->file_arg)
- {
- free (args_info->file_arg); /* free previous argument */
- args_info->file_arg = 0;
- }
- if (args_info->file_orig)
- {
- free (args_info->file_orig); /* free previous argument */
- args_info->file_orig = 0;
- }
- if (args_info->dir_arg)
- {
- free (args_info->dir_arg); /* free previous argument */
- args_info->dir_arg = 0;
+ if (params)
+ {
+ params->override = 0;
+ params->initialize = 1;
+ params->check_required = 1;
+ params->check_ambiguity = 0;
+ params->print_errors = 1;
}
- if (args_info->dir_orig)
- {
- free (args_info->dir_orig); /* free previous argument */
- args_info->dir_orig = 0;
- }
- if (args_info->verbose_orig)
+}
+
+struct cmdline_parser_params *
+cmdline_parser_params_create(void)
+{
+ struct cmdline_parser_params *params =
+ (struct cmdline_parser_params *)malloc(sizeof(struct cmdline_parser_params));
+ cmdline_parser_params_init(params);
+ return params;
+}
+
+static void
+free_string_field (char **s)
+{
+ if (*s)
{
- free (args_info->verbose_orig); /* free previous argument */
- args_info->verbose_orig = 0;
+ free (*s);
+ *s = 0;
}
- if (args_info->debug_orig)
+}
+
+
+static void
+cmdline_parser_release (struct gengetopt_args_info *args_info)
+{
+ unsigned int i;
+ free_string_field (&(args_info->file_arg));
+ free_string_field (&(args_info->file_orig));
+ free_string_field (&(args_info->dir_arg));
+ free_string_field (&(args_info->dir_orig));
+ free_string_field (&(args_info->verbose_orig));
+ free_string_field (&(args_info->debug_orig));
+
+
+ for (i = 0; i < args_info->inputs_num; ++i)
+ free (args_info->inputs [i]);
+
+ if (args_info->inputs_num)
+ free (args_info->inputs);
+
+ clear_given (args_info);
+}
+
+
+static void
+write_into_file(FILE *outfile, const char *opt, const char *arg, char *values[])
+{
+ if (arg) {
+ fprintf(outfile, "%s=\"%s\"\n", opt, arg);
+ } else {
+ fprintf(outfile, "%s\n", opt);
+ }
+}
+
+
+int
+cmdline_parser_dump(FILE *outfile, struct gengetopt_args_info *args_info)
+{
+ int i = 0;
+
+ if (!outfile)
{
- free (args_info->debug_orig); /* free previous argument */
- args_info->debug_orig = 0;
+ fprintf (stderr, "%s: cannot dump options to stream\n", CMDLINE_PARSER_PACKAGE);
+ return EXIT_FAILURE;
}
+
+ if (args_info->help_given)
+ write_into_file(outfile, "help", 0, 0 );
+ if (args_info->version_given)
+ write_into_file(outfile, "version", 0, 0 );
+ if (args_info->print_given)
+ write_into_file(outfile, "print", 0, 0 );
+ if (args_info->file_given)
+ write_into_file(outfile, "file", args_info->file_orig, 0);
+ if (args_info->dir_given)
+ write_into_file(outfile, "dir", args_info->dir_orig, 0);
+ if (args_info->recurse_given)
+ write_into_file(outfile, "recurse", 0, 0 );
+ if (args_info->verbose_given)
+ write_into_file(outfile, "verbose", args_info->verbose_orig, 0);
+ if (args_info->debug_given)
+ write_into_file(outfile, "debug", args_info->debug_orig, 0);
- clear_given (args_info);
+
+ i = EXIT_SUCCESS;
+ return i;
}
int
return EXIT_FAILURE;
}
- if (args_info->help_given) {
- fprintf(outfile, "%s\n", "help");
- }
- if (args_info->version_given) {
- fprintf(outfile, "%s\n", "version");
- }
- if (args_info->print_given) {
- fprintf(outfile, "%s\n", "print");
- }
- if (args_info->file_given) {
- if (args_info->file_orig) {
- fprintf(outfile, "%s=\"%s\"\n", "file", args_info->file_orig);
- } else {
- fprintf(outfile, "%s\n", "file");
- }
- }
- if (args_info->dir_given) {
- if (args_info->dir_orig) {
- fprintf(outfile, "%s=\"%s\"\n", "dir", args_info->dir_orig);
- } else {
- fprintf(outfile, "%s\n", "dir");
- }
- }
- if (args_info->recurse_given) {
- fprintf(outfile, "%s\n", "recurse");
- }
- if (args_info->verbose_given) {
- if (args_info->verbose_orig) {
- fprintf(outfile, "%s=\"%s\"\n", "verbose", args_info->verbose_orig);
- } else {
- fprintf(outfile, "%s\n", "verbose");
- }
- }
- if (args_info->debug_given) {
- if (args_info->debug_orig) {
- fprintf(outfile, "%s=\"%s\"\n", "debug", args_info->debug_orig);
- } else {
- fprintf(outfile, "%s\n", "debug");
- }
- }
-
+ i = cmdline_parser_dump(outfile, args_info);
fclose (outfile);
- i = EXIT_SUCCESS;
return i;
}
cmdline_parser_release (args_info);
}
-
-/* gengetopt_strdup() */
-/* strdup.c replacement of strdup, which is not standard */
+/** @brief replacement of strdup, which is not standard */
char *
gengetopt_strdup (const char *s)
{
return cmdline_parser2 (argc, argv, args_info, 0, 1, 1);
}
+int
+cmdline_parser_ext (int argc, char * const *argv, struct gengetopt_args_info *args_info,
+ struct cmdline_parser_params *params)
+{
+ int result;
+ result = cmdline_parser_internal (argc, argv, args_info, params, NULL);
+
+ if (result == EXIT_FAILURE)
+ {
+ cmdline_parser_free (args_info);
+ exit (EXIT_FAILURE);
+ }
+
+ return result;
+}
+
int
cmdline_parser2 (int argc, char * const *argv, struct gengetopt_args_info *args_info, int override, int initialize, int check_required)
{
int result;
+ struct cmdline_parser_params params;
+
+ params.override = override;
+ params.initialize = initialize;
+ params.check_required = check_required;
+ params.check_ambiguity = 0;
+ params.print_errors = 1;
- result = cmdline_parser_internal (argc, argv, args_info, override, initialize, check_required, NULL);
+ result = cmdline_parser_internal (argc, argv, args_info, ¶ms, NULL);
if (result == EXIT_FAILURE)
{
return error;
}
-/*
- * Extracted from the glibc source tree, version 2.3.6
- *
- * Licensed under the GPL as per the whole glibc source tree.
- *
- * This file was modified so that getopt_long can be called
- * many times without risking previous memory to be spoiled.
- *
- * Modified by Andre Noll and Lorenzo Bettini for use in
- * GNU gengetopt generated files.
- *
- */
-
-/*
- * we must include anything we need since this file is not thought to be
- * inserted in a file already using getopt.h
- *
- * Lorenzo
- */
-
-struct option
-{
- const char *name;
- /* has_arg can't be an enum because some compilers complain about
- type mismatches in all the code that assumes it is an int. */
- int has_arg;
- int *flag;
- int val;
-};
-
-/* For communication from `getopt' to the caller.
- When `getopt' finds an option that takes an argument,
- the argument value is returned here.
- Also, when `ordering' is RETURN_IN_ORDER,
- each non-option ARGV-element is returned here. */
-
-static char *optarg;
-
-/* Index in ARGV of the next element to be scanned.
- This is used for communication to and from the caller
- and for communication between successive calls to `getopt'.
-
- On entry to `getopt', zero means this is the first call; initialize.
-
- When `getopt' returns -1, this is the index of the first of the
- non-option elements that the caller should itself scan.
-
- Otherwise, `optind' communicates from one call to the next
- how much of ARGV has been scanned so far. */
-
-static int optind;
-
-/* Callers store zero here to inhibit the error message `getopt' prints
- for unrecognized options. */
-
-static int opterr;
-
-/* Set to an option character which was unrecognized. */
-
-static int optopt;
-
-/* This version of `getopt' appears to the caller like standard Unix `getopt'
- but it behaves differently for the user, since it allows the user
- to intersperse the options with the other arguments.
-
- As `getopt' works, it permutes the elements of ARGV so that,
- when it is done, all the options precede everything else. Thus
- all application programs are extended to handle flexible argument order.
-*/
-/*
- If the field `flag' is not NULL, it points to a variable that is set
- to the value given in the field `val' when the option is found, but
- left unchanged if the option is not found.
-
- To have a long-named option do something other than set an `int' to
- a compiled-in constant, such as set a value from `custom_optarg', set the
- option's `flag' field to zero and its `val' field to a nonzero
- value (the equivalent single-letter option character, if there is
- one). For long options that have a zero `flag' field, `getopt'
- returns the contents of the `val' field. */
-
-/* Names for the values of the `has_arg' field of `struct option'. */
-#ifndef no_argument
-#define no_argument 0
-#endif
-
-#ifndef required_argument
-#define required_argument 1
-#endif
-
-#ifndef optional_argument
-#define optional_argument 2
-#endif
-
-struct custom_getopt_data {
- /*
- * These have exactly the same meaning as the corresponding global variables,
- * except that they are used for the reentrant versions of getopt.
- */
- int custom_optind;
- int custom_opterr;
- int custom_optopt;
- char *custom_optarg;
-
- /* True if the internal members have been initialized. */
- int initialized;
-
- /*
- * The next char to be scanned in the option-element in which the last option
- * character we returned was found. This allows us to pick up the scan where
- * we left off. If this is zero, or a null string, it means resume the scan by
- * advancing to the next ARGV-element.
- */
- char *nextchar;
-
- /*
- * Describe the part of ARGV that contains non-options that have been skipped.
- * `first_nonopt' is the index in ARGV of the first of them; `last_nonopt' is
- * the index after the last of them.
- */
- int first_nonopt;
- int last_nonopt;
-};
-
-/*
- * the variables optarg, optind, opterr and optopt are renamed with
- * the custom_ prefix so that they don't interfere with getopt ones.
- *
- * Moreover they're static so they are visible only from within the
- * file where this very file will be included.
- */
-
-/*
- * For communication from `custom_getopt' to the caller. When `custom_getopt' finds an
- * option that takes an argument, the argument value is returned here.
- */
-static char *custom_optarg;
-
-/*
- * Index in ARGV of the next element to be scanned. This is used for
- * communication to and from the caller and for communication between
- * successive calls to `custom_getopt'.
- *
- * On entry to `custom_getopt', 1 means this is the first call; initialize.
- *
- * When `custom_getopt' returns -1, this is the index of the first of the non-option
- * elements that the caller should itself scan.
- *
- * Otherwise, `custom_optind' communicates from one call to the next how much of ARGV
- * has been scanned so far.
- *
- * 1003.2 says this must be 1 before any call.
- */
-static int custom_optind = 1;
-
-/*
- * Callers store zero here to inhibit the error message for unrecognized
- * options.
- */
-static int custom_opterr = 1;
-
-/*
- * Set to an option character which was unrecognized. This must be initialized
- * on some systems to avoid linking in the system's own getopt implementation.
- */
-static int custom_optopt = '?';
-
-/*
- * Exchange two adjacent subsequences of ARGV. One subsequence is elements
- * [first_nonopt,last_nonopt) which contains all the non-options that have been
- * skipped so far. The other is elements [last_nonopt,custom_optind), which contains
- * all the options processed since those non-options were skipped.
- * `first_nonopt' and `last_nonopt' are relocated so that they describe the new
- * indices of the non-options in ARGV after they are moved.
- */
-static void exchange(char **argv, struct custom_getopt_data *d)
-{
- int bottom = d->first_nonopt;
- int middle = d->last_nonopt;
- int top = d->custom_optind;
- char *tem;
-
- /*
- * Exchange the shorter segment with the far end of the longer segment.
- * That puts the shorter segment into the right place. It leaves the
- * longer segment in the right place overall, but it consists of two
- * parts that need to be swapped next.
- */
- while (top > middle && middle > bottom) {
- if (top - middle > middle - bottom) {
- /* Bottom segment is the short one. */
- int len = middle - bottom;
- int i;
-
- /* Swap it with the top part of the top segment. */
- for (i = 0; i < len; i++) {
- tem = argv[bottom + i];
- argv[bottom + i] =
- argv[top - (middle - bottom) + i];
- argv[top - (middle - bottom) + i] = tem;
- }
- /* Exclude the moved bottom segment from further swapping. */
- top -= len;
- } else {
- /* Top segment is the short one. */
- int len = top - middle;
- int i;
-
- /* Swap it with the bottom part of the bottom segment. */
- for (i = 0; i < len; i++) {
- tem = argv[bottom + i];
- argv[bottom + i] = argv[middle + i];
- argv[middle + i] = tem;
- }
- /* Exclude the moved top segment from further swapping. */
- bottom += len;
- }
- }
- /* Update records for the slots the non-options now occupy. */
- d->first_nonopt += (d->custom_optind - d->last_nonopt);
- d->last_nonopt = d->custom_optind;
-}
-
-/* Initialize the internal data when the first call is made. */
-static void custom_getopt_initialize(struct custom_getopt_data *d)
-{
- /*
- * Start processing options with ARGV-element 1 (since ARGV-element 0
- * is the program name); the sequence of previously skipped non-option
- * ARGV-elements is empty.
- */
- d->first_nonopt = d->last_nonopt = d->custom_optind;
- d->nextchar = NULL;
- d->initialized = 1;
-}
-
-#define NONOPTION_P (argv[d->custom_optind][0] != '-' || argv[d->custom_optind][1] == '\0')
-/* return: zero: continue, nonzero: return given value to user */
-static int shuffle_argv(int argc, char *const *argv,const struct option *longopts,
- struct custom_getopt_data *d)
-{
- /*
- * Give FIRST_NONOPT & LAST_NONOPT rational values if CUSTOM_OPTIND has been
- * moved back by the user (who may also have changed the arguments).
- */
- if (d->last_nonopt > d->custom_optind)
- d->last_nonopt = d->custom_optind;
- if (d->first_nonopt > d->custom_optind)
- d->first_nonopt = d->custom_optind;
- /*
- * If we have just processed some options following some
- * non-options, exchange them so that the options come first.
- */
- if (d->first_nonopt != d->last_nonopt &&
- d->last_nonopt != d->custom_optind)
- exchange((char **) argv, d);
- else if (d->last_nonopt != d->custom_optind)
- d->first_nonopt = d->custom_optind;
- /*
- * Skip any additional non-options and extend the range of
- * non-options previously skipped.
- */
- while (d->custom_optind < argc && NONOPTION_P)
- d->custom_optind++;
- d->last_nonopt = d->custom_optind;
- /*
- * The special ARGV-element `--' means premature end of options. Skip
- * it like a null option, then exchange with previous non-options as if
- * it were an option, then skip everything else like a non-option.
- */
- if (d->custom_optind != argc && !strcmp(argv[d->custom_optind], "--")) {
- d->custom_optind++;
- if (d->first_nonopt != d->last_nonopt
- && d->last_nonopt != d->custom_optind)
- exchange((char **) argv, d);
- else if (d->first_nonopt == d->last_nonopt)
- d->first_nonopt = d->custom_optind;
- d->last_nonopt = argc;
- d->custom_optind = argc;
- }
- /*
- * If we have done all the ARGV-elements, stop the scan and back over
- * any non-options that we skipped and permuted.
- */
- if (d->custom_optind == argc) {
- /*
- * Set the next-arg-index to point at the non-options that we
- * previously skipped, so the caller will digest them.
- */
- if (d->first_nonopt != d->last_nonopt)
- d->custom_optind = d->first_nonopt;
- return -1;
- }
- /*
- * If we have come to a non-option and did not permute it, either stop
- * the scan or describe it to the caller and pass it by.
- */
- if (NONOPTION_P) {
- d->custom_optarg = argv[d->custom_optind++];
- return 1;
- }
- /*
- * We have found another option-ARGV-element. Skip the initial
- * punctuation.
- */
- d->nextchar = (argv[d->custom_optind] + 1 + (longopts != NULL && argv[d->custom_optind][1] == '-'));
- return 0;
-}
-
-/*
- * Check whether the ARGV-element is a long option.
- *
- * If there's a long option "fubar" and the ARGV-element is "-fu", consider
- * that an abbreviation of the long option, just like "--fu", and not "-f" with
- * arg "u".
- *
- * This distinction seems to be the most useful approach.
- *
+static char *package_name = 0;
+
+/**
+ * @brief updates an option
+ * @param field the generic pointer to the field to update
+ * @param orig_field the pointer to the orig field
+ * @param field_given the pointer to the number of occurrence of this option
+ * @param prev_given the pointer to the number of occurrence already seen
+ * @param value the argument for this option (if null no arg was specified)
+ * @param possible_values the possible values for this option (if specified)
+ * @param default_value the default value (in case the option only accepts fixed values)
+ * @param arg_type the type of this option
+ * @param check_ambiguity @see cmdline_parser_params.check_ambiguity
+ * @param override @see cmdline_parser_params.override
+ * @param no_free whether to free a possible previous value
+ * @param multiple_option whether this is a multiple option
+ * @param long_opt the corresponding long option
+ * @param short_opt the corresponding short option (or '-' if none)
+ * @param additional_error possible further error specification
*/
-static int check_long_opt(int argc, char *const *argv, const char *optstring,
- const struct option *longopts, int *longind,
- int print_errors, struct custom_getopt_data *d)
+static
+int update_arg(void *field, char **orig_field,
+ unsigned int *field_given, unsigned int *prev_given,
+ char *value, char *possible_values[], const char *default_value,
+ cmdline_parser_arg_type arg_type,
+ int check_ambiguity, int override,
+ int no_free, int multiple_option,
+ const char *long_opt, char short_opt,
+ const char *additional_error)
{
- char *nameend;
- const struct option *p;
- const struct option *pfound = NULL;
- int exact = 0;
- int ambig = 0;
- int indfound = -1;
- int option_index;
-
- for (nameend = d->nextchar; *nameend && *nameend != '='; nameend++)
- /* Do nothing. */ ;
-
- /* Test all long options for either exact match or abbreviated matches */
- for (p = longopts, option_index = 0; p->name; p++, option_index++)
- if (!strncmp(p->name, d->nextchar, nameend - d->nextchar)) {
- if ((unsigned int) (nameend - d->nextchar)
- == (unsigned int) strlen(p->name)) {
- /* Exact match found. */
- pfound = p;
- indfound = option_index;
- exact = 1;
- break;
- } else if (pfound == NULL) {
- /* First nonexact match found. */
- pfound = p;
- indfound = option_index;
- } else if (pfound->has_arg != p->has_arg
- || pfound->flag != p->flag
- || pfound->val != p->val)
- /* Second or later nonexact match found. */
- ambig = 1;
- }
- if (ambig && !exact) {
- if (print_errors) {
- fprintf(stderr,
- "%s: option `%s' is ambiguous\n",
- argv[0], argv[d->custom_optind]);
- }
- d->nextchar += strlen(d->nextchar);
- d->custom_optind++;
- d->custom_optopt = 0;
- return '?';
- }
- if (pfound) {
- option_index = indfound;
- d->custom_optind++;
- if (*nameend) {
- if (pfound->has_arg != no_argument)
- d->custom_optarg = nameend + 1;
- else {
- if (print_errors) {
- if (argv[d->custom_optind - 1][1] == '-') {
- /* --option */
- fprintf(stderr, "%s: option `--%s' doesn't allow an argument\n",
- argv[0], pfound->name);
- } else {
- /* +option or -option */
- fprintf(stderr, "%s: option `%c%s' doesn't allow an argument\n",
- argv[0], argv[d->custom_optind - 1][0], pfound->name);
- }
-
- }
- d->nextchar += strlen(d->nextchar);
- d->custom_optopt = pfound->val;
- return '?';
- }
- } else if (pfound->has_arg == required_argument) {
- if (d->custom_optind < argc)
- d->custom_optarg = argv[d->custom_optind++];
- else {
- if (print_errors) {
- fprintf(stderr,
- "%s: option `%s' requires an argument\n",
- argv[0],
- argv[d->custom_optind - 1]);
- }
- d->nextchar += strlen(d->nextchar);
- d->custom_optopt = pfound->val;
- return optstring[0] == ':' ? ':' : '?';
- }
- }
- d->nextchar += strlen(d->nextchar);
- if (longind != NULL)
- *longind = option_index;
- if (pfound->flag) {
- *(pfound->flag) = pfound->val;
- return 0;
- }
- return pfound->val;
- }
- /*
- * Can't find it as a long option. If this is not getopt_long_only, or
- * the option starts with '--' or is not a valid short option, then
- * it's an error. Otherwise interpret it as a short option.
- */
- if (print_errors) {
- if (argv[d->custom_optind][1] == '-') {
- /* --option */
- fprintf(stderr,
- "%s: unrecognized option `--%s'\n",
- argv[0], d->nextchar);
- } else {
- /* +option or -option */
- fprintf(stderr,
- "%s: unrecognized option `%c%s'\n",
- argv[0], argv[d->custom_optind][0],
- d->nextchar);
- }
- }
- d->nextchar = (char *) "";
- d->custom_optind++;
- d->custom_optopt = 0;
- return '?';
-}
+ char *stop_char = 0;
+ const char *val = value;
+ int found;
+ char **string_field;
-static int check_short_opt(int argc, char *const *argv, const char *optstring,
- int print_errors, struct custom_getopt_data *d)
-{
- char c = *d->nextchar++;
- char *temp = strchr(optstring, c);
-
- /* Increment `custom_optind' when we start to process its last character. */
- if (*d->nextchar == '\0')
- ++d->custom_optind;
- if (!temp || c == ':') {
- if (print_errors)
- fprintf(stderr, "%s: invalid option -- %c\n", argv[0], c);
-
- d->custom_optopt = c;
- return '?';
- }
- if (temp[1] == ':') {
- if (temp[2] == ':') {
- /* This is an option that accepts an argument optionally. */
- if (*d->nextchar != '\0') {
- d->custom_optarg = d->nextchar;
- d->custom_optind++;
- } else
- d->custom_optarg = NULL;
- d->nextchar = NULL;
- } else {
- /* This is an option that requires an argument. */
- if (*d->nextchar != '\0') {
- d->custom_optarg = d->nextchar;
- /*
- * If we end this ARGV-element by taking the
- * rest as an arg, we must advance to the next
- * element now.
- */
- d->custom_optind++;
- } else if (d->custom_optind == argc) {
- if (print_errors) {
- fprintf(stderr,
- "%s: option requires an argument -- %c\n",
- argv[0], c);
- }
- d->custom_optopt = c;
- if (optstring[0] == ':')
- c = ':';
- else
- c = '?';
- } else
- /*
- * We already incremented `custom_optind' once;
- * increment it again when taking next ARGV-elt
- * as argument.
- */
- d->custom_optarg = argv[d->custom_optind++];
- d->nextchar = NULL;
- }
- }
- return c;
-}
+ stop_char = 0;
+ found = 0;
-/*
- * Scan elements of ARGV for option characters given in OPTSTRING.
- *
- * If an element of ARGV starts with '-', and is not exactly "-" or "--",
- * then it is an option element. The characters of this element
- * (aside from the initial '-') are option characters. If `getopt'
- * is called repeatedly, it returns successively each of the option characters
- * from each of the option elements.
- *
- * If `getopt' finds another option character, it returns that character,
- * updating `custom_optind' and `nextchar' so that the next call to `getopt' can
- * resume the scan with the following option character or ARGV-element.
- *
- * If there are no more option characters, `getopt' returns -1.
- * Then `custom_optind' is the index in ARGV of the first ARGV-element
- * that is not an option. (The ARGV-elements have been permuted
- * so that those that are not options now come last.)
- *
- * OPTSTRING is a string containing the legitimate option characters.
- * If an option character is seen that is not listed in OPTSTRING,
- * return '?' after printing an error message. If you set `custom_opterr' to
- * zero, the error message is suppressed but we still return '?'.
- *
- * If a char in OPTSTRING is followed by a colon, that means it wants an arg,
- * so the following text in the same ARGV-element, or the text of the following
- * ARGV-element, is returned in `custom_optarg'. Two colons mean an option that
- * wants an optional arg; if there is text in the current ARGV-element,
- * it is returned in `custom_optarg', otherwise `custom_optarg' is set to zero.
- *
- * If OPTSTRING starts with `-' or `+', it requests different methods of
- * handling the non-option ARGV-elements.
- * See the comments about RETURN_IN_ORDER and REQUIRE_ORDER, above.
- *
- * Long-named options begin with `--' instead of `-'.
- * Their names may be abbreviated as long as the abbreviation is unique
- * or is an exact match for some defined option. If they have an
- * argument, it follows the option name in the same ARGV-element, separated
- * from the option name by a `=', or else the in next ARGV-element.
- * When `getopt' finds a long-named option, it returns 0 if that option's
- * `flag' field is nonzero, the value of the option's `val' field
- * if the `flag' field is zero.
- *
- * The elements of ARGV aren't really const, because we permute them.
- * But we pretend they're const in the prototype to be compatible
- * with other systems.
- *
- * LONGOPTS is a vector of `struct option' terminated by an
- * element containing a name which is zero.
- *
- * LONGIND returns the index in LONGOPT of the long-named option found.
- * It is only valid when a long-named option has been found by the most
- * recent call.
- *
- * Return the option character from OPTS just read. Return -1 when there are
- * no more options. For unrecognized options, or options missing arguments,
- * `custom_optopt' is set to the option letter, and '?' is returned.
- *
- * The OPTS string is a list of characters which are recognized option letters,
- * optionally followed by colons, specifying that that letter takes an
- * argument, to be placed in `custom_optarg'.
- *
- * If a letter in OPTS is followed by two colons, its argument is optional.
- * This behavior is specific to the GNU `getopt'.
- *
- * The argument `--' causes premature termination of argument scanning,
- * explicitly telling `getopt' that there are no more options. If OPTS begins
- * with `--', then non-option arguments are treated as arguments to the option
- * '\0'. This behavior is specific to the GNU `getopt'.
- */
+ if (!multiple_option && prev_given && (*prev_given || (check_ambiguity && *field_given)))
+ {
+ if (short_opt != '-')
+ fprintf (stderr, "%s: `--%s' (`-%c') option given more than once%s\n",
+ package_name, long_opt, short_opt,
+ (additional_error ? additional_error : ""));
+ else
+ fprintf (stderr, "%s: `--%s' option given more than once%s\n",
+ package_name, long_opt,
+ (additional_error ? additional_error : ""));
+ return 1; /* failure */
+ }
-static int getopt_internal_r(int argc, char *const *argv, const char *optstring,
- const struct option *longopts, int *longind,
- struct custom_getopt_data *d)
-{
- int ret, print_errors = d->custom_opterr;
-
- if (optstring[0] == ':')
- print_errors = 0;
- if (argc < 1)
- return -1;
- d->custom_optarg = NULL;
-
- /*
- * This is a big difference with GNU getopt, since optind == 0
- * means initialization while here 1 means first call.
- */
- if (d->custom_optind == 0 || !d->initialized) {
- if (d->custom_optind == 0)
- d->custom_optind = 1; /* Don't scan ARGV[0], the program name. */
- custom_getopt_initialize(d);
- }
- if (d->nextchar == NULL || *d->nextchar == '\0') {
- ret = shuffle_argv(argc, argv, longopts, d);
- if (ret)
- return ret;
- }
- if (longopts && (argv[d->custom_optind][1] == '-' ))
- return check_long_opt(argc, argv, optstring, longopts,
- longind, print_errors, d);
- return check_short_opt(argc, argv, optstring, print_errors, d);
-}
+
+ if (field_given && *field_given && ! override)
+ return 0;
+ if (prev_given)
+ (*prev_given)++;
+ if (field_given)
+ (*field_given)++;
+ if (possible_values)
+ val = possible_values[found];
+
+ switch(arg_type) {
+ case ARG_FLAG:
+ *((int *)field) = !*((int *)field);
+ break;
+ case ARG_INT:
+ if (val) *((int *)field) = strtol (val, &stop_char, 0);
+ break;
+ case ARG_STRING:
+ if (val) {
+ string_field = (char **)field;
+ if (!no_free && *string_field)
+ free (*string_field); /* free previous string */
+ *string_field = gengetopt_strdup (val);
+ }
+ break;
+ default:
+ break;
+ };
+
+ /* check numeric conversion */
+ switch(arg_type) {
+ case ARG_INT:
+ if (val && !(stop_char && *stop_char == '\0')) {
+ fprintf(stderr, "%s: invalid numeric value: %s\n", package_name, val);
+ return 1; /* failure */
+ }
+ break;
+ default:
+ ;
+ };
+
+ /* store the original value */
+ switch(arg_type) {
+ case ARG_NO:
+ case ARG_FLAG:
+ break;
+ default:
+ if (value && orig_field) {
+ if (no_free) {
+ *orig_field = value;
+ } else {
+ if (*orig_field)
+ free (*orig_field); /* free previous string */
+ *orig_field = gengetopt_strdup (value);
+ }
+ }
+ };
-static int custom_getopt_internal(int argc, char *const *argv, const char *optstring,
- const struct option *longopts, int *longind)
-{
- int result;
- /* Keep a global copy of all internal members of d */
- static struct custom_getopt_data d;
-
- d.custom_optind = custom_optind;
- d.custom_opterr = custom_opterr;
- result = getopt_internal_r(argc, argv, optstring, longopts,
- longind, &d);
- custom_optind = d.custom_optind;
- custom_optarg = d.custom_optarg;
- custom_optopt = d.custom_optopt;
- return result;
+ return 0; /* OK */
}
-static int custom_getopt_long (int argc, char *const *argv, const char *options,
- const struct option *long_options, int *opt_index)
-{
- return custom_getopt_internal(argc, argv, options, long_options,
- opt_index);
-}
int
-cmdline_parser_internal (int argc, char * const *argv, struct gengetopt_args_info *args_info, int override, int initialize, int check_required, const char *additional_error)
+cmdline_parser_internal (int argc, char * const *argv, struct gengetopt_args_info *args_info,
+ struct cmdline_parser_params *params, const char *additional_error)
{
int c; /* Character of the parsed option. */
int error = 0;
struct gengetopt_args_info local_args_info;
+
+ int override;
+ int initialize;
+ int check_required;
+ int check_ambiguity;
+
+ package_name = argv[0];
+
+ override = params->override;
+ initialize = params->initialize;
+ check_required = params->check_required;
+ check_ambiguity = params->check_ambiguity;
if (initialize)
cmdline_parser_init (args_info);
optarg = 0;
optind = 0;
- opterr = 1;
+ opterr = params->print_errors;
optopt = '?';
while (1)
{
int option_index = 0;
- char *stop_char;
static struct option long_options[] = {
{ "help", 0, NULL, 'h' },
{ NULL, 0, NULL, 0 }
};
- stop_char = 0;
- custom_optarg = optarg;
- custom_optind = optind;
- custom_opterr = opterr;
- custom_optopt = optopt;
-
- c = custom_getopt_long (argc, argv, "hVpf:d:rv:D:", long_options, &option_index);
-
- optarg = custom_optarg;
- optind = custom_optind;
- opterr = custom_opterr;
- optopt = custom_optopt;
+ c = getopt_long (argc, argv, "hVpf:d:rv:D:", long_options, &option_index);
if (c == -1) break; /* Exit from `while (1)' loop. */
exit (EXIT_SUCCESS);
case 'p': /* Prints the local database tree. */
- if (local_args_info.print_given)
- {
- fprintf (stderr, "%s: `--print' (`-p') option given more than once%s\n", argv[0], (additional_error ? additional_error : ""));
- goto failure;
- }
- if (args_info->print_given && ! override)
- continue;
- local_args_info.print_given = 1;
- args_info->print_given = 1;
- args_info->print_flag = !(args_info->print_flag);
+
+
+ if (update_arg((void *)&(args_info->print_flag), 0, &(args_info->print_given),
+ &(local_args_info.print_given), optarg, 0, 0, ARG_FLAG,
+ check_ambiguity, override, 1, 0, "print", 'p',
+ additional_error))
+ goto failure;
+
break;
-
case 'f': /* Adds the file to local database. */
- if (local_args_info.file_given)
- {
- fprintf (stderr, "%s: `--file' (`-f') option given more than once%s\n", argv[0], (additional_error ? additional_error : ""));
- goto failure;
- }
- if (args_info->file_given && ! override)
- continue;
- local_args_info.file_given = 1;
- args_info->file_given = 1;
- if (args_info->file_arg)
- free (args_info->file_arg); /* free previous string */
- args_info->file_arg = gengetopt_strdup (optarg);
- if (args_info->file_orig)
- free (args_info->file_orig); /* free previous string */
- args_info->file_orig = gengetopt_strdup (optarg);
+
+
+ if (update_arg( (void *)&(args_info->file_arg),
+ &(args_info->file_orig), &(args_info->file_given),
+ &(local_args_info.file_given), optarg, 0, 0, ARG_STRING,
+ check_ambiguity, override, 0, 0,
+ "file", 'f',
+ additional_error))
+ goto failure;
+
break;
-
case 'd': /* Adds the directory to local database. */
- if (local_args_info.dir_given)
- {
- fprintf (stderr, "%s: `--dir' (`-d') option given more than once%s\n", argv[0], (additional_error ? additional_error : ""));
- goto failure;
- }
- if (args_info->dir_given && ! override)
- continue;
- local_args_info.dir_given = 1;
- args_info->dir_given = 1;
- if (args_info->dir_arg)
- free (args_info->dir_arg); /* free previous string */
- args_info->dir_arg = gengetopt_strdup (optarg);
- if (args_info->dir_orig)
- free (args_info->dir_orig); /* free previous string */
- args_info->dir_orig = gengetopt_strdup (optarg);
+
+
+ if (update_arg( (void *)&(args_info->dir_arg),
+ &(args_info->dir_orig), &(args_info->dir_given),
+ &(local_args_info.dir_given), optarg, 0, 0, ARG_STRING,
+ check_ambiguity, override, 0, 0,
+ "dir", 'd',
+ additional_error))
+ goto failure;
+
break;
-
case 'r': /* Recurse into sub-directories. */
- if (local_args_info.recurse_given)
- {
- fprintf (stderr, "%s: `--recurse' (`-r') option given more than once%s\n", argv[0], (additional_error ? additional_error : ""));
- goto failure;
- }
- if (args_info->recurse_given && ! override)
- continue;
- local_args_info.recurse_given = 1;
- args_info->recurse_given = 1;
- args_info->recurse_flag = !(args_info->recurse_flag);
+
+
+ if (update_arg((void *)&(args_info->recurse_flag), 0, &(args_info->recurse_given),
+ &(local_args_info.recurse_given), optarg, 0, 0, ARG_FLAG,
+ check_ambiguity, override, 1, 0, "recurse", 'r',
+ additional_error))
+ goto failure;
+
break;
-
case 'v': /* Verbosity level. */
- if (local_args_info.verbose_given)
- {
- fprintf (stderr, "%s: `--verbose' (`-v') option given more than once%s\n", argv[0], (additional_error ? additional_error : ""));
- goto failure;
- }
- if (args_info->verbose_given && ! override)
- continue;
- local_args_info.verbose_given = 1;
- args_info->verbose_given = 1;
- args_info->verbose_arg = strtol (optarg, &stop_char, 0);
- if (!(stop_char && *stop_char == '\0')) {
- fprintf(stderr, "%s: invalid numeric value: %s\n", argv[0], optarg);
+
+
+ if (update_arg( (void *)&(args_info->verbose_arg),
+ &(args_info->verbose_orig), &(args_info->verbose_given),
+ &(local_args_info.verbose_given), optarg, 0, "1", ARG_INT,
+ check_ambiguity, override, 0, 0,
+ "verbose", 'v',
+ additional_error))
goto failure;
- }
- if (args_info->verbose_orig)
- free (args_info->verbose_orig); /* free previous string */
- args_info->verbose_orig = gengetopt_strdup (optarg);
+
break;
-
case 'D': /* Debug messages level. */
- if (local_args_info.debug_given)
- {
- fprintf (stderr, "%s: `--debug' (`-D') option given more than once%s\n", argv[0], (additional_error ? additional_error : ""));
- goto failure;
- }
- if (args_info->debug_given && ! override)
- continue;
- local_args_info.debug_given = 1;
- args_info->debug_given = 1;
- args_info->debug_arg = strtol (optarg, &stop_char, 0);
- if (!(stop_char && *stop_char == '\0')) {
- fprintf(stderr, "%s: invalid numeric value: %s\n", argv[0], optarg);
+
+
+ if (update_arg( (void *)&(args_info->debug_arg),
+ &(args_info->debug_orig), &(args_info->debug_given),
+ &(local_args_info.debug_given), optarg, 0, "0", ARG_INT,
+ check_ambiguity, override, 0, 0,
+ "debug", 'D',
+ additional_error))
goto failure;
- }
- if (args_info->debug_orig)
- free (args_info->debug_orig); /* free previous string */
- args_info->debug_orig = gengetopt_strdup (optarg);
+
break;
-
case 0: /* Long option with no short option */
case '?': /* Invalid option. */
/* `getopt_long' already printed an error message. */
if ( error )
return (EXIT_FAILURE);
+ if (optind < argc)
+ {
+ int i = 0 ;
+ int found_prog_name = 0;
+ /* whether program name, i.e., argv[0], is in the remaining args
+ (this may happen with some implementations of getopt,
+ but surely not with the one included by gengetopt) */
+
+ i = optind;
+ while (i < argc)
+ if (argv[i++] == argv[0]) {
+ found_prog_name = 1;
+ break;
+ }
+ i = 0;
+
+ args_info->inputs_num = argc - optind - found_prog_name;
+ args_info->inputs =
+ (char **)(malloc ((args_info->inputs_num)*sizeof(char *))) ;
+ while (optind < argc)
+ if (argv[optind++] != argv[0])
+ args_info->inputs[ i++ ] = gengetopt_strdup (argv[optind-1]) ;
+ }
+
return 0;
failure:
cmdline_parser_release (&local_args_info);
return (EXIT_FAILURE);
}
+
+#ifndef CONFIG_FILE_LINE_SIZE
+#define CONFIG_FILE_LINE_SIZE 2048
+#endif
+#define ADDITIONAL_ERROR " in configuration file "
+
+#define CONFIG_FILE_LINE_BUFFER_SIZE (CONFIG_FILE_LINE_SIZE+3)
+/* 3 is for "--" and "=" */
+
+static int
+_cmdline_parser_configfile (char * const filename, int *my_argc)
+{
+ FILE* file;
+ char my_argv[CONFIG_FILE_LINE_BUFFER_SIZE+1];
+ char linebuf[CONFIG_FILE_LINE_SIZE];
+ int line_num = 0;
+ int result = 0, equal;
+ char *fopt, *farg;
+ char *str_index;
+ size_t len, next_token;
+ char delimiter;
+
+ if ((file = fopen(filename, "r")) == NULL)
+ {
+ fprintf (stderr, "%s: Error opening configuration file '%s'\n",
+ CMDLINE_PARSER_PACKAGE, filename);
+ return EXIT_FAILURE;
+ }
+
+ while ((fgets(linebuf, CONFIG_FILE_LINE_SIZE, file)) != NULL)
+ {
+ ++line_num;
+ my_argv[0] = '\0';
+ len = strlen(linebuf);
+ if (len > (CONFIG_FILE_LINE_BUFFER_SIZE-1))
+ {
+ fprintf (stderr, "%s:%s:%d: Line too long in configuration file\n",
+ CMDLINE_PARSER_PACKAGE, filename, line_num);
+ result = EXIT_FAILURE;
+ break;
+ }
+
+ /* find first non-whitespace character in the line */
+ next_token = strspn (linebuf, " \t\r\n");
+ str_index = linebuf + next_token;
+
+ if ( str_index[0] == '\0' || str_index[0] == '#')
+ continue; /* empty line or comment line is skipped */
+
+ fopt = str_index;
+
+ /* truncate fopt at the end of the first non-valid character */
+ next_token = strcspn (fopt, " \t\r\n=");
+
+ if (fopt[next_token] == '\0') /* the line is over */
+ {
+ farg = NULL;
+ equal = 0;
+ goto noarg;
+ }
+
+ /* remember if equal sign is present */
+ equal = (fopt[next_token] == '=');
+ fopt[next_token++] = '\0';
+
+ /* advance pointers to the next token after the end of fopt */
+ next_token += strspn (fopt + next_token, " \t\r\n");
+
+ /* check for the presence of equal sign, and if so, skip it */
+ if ( !equal )
+ if ((equal = (fopt[next_token] == '=')))
+ {
+ next_token++;
+ next_token += strspn (fopt + next_token, " \t\r\n");
+ }
+ str_index += next_token;
+
+ /* find argument */
+ farg = str_index;
+ if ( farg[0] == '\"' || farg[0] == '\'' )
+ { /* quoted argument */
+ str_index = strchr (++farg, str_index[0] ); /* skip opening quote */
+ if (! str_index)
+ {
+ fprintf
+ (stderr,
+ "%s:%s:%d: unterminated string in configuration file\n",
+ CMDLINE_PARSER_PACKAGE, filename, line_num);
+ result = EXIT_FAILURE;
+ break;
+ }
+ }
+ else
+ { /* read up the remaining part up to a delimiter */
+ next_token = strcspn (farg, " \t\r\n#\'\"");
+ str_index += next_token;
+ }
+
+ /* truncate farg at the delimiter and store it for further check */
+ delimiter = *str_index, *str_index++ = '\0';
+
+ /* everything but comment is illegal at the end of line */
+ if (delimiter != '\0' && delimiter != '#')
+ {
+ str_index += strspn(str_index, " \t\r\n");
+ if (*str_index != '\0' && *str_index != '#')
+ {
+ fprintf
+ (stderr,
+ "%s:%s:%d: malformed string in configuration file\n",
+ CMDLINE_PARSER_PACKAGE, filename, line_num);
+ result = EXIT_FAILURE;
+ break;
+ }
+ }
+
+ noarg:
+ if (!strcmp(fopt,"include")) {
+ if (farg && *farg) {
+ result = _cmdline_parser_configfile(farg, my_argc);
+ } else {
+ fprintf(stderr, "%s:%s:%d: include requires a filename argument.\n",
+ CMDLINE_PARSER_PACKAGE, filename, line_num);
+ }
+ continue;
+ }
+ len = strlen(fopt);
+ strcat (my_argv, len > 1 ? "--" : "-");
+ strcat (my_argv, fopt);
+ if (len > 1 && ((farg && *farg) || equal))
+ strcat (my_argv, "=");
+ if (farg && *farg)
+ strcat (my_argv, farg);
+ ++(*my_argc);
+
+ cmd_line_list_tmp = (struct line_list *) malloc (sizeof (struct line_list));
+ cmd_line_list_tmp->next = cmd_line_list;
+ cmd_line_list = cmd_line_list_tmp;
+ cmd_line_list->string_arg = gengetopt_strdup(my_argv);
+ } /* while */
+
+ if (file)
+ fclose(file);
+ return result;
+}
+
+int
+cmdline_parser_configfile (char * const filename,
+ struct gengetopt_args_info *args_info,
+ int override, int initialize, int check_required)
+{
+ struct cmdline_parser_params params;
+
+ params.override = override;
+ params.initialize = initialize;
+ params.check_required = check_required;
+ params.check_ambiguity = 0;
+ params.print_errors = 1;
+
+ return cmdline_parser_config_file (filename, args_info, ¶ms);
+}
+
+int
+cmdline_parser_config_file (char * const filename,
+ struct gengetopt_args_info *args_info,
+ struct cmdline_parser_params *params)
+{
+ int i, result;
+ int my_argc = 1;
+ char **my_argv_arg;
+ char *additional_error;
+
+ /* store the program name */
+ cmd_line_list_tmp = (struct line_list *) malloc (sizeof (struct line_list));
+ cmd_line_list_tmp->next = cmd_line_list;
+ cmd_line_list = cmd_line_list_tmp;
+ cmd_line_list->string_arg = gengetopt_strdup (CMDLINE_PARSER_PACKAGE);
+
+ result = _cmdline_parser_configfile(filename, &my_argc);
+
+ if (result != EXIT_FAILURE) {
+ my_argv_arg = (char **) malloc((my_argc+1) * sizeof(char *));
+ cmd_line_list_tmp = cmd_line_list;
+
+ for (i = my_argc - 1; i >= 0; --i) {
+ my_argv_arg[i] = cmd_line_list_tmp->string_arg;
+ cmd_line_list_tmp = cmd_line_list_tmp->next;
+ }
+
+ my_argv_arg[my_argc] = 0;
+
+ additional_error = (char *)malloc(strlen(filename) + strlen(ADDITIONAL_ERROR) + 1);
+ strcpy (additional_error, ADDITIONAL_ERROR);
+ strcat (additional_error, filename);
+ result =
+ cmdline_parser_internal (my_argc, my_argv_arg, args_info,
+ params,
+ additional_error);
+
+ free (additional_error);
+ free (my_argv_arg);
+ }
+
+ free_cmd_list();
+ if (result == EXIT_FAILURE)
+ {
+ cmdline_parser_free (args_info);
+ exit (EXIT_FAILURE);
+ }
+
+ return result;
+}
git://git.creatis.insa-lyon.fr / creaImageIO.git / commitdiff