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
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
|
/****************************************************************
* *
* Copyright (c) 2002-2021 Fidelity National Information *
* Services, Inc. and/or its subsidiaries. All rights reserved. *
* *
* This source code contains the intellectual property *
* of its copyright holder(s), and is made available *
* under a license. If you do not know the terms of *
* the license, please stop and do not read further. *
* *
****************************************************************/
#include "mdef.h"
#include <stdarg.h>
#include "gtm_stdio.h"
#include <errno.h>
#include "gtm_string.h"
#include "gtmmsg.h"
#include "cli.h"
#include "cli_parse.h"
#include "cli_disallow.h"
#include "error.h"
#include "util.h"
#include "mupip_cmd_disallow.h"
GBLREF char cli_err_str[];
GBLREF char *cli_err_str_ptr;
/* to check lengths and update cli_err_str*/
void cli_err_strcat(char *str)
{
size_t lencli, lenstr;
lencli = strlen(cli_err_str);
lenstr = strlen(str);
/* No error string should be longer than MAX_CLI_ERR_STR */
assert(MAX_CLI_ERR_STR > (lencli + lenstr + 2));
assert(MAX_CLI_ERR_STR > lencli); /* For SCI on the theory a one var expr is more easily tracked */
memcpy(cli_err_str + lencli," ",1);
assert(MAX_CLI_ERR_STR > lencli + 1); /* For SCI on the theory a one var expr is more easily tracked */
memcpy(cli_err_str + lencli + 1, str, lenstr);
*(cli_err_str + lencli + lenstr + 1) = '\0';
}
/*----------------------------------------------
* d_c_cli_present:
* disallow_check_cli_present
*
* This is a wrapper for cli_present to be used
* from disallow functions (i.e. check_disallow
* and those it calls).
*
* Mimicks VMS CLI.
*
* Do not use other than in *_disallow functions.
*
* Arguments:
* qualifier string
*
* Return:
* TRUE if present,
* FALSE otherwise
*----------------------------------------------
*/
boolean_t d_c_cli_present(char *str)
{
int val;
char *str_ptr;
val = cli_present(str);
str_ptr = strchr(str,DOT);
if (str_ptr)
str_ptr++; /* skip the dot */
else
str_ptr = str;
cli_err_strcat(str_ptr);
return(CLI_PRESENT == val);
}
/*----------------------------------------------
* d_c_cli_negated
* disallow_check_cli_negated
*
* This is a wrapper for cli_negated to be used
* from disallow functions (i.e. check_disallow
* and those it calls).
*
* Mimicks NEG operator of VMS CLI.
*
* Do not use other than in *_disallow functions.
*
* Arguments:
* qualifier string
*
* Return:
* TRUE if negated,
* FALSE otherwise
*----------------------------------------------
*/
boolean_t d_c_cli_negated(char *str)
{
boolean_t val;
char *str_ptr;
val = cli_negated(str);
str_ptr = strchr(str,DOT);
if (str_ptr)
str_ptr++; /* skip the dot */
else
str_ptr = str;
cli_err_strcat(str_ptr);
return(val);
}
/*----------------------------------------------
* cli_check_any2
*
* checks if any two of the (many) inputs are
* non-zero.
*
* Mimicks ANY2 operator of VMS CLI.
*
* Do not use other than in *_disallow functions.
*
* This function is added for ease of port of
* CLD files.
*
* Arguments:
* list of booleans
*
* Return:
* TRUE if any2 condition holds,
* FALSE otherwise
*----------------------------------------------
*/
boolean_t cli_check_any2(int argcnt, ...)
{
va_list var;
int oper, state = 0;
VAR_START(var, argcnt);
oper = 0;
while(argcnt)
{
if (va_arg(var, VA_ARG_TYPE_BOOL) && 1 < ++state)
return TRUE;
argcnt--;
}
va_end(var);
return FALSE;
}
/*-------------------------------------------------
* check_disallow
* Checks whether the disallow condition is met
* It is called for the tables that are involved
* in the command being executed (which might be
* one or two, whether there are extra qualifiers
* or not)
*
* Return:
* TRUE : ok to go on
* FALSE: disallowed.
*
*-------------------------------------------------
*/
boolean_t check_disallow(CLI_ENTRY *pparm)
{
static boolean_t (*qual_disallow_func)(void); /* Ptr to disallow function */
boolean_t tmpres;
/* parm should be NULL only for the extra qualifiers table */
if (!pparm)
return TRUE;
qual_disallow_func = pparm->disallow_func;
if (NULL == qual_disallow_func)
return TRUE;
assert(NULL != pparm->parms); /* should never add a line in *_cmd.c with a disallow function and no sub-qualifiers */
/* Copy the error string ahead of time */
SNPRINTF(cli_err_str, MAX_CLI_ERR_STR, "Missing or illegal combination of command elements - check documentation:");
/* point to the end so that individual disallow functions can fill it */
cli_err_str_ptr = cli_err_str + strlen(cli_err_str);
if (qual_disallow_func())
{
return FALSE;
}
/* If there was no error, clear cli_err_str */
*cli_err_str = 0;
return TRUE;
}
|
