Artifact
09d15f054a7dff36611edca32010beeba8cd2a6d:
0000: 23 21 2f 75 73 72 2f 62 69 6e 2f 65 6e 76 20 72 #!/usr/bin/env r
0010: 75 62 79 0a 0a 23 20 54 68 69 73 20 66 69 6c 65 uby..# This file
0020: 20 69 73 20 70 61 72 74 20 6f 66 20 4d 65 67 61 is part of Mega
0030: 74 65 73 74 2e 0a 23 20 0a 23 20 20 20 20 20 4d test..# .# M
0040: 65 67 61 74 65 73 74 20 69 73 20 66 72 65 65 20 egatest is free
0050: 73 6f 66 74 77 61 72 65 3a 20 79 6f 75 20 63 61 software: you ca
0060: 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 n redistribute i
0070: 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 0a t and/or modify.
0080: 23 20 20 20 20 20 69 74 20 75 6e 64 65 72 20 74 # it under t
0090: 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 he terms of the
00a0: 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c GNU General Publ
00b0: 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 ic License as pu
00c0: 62 6c 69 73 68 65 64 20 62 79 0a 23 20 20 20 20 blished by.#
00d0: 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 the Free Softwa
00e0: 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 re Foundation, e
00f0: 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 33 20 ither version 3
0100: 6f 66 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 of the License,
0110: 6f 72 0a 23 20 20 20 20 20 28 61 74 20 79 6f 75 or.# (at you
0120: 72 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 r option) any la
0130: 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 23 20 0a ter version..# .
0140: 23 20 20 20 20 20 4d 65 67 61 74 65 73 74 20 69 # Megatest i
0150: 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e s distributed in
0160: 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 the hope that i
0170: 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c t will be useful
0180: 2c 0a 23 20 20 20 20 20 62 75 74 20 57 49 54 48 ,.# but WITH
0190: 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 OUT ANY WARRANTY
01a0: 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 ; without even t
01b0: 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 he implied warra
01c0: 6e 74 79 20 6f 66 0a 23 20 20 20 20 20 4d 45 52 nty of.# MER
01d0: 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 CHANTABILITY or
01e0: 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 FITNESS FOR A PA
01f0: 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 RTICULAR PURPOSE
0200: 2e 20 20 53 65 65 20 74 68 65 0a 23 20 20 20 20 . See the.#
0210: 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 GNU General Pub
0220: 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 lic License for
0230: 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 23 20 more details..#
0240: 0a 23 20 20 20 20 20 59 6f 75 20 73 68 6f 75 6c .# You shoul
0250: 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 d have received
0260: 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e a copy of the GN
0270: 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 U General Public
0280: 20 4c 69 63 65 6e 73 65 0a 23 20 20 20 20 20 61 License.# a
0290: 6c 6f 6e 67 20 77 69 74 68 20 4d 65 67 61 74 65 long with Megate
02a0: 73 74 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 st. If not, see
02b0: 20 3c 68 74 74 70 3a 2f 2f 77 77 77 2e 67 6e 75 <http://www.gnu
02c0: 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f 3e 2e .org/licenses/>.
02d0: 0a 0a 64 65 66 20 67 65 74 5f 6e 65 78 74 5f 74 ..def get_next_t
02e0: 61 67 28 62 72 61 6e 63 68 29 0a 0a 0a 0a 20 20 ag(branch)....
02f0: 61 62 6f 72 74 20 22 4e 6f 74 20 6f 6e 20 61 20 abort "Not on a
0300: 76 65 72 73 69 6f 6e 20 62 72 61 6e 63 68 20 6c version branch l
0310: 69 6b 65 20 76 31 2e 36 34 20 28 67 6f 74 3a 20 ike v1.64 (got:
0320: 3e 23 7b 62 72 61 6e 63 68 7d 3c 29 22 20 75 6e >#{branch}<)" un
0330: 6c 65 73 73 20 62 72 61 6e 63 68 2e 6d 61 74 63 less branch.matc
0340: 68 28 2f 5e 76 5c 64 5c 2e 5c 64 5c 64 24 2f 29 h(/^v\d\.\d\d$/)
0350: 0a 20 20 0a 20 20 23 70 75 74 73 20 22 74 68 69 . . #puts "thi
0360: 73 20 62 72 61 6e 63 68 3a 20 23 7b 62 72 61 6e s branch: #{bran
0370: 63 68 7d 22 0a 0a 20 20 74 61 67 5f 70 61 74 20 ch}".. tag_pat
0380: 3d 20 2f 23 7b 62 72 61 6e 63 68 7d 28 5c 64 5c = /#{branch}(\d\
0390: 64 29 2f 0a 20 20 72 65 6d 6f 74 65 3d 60 66 73 d)/. remote=`fs
03a0: 6c 20 72 65 6d 6f 74 65 60 2e 63 68 6f 6d 70 2e l remote`.chomp.
03b0: 73 75 62 28 2f 5e 66 69 6c 65 3a 5c 2f 5c 2f 2f sub(/^file:\/\//
03c0: 2c 27 27 29 20 23 20 67 65 74 20 74 61 67 73 65 ,'') # get tagse
03d0: 74 20 66 72 6f 6d 20 6f 72 69 67 69 6e 0a 20 20 t from origin.
03e0: 63 6d 64 3d 22 66 6f 73 73 69 6c 20 74 61 67 20 cmd="fossil tag
03f0: 2d 52 20 27 23 7b 72 65 6d 6f 74 65 7d 27 20 6c -R '#{remote}' l
0400: 69 73 74 22 0a 20 20 74 61 67 73 20 3d 20 60 23 ist". tags = `#
0410: 7b 63 6d 64 7d 60 2e 73 70 6c 69 74 20 2f 5c 6e {cmd}`.split /\n
0420: 2f 0a 20 20 61 62 6f 72 74 20 22 66 6f 73 73 69 /. abort "fossi
0430: 6c 20 63 6f 6d 6d 61 6e 64 20 66 61 69 6c 65 64 l command failed
0440: 20 5b 23 7b 63 6d 64 7d 5d 22 20 69 66 20 24 3f [#{cmd}]" if $?
0450: 20 21 3d 20 30 0a 20 20 62 72 61 6e 63 68 5f 74 != 0. branch_t
0460: 61 67 73 20 3d 20 74 61 67 73 2e 66 69 6e 64 5f ags = tags.find_
0470: 61 6c 6c 7b 7c 78 7c 20 78 2e 6d 61 74 63 68 28 all{|x| x.match(
0480: 74 61 67 5f 70 61 74 29 20 7d 2e 73 6f 72 74 0a tag_pat) }.sort.
0490: 20 20 69 66 20 62 72 61 6e 63 68 5f 74 61 67 73 if branch_tags
04a0: 2e 6c 65 6e 67 74 68 20 3d 3d 20 30 0a 20 20 20 .length == 0.
04b0: 20 72 65 74 75 72 6e 20 62 72 61 6e 63 68 20 2b return branch +
04c0: 20 22 30 31 22 0a 20 20 65 6c 73 65 0a 20 20 20 "01". else.
04d0: 20 6c 61 74 65 73 74 5f 74 61 67 20 3d 20 62 72 latest_tag = br
04e0: 61 6e 63 68 5f 74 61 67 73 2e 6c 61 73 74 0a 20 anch_tags.last.
04f0: 20 20 20 6d 31 20 3d 20 6c 61 74 65 73 74 5f 74 m1 = latest_t
0500: 61 67 2e 6d 61 74 63 68 28 74 61 67 5f 70 61 74 ag.match(tag_pat
0510: 29 0a 20 20 20 20 6d 69 6e 6f 72 5f 64 69 67 69 ). minor_digi
0520: 74 73 20 3d 20 6d 31 5b 31 5d 2e 74 6f 5f 69 20 ts = m1[1].to_i
0530: 2b 20 31 0a 20 20 20 20 69 66 20 28 6d 69 6e 6f + 1. if (mino
0540: 72 5f 64 69 67 69 74 73 20 25 20 31 30 29 20 3d r_digits % 10) =
0550: 3d 20 30 0a 20 20 20 20 20 20 6d 69 6e 6f 72 5f = 0. minor_
0560: 64 69 67 69 74 73 20 2b 3d 20 31 0a 20 20 20 20 digits += 1.
0570: 65 6e 64 0a 20 20 20 20 6e 65 77 5f 74 61 67 3d end. new_tag=
0580: 73 70 72 69 6e 74 66 28 22 25 73 25 30 32 64 22 sprintf("%s%02d"
0590: 2c 20 62 72 61 6e 63 68 2c 20 6d 69 6e 6f 72 5f , branch, minor_
05a0: 64 69 67 69 74 73 29 0a 20 20 20 20 72 65 74 75 digits). retu
05b0: 72 6e 20 6e 65 77 5f 74 61 67 0a 20 20 65 6e 64 rn new_tag. end
05c0: 0a 65 6e 64 0a 0a 62 72 61 6e 63 68 20 3d 20 60 .end..branch = `
05d0: 66 6f 73 73 69 6c 20 62 72 61 6e 63 68 60 2e 73 fossil branch`.s
05e0: 75 62 28 2f 5c 41 2e 2a 5c 2a 20 2f 6d 2c 27 27 ub(/\A.*\* /m,''
05f0: 29 2e 73 75 62 28 2f 5c 6e 2e 2a 5c 7a 2f 6d 2c ).sub(/\n.*\z/m,
0600: 27 27 29 0a 74 61 67 3d 20 67 65 74 5f 6e 65 78 '').tag= get_nex
0610: 74 5f 74 61 67 28 62 72 61 6e 63 68 29 0a 0a 70 t_tag(branch)..p
0620: 75 74 73 20 22 54 4f 44 4f 3a 20 57 72 69 74 65 uts "TODO: Write
0630: 20 74 6f 20 6d 65 67 61 74 65 73 74 2d 76 65 72 to megatest-ver
0640: 73 69 6f 6e 2e 73 63 6d 3a 22 0a 70 75 74 73 20 sion.scm:".puts
0650: 22 3b 3b 20 41 6c 77 61 79 73 20 75 73 65 20 74 ";; Always use t
0660: 77 6f 20 6f 72 20 66 6f 75 72 20 64 69 67 69 74 wo or four digit
0670: 20 64 65 63 69 6d 61 6c 0a 3b 3b 20 31 2e 30 31 decimal.;; 1.01
0680: 2c 20 31 2e 30 32 2e 2e 2e 31 2e 31 30 2c 31 2e , 1.02...1.10,1.
0690: 31 31 2c 31 2e 31 31 30 31 20 2e 2e 2e 20 31 2e 11,1.1101 ... 1.
06a0: 39 39 2c 32 2e 30 30 2e 2e 0a 0a 28 64 65 63 6c 99,2.00....(decl
06b0: 61 72 65 20 28 75 6e 69 74 20 6d 65 67 61 74 65 are (unit megate
06c0: 73 74 2d 76 65 72 73 69 6f 6e 29 29 0a 0a 28 64 st-version))..(d
06d0: 65 66 69 6e 65 20 6d 65 67 61 74 65 73 74 2d 76 efine megatest-v
06e0: 65 72 73 69 6f 6e 20 23 7b 74 61 67 2e 73 75 62 ersion #{tag.sub
06f0: 28 2f 5e 76 2f 2c 27 27 29 7d 29 0a 0a 22 0a 0a (/^v/,'')}).."..
0700: 70 75 74 73 20 22 54 4f 44 4f 3a 20 66 6f 73 73 puts "TODO: foss
0710: 69 6c 20 74 61 67 20 61 64 64 20 23 7b 74 61 67 il tag add #{tag
0720: 7d 20 23 7b 62 72 61 6e 63 68 7d 22 0a 70 75 74 } #{branch}".put
0730: 73 20 22 22 0a s "".