doc/CHANGELOG

   1 #!/usr/bin/perl
   2 #
   3 # ** Please have a look at CHANGELOG-<Maintainer> for the CHANGELOGs **
   4 #
   5 # This perl script can be used to create one big CHANGELOG from the others...
   6 #
   7
   8 my %changes;
   9 my ($d, $m);
  10
  11 print "\n";
  12 chdir $1 if $0 =~ m,(.*)/,;
  13
  14 foreach $m (qw/CLIFFORD RENE ESDEN/) {
  15         open(F, "CHANGELOG-$m") || die "Can't open CHANGELOG-$m: $!";
  16         for ($d=''; <F>; $changes{$d} .= $_ if $d) {
  17                 $d=$_ if s/^(\*.*)\n/$1 [$m]\n/;
  18         }
  19         close F;
  20 }
  21
  22 print $changes{$_} foreach sort {$b cmp $a} keys %changes;
  23
  24 ############################################################################
  25 #                                                                          #
  26 # EXTERIOR: DAGOBAH -- DAY                                                 #
  27 #                                                                          #
  28 # With Yoda strapped to his back, Luke climbs up one of the many thick     #
  29 # vines that grow in the swamp until he reaches the Dagobah statistics     #
  30 # lab. Panting heavily, he continues his exercises -- grepping,            #
  31 # installing new packages, logging in as root, and writing replacements    #
  32 # for two-year-old shell scripts in Python.                                #
  33 #                                                                          #
  34 # YODA: Code! Yes. A programmer's strength flows from code                 #
  35 # maintainability. But beware of Perl. Terse syntax...more than one way    #
  36 # to do it...default variables. The dark side of code maintainability      #
  37 # are they. Easily they flow, quick to join you when code you write. If    #
  38 # once you start down the dark path, forever will it dominate your         #
  39 # destiny, consume you it will.                                            #
  40 #                                                                          #
  41 # LUKE: Is Perl better than Python?                                        #
  42 #                                                                          #
  43 # YODA: No... no... no. Quicker, easier, more seductive.                   #
  44 #                                                                          #
  45 # LUKE: But how will I know why Python is better than Perl?                #
  46 #                                                                          #
  47 # YODA: You will know. When your code you try to read six months from now. #
  48 #                                                                          #
  49 ############################################################################
  50