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
|
define ANSWERS "|no|yes|NO|YES|"
# AP_ANSWER -- Prompt the user (if needed) and return bool based
# on 4-valued response
bool procedure ap_answer (param, prompt)
char param[ARB] # Parameter name
char prompt[ARB] # Prompt to be issued
char word[3]
int i, apgwrd()
pointer pmode
begin
i = apgwrd (param, word, 3, ANSWERS)
switch (i) {
case 3:
return (false)
case 4:
return (true)
default:
call malloc (pmode, SZ_LINE, TY_CHAR)
call sprintf (Memc[pmode], SZ_LINE, "%s.p_mode")
call pargstr (param)
call appstr (Memc[pmode], "q")
repeat {
call eprintf (prompt)
call flush (STDERR)
ifnoerr (i = apgwrd (param, word, 3, ANSWERS))
break
}
call appstr (param, word)
call appstr (Memc[pmode], "h")
call mfree (pmode, TY_CHAR)
}
switch (i) {
case 1, 3:
return (false)
case 2, 4:
return (true)
}
end
# APGANSB -- Convert 4-valued parameter to bool
bool procedure apgansb (param)
char param[ARB] # Parameter name
char word[3]
int apgwrd()
begin
switch (apgwrd (param, word, 3, ANSWERS)) {
case 1, 3:
return (false)
default:
return (true)
}
end
# APGANS -- Convert 4-value parameter to bool except "no" is true.
bool procedure apgans (param)
char param[ARB] # Parameter name
char word[3]
pointer pmode
bool streq()
begin
call malloc (pmode, SZ_LINE, TY_CHAR)
call sprintf (Memc[pmode], SZ_LINE, "%s.p_mode")
call pargstr (param)
call apgstr (Memc[pmode], word, 3)
if (word[1] != 'h')
call appstr (Memc[pmode], "h")
call mfree (pmode, TY_CHAR)
call apgstr (param, word, 3)
return (!streq (word, "NO"))
end
# APPANS -- Put 4-valued parameter based on interactive parameter.
procedure appans (param, ival, nival)
char param[ARB] # Parameter
bool ival # Interactive value
bool nival # Noninteractive value
char word[3]
pointer pmode
bool clgetb()
begin
call malloc (pmode, SZ_LINE, TY_CHAR)
call sprintf (Memc[pmode], SZ_LINE, "%s.p_mode")
call pargstr (param)
call apgstr (Memc[pmode], word, 3)
if (word[1] != 'h')
call appstr (Memc[pmode], "h")
call mfree (pmode, TY_CHAR)
if (clgetb ("interactive")) {
if (ival)
call appstr (param, "yes")
else
call appstr (param, "NO")
} else {
if (nival)
call appstr (param, "YES")
else
call appstr (param, "NO")
}
end
|
