Revision: 200948 + Removing redundant base integration tests and fixing build errors
Kit: 200948
#
# 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";