summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-01-09 18:42:43 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-01-09 18:42:43 (GMT)
commit497bc9460c22455176d9935f1af6b643260c2dbd (patch)
treeb0fc79d86c98a6c9619dcdfd2de0c6f382a31f49 /tools
parent0e23807506cde25fbd9689f83c09a35db89fa79f (diff)
downloadtcl-497bc9460c22455176d9935f1af6b643260c2dbd.zip
tcl-497bc9460c22455176d9935f1af6b643260c2dbd.tar.gz
tcl-497bc9460c22455176d9935f1af6b643260c2dbd.tar.bz2
Added the contributed packages to the code to build HTML docs.
Diffstat (limited to 'tools')
-rwxr-xr-xtools/tcltk-man2html.tcl26
1 files changed, 21 insertions, 5 deletions
diff --git a/tools/tcltk-man2html.tcl b/tools/tcltk-man2html.tcl
index 3855d50..747c020 100755
--- a/tools/tcltk-man2html.tcl
+++ b/tools/tcltk-man2html.tcl
@@ -1956,15 +1956,31 @@ set tclcmddesc {The commands which the <B>tclsh</B> interpreter implements.}
set tkcmddesc {The additional commands which the <B>wish</B> interpreter implements.}
set tcllibdesc {The C functions which a Tcl extended C program may use.}
set tklibdesc {The additional C functions which a Tk extended C program may use.}
+set tclpkgcmdsdesc {The additional commands in packages contributed to the Tcl distribution.}
+set tclpkglibdesc {The additional C functions in packages contributed to the Tcl distribution.}
if {1} {
if {[catch {
make-man-pages $webdir \
- "$tcltkdir/{$appdir}/doc/*.1 \"$tcltkdesc Applications\" UserCmd {$usercmddesc}" \
- [expr {$build_tcl ? "$tcltkdir/$tcldir/doc/*.n {Tcl Commands} TclCmd {$tclcmddesc}" : ""}] \
- [expr {$build_tk ? "$tcltkdir/$tkdir/doc/*.n {Tk Commands} TkCmd {$tkcmddesc}" : ""}] \
- [expr {$build_tcl ? "$tcltkdir/$tcldir/doc/*.3 {Tcl Library} TclLib {$tcllibdesc}" : ""}] \
- [expr {$build_tk ? "$tcltkdir/$tkdir/doc/*.3 {Tk Library} TkLib {$tklibdesc}" : ""}]
+ [list $tcltkdir/{$appdir}/doc/*.1 "$tcltkdesc Applications" UserCmd $usercmddesc] \
+ [expr {$build_tcl ?
+ [list $tcltkdir/$tcldir/doc/*.n {Tcl Commands} TclCmd $tclcmddesc]
+ : ""}] \
+ [expr {$build_tk ?
+ [list $tcltkdir/$tkdir/doc/*.n {Tk Commands} TkCmd $tkcmddesc]
+ : ""}] \
+ [expr {$build_tcl ?
+ [list $tcltkdir/$tcldir/pkgs/*/doc/*.n {Contrib. Package Commands} PkgCmd $tclpkgcmdsdesc]
+ : ""}] \
+ [expr {$build_tcl ?
+ [list $tcltkdir/$tcldir/doc/*.3 {Tcl Library} TclLib $tcllibdesc]
+ : ""}] \
+ [expr {$build_tk ?
+ [list $tcltkdir/$tkdir/doc/*.3 {Tk Library} TkLib $tklibdesc]
+ : ""}] \
+ [expr {$build_tcl ?
+ [list $tcltkdir/$tcldir/pkgs/*/doc/*.3 {Contrib. Package Library} PkgLib $tclpkglibdesc]
+ : ""}]
} error]} {
puts $error\n$errorInfo
}