summaryrefslogtreecommitdiffstats
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
parent0e23807506cde25fbd9689f83c09a35db89fa79f (diff)
downloadtcl-497bc9460c22455176d9935f1af6b643260c2dbd.zip
tcl-497bc9460c22455176d9935f1af6b643260c2dbd.tar.gz
tcl-497bc9460c22455176d9935f1af6b643260c2dbd.tar.bz2
Added the contributed packages to the code to build HTML docs.
-rw-r--r--ChangeLog15
-rwxr-xr-xtools/tcltk-man2html.tcl26
2 files changed, 32 insertions, 9 deletions
diff --git a/ChangeLog b/ChangeLog
index 9927869..54a592d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,9 +1,16 @@
+2010-01-09 Donal K. Fellows <dkf@users.sf.net>
+
+ * tools/tcltk-man2html.tcl: Added basic support for building the docs
+ for contributed packages into the HTML versions. Prompted by question
+ on Tcler's Chat by Tom Krehbiel. Note that there remain problems in
+ the documentation generated due to errors in the contributed docs.
+
2010-01-05 Don Porter <dgp@users.sourceforge.net>
- * generic/tclPathObj.c (TclPathPart): Correct inconsistency between
- * tests/fileName.test (filename-14.31): the string rep and the intrep
- of a path value created by [file rootname]. Thanks to Vitaly Magerya
- for reporting. [Bug 2918610]
+ * generic/tclPathObj.c (TclPathPart): [Bug 2918610]: Correct
+ * tests/fileName.test (filename-14.31): inconsistency between the
+ string rep and the intrep of a path value created by [file rootname].
+ Thanks to Vitaly Magerya for reporting.
2010-01-03 Donal K. Fellows <dkf@users.sf.net>
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
}