filename | src/checkver.pl |
changeset | 1068:a422f30ce0a8 |
prev | 738:0cbff49086b8 |
author | nkeynes |
date | Fri Aug 24 08:53:50 2012 +1000 (11 years ago) |
permissions | -rw-r--r-- |
last change | Move the generated prologue/epilogue code out into a common entry stub (reduces space requirements) and pre-save all saved registers. Change FASTCALL to use 3 regs instead of 2 since we can now keep everything in regs. |
file | annotate | diff | log | raw |
1.1 --- a/src/checkver.pl Tue Jul 15 06:47:49 2008 +00001.2 +++ b/src/checkver.pl Fri Aug 24 08:53:50 2012 +10001.3 @@ -1,21 +1,21 @@1.4 #!/usr/bin/perl1.5 # Usage: updatever.pl <basever> <top_srcdir> <version file>1.7 -my $svnversion = "svnversion";1.8 +my $hgversion = "hg identify -i -n";1.9 my $basever = $ARGV[0];1.10 my $top_srcdir = $ARGV[1];1.11 my $outfile = $ARGV[2];1.13 -my $rev = "";1.14 +my $rev = "", $hash;1.15 my $full_ver = "$basever";1.17 -if( $svnversion ) {1.18 - $rev = `$svnversion "$top_srcdir"`;1.19 - chomp $rev;1.20 - if( $rev == "exported" ) {1.21 - $rev = "";1.22 - } else {1.23 - $full_ver = "${basever}.${rev}";1.24 +if( $hgversion ) {1.25 + my $ident = `$hgversion "$top_srcdir" 2>/dev/null`;1.26 + if ( $? == 0 ) {1.27 + chomp $ident;1.28 + ($hash,$rev) = split /\s+/,$ident,2;1.29 + $rev =~ s/\+//g;1.30 + $full_ver = "${basever}.${rev}:${hash}";1.31 }1.32 }1.33 my $header = "/* Autogenerated by checkver.pl */";
.