diff options
| author | hobbs <hobbs> | 2001-11-10 02:34:57 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-11-10 02:34:57 (GMT) |
| commit | 0c15536070d7941a5ef3c7eaf851a5e3a390b027 (patch) | |
| tree | 87b6d868316b27db3613ea276a5d339ace2715f3 /tools | |
| parent | c5392471933876bb9cbe86b7fce3b3dc579d7ecd (diff) | |
| download | tcl-0c15536070d7941a5ef3c7eaf851a5e3a390b027.zip tcl-0c15536070d7941a5ef3c7eaf851a5e3a390b027.tar.gz tcl-0c15536070d7941a5ef3c7eaf851a5e3a390b027.tar.bz2 | |
fixed winhelp generation problems #480268
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/man2help.tcl | 4 | ||||
| -rw-r--r-- | tools/man2help2.tcl | 15 |
2 files changed, 11 insertions, 8 deletions
diff --git a/tools/man2help.tcl b/tools/man2help.tcl index 130fde2..2422468 100644 --- a/tools/man2help.tcl +++ b/tools/man2help.tcl @@ -6,7 +6,7 @@ # # Copyright (c) 1996 by Sun Microsystems, Inc. # -# RCS: @(#) $Id: man2help.tcl,v 1.7 2000/11/24 14:17:12 dkf Exp $ +# RCS: @(#) $Id: man2help.tcl,v 1.8 2001/11/10 02:34:57 hobbs Exp $ # # @@ -99,7 +99,7 @@ proc doFile {file} { proc doDir dir { puts "Generating man pages for $dir..." foreach f [lsort [glob -directory $dir "*.\[13n\]"]] { - do $f + doFile $f } } diff --git a/tools/man2help2.tcl b/tools/man2help2.tcl index 730cb35..82aa664 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.6 2000/04/04 08:05:32 hobbs Exp $ +# RCS: @(#) $Id: man2help2.tcl,v 1.7 2001/11/10 02:34:57 hobbs Exp $ # # Global variables used by these scripts: @@ -271,7 +271,9 @@ proc macro {name args} { } tab } - AS {} ;# next page and previous page + AS { + # next page and previous page + } br { lineBreak } @@ -283,7 +285,8 @@ proc macro {name args} { set state(breakPending) 0 newPara 0i } - CS { ;# code section + CS { + # code section incrNestingLevel set state(noFill) 1 newPara 0i @@ -510,7 +513,7 @@ proc formattedText {text} { } o { text "\\'" - regexp "'([^']*)'(.*)" $text all ch text + regexp {'([^']*)'(.*)} $text all ch text text $chars($ch) } default { @@ -705,7 +708,7 @@ proc SHmacro {argList} { set args [join $argList " "] if {[llength $argList] < 1} { - puts stderr "Bad .SH macro: .$name $args" + puts stderr "Bad .SH macro: .SH $args" } # control what the text proc does with text @@ -827,7 +830,7 @@ proc THmacro {argList} { if {[llength $argList] != 5} { set args [join $argList " "] - puts stderr "Bad .TH macro: .$name $args" + puts stderr "Bad .TH macro: .TH $args" } incr curID set name [lindex $argList 0] ;# Tcl_UpVar |