(none)

[hos/hos-v4a.git] / sample / ia32 / pcat / gcc / fd_img.pl

diff --git a/sample/ia32/pcat/gcc/fd_img.pl b/sample/ia32/pcat/gcc/fd_img.pl
index ae09637..48bedee 100755 (executable)
--- a/sample/ia32/pcat/gcc/fd_img.pl
+++ b/sample/ia32/pcat/gcc/fd_img.pl
@@ -1,17 +1,34 @@
 #!/usr/bin/perl
 
-open(IN, $ARGV[0]) || die("$! : $ARGV[0]");
-binmode IN;
-open(OUT, ">$ARGV[1]") || die("$! : $ARGV[1]");
-binmode OUT;
-
-$size = -s $ARGV[0];
-read(IN, $buf, $size);
-print OUT $buf;
-for ($i = $size; $i < 1474560; $i++)
+open(OUT_IMG, ">$ARGV[0]") || die("$! : $ARGV[0]");
+binmode OUT_IMG;
+
+open(IPL, $ARGV[1]) || die("$! : $ARGV[1]");
+binmode IPL;
+
+open(SWITCH32, $ARGV[2]) || die("$! : $ARGV[2]");
+binmode SWITCH32;
+
+$size = -s $ARGV[1];
+if ( $size > 512 ) { $size = 512; }
+read(IPL, $buf, $size);
+print OUT_IMG $buf;
+for ($i = $size; $i < 1024; $i++)
 {
-       print OUT "\0";
+       print OUT_IMG "\0";
 }
-close(IN);
-close(OUT);
+
+$size = -s $ARGV[2];
+read(SWITCH32, $buf, $size);
+print OUT_IMG $buf;
+for ($i = $i + $size; $i < 1474560; $i++)
+{
+       print OUT_IMG "\0";
+}
+
+
+
+close(OUT_IMG);
+close(IPL);
+close(SWITCH32);