Hex Artifact Content

Artifact 7817026d2e17c77152e47c87b6f732263daf6f14:


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 72 65 74 75 72 6e 65 64 20 5b 74   get returned [t
0170: 63 6c 3a 3a 70 6b 67 63 6f 6e 66 69 67 20 67 65  cl::pkgconfig ge
0180: 74 20 36 34 62 69 74 5d 2c 20 62 75 74 20 77 65  t 64bit], but we
0190: 20 70 6c 61 74 66 6f 72 6d 20 36 34 20 62 69 74   platform 64 bit
01a0: 20 72 65 74 75 72 6e 65 64 3a 20 24 69 73 36 34   returned: $is64
01b0: 62 69 74 22 0a 0a 65 78 69 74 20 31 0a           bit"..exit 1.