blob: 76f9c8841bdf25cc8f761ab4f1487642a8d7814e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#!/usr/bin/perl
# This script replace the cdump tool we used to build the ap_wp_Splash.cpp
# Because the cdump tool has to be run as a part of building the AW package,
# it breaks cross-compilation. A perl script seemed like a generic solution
if ($#ARGV != 1 )
{
print "Usage: $0 datafile arrayname $#ARGV $ARGV[0] $ARGV[1]\n";
exit(-1);
}
open FROM, "<$ARGV[0]" or die "Could not open file $ARGV[0]";
binmode FROM;
print "unsigned char $ARGV[1] [] = {\n";
while ($len = read(FROM, $buf, 16))
{
foreach(split(//,$buf))
{
printf("0x%02x,", ord($_));
}
print "\n";
}
printf "};\nunsigned long $ARGV[1]_sizeof = sizeof($ARGV[1]);\n";
close FROM;
|
