Namazu-devel-ja(旧)


[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

patch for changelog2graph



まつむらです。

# むかーしの mail ですし、namazu とは関係ないんですが。^^;

From: Satoru Takabayashi <satoru-t@xxxxxxxxxxxxxxxxxx>
Subject: [namazu 1399] Namazu 1.9.14 released!
Date: Tue, 15 Feb 2000 14:38:35 +0900
Message-ID: <200002150537.OAA04694@xxxxxxxxxxxxxx>

> それから、あほな企画ですが、Namazu の開発の進捗をグラフ化し
> ました。一時的に
> <http://cl.aist-nara.ac.jp/~satoru-t/tmp/ChangeLog.png> に置
> きました。評判がよければ (?) Namazu の Webサイトに置くかもし
> れません。cron で毎晩、更新するとか。:)
>
> このグラフを生成するスクリプトは
> <http://cl.aist-nara.ac.jp/~satoru-t/attic/changelog2graph>
> から入手できます。もの好きな方はどうぞ。

同じ日付の ChangeLog がある場合(例えば、同じ日に違う人が commit)
正確にカウントできないようなので、patch つけます。

by mmatsu
--- changelog2graph.org	2002-11-29 22:15:39.897123000 +0900
+++ changelog2graph	2002-11-29 22:27:13.451001000 +0900
@@ -52,7 +52,6 @@
 sub analyze_changelog () {
     my %freqs = ();
     my $date  = undef;
-    my $freq  = 0;
     while (<>) {
 	next if /^\s*$/;
 	chomp;
@@ -74,16 +73,13 @@
 	if (/^(\d{4}-\d{2}-\d{2})\s/) {  
 	    # ISO 8601 format:
 	    # 1999-06-02  Foo Bar <foo@xxxxxx>
-	    if (defined $date) {
-		$freqs{$date} = $freq;
-	    }
 	    $date = $1;
-	    $freq = 0;
 	} elsif (/^\s+\*/) {
-	    $freq++;
+	  if (defined $date) {
+	    $freqs{$date}++;
+	  }
 	}
     }
-    $freqs{$date} = $freq;
 
     return %freqs;
 }