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

# Cl_gccxml;

# 

#

package Cl_gccxml;

require Exporter;

@ISA=qw(Exporter);

@EXPORT=qw(

	PMHelp_Mmp

	PMStartBldList

	PMBld

	PMStartSrcList

	PMStartSrc

	PMSrcDepend

	PMSrcBldDepend

	PMEndSrcBld

	PMEndSrc

	PMEndSrcList

	PMBitMapBld

	PMResrcBld

);

use strict;

use cl_generic;

use Genutl;

use File::Path;

use Cwd;

use Pathutl;

sub PMHelp_Mmp {

	print "// No additional keywords for this platform\n";

}

	# takes an 'expression'  to evaluate with $_ bound to each of the

	# remaining args

	sub PrintList

	{

		my $expr = shift @_;

		foreach (@_) {

		my $str = eval($expr);

		&main::Output($str);

		}

	}

my $epocroot = $ENV{EPOCROOT};

$epocroot=~ s-\\$--;            # chop trailing \\

my $Makecmd;

sub PMStartBldList($) {

	($Makecmd) = @_;

	my $BasicTrgType=&main::BasicTrgType;

	my @BldList=&main::BldList;

	my @ChopSysIncPaths=&main::Path_Chop(&main::SysIncPaths);

	my @ChopUserIncPaths=&main::Path_Chop(&main::UserIncPaths);

	my $RelPath="$epocroot\\EPOC32\\RELEASE";

	my @MacroList=&main::MacroList();

	my $VariantFile=&main::VariantFile();

	my $Trg=&main::Trg;

	my $DPath = &main::Path_RltToWork($epocroot);

	my $DefFile = &main::DefFile;

	my $EABIDefFile = &main::EABIDef;

	my $ExtCompileOption = &main::CompilerOption("GCCXML");

	&Generic_Header(0,$Makecmd);	# define standard things using absolute paths

	$DefFile="" if(!(-e $DefFile));

	&main::Output(

		"GXPTRGUDEB = $RelPath\\GCCXML\\UDEB\n",

		"GXPTRGUREL = $RelPath\\GCCXML\\UREL\n\n",

		"DEFFILE = $DefFile\n\n",

        "EABIDEFFILE = $EABIDefFile\n\n"

	);

	&main::Output(

		"INCDIR  ="

	);

	foreach (@ChopUserIncPaths) {

		&main::Output(

			" -I \"$_\""

		);

	}

	&main::Output(

		" -I- "

	);

	foreach (@ChopSysIncPaths) {

		&main::Output(

			" -I \"$_\""

		);

	}

	if($VariantFile){

	    &main::Output("\\\n  -include \"$VariantFile\"");

	}

	&main::Output(

		"\n",

		"\n"

	);

	&main::Output( 		

		"GCCFLAGS= -nostdinc -Wall -Wno-ctor-dtor-privacy -Wno-unknown-pragmas -UWIN32 -fshort-wchar -quiet -w $ExtCompileOption\n",  # -fsyntax-only

		"\n"

	);

	&main::Output(

		"GCCDEFS = -D __EABI__ -D __SUPPORT_CPP_EXCEPTIONS__"

	);

	foreach(@MacroList) {

		&main::Output(

			" -D$_"

		);

	}

	&main::Output(

		" \$(USERDEFS)\n",

		"\n"

	);

	foreach (@BldList) {

		&main::Output(

			"GCC$_ = gccxml_cc1plus -bi"

		);

		if (/REL$/o) {

			&main::Output(

				      ' -fomit-frame-pointer '

			);

		}

		elsif (/DEB$/o) {

			&main::Output(

				' -g'

			);

		}

		&main::Output(

			' $(GCCFLAGS)'

		);

		foreach (&main::MacroList($_)) {

			&main::Output(

				" -D$_"

			);

		}

		&main::Output(

			" \$(GCCDEFS)\n"

		);

	}

	&main::Output(

		"\n",

		"\n"

	);

	&main::Output(

			"LIBRARY:\n",

			"\t\@echo Nothing to do\n"

	);

	# Resource building is done entirely via cl_generic.pm

	PrintList("\"\nRESOURCE\$_ : MAKEWORK\$_\"", @BldList)

	&main::Output(

		"\n",

		"\n",

	);

	foreach (@BldList) {

		&main::Output(

			"$_ :"

		);

		if ($BasicTrgType !~ /IMPLIB/io) {

			my $TrgBase = &main::Path_Split('base',$Trg);           

			&main::Output (

			" \\\n\t",

			&Generic_Quote("\$(GXPTRG$_)\\$TrgBase$BasicTrgType.gxp")

			);

		}

		&main::Output(

			"\n",

			"\n"

		);

	}

}

