/*******************************************************************************
 * Copyright (c) 2016 CEA LIST.
 *
 * All rights reserved. This program and the accompanying materials
 * are made available under the terms of the Eclipse Public License v1.0
 * which accompanies this distribution, and is available at
 * http://www.eclipse.org/legal/epl-v10.html
 *
 * Created on: 23 janv. 2014
 *
 * Contributors:
 *  Arnault Lapitre (CEA LIST) arnault.lapitre@cea.fr
 *   - Initial API and implementation
 ******************************************************************************/

#include "AvmInstruction.h"

#include <fml/expression/AvmCode.h>


namespace sep
{

/**
 * compute main bytecode
 * NOPS or EVALS
 */
void AvmInstruction::computeMainBytecode(
		bool updateMainByteCodeIfNOPS, avm_arg_operation_t opMask)
{
	bool isUnsetNops = true;
	for( int pc = int(theSize) - 1 ; pc >= 0 ; --pc )
	{
		if( isUnsetNops && theArgBytecode[pc].isEval() )
		{
			isUnsetNops = false;

			if( pc < (int(theSize) - 2) )
			{
				theArgBytecode[pc+1].setNopsOperation();
			}
		}

		if( theArgBytecode[pc].isSeval() )
		{
			theMainBytecode.xsetSeval(opMask);
		}
		else if( theArgBytecode[pc].isMeval() )
		{
			theMainBytecode.xsetMeval(opMask);
			break;
		}
	}

	if( isUnsetNops )
	{
		theArgBytecode[0].setNopsOperation(AVM_ARG_VALUE);

		if( updateMainByteCodeIfNOPS )
		{
			theMainBytecode.setNopsOperation(opMask);
		}
	}
	else
	{
//		theMainBytecode.unsetNops();
	}
}


void AvmInstruction::computeBytecode(bool updateMainByteCodeIfNOPS,
			const Vector< AvmBytecode > & vectorOfArgOpcode)
{
	AVM_OS_ASSERT_WARNING_ALERT( vectorOfArgOpcode.nonempty() )
			<< "AvmBytecode::computeArgCode :> "
				"Unexpected an empty vector of ArgOpcode !!!"
			<< SEND_ALERT;

	theSize = vectorOfArgOpcode.size();

	if( theArgBytecode != NULL )
	{
		delete theArgBytecode;
	}

	if( theSize > 0 )
	{
		theArgBytecode = new AvmBytecode[theSize];

//		for( avm_size_t pc = 0 ; pc < count ; ++pc )
//		{
//			theArgBytecode[pc] = vectorOfArgOpcode[pc];
//		}

		bool isUnsetNops = true;
		for( int pc = int(theSize) - 1 ; pc >= 0 ; --pc )
		{
			theArgBytecode[pc] = vectorOfArgOpcode[pc];

			if( isUnsetNops && theArgBytecode[pc].isEval() )
			{
				isUnsetNops = false;

				if( pc < (int(theSize) - 2) )
				{
					theArgBytecode[pc+1].setNopsOperation();
				}
			}

			if( theArgBytecode[pc].isSeval() )
			{
				if( not theMainBytecode.isMeval() )
				{
					theMainBytecode.xsetSeval();
				}
			}
			else if( theArgBytecode[pc].isMeval() &&
					(not theMainBytecode.isMeval()) )
			{
				theMainBytecode.xsetMeval();
			}
		}

		if( isUnsetNops )
		{
			theArgBytecode[0].setNopsOperation(AVM_ARG_VALUE);

			if( updateMainByteCodeIfNOPS )
			{
				theMainBytecode.setNopsOperation();
			}
		}
		else
		{
//			theMainBytecode.unsetNops();
		}
	}
	else
	{
		theMainBytecode.setNopsOperation();
	}
}


/**
 * nops bytecode
 */
AvmInstruction * AvmInstruction::nopsUnaryCode(avm_arg_operand_t operand)
{
	AvmInstruction * nopsInstruction = new AvmInstruction(1);

	nopsInstruction->setMainBytecode(
			/*processor*/ AVM_ARG_NOP_CPU,
			/*operation*/ AVM_ARG_NOPS_VALUE,
			/*operand  */ operand);

	nopsInstruction->set(0,
			/*processor*/ AVM_ARG_NOP_CPU,
			/*operation*/ AVM_ARG_NOPS_VALUE,
			/*operand  */ operand);

	return( nopsInstruction );

}


/**
 ***************************************************************************
 * SERIALIZATION
 ***************************************************************************
 */
void AvmInstruction::toStream(OutStream & os) const
{
	os << TAB << "#{" << EOL;
	for( avm_size_t idx = 0 ; idx < theSize ; ++idx )
	{
		os << TAB2 << idx << ":" << theArgBytecode[idx].strCode() << EOL;
	}
	os << TAB << "}" << EOL_FLUSH;
}


} /* namespace sep */