This allows overriding builtin openocd commands.

git-svn-id: svn://svn.berlios.de/openocd/trunk@834 b42882b7-edfa-0310-969c-e2dbd0fdcd60

diff --git a/src/helper/command.c b/src/helper/command.c
index 234b64efdb315bf89b57ee4f32c7c5cb5253ba6f..04737001a702ad3dc173d364097e9d1521c14871 100644 (file)
--- a/src/helper/command.c
+++ b/src/helper/command.c
@@ -178,10 +178,15 @@ command_t* register_command(command_context_t *context, command_t *parent, char
                t2="_";
        }
        t3=c->name;
-       const char *full_name=alloc_printf("%s%s%s", t1, t2, t3);
+       const char *full_name=alloc_printf("ocd_%s%s%s", t1, t2, t3);
        Jim_CreateCommand(interp, full_name, script_command, c, NULL);
        free((void *)full_name);
        
+       /* we now need to add an overrideable proc */
+       const char *override_name=alloc_printf("proc %s%s%s {args} {return [eval \"ocd_%s%s%s $args\"]}", t1, t2, t3, t1, t2, t3);
+       Jim_Eval(interp, override_name);        
+       free((void *)override_name);
+       
        /* accumulate help text in Tcl helptext list.  */
     Jim_Obj *helptext=Jim_GetGlobalVariableStr(interp, "ocd_helptext", JIM_ERRMSG);
     if (Jim_IsShared(helptext))