summaryrefslogtreecommitdiffstats
path: root/library/auto.tcl
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-03-21 14:28:59 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-03-21 14:28:59 (GMT)
commitf9a1022456da2832c6a6609935e9ab40e10a8b22 (patch)
tree553365144a6d50b02e653b4279f40544aa7a40d0 /library/auto.tcl
parent4072ab92c6098e4cebd7922e2118252a9a594f30 (diff)
downloadtcl-f9a1022456da2832c6a6609935e9ab40e10a8b22.zip
tcl-f9a1022456da2832c6a6609935e9ab40e10a8b22.tar.gz
tcl-f9a1022456da2832c6a6609935e9ab40e10a8b22.tar.bz2
2102614 Add ensemble indexing support to [auto_mkindex]. Thanks Brian Griffin.
Diffstat (limited to 'library/auto.tcl')
-rw-r--r--library/auto.tcl9
1 files changed, 9 insertions, 0 deletions
diff --git a/library/auto.tcl b/library/auto.tcl
index b0fb61d..f7cf5f0 100644
--- a/library/auto.tcl
+++ b/library/auto.tcl
@@ -603,6 +603,15 @@ auto_mkindex_parser::command namespace {op args} {
}
catch {$parser eval "_%@namespace import $args"}
}
+ ensemble {
+ variable parser
+ variable contextStack
+ if {[lindex $args 0] eq "create"} {
+ set name ::[join [lreverse $contextStack] ::]
+ # create artifical proc to force an entry in the tclIndex
+ $parser eval [list ::proc $name {} {}]
+ }
+ }
}
}