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