[people/ms/u-boot.git] / common / cmd_nvedit.c

/*
 * (C) Copyright 2000-2002
 * Wolfgang Denk, DENX Software Engineering, wd@denx.de.
 *
 * (C) Copyright 2001 Sysgo Real-Time Solutions, GmbH <www.elinos.com>
 * Andreas Heppel <aheppel@sysgo.de>

 * See file CREDITS for list of people who contributed to this
 * project.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License as
 * published by the Free Software Foundation; either version 2 of
 * the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.	 See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
 * MA 02111-1307 USA
 */

/**************************************************************************
 *
 * Support for persistent environment data
 *
 * The "environment" is stored as a list of '\0' terminated
 * "name=value" strings. The end of the list is marked by a double
 * '\0'. New entries are always added at the end. Deleting an entry
 * shifts the remaining entries to the front. Replacing an entry is a
 * combination of deleting the old value and adding the new one.
 *
 * The environment is preceeded by a 32 bit CRC over the data part.
 *
 **************************************************************************
 */

#include <common.h>
#include <command.h>
#include <environment.h>
#include <watchdog.h>
#include <serial.h>
#include <linux/stddef.h>
#include <asm/byteorder.h>
#if defined(CONFIG_CMD_NET)
#include <net.h>
#endif

DECLARE_GLOBAL_DATA_PTR;

#if !defined(CONFIG_ENV_IS_IN_NVRAM)	&& \
    !defined(CONFIG_ENV_IS_IN_EEPROM)	&& \
    !defined(CONFIG_ENV_IS_IN_FLASH)	&& \
    !defined(CONFIG_ENV_IS_IN_DATAFLASH)	&& \
    !defined(CONFIG_ENV_IS_IN_NAND)	&& \
    !defined(CONFIG_ENV_IS_IN_ONENAND)	&& \
    !defined(CONFIG_ENV_IS_IN_SPI_FLASH)	&& \
    !defined(CONFIG_ENV_IS_NOWHERE)
# error Define one of CONFIG_ENV_IS_IN_{NVRAM|EEPROM|FLASH|DATAFLASH|ONENAND|SPI_FLASH|NOWHERE}
#endif

#define XMK_STR(x)	#x
#define MK_STR(x)	XMK_STR(x)

/************************************************************************
************************************************************************/

/*
 * Table with supported baudrates (defined in config_xyz.h)
 */
static const unsigned long baudrate_table[] = CONFIG_SYS_BAUDRATE_TABLE;
#define	N_BAUDRATES (sizeof(baudrate_table) / sizeof(baudrate_table[0]))


/************************************************************************
 * Command interface: print one or all environment variables
 */

