Hex Artifact Content

Artifact d679aaf9ec4f87d22086a191f034fd6ed074a1a7:


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 63 68 6b 76 65  tclsh..set chkve
0020: 72 73 69 6f 6e 20 5b 6c 69 6e 64 65 78 20 24 61  rsion [lindex $a
0030: 72 67 76 20 32 5d 0a 0a 23 20 57 65 20 61 72 65  rgv 2]..# We are
0040: 20 75 6e 61 62 6c 65 20 74 6f 20 6d 61 6b 65 20   unable to make 
0050: 61 20 72 65 61 73 6f 6e 61 62 6c 65 20 64 65 74  a reasonable det
0060: 65 72 6d 69 6e 61 74 69 6f 6e 20 6f 66 20 74 68  ermination of th
0070: 65 20 76 65 72 73 69 6f 6e 20 66 72 6f 6d 20 61  e version from a
0080: 20 43 56 53 0a 23 20 74 61 67 2e 20 20 41 73 73   CVS.# tag.  Ass
0090: 75 6d 65 20 69 74 27 73 20 6f 6b 61 79 2e 0a 69  ume it's okay..i
00a0: 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 68  f {[string match
00b0: 20 22 63 76 73 5f 2a 22 20 24 63 68 6b 76 65 72   "cvs_*" $chkver
00c0: 73 69 6f 6e 5d 7d 20 7b 0a 09 65 78 69 74 20 30  sion]} {..exit 0
00d0: 0a 7d 0a 0a 69 66 20 7b 5b 69 6e 66 6f 20 70 61  .}..if {[info pa
00e0: 74 63 68 6c 65 76 65 6c 5d 20 3d 3d 20 24 63 68  tchlevel] == $ch
00f0: 6b 76 65 72 73 69 6f 6e 7d 20 7b 0a 09 65 78 69  kversion} {..exi
0100: 74 20 30 0a 7d 0a 0a 65 78 69 74 20 31 0a        t 0.}..exit 1.