You've already forked Microtransactions64
mirror of
https://github.com/Print-and-Panic/Microtransactions64.git
synced 2026-01-21 10:17:19 -08:00
19 lines
342 B
Plaintext
19 lines
342 B
Plaintext
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
die "Usage: romalign file align\n" unless $#ARGV >= 1;
|
||
|
|
|
||
|
|
$in = $ARGV[0];
|
||
|
|
$align = $ARGV[1];
|
||
|
|
|
||
|
|
@s = stat($in);
|
||
|
|
$insize = $s[7];
|
||
|
|
|
||
|
|
open(OUT, ">> $in") or die "Can't open $in for output: $!";
|
||
|
|
|
||
|
|
$frag = $insize % $align;
|
||
|
|
$fill = pack("C", 0);
|
||
|
|
for($i = 0; $i < ($align-$frag)%$align; $i++) {
|
||
|
|
syswrite(OUT, $fill, 1);
|
||
|
|
}
|
||
|
|
close OUT;
|