summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJoe Mistachkin <joe@mistachkin.com>2003-06-04 23:41:14 (GMT)
committerJoe Mistachkin <joe@mistachkin.com>2003-06-04 23:41:14 (GMT)
commitbbd2e7af7aeb9a2e197f40113740755504716d7a (patch)
tree474aaded278e4066475e759d40c50466c410d28f
parent0c2fad2535129377ff0aeba08bee31cb85c08814 (diff)
downloadtcl-bbd2e7af7aeb9a2e197f40113740755504716d7a.zip
tcl-bbd2e7af7aeb9a2e197f40113740755504716d7a.tar.gz
tcl-bbd2e7af7aeb9a2e197f40113740755504716d7a.tar.bz2
Fix for [Bug 748700]
-rw-r--r--ChangeLog6
-rw-r--r--tools/index.tcl4
-rw-r--r--tools/man2help.tcl10
3 files changed, 16 insertions, 4 deletions
diff --git a/ChangeLog b/ChangeLog
index 1b83852..b7ebd8e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2003-06-04 Joe Mistachkin <joe@mistachkin.com>
+
+ * tools/man2help.tcl: Added duplicate help section checking
+ * tools/index.tcl: and corrected a comment typo for the
+ getTopics proc in index.tcl [Bug #748700].
+
2003-05-23 Don Porter <dgp@users.sourceforge.net>
* generic/tclObj.c (tclCmdNameType): Converted internal rep
diff --git a/tools/index.tcl b/tools/index.tcl
index f2c162f..629ceb4 100644
--- a/tools/index.tcl
+++ b/tools/index.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: index.tcl,v 1.3 1998/09/14 18:40:15 stanton Exp $
+# RCS: @(#) $Id: index.tcl,v 1.3.40.1 2003/06/04 23:41:15 mistachkin Exp $
#
# Global variables used by these scripts:
@@ -63,7 +63,7 @@ proc getSections {pkg} {
lsort [array names temp]
}
-# getSections --
+# getTopics --
#
# Generate a sorted list of topics in the specified section of the
# specified package from the topics array.
diff --git a/tools/man2help.tcl b/tools/man2help.tcl
index d172d1e..b0da42a 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.13 2002/08/09 00:13:54 davygrvy Exp $
+# RCS: @(#) $Id: man2help.tcl,v 1.13.2.1 2003/06/04 23:41:15 mistachkin Exp $
#
#
@@ -28,7 +28,13 @@ proc generateContents {basename version files} {
puts $fd ":Base $basename$version.hlp"
foreach package [getPackages] {
foreach section [getSections $package] {
- puts $fd "1 $section"
+ if {![info exists lastSection]} {
+ set lastSection {}
+ }
+ if {[string compare $lastSection $section]} {
+ puts $fd "1 $section"
+ }
+ set lastSection $section
set lastTopic {}
foreach topic [getTopics $package $section] {
if {[string compare $lastTopic $topic]} {