summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2005-04-06 09:51:50 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2005-04-06 09:51:50 (GMT)
commitd8c6ea5a6f7f22ba91b84d5a2f2c91d9d355f708 (patch)
tree549391eaadbfae2db94726961b977f689739f7ef /tools
parent19065f3a40a4a114c483f22a1f0854da82b01097 (diff)
downloadtcl-d8c6ea5a6f7f22ba91b84d5a2f2c91d9d355f708.zip
tcl-d8c6ea5a6f7f22ba91b84d5a2f2c91d9d355f708.tar.gz
tcl-d8c6ea5a6f7f22ba91b84d5a2f2c91d9d355f708.tar.bz2
Improvements to man2html script to handle .IP better
Diffstat (limited to 'tools')
-rw-r--r--tools/man2html2.tcl15
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
}