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
|
/*
* libdpkg - Debian packaging suite library routines
* myopt.c - my very own option parsing
*
* Copyright (C) 1994,1995 Ian Jackson <ian@davenant.greenend.org.uk>
*
* This is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as
* published by the Free Software Foundation; either version 3,
* or (at your option) any later version.
*
* This is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public
* License along with this file; if not, consult the Free Software
* Foundation's website at www.fsf.org, or the GNU Project website at
* www.gnu.org.
*/
#include <stdio.h>
#include <string.h>
#include <stdarg.h>
#include <stdlib.h>
#include "myopt.h"
void badusage(const char *fmt, ...) {
va_list al;
va_start(al,fmt);
vfprintf(stderr,fmt,al);
va_end(al);
fputc('\n',stderr);
usagemessage();
exit(-1);
}
void myopt(const char *const **argvp, const struct cmdinfo *cmdinfos) {
const struct cmdinfo *cip;
const char *p, *value;
int l;
++(*argvp);
while ((p= **argvp) && *p == '-') {
++(*argvp);
if (!strcmp(p,"--")) break;
if (*++p == '-') {
++p; value=0;
for (cip= cmdinfos;
cip->olong || cip->oshort;
cip++) {
if (!cip->olong) continue;
if (!strcmp(p,cip->olong)) break;
l= strlen(cip->olong);
if (!strncmp(p,cip->olong,l) &&
(p[l]== ((cip->takesvalue==2) ? '-' : '='))) { value=p+l+1; break; }
}
if (!cip->olong) badusage("unknown option --%s",p);
if (cip->takesvalue) {
if (!value) {
value= *(*argvp)++;
if (!value) badusage("--%s option takes a value",cip->olong);
}
if (cip->call) cip->call(cip,value);
else *cip->sassignto= value;
} else {
if (value) badusage("--%s option does not take a value",cip->olong);
if (cip->call) cip->call(cip,0);
else *cip->iassignto= cip->arg;
}
} else {
while (*p) {
for (cip= cmdinfos; (cip->olong || cip->oshort) && *p != cip->oshort; cip++);
if (!cip->oshort) badusage("unknown option -%c",*p);
p++;
if (cip->takesvalue) {
if (!*p) {
value= *(*argvp)++;
if (!value) badusage("-%c option takes a value",cip->oshort);
} else {
value= p; p="";
if (*value == '=') value++;
}
if (cip->call) cip->call(cip,value);
else *cip->sassignto= value;
} else {
if (*p == '=') badusage("-%c option does not take a value",cip->oshort);
if (cip->call) cip->call(cip,0);
else *cip->iassignto= cip->arg;
}
}
}
}
}
|
