Return to padimg.pl CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / ipxe / src / util

Annotation of qemu/roms/ipxe/src/util/padimg.pl, revision 1.1

1.1     ! root        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: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.