int do_printenv (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
{
	int i, j, k, nxt;
	int rcode = 0;

	if (argc == 1) {		/* Print all env variables	*/
		for (i=0; env_get_char(i) != '\0'; i=nxt+1) {
			for (nxt=i; env_get_char(nxt) != '\0'; ++nxt)
				;
			for (k=i; k<nxt; ++k)
				putc(env_get_char(k));
			putc  ('\n');

			if (ctrlc()) {
				puts ("\n ** Abort\n");
				return 1;
			}
		}

		printf("\nEnvironment size: %d/%ld bytes\n",
			i, (ulong)ENV_SIZE);

		return 0;
	}

	for (i=1; i<argc; ++i) {	/* print single env variables	*/
		char *name = argv[i];

		k = -1;

		for (j=0; env_get_char(j) != '\0'; j=nxt+1) {

			for (nxt=j; env_get_char(nxt) != '\0'; ++nxt)
				;
			k = envmatch((uchar *)name, j);
			if (k < 0) {
				continue;
			}
			puts (name);
			putc ('=');
			while (k < nxt)
				putc(env_get_char(k++));
			putc ('\n');
			break;
		}
		if (k < 0) {
			printf ("## Error: \"%s\" not defined\n", name);
			rcode ++;
		}
	}
	return rcode;
}

/************************************************************************
 * Set a new environment variable,
 * or replace or delete an existing one.
 *
 * This function will ONLY work with a in-RAM copy of the environment
 */

int _do_setenv (int flag, int argc, char *argv[])
{
	int   i, len, oldval;
	int   console = -1;
	uchar *env, *nxt = NULL;
	char *name;
	bd_t *bd = gd->bd;

	uchar *env_data = env_get_addr(0);

	if (!env_data)	/* need copy in RAM */
		return 1;

	name = argv[1];

	if (strchr(name, '=')) {
		printf ("## Error: illegal character '=' in variable name \"%s\"\n", name);
		return 1;
	}

	/*
	 * search if variable with this name already exists
	 */
	oldval = -1;
	for (env=env_data; *env; env=nxt+1) {
		for (nxt=env; *nxt; ++nxt)
			;
		if ((oldval = envmatch((uchar *)name, env-env_data)) >= 0)
			break;
	}

	/*
	 * Delete any existing definition
	 */
	if (oldval >= 0) {
#ifndef CONFIG_ENV_OVERWRITE

		/*
		 * Ethernet Address and serial# can be set only once,
		 * ver is readonly.
		 */
		if (
#ifdef CONFIG_HAS_UID
		/* Allow serial# forced overwrite with 0xdeaf4add flag */
		    ((strcmp (name, "serial#") == 0) && (flag != 0xdeaf4add)) ||
#else
		    (strcmp (name, "serial#") == 0) ||
#endif
		    ((strcmp (name, "ethaddr") == 0)
#if defined(CONFIG_OVERWRITE_ETHADDR_ONCE) && defined(CONFIG_ETHADDR)
		     && (strcmp ((char *)env_get_addr(oldval),MK_STR(CONFIG_ETHADDR)) != 0)
#endif	/* CONFIG_OVERWRITE_ETHADDR_ONCE && CONFIG_ETHADDR */
		    ) ) {
			printf ("Can't overwrite \"%s\"\n", name);
			return 1;
		}
#endif

		/* Check for console redirection */
		if (strcmp(name,"stdin") == 0) {
			console = stdin;
		} else if (strcmp(name,"stdout") == 0) {
			console = stdout;
		} else if (strcmp(name,"stderr") == 0) {
			console = stderr;
		}

		if (console != -1) {
			if (argc < 3) {		/* Cannot delete it! */
				printf("Can't delete \"%s\"\n", name);
				return 1;
			}

			/* Try assigning specified device */
			if (console_assign (console, argv[2]) < 0)
				return 1;

#ifdef CONFIG_SERIAL_MULTI
			if (serial_assign (argv[2]) < 0)
				return 1;
#endif
		}

		/*
		 * Switch to new baudrate if new baudrate is supported
		 */
		if (strcmp(argv[1],"baudrate") == 0) {
			int baudrate = simple_strtoul(argv[2], NULL, 10);
			int i;
			for (i=0; i<N_BAUDRATES; ++i) {
				if (baudrate == baudrate_table[i])
					break;
			}
			if (i == N_BAUDRATES) {
				printf ("## Baudrate %d bps not supported\n",
					baudrate);
				return 1;
			}
			printf ("## Switch baudrate to %d bps and press ENTER ...\n",
				baudrate);
			udelay(50000);
			gd->baudrate = baudrate;
#if defined(CONFIG_PPC) || defined(CONFIG_MCF52x2)
			gd->bd->bi_baudrate = baudrate;
#endif

			serial_setbrg ();
			udelay(50000);
			for (;;) {
				if (getc() == '\r')
				      break;
			}
		}

		if (*++nxt == '\0') {
			if (env > env_data) {
				env--;
			} else {
				*env = '\0';
			}
		} else {
			for (;;) {
				*env = *nxt++;
				if ((*env == '\0') && (*nxt == '\0'))
					break;
				++env;
			}
		}
		*++env = '\0';
	}

#ifdef CONFIG_NET_MULTI
	if (strncmp(name, "eth", 3) == 0) {
		char *end;
		int   num = simple_strtoul(name+3, &end, 10);

		if (strcmp(end, "addr") == 0) {
			eth_set_enetaddr(num, argv[2]);
		}
	}
#endif


	/* Delete only ? */
	if ((argc < 3) || argv[2] == NULL) {
		env_crc_update ();
		return 0;
	}

	/*
	 * Append new definition at the end
	 */
	for (env=env_data; *env || *(env+1); ++env)
		;
	if (env > env_data)
		++env;
	/*
	 * Overflow when:
	 * "name" + "=" + "val" +"\0\0"  > ENV_SIZE - (env-env_data)
	 */
	len = strlen(name) + 2;
	/* add '=' for first arg, ' ' for all others */
	for (i=2; i<argc; ++i) {
		len += strlen(argv[i]) + 1;
	}
	if (len > (&env_data[ENV_SIZE]-env)) {
		printf ("## Error: environment overflow, \"%s\" deleted\n", name);
		return 1;
	}
	while ((*env = *name++) != '\0')
		env++;
	for (i=2; i<argc; ++i) {
		char *val = argv[i];

		*env = (i==2) ? '=' : ' ';
		while ((*++env = *val++) != '\0')
			;
	}

	/* end is marked with double '\0' */
	*++env = '\0';

	/* Update CRC */
	env_crc_update ();

	/*
	 * Some variables should be updated when the corresponding
	 * entry in the enviornment is changed
	 */

	if (strcmp(argv[1],"ethaddr") == 0) {
		char *s = argv[2];	/* always use only one arg */
		char *e;
		for (i=0; i<6; ++i) {
			bd->bi_enetaddr[i] = s ? simple_strtoul(s, &e, 16) : 0;
			if (s) s = (*e) ? e+1 : e;
		}
#ifdef CONFIG_NET_MULTI
		eth_set_enetaddr(0, argv[2]);
#endif
		return 0;
	}

	if (strcmp(argv[1],"ipaddr") == 0) {
		char *s = argv[2];	/* always use only one arg */
		char *e;
		unsigned long addr;
		bd->bi_ip_addr = 0;
		for (addr=0, i=0; i<4; ++i) {
			ulong val = s ? simple_strtoul(s, &e, 10) : 0;
			addr <<= 8;
			addr  |= (val & 0xFF);
			if (s) s = (*e) ? e+1 : e;
		}
		bd->bi_ip_addr = htonl(addr);
		return 0;
	}
	if (strcmp(argv[1],"loadaddr") == 0) {
		load_addr = simple_strtoul(argv[2], NULL, 16);
		return 0;
	}
#if defined(CONFIG_CMD_NET)
	if (strcmp(argv[1],"bootfile") == 0) {
		copy_filename (BootFile, argv[2], sizeof(BootFile));
		return 0;
	}
#endif

#ifdef CONFIG_AMIGAONEG3SE
	if (strcmp(argv[1], "vga_fg_color") == 0 ||
	    strcmp(argv[1], "vga_bg_color") == 0 ) {
		extern void video_set_color(unsigned char attr);
		extern unsigned char video_get_attr(void);

		video_set_color(video_get_attr());
		return 0;
	}
#endif	/* CONFIG_AMIGAONEG3SE */

	return 0;
}

int setenv (char *varname, char *varvalue)
{
	char *argv[4] = { "setenv", varname, varvalue, NULL };
	if (varvalue == NULL)
		return _do_setenv (0, 2, argv);
	else
		return _do_setenv (0, 3, argv);
}

#ifdef CONFIG_HAS_UID
void forceenv (char *varname, char *varvalue)
{
	char *argv[4] = { "forceenv", varname, varvalue, NULL };
	_do_setenv (0xdeaf4add, 3, argv);
}
#endif

int do_setenv (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
{
	if (argc < 2) {
		printf ("Usage:\n%s\n", cmdtp->usage);
		return 1;
	}

	return _do_setenv (flag, argc, argv);
}

/************************************************************************
 * Prompt for environment variable
 */

#if defined(CONFIG_CMD_ASKENV)
int do_askenv ( cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
{
	extern char console_buffer[CONFIG_SYS_CBSIZE];
	char message[CONFIG_SYS_CBSIZE];
	int size = CONFIG_SYS_CBSIZE - 1;
	int len;
	char *local_args[4];

	local_args[0] = argv[0];
	local_args[1] = argv[1];
	local_args[2] = NULL;
	local_args[3] = NULL;

	if (argc < 2) {
		printf ("Usage:\n%s\n", cmdtp->usage);
		return 1;
	}
	/* Check the syntax */
	switch (argc) {
	case 1:
		printf ("Usage:\n%s\n", cmdtp->usage);
		return 1;

	case 2:		/* askenv envname */
		sprintf (message, "Please enter '%s':", argv[1]);
		break;

	case 3:		/* askenv envname size */
		sprintf (message, "Please enter '%s':", argv[1]);
		size = simple_strtoul (argv[2], NULL, 10);
		break;

	default:	/* askenv envname message1 ... messagen size */
	    {
		int i;
		int pos = 0;

		for (i = 2; i < argc - 1; i++) {
			if (pos) {
				message[pos++] = ' ';
			}
			strcpy (message+pos, argv[i]);
			pos += strlen(argv[i]);
		}
		message[pos] = '\0';
		size = simple_strtoul (argv[argc - 1], NULL, 10);
	    }
		break;
	}

	if (size >= CONFIG_SYS_CBSIZE)
		size = CONFIG_SYS_CBSIZE - 1;

	if (size <= 0)
		return 1;

	/* prompt for input */
	len = readline (message);

	if (size < len)
		console_buffer[size] = '\0';

	len = 2;
	if (console_buffer[0] != '\0') {
		local_args[2] = console_buffer;
		len = 3;
	}

	/* Continue calling setenv code */
	return _do_setenv (flag, len, local_args);
}
#endif

/************************************************************************
 * Look up variable from environment,
 * return address of storage for that variable,
 * or NULL if not found
 */

char *getenv (char *name)
{
	int i, nxt;

	WATCHDOG_RESET();

	for (i=0; env_get_char(i) != '\0'; i=nxt+1) {
		int val;

		for (nxt=i; env_get_char(nxt) != '\0'; ++nxt) {
			if (nxt >= CONFIG_ENV_SIZE) {
				return (NULL);
			}
		}
		if ((val=envmatch((uchar *)name, i)) < 0)
			continue;
		return ((char *)env_get_addr(val));
	}

	return (NULL);
}

int getenv_r (char *name, char *buf, unsigned len)
{
	int i, nxt;

	for (i=0; env_get_char(i) != '\0'; i=nxt+1) {
		int val, n;

		for (nxt=i; env_get_char(nxt) != '\0'; ++nxt) {
			if (nxt >= CONFIG_ENV_SIZE) {
				return (-1);
			}
		}
		if ((val=envmatch((uchar *)name, i)) < 0)
			continue;
		/* found; copy out */
		n = 0;
		while ((len > n++) && (*buf++ = env_get_char(val++)) != '\0')
			;
		if (len == n)
			*buf = '\0';
		return (n);
	}
	return (-1);
}

#if ((defined(CONFIG_ENV_IS_IN_NVRAM) || defined(CONFIG_ENV_IS_IN_EEPROM) \
    || (defined(CONFIG_CMD_ENV) && defined(CONFIG_CMD_FLASH)) \
    || (defined(CONFIG_CMD_ENV) && defined(CONFIG_CMD_NAND)) \
    || (defined(CONFIG_CMD_ENV) && defined(CONFIG_CMD_ONENAND))) \
    && !defined(CONFIG_ENV_IS_NOWHERE))
int do_saveenv (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
{
	extern char * env_name_spec;

	printf ("Saving Environment to %s...\n", env_name_spec);

	return (saveenv() ? 1 : 0);
}

#endif


/************************************************************************
 * Match a name / name=value pair
 *
 * s1 is either a simple 'name', or a 'name=value' pair.
 * i2 is the environment index for a 'name2=value2' pair.
 * If the names match, return the index for the value2, else NULL.
 */

int envmatch (uchar *s1, int i2)
{

	while (*s1 == env_get_char(i2++))
		if (*s1++ == '=')
			return(i2);
	if (*s1 == '\0' && env_get_char(i2-1) == '=')
		return(i2);
	return(-1);
}


/**************************************************/

U_BOOT_CMD(
	printenv, CONFIG_SYS_MAXARGS, 1,	do_printenv,
	"printenv- print environment variables\n",
	"\n    - print values of all environment variables\n"
	"printenv name ...\n"
	"    - print value of environment variable 'name'\n"
);

U_BOOT_CMD(
	setenv, CONFIG_SYS_MAXARGS, 0,	do_setenv,
	"setenv  - set environment variables\n",
	"name value ...\n"
	"    - set environment variable 'name' to 'value ...'\n"
	"setenv name\n"
	"    - delete environment variable 'name'\n"
);

#if ((defined(CONFIG_ENV_IS_IN_NVRAM) || defined(CONFIG_ENV_IS_IN_EEPROM) \
    || (defined(CONFIG_CMD_ENV) && defined(CONFIG_CMD_FLASH)) \
    || (defined(CONFIG_CMD_ENV) && defined(CONFIG_CMD_NAND)) \
    || (defined(CONFIG_CMD_ENV) && defined(CONFIG_CMD_ONENAND))) \
    && !defined(CONFIG_ENV_IS_NOWHERE))
