Hex Artifact Content

Artifact e69ba495b8c435fad66b3ff230df6495103124ab:


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 7b 6b 69 74 6e 61 6d 65 7d 2d  ll be {kitname}-
00a0: 74 63 6c 73 68 0a 69 66 20 7b 5b 6c 73 65 61 72  tclsh.if {[lsear
00b0: 63 68 20 2d 65 78 61 63 74 20 24 62 75 69 6c 64  ch -exact $build
00c0: 66 6c 61 67 73 20 22 6b 69 74 64 6c 6c 22 5d 20  flags "kitdll"] 
00d0: 21 3d 20 2d 31 7d 20 7b 0a 09 73 65 74 20 6f 75  != -1} {..set ou
00e0: 74 70 75 74 6e 61 6d 65 20 22 24 7b 6f 75 74 70  tputname "${outp
00f0: 75 74 6e 61 6d 65 7d 2d 74 63 6c 73 68 22 0a 7d  utname}-tclsh".}
0100: 0a 0a 69 66 20 7b 5b 69 6e 66 6f 20 6e 61 6d 65  ..if {[info name
0110: 6f 66 65 78 65 63 75 74 61 62 6c 65 5d 20 3d 3d  ofexecutable] ==
0120: 20 24 6f 75 74 70 75 74 6e 61 6d 65 7d 20 7b 0a   $outputname} {.
0130: 09 65 78 69 74 20 30 0a 7d 0a 0a 23 20 55 6e 64  .exit 0.}..# Und
0140: 65 72 20 57 69 6e 65 2c 20 74 68 65 20 64 72 69  er Wine, the dri
0150: 76 65 20 6c 65 74 74 65 72 20 69 73 20 61 64 64  ve letter is add
0160: 65 64 0a 69 66 20 7b 5b 69 6e 66 6f 20 6e 61 6d  ed.if {[info nam
0170: 65 6f 66 65 78 65 63 75 74 61 62 6c 65 5d 20 3d  eofexecutable] =
0180: 3d 20 22 5a 3a 24 6f 75 74 70 75 74 6e 61 6d 65  = "Z:$outputname
0190: 22 7d 20 7b 0a 09 65 78 69 74 20 30 0a 7d 0a 0a  "} {..exit 0.}..
01a0: 70 75 74 73 20 22 49 6e 66 6f 20 4e 61 6d 65 4f  puts "Info NameO
01b0: 66 45 78 65 3a 20 5b 69 6e 66 6f 20 6e 61 6d 65  fExe: [info name
01c0: 6f 66 65 78 65 63 75 74 61 62 6c 65 5d 22 0a 70  ofexecutable]".p
01d0: 75 74 73 20 22 45 78 70 65 63 74 65 64 3a 20 20  uts "Expected:  
01e0: 20 20 20 20 20 24 6f 75 74 70 75 74 6e 61 6d 65       $outputname
01f0: 22 0a 0a 65 78 69 74 20 31 0a                    "..exit 1.