diff options
| author | dkf <dkf@noemail.net> | 2011-08-01 09:15:11 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2011-08-01 09:15:11 (GMT) |
| commit | d139c6beafe0d8598ece7b9e9325e7ff8a96ea0f (patch) | |
| tree | b77bf0217a37594620be39e132d91599d9133973 | |
| parent | 31d028f98ec049a28ac07d4273e0c79d75c3c56c (diff) | |
| download | tcl-d139c6beafe0d8598ece7b9e9325e7ff8a96ea0f.zip tcl-d139c6beafe0d8598ece7b9e9325e7ff8a96ea0f.tar.gz tcl-d139c6beafe0d8598ece7b9e9325e7ff8a96ea0f.tar.bz2 | |
[Bug 3382474]: Added code to determine the version number of contributed
packages from their directory names so that HTML documentation builds are
less confusing.
FossilOrigin-Name: a258021b9acfa41d709a67374d069da58433e8d7
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rwxr-xr-x | tools/tcltk-man2html.tcl | 16 |
2 files changed, 18 insertions, 4 deletions
@@ -1,3 +1,9 @@ +2011-08-01 Donal K. Fellows <dkf@users.sf.net> + + * tools/tcltk-man2html.tcl (plus-pkgs): [Bug 3382474]: Added code to + determine the version number of contributed packages from their + directory names so that HTML documentation builds are less confusing. + 2011-07-29 Donal K. Fellows <dkf@users.sf.net> * tools/tcltk-man2html.tcl (ensemble_commands, remap_link_target): diff --git a/tools/tcltk-man2html.tcl b/tools/tcltk-man2html.tcl index 2bde714..eaadc51 100755 --- a/tools/tcltk-man2html.tcl +++ b/tools/tcltk-man2html.tcl @@ -766,23 +766,31 @@ proc plus-pkgs {type args} { if {!$build_tcl} return set result {} foreach {dir name} $args { - set globpat $tcltkdir/$tcldir/pkgs/$dir/doc/*.$type + set globpat $tcltkdir/$tcldir/pkgs/$dir*/doc/*.$type if {![llength [glob -nocomplain $globpat]]} { # Fallback for manpages generated using doctools - set globpat $tcltkdir/$tcldir/pkgs/$dir/doc/man/*.$type + set globpat $tcltkdir/$tcldir/pkgs/$dir*/doc/man/*.$type if {![llength [glob -nocomplain $globpat]]} { continue } } + regexp "pkgs/$dir(.*)/doc$" [glob $tcltkdir/$tcldir/pkgs/$dir*/doc] \ + -> version switch $type { n { set title "$name Package Commands" + if {$version ne ""} { + append title ", version $version" + } set dir [string totitle $dir]Cmd set desc \ "The additional commands provided by the $name package." } 3 { set title "$name Package Library" + if {$version ne ""} { + append title ", version $version" + } set dir [string totitle $dir]Lib set desc \ "The additional C functions provided by the $name package." @@ -945,8 +953,8 @@ try { append appdir "$tkdir" } - # Get the list of packages to try, and what their human-readable - # names are. + # Get the list of packages to try, and what their human-readable names + # are. Note that the package directory list should be version-less. try { set packageDirNameMap {} if {$build_tcl} { |