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

diff --git a/src/openocd.c b/src/openocd.c
index e24eb9a7cd717aee536eedc416886c0e26783726..99ee6527ed352e5edac3ff73cdc9e9cf1d507f94 100644 (file)
--- a/src/openocd.c
+++ b/src/openocd.c
@@ -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[])

diff --git a/src/tcl/commands.tcl b/src/tcl/commands.tcl
index 0c5132a9bfd7cd75bdbc260671a05cd1b8a7e4ac..f42047f7f740f66924277b21c74de173359fb4c9 100644 (file)
--- a/src/tcl/commands.tcl
+++ b/src/tcl/commands.tcl
@@ -1,4 +1,16 @@
 # implements Tcl procedures/functions\r
 proc peek {address} {\r
        return [openocd mdw $address]
-}
\ No newline at end of file
+}\r
+\r
+# Production command\r
+proc board_produce {filename serialnumber} {\r
+       openocd "reset init"\r
+       openocd "flash write_image erase $filename [flash] bin"]]\r
+       openocd "verify_image $filename [flash] bin"]]\r
+       echo "Successfully ran production procedure"\r
+}\r
+\r
+proc board_test {} {\r
+       echo "Production test not implemented"
+}\r