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
|
#
# Copyright (C) 1997-2000 Matt Newman <[email protected]>
#
# $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tests/oldTests/tls.tcl,v 1.1 2000/06/06 18:13:20 aborr Exp $
#
set dir [file dirname [info script]]
regsub {\.} [info tclversion] {} vshort
if {$tcl_platform(platform) == "windows"} {
if {[info exists tcl_platform(debug)]} {
load $dir/../win/Debug$vshort/tls.dll
} else {
load $dir/../win/Release$vshort/tls.dll
}
} else {
load [glob $dir/../unix/libtls*]
}
proc bgerror {err} {
global errorInfo
puts stderr "BG Error: $errorInfo"
}
source $dir/../library/tls.tcl
set tls::debug 2
|
|
|
|
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
|
#
# Copyright (C) 1997-2000 Matt Newman <[email protected]>
#
# $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tests/oldTests/tls.tcl,v 1.2 2000/06/06 18:24:33 aborr Exp $
#
set dir [file dirname [info script]]
regsub {\.} [info tclversion] {} vshort
if {$tcl_platform(platform) == "windows"} {
if {[info exists tcl_platform(debug)]} {
load $dir/../win/Debug$vshort/tls.dll
} else {
load $dir/../win/Release$vshort/tls.dll
}
} else {
load [glob $dir/../unix/libtls*]
}
proc bgerror {err} {
global errorInfo
puts stderr "BG Error: $errorInfo"
}
source $dir/../tls.tcl
set tls::debug 2
|