tools/release-do-bump

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 die "$0: must be run from top-level directory.\n"
   6     unless -r "configure.ac" && -r 'ChangeLog';
   7
   8 my $email = $ENV{'EMAIL'};
   9 die "$0: you must define \$EMAIL.\n"
  10     unless defined $email;
  11
  12 my $name = $ENV{'NAME'};
  13 die "$0: you must define \$NAME.\n"
  14     unless defined $name;
  15
  16 my ($y,$m,$d) = (localtime (time))[5,4,3];
  17 $y += 1900;
  18 $m++;
  19 my $date = sprintf ("%04d-%02d-%02d", $y, $m, $d);
  20
  21 # -----------------------------------------------------------------------------
  22
  23 {
  24     my $filename = 'configure.ac';
  25
  26     local (*SRC);
  27     local (*DST);
  28
  29     my $seen_epoch = 0;
  30
  31     open (*SRC, "<$filename") || die "$0: failed to read $filename: $!\n";
  32     open (*DST, ">$filename.tmp") || die "$0: failed to write $filename.tmp: $!\n";
  33     foreach (<SRC>) {
  34         if (/version_epoch/) {
  35             $seen_epoch = 1;
  36         }
  37         if ($seen_epoch
  38             ? /^(\s*m4_define\(\[\S*_version_minor\],\s*\[)(\d+)(\]\).*)/
  39             : /^(\s*m4_define\(\[\S*_version_micro\],\s*\[)(\d+)(\]\).*)/) {
  40             $_ = $1 . ($2 + 1) . $3 . "\n";
  41         }
  42         print DST;
  43     }
  44
  45     close (*DST);
  46     close (*SRC);
  47
  48     rename ("$filename.tmp", $filename);
  49 }
  50
  51 # -----------------------------------------------------------------------------
  52
  53 {
  54     my $filename = 'NEWS';
  55
  56     local (*SRC);
  57     local (*DST);
  58
  59     open (*SRC, "<$filename") || die "$0: failed to read $filename: $!\n";
  60     open (*DST, ">$filename.tmp") || die "$0: failed to write $filename.tmp: $!\n";
  61     my $first = 1;
  62     foreach (<SRC>) {
  63         if ($first) {
  64             $first = 0;
  65             die "[[[$_]]\n" unless /^(\S+\s+\d+\.\d+\.)(\d+)(.*)/;
  66             print DST "$1", ($2 + 1), "$3\n\n", ("-" x 74), "\n";
  67         }
  68         print DST;
  69     }
  70
  71     close (*DST);
  72     close (*SRC);
  73
  74     rename ("$filename.tmp", $filename);
  75 }
  76
  77 # -----------------------------------------------------------------------------
  78
  79 {
  80     my $filename = 'ChangeLog';
  81
  82     my $entry = "$date  $name <$email>\n\n\t* configure.ac: Post-release bump.\n\n";
  83     local (*SRC);
  84     local (*DST);
  85
  86     open (*SRC, "<$filename") || die "$0: failed to read $filename: $!\n";
  87     open (*DST, ">$filename.tmp") || die "$0: failed to write $filename.tmp: $!\n";
  88
  89     print DST $entry;
  90     foreach (<SRC>) { print DST; }
  91     close (*DST);
  92     close (*SRC);
  93
  94     rename ("$filename.tmp", $filename);
  95 }