diff options
author | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-07-17 12:02:55 +0000 |
---|---|---|
committer | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-07-17 12:02:55 +0000 |
commit | 5fefa83d078bfea4338f4bb2112c5ef98c54656e (patch) | |
tree | 6fd67eb5284951992e3e2a29bc9a0d588e6d50d3 /src/startup.tcl | |
parent | 5a3712072f995567ea1aa11fcce25b3158c2f9bf (diff) |
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.tcl | 8 |
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 |