X-Git-Url: https://review.openocd.org/gitweb?p=openocd.git;a=blobdiff_plain;f=src%2Fhelper%2Fstartup.tcl;h=30dc184f7f6fa65270a756130e4730c74f97a617;hp=eefb690eee9a0a35be62851050d8750ab5055258;hb=82449e2d60fbbb5ce8a6285b6e6d60e5767ee429;hpb=9e9633c6b98cc9243ae78cd12ab657d041eaa73e

diff --git a/src/helper/startup.tcl b/src/helper/startup.tcl
index eefb690eee..30dc184f7f 100644
--- a/src/helper/startup.tcl
+++ b/src/helper/startup.tcl
@@ -25,6 +25,39 @@ proc exit {} {
 	ocd_throw exit
 }
 
+proc cmd_help {cmdname h indent} {
+	set indent [expr $indent * 2]
+
+	set fmt_str [format "%%%ds%%-%ds %%s" $indent [expr 25 - $indent]]
+	set w [expr 50 - $indent]
+	set n 0
+
+	while 1 {
+		if {$n > [string length $h]} {break}
+
+		set next_a [expr $n + $w]
+		if {[string length $h] > $n + $w} \
+		{
+			set xxxx [string range $h $n [expr $n + $w]]
+			for {set lastpos [expr [string length $xxxx] - 1]} \
+				{$lastpos >= 0 && [string compare \
+					[string range $xxxx $lastpos $lastpos] " "] != 0} \
+				{set lastpos [expr $lastpos - 1]} \
+			{
+			}
+			#set next_a -1
+			if {$lastpos != -1} {
+				set next_a [expr $lastpos + $n + 1]
+			}
+		}
+
+		puts [format $fmt_str "" $cmdname \
+				[string range $h $n [expr $next_a - 1]] ]
+		set cmdname ""
+		set n [expr $next_a]
+	}
+}
+
 #Print help text for a command. Word wrap
 #help text that is too wide inside column.
 proc help {args} {
@@ -35,34 +68,7 @@ proc help {args} {
 			[string first $cmd $a] != -1 || \
 			[string first $cmd [lindex $a 1]] != -1} \
 		{
-			set w 50
-			set cmdname [lindex $a 0]
-			set h [lindex $a 1]
-			set n 0
-			while 1 {
-				if {$n > [string length $h]} {break}
-
-				set next_a [expr $n + $w]
-				if {[string length $h] > $n + $w} \
-				{
-					set xxxx [string range $h $n [expr $n + $w]]
-					for {set lastpos [expr [string length $xxxx] - 1]} \
-						{$lastpos >= 0 && [string compare \
-							[string range $xxxx $lastpos $lastpos] " "] != 0} \
-						{set lastpos [expr $lastpos - 1]} \
-					{
-					}
-					#set next_a -1
-					if {$lastpos != -1} {
-						set next_a [expr $lastpos + $n + 1]
-					}
-				}
-
-				puts [format "%-25s %s" $cmdname \
-						[string range $h $n [expr $next_a-1]] ]
-				set cmdname ""
-				set n [expr $next_a]
-			}
+			cmd_help [lindex $a 0] [lindex $a 1] 0
 		}
 	}
 }