U_BOOT_CMD(
	saveenv, 1, 0,	do_saveenv,
	"saveenv - save environment variables to persistent storage\n",
	NULL
);

#endif

#if defined(CONFIG_CMD_ASKENV)

U_BOOT_CMD(
	askenv,	CONFIG_SYS_MAXARGS,	1,	do_askenv,
	"askenv  - get environment variables from stdin\n",
	"name [message] [size]\n"
	"    - get environment variable 'name' from stdin (max 'size' chars)\n"
	"askenv name\n"
	"    - get environment variable 'name' from stdin\n"
	"askenv name size\n"
	"    - get environment variable 'name' from stdin (max 'size' chars)\n"
	"askenv name [message] size\n"
	"    - display 'message' string and get environment variable 'name'"
	"from stdin (max 'size' chars)\n"
);
#endif

#if defined(CONFIG_CMD_RUN)
int do_run (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[]);
U_BOOT_CMD(
	run,	CONFIG_SYS_MAXARGS,	1,	do_run,
	"run     - run commands in an environment variable\n",
	"var [...]\n"
	"    - run the commands in the environment variable(s) 'var'\n"
);
#endif
Commit	Line	Data
a68d3ed0 WD	1	/*
	2	* (C) Copyright 2000-2002
	3	* Wolfgang Denk, DENX Software Engineering, wd@denx.de.
	4	*
	5	* (C) Copyright 2001 Sysgo Real-Time Solutions, GmbH <www.elinos.com>
	6	* Andreas Heppel <aheppel@sysgo.de>
	7
	8	* See file CREDITS for list of people who contributed to this
	9	* project.
	10	*
	11	* This program is free software; you can redistribute it and/or
	12	* modify it under the terms of the GNU General Public License as
	13	* published by the Free Software Foundation; either version 2 of
	14	* the License, or (at your option) any later version.
	15	*
	16	* This program is distributed in the hope that it will be useful,
	17	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	18	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	19	* GNU General Public License for more details.
	20	*
	21	* You should have received a copy of the GNU General Public License
	22	* along with this program; if not, write to the Free Software
	23	* Foundation, Inc., 59 Temple Place, Suite 330, Boston,
	24	* MA 02111-1307 USA
	25	*/
	26
	27	/**************************************************************************
	28	*
	29	* Support for persistent environment data
	30	*
	31	* The "environment" is stored as a list of '\0' terminated
	32	* "name=value" strings. The end of the list is marked by a double
	33	* '\0'. New entries are always added at the end. Deleting an entry
	34	* shifts the remaining entries to the front. Replacing an entry is a
	35	* combination of deleting the old value and adding the new one.
	36	*
	37	* The environment is preceeded by a 32 bit CRC over the data part.
	38	*
	39	**************************************************************************
	40	*/
	41
	42	#include <common.h>
	43	#include <command.h>
	44	#include <environment.h>
