--- /dev/null
+/*
+ * File automatically generated by
+ * gengen 1.4.1 by Lorenzo Bettini
+ * http://www.gnu.org/software/gengen
+ */
+
+#include "custom_getopt_gen.h"
+
+void
+custom_getopt_gen_gen_class::generate_custom_getopt_gen(ostream &stream, unsigned int indent)
+{
+ string indent_str (indent, ' ');
+ indent = 0;
+
+ stream << "/*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * Extracted from the glibc source tree, version 2.3.6";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * Licensed under the GPL as per the whole glibc source tree.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * This file was modified so that getopt_long can be called";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * many times without risking previous memory to be spoiled.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * Modified by Andre Noll and Lorenzo Bettini for use in";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * GNU gengetopt generated files.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << "/* ";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * we must include anything we need since this file is not thought to be";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * inserted in a file already using getopt.h";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * Lorenzo";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << "struct option";
+ stream << "\n";
+ stream << indent_str;
+ stream << "{";
+ stream << "\n";
+ stream << indent_str;
+ stream << " const char *name;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /* has_arg can't be an enum because some compilers complain about";
+ stream << "\n";
+ stream << indent_str;
+ stream << " type mismatches in all the code that assumes it is an int. */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int has_arg;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int *flag;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int val;";
+ stream << "\n";
+ stream << indent_str;
+ stream << "};";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << "/* This version of `getopt' appears to the caller like standard Unix `getopt'";
+ stream << "\n";
+ stream << indent_str;
+ stream << " but it behaves differently for the user, since it allows the user";
+ stream << "\n";
+ stream << indent_str;
+ stream << " to intersperse the options with the other arguments.";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << " As `getopt' works, it permutes the elements of ARGV so that,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " when it is done, all the options precede everything else. Thus";
+ stream << "\n";
+ stream << indent_str;
+ stream << " all application programs are extended to handle flexible argument order.";
+ stream << "\n";
+ stream << indent_str;
+ stream << "*/";
+ stream << "\n";
+ stream << indent_str;
+ stream << "/*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " If the field `flag' is not NULL, it points to a variable that is set";
+ stream << "\n";
+ stream << indent_str;
+ stream << " to the value given in the field `val' when the option is found, but";
+ stream << "\n";
+ stream << indent_str;
+ stream << " left unchanged if the option is not found.";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << " To have a long-named option do something other than set an `int' to";
+ stream << "\n";
+ stream << indent_str;
+ stream << " a compiled-in constant, such as set a value from `custom_optarg', set the";
+ stream << "\n";
+ stream << indent_str;
+ stream << " option's `flag' field to zero and its `val' field to a nonzero";
+ stream << "\n";
+ stream << indent_str;
+ stream << " value (the equivalent single-letter option character, if there is";
+ stream << "\n";
+ stream << indent_str;
+ stream << " one). For long options that have a zero `flag' field, `getopt'";
+ stream << "\n";
+ stream << indent_str;
+ stream << " returns the contents of the `val' field. */";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << "/* Names for the values of the `has_arg' field of `struct option'. */";
+ stream << "\n";
+ stream << indent_str;
+ stream << "#ifndef no_argument";
+ stream << "\n";
+ stream << indent_str;
+ stream << "#define no_argument 0";
+ stream << "\n";
+ stream << indent_str;
+ stream << "#endif";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << "#ifndef required_argument";
+ stream << "\n";
+ stream << indent_str;
+ stream << "#define required_argument 1";
+ stream << "\n";
+ stream << indent_str;
+ stream << "#endif";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << "#ifndef optional_argument";
+ stream << "\n";
+ stream << indent_str;
+ stream << "#define optional_argument 2";
+ stream << "\n";
+ stream << indent_str;
+ stream << "#endif";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << "struct custom_getopt_data {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * These have exactly the same meaning as the corresponding global variables,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * except that they are used for the reentrant versions of getopt.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int custom_optind;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int custom_opterr;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int custom_optopt;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " char *custom_optarg;";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << " /* True if the internal members have been initialized. */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int initialized;";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << " /*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * The next char to be scanned in the option-element in which the last option";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * character we returned was found. This allows us to pick up the scan where";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * we left off. If this is zero, or a null string, it means resume the scan by";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * advancing to the next ARGV-element.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " char *nextchar;";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << " /*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * Describe the part of ARGV that contains non-options that have been skipped.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * `first_nonopt' is the index in ARGV of the first of them; `last_nonopt' is";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * the index after the last of them.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int first_nonopt;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int last_nonopt;";
+ stream << "\n";
+ stream << indent_str;
+ stream << "};";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << "/*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * the variables optarg, optind, opterr and optopt are renamed with";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * the custom_ prefix so that they don't interfere with getopt ones.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * Moreover they're static so they are visible only from within the";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * file where this very file will be included.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << "/*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * For communication from `custom_getopt' to the caller. When `custom_getopt' finds an";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * option that takes an argument, the argument value is returned here.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << "static char *custom_optarg;";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << "/*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * Index in ARGV of the next element to be scanned. This is used for";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * communication to and from the caller and for communication between";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * successive calls to `custom_getopt'.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * On entry to `custom_getopt', 1 means this is the first call; initialize.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * When `custom_getopt' returns -1, this is the index of the first of the non-option";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * elements that the caller should itself scan.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * Otherwise, `custom_optind' communicates from one call to the next how much of ARGV";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * has been scanned so far.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * 1003.2 says this must be 1 before any call.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << "static int custom_optind = 1;";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << "/*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * Callers store zero here to inhibit the error message for unrecognized";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * options.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << "static int custom_opterr = 1;";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << "/*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * Set to an option character which was unrecognized. This must be initialized";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * on some systems to avoid linking in the system's own getopt implementation.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << "static int custom_optopt = '?';";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << "/*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * Exchange two adjacent subsequences of ARGV. One subsequence is elements";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * [first_nonopt,last_nonopt) which contains all the non-options that have been";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * skipped so far. The other is elements [last_nonopt,custom_optind), which contains";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * all the options processed since those non-options were skipped.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * `first_nonopt' and `last_nonopt' are relocated so that they describe the new";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * indices of the non-options in ARGV after they are moved.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << "static void exchange(char **argv, struct custom_getopt_data *d)";
+ stream << "\n";
+ stream << indent_str;
+ stream << "{";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int bottom = d->first_nonopt;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int middle = d->last_nonopt;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int top = d->custom_optind;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " char *tem;";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << " /*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * Exchange the shorter segment with the far end of the longer segment.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * That puts the shorter segment into the right place. It leaves the";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * longer segment in the right place overall, but it consists of two";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * parts that need to be swapped next.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " while (top > middle && middle > bottom) {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (top - middle > middle - bottom) {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /* Bottom segment is the short one. */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int len = middle - bottom;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int i;";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << " /* Swap it with the top part of the top segment. */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " for (i = 0; i < len; i++) {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " tem = argv[bottom + i];";
+ stream << "\n";
+ stream << indent_str;
+ stream << " argv[bottom + i] =";
+ stream << "\n";
+ stream << indent_str;
+ stream << " argv[top - (middle - bottom) + i];";
+ stream << "\n";
+ stream << indent_str;
+ stream << " argv[top - (middle - bottom) + i] = tem;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /* Exclude the moved bottom segment from further swapping. */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " top -= len;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " } else {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /* Top segment is the short one. */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int len = top - middle;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int i;";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << " /* Swap it with the bottom part of the bottom segment. */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " for (i = 0; i < len; i++) {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " tem = argv[bottom + i];";
+ stream << "\n";
+ stream << indent_str;
+ stream << " argv[bottom + i] = argv[middle + i];";
+ stream << "\n";
+ stream << indent_str;
+ stream << " argv[middle + i] = tem;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /* Exclude the moved top segment from further swapping. */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " bottom += len;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /* Update records for the slots the non-options now occupy. */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->first_nonopt += (d->custom_optind - d->last_nonopt);";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->last_nonopt = d->custom_optind;";
+ stream << "\n";
+ stream << indent_str;
+ stream << "}";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << "/* Initialize the internal data when the first call is made. */";
+ stream << "\n";
+ stream << indent_str;
+ stream << "static void custom_getopt_initialize(struct custom_getopt_data *d)";
+ stream << "\n";
+ stream << indent_str;
+ stream << "{";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * Start processing options with ARGV-element 1 (since ARGV-element 0";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * is the program name); the sequence of previously skipped non-option";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * ARGV-elements is empty.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->first_nonopt = d->last_nonopt = d->custom_optind;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->nextchar = NULL;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->initialized = 1;";
+ stream << "\n";
+ stream << indent_str;
+ stream << "}";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << "#define NONOPTION_P (argv[d->custom_optind][0] != '-' || argv[d->custom_optind][1] == '\\0')";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << "/* return: zero: continue, nonzero: return given value to user */";
+ stream << "\n";
+ stream << indent_str;
+ stream << "static int shuffle_argv(int argc, char *const *argv,const struct option *longopts,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " struct custom_getopt_data *d)";
+ stream << "\n";
+ stream << indent_str;
+ stream << "{";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * Give FIRST_NONOPT & LAST_NONOPT rational values if CUSTOM_OPTIND has been";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * moved back by the user (who may also have changed the arguments).";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (d->last_nonopt > d->custom_optind)";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->last_nonopt = d->custom_optind;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (d->first_nonopt > d->custom_optind)";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->first_nonopt = d->custom_optind;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * If we have just processed some options following some";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * non-options, exchange them so that the options come first.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (d->first_nonopt != d->last_nonopt &&";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->last_nonopt != d->custom_optind)";
+ stream << "\n";
+ stream << indent_str;
+ stream << " exchange((char **) argv, d);";
+ stream << "\n";
+ stream << indent_str;
+ stream << " else if (d->last_nonopt != d->custom_optind)";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->first_nonopt = d->custom_optind;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * Skip any additional non-options and extend the range of";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * non-options previously skipped.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " while (d->custom_optind < argc && NONOPTION_P)";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optind++;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->last_nonopt = d->custom_optind;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * The special ARGV-element `--' means premature end of options. Skip";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * it like a null option, then exchange with previous non-options as if";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * it were an option, then skip everything else like a non-option.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (d->custom_optind != argc && !strcmp(argv[d->custom_optind], \"--\")) {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optind++;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (d->first_nonopt != d->last_nonopt";
+ stream << "\n";
+ stream << indent_str;
+ stream << " && d->last_nonopt != d->custom_optind)";
+ stream << "\n";
+ stream << indent_str;
+ stream << " exchange((char **) argv, d);";
+ stream << "\n";
+ stream << indent_str;
+ stream << " else if (d->first_nonopt == d->last_nonopt)";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->first_nonopt = d->custom_optind;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->last_nonopt = argc;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optind = argc;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * If we have done all the ARGV-elements, stop the scan and back over";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * any non-options that we skipped and permuted.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (d->custom_optind == argc) {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * Set the next-arg-index to point at the non-options that we";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * previously skipped, so the caller will digest them.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (d->first_nonopt != d->last_nonopt)";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optind = d->first_nonopt;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " return -1;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * If we have come to a non-option and did not permute it, either stop";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * the scan or describe it to the caller and pass it by.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (NONOPTION_P) {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optarg = argv[d->custom_optind++];";
+ stream << "\n";
+ stream << indent_str;
+ stream << " return 1;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * We have found another option-ARGV-element. Skip the initial";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * punctuation.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->nextchar = (argv[d->custom_optind] + 1 + (longopts != NULL && argv[d->custom_optind][1] == '-'));";
+ stream << "\n";
+ stream << indent_str;
+ stream << " return 0;";
+ stream << "\n";
+ stream << indent_str;
+ stream << "}";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << "/*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * Check whether the ARGV-element is a long option.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * If there's a long option \"fubar\" and the ARGV-element is \"-fu\", consider";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * that an abbreviation of the long option, just like \"--fu\", and not \"-f\" with";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * arg \"u\".";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * This distinction seems to be the most useful approach.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << "static int check_long_opt(int argc, char *const *argv, const char *optstring,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " const struct option *longopts, int *longind,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int print_errors, struct custom_getopt_data *d)";
+ stream << "\n";
+ stream << indent_str;
+ stream << "{";
+ stream << "\n";
+ stream << indent_str;
+ stream << " char *nameend;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " const struct option *p;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " const struct option *pfound = NULL;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int exact = 0;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int ambig = 0;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int indfound = -1;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int option_index;";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << " for (nameend = d->nextchar; *nameend && *nameend != '='; nameend++)";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /* Do nothing. */ ;";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << " /* Test all long options for either exact match or abbreviated matches */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " for (p = longopts, option_index = 0; p->name; p++, option_index++)";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (!strncmp(p->name, d->nextchar, nameend - d->nextchar)) {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if ((unsigned int) (nameend - d->nextchar)";
+ stream << "\n";
+ stream << indent_str;
+ stream << " == (unsigned int) strlen(p->name)) {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /* Exact match found. */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " pfound = p;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " indfound = option_index;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " exact = 1;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " break;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " } else if (pfound == NULL) {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /* First nonexact match found. */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " pfound = p;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " indfound = option_index;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " } else if (pfound->has_arg != p->has_arg";
+ stream << "\n";
+ stream << indent_str;
+ stream << " || pfound->flag != p->flag";
+ stream << "\n";
+ stream << indent_str;
+ stream << " || pfound->val != p->val)";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /* Second or later nonexact match found. */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " ambig = 1;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (ambig && !exact) {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (print_errors) {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " fprintf(stderr,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " \"%s: option `%s' is ambiguous\\n\",";
+ stream << "\n";
+ stream << indent_str;
+ stream << " argv[0], argv[d->custom_optind]);";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->nextchar += strlen(d->nextchar);";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optind++;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optopt = 0;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " return '?';";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (pfound) {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " option_index = indfound;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optind++;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (*nameend) {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (pfound->has_arg != no_argument)";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optarg = nameend + 1;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " else {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (print_errors) {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (argv[d->custom_optind - 1][1] == '-') {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /* --option */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " fprintf(stderr, \"%s: option `--%s' doesn't allow an argument\\n\",";
+ stream << "\n";
+ stream << indent_str;
+ stream << " argv[0], pfound->name);";
+ stream << "\n";
+ stream << indent_str;
+ stream << " } else {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /* +option or -option */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " fprintf(stderr, \"%s: option `%c%s' doesn't allow an argument\\n\",";
+ stream << "\n";
+ stream << indent_str;
+ stream << " argv[0], argv[d->custom_optind - 1][0], pfound->name);";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->nextchar += strlen(d->nextchar);";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optopt = pfound->val;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " return '?';";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " } else if (pfound->has_arg == required_argument) {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (d->custom_optind < argc)";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optarg = argv[d->custom_optind++];";
+ stream << "\n";
+ stream << indent_str;
+ stream << " else {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (print_errors) {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " fprintf(stderr,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " \"%s: option `%s' requires an argument\\n\",";
+ stream << "\n";
+ stream << indent_str;
+ stream << " argv[0],";
+ stream << "\n";
+ stream << indent_str;
+ stream << " argv[d->custom_optind - 1]);";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->nextchar += strlen(d->nextchar);";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optopt = pfound->val;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " return optstring[0] == ':' ? ':' : '?';";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->nextchar += strlen(d->nextchar);";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (longind != NULL)";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *longind = option_index;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (pfound->flag) {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *(pfound->flag) = pfound->val;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " return 0;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " return pfound->val;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * Can't find it as a long option. If this is not getopt_long_only, or";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * the option starts with '--' or is not a valid short option, then";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * it's an error. Otherwise interpret it as a short option.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (print_errors) {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (argv[d->custom_optind][1] == '-') {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /* --option */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " fprintf(stderr,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " \"%s: unrecognized option `--%s'\\n\",";
+ stream << "\n";
+ stream << indent_str;
+ stream << " argv[0], d->nextchar);";
+ stream << "\n";
+ stream << indent_str;
+ stream << " } else {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /* +option or -option */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " fprintf(stderr,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " \"%s: unrecognized option `%c%s'\\n\",";
+ stream << "\n";
+ stream << indent_str;
+ stream << " argv[0], argv[d->custom_optind][0],";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->nextchar);";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->nextchar = (char *) \"\";";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optind++;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optopt = 0;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " return '?';";
+ stream << "\n";
+ stream << indent_str;
+ stream << "}";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << "static int check_short_opt(int argc, char *const *argv, const char *optstring,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int print_errors, struct custom_getopt_data *d)";
+ stream << "\n";
+ stream << indent_str;
+ stream << "{";
+ stream << "\n";
+ stream << indent_str;
+ stream << " char c = *d->nextchar++;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " const char *temp = strchr(optstring, c);";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << " /* Increment `custom_optind' when we start to process its last character. */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (*d->nextchar == '\\0')";
+ stream << "\n";
+ stream << indent_str;
+ stream << " ++d->custom_optind;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (!temp || c == ':') {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (print_errors)";
+ stream << "\n";
+ stream << indent_str;
+ stream << " fprintf(stderr, \"%s: invalid option -- %c\\n\", argv[0], c);";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optopt = c;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " return '?';";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (temp[1] == ':') {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (temp[2] == ':') {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /* This is an option that accepts an argument optionally. */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (*d->nextchar != '\\0') {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optarg = d->nextchar;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optind++;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " } else";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optarg = NULL;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->nextchar = NULL;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " } else {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /* This is an option that requires an argument. */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (*d->nextchar != '\\0') {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optarg = d->nextchar;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * If we end this ARGV-element by taking the";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * rest as an arg, we must advance to the next";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * element now.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optind++;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " } else if (d->custom_optind == argc) {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (print_errors) {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " fprintf(stderr,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " \"%s: option requires an argument -- %c\\n\",";
+ stream << "\n";
+ stream << indent_str;
+ stream << " argv[0], c);";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optopt = c;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (optstring[0] == ':')";
+ stream << "\n";
+ stream << indent_str;
+ stream << " c = ':';";
+ stream << "\n";
+ stream << indent_str;
+ stream << " else";
+ stream << "\n";
+ stream << indent_str;
+ stream << " c = '?';";
+ stream << "\n";
+ stream << indent_str;
+ stream << " } else";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * We already incremented `custom_optind' once;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * increment it again when taking next ARGV-elt";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * as argument.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optarg = argv[d->custom_optind++];";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->nextchar = NULL;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " return c;";
+ stream << "\n";
+ stream << indent_str;
+ stream << "}";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << "/*";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * Scan elements of ARGV for option characters given in OPTSTRING.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * If an element of ARGV starts with '-', and is not exactly \"-\" or \"--\",";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * then it is an option element. The characters of this element";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * (aside from the initial '-') are option characters. If `getopt'";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * is called repeatedly, it returns successively each of the option characters";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * from each of the option elements.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * If `getopt' finds another option character, it returns that character,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * updating `custom_optind' and `nextchar' so that the next call to `getopt' can";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * resume the scan with the following option character or ARGV-element.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * If there are no more option characters, `getopt' returns -1.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * Then `custom_optind' is the index in ARGV of the first ARGV-element";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * that is not an option. (The ARGV-elements have been permuted";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * so that those that are not options now come last.)";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * OPTSTRING is a string containing the legitimate option characters.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * If an option character is seen that is not listed in OPTSTRING,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * return '?' after printing an error message. If you set `custom_opterr' to";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * zero, the error message is suppressed but we still return '?'.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * If a char in OPTSTRING is followed by a colon, that means it wants an arg,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * so the following text in the same ARGV-element, or the text of the following";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * ARGV-element, is returned in `custom_optarg'. Two colons mean an option that";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * wants an optional arg; if there is text in the current ARGV-element,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * it is returned in `custom_optarg', otherwise `custom_optarg' is set to zero.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * If OPTSTRING starts with `-' or `+', it requests different methods of";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * handling the non-option ARGV-elements.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * See the comments about RETURN_IN_ORDER and REQUIRE_ORDER, above.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * Long-named options begin with `--' instead of `-'.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * Their names may be abbreviated as long as the abbreviation is unique";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * or is an exact match for some defined option. If they have an";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * argument, it follows the option name in the same ARGV-element, separated";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * from the option name by a `=', or else the in next ARGV-element.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * When `getopt' finds a long-named option, it returns 0 if that option's";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * `flag' field is nonzero, the value of the option's `val' field";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * if the `flag' field is zero.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * The elements of ARGV aren't really const, because we permute them.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * But we pretend they're const in the prototype to be compatible";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * with other systems.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * LONGOPTS is a vector of `struct option' terminated by an";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * element containing a name which is zero.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * LONGIND returns the index in LONGOPT of the long-named option found.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * It is only valid when a long-named option has been found by the most";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * recent call.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * Return the option character from OPTS just read. Return -1 when there are";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * no more options. For unrecognized options, or options missing arguments,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * `custom_optopt' is set to the option letter, and '?' is returned.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * The OPTS string is a list of characters which are recognized option letters,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * optionally followed by colons, specifying that that letter takes an";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * argument, to be placed in `custom_optarg'.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * If a letter in OPTS is followed by two colons, its argument is optional.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * This behavior is specific to the GNU `getopt'.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " *";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * The argument `--' causes premature termination of argument scanning,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * explicitly telling `getopt' that there are no more options. If OPTS begins";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * with `--', then non-option arguments are treated as arguments to the option";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * '\\0'. This behavior is specific to the GNU `getopt'.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << "static int getopt_internal_r(int argc, char *const *argv, const char *optstring,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " const struct option *longopts, int *longind,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " struct custom_getopt_data *d)";
+ stream << "\n";
+ stream << indent_str;
+ stream << "{";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int ret, print_errors = d->custom_opterr;";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (optstring[0] == ':')";
+ stream << "\n";
+ stream << indent_str;
+ stream << " print_errors = 0;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (argc < 1)";
+ stream << "\n";
+ stream << indent_str;
+ stream << " return -1;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optarg = NULL;";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << " /* ";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * This is a big difference with GNU getopt, since optind == 0";
+ stream << "\n";
+ stream << indent_str;
+ stream << " * means initialization while here 1 means first call.";
+ stream << "\n";
+ stream << indent_str;
+ stream << " */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (d->custom_optind == 0 || !d->initialized) {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (d->custom_optind == 0)";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d->custom_optind = 1; /* Don't scan ARGV[0], the program name. */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " custom_getopt_initialize(d);";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (d->nextchar == NULL || *d->nextchar == '\\0') {";
+ stream << "\n";
+ stream << indent_str;
+ stream << " ret = shuffle_argv(argc, argv, longopts, d);";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (ret)";
+ stream << "\n";
+ stream << indent_str;
+ stream << " return ret;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " }";
+ stream << "\n";
+ stream << indent_str;
+ stream << " if (longopts && (argv[d->custom_optind][1] == '-' ))";
+ stream << "\n";
+ stream << indent_str;
+ stream << " return check_long_opt(argc, argv, optstring, longopts,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " longind, print_errors, d);";
+ stream << "\n";
+ stream << indent_str;
+ stream << " return check_short_opt(argc, argv, optstring, print_errors, d);";
+ stream << "\n";
+ stream << indent_str;
+ stream << "}";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << "static int custom_getopt_internal(int argc, char *const *argv, const char *optstring,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " const struct option *longopts, int *longind)";
+ stream << "\n";
+ stream << indent_str;
+ stream << "{";
+ stream << "\n";
+ stream << indent_str;
+ stream << " int result;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " /* Keep a global copy of all internal members of d */";
+ stream << "\n";
+ stream << indent_str;
+ stream << " static struct custom_getopt_data d;";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << " d.custom_optind = custom_optind;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " d.custom_opterr = custom_opterr;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " result = getopt_internal_r(argc, argv, optstring, longopts,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " longind, &d);";
+ stream << "\n";
+ stream << indent_str;
+ stream << " custom_optind = d.custom_optind;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " custom_optarg = d.custom_optarg;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " custom_optopt = d.custom_optopt;";
+ stream << "\n";
+ stream << indent_str;
+ stream << " return result;";
+ stream << "\n";
+ stream << indent_str;
+ stream << "}";
+ stream << "\n";
+ stream << indent_str;
+ stream << "\n";
+ stream << indent_str;
+ stream << "static int custom_getopt_long (int argc, char *const *argv, const char *options,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " const struct option *long_options, int *opt_index)";
+ stream << "\n";
+ stream << indent_str;
+ stream << "{";
+ stream << "\n";
+ stream << indent_str;
+ stream << " return custom_getopt_internal(argc, argv, options, long_options,";
+ stream << "\n";
+ stream << indent_str;
+ stream << " opt_index);";
+ stream << "\n";
+ stream << indent_str;
+ stream << "}";
+ stream << "\n";
+ stream << indent_str;
+}
git://git.creatis.insa-lyon.fr / clitk.git / blobdiff