Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

58 lines (53 sloc) 1.538 kB
REVNOS_BACK=212
echo 'digraph bootstrap {
size="100,200";
rankdir=TB;
ranksep=.2;
nodesep=.2;
clusterrank="local";
'
echo -e "\n\n\n"
bzr log -r-${REVNOS_BACK}.. --show-ids -n0 | sed 's/^\ *//g;s/:\( \)*/:/g;s/ \[/_/g;s/]//g' | egrep -v 'message|timestamp' | \
awk -F: '
$1 == "revno" {
revno=$2
color="grey"
}
$1 == "revno" && $2 ~ /merge/ {
color="green"
}
$1 == "revision-id" {
rid=$2;safe_rid=gensub("[-@.]","","g",$2);
}
$1 == "parent" {
omg=$2;
boo[omg]=omg
boo[rid]=rid
p=sprintf("%s\n\t%s -> %s;// [label=\"%s\"];",p,gensub("[-@.]","","g",omg),safe_rid,rid);
}
$1 == "branch nick" {
nick=gensub("[-@.]","X","g",$2)
names[nick]=$2
delete boo[rid]
branches[nick]=sprintf("%s\n%s [label=\"%s:%s\",color=\"%s\"];",branches[$2],safe_rid,nick,gensub("_merge","","g",revno),color)
}
NF != 2 {}
END{
for(n in names) {
nick=gensub("[-@.]","X","g",names[n])
printf("subgraph cluster_%s {\n\tlabel = \"%s\";\n\trankdir=LR\n\tnode [style=filled];\n\t%s\n}\n",nick,names[n],branches[nick]);
}
print p
printf("subgraph cluster_origins { label = \"PARENT BRANCHES\";\n}");
for(hi in boo) {
printf("%s [label=\"", gensub("[-@.]","","g",boo[hi]))
system("echo -n `bzr log -r"boo[hi]" | egrep \"branch nick:|revno:\" | sed s/.\*://g`")
printf("\",color=\"red\"];\n")
}
printf("}");
}
' | sed 's/branch nick: //g'
# | sed 's/\([^ ]\)-\([^ ]\)/\1\2/g;s/@/AT/g' | sort
#
# print parents
echo '}'
Jump to Line
Something went wrong with that request. Please try again.