diff options
Diffstat (limited to 'src/tcl/commands.tcl')
| -rw-r--r-- | src/tcl/commands.tcl | 27 |
1 files changed, 12 insertions, 15 deletions
diff --git a/src/tcl/commands.tcl b/src/tcl/commands.tcl index a25badcc..1da8f1b2 100644 --- a/src/tcl/commands.tcl +++ b/src/tcl/commands.tcl @@ -34,25 +34,22 @@ proc exit {} { openocd_throw exit } -# If a fn is unknown to Tcl, we try to execute it as an OpenOCD command -proc unknown {args} { - - # This is uglier than it needs to be since the "flash banks" is really - # a single command. For now only "flash banks" has been converted from - # C to Tcl as an example, but if we do decide to go down this path, then - # some more generic scheme will be put in place here. - # - # Help texts need a makeover. There needs to be help texts for - # tcl procs + perhaps some work w.r.t. making the help command - # format things prettier. - if {[string compare [lindex $args 0] flash]==0 && [string compare [lindex $args 1] banks]==0} { +# We have currently converted only "flash banks" to tcl. +proc flash args { + if {[string compare [lindex $args 0] banks]==0} { return [flash_banks_pretty] - } + } + openocd_throw "flash $args" +} - # We print out as we run the command +# If a fn is unknown to Tcl, we try to execute it as an OpenOCD command +proc unknown {args} { if {[string length $args]>0} { - openocd_throw "$args" + openocd_throw $args } + # openocd_throw outputs while running and also sets the + # primary return value to the output of the command + # # The primary return value have been set by "openocd" above, # so we need to clear it, lest we print out the output from # the command twice. |