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

# All rights reserved.

# This component and the accompanying materials are made available

# 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:

#

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