qemu/roms/ipxe/src/util/padimg.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use warnings;
   5 use Getopt::Long;
   6 use Fcntl;
   7
   8 my $verbosity = 0;
   9 my $blksize = 512;
  10 my $byte = 0;
  11
  12 my %opts = (
  13   'verbose|v+' => sub { $verbosity++; },
  14   'quiet|q+' => sub { $verbosity--; },
  15   'blksize|s=o' => sub { $blksize = $_[1]; },
  16   'byte|b=o' => sub { $byte = $_[1]; },
  17 );
  18
  19 Getopt::Long::Configure ( 'bundling', 'auto_abbrev' );
  20 GetOptions ( %opts ) or die "Could not parse command-line options\n";
  21
  22 while ( my $filename = shift ) {
  23   die "$filename is not a file\n" unless -f $filename;
  24   my $oldsize = -s $filename;
  25   my $padsize = ( ( -$oldsize ) % $blksize );
  26   my $newsize = ( $oldsize + $padsize );
  27   next unless $padsize;
  28   if ( $verbosity >= 1 ) {
  29       printf "Padding %s from %d to %d bytes with %d x 0x%02x\n",
  30              $filename, $oldsize, $newsize, $padsize, $byte;
  31   }
  32   if ( $byte ) {
  33     sysopen ( my $fh, $filename, ( O_WRONLY | O_APPEND ) )
  34         or die "Could not open $filename for appending: $!\n";
  35     syswrite $fh, ( chr ( $byte ) x $padsize )
  36         or die "Could not append to $filename: $!\n";
  37     close ( $fh );
  38   } else {
  39     truncate $filename, $newsize
  40         or die "Could not resize $filename: $!\n";
  41   }
  42   die "Failed to pad $filename\n"
  43       unless ( ( ( -s $filename ) % $blksize ) == 0 );
  44 }