You've already forked Microtransactions64
mirror of
https://github.com/Print-and-Panic/Microtransactions64.git
synced 2026-01-21 10:17:19 -08:00
Add NON-WORKING gzip DEFLATE support
This commit is contained in:
18
tools/romalign
Executable file
18
tools/romalign
Executable file
@@ -0,0 +1,18 @@
|
||||
#!/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;
|
||||
Reference in New Issue
Block a user