mirror of
https://github.com/RfidResearchGroup/proxmark3.git
synced 2024-12-28 03:14:53 +08:00
70 lines
1.8 KiB
Perl
70 lines
1.8 KiB
Perl
#!/usr/bin/perl
|
|
# Output a version.c file that includes information about the current build
|
|
# Normally a couple of lines of bash would be enough (see openpcd project, original firmware by Harald Welte and Milosch Meriac)
|
|
# but this will, at least in theory, also work on Windows with our current compile environment.
|
|
# -- Henryk Plötz <henryk@ploetzli.ch> 2009-09-28
|
|
|
|
my $main_dir = shift;
|
|
|
|
# Clear environment locale so that svn will not use localized strings
|
|
$ENV{'LC_ALL'} = "C";
|
|
$ENV{'LANG'} = "C";
|
|
|
|
my $svnversion = 0;
|
|
my $clean = 2;
|
|
my @compiletime = gmtime();
|
|
|
|
# Strategy one: call svn info and extract last changed revision, call svn status and look for ^M
|
|
if(open(SVNINFO, "svn info $main_dir|")) {
|
|
while(<SVNINFO>) {
|
|
if (/^Last Changed Rev: (.*)/) {
|
|
$svnversion = $1;
|
|
## last; # Do not abort here, since SVN tends to complain about a Broken pipe
|
|
}
|
|
}
|
|
close(SVNINFO);
|
|
|
|
if(open(SVNSTATUS, "svn status $main_dir|")) {
|
|
$clean = 1;
|
|
while(<SVNSTATUS>) {
|
|
if(/^M/) {
|
|
$clean = 0;
|
|
## last;
|
|
}
|
|
}
|
|
close(SVNINFO);
|
|
}
|
|
|
|
} else {
|
|
# Strategy two: look for .svn/entries. The third line should be "dir", the fourth line should contain
|
|
# the currently checked out revision, the eleventh line should contain the last changed revision.
|
|
# revision.
|
|
if(open(ENTRIES, "$main_dir/.svn/entries")) {
|
|
my $i = 1;
|
|
while(<ENTRIES>) {
|
|
last if($i == 3 and !/^dir/);
|
|
if($i == 11 and /^([0-9]*)/) {
|
|
$svnversion = $1;
|
|
}
|
|
$i++;
|
|
}
|
|
}
|
|
}
|
|
|
|
$compiletime[4] += 1;
|
|
$compiletime[5] += 1900;
|
|
my $ctime = sprintf("%6\$04i-%5\$02i-%4\$02i %3\$02i:%2\$02i:%1\$02i", @compiletime);
|
|
$svnversion=~ s/(^\s+|\s+$)//g;
|
|
|
|
print <<EOF
|
|
#include "proxmark3.h"
|
|
/* Generated file, do not edit */
|
|
const struct version_information __attribute__((section(".version_information"))) version_information = {
|
|
VERSION_INFORMATION_MAGIC,
|
|
1,
|
|
1,
|
|
$clean,
|
|
"svn $svnversion",
|
|
"$ctime",
|
|
};
|
|
EOF
|