mirror of
https://gitlab.gnome.org/GNOME/gtk.git
synced 2024-11-06 16:50:11 +00:00
16 lines
277 B
Perl
16 lines
277 B
Perl
|
#!/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";
|