debuggers: import openocd-0.7.0

Initial check-in of openocd-0.7.0 as it can be downloaded from
http://sourceforge.net/projects/openocd/files/openocd/0.7.0/

Any modifications will follow.

Change-Id: I6949beaefd589e046395ea0cb80f4e1ab1654d55

debuggers/openocd/jimtcl/tests/errors.tcl

@@ -0,0 +1,59 @@
+# Package which can generate a variety of errors at known locations
+
+proc error_generator {type} {
+	switch $type {
+		badcmd {
+			bogus command called
+		} 
+		badvar {
+			set bogus
+		} 
+		error {
+			error bogus
+		} 
+		interpbadvar {
+			set x "some $bogus text"
+		} 
+		interpbadcmd {
+			set x "some $bogus text"
+		} 
+		package {
+			package require dummy
+		} 
+		source {
+			source dummy.tcl
+		} 
+		badpackage {
+			package require bogus
+		} 
+		returncode {
+			return -code error failure
+		} 
+		default {
+			puts "Unknown type=$type"
+		}
+	}
+}
+
+
+
+# line 40: Some empty lines above so that line numbers don't change
+proc error_caller {type {method call}} {
+	switch $method {
+		call {
+			error_generator $type
+		} 
+		uplevel {
+			uplevel 1 [list error_generator $type]
+		} 
+		eval {
+			eval [list error_generator $type]
+		} 
+		evalstr {
+			eval error_generator $type
+		} 
+		default {
+			puts "Unknown method=$method"
+		}
+	}
+}