tools/mkinfo.pl

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