#
# 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 the License "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:
#
#! perl

# This script builds ROMs which are specified in a supplied XML file
# To use this script \epoc32\tools\buildrom must be installed on the drive
# with \epoc32\tools in the path

# Note: The TargetBoard attribute is no longer used but is still needed because of the structure of this script!

use strict;
use XML::Simple;
use Getopt::Long;
use Cwd;
use Cwd 'abs_path';
use File::Copy;
use File::Path;

# Get command line arguments
my ($romspec, $boards, $roms, $logdir, $buildnum, $publish, $help, $version) = ProcessCommandLine();

Usage() if ($help);
Version() if ($version);

die "Romspec xml file must be specified using the -romspec option\n" if (!$romspec);

# Construct arrays of boards and roms if they were specified
my @boards = split /,/, $boards if ($boards);
my @roms = split /,/, $roms if ($roms);

# Use the XML::Simple module to parse the romspec and pass the result
# into the $Roms hash reference
my $xml = new XML::Simple;
my $Roms = $xml->XMLin($romspec);

my $RomList = %$Roms->{'Rom'};

my $RomBuildStage = 1;

foreach my $rom (sort keys %$RomList)
{
    my $board = $RomList->{$rom}->{'TargetBoard'};
    if( (@boards == 0 and @roms == 0) or grep $rom, @roms or grep $board, @boards)
    {
        BuildRom($RomBuildStage, $RomList, $rom, $logdir, $buildnum ,$publish);
        $RomBuildStage++;
    }
}

