gtk/gdk/broadway/toarray.pl

16 lines
277 B
Perl
Raw Normal View History

#!/usr/bin/perl -w
my $FILENAME = $ARGV[0];
open FILE, $FILENAME or die "Cannot open $FILENAME";
my $ARRAYNAME = $ARGV[1];
print "static const char $ARRAYNAME\[\] =";
while (<FILE>) {
s@\\@\\\\@g;
s@"@\\"@g;
chomp ($_);
print "\n \"$_\\n\"";
}
print ";\n";