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
|
/*
* libdpkg - Debian packaging suite library routines
* myopt.c - my very own option parsing
*
* Copyright (C) 1994,1995 Ian Jackson <iwj10@cus.cam.ac.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 2,
* 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, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
#include <string.h>
#include "config.h"
#include "myopt.h"
#include "dpkg.h"
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;
}
}
}
}
}
|
