edit-change-log

   1 #!/usr/bin/env perl
   2
   3 use Text::Wrap;
   4
   5 sub read_file {
   6         my($buffer);
   7         my($file) = shift;
   8         local($/) = undef;
   9         $buffer = <$file>;
  10         return($buffer);
  11 }
  12
  13 sub edit_change_log() {
  14         my $file = $ARGV[0];
  15         open my $f, '<', $file or die ("Failed to open file: $file\n");
  16         my $logmsg = read_file ($f);
  17
  18         # We do a bunch of munging on the log message here,
  19         # particularly for logs that are formatted in a ChangeLog
  20         # style.
  21
  22         my $origlog = $logmsg;
  23
  24         close ($f);
  25
  26         # print "original: $logmsg\n";
  27
  28         # Kill initial date/name stamp: YYYY-MM-DD First Last <email@example.com>
  29
  30         $logmsg =~ s|^\s*\d\d*-\d\d*-\d\d*\s*[^<\n]*<[^>\n]*>\s*$|* \n|mg;
  31
  32         # Strip out nickle version numbers
  33         $logmsg =~ s|^(version )?2.\d\d*$||mg;
  34
  35         # Remove initial space for each line
  36         $logmsg =~ s|^[ \t]+||mg;
  37
  38         # Collapse space sequences
  39         $logmsg =~ s|[ \t]+| |g;
  40
  41         # Un-fold paragraphs
  42         $logmsg =~ s|([^\n])\n([^0-9*+\-\n])|$1 $2|g;
  43
  44         my @lines = split (/\n/, $logmsg);
  45
  46         $logmsg = "";
  47
  48         my $reviews = "";
  49
  50         foreach my $line (@lines) {
  51                 # find lines begining with '*'
  52                 if ($line =~ /^reviewed by:\s*/) {
  53                         if ($line !~ /<delete if not using/) {
  54                                 $reviews = $reviews . "\n" . $line;
  55                         }
  56                 } else {
  57                         if ($line =~ s/^\*\s\s*//) {
  58                                 # strip off filename
  59                                 $line =~ s/^[^:]*:\s*//;
  60                                 # strip off function names
  61                                 while ($line =~ s/^\([^)]*\)[,:]*\s*// ) {
  62                                 }
  63                         }
  64                         # Remove initial space for each line
  65                         $line =~ s|^[ \t+]+||;
  66
  67                         # Collapse space sequences
  68                         $line =~ s|[ \t]+| |g;
  69
  70                         #
  71                         # re line-wrap
  72                         #
  73                         $line = Text::Wrap::wrap ("", "    ", $line);
  74
  75                         $logmsg = $logmsg . $line . "\n";
  76                 }
  77         }
  78         $logmsg = $logmsg . $reviews;
  79
  80         # Trim initial newlines
  81         $logmsg =~ s|^\n+||;
  82
  83         # collapse sequences of newlines
  84         $logmsg =~ s/\n\n*/\n/g;
  85
  86         # Remove trailing whitespace
  87         $logmsg =~ s/[\s\n]+\z//;
  88
  89         if (@skipped) {
  90             $logmsg .= "\n\n\nSKIPPED:\n\t";
  91             $logmsg .= join("\n\t", @skipped) . "\n";
  92         }
  93
  94         open my $f, '>', $file or die ("Failed to open file: $file\n");
  95
  96         print $f "$logmsg\n";
  97         close ($f)
  98 }
  99
 100 edit_change_log ()