diff options
| author | dkf <dkf@noemail.net> | 2004-05-18 12:15:59 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2004-05-18 12:15:59 (GMT) |
| commit | b60aa89d0bd7432aaf9a01fc7b7c243685699c5a (patch) | |
| tree | fb71db95043d403417001938301f3347d01f9559 /tools | |
| parent | 21e466b898541c0a78ea04ae35f6202cdb3cd4c0 (diff) | |
| download | tcl-b60aa89d0bd7432aaf9a01fc7b7c243685699c5a.zip tcl-b60aa89d0bd7432aaf9a01fc7b7c243685699c5a.tar.gz tcl-b60aa89d0bd7432aaf9a01fc7b7c243685699c5a.tar.bz2 | |
Added support .SS macros.
FossilOrigin-Name: 9787bb4896a31f98ba204f91d147c7d02d24ac26
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/man2help2.tcl | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/tools/man2help2.tcl b/tools/man2help2.tcl index df2678c..4a38cae 100644 --- a/tools/man2help2.tcl +++ b/tools/man2help2.tcl @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: man2help2.tcl,v 1.12 2002/10/03 13:34:32 dkf Exp $ +# RCS: @(#) $Id: man2help2.tcl,v 1.13 2004/05/18 12:16:02 dkf Exp $ # # Global variables used by these scripts: @@ -378,6 +378,9 @@ proc macro {name args} { SH { SHmacro $args } + SS { + SHmacro $args subsection + } SO { SHmacro "STANDARD OPTIONS" set state(nestingLevel) 0 @@ -702,12 +705,12 @@ proc macro2 {name args} { # SHmacro -- # -# Subsection head; handles the .SH macro. +# Subsection head; handles the .SH and .SS macros. # # Arguments: # name - Section name. -proc SHmacro {argList} { +proc SHmacro {argList {style section}} { global file state set args [join $argList " "] @@ -732,7 +735,11 @@ proc SHmacro {argList} { set state(breakPending) 0 } set state(noFill) 0 - nextPara 0i + if {[string compare "subsection" $style] == 0} { + nextPara .25i + } else { + nextPara 0i + } font B text $args font R |