← Back to branch summary

~pmdj/ubuntu/trusty/qemu/2.9+applesmc+fadtv3

« back to all changes in this revision

Viewing changes to roms/ipxe/src/util/padimg.pl

  • Committer: Phil Dennis-Jordan
  • Date: 2017-07-21 08:03:43 UTC
  • mfrom: (1.1.1)
  • Revision ID: phil@philjordan.eu-20170721080343-2yr2vdj7713czahv
New upstream release 2.9.0.

Show diffs side-by-side

added added

removed removed

Lines of Context:
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
}