From: oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Date: Mon, 18 May 2009 13:07:37 +0000 (+0000)
Subject: less weird error messages for unknown commands. Check if command exists before trying it.
X-Git-Tag: v0.2.0~700
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=7eaed436c63689db74adebf1201fb45e109cb290;p=openocd

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
---

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