diff options
Diffstat (limited to 'tools/index.tcl')
| -rw-r--r-- | tools/index.tcl | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/tools/index.tcl b/tools/index.tcl index f2c162f..71329c2 100644 --- a/tools/index.tcl +++ b/tools/index.tcl @@ -8,14 +8,11 @@ # # 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 $ -# # Global variables used by these scripts: # # state - state variable that controls action of text proc. -# +# # topics - array indexed by (package,section,topic) with value # of topic ID. # @@ -63,7 +60,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. @@ -133,12 +130,12 @@ proc text string { proc macro {name args} { switch $name { - SH { + SH - SS { global state switch $args { NAME { - if {$state == "INIT" } { + if {$state eq "INIT" } { set state NAME } } @@ -147,7 +144,7 @@ proc macro {name args} { KEYWORDS {set state KEY} default {set state OFF} } - + } TH { global state curID curPkg curSect topics keywords @@ -179,7 +176,7 @@ proc macro {name args} { proc dash {} { global state - if {$state == "NAME"} { + if {$state eq "NAME"} { set state DASH } } @@ -188,7 +185,7 @@ proc dash {} { # initGlobals, tab, font, char, macro2 -- # -# These procedures do nothing during the first pass. +# These procedures do nothing during the first pass. # # Arguments: # None. |