1
|
1 |
#
|
|
2 |
# Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).
|
|
3 |
# All rights reserved.
|
|
4 |
#
|
|
5 |
# Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:
|
|
6 |
#
|
|
7 |
# * Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer.
|
|
8 |
# * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution.
|
|
9 |
# * Neither the name of Nokia Corporation nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission.
|
|
10 |
#
|
|
11 |
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
|
|
12 |
# THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS
|
|
13 |
# BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
|
|
14 |
# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
|
|
15 |
# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.#
|
|
16 |
#
|
|
17 |
#!/usr/bin/perl -w
|
|
18 |
|
|
19 |
|
|
20 |
use strict;
|
|
21 |
|
|
22 |
|
|
23 |
open( STRINGPOOL, ">>stringPool.py" ) || die "Unable to open String Pool";
|
|
24 |
|
|
25 |
my $fileName;
|
|
26 |
for $fileName ( @ARGV )
|
|
27 |
{
|
|
28 |
open( INPUT, $fileName ) || die "Unable to open $fileName";
|
|
29 |
my @file = <INPUT>;
|
|
30 |
close( INPUT );
|
|
31 |
|
|
32 |
|
|
33 |
open( OUTPUT, ">$fileName" ) || die "Unable to open $fileName";
|
|
34 |
my $scriptName = "!!!";
|
|
35 |
my $title = "!!!no title found";
|
|
36 |
my $description = "!!!no description found";
|
|
37 |
my $ideTitle = "!!!no IDE title found";
|
|
38 |
|
|
39 |
my $i;
|
|
40 |
for( $i = 0; $i <= $#file; $i++ )
|
|
41 |
{
|
|
42 |
if( $file[ $i ] =~ m/CScript\(\"(\w+)\"\)/ )
|
|
43 |
{
|
|
44 |
$scriptName = $1;
|
|
45 |
}
|
|
46 |
|
|
47 |
if( $file[ $i ] =~ m/script.iTitleString\ +=\ +\"(.+)\"/ )
|
|
48 |
{
|
|
49 |
$title = $1;
|
|
50 |
$file[ $i ] = "# " . $file[ $i ];
|
|
51 |
}
|
|
52 |
|
|
53 |
if( $file[ $i ] =~ m/script.iDescription\ +=\ +\"(.+)\"/ )
|
|
54 |
{
|
|
55 |
$description = $1;
|
|
56 |
$file[ $i ] = "# " . $file[ $i ];
|
|
57 |
}
|
|
58 |
|
|
59 |
|
|
60 |
if( $file[ $i ] =~ m/script.iErrorMessage\ +=\ +\"(.+)\"/ )
|
|
61 |
{
|
|
62 |
$ideTitle = $1;
|
|
63 |
$file[ $i ] = "# " . $file[ $i ];
|
|
64 |
}
|
|
65 |
|
|
66 |
print OUTPUT $file[ $i ];
|
|
67 |
|
|
68 |
}
|
|
69 |
|
|
70 |
close( OUTPUT );
|
|
71 |
|
|
72 |
print STRINGPOOL <<EOS;
|
|
73 |
# localised string for Script $scriptName
|
|
74 |
stringPool[ "$scriptName!title" ] = "$title"
|
|
75 |
stringPool[ "$scriptName!description" ] = "$description"
|
|
76 |
stringPool[ "$scriptName!ideTitle" ] = "$ideTitle"
|
|
77 |
|
|
78 |
EOS
|
|
79 |
;
|
|
80 |
}
|
|
81 |
|
|
82 |
close( STRINGPOOL );
|
|
83 |
|