gdk/broadway/toarray.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/perl -w

my $ARRAYNAME = $ARGV[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));
        }
    }
}

print "\";\n";