site/util/bse_mkgitversion.pl

   1 #!perl -w
   2 use strict;
   3
   4 my $release = shift;
   5
   6 my $output = shift
   7   or die "Usage: $0 <bserev> <outfile>\n";
   8
   9 $release =~ /^\d+\.\d+(_\d+)?$/
  10   or die "Invalid revision";
  11
  12 if (-d ".git") {
  13   my ($git_desc) = `git describe`;
  14   chomp $git_desc;
  15
  16   my @status = `git status -s`;
  17   if (@status) {
  18     $git_desc .= " +" . scalar(@status) . " local modifications";
  19   }
  20
  21   $release .= " GIT $git_desc";
  22 }
  23
  24 open VERSION, "> $output"
  25   or die "Cannot create $output: $!\n";
  26 print VERSION <<EOS;
  27 package BSE::Version;
  28 use strict;
  29
  30 my \$RELEASE = "$release";
  31
  32 sub version { \$RELEASE }
  33
  34 1;
  35 EOS
  36
  37 close VERSION;