Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
card10
openocd
Commits
f93c9808
Commit
f93c9808
authored
Nov 11, 2009
by
Zachary T Welch
Browse files
wrap help command
Use continuation characters to wrap the help command into 80 columns.
parent
2821115a
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/helper/startup.tcl
View file @
f93c9808
...
...
@@ -49,7 +49,10 @@ 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
}
{
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
]
...
...
@@ -57,19 +60,24 @@ proc help {args} {
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
[
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
]
if
{
$lastpos
!=
-1
}
{
set next_a
[
expr $lastpos
+ $n +
1
]
}
}
puts
[
format
"%-25s %s"
$cmdname
[
string range $h $n
[
expr $next_a-1
]]
]
puts
[
format
"%-25s %s"
$cmdname
\
[
string range $h $n
[
expr $next_a-1
]]
]
set cmdname
""
set n
[
expr $next_a
]
}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment