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

#

package GenBuild;

use strict;

use Carp;

use IO::File;

# Global Variables

my @components;

my $iIDCount;

my $iStageCount;

my %arm_assplist;

my $savespace="";

my $keepgoing="";

my $build_tools=0;

my $build_cwtools=0;

my $build_winc=0;

my $build_thumb=0;

my $build_armi=0;

my $build_arm4=0;

my $build_arm4t=0;

my $build_armv5=0;

my $build_arm3=0;

my $epoc_only=0;

my $build_winscw=0;

my $build_wins=0;

my $build_bootstrap;

my $basename;

my $iSourceDir;

my $build_UREL=0;

my $build_UDEB=0;

my $build_urel_udeb="";

my $build_test=0;

my ($XMLFileH, $gLogFileH);

my ($gHiResTimer) = 0; #Flag - true (1) if HiRes Timer module available

# Check if HiRes Timer is available

if (eval "require Time::HiRes;") {

  $gHiResTimer = 1;

} else {

  print "Cannot load HiResTimer Module\n";

}

sub Start

{

  my ($iDataSource, $iDataOutput, $iLogFile, $iSourceDir, $iReallyClean, $iClean) = @_;

  # Copied from genbuild.pl

  # Check for EPOCROOT

  # It's not used directly by GENBUILD, but this is a good early stage at which

  # to discover that it hasn't been set...

  my $epocroot = $ENV{EPOCROOT};

  die "ERROR: Must set the EPOCROOT environment variable\n" if (!defined($epocroot));

  $epocroot =~ s-/-\\-go;	# for those working with UNIX shells

  die "ERROR: EPOCROOT must not include a drive letter\n" if ($epocroot =~ /^.:/);

  die "ERROR: EPOCROOT must be an absolute path without a drive letter\n" if ($epocroot !~ /^\\/);

  die "ERROR: EPOCROOT must not be a UNC path\n" if ($epocroot =~ /^\\\\/);

  die "ERROR: EPOCROOT must end with a backslash\n" if ($epocroot !~ /\\$/);

  die "ERROR: EPOCROOT must specify an existing directory\n" if (!-d $epocroot);

  # $iSourceDir must en in a \

  # Add a \ if not present

  if ($iSourceDir !~ /\\$/)

  {

    $iSourceDir .= "\\";

  }

  for(my $j = 0; $j < scalar(@$iDataSource); $j++)

  {

    $GenBuild::basename .= " " if ($j > 0);

    my ($iFile) = @$iDataSource[$j] =~ m#.*([\\\/]|^)(.*?)\..*$#;

    $GenBuild::basename .= @$iDataSource[$j];

  }

  #Set the global iSourceDir

  $GenBuild::iSourceDir = $iSourceDir;

  # Open Log file

  $GenBuild::gLogFileH = IO::File->new("> $iLogFile")

    or croak "Couldn't open $iLogFile for writing: $!\n";

  print $GenBuild::gLogFileH "===-------------------------------------------------\n";

  print $GenBuild::gLogFileH "=== Genxml\n";

  print $GenBuild::gLogFileH "===-------------------------------------------------\n";

  print $GenBuild::gLogFileH "=== Genxml started ".localtime()."\n";

  for(my $j = 0; $j < scalar(@$iDataSource); $j++)

  {

    # Open DataSource

    my ($iFile) = @$iDataSource[$j];

    open FILE, "< $iFile" or die "Can't read $iFile\n";

    print $GenBuild::gLogFileH "=== Genxml == $iFile\n";

    print $GenBuild::gLogFileH "-- Genxml\n";

    # Add the per command start timestamp

    print $GenBuild::gLogFileH "++ Started at ".localtime()."\n";

    # Add the per command start HiRes timestamp if available

    if ($gHiResTimer == 1)

    {

      print $GenBuild::gLogFileH "+++ HiRes Start ".Time::HiRes::time()."\n";

    } else {

      # Add the HiRes timer missing statement

      print $GenBuild::gLogFileH "+++ HiRes Time Unavailable\n";

    }

    # Process the Txt file in the same manner as the old genbuild

    # Note:

    # Additional options 'udeb', 'urel' and 'test' were added in response 

    # to a specific request, but are not otherwise supported by Symbian.

    while (<FILE>)

    {

    s/\s*#.*$//;

    s/^\s*//;

    my $line = lc $_;

    if ($line =~ /^$/)

      {

      next;

      }

    if ($line =~ /<option (\w+)\s*(.*)>/)

      {

      my $option = $1;

      my $optargs= $2;

      if ($option =~ "savespace")

        {

        $GenBuild::savespace = "-savespace";

        next;

        }

      if ($option =~ "keepgoing")

        {

        $GenBuild::keepgoing = "-keepgoing";

        next;

        }

      if ($option =~ "tools")

        {

        $GenBuild::build_tools = 1;

        next;

        }

      if ($option eq "cwtools")

        {

        $GenBuild::build_cwtools = 1;

        next;

        }

      if ($option =~ "winc")

        {

        $GenBuild::build_winc = 1;

        next;

        }

      # Do not build winc, wins or winscw

      if ($option =~ "epoconly")

        {

        $GenBuild::build_winc = 0;

        $GenBuild::epoc_only = 1;

        next;

        }

      if ($option =~ "thumb")

        {

        $GenBuild::build_thumb = 1;

        next;

        }

      # ARMI option

      if ($option =~ "armi")

        {

        $GenBuild::build_armi = 1;

        next;

        }

      # ARM4

      if ($option eq "arm4")

        {

        $GenBuild::build_arm4 = 1;

        next;

        }

      # ARM4T

      if ($option eq "arm4t")

        {

        $GenBuild::build_arm4t = 1;

        next;

        }

      # ARMv5

      if ($option =~ "armv5")

        {

        $GenBuild::build_armv5 = 1;

        next;

        }

      if ($option =~ "arm3")

        {

        $GenBuild::build_arm3 = 1;

        next;

        }

      # Use Visual Studio

      if ($option eq "wins")

        {

        $GenBuild::build_wins = 1;

        next;

        }

      # Use CodeWarrior

      if ($option eq "winscw")

        {

        $GenBuild::build_winscw = 1;

        next;

        }

      if ($option eq "udeb") 

        {

        $GenBuild::build_UDEB = 1;

        next;

        }

      if ($option eq "urel") 

        {

        $GenBuild::build_UREL = 1;

        next;

        }

      if ($option eq "test") 

        {

        $GenBuild::build_test = 1;

        next;

        }

      if ($option =~ "arm_assp")

        {

        $GenBuild::arm_assplist{$optargs} = 1;

        next;

        }

      print "Option $1 not yet implemented\n";

      next;

      }

    if ($line =~ /^([^<]\S+)\s+(\S+)/)

    {

      if (!-e "$GenBuild::iSourceDir$2\\bld.inf")

      {

        print $GenBuild::gLogFileH "MISSING COMPONENT $1: can't find $GenBuild::iSourceDir$2\\bld.inf\n";

        next;

      }

    }

    if ($line =~ /<special bldfiles e32toolp group>/)

    {

      # Handle Special

      $GenBuild::build_bootstrap = 1;

      next;

    }

    push @GenBuild::components, $line;

    }

    close(FILE);

    # Add the per command end HiRes timestamp if available

    print $GenBuild::gLogFileH "+++ HiRes End ".Time::HiRes::time()."\n" if ($gHiResTimer == 1);

    # Add the per command end timestamp

    print $GenBuild::gLogFileH "++ Finished at ".localtime()."\n";

  }

  print $GenBuild::gLogFileH "=== Genxml == Output\n";

  print $GenBuild::gLogFileH "-- Genxml\n";

  # Add the per command start timestamp

  print $GenBuild::gLogFileH "++ Started at ".localtime()."\n";

  # Add the per command start HiRes timestamp if available

  if ($gHiResTimer == 1)

  {

    print $GenBuild::gLogFileH "+++ HiRes Start ".Time::HiRes::time()."\n";

  } else {

    # Add the HiRes timer missing statement

    print $GenBuild::gLogFileH "+++ HiRes Missing\n";

  }

  &PBuildLevels($iDataOutput);

  # Generate additional ReallyClean and Clean XML files if required

  &GenReallyClean($iReallyClean) if (defined $iReallyClean);

  &GenClean($iClean) if (defined $iClean);

  # Close file handles

  close($GenBuild::gLogFileH);

}

