#!/usr/bin/perl
#
# ** Please have a look at CHANGELOG-<Maintainer> for the CHANGELOGs **
#
# This perl script can be used to create one big CHANGELOG from the others...
#

my %changes;
my ($d, $m);

print "\n";
chdir $1 if $0 =~ m,(.*)/,;

foreach $m (qw/CLIFFORD RENE ESDEN/) {
	open(F, "CHANGELOG-$m") || die "Can't open CHANGELOG-$m: $!";
	for ($d=''; <F>; $changes{$d} .= $_ if $d) {
		$d=$_ if s/^(\*.*)\n/$1 [$m]\n/;
	}
	close F;
}

print $changes{$_} foreach sort {$b cmp $a} keys %changes;

############################################################################
#                                                                          #
# EXTERIOR: DAGOBAH -- DAY                                                 #
#                                                                          #
# With Yoda strapped to his back, Luke climbs up one of the many thick     #
# vines that grow in the swamp until he reaches the Dagobah statistics     #
# lab. Panting heavily, he continues his exercises -- grepping,            #
# installing new packages, logging in as root, and writing replacements    #
# for two-year-old shell scripts in Python.                                #
#                                                                          #
# YODA: Code! Yes. A programmer's strength flows from code                 #
# maintainability. But beware of Perl. Terse syntax...more than one way    #
# to do it...default variables. The dark side of code maintainability      #
# are they. Easily they flow, quick to join you when code you write. If    #
# once you start down the dark path, forever will it dominate your         #
# destiny, consume you it will.                                            #
#                                                                          #
# LUKE: Is Perl better than Python?                                        #
#                                                                          #
# YODA: No... no... no. Quicker, easier, more seductive.                   #
#                                                                          #
# LUKE: But how will I know why Python is better than Perl?                #
#                                                                          #
# YODA: You will know. When your code you try to read six months from now. #
#                                                                          #
############################################################################