stripping all revisions from a non tip head in mercurial

strip-non-tip-heads.boo

def hg(command):
	return shell("hg", command)
	
def strip(rev):
	return hg("strip $rev")
	
def heads():
	return hg("heads")

def nextNonTipRevision():	
	matches = /changeset:\s+(\d+).+\n(tag:\s*tip\n)?/.Matches(heads())
	for m as System.Text.RegularExpressions.Match in matches:
		if string.IsNullOrEmpty(m.Groups[2].Value):
			return m.Groups[1].Value

while not string.IsNullOrEmpty(rev = nextNonTipRevision()):
	print "stripping $rev..."
	print strip(rev)