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

# 

#

package Cl_edg;

require Exporter;

@ISA=qw(Exporter);

@EXPORT=qw(

	PMHelp_Mmp

	PMStartBldList

	PMBld

	PMStartSrcList

	PMStartSrc

	PMSrcDepend

	PMSrcBldDepend

	PMEndSrcBld

	PMEndSrc

	PMEndSrcList

);

use cl_generic;

use Genutl;

use File::Path;

use Cwd;

sub PMHelp_Mmp {

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

}

my $epocroot = $ENV{EPOCROOT};

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

my $Makecmd;

sub PMStartBldList($) {

	($Makecmd) = @_;

	my $BasicTrgType=&main::BasicTrgType;

	my @BldList=&main::BldList;

	my @ChopRTWSysIncPaths=&main::Path_Chop(&main::Path_RltToWork(&main::SysIncPaths)); # old style

	my @ChopRTWUserIncPaths=&main::Path_Chop(&main::Path_RltToWork(&main::UserIncPaths)); # old style

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

	my $RPath = &main::Path_RltToWork($RelPath);

	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 $EdgSysIncludeList = "Edg_sysinc_list.txt";

    my $EdgUserIncludeList = "Edg_userinc_list.txt";

    my $EdgUdebReportList = "Edg_udeb_rep_list.txt";

    my $EdgUrelReportList = "Edg_urel_rep_list.txt";

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

	# EDG report file generation

	&main::Output(

		"GXPTRGUDEB = $RPath\\EDG\\UDEB\n",

		"GXPTRGUREL = $RPath\\EDG\\UREL\n\n",

		"DEFFILE = $DefFile\n\n",

        "EABIDEFFILE = $EABIDefFile\n\n",

		"EDG_SYSINC_LIST=\${EPOCBLD}\\..\\..\\", $EdgSysIncludeList,

		"\n",

		"EDG_USERINC_LIST=\${EPOCBLD}\\..\\..\\", $EdgUserIncludeList,

		"\n",

		"EDG_UREL_REP_LIST=\${EPOCBLD}\\..\\..\\",$EdgUrelReportList,

		"\n",

		"EDG_UDEB_REP_LIST=\${EPOCBLD}\\..\\..\\", $EdgUdebReportList,

		"\n\n"

	);

	&main::Output(

		"INCDIR ="

	);

	foreach (@ChopRTWUserIncPaths) {

		&main::Output(

			" --include_directory \"$_\""

		);

	}

	&main::Output(

		"\n"

	);

	&main::Output(

		"SYSINCDIR ="

	);

	foreach (@ChopRTWSysIncPaths) {

	     &main::Output(

			" --sys_include \"$_\"",

	     );

	}

	&main::Output(

		"\n",

		"\n"

	);

	my $preinclude =   "--preinclude \$(EPOCINC)\\edg\\edg3_7_rvct2_2.h";#this is the variant line you must change to "simulate" another compiler.

	&main::Output( 

		"GCCFLAGS = --wchar_t_keyword --no_code_gen --exceptions --no_warnings",

		" ${preinclude}",

		"\n"

	);

	&main::Output(

		"GCCDEFS = -D __MARM_THUMB__ -D __MARM_INTERWORK__ -D __ARMCC__ -D __EPOC32__ -D __MARM__ -D __EABI__ -D __ARMCC_2__ -D __ARMCC_2_2__ -D __SUPPORT_CPP_EXCEPTIONS__  -D IMPORT_C= -D EXPORT_C= -D __softfp="

	);

	foreach(@MacroList) {

		&main::Output(

			" -D $_"

		);

	}

	if($VariantFile){

	    &main::Output(" -D __PRODUCT_INCLUDE__=\\\"${VariantFile}\\\"");

	}

	&main::Output(

		" \$(USERDEFS)\n",

		"\n"

	);

	foreach (@BldList) {

		&main::Output(

			"GCC$_ = cpfe"

		);

		&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"

	);

	&main::Output(

		"RESOURCEUREL:\n",

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

	);

	&main::Output(

		"RESOURCEUDEB:\n",

		"\t\@echo Nothing to do\n\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.gxp")

			);

		}

		&main::Output(

			"\n",

			"\n"

		);

	}

}

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;

	# 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 CLEANEDGTEMPFILES$Bld\n",

		"\n"

	);

	&main::Output("CLEANEDGTEMPFILES$Bld :\n",

			"\t\-\$(ERASE) \$(EDG_SYSINC_LIST) ",

			"\$(EDG_USERINC_LIST) ",

			"\$(EDG_${Bld}_REP_LIST) "

			);

	my @releaseables;

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

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

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

	&main::Output(

		"\n",

		"\n"

	);

	# XML Stuff

	&main::Output(

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

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

	);

	my @ChopRTWSysIncPaths=&main::Path_Chop(&main::Path_RltToWork(&main::SysIncPaths)); # old style

	foreach my $incPath (@ChopRTWSysIncPaths) {

	&main::Output(

		"\n\t\@echo $incPath >> \$(EDG_SYSINC_LIST)",

		);

	}

	my @ChopRTWUserIncPaths=&main::Path_Chop(&main::Path_RltToWork(&main::UserIncPaths)); # old style

	foreach my $incPath (@ChopRTWUserIncPaths) {

	&main::Output(

		"\n\t\@echo $incPath >> \$(EDG_USERINC_LIST)",

		);

	}

	&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', $_);

                        next if (lc($Ext) eq '.cia');

			&main::Output(

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

			);

			$counter1++;

		}

        &main::Output(

			"\n\n"

		);

	} else {

		# shorter lists remain unchanged

		#

		&main::Output(

			"OBJECTS$Bld="

		);

                foreach (@SrcList) {

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

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

                        next if (lc($Ext) eq '.cia');

			&main::Output(

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

			);  

		}       

		&main::Output(

			"\n",

			"\n"

		);

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

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

		&main::Output(

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

			"\n\n"

		);

	}

}

sub PMStartSrcList {

	&main::Output(

		"# SOURCES\n",

		"\n"

	);

}

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.aut"), " \\\n",

		);

	}

	&main::Output(

		":"

	);

	foreach (@DepList) {

		&main::Output(

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

		);

	}

	&main::Output(

		"\n",

		"\n"

	);

}

sub PMSrcBldDepend {

	my $Bld=&main::Bld;

	my @DepList=&main::DepList;

	my $BaseSrc=&main::BaseSrc;

	my $ExtSrc=&main::ExtSrc;

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

	return if (@DepList == 0);

	&main::Output(

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

		&Generic_Quote("\$(EPOCBLD$Bld)\\$BaseSrc$cia.aut"), " :",

	);

	foreach (@DepList) {

		&main::Output(

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

		);

	}

	&main::Output( 

		"\n",

		"\n"

	);

}

my %sources;

sub PMEndSrcBld {

	my $ABI=&main::ABI;

	my $BaseSrc=&main::BaseSrc;

	my $Bld=&main::Bld;

	my $Src=ucfirst lc &main::Src;

	my $SrcPath=&main::SrcPath;

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

	my $Cia = (lc($Ext) eq '.cia') ? 1 : 0;

	my $RTWSrcPath=&main::Path_Chop(&main::Path_RltToWork($SrcPath));

	# add source path, source file and build type to hashmap. 

    $sources{$SrcPath}{$Src}{$Bld}=1;

	# Use GCC trick to get assembler source files preprocessed with CPP

	$Src =~ s/\.s$/.S/i;

	@browser = ();

	my $EdgReportFile = "\$(EDG_UREL_REP_LIST)";

	if($Bld =~ /udeb/i){

		$EdgReportFile = "\$(EDG_UDEB_REP_LIST)";

	}

	if ($Cia) {

		&main::Output(

			&Generic_Quote("\$(EPOCBLD$Bld)\\$BaseSrc\_.aut"), " : ",

			&Generic_Quote("$SrcPath$Src"), "\n",

			"\t\$(GCC$Bld) -D __CIA__ --include_directory \"$RTWSrcPath\" \$(INCDIR) --xref \"\$\@\" \"$RTWSrcPath\\$Src\"\n",

		"\t\@echo \"\$\<\" >> $EdgReportFile\n",

		"\n");

	} else {

                my $BldPath=&main::BldPath;

                my $EdgReportFilePath=UpDir(UpDir(UpDir($BldPath)));

		&main::Output(

			&Generic_Quote("\$(EPOCBLD$Bld)\\$BaseSrc$Ext.aut"), " : ",

			&Generic_Quote("$SrcPath$Src"), "\n",

			"\t\$(GCC$Bld) --include_directory \"$RTWSrcPath\" \$(INCDIR) \$(SYSINCDIR) --xref \"\$\@\" \"$RTWSrcPath\\$Src\"\n",

			"\t\@echo \$(EPOCBLD$Bld)\\$BaseSrc$Ext.aut >> $EdgReportFile\n",

			"\n"

		);

		foreach $browser (@browser)

		{

		 print "$browser\n";

		}

	}

}

sub PMEndSrc {

	&main::Output(

		"\n",

		"\n"

	);

}

sub PMEndSrcList {

		&Generic_End;

}

sub UpDir($)

	{

	my ($aPath) = @_;

	my $lastChar = substr($aPath,-1);

	my $end = length($aPath)-1;

	if ( ($lastChar eq '\\') || ($lastChar eq '/') )

		{

		$end -= 1;

		}

	my $last = rindex($aPath,'\\',$end);

	if ( (rindex($aPath,'/',$end)>$last) | ($last == -1) )

		{ $last = rindex($aPath,'/',$end); }

	if ($last == -1)

		{ return ""; }

	else

		{ return substr($aPath,0,$last).'/'; }

	}

1;