# Copyright (c) 2008-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 Cl_mingw;

my $MinGWInstall='$(EPOCROOT)epoc32\\gcc_mingw\\bin';

my $MinGWPreInclude='$(EPOCINC)\\gcc_mingw\\gcc_mingw.h';

my $GccPrefix='';

my $ToolPrefix='';

my $HelperLib='';

my %PlatOpt=(

	'Dlltool'=>'',

    'Gcc'=>'',

	'Ld'=>'',

	# MinGW > 3.2.3 has been found to generate programs that crash (rombuild in particular) 

	# and a workaround this appears to be to use specific optimisations rather than

	# specifying -O options

	'Optimize'=>'-fdefer-pop -fmerge-constants '.

	  '-fthread-jumps -floop-optimize '.

	  '-fif-conversion -fif-conversion2 '.

	  '-fguess-branch-probability -fcprop-registers '.

          '-fforce-mem -foptimize-sibling-calls -fstrength-reduce '.

	  '-fcse-follow-jumps  -fcse-skip-blocks '.

          '-frerun-cse-after-loop  -frerun-loop-opt '.

          '-fgcse  -fgcse-lm  -fgcse-sm  -fgcse-las '.

          '-fdelete-null-pointer-checks '.

          '-fexpensive-optimizations '.

          '-fregmove '.

          '-fschedule-insns  -fschedule-insns2 '.

          '-fsched-interblock  -fsched-spec '.

          '-fcaller-saves '.

          '-fpeephole2 '.

          '-freorder-blocks  -freorder-functions '.

          '-fstrict-aliasing '.

          '-funit-at-a-time '.

          '-falign-functions  -falign-jumps '.

          '-falign-loops  -falign-labels '.

          '-fcrossjumping'

);

my $Dlltool;

my $Archive;

my $Link;

my $Objcopy;

my @Win32LibList=();

my $Win32StdHeaders;

require Exporter;

@ISA=qw(Exporter);

@EXPORT=qw(

	PMHelp_Mmp

	PMCheckPlatformL

	PMPlatProcessMmp

	PMStartBldList

	PMBld

	PMStartSrcList

	PMStartSrc

	PMSrcDepend

	PMSrcBldDepend

	PMEndSrcBld

	PMEndSrc

	PMEndSrcList

);

use strict;

use cl_generic;

use Genutl;

use Winutl;

sub PMHelp_Mmp {

}

sub PMCheckPlatformL {

	if ((&main::Plat eq 'TOOLS2') and (&main::BasicTrgType ne 'EXE') and (&main::BasicTrgType ne 'LIB'))

		{

		die "Can't specify anything but EXE or LIB TARGETTYPEs for this platform\n";

		}

}

sub PMPlatProcessMmp (@) {

	&Winutl_DoMmp(\@_, "$ENV{EPOCROOT}epoc32\\gcc_mingw\\include");

	@Win32LibList=&Winutl_Win32LibList;

	$Win32StdHeaders=&Winutl_Win32StdHeaders;

}

my $Makecmd;

