annotate lib-src/getopt.h @ 2421:ab71ad6ff3dd

[xemacs-hg @ 2004-12-06 03:50:53 by ben] (none) README.packages: Document use of --package-prefix. Fix error in specifying standard package location. make-docfile.c: Use QXE_PATH_MAX. info.el: Correct doc string giving example package path. menubar-items.el: Move Prefix Rectangle command up one level. xemacs/packages.texi: Add long form of Lisp Reference Manual to links. Add links pointing to Lisp Reference Manual for more detailed package discussion. lispref/range-tables.texi: Document range-table changes. internals/internals.texi: Update history section. elhash.c, elhash.h, profile.c: Create inchash_eq() to allow direct incrementing of hash-table entry. Use in profile.c to try to reduce profiling overhead. Increase initial size of profile hash tables to reduce profiling overhead. buffer.c, device-msw.c, dialog-msw.c, dired-msw.c, editfns.c, event-msw.c, events.c, glyphs-msw.c, keymap.c, objects-msw.c, process-nt.c, syswindows.h, text.c, text.h, unexnt.c: Rename xetcs* -> qxetcs* for consistency with qxestr*. Rename ei*_c(_*) -> ei*_ascii(_*) since they work with ASCII-only strings not "C strings", whatever those are. This is the last place where "c" was incorrectly being used for "ascii". dialog-msw.c, dumper.c, event-msw.c, fileio.c, glyphs-gtk.c, glyphs-x.c, nt.c, process-nt.c, realpath.c, sysdep.c, sysfile.h, unexcw.c, unexnext.c, unexnt.c: Try to avoid differences in systems that do or do not include final null byte in PATH_MAX. Create PATH_MAX_INTERNAL and PATH_MAX_EXTERNAL and use them everywhere. Rewrite code in dumper.c to avoid use of PATH_MAX. When necessary in nt.c, use _MAX_PATH instead of MAX_PATH to be consistent with other places. text.c: Code to short-circuit when binary or Unicode was not working due to EOL wrapping. Fix this code to work when either no EOL autodetection or no CR's or LF's in the text. lisp.h, rangetab.c, rangetab.h, regex.c, search.c: Implement different types of ranges (open/closed start and end). Change default to be start-closed, end-open.
author ben
date Mon, 06 Dec 2004 03:52:23 +0000
parents abe6d1db359e
children ed624ab64583
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 /* Declarations for getopt.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2 Copyright (C) 1989,90,91,92,93,94,96,97 Free Software Foundation, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4 NOTE: The canonical source of this file is maintained with the GNU C Library.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5 Bugs can be reported to bug-glibc@prep.ai.mit.edu.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7 This program is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8 under the terms of the GNU General Public License as published by the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 Free Software Foundation; either version 2, or (at your option) any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12 This program is distributed in the hope that it will be useful,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 GNU General Public License for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18 along with this program; if not, write to the Free Software
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 USA. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22 #ifndef _GETOPT_H
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23 #define _GETOPT_H 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25 #ifdef __cplusplus
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26 extern "C" {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
28
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
29 /* For communication from `getopt' to the caller.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
30 When `getopt' finds an option that takes an argument,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
31 the argument value is returned here.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
32 Also, when `ordering' is RETURN_IN_ORDER,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33 each non-option ARGV-element is returned here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
34
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
35 extern char *optarg;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
36
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 /* Index in ARGV of the next element to be scanned.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38 This is used for communication to and from the caller
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 and for communication between successive calls to `getopt'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41 On entry to `getopt', zero means this is the first call; initialize.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43 When `getopt' returns -1, this is the index of the first of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44 non-option elements that the caller should itself scan.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
46 Otherwise, `optind' communicates from one call to the next
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47 how much of ARGV has been scanned so far. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49 extern int optind;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51 /* Callers store zero here to inhibit the error message `getopt' prints
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52 for unrecognized options. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54 extern int opterr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56 /* Set to an option character which was unrecognized. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
58 extern int optopt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 /* Describe the long-named options requested by the application.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61 The LONG_OPTIONS argument to getopt_long or getopt_long_only is a vector
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62 of `struct option' terminated by an element containing a name which is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63 zero.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65 The field `has_arg' is:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 no_argument (or 0) if the option does not take an argument,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67 required_argument (or 1) if the option requires an argument,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68 optional_argument (or 2) if the option takes an optional argument.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 If the field `flag' is not NULL, it points to a variable that is set
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71 to the value given in the field `val' when the option is found, but
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72 left unchanged if the option is not found.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74 To have a long-named option do something other than set an `int' to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75 a compiled-in constant, such as set a value from `optarg', set the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 option's `flag' field to zero and its `val' field to a nonzero
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77 value (the equivalent single-letter option character, if there is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78 one). For long options that have a zero `flag' field, `getopt'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79 returns the contents of the `val' field. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 struct option
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83 #if defined (__STDC__) && __STDC__
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84 const char *name;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86 char *name;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88 /* has_arg can't be an enum because some compilers complain about
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89 type mismatches in all the code that assumes it is an int. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90 int has_arg;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91 int *flag;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92 int val;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95 /* Names for the values of the `has_arg' field of `struct option'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
96
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
97 #define no_argument 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
98 #define required_argument 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99 #define optional_argument 2
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
101 #if defined (__GNU_LIBRARY__) || defined (__cplusplus) || defined (CYGWIN)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
102 /* Many other libraries have conflicting prototypes for getopt, with
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
103 differences in the consts, in stdlib.h. To avoid compilation
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
104 errors, only prototype getopt for the GNU C library. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
105 extern int getopt (int argc, char *const *argv, const char *shortopts);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
106 #else /* not __GNU_LIBRARY__ || C++ */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107 extern int getopt ();
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
108 #endif /* __GNU_LIBRARY__ || C++ */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
109 extern int getopt_long (int argc, char *const *argv, const char *shortopts,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110 const struct option *longopts, int *longind);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111 extern int getopt_long_only (int argc, char *const *argv,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112 const char *shortopts,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113 const struct option *longopts, int *longind);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
115 /* Internal only. Users should not call this directly. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116 extern int _getopt_internal (int argc, char *const *argv,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117 const char *shortopts,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
118 const struct option *longopts, int *longind,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119 int long_only);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121 #ifdef __cplusplus
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
122 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
123 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
125 #endif /* _GETOPT_H */