1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
#!/usr/bin/perl -w
#
# prcs_tree2.pl.
# Copyright 1998 Keith Owens <kaos@ocs.com.au>.
# Minor modifications/bug fixes (C) 2001 by Hugo Cornelis
# <hugo@bbf.uia.ac.be>
# Released under the GNU Public Licence.
#
# Read the output from "prcs info -l project" and plot the relationship
# between versions. Output is commands for "VCG tool -
# visualization of compiler graphs" by Iris Lemke, Georg Sander,
# and the Compare Consortium.
#
# Typical use :-
# prcs info -l project > /var/tmp/$$a
# prcs_tree2.pl < /var/tmp/$$a > /var/tmp/$$b
# xvcg /var/tmp/$$b
# rm /var/tmp/$$[ab]
require 5;
use strict;
my $lineno = 0;
my $longlog = 0;
my ($project, $version, $weekday, $day, $month, $year, $time, $user, $parent);
my %node = ();
my @edge = ();
while (<>) {
chop();
if (++$lineno == 1) {
($project) = (split(' ', $_, 2))[0];
printf "graph:\t{ title: \"PRCS tree for $project\"\n";
printf "\tport_sharing: no\n";
printf "\tlayoutalgorithm: minbackward\n";
printf "\tlayout_downfactor: 39\n";
printf "\tlayout_upfactor: 0\n";
printf "\tlayout_nearfactor: 0\n";
printf "\tnearedges: no\n";
printf "\tsplines: yes\n";
printf "\tstraight_phase: yes\n";
printf "\tpriority_phase: yes\n";
printf "\tcmin: 10\n";
}
if (/^$project/ && $longlog == 0) {
($version, $weekday, $day, $month, $year, $time, $user) =
(split(' ', $_, 10))[1..6,9];
$node{$version} = undef;
printf "\tnode:\t{ title: \"$version\"";
# Show the mainline (digits.1) in red and thicker
if ($version =~ /^\d+\.1$/) {
printf " bordercolor: red borderwidth: 7";
}
printf " label: \"$version\\n";
printf "$weekday $day $month $year $time $user\\n";
}
elsif (/^Version-Log:/) {
s/^Version-Log:\s*//;
$longlog = (/^$/);
$longlog = 1;
if (!$longlog) {
printf "$_\"\n";
}
}
elsif (/^Project-Description:/) {
# end long version logs
printf "\"\n"; # end of title
$longlog = 0;
print "\t}\n"
}
elsif ($longlog) {
++$longlog;
{
print "$_\\n";
}
}
elsif (/^Parent-Version:/) {
s/^Parent-Version:\s*//;
push(@edge, $version, $_);
}
}
while ($#edge >= 0) {
my ($from, $to) = (pop(@edge), pop(@edge));
my ($fv, $tv);
printf "\tedge:\t{ sourcename: \"%s\" targetname: \"%s\"",
$from, $to;
# Show the mainline (digits.1) in red and thicker
if ($from =~ /^\d+\.1$/ && $to =~ /^\d+\.1$/) {
printf " priority: 1000 color: red thickness: 7";
}
else {
# Local version branches are black, merge branches are blue
($fv = $from) =~ s/\..*//;
($tv = $to) =~ s/\..*//;
if ($fv eq $tv) {
printf " color: black";
}
else {
printf " color: blue";
}
}
printf "}\n";
if (! exists($node{$from})) {
printf "\tnode:\t{ title: \"$from\" label: \"$from\\n";
printf "Not part of input\"}\n";
}
}
printf "}\n";
|