# PBuildLevels

#

# Inputs

# $iDataOutput - Filename for normal build xml

#

# Outputs

#

# Description

# This function generates a xml file to run normal buildon all components

sub PBuildLevels

{

  my ($iDataOutput) = @_;

  # Print the XML file

  $GenBuild::XMLFileH = IO::File->new("> $iDataOutput")

    or croak "Couldn't open $iDataOutput for writing: $!\n";

  $GenBuild::iIDCount = 1;

  $GenBuild::iStageCount = 1;

  my ($epocroot) = $ENV{'EPOCROOT'};

  &PrintXMLHeader($GenBuild::XMLFileH);

  if (($GenBuild::build_UREL) && (!$GenBuild::build_UDEB)) 

  {

	$GenBuild::build_urel_udeb = " UREL";

  }

  elsif ((!$GenBuild::build_UREL) && ($GenBuild::build_UDEB)) 

  {

	$GenBuild::build_urel_udeb = " UDEB";

  }

  if ($GenBuild::build_bootstrap)

  {

    # Do the BootStrapping

    # Temporary workaround for non-common code between old setup and Beech

    # Defaults to old setup

    # This will be removed when final functionality is added

    if ($ENV{'Platform'} eq 'beech')

    {

      print $GenBuild::XMLFileH qq{\t\t<Execute ID="$GenBuild::iIDCount" Stage="$GenBuild::iStageCount" Component="BootStrap" Cwd="$GenBuild::iSourceDir}.qq{beech\\generic\\tools\\e32toolp\\group" CommandLine="setupprj.bat"/>\n};

    } elsif ($ENV{'Platform'} eq 'cedar') {

      print $GenBuild::XMLFileH qq{\t\t<Execute ID="$GenBuild::iIDCount" Stage="$GenBuild::iStageCount" Component="BootStrap" Cwd="$GenBuild::iSourceDir}.qq{os\\buildtools\\sbsv1_os\\e32toolp\\group" CommandLine="setupprj.bat"/>\n};

    } else {

      print $GenBuild::XMLFileH qq{\t\t<Execute ID="$GenBuild::iIDCount" Stage="$GenBuild::iStageCount" Component="BootStrap" Cwd="$GenBuild::iSourceDir}.qq{tools\\e32toolp\\group" CommandLine="setupprj.bat"/>\n};

    }

    $GenBuild::iIDCount++;

    $GenBuild::iStageCount++;

    # Temporary workaround for non-common code between old setup and Beech

    # Defaults to old setup

    # This will be removed when final functionality is added

    if ($ENV{'Platform'} eq 'beech')

    {

      print $GenBuild::XMLFileH qq{\t\t<Execute ID="$GenBuild::iIDCount" Stage="$GenBuild::iStageCount" Component="BootStrap" Cwd="$GenBuild::iSourceDir}.qq{beech\\generic\\tools\\e32toolp\\group" CommandLine="bld.bat rel"/>\n};

    } elsif  ($ENV{'Platform'} eq 'cedar') {

      print $GenBuild::XMLFileH qq{\t\t<Execute ID="$GenBuild::iIDCount" Stage="$GenBuild::iStageCount" Component="BootStrap" Cwd="$GenBuild::iSourceDir}.qq{os\\buildtools\\sbsv1_os\\e32toolp\\group" CommandLine="bld.bat rel"/>\n};

    } else {

      print $GenBuild::XMLFileH qq{\t\t<Execute ID="$GenBuild::iIDCount" Stage="$GenBuild::iStageCount" Component="BootStrap" Cwd="$GenBuild::iSourceDir}.qq{tools\\e32toolp\\group" CommandLine="bld.bat rel"/>\n};

    }

    $GenBuild::iIDCount++;

    $GenBuild::iStageCount++;

  }

  &BuildLevels("0", "bldmake bldfiles $GenBuild::keepgoing");

  $GenBuild::iStageCount++;

  &BuildLevels("0", "abld export $GenBuild::keepgoing");

  &BuildLevels("0", "abld test export $GenBuild::keepgoing") if ($GenBuild::build_test);

  $GenBuild::iStageCount++;

  if ($GenBuild::build_tools)

  {

    &BuildLevels("0", "abld makefile $GenBuild::keepgoing $GenBuild::savespace", "tools");

    $GenBuild::iStageCount++;

    &BuildLevels("1", "abld library $GenBuild::keepgoing", "tools");

    &BuildLevels("1", "abld target $GenBuild::keepgoing $GenBuild::savespace", "tools", "rel");

    &BuildLevels("0", "abld -what build", "tools", "rel");

    &BuildLevels("0", "abld -check build", "tools", "rel");

    $GenBuild::iStageCount++;

  }

  if ($GenBuild::build_cwtools)

  {

    &BuildLevels("0", "abld makefile $GenBuild::keepgoing $GenBuild::savespace", "cwtools");

    $GenBuild::iStageCount++;

    &BuildLevels("1", "abld library $GenBuild::keepgoing", "cwtools");

    &BuildLevels("1", "abld target $GenBuild::keepgoing $GenBuild::savespace", "cwtools", "rel");

    &BuildLevels("0", "abld -what build", "cwtools", "rel");

    &BuildLevels("0", "abld -check build", "cwtools", "rel");

    $GenBuild::iStageCount++;

  }

  if ($GenBuild::build_winc)

  {

    &BuildLevels("0", "abld makefile $GenBuild::keepgoing $GenBuild::savespace", "winc");

    $GenBuild::iStageCount++;

    &BuildLevels("1", "abld library $GenBuild::keepgoing", "winc");

    &BuildLevels("1", "abld target $GenBuild::keepgoing $GenBuild::savespace", "winc");

    &BuildLevels("0", "abld -what build", "winc");

    &BuildLevels("0", "abld -check build", "winc");

    $GenBuild::iStageCount++;

  }

  unless ($epoc_only)

  {

    # Emulator things, WINS, up to resources

    if ($GenBuild::build_wins)

    {

      &BuildLevels("0", "abld makefile $GenBuild::keepgoing $GenBuild::savespace", "wins");

	  &BuildLevels("0", "abld test makefile $GenBuild::keepgoing $GenBuild::savespace", "wins") if ($GenBuild::build_test);

      $GenBuild::iStageCount++;

      &BuildLevels("1", "abld resource $GenBuild::keepgoing", "wins$GenBuild::build_urel_udeb");

	  &BuildLevels("1", "abld test resource $GenBuild::keepgoing", "wins$GenBuild::build_urel_udeb") if ($GenBuild::build_test);

      &BuildLevels("1", "abld library $GenBuild::keepgoing", "wins");

	  &BuildLevels("1", "abld test library $GenBuild::keepgoing", "wins") if ($GenBuild::build_test);

    }

    # Emulator things, WINSCW, up to resources

    if ($GenBuild::build_winscw)

    {

      &BuildLevels("0", "abld makefile $GenBuild::keepgoing $GenBuild::savespace", "winscw");

	  &BuildLevels("0", "abld test makefile $GenBuild::keepgoing $GenBuild::savespace", "winscw") if ($GenBuild::build_test);

      $GenBuild::iStageCount++;

      &BuildLevels("1", "abld resource $GenBuild::keepgoing", "winscw$GenBuild::build_urel_udeb");

	  &BuildLevels("1", "abld test resource $GenBuild::keepgoing", "winscw$GenBuild::build_urel_udeb") if ($GenBuild::build_test);

      &BuildLevels("1", "abld library $GenBuild::keepgoing", "winscw");

	  &BuildLevels("1", "abld test library $GenBuild::keepgoing", "winscw") if ($GenBuild::build_test);

    }

  }

  # Arm Stuff

  if ($GenBuild::build_arm4)

  {

    &BuildLevels("0", "abld makefile $GenBuild::keepgoing $GenBuild::savespace", "arm4");

	&BuildLevels("0", "abld test makefile $GenBuild::keepgoing $GenBuild::savespace", "arm4") if ($GenBuild::build_test);

    $GenBuild::iStageCount++;

  }

  if ($GenBuild::build_arm4t)

  {

    &BuildLevels("0", "abld makefile $GenBuild::keepgoing $GenBuild::savespace", "arm4t");

	&BuildLevels("0", "abld test makefile $GenBuild::keepgoing $GenBuild::savespace", "arm4t") if ($GenBuild::build_test);

    $GenBuild::iStageCount++;

  }

  if ($GenBuild::build_armv5)

  {

    &BuildLevels("0", "abld makefile $GenBuild::keepgoing $GenBuild::savespace", "armv5");

	&BuildLevels("0", "abld test makefile $GenBuild::keepgoing $GenBuild::savespace", "arm5") if ($GenBuild::build_test);

    $GenBuild::iStageCount++;

  }

  if ($GenBuild::build_armi)

  {

    &BuildLevels("0", "abld makefile $GenBuild::keepgoing $GenBuild::savespace", "armi");

	&BuildLevels("0", "abld test makefile $GenBuild::keepgoing $GenBuild::savespace", "armi") if ($GenBuild::build_test);

    $GenBuild::iStageCount++;

  }

  if ($GenBuild::build_thumb)

  {

    &BuildLevels("0", "abld makefile $GenBuild::keepgoing $GenBuild::savespace", "thumb");

	&BuildLevels("0", "abld test makefile $GenBuild::keepgoing $GenBuild::savespace", "thumb") if ($GenBuild::build_test);

    $GenBuild::iStageCount++;

  }

  if ($GenBuild::build_arm3)

  {

    &BuildLevels("0", "abld makefile $GenBuild::keepgoing $GenBuild::savespace", "arm3");

	&BuildLevels("0", "abld test makefile $GenBuild::keepgoing $GenBuild::savespace", "arm3") if ($GenBuild::build_test);

    $GenBuild::iStageCount++;

  }

  foreach my $iAssp (sort keys %GenBuild::arm_assplist)

  {

    &BuildLevels("0", "abld makefile $GenBuild::keepgoing $GenBuild::savespace", $iAssp);

	&BuildLevels("0", "abld test makefile $GenBuild::keepgoing $GenBuild::savespace", $iAssp) if ($GenBuild::build_test);

    $GenBuild::iStageCount++;

  }

  &BuildLevels("1", "abld resource $GenBuild::keepgoing", "arm4$GenBuild::build_urel_udeb") if ($GenBuild::build_arm4);

  &BuildLevels("1", "abld test resource $GenBuild::keepgoing", "arm4$GenBuild::build_urel_udeb") if (($GenBuild::build_arm4) && ($GenBuild::build_test));

  &BuildLevels("1", "abld resource $GenBuild::keepgoing", "arm4t$GenBuild::build_urel_udeb") if ($GenBuild::build_arm4t);

  &BuildLevels("1", "abld test resource $GenBuild::keepgoing", "arm4t$GenBuild::build_urel_udeb") if (($GenBuild::build_arm4t) && ($GenBuild::build_test));

  &BuildLevels("1", "abld resource $GenBuild::keepgoing", "armv5$GenBuild::build_urel_udeb") if ($GenBuild::build_armv5);

  &BuildLevels("1", "abld test resource $GenBuild::keepgoing", "armv5$GenBuild::build_urel_udeb") if (($GenBuild::build_armv5) && ($GenBuild::build_test));

  &BuildLevels("1", "abld resource $GenBuild::keepgoing", "armi$GenBuild::build_urel_udeb") if ($GenBuild::build_armi);

  &BuildLevels("1", "abld test resource $GenBuild::keepgoing", "armi$GenBuild::build_urel_udeb") if (($GenBuild::build_armi) && ($GenBuild::build_test));

  &BuildLevels("1", "abld resource $GenBuild::keepgoing", "thumb$GenBuild::build_urel_udeb") if ($GenBuild::build_thumb);

  &BuildLevels("1", "abld test resource $GenBuild::keepgoing", "thumb$GenBuild::build_urel_udeb") if (($GenBuild::build_thumb) && ($GenBuild::build_test));

  &BuildLevels("1", "abld resource $GenBuild::keepgoing", "arm3$GenBuild::build_urel_udeb") if ($GenBuild::build_arm3);

  &BuildLevels("1", "abld test resource $GenBuild::keepgoing", "arm3$GenBuild::build_urel_udeb") if (($GenBuild::build_arm3) && ($GenBuild::build_test));

  foreach my $iAssp (sort keys %GenBuild::arm_assplist)

  {

    &BuildLevels("1", "abld resource $GenBuild::keepgoing", "$iAssp$GenBuild::build_urel_udeb");

	&BuildLevels("1", "abld test resource $GenBuild::keepgoing", "$iAssp$GenBuild::build_urel_udeb") if ($GenBuild::build_test);

  }

  &BuildLevels("1", "abld library $GenBuild::keepgoing", "arm4") if ($GenBuild::build_arm4);

  &BuildLevels("1", "abld test library $GenBuild::keepgoing", "arm4") if (($GenBuild::build_arm4) &&($GenBuild::build_test));

  &BuildLevels("1", "abld library $GenBuild::keepgoing", "arm4t") if ($GenBuild::build_arm4t);

  &BuildLevels("1", "abld test library $GenBuild::keepgoing", "arm4t") if (($GenBuild::build_arm4t) && ($GenBuild::build_test));

  &BuildLevels("1", "abld library $GenBuild::keepgoing", "armv5") if ($GenBuild::build_armv5);

  &BuildLevels("1", "abld test library $GenBuild::keepgoing", "armv5") if (($GenBuild::build_armv5) && ($GenBuild::build_test));

  &BuildLevels("1", "abld library $GenBuild::keepgoing", "armi") if ($GenBuild::build_armi);

  &BuildLevels("1", "abld test library $GenBuild::keepgoing", "armi") if (($GenBuild::build_armi) && ($GenBuild::build_test));

  &BuildLevels("1", "abld library $GenBuild::keepgoing", "thumb") if ($GenBuild::build_thumb);

  &BuildLevels("1", "abld test library $GenBuild::keepgoing", "thumb") if (($GenBuild::build_thumb) && ($GenBuild::build_test));

  &BuildLevels("1", "abld library $GenBuild::keepgoing", "arm3") if ($GenBuild::build_arm3);

  &BuildLevels("1", "abld test library $GenBuild::keepgoing", "arm3") if (($GenBuild::build_arm3) && ($GenBuild::build_test));

  foreach my $iAssp (sort keys %GenBuild::arm_assplist)

  {

    &BuildLevels("1", "abld library $GenBuild::keepgoing", $iAssp);

	&BuildLevels("1", "abld test library $GenBuild::keepgoing", $iAssp) if ($GenBuild::build_test);

  }

  # Build all targets

  my @iTargets;

  # Push the defaults on

  push @iTargets, "wins$GenBuild::build_urel_udeb" if (($GenBuild::build_wins) && (!$GenBuild::epoc_only));

  push @iTargets, "arm4$GenBuild::build_urel_udeb" if ($GenBuild::build_arm4);

  push @iTargets, "arm4t$GenBuild::build_urel_udeb" if ($GenBuild::build_arm4t);

  push @iTargets, "armv5$GenBuild::build_urel_udeb"  if ($GenBuild::build_armv5);

  push @iTargets, "armi$GenBuild::build_urel_udeb" if ($GenBuild::build_armi);

  push @iTargets, "winscw$GenBuild::build_urel_udeb" if (($GenBuild::build_winscw) && (!$GenBuild::epoc_only));