Add CaseStatementNode::getSelectorExpression

Author: jgardn3r

CHANGELOG.md

@@ -11,6 +11,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 - **API:** `RepeatStatementNode::getGuardExpression` method.
 - **API:** `RepeatStatementNode::getStatementList` method.
+- **API:** `CaseStatementNode::getSelectorExpression` method.
 
 ### Fixed
 

delphi-frontend/src/main/java/au/com/integradev/delphi/antlr/ast/node/CaseStatementNodeImpl.java

@@ -25,12 +25,18 @@
 import org.sonar.plugins.communitydelphi.api.ast.CaseItemStatementNode;
 import org.sonar.plugins.communitydelphi.api.ast.CaseStatementNode;
 import org.sonar.plugins.communitydelphi.api.ast.ElseBlockNode;
+import org.sonar.plugins.communitydelphi.api.ast.ExpressionNode;
 
 public final class CaseStatementNodeImpl extends DelphiNodeImpl implements CaseStatementNode {
   public CaseStatementNodeImpl(Token token) {
     super(token);
   }
 
+  @Override
+  public ExpressionNode getSelectorExpression() {
+    return getFirstChildOfType(ExpressionNode.class);
+  }
+
   @Override
   public List<CaseItemStatementNode> getCaseItems() {
     return findChildrenOfType(CaseItemStatementNode.class);

delphi-frontend/src/main/java/org/sonar/plugins/communitydelphi/api/ast/CaseStatementNode.java

@@ -22,6 +22,8 @@
 import javax.annotation.Nullable;
 
 public interface CaseStatementNode extends StatementNode {
+  ExpressionNode getSelectorExpression();
+
   List<CaseItemStatementNode> getCaseItems();
 
   @Nullable