Collect output from openocd commands into openocd_output local variable

git-svn-id: svn://svn.berlios.de/openocd/trunk@820 b42882b7-edfa-0310-969c-e2dbd0fdcd60
2008-07-17 12:02:55 +00:00
parent 5a3712072f
commit 5fefa83d07
3 changed files with 36 additions and 60 deletions
@@ -95,12 +95,16 @@ add_help_text help "Tcl implementation of help command"

 #a bit of backwards compatibility
 proc openocd_throw {cmd} {
-	return [eval $cmd]
+	set openocd_output ""
+	eval $cmd
+	return $openocd_output
 }

 #a bit of backwards compatibility
 proc openocd {cmd} {
-	return [eval $cmd]
+	set openocd_output ""
+	eval $cmd
+	return $openocd_output
 }

 # If a fn is unknown to Tcl, we try to execute it as an OpenOCD command