blob: 2de40200074bbf5d1b7a7a0933bc4da079413649 (
plain) (
blame)
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
|
#!/usr/bin/env perl
use strict;
use warnings;
use File::Basename;
my $scriptpath = dirname($0);
my $outfile = $ARGV[0];
my $mergebase = $ARGV[1];
$mergebase or $mergebase = "";
mkdir dirname($outfile);
$_ = `git describe --tags $mergebase`
|| (open(IN, "<", "$scriptpath/release_ver") ? <IN>
: die "No Git, and $scriptpath/release_ver doesn't exist.\n")
or die "couldn't get the version information\n";
chomp;
/v?(([0-9]+\.[0-9]+)(?:\.[0-9]+)?(?:-([a-zA-Z]+[0-9]+))?)(?:-[0-9]+-g[a-fA-F0-9]+)?/
or die "Version string '$_' is malformed.\n";
my ($major, $tag, $pretyp) = ($2, $1, $3);
my $rel = defined($pretyp) ? $pretyp le "b" ? "ALPHA" : "BETA" : "FINAL";
my $prefix = "CRAWL";
open OUT, ">", "$outfile" or die $!;
print OUT <<__eof__;
#define ${prefix}_VERSION_MAJOR "$major"
#define ${prefix}_VERSION_RELEASE VER_$rel
#define ${prefix}_VERSION_SHORT "$tag"
#define ${prefix}_VERSION_LONG "$_"
__eof__
close OUT or die $!;
|
