# Copyright (c) 1997-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:
# module for preprocessing makmake-style project files
# 
#


package Prepfile;

require Exporter;
@ISA=qw(Exporter);

@EXPORT=qw(
	Prepfile_SetVerbose Prepfile_SetUpperCase Prepfile_ProcessL Prepfile_SetCmdOptions
);

use strict;

use Checkgcc;
use Pathutl;
use Preprocessor;

my %Mode=(
	Verbose=>0,
	UpperCase=>0,
        CmdOptions=>''
);

sub Prepfile_SetVerbose () {
	$Mode{Verbose}=1;
}

sub Prepfile_SetUpperCase () {
	$Mode{UpperCase}=1;
}

sub Prepfile_SetCmdOptions ($) {
        $Mode{CmdOptions} = shift;
        $Mode{CmdOptions} .= ' ' if $Mode{CmdOptions};
}

sub Prepfile_ProcessL ($$;$@) {
# use the C++ preprocessor to process a file.  The function fills the data structure specified
# by the first argument, an array reference, according to the contents of the second argument -
# a filehandle.  Any other arguments are assumed to be MACROS and are defined for preprocessing.

	my ($ArrayRef,$FILE,$VariantHRHFile,@Macros)=@_;
	die "\nERROR: Project File \"$FILE\" not found\n" unless -e $FILE;

	my $exe = &PreprocessorToUseExe();
 	my $cpp = "$exe.EXE $Mode{CmdOptions}-undef -nostdinc -+ ";
	my @CppCall;
 	push @CppCall, $cpp;

	push @CppCall, join '',	"-I ",&Path_PrefixWithDriveAndQuote("$ENV{EPOCROOT}epoc32\\include"),
							" -I .",
							" -I ",&Path_PrefixWithDriveAndQuote(&Path_Split('Path',$FILE));

	my $Macro;
	# add CL macros to the CPP call for preprocessing of the file
	foreach $Macro (@Macros) {
		$Macro=uc $Macro;					 # add the underscores so we can tell what has been
		push @CppCall, "-D $Macro=_____$Macro"; # expanded and remove the space CPP puts in most of the time
	}
	#if a variant file is used
	if(defined($VariantHRHFile)){
        my $variantFilePath = Path_Split('Path',$VariantHRHFile);
	chop( $variantFilePath );
        push @CppCall, " -I " . &Path_PrefixWithDriveAndQuote($variantFilePath) . " -include " . &Path_PrefixWithDriveAndQuote($VariantHRHFile); 
	}
	# all macros made upper case and suppress user-expansion of macros for nefarious purposes

	push @CppCall, &Path_PrefixWithDriveAndQuote($FILE);
	if ($Mode{'Verbose'}) {
		print "@CppCall\n";
	}
	my $CPPPIPE;
	open CPPPIPE,"@CppCall |" or die "ERROR: Can't invoke CPP.EXE\n";

	# read the processed output
	#--------------------------

	my $LineNum=0;
	my $FileName;
	while (<CPPPIPE>) {

		# skip blank lines
		if (/^\s*$/o) {
			$LineNum++;
			next;
		}

		my @Tmp=();

	    # Process the file information lines that cpp inserts.
		# (note that we don't currently do anything with the
		# number cpp sometimes puts out after the filename -
		# it's something to do with inclusion nesting levels)
		if (/^# (\d+) "(.*)"( \d+)?/o) {
			$LineNum = scalar $1;
			my $CurFile=$2;
			$CurFile=~s-\\\\-\\-go;
			$CurFile=~s-\\\/-\\-go;
			$CurFile=~s-\/\\-\\-go;
			$CurFile=~s-\/\/-\\-go;
			$CurFile=~s-\/-\\-go;
			$CurFile=~s-(.:)--go;

			$CurFile=&Path_AbsToWork($CurFile);
			@Tmp=('#', $CurFile);
			push @{$ArrayRef}, [ @Tmp ];
			next;
		}

		# Process file data
		push @Tmp, $LineNum;
		# get rid of the space that cpp puts in most of the time after macro expansion (CPP help doesn't say exactly when!)
		# don't upper case everything until you've done this.
		
		foreach $Macro (@Macros) {
			s/\/ _____$Macro /\/$Macro/g;
			s/_____$Macro /$Macro/g;
			s/_____$Macro/$Macro/g;
		}
		if(/^macro/i)
		{
			#Parse and Store the mmp file statement by retaining double quotes
			while (/("([^\t\n\r\f]+)"|([^ \t\n\r\f]+))/go) {
			        my $Flag = $2 ? $2 : $3;
				if($Flag =~ m/\\\"/) { 
					$Flag =~ s/\"\\/\\/g;
					$Flag =~ s/\""/\"/g;
				}
				push @Tmp, $Flag;
			}
		}
		else
		{
			#Parse and Store the mmp file statement by removing double quotes
			while (/("([^"\t\n\r\f]+)"|([^ "\t\n\r\f]+))/go) {
				push @Tmp, $2 ? $2 : $3;
			}
		}
		push @{$ArrayRef}, [ @Tmp ];
		$LineNum++;
	}		

	if ($Mode{UpperCase}) {
#		upper-case all the data
		my $Line;
		my $Item;
		foreach $Line (@{$ArrayRef}) {
			foreach $Item (@$Line) {
				$Item=uc $Item;
			}
		}
	}
	close CPPPIPE or die $! ? "ERROR: Error closing $exe.exe pipe ($!)\n\t@CppCall\n"
 				: "ERROR: $exe.exe returned non-zero exit status ($?)\n\t@CppCall\n";
}

1;