interesting
/
riscv-openocd
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

less weird error messages for unknown commands. Check if command exists before trying it. 

git-svn-id: svn://svn.berlios.de/openocd/trunk@1810 b42882b7-edfa-0310-969c-e2dbd0fdcd60
This commit is contained in:
oharboe 2009-05-18 13:07:37 +00:00
parent a63361f982
commit 7eaed436c6
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/helper/startup.tcl
View File

@ -88,9 +88,10 @@ proc unknown {args} {
# do the name mangling from "flash banks" to "flash_banks" # do the name mangling from "flash banks" to "flash_banks"
if {[llength $args]>=2} { if {[llength $args]>=2} {
set cmd_name "[lindex $args 0]_[lindex $args 1]" set cmd_name "[lindex $args 0]_[lindex $args 1]"
# Fix?? add a check here if this is a command? if {[catch {info body $cmd_name}]==0} {
# we'll strip away args until we fail anyway... # the command exists, try it...
return [eval "$cmd_name [lrange $args 2 end]"] return [eval "$cmd_name [lrange $args 2 end]"]
}
} }
# This really is an unknown command. # This really is an unknown command.
return -code error "Unknown command: $args" return -code error "Unknown command: $args"