--- a/build/tools/localised_emu.pl Sat Feb 20 00:39:01 2010 +0200
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,153 +0,0 @@
-#
-# Copyright (c) 2002-2006 Nokia Corporation and/or its subsidiary(-ies).
-# All rights reserved.
-# This component and the accompanying materials are made available
-# under the terms of "Eclipse Public License v1.0"
-# which accompanies this distribution, and is available
-# at the URL "http://www.eclipse.org/legal/epl-v10.html".
-#
-# Initial Contributors:
-# Nokia Corporation - initial contribution.
-#
-# Contributors:
-#
-# Description: Script that takes an optional language ID as a parameter and updates features.dat and languages.txt
-# in emulator environment.
-#
-# localised_emu.pl
-#
-# Script is RnD Emulator specific!
-#
-# Usage example: localised_emu.pl
-# Usage example: localised_emu.pl 31
-# Usage example: localised_emu.pl 31 urel
-# Usage example: localised_emu.pl 31 udeb
-#
-
-$HRHFILE = "\\epoc32\\include\\bldpublic.hrh";
-$xml_china_filename = "\\epoc32\\include\\s60features_apac.xml";
-$xml_japan_filename = "\\epoc32\\include\\s60features_japan.xml";
-$xml_korean_filename = "\\epoc32\\include\\s60features_korean.xml";
-@china_languages=(29,30,31,129,157,158,159,326,327);
-@japan_languages=(32,160);
-$korean_language=65;
-
-$lang_id = $ARGV[0];
-$ureludeb = lc $ARGV[1];
-
-if ($lang_id eq "")
-{
- $lang_id ="01";
- print "No language selected, default language used: $lang_id\n";
-}
-
-# Check that given id is digit
-if (!($lang_id =~ /^\d+$/ ))
-{
- $lang_id = "01";
- print "faulty lang id!\n";
- &printHelp;
- exit;
-}
-
-if ($ureludeb eq "")
-{
- $ureludeb = "udeb";
- print "No urel/udeb selection made. Selecting UDEB.\n";
-}
-
-# Check that urel/udeb selection is valid
-if (!(($ureludeb eq "urel") or ($ureludeb eq "udeb")))
-{
- print "faulty urel/udeb selection!\n";
- &printHelp;
- exit;
-}
-
-$targetfile= "\\epoc32\\release\\winscw\\$ureludeb\\Z\\Resource\\bootdata\\languages.txt";
-
-# check that given id is supported
-open(HRHFILE) or die("Could not open bldpublic.hrh file.");
-foreach $line (<HRHFILE>) {
- chomp($line); # remove the newline from $line.
- if ($line =~ m/LANGUAGE_IDS/)
- {
- if ($line =~ m/$lang_id/)
- {
- #print "Language ID found from bldpublic.hrh.\n";
- } else
- {
- print "Not supported language ID selected.\n";
- print "Supported language ID's:\n";
- print "$line\n";
- #$lang_id="01";
- exit;
- }
- }
- }
-close(HRHFILE);
-
-## generate feature.dat for emulator
-if (grep {$_ eq $lang_id} @china_languages) {
- #print "China Language ID '$lang_id' selected.\n" ;
- system("perl -S \\epoc32\\tools\\features.pl \\epoc32\\rom\\include\\featuredatabase.xml $xml_china_filename -d=\\epoc32\\release\\winscw\\$ureludeb\\z\\private\\10205054\\");
- print "China version of features.dat generated.\n";
-} elsif (grep {$_ eq $lang_id} @japan_languages) {
- #print "Japan Language ID '$lang_id' selected.\n" ;
- system("perl -S \\epoc32\\tools\\features.pl \\epoc32\\rom\\include\\featuredatabase.xml $xml_japan_filename -d=\\epoc32\\release\\winscw\\$ureludeb\\z\\private\\10205054\\");
- print "Japan version of features.dat generated.\n";
-} elsif ($lang_id == $korean_language) {
- #print "Korean Language ID '$lang_id' selected.\n" ;
- system("perl -S \\epoc32\\tools\\features.pl \\epoc32\\rom\\include\\featuredatabase.xml $xml_korean_filename -d=\\epoc32\\release\\winscw\\$ureludeb\\z\\private\\10205054\\");
- print "Korean version of features.dat generated.\n";
-} else {
- #print "western Language ID '$lang_id' selected.\n" ;
- system("perl -S \\epoc32\\tools\\features.pl \\epoc32\\rom\\include\\featuredatabase.xml \\epoc32\\include\\s60features.xml -d=\\epoc32\\release\\winscw\\$ureludeb\\z\\private\\10205054\\");
- print "Western version of features.dat generated.\n";
-}
-
-
-
-# Put language ID to languages.txt
-$version_string = sprintf("%s,d", $lang_id);
-
-# Make sure that read only flag is off in the target file
-chmod 0755, $targetfile;
-
-# Write the version string in the unicode format
-open OUT, ">$targetfile" or die "Can't open output file: $targetfile $!\n";
-print OUT "\xFF\xFE";
-for (my $i = 0; $i < length($version_string); $i++)
-{
- printf OUT "%s\0", substr($version_string, $i, 1);
-}
-close OUT;
-
-#start the actual emulator
-if ((lc $ureludeb) eq "urel")
-{
- system("epoc -rel");
- print "urel emulator started!\n";
-}
-else
-{
- system("epoc");
- print "udeb emulator started!\n";
-}
-
-
-
-sub printHelp
-{
- print "*****************************************\n";
- print "**Usage of the localised_emulator.pl:\n";
- print "**localised_emulator.pl <lang_ID> <urel/udeb>\n";
- print "**Default english udeb (01):localised_emulator.pl\n";
- print "**China language: localised_emulator.pl 31\n";
- print "*****************************************\n";
- print "China ID's: @china_languages\n";
- print "Japan ID's: @japan_languages\n";
- print "Korean ID: $korean_language\n";
-}
-
-exit;
\ No newline at end of file