target/linux/rdc/image/mkimg_sitecom.pl

   1 #!/usr/bin/perl
   2
   3 open (bzimg, @ARGV[0]);
   4 while (<bzimg>) { $i .= $_; }
   5 $i .= pack "v", -(unpack "%v*", $i);
   6 print "CSYS";
   7 print pack("V", length($i));
   8 print pack("V", 0);
   9 print "WRRM";
  10 print pack("V", length($i));
  11 print $i;