Mercurial > emacs
annotate lib-src/getopt1.c @ 66573:e65b759c6906
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-630
Merge from gnus--rel--5.10
Patches applied:
* gnus--rel--5.10 (patch 149-151)
- Merge from emacs--cvs-trunk--0
- Update from CVS
2005-10-27 Reiner Steib <Reiner.Steib@gmx.de>
* lisp/gnus/flow-fill.el (fill-flowed-encode-tests): Restore trailing
whitespace removed in revision 7.8. Use concatenated string to
protect trailing whitespace.
2005-10-27 Jouni K Seppanen <jks@iki.fi> (tiny change)
* lisp/gnus/nnimap.el (nnimap-search-uids-not-since-is-evil): Add variable.
(nnimap-request-expire-articles): Use it to avoid sending 'UID
SEARCH UID ... NOT SINCE' queries, for inefficient servers like
Courier IMAP ("some version from 2004"). Mostly based on similar
code in the same function.
2005-10-26 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/gnus/message.el (message-display-completion-list): New function.
(message-expand-group): Use it; make sure the Completions buffer
is modifiable.
author | Miles Bader <miles@gnu.org> |
---|---|
date | Mon, 31 Oct 2005 07:07:28 +0000 |
parents | 6358e3c6075c |
children | 3661e9b3c48f 2d92f5c9d6ae |
rev | line source |
---|---|
16921
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
1 /* getopt_long and getopt_long_only entry points for GNU getopt. |
64769
6358e3c6075c
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64642
diff
changeset
|
2 Copyright (C) 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1996, 1997, |
6358e3c6075c
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64642
diff
changeset
|
3 1998, 2004, 2005 Free Software Foundation, Inc. |
48648
08f82ce16ede
Conditionally find getopt.h.
Richard M. Stallman <rms@gnu.org>
parents:
26083
diff
changeset
|
4 This file is part of the GNU C Library. |
16921
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
5 |
48648
08f82ce16ede
Conditionally find getopt.h.
Richard M. Stallman <rms@gnu.org>
parents:
26083
diff
changeset
|
6 This program is free software; you can redistribute it and/or modify |
08f82ce16ede
Conditionally find getopt.h.
Richard M. Stallman <rms@gnu.org>
parents:
26083
diff
changeset
|
7 it under the terms of the GNU General Public License as published by |
08f82ce16ede
Conditionally find getopt.h.
Richard M. Stallman <rms@gnu.org>
parents:
26083
diff
changeset
|
8 the Free Software Foundation; either version 2, or (at your option) |
08f82ce16ede
Conditionally find getopt.h.
Richard M. Stallman <rms@gnu.org>
parents:
26083
diff
changeset
|
9 any later version. |
16921
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
10 |
17965
2ef01cc793bf
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
17964
diff
changeset
|
11 This program is distributed in the hope that it will be useful, |
2ef01cc793bf
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
17964
diff
changeset
|
12 but WITHOUT ANY WARRANTY; without even the implied warranty of |
2ef01cc793bf
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
17964
diff
changeset
|
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
2ef01cc793bf
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
17964
diff
changeset
|
14 GNU General Public License for more details. |
16921
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
15 |
48648
08f82ce16ede
Conditionally find getopt.h.
Richard M. Stallman <rms@gnu.org>
parents:
26083
diff
changeset
|
16 You should have received a copy of the GNU General Public License along |
08f82ce16ede
Conditionally find getopt.h.
Richard M. Stallman <rms@gnu.org>
parents:
26083
diff
changeset
|
17 with this program; if not, write to the Free Software Foundation, |
64083 | 18 Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ |
16921
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
19 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
20 #ifdef HAVE_CONFIG_H |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
21 #include <config.h> |
48648
08f82ce16ede
Conditionally find getopt.h.
Richard M. Stallman <rms@gnu.org>
parents:
26083
diff
changeset
|
22 #endif |
08f82ce16ede
Conditionally find getopt.h.
Richard M. Stallman <rms@gnu.org>
parents:
26083
diff
changeset
|
23 |
08f82ce16ede
Conditionally find getopt.h.
Richard M. Stallman <rms@gnu.org>
parents:
26083
diff
changeset
|
24 #ifdef _LIBC |
08f82ce16ede
Conditionally find getopt.h.
Richard M. Stallman <rms@gnu.org>
parents:
26083
diff
changeset
|
25 # include <getopt.h> |
26083
134b57acef68
Add support for large files. Merge glibc 2.1.2.
Paul Eggert <eggert@twinsun.com>
parents:
21501
diff
changeset
|
26 #else |
48648
08f82ce16ede
Conditionally find getopt.h.
Richard M. Stallman <rms@gnu.org>
parents:
26083
diff
changeset
|
27 # include "getopt.h" |
08f82ce16ede
Conditionally find getopt.h.
Richard M. Stallman <rms@gnu.org>
parents:
26083
diff
changeset
|
28 #endif |
64639
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
29 #include "getopt_int.h" |
16921
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
30 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
31 #include <stdio.h> |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
32 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
33 /* This needs to come after some library #include |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
34 to get __GNU_LIBRARY__ defined. */ |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
35 #ifdef __GNU_LIBRARY__ |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
36 #include <stdlib.h> |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
37 #endif |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
38 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
39 #ifndef NULL |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
40 #define NULL 0 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
41 #endif |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
42 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
43 int |
64639
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
44 getopt_long (int argc, char *__getopt_argv_const *argv, const char *options, |
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
45 const struct option *long_options, int *opt_index) |
16921
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
46 { |
64639
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
47 return _getopt_internal (argc, (char **) argv, options, long_options, |
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
48 opt_index, 0, 0); |
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
49 } |
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
50 |
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
51 int |
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
52 _getopt_long_r (int argc, char **argv, const char *options, |
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
53 const struct option *long_options, int *opt_index, |
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
54 struct _getopt_data *d) |
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
55 { |
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
56 return _getopt_internal_r (argc, argv, options, long_options, opt_index, |
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
57 0, 0, d); |
16921
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
58 } |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
59 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
60 /* Like getopt_long, but '-' as well as '--' can indicate a long option. |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
61 If an option that starts with '-' (not '--') doesn't match a long option, |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
62 but does match a short option, it is parsed as a short option |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
63 instead. */ |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
64 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
65 int |
64639
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
66 getopt_long_only (int argc, char *__getopt_argv_const *argv, |
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
67 const char *options, |
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
68 const struct option *long_options, int *opt_index) |
16921
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
69 { |
64639
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
70 return _getopt_internal (argc, (char **) argv, options, long_options, |
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
71 opt_index, 1, 0); |
16921
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
72 } |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
73 |
64639
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
74 int |
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
75 _getopt_long_only_r (int argc, char **argv, const char *options, |
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
76 const struct option *long_options, int *opt_index, |
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
77 struct _getopt_data *d) |
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
78 { |
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
79 return _getopt_internal_r (argc, argv, options, long_options, opt_index, |
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
80 1, 0, d); |
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
81 } |
16921
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
82 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
83 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
84 #ifdef TEST |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
85 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
86 #include <stdio.h> |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
87 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
88 int |
64639
385af3e03206
Merge gnulib getopt implementation into Emacs.
Paul Eggert <eggert@twinsun.com>
parents:
64083
diff
changeset
|
89 main (int argc, char **argv) |
16921
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
90 { |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
91 int c; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
92 int digit_optind = 0; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
93 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
94 while (1) |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
95 { |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
96 int this_option_optind = optind ? optind : 1; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
97 int option_index = 0; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
98 static struct option long_options[] = |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
99 { |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
100 {"add", 1, 0, 0}, |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
101 {"append", 0, 0, 0}, |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
102 {"delete", 1, 0, 0}, |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
103 {"verbose", 0, 0, 0}, |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
104 {"create", 0, 0, 0}, |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
105 {"file", 1, 0, 0}, |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
106 {0, 0, 0, 0} |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
107 }; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
108 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
109 c = getopt_long (argc, argv, "abc:d:0123456789", |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
110 long_options, &option_index); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
111 if (c == -1) |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
112 break; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
113 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
114 switch (c) |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
115 { |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
116 case 0: |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
117 printf ("option %s", long_options[option_index].name); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
118 if (optarg) |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
119 printf (" with arg %s", optarg); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
120 printf ("\n"); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
121 break; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
122 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
123 case '0': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
124 case '1': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
125 case '2': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
126 case '3': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
127 case '4': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
128 case '5': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
129 case '6': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
130 case '7': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
131 case '8': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
132 case '9': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
133 if (digit_optind != 0 && digit_optind != this_option_optind) |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
134 printf ("digits occur in two different argv-elements.\n"); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
135 digit_optind = this_option_optind; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
136 printf ("option %c\n", c); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
137 break; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
138 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
139 case 'a': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
140 printf ("option a\n"); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
141 break; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
142 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
143 case 'b': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
144 printf ("option b\n"); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
145 break; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
146 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
147 case 'c': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
148 printf ("option c with value `%s'\n", optarg); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
149 break; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
150 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
151 case 'd': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
152 printf ("option d with value `%s'\n", optarg); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
153 break; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
154 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
155 case '?': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
156 break; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
157 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
158 default: |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
159 printf ("?? getopt returned character code 0%o ??\n", c); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
160 } |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
161 } |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
162 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
163 if (optind < argc) |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
164 { |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
165 printf ("non-option ARGV-elements: "); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
166 while (optind < argc) |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
167 printf ("%s ", argv[optind++]); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
168 printf ("\n"); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
169 } |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
170 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
171 exit (0); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
172 } |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
173 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
174 #endif /* TEST */ |
64642 | 175 |
176 /* arch-tag: 28a5c558-b0c0-4bff-b5bc-e2e20291d4b6 | |
177 (do not change this comment) */ |