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/regcount.test

@@ -0,0 +1,112 @@
+source [file dirname [info script]]/testing.tcl
+
+needs cmd regexp
+testConstraint regexp_are [expr {[regexp {\d} 1]}]
+needs constraint regexp_are
+
+# Test regexp counted repetitions
+
+set n 0
+foreach {pat str exp} {
+	a+ bac a
+	a{1,} bac a
+	a* bac {{}}
+	a{0,} bac {{}}
+	aa+ bac {}
+	a{2,} bac {}
+	a{2,} bacaad aa
+	a{3,} bacaad {}
+	{a{2,}$} bacaad {}
+	{a{2,}$} bacaa aa
+	{a{2,}$} ba {}
+	{a{2,}$} aa aa
+	{a{0,0}b$} b b
+	{a{1,1}b$} b {}
+	{a{1,1}b$} cab ab
+	{a{2,2}b$} cab {}
+	{a{2,2}b$} cabaabx {}
+	{a{2,2}b$} cacaab aab
+	ca{2,4}b cacaab caab
+	ca{2,3}b cacaab caab
+	ca{2,3}b cacaaab caaab
+	c(a|b){2,3}d xcbad {cbad a}
+	c(a|b){2,3}d xcabbd {cabbd b}
+	c(a|b){2,3}d xcbaaad {}
+	a{4} baaaad aaaa
+	a{2,5} baaaad aaaa
+	a{1,3} baaaad aaa
+	a{1,2} baaaad aa
+	a{3,4} baaaad aaaa
+	a{5,6} baaaad {}
+	a{4}? baaaad aaaa
+	a{2,5}? baaaad aa
+	a{1,3}? baaaad a
+	a{1,2}? baaaad a
+	a{3,4}? baaaad aaa
+	a{5,6}? baaaad {}
+	{\d{1,3}} 239 239
+	(aa|bb)?c xabbaac {aac aa}
+	(a|y)+ bac {a a}
+	(a|y){1,} bac {a a}
+	(a|y)* bac {{} {}}
+	(a|y){0,} bac {{} {}}
+	(a|y)a+ bac {}
+	(a|y){2,} bac {}
+	(a|y){2,} bacaad {aa a}
+	(a|y){3,} bacaad {}
+	{(a|y){2,}$} bacaad {}
+	{(a|y){2,}$} bacaa {aa a}
+	{(a|y){2,}$} ba {}
+	{(a|y){2,}$} aa {aa a}
+	{(a|y){0,0}b$} b {b {}}
+	{(a|y){1,1}b$} b {}
+	{(a|y){1,1}b$} cab {ab a}
+	{(a|y){2,2}b$} cab {}
+	{(a|y){2,2}b$} cabaabx {}
+	{(a|y){2,2}b$} cacaab {aab a}
+	c(a|y){2,4}b cacaab {caab a}
+	c(a|y){2,3}b cacaab {caab a}
+	c(a|y){2,3}b cacaaab {caaab a}
+	c((a|y)|b){2,3}d xcbad {cbad a a}
+	####c((a|y)|b){2,3}d xcabbd {cabbd b {}}
+	c((a|y)|b){2,3}d xcbaaad {}
+	(a|y){4} baaaad {aaaa a}
+	(a|y){2,5} baaaad {aaaa a}
+	(a|y){1,3} baaaad {aaa a}
+	(a|y){1,2} baaaad {aa a}
+	(a|y){3,4} baaaad {aaaa a}
+	(a|y){5,6} baaaad {}
+	(a|y){4}? baaaad {aaaa a}
+	(a|y){2,5}? baaaad {aa a}
+	(a|y){1,3}? baaaad {a a}
+	(a|y){1,2}? baaaad {a a}
+	(a|y){3,4}? baaaad {aaa a}
+	(a|y){5,6}? baaaad {}
+    {[[:alpha:]]+} _bcd56_ef bcd
+    {[[:alnum:]]+} _bcd56_ef bcd56
+    {[[:space:]]+} "_bc \t\r\n\f\v_" "{ \t\r\n\f\v}"
+    {[\x41-\x43]+} "_ABCD_" ABC
+    {\m.+\M} "#A test#" "{A test}"
+    {\m.+?\M} "#A test#" "A"
+    {\m\M} "a" ""
+    {ab*c} xnbbmbbbc {}
+    {.^xxx} yyy {}
+    {\mb} "   abc   " ""
+	####((a*)*b)*b aaaaaaaaaaaaaaaaaaaaaaaaab {b {} {}}
+	####(a*)* aab {aa {}}
+	{^([^:=]*)(:)?(=)?$} version {version version {} {}}
+} {
+	if {[string match #* $pat]} {
+		continue
+	}
+	#puts \t[list $pat $str [regexp -inline -- $pat $str]]
+	test regcount-1.[incr n] "Test: regexp $pat $str" [list regexp -inline -- $pat $str] $exp
+}
+
+test regcount-2.1 "regexp counts cleared" {
+	set re "((a|b){1,2}(c{2,3}))"
+	regexp -inline $re xabcccce
+	regexp -inline $re xabcccce
+} {abccc abccc b ccc}
+
+testreport