From ec45a843ca350cfc5f525a79b76c002fd3ac0b8e Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Thu, 1 Nov 2007 22:33:17 +0000
Subject: Convert .DS/.DE sequences to tables, as that's now what they're used
 for.

---
 ChangeLog                | 3 +++
 tools/tcltk-man2html.tcl | 7 +++++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index d942de1..b5b1214 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2007-11-01  Donal K. Fellows  <donal.k.fellows@man.ac.uk>
 
+	* tools/tcltk-man2html.tcl (output-directive): Convert .DS/.DE pairs
+	into tables since that is now all that they are used for.
+
 	* doc/RegExp.3: Clarified documentation of RE flags. [Bug 1167840]
 
 	* doc/refchan.n: Adjust internal name to be consistent with the file
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 {
-- 
cgit v0.12