OpenSDE Framework (without history before r20070)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

50 lines
2.4 KiB

#!/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. #
# #
############################################################################