#! /usr/bin/perl

if (@ARGV != 2) {
	print "Usage : <source file> <label>\n";
	exit;
}

open (FILE, $ARGV[0]) || die "can't open source file \"$ARGV[0]\"";

print "unsigned char $ARGV[1]\[] = {";
$lines = 0;
while (read(FILE, $data, 16)) {
	@bytes = unpack "C*", $data;
	print "," if $lines++;
	print "\n\t";
	$i = 1; 
	foreach (@bytes) {
		printf "0x%02x", $_;
		print "," if ($i++ < @bytes);
	}
}
print "\n};\n";