Hex Artifact Content

Artifact cc4d6e243b24bc8235563c04552a963523e0a33d:


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 6f 75 74 70 75  tclsh..set outpu
0020: 74 6e 61 6d 65 20 5b 6c 69 6e 64 65 78 20 24 61  tname [lindex $a
0030: 72 67 76 20 30 5d 0a 73 65 74 20 62 75 69 6c 64  rgv 0].set build
0040: 66 6c 61 67 73 20 5b 73 70 6c 69 74 20 5b 6c 69  flags [split [li
0050: 6e 64 65 78 20 24 61 72 67 76 20 31 5d 20 2d 5d  ndex $argv 1] -]
0060: 0a 0a 23 20 49 66 20 77 65 20 62 75 69 6c 74 20  ..# If we built 
0070: 61 20 4b 69 74 44 4c 4c 2c 20 74 68 65 20 65 78  a KitDLL, the ex
0080: 65 63 75 74 61 62 6c 65 20 6e 61 6d 65 20 77 69  ecutable name wi
0090: 6c 6c 20 62 65 20 22 2e 2f 74 63 6c 73 68 22 0a  ll be "./tclsh".
00a0: 69 66 20 7b 5b 6c 73 65 61 72 63 68 20 2d 65 78  if {[lsearch -ex
00b0: 61 63 74 20 24 62 75 69 6c 64 66 6c 61 67 73 20  act $buildflags 
00c0: 22 6b 69 74 64 6c 6c 22 5d 20 21 3d 20 2d 31 7d  "kitdll"] != -1}
00d0: 20 7b 0a 09 73 65 74 20 6f 75 74 70 75 74 6e 61   {..set outputna
00e0: 6d 65 20 22 24 7b 6f 75 74 70 75 74 6e 61 6d 65  me "${outputname
00f0: 7d 2d 74 63 6c 73 68 22 0a 7d 0a 0a 69 66 20 7b  }-tclsh".}..if {
0100: 5b 69 6e 66 6f 20 6e 61 6d 65 6f 66 65 78 65 63  [info nameofexec
0110: 75 74 61 62 6c 65 5d 20 3d 3d 20 24 6f 75 74 70  utable] == $outp
0120: 75 74 6e 61 6d 65 7d 20 7b 0a 09 65 78 69 74 20  utname} {..exit 
0130: 30 0a 7d 0a 0a 23 20 55 6e 64 65 72 20 57 69 6e  0.}..# Under Win
0140: 65 2c 20 74 68 65 20 64 72 69 76 65 20 6c 65 74  e, the drive let
0150: 74 65 72 20 69 73 20 61 64 64 65 64 0a 69 66 20  ter is added.if 
0160: 7b 5b 69 6e 66 6f 20 6e 61 6d 65 6f 66 65 78 65  {[info nameofexe
0170: 63 75 74 61 62 6c 65 5d 20 3d 3d 20 22 5a 3a 24  cutable] == "Z:$
0180: 6f 75 74 70 75 74 6e 61 6d 65 22 7d 20 7b 0a 09  outputname"} {..
0190: 65 78 69 74 20 30 0a 7d 0a 0a 70 75 74 73 20 22  exit 0.}..puts "
01a0: 49 6e 66 6f 20 4e 61 6d 65 4f 66 45 78 65 3a 20  Info NameOfExe: 
01b0: 5b 69 6e 66 6f 20 6e 61 6d 65 6f 66 65 78 65 63  [info nameofexec
01c0: 75 74 61 62 6c 65 5d 22 0a 70 75 74 73 20 22 45  utable]".puts "E
01d0: 78 70 65 63 74 65 64 3a 20 20 20 20 20 20 20 24  xpected:       $
01e0: 6f 75 74 70 75 74 6e 61 6d 65 22 0a 0a 65 78 69  outputname"..exi
01f0: 74 20 31 0a                                      t 1.