Hex Artifact Content

Artifact 0fa9712117ee10cdef1cb39b11d36abd92ddb918:


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 20 7c 7c 20 5b 73 74 72 69 6e 67  sion] || [string
00d0: 20 6d 61 74 63 68 20 22 66 6f 73 73 69 6c 5f 2a   match "fossil_*
00e0: 22 20 24 63 68 6b 76 65 72 73 69 6f 6e 5d 7d 20  " $chkversion]} 
00f0: 7b 0a 09 65 78 69 74 20 30 0a 7d 0a 0a 69 66 20  {..exit 0.}..if 
0100: 7b 5b 69 6e 66 6f 20 70 61 74 63 68 6c 65 76 65  {[info patchleve
0110: 6c 5d 20 3d 3d 20 24 63 68 6b 76 65 72 73 69 6f  l] == $chkversio
0120: 6e 7d 20 7b 0a 09 65 78 69 74 20 30 0a 7d 0a 0a  n} {..exit 0.}..
0130: 65 78 69 74 20 31 0a                             exit 1.