3 * Tait Electronics Limited, Christchurch, New Zealand
5 * See file CREDITS for list of people who contributed to this
8 * This program is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU General Public License as
10 * published by the Free Software Foundation; either version 2 of
11 * the License, or (at your option) any later version.
13 * This program is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 * GNU General Public License for more details.
18 * You should have received a copy of the GNU General Public License
19 * along with this program; if not, write to the Free Software
20 * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
25 * This file provides a shell like 'test' function to return
26 * true/false from an integer or string compare of two memory
27 * locations or a location and a scalar/literal.
28 * A few parts were lifted from bash 'test' command
35 #if defined(CONFIG_CMD_ITEST)
45 char *op
; /* operator string */
46 int opcode
; /* internal representation of opcode */
49 typedef struct op_tbl_s op_tbl_t
;
51 op_tbl_t op_table
[] = {
67 #define op_tbl_size (sizeof(op_table)/sizeof(op_table[0]))
69 extern int cmd_get_data_size(char* arg
, int default_size
);
71 static long evalexp(char *s
, int w
)
75 /* if the parameter starts with a * then assume is a pointer to the value we want */
77 p
= (long *)simple_strtoul(&s
[1], NULL
, 16);
80 l
= simple_strtoul(s
, NULL
, 16);
83 return (l
& ((1 << (w
* 8)) - 1));
86 static char * evalstr(char *s
)
88 /* if the parameter starts with a * then assume a string pointer else its a literal */
90 return (char *)simple_strtoul(&s
[1], NULL
, 16);
96 static int stringcomp(char *s
, char *t
, int op
)
104 /* we'll do a compare based on the length of the shortest string */
105 n
= min(strlen(l
), strlen(r
));
107 p
= strncmp(l
, r
, n
);
109 case EQ
: return (p
== 0);
110 case NE
: return (p
!= 0);
111 case LT
: return (p
< 0);
112 case GT
: return (p
> 0);
113 case LE
: return (p
<= 0);
114 case GE
: return (p
>= 0);
119 static int arithcomp (char *s
, char *t
, int op
, int w
)
127 case EQ
: return (l
== r
);
128 case NE
: return (l
!= r
);
129 case LT
: return (l
< r
);
130 case GT
: return (l
> r
);
131 case LE
: return (l
<= r
);
132 case GE
: return (l
>= r
);
137 int binary_test (char *op
, char *arg1
, char *arg2
, int w
)
144 for (optp
= (op_tbl_t
*)&op_table
, i
= 0;
148 if ((strncmp (op
, optp
->op
, len
) == 0) && (len
== strlen (optp
->op
))) {
150 return (stringcomp(arg1
, arg2
, optp
->opcode
));
152 return (arithcomp (arg1
, arg2
, optp
->opcode
, w
));
157 printf("Unknown operator '%s'\n", op
);
158 return 0; /* op code not found */
161 /* command line interface to the shell test */
162 int do_itest ( cmd_tbl_t
*cmdtp
, int flag
, int argc
, char *argv
[] )
166 /* Validate arguments */
168 printf("Usage:\n%s\n", cmdtp
->usage
);
172 /* Check for a data width specification.
173 * Defaults to long (4) if no specification.
174 * Uses -2 as 'width' for .s (string) so as not to upset existing code
176 switch (w
= cmd_get_data_size(argv
[0], 4)) {
180 value
= binary_test (argv
[2], argv
[1], argv
[3], w
);
183 value
= binary_test (argv
[2], argv
[1], argv
[3], 0);
187 puts("Invalid data width specifier\n");
196 itest
, 4, 0, do_itest
,
197 "itest\t- return true/false on integer compare\n",
198 "[.b, .w, .l, .s] [*]value1 <op> [*]value2\n"