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
|
# $Id$
#
# Takes over some of the release work rather than having it all
# inline in the Makefile.
$date = `/usr/bin/date +"%a %b %d %T %Y"`;
chop $date;
$VERSION = "VERSION";
$CHANGELOG = "ChangeLog";
$TAO_VERSION = '';
$MODNAME = 'TAO';
# Range of values on this is "alpha", "beta", or "major",
# in which case the 3rd, 2nd, or 1st digit.
$BUMP_WHICH = $ENV{'RELEASE_TYPE'};
sub inplace {
my($ext, @files) = @_;
my(@nfiles) = ();
my($nfile);
$ext = '~' if ($ext eq '');
foreach $file (@files) {
$nfile = $file . $ext;
if (rename ($file, $nfile)) {
push(@nfiles, $nfile);
}
else {
warn "Unable to rename $files[$i] for in-place editing: $!\n";
}
}
@nfiles;
}
@inplace = inplace('.del', $VERSION, $CHANGELOG);
open (VERSION, $inplace[0])
|| die "Unable to open file $inplace[0] for inplace edit: $!\n";
open (VERSIONOUT, ">$VERSION")
|| die "Unable to open file $VERSION for writing: $!\n";
undef $version_number;
while (<VERSION>) {
if ($BUMP_WHICH =~ m/major/i) {
$bump_expr = 'sprintf("$1%d.0.0", $2+1)';
}
elsif ($BUMP_WHICH =~ m/beta/i) {
$bump_expr = 'sprintf("$1$2.%d.0", $3+1)';
}
else {
$bump_expr = 'sprintf("$1$2.$3.%d", $4+1)';
}
$subst = 's/(TAO version )(\d+)\.(\d+)\.(\d+)/' . $bump_expr . '/e';
eval $subst;
($version_number = $_) =~ s/.*(\d+\.\d+\.\d+).*/$1/ if (!defined($version_number));
if (s/(, released ).*/$1$date./) {
($TAO_VERSION = $_) =~ s/^This is //;
}
print VERSIONOUT $_;
}
close (VERSIONOUT);
close (VERSION);
chmod 0644, $VERSION;
$message = $date." ".$ENV{"SIGNATURE"}." <".$ENV{"LOGNAME"}."\@cs.wustl.edu>\n\n\t* ".$TAO_VERSION."\n";
$message_printed = 0;
open (CHANGELOG, $inplace[1])
|| die "Unable to open file $inplace[1] for inplace edit: $!\n";
open (CHANGELOGOUT, ">$CHANGELOG")
|| die "Unable to open file $CHANGELOG for writing: $!\n";
while (<CHANGELOG>) {
print CHANGELOGOUT "$message" if ( ! $message_printed++ );
print CHANGELOGOUT $_;
}
close (CHANGELOG);
close (CHANGELOGOUT);
chmod 0644, $CHANGELOG;
# Morph the version number
chop $version_number;
($version_tag = $MODNAME."-".$version_number) =~ s/\./_/g;
$CVSCOM = 'cvs';
$COM = qq/$CVSCOM commit -m'$TAO_VERSION' $VERSION $CHANGELOG && $CVSCOM rtag $version_tag $MODNAME && $CVSCOM rtag -F Current $MODNAME/;
print $COM;
system $COM;
unlink @inplace;
|
