#
# 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 111 of this file.
#

if (@ARGV != 1 && @ARGV != 2)
	{
	print <<EOD;
Usage: perl -w cp54936_4byte.pl cp54936_4byte.txt
EOD
	exit(1);
	}

# Removes the extenstion from the filename
$ARGV[0] =~ m/(.*)\..*/;
my $root = $1;
$root =~ m/.*[\\\/]([^\\\/]*)$/;
my $header_to_include = $1;

if (@ARGV == 2)
	{
	$ARGV[1] =~ m/(.*)\..*/;
	$root = $1;
	}

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

my $lineNumber = 0;
my $acceptLineNumber = 0;
my %lines;		# hash table of all characters in format with key=foreign(string) and value=unicode(string)
while (!eof(IN))
	{
	my $line = <IN>;
	$lineNumber++;
	if ($line =~ /^(0[xX]8[1-4]3\d[\da-fA-F]{2}3\d)\s*(0[xX][\da-fA-F]{4}).*/)
		{
		# read a line like "0x81318133	0x060D"
		$acceptLineNumber++;
		my $foreign = $1;
		my $unicode = $2;
		$lines{$foreign} = $unicode;
		}
	else
		{
		#print "Ignore line: $line";
		}
	}
close IN;
print "Read $ARGV[0] done.\n";
print "$acceptLineNumber of $lineNumber lines accepted.\n";


# increase input cp54936 code by 1
# param is a string like "0x81308439"
# return a string like "0x81308530"
sub IncreaseCP54936Code
	{
	my ($increaseme) = @_;
	$increaseme =~ /0[xX]([\da-fA-F]{2})([\da-fA-F]{2})([\da-fA-F]{2})([\da-fA-F]{2})/;
	($b1, $b2, $b3, $b4) = (hex($1), hex($2), hex($3), hex($4));
	$b4++;
	if ($b4 == 0x3A)
		{
		$b4 = 0x30;
		$b3++;
		if ($b3 == 0xFF)
			{
			$b3 = 0x81;
			$b2++;
			if ($b2 == 0x3A)
				{
				$b2 = 0x30;
				$b1++;
				}
			}
		}
	return sprintf("0x%02X%02X%02X%02X", $b1, $b2, $b3, $b4);
	}

# return the offset from 0x81308130 to input "0x8234A235"
sub OffsetOfCP54936Code
	{
	$_[0] =~ /0[xX]([\da-fA-F]{2})([\da-fA-F]{2})([\da-fA-F]{2})([\da-fA-F]{2})/;
	($b1, $b2, $b3, $b4) = (hex($1), hex($2), hex($3), hex($4));
	return ($b1-0x81)*12600 + ($b2-0x30)*1260 + ($b3-0x81)*10 + ($b4-0x30);
	}

# return the last byte of input "0x8234A235"
sub Byte4OfCP54936Code
	{
	$_[0] =~ /0[xX]([\da-fA-F]{2})([\da-fA-F]{2})([\da-fA-F]{2})([\da-fA-F]{2})/;
	return hex($4);
	}


print "Write to $root.cpp...\n";
open (CPP, ">$root.cpp") or die ("Error: $ARGV[0] 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:
//
// Auto-generated by the cp54936_4byte_tounicode.pl tool - Do not edit!!!
//

#include <e32std.h>
#include <e32def.h>
#include "cp54936.h"


// mapping table of: CP54936 4-byte in-BMP ---> Unicode
// To calculate index: index=(b1-144)*12600+(b2-48)*1260+(b3-129)*10+(b4-48), in which,
// b1,b2,b3,b4 is byte1,2,3,4 of CP54936 code.
// For example, CP54936 code 0x8232EA38, the index=(0x82-144)*12600+(0x32-48)*1260+(0xEA-129)*10+(0x38-48)=16178
// So we get the Unicode 0x42AB.
// Generated with: \"perl -w ..\\group\\cp54936_4byte_tounicode.pl cp54936_4byte.txt cp54936_4byte_tounicode.cpp\".

EOD

my $bytecount = 0;
my $expect = "0x81308130";
my $last = "0x8431A439";
my $totalCount = OffsetOfCP54936Code($last) + 1;


print CPP "const TUint16 KMappingTable4ByteBmp2Unicode[$totalCount] =\n\t{\n\t";

my $outIndex = 0;	# to wrap every 10 items
while (OffsetOfCP54936Code($expect) <= OffsetOfCP54936Code($last))
	{
	if (!exists($lines{$expect}))
		{
		print CPP "0xFFFD, ";
		}
	else
		{
		print CPP "$lines{$expect}, ";
		}
	$bytecount += 2;
	$outIndex++;
	if ($outIndex % 10 == 0)
		{
		print CPP "\t// $expect\n\t";
		}
	# to next foreign
	$expect = IncreaseCP54936Code($expect);
	}

print CPP "};\n";
print CPP "// total byte count = $bytecount\n";
print "\nTotal byte count: $bytecount.\n";
close CPP;
print "Done.\n";