/// <summary>
/// Visits the Keyword Message Sequence node.
/// </summary>
/// <param name="node">The node to visit.</param>
public virtual TResult VisitKeywordMessageSequence(KeywordMessageSequenceNode node)
{
if (node.Message != null)
{
node.Message.Accept(this);
}
return(default(TResult)); // The default naive implementation
}
protected virtual KeywordMessageSequenceNode ParseKeywordMessageSequence(IMessageSequenceParentNode parent, KeywordToken token)
{
// PARSE: <keyword message>
KeywordMessageSequenceNode result = new KeywordMessageSequenceNode(parent);
// NB: ParseKeywordMessage() cannot fail, so we don't check result
KeywordMessageNode message = this.ParseKeywordMessage(result, token);
result.SetContents(message);
return(result);
}
/// <summary>
/// Visits the Keyword Message Sequence node.
/// </summary>
/// <param name="node">The node to visit.</param>
public override bool VisitKeywordMessageSequence(KeywordMessageSequenceNode node)
{
if (node.Parent == null)
{
return(false);
}
if ((node.Message == null) || !node.Message.Accept(this))
{
return(false);
}
return(true);
}
/// <summary>
/// Visits the Keyword Message Sequence node.
/// </summary>
/// <param name="node">The node to visit.</param>
public virtual TResult VisitKeywordMessageSequence(KeywordMessageSequenceNode node)
{
throw new NotImplementedException();
}
private Expression EncodeInlinedLoop(BasicExpressionNode node)
{
if (node.CascadeMessages != null)
{
return(null);
}
if (node.Messages == null)
{
return(null);
}
BlockNode conditionBlock = node.Primary as BlockNode;
if (conditionBlock == null)
{
return(null);
}
if (conditionBlock.Arguments.Count != 0)
{
return(null);
}
UnaryBinaryKeywordMessageSequenceNode unarySeq = node.Messages as UnaryBinaryKeywordMessageSequenceNode;
if (unarySeq != null)
{
string selector = unarySeq.Message.SelectorToken.Value;
if ((selector != "whileTrue") && (selector != "whileFalse"))
{
return(null);
}
return(this.EncodeInlineWhile(conditionBlock, null, (selector == "whileFalse")));
}
KeywordMessageSequenceNode keywordSeq = node.Messages as KeywordMessageSequenceNode;
if (keywordSeq != null)
{
if (keywordSeq.Message.SelectorTokens.Count != 1)
{
return(null);
}
string selector = keywordSeq.Message.SelectorTokens[0].Value;
if ((selector != "whileTrue:") && (selector != "whileFalse:"))
{
return(null);
}
if (keywordSeq.Message.Arguments.Count != 1)
{
return(null);
}
KeywordArgumentNode arg = keywordSeq.Message.Arguments[0];
if (arg.Messages != null)
{
return(null);
}
BlockNode valueBlock = arg.Primary as BlockNode;
if (valueBlock == null)
{
return(null);
}
if (valueBlock.Arguments.Count != 0)
{
return(null);
}
return(this.EncodeInlineWhile(conditionBlock, valueBlock, (selector == "whileFalse:")));
}
return(null);
}
