2 * Copyright 2008 Freescale Semiconductor, Inc.
4 * See file CREDITS for list of people who contributed to this
7 * This program is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU General Public License as
9 * published by the Free Software Foundation; either version 2 of
10 * the License, or (at your option) any later version.
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
17 * You should have received a copy of the GNU General Public License
18 * along with this program; if not, write to the Free Software
19 * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
24 * This file provides a shell like 'expr' function to return.
31 static ulong get_arg(char *s, int w)
36 * if the parameter starts with a '*' then assume
37 * it is a pointer to the value we want
41 p = (ulong *)simple_strtoul(&s[1], NULL, 16);
43 case 1: return((ulong)(*(uchar *)p));
44 case 2: return((ulong)(*(ushort *)p));
49 return simple_strtoul(s, NULL, 16);
53 static int do_setexpr(cmd_tbl_t *cmdtp, int flag, int argc, char * const argv[])
59 /* Validate arguments */
60 if (argc != 5 && argc != 3)
62 if (argc == 5 && strlen(argv[3]) != 1)
65 w = cmd_get_data_size(argv[0], 4);
67 a = get_arg(argv[2], w);
70 sprintf(buf, "%lx", a);
76 b = get_arg(argv[4], w);
79 case '|': sprintf(buf, "%lx", (a | b)); break;
80 case '&': sprintf(buf, "%lx", (a & b)); break;
81 case '+': sprintf(buf, "%lx", (a + b)); break;
82 case '^': sprintf(buf, "%lx", (a ^ b)); break;
83 case '-': sprintf(buf, "%lx", (a - b)); break;
84 case '*': sprintf(buf, "%lx", (a * b)); break;
85 case '/': sprintf(buf, "%lx", (a / b)); break;
86 case '%': sprintf(buf, "%lx", (a % b)); break;
88 printf("invalid op\n");
98 setexpr, 5, 0, do_setexpr,
99 "set environment variable as the result of eval expression",
100 "[.b, .w, .l] name [*]value1 <op> [*]value2\n"
101 " - set environment variable 'name' to the result of the evaluated\n"
102 " express specified by <op>. <op> can be &, |, ^, +, -, *, /, %\n"
103 " size argument is only meaningful if value1 and/or value2 are\n"
104 " memory addresses (*)\n"
105 "setexpr[.b, .w, .l] name *value\n"
106 " - load a memory address into a variable"