#

# Copyright (c) 2004-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: 

# This tool takes a valid .txt file as an input parameter and converts it into a .cpp file

#

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

	{

	print <<EOD;

Usage:explanation.....

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] $!");

open (CPP, ">$root.cpp") or die ("Error: $ARGV[0] Can't open cpp file");

print CPP <<EOD;

//

// Auto-generated by the FatConversiontable tool - Do not edit!!!

//

#include <e32std.h>

#include <e32def.h>

#include <e32des8.h> 

#include "convdatastruct.h"

EOD

print CPP "const TLeadOrSingle TConvDataStruct\:\:KFirstByteConversions\[\]=\n";

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

my $input;

my $count = 0;

my $count2 = 0;

my $tailIncrement = hex(40);

my $index = 0;

my $test = 0;

my $leadByte = hex(00);

until (eof IN) {	#until end of file

#ignore lines that start with a '#' or which are in the range of 0x00 - 0x7F

do {

	$input = readline(IN) or die ("Error: Can't read line");

}while ($input =~ m/^$*#/ || $input=~ m/^0x[0-7][0-9A-F]\t/);

#single bytes get stored into 'SingleByte' array

if($input =~ m/^0x(..)\t(.*)\t(#.*)$/) 

	{

	my $SingleByte = hex($1);

	my $Unicode = $2;

	my $Note = $3;

	if ($Unicode=~ m/0x..../)

		{

		@SingleByte[$count] = (["$SingleByte", "$Unicode"]);

		$count = $count + 1;

		}

	if($Note eq '#DBCS LEAD BYTE')

		{

		@SingleByte[$count] = (["$SingleByte", "0"]);

		$count = $count + 1;

		}

	if ($Note eq '#UNDEFINED')

		{

		@SingleByte[$count] = (["$SingleByte", "0xFFFD"]);		

		$count = $count + 1;

		}

	}

#double bytes get stored into 'DoubleByte' array, whereby the tail bytes 

#must not have any gaps from 0x40 to 0xFF;

elsif($input=~ m/^0x(..)(..)\t(0x....)\t#.*/)

	{

	my $ForeignLead = hex($1);

	my $ForeignTail = hex($2);

	my $Unicode = $3;

	$test = 1;		

	if($leadByte==0)

		{

		$leadByte=$ForeignLead;

		}

	if($leadByte!=$ForeignLead)

		{

		if($tailIncrement!=hex(40))

			{

			while($tailIncrement<=hex(FF))

				{

				@DoubleByte[$count2] = (["$leadByte", "0xFFFD","$tailIncrement"]);

				$count2++;	

				$tailIncrement++;

				}

			}

		$tailIncrement=hex(40);

		$leadByte=$ForeignLead;

		}

	while($tailIncrement<=$ForeignTail)

		{

		if($tailIncrement==$ForeignTail)

			{

			@DoubleByte[$count2] = (["$ForeignLead", "$Unicode","$ForeignTail"]);		

			}

		else

			{

			@DoubleByte[$count2] = (["$leadByte", "0xFFFD","$tailIncrement"]);

			}

		$count2++;	

		if($tailIncrement==hex(FF))

			{

			$tailIncrement=hex(40);

			$leadByte++;

			}

		else

			{

			$tailIncrement++;

			}

		}

	}

} #end of loop

#my $d=0;

#for ($d=0;$d<$count2;$d++)

#{

#print CPP"$DoubleByte[$d][0], $DoubleByte[$d][1], $DoubleByte[$d][2]\t\n";

#}

#checks if tail byte ended uncompleted (i.e. ends with xFD) and completes it to xFF;

if($test==1)

	{

	my $counter = $count2-1;

	$test=0;

	if($DoubleByte[$counter][2]<0xFF)

		{

		my $temp = $DoubleByte[$counter][0];

		my $temp2 = $DoubleByte[$counter][2];

		do

			{

			$temp2++;

			@DoubleByte[$count2] = (["$temp", "0xFFFD","$temp2"]);

			$count2 = $count2 + 1;

			}while($temp2<0xFF);

		}

	}

my $position = 0;

my $position2 = 0;

my $x=0;

my $y=0;

#get the positions of single/lead bytes

for($x=0; $x<$count; $x++)

	{

	my $found=0;

	if($SingleByte[$x][1] eq '0') #if lead-byte...

		{	

		for($y=0; $y<$count2; $y++)

			{

			if($SingleByte[$x][0] == $DoubleByte[$y][0])

				{

				$position = $y;

				$position2 = $y + 192;

				$found = 1;

				$y=$count2;

				}	

			}		

		if($found==1)

			{

			print CPP "\t\t\{$SingleByte[$x][1], $position\},\n";

			}

		else

			{

			print CPP "\t\t\{0xFFFD, $position2\},\n";

			}

		}

	else

		{

		print CPP "\t\t\{$SingleByte[$x][1], $position2\},\n";

		}

	}

print CPP "\t\t\};\n\n";

#print double bytes

print CPP "const TUint16 TConvDataStruct\:\:KDoubleByteConversions\[\]=\n";

print CPP "\t\t\{";

my $newLine = 0;

if($count2>0)

	{

	for ($i=0; $i<$count2; $i++)

		{

		if($newLine==15)	#use a newline every 15 entries, to maintain user-friendliness

			{

			print CPP "\n\t\t";

			$newLine = 0;

			}

		print CPP "$DoubleByte[$i][1],";

		$newLine++;

		}

	}

else

	{

	print CPP "0x00";

	}

print CPP "\};\n\n";

if($count2>0)

	{

	$count2=$count2-1;

	}

print CPP "const TUint16 TConvDataStruct\:\:KDoubleByteConversionLength = $count2;\n\n";

print CPP "const TUint8 TConvDataStruct\:\:KMinTrailByte = 0x40;\n\n";

print CPP "const TUint8 TConvDataStruct\:\:KMaxTrailByte = 0xFF;\n\n";

print CPP <<EOD;

TInt TConvDataStruct::ConvertSingleUnicode(TInt aUnicode, TInt& aTrailByte)

	{

	aTrailByte = KErrNotFound;

	//single byte conversion check

	for(TInt i=0;i!=0x80;++i)

		{

		if(KFirstByteConversions[i].iUnicodeIfSingle==aUnicode)

			return i+0x80;

		}

	//double byte conversion check

	for(TInt j=0;j<=KDoubleByteConversionLength;++j)

		{

		if(KDoubleByteConversions[j] == aUnicode)

			{

			for(TInt k=0x7F;k>=0;--k)

				{

				TInt temp = j-KFirstByteConversions[k].iDoubleByteIndex;

				if(0<=temp)

					{

					aTrailByte = KMinTrailByte + temp;

					return k+0x80;

					}

				}

			}

		}

	return KErrNotFound;

EOD

print CPP "\t\}\n";