Artifact 4d059e3e0ca38f698b8d9eee30cb1ac48f4c5375:
0000: 23 21 20 2f 75 73 72 2f 62 69 6e 2f 65 6e 76 20 #! /usr/bin/env
0010: 74 63 6c 73 68 0a 0a 23 20 54 63 6c 20 38 2e 34 tclsh..# Tcl 8.4
0020: 20 64 6f 65 73 6e 27 74 20 73 75 70 70 6f 72 74 doesn't support
0030: 20 74 68 69 73 20 74 65 73 74 0a 69 66 20 7b 24 this test.if {$
0040: 74 63 6c 5f 76 65 72 73 69 6f 6e 20 3d 3d 20 22 tcl_version == "
0050: 38 2e 34 22 7d 20 7b 0a 09 65 78 69 74 20 30 0a 8.4"} {..exit 0.
0060: 7d 0a 0a 23 20 44 65 74 65 72 6d 69 6e 65 20 69 }..# Determine i
0070: 66 20 77 65 20 73 68 6f 75 6c 64 20 62 65 20 36 f we should be 6
0080: 34 2d 62 69 74 20 6f 72 20 6e 6f 74 0a 73 65 74 4-bit or not.set
0090: 20 62 75 69 6c 64 66 6c 61 67 73 20 5b 73 70 6c buildflags [spl
00a0: 69 74 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 76 it [lindex $argv
00b0: 20 31 5d 20 2d 5d 0a 69 66 20 7b 5b 6c 73 65 61 1] -].if {[lsea
00c0: 72 63 68 20 2d 65 78 61 63 74 20 24 62 75 69 6c rch -exact $buil
00d0: 64 66 6c 61 67 73 20 22 61 6d 64 36 34 22 5d 20 dflags "amd64"]
00e0: 21 3d 20 2d 31 7d 20 7b 0a 09 73 65 74 20 69 73 != -1} {..set is
00f0: 36 34 62 69 74 20 31 0a 7d 20 65 6c 73 65 20 7b 64bit 1.} else {
0100: 0a 09 73 65 74 20 69 73 36 34 62 69 74 20 30 0a ..set is64bit 0.
0110: 7d 0a 0a 69 66 20 7b 5b 74 63 6c 3a 3a 70 6b 67 }..if {[tcl::pkg
0120: 63 6f 6e 66 69 67 20 67 65 74 20 36 34 62 69 74 config get 64bit
0130: 5d 20 3d 3d 20 24 69 73 36 34 62 69 74 7d 20 7b ] == $is64bit} {
0140: 0a 09 65 78 69 74 20 30 0a 7d 0a 0a 70 75 74 73 ..exit 0.}..puts
0150: 20 22 74 63 6c 3a 3a 70 6b 67 63 6f 6e 66 69 67 "tcl::pkgconfig
0160: 20 67 65 74 20 36 34 20 72 65 74 75 72 6e 65 64 get 64 returned
0170: 20 5b 74 63 6c 3a 3a 70 6b 67 63 6f 6e 66 69 67 [tcl::pkgconfig
0180: 20 67 65 74 20 36 34 62 69 74 5d 2c 20 62 75 74 get 64bit], but
0190: 20 70 6c 61 74 66 6f 72 6d 20 69 73 20 36 34 20 platform is 64
01a0: 62 69 74 20 72 65 74 75 72 6e 65 64 3a 20 24 69 bit returned: $i
01b0: 73 36 34 62 69 74 22 0a 0a 65 78 69 74 20 31 0a s64bit"..exit 1.