#
# 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 "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.";