diff options
Diffstat (limited to 'gdk/broadway/toarray.pl')
-rwxr-xr-x | gdk/broadway/toarray.pl | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/gdk/broadway/toarray.pl b/gdk/broadway/toarray.pl index b8cdb6fdf6..ac8b5ff3b7 100755 --- a/gdk/broadway/toarray.pl +++ b/gdk/broadway/toarray.pl @@ -1,17 +1,22 @@ #!/usr/bin/perl -w my $ARRAYNAME = $ARGV[0]; -print "static const char $ARRAYNAME\[\] = \""; +my $first = 0; +print "static const char $ARRAYNAME\[\] = {"; for ($i = 1; $i <= $#ARGV; $i = $i + 1) { my $FILENAME = $ARGV[$i]; open FILE, $FILENAME or die "Cannot open $FILENAME"; while (my $line = <FILE>) { foreach my $c (split //, $line) { - printf ("\\x%02x", ord ($c)); + if ($first == 1) { + printf (",\n"); + } + printf ("0x%02x", ord ($c)); + $first = 1; } } } -print "\";\n"; +print "};\n"; |