pascalabcnet/SyntaxVisitors/PatternsVisitors/SingleDeconstructChecker.cs

42 lines
1.1 KiB
C#
Raw Normal View History

2018-05-23 22:16:25 +03:00
using PascalABCCompiler.SyntaxTree;
using PascalABCCompiler.TreeConverter;
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace SyntaxVisitors
{
public class SingleDeconstructChecker : BaseEnterExitVisitor
{
private int deconstructCount = 0;
private bool isInClass = false;
public static SingleDeconstructChecker New => new SingleDeconstructChecker();
public override void Enter(syntax_tree_node st)
{
if (st is class_definition)
isInClass = true;
}
public override void Exit(syntax_tree_node st)
{
if (st is class_definition)
isInClass = false;
}
public override void visit(method_name _method_name)
{
if (!isInClass)
return;
if (_method_name.meth_name.name.ToLower() == compiler_string_consts.deconstruct_method_name)
deconstructCount++;
if (deconstructCount > 1)
throw new SyntaxVisitorError("ONLY_ONE_DECONSTRUCT_ALLOWED", _method_name.Parent.source_context);
}
}
}