# DumpToFile

sub DumpMMPToFile

{

	my $rfiFileList;

	my @rfiFiles;

	if(scalar @_) # if an argument has been passed then it is a reference to the list of .RFI files.

	{

		($rfiFileList) = @_;

		@rfiFiles = @$rfiFileList;

	}

	my $BldPath=&main::BldPath;

	my $Target = &main::Trg; 

	my $TargetBase = &main::Path_Split('Base', $Target); 

	my $Gxpurel="$epocroot\\epoc32\\release\\gccxml\\urel";

	my $Gxpudeb="$epocroot\\epoc32\\release\\gccxml\\udeb";

	unless (-d $BldPath) {

		mkpath([$BldPath]);

	}

	unless (-d $Gxpurel) {

		mkpath([$Gxpurel]);

	}

	unless (-d $Gxpudeb) {

		mkpath([$Gxpudeb]);

	}

    $BldPath = (&main::Path_StepDirs($BldPath))[-2];

	use File::Basename;

    my $FileName = basename(&main::MmpFile());

    $FileName = $BldPath.$FileName.".xml";

    open FILE,"> $FileName" or die "Cannot open mmp info dump file $FileName: $!";

    print FILE "<?xml version=\"1.0\"?>\n<mmpInfo>\n"; 

    my $Path = &main::RelPath();

    my $MmpFile = &main::MmpFile();  

    my $TrgType = &main::TrgType(); 

    my $TrgPath = &main::TrgPath(); 

    print FILE "\t<mmp path=\"$MmpFile\"/>\n"; 

	print FILE "\t<target name=\"$Target\" type=\"$TrgType\" ";

	if(not $TrgPath eq '') 

	{

		print FILE "path=\"$TrgPath\""; 

	}

	print FILE "/>\n";

	# insert current working directory

	my $WorkPath = &main::Path_WorkPath();

	print FILE "\t<cwd path=\"$WorkPath\"/>\n";

    my $ABI = &main::ABI; 

    print FILE "\t<abi type=\"$ABI\"/>\n"; 

    my $LinkAs = &main::LinkAs;

    print FILE "\t<linkAs name=\"$LinkAs\"/>\n"; 

    my $LinkAsBase = &main::LinkAsBase;

    print FILE "\t<linkAsBase name=\"$LinkAsBase\"/>\n"; 

    # Uids

    my @UidList=&main::UidList;

    my $count = 0;

    print FILE "\t<uids";

    foreach my $uid(@UidList)

    {

		print FILE " u$count=\"$uid\"" ;

		$count++; 

    }

    print FILE "/>\n";

    # Versioning 

    my %Version = &main::Version; 

    print FILE "\t<version";

    foreach my $var (sort keys %Version)

    {

        print FILE " $var=\"$Version{$var}\"";

    }

    print FILE "/>\n";

    # Capabilities

    my $Capability = &main::Capability;

    print FILE "\t<capability id=\"$Capability\"/>\n"; 

	# DefFile

	my $DefFile = &main::DefFile;

	$DefFile="" if(!(-e $DefFile));

	print FILE "\t<defFile path=\"$DefFile\" type=\"GCC\"/>\n";

	# EABIDefFile

	my $EABIDefFile = &main::EABIDef;

	print FILE "\t<defFile path=\"$EABIDefFile\" type=\"EABI\"/>\n";

    # Handle All types of libraries

    my $FirstLib = &main::FirstLib; 

    my @LibList = &main::LibList;

    my @ASSPLibList = &main::ASSPLibList;

    my @StatLibList = &main::StatLibList;;    

    print FILE "\t<libs>\n"; 

	#first

    print FILE "\t\t<lib name=\"$FirstLib\" type=\"First\"/>\n"; 

    #  normal

    foreach my $lib (@LibList)

    {

        print FILE "\t\t<lib name=\"$lib\"/>\n"; 

    }

    # ASSP Specific

    foreach my $lib (@ASSPLibList)

    {

        print FILE "\t\t<lib name=\"$lib\" type=\"ASSP\"/>\n";

    }

    # Static Libraries

    foreach my $lib (@StatLibList)

    {

        print FILE "\t\t<lib name=\"$lib\" type=\"Static\"/>\n";

    }

    print FILE "\t</libs>\n";

    # Resources

    print FILE "\t<resources>\n";

    my $rfiFile;

    foreach $rfiFile (@rfiFiles)

    {

	    print FILE "\t\t<resource name=\"$rfiFile\"/>\n";

    }

    print FILE "\t</resources>\n";

    close FILE;

}

