From: ueno <ueno>
Date: Tue, 7 May 2002 22:58:57 +0000 (+0000)
Subject: * cvs2cl/fmtlog.rb: Fixed.
X-Git-Tag: lsdb-0_6~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=91e8a25672099f502057ea1d423b392826043687;p=elisp%2Flsdb.git

* cvs2cl/fmtlog.rb: Fixed.
---

diff --git a/cvs2cl/fmtlog.rb b/cvs2cl/fmtlog.rb
index 158e16c..490f19f 100644
--- a/cvs2cl/fmtlog.rb
+++ b/cvs2cl/fmtlog.rb
@@ -1,6 +1,9 @@
-if /^\t\* ([^:]+): (\* \1)/
-  $_ = "\t#{$2}#{$'}"
-elsif /^(\d{4}-\d{2}-\d{2}) \d{2}:\d{2}/
-  $_ = "#{$1}#{$'}"
+case $_
+when /^\t(\* ([^:]+): )\* ([^: ]+)/
+  data, files, file = $~, $2, $3
+  if files.split(/, /).member?(file)
+    $_.slice!(data.begin(1) .. data.end(1) - 1)
+  end
+when /^\d{4}-\d{2}-\d{2}( \d{2}:\d{2})/
+  $_.slice!($~.begin(1) .. $~.end(1) - 1)
 end
-