tools/mkinfo.pl

   1 #!/usr/bin/perl
   2 #             __________               __   ___.
   3 #   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
   4 #   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
   5 #   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
   6 #   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
   7 #                     \/            \/     \/    \/            \/
   8 #
   9 # Purpose: extract and gather info from a build and put that in a standard
  10 # way in the output file. Meant to be put in rockbox zip package to help and
  11 # aid machine installers and more.
  12 #
  13
  14 my $output = $ARGV[0];
  15
  16 sub filesize {
  17     my ($f)=@_;
  18     my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
  19         $atime,$mtime,$ctime,$blksize,$blocks)
  20         = stat($f);
  21     return $size;
  22 }
  23
  24 sub cmd1line {
  25     my ($c)=@_;
  26     my @out=`$c 2>/dev/null`;
  27     chomp $out[0];
  28     return $out[0];
  29 }
  30
  31 sub mapscan {
  32     my ($f)=@_;
  33     my $start, $end;
  34     open(M, "<$f");
  35     while(<M>) {
  36         if($_ =~ / +0x([0-9a-f]+) *_end = \./) {
  37             $end = $1;
  38             last;
  39         }
  40         elsif($_ =~ / +0x([0-9a-f]+) *_loadaddress = \./) {
  41             $start = $1;
  42         }
  43     }
  44     close(M);
  45
  46     # return number of bytes
  47     return hex($end) - hex($start);
  48 }
  49
  50 sub features {
  51     my ($f)=@_;
  52     my $feat;
  53     open(M, "<$f");
  54     while(<M>) {
  55         chomp;
  56         if($feat) {
  57             $feat.=":";
  58         }
  59         $feat.=$_;
  60     }
  61     close(M);
  62     return $feat;
  63 }
  64
  65 if(!$output) {
  66     print "Usage: mkinfo.pl <filename>\n";
  67     exit;
  68 }
  69 open(O, ">$output") || die "couldn't open $output for writing";
  70
  71 # Variables identifying the target, that should remain the same as long
  72 # as the hardware is unmodified
  73 printf O ("Target: %s\n", $ENV{'MODELNAME'});
  74 printf O ("Target id: %d\n", $ENV{'TARGET_ID'});
  75 printf O ("Target define: %s\n", $ENV{'TARGET'});
  76 printf O ("Memory: %d\n", $ENV{'MEMORYSIZE'});
  77 printf O ("CPU: %s\n", $ENV{'CPU'});
  78 printf O ("Manufacturer: %s\n", $ENV{'MANUFACTURER'});
  79
  80 # Variables identifying Rockbox and bootloader properties. Possibly changing
  81 # every software upgrade.
  82 printf O ("Version: %s", `$ENV{TOOLSDIR}/version.sh $ENV{ROOTDIR}`);
  83 printf O ("Binary: %s\n", $ENV{'BINARY'});
  84 printf O ("Binary size: %s\n", filesize($ENV{'BINARY'}));
  85
  86 if ($ENV{'APPSDIR'} =~ /\/apps$/) {
  87   printf O ("Actual size: %s\n", filesize("rockbox.bin"));
  88   printf O ("RAM usage: %s\n", mapscan("rockbox.map"));
  89   printf O ("Features: %s\n", features("apps/features"));
  90 } elsif ($ENV{'APPSDIR'} =~ /\/bootloader$/) {
  91   printf O ("Actual size: %s\n", filesize("bootloader.bin"));
  92   printf O ("RAM usage: %s\n", mapscan("bootloader.map"));
  93 }
  94
  95 # Variables identifying tool and build environment details
  96 printf O ("gcc: %s\n", cmd1line("$ENV{'CC'} --version"));
  97 printf O ("ld: %s\n", cmd1line("$ENV{'LD'} --version"));
  98 printf O ("Host gcc: %s\n", cmd1line("$ENV{'HOSTCC'} --version"));
  99 printf O ("Host system: %s\n", $ENV{'UNAME'});
 100
 101 close(O);