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

my $KAknsConstants_h =   "\\epoc32\\include\\middleware\\AknsConstants.h";
my $KAknsConstants_hrh = "\\epoc32\\include\\middleware\\AknsConstants.hrh";

if ($#ARGV != 2)
    {
    die "usage: MIFList-file build-path out-file\n";
    }

my @mifList = ReadMifList($ARGV[0]);
my $path = $ARGV[1];
open (OUTFILE, ">$ARGV[2]") || die "Couldn't open $ARGV[2] for output\n";
print OUTFILE "Icon ID,file name,SVG name,Skin ID major,Skin ID minor\n";

(my $mifName,my $mifPath) = SplitPath($ARGV[0]);

my %skins = ReadAknsConstants_h($path.$KAknsConstants_h);
my %skinIDVals = ReadAknsConstants_hrh($path.$KAknsConstants_hrh);

for my $k (0 .. $#mifList)
    {
    (my $name,my $path) = SplitPath($mifList[$k]);
    my $iconId = 2* $k + 16384;
    $name =~ s/_//g;
    if ($name =~ m/(\S+)\.(\S+)/) #remove extension
        {
        $name =$1;
        }
    #print "$k,$name,$path\n";
    if (exists $skins{$name})
        {
        my $major = $skins{$name}[0];
        my $minor = $skins{$name}[1];
        my $majorVal = -1;
        if (exists $skinIDVals{$major})
            {
            $majorVal = $skinIDVals{$major};
            }
        else
            {
            print "not found major $major\n";
            }
        my $minorVal = -1;
        if (exists $skinIDVals{$minor})
            {
            $minorVal = $skinIDVals{$minor};
            }
        else
            {
            print "not found minor $minor\n";
            }
        printf(OUTFILE "%d,%s,%s,0x%x,0x%x\n",$iconId,$mifName,$mifList[$k],$majorVal,$minorVal);
        #print "found,$majorVal,$minorVal\n";
        }
    else
        {
        #print "not found $name\n";
        }
    }

my $incPath = $path . "\\epoc32\\include";
opendir DIR,$incPath;
my @files = readdir DIR;
foreach my $f (@files)
    {
    if ($f =~ /(\S+)\.mbg\z/i)
        {
        my $fName = lc(embm . $1);
        my %list = ReadMbg($incPath . "\\" . $f);
        foreach my $k (keys %list)
            {
            my $svgName = lc($k);
            my $iconId = $list{$k};
            my $ind = index($svgName,$fName);
            if ($ind >= 0)
                {
                $ind += length($fName);
                my $svg = substr($svgName,$ind);
                $svg =~ s/_//g;
                if (exists $skins{$svg})
                    {
                    my $major = $skins{$svg}[0];
                    my $minor = $skins{$svg}[1];
                    my $majorVal = -1;
                    if (exists $skinIDVals{$major})
                        {
                        $majorVal = $skinIDVals{$major};
                        }
                    else
                        {
                        print "not found major $major\n";
                        }
                    my $minorVal = -1;
                    if (exists $skinIDVals{$minor})
                        {
                        $minorVal = $skinIDVals{$minor};
                        }
                    else
                        {
                        print "not found minor $minor\n";
                        }
                    printf(OUTFILE "%d,%s,%s,0x%x,0x%x\n",$iconId,$f,$k,$majorVal,$minorVal);
                    #print "found,$majorVal,$minorVal\n";
                    }
                else
                    {
                    #print "not found $svg\n";
                    }
                }
            else
                {
                print "not found,$svgName,$fName\n";
                }
            }
        }
    }
close DIR;

    
close OUTFILE;

exit(0);

sub ReadMifList
    {
    my $file = shift;
    my @mifList;
    open (INFILE, "<$file") || die "Couldn't open $file for input\n";
    while (my $line=<INFILE>)
        {
        #if ($line =~ m/\S+\s+(\S+)(\.svg)/)
        if ($line =~ m/\S+\s+(\S+)/)
            {
            push(@mifList,$1);
            }
        #else
        #    {
        #    print "$line\n";
        #    }
        }
    close INFILE;
    return @mifList;
    }
    
sub ReadMbg
    {
    my $file = shift;
    my %mifList;
    open (INFILE, "<$file") || die "Couldn't open $file for input\n";
    while (my $line=<INFILE>)
        {
        if ($line =~ m/(\S+)\s*=\s*(\d+),/)
            {
            $mifList{$1}=$2;
            }
        #else
        #    {
        #    print "$line\n";
        #    }
        }
    close INFILE;
    return %mifList;
    }
    
sub ReadAknsConstants_h
    {
    my $file = shift;
    my %list;
    my $state = 0;
    my $name;
    open (INFILE, "<$file") || die "Couldn't open $file for input\n";
    while (my $line=<INFILE>)
        {
        if ($line =~ m/TAknsItemID\s+KAknsIID(\S+)\s*=/)
            {
            $state = 1;
            $name = lc($1);
            }
        else
            {
            if ($state == 1)
                {
                if ($line =~ m/\{\s*(\S+)\s*,\s*(\S+)\s*\}/)
                    {
                    $list{$name}[0] = $1;
                    $list{$name}[1] = $2;
                    }
                $state = 0;
                }
            }
        }
    close INFILE;
    return %list;
    }
    
sub ReadAknsConstants_hrh
    {
    my $file = shift;
    my %list;
    my $state = 0;
    my $name;
    open (INFILE, "<$file") || die "Couldn't open $file for input\n";
    while (my $line=<INFILE>)
        {
        if ($line =~ m/\s*(\S+)\s*=\s*(\S+)(,|\s+)/)
            {
            my $n = $1;
            my $val = hex($2);
            $list{$n} = $val;
            #print "$n,$val\n";
            }
        }
    close INFILE;
    return %list;
    }

# take a full path name as input, return name and path
sub SplitPath {
    if ($_[0] =~ m/\\((\w|[.]|[-])+)(\z)/)
        {
        return $1,$`;
        }
    else
        {
        return $_[0];
        }
    }