1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
+
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
+
+
+
+
-
-
-
+
+
+
-
+
-
+
+
+
+
+
|
#! /usr/bin/env tclsh
if {[catch {
set buildflags [split [lindex $argv 1] -]
set buildflags [split [lindex $argv 1] -]
# Determine if Threads was requested (or in 8.6+, unrequested)
if {$tcl_version == "8.6"} {
if {[lsearch -exact $buildflags "unthreaded"] == -1} {
set isthreaded 1
} else {
set isthreaded 0
}
} else {
if {[lsearch -exact $buildflags "threaded"] == -1} {
set isthreaded 0
} else {
set isthreaded 1
}
}
# Determine if Threads was requested (or in 8.6+, unrequested)
if {$tcl_version == "8.6"} {
if {[lsearch -exact $buildflags "unthreaded"] == -1} {
set isthreaded 1
} else {
set isthreaded 0
}
} else {
if {[lsearch -exact $buildflags "threaded"] == -1} {
set isthreaded 0
} else {
set isthreaded 1
}
}
# Static builds don't come with threads.
if {[lsearch -exact $buildflags "static"] != -1} {
set isthreaded 0
}
# Minimal builds don't come with threads.
if {[lsearch -exact $buildflags "min"] != -1} {
set isthreaded 0
}
if {!$isthreaded} {
exit 0
}
if {!$isthreaded} {
exit 0
}
package require Thread
package require Thread
exit 0
exit 0
}]} {
puts "Error in Thread Test: $errorInfo"
exit 1
}
|