2a3cb020	45	#include <watchdog.h>
281e00a3	46	#include <serial.h>
a68d3ed0 WD	47	#include <linux/stddef.h>
a68d3ed0 WD	48	#include <asm/byteorder.h>
c76fe474	49	#if defined(CONFIG_CMD_NET)
a68d3ed0 WD	50	#include <net.h>
	51	#endif
	52
d87080b7 WD	53	DECLARE_GLOBAL_DATA_PTR;
d87080b7 WD	54
9314cee6	55	#if !defined(CONFIG_ENV_IS_IN_NVRAM) && \
bb1f8b4f	56	!defined(CONFIG_ENV_IS_IN_EEPROM) && \
5a1aceb0	57	!defined(CONFIG_ENV_IS_IN_FLASH) && \
057c849c	58	!defined(CONFIG_ENV_IS_IN_DATAFLASH) && \
51bfee19	59	!defined(CONFIG_ENV_IS_IN_NAND) && \
9656138f	60	!defined(CONFIG_ENV_IS_IN_ONENAND) && \
0b5099a8	61	!defined(CONFIG_ENV_IS_IN_SPI_FLASH) && \
93f6d725	62	!defined(CONFIG_ENV_IS_NOWHERE)
1ede7871	63	# error Define one of CONFIG_ENV_IS_IN_{NVRAM\|EEPROM\|FLASH\|DATAFLASH\|ONENAND\|SPI_FLASH\|NOWHERE}
a68d3ed0 WD	64	#endif
	65
	66	#define XMK_STR(x) #x
	67	#define MK_STR(x) XMK_STR(x)
	68
	69	/************************************************************************
	70	************************************************************************/
	71
