summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2007-11-01 22:33:17 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2007-11-01 22:33:17 (GMT)
commitec45a843ca350cfc5f525a79b76c002fd3ac0b8e (patch)
treebf9d6b78c28be545d3a7f206266d6a6dba23f686 /tools
parentba0f9ef3892cbd55c984b3b07fa3301a66ba9965 (diff)
downloadtcl-ec45a843ca350cfc5f525a79b76c002fd3ac0b8e.zip
tcl-ec45a843ca350cfc5f525a79b76c002fd3ac0b8e.tar.gz
tcl-ec45a843ca350cfc5f525a79b76c002fd3ac0b8e.tar.bz2
Convert .DS/.DE sequences to tables, as that's now what they're used for.
Diffstat (limited to 'tools')
-rwxr-xr-xtools/tcltk-man2html.tcl7
1 files changed, 5 insertions, 2 deletions
diff --git a/tools/tcltk-man2html.tcl b/tools/tcltk-man2html.tcl
index fa22b2e..c12b643 100755
--- a/tools/tcltk-man2html.tcl
+++ b/tools/tcltk-man2html.tcl
@@ -1296,10 +1296,13 @@ proc output-directive {line} {
}
.DS {
if {[next-op-is .ta rest]} {
- # ???
+ # skip the leading .ta directive if it is there
}
if {[match-text @stuff .DE]} {
- man-puts <PRE>$stuff</PRE>
+ set td "<td><p style=\"font-size:12px;padding-left:.5em;padding-right:.5em;\">"
+ set bodyText [string map [list \n <tr>$td \t $td] \n$stuff]
+ man-puts "<dl><dd><table border=\"0\">$bodyText</table></dl>"
+ #man-puts <PRE>$stuff</PRE>
} elseif {[match-text .fi @ul1 @ul2 .nf @stuff .DE]} {
man-puts "<PRE>[lindex $ul1 1][lindex $ul2 1]\n$stuff</PRE>"
} else {