#####################################################
#### Run buildrom on the specified ROM using ########
#### info from the romspec.xml               ########
#####################################################
sub BuildRom
{
    my $Stage = shift;  # BuildRom stage
    my $RomList = shift;  # Hash of the romspec.xml
    my $rom = shift;   # Rom to be built
    my $logdir = shift;  # logs directory
    my $buildnum = shift;  # build number
    my $publish = shift;   # Publish Location
    my $type = $ENV{Type}; # type of Build Master or Release
    my $builddir = $ENV{BuildDir}; # Build Directory
    my $Epocroot = $ENV{EPOCROOT}; # EpocRoot;
    my $InFileList="";  # i.e. Platsec, Techview, obyfiles
    my $XmlFileList="";
    my $MacroList="";   # for the buildrom -D option
    my $TargetBoard = $RomList->{$rom}->{'TargetBoard'};
    my $ImageFile = " -o".$RomList->{$rom}->{'ImageFile'}->{'name'}; # for the buildrom -o option
 
    # Construct the list of InFiles to pass to buildrom
    my $InFiles = %$RomList->{$rom}->{'InFile'};
    foreach my $infile (sort keys %$InFiles)
    {
        if ($infile eq "name")
        {
            $InFileList = " ".$InFiles->{'name'} unless (lc($InFiles->{'name'}) eq lc($TargetBoard));
        }
        else
        {
            $InFileList .= " ".$infile unless(lc($infile) eq lc($TargetBoard));
        }
    }
    my $RomXmlFlag='-f';
    my $XmlFiles = %$RomList->{$rom}->{'XMLFile'};
    foreach my $XmlFlags (keys %$XmlFiles)
    {
        if ($XmlFlags eq "flag")
        {
          $RomXmlFlag= $XmlFiles->{'flag'};
        }
    }
    foreach my $XmlFile (keys %$XmlFiles)
    {
        if ($XmlFile eq "name")
        {
            $XmlFileList = "$RomXmlFlag"."$Epocroot"."epoc32\\rom\\include\\".$XmlFiles->{'name'};
        }
        else
        {
            $XmlFileList .= "$RomXmlFlag"."$Epocroot"."epoc32\\rom\\include\\".$XmlFile unless(lc($XmlFile) eq lc($TargetBoard));
        }
    }
    
    # Get the ROM macro if one is defined
    if ( defined $RomList->{$rom}->{'Macro'} )
    {
        if (defined $RomList->{$rom}->{'Macro'}->{'name'} )
        {
            if ( $RomList->{$rom}->{'Macro'}->{'value'} ne "" )
            {
                $MacroList = " -D".$RomList->{$rom}->{'Macro'}->{'name'}."=".$RomList->{$rom}->{'Macro'}->{'value'};
            }
            else
            {
                $MacroList = " -D".$RomList->{$rom}->{'Macro'}->{'name'};
            }
        }
        else
        {
            my $Macros = %$RomList->{$rom}->{'Macro'};
            foreach my $macro (keys %$Macros)
            {
                if ( $Macros->{$macro}->{'value'} ne "" )
                {
                    $MacroList .= " -D".$macro."=".$Macros->{$macro}->{'value'};
                }
                else
                {
                    $MacroList .= " -D".$macro;
                }
            }
        }
    }
    
    # Call buildrom
        my $buildrom_command = "buildrom $InFileList $MacroList $XmlFileList $ImageFile 2>&1";
        my $gHiResTimer = 0;
        if (eval "require Time::HiRes;")
        {
            $gHiResTimer = 1;
        }
        else
        {
            print "Cannot load HiResTimer Module\n";
        }
        open TVROMLOG, ">> $logdir\\techviewroms$buildnum.log";
        print TVROMLOG "===------------------------------------------------\n";
        print TVROMLOG "-- Stage=$Stage\n";
        print TVROMLOG "===----------------------------------------------\n";
        print TVROMLOG "-- Stage=$Stage started ".localtime()."\n";
        print TVROMLOG "=== Stage=$Stage == Build $rom\n";
        print TVROMLOG "-- Stage=$Stage == $TargetBoard $InFileList\n";
        print TVROMLOG "-- $buildrom_command\n";
        print TVROMLOG "-- MetaromBuild Executed ID $Stage $buildrom_command \n";
        print TVROMLOG "++ Started at ".localtime()."\n";
        if ($gHiResTimer == 1)
        {
            print TVROMLOG "+++ HiRes Start ".Time::HiRes::time()."\n";
        }
        else
        {
            # Add the HiRes timer unavailable statement
            print TVROMLOG "+++ HiRes Time Unavailable\n";
        }
        my $command_output = `$buildrom_command`;
        print TVROMLOG $command_output;
        if ($?)
        {
            print TVROMLOG "ERROR: $buildrom_command returned an error code $?\n";
        }
        if (($command_output =~m/\d\sFile/g) and ($command_output!~/Failed/ig) and ($command_output!~/Unsucessful/ig))
        {
            print TVROMLOG "Rom Built Sucessfully\n";
        }
        else
        {
            print TVROMLOG "ERROR: $buildrom_command failed .Please check log techviewroms$buildnum.log for details\n";
        }
        if ($gHiResTimer == 1)
        {
            print TVROMLOG "+++ HiRes End ".Time::HiRes::time()."\n";
        }
        else
        {
            # Add the HiRes timer unavailable statement
            print TVROMLOG "+++ HiRes Time Unavailable\n";
        }
        print TVROMLOG "++ Finished at ".localtime()."\n";
        print TVROMLOG "=== Stage=$Stage finished ".localtime()."\n";
        close TVROMLOG;
        
        # Publishing of Logs and Roms#####################
        my $ImageFileXML = $ImageFile ;
        $ImageFileXML =~s/^\s-o//i;
        $ImageFileXML =~/(.*\d.techview)/;
        my $ImageFileXMLresult = $1;
        my $cwdir = abs_path ( $ENV { 'PWD' } );
        $cwdir =~s/\//\\/g;
        $rom =~ /(\w+).*/;
        my $data = $1;
        if(($publish ne ""))
        {
            if($rom =~ /(\w+).*/)
            {   
                my $data = $1;
                if(not -d "$publish\\$1")
                    {
                        mkpath "$publish\\$1" || die "ERROR: Cannot create $publish\\$1"; # If folder doesnt exist create it 
                    }
                    opendir(DIR, $cwdir) || die "can't opendir $cwdir: $!";
                    my @file_array =readdir(DIR);
                foreach ($ImageFileXMLresult)
                {
                    foreach my $ImageFileConcat (@file_array)
                    {
                        $ImageFileConcat =~/(.*\d.techview)/;
                        my  $Image = $1;
                        
                        if ($ImageFileXMLresult eq $Image)
                        {
                            copy ("$cwdir\\$ImageFileConcat" , "$publish\\$data\\");# or die "Cannot copy file:$!";
                        }                   
                    }
                    closedir DIR;
                }   
            }
        }
        else
        {
            print"Publish Option not used \n";
        }
}

########################################
##### Process the command line #########
########################################
sub ProcessCommandLine
{
    my ($romspec, $boards, $roms, $publish, $help, $version);

    GetOptions('romspec=s' => \$romspec,
               'roms=s' => \$roms,
               'boards=s' => \$boards,
               'logdir=s' => \$logdir,
               'buildnum=s' => \$buildnum,
               'publish=s' => \$publish,
               'help' => \$help,
               'version' => \$version)|| die Usage();
    
    return ($romspec, $boards, $roms, $logdir, $buildnum, $publish, $help, $version);
}


sub Usage
{
    print <<USAGE_EOF;

Usage
-----
perl metarombuild.pl -romspec <romspec xml file> [options]

 When no options are specified, all ROMs specified in the romspec wil be built.
 
 Options:
    -logdir <path to logs directory>
    -buildnum <build number>
    -publish <location of path where rom logs will be published >
    -help
    -version

USAGE_EOF
exit 0;
}

sub Version
{
    print <<VERSION_EOF;

metarombuild.pl v1.0
Copyright (c) 2005-2009 Nokia Corporation. All rights reserved.
    
VERSION_EOF
exit 0;
}