]>
git.ipfire.org Git - people/ms/u-boot.git/blob - common/cmd_itest.c
3 * Tait Electronics Limited, Christchurch, New Zealand
5 * SPDX-License-Identifier: GPL-2.0+
9 * This file provides a shell like 'test' function to return
10 * true/false from an integer or string compare of two memory
11 * locations or a location and a scalar/literal.
12 * A few parts were lifted from bash 'test' command
27 char *op
; /* operator string */
28 int opcode
; /* internal representation of opcode */
31 typedef struct op_tbl_s op_tbl_t
;
33 static const op_tbl_t op_table
[] = {
49 static long evalexp(char *s
, int w
)
54 /* if the parameter starts with a * then assume is a pointer to the value we want */
56 p
= (long *)simple_strtoul(&s
[1], NULL
, 16);
58 case 1: return((long)(*(unsigned char *)p
));
59 case 2: return((long)(*(unsigned short *)p
));
63 l
= simple_strtoul(s
, NULL
, 16);
66 return l
& ((1UL << (w
* 8)) - 1);
69 static char * evalstr(char *s
)
71 /* if the parameter starts with a * then assume a string pointer else its a literal */
73 return (char *)simple_strtoul(&s
[1], NULL
, 16);
74 } else if (s
[0] == '$') {
86 return getenv((const char *)&s
[2]);
92 static int stringcomp(char *s
, char *t
, int op
)
102 case EQ
: return (p
== 0);
103 case NE
: return (p
!= 0);
104 case LT
: return (p
< 0);
105 case GT
: return (p
> 0);
106 case LE
: return (p
<= 0);
107 case GE
: return (p
>= 0);
112 static int arithcomp (char *s
, char *t
, int op
, int w
)
120 case EQ
: return (l
== r
);
121 case NE
: return (l
!= r
);
122 case LT
: return (l
< r
);
123 case GT
: return (l
> r
);
124 case LE
: return (l
<= r
);
125 case GE
: return (l
>= r
);
130 static int binary_test(char *op
, char *arg1
, char *arg2
, int w
)
133 const op_tbl_t
*optp
;
137 for (optp
= (op_tbl_t
*)&op_table
, i
= 0;
138 i
< ARRAY_SIZE(op_table
);
141 if ((strncmp (op
, optp
->op
, len
) == 0) && (len
== strlen (optp
->op
))) {
143 return (stringcomp(arg1
, arg2
, optp
->opcode
));
145 return (arithcomp (arg1
, arg2
, optp
->opcode
, w
));
150 printf("Unknown operator '%s'\n", op
);
151 return 0; /* op code not found */
154 /* command line interface to the shell test */
155 static int do_itest(cmd_tbl_t
*cmdtp
, int flag
, int argc
, char * const argv
[])
159 /* Validate arguments */
161 return CMD_RET_USAGE
;
163 /* Check for a data width specification.
164 * Defaults to long (4) if no specification.
165 * Uses -2 as 'width' for .s (string) so as not to upset existing code
167 switch (w
= cmd_get_data_size(argv
[0], 4)) {
171 value
= binary_test (argv
[2], argv
[1], argv
[3], w
);
174 value
= binary_test (argv
[2], argv
[1], argv
[3], 0);
178 puts("Invalid data width specifier\n");
187 itest
, 4, 0, do_itest
,
188 "return true/false on integer compare",
189 "[.b, .w, .l, .s] [*]value1 <op> [*]value2"