blob: 4dce136a7c66793e4eced8765fb8d534176718a2 (
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
|
/* put parameters in linked list and retrieve */
#include <projects.h>
#include <stdio.h>
#include <string.h>
paralist * /* create parameter list entry */
pj_mkparam(char *str) {
paralist *newitem;
if (newitem = (paralist *)pj_malloc(sizeof(paralist) + strlen(str))) {
newitem->used = 0;
newitem->next = 0;
if (*str == '+')
++str;
(void)strcpy(newitem->param, str);
}
return newitem;
}
/************************************************************************/
/* pj_param() */
/* */
/* Test for presence or get parameter value. The first */
/* character in `opt' is a parameter type which can take the */
/* values: */
/* */
/* `t' - test for presence, return TRUE/FALSE in PVALUE.i */
/* `i' - integer value returned in PVALUE.i */
/* `d' - simple valued real input returned in PVALUE.f */
/* `r' - degrees (DMS translation applied), returned as */
/* radians in PVALUE.f */
/* `s' - string returned in PVALUE.s */
/* `b' - test for t/T/f/F, return in PVALUE.i */
/* */
/************************************************************************/
PVALUE /* test for presence or get parameter value */
pj_param(paralist *pl, char *opt) {
int type;
unsigned l;
PVALUE value;
type = *opt++;
/* simple linear lookup */
l = strlen(opt);
while (pl && !(!strncmp(pl->param, opt, l) &&
(!pl->param[l] || pl->param[l] == '=')))
pl = pl->next;
if (type == 't')
value.i = pl != 0;
else if (pl) {
pl->used |= 1;
opt = pl->param + l;
if (*opt == '=')
++opt;
switch (type) {
case 'i': /* integer input */
value.i = atoi(opt);
break;
case 'd': /* simple real input */
value.f = atof(opt);
break;
case 'r': /* degrees input */
value.f = dmstor(opt, 0);
break;
case 's': /* char string */
value.s = opt;
break;
case 'b': /* boolean */
switch (*opt) {
case 'F': case 'f':
value.i = 0;
break;
case '\0': case 'T': case 't':
value.i = 1;
break;
default:
pj_errno = -8;
value.i = 0;
break;
}
break;
default:
bum_type: /* note: this is an error in parameter, not a user error */
fprintf(stderr, "invalid request to pj_param, fatal\n");
exit(1);
}
} else /* not given */
switch (type) {
case 'b':
case 'i':
value.i = 0;
break;
case 'd':
case 'r':
value.f = 0.;
break;
case 's':
value.s = 0;
break;
default:
goto bum_type;
}
return value;
}
|
