diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-12-12 13:39:21 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2011-12-12 13:44:43 +1000 |
commit | 278f372a86caa8fefee37cb5ef5fc521f43fa6aa (patch) | |
tree | e80fca257c093c4f4cb1a8b2fbbbb7c775641210 /make-index | |
parent | d377de0daf8c8e257b85594242ad094420f12cdc (diff) | |
download | jimtcl-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-x | make-index | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -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 } |