diff options
author | dkf <dkf@noemail.net> | 2005-04-06 09:51:49 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2005-04-06 09:51:49 (GMT) |
commit | 0345ef8922a517ca9fc3696ca3c46d784cc99753 (patch) | |
tree | 549391eaadbfae2db94726961b977f689739f7ef /tools/man2html2.tcl | |
parent | 3bc2b95e5f7230a54a69a908cdd5961575d61043 (diff) | |
download | tcl-0345ef8922a517ca9fc3696ca3c46d784cc99753.zip tcl-0345ef8922a517ca9fc3696ca3c46d784cc99753.tar.gz tcl-0345ef8922a517ca9fc3696ca3c46d784cc99753.tar.bz2 |
Improvements to man2html script to handle .IP better
FossilOrigin-Name: f41a60bb6d88fa1747983aff537fdcd2558600f0
Diffstat (limited to 'tools/man2html2.tcl')
-rw-r--r-- | tools/man2html2.tcl | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/tools/man2html2.tcl b/tools/man2html2.tcl index d206cbd..b9388cb 100644 --- a/tools/man2html2.tcl +++ b/tools/man2html2.tcl @@ -5,7 +5,7 @@ # # Copyright (c) 1996 by Sun Microsystems, Inc. # -# $Id: man2html2.tcl,v 1.7 2004/11/24 11:24:34 dkf Exp $ +# $Id: man2html2.tcl,v 1.8 2005/04/06 09:52:00 dkf Exp $ # package require Tcl 8.4 @@ -719,17 +719,14 @@ proc IPmacro argList { nest para UL LI return } - if {$length == 1} { + if {[regexp {^\[\d+\]$} [lindex $argList 0]]} { nest para OL LI return } - if {$length > 1} { - nest para DL DT - formattedText [lindex $argList 0] - puts $file "\n<DD>" - return - } - puts stderr "Bad .IP macro: .IP [join $argList " "]" + nest para DL DT + formattedText [lindex $argList 0] + puts $file "\n<DD>" + return } |