-
Notifications
You must be signed in to change notification settings - Fork 87
/
ready_to_release
executable file
·103 lines (94 loc) · 2.71 KB
/
ready_to_release
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
#!/usr/bin/env perl
use strict;
use Getopt::Std;
# Check whether all manually managed files have been updated
# prior to making a release (make -f Makefile.aut release).
my $usage = "usage: ready_to_release [-d dir] [-n NEWS] [-v version.c] [-V version]\n";
my $errors = 0;
check_files();
exit(($errors > 0) ? 1 : 0);
sub check_files {
my %opt;
die $usage if not getopts("d:n:v:V:", \%opt);
my $dir = $opt{d} ? "$opt{d}/" : "";
my $version_c = $dir . ($opt{v} ? $opt{v} : "version.c");
my $news_file = $dir . ($opt{n} ? $opt{n} : "NEWS");
my $uversion = $opt{V};
my ($ver_version, $hi_version, $exper, $month, $day, $year) = read_version_c($version_c);
my $news_version = read_news($news_file);
if (not $hi_version) {
error("$version_c: no version comments");
}
if (not $ver_version) {
error("$version_c: no version number declared");
}
if (not $month or not $day or not $year) {
error("$version_c: version comment for v$hi_version has no date");
}
if ($uversion and $uversion ne $ver_version) {
error("$version_c: declared version is $ver_version not $uversion");
}
if ($exper) {
error("$version_c: declared version number $ver_version$exper is experimental");
}
if ($hi_version ne $ver_version) {
error("$version_c: inconsistent versions: commented $hi_version, declared $ver_version");
}
if (not $news_version) {
error("$news_file: no version comparisons");
}
if ($ver_version ne $news_version) {
error("$news_file: latest version comparison is for $news_version not $ver_version");
}
my $pull_out = `git pull --dry-run 2>&1 | grep ' ->'`;
if ($pull_out) {
error("git: need to pull");
}
my $stat_out = `git status | grep "Changes not staged for commit:"`;
if ($stat_out) {
error("git: need to commit changes");
}
if ($errors == 0) {
print "$ver_version ready for release\n";
} else {
print "*** NOT READY FOR RELEASE ***\n";
}
}
sub read_version_c {
my ($version_c) = @_;
my ($ver_version, $hi_version, $exper, $month, $day, $year) = (0,0,'',0,0,0);
my $fd;
open $fd, '<', $version_c or die "cannot open $version_c: $!";
while (<$fd>) {
if (m|^\s*v([\d.]+)(\s.*)?$|) {
$hi_version = $1;
$2 =~ m|^\s*(\d+)\s*/\s*(\d+)\s*/\s*(\d+)\s|;
($month, $day, $year) = ($1,$2,$3);
}
if (m|^\s*char\s+version[^\w=]*=\s*"([\d.]+)(x)?"|) {
$ver_version = $1;
$exper = $2;
}
}
close $fd;
return ($ver_version, $hi_version, $exper, $month, $day, $year);
}
sub read_news {
my ($news_file) = @_;
my $version;
my $fd;
open $fd, '<', $news_file or die "cannot open $news_file: $!";
while (<$fd>) {
if (m|changes between .* versions [\d.]+ and ([\d.]+)|) {
$version = $1;
last;
}
}
close $fd;
return $version;
}
sub error {
my ($msg) = @_;
print "*** $msg\n";
++$errors;
}