blob: e0f611875dc46b0689786ebb0b547b0612da3d97 (
plain)
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
|
#include "getoptb.h"
#include "buffer.h"
/**
@file getoptb.c
@author djb
@source ucspi-tcp
@brief 'getopt' version w/o stdlib
*/
#define optind subgetoptind
#define optproblem subgetoptproblem
int opterr = 1;
char *optprogname = 0;
static int getopt(int argc, char **argv, char *opts)
{
int c;
char *s;
if (!optprogname) {
optprogname = *argv;
if (!optprogname) optprogname = "";
for (s = optprogname; *s; ++s)
if (*s == '/') optprogname = s + 1;
}
c = subgetopt(argc, argv, opts);
if (opterr) {
if (c == '?') {
char chp[2];
chp[0] = optproblem;
chp[1] = '\n';
buffer_puts(buffer_2, optprogname);
if (argv[optind] && (optind < argc))
buffer_puts(buffer_2, ": illegal option -- ");
else
buffer_puts(buffer_2, ": option requires an argument -- ");
buffer_put(buffer_2, chp, 2);
buffer_flush(buffer_2);
}
}
return c;
}
#define optpos subgetoptpos
#define optarg subgetoptarg
#define optdone subgetoptdone
int optind = 1;
int optpos = 0;
char *optarg = 0;
int optproblem = 0;
int optdone = SUBGETOPTDONE;
int subgetopt(int argc, char **argv, char *opts)
{
int c;
char *s;
optarg = 0;
if (!argv || (optind >= argc) || !argv[optind]) return optdone;
if (optpos && !argv[optind][optpos]) {
++optind;
optpos = 0;
if ((optind >= argc) || !argv[optind]) return optdone;
}
if (!optpos) {
if (argv[optind][0] != '-') return optdone;
++optpos;
c = argv[optind][1];
if ((c == '-') || (c == 0)) {
if (c) ++optind;
optpos = 0;
return optdone;
}
/* otherwise c is reassigned below */
}
c = argv[optind][optpos];
++optpos;
s = opts;
while (*s) {
if (c == *s) {
if (s[1] == ':') {
optarg = argv[optind] + optpos;
++optind;
optpos = 0;
if (!*optarg) {
optarg = argv[optind];
if ((optind >= argc) || !optarg) { /* argument past end */
optproblem = c;
return '?';
}
++optind;
}
}
return c;
}
++s;
if (*s == ':') ++s;
}
optproblem = c;
return '?';
}
|
