Hex Artifact Content

Artifact e8193d8a2537fd8242b30b0f058770d34d484686:


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 0a 69 66 20 7b 5b 69 6e 66  rgv 0]..if {[inf
0040: 6f 20 6e 61 6d 65 6f 66 65 78 65 63 75 74 61 62  o nameofexecutab
0050: 6c 65 5d 20 3d 3d 20 24 6f 75 74 70 75 74 6e 61  le] == $outputna
0060: 6d 65 7d 20 7b 0a 09 65 78 69 74 20 30 0a 7d 0a  me} {..exit 0.}.
0070: 0a 65 78 69 74 20 31 0a                          .exit 1.