a68d3ed0 WD	72	/*
	73	* Table with supported baudrates (defined in config_xyz.h)
	74	*/
6d0f6bcf	75	static const unsigned long baudrate_table[] = CONFIG_SYS_BAUDRATE_TABLE;
a68d3ed0 WD	76	#define N_BAUDRATES (sizeof(baudrate_table) / sizeof(baudrate_table[0]))
	77
	78
	79	/************************************************************************
	80	* Command interface: print one or all environment variables
	81	*/
	82
	83	int do_printenv (cmd_tbl_t cmdtp, int flag, int argc, char argv[])
	84	{
	85	int i, j, k, nxt;
	86	int rcode = 0;
	87
	88	if (argc == 1) { /* Print all env variables */
	89	for (i=0; env_get_char(i) != '\0'; i=nxt+1) {
	90	for (nxt=i; env_get_char(nxt) != '\0'; ++nxt)
	91	;
	92	for (k=i; k<nxt; ++k)
	93	putc(env_get_char(k));
	94	putc ('\n');
	95
	96	if (ctrlc()) {
	97	puts ("\n ** Abort\n");
	98	return 1;
	99	}
	100	}
	101
d5996dd5 WD	102	printf("\nEnvironment size: %d/%ld bytes\n",
d5996dd5 WD	103	i, (ulong)ENV_SIZE);
a68d3ed0 WD	104
	105	return 0;
	106	}
	107
	108	for (i=1; i<argc; ++i) { /* print single env variables */
	109	char *name = argv[i];
	110
	111	k = -1;
	112
	113	for (j=0; env_get_char(j) != '\0'; j=nxt+1) {
	114
	115	for (nxt=j; env_get_char(nxt) != '\0'; ++nxt)
	116	;
77ddac94	117	k = envmatch((uchar *)name, j);
a68d3ed0 WD	118	if (k < 0) {
	119	continue;
	120	}
	121	puts (name);
	122	putc ('=');
	123	while (k < nxt)
	124	putc(env_get_char(k++));
	125	putc ('\n');
	126	break;
	127	}
	128	if (k < 0) {
	129	printf ("## Error: \"%s\" not defined\n", name);
	130	rcode ++;
	131	}
	132	}
	133	return rcode;
	134	}
	135
	136	/************************************************************************
	137	* Set a new environment variable,
	138	* or replace or delete an existing one.
	139	*
	140	* This function will ONLY work with a in-RAM copy of the environment
	141	*/
	142
	143	int _do_setenv (int flag, int argc, char *argv[])
	144	{
a68d3ed0 WD	145	int i, len, oldval;
	146	int console = -1;
	147	uchar env, nxt = NULL;
77ddac94	148	char *name;
a68d3ed0 WD	149	bd_t *bd = gd->bd;
	150
	151	uchar *env_data = env_get_addr(0);
	152
	153	if (!env_data) /* need copy in RAM */
	154	return 1;
	155
	156	name = argv[1];
	157
471a7be7 WD	158	if (strchr(name, '=')) {
	159	printf ("## Error: illegal character '=' in variable name \"%s\"\n", name);
	160	return 1;
	161	}
	162
a68d3ed0 WD	163	/*
	164	* search if variable with this name already exists
	165	*/
	166	oldval = -1;
	167	for (env=env_data; *env; env=nxt+1) {
	168	for (nxt=env; *nxt; ++nxt)
	169	;
77ddac94	170	if ((oldval = envmatch((uchar *)name, env-env_data)) >= 0)
a68d3ed0 WD	171	break;
	172	}
	173
	174	/*
	175	* Delete any existing definition
	176	*/
	177	if (oldval >= 0) {
	178	#ifndef CONFIG_ENV_OVERWRITE
	179
	180	/*
0587597c SR	181	* Ethernet Address and serial# can be set only once,
0587597c SR	182	* ver is readonly.
a68d3ed0	183	*/
f6a69559	184	if (
c74b2108 SK	185	#ifdef CONFIG_HAS_UID
c74b2108 SK	186	/* Allow serial# forced overwrite with 0xdeaf4add flag */
f6a69559	187	((strcmp (name, "serial#") == 0) && (flag != 0xdeaf4add)) \|\|
c74b2108	188	#else
f6a69559	189	(strcmp (name, "serial#") == 0) \|\|
c74b2108	190	#endif
a68d3ed0 WD	191	((strcmp (name, "ethaddr") == 0)
a68d3ed0 WD	192	#if defined(CONFIG_OVERWRITE_ETHADDR_ONCE) && defined(CONFIG_ETHADDR)
77ddac94	193	&& (strcmp ((char *)env_get_addr(oldval),MK_STR(CONFIG_ETHADDR)) != 0)
a68d3ed0 WD	194	#endif /* CONFIG_OVERWRITE_ETHADDR_ONCE && CONFIG_ETHADDR */
	195	) ) {
	196	printf ("Can't overwrite \"%s\"\n", name);
	197	return 1;
	198	}
	199	#endif
	200
	201	/* Check for console redirection */
	202	if (strcmp(name,"stdin") == 0) {
	203	console = stdin;
	204	} else if (strcmp(name,"stdout") == 0) {
	205	console = stdout;
	206	} else if (strcmp(name,"stderr") == 0) {
	207	console = stderr;
	208	}
	209
	210	if (console != -1) {
	211	if (argc < 3) { /* Cannot delete it! */
	212	printf("Can't delete \"%s\"\n", name);
	213	return 1;
	214	}
	215
	216	/* Try assigning specified device */
	217	if (console_assign (console, argv[2]) < 0)
	218	return 1;
281e00a3 WD	219
	220	#ifdef CONFIG_SERIAL_MULTI
	221	if (serial_assign (argv[2]) < 0)
	222	return 1;
	223	#endif
a68d3ed0 WD	224	}
	225
	226	/*
	227	* Switch to new baudrate if new baudrate is supported
	228	*/
	229	if (strcmp(argv[1],"baudrate") == 0) {
	230	int baudrate = simple_strtoul(argv[2], NULL, 10);
	231	int i;
	232	for (i=0; i<N_BAUDRATES; ++i) {
	233	if (baudrate == baudrate_table[i])
	234	break;
	235	}
	236	if (i == N_BAUDRATES) {
	237	printf ("## Baudrate %d bps not supported\n",
	238	baudrate);
	239	return 1;
	240	}
	241	printf ("## Switch baudrate to %d bps and press ENTER ...\n",
	242	baudrate);
	243	udelay(50000);
	244	gd->baudrate = baudrate;
c84bad0e	245	#if defined(CONFIG_PPC) \|\| defined(CONFIG_MCF52x2)
d0fb80c3 WD	246	gd->bd->bi_baudrate = baudrate;
	247	#endif
	248
a68d3ed0 WD	249	serial_setbrg ();
	250	udelay(50000);
	251	for (;;) {
	252	if (getc() == '\r')
	253	break;
	254	}
	255	}
	256
	257	if (*++nxt == '\0') {
	258	if (env > env_data) {
	259	env--;
	260	} else {
	261	*env = '\0';
	262	}
	263	} else {
	264	for (;;) {
	265	env = nxt++;
	266	if ((env == '\0') && (nxt == '\0'))
	267	break;
	268	++env;
	269	}
	270	}
	271	*++env = '\0';
	272	}
	273
	274	#ifdef CONFIG_NET_MULTI
	275	if (strncmp(name, "eth", 3) == 0) {
	276	char *end;
	277	int num = simple_strtoul(name+3, &end, 10);
	278
	279	if (strcmp(end, "addr") == 0) {
	280	eth_set_enetaddr(num, argv[2]);
	281	}
	282	}
	283	#endif
	284
	285
	286	/* Delete only ? */
	287	if ((argc < 3) \|\| argv[2] == NULL) {
	288	env_crc_update ();
	289	return 0;
	290	}
	291
	292	/*
	293	* Append new definition at the end
	294	*/
	295	for (env=env_data; env \|\| (env+1); ++env)
	296	;
	297	if (env > env_data)
	298	++env;
	299	/*
	300	* Overflow when:
	301	* "name" + "=" + "val" +"\0\0" > ENV_SIZE - (env-env_data)
	302	*/
	303	len = strlen(name) + 2;
	304	/* add '=' for first arg, ' ' for all others */
	305	for (i=2; i<argc; ++i) {
	306	len += strlen(argv[i]) + 1;
	307	}
	308	if (len > (&env_data[ENV_SIZE]-env)) {
	309	printf ("## Error: environment overflow, \"%s\" deleted\n", name);
	310	return 1;
	311	}
	312	while ((env = name++) != '\0')
313	env++;
314	for (i=2; i<argc; ++i) {
315	char *val = argv[i];
316
317	*env = (i==2) ? '=' : ' ';
318	while ((++env = val++) != '\0')
319	;
320	}
321
322	/* end is marked with double '\0' */
323	*++env = '\0';
324
325	/* Update CRC */
326	env_crc_update ();
327
328	/*
329	* Some variables should be updated when the corresponding
330	* entry in the enviornment is changed
331	*/
332
333	if (strcmp(argv[1],"ethaddr") == 0) {
334	char s = argv[2]; / always use only one arg */
335	char *e;
336	for (i=0; i<6; ++i) {
337	bd->bi_enetaddr[i] = s ? simple_strtoul(s, &e, 16) : 0;
338	if (s) s = (*e) ? e+1 : e;
339	}
340	#ifdef CONFIG_NET_MULTI
341	eth_set_enetaddr(0, argv[2]);
342	#endif
343	return 0;
344	}
345
346	if (strcmp(argv[1],"ipaddr") == 0) {
347	char s = argv[2]; / always use only one arg */
348	char *e;
349	unsigned long addr;
350	bd->bi_ip_addr = 0;
351	for (addr=0, i=0; i<4; ++i) {
352	ulong val = s ? simple_strtoul(s, &e, 10) : 0;
353	addr <<= 8;
354	addr \|= (val & 0xFF);
355	if (s) s = (*e) ? e+1 : e;
356	}
357	bd->bi_ip_addr = htonl(addr);
358	return 0;
359	}
360	if (strcmp(argv[1],"loadaddr") == 0) {
361	load_addr = simple_strtoul(argv[2], NULL, 16);
362	return 0;
363	}
c76fe474	364	#if defined(CONFIG_CMD_NET)
a68d3ed0 WD	365	if (strcmp(argv[1],"bootfile") == 0) {
	366	copy_filename (BootFile, argv[2], sizeof(BootFile));
	367	return 0;
	368	}
90253178	369	#endif
c7de829c	370
0587597c	371	#ifdef CONFIG_AMIGAONEG3SE
c7de829c WD	372	if (strcmp(argv[1], "vga_fg_color") == 0 \|\|
	373	strcmp(argv[1], "vga_bg_color") == 0 ) {
	374	extern void video_set_color(unsigned char attr);
	375	extern unsigned char video_get_attr(void);
	376
	377	video_set_color(video_get_attr());
	378	return 0;
	379	}
	380	#endif /* CONFIG_AMIGAONEG3SE */
	381
a68d3ed0 WD	382	return 0;
	383	}
	384
