Changeset 230 for branches/xpascal/Parser.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/Parser.pas (modified) (4 diffs)

branches/xpascal/Parser.pas

@@ -31 +31 @@
 implementation
 
+resourcestring
+  SCannotParseProgram = 'Cannot parse program.';
+
 { TParser }
 
@@ -188 +191 @@
     ResultType := TypeInteger;
   end;
+  with Block.Functions.AddNew('BoolToStr') do begin
+    InternalName := 'BoolToStr';
+    Params.AddNew('Value', TypeBoolean);
+    ResultType := TypeString;
+  end;
+  with Block.Functions.AddNew('StrToBool') do begin
+    InternalName := 'StrToBool';
+    Params.AddNew('Value', TypeString);
+    ResultType := TypeBoolean;
+  end;
   with Block.Functions.AddNew('WriteLn') do begin
     InternalName := 'WriteLn';
@@ -195 +208 @@
     InternalName := 'Write';
     Params.AddNew('Text', TypeString);
+  end;
+  with Block.Functions.AddNew('ReadLn') do begin
+    InternalName := 'ReadLn';
+    with Params.AddNew('Text', TypeString) do
+      Kind := pkVar;
+  end;
+  with Block.Functions.AddNew('Read') do begin
+    InternalName := 'Read';
+    with Params.AddNew('Text', TypeString) do
+      Kind := pkVar;
   end;
 end;
@@ -214 +237 @@
   if ParseProgram(SystemBlock, NewProg) then begin
     Prog := NewProg;
-  end else Tokenizer.Error('Cannot parse program.');
+  end else Tokenizer.Error(SCannotParseProgram);
 end;