private void EmitRangeExprNode(ImperativeNode node, ref ProtoCore.Type inferedType, ProtoCore.AssociativeGraph.GraphNode graphNode = null)
{
RangeExprNode range = node as RangeExprNode;
// Do some static checking...probably it is not necessary.
// Need to move these checkings to built-in function.
if ((range.FromNode is IntNode || range.FromNode is DoubleNode) &&
(range.ToNode is IntNode || range.ToNode is DoubleNode) &&
(range.StepNode == null || (range.StepNode != null && (range.StepNode is IntNode || range.StepNode is DoubleNode))))
{
decimal current = (range.FromNode is IntNode) ? Int64.Parse((range.FromNode as IntNode).value) : Decimal.Parse((range.FromNode as DoubleNode).value);
decimal end = (range.ToNode is IntNode) ? Int64.Parse((range.ToNode as IntNode).value) : Decimal.Parse((range.ToNode as DoubleNode).value);
ProtoCore.DSASM.RangeStepOperator stepoperator = range.stepoperator;
decimal step = 1;
if (range.StepNode != null)
{
step = (range.StepNode is IntNode) ? Int64.Parse((range.StepNode as IntNode).value) : Decimal.Parse((range.StepNode as DoubleNode).value);
}
if (stepoperator == ProtoCore.DSASM.RangeStepOperator.stepsize)
{
if (range.StepNode == null && end < current)
{
step = -1;
}
if (step == 0)
{
buildStatus.LogWarning(ProtoCore.BuildData.WarningID.kInvalidRangeExpression, ProtoCore.BuildData.WarningMessage.kRangeExpressionWithStepSizeZero, compileStateTracker.CurrentDSFileName, range.StepNode.line, range.StepNode.col);
EmitNullNode(new NullNode(), ref inferedType);
return;
}
if ((end > current && step < 0) || (end < current && step > 0))
{
buildStatus.LogWarning(ProtoCore.BuildData.WarningID.kInvalidRangeExpression, ProtoCore.BuildData.WarningMessage.kRangeExpressionWithInvalidStepSize, compileStateTracker.CurrentDSFileName, range.StepNode.line, range.StepNode.col);
EmitNullNode(new NullNode(), ref inferedType);
return;
}
}
else if (stepoperator == ProtoCore.DSASM.RangeStepOperator.num)
{
if (range.StepNode != null && !(range.StepNode is IntNode))
{
buildStatus.LogWarning(ProtoCore.BuildData.WarningID.kInvalidRangeExpression, ProtoCore.BuildData.WarningMessage.kRangeExpressionWithNonIntegerStepNumber, compileStateTracker.CurrentDSFileName, range.StepNode.line, range.StepNode.col);
EmitNullNode(new NullNode(), ref inferedType);
return;
}
if (step <= 0)
{
buildStatus.LogWarning(ProtoCore.BuildData.WarningID.kInvalidRangeExpression, ProtoCore.BuildData.WarningMessage.kRangeExpressionWithNegativeStepNumber, compileStateTracker.CurrentDSFileName, range.StepNode.line, range.StepNode.col);
EmitNullNode(new NullNode(), ref inferedType);
return;
}
}
else if (stepoperator == ProtoCore.DSASM.RangeStepOperator.approxsize)
{
if (step == 0)
{
buildStatus.LogWarning(ProtoCore.BuildData.WarningID.kInvalidRangeExpression, ProtoCore.BuildData.WarningMessage.kRangeExpressionWithStepSizeZero, compileStateTracker.CurrentDSFileName, range.StepNode.line, range.StepNode.col);
EmitNullNode(new NullNode(), ref inferedType);
return;
}
}
}
// Replace with build-in RangeExpression() function. - Yu Ke
var tmpFrom = nodeBuilder.BuildTempVariable();
var assignFrom = nodeBuilder.BuildBinaryExpression(tmpFrom, range.FromNode);
EmitBinaryExpressionNode(assignFrom, ref inferedType);
var tmpTo = nodeBuilder.BuildTempVariable();
var assignTo = nodeBuilder.BuildBinaryExpression(tmpTo, range.ToNode);
EmitBinaryExpressionNode(assignTo, ref inferedType);
var tmpStep = nodeBuilder.BuildTempVariable();
var assignStep = nodeBuilder.BuildBinaryExpression(tmpStep, range.StepNode == null ? new NullNode() : range.StepNode);
EmitBinaryExpressionNode(assignStep, ref inferedType);
BooleanNode hasStep = new BooleanNode { value = range.StepNode == null ? "false" : "true" };
var tmpStepSkip = nodeBuilder.BuildTempVariable();
var assignStepSkip = nodeBuilder.BuildBinaryExpression(tmpStepSkip, hasStep);
EmitBinaryExpressionNode(assignStepSkip, ref inferedType);
IntNode op = new IntNode();
switch (range.stepoperator)
{
case ProtoCore.DSASM.RangeStepOperator.stepsize:
op.value = "0";
break;
case ProtoCore.DSASM.RangeStepOperator.num:
op.value = "1";
break;
case ProtoCore.DSASM.RangeStepOperator.approxsize:
op.value = "2";
break;
default:
op.value = "-1";
break;
}
var rangeExprFunc = nodeBuilder.BuildFunctionCall(Constants.kFunctionRangeExpression,
new List<ImperativeNode> { tmpFrom, tmpTo, tmpStep, op, tmpStepSkip });
NodeUtils.CopyNodeLocation(rangeExprFunc, range);
EmitFunctionCallNode(rangeExprFunc, ref inferedType, false, graphNode);
if (range.ArrayDimensions != null)
{
int dimensions = DfsEmitArrayIndexHeap(range.ArrayDimensions);
EmitInstrConsole(ProtoCore.DSASM.kw.pushindex, dimensions.ToString() + "[dim]");
EmitPushArrayIndex(dimensions);
}
}
private void EmitRangeExprNode(ImperativeNode node, ref ProtoCore.Type inferedType, ProtoCore.AssociativeGraph.GraphNode graphNode = null)
{
RangeExprNode range = node as RangeExprNode;
// Do some static checking...probably it is not necessary.
// Need to move these checkings to built-in function.
if ((range.FromNode is IntNode || range.FromNode is DoubleNode) &&
(range.ToNode is IntNode || range.ToNode is DoubleNode) &&
(range.StepNode == null || (range.StepNode != null && (range.StepNode is IntNode || range.StepNode is DoubleNode))))
{
double current = (range.FromNode is IntNode) ? (range.FromNode as IntNode).Value : (range.FromNode as DoubleNode).Value;
double end = (range.ToNode is IntNode) ? (range.ToNode as IntNode).Value : (range.ToNode as DoubleNode).Value;
ProtoCore.DSASM.RangeStepOperator stepoperator = range.stepoperator;
double step = 1;
if (range.StepNode != null)
{
step = (range.StepNode is IntNode) ? (range.StepNode as IntNode).Value : (range.StepNode as DoubleNode).Value;
}
bool hasAmountOp = range.HasRangeAmountOperator;
string warningMsg = String.Empty;
if (stepoperator == ProtoCore.DSASM.RangeStepOperator.stepsize)
{
if (!hasAmountOp)
{
if (range.StepNode == null && end < current)
{
step = -1;
}
if (step == 0)
{
warningMsg = WarningMessage.kRangeExpressionWithStepSizeZero;
}
else if ((end > current && step < 0) || (end < current && step > 0))
{
warningMsg = WarningMessage.kRangeExpressionWithInvalidStepSize;
}
}
}
else if (stepoperator == ProtoCore.DSASM.RangeStepOperator.num)
{
if (hasAmountOp)
{
warningMsg = WarningMessage.kRangeExpressionConflictOperator;
}
else if (range.StepNode != null && !(range.StepNode is IntNode))
{
warningMsg = WarningMessage.kRangeExpressionWithNonIntegerStepNumber;
}
else if (step <= 0)
{
warningMsg = WarningMessage.kRangeExpressionWithNegativeStepNumber;
}
}
else if (stepoperator == ProtoCore.DSASM.RangeStepOperator.approxsize)
{
if (hasAmountOp)
{
warningMsg = WarningMessage.kRangeExpressionConflictOperator;
}
else if (step == 0)
{
warningMsg = WarningMessage.kRangeExpressionWithStepSizeZero;
}
}
if (!string.IsNullOrEmpty(warningMsg))
{
buildStatus.LogWarning(WarningID.kInvalidRangeExpression,
warningMsg,
core.CurrentDSFileName,
range.StepNode.line,
range.StepNode.col);
EmitNullNode(new NullNode(), ref inferedType);
return;
}
}
// Replace with build-in RangeExpression() function. - Yu Ke
var tmpFrom = nodeBuilder.BuildTempVariable();
var assignFrom = nodeBuilder.BuildBinaryExpression(tmpFrom, range.FromNode);
EmitBinaryExpressionNode(assignFrom, ref inferedType);
var tmpTo = nodeBuilder.BuildTempVariable();
var assignTo = nodeBuilder.BuildBinaryExpression(tmpTo, range.ToNode);
EmitBinaryExpressionNode(assignTo, ref inferedType);
var tmpStep = nodeBuilder.BuildTempVariable();
var assignStep = nodeBuilder.BuildBinaryExpression(tmpStep, range.StepNode == null ? new NullNode() : range.StepNode);
EmitBinaryExpressionNode(assignStep, ref inferedType);
BooleanNode hasStep = new BooleanNode(range.StepNode != null);
var tmpStepSkip = nodeBuilder.BuildTempVariable();
var assignStepSkip = nodeBuilder.BuildBinaryExpression(tmpStepSkip, hasStep);
EmitBinaryExpressionNode(assignStepSkip, ref inferedType);
IntNode op = null;
switch (range.stepoperator)
{
case ProtoCore.DSASM.RangeStepOperator.stepsize:
op = new IntNode(0);
break;
case ProtoCore.DSASM.RangeStepOperator.num:
op = new IntNode(1);
break;
case ProtoCore.DSASM.RangeStepOperator.approxsize:
op = new IntNode(2);
break;
default:
op = new IntNode(-1);
break;
}
var rangeExprFunc = nodeBuilder.BuildFunctionCall(Constants.kFunctionRangeExpression,
new List<ImperativeNode> { tmpFrom, tmpTo, tmpStep, op, tmpStepSkip, new BooleanNode(range.HasRangeAmountOperator) });
NodeUtils.CopyNodeLocation(rangeExprFunc, range);
EmitFunctionCallNode(rangeExprFunc, ref inferedType, false, graphNode);
if (range.ArrayDimensions != null)
{
int dimensions = DfsEmitArrayIndexHeap(range.ArrayDimensions);
EmitInstrConsole(ProtoCore.DSASM.kw.pushindex, dimensions.ToString() + "[dim]");
EmitPushArrayIndex(dimensions);
}
}
public BooleanNode(BooleanNode rhs) : base(rhs)
{
Value = rhs.Value;
}
public BooleanNode(BooleanNode rhs)
: base(rhs)
{
value = rhs.value;
}
public BooleanNode(BooleanNode rhs)
: base(rhs)
{
value = rhs.value;
}
public BooleanNode(BooleanNode rhs) : base(rhs)
{
Value = rhs.Value;
}