#!/usr/bin/perl
# chexify.pl
# Takes a list of filenames on stdin and create a C data array for each one.
# Copyright Dan Kegel, Rizwan Kassim 2005
# Licensed under LGPL


use English;
use strict; 


my $file;       #each of the files we are working on
my $varname;    #file name converted to variable name
my $buffer;     #buffer to store the hexified contents of a file till output
my $readcount;   #number of chars actually read


# no input record separator to just slurp everything
undef $INPUT_RECORD_SEPARATOR;

foreach $file (@ARGV) {
       open(FILE, $file) or die("Can't open $file : $OS_ERROR");
       binmode FILE;

       # munge filename into C variable name
       $varname = $file;
       $varname =~ s/\./_/;

	   #name of the file
       print "const static char name_$varname"."[] = \"$file\";\n";
       #hex contents of the file
	   #BUG:have to get rid of the last comma
	   print "const static char file_$varname"."[] = {\n";
		   
	   
	    	   
       while ( $readcount=read(FILE, $buffer, 16) ) {

		   	   die("Read error in $file:$OS_ERROR") unless defined($readcount);
               $buffer =~ s/(.|\n)/'0x' . unpack('H2', $1).', '/ge;
			   $buffer =~ s/(, )$//g if($readcount < 16);
			   print "\t$buffer\n";
			   
       }
       print "};\n";
	   close FILE;
	   #size of the file
       print "const static int size_$varname"." = sizeof(file_$varname);\n\n";
}