tools/romsizetest.pl

   1 #!/usr/bin/perl
   2
   3 #
   4 # Check that the given file is smaller than the given size and if not, return
   5 # an error code. Used to verify that the rombox.ucl file fits on the particular
   6 # model you build for.
   7
   8 sub filesize {
   9     my ($filename)=@_;
  10     my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
  11         $atime,$mtime,$ctime,$blksize,$blocks)
  12         = stat($filename);
  13     return $size;
  14 }
  15
  16 my $romsize = 256*1024; # 256 KB
  17
  18 my $romstart = $ARGV[0];
  19
  20 if($romstart =~ /^0x(.*)/i) {
  21     $romstart = hex($romstart);
  22 }
  23
  24
  25 my $max = $romsize - $romstart;
  26
  27 my $file = filesize($ARGV[1]);
  28
  29 if($file > $max ) {
  30     printf "Output is %d bytes larger than max ($max)\n", $file-$max;
  31     exit 1;
  32 }