summaryrefslogtreecommitdiffstats
path: root/library/auto.tcl
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-03-21 14:35:34 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-03-21 14:35:34 (GMT)
commit4e6cf83ae3b856598a8c57d80867a015b162707e (patch)
tree7aaec4b6249847aed37d5170d228c0076d090fe0 /library/auto.tcl
parentd06c12ad4e7d14199f6c4d531f379b3347d4d06c (diff)
parentf9a1022456da2832c6a6609935e9ab40e10a8b22 (diff)
downloadtcl-4e6cf83ae3b856598a8c57d80867a015b162707e.zip
tcl-4e6cf83ae3b856598a8c57d80867a015b162707e.tar.gz
tcl-4e6cf83ae3b856598a8c57d80867a015b162707e.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 e86257e..0848bb1 100644
--- a/library/auto.tcl
+++ b/library/auto.tcl
@@ -605,6 +605,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 {} {}]
+ }
+ }
}
}