Tcl Source Code

Check-in [8e42cf68a5]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:helper to import `timerate` on demand in unknown/autoload proceeding.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | sebres-8-5-timerate
Files: files | file ages | folders
SHA3-256: 8e42cf68a5c293fc7fb0a979189cedc3f465b1f7ea166384f60dd5d9d3324de4
User & Date: sebres 2019-03-05 11:28:54
Context
2019-03-05
12:56
back-porting test-performance suite and clock.perf.tcl from clock-speedup branch check-in: 6d517f3acd user: sebres tags: sebres-8-5-timerate
11:28
helper to import `timerate` on demand in unknown/autoload proceeding. check-in: 8e42cf68a5 user: sebres tags: sebres-8-5-timerate
11:22
regarding the TIP#527, `timerate` shall be placed into `::tcl::unsupported` in versions prior to 8.7 check-in: f6edb4f6be user: sebres tags: sebres-8-5-timerate
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to library/tclIndex.

81
82
83
84
85
86
87



set auto_index(tcl_startOfPreviousWord) [list source [file join $dir word.tcl]]
set auto_index(::tcl::tm::add) [list source [file join $dir tm.tcl]]
set auto_index(::tcl::tm::remove) [list source [file join $dir tm.tcl]]
set auto_index(::tcl::tm::list) [list source [file join $dir tm.tcl]]
set auto_index(::tcl::tm::UnknownHandler) [list source [file join $dir tm.tcl]]
set auto_index(::tcl::tm::roots) [list source [file join $dir tm.tcl]]
set auto_index(::tcl::tm::path) [list source [file join $dir tm.tcl]]









>
>
>
81
82
83
84
85
86
87
88
89
90
set auto_index(tcl_startOfPreviousWord) [list source [file join $dir word.tcl]]
set auto_index(::tcl::tm::add) [list source [file join $dir tm.tcl]]
set auto_index(::tcl::tm::remove) [list source [file join $dir tm.tcl]]
set auto_index(::tcl::tm::list) [list source [file join $dir tm.tcl]]
set auto_index(::tcl::tm::UnknownHandler) [list source [file join $dir tm.tcl]]
set auto_index(::tcl::tm::roots) [list source [file join $dir tm.tcl]]
set auto_index(::tcl::tm::path) [list source [file join $dir tm.tcl]]
if {[namespace exists ::tcl::unsupported]} {
    set auto_index(timerate) {namespace import ::tcl::unsupported::timerate}
}