From: Zachary T Welch <zw@superlucidity.net>
Date: Fri, 20 Nov 2009 17:11:39 +0000 (-0800)
Subject: provide command context during cmd_init
X-Git-Tag: v0.4.0-rc1~472
X-Git-Url: https://review.openocd.org/gitweb?p=openocd.git;a=commitdiff_plain;h=e5b0a69ba99f58991ebb5d07ad947592f09728f1

provide command context during cmd_init

For the startup.tcl code to use built-in commands, the context must be
associated with the interpreter temporarily.  This will be required to
add help text.
---

diff --git a/src/helper/command.c b/src/helper/command.c
index f135bb03cb..0958147ea1 100644
--- a/src/helper/command.c
+++ b/src/helper/command.c
@@ -869,12 +869,14 @@ struct command_context* command_init(const char *startup_tcl)
 #if !BUILD_ECOSBOARD
 	Jim_EventLoopOnLoad(interp);
 #endif
+	Jim_SetAssocData(interp, "context", NULL, context);
 	if (Jim_Eval_Named(interp, startup_tcl, "embedded:startup.tcl",1) == JIM_ERR)
 	{
 		LOG_ERROR("Failed to run startup.tcl (embedded into OpenOCD)");
 		Jim_PrintErrorMessage(interp);
 		exit(-1);
 	}
+	Jim_DeleteAssocData(interp, "context");
 
 	register_command(context, NULL, "sleep",
 			handle_sleep_command, COMMAND_ANY,