summaryrefslogtreecommitdiffstats
path: root/library/auto.tcl
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2013-08-03 15:27:40 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2013-08-03 15:27:40 (GMT)
commitc5ef7f0df97b7cc9452e449957462cd0dbbe373c (patch)
tree092c491311483b05a7d98d3bf93fb1bf56e75e33 /library/auto.tcl
parented2e06d4526c12d6cb4c559b6746216396ca4a10 (diff)
downloadtcl-c5ef7f0df97b7cc9452e449957462cd0dbbe373c.zip
tcl-c5ef7f0df97b7cc9452e449957462cd0dbbe373c.tar.gz
tcl-c5ef7f0df97b7cc9452e449957462cd0dbbe373c.tar.bz2
[3611643fff]: Support TclOO in autoload mechanism.
Diffstat (limited to 'library/auto.tcl')
-rw-r--r--library/auto.tcl14
1 files changed, 14 insertions, 0 deletions
diff --git a/library/auto.tcl b/library/auto.tcl
index 0848bb1..78c219e 100644
--- a/library/auto.tcl
+++ b/library/auto.tcl
@@ -617,4 +617,18 @@ auto_mkindex_parser::command namespace {op args} {
}
}
+# AUTO MKINDEX: oo::class create name ?definition?
+# Adds an entry to the auto index list for the given class name.
+foreach cmd {oo::class class} {
+ auto_mkindex_parser::command $cmd {ecmd name {body ""}} {
+ if {$cmd eq "create"} {
+ variable index
+ variable scriptFile
+ append index [format "set %s \[list source \[%s]]\n" \
+ [list auto_index([fullname $name])] \
+ [list file join $dir {*}[file split $scriptFile]]]
+ }
+ }
+}
+
return