sample/ia32/pcat/gcc/fd_img.pl

   1 #!/usr/bin/perl
   2
   3 open(OUT_IMG, ">$ARGV[0]") || die("$! : $ARGV[0]");
   4 binmode OUT_IMG;
   5
   6 open(IPL, $ARGV[1]) || die("$! : $ARGV[1]");
   7 binmode IPL;
   8
   9 open(SWITCH32, $ARGV[2]) || die("$! : $ARGV[2]");
  10 binmode SWITCH32;
  11
  12 $size = -s $ARGV[1];
  13 if ( $size > 512 ) { $size = 512; }
  14 read(IPL, $buf, $size);
  15 print OUT_IMG $buf;
  16 for ($i = $size; $i < 1024; $i++)
  17 {
  18         print OUT_IMG "\0";
  19 }
  20
  21 $size = -s $ARGV[2];
  22 read(SWITCH32, $buf, $size);
  23 print OUT_IMG $buf;
  24 for ($i = $i + $size; $i < 1474560; $i++)
  25 {
  26         print OUT_IMG "\0";
  27 }
  28
  29
  30
  31 close(OUT_IMG);
  32 close(IPL);
  33 close(SWITCH32);
  34