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