Artifact df3ccdde39718f879d462a60f901abb785c5abd8:

• File build/test/tests/12-threads.tcl — part of check-in [15bb35cd1b] at 2010-10-04 04:53:50 on branch trunk — Added comments to Threads test (user: rkeene, size: 557) [annotate] [blame] [check-ins using]

#! /usr/bin/env tclsh

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
	}
}

# Static builds don't come with threads.
if {[lsearch -exact $buildflags "static"] != -1} {
	set isthreaded 0
}

if {!$isthreaded} {
	exit 0
}

package require Thread

exit 0