75678c80	385	int setenv (char varname, char varvalue)
a68d3ed0 WD	386	{
a68d3ed0 WD	387	char *argv[4] = { "setenv", varname, varvalue, NULL };
9ffd451a	388	if (varvalue == NULL)
75678c80	389	return _do_setenv (0, 2, argv);
9ffd451a	390	else
75678c80	391	return _do_setenv (0, 3, argv);
a68d3ed0 WD	392	}
a68d3ed0 WD	393
c74b2108 SK	394	#ifdef CONFIG_HAS_UID
	395	void forceenv (char varname, char varvalue)
	396	{
	397	char *argv[4] = { "forceenv", varname, varvalue, NULL };
	398	_do_setenv (0xdeaf4add, 3, argv);
	399	}
	400	#endif
	401
	402	int do_setenv (cmd_tbl_t cmdtp, int flag, int argc, char argv[])
a68d3ed0 WD	403	{
	404	if (argc < 2) {
	405	printf ("Usage:\n%s\n", cmdtp->usage);
	406	return 1;
	407	}
	408
	409	return _do_setenv (flag, argc, argv);
	410	}
	411
	412	/************************************************************************
	413	* Prompt for environment variable
	414	*/
	415
c76fe474	416	#if defined(CONFIG_CMD_ASKENV)
a68d3ed0 WD	417	int do_askenv ( cmd_tbl_t cmdtp, int flag, int argc, char argv[])
a68d3ed0 WD	418	{
6d0f6bcf JCPV	419	extern char console_buffer[CONFIG_SYS_CBSIZE];
	420	char message[CONFIG_SYS_CBSIZE];
	421	int size = CONFIG_SYS_CBSIZE - 1;
a68d3ed0 WD	422	int len;
	423	char *local_args[4];
	424
	425	local_args[0] = argv[0];
	426	local_args[1] = argv[1];
	427	local_args[2] = NULL;
	428	local_args[3] = NULL;
	429
	430	if (argc < 2) {
	431	printf ("Usage:\n%s\n", cmdtp->usage);
	432	return 1;
	433	}
	434	/* Check the syntax */
	435	switch (argc) {
	436	case 1:
	437	printf ("Usage:\n%s\n", cmdtp->usage);
	438	return 1;
	439
	440	case 2: /* askenv envname */
	441	sprintf (message, "Please enter '%s':", argv[1]);
	442	break;
	443
	444	case 3: /* askenv envname size */
	445	sprintf (message, "Please enter '%s':", argv[1]);
	446	size = simple_strtoul (argv[2], NULL, 10);
	447	break;
	448
	449	default: /* askenv envname message1 ... messagen size */
	450	{
	451	int i;
	452	int pos = 0;
	453
	454	for (i = 2; i < argc - 1; i++) {
	455	if (pos) {
	456	message[pos++] = ' ';
	457	}
	458	strcpy (message+pos, argv[i]);
	459	pos += strlen(argv[i]);
	460	}
	461	message[pos] = '\0';
	462	size = simple_strtoul (argv[argc - 1], NULL, 10);
	463	}
	464	break;
	465	}
	466
6d0f6bcf JCPV	467	if (size >= CONFIG_SYS_CBSIZE)
6d0f6bcf JCPV	468	size = CONFIG_SYS_CBSIZE - 1;
a68d3ed0 WD	469
	470	if (size <= 0)
	471	return 1;
	472
	473	/* prompt for input */
	474	len = readline (message);
	475
	476	if (size < len)
	477	console_buffer[size] = '\0';
	478
	479	len = 2;
	480	if (console_buffer[0] != '\0') {
	481	local_args[2] = console_buffer;
	482	len = 3;
	483	}
	484
	485	/* Continue calling setenv code */
	486	return _do_setenv (flag, len, local_args);
	487	}
