diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2004-05-18 12:28:40 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2004-05-18 12:28:40 (GMT) |
| commit | 2894f562fdd5076acdfb80ec6f952afe5348dd21 (patch) | |
| tree | f2d9573d38cfec1ccab74708c4ff275758102325 /tools/man2html2.tcl | |
| parent | d10427d940b2c2231a36421b8ebe4b350a033dd2 (diff) | |
| download | tcl-2894f562fdd5076acdfb80ec6f952afe5348dd21.zip tcl-2894f562fdd5076acdfb80ec6f952afe5348dd21.tar.gz tcl-2894f562fdd5076acdfb80ec6f952afe5348dd21.tar.bz2 | |
More adaptations to understand .SS macros.
Diffstat (limited to 'tools/man2html2.tcl')
| -rw-r--r-- | tools/man2html2.tcl | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/tools/man2html2.tcl b/tools/man2html2.tcl index 789b4db..41244eb 100644 --- a/tools/man2html2.tcl +++ b/tools/man2html2.tcl @@ -307,6 +307,9 @@ proc macro {name args} { SH { SHmacro $args } + SS { + SSmacro $args subsection + } SO { global noFillCount inPRE file @@ -625,12 +628,13 @@ proc macro2 {name args} { # SHmacro -- # -# Subsection head; handles the .SH macro. +# Subsection head; handles the .SH and .SS macros. # # Arguments: # name - Section name. +# style - Type of section (optional) -proc SHmacro argList { +proc SHmacro {argList {style section}} { global file noFillCount textState charCnt set args [join $argList " "] @@ -641,9 +645,13 @@ proc SHmacro argList { set noFillCount 0 nest reset - puts -nonewline $file "<H3>" + set tag H3 + if {[string compare "subsection" $level] == 0} { + set tag H4 + } + puts -nonewline $file "<$tag>" text $args - puts $file "</H3>" + puts $file "</$tag>" # ? args textState |