]> Creatis software - clitk.git/blob - cmake/gengetopt/skels/custom_getopt_gen.cc
Adapt CMakeLists to include it from other projects
[clitk.git] / cmake / gengetopt / skels / custom_getopt_gen.cc
1 /*
2  * File automatically generated by
3  * gengen 1.4.1 by Lorenzo Bettini 
4  * http://www.gnu.org/software/gengen
5  */
6
7 #include "custom_getopt_gen.h"
8
9 void
10 custom_getopt_gen_gen_class::generate_custom_getopt_gen(ostream &stream, unsigned int indent)
11 {
12   string indent_str (indent, ' ');
13   indent = 0;
14
15   stream << "/*";
16   stream << "\n";
17   stream << indent_str;
18   stream << " * Extracted from the glibc source tree, version 2.3.6";
19   stream << "\n";
20   stream << indent_str;
21   stream << " *";
22   stream << "\n";
23   stream << indent_str;
24   stream << " * Licensed under the GPL as per the whole glibc source tree.";
25   stream << "\n";
26   stream << indent_str;
27   stream << " *";
28   stream << "\n";
29   stream << indent_str;
30   stream << " * This file was modified so that getopt_long can be called";
31   stream << "\n";
32   stream << indent_str;
33   stream << " * many times without risking previous memory to be spoiled.";
34   stream << "\n";
35   stream << indent_str;
36   stream << " *";
37   stream << "\n";
38   stream << indent_str;
39   stream << " * Modified by Andre Noll and Lorenzo Bettini for use in";
40   stream << "\n";
41   stream << indent_str;
42   stream << " * GNU gengetopt generated files.";
43   stream << "\n";
44   stream << indent_str;
45   stream << " *";
46   stream << "\n";
47   stream << indent_str;
48   stream << " */";
49   stream << "\n";
50   stream << indent_str;
51   stream << "\n";
52   stream << indent_str;
53   stream << "/* ";
54   stream << "\n";
55   stream << indent_str;
56   stream << " * we must include anything we need since this file is not thought to be";
57   stream << "\n";
58   stream << indent_str;
59   stream << " * inserted in a file already using getopt.h";
60   stream << "\n";
61   stream << indent_str;
62   stream << " *";
63   stream << "\n";
64   stream << indent_str;
65   stream << " * Lorenzo";
66   stream << "\n";
67   stream << indent_str;
68   stream << " */";
69   stream << "\n";
70   stream << indent_str;
71   stream << "\n";
72   stream << indent_str;
73   stream << "struct option";
74   stream << "\n";
75   stream << indent_str;
76   stream << "{";
77   stream << "\n";
78   stream << indent_str;
79   stream << "  const char *name;";
80   stream << "\n";
81   stream << indent_str;
82   stream << "  /* has_arg can't be an enum because some compilers complain about";
83   stream << "\n";
84   stream << indent_str;
85   stream << "     type mismatches in all the code that assumes it is an int.  */";
86   stream << "\n";
87   stream << indent_str;
88   stream << "  int has_arg;";
89   stream << "\n";
90   stream << indent_str;
91   stream << "  int *flag;";
92   stream << "\n";
93   stream << indent_str;
94   stream << "  int val;";
95   stream << "\n";
96   stream << indent_str;
97   stream << "};";
98   stream << "\n";
99   stream << indent_str;
100   stream << "\n";
101   stream << indent_str;
102   stream << "/* This version of `getopt' appears to the caller like standard Unix `getopt'";
103   stream << "\n";
104   stream << indent_str;
105   stream << "   but it behaves differently for the user, since it allows the user";
106   stream << "\n";
107   stream << indent_str;
108   stream << "   to intersperse the options with the other arguments.";
109   stream << "\n";
110   stream << indent_str;
111   stream << "\n";
112   stream << indent_str;
113   stream << "   As `getopt' works, it permutes the elements of ARGV so that,";
114   stream << "\n";
115   stream << indent_str;
116   stream << "   when it is done, all the options precede everything else.  Thus";
117   stream << "\n";
118   stream << indent_str;
119   stream << "   all application programs are extended to handle flexible argument order.";
120   stream << "\n";
121   stream << indent_str;
122   stream << "*/";
123   stream << "\n";
124   stream << indent_str;
125   stream << "/*";
126   stream << "\n";
127   stream << indent_str;
128   stream << "   If the field `flag' is not NULL, it points to a variable that is set";
129   stream << "\n";
130   stream << indent_str;
131   stream << "   to the value given in the field `val' when the option is found, but";
132   stream << "\n";
133   stream << indent_str;
134   stream << "   left unchanged if the option is not found.";
135   stream << "\n";
136   stream << indent_str;
137   stream << "\n";
138   stream << indent_str;
139   stream << "   To have a long-named option do something other than set an `int' to";
140   stream << "\n";
141   stream << indent_str;
142   stream << "   a compiled-in constant, such as set a value from `custom_optarg', set the";
143   stream << "\n";
144   stream << indent_str;
145   stream << "   option's `flag' field to zero and its `val' field to a nonzero";
146   stream << "\n";
147   stream << indent_str;
148   stream << "   value (the equivalent single-letter option character, if there is";
149   stream << "\n";
150   stream << indent_str;
151   stream << "   one).  For long options that have a zero `flag' field, `getopt'";
152   stream << "\n";
153   stream << indent_str;
154   stream << "   returns the contents of the `val' field.  */";
155   stream << "\n";
156   stream << indent_str;
157   stream << "\n";
158   stream << indent_str;
159   stream << "/* Names for the values of the `has_arg' field of `struct option'.  */";
160   stream << "\n";
161   stream << indent_str;
162   stream << "#ifndef no_argument";
163   stream << "\n";
164   stream << indent_str;
165   stream << "#define no_argument                0";
166   stream << "\n";
167   stream << indent_str;
168   stream << "#endif";
169   stream << "\n";
170   stream << indent_str;
171   stream << "\n";
172   stream << indent_str;
173   stream << "#ifndef required_argument";
174   stream << "\n";
175   stream << indent_str;
176   stream << "#define required_argument  1";
177   stream << "\n";
178   stream << indent_str;
179   stream << "#endif";
180   stream << "\n";
181   stream << indent_str;
182   stream << "\n";
183   stream << indent_str;
184   stream << "#ifndef optional_argument";
185   stream << "\n";
186   stream << indent_str;
187   stream << "#define optional_argument  2";
188   stream << "\n";
189   stream << indent_str;
190   stream << "#endif";
191   stream << "\n";
192   stream << indent_str;
193   stream << "\n";
194   stream << indent_str;
195   stream << "struct custom_getopt_data {";
196   stream << "\n";
197   stream << indent_str;
198   stream << "   /*";
199   stream << "\n";
200   stream << indent_str;
201   stream << "    * These have exactly the same meaning as the corresponding global variables,";
202   stream << "\n";
203   stream << indent_str;
204   stream << "    * except that they are used for the reentrant versions of getopt.";
205   stream << "\n";
206   stream << indent_str;
207   stream << "    */";
208   stream << "\n";
209   stream << indent_str;
210   stream << "   int custom_optind;";
211   stream << "\n";
212   stream << indent_str;
213   stream << "   int custom_opterr;";
214   stream << "\n";
215   stream << indent_str;
216   stream << "   int custom_optopt;";
217   stream << "\n";
218   stream << indent_str;
219   stream << "   char *custom_optarg;";
220   stream << "\n";
221   stream << indent_str;
222   stream << "\n";
223   stream << indent_str;
224   stream << "   /* True if the internal members have been initialized.  */";
225   stream << "\n";
226   stream << indent_str;
227   stream << "   int initialized;";
228   stream << "\n";
229   stream << indent_str;
230   stream << "\n";
231   stream << indent_str;
232   stream << "   /*";
233   stream << "\n";
234   stream << indent_str;
235   stream << "    * The next char to be scanned in the option-element in which the last option";
236   stream << "\n";
237   stream << indent_str;
238   stream << "    * character we returned was found.  This allows us to pick up the scan where";
239   stream << "\n";
240   stream << indent_str;
241   stream << "    * we left off.  If this is zero, or a null string, it means resume the scan by";
242   stream << "\n";
243   stream << indent_str;
244   stream << "    * advancing to the next ARGV-element.";
245   stream << "\n";
246   stream << indent_str;
247   stream << "    */";
248   stream << "\n";
249   stream << indent_str;
250   stream << "   char *nextchar;";
251   stream << "\n";
252   stream << indent_str;
253   stream << "\n";
254   stream << indent_str;
255   stream << "   /*";
256   stream << "\n";
257   stream << indent_str;
258   stream << "    * Describe the part of ARGV that contains non-options that have been skipped.";
259   stream << "\n";
260   stream << indent_str;
261   stream << "    * `first_nonopt' is the index in ARGV of the first of them; `last_nonopt' is";
262   stream << "\n";
263   stream << indent_str;
264   stream << "    * the index after the last of them.";
265   stream << "\n";
266   stream << indent_str;
267   stream << "    */";
268   stream << "\n";
269   stream << indent_str;
270   stream << "   int first_nonopt;";
271   stream << "\n";
272   stream << indent_str;
273   stream << "   int last_nonopt;";
274   stream << "\n";
275   stream << indent_str;
276   stream << "};";
277   stream << "\n";
278   stream << indent_str;
279   stream << "\n";
280   stream << indent_str;
281   stream << "/*";
282   stream << "\n";
283   stream << indent_str;
284   stream << " * the variables optarg, optind, opterr and optopt are renamed with";
285   stream << "\n";
286   stream << indent_str;
287   stream << " * the custom_ prefix so that they don't interfere with getopt ones.";
288   stream << "\n";
289   stream << indent_str;
290   stream << " *";
291   stream << "\n";
292   stream << indent_str;
293   stream << " * Moreover they're static so they are visible only from within the";
294   stream << "\n";
295   stream << indent_str;
296   stream << " * file where this very file will be included.";
297   stream << "\n";
298   stream << indent_str;
299   stream << " */";
300   stream << "\n";
301   stream << indent_str;
302   stream << "\n";
303   stream << indent_str;
304   stream << "/*";
305   stream << "\n";
306   stream << indent_str;
307   stream << " * For communication from `custom_getopt' to the caller.  When `custom_getopt' finds an";
308   stream << "\n";
309   stream << indent_str;
310   stream << " * option that takes an argument, the argument value is returned here.";
311   stream << "\n";
312   stream << indent_str;
313   stream << " */";
314   stream << "\n";
315   stream << indent_str;
316   stream << "static char *custom_optarg;";
317   stream << "\n";
318   stream << indent_str;
319   stream << "\n";
320   stream << indent_str;
321   stream << "/*";
322   stream << "\n";
323   stream << indent_str;
324   stream << " * Index in ARGV of the next element to be scanned.  This is used for";
325   stream << "\n";
326   stream << indent_str;
327   stream << " * communication to and from the caller and for communication between";
328   stream << "\n";
329   stream << indent_str;
330   stream << " * successive calls to `custom_getopt'.";
331   stream << "\n";
332   stream << indent_str;
333   stream << " *";
334   stream << "\n";
335   stream << indent_str;
336   stream << " * On entry to `custom_getopt', 1 means this is the first call; initialize.";
337   stream << "\n";
338   stream << indent_str;
339   stream << " *";
340   stream << "\n";
341   stream << indent_str;
342   stream << " * When `custom_getopt' returns -1, this is the index of the first of the non-option";
343   stream << "\n";
344   stream << indent_str;
345   stream << " * elements that the caller should itself scan.";
346   stream << "\n";
347   stream << indent_str;
348   stream << " *";
349   stream << "\n";
350   stream << indent_str;
351   stream << " * Otherwise, `custom_optind' communicates from one call to the next how much of ARGV";
352   stream << "\n";
353   stream << indent_str;
354   stream << " * has been scanned so far.";
355   stream << "\n";
356   stream << indent_str;
357   stream << " *";
358   stream << "\n";
359   stream << indent_str;
360   stream << " * 1003.2 says this must be 1 before any call.";
361   stream << "\n";
362   stream << indent_str;
363   stream << " */";
364   stream << "\n";
365   stream << indent_str;
366   stream << "static int custom_optind = 1;";
367   stream << "\n";
368   stream << indent_str;
369   stream << "\n";
370   stream << indent_str;
371   stream << "/*";
372   stream << "\n";
373   stream << indent_str;
374   stream << " * Callers store zero here to inhibit the error message for unrecognized";
375   stream << "\n";
376   stream << indent_str;
377   stream << " * options.";
378   stream << "\n";
379   stream << indent_str;
380   stream << " */";
381   stream << "\n";
382   stream << indent_str;
383   stream << "static int custom_opterr = 1;";
384   stream << "\n";
385   stream << indent_str;
386   stream << "\n";
387   stream << indent_str;
388   stream << "/*";
389   stream << "\n";
390   stream << indent_str;
391   stream << " * Set to an option character which was unrecognized.  This must be initialized";
392   stream << "\n";
393   stream << indent_str;
394   stream << " * on some systems to avoid linking in the system's own getopt implementation.";
395   stream << "\n";
396   stream << indent_str;
397   stream << " */";
398   stream << "\n";
399   stream << indent_str;
400   stream << "static int custom_optopt = '?';";
401   stream << "\n";
402   stream << indent_str;
403   stream << "\n";
404   stream << indent_str;
405   stream << "/*";
406   stream << "\n";
407   stream << indent_str;
408   stream << " * Exchange two adjacent subsequences of ARGV.  One subsequence is elements";
409   stream << "\n";
410   stream << indent_str;
411   stream << " * [first_nonopt,last_nonopt) which contains all the non-options that have been";
412   stream << "\n";
413   stream << indent_str;
414   stream << " * skipped so far.  The other is elements [last_nonopt,custom_optind), which contains";
415   stream << "\n";
416   stream << indent_str;
417   stream << " * all the options processed since those non-options were skipped.";
418   stream << "\n";
419   stream << indent_str;
420   stream << " * `first_nonopt' and `last_nonopt' are relocated so that they describe the new";
421   stream << "\n";
422   stream << indent_str;
423   stream << " * indices of the non-options in ARGV after they are moved.";
424   stream << "\n";
425   stream << indent_str;
426   stream << " */";
427   stream << "\n";
428   stream << indent_str;
429   stream << "static void exchange(char **argv, struct custom_getopt_data *d)";
430   stream << "\n";
431   stream << indent_str;
432   stream << "{";
433   stream << "\n";
434   stream << indent_str;
435   stream << "   int bottom = d->first_nonopt;";
436   stream << "\n";
437   stream << indent_str;
438   stream << "   int middle = d->last_nonopt;";
439   stream << "\n";
440   stream << indent_str;
441   stream << "   int top = d->custom_optind;";
442   stream << "\n";
443   stream << indent_str;
444   stream << "   char *tem;";
445   stream << "\n";
446   stream << indent_str;
447   stream << "\n";
448   stream << indent_str;
449   stream << "   /*";
450   stream << "\n";
451   stream << indent_str;
452   stream << "    * Exchange the shorter segment with the far end of the longer segment.";
453   stream << "\n";
454   stream << indent_str;
455   stream << "    * That puts the shorter segment into the right place.  It leaves the";
456   stream << "\n";
457   stream << indent_str;
458   stream << "    * longer segment in the right place overall, but it consists of two";
459   stream << "\n";
460   stream << indent_str;
461   stream << "    * parts that need to be swapped next.";
462   stream << "\n";
463   stream << indent_str;
464   stream << "    */";
465   stream << "\n";
466   stream << indent_str;
467   stream << "   while (top > middle && middle > bottom) {";
468   stream << "\n";
469   stream << indent_str;
470   stream << "           if (top - middle > middle - bottom) {";
471   stream << "\n";
472   stream << indent_str;
473   stream << "                   /* Bottom segment is the short one.  */";
474   stream << "\n";
475   stream << indent_str;
476   stream << "                   int len = middle - bottom;";
477   stream << "\n";
478   stream << indent_str;
479   stream << "                   int i;";
480   stream << "\n";
481   stream << indent_str;
482   stream << "\n";
483   stream << indent_str;
484   stream << "                   /* Swap it with the top part of the top segment.  */";
485   stream << "\n";
486   stream << indent_str;
487   stream << "                   for (i = 0; i < len; i++) {";
488   stream << "\n";
489   stream << indent_str;
490   stream << "                           tem = argv[bottom + i];";
491   stream << "\n";
492   stream << indent_str;
493   stream << "                           argv[bottom + i] =";
494   stream << "\n";
495   stream << indent_str;
496   stream << "                                   argv[top - (middle - bottom) + i];";
497   stream << "\n";
498   stream << indent_str;
499   stream << "                           argv[top - (middle - bottom) + i] = tem;";
500   stream << "\n";
501   stream << indent_str;
502   stream << "                   }";
503   stream << "\n";
504   stream << indent_str;
505   stream << "                   /* Exclude the moved bottom segment from further swapping.  */";
506   stream << "\n";
507   stream << indent_str;
508   stream << "                   top -= len;";
509   stream << "\n";
510   stream << indent_str;
511   stream << "           } else {";
512   stream << "\n";
513   stream << indent_str;
514   stream << "                   /* Top segment is the short one.  */";
515   stream << "\n";
516   stream << indent_str;
517   stream << "                   int len = top - middle;";
518   stream << "\n";
519   stream << indent_str;
520   stream << "                   int i;";
521   stream << "\n";
522   stream << indent_str;
523   stream << "\n";
524   stream << indent_str;
525   stream << "                   /* Swap it with the bottom part of the bottom segment.  */";
526   stream << "\n";
527   stream << indent_str;
528   stream << "                   for (i = 0; i < len; i++) {";
529   stream << "\n";
530   stream << indent_str;
531   stream << "                           tem = argv[bottom + i];";
532   stream << "\n";
533   stream << indent_str;
534   stream << "                           argv[bottom + i] = argv[middle + i];";
535   stream << "\n";
536   stream << indent_str;
537   stream << "                           argv[middle + i] = tem;";
538   stream << "\n";
539   stream << indent_str;
540   stream << "                   }";
541   stream << "\n";
542   stream << indent_str;
543   stream << "                   /* Exclude the moved top segment from further swapping.  */";
544   stream << "\n";
545   stream << indent_str;
546   stream << "                   bottom += len;";
547   stream << "\n";
548   stream << indent_str;
549   stream << "           }";
550   stream << "\n";
551   stream << indent_str;
552   stream << "   }";
553   stream << "\n";
554   stream << indent_str;
555   stream << "   /* Update records for the slots the non-options now occupy.  */";
556   stream << "\n";
557   stream << indent_str;
558   stream << "   d->first_nonopt += (d->custom_optind - d->last_nonopt);";
559   stream << "\n";
560   stream << indent_str;
561   stream << "   d->last_nonopt = d->custom_optind;";
562   stream << "\n";
563   stream << indent_str;
564   stream << "}";
565   stream << "\n";
566   stream << indent_str;
567   stream << "\n";
568   stream << indent_str;
569   stream << "/* Initialize the internal data when the first call is made.  */";
570   stream << "\n";
571   stream << indent_str;
572   stream << "static void custom_getopt_initialize(struct custom_getopt_data *d)";
573   stream << "\n";
574   stream << indent_str;
575   stream << "{";
576   stream << "\n";
577   stream << indent_str;
578   stream << "   /*";
579   stream << "\n";
580   stream << indent_str;
581   stream << "    * Start processing options with ARGV-element 1 (since ARGV-element 0";
582   stream << "\n";
583   stream << indent_str;
584   stream << "    * is the program name); the sequence of previously skipped non-option";
585   stream << "\n";
586   stream << indent_str;
587   stream << "    * ARGV-elements is empty.";
588   stream << "\n";
589   stream << indent_str;
590   stream << "    */";
591   stream << "\n";
592   stream << indent_str;
593   stream << "   d->first_nonopt = d->last_nonopt = d->custom_optind;";
594   stream << "\n";
595   stream << indent_str;
596   stream << "   d->nextchar = NULL;";
597   stream << "\n";
598   stream << indent_str;
599   stream << "   d->initialized = 1;";
600   stream << "\n";
601   stream << indent_str;
602   stream << "}";
603   stream << "\n";
604   stream << indent_str;
605   stream << "\n";
606   stream << indent_str;
607   stream << "#define NONOPTION_P (argv[d->custom_optind][0] != '-' || argv[d->custom_optind][1] == '\\0')";
608   stream << "\n";
609   stream << indent_str;
610   stream << "\n";
611   stream << indent_str;
612   stream << "/* return: zero: continue, nonzero: return given value to user */";
613   stream << "\n";
614   stream << indent_str;
615   stream << "static int shuffle_argv(int argc, char *const *argv,const struct option *longopts,";
616   stream << "\n";
617   stream << indent_str;
618   stream << "   struct custom_getopt_data *d)";
619   stream << "\n";
620   stream << indent_str;
621   stream << "{";
622   stream << "\n";
623   stream << indent_str;
624   stream << "   /*";
625   stream << "\n";
626   stream << indent_str;
627   stream << "    * Give FIRST_NONOPT & LAST_NONOPT rational values if CUSTOM_OPTIND has been";
628   stream << "\n";
629   stream << indent_str;
630   stream << "    * moved back by the user (who may also have changed the arguments).";
631   stream << "\n";
632   stream << indent_str;
633   stream << "    */";
634   stream << "\n";
635   stream << indent_str;
636   stream << "   if (d->last_nonopt > d->custom_optind)";
637   stream << "\n";
638   stream << indent_str;
639   stream << "           d->last_nonopt = d->custom_optind;";
640   stream << "\n";
641   stream << indent_str;
642   stream << "   if (d->first_nonopt > d->custom_optind)";
643   stream << "\n";
644   stream << indent_str;
645   stream << "           d->first_nonopt = d->custom_optind;";
646   stream << "\n";
647   stream << indent_str;
648   stream << "   /*";
649   stream << "\n";
650   stream << indent_str;
651   stream << "    * If we have just processed some options following some";
652   stream << "\n";
653   stream << indent_str;
654   stream << "    * non-options, exchange them so that the options come first.";
655   stream << "\n";
656   stream << indent_str;
657   stream << "    */";
658   stream << "\n";
659   stream << indent_str;
660   stream << "   if (d->first_nonopt != d->last_nonopt &&";
661   stream << "\n";
662   stream << indent_str;
663   stream << "                   d->last_nonopt != d->custom_optind)";
664   stream << "\n";
665   stream << indent_str;
666   stream << "           exchange((char **) argv, d);";
667   stream << "\n";
668   stream << indent_str;
669   stream << "   else if (d->last_nonopt != d->custom_optind)";
670   stream << "\n";
671   stream << indent_str;
672   stream << "           d->first_nonopt = d->custom_optind;";
673   stream << "\n";
674   stream << indent_str;
675   stream << "   /*";
676   stream << "\n";
677   stream << indent_str;
678   stream << "    * Skip any additional non-options and extend the range of";
679   stream << "\n";
680   stream << indent_str;
681   stream << "    * non-options previously skipped.";
682   stream << "\n";
683   stream << indent_str;
684   stream << "    */";
685   stream << "\n";
686   stream << indent_str;
687   stream << "   while (d->custom_optind < argc && NONOPTION_P)";
688   stream << "\n";
689   stream << indent_str;
690   stream << "           d->custom_optind++;";
691   stream << "\n";
692   stream << indent_str;
693   stream << "   d->last_nonopt = d->custom_optind;";
694   stream << "\n";
695   stream << indent_str;
696   stream << "   /*";
697   stream << "\n";
698   stream << indent_str;
699   stream << "    * The special ARGV-element `--' means premature end of options.  Skip";
700   stream << "\n";
701   stream << indent_str;
702   stream << "    * it like a null option, then exchange with previous non-options as if";
703   stream << "\n";
704   stream << indent_str;
705   stream << "    * it were an option, then skip everything else like a non-option.";
706   stream << "\n";
707   stream << indent_str;
708   stream << "    */";
709   stream << "\n";
710   stream << indent_str;
711   stream << "   if (d->custom_optind != argc && !strcmp(argv[d->custom_optind], \"--\")) {";
712   stream << "\n";
713   stream << indent_str;
714   stream << "           d->custom_optind++;";
715   stream << "\n";
716   stream << indent_str;
717   stream << "           if (d->first_nonopt != d->last_nonopt";
718   stream << "\n";
719   stream << indent_str;
720   stream << "                           && d->last_nonopt != d->custom_optind)";
721   stream << "\n";
722   stream << indent_str;
723   stream << "                   exchange((char **) argv, d);";
724   stream << "\n";
725   stream << indent_str;
726   stream << "           else if (d->first_nonopt == d->last_nonopt)";
727   stream << "\n";
728   stream << indent_str;
729   stream << "                   d->first_nonopt = d->custom_optind;";
730   stream << "\n";
731   stream << indent_str;
732   stream << "           d->last_nonopt = argc;";
733   stream << "\n";
734   stream << indent_str;
735   stream << "           d->custom_optind = argc;";
736   stream << "\n";
737   stream << indent_str;
738   stream << "   }";
739   stream << "\n";
740   stream << indent_str;
741   stream << "   /*";
742   stream << "\n";
743   stream << indent_str;
744   stream << "    * If we have done all the ARGV-elements, stop the scan and back over";
745   stream << "\n";
746   stream << indent_str;
747   stream << "    * any non-options that we skipped and permuted.";
748   stream << "\n";
749   stream << indent_str;
750   stream << "    */";
751   stream << "\n";
752   stream << indent_str;
753   stream << "   if (d->custom_optind == argc) {";
754   stream << "\n";
755   stream << indent_str;
756   stream << "           /*";
757   stream << "\n";
758   stream << indent_str;
759   stream << "            * Set the next-arg-index to point at the non-options that we";
760   stream << "\n";
761   stream << indent_str;
762   stream << "            * previously skipped, so the caller will digest them.";
763   stream << "\n";
764   stream << indent_str;
765   stream << "            */";
766   stream << "\n";
767   stream << indent_str;
768   stream << "           if (d->first_nonopt != d->last_nonopt)";
769   stream << "\n";
770   stream << indent_str;
771   stream << "                   d->custom_optind = d->first_nonopt;";
772   stream << "\n";
773   stream << indent_str;
774   stream << "           return -1;";
775   stream << "\n";
776   stream << indent_str;
777   stream << "   }";
778   stream << "\n";
779   stream << indent_str;
780   stream << "   /*";
781   stream << "\n";
782   stream << indent_str;
783   stream << "    * If we have come to a non-option and did not permute it, either stop";
784   stream << "\n";
785   stream << indent_str;
786   stream << "    * the scan or describe it to the caller and pass it by.";
787   stream << "\n";
788   stream << indent_str;
789   stream << "    */";
790   stream << "\n";
791   stream << indent_str;
792   stream << "   if (NONOPTION_P) {";
793   stream << "\n";
794   stream << indent_str;
795   stream << "           d->custom_optarg = argv[d->custom_optind++];";
796   stream << "\n";
797   stream << indent_str;
798   stream << "           return 1;";
799   stream << "\n";
800   stream << indent_str;
801   stream << "   }";
802   stream << "\n";
803   stream << indent_str;
804   stream << "   /*";
805   stream << "\n";
806   stream << indent_str;
807   stream << "    * We have found another option-ARGV-element. Skip the initial";
808   stream << "\n";
809   stream << indent_str;
810   stream << "    * punctuation.";
811   stream << "\n";
812   stream << indent_str;
813   stream << "    */";
814   stream << "\n";
815   stream << indent_str;
816   stream << "   d->nextchar = (argv[d->custom_optind] + 1 + (longopts != NULL && argv[d->custom_optind][1] == '-'));";
817   stream << "\n";
818   stream << indent_str;
819   stream << "   return 0;";
820   stream << "\n";
821   stream << indent_str;
822   stream << "}";
823   stream << "\n";
824   stream << indent_str;
825   stream << "\n";
826   stream << indent_str;
827   stream << "/*";
828   stream << "\n";
829   stream << indent_str;
830   stream << " * Check whether the ARGV-element is a long option.";
831   stream << "\n";
832   stream << indent_str;
833   stream << " *";
834   stream << "\n";
835   stream << indent_str;
836   stream << " * If there's a long option \"fubar\" and the ARGV-element is \"-fu\", consider";
837   stream << "\n";
838   stream << indent_str;
839   stream << " * that an abbreviation of the long option, just like \"--fu\", and not \"-f\" with";
840   stream << "\n";
841   stream << indent_str;
842   stream << " * arg \"u\".";
843   stream << "\n";
844   stream << indent_str;
845   stream << " *";
846   stream << "\n";
847   stream << indent_str;
848   stream << " * This distinction seems to be the most useful approach.";
849   stream << "\n";
850   stream << indent_str;
851   stream << " *";
852   stream << "\n";
853   stream << indent_str;
854   stream << " */";
855   stream << "\n";
856   stream << indent_str;
857   stream << "static int check_long_opt(int argc, char *const *argv, const char *optstring,";
858   stream << "\n";
859   stream << indent_str;
860   stream << "           const struct option *longopts, int *longind,";
861   stream << "\n";
862   stream << indent_str;
863   stream << "           int print_errors, struct custom_getopt_data *d)";
864   stream << "\n";
865   stream << indent_str;
866   stream << "{";
867   stream << "\n";
868   stream << indent_str;
869   stream << "   char *nameend;";
870   stream << "\n";
871   stream << indent_str;
872   stream << "   const struct option *p;";
873   stream << "\n";
874   stream << indent_str;
875   stream << "   const struct option *pfound = NULL;";
876   stream << "\n";
877   stream << indent_str;
878   stream << "   int exact = 0;";
879   stream << "\n";
880   stream << indent_str;
881   stream << "   int ambig = 0;";
882   stream << "\n";
883   stream << indent_str;
884   stream << "   int indfound = -1;";
885   stream << "\n";
886   stream << indent_str;
887   stream << "   int option_index;";
888   stream << "\n";
889   stream << indent_str;
890   stream << "\n";
891   stream << indent_str;
892   stream << "   for (nameend = d->nextchar; *nameend && *nameend != '='; nameend++)";
893   stream << "\n";
894   stream << indent_str;
895   stream << "           /* Do nothing.  */ ;";
896   stream << "\n";
897   stream << indent_str;
898   stream << "\n";
899   stream << indent_str;
900   stream << "   /* Test all long options for either exact match or abbreviated matches */";
901   stream << "\n";
902   stream << indent_str;
903   stream << "   for (p = longopts, option_index = 0; p->name; p++, option_index++)";
904   stream << "\n";
905   stream << indent_str;
906   stream << "           if (!strncmp(p->name, d->nextchar, nameend - d->nextchar)) {";
907   stream << "\n";
908   stream << indent_str;
909   stream << "                   if ((unsigned int) (nameend - d->nextchar)";
910   stream << "\n";
911   stream << indent_str;
912   stream << "                                   == (unsigned int) strlen(p->name)) {";
913   stream << "\n";
914   stream << indent_str;
915   stream << "                           /* Exact match found.  */";
916   stream << "\n";
917   stream << indent_str;
918   stream << "                           pfound = p;";
919   stream << "\n";
920   stream << indent_str;
921   stream << "                           indfound = option_index;";
922   stream << "\n";
923   stream << indent_str;
924   stream << "                           exact = 1;";
925   stream << "\n";
926   stream << indent_str;
927   stream << "                           break;";
928   stream << "\n";
929   stream << indent_str;
930   stream << "                   } else if (pfound == NULL) {";
931   stream << "\n";
932   stream << indent_str;
933   stream << "                           /* First nonexact match found.  */";
934   stream << "\n";
935   stream << indent_str;
936   stream << "                           pfound = p;";
937   stream << "\n";
938   stream << indent_str;
939   stream << "                           indfound = option_index;";
940   stream << "\n";
941   stream << indent_str;
942   stream << "                   } else if (pfound->has_arg != p->has_arg";
943   stream << "\n";
944   stream << indent_str;
945   stream << "                                   || pfound->flag != p->flag";
946   stream << "\n";
947   stream << indent_str;
948   stream << "                                   || pfound->val != p->val)";
949   stream << "\n";
950   stream << indent_str;
951   stream << "                           /* Second or later nonexact match found.  */";
952   stream << "\n";
953   stream << indent_str;
954   stream << "                           ambig = 1;";
955   stream << "\n";
956   stream << indent_str;
957   stream << "           }";
958   stream << "\n";
959   stream << indent_str;
960   stream << "   if (ambig && !exact) {";
961   stream << "\n";
962   stream << indent_str;
963   stream << "           if (print_errors) {";
964   stream << "\n";
965   stream << indent_str;
966   stream << "                   fprintf(stderr,";
967   stream << "\n";
968   stream << indent_str;
969   stream << "                           \"%s: option `%s' is ambiguous\\n\",";
970   stream << "\n";
971   stream << indent_str;
972   stream << "                           argv[0], argv[d->custom_optind]);";
973   stream << "\n";
974   stream << indent_str;
975   stream << "           }";
976   stream << "\n";
977   stream << indent_str;
978   stream << "           d->nextchar += strlen(d->nextchar);";
979   stream << "\n";
980   stream << indent_str;
981   stream << "           d->custom_optind++;";
982   stream << "\n";
983   stream << indent_str;
984   stream << "           d->custom_optopt = 0;";
985   stream << "\n";
986   stream << indent_str;
987   stream << "           return '?';";
988   stream << "\n";
989   stream << indent_str;
990   stream << "   }";
991   stream << "\n";
992   stream << indent_str;
993   stream << "   if (pfound) {";
994   stream << "\n";
995   stream << indent_str;
996   stream << "           option_index = indfound;";
997   stream << "\n";
998   stream << indent_str;
999   stream << "           d->custom_optind++;";
1000   stream << "\n";
1001   stream << indent_str;
1002   stream << "           if (*nameend) {";
1003   stream << "\n";
1004   stream << indent_str;
1005   stream << "                   if (pfound->has_arg != no_argument)";
1006   stream << "\n";
1007   stream << indent_str;
1008   stream << "                           d->custom_optarg = nameend + 1;";
1009   stream << "\n";
1010   stream << indent_str;
1011   stream << "                   else {";
1012   stream << "\n";
1013   stream << indent_str;
1014   stream << "                           if (print_errors) {";
1015   stream << "\n";
1016   stream << indent_str;
1017   stream << "                                   if (argv[d->custom_optind - 1][1] == '-') {";
1018   stream << "\n";
1019   stream << indent_str;
1020   stream << "                                           /* --option */";
1021   stream << "\n";
1022   stream << indent_str;
1023   stream << "                                           fprintf(stderr, \"%s: option `--%s' doesn't allow an argument\\n\",";
1024   stream << "\n";
1025   stream << indent_str;
1026   stream << "                                                   argv[0], pfound->name);";
1027   stream << "\n";
1028   stream << indent_str;
1029   stream << "                                   } else {";
1030   stream << "\n";
1031   stream << indent_str;
1032   stream << "                                           /* +option or -option */";
1033   stream << "\n";
1034   stream << indent_str;
1035   stream << "                                           fprintf(stderr, \"%s: option `%c%s' doesn't allow an argument\\n\",";
1036   stream << "\n";
1037   stream << indent_str;
1038   stream << "                                                   argv[0], argv[d->custom_optind - 1][0], pfound->name);";
1039   stream << "\n";
1040   stream << indent_str;
1041   stream << "                                   }";
1042   stream << "\n";
1043   stream << indent_str;
1044   stream << "\n";
1045   stream << indent_str;
1046   stream << "                           }";
1047   stream << "\n";
1048   stream << indent_str;
1049   stream << "                           d->nextchar += strlen(d->nextchar);";
1050   stream << "\n";
1051   stream << indent_str;
1052   stream << "                           d->custom_optopt = pfound->val;";
1053   stream << "\n";
1054   stream << indent_str;
1055   stream << "                           return '?';";
1056   stream << "\n";
1057   stream << indent_str;
1058   stream << "                   }";
1059   stream << "\n";
1060   stream << indent_str;
1061   stream << "           } else if (pfound->has_arg == required_argument) {";
1062   stream << "\n";
1063   stream << indent_str;
1064   stream << "                   if (d->custom_optind < argc)";
1065   stream << "\n";
1066   stream << indent_str;
1067   stream << "                           d->custom_optarg = argv[d->custom_optind++];";
1068   stream << "\n";
1069   stream << indent_str;
1070   stream << "                   else {";
1071   stream << "\n";
1072   stream << indent_str;
1073   stream << "                           if (print_errors) {";
1074   stream << "\n";
1075   stream << indent_str;
1076   stream << "                                   fprintf(stderr,";
1077   stream << "\n";
1078   stream << indent_str;
1079   stream << "                                           \"%s: option `%s' requires an argument\\n\",";
1080   stream << "\n";
1081   stream << indent_str;
1082   stream << "                                           argv[0],";
1083   stream << "\n";
1084   stream << indent_str;
1085   stream << "                                           argv[d->custom_optind - 1]);";
1086   stream << "\n";
1087   stream << indent_str;
1088   stream << "                           }";
1089   stream << "\n";
1090   stream << indent_str;
1091   stream << "                           d->nextchar += strlen(d->nextchar);";
1092   stream << "\n";
1093   stream << indent_str;
1094   stream << "                           d->custom_optopt = pfound->val;";
1095   stream << "\n";
1096   stream << indent_str;
1097   stream << "                           return optstring[0] == ':' ? ':' : '?';";
1098   stream << "\n";
1099   stream << indent_str;
1100   stream << "                   }";
1101   stream << "\n";
1102   stream << indent_str;
1103   stream << "           }";
1104   stream << "\n";
1105   stream << indent_str;
1106   stream << "           d->nextchar += strlen(d->nextchar);";
1107   stream << "\n";
1108   stream << indent_str;
1109   stream << "           if (longind != NULL)";
1110   stream << "\n";
1111   stream << indent_str;
1112   stream << "                   *longind = option_index;";
1113   stream << "\n";
1114   stream << indent_str;
1115   stream << "           if (pfound->flag) {";
1116   stream << "\n";
1117   stream << indent_str;
1118   stream << "                   *(pfound->flag) = pfound->val;";
1119   stream << "\n";
1120   stream << indent_str;
1121   stream << "                   return 0;";
1122   stream << "\n";
1123   stream << indent_str;
1124   stream << "           }";
1125   stream << "\n";
1126   stream << indent_str;
1127   stream << "           return pfound->val;";
1128   stream << "\n";
1129   stream << indent_str;
1130   stream << "   }";
1131   stream << "\n";
1132   stream << indent_str;
1133   stream << "   /*";
1134   stream << "\n";
1135   stream << indent_str;
1136   stream << "    * Can't find it as a long option.  If this is not getopt_long_only, or";
1137   stream << "\n";
1138   stream << indent_str;
1139   stream << "    * the option starts with '--' or is not a valid short option, then";
1140   stream << "\n";
1141   stream << indent_str;
1142   stream << "    * it's an error.  Otherwise interpret it as a short option.";
1143   stream << "\n";
1144   stream << indent_str;
1145   stream << "    */";
1146   stream << "\n";
1147   stream << indent_str;
1148   stream << "   if (print_errors) {";
1149   stream << "\n";
1150   stream << indent_str;
1151   stream << "           if (argv[d->custom_optind][1] == '-') {";
1152   stream << "\n";
1153   stream << indent_str;
1154   stream << "                   /* --option */";
1155   stream << "\n";
1156   stream << indent_str;
1157   stream << "                   fprintf(stderr,";
1158   stream << "\n";
1159   stream << indent_str;
1160   stream << "                           \"%s: unrecognized option `--%s'\\n\",";
1161   stream << "\n";
1162   stream << indent_str;
1163   stream << "                           argv[0], d->nextchar);";
1164   stream << "\n";
1165   stream << indent_str;
1166   stream << "           } else {";
1167   stream << "\n";
1168   stream << indent_str;
1169   stream << "                   /* +option or -option */";
1170   stream << "\n";
1171   stream << indent_str;
1172   stream << "                   fprintf(stderr,";
1173   stream << "\n";
1174   stream << indent_str;
1175   stream << "                           \"%s: unrecognized option `%c%s'\\n\",";
1176   stream << "\n";
1177   stream << indent_str;
1178   stream << "                           argv[0], argv[d->custom_optind][0],";
1179   stream << "\n";
1180   stream << indent_str;
1181   stream << "                           d->nextchar);";
1182   stream << "\n";
1183   stream << indent_str;
1184   stream << "           }";
1185   stream << "\n";
1186   stream << indent_str;
1187   stream << "   }";
1188   stream << "\n";
1189   stream << indent_str;
1190   stream << "   d->nextchar = (char *) \"\";";
1191   stream << "\n";
1192   stream << indent_str;
1193   stream << "   d->custom_optind++;";
1194   stream << "\n";
1195   stream << indent_str;
1196   stream << "   d->custom_optopt = 0;";
1197   stream << "\n";
1198   stream << indent_str;
1199   stream << "   return '?';";
1200   stream << "\n";
1201   stream << indent_str;
1202   stream << "}";
1203   stream << "\n";
1204   stream << indent_str;
1205   stream << "\n";
1206   stream << indent_str;
1207   stream << "static int check_short_opt(int argc, char *const *argv, const char *optstring,";
1208   stream << "\n";
1209   stream << indent_str;
1210   stream << "           int print_errors, struct custom_getopt_data *d)";
1211   stream << "\n";
1212   stream << indent_str;
1213   stream << "{";
1214   stream << "\n";
1215   stream << indent_str;
1216   stream << "   char c = *d->nextchar++;";
1217   stream << "\n";
1218   stream << indent_str;
1219   stream << "   const char *temp = strchr(optstring, c);";
1220   stream << "\n";
1221   stream << indent_str;
1222   stream << "\n";
1223   stream << indent_str;
1224   stream << "   /* Increment `custom_optind' when we start to process its last character.  */";
1225   stream << "\n";
1226   stream << indent_str;
1227   stream << "   if (*d->nextchar == '\\0')";
1228   stream << "\n";
1229   stream << indent_str;
1230   stream << "           ++d->custom_optind;";
1231   stream << "\n";
1232   stream << indent_str;
1233   stream << "   if (!temp || c == ':') {";
1234   stream << "\n";
1235   stream << indent_str;
1236   stream << "           if (print_errors)";
1237   stream << "\n";
1238   stream << indent_str;
1239   stream << "                   fprintf(stderr, \"%s: invalid option -- %c\\n\", argv[0], c);";
1240   stream << "\n";
1241   stream << indent_str;
1242   stream << "\n";
1243   stream << indent_str;
1244   stream << "           d->custom_optopt = c;";
1245   stream << "\n";
1246   stream << indent_str;
1247   stream << "           return '?';";
1248   stream << "\n";
1249   stream << indent_str;
1250   stream << "   }";
1251   stream << "\n";
1252   stream << indent_str;
1253   stream << "   if (temp[1] == ':') {";
1254   stream << "\n";
1255   stream << indent_str;
1256   stream << "           if (temp[2] == ':') {";
1257   stream << "\n";
1258   stream << indent_str;
1259   stream << "                   /* This is an option that accepts an argument optionally.  */";
1260   stream << "\n";
1261   stream << indent_str;
1262   stream << "                   if (*d->nextchar != '\\0') {";
1263   stream << "\n";
1264   stream << indent_str;
1265   stream << "                           d->custom_optarg = d->nextchar;";
1266   stream << "\n";
1267   stream << indent_str;
1268   stream << "                           d->custom_optind++;";
1269   stream << "\n";
1270   stream << indent_str;
1271   stream << "                   } else";
1272   stream << "\n";
1273   stream << indent_str;
1274   stream << "                           d->custom_optarg = NULL;";
1275   stream << "\n";
1276   stream << indent_str;
1277   stream << "                   d->nextchar = NULL;";
1278   stream << "\n";
1279   stream << indent_str;
1280   stream << "           } else {";
1281   stream << "\n";
1282   stream << indent_str;
1283   stream << "                   /* This is an option that requires an argument.  */";
1284   stream << "\n";
1285   stream << indent_str;
1286   stream << "                   if (*d->nextchar != '\\0') {";
1287   stream << "\n";
1288   stream << indent_str;
1289   stream << "                           d->custom_optarg = d->nextchar;";
1290   stream << "\n";
1291   stream << indent_str;
1292   stream << "                           /*";
1293   stream << "\n";
1294   stream << indent_str;
1295   stream << "                            * If we end this ARGV-element by taking the";
1296   stream << "\n";
1297   stream << indent_str;
1298   stream << "                            * rest as an arg, we must advance to the next";
1299   stream << "\n";
1300   stream << indent_str;
1301   stream << "                            * element now.";
1302   stream << "\n";
1303   stream << indent_str;
1304   stream << "                            */";
1305   stream << "\n";
1306   stream << indent_str;
1307   stream << "                           d->custom_optind++;";
1308   stream << "\n";
1309   stream << indent_str;
1310   stream << "                   } else if (d->custom_optind == argc) {";
1311   stream << "\n";
1312   stream << indent_str;
1313   stream << "                           if (print_errors) {";
1314   stream << "\n";
1315   stream << indent_str;
1316   stream << "                                   fprintf(stderr,";
1317   stream << "\n";
1318   stream << indent_str;
1319   stream << "                                           \"%s: option requires an argument -- %c\\n\",";
1320   stream << "\n";
1321   stream << indent_str;
1322   stream << "                                           argv[0], c);";
1323   stream << "\n";
1324   stream << indent_str;
1325   stream << "                           }";
1326   stream << "\n";
1327   stream << indent_str;
1328   stream << "                           d->custom_optopt = c;";
1329   stream << "\n";
1330   stream << indent_str;
1331   stream << "                           if (optstring[0] == ':')";
1332   stream << "\n";
1333   stream << indent_str;
1334   stream << "                                   c = ':';";
1335   stream << "\n";
1336   stream << indent_str;
1337   stream << "                           else";
1338   stream << "\n";
1339   stream << indent_str;
1340   stream << "                                   c = '?';";
1341   stream << "\n";
1342   stream << indent_str;
1343   stream << "                   } else";
1344   stream << "\n";
1345   stream << indent_str;
1346   stream << "                           /*";
1347   stream << "\n";
1348   stream << indent_str;
1349   stream << "                            * We already incremented `custom_optind' once;";
1350   stream << "\n";
1351   stream << indent_str;
1352   stream << "                            * increment it again when taking next ARGV-elt";
1353   stream << "\n";
1354   stream << indent_str;
1355   stream << "                            * as argument.";
1356   stream << "\n";
1357   stream << indent_str;
1358   stream << "                            */";
1359   stream << "\n";
1360   stream << indent_str;
1361   stream << "                           d->custom_optarg = argv[d->custom_optind++];";
1362   stream << "\n";
1363   stream << indent_str;
1364   stream << "                   d->nextchar = NULL;";
1365   stream << "\n";
1366   stream << indent_str;
1367   stream << "           }";
1368   stream << "\n";
1369   stream << indent_str;
1370   stream << "   }";
1371   stream << "\n";
1372   stream << indent_str;
1373   stream << "   return c;";
1374   stream << "\n";
1375   stream << indent_str;
1376   stream << "}";
1377   stream << "\n";
1378   stream << indent_str;
1379   stream << "\n";
1380   stream << indent_str;
1381   stream << "/*";
1382   stream << "\n";
1383   stream << indent_str;
1384   stream << " * Scan elements of ARGV for option characters given in OPTSTRING.";
1385   stream << "\n";
1386   stream << indent_str;
1387   stream << " *";
1388   stream << "\n";
1389   stream << indent_str;
1390   stream << " * If an element of ARGV starts with '-', and is not exactly \"-\" or \"--\",";
1391   stream << "\n";
1392   stream << indent_str;
1393   stream << " * then it is an option element.  The characters of this element";
1394   stream << "\n";
1395   stream << indent_str;
1396   stream << " * (aside from the initial '-') are option characters.  If `getopt'";
1397   stream << "\n";
1398   stream << indent_str;
1399   stream << " * is called repeatedly, it returns successively each of the option characters";
1400   stream << "\n";
1401   stream << indent_str;
1402   stream << " * from each of the option elements.";
1403   stream << "\n";
1404   stream << indent_str;
1405   stream << " *";
1406   stream << "\n";
1407   stream << indent_str;
1408   stream << " * If `getopt' finds another option character, it returns that character,";
1409   stream << "\n";
1410   stream << indent_str;
1411   stream << " * updating `custom_optind' and `nextchar' so that the next call to `getopt' can";
1412   stream << "\n";
1413   stream << indent_str;
1414   stream << " * resume the scan with the following option character or ARGV-element.";
1415   stream << "\n";
1416   stream << indent_str;
1417   stream << " *";
1418   stream << "\n";
1419   stream << indent_str;
1420   stream << " * If there are no more option characters, `getopt' returns -1.";
1421   stream << "\n";
1422   stream << indent_str;
1423   stream << " * Then `custom_optind' is the index in ARGV of the first ARGV-element";
1424   stream << "\n";
1425   stream << indent_str;
1426   stream << " * that is not an option.  (The ARGV-elements have been permuted";
1427   stream << "\n";
1428   stream << indent_str;
1429   stream << " * so that those that are not options now come last.)";
1430   stream << "\n";
1431   stream << indent_str;
1432   stream << " *";
1433   stream << "\n";
1434   stream << indent_str;
1435   stream << " * OPTSTRING is a string containing the legitimate option characters.";
1436   stream << "\n";
1437   stream << indent_str;
1438   stream << " * If an option character is seen that is not listed in OPTSTRING,";
1439   stream << "\n";
1440   stream << indent_str;
1441   stream << " * return '?' after printing an error message.  If you set `custom_opterr' to";
1442   stream << "\n";
1443   stream << indent_str;
1444   stream << " * zero, the error message is suppressed but we still return '?'.";
1445   stream << "\n";
1446   stream << indent_str;
1447   stream << " *";
1448   stream << "\n";
1449   stream << indent_str;
1450   stream << " * If a char in OPTSTRING is followed by a colon, that means it wants an arg,";
1451   stream << "\n";
1452   stream << indent_str;
1453   stream << " * so the following text in the same ARGV-element, or the text of the following";
1454   stream << "\n";
1455   stream << indent_str;
1456   stream << " * ARGV-element, is returned in `custom_optarg'.  Two colons mean an option that";
1457   stream << "\n";
1458   stream << indent_str;
1459   stream << " * wants an optional arg; if there is text in the current ARGV-element,";
1460   stream << "\n";
1461   stream << indent_str;
1462   stream << " * it is returned in `custom_optarg', otherwise `custom_optarg' is set to zero.";
1463   stream << "\n";
1464   stream << indent_str;
1465   stream << " *";
1466   stream << "\n";
1467   stream << indent_str;
1468   stream << " * If OPTSTRING starts with `-' or `+', it requests different methods of";
1469   stream << "\n";
1470   stream << indent_str;
1471   stream << " * handling the non-option ARGV-elements.";
1472   stream << "\n";
1473   stream << indent_str;
1474   stream << " * See the comments about RETURN_IN_ORDER and REQUIRE_ORDER, above.";
1475   stream << "\n";
1476   stream << indent_str;
1477   stream << " *";
1478   stream << "\n";
1479   stream << indent_str;
1480   stream << " * Long-named options begin with `--' instead of `-'.";
1481   stream << "\n";
1482   stream << indent_str;
1483   stream << " * Their names may be abbreviated as long as the abbreviation is unique";
1484   stream << "\n";
1485   stream << indent_str;
1486   stream << " * or is an exact match for some defined option.  If they have an";
1487   stream << "\n";
1488   stream << indent_str;
1489   stream << " * argument, it follows the option name in the same ARGV-element, separated";
1490   stream << "\n";
1491   stream << indent_str;
1492   stream << " * from the option name by a `=', or else the in next ARGV-element.";
1493   stream << "\n";
1494   stream << indent_str;
1495   stream << " * When `getopt' finds a long-named option, it returns 0 if that option's";
1496   stream << "\n";
1497   stream << indent_str;
1498   stream << " * `flag' field is nonzero, the value of the option's `val' field";
1499   stream << "\n";
1500   stream << indent_str;
1501   stream << " * if the `flag' field is zero.";
1502   stream << "\n";
1503   stream << indent_str;
1504   stream << " *";
1505   stream << "\n";
1506   stream << indent_str;
1507   stream << " * The elements of ARGV aren't really const, because we permute them.";
1508   stream << "\n";
1509   stream << indent_str;
1510   stream << " * But we pretend they're const in the prototype to be compatible";
1511   stream << "\n";
1512   stream << indent_str;
1513   stream << " * with other systems.";
1514   stream << "\n";
1515   stream << indent_str;
1516   stream << " *";
1517   stream << "\n";
1518   stream << indent_str;
1519   stream << " * LONGOPTS is a vector of `struct option' terminated by an";
1520   stream << "\n";
1521   stream << indent_str;
1522   stream << " * element containing a name which is zero.";
1523   stream << "\n";
1524   stream << indent_str;
1525   stream << " *";
1526   stream << "\n";
1527   stream << indent_str;
1528   stream << " * LONGIND returns the index in LONGOPT of the long-named option found.";
1529   stream << "\n";
1530   stream << indent_str;
1531   stream << " * It is only valid when a long-named option has been found by the most";
1532   stream << "\n";
1533   stream << indent_str;
1534   stream << " * recent call.";
1535   stream << "\n";
1536   stream << indent_str;
1537   stream << " *";
1538   stream << "\n";
1539   stream << indent_str;
1540   stream << " * Return the option character from OPTS just read.  Return -1 when there are";
1541   stream << "\n";
1542   stream << indent_str;
1543   stream << " * no more options.  For unrecognized options, or options missing arguments,";
1544   stream << "\n";
1545   stream << indent_str;
1546   stream << " * `custom_optopt' is set to the option letter, and '?' is returned.";
1547   stream << "\n";
1548   stream << indent_str;
1549   stream << " *";
1550   stream << "\n";
1551   stream << indent_str;
1552   stream << " * The OPTS string is a list of characters which are recognized option letters,";
1553   stream << "\n";
1554   stream << indent_str;
1555   stream << " * optionally followed by colons, specifying that that letter takes an";
1556   stream << "\n";
1557   stream << indent_str;
1558   stream << " * argument, to be placed in `custom_optarg'.";
1559   stream << "\n";
1560   stream << indent_str;
1561   stream << " *";
1562   stream << "\n";
1563   stream << indent_str;
1564   stream << " * If a letter in OPTS is followed by two colons, its argument is optional.";
1565   stream << "\n";
1566   stream << indent_str;
1567   stream << " * This behavior is specific to the GNU `getopt'.";
1568   stream << "\n";
1569   stream << indent_str;
1570   stream << " *";
1571   stream << "\n";
1572   stream << indent_str;
1573   stream << " * The argument `--' causes premature termination of argument scanning,";
1574   stream << "\n";
1575   stream << indent_str;
1576   stream << " * explicitly telling `getopt' that there are no more options.  If OPTS begins";
1577   stream << "\n";
1578   stream << indent_str;
1579   stream << " * with `--', then non-option arguments are treated as arguments to the option";
1580   stream << "\n";
1581   stream << indent_str;
1582   stream << " * '\\0'.  This behavior is specific to the GNU `getopt'.";
1583   stream << "\n";
1584   stream << indent_str;
1585   stream << " */";
1586   stream << "\n";
1587   stream << indent_str;
1588   stream << "\n";
1589   stream << indent_str;
1590   stream << "static int getopt_internal_r(int argc, char *const *argv, const char *optstring,";
1591   stream << "\n";
1592   stream << indent_str;
1593   stream << "           const struct option *longopts, int *longind,";
1594   stream << "\n";
1595   stream << indent_str;
1596   stream << "           struct custom_getopt_data *d)";
1597   stream << "\n";
1598   stream << indent_str;
1599   stream << "{";
1600   stream << "\n";
1601   stream << indent_str;
1602   stream << "   int ret, print_errors = d->custom_opterr;";
1603   stream << "\n";
1604   stream << indent_str;
1605   stream << "\n";
1606   stream << indent_str;
1607   stream << "   if (optstring[0] == ':')";
1608   stream << "\n";
1609   stream << indent_str;
1610   stream << "           print_errors = 0;";
1611   stream << "\n";
1612   stream << indent_str;
1613   stream << "   if (argc < 1)";
1614   stream << "\n";
1615   stream << indent_str;
1616   stream << "           return -1;";
1617   stream << "\n";
1618   stream << indent_str;
1619   stream << "   d->custom_optarg = NULL;";
1620   stream << "\n";
1621   stream << indent_str;
1622   stream << "\n";
1623   stream << indent_str;
1624   stream << "   /* ";
1625   stream << "\n";
1626   stream << indent_str;
1627   stream << "    * This is a big difference with GNU getopt, since optind == 0";
1628   stream << "\n";
1629   stream << indent_str;
1630   stream << "    * means initialization while here 1 means first call.";
1631   stream << "\n";
1632   stream << indent_str;
1633   stream << "    */";
1634   stream << "\n";
1635   stream << indent_str;
1636   stream << "   if (d->custom_optind == 0 || !d->initialized) {";
1637   stream << "\n";
1638   stream << indent_str;
1639   stream << "           if (d->custom_optind == 0)";
1640   stream << "\n";
1641   stream << indent_str;
1642   stream << "                   d->custom_optind = 1;   /* Don't scan ARGV[0], the program name.  */";
1643   stream << "\n";
1644   stream << indent_str;
1645   stream << "           custom_getopt_initialize(d);";
1646   stream << "\n";
1647   stream << indent_str;
1648   stream << "   }";
1649   stream << "\n";
1650   stream << indent_str;
1651   stream << "   if (d->nextchar == NULL || *d->nextchar == '\\0') {";
1652   stream << "\n";
1653   stream << indent_str;
1654   stream << "           ret = shuffle_argv(argc, argv, longopts, d);";
1655   stream << "\n";
1656   stream << indent_str;
1657   stream << "           if (ret)";
1658   stream << "\n";
1659   stream << indent_str;
1660   stream << "                   return ret;";
1661   stream << "\n";
1662   stream << indent_str;
1663   stream << "   }";
1664   stream << "\n";
1665   stream << indent_str;
1666   stream << "   if (longopts && (argv[d->custom_optind][1] == '-' ))";
1667   stream << "\n";
1668   stream << indent_str;
1669   stream << "           return check_long_opt(argc, argv, optstring, longopts,";
1670   stream << "\n";
1671   stream << indent_str;
1672   stream << "                   longind, print_errors, d);";
1673   stream << "\n";
1674   stream << indent_str;
1675   stream << "   return check_short_opt(argc, argv, optstring, print_errors, d);";
1676   stream << "\n";
1677   stream << indent_str;
1678   stream << "}";
1679   stream << "\n";
1680   stream << indent_str;
1681   stream << "\n";
1682   stream << indent_str;
1683   stream << "static int custom_getopt_internal(int argc, char *const *argv, const char *optstring,";
1684   stream << "\n";
1685   stream << indent_str;
1686   stream << "   const struct option *longopts, int *longind)";
1687   stream << "\n";
1688   stream << indent_str;
1689   stream << "{";
1690   stream << "\n";
1691   stream << indent_str;
1692   stream << "   int result;";
1693   stream << "\n";
1694   stream << indent_str;
1695   stream << "   /* Keep a global copy of all internal members of d */";
1696   stream << "\n";
1697   stream << indent_str;
1698   stream << "   static struct custom_getopt_data d;";
1699   stream << "\n";
1700   stream << indent_str;
1701   stream << "\n";
1702   stream << indent_str;
1703   stream << "   d.custom_optind = custom_optind;";
1704   stream << "\n";
1705   stream << indent_str;
1706   stream << "   d.custom_opterr = custom_opterr;";
1707   stream << "\n";
1708   stream << indent_str;
1709   stream << "   result = getopt_internal_r(argc, argv, optstring, longopts,";
1710   stream << "\n";
1711   stream << indent_str;
1712   stream << "           longind, &d);";
1713   stream << "\n";
1714   stream << indent_str;
1715   stream << "   custom_optind = d.custom_optind;";
1716   stream << "\n";
1717   stream << indent_str;
1718   stream << "   custom_optarg = d.custom_optarg;";
1719   stream << "\n";
1720   stream << indent_str;
1721   stream << "   custom_optopt = d.custom_optopt;";
1722   stream << "\n";
1723   stream << indent_str;
1724   stream << "   return result;";
1725   stream << "\n";
1726   stream << indent_str;
1727   stream << "}";
1728   stream << "\n";
1729   stream << indent_str;
1730   stream << "\n";
1731   stream << indent_str;
1732   stream << "static int custom_getopt_long (int argc, char *const *argv, const char *options,";
1733   stream << "\n";
1734   stream << indent_str;
1735   stream << "   const struct option *long_options, int *opt_index)";
1736   stream << "\n";
1737   stream << indent_str;
1738   stream << "{";
1739   stream << "\n";
1740   stream << indent_str;
1741   stream << "   return custom_getopt_internal(argc, argv, options, long_options,";
1742   stream << "\n";
1743   stream << indent_str;
1744   stream << "           opt_index);";
1745   stream << "\n";
1746   stream << indent_str;
1747   stream << "}";
1748   stream << "\n";
1749   stream << indent_str;
1750 }