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