#!perl

# bin2lit.pl

# 

# Copyright (c) 2010 Accenture. All rights reserved.

# This component and the accompanying materials are made available

# under the terms of the "Eclipse Public License v1.0"

# which accompanies this distribution, and is available

# at the URL "http://www.eclipse.org/legal/epl-v10.html".

# 

# Initial Contributors:

# Accenture - Initial contribution

#

my $litName = shift(@ARGV);

die "Error: No name specified\n" unless $litName;

binmode(STDIN);

undef $/;

my $content = <>;

close (STDIN);

print <<__EOS__;

// This file has been automatically generated by $0

// Do not edit it directly!

_LIT8($litName, 

__EOS__

print "\t\"";

for (my $i=0; $i<length($content); ++$i) {

	print "\"\n\t\"" if ($i && ($i%20) == 0);

	my $c = ord(substr($content, $i, 1));

	printf "\\x%02x", $c;

}

print "\");\n\n"