90253178	488	#endif
a68d3ed0 WD	489
	490	/************************************************************************
	491	* Look up variable from environment,
	492	* return address of storage for that variable,
	493	* or NULL if not found
	494	*/
	495
77ddac94	496	char getenv (char name)
a68d3ed0 WD	497	{
	498	int i, nxt;
	499
2a3cb020 WD	500	WATCHDOG_RESET();
2a3cb020 WD	501
a68d3ed0 WD	502	for (i=0; env_get_char(i) != '\0'; i=nxt+1) {
	503	int val;
	504
	505	for (nxt=i; env_get_char(nxt) != '\0'; ++nxt) {
0e8d1586	506	if (nxt >= CONFIG_ENV_SIZE) {
a68d3ed0 WD	507	return (NULL);
	508	}
	509	}
77ddac94	510	if ((val=envmatch((uchar *)name, i)) < 0)
a68d3ed0	511	continue;
77ddac94	512	return ((char *)env_get_addr(val));
a68d3ed0 WD	513	}
	514
	515	return (NULL);
	516	}
	517
77ddac94	518	int getenv_r (char name, char buf, unsigned len)
a68d3ed0 WD	519	{
	520	int i, nxt;
	521
	522	for (i=0; env_get_char(i) != '\0'; i=nxt+1) {
	523	int val, n;
	524
	525	for (nxt=i; env_get_char(nxt) != '\0'; ++nxt) {
0e8d1586	526	if (nxt >= CONFIG_ENV_SIZE) {
a68d3ed0 WD	527	return (-1);
	528	}
	529	}
77ddac94	530	if ((val=envmatch((uchar *)name, i)) < 0)
a68d3ed0 WD	531	continue;
	532	/* found; copy out */
	533	n = 0;
	534	while ((len > n++) && (*buf++ = env_get_char(val++)) != '\0')
	535	;
	536	if (len == n)
	537	*buf = '\0';
	538	return (n);
	539	}
	540	return (-1);
	541	}
	542
