Add RepeatStatementNode helpers

Author: jgardn3r

CHANGELOG.md

@@ -7,6 +7,11 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ## [Unreleased]
 
+### Added
+
+- **API:** `RepeatStatementNode::getGuardExpression` method.
+- **API:** `RepeatStatementNode::getStatements` method.
+
 ### Fixed
 
 - Parsing errors where adjacent `>` and `=` tokens were wrongly interpreted as the `>=` operator.

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

@@ -20,13 +20,25 @@
 
 import au.com.integradev.delphi.antlr.ast.visitors.DelphiParserVisitor;
 import org.antlr.runtime.Token;
+import org.sonar.plugins.communitydelphi.api.ast.ExpressionNode;
 import org.sonar.plugins.communitydelphi.api.ast.RepeatStatementNode;
+import org.sonar.plugins.communitydelphi.api.ast.StatementListNode;
 
 public final class RepeatStatementNodeImpl extends DelphiNodeImpl implements RepeatStatementNode {
   public RepeatStatementNodeImpl(Token token) {
     super(token);
   }
 
+  @Override
+  public ExpressionNode getGuardExpression() {
+    return (ExpressionNode) getChild(2);
+  }
+
+  @Override
+  public StatementListNode getStatementList() {
+    return (StatementListNode) getChild(0);
+  }
+
   @Override
   public <T> T accept(DelphiParserVisitor<T> visitor, T data) {
     return visitor.visit(this, data);

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

@@ -18,4 +18,8 @@
  */
 package org.sonar.plugins.communitydelphi.api.ast;
 
-public interface RepeatStatementNode extends StatementNode {}
+public interface RepeatStatementNode extends StatementNode {
+  ExpressionNode getGuardExpression();
+
+  StatementListNode getStatementList();
+}