interesting
/
riscv-openocd
mirror of https://github.com/riscv/riscv-openocd.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

added echo command in tcl. Issues a LOG_USER() for the single argument. 

git-svn-id: svn://svn.berlios.de/openocd/trunk@746 b42882b7-edfa-0310-969c-e2dbd0fdcd60
This commit is contained in:
oharboe 2008-07-04 13:37:34 +00:00
parent d8957cb107
commit 002e3fcbdb
2 changed files with 25 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/openocd.c
View File

@ -311,6 +311,17 @@ Jim_Command_find(Jim_Interp *interp,
return JIM_OK;
}
static int
Jim_Command_echo(Jim_Interp *interp,
int argc,
Jim_Obj *const *argv)
{
if (argc!=2)
return JIM_ERR;
char *str = (char*)Jim_GetString(argv[1], NULL);
LOG_USER("%s", str);
return JIM_OK;
}
void initJim(void)
{
@ -323,6 +334,7 @@ void initJim(void)
Jim_CreateCommand(interp, "openocd", Jim_Command_openocd, NULL, NULL);
Jim_CreateCommand(interp, "openocd_throw", Jim_Command_openocd_throw, NULL, NULL);
Jim_CreateCommand(interp, "find", Jim_Command_find, NULL, NULL);
Jim_CreateCommand(interp, "echo", Jim_Command_echo, NULL, NULL);
}
int main(int argc, char *argv[])

14
src/tcl/commands.tcl
View File

@ -1,4 +1,16 @@
# implements Tcl procedures/functions
proc peek {address} {
return [openocd mdw $address]
}
}
# Production command
proc board_produce {filename serialnumber} {
openocd "reset init"
openocd "flash write_image erase $filename [flash] bin"]]
openocd "verify_image $filename [flash] bin"]]
echo "Successfully ran production procedure"
}
proc board_test {} {
echo "Production test not implemented"
}