Parse the variable part to AST

source/Parser.elna

@@ -283,4 +283,58 @@ begin
   return result
 end;
 
+proc parse_variable_declaration(lexer: PLexer) -> PAstVariableDeclaration;
+var
+  token: LexerToken;
+  result: PAstVariableDeclaration;
+begin
+  ALLOCATE(result, TSIZE(AstVariableDeclaration));
+
+  token := lexer_current(lexer);
+  result^.variable_name := token.identifierKind;
+
+  token := transpiler_lex(lexer);
+
+  token := transpiler_lex(lexer);
+  result^.variable_type := parse_type_expression(lexer);
+
+  token := transpiler_lex(lexer);
+  return result
+end;
+
+proc parse_variable_part(lexer: PLexer) -> PPAstVariableDeclaration;
+var
+  token: LexerToken;
+  result: PPAstVariableDeclaration;
+  current_declaration: PPAstVariableDeclaration;
+  declaration_count: CARDINAL;
+begin
+  token := lexer_current(lexer);
+
+  ALLOCATE(result, TSIZE(PAstVariableDeclaration));
+  current_declaration := result;
+  declaration_count := 0;
+
+  if token.kind = lexerKindVar then
+    token := transpiler_lex(lexer);
+
+    while token.kind = lexerKindIdentifier do
+      INC(declaration_count);
+
+      REALLOCATE(result, TSIZE(PAstVariableDeclaration) * (declaration_count + 1));
+      current_declaration := result;
+      INC(current_declaration, TSIZE(PAstVariableDeclaration) * (declaration_count - 1));
+
+      current_declaration^ := parse_variable_declaration(lexer);
+      token := transpiler_lex(lexer)
+    end
+  end;
+  if declaration_count <> 0 then
+    INC(current_declaration, TSIZE(PAstVariableDeclaration))
+  end;
+  current_declaration^ := nil;
+
+  return result
+end;
+
 end.