diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-20 10:14:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-20 10:14:44 (GMT) |
| commit | 1a94f57ab672e62630b18fc4daa9a5a9c253bc6b (patch) | |
| tree | dd8ab2e331e58f20378c8a569a2abebb2f66fe07 /tools/man2html.tcl | |
| parent | 23520a764859890cb326fdc38a68180f11081549 (diff) | |
| download | tcl-1a94f57ab672e62630b18fc4daa9a5a9c253bc6b.zip tcl-1a94f57ab672e62630b18fc4daa9a5a9c253bc6b.tar.gz tcl-1a94f57ab672e62630b18fc4daa9a5a9c253bc6b.tar.bz2 | |
Backport many (formatting) changes in tools/*. Nothing functional.
testest.tcl: Use more uppercase hex.
Diffstat (limited to 'tools/man2html.tcl')
| -rw-r--r-- | tools/man2html.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tools/man2html.tcl b/tools/man2html.tcl index 444462b..2d03ab6 100644 --- a/tools/man2html.tcl +++ b/tools/man2html.tcl @@ -25,8 +25,8 @@ proc sarray {file args} { if {![array exists array]} { puts "sarray: \"$a\" isn't an array" break - } - + } + foreach name [lsort [array names array]] { regsub -all " " $name "\\ " name1 puts $file "set ${a}($name1) \{$array($name)\}" @@ -139,12 +139,12 @@ proc main {argv} { foreach package $packages { file mkdir $html_dir/$package - + # build hyperlink database arrays: NAME_file and KEY_file # puts "\nScanning man pages in $tcl_dir/$package/doc..." uplevel \#0 [list source $homeDir/man2html1.tcl] - + doDir $tcl_dir/$package/doc # clean up the NAME_file and KEY_file database arrays |