#/usr/bin/perl
#
# Create a UMLGraph sequence diagram from a CVS commit history
#
# (C) Copyright 2004-2009 Diomidis Spinellis.
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in the
#    documentation and/or other materials provided with the distribution.
#
# THIS SOFTWARE IS PROVIDED BY AUTHOR AND CONTRIBUTORS ``AS IS'' AND
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED.  IN NO EVENT SHALL AUTHOR OR CONTRIBUTORS BE LIABLE
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
# $Id: timeline.pl,v 1.1 2004/05/13 15:13:50 dds Exp $
#

if ($#ARGV != 0) {
	print STDERR "usage: $0 cvs-repository\n";
	exit 1;
}

$cvs = $ARGV[0];

print q{.PS
copy "sequence.pic";
boxwid=2.5;
boxht=.7;
underline=0;
};

open(COMMITTERS, qq(cvs history -p $cvs -a -c | awk '{print \$5}' | sort -u|)) || die "Unable to access cvs history from $cvs: $!\n";
while (<COMMITTERS>) {
	chop;
	print "object(C$_,\"$_\");\n";
}

print q{
step();
spacing = .01;
};

open(IN,"cvs history -p $cvs -a -c | sort +1|") || die "Unable to access cvs history from $cvs: $!\n";
while (<IN>) {
	($action, $d, $t, $o, $name, $ver, $file) = split;
	print "active(C$name);\n";
	print "step();\n";
	print "inactive(C$name);\n";
}

for $c (@commiters) {
	print "complete(C$c);\n";
}

print ".PE\n";

exit 0;