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

factor help script command into parts 

Creates a helper function, cmd_help, which displays the help string
for a single command.  Presently, it is called from the loop in help.

The routine has been extended to allow indentation of command groups,
so an improved help command can improve the display of information.
This commit is contained in:
Zachary T Welch 2009-11-19 06:44:58 -08:00
parent 9e9633c6b9
commit 82449e2d60
1 changed files with 34 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/helper/startup.tcl
View File

@ -25,20 +25,13 @@ proc exit {} {
ocd_throw exit ocd_throw exit
} }
#Print help text for a command. Word wrap proc cmd_help {cmdname h indent} {
#help text that is too wide inside column. set indent [expr $indent * 2]
proc help {args} {
global ocd_helptext set fmt_str [format "%%%ds%%-%ds %%s" $indent [expr 25 - $indent]]
set cmd $args set w [expr 50 - $indent]
foreach a [lsort $ocd_helptext] {
if {[string length $cmd] == 0 || \
[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 set n 0
while 1 { while 1 {
if {$n > [string length $h]} {break} if {$n > [string length $h]} {break}
@ -58,11 +51,24 @@ proc help {args} {
} }
} }
puts [format "%-25s %s" $cmdname \ puts [format $fmt_str "" $cmdname \
[string range $h $n [expr $next_a-1]] ] [string range $h $n [expr $next_a - 1]] ]
set cmdname "" set cmdname ""
set n [expr $next_a] set n [expr $next_a]
} }
}
#Print help text for a command. Word wrap
#help text that is too wide inside column.
proc help {args} {
global ocd_helptext
set cmd $args
foreach a [lsort $ocd_helptext] {
if {[string length $cmd] == 0 || \
[string first $cmd $a] != -1 || \
[string first $cmd [lindex $a 1]] != -1} \
{
cmd_help [lindex $a 0] [lindex $a 1] 0
} }
} }
} }