Mercurial > emacs
annotate lib-src/getopt1.c @ 59384:a1edc5959dcf
* macfns.c: Include sys/param.h.
[TARGET_API_MAC_CARBON] (mac_nav_event_callback): New declaration
and function.
[TARGET_API_MAC_CARBON] (Fx_file_dialog): Use MAXPATHLEN for size
of filename string. Set event callback function when creating
dialog boxes. Add code conversions for filenames. Don't dispose
apple event descriptor record if failed to create it.
* macterm.c: Include sys/param.h.
[USE_CARBON_EVENTS] (mac_handle_window_event): Add handler for
kEventWindowUpdate.
(install_window_handler) [USE_CARBON_EVENTS]: Register it.
(do_ae_open_documents) [TARGET_API_MAC_CARBON]: Get FSRef instead
of FSSpec from apple event descriptor record.
(do_ae_open_documents) [TARGET_API_MAC_CARBON]: Use MAXPATHLEN for
size of filename string.
[TARGET_API_MAC_CARBON] (mac_do_receive_drag): Likewise.
[TARGET_API_MAC_CARBON] (mac_do_receive_drag): Return error when a
file dialog is in action.
[TARGET_API_MAC_CARBON] (mac_do_track_drag): Likewise. Reject
only when there are no filename items. Set background color
before (un)highlighting the window below the dragged items.
(XTread_socket) [!USE_CARBON_EVENTS]: Don't call do_window_update.
author | Steven Tamm <steventamm@mac.com> |
---|---|
date | Thu, 06 Jan 2005 02:53:39 +0000 |
parents | 695cf19ef79e |
children | 23a17af379b1 375f2633d815 |
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. |
21500
4c72cf4eeedb
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
17965
diff
changeset
|
2 Copyright (C) 1987,88,89,90,91,92,93,94,96,97,98 |
4c72cf4eeedb
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
17965
diff
changeset
|
3 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, |
26083
134b57acef68
Add support for large files. Merge glibc 2.1.2.
Paul Eggert <eggert@twinsun.com>
parents:
21501
diff
changeset
|
18 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, 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 |
08f82ce16ede
Conditionally find getopt.h.
Richard M. Stallman <rms@gnu.org>
parents:
26083
diff
changeset
|
29 |
21500
4c72cf4eeedb
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
17965
diff
changeset
|
30 #if !defined __STDC__ || !__STDC__ |
16921
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
31 /* This is a separate conditional since some stdc systems |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
32 reject `defined (const)'. */ |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
33 #ifndef const |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
34 #define const |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
35 #endif |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
36 #endif |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
37 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
38 #include <stdio.h> |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
39 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
40 /* Comment out all this code if we are using the GNU C Library, and are not |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
41 actually compiling the library itself. This code is part of the GNU C |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
42 Library, but also included in many other GNU distributions. Compiling |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
43 and linking in this code is a waste when using the GNU C library |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
44 (especially if it is a shared library). Rather than having every GNU |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
45 program understand `configure --with-gnu-libc' and omit the object files, |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
46 it is simpler to just do this in the source for each such file. */ |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
47 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
48 #define GETOPT_INTERFACE_VERSION 2 |
21500
4c72cf4eeedb
automatically generated from GPLed version
Ulrich Drepper <drepper@redhat.com>
parents:
17965
diff
changeset
|
49 #if !defined _LIBC && defined __GLIBC__ && __GLIBC__ >= 2 |
16921
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
50 #include <gnu-versions.h> |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
51 #if _GNU_GETOPT_INTERFACE_VERSION == GETOPT_INTERFACE_VERSION |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
52 #define ELIDE_CODE |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
53 #endif |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
54 #endif |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
55 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
56 #ifndef ELIDE_CODE |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
57 |
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 /* This needs to come after some library #include |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
60 to get __GNU_LIBRARY__ defined. */ |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
61 #ifdef __GNU_LIBRARY__ |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
62 #include <stdlib.h> |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
63 #endif |
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 #ifndef NULL |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
66 #define NULL 0 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
67 #endif |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
68 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
69 int |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
70 getopt_long (argc, argv, options, long_options, opt_index) |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
71 int argc; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
72 char *const *argv; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
73 const char *options; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
74 const struct option *long_options; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
75 int *opt_index; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
76 { |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
77 return _getopt_internal (argc, argv, options, long_options, opt_index, 0); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
78 } |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
79 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
80 /* 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
|
81 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
|
82 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
|
83 instead. */ |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
84 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
85 int |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
86 getopt_long_only (argc, argv, options, long_options, opt_index) |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
87 int argc; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
88 char *const *argv; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
89 const char *options; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
90 const struct option *long_options; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
91 int *opt_index; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
92 { |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
93 return _getopt_internal (argc, argv, options, long_options, opt_index, 1); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
94 } |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
95 |
48648
08f82ce16ede
Conditionally find getopt.h.
Richard M. Stallman <rms@gnu.org>
parents:
26083
diff
changeset
|
96 # ifdef _LIBC |
08f82ce16ede
Conditionally find getopt.h.
Richard M. Stallman <rms@gnu.org>
parents:
26083
diff
changeset
|
97 libc_hidden_def (getopt_long) |
08f82ce16ede
Conditionally find getopt.h.
Richard M. Stallman <rms@gnu.org>
parents:
26083
diff
changeset
|
98 libc_hidden_def (getopt_long_only) |
08f82ce16ede
Conditionally find getopt.h.
Richard M. Stallman <rms@gnu.org>
parents:
26083
diff
changeset
|
99 # endif |
16921
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
100 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
101 #endif /* Not ELIDE_CODE. */ |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
102 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
103 #ifdef TEST |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
104 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
105 #include <stdio.h> |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
106 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
107 int |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
108 main (argc, argv) |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
109 int argc; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
110 char **argv; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
111 { |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
112 int c; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
113 int digit_optind = 0; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
114 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
115 while (1) |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
116 { |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
117 int this_option_optind = optind ? optind : 1; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
118 int option_index = 0; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
119 static struct option long_options[] = |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
120 { |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
121 {"add", 1, 0, 0}, |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
122 {"append", 0, 0, 0}, |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
123 {"delete", 1, 0, 0}, |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
124 {"verbose", 0, 0, 0}, |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
125 {"create", 0, 0, 0}, |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
126 {"file", 1, 0, 0}, |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
127 {0, 0, 0, 0} |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
128 }; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
129 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
130 c = getopt_long (argc, argv, "abc:d:0123456789", |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
131 long_options, &option_index); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
132 if (c == -1) |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
133 break; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
134 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
135 switch (c) |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
136 { |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
137 case 0: |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
138 printf ("option %s", long_options[option_index].name); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
139 if (optarg) |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
140 printf (" with arg %s", optarg); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
141 printf ("\n"); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
142 break; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
143 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
144 case '0': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
145 case '1': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
146 case '2': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
147 case '3': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
148 case '4': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
149 case '5': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
150 case '6': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
151 case '7': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
152 case '8': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
153 case '9': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
154 if (digit_optind != 0 && digit_optind != this_option_optind) |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
155 printf ("digits occur in two different argv-elements.\n"); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
156 digit_optind = this_option_optind; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
157 printf ("option %c\n", c); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
158 break; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
159 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
160 case 'a': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
161 printf ("option a\n"); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
162 break; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
163 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
164 case 'b': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
165 printf ("option b\n"); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
166 break; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
167 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
168 case 'c': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
169 printf ("option c with value `%s'\n", optarg); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
170 break; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
171 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
172 case 'd': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
173 printf ("option d with value `%s'\n", optarg); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
174 break; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
175 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
176 case '?': |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
177 break; |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
178 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
179 default: |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
180 printf ("?? getopt returned character code 0%o ??\n", c); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
181 } |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
182 } |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
183 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
184 if (optind < argc) |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
185 { |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
186 printf ("non-option ARGV-elements: "); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
187 while (optind < argc) |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
188 printf ("%s ", argv[optind++]); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
189 printf ("\n"); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
190 } |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
191 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
192 exit (0); |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
193 } |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
194 |
4b61c355492b
automatically generated from GPLed version
Paul Eggert <eggert@twinsun.com>
parents:
diff
changeset
|
195 #endif /* TEST */ |
48648
08f82ce16ede
Conditionally find getopt.h.
Richard M. Stallman <rms@gnu.org>
parents:
26083
diff
changeset
|
196 |
52401 | 197 /* arch-tag: 28a5c558-b0c0-4bff-b5bc-e2e20291d4b6 |
198 (do not change this comment) */ |