55 lines
1.5 KiB
Perl
Executable File
55 lines
1.5 KiB
Perl
Executable File
## -----------------------------------------------------------------------
|
|
##
|
|
## Copyright 2007-2009 H. Peter Anvin - All Rights Reserved
|
|
## Copyright 2009 Intel Corporation; author: H. Peter Anvin
|
|
##
|
|
## This program is free software; you can redistribute it and/or modify
|
|
## it under the terms of the GNU General Public License as published by
|
|
## the Free Software Foundation, Inc., 53 Temple Place Ste 330,
|
|
## Boston MA 02111-1307, USA; either version 2 of the License, or
|
|
## (at your option) any later version; incorporated herein by reference.
|
|
##
|
|
## -----------------------------------------------------------------------
|
|
|
|
##
|
|
## checksize.pl
|
|
##
|
|
## Check the size of a binary file and pad it with zeroes to that size
|
|
##
|
|
|
|
use bytes;
|
|
|
|
($file, $maxsize, $padsize) = @ARGV;
|
|
|
|
if (!defined($maxsize)) {
|
|
# Defaults based on the filename
|
|
if ($file =~ /^mbr[^0-9a-z]/) {
|
|
$maxsize = $padsize = 440;
|
|
} elsif ($file =~ /^gptmbr[^0-9a-z]/) {
|
|
$maxsize = $padsize = 440;
|
|
} elsif ($file =~ /^isohdp[fp]x[^0-9a-z]/) {
|
|
$maxsize = $padsize = 432;
|
|
} elsif ($file =~ /^altmbr[^0-9a-z]/) {
|
|
$maxsize = $padsize = 439;
|
|
} else {
|
|
die "$0: no default size for filename: $file\n";
|
|
}
|
|
}
|
|
|
|
$padsize = $maxsize unless(defined($padsize));
|
|
|
|
open(FILE, '+<', $file) or die;
|
|
@st = stat(FILE);
|
|
if (!defined($size = $st[7])) {
|
|
die "$0: $file: $!\n";
|
|
}
|
|
if ($size > $maxsize) {
|
|
print STDERR "$file: too big ($size > $maxsize)\n";
|
|
exit 1;
|
|
} elsif ($size < $padsize) {
|
|
seek(FILE, $size, 0);
|
|
print FILE "\0" x ($padsize-$size);
|
|
}
|
|
|
|
exit 0;
|