diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-06-13 22:19:53 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-06-13 22:19:53 (GMT) |
| commit | b76b06298684d10212e10d970bb2d5ee1ff29b45 (patch) | |
| tree | 4b1164f24f0b53ab2e12ce03328380bc4dda3a0b /tools/tcltk-man2html.tcl | |
| parent | 6c9b8bdd74ad3b776f15340267d4173afb1985af (diff) | |
| download | tcl-b76b06298684d10212e10d970bb2d5ee1ff29b45.zip tcl-b76b06298684d10212e10d970bb2d5ee1ff29b45.tar.gz tcl-b76b06298684d10212e10d970bb2d5ee1ff29b45.tar.bz2 | |
* tools/tcltk-man2html.tcl (make-man-pages): [Bug 3015327]: Make the
title of a manual page be stored relative to its resulting directory
name as well as its source filename. This was caused by both Tcl and a
contributed package ([incr Tcl]) defining an Object.3. Also corrected
the joining of strings in titles to avoid extra braces.
Note: This removes the previous hack and fixes things correctly.
Diffstat (limited to 'tools/tcltk-man2html.tcl')
| -rwxr-xr-x | tools/tcltk-man2html.tcl | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/tools/tcltk-man2html.tcl b/tools/tcltk-man2html.tcl index b497afb..aa1fabb 100755 --- a/tools/tcltk-man2html.tcl +++ b/tools/tcltk-man2html.tcl @@ -18,9 +18,9 @@ package require Tcl 8.6 # Copyright (c) 1995-1997 Roger E. Critchlow Jr # Copyright (c) 2004-2010 Donal K. Fellows # -# CVS: $Id: tcltk-man2html.tcl,v 1.47 2010/06/13 10:24:45 dkf Exp $ +# CVS: $Id: tcltk-man2html.tcl,v 1.48 2010/06/13 22:19:54 dkf Exp $ -regexp {\d+\.\d+} {$Revision: 1.47 $} ::Version +regexp {\d+\.\d+} {$Revision: 1.48 $} ::Version set ::CSSFILE "docs.css" ## @@ -541,10 +541,11 @@ proc make-man-pages {html args} { open-text set haserror 0 if {[next-op-is .HS rest]} { - set manual($manual(name)-title) \ - "[lrange $rest 1 end] [lindex $rest 0] manual page" + set manual($manual(wing-file)-$manual(name)-title) \ + "[join [lrange $rest 1 end] { }] [lindex $rest 0] manual page" } elseif {[next-op-is .TH rest]} { - set manual($manual(name)-title) "[lindex $rest 0] manual page - [lrange $rest 4 end]" + set manual($manual(wing-file)-$manual(name)-title) \ + "[lindex $rest 0] manual page - [join [lrange $rest 4 end] { }]" } else { set haserror 1 if {!$verbose} { @@ -712,7 +713,7 @@ proc make-man-pages {html args} { puts -nonewline stderr . } set outfd [open $html/$manual(wing-file)/$manual(name).htm w] - puts $outfd [htmlhead "$manual($manual(name)-title)" \ + puts $outfd [htmlhead "$manual($manual(wing-file)-$manual(name)-title)" \ $manual(name) $manual(wing-file) "[indexfile]" \ $overall_title "../[indexfile]"] if {($ntext > 60) && ($ntoc > 32)} { @@ -918,7 +919,7 @@ try { "The C functions which a Tcl extended C program may use."] \ [plus-base $build_tk $tkdir/doc/*.3 {Tk Library} TkLib \ "The additional C functions which a Tk extended C program may use."] \ - {*}[plus-pkgs 3 {*}[dict remove $packageDirNameMap itcl]] + {*}[plus-pkgs 3 {*}$packageDirNameMap] } on error {msg opts} { # On failure make sure we show what went wrong. We're not supposed # to get here though; it represents a bug in the script. |