sub PMStartBldList($) {

	($Makecmd) = @_;

	my $BaseTrg=&main::BaseTrg;

	my $BasicTrgType=&main::BasicTrgType;

	my @BldList=&main::BldList;

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

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

	my $EPOCPath=&main::EPOCPath;

	my $LibPath=&main::LibPath;

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

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

	my $Plat=&main::Plat;

	my $Trg=&main::Trg;

	my $TrgType=&main::TrgType;

	my $ExportLibrary=&main::ExportLibrary;

	my $NoExportLibrary=&main::NoExportLibrary;

	my $CompilerOption=&main::CompilerOption("GCC");

	my $LinkerOption=&main::LinkerOption("GCC");

	$Dlltool=$ToolPrefix.'$(DLLTOOL)';

	$Archive=$ToolPrefix.'$(AR)';

	$Link=$ToolPrefix.'$(GCC)';

	$Objcopy=$ToolPrefix.'$(OBJCOPY)';

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

	push @MacroList, "__TOOLS__";

	push @MacroList, "__TOOLS2_WINDOWS__";

	push @MacroList, "__SUPPORT_CPP_EXCEPTIONS__";

	push @MacroList, "__PRODUCT_INCLUDE__=\\\"${VariantFile}\\\"" if ($VariantFile);

	# Remove __GCC32__ for TOOLS2 builds from the macro list.

	my $count = 0;

	foreach my $item (@MacroList) {

		if ($item =~ m/GCC32/i) {

			splice (@MacroList,$count,1)

		}

		$count++;

	}

#	GCC needs a fully-qualified path

	&main::Output(

		"\n",

		"# must set both PATH and Path to make it work correctly\n",

		"Path:=\$(Path)\n",

		"PATH:=\$(Path)\n",

		"\n"

	);

	&main::Output(

		"INCDIR= -isystem \"$ENV{EPOCROOT}epoc32\\include\\tools\\stlport\" "

	);

	foreach (@SysIncPaths) {

		&main::Output(

			" -isystem \"$_\""

		);

	}

	foreach (@UserIncPaths) {

		&main::Output(

			" -I \"$_\""

		);

	}

	if($VariantFile){

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

	}

	&main::Output(

		"\n",

		"\n"

	);

	&main::Output(

		"GCCFLAGS=$PlatOpt{Gcc} \\\n",

		"\t\t-pipe -c -Wall -W -Wno-ctor-dtor-privacy -Wno-unknown-pragmas",

	);

	&main::Output(

		" $CompilerOption",		# user-supplied compiler options

		"\n",

		"\n"

	);

	&main::Output(

 		"\n# ADDITIONAL LINKER OPTIONS",

 		"\nUSERLDFLAGS = ",

 		$LinkerOption,

  		"\n\n"

  	);

	&main::Output(

		"GCCDEFS="

	);

	foreach(@MacroList) {

		&main::Output(

			" -D$_"

		);

	}

	&main::Output(

		" \$(USERDEFS)\n",

		"\n"

	);

	&main::Output(

		"MINGWPATH?=$MinGWInstall", "\n",

		"DLLTOOL:=\$(MINGWPATH)\\dlltool", "\n",

		"AR:=\$(MINGWPATH)\\ar", "\n",

		"OBJCOPY:=\$(MINGWPATH)\\objcopy", "\n",

		"GCC:=\$(MINGWPATH)\\g++", "\n" 

	);

	foreach (@BldList) {

		&main::Output(

			"GCC$_=\$(GCC)"

		);

		if (/^REL$/o) {

			&main::Output(' -s ', $PlatOpt{Optimize});

		}

		elsif (/^DEB$/o) {

			&main::Output(' -g');

			unless (&main::SrcDbg) {

				&main::Output(' ', $PlatOpt{Optimize});

			}

		}

		&main::Output(' $(GCCFLAGS)');

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

			&main::Output(" -D$_");

		}

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

	}

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

	foreach (@BldList) {

		&main::Output("$_ :");

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

			&main::Output (" \\\n\t",&Generic_Quote("\$(EPOCTRG$_)\\$Trg"));

		}

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

	}

	# Resource building is done entirely via cl_generic.pm

	foreach (@BldList) {

		&main::Output("\n",	"RESOURCE$_ : MAKEWORK$_");

	}

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

	&main::Output("LIBRARY : MAKEWORKLIBRARY");

	if ($BasicTrgType=~/^LIB$/o) {

#		code to ensure that the static libraries for all builds are built at the library stage

		foreach (@BldList) {

			&main::Output(" $_");

		}

	}

	&main::Output(

		"\n",

		"CLEANLIBRARY :\n"

	);

	&main::Output(

		"\n",

		"\n"

	);

	&Generic_MakeWorkDir('MAKEWORKLIBRARY',"${LibPath}LIB");

	&Generic_Releaseables;

}

