tools/mkversion.pl

   1 #!/usr/bin/env perl -w
   2
   3 # Output a version_pm3.c file that includes information about the current build
   4 # Normally a couple of lines of bash would be enough (see openpcd project, original firmware by Harald Welte and Milosch Meriac)
   5 # but this will, at least in theory, also work on Windows with our current compile environment.
   6 # -- Henryk Plötz <henryk@ploetzli.ch> 2009-09-28
   7 # Modified april 2014 because of the move to github.
   8 # --- Martin Holst Swende <martin@swende.se>
   9 # Modified january 2016 to work with Travis-CI
  10 # --- iceman <iceman@iuse.se>
  11
  12 # Clear environment locale so that git will not use localized strings
  13 $ENV{'LC_ALL'} = "C";
  14 $ENV{'LANG'} = "C";
  15
  16 # if you are making your own fork,  change this line to reflect your fork-name
  17 my $fullgitinfo = 'RRG/Iceman';
  18 my $ctime;
  19 # GIT status  0 = dirty,  1 = clean ,  2 = undecided
  20 my $clean = 2;
  21 my $undecided = (defined $ARGV[0]) && ($ARGV[0] =~ '--undecided');
  22 # Do we have acces to git command?
  23 #######
  24 # solves some bug on macos i.e:
  25 ##
  26 # perl ../tools/mkversion.pl .. > version_pm3.c || cp ../common/default_version_pm3.c version_pm3.c
  27 # /usr/bin/which: /usr/bin/which: cannot execute binary file
  28 # fatal: No names found, cannot describe anything.
  29 ##
  30 # anyway forcing any kind of shell is at least useless, at worst fatal.
  31 my $commandGIT = "env which git";
  32
  33 if ( defined($commandGIT) )  {
  34
  35     # this goes on Internet and cause major slowdowns on poor connections or intranets, let's comment it
  36     #my $githistory = `git fetch --all`;
  37     # now avoiding the "fatal: No names found, cannot describe anything." error by fallbacking to abbrev hash in such case
  38     my $gitversion = `git describe --dirty --always`;
  39     my $gitbranch = `git rev-parse --abbrev-ref HEAD`;
  40     if (not $undecided) {
  41       $clean = $gitversion =~ '-dirty' ? 0 : 1;
  42     }
  43     if ( defined($gitbranch) and defined($gitversion) ) {
  44         $fullgitinfo =  $fullgitinfo.'/'. $gitbranch . '/' . $gitversion;
  45
  46         my @compiletime = localtime();
  47         $compiletime[4] += 1;
  48         $compiletime[5] += 1900;
  49         $ctime = sprintf("%6\$04i-%5\$02i-%4\$02i %3\$02i:%2\$02i:%1\$02i", @compiletime);
  50     } else {
  51         $fullgitinfo =  $fullgitinfo.'/master/release (git)';
  52     }
  53 } else {
  54     $fullgitinfo =  $fullgitinfo.'/master/release (no_git)';
  55     my @dl_time = localtime( (stat('../README.md'))[10] );
  56     $dl_time[4] += 1;
  57     $dl_time[5] += 1900;
  58     $ctime = sprintf("%6\$04i-%5\$02i-%4\$02i %3\$02i:%2\$02i:%1\$02i", @dl_time);
  59 }
  60
  61 $fullgitinfo =~ s/(\s)//g;
  62
  63 # Crop so it fits within 50 characters
  64 #$fullgitinfo =~ s/.{50}\K.*//s;
  65 $fullgitinfo = substr $fullgitinfo, 0, 49;
  66
  67 print <<EOF
  68 #include "common.h"
  69 /* Generated file, do not edit */
  70 #ifndef ON_DEVICE
  71 #define SECTVERSINFO
  72 #else
  73 #define SECTVERSINFO __attribute__((section(".version_information")))
  74 #endif
  75
  76 const struct version_information SECTVERSINFO version_information = {
  77     VERSION_INFORMATION_MAGIC,
  78     1,
  79     1,
  80     $clean,
  81     "$fullgitinfo",
  82     "$ctime",
  83 };
  84 EOF