diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2007-11-01 22:33:17 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2007-11-01 22:33:17 (GMT) |
| commit | 30ae1d0ee1bbb17dcb83a2764a4ccd11b14fb76a (patch) | |
| tree | bf9d6b78c28be545d3a7f206266d6a6dba23f686 | |
| parent | 9ad2ff8675bc4e2067ea2b5b5d67b17f0464c18d (diff) | |
| download | tcl-30ae1d0ee1bbb17dcb83a2764a4ccd11b14fb76a.zip tcl-30ae1d0ee1bbb17dcb83a2764a4ccd11b14fb76a.tar.gz tcl-30ae1d0ee1bbb17dcb83a2764a4ccd11b14fb76a.tar.bz2 | |
Convert .DS/.DE sequences to tables, as that's now what they're used for.
| -rw-r--r-- | ChangeLog | 3 | ||||
| -rwxr-xr-x | tools/tcltk-man2html.tcl | 7 |
2 files changed, 8 insertions, 2 deletions
@@ -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 { |