sub PMBld {

	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 @LibList;

	my $LibPath=&main::LibPath;

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

	my $RelPath=&main::RelPath;

	my @StatLibList=&main::StatLibList;

	my $StatLinkPath=&main::StatLinkPath;

	my $Trg=&main::Trg;

	my $TrgType=&main::TrgType;

	my $ExportLibrary=&main::ExportLibrary;

	my $NoExportLibrary=&main::NoExportLibrary;

	if ($Bld =~ /DEB/) {

		@LibList = &main::DebugLibList;

	} else {

		@LibList = &main::LibList;

	}

	# REAL TARGETS

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

	&main::Output(

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

		"\n"

	);

#	releasables

	my @releaseables;

	my $toolspath=&main::EPOCToolsPath();

	if ($BasicTrgType!~/^LIB$/io)

		{

		push @releaseables, "$toolspath$Trg";

		}

	else

		{

		push @releaseables, "$RelPath$Trg";

		}

	if (!$NoExportLibrary && ($BasicTrgType!~/^(LIB|EXE)$/io)) {	

		push @releaseables, "\$(EPOCLINK$Bld)\\lib$ExportLibrary.a";

	}

	&main::Output(

		"WHAT$Bld : WHATGENERIC\n",

		"\n",

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

		"\n",

		"CLEANBUILD$Bld : \n",

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

		"\n",

		"CLEANRELEASE$Bld : CLEANGENERIC\n",

		"\n"

	);

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

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

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

	return if ($BasicTrgType=~/^IMPLIB$/io);

	&main::Output(

		"LISTING$Bld : MAKEWORK$Bld"

	);

	foreach (@SrcList) {

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

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

   		&main::Output(

			" \\\n\tLISTING$Bld$BaseSrc"

   		);

   	}

	&main::Output(

		"\n",

		"\n"

	);

	&main::Output(

		"OBJECTS$Bld="

	);

	foreach (@SrcList) {

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

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

		&main::Output(

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

		);

	}

	&main::Output(

		"\n",

		"\n"

	);

	&main::Output(

		&Generic_Quote("\$(EPOCTRG$Bld)\\$Trg"), " : ",

		&Generic_Quote("\$(OBJECTS$Bld)")

	);

	&main::Output(

		" \$(LIBS$Bld)\n"

	);

#	Link target

	if ($BasicTrgType=~/^EXE/o) {

#		call g++ to link the target

		&main::Output(

			"\t$Link $PlatOpt{Ld}"

		);

		if ($Bld=~/^REL$/o) {

			&main::Output(

				" -s"

			);

		}

		&main::Output(

			" -o \"\$(EPOCTRG$Bld)\\$Trg\" \\\n",

			"\t\t\$(OBJECTS$Bld) \\\n"

		);

		&main::Output(

			"\t\t-L\$(EPOCTRG$Bld) \\\n"

		);

		# Add dynamic libraries (dlls on Windows, .so on *nix systems) to linker options

		if (scalar @LibList)

		{

			&main::Output("\t\t-Wl,-Bdynamic ");

		}

		my $libs="";

		foreach my $lib (@LibList)

		{

			$libs.="-l$lib ";

		}

		if ($libs ne "")

		{

			&main::Output(

				"$libs \\\n"

			);

		}

		# Add static libraries (.a on both Windows and *nix) to linker options

		if (scalar @StatLibList)

		{

			&main::Output("\t\t-Wl,-Bstatic ");

		}

		my $statLibs="-lstlport.5.1 ";

		foreach my $lib (@StatLibList)

		{

			$statLibs.="-l$lib ";

		}

		if ($statLibs ne "")

		{

			$statLibs.="\\\n";

		}

		&main::Output(

			"$statLibs"

		);

		&main::Output(

			"\t\t \$(USERLDFLAGS)\n"

		);

		&main::Output(

			"\tcopy \"\$(EPOCTRG$Bld)\\$Trg\" \"",&main::EPOCToolsPath,"$Trg\"\n"

		);

	}

	elsif ($BasicTrgType=~/^LIB$/o) {

		&main::Output(

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

			"\t$Archive cr \$\@ \$^\n"

		);

	}

	elsif ($BasicTrgType =~ /^DLL$/o)

	{

		&main::Output(

			"\t$Link -shared -o \$@ -Wl,--out-implib,\$(EPOCLINK$Bld)\\" . "lib" . "$ExportLibrary.a \$(OBJECTS$Bld)",

			"\n"

		);

		&main::Output(

			"\tcopy \"\$@\" \"",&main::EPOCToolsPath,"$Trg\"\n"

		);

	}

	&main::Output(

		"\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;

	return if (@DepList == 0);

	foreach (@BldList) {

		&main::Output(

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

			&Generic_Quote("\$(EPOCBLD$_)\\$BaseSrc.o"), " \\\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;