Namazu-devel-ja(旧)
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
patch for changelog2graph
- From: Masafumi Matsumura <mmatsu@xxxxxxxxxxxxxxxxxxxxxxx>
- Date: Fri, 29 Nov 2002 22:50:40 +0900 (JST)
- X-ml-name: namazu-devel-ja
- X-mail-count: 02708
- References: <200002150537.OAA04694@ring.etl.go.jp>
まつむらです。
# むかーしの 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;
}