# Copyright (c) 2008-2009 Nokia Corporation and/or its subsidiary(-ies).

# All rights reserved.

# This component and the accompanying materials are made available

# under the terms of the License "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:

# See line 99 of this file.

#

if (@ARGV != 2 && @ARGV != 3)

	{

	print <<EOD;

Usage: cp54936_allbmp_fromunicode.pl cp54936_2byte.txt cp54936_4byte.txt cp54936_allbmp_fromunicode.cpp

EOD

	exit(1);

	}

my $root = "cp54936_allbmp_fromunicode.cpp";

if (@ARGV == 3)

	{

	$root = $ARGV[3];

	}

my %lines;	# the hash table to hold all characters with key=unicode(dec) and value=foreign(string)

# read 2 byte input file

open (IN2, "<$ARGV[0]") or die ("Error: $ARGV[0] $!");

my $lineNumber = 0;

my $acceptLineNumber = 0;

while (!eof(IN2))

	{

	my $line = <IN2>;

	$lineNumber++;

	if ($line =~ /^(0[xX][\da-fA-F]{1,4})\s*(0[xX][\da-fA-F]{1,4}).*/)

		{

		$acceptLineNumber++;

		my $foreign = $1;

		my $unicode = hex($2);

		if (exists ($lines{$unicode}))

			{

			print "ERROR: Unicode $unicode is reused by $lines{$unicode} and $foreign.\n";

			exit(1);

			}

		$lines{$unicode} = $foreign;

		}

	else

		{

		#print "Ignore line: $line";

		}

	}

close IN2;

print "\nRead $ARGV[0] done.\n";

print "$acceptLineNumber of $lineNumber lines accepted.\n\n";

# read 4 byte input file

open (IN4, "<$ARGV[1]") or die ("Error: $ARGV[1] $!");

$lineNumber = 0;

$acceptLineNumber = 0;

while (!eof(IN4))

	{

	my $line = <IN4>;

	$lineNumber++;

	if ($line =~ /^(0[xX]8[1-4]3\d[\da-fA-F]{2}3\d)\s*(0[xX][\da-fA-F]{4}).*/)

		{

		$acceptLineNumber++;

		my $foreign = $1;

		my $unicode = hex($2);

		if (exists ($lines{$unicode}))

			{

			print "ERROR: Unicode $unicode is reused by $lines{$unicode} and $foreign.\n";

			exit(1);

			}

		$lines{$unicode} = $foreign;

		}

	else

		{

		#print "Ignore line: $line";

		}

	}

close IN4;

print "Read $ARGV[1] done.\n";

print "$acceptLineNumber of $lineNumber lines accepted.\n\n";

# write to output file

print "Write to $root...\n";

open (CPP, ">$root") or die ("Error: Can't open cpp file");

print CPP <<EOD;

// Copyright (c) 2008-2009 Nokia Corporation and/or its subsidiary(-ies).

// All rights reserved.

// This component and the accompanying materials are made available

// under the terms of the License "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:

//

// Generated by the cp54936_allbmp_fromunicode.pl tool - Do not edit!!!

// Generated with \"perl -w ..\\group\\cp54936_allbmp_fromunicode.pl cp54936_2byte.txt cp54936_4byte.txt\".

//

#include <e32std.h>

#include <e32def.h>

#include "cp54936.h"

const TUint8 KForeignReplacement = 0x5F;

EOD

print CPP "const TUint32 KMappingTableUnicodeBmp2CP54936\[65536\] = \n";

print CPP "\t\{\n\t";

my $bytecount = 0;

my $expectUnicode = 0;

while ($expectUnicode <= 0xFFFF)

	{

	if (exists ($lines{$expectUnicode}))

		{

		print CPP "$lines{$expectUnicode}, ";

		}

	else

		{

		print CPP "KForeignReplacement, ";

		}

	$bytecount += 4;

	$expectUnicode++;

	if (($expectUnicode % 16) == 0)

		{

		print CPP sprintf("// %04X - %04X\n\t", $expectUnicode-16, $expectUnicode-1);

		}

	}

print CPP "};\t";

$bytecount += 8;

print CPP "// total byte count = $bytecount\n";

print "\nTotal byte count: $bytecount.\n";

close CPP;

print "\nDone.";