diff options
author | dgp <dgp@users.sourceforge.net> | 2011-07-19 15:29:51 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2011-07-19 15:29:51 (GMT) |
commit | e27a7fdeba5a29068de83dc546c9ff9d01eb6aa1 (patch) | |
tree | e24bbb2c0403c4812424bb2e799dfac49b4cc55f /tools/tcltk-man2html-utils.tcl | |
parent | 44695da5cf0b2b661205e9509841420f6485e3c9 (diff) | |
parent | 72d34422eacbba7943133639ab202f4cb9869a06 (diff) | |
download | tcl-e27a7fdeba5a29068de83dc546c9ff9d01eb6aa1.zip tcl-e27a7fdeba5a29068de83dc546c9ff9d01eb6aa1.tar.gz tcl-e27a7fdeba5a29068de83dc546c9ff9d01eb6aa1.tar.bz2 |
merge to rc
Diffstat (limited to 'tools/tcltk-man2html-utils.tcl')
-rw-r--r-- | tools/tcltk-man2html-utils.tcl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/tools/tcltk-man2html-utils.tcl b/tools/tcltk-man2html-utils.tcl index a7270a1..af2faa3 100644 --- a/tools/tcltk-man2html-utils.tcl +++ b/tools/tcltk-man2html-utils.tcl @@ -4,7 +4,7 @@ ## by Tcl and Tk; they do not cope with arbitrary nroff markup. ## ## Copyright (c) 1995-1997 Roger E. Critchlow Jr -## Copyright (c) 2004-2010 Donal K. Fellows +## Copyright (c) 2004-2011 Donal K. Fellows set ::manual(report-level) 1 @@ -491,7 +491,7 @@ proc output-IP-list {context code rest} { set dl "<DL class=\"[string tolower $manual(section)]\">" set enddl "</DL>" if {$code eq ".IP"} { - if {[regexp {^\[[\da-f]+\]$} $rest]} { + if {[regexp {^\[[\da-f]+\]|\(?[\da-f]+\)$} $rest]} { set dl "<OL class=\"[string tolower $manual(section)]\">" set enddl "</OL>" } elseif {"•" eq $rest} { @@ -518,6 +518,8 @@ proc output-IP-list {context code rest} { man-puts "$para<DT>$rest<DD>" } elseif {[regexp {^\[([\da-f]+)\]$} $rest -> value]} { man-puts "$para<LI value=\"$value\">" + } elseif {[regexp {^\(?([\da-f]+)\)$} $rest -> value]} { + man-puts "$para<LI value=\"$value\">" } elseif {"•" eq $rest} { man-puts "$para<LI>" } else { @@ -624,7 +626,7 @@ proc cross-reference {ref} { set manname $manual(name) set mantail $manual(tail) if {[string match "Tcl_*" $ref] || [string match "Tk_*" $ref] || [string match "Ttk_*" $ref]} { - set lref $ref + regexp {^\w+} $ref lref ## ## apply a link remapping if available ## |