diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-01-09 18:42:43 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-01-09 18:42:43 (GMT) |
| commit | 497bc9460c22455176d9935f1af6b643260c2dbd (patch) | |
| tree | b0fc79d86c98a6c9619dcdfd2de0c6f382a31f49 /tools/tcltk-man2html.tcl | |
| parent | 0e23807506cde25fbd9689f83c09a35db89fa79f (diff) | |
| download | tcl-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/tcltk-man2html.tcl')
| -rwxr-xr-x | tools/tcltk-man2html.tcl | 26 |
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 } |