firmware/version.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use POSIX qw(strftime);
   5
   6 my $git = `git rev-parse --short HEAD`;
   7 chomp $git;
   8
   9 my $now = strftime('%Y%m%d', localtime(time));
  10
  11 print <<EOF;
  12 /* DO NOT EDIT - GENERATED BY $0 */
  13
  14 #include <avr/eeprom.h>
  15
  16 unsigned char version[] EEMEM = {
  17 EOF
  18
  19 print hex2c($git, "git revision");
  20 print hex2c($now, "date");
  21
  22 print "};\n\n/* EOF - this file has not been truncated */\n\n";
  23
  24 sub hex2c {
  25         my ($data, $comment) = @_;
  26
  27         my $data1 = $data;
  28         $data1 .= '0' if (length($data1) & 1 == 1);
  29         $data1 =~ s/(..)/0x$1, /g;
  30         return "\t$data1 /* $comment $data */\n";
  31 }
  32