summaryrefslogtreecommitdiffstats
path: root/tools/tcltk-man2html.tcl
diff options
context:
space:
mode:
authordas <das>2004-11-12 09:01:22 (GMT)
committerdas <das>2004-11-12 09:01:22 (GMT)
commit32881d222bd536bdbf64ad2faf3deb6bb1f34aca (patch)
tree1c6463dd66e2fd05e6f2a96516a458e646c8d56c /tools/tcltk-man2html.tcl
parent0b20aa92ea2230773776adc69fe0a473b7bfef88 (diff)
downloadtcl-32881d222bd536bdbf64ad2faf3deb6bb1f34aca.zip
tcl-32881d222bd536bdbf64ad2faf3deb6bb1f34aca.tar.gz
tcl-32881d222bd536bdbf64ad2faf3deb6bb1f34aca.tar.bz2
* doc/CrtChannel.3:
* doc/Interp.3: * doc/Limit.3: * doc/binary.n: * doc/dict.n: * doc/tm.n: * doc/upvar.n: fixed *roff errors uncovered by running 'make html'. * tools/tcltk-man2html.tcl: added faked support for bullet point lists, i.e. *nroff ".IP \(bu" syntax.
Diffstat (limited to 'tools/tcltk-man2html.tcl')
-rwxr-xr-xtools/tcltk-man2html.tcl3
1 files changed, 3 insertions, 0 deletions
diff --git a/tools/tcltk-man2html.tcl b/tools/tcltk-man2html.tcl
index 7190b1d..b9c8280 100755
--- a/tools/tcltk-man2html.tcl
+++ b/tools/tcltk-man2html.tcl
@@ -230,6 +230,7 @@ proc process-text {text} {
{\(+-} {&#177;} \
{\fP} {\fR} \
{\.} . \
+ {\(bu} {&#8226;} \
] $text]
regsub -all {\\o'o\^'} $text {\&ocirc;} text; # o-circumflex in re_syntax.n
regsub -all {\\-\\\|\\-} $text -- text; # two hyphens
@@ -558,6 +559,8 @@ proc output-IP-list {context code rest} {
if {[string equal $manual(section) "ARGUMENTS"] || \
[regexp {^\[\d+\]$} $rest]} {
man-puts "$para<DT>$rest<DD>"
+ } elseif {[string equal {&#8226;} $rest]} {
+ man-puts "$para<DT><DD>$rest&nbsp;"
} else {
man-puts "$para<DT>[long-toc $rest]<DD>"
}