aboutsummaryrefslogtreecommitdiff
path: root/make-index
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2011-12-12 13:39:21 +1000
committerSteve Bennett <steveb@workware.net.au>2011-12-12 13:44:43 +1000
commit278f372a86caa8fefee37cb5ef5fc521f43fa6aa (patch)
treee80fca257c093c4f4cb1a8b2fbbbb7c775641210 /make-index
parentd377de0daf8c8e257b85594242ad094420f12cdc (diff)
downloadjimtcl-278f372a86caa8fefee37cb5ef5fc521f43fa6aa.zip
jimtcl-278f372a86caa8fefee37cb5ef5fc521f43fa6aa.tar.gz
jimtcl-278f372a86caa8fefee37cb5ef5fc521f43fa6aa.tar.bz2
Update documentation for recent features
In preparation for the 0.73 release Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'make-index')
-rwxr-xr-xmake-index10
1 files changed, 6 insertions, 4 deletions
diff --git a/make-index b/make-index
index 8dba920..e743cd8 100755
--- a/make-index
+++ b/make-index
@@ -12,16 +12,18 @@ set c 0
while {[gets $f buf] >= 0} {
if {[string match "~~*" $buf]} {
- if {[string match "*:*" $prev]} {
+ if {[string match "*: *" $prev]} {
incr c
set target cmd_$c
set lines [linsert $lines end-1 "\[\[$target\]\]"]
+ set prevlist [split $prev ":, "]
} else {
- set target _$prev
+ set target _[string map {:: _} $prev]
+ set prevlist [list $prev]
}
- foreach cmd [split $prev ":,"] {
+ foreach cmd $prevlist {
set cmd [string trim $cmd]
- if {[regexp {^[a-z.]+$} $cmd]} {
+ if {[regexp {^[a-z.:]+$} $cmd]} {
lappend commands [list $cmd $target]
set cdict($cmd) $target
}