diff options
Diffstat (limited to 'tools/index.tcl')
| -rw-r--r-- | tools/index.tcl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tools/index.tcl b/tools/index.tcl index 1a9c437..e620316 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. # -# SCCS: @(#) index.tcl 1.2 96/10/17 14:44:16 +# RCS: @(#) $Id: index.tcl,v 1.1.2.2 1998/09/24 23:59:41 stanton Exp $ # # Global variables used by these scripts: @@ -55,6 +55,7 @@ proc getPackages {} { proc getSections {pkg} { global topics + regsub -all {[][*?\\]} $pkg {\\&} pkg foreach i [array names topics "${pkg},*"] { regsub {^.*,(.*),.*$} $i {\1} i set temp($i) {} @@ -73,6 +74,8 @@ proc getSections {pkg} { proc getTopics {pkg sect} { global topics + regsub -all {[][*?\\]} $pkg {\\&} pkg + regsub -all {[][*?\\]} $sect {\\&} sect foreach i [array names topics "${pkg},${sect},*"] { regsub {^.*,.*,(.*)$} $i {\1} i set temp($i) {} @@ -157,6 +160,7 @@ proc macro {name args} { set topic [lindex $args 0] ;# Tcl_UpVar set curPkg [lindex $args 3] ;# Tcl set curSect [lindex $args 4] ;# {Tcl Library Procedures} + regsub -all {\\ } $curSect { } curSect set index "$curPkg,$curSect,$topic" set topics($index) $curID lappend keywords($topic) $curID |