/
getlopt.c
155 lines (142 loc) · 3.86 KB
/
getlopt.c
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
142
143
144
145
146
147
148
149
150
151
152
153
154
155
/*
getlopt: command line option/parameter parsing
copyright ?-2008 by the mpg123 project - free software under the terms of the LGPL 2.1
see COPYING and AUTHORS files in distribution or http://mpg123.org
initially written Oliver Fromme
old timestamp: Tue Apr 8 07:15:13 MET DST 1997
*/
#include "config.h"
#include "compat.h"
#include "getlopt.h"
#include "debug.h"
int loptind = 1; /* index in argv[] */
int loptchr = 0; /* index in argv[loptind] */
char *loptarg; /* points to argument if present, else to option */
topt *findopt (int islong, char *opt, topt *opts)
{
if (!opts)
return (0);
while (opts->lname) {
if (islong) {
if (!strcmp(opts->lname, opt))
return (opts);
}
else
if (opts->sname == *opt)
return (opts);
opts++;
}
return (0);
}
static int performoption (int argc, char *argv[], topt *opt)
{
int result = GLO_CONTINUE;
/* this really is not supposed to happen, so the exit may be justified to create asap ficing pressure */
#define prog_error() \
{ \
fprintf(stderr, __FILE__ ":%i Option without type flag! This is a programming error! Developer: fix this ASAP to regain your honor.\n", __LINE__); \
exit(1); \
}
debug2("performoption on %c / %s"
, opt->sname ? opt->sname : '_', opt->lname ? opt->lname : "");
if (!(opt->flags & GLO_ARG)) { /* doesn't take argument */
if (opt->var) {
if (opt->flags & GLO_CHAR) /* var is *char */
{
debug1("char at %p", opt->var);
*((char *) opt->var) = (char) opt->value;\
}
else if(opt->flags & GLO_LONG)
{
debug1("long at %p", opt->var);
*( (long *) opt->var ) = opt->value;
}
else if(opt->flags & GLO_INT)
{
debug1("int at %p", opt->var);
*( (int *) opt->var ) = (int) opt->value;
}
/* GLO_DOUBLE is not supported here */
else prog_error();
debug("casting assignment done");
}
#if 0 /* Oliver: What was this for?! --ThOr */
else
result = opt->value ? opt->value : opt->sname;
#endif
}
else { /* requires argument */
debug("argument required");
if (loptind >= argc)
return (GLO_NOARG);
loptarg = argv[loptind++]+loptchr;
loptchr = 0;
if (opt->var) {
if (opt->flags & GLO_CHAR) /* var is *char */
*((char **) opt->var) = compat_strdup(loptarg); /* valgrind claims lost memory here */
else if(opt->flags & GLO_LONG)
*((long *) opt->var) = atol(loptarg);
else if(opt->flags & GLO_INT)
*((int *) opt->var) = atoi(loptarg);
else if(opt->flags & GLO_DOUBLE)
*((double *) opt->var) = atof(loptarg);
else prog_error();
}
#if 0 /* Oliver: What was this for?! --ThOr */
else
result = opt->value ? opt->value : opt->sname;
#endif
}
if (opt->func)
opt->func(loptarg);
debug4("result: %i (%p, %li, %i)", result, opt->var, opt->value, opt->sname);
return (result);
}
int getsingleopt (int argc, char *argv[], topt *opts)
{
char *thisopt;
topt *opt;
static char shortopt[2] = {0, 0};
if (loptind >= argc)
return (GLO_END);
thisopt = argv[loptind];
debug1("getsingleopt: %s", thisopt);
if (!loptchr) { /* start new option string */
if (thisopt[0] != '-' || !thisopt[1]) /* no more options */
return (GLO_END);
if (thisopt[1] == '-') { /* "--" */
if (thisopt[2]) { /* long option */
loptarg = thisopt+2;
loptind++;
if (!(opt = findopt(1, thisopt+2, opts)))
return (GLO_UNKNOWN);
else
return (performoption(argc, argv, opt));
}
else { /* "--" == end of options */
loptind++;
return (GLO_END);
}
}
else /* start short option(s) */
loptchr = 1;
}
shortopt[0] = thisopt[loptchr];
loptarg = shortopt;
opt = findopt(0, thisopt+(loptchr++), opts);
if (!thisopt[loptchr]) {
loptind++;
loptchr = 0;
}
if (!opt)
return (GLO_UNKNOWN);
else
return (performoption(argc, argv, opt));
}
int getlopt (int argc, char *argv[], topt *opts)
{
int result;
while ((result = getsingleopt(argc, argv, opts)) == GLO_CONTINUE);
return (result);
}
/* EOF */