diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-01 15:15:46 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-01 15:15:46 (GMT) |
commit | 932409d7aa1ab0358543a9ca71d33b4b4873ce2a (patch) | |
tree | ce07568e15418586794d34eedbaa04e6f1db2dc9 /tools/man2html.tcl | |
parent | cdee0fcd74077f3208f3957e267a611192df1af1 (diff) | |
download | tcl-932409d7aa1ab0358543a9ca71d33b4b4873ce2a.zip tcl-932409d7aa1ab0358543a9ca71d33b4b4873ce2a.tar.gz tcl-932409d7aa1ab0358543a9ca71d33b4b4873ce2a.tar.bz2 |
Whitespace reduction in Tcl scripts. No functional change.
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 fa57b03..6d4724f 100644 --- a/tools/man2html.tcl +++ b/tools/man2html.tcl @@ -27,8 +27,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)\}" @@ -141,12 +141,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 |