From owner-doc-jp@jp.freebsd.org  Sun Mar 21 03:19:04 1999
Received: by jaz.jp.freebsd.org (8.9.2+3.1W/8.7.3) id DAA06905;
	Sun, 21 Mar 1999 03:19:04 +0900 (JST)
	(envelope-from owner-doc-jp@jp.FreeBSD.org)
Received: from tasogare.imasy.or.jp (root@tasogare.imasy.or.jp [202.227.24.5])
	by jaz.jp.freebsd.org (8.9.2+3.1W/8.7.3) with ESMTP id DAA06899
	for <doc-jp@jp.freebsd.org>; Sun, 21 Mar 1999 03:19:00 +0900 (JST)
	(envelope-from iwasaki@jp.FreeBSD.org)
Received: from localhost (ppp1.imasy.or.jp [202.227.24.11])
	by tasogare.imasy.or.jp (8.9.3+3.1W/3.7W-tasogare) with ESMTP id DAA18855;
	Sun, 21 Mar 1999 03:18:56 +0900 (JST)
	(envelope-from iwasaki@jp.FreeBSD.org)
Message-Id: <199903201818.DAA18855@tasogare.imasy.or.jp>
To: doc-jp@jp.freebsd.org, takas-su@is.aist-nara.ac.jp
In-Reply-To: Your message of "Sat, 20 Mar 1999 01:00:09 +0900"
	<19990320010009C.takas-su@is.aist-nara.ac.jp>
References: <19990320010009C.takas-su@is.aist-nara.ac.jp>
X-Mailer: Mew version 1.93 on Emacs 19.34 / Mule 2.3 (SUETSUMUHANA)
Mime-Version: 1.0
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Date: Sun, 21 Mar 1999 03:13:08 +0900
From: Mitsuru IWASAKI <iwasaki@jp.freebsd.org>
X-Dispatcher: imput version 980905(IM100)
Lines: 60
Reply-To: doc-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+981115
X-Sequence: doc-jp 6132
Subject: [doc-jp 6132] Re: Sync WWW/FAQ/Doc. Report 99/03/19
Errors-To: owner-doc-jp@jp.freebsd.org
Sender: owner-doc-jp@jp.freebsd.org
X-Originator: iwasaki@jp.freebsd.org

$B$$$o$5$-$G$9(B

$B?yB<$5$s(B>
> syncstat $B$N%9%/%j%W%H$r2~NI$7$F(B
> $B:9J,$N9T?t$b=P$k$h$&$K$9$k$HJXMx$G$7$g$&$,!"(B
> $B$o$?$7$K$OFq$7$9$.$F$o$+$j$^$;$s!#(B^^;;;

$B$A$g$C$H;~4V$,$G$-$?$N$G2~NI$7$F$_$^$7$?!#(B
$B:9J,>pJs$N$H$3$m$K!"(B
    1.38->1.39 (+2, -2, total 15)
$B$N$h$&$K(B diff $B$NDI2C9T?t!":o=|9T?t!"A4BN9T?t$,I=<($5$l$k$h$&$K$J$j$^$9!#(B
$B$b$&$A$g$C$H2~NI$7$FDj4|E*$K(B doc-jp ML $B$X<+F0E*$KN.$9$h$&$K$9$l$P(B
$B$+$C$3$$$$$G$9$+$M(B?

Index: syncstat.pl
===================================================================
RCS file: /home/ncvs/doc-jp/syncstat/syncstat.pl,v
retrieving revision 1.4
diff -u -r1.4 syncstat.pl
--- syncstat.pl	1998/07/07 06:30:18	1.4
+++ syncstat.pl	1999/03/20 17:52:24
@@ -488,6 +488,23 @@
     return $file;
 }
 
+sub makediffinfo {
+    local($doc, $file, $r1, $r2) = @_;
+    local($plus, $minus, $total, $diffinfo);
+    open(PROCESS, "cd $srcbasedir{$doc, 'ENG'}; cvs -R diff -u -r$r1 -r$r2 $file |") || die "cannot open process for $file";
+    
+    while (<PROCESS>) { if (/^\+\+\+/) { last; } }	# skip cvs diff header
+    $plus = $minus = $total = 0;
+    while (<PROCESS>) {
+	$total++;
+	if (/^\+/) { $plus++; next; }
+	if (/^\-/) { $minus++; next; }
+    }
+    close(PROCESS);
+    $diffinfo = " (+$plus, -$minus, total $total)";
+    return $diffinfo;
+}
+
 ######################################################################
 # Main
 
@@ -680,12 +697,13 @@
 	    $maintainername,
 	    ($cvsweb{$edoc, 'ENG'} . $efile . '#rev' . $ENGREV));
     } else {
+        $diffinfo = &makediffinfo($doc, $file, $JPNREV, $ENGREV);
 	$HTMLSTR .= sprintf($FORMAT{$MODE}, $file,
 	    ($cvsweb{$doc, 'JPN'} . $file), $file,
 	    ($cvsweb{$doc, 'JPN'} . $file . '?rev=' . $JPNCUR), $JPNREV,
 	    ($cvsweb{$edoc, 'ENG'} . $efile . '?rev=' . $ENGREV), $ENGREV,
 	    ($cvsweb{$edoc, 'ENG'} . $efile . '.diff?r1=' . $JPNREV . '&r2=' . $ENGREV),
-	    $JPNREV, $ENGREV,
+	    $JPNREV, $ENGREV . $diffinfo,
 	    $maintainername,
 	    ($cvsweb{$edoc, 'ENG'} . $efile . '#rev' . $ENGREV));
     }
