gtk/gdk/broadway/toarray.pl

#!/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";