# Copyright (c) 2001-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:
# err_formatter.pm
# This tool is asked to invoke the Lada compiler and reformat the errors/warnings from CW
# style to Visual Studio error/warning reporting style.
# 
#


use FindBin;

my $command = join(' ', @ARGV);
open PIPE, "$command 2>&1 | ";


my $nextLineOfInterest = 0;
my $new_error_line=();
my $comp_msg=();
my $error_token=();

# The error/warning format for CW compiler for the option 
# -msgstyle parseable is as follows:
#
# ToolName|ToolType|MsgType (FileName|Linenumber|digit|digit|digit|digit)
# = AtToken
# > ErrorMsg
#
# In the above format, the symbols '|', '(', ')', '=' and '>' occur always
# and this tool assumes there presence.
# Also, in the above, 
#	'ToolName' here is mwccsym2.exe
#	'ToolType' here is Compiler
#	'MsgType' is either Error or Warning
#	'FileName' is the file that caused the compiler error/warning
#	'Linenumber' is the line at which the error/warning is reported
#	'AtToken' is the token at which the error/warning was reported.
#	'ErrorMsg' is the error message and it amrks the end of this error/warning.
#

my @msgs;
while(<PIPE>)
{
	if( $nextLineOfInterest == 1)
	{
		if($_ =~ /^>(.*)/)
		{
			$comp_msg .= $1;
			$new_error_line .= "$comp_msg ";
			$new_error_line .= ": $error_token" if($error_token);
			push @msgs, $new_error_line;
			
			$nextLineOfInterest = 0;
			$comp_msg = "";
			$error_token = "";
			next;
		}
		if($_ =~ /^=(.*)/)
		{
			$error_token = $1;
			next;
		}
		if($_ =~ /\((.*)\|([0-9]+)\|([0-9]+)\|([0-9]+)\|([0-9]+)\|([0-9]+)\)/)
		{
######### $1 is file name
######### $2 is line number

			$new_error_line = $1."(";
			$new_error_line .= $2;
			$new_error_line .= ")";
			$new_error_line .= ": ";

			next;
		}
	}
	if($_ =~ /Compiler\|Error/)
	{
		$comp_msg = "Error: ";
		$nextLineOfInterest = 1;
		next;
	}
	elsif($_ =~ /Compiler\|Warning/)
	{
		$comp_msg = "Warning: ";
		$nextLineOfInterest = 1;
		next;
	}
	else
	{
		$nextLineOfInterest = 0;
		push @msgs, $_;
	}
}

close PIPE;
my $msg;
foreach $msg (@msgs)
{
	print "$msg\n";
}