# Copyright (c) 2007-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:
# Small Perl script for converting GCC inline X86 assembly instructions 
# into a format acceptable to the MSVC compiler.
# 
#


	# Read the input .cia file
	open (INPUT_FILE,"$ARGV[0]") or
		die "Couldn't open input file $!";
	my @lines = <INPUT_FILE>;
	close INPUT_FILE;

	# Open the output file (somewhere under \epoc32\build)
	open (OUTPUT_FILE,">$ARGV[1]") or
		die "Couldn't open output file  $!";

	# Iterate each line of the input .cia
	foreach my $line (@lines) {

		# Filter GCC inline assembly lines
		$line=~s/\/\*(.*?)\*\///g;
		my $output_line=$line;
		if ($line=~m/^\s*asm\("(.*?)"(.*)\)(.*)/) {

			# The above regexp seperates the asm declaration into the instruction part, and
			# optionally a C expression as an operand
			my $instr=$1;
			my $c_arg=$2;
			my $eol=$3;

			# If a C operand is used, strip the weird GCC-specific syntax from it and paste
			# it into the '%0' or '%a0' operand in the assembly instruction
			if ($c_arg =~m/^\s*:\s*:\s*"i"\s*(.*)/) {
				$c_arg = $1;
				$output_line=$instr;

				# Use of _FOFF has to be converted to MSVC syntax
				if ($c_arg =~m/^_FOFF\((.*)\s*,\s*(.*)\)/) {
					my $classname=$1;
					my $member=$2;
					$output_line=~s/\+%0]/]$classname.$member/;
					$output_line=~s/\%0/$classname.$member/;
				}
				else {

					$c_arg=~s/&//;			# strip the '&' used for address-of global code/data
					$output_line=~s/%0/$c_arg/;
					$output_line=~s/%a0/$c_arg/;
				}
			}
			else {
				$output_line="$instr$c_arg";
			}

			# Prefix the MSVC __asm keyword
			$output_line = "__asm $output_line $eol\n";
		}
		print OUTPUT_FILE "$output_line";
	}

	close OUTPUT_FILE;