summaryrefslogtreecommitdiff
path: root/src/startup.tcl
diff options
context:
space:
mode:
authoroharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>2008-07-17 12:02:55 +0000
committeroharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>2008-07-17 12:02:55 +0000
commit5fefa83d078bfea4338f4bb2112c5ef98c54656e (patch)
tree6fd67eb5284951992e3e2a29bc9a0d588e6d50d3 /src/startup.tcl
parent5a3712072f995567ea1aa11fcce25b3158c2f9bf (diff)
downloadopenocd_libswd-5fefa83d078bfea4338f4bb2112c5ef98c54656e.tar.gz
openocd_libswd-5fefa83d078bfea4338f4bb2112c5ef98c54656e.tar.bz2
openocd_libswd-5fefa83d078bfea4338f4bb2112c5ef98c54656e.tar.xz
openocd_libswd-5fefa83d078bfea4338f4bb2112c5ef98c54656e.zip
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
Diffstat (limited to 'src/startup.tcl')
-rw-r--r--src/startup.tcl8
1 files changed, 6 insertions, 2 deletions
diff --git a/src/startup.tcl b/src/startup.tcl
index 11ffe851..fc5f9e1a 100644
--- a/src/startup.tcl
+++ b/src/startup.tcl
@@ -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