forked from AuroraMiddleware/gtk
35486e7990
The current implementation of this script generate headers with \x-escaped strings that can become too long (> 65535 characters) for Visual Studio to consume, hence the build of broadwayd would break on Visual Studio. This changes the script to instead format the string as an array of hex characters, not unlike what GResource does, so that builds can continue as normal on Visual Studio builds as well. https://bugzilla.gnome.org/show_bug.cgi?id=739001
23 lines
487 B
Perl
Executable File
23 lines
487 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
my $ARRAYNAME = $ARGV[0];
|
|
my $first = 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) {
|
|
if ($first == 1) {
|
|
printf (",\n");
|
|
}
|
|
printf ("0x%02x", ord ($c));
|
|
$first = 1;
|
|
}
|
|
}
|
|
}
|
|
|
|
print "};\n";
|
|
|