Changeset 422

Timestamp:

Dec 2, 2005, 12:39:32 PM (18 years ago)

Author:

Peter

Message:

Fixed statistics script. png generation must be fixed.

Location:

trunk/doc

Files:

• svnplot.pl (modified) (8 diffs)
• svnplot.sh (modified) (2 diffs)

trunk/doc/svnplot.pl

@@ -3 +3 @@
 use strict;
 
+
 open(INPUT,'date.tmp');
-my @dates;
-$dates[0]=0;
+my @dates; # key: revision - value: date
+$dates[0]="2003-02-19";
 while (my $row = <INPUT>) {
-    my @line=split(" ",$row);
-    if (@line>4){
-  my @line2 = split(/\D/,$line[0]);
-  $dates[$line2[1]]=$line[4];
-  print "$line2[1] -> $line[4]\n";
+    my @line=split('\|',$row);
+    if (@line==3) {
+  my @line2 = split(/\s/,$line[2]);
+  my $revno=substr($line[0],1);
+  $dates[$revno]=$line2[1];
     }
 }
@@ -17 +18 @@
 
 
+# defining dates for revisions not checked (revs between our check-ins)
+# revisions outside this directory
 for (my $i=1; $i<@dates; $i++)
 { 
-    if (defined($dates[$i])){
-  $dates[$i]=$dates[$i];
-    }
-    else{
+    if (!defined($dates[$i])) {
   $dates[$i]=$dates[$i-1];
     }
@@ -29 +29 @@
 
 
+# mapping name to idnr
 open(INPUT,'svnstat.tmp2');
-
-my $r=0;
 my %idnr=(); #hash - key: name - value: id 
 my $count=0;
@@ -40 +39 @@
 while (my $row = <INPUT>) {
     my @line=split(" ",$row);
-
     if ($idnr{$line[1]}){
   $id = $idnr{$line[1]};
@@ -51 +49 @@
     }
 }
-
 close(INPUT);
 
+
+# creating array
 my @nof_lines;
 for (my $i=0; $i<$nof_idnr; $i++)
 {
-    
     $nof_lines[$i]=0;
 }
@@ -63 +61 @@
 open (MYOUT,'>svnstat.tmp3');
 open(INPUT,'svnstat.tmp2');
+my $r=0;
 while (my $row = <INPUT>) {
     my @line=split(" ",$row);
@@ -89 +88 @@
 }
 close(INPUT);
+if ($dates[$r]){
+    print MYOUT $dates[$r];
+    print MYOUT " ";
+    print MYOUT $r;
+    print MYOUT " ";
+    print MYOUT $count;
+    print MYOUT " ";
+    foreach my $number (@nof_lines) {
+  print MYOUT $number;
+  print MYOUT " ";
+    }
+    print MYOUT "\n";
+}
 
 
@@ -112 +124 @@
 set yrange [0:*]
 set ytics
-set term post color "Times" 18
-set output 'svnplot.ps'
+set term post color
+set output 'svnplot.png'
 $PLOT
 

trunk/doc/svnplot.sh

@@ -2 +2 @@
 
 cd ..
-touch svnstat.tmp1
-rm svnstat.tmp1
 
 echo "Extracting log information."
+# sort only used to remove duplicates
 svn log -q | sort -u > lib/date.tmp
 cd lib
@@ -15 +14 @@
 echo "Plotting."
 ../doc/svnplot.pl 
-#gnuplot svnplot.gpt
-convert svnplot.ps -rotate 90 svnplot.png
 
 mv svnplot.png ../doc/html/.
 
-#rm svnstat.tmp1
-#rm svnstat.tmp2
-#rm svnstat.tmp3
-#rm files.tmp
-#rm date.tmp
-#rm svnplot.ps
+rm svnstat.tmp1
+rm svnstat.tmp2
+rm svnstat.tmp3
+rm files.tmp
+rm date.tmp
+rm svnplot.ps