1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
/*
* getopt() - command option parsing
*
* Gunnar Ritter, Freiburg i. Br., Germany, March 2002.
*/
/* Sccsid @(#)getopt.c 1.6 (gritter) 12/16/07 */
#include <sys/types.h>
#include <alloca.h>
#include <string.h>
#include "msgselect.h"
/*
* One should not think that re-implementing this is necessary, but
*
* - Some libcs print weird messages.
*
* - GNU libc getopt() is totally brain-damaged, as it requires special
* care _not_ to reorder parameters and can't be told to work correctly
* with ':' as first optstring character at all.
*/
char *optarg = 0;
int optind = 1;
int opterr = 1;
int optopt = 0;
extern char *pfmt_label__;
static void
error(const char *s, int c)
{
/*
* Avoid including <unistd.h>, in case its getopt() declaration
* conflicts.
*/
extern ssize_t write(int, const void *, size_t);
const char *msg = 0;
char *buf, *bp;
if (pfmt_label__)
s = pfmt_label__;
switch (c) {
case '?':
msg = ": " msgselect("I","i") "llegal option -- ";
break;
case ':':
msg = ": " msgselect("O","o") "ption requires an argument -- ";
break;
}
bp = buf = alloca(strlen(s) + strlen(msg) + 2);
while (*s)
*bp++ = *s++;
while (*msg)
*bp++ = *msg++;
*bp++ = optopt;
*bp++ = '\n';
write(2, buf, bp - buf);
}
int
getopt(int argc, char *const argv[], const char *optstring)
{
int colon;
static const char *lastp;
const char *curp;
if (optstring[0] == ':') {
colon = 1;
optstring++;
} else
colon = 0;
if (lastp) {
curp = lastp;
lastp = 0;
} else {
if (optind >= argc || argv[optind] == 0 ||
argv[optind][0] != '-' ||
argv[optind][1] == '\0')
return -1;
if (argv[optind][1] == '-' && argv[optind][2] == '\0') {
optind++;
return -1;
}
curp = &argv[optind][1];
}
optopt = curp[0] & 0377;
while (optstring[0]) {
if (optstring[0] == ':') {
optstring++;
continue;
}
if ((optstring[0] & 0377) == optopt) {
if (optstring[1] == ':') {
if (curp[1] != '\0') {
optarg = (char *)&curp[1];
optind++;
} else {
if ((optind += 2) > argc) {
if (!colon && opterr)
error(argv[0], ':');
return colon ? ':' : '?';
}
optarg = argv[optind - 1];
}
} else {
if (curp[1] != '\0')
lastp = &curp[1];
else
optind++;
optarg = 0;
}
return optopt;
}
optstring++;
}
if (!colon && opterr)
error(argv[0], '?');
if (curp[1] != '\0')
lastp = &curp[1];
else
optind++;
optarg = 0;
return '?';
}
#ifdef __APPLE__
/*
* Starting with Mac OS 10.5 Leopard, <unistd.h> turns getopt()
* into getopt$UNIX2003() by default. Consequently, this function
* is called instead of the one defined above. However, optind is
* still taken from this file, so in effect, options are not
* properly handled. Defining an own getopt$UNIX2003() function
* works around this issue.
*/
int
getopt$UNIX2003(int argc, char *const argv[], const char *optstring)
{
return getopt(argc, argv, optstring);
}
#endif /* __APPLE__ */
|
