sl@0: #
sl@0: # Copyright (c) 2004-2009 Nokia Corporation and/or its subsidiary(-ies).
sl@0: # All rights reserved.
sl@0: # This component and the accompanying materials are made available
sl@0: # under the terms of "Eclipse Public License v1.0"
sl@0: # which accompanies this distribution, and is available
sl@0: # at the URL "http://www.eclipse.org/legal/epl-v10.html".
sl@0: #
sl@0: # Initial Contributors:
sl@0: # Nokia Corporation - initial contribution.
sl@0: #
sl@0: # Contributors:
sl@0: #
sl@0: # Description: 
sl@0: # This tool takes a valid .txt file as an input parameter and converts it into a .cpp file
sl@0: #
sl@0: 
sl@0: if (@ARGV != 1 && @ARGV != 2)
sl@0: 	{
sl@0: 	print <<EOD;
sl@0: Usage:explanation.....
sl@0: EOD
sl@0: 	exit(1);
sl@0: 	}
sl@0: 
sl@0: # Removes the extenstion from the filename
sl@0: $ARGV[0] =~ m/(.*)\..*/;
sl@0: my $root = $1;
sl@0: $root =~ m/.*[\\\/]([^\\\/]*)$/;
sl@0: my $header_to_include = $1;
sl@0: 
sl@0: if (@ARGV == 2)
sl@0: 	{
sl@0: 	$ARGV[1] =~ m/(.*)\..*/;
sl@0: 	$root = $1;
sl@0: 	}
sl@0: 
sl@0: open (IN, "<$ARGV[0]") or die ("Error: $ARGV[0] $!");
sl@0: 
sl@0: open (CPP, ">$root.cpp") or die ("Error: $ARGV[0] Can't open cpp file");
sl@0: 
sl@0: print CPP <<EOD;
sl@0: //
sl@0: // Auto-generated by the FatConversiontable tool - Do not edit!!!
sl@0: //
sl@0: 
sl@0: #include <e32std.h>
sl@0: #include <e32def.h>
sl@0: #include <e32des8.h> 
sl@0: #include "convdatastruct.h"
sl@0: 
sl@0: EOD
sl@0: print CPP "const TLeadOrSingle TConvDataStruct\:\:KFirstByteConversions\[\]=\n";
sl@0: print CPP "\t\t\{\n";
sl@0: 
sl@0: my $input;
sl@0: my $count = 0;
sl@0: my $count2 = 0;
sl@0: my $tailIncrement = hex(40);
sl@0: my $index = 0;
sl@0: my $test = 0;
sl@0: my $leadByte = hex(00);
sl@0: 
sl@0: until (eof IN) {	#until end of file
sl@0: 
sl@0: #ignore lines that start with a '#' or which are in the range of 0x00 - 0x7F
sl@0: do {
sl@0: 	$input = readline(IN) or die ("Error: Can't read line");
sl@0: }while ($input =~ m/^$*#/ || $input=~ m/^0x[0-7][0-9A-F]\t/);
sl@0: 
sl@0: #single bytes get stored into 'SingleByte' array
sl@0: if($input =~ m/^0x(..)\t(.*)\t(#.*)$/) 
sl@0: 	{
sl@0: 	my $SingleByte = hex($1);
sl@0: 	my $Unicode = $2;
sl@0: 	my $Note = $3;
sl@0: 	
sl@0: 	if ($Unicode=~ m/0x..../)
sl@0: 		{
sl@0: 		@SingleByte[$count] = (["$SingleByte", "$Unicode"]);
sl@0: 		$count = $count + 1;
sl@0: 		}
sl@0: 	if($Note eq '#DBCS LEAD BYTE')
sl@0: 		{
sl@0: 		@SingleByte[$count] = (["$SingleByte", "0"]);
sl@0: 		$count = $count + 1;
sl@0: 		}
sl@0: 	if ($Note eq '#UNDEFINED')
sl@0: 		{
sl@0: 		@SingleByte[$count] = (["$SingleByte", "0xFFFD"]);		
sl@0: 		$count = $count + 1;
sl@0: 		}
sl@0: 	}
sl@0: 	
sl@0: #double bytes get stored into 'DoubleByte' array, whereby the tail bytes 
sl@0: #must not have any gaps from 0x40 to 0xFF;
sl@0: elsif($input=~ m/^0x(..)(..)\t(0x....)\t#.*/)
sl@0: 	{
sl@0: 	my $ForeignLead = hex($1);
sl@0: 	my $ForeignTail = hex($2);
sl@0: 	my $Unicode = $3;
sl@0: 	$test = 1;		
sl@0: 	
sl@0: 	if($leadByte==0)
sl@0: 		{
sl@0: 		$leadByte=$ForeignLead;
sl@0: 		}
sl@0: 		
sl@0: 	if($leadByte!=$ForeignLead)
sl@0: 		{
sl@0: 		if($tailIncrement!=hex(40))
sl@0: 			{
sl@0: 			while($tailIncrement<=hex(FF))
sl@0: 				{
sl@0: 				@DoubleByte[$count2] = (["$leadByte", "0xFFFD","$tailIncrement"]);
sl@0: 				$count2++;	
sl@0: 				$tailIncrement++;
sl@0: 				}
sl@0: 			}
sl@0: 		$tailIncrement=hex(40);
sl@0: 		$leadByte=$ForeignLead;
sl@0: 		}
sl@0: 		
sl@0: 	while($tailIncrement<=$ForeignTail)
sl@0: 		{
sl@0: 		if($tailIncrement==$ForeignTail)
sl@0: 			{
sl@0: 			@DoubleByte[$count2] = (["$ForeignLead", "$Unicode","$ForeignTail"]);		
sl@0: 			}
sl@0: 		else
sl@0: 			{
sl@0: 			@DoubleByte[$count2] = (["$leadByte", "0xFFFD","$tailIncrement"]);
sl@0: 			}
sl@0: 		$count2++;	
sl@0: 		if($tailIncrement==hex(FF))
sl@0: 			{
sl@0: 			$tailIncrement=hex(40);
sl@0: 			$leadByte++;
sl@0: 			}
sl@0: 		else
sl@0: 			{
sl@0: 			$tailIncrement++;
sl@0: 			}
sl@0: 		}
sl@0: 	}
sl@0: } #end of loop
sl@0: 
sl@0: #my $d=0;
sl@0: #for ($d=0;$d<$count2;$d++)
sl@0: #{
sl@0: #print CPP"$DoubleByte[$d][0], $DoubleByte[$d][1], $DoubleByte[$d][2]\t\n";
sl@0: #}
sl@0: 
sl@0: #checks if tail byte ended uncompleted (i.e. ends with xFD) and completes it to xFF;
sl@0: if($test==1)
sl@0: 	{
sl@0: 	my $counter = $count2-1;
sl@0: 	$test=0;
sl@0: 	
sl@0: 	if($DoubleByte[$counter][2]<0xFF)
sl@0: 		{
sl@0: 		my $temp = $DoubleByte[$counter][0];
sl@0: 		my $temp2 = $DoubleByte[$counter][2];
sl@0: 		do
sl@0: 			{
sl@0: 			$temp2++;
sl@0: 			@DoubleByte[$count2] = (["$temp", "0xFFFD","$temp2"]);
sl@0: 			$count2 = $count2 + 1;
sl@0: 			}while($temp2<0xFF);
sl@0: 		}
sl@0: 	}
sl@0: 
sl@0: my $position = 0;
sl@0: my $position2 = 0;
sl@0: my $x=0;
sl@0: my $y=0;
sl@0: 
sl@0: #get the positions of single/lead bytes
sl@0: for($x=0; $x<$count; $x++)
sl@0: 	{
sl@0: 	my $found=0;
sl@0: 	if($SingleByte[$x][1] eq '0') #if lead-byte...
sl@0: 		{	
sl@0: 		for($y=0; $y<$count2; $y++)
sl@0: 			{
sl@0: 			if($SingleByte[$x][0] == $DoubleByte[$y][0])
sl@0: 				{
sl@0: 				$position = $y;
sl@0: 				$position2 = $y + 192;
sl@0: 				$found = 1;
sl@0: 				$y=$count2;
sl@0: 				}	
sl@0: 			}		
sl@0: 		if($found==1)
sl@0: 			{
sl@0: 			print CPP "\t\t\{$SingleByte[$x][1], $position\},\n";
sl@0: 			}
sl@0: 		else
sl@0: 			{
sl@0: 			print CPP "\t\t\{0xFFFD, $position2\},\n";
sl@0: 			}
sl@0: 		}
sl@0: 	else
sl@0: 		{
sl@0: 		print CPP "\t\t\{$SingleByte[$x][1], $position2\},\n";
sl@0: 		}
sl@0: 	}
sl@0: print CPP "\t\t\};\n\n";
sl@0: 
sl@0: #print double bytes
sl@0: print CPP "const TUint16 TConvDataStruct\:\:KDoubleByteConversions\[\]=\n";
sl@0: print CPP "\t\t\{";
sl@0: my $newLine = 0;
sl@0: if($count2>0)
sl@0: 	{
sl@0: 	for ($i=0; $i<$count2; $i++)
sl@0: 		{
sl@0: 		if($newLine==15)	#use a newline every 15 entries, to maintain user-friendliness
sl@0: 			{
sl@0: 			print CPP "\n\t\t";
sl@0: 			$newLine = 0;
sl@0: 			}
sl@0: 		print CPP "$DoubleByte[$i][1],";
sl@0: 		$newLine++;
sl@0: 		}
sl@0: 	}
sl@0: else
sl@0: 	{
sl@0: 	print CPP "0x00";
sl@0: 	}
sl@0: print CPP "\};\n\n";
sl@0: if($count2>0)
sl@0: 	{
sl@0: 	$count2=$count2-1;
sl@0: 	}
sl@0: print CPP "const TUint16 TConvDataStruct\:\:KDoubleByteConversionLength = $count2;\n\n";
sl@0: print CPP "const TUint8 TConvDataStruct\:\:KMinTrailByte = 0x40;\n\n";
sl@0: print CPP "const TUint8 TConvDataStruct\:\:KMaxTrailByte = 0xFF;\n\n";
sl@0: 
sl@0: print CPP <<EOD;
sl@0: TInt TConvDataStruct::ConvertSingleUnicode(TInt aUnicode, TInt& aTrailByte)
sl@0: 	{
sl@0: 	aTrailByte = KErrNotFound;
sl@0: 	
sl@0: 	//single byte conversion check
sl@0: 	for(TInt i=0;i!=0x80;++i)
sl@0: 		{
sl@0: 		if(KFirstByteConversions[i].iUnicodeIfSingle==aUnicode)
sl@0: 			return i+0x80;
sl@0: 		}
sl@0: 	//double byte conversion check
sl@0: 	for(TInt j=0;j<=KDoubleByteConversionLength;++j)
sl@0: 		{
sl@0: 		if(KDoubleByteConversions[j] == aUnicode)
sl@0: 			{
sl@0: 			for(TInt k=0x7F;k>=0;--k)
sl@0: 				{
sl@0: 				TInt temp = j-KFirstByteConversions[k].iDoubleByteIndex;
sl@0: 				if(0<=temp)
sl@0: 					{
sl@0: 					aTrailByte = KMinTrailByte + temp;
sl@0: 					return k+0x80;
sl@0: 					}
sl@0: 				}
sl@0: 			}
sl@0: 		}
sl@0: 	return KErrNotFound;
sl@0: EOD
sl@0: print CPP "\t\}\n";