Changeset 230 for branches/xpascal/Parsers/ParserPascal.pas

Timestamp:

Jun 26, 2023, 12:08:45 PM (17 months ago)

Author:

chronos

Message:

• Added: Var function parameters support.
• Added: Read and ReadLn procedures support.
• Added: Interpreter now prints into console form.

File:

• branches/xpascal/Parsers/ParserPascal.pas (modified) (1 diff)

branches/xpascal/Parsers/ParserPascal.pas

@@ -347 +347 @@
   Token: TToken;
   TypeRef: TType;
+  ParamKind: TFunctionParamKind;
 begin
   Result := True;
+  if Tokenizer.CheckNext('var', tkKeyword) then begin
+    Tokenizer.GetNext;
+    ParamKind := pkVar;
+  end;
   Token := Tokenizer.GetNext;
   if Token.Kind = tkIdentifier then begin
     Parameter := TFunctionParameter.Create;
+    Parameter.Kind := ParamKind;
     Parameter.Name := Token.Text;
     Tokenizer.Expect(':', tkSpecialSymbol);