diff options
Diffstat (limited to 'tools/ucl2src.pl')
-rwxr-xr-x | tools/ucl2src.pl | 110 |
1 files changed, 110 insertions, 0 deletions
diff --git a/tools/ucl2src.pl b/tools/ucl2src.pl new file mode 100755 index 0000000000..54cda5b3c0 --- /dev/null +++ b/tools/ucl2src.pl | |||
@@ -0,0 +1,110 @@ | |||
1 | #!/usr/bin/env perl | ||
2 | ############################################################################ | ||
3 | # __________ __ ___. | ||
4 | # Open \______ \ ____ ____ | | _\_ |__ _______ ___ | ||
5 | # Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ / | ||
6 | # Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < < | ||
7 | # Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \ | ||
8 | # \/ \/ \/ \/ \/ | ||
9 | # $Id$ | ||
10 | # | ||
11 | # Copyright (C) 2005 by Jens Arnold | ||
12 | # | ||
13 | # All files in this archive are subject to the GNU General Public License. | ||
14 | # See the file COPYING in the source tree root for full license agreement. | ||
15 | # | ||
16 | # This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY | ||
17 | # KIND, either express or implied. | ||
18 | # | ||
19 | ############################################################################ | ||
20 | |||
21 | if (!$ARGV[0]) | ||
22 | { | ||
23 | print <<HERE | ||
24 | Usage: ucl2src [-p=<prefix>] <ucl file> | ||
25 | |||
26 | Check & strip header from an .ucl file and generate <prefix>.c and | ||
27 | <prefix>.h from it. | ||
28 | HERE | ||
29 | ; | ||
30 | exit; | ||
31 | } | ||
32 | |||
33 | my $prefix = $p; | ||
34 | if(!$prefix) { | ||
35 | $prefix="uclimage"; | ||
36 | } | ||
37 | |||
38 | my $input = $ARGV[0]; | ||
39 | my $buffer; | ||
40 | my $insize; | ||
41 | my $readsize = 0; | ||
42 | |||
43 | open(INF, "<$input") or die "Can't open $input"; | ||
44 | binmode INF; | ||
45 | |||
46 | # check UCL header | ||
47 | |||
48 | # magic header | ||
49 | read(INF, $buffer, 8); | ||
50 | if ($buffer ne pack("C8", 0x00, 0xe9, 0x55, 0x43, 0x4c, 0xff, 0x01, 0x1a)) | ||
51 | { | ||
52 | die "Not an UCL file."; | ||
53 | } | ||
54 | read(INF, $buffer, 4); | ||
55 | |||
56 | # method | ||
57 | read(INF, $buffer, 1); | ||
58 | if (ord($buffer) != 0x2E) | ||
59 | { | ||
60 | die sprintf("Wrong compression method (expected 0x2E, found 0x%02X)", | ||
61 | ord($buffer)); | ||
62 | } | ||
63 | |||
64 | read(INF, $buffer, 9); | ||
65 | |||
66 | # file size | ||
67 | read(INF, $buffer, 4); | ||
68 | $insize = unpack("N", $buffer) + 8; | ||
69 | |||
70 | open(OUTF, ">$prefix.c") or die "Can't open $prefix.c"; | ||
71 | |||
72 | print OUTF <<HERE | ||
73 | /* This file was automatically generated using ucl2src.pl */ | ||
74 | |||
75 | /* Data compressed with UCL method 0x2e follows */ | ||
76 | const unsigned char image[] = { | ||
77 | HERE | ||
78 | ; | ||
79 | |||
80 | while (read(INF, $buffer, 1)) | ||
81 | { | ||
82 | $readsize++; | ||
83 | printf OUTF ("0x%02x,", ord($buffer)); | ||
84 | if (!($readsize % 16)) | ||
85 | { | ||
86 | print OUTF "\n"; | ||
87 | } | ||
88 | } | ||
89 | |||
90 | close(INF); | ||
91 | |||
92 | if ($readsize != $insize) | ||
93 | { | ||
94 | die "Input file truncated, got $readsize of $insize bytes." | ||
95 | } | ||
96 | |||
97 | print OUTF <<HERE | ||
98 | }; | ||
99 | /* end of compressed image */ | ||
100 | HERE | ||
101 | ; | ||
102 | close(OUTF); | ||
103 | |||
104 | open(OUTF, ">$prefix.h") or die "Can't open $prefix.h"; | ||
105 | |||
106 | print OUTF "/* This file was automatically generated using ucl2src.pl */\n"; | ||
107 | print OUTF "extern const unsigned char image[".$insize."];\n"; | ||
108 | |||
109 | close(OUTF); | ||
110 | |||