public virtual void VisitVariantSectionNode(VariantSectionNode node)
{
Visit(node.CaseKeywordNode);
Visit(node.NameNode);
Visit(node.ColonNode);
Visit(node.TypeNode);
Visit(node.OfKeywordNode);
Visit(node.VariantGroupListNode);
}
public override void VisitVariantSectionNode(VariantSectionNode node)
{
RecordTypeNode record = node.ParentNodeOfType <RecordTypeNode>();
ITypeDeclaration typeDeclaration = record.ParentNodeOfType <ITypeDeclaration>();
AddHit(node,
AstNode.ToCode(typeDeclaration.FirstNameNode, record.RecordKeywordNode) + " ... " +
AstNode.ToCode(node.CaseKeywordNode, node.OfKeywordNode));
base.VisitVariantSectionNode(node);
}
