mirror of
https://github.com/ldc-developers/ldc.git
synced 2025-05-09 12:32:33 +03:00
aa85c805c1
If the user has patches managed by the mq extension, the version and hash printed are those of the qparent revision (the revision the patches were applied on top of) instead of tip. Also fixes a bug: print LLVM revision even if there are local modifications to it. Sorry for the long line in the perl file. I have no idea how to break it up.
39 lines
1 KiB
Perl
39 lines
1 KiB
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use File::stat;
|
|
use Time::localtime;
|
|
|
|
my $llvm_src = `perl @LLVM_CONFIG@ --src-root`;
|
|
|
|
my $llvm_rev = `svnversion $llvm_src`;
|
|
|
|
if ($llvm_rev =~ s/(\d+M?)\s+$/$1/) {
|
|
$llvm_rev = qq!#define LLVM_REV "LLVM rev. $llvm_rev"!
|
|
} else {
|
|
my $llvm_lib = `perl @LLVM_CONFIG@ --libdir`;
|
|
$llvm_lib =~ s/\s+$//;
|
|
$llvm_rev = ctime(stat($llvm_lib)->mtime) if (-d $llvm_lib);
|
|
$llvm_rev = qq!#include "llvm/Config/config.h"\n#define LLVM_REV PACKAGE_STRING" ($llvm_rev)"!;
|
|
}
|
|
|
|
my $ldc_rev = `hg -R@PROJECT_SOURCE_DIR@ log -r qparent --template '{rev}:{node|short} ({date|isodate})' 2>/dev/null || hg -R@PROJECT_SOURCE_DIR@ tip --template '{rev}:{node|short} ({date|isodate})'`;
|
|
|
|
my $out = qq!#ifndef LDC_VERSIONS_H
|
|
#define LDC_VERSIONS_H
|
|
|
|
$llvm_rev
|
|
#define LDC_REV "rev. $ldc_rev"
|
|
|
|
#endif // LDC_VERSIONS_H\n!;
|
|
|
|
my $revh;
|
|
my $old = "";
|
|
open $revh, "revisions.h" and $old = join "", <$revh>;
|
|
|
|
if ($old ne $out) {
|
|
open $revh, ">revisions.h" or die "cannot create revisions.h: $!";
|
|
print $revh $out;
|
|
close $revh;
|
|
}
|