"Fossies" - the Fresh Open Source Software Archive

Member "install-tl-20200916/tlpkg/tltcl/lib/thread2.8.5/pkgIndex.tcl" (17 Mar 2020, 2366 Bytes) of package /windows/misc/install-tl.zip:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Tcl/Tk source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file.

    1 # -*- tcl -*-
    2 # Tcl package index file, version 1.1
    3 #
    4 
    5 if {![package vsatisfies [package provide Tcl] 8.4]} {
    6     # Pre-8.4 Tcl interps we dont support at all.  Bye!
    7     # 9.0+ Tcl interps are only supported on 32-bit platforms.
    8     if {![package vsatisfies [package provide Tcl] 9.0]
    9         || ($::tcl_platform(pointerSize) != 4)} {
   10     return
   11     }
   12 }
   13 
   14 # All Tcl 8.4+ interps can [load] Thread 2.8.5
   15 #
   16 # For interps that are not thread-enabled, we still call [package ifneeded].
   17 # This is contrary to the usual convention, but is a good idea because we
   18 # cannot imagine any other version of Thread that might succeed in a
   19 # thread-disabled interp.  There's nothing to gain by yielding to other
   20 # competing callers of [package ifneeded Thread].  On the other hand,
   21 # deferring the error has the advantage that a script calling
   22 # [package require Thread] in a thread-disabled interp gets an error message
   23 # about a thread-disabled interp, instead of the message
   24 # "can't find package Thread".
   25 
   26 package ifneeded Thread 2.8.5 [list load [file join $dir thread285.dll]]
   27 
   28 # package Ttrace uses some support machinery.
   29 
   30 # In Tcl 8.4 interps we use some older interfaces
   31 if {![package vsatisfies [package provide Tcl] 8.5]} {
   32     package ifneeded Ttrace 2.8.5 "
   33     [list proc thread_source {dir} {
   34     if {[info exists ::env(TCL_THREAD_LIBRARY)] &&
   35         [file readable $::env(TCL_THREAD_LIBRARY)/ttrace.tcl]} {
   36         source $::env(TCL_THREAD_LIBRARY)/ttrace.tcl
   37     } elseif {[file readable [file join $dir .. lib ttrace.tcl]]} {
   38         source [file join $dir .. lib ttrace.tcl]
   39     } elseif {[file readable [file join $dir ttrace.tcl]]} {
   40         source [file join $dir ttrace.tcl]
   41     }
   42     if {[namespace which ::ttrace::update] ne ""} {
   43         ::ttrace::update
   44     }
   45     }]
   46     [list thread_source $dir]
   47     [list rename thread_source {}]"
   48     return
   49 }
   50 
   51 # In Tcl 8.5+ interps; use [::apply]
   52 
   53 package ifneeded Ttrace 2.8.5 [list ::apply {{dir} {
   54     if {[info exists ::env(TCL_THREAD_LIBRARY)] &&
   55     [file readable $::env(TCL_THREAD_LIBRARY)/ttrace.tcl]} {
   56     source $::env(TCL_THREAD_LIBRARY)/ttrace.tcl
   57     } elseif {[file readable [file join $dir .. lib ttrace.tcl]]} {
   58     source [file join $dir .. lib ttrace.tcl]
   59     } elseif {[file readable [file join $dir ttrace.tcl]]} {
   60     source [file join $dir ttrace.tcl]
   61     }
   62     if {[namespace which ::ttrace::update] ne ""} {
   63     ::ttrace::update
   64     }
   65 }} $dir]
   66 
   67 
   68