From owner-doc-jp@jp.freebsd.org  Sun Mar 21 04:08:44 1999
Received: (from daemon@localhost)
	by jaz.jp.freebsd.org (8.9.2+3.1W/8.7.3) id EAA10500;
	Sun, 21 Mar 1999 04:08:44 +0900 (JST)
	(envelope-from owner-doc-jp@jp.FreeBSD.org)
Received: from ns11.rim.or.jp (root@ns11.rim.or.jp [202.247.130.230])
	by jaz.jp.freebsd.org (8.9.2+3.1W/8.7.3) with ESMTP id EAA10493
	for <doc-jp@jp.freebsd.org>; Sun, 21 Mar 1999 04:08:41 +0900 (JST)
	(envelope-from motoyuki@snipe.rim.or.jp)
Received: from rayearth.rim.or.jp (rayearth.rim.or.jp [202.247.130.242]) by ns11.rim.or.jp (8.8.8/3.5Wpl2-ns11/RIMNET-2) with ESMTP
	id EAA24107; Sun, 21 Mar 1999 04:08:41 +0900 (JST)
Received: (from uucp@localhost) by rayearth.rim.or.jp (8.8.8/3.5Wpl2-uucp1/RIMNET) with UUCP
	id EAA07474; Sun, 21 Mar 1999 04:08:40 +0900 (JST)
Received: from asuka.snipe.rim.or.jp (asuka.snipe.rim.or.jp [192.168.11.3]) by mserver.snipe.rim.or.jp (8.8.8/3.6W) with ESMTP
	id EAA25255; Sun, 21 Mar 1999 04:05:58 +0900 (JST)
Received: from asuka.snipe.rim.or.jp (localhost [127.0.0.1]) by asuka.snipe.rim.or.jp (8.9.3/3.6W) with ESMTP
	id EAA19607; Sun, 21 Mar 1999 04:05:58 +0900 (JST)
Message-Id: <199903201905.EAA19607@asuka.snipe.rim.or.jp>
To: doc-jp@jp.freebsd.org
Cc: takas-su@is.aist-nara.ac.jp
X-Mailer: mh-e on Mule 2.3 / Emacs 19.34.1
References: <19990320010009C.takas-su@is.aist-nara.ac.jp> 
	<199903201818.DAA18855@tasogare.imasy.or.jp> 
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=ISO-2022-JP
Date: Sun, 21 Mar 1999 04:05:58 +0900
From: Motoyuki Konno <motoyuki@snipe.rim.or.jp>
Reply-To: doc-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+981115
X-Sequence: doc-jp 6134
Subject: [doc-jp 6134] 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: motoyuki@snipe.rim.or.jp

  $B:#Ln$G$9!#(B

  doc-jp $B$X$NI|5"$r4?7^$7$^$9(B :-) $B!d(B $B$$$o$5$-$5$s(B

Mitsuru IWASAKI <iwasaki@jp.freebsd.org> wrote:
> > 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$3$l$@$H!"8=:_$N(B jaz.jp.freebsd.org $B$G$OF0$+$J$$$s$G$9$h$M!#(B
$B8=:_(B jaz $B$G$O!""-$N(B $file $B$G;XDj$9$k%U%!%$%k$,(B cvs checkout
$B$7$?$b$N$G$O$J$/!"K\2H$N(B FTP $B%5%$%H$+$i%_%i!<$5$l$?$b$N$J$N$G!"(B
cvs diff $file $B$H$$$&J}K!$,;H$($J$$$s$G$9!#(B

> +        $diffinfo = &makediffinfo($doc, $file, $JPNREV, $ENGREV);

$B$=$3$G!"(B cvs diff $B$r;H$&$N$G$O$J$/(B CVS $B%j%]%8%H%j$N%U%!%$%k$KBP$7$F(B
rcsdiff $B$r;H$&$h$&$KJQ99$7$^$7$?!#(B

  diff $B$r$D$1$F$*$-$^$9!#(B

-------- cut here --------
--- syncstat.pl.original	Tue Jul  7 15:30:18 1998
+++ syncstat.pl	Sun Mar 21 03:53:51 1999
@@ -488,6 +488,23 @@
     return $file;
 }
 
+sub makediffinfo {
+    local($doc, $rcs_e, $r1, $r2) = @_;
+    local($plus, $minus, $total, $diffinfo);
+    open(PROCESS, "cd $cvsrootdir{$doc, 'ENG'}; rcsdiff -u -r$r1 -r$r2 $rcs_e |") || 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, $rcs_e, $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));
     }
-------- cut here --------

---
------------------------------------------------------------------------
$B:#Ln(B  $B85G7!w;3M|0e2JBg3X(B      mkonno@res.yamanashi-med.ac.jp    (Univ)
                              motoyuki@snipe.rim.or.jp          (Home)
                              http://www.freebsd.org/~motoyuki/ (Web)
