diff options
author | dgp <dgp@users.sourceforge.net> | 2013-03-21 14:35:34 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-03-21 14:35:34 (GMT) |
commit | 4c35f9a03a9a77fd52bba05ff9301e68b846444a (patch) | |
tree | 7aaec4b6249847aed37d5170d228c0076d090fe0 /library | |
parent | fc2ae2acaf52ad6ce086f27d52b03b997e3c870b (diff) | |
parent | fff161d582d0c83b809f3294e4161c443b6b98ca (diff) | |
download | tcl-4c35f9a03a9a77fd52bba05ff9301e68b846444a.zip tcl-4c35f9a03a9a77fd52bba05ff9301e68b846444a.tar.gz tcl-4c35f9a03a9a77fd52bba05ff9301e68b846444a.tar.bz2 |
2102614 Add ensemble indexing support to [auto_mkindex]. Thanks Brian Griffin.
Diffstat (limited to 'library')
-rw-r--r-- | library/auto.tcl | 9 |
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 {} {}] + } + } } } |