Return to commitvers CVS log

Up to [local] / OpenXM_contrib / gnuplot

Annotation of OpenXM_contrib/gnuplot/commitvers, Revision 1.1.1.1

1.1       maekawa     1: #! /usr/bin/perl
                      2: #
                      3: # $Id: commitvers,v 1.4 1996/02/26 22:21:49 drd Exp $
                      4: #
                      5: # update version.c and commit gnuplot
                      6: #
                      7: # this file will not be in any official release
                      8: #
                      9:
                     10: if( ! -f "version.c" ) {
                     11:   die "Doesn't look like a gnuplot dir to me\n";
                     12: }
                     13:
                     14: rename("version.c",".#version.c") || die "Can't move version.c\n";
                     15:
                     16: open(IN, ".#version.c") || die "Can't open version.c.\n";
                     17: open(OUT, ">version.c") || die "Can't create version.c\n";
                     18:
                     19: $major="";
                     20: $minor="";
                     21:
                     22: while(<IN>) {
                     23:   if( /Id: version\.c,v ([0-9]+)\.([0-9]+) / ) {
                     24:     $major=$1;
                     25:     $minor=$2;
                     26:   }
                     27:   if( /^(.*patchlevel.*")(alpha |beta |)[^"]*(".*)$/ ) {
                     28:     die if( $major eq "" || $minor eq "");
                     29:     printf OUT "$1$2%d$3\n", $minor+1;
                     30:   } elsif ( /^(.*date.*")[^"]*(".*)$/ ) {
                     31:     $date=`date`;
                     32:     chop $date;
                     33:     print OUT "$1$date$2\n";
                     34:   } else {
                     35:     print OUT;
                     36:   }
                     37: }
                     38:
                     39: close IN;
                     40: close OUT;
                     41:
                     42: $minor++;
                     43:
                     44: print "New version is $major.$minor\n";
                     45:
                     46: # check in configure.in first, so that we get the new revision number into
                     47: # configure
                     48:
                     49: if(system("cvs diff configure.in >/dev/null")) {
                     50:   system("cvs commit configure.in");
                     51:   system("autoconf");
                     52: }
                     53:
                     54: system("cvs commit");