--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/plugins/consoles/guicons/group/bin2lit.pl	Wed Jun 23 15:52:26 2010 +0100
@@ -0,0 +1,35 @@
+#!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"
+ 
\ No newline at end of file