/// <summary>
/// The visit subroutine for references.
/// A reference can point either to a function (when it's a function call)
/// or a parameter of the currently visited function.
/// </summary>
public override VisitorResult VisitRefExp([NotNull] HaskellmmParser.RefExpContext context)
{
if (context.children[0].ChildCount == 0)
{
throw new VisitException(context, "RefExps are expected to contain grandchildren.");
}
var child = context.children[0];
string refName = child.GetChild(0).GetText();
if (currentFunction.Parameters.FindIndex(p => p.Name == refName) > -1)
{
AddParamReferenceNode(context, refName);
}
else
{
NodeContext nodeContext = CreateNodeContext(context);
int parameterCount = child.ChildCount - 1;
ExprNode node = new FunctionReferenceNode(nodeContext, refName, parameterCount);
AddExprNode(node);
if (parameterCount == 0)
{
currentNode = FindEarliestParentWithUnfilledChildren(currentNode);
}
}
return(base.VisitRefExp(context));
}
/// <summary>
/// Visit a parse tree produced by the <c>refExp</c>
/// labeled alternative in <see cref="HaskellmmParser.expr"/>.
/// <para>
/// The default implementation returns the result of calling <see cref="AbstractParseTreeVisitor{Result}.VisitChildren(IRuleNode)"/>
/// on <paramref name="context"/>.
/// </para>
/// </summary>
/// <param name="context">The parse tree.</param>
/// <return>The visitor result.</return>
public virtual Result VisitRefExp([NotNull] HaskellmmParser.RefExpContext context)
{
return(VisitChildren(context));
}
/// <summary>
/// Exit a parse tree produced by the <c>refExp</c>
/// labeled alternative in <see cref="HaskellmmParser.expr"/>.
/// <para>The default implementation does nothing.</para>
/// </summary>
/// <param name="context">The parse tree.</param>
public virtual void ExitRefExp([NotNull] HaskellmmParser.RefExpContext context)
{
}
