|
1 #!perl -w |
|
2 # |
|
3 # Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies). |
|
4 # All rights reserved. |
|
5 # This component and the accompanying materials are made available |
|
6 # under the terms of the License "Eclipse Public License v1.0" |
|
7 # which accompanies this distribution, and is available |
|
8 # at the URL "http://www.eclipse.org/legal/epl-v10.html". |
|
9 # |
|
10 # Initial Contributors: |
|
11 # Nokia Corporation - initial contribution. |
|
12 # |
|
13 # Contributors: |
|
14 # |
|
15 # Description: |
|
16 # This simple script makes a binary HCR data file from a text input file |
|
17 # |
|
18 use strict; |
|
19 |
|
20 use HCRdat; |
|
21 use HCRrec; |
|
22 |
|
23 package mhd; |
|
24 |
|
25 # |
|
26 # Find out what file the user is interested in.. |
|
27 # Make sure it's specified and exists. |
|
28 # |
|
29 $mhd::trace = 0; |
|
30 $mhd::otrace = 0; |
|
31 |
|
32 if (@ARGV < 2 || @ARGV > 4) { |
|
33 die "\nUsage: hcrmd.bat <source_textfile> <dest_datfile> [-i]\n"; |
|
34 } |
|
35 |
|
36 my $textfile = shift @ARGV; |
|
37 my $datfile = shift @ARGV; |
|
38 |
|
39 my $do_create_image = 0; |
|
40 my $opt_i = shift @ARGV; |
|
41 #my $partid = 0x10000005; |
|
42 if (defined($opt_i)) { |
|
43 $do_create_image = 1 if ($opt_i eq "-i"); |
|
44 die "error: unknown command option\n" if ($opt_i ne "-i"); |
|
45 #my $i_no = shift @ARGV; |
|
46 #$partid = hex($i_no) if (defined($i_no)); |
|
47 #printf("partitionid: 0x%x\n", $partid) |
|
48 } |
|
49 |
|
50 |
|
51 print "\n HCR Binary Data File Generator, version v0.1\n"; |
|
52 print " Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies). All rights reserved.\n\n"; |
|
53 print "-input: $textfile\n" if($mhd::trace); |
|
54 print "-output: $datfile\n" if($mhd::trace); |
|
55 |
|
56 die "error: Specifed source_textfile not found!" unless(-f $textfile); |
|
57 #die "error: Specified dest_binfile '$datfile' already exists!" if(-e $datfile); |
|
58 |
|
59 printf "\nReading input file... $textfile\n"; |
|
60 |
|
61 printf "-opening text file\n" if($mhd::trace); |
|
62 my $tfh; |
|
63 open($tfh, "<$textfile"); |
|
64 |
|
65 printf "-started conversion...\n" if($mhd::trace); |
|
66 my $datobj = HCRdat->new(); |
|
67 my $inrec = 0; |
|
68 my $ln = 0; |
|
69 my $recobj; |
|
70 |
|
71 while (<$tfh>) |
|
72 { |
|
73 $ln++; |
|
74 if ($_ =~ '^\s*#') { |
|
75 printf "-comment\n" if($mhd::trace); |
|
76 } |
|
77 elsif ($_ =~ '^@') { |
|
78 die "error: Syntax error line $ln: New record started before previous one is closed" if($inrec > 0); |
|
79 printf "-start\n" if($mhd::trace); |
|
80 $inrec = 1; |
|
81 $recobj = HCRrec->new(); |
|
82 } |
|
83 elsif ($_ =~ '^\.') { |
|
84 die "error: Syntax error line $ln: Record closed before a new record has been opened" if($inrec == 0); |
|
85 printf "-end\n" if($mhd::trace); |
|
86 if ($recobj->IsValid()) { |
|
87 $datobj->AddSettingRecord($recobj); |
|
88 } |
|
89 else { |
|
90 die "error: Record after record " . $datobj->NumRecords() . " completed but not valid, missing or has =0 fields?\n"; |
|
91 } |
|
92 $inrec = 0; |
|
93 } |
|
94 elsif ($_ =~ '^\s*$') { |
|
95 printf "-blank\n" if($mhd::trace); |
|
96 } |
|
97 elsif ($_ =~ '^\s*cuid:\s') { |
|
98 print "--cuid " if($mhd::trace); |
|
99 my @hwords = split(/\s+/,$_); |
|
100 die "error: 'cuid:' line incorrectly formed" if (scalar(@hwords) != 2); |
|
101 |
|
102 $recobj->CUID($hwords[1]); |
|
103 printf("=0x%08x\n", $recobj->CUID()) if($mhd::trace); |
|
104 } |
|
105 elsif ($_ =~ '^\s*eid:\s') { |
|
106 print "--eid " if($mhd::trace); |
|
107 my @hwords = split(/\s+/,$_); |
|
108 die "error: 'eid:' line incorrectly formed" if (scalar(@hwords) != 2); |
|
109 |
|
110 $recobj->EID($hwords[1]); |
|
111 print "=".($recobj->EID())."\n" if($mhd::trace); |
|
112 } |
|
113 elsif ($_ =~ '^\s*type:\s') { |
|
114 print "--type " if($mhd::trace); |
|
115 my @hwords = split(/\s+/,$_); |
|
116 die "error: 'type:' line incorrectly formed" if (scalar(@hwords) != 2); |
|
117 |
|
118 $recobj->Type($hwords[1]); |
|
119 printf("=0x%08x (%s)\n", $recobj->Type(), $recobj->TypeName()) if($mhd::trace); |
|
120 } |
|
121 elsif ($_ =~ '^\s*flags:\s') { |
|
122 print "--flags " if($mhd::trace); |
|
123 my @hwords = split(/\s+/,$_); |
|
124 die "error: 'flags:' line incorrectly formed" if (scalar(@hwords) != 2); |
|
125 |
|
126 $recobj->Flags($hwords[1]); |
|
127 printf ("=0x%x\n", $recobj->Flags()) if($mhd::trace); |
|
128 printf ("warning: flag length value greater than 2-bytes\n") if ($recobj->Flags() > 0xffff); |
|
129 } |
|
130 elsif ($_ =~ '^\s*intval:\s') { |
|
131 print "--intval " if($mhd::trace); |
|
132 my @hwords = split(/\s+/,$_); |
|
133 die "error: 'intval:' line incorrectly formed" if (scalar(@hwords) != 2); |
|
134 |
|
135 $recobj->IntValue($hwords[1]); |
|
136 printf("=%d (0x%x)\n", $recobj->IntValue(), $recobj->IntValue()) if($mhd::trace); |
|
137 } |
|
138 elsif ($_ =~ '^\s*hexval:\s') { |
|
139 print "--hexval " if($mhd::trace); |
|
140 my @hwords = split(/\s+/,$_); |
|
141 die "error: 'hexval:' line incorrectly formed" if (scalar(@hwords) != 2); |
|
142 |
|
143 $recobj->HexValue($hwords[1]); |
|
144 printf("=%d (0x%x)\n", $recobj->IntValue(), $recobj->IntValue()) if($mhd::trace); |
|
145 } |
|
146 elsif ($_ =~ '^\s*arrval:\s') { |
|
147 print "--arrval " if($mhd::trace); |
|
148 my @hwords = split(/\s+/,$_); |
|
149 die "error: 'arrval:' line incorrectly formed" if (scalar(@hwords) != 2); |
|
150 |
|
151 print $hwords[1]."\n" if ($mhd::trace); |
|
152 $recobj->ArrValue($hwords[1]); |
|
153 } |
|
154 elsif ($_ =~ '^\s*strval:\s') { |
|
155 print "--strval " if($mhd::trace); |
|
156 my @hwords = split(/\"/,$_); |
|
157 die "error: 'strval:' line incorrectly formed" if (scalar(@hwords) != 3); |
|
158 |
|
159 my $strval_size = $recobj->Length(); |
|
160 $recobj->StrValue($hwords[1]); |
|
161 |
|
162 printf("=\"%s\"\n", substr($recobj->StrValue(), $strval_size)) if($mhd::trace); |
|
163 } |
|
164 elsif ($_ =~ '^\s*binval:\s') { |
|
165 print "--binval " if($mhd::trace); |
|
166 my @hwords = split(/:/,$_); |
|
167 die "error: 'binval:' line incorrectly formed" if (scalar(@hwords) < 2); |
|
168 |
|
169 my $binval_size = $recobj->Length(); |
|
170 $recobj->BinValue($hwords[1]); |
|
171 |
|
172 my $binval_ref = $recobj->BinValue(); |
|
173 my @binval = @$binval_ref; |
|
174 |
|
175 printf("(%d) =", $#binval+1) if($mhd::trace); |
|
176 my $uint16 = $binval_size; |
|
177 for (; $uint16 < @binval; $uint16++) { |
|
178 printf("%02x ", $binval[$uint16]) if($mhd::trace); |
|
179 } |
|
180 |
|
181 print "\n" if($mhd::trace); |
|
182 } |
|
183 elsif ($_ =~ '') { |
|
184 } |
|
185 else { |
|
186 die "error: unknown line type '$_'" |
|
187 # print $_ if($mhd::trace); |
|
188 } |
|
189 } |
|
190 |
|
191 close $tfh; |
|
192 |
|
193 printf "\nGenerating output file... $datfile\n"; |
|
194 |
|
195 printf "-creating binary data file\n" if($mhd::otrace); |
|
196 if ($datobj->WriteToFile($datfile.".tmp") != 0) { |
|
197 die "error: failed to write to dest_binfile"; |
|
198 } |
|
199 |
|
200 printf "-renaming file to temp file to $datfile\n" if($mhd::otrace); |
|
201 rename ($datfile.".tmp", $datfile); |
|
202 |
|
203 printf "-file header written:\n" if($mhd::otrace); |
|
204 $datobj->ShowHeader() if($mhd::otrace); |
|
205 |
|
206 if ($do_create_image) { |
|
207 my $imgfile = $datfile . ".img"; |
|
208 print "\nGenerating partition image... ". $imgfile . "\n"; |
|
209 |
|
210 if ($datobj->WriteToImage($imgfile, $datfile) != 0) { |
|
211 die "error: failed to write to image file $imgfile"; |
|
212 } |
|
213 } |
|
214 |
|
215 print "\nDone.\n"; |
|
216 exit 0; |
|
217 |
|
218 |
|
219 |