#

# Copyright (c) 2007 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:   Builds a keymap code file from given keymapping data file.

#

($time_second, $time_minute, $time_hour,          # time/date

    $date_day, $date_month, $date_year,

    $day_week, $day_year, $isdst) = localtime(time);

if ($date_year < 70) {$date_year += 2000;}        # add century

    else {$date_year += 1900;}

#

# Variables for qwerty data handling

#

$has_qwerty_data = 0;

$has_deadkey_data = 0;

$custom_matrix_width = 0;

$custom_matrix_height = 0;

#

# Qwerty keyboard type

#

$current_keyboard_data_block = "";

#

# Variants for numeric key mapping definition handling

#

$numkeyscount = 22;

@numkeynames = ("+","*","#","p","w","1","2","3","4","5","6","7","8","9","0",";",".",",","-","E","?","/"); 

###########################################################

#

# Default scan code <-> coordinate bindings for 12-key

# (these can be overrided with scan_binding keyword).

#

###########################################################

$scan_bind{'12-KEY 1 1'} = "EPtiKey1";

$scan_bind{'12-KEY 1 2'} = "EPtiKey2";

$scan_bind{'12-KEY 1 3'} = "EPtiKey3";

$scan_bind{'12-KEY 2 1'} = "EPtiKey4";

$scan_bind{'12-KEY 2 2'} = "EPtiKey5";

$scan_bind{'12-KEY 2 3'} = "EPtiKey6";

$scan_bind{'12-KEY 3 1'} = "EPtiKey7";

$scan_bind{'12-KEY 3 2'} = "EPtiKey8";

$scan_bind{'12-KEY 3 3'} = "EPtiKey9";

$scan_bind{'12-KEY 4 1'} = "EPtiKeyStar";

$scan_bind{'12-KEY 4 2'} = "EPtiKey0";

$scan_bind{'12-KEY 4 3'} = "EPtiKeyHash";

###########################################################

#

# Default scan code <-> coordinate bindings for std qwerty

# (these can be overrided with scan_binding keyword).

#

###########################################################

# no binding for (1 1), it is backlight key in E70

$scan_bind{'QWERTY STANDARD 1 2'} = "EPtiKeyQwerty1";

$scan_bind{'QWERTY STANDARD 1 3'} = "EPtiKeyQwerty2";

$scan_bind{'QWERTY STANDARD 1 4'} = "EPtiKeyQwerty3";

$scan_bind{'QWERTY STANDARD 1 5'} = "EPtiKeyQwerty4";

$scan_bind{'QWERTY STANDARD 1 6'} = "EPtiKeyQwerty5";

$scan_bind{'QWERTY STANDARD 1 7'} = "EPtiKeyQwerty6";

$scan_bind{'QWERTY STANDARD 1 8'} = "EPtiKeyQwerty7";

$scan_bind{'QWERTY STANDARD 1 9'} = "EPtiKeyQwerty8";

$scan_bind{'QWERTY STANDARD 1 10'} = "EPtiKeyQwerty9";

$scan_bind{'QWERTY STANDARD 1 11'} = "EPtiKeyQwerty0";

# no binding for (1 12), it is backspace in E70

$scan_bind{'QWERTY STANDARD 2 1'} = "EPtiKeyQwertyPlus";

$scan_bind{'QWERTY STANDARD 2 2'} = "EPtiKeyQwertyQ";

$scan_bind{'QWERTY STANDARD 2 3'} = "EPtiKeyQwertyW";

$scan_bind{'QWERTY STANDARD 2 4'} = "EPtiKeyQwertyE";

$scan_bind{'QWERTY STANDARD 2 5'} = "EPtiKeyQwertyR";

$scan_bind{'QWERTY STANDARD 2 6'} = "EPtiKeyQwertyT";

$scan_bind{'QWERTY STANDARD 2 7'} = "EPtiKeyQwertyY";

$scan_bind{'QWERTY STANDARD 2 8'} = "EPtiKeyQwertyU";

$scan_bind{'QWERTY STANDARD 2 9'} = "EPtiKeyQwertyI";

$scan_bind{'QWERTY STANDARD 2 10'} = "EPtiKeyQwertyO";

$scan_bind{'QWERTY STANDARD 2 11'} = "EPtiKeyQwertyP";

$scan_bind{'QWERTY STANDARD 2 12'} = "EPtiKeyQwertyMinus";

$scan_bind{'QWERTY STANDARD 3 1'} = "EPtiKeyQwertyHash";

$scan_bind{'QWERTY STANDARD 3 2'} = "EPtiKeyQwertyA";

$scan_bind{'QWERTY STANDARD 3 3'} = "EPtiKeyQwertyS";

$scan_bind{'QWERTY STANDARD 3 4'} = "EPtiKeyQwertyD";

$scan_bind{'QWERTY STANDARD 3 5'} = "EPtiKeyQwertyF";

$scan_bind{'QWERTY STANDARD 3 6'} = "EPtiKeyQwertyG";

$scan_bind{'QWERTY STANDARD 3 7'} = "EPtiKeyQwertyH";

$scan_bind{'QWERTY STANDARD 3 8'} = "EPtiKeyQwertyJ";

$scan_bind{'QWERTY STANDARD 3 9'} = "EPtiKeyQwertyK";

$scan_bind{'QWERTY STANDARD 3 10'} = "EPtiKeyQwertyL";

$scan_bind{'QWERTY STANDARD 3 11'} = "EPtiKeyQwertySemicolon";

$scan_bind{'QWERTY STANDARD 3 12'} = "EPtiKeyQwertyApostrophe";

# no binding for (4 1)

$scan_bind{'QWERTY STANDARD 4 2'} = "EPtiKeyQwertyZ";

$scan_bind{'QWERTY STANDARD 4 3'} = "EPtiKeyQwertyX";

$scan_bind{'QWERTY STANDARD 4 4'} = "EPtiKeyQwertyC";

$scan_bind{'QWERTY STANDARD 4 5'} = "EPtiKeyQwertyV";

$scan_bind{'QWERTY STANDARD 4 6'} = "EPtiKeyQwertyB";

$scan_bind{'QWERTY STANDARD 4 7'} = "EPtiKeyQwertyN";

$scan_bind{'QWERTY STANDARD 4 8'} = "EPtiKeyQwertyM";

$scan_bind{'QWERTY STANDARD 4 9'} = "EPtiKeyQwertyComma";

$scan_bind{'QWERTY STANDARD 4 10'} = "EPtiKeyQwertyFullstop";

$scan_bind{'QWERTY STANDARD 4 11'} = "EPtiKeyQwertySlash";

# no binding for (4 12), it is enter in E70

###########################################################

#

# Default scan code <-> coordinate bindings for 4x10 qwerty

# (these can be overrided with scan_binding keyword).

#

###########################################################

$scan_bind{'QWERTY 4X10 1 1'} = "EPtiKeyQwerty1";

$scan_bind{'QWERTY 4X10 1 2'} = "EPtiKeyQwerty2";

$scan_bind{'QWERTY 4X10 1 3'} = "EPtiKeyQwerty3";

$scan_bind{'QWERTY 4X10 1 4'} = "EPtiKeyQwerty4";

$scan_bind{'QWERTY 4X10 1 5'} = "EPtiKeyQwerty5";

$scan_bind{'QWERTY 4X10 1 6'} = "EPtiKeyQwerty6";

$scan_bind{'QWERTY 4X10 1 7'} = "EPtiKeyQwerty7";

$scan_bind{'QWERTY 4X10 1 8'} = "EPtiKeyQwerty8";

$scan_bind{'QWERTY 4X10 1 9'} = "EPtiKeyQwerty9";

$scan_bind{'QWERTY 4X10 1 10'} = "EPtiKeyQwerty0";

$scan_bind{'QWERTY 4X10 2 1'} = "EPtiKeyQwertyA";

$scan_bind{'QWERTY 4X10 2 2'} = "EPtiKeyQwertyS";

$scan_bind{'QWERTY 4X10 2 3'} = "EPtiKeyQwertyD";

$scan_bind{'QWERTY 4X10 2 4'} = "EPtiKeyQwertyF";

$scan_bind{'QWERTY 4X10 2 5'} = "EPtiKeyQwertyG";

$scan_bind{'QWERTY 4X10 2 6'} = "EPtiKeyQwertyH";

$scan_bind{'QWERTY 4X10 2 7'} = "EPtiKeyQwertyJ";

$scan_bind{'QWERTY 4X10 2 8'} = "EPtiKeyQwertyK";

$scan_bind{'QWERTY 4X10 2 9'} = "EPtiKeyQwertyL";

# No binding for (2 10), it is backspace

$scan_bind{'QWERTY 4X10 3 1'} = "EPtiKeyQwertyZ";

$scan_bind{'QWERTY 4X10 3 2'} = "EPtiKeyQwertyX";

$scan_bind{'QWERTY 4X10 3 3'} = "EPtiKeyQwertyC";

$scan_bind{'QWERTY 4X10 3 4'} = "EPtiKeyQwertyV";

$scan_bind{'QWERTY 4X10 3 5'} = "EPtiKeyQwertyB";

$scan_bind{'QWERTY 4X10 3 6'} = "EPtiKeyQwertyN";

$scan_bind{'QWERTY 4X10 3 7'} = "EPtiKeyQwertyM";

$scan_bind{'QWERTY 4X10 3 8'} = "EPtiKeyQwertyComma";

$scan_bind{'QWERTY 4X10 3 9'} = "EPtiKeyQwertyFullstop";

# No binding for (3 10), it is enter

# No binding for (4 1)

# No binding for (4 2), it is shift

#$scan_bind{'QWERTY 4X10 4 3'} = "EPtiKeyQwertySlash";

$scan_bind{'QWERTY 4X10 4 4'} = "EStdKeySquareBracketRight";

#$scan_bind{'QWERTY 4X10 4 5'} = "EStdKeySpace";

#$scan_bind{'QWERTY 4X10 4 6'} = "EStdKeySpace";

# No binding for (4 5), it is space

# No binding for (4 6), it is space

$scan_bind{'QWERTY 4X10 4 7'} = "EStdKeySquareBracketLeft";

$scan_bind{'QWERTY 4X10 4 8'} = "EStdKeySingleQuote";

# No binding for (4 8), it is ctrl;

# No binding for (4 9), it is shift

# No binding for (4 10), it is chr

###########################################################

#

# Default scan code <-> coordinate bindings for 3x11 qwerty

# (these can be overrided with scan_binding keyword).

#

###########################################################

$scan_bind{'QWERTY 3X11 1 1'} = "EPtiKeyQwertyQ";

$scan_bind{'QWERTY 3X11 1 2'} = "EPtiKeyQwertyW";

$scan_bind{'QWERTY 3X11 1 3'} = "EPtiKeyQwertyE";

$scan_bind{'QWERTY 3X11 1 4'} = "EPtiKeyQwertyR";

$scan_bind{'QWERTY 3X11 1 5'} = "EPtiKeyQwertyT";

$scan_bind{'QWERTY 3X11 1 6'} = "EPtiKeyQwertyY";

$scan_bind{'QWERTY 3X11 1 7'} = "EPtiKeyQwertyU";

$scan_bind{'QWERTY 3X11 1 8'} = "EPtiKeyQwertyI";

$scan_bind{'QWERTY 3X11 1 9'} = "EPtiKeyQwertyO";

$scan_bind{'QWERTY 3X11 1 10'} = "EPtiKeyQwertyP";

# no binding for (3 11), it is backspace

$scan_bind{'QWERTY 3X11 2 1'} = "EPtiKeyQwertyA";

$scan_bind{'QWERTY 3X11 2 2'} = "EPtiKeyQwertyS";

$scan_bind{'QWERTY 3X11 2 3'} = "EPtiKeyQwertyD";

$scan_bind{'QWERTY 3X11 2 4'} = "EPtiKeyQwertyF";

$scan_bind{'QWERTY 3X11 2 5'} = "EPtiKeyQwertyG";

$scan_bind{'QWERTY 3X11 2 6'} = "EPtiKeyQwertyH";

$scan_bind{'QWERTY 3X11 2 7'} = "EPtiKeyQwertyJ";

$scan_bind{'QWERTY 3X11 2 8'} = "EPtiKeyQwertyK";

$scan_bind{'QWERTY 3X11 2 9'} = "EPtiKeyQwertyL";

$scan_bind{'QWERTY 3X11 2 10'} = "EPtiKeyQwertyComma";

# No binding for (2 11), it is enter

# No binding for (3 1), it is shift

$scan_bind{'QWERTY 3X11 3 2'} = "EPtiKeyQwertyZ";

$scan_bind{'QWERTY 3X11 3 3'} = "EPtiKeyQwertyX";

$scan_bind{'QWERTY 3X11 3 4'} = "EPtiKeyQwertyC";

$scan_bind{'QWERTY 3X11 3 5'} = "EPtiKeyQwertyV";

$scan_bind{'QWERTY 3X11 3 6'} = "EPtiKeyQwertyB";

$scan_bind{'QWERTY 3X11 3 7'} = "EPtiKeyQwertyN";

$scan_bind{'QWERTY 3X11 3 8'} = "EPtiKeyQwertyM";

$scan_bind{'QWERTY 3X11 3 9'} = "EStdKeySpace";

# No binding for (3 10), it is space

# No binding for (3 11), it is fn

###########################################################

#

# Default scan code <-> coordinate bindings for half qwerty

# (these can be overrided with scan_binding keyword). 

#

###########################################################

# TO BE DEFINED (these are working asumptions).

$scan_bind{'QWERTY HALF 1 1'} = "EPtiKeyQwertyQ"; 

$scan_bind{'QWERTY HALF 1 2'} = "EPtiKeyQwerty1";

$scan_bind{'QWERTY HALF 1 3'} = "EPtiKeyQwerty2";

$scan_bind{'QWERTY HALF 1 4'} = "EPtiKeyQwerty3";

$scan_bind{'QWERTY HALF 1 5'} = "EPtiKeyQwertyO";

$scan_bind{'QWERTY HALF 2 1'} = "EPtiKeyQwertyA";

$scan_bind{'QWERTY HALF 2 2'} = "EPtiKeyQwerty4";

$scan_bind{'QWERTY HALF 2 3'} = "EPtiKeyQwerty5";

$scan_bind{'QWERTY HALF 2 4'} = "EPtiKeyQwerty6";

$scan_bind{'QWERTY HALF 2 5'} = "EPtiKeyQwertyL";

$scan_bind{'QWERTY HALF 3 1'} = "EPtiKeyQwertyZ";

$scan_bind{'QWERTY HALF 3 2'} = "EPtiKeyQwerty7";

$scan_bind{'QWERTY HALF 3 3'} = "EPtiKeyQwerty8";

$scan_bind{'QWERTY HALF 3 4'} = "EPtiKeyQwerty9";

$scan_bind{'QWERTY HALF 3 5'} = "EPtiKeyQwertyFullstop";

# No binding

$scan_bind{'QWERTY HALF 4 2'} = "EPtiKeyQwertyChr";

$scan_bind{'QWERTY HALF 4 3'} = "EPtiKeyQwertySpace";

$scan_bind{'QWERTY HALF 4 4'} = "EPtiKeyQwertyLeftShift";

# No binding, it is enter

#

# Global variables.

#

$inputpath = shift(@ARGV);

$filename  = shift(@ARGV);

$langname = shift(@ARGV);

$variant_name = shift(@ARGV);

$blocks_in_use = shift(@ARGV);

$inputfile = $inputpath . $filename; 

$langconstant = "ELang${langname}";

if ($langname eq "Galician")

    {

    $langconstant = "KLangGalician";	

    }

if ($langname eq "Basque")

    {

    $langconstant = "KLangBasque";	

    }

$output_dll = "PtiKeymappings_";

$outputdir = "..\/languages\/";

$mmpext = ".mmp";

$dlluid = $langdll{$langname};

$impluid = $langimpl{$langname};

$mtindex = 0;

$print_not_latin_language = 0;

$has_numeric_mode_data = 0;

$for_zhuyin_tag_value = "0x2462";

$for_pinyin_tag_value = "0x2460";

$for_stroke_tag_value = "0x2461";

$for_cangjie_tag_value = "0x2463";

$get_all_marker_value = "0x2464";

$qwerty_num_keys = 48;

#############################################################

#

# Subrountine for counting characters in data row

#

#############################################################

sub countchars {

     ($instr)=@_; 

     @details=split /,/, $instr;	

     $numchars = $#details + 1;

   }

##############################################################   

#

# Subroutine for converting qwerty key cordinates into 

# EPtiKey constants.

#   

##############################################################

sub convert_coordinates

    {

	$converted_coordinates = $scan_bind{$_[0]};	

    }  

##############################################################

#

# Subroutine print_data_block for exporting a data block.

# Parameters: boardname constant

#             number of rows in keyboard matrix 

#             number of collumns in keyboard matrix

#             data block name

#

##############################################################

sub print_data_block

    {

    my $boardname = shift;

    my $rows = shift;

    my $cols = shift;

    my $blockname = shift;

    print(OUTFILE "//\n");	

    print(OUTFILE "// $boardname keymap data table\n");	

    print(OUTFILE "//\n");		

    print(OUTFILE "const TUint16 ${boardname}Data_table_${langname}[] =\n");

    print(OUTFILE "    {\n");

    $mtindex = 0;

    for ($i = 1; $i <= $rows; $i++)

       {            

       for ($j = 1; $j <= $cols; $j++)

           { 

           $keyname = "$blockname $i $j";                 

           &countchars($keys{$keyname});

           $bindnumchrs{$keyname} = $numchars;

           $bindindex{$keyname} = $mtindex;

           $mtindex = $mtindex + $bindnumchrs{$keyname};

           if ($numchars > 0)

               {	              

               print(OUTFILE "    $keys{$keyname},\n");	

               }

           }

       }  

    for ($i=1; $i <= $rows; $i++)

        {

        for ($j = 1; $j <= $cols; $j++)

            {

            $keyname = "$blockname $i $j";                       

            &countchars($keys_u{$keyname});

            $bindnumchrs_u{$keyname} = $numchars;

            $bindindex_u{$keyname} = $mtindex;

            $mtindex = $mtindex + $bindnumchrs_u{$keyname};

            if ($numchars > 0)

                {            

                print(OUTFILE "    $keys_u{$keyname},\n");	

                }

            }

        }

	if ($has_chr_keys{$blockname} == 1)

        {    

        for ($i = 1; $i <= $rows; $i++)

            {

            for ($j = 1; $j <= $cols; $j++)

                {

                $keyname = "$blockname $i $j";

                &countchars($keys_chr{$keyname});

                $chr_bindnumchrs{$keyname} = $numchars;

                $chr_bindindex{$keyname} = $mtindex;

                $mtindex = $mtindex + $chr_bindnumchrs{$keyname};

                if ($numchars > 0)

                    {	

                    print(OUTFILE "    $keys_chr{$keyname},\n");	

                    }

                }

            }

        for ($i = 1; $i <= $rows; $i++)

            {

            for ($j = 1; $j <= $cols; $j++)

                {            

                $keyname = "$blockname $i $j"; 

                &countchars($keys_chr_u{$keyname});

                $chr_bindnumchrs_u{$keyname} = $numchars;

                $chr_bindindex_u{$keyname} = $mtindex;

                $mtindex = $mtindex + $chr_bindnumchrs_u{$keyname};

                if ($numchars > 0)

                    {

                    print(OUTFILE "    $keys_chr_u{$keyname},\n");	

                    }    

                }            

            }                            

        }  

    if ($has_fn_keys{$blockname} == 1)

        {    

        for ($i = 1; $i <= $rows; $i++)

            {

            for ($j = 1; $j <= $cols; $j++)

                {

                $keyname = "$blockname $i $j";

                &countchars($keys_fn{$keyname});

                $fn_bindnumchrs{$keyname} = $numchars;

                $fn_bindindex{$keyname} = $mtindex;

                $mtindex = $mtindex + $fn_bindnumchrs{$keyname};

                if ($numchars > 0)

                    {	

                    print(OUTFILE "    $keys_fn{$keyname},\n");	

                    }

                }

            }

        for ($i = 1; $i <= $rows; $i++)

            {

            for ($j = 1; $j <= $cols; $j++)

                {            

                $keyname = "$blockname $i $j"; 

                &countchars($keys_fn_u{$keyname});

                $fn_bindnumchrs_u{$keyname} = $numchars;

                $fn_bindindex_u{$keyname} = $mtindex;

                $mtindex = $mtindex + $fn_bindnumchrs_u{$keyname};

                if ($numchars > 0)

                    {

                    print(OUTFILE "    $keys_fn_u{$keyname},\n");	

                    }    

                }            

            }                            

        }

    print(OUTFILE "    };\n");    

    print(OUTFILE "\n");

    print(OUTFILE "const TInt K${boardname}DataSize_${langname} = $mtindex;\n");  

    print(OUTFILE "\n");

    my $keybindingsize = 0;

    print(OUTFILE "\n");

    print(OUTFILE "const TPtiKeyBinding ${boardname}KeyBindings_table_${langname}[] =\n");

    print(OUTFILE "    {\n");     

    for ($i = 1; $i <= $rows; $i++)

       {

       for ($j = 1; $j <= $cols; $j++)

           {           

           $keyname = "$blockname $i $j";                

           $scanbindname = $scan_bind{$keyname};

           if (length($scanbindname) > 0)

               {

               print(OUTFILE "        {$scanbindname, EPtiCaseLower, $bindindex{$keyname}, $bindnumchrs{$keyname}},\n");                

               $keybindingsize++;

               }

           }

       }

    for ($i = 1; $i <= $rows; $i++)

        {

        for ($j = 1; $j <= $cols; $j++)

            {

            $keyname = "$blockname $i $j";  

            $scanbindname = $scan_bind{$keyname};                          

            if (length($scanbindname) > 0)

               {            

               print(OUTFILE "        {$scanbindname, EPtiCaseUpper, $bindindex_u{$keyname}, $bindnumchrs_u{$keyname}},\n");

               $keybindingsize++;

               }

            }

        }

    if ($has_chr_keys{$blockname} == 1)

           {      

           for ($i = 1; $i <= $rows; $i++)

               {

               for ($j = 1; $j <= $cols; $j++)

                   {

                   $keyname = "$blockname $i $j";  

                   $scanbindname = $scan_bind{$keyname}; 

                   if (length($scanbindname) > 0 && $chr_bindnumchrs{$keyname} > 0)

                       {                                                   

                       print(OUTFILE "        {$scanbindname, EPtiCaseChrLower, $chr_bindindex{$keyname}, $chr_bindnumchrs{$keyname}},\n"); 

                       $keybindingsize++;

                       }

                   }

               }           

           for ($i = 1; $i <= $rows; $i++)

               {

               for ($j = 1; $j <= $cols; $j++)

                   {

                   $keyname = "$blockname $i $j";                

                   $scanbindname = $scan_bind{$keyname};               

                   if (length($scanbindname) > 0 && $chr_bindnumchrs_u{$keyname} > 0)

                       {    

                       print(OUTFILE "        {$scanbindname, EPtiCaseChrUpper, $chr_bindindex_u{$keyname}, $chr_bindnumchrs_u{$keyname}},\n"); 

                       $keybindingsize++;

                       }

                   }

               }                                                  

           }                    

    if ($has_fn_keys{$blockname} == 1)

           {      

           for ($i = 1; $i <= $rows; $i++)

               {

               for ($j = 1; $j <= $cols; $j++)

                   {

                   $keyname = "$blockname $i $j";  

                   $scanbindname = $scan_bind{$keyname}; 

                   if (length($scanbindname) > 0 && $fn_bindnumchrs{$keyname} > 0)

                       {                                                   

                       print(OUTFILE "        {$scanbindname, EPtiCaseFnLower, $fn_bindindex{$keyname}, $fn_bindnumchrs{$keyname}},\n"); 

                       $keybindingsize++;

                       }

                   }

               }           

           for ($i = 1; $i <= $rows; $i++)

               {

               for ($j = 1; $j <= $cols; $j++)

                   {

                   $keyname = "$blockname $i $j";                

                   $scanbindname = $scan_bind{$keyname};               

                   if (length($scanbindname) > 0 && $fn_bindnumchrs_u{$keyname} > 0)

                       {    

                       print(OUTFILE "        {$scanbindname, EPtiCaseFnUpper, $fn_bindindex_u{$keyname}, $fn_bindnumchrs_u{$keyname}},\n"); 

                       $keybindingsize++;

                       }

                   }

               }