summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
Diffstat (limited to 'tools')
-rw-r--r--tools/man2help.tcl4
-rw-r--r--tools/man2help2.tcl15
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