/**
* (C) Copyright IBM Corp. 2010, 2015
*
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*
*/
package com.ibm.bi.dml.runtime.controlprogram;
import java.util.ArrayList;
import com.ibm.bi.dml.api.DMLScript;
import com.ibm.bi.dml.hops.Hop;
import com.ibm.bi.dml.parser.IfStatementBlock;
import com.ibm.bi.dml.parser.Expression.ValueType;
import com.ibm.bi.dml.runtime.DMLRuntimeException;
import com.ibm.bi.dml.runtime.DMLScriptException;
import com.ibm.bi.dml.runtime.DMLUnsupportedOperationException;
import com.ibm.bi.dml.runtime.controlprogram.context.ExecutionContext;
import com.ibm.bi.dml.runtime.instructions.Instruction;
import com.ibm.bi.dml.runtime.instructions.Instruction.INSTRUCTION_TYPE;
import com.ibm.bi.dml.runtime.instructions.cp.BooleanObject;
import com.ibm.bi.dml.runtime.instructions.cp.CPInstruction;
import com.ibm.bi.dml.runtime.instructions.cp.ComputationCPInstruction;
import com.ibm.bi.dml.runtime.instructions.cp.Data;
import com.ibm.bi.dml.runtime.instructions.cp.ScalarObject;
import com.ibm.bi.dml.runtime.instructions.cp.StringObject;
import com.ibm.bi.dml.runtime.instructions.cp.VariableCPInstruction;
import com.ibm.bi.dml.runtime.instructions.cp.CPInstruction.CPINSTRUCTION_TYPE;
import com.ibm.bi.dml.yarn.DMLAppMasterUtils;
public class IfProgramBlock extends ProgramBlock
{
private ArrayList<Instruction> _predicate;
private String _predicateResultVar;
private ArrayList <Instruction> _exitInstructions ;
private ArrayList<ProgramBlock> _childBlocksIfBody;
private ArrayList<ProgramBlock> _childBlocksElseBody;
public IfProgramBlock(Program prog, ArrayList<Instruction> predicate) throws DMLRuntimeException{
super(prog);
_childBlocksIfBody = new ArrayList<ProgramBlock>();
_childBlocksElseBody = new ArrayList<ProgramBlock>();
_predicate = predicate;
_predicateResultVar = findPredicateResultVar ();
_exitInstructions = new ArrayList<Instruction>();
}
public ArrayList<ProgramBlock> getChildBlocksIfBody()
{ return _childBlocksIfBody; }
public void setChildBlocksIfBody(ArrayList<ProgramBlock> blocks)
{ _childBlocksIfBody = blocks; }
public void addProgramBlockIfBody(ProgramBlock pb)
{ _childBlocksIfBody.add(pb); }
public ArrayList<ProgramBlock> getChildBlocksElseBody()
{ return _childBlocksElseBody; }
public void setChildBlocksElseBody(ArrayList<ProgramBlock> blocks)
{ _childBlocksElseBody = blocks; }
public void addProgramBlockElseBody(ProgramBlock pb)
{ _childBlocksElseBody.add(pb); }
public void printMe() {
LOG.debug("***** if current block predicate inst: *****");
for (Instruction cp : _predicate){
cp.printMe();
}
LOG.debug("***** children block inst --- if body : *****");
for (ProgramBlock pb : this._childBlocksIfBody){
pb.printMe();
}
LOG.debug("***** children block inst --- else body : *****");
for (ProgramBlock pb: this._childBlocksElseBody){
pb.printMe();
}
LOG.debug("***** current block inst exit: *****");
for (Instruction i : this._exitInstructions) {
i.printMe();
}
}
public void setExitInstructions2(ArrayList<Instruction> exitInstructions){
_exitInstructions = exitInstructions;
}
public void setExitInstructions1(ArrayList<Instruction> predicate){
_predicate = predicate;
}
public void addExitInstruction(Instruction inst){
_exitInstructions.add(inst);
}
public ArrayList<Instruction> getPredicate(){
return _predicate;
}
public void setPredicate(ArrayList<Instruction> predicate)
{
_predicate = predicate;
//update result var if non-empty predicate (otherwise,
//do not overwrite varname predicate in predicateResultVar)
if( _predicate != null && !_predicate.isEmpty() )
_predicateResultVar = findPredicateResultVar();
}
public String getPredicateResultVar(){
return _predicateResultVar;
}
public void setPredicateResultVar(String resultVar) {
_predicateResultVar = resultVar;
}
public ArrayList<Instruction> getExitInstructions(){
return _exitInstructions;
}
@Override
public void execute(ExecutionContext ec)
throws DMLRuntimeException, DMLUnsupportedOperationException
{
BooleanObject predResult = executePredicate(ec);
//execute if statement
if(predResult.getBooleanValue())
{
try
{
for (int i=0 ; i < _childBlocksIfBody.size() ; i++) {
ec.updateDebugState(i);
_childBlocksIfBody.get(i).execute(ec);
}
}
catch(DMLScriptException e) {
throw e;
}
catch(Exception e)
{
throw new DMLRuntimeException(this.printBlockErrorLocation() + "Error evaluating if statement body ", e);
}
}
else
{
try
{
for (int i=0 ; i < _childBlocksElseBody.size() ; i++) {
ec.updateDebugState(i);
_childBlocksElseBody.get(i).execute(ec);
}
}
catch(DMLScriptException e) {
throw e;
}
catch(Exception e)
{
throw new DMLRuntimeException(this.printBlockErrorLocation() + "Error evaluating else statement body ", e);
}
}
//execute exit instructions
try {
executeInstructions(_exitInstructions, ec);
}
catch(DMLScriptException e) {
throw e;
}
catch (Exception e){
throw new DMLRuntimeException(this.printBlockErrorLocation() + "Error evaluating if exit instructions ", e);
}
}
/**
*
* @param ec
* @return
* @throws DMLRuntimeException
* @throws DMLUnsupportedOperationException
*/
private BooleanObject executePredicate(ExecutionContext ec)
throws DMLRuntimeException, DMLUnsupportedOperationException
{
BooleanObject result = null;
try
{
if( _predicate!=null && !_predicate.isEmpty() )
{
if( _sb != null )
{
if( DMLScript.isActiveAM() ) //set program block specific remote memory
DMLAppMasterUtils.setupProgramBlockRemoteMaxMemory(this);
IfStatementBlock isb = (IfStatementBlock)_sb;
Hop predicateOp = isb.getPredicateHops();
boolean recompile = isb.requiresPredicateRecompilation();
result = (BooleanObject) executePredicate(_predicate, predicateOp, recompile, ValueType.BOOLEAN, ec);
}
else
result = (BooleanObject) executePredicate(_predicate, null, false, ValueType.BOOLEAN, ec);
}
else
{
//get result var
ScalarObject scalarResult = null;
Data resultData = ec.getVariable(_predicateResultVar);
if ( resultData == null ) {
//note: resultvar is a literal (can it be of any value type other than String, hence no literal/varname conflict)
scalarResult = ec.getScalarInput(_predicateResultVar, ValueType.BOOLEAN, true);
}
else {
scalarResult = ec.getScalarInput(_predicateResultVar, ValueType.BOOLEAN, false);
}
//check for invalid type String
if (scalarResult instanceof StringObject)
throw new DMLRuntimeException(this.printBlockErrorLocation() + "\nIf predicate variable "+ _predicateResultVar + " evaluated to string " + scalarResult + " which is not allowed for predicates in DML");
//process result
if( scalarResult instanceof BooleanObject )
result = (BooleanObject)scalarResult;
else
result = new BooleanObject( scalarResult.getBooleanValue() ); //auto casting
}
}
catch(Exception ex)
{
throw new DMLRuntimeException(this.printBlockErrorLocation() + "Failed to evaluate the IF predicate.", ex);
}
//(guaranteed to be non-null, see executePredicate/getScalarInput)
return result;
}
private String findPredicateResultVar ( ) {
String result = null;
for ( Instruction si : _predicate ) {
if ( si.getType() == INSTRUCTION_TYPE.CONTROL_PROGRAM && ((CPInstruction)si).getCPInstructionType() != CPINSTRUCTION_TYPE.Variable ) {
result = ((ComputationCPInstruction) si).getOutputVariableName();
}
else if(si instanceof VariableCPInstruction && ((VariableCPInstruction)si).isVariableCastInstruction()){
result = ((VariableCPInstruction)si).getOutputVariableName();
}
}
return result;
}
public String printBlockErrorLocation(){
return "ERROR: Runtime error in if program block generated from if statement block between lines " + _beginLine + " and " + _endLine + " -- ";
}
}