#!/bin/bash
if [ ! $# = 1 ]
then
	echo usage: $0 module.rlog >&2
	exit 1
fi
[ -z $IDIFF_DIR ] && IDIFF_DIR=idiff
export IDIFF_DIR
grep '^3' $1 | kut 3 | cvs-revision-previous |
paste - <(grep '^3' $1 | kut 3 2) |
perl -ne '{
	use File::Basename;
	use File::Path;
	chomp;
	@F=split/\t/,$_,-1;
	$target = "$ENV{IDIFF_DIR}/$F[2]/$F[1]";
	mkpath dirname($target);
	open STDOUT, ">$target" or die "open failed: $target";
	system "cvs", "rdiff", "-u", "-r", $F[0], "-r", $F[1], $F[2];
}'