File: [local] / OpenXM_contrib / gnuplot / Attic / commitvers (download)
Revision 1.1.1.1 (vendor branch), Sun Jan 9 17:00:49 2000 UTC (24 years, 6 months ago) by maekawa
Branch: GNUPLOT
CVS Tags: VERSION_3_7 Changes since 1.1: +0 -0
lines
Import gnuplot 3.7
|
#! /usr/bin/perl
#
# $Id: commitvers,v 1.4 1996/02/26 22:21:49 drd Exp $
#
# update version.c and commit gnuplot
#
# this file will not be in any official release
#
if( ! -f "version.c" ) {
die "Doesn't look like a gnuplot dir to me\n";
}
rename("version.c",".#version.c") || die "Can't move version.c\n";
open(IN, ".#version.c") || die "Can't open version.c.\n";
open(OUT, ">version.c") || die "Can't create version.c\n";
$major="";
$minor="";
while(<IN>) {
if( /Id: version\.c,v ([0-9]+)\.([0-9]+) / ) {
$major=$1;
$minor=$2;
}
if( /^(.*patchlevel.*")(alpha |beta |)[^"]*(".*)$/ ) {
die if( $major eq "" || $minor eq "");
printf OUT "$1$2%d$3\n", $minor+1;
} elsif ( /^(.*date.*")[^"]*(".*)$/ ) {
$date=`date`;
chop $date;
print OUT "$1$date$2\n";
} else {
print OUT;
}
}
close IN;
close OUT;
$minor++;
print "New version is $major.$minor\n";
# check in configure.in first, so that we get the new revision number into
# configure
if(system("cvs diff configure.in >/dev/null")) {
system("cvs commit configure.in");
system("autoconf");
}
system("cvs commit");