diff options
author | stanton <stanton@noemail.net> | 1998-08-07 18:25:56 (GMT) |
---|---|---|
committer | stanton <stanton@noemail.net> | 1998-08-07 18:25:56 (GMT) |
commit | 1696aa14836815bd07b0ae4dbab86529ede56386 (patch) | |
tree | 4af83818c17d49a7471f156562ad512225ed9b1b /tools/index.tcl | |
parent | a520b3817ebac609d968266573ace2c67a474e27 (diff) | |
download | tcl-1696aa14836815bd07b0ae4dbab86529ede56386.zip tcl-1696aa14836815bd07b0ae4dbab86529ede56386.tar.gz tcl-1696aa14836815bd07b0ae4dbab86529ede56386.tar.bz2 |
*** empty log message ***
FossilOrigin-Name: 83ef6322694c0ba629a16282107f01d07a832415
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 35f3638..30123b7 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: %Z% $Id: index.tcl,v 1.1 1998/04/28 18:53:50 stanton Exp $ +# SCCS: %Z% $Id: index.tcl,v 1.2 1998/08/07 18:26:01 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 |