9314cee6	543	#if ((defined(CONFIG_ENV_IS_IN_NVRAM) \|\| defined(CONFIG_ENV_IS_IN_EEPROM) \
65c450b4	544	\|\| (defined(CONFIG_CMD_ENV) && defined(CONFIG_CMD_FLASH)) \
d7e8ce10	545	\|\| (defined(CONFIG_CMD_ENV) && defined(CONFIG_CMD_NAND)) \
00b48a48	546	\|\| (defined(CONFIG_CMD_ENV) && defined(CONFIG_CMD_ONENAND))) \
93f6d725	547	&& !defined(CONFIG_ENV_IS_NOWHERE))
a68d3ed0 WD	548	int do_saveenv (cmd_tbl_t cmdtp, int flag, int argc, char argv[])
	549	{
	550	extern char * env_name_spec;
	551
	552	printf ("Saving Environment to %s...\n", env_name_spec);
	553
	554	return (saveenv() ? 1 : 0);
	555	}
8bde7f77	556
a68d3ed0 WD	557	#endif
	558
	559
	560	/************************************************************************
	561	* Match a name / name=value pair
	562	*
	563	* s1 is either a simple 'name', or a 'name=value' pair.
	564	* i2 is the environment index for a 'name2=value2' pair.
	565	* If the names match, return the index for the value2, else NULL.
	566	*/
	567
26a41790	568	int envmatch (uchar *s1, int i2)
a68d3ed0 WD	569	{
	570
	571	while (*s1 == env_get_char(i2++))
	572	if (*s1++ == '=')
	573	return(i2);
	574	if (*s1 == '\0' && env_get_char(i2-1) == '=')
	575	return(i2);
	576	return(-1);
	577	}
8bde7f77 WD	578
	579
	580	/**************************************************/
	581
0d498393	582	U_BOOT_CMD(
6d0f6bcf	583	printenv, CONFIG_SYS_MAXARGS, 1, do_printenv,
8bde7f77 WD	584	"printenv- print environment variables\n",
	585	"\n - print values of all environment variables\n"
	586	"printenv name ...\n"
	587	" - print value of environment variable 'name'\n"
	588	);
	589
0d498393	590	U_BOOT_CMD(
6d0f6bcf	591	setenv, CONFIG_SYS_MAXARGS, 0, do_setenv,
8bde7f77 WD	592	"setenv - set environment variables\n",
	593	"name value ...\n"
	594	" - set environment variable 'name' to 'value ...'\n"
	595	"setenv name\n"
	596	" - delete environment variable 'name'\n"
	597	);
	598
9314cee6	599	#if ((defined(CONFIG_ENV_IS_IN_NVRAM) \|\| defined(CONFIG_ENV_IS_IN_EEPROM) \
65c450b4	600	\|\| (defined(CONFIG_CMD_ENV) && defined(CONFIG_CMD_FLASH)) \
d7e8ce10	601	\|\| (defined(CONFIG_CMD_ENV) && defined(CONFIG_CMD_NAND)) \
00b48a48	602	\|\| (defined(CONFIG_CMD_ENV) && defined(CONFIG_CMD_ONENAND))) \
93f6d725	603	&& !defined(CONFIG_ENV_IS_NOWHERE))
0d498393 WD	604	U_BOOT_CMD(
0d498393 WD	605	saveenv, 1, 0, do_saveenv,
8bde7f77 WD	606	"saveenv - save environment variables to persistent storage\n",
	607	NULL
	608	);
	609
90253178	610	#endif
8bde7f77	611
c76fe474	612	#if defined(CONFIG_CMD_ASKENV)
8bde7f77	613
0d498393	614	U_BOOT_CMD(
6d0f6bcf	615	askenv, CONFIG_SYS_MAXARGS, 1, do_askenv,
8bde7f77 WD	616	"askenv - get environment variables from stdin\n",
	617	"name [message] [size]\n"
	618	" - get environment variable 'name' from stdin (max 'size' chars)\n"
	619	"askenv name\n"
	620	" - get environment variable 'name' from stdin\n"
	621	"askenv name size\n"
	622	" - get environment variable 'name' from stdin (max 'size' chars)\n"
	623	"askenv name [message] size\n"
	624	" - display 'message' string and get environment variable 'name'"
	625	"from stdin (max 'size' chars)\n"
	626	);
90253178	627	#endif
8bde7f77	628
c76fe474	629	#if defined(CONFIG_CMD_RUN)
8bde7f77	630	int do_run (cmd_tbl_t cmdtp, int flag, int argc, char argv[]);
0d498393	631	U_BOOT_CMD(
6d0f6bcf	632	run, CONFIG_SYS_MAXARGS, 1, do_run,
8bde7f77 WD	633	"run - run commands in an environment variable\n",
	634	"var [...]\n"
	635	" - run the commands in the environment variable(s) 'var'\n"
	636	);
90253178	637	#endif