From: oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Date: Fri, 18 Jul 2008 16:25:15 +0000 (+0000)
Subject: This allows overriding builtin openocd commands.
X-Git-Tag: v0.1.0~465
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=310300261b4450d6a8c5f51f4ef6c0479b6b7abe;p=openocd

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 234b64ef..04737001 100644
--- 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))