sub PMBld {

	my @ASSPLibList=&main::ASSPLibList;

	my @SrcList=&main::SrcList;

	my $BaseTrg=&main::BaseTrg;

	my $Bld=&main::Bld;

	my $ChopBldPath=&main::Path_Chop(&main::BldPath);

	my $EPOCIncPath=&main::EPOCIncPath;

	my $BasicTrgType=&main::BasicTrgType;

	my $ChopRelPath=&main::Path_Chop(&main::RelPath);

	my $RelPath=&main::RelPath;

	my $Trg=&main::Trg;

	my $TrgType=&main::TrgType;

	my @UidList=&main::UidList;

	# DefFile

	my $DefFile = &main::DefFile;

	# EABIDefFile

	my $EABIDefFile = &main::EABIDef;

	my $rfiList = GatherResourceInformation();

	my @RfiFiles = @$rfiList;

	DumpMMPToFile(\@RfiFiles);

	# REAL TARGETS

	#-------------

	&main::Output(

		"# REAL TARGET - BUILD VARIANT $Bld\n",

		"\n"

	);

	&main::Output(

		"WHAT$Bld : WHATGENERIC\n",

		"\n",

		"CLEAN$Bld : CLEANBUILD$Bld CLEANRELEASE$Bld\n",

		"\n",

		"CLEANBUILD$Bld : \n",

		"\t\@perl -S ermdir.pl \"\$(EPOCBLD$Bld)\"\n",

		"\n",

		"CLEANRELEASE$Bld : CLEANGENERIC\n",

		"\n"

	);

	my @releaseables;

	&Generic_WhatCleanTargets($Bld, "WHAT$Bld", "CLEANRELEASE$Bld", @releaseables);

	&Generic_MakeWorkDir("MAKEWORK$Bld",$ChopBldPath);

	&Generic_MakeWorkDir("MAKEWORK$Bld",$ChopRelPath);

	&Generic_Releaseables;

	&main::Output(

		"\n",

		"\n"

	);

	# XML Stuff

	&main::Output(

				&Generic_Quote("\$(GXPTRG$Bld)\\$BaseTrg$BasicTrgType.gxp"), " : ",

				&Generic_Quote("\$(EPOCBLD$Bld)\\$BaseTrg$BasicTrgType.gxp"),

				"\n\tcopy \"\$(EPOCBLD$Bld)\\$BaseTrg$BasicTrgType.gxp\" \"\$@\""

	); 

	&main::Output(

		"\n",

		"\n"

	);

	# TARGET *.GXP

	#------------

	if (scalar @SrcList >150) {

		# deal with very long lists by splitting them into 150 file pieces, which allows

		# about 200 bytes per filename if the underlying max size is 32K

		#

		my $counter1=150;	# i.e. trigger new variable immediately

		my $counter2=0;

		my @objvarlist=();

		foreach (@SrcList) {

			if ($counter1==150) {

				$counter1=0;

				$counter2++;

				my $objvar = "OBJECTS$Bld$counter2";

				push @objvarlist, " \$($objvar)";

				&main::Output(

					"\n",

					"$objvar="

				);

			}

			my $BaseSrc = &main::Path_Split('Base', $_);

			my $Ext = &main::Path_Split('Ext', $_);

			$BaseSrc.='_' if (lc($Ext) eq '.cia');

			&main::Output(

				" \\\n\t", &Generic_Quote("\$(EPOCBLD$Bld)\\$BaseSrc.xml")

			);

			$counter1++;

		}

		use File::Basename;

	    my $FileName = basename(&main::MmpFile()).".xml";

		&main::Output(

			" \\\n\t\$(EPOCBLD)\\$FileName",

			"\n",

			"\n",

			&Generic_Quote("\$(EPOCBLD$Bld)\\$BaseTrg$BasicTrgType.gxp"), " : ", @objvarlist,"\n",

			"\tif exist \"\$\@\" del \"\$\@\"\n"

		);

		foreach (@objvarlist) {

			&main::Output(

				"\tzip -j \$\@$_\n"

			);

		}

		&main::Output(

			"\tif exist \$(EABIDEFFILE) zip -j \$\@ \$(EABIDEFFILE)\n",

			"\n\n"

		);

	} else {

		# shorter lists remain unchanged

		#

		&main::Output(

			"OBJECTS$Bld="

		);

		use File::Basename;

	    my $FileName = basename(&main::MmpFile()).".xml";

		&main::Output("\$(EPOCBLD)\\$FileName");

        foreach (@SrcList) {

			my $BaseSource = &main::Path_Split('Base', $_);

			my $Ext = &main::Path_Split('Ext', $_);

			$BaseSource.='_' if (lc($Ext) eq '.cia');

			&main::Output(

			" \\\n\t", &Generic_Quote("\$(EPOCBLD$Bld)\\$BaseSource.xml")

			);

		}       

		&main::Output(

			"\n",

			"\n"

		);

		&main::Output("RESOURCEINFO$Bld=");

		foreach (@RfiFiles)

		{

			&main::Output(" \\\n\t\$(EPOCBLD)\\$_");

		}

		&main::Output("\n\n");

		&main::Output(

			&Generic_Quote("\$(EPOCBLD$Bld)\\$BaseTrg$BasicTrgType.gxp"), " : \$(OBJECTS$Bld) \$(EABIDEFFILE) \$(RESOURCEINFO$Bld)\n",

			"\tif exist \"\$\@\" del \"\$\@\"\n",

			"\tzip -j \$\@ \$^ \$(EABIDEFFILE) \$(RESOURCEINFO$Bld)\n",

			"\n\n"

		);

	}

}

sub PMStartSrcList {

	&main::Output(

		"# SOURCES\n",

		"\n"

	);

}

sub PMBitMapBld {

	&Generic_BitMapBld;

}

sub PMResrcBld {

	&Generic_ResrcBld;

}

sub PMStartSrc {

	my $Src=&main::Src;

	&main::Output(

		"# Source $Src\n",

		"\n"

	);

}

sub PMSrcDepend {

	my @BldList=&main::BldList;	

	my @DepList=&main::DepList;

	my $BaseSrc=&main::BaseSrc;

	my $ExtSrc=&main::ExtSrc;

	my $cia = (lc($ExtSrc) eq '.cia') ? "_" : "";

	return if (@DepList == 0);

	foreach (@BldList) {

		&main::Output(

			&Generic_Quote("\$(EPOCBLD$_)\\$BaseSrc$cia.lis"), " ",

			&Generic_Quote("\$(EPOCBLD$_)\\$BaseSrc$cia.xml"), " \\\n",

		);

	}

	&main::Output(

		":"

	);

	foreach (@DepList) {

		&main::Output(

		" \\\n\t", &Generic_Quote($_)

		);

	}

	&main::Output(

		"\n",