Mercurial > projects > ldc

comparison revisions.pl.in @ 853:82ad6c0c601c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add Elrood's patch to output LDC and LLVM source revs.
author Christian Kamm <kamm incasoftware de>
date Sun, 14 Dec 2008 16:51:36 +0100
parents
children a331ce9bc749
comparison
equal deleted inserted replaced
852:c1aeb2d0b559 853:82ad6c0c601c
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5 use File::stat;
6 use Time::localtime;
7
8 my $llvm_src = `perl @LLVM_CONFIG@ --src-root`;
9 #my $llvm_src = "k:/sources/llvm";
10
11 my $llvm_rev = `svnversion $llvm_src`;
12
13 if ($llvm_rev =~ s/(\d+)\s+$/$1/) {
14 $llvm_rev = qq!#define LLVM_REV "LLVM rev.$llvm_rev"!
15 } else {
16 my $llvm_lib = `perl @LLVM_CONFIG@ --libdir`;
17 $llvm_lib =~ s/\s+$//;
18 $llvm_rev = ctime(stat($llvm_lib)->mtime) if (-d $llvm_lib);
19 $llvm_rev = qq!#include "llvm/Config/config.h"\n#define LLVM_REV PACKAGE_STRING" ($llvm_rev)"!;
20 }
21
22 my $ldc_rev = `hg -R@PROJECT_SOURCE_DIR@ tip --template {rev}`;
23
24 open my $revh, ">", "revisions.h" or die "cannot create revisions.h";
25
26 print $revh qq!#ifndef LDC_VERSIONS_H
27 #define LDC_VERSIONS_H
28
29 $llvm_rev
30 #define LDC_REV "rev.$ldc_rev"
31
32 #endif // LDC_VERSIONS_H\n!;
33
34 close $revh;