Tcl package Thread source code

Check-in [0da0b1fa18]
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:... But only do "package ifneeded Thread" when tread support for Tcl is already determined.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | thread-2-7for84+
Files: files | file ages | folders
SHA1: 0da0b1fa185cfaaba571f0f38bb60850b03b108c
User & Date: jan.nijtmans 2012-11-06 15:50:36
Context
2012-11-12
09:20
Merged thread-2-7for84+. Fixed race condition in ThreadCancel(). check-in: 5a81d6720d user: zoran tags: trunk
2012-11-06
15:50
... But only do "package ifneeded Thread" when tread support for Tcl is already determined. Closed-Leaf check-in: 0da0b1fa18 user: jan.nijtmans tags: thread-2-7for84+
15:45
Use tcl_platform(threaded) on Tcl8.4 and [::tcl::pkgconfig get threaded] on higher Tcl version, for testing whether Tcl is compiled with threads support. check-in: b8d3e72748 user: jan.nijtmans tags: thread-2-7for84+
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to pkgIndex.tcl.in.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
..
44
45
46
47
48
49
50

51
# -*- tcl -*-
# Tcl package index file, version 1.1
#
if {[package vsatisfies [package provide Tcl] 8.4]} {

    package ifneeded Thread @[email protected] [list load [file join $dir @[email protected]]]

    if {[llength [info commands apply]]} {
	# We can use a lambda (anon function) and ::tcl::pkgconfig

	if {([info commands ::tcl::pkgconfig] eq "")
		|| ![::tcl::pkgconfig get threaded]} return

	package ifneeded Ttrace @[email protected] [list ::apply {{dir} {
................................................................................
	    }
	    if {[llength [info commands ttrace::update]]} {
		ttrace::update
	    }
	    rename @[email protected]_source {}
	}
    }

}




<
<







 







>

1
2
3
4
5


6
7
8
9
10
11
12
..
42
43
44
45
46
47
48
49
50
# -*- tcl -*-
# Tcl package index file, version 1.1
#
if {[package vsatisfies [package provide Tcl] 8.4]} {



    if {[llength [info commands apply]]} {
	# We can use a lambda (anon function) and ::tcl::pkgconfig

	if {([info commands ::tcl::pkgconfig] eq "")
		|| ![::tcl::pkgconfig get threaded]} return

	package ifneeded Ttrace @[email protected] [list ::apply {{dir} {
................................................................................
	    }
	    if {[llength [info commands ttrace::update]]} {
		ttrace::update
	    }
	    rename @[email protected]_source {}
	}
    }
    package ifneeded Thread @[email protected] [list load [file join $dir @[email protected]]]
}