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 if(!$output) {
  33     print "Usage: mkinfo.pl <filename>\n";
  34     exit;
  35 }
  36 open(O, ">$output") || die "couldn't open $output for writing";
  37
  38 # Variables identifying the target, that should remain the same as long
  39 # as the hardware is unmodified
  40 printf O ("Target: %s\n", $ENV{'ARCHOS'});
  41 printf O ("Target id: %d\n", $ENV{'TARGET_ID'});
  42 printf O ("Target define: %s\n", $ENV{'TARGET'});
  43 printf O ("Memory: %d\n", $ENV{'MEMORYSIZE'});
  44 printf O ("CPU: %s\n", $ENV{'CPU'});
  45 printf O ("Manufacturer: %s\n", $ENV{'MANUFACTURER'});
  46
  47 # Variables identifying Rockbox and bootloader properties. Possibly changing
  48 # every software upgrade.
  49 printf O ("Version: %s\n", $ENV{'VERSION'});
  50 printf O ("Binary: %s\n", $ENV{'BINARY'});
  51 printf O ("Binary size: %s\n", filesize($ENV{'BINARY'}));
  52 printf O ("Actual size: %s\n", filesize("apps/rockbox.bin"));
  53
  54 # Variables identifying tool and build environment details
  55 printf O ("gcc: %s\n", cmd1line("$ENV{'CC'} --version"));
  56 printf O ("ld: %s\n", cmd1line("$ENV{'LD'} --version"));
  57 printf O ("Host gcc: %s\n", cmd1line("$ENV{'HOSTCC'} --version"));
  58 printf O ("Host system: %s\n", $ENV{'UNAME'});
  59
  60 close(O);
  61