#

# 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","?","/"); 

@ scan_bind = ();

#

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

                       }

                   }

               }                                                  

           }

    print(OUTFILE "    };\n");    

    print(OUTFILE "\n");

    print(OUTFILE "const TInt KMax${boardname}Index_${langname} = ${keybindingsize};\n");      

    print(OUTFILE "\n");   

    #

    # Add data table for dead keys

    #

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

	    {

        print(OUTFILE "\n");

        print(OUTFILE "//\n");	

        print(OUTFILE "// Dead key data table for ${boardname}\n");	

        print(OUTFILE "//\n");		

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

        print(OUTFILE "    {\n");

        $dead_key_table_rows = 0;

        $dead_index = 0;

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

            {

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

                {

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

           			&countchars($keys{$keyname});

                if ( $numchars > 0 )

                		{

                		&countchars($deadkeys{$keyname});

                		if ($numchars > 0)

                    		{   

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

                			$dead_key_table_rows++;

                    		}

                		$dead_index++;

                    }

                }

            }

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

           {

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

               {

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

               &countchars($keys{$keyname});

							 if ( $numchars > 0 )

                		{

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

               			&countchars($deadkeys_u{$keyname});

               			if ($numchars > 0)

                   			{

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

	               			$dead_key_table_rows++;

                   			}

                     	$dead_index++;

               			}

               }

           }

    print(OUTFILE "    };\n");

    print(OUTFILE "\n");	

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

    print(OUTFILE "\n");	

	}       

    #	

    # Add data table for numeric mode keys

    #	

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

	    {	

        print(OUTFILE "\n//\n");	

        print(OUTFILE "// Numeric key data table for ${boardname}\n");	

        print(OUTFILE "//\n");		

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

        print(OUTFILE "	{\n");

        $countnumericentries = 0;

        for ($aaa = 0; $aaa < $numkeyscount; $aaa++)

	        {	

	        $keystr = "$blockname $numkeynames[$aaa]";

            if (index ($numeric_mode_key{$keystr}, "(") >= 0)

		        {			

		        print(OUTFILE "	{");

		        $leftind = index($numeric_mode_key{$keystr}, "(");

    	        $rightind = index($numeric_mode_key{$keystr}, ")");

    	        $keyname = substr($numeric_mode_key{$keystr}, $leftind + 1, $rightind - $leftind - 1); 			

		        &convert_coordinates("$blockname $keyname");

		        if (index($converted_coordinates, "EPti") >= 0)

			        {

			        print(OUTFILE "\'$numkeynames[$aaa]\',");

			        print(OUTFILE "$converted_coordinates,");

  		            if (index($numeric_mode_key{$keystr}, "fn_upper") >= 0)

				        {

				        print(OUTFILE "EPtiCaseFnUpper");							

				        }

  		            elsif (index($numeric_mode_key{$keystr}, "fn_lower") >= 0)

				        {

				        print(OUTFILE "EPtiCaseFnLower");							

				        }            				        

			        elsif (index($numeric_mode_key{$keystr}, "upper") >= 0)

				        {

				        print(OUTFILE "EPtiCaseUpper");							

				        }

			        elsif (index($numeric_mode_key{$keystr}, "chr_lower") >= 0)

				        {

				        print(OUTFILE "EPtiCaseChrLower");							

				        }				        				        

			        elsif (index($numeric_mode_key{$keystr}, "chr_upper") >= 0)

				        {

				        print(OUTFILE "EPtiCaseChrUpper");							

				        }				        				        				        

			        else

				        {

				        print(OUTFILE "EPtiCaseLower");											

				        }							

			        }

		        else

			        {

			        die ("ERROR: Invalid numeric key coordinates for $langname\n");

			        }	

		        print(OUTFILE "},\n");

		        $countnumericentries++;	

		        }

		    }

        print(OUTFILE "	};\n");	

        print(OUTFILE "\nconst TInt KNum${boardname}NumericKeysEntries_${langname} = $countnumericentries;\n");				    	

	    }	   

    #	

    # Add data table for vietnamese vowel sequences

    #		

    if (index($langname, "Vietnamese") >= 0 && ( $blockname eq "QWERTY STANDARD" || $blockname eq "QWERTY 4X10" || $blockname eq "QWERTY 3X11") )

	    {

        print(OUTFILE "\n");	

        # Vietnamese vowel sequence data is currently statically defined here. 

        # Parser section for it can be implemented later if needed.

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

        print(OUTFILE "	{\n");

		print(OUTFILE "	{TPtiKey(0x0041), TPtiKey(0x01AF), {0x0103, 0x0102}},\n");

        print(OUTFILE "	{TPtiKey(0x0041), TPtiKey(0x0041), {0x00e2, 0x00c2}},\n");

        print(OUTFILE "	{TPtiKey(0x0045), TPtiKey(0x0045), {0x00ea, 0x00ca}},\n");

        print(OUTFILE "	{TPtiKey(0x004F), TPtiKey(0x01AF), {0x01a1, 0x01a0}},\n");

        print(OUTFILE "	{TPtiKey(0x004F), TPtiKey(0x004F), {0x00f4, 0x00d4}},\n");

        print(OUTFILE "	{TPtiKey(0x0055), TPtiKey(0x01AF), {0x01b0, 0x01af}},\n");

        print(OUTFILE "	{TPtiKey(0x0044), TPtiKey(0x0044), {0x0111, 0x0110}},\n");

        print(OUTFILE "	{TPtiKey(0x01AF), TPtiKey(0x01AF), {0x0077, 0x0057}}\n");

        print(OUTFILE "	};\n");	

        print(OUTFILE "\nconst TInt KNum${boardname}VowelSeqEntries_${langname} = 8;\n");	

	    }			   	   	    

   }      

#

# print_data_block ends

#

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

#

# Parse file and fill tables.

#

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

# Open cscan binding file if present

if ( ! open(SCANBINDINGFILE,"${inputpath}scan_binding.txt") )

{

	#print("\nINFORMATION: No scan binding file found\n");

}

$line_number = 1;

@master_raw_data=<SCANBINDINGFILE>;

foreach $line (@master_raw_data)

{

	if ((index($line, "#") >= 0))

	{

		# Comment line, just skip

	}

	elsif (index($line, "[KEYBOARD BLOCK") >= 0)

	{

		# New qwerty keyboard data block is starting.

		if (index($line, "QWERTY STANDARD]") >= 0)

		{

			$current_keyboard_data_block = "QWERTY STANDARD";

		}

		elsif (index($line, "12-KEY]") >= 0)

		{

			$current_keyboard_data_block = "12-KEY";

		}

		elsif (index($line, "QWERTY 4X10") >= 0)

		{

			$current_keyboard_data_block = "QWERTY 4X10";

		}

		elsif (index($line, "QWERTY 3X11") >= 0)