Hex Artifact Content

Artifact 9a811a5937bf97c309523e883475ec4af173594e:


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 73 65 74 20 62 75 69 6c 64  tclsh..set build
0020: 66 6c 61 67 73 20 5b 73 70 6c 69 74 20 5b 6c 69  flags [split [li
0030: 6e 64 65 78 20 24 61 72 67 76 20 31 5d 20 2d 5d  ndex $argv 1] -]
0040: 0a 0a 69 66 20 7b 24 74 63 6c 5f 76 65 72 73 69  ..if {$tcl_versi
0050: 6f 6e 20 3d 3d 20 22 38 2e 36 22 7d 20 7b 0a 09  on == "8.6"} {..
0060: 69 66 20 7b 5b 6c 73 65 61 72 63 68 20 2d 65 78  if {[lsearch -ex
0070: 61 63 74 20 24 62 75 69 6c 64 66 6c 61 67 73 20  act $buildflags 
0080: 22 75 6e 74 68 72 65 61 64 65 64 22 5d 20 3d 3d  "unthreaded"] ==
0090: 20 2d 31 7d 20 7b 0a 09 09 73 65 74 20 69 73 74   -1} {...set ist
00a0: 68 72 65 61 64 65 64 20 31 0a 09 7d 20 65 6c 73  hreaded 1..} els
00b0: 65 20 7b 0a 09 09 73 65 74 20 69 73 74 68 72 65  e {...set isthre
00c0: 61 64 65 64 20 30 0a 09 7d 0a 7d 20 65 6c 73 65  aded 0..}.} else
00d0: 20 7b 0a 09 69 66 20 7b 5b 6c 73 65 61 72 63 68   {..if {[lsearch
00e0: 20 2d 65 78 61 63 74 20 24 62 75 69 6c 64 66 6c   -exact $buildfl
00f0: 61 67 73 20 22 74 68 72 65 61 64 65 64 22 5d 20  ags "threaded"] 
0100: 3d 3d 20 2d 31 7d 20 7b 0a 09 09 73 65 74 20 69  == -1} {...set i
0110: 73 74 68 72 65 61 64 65 64 20 30 0a 09 7d 20 65  sthreaded 0..} e
0120: 6c 73 65 20 7b 0a 09 09 73 65 74 20 69 73 74 68  lse {...set isth
0130: 72 65 61 64 65 64 20 31 0a 09 7d 0a 7d 0a 0a 69  readed 1..}.}..i
0140: 66 20 7b 21 24 69 73 74 68 72 65 61 64 65 64 7d  f {!$isthreaded}
0150: 20 7b 0a 09 65 78 69 74 20 30 0a 7d 0a 0a 70 61   {..exit 0.}..pa
0160: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 54 68  ckage require Th
0170: 72 65 61 64 0a 0a 65 78 69 74 20 30 0a           read..exit 0.