Changeset 222 for branches/interpreter2/UParser.pas

Timestamp:

Nov 25, 2020, 12:18:45 AM (4 years ago)

Author:

chronos

Message:

• Added: Support for more expression operators.
• Added: Support for brackets in expressions.

File:

• branches/interpreter2/UParser.pas (modified) (5 diffs)

branches/interpreter2/UParser.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Contnrs, UTokenizer, USource;
+  Classes, SysUtils, UTokenizer, USource;
 
 type
@@ -59 +59 @@
       ResultType := TypeBoolean;
     end;
+    with Functions.AddNew('_NotEqual') do begin
+      Params.AddNew('A', TypeBoolean);
+      Params.AddNew('B', TypeBoolean);
+      ResultType := TypeBoolean;
+    end;
+    with Functions.AddNew('_Not') do begin
+      Params.AddNew('A', TypeBoolean);
+      ResultType := TypeBoolean;
+    end;
   end;
   TypeString := Block.Types.AddNew('string');
@@ -100 +109 @@
       ResultType := TypeInteger;
     end;
+    with Functions.AddNew('_Mul') do begin
+      Params.AddNew('A', TypeInteger);
+      Params.AddNew('B', TypeInteger);
+      ResultType := TypeInteger;
+    end;
+    with Functions.AddNew('_IntDiv') do begin
+      Params.AddNew('A', TypeInteger);
+      Params.AddNew('B', TypeInteger);
+      ResultType := TypeInteger;
+    end;
+    with Functions.AddNew('_Mod') do begin
+      Params.AddNew('A', TypeInteger);
+      Params.AddNew('B', TypeInteger);
+      ResultType := TypeInteger;
+    end;
     with Functions.AddNew('_Equal') do begin
       Params.AddNew('A', TypeInteger);
@@ -109 +133 @@
       Params.AddNew('B', TypeInteger);
       ResultType := TypeBoolean;
+    end;
+    with Functions.AddNew('_Lesser') do begin
+      Params.AddNew('A', TypeInteger);
+      Params.AddNew('B', TypeInteger);
+      ResultType := TypeBoolean;
+    end;
+    with Functions.AddNew('_Higher') do begin
+      Params.AddNew('A', TypeInteger);
+      Params.AddNew('B', TypeInteger);
+      ResultType := TypeBoolean;
+    end;
+    with Functions.AddNew('_LesserOrEqual') do begin
+      Params.AddNew('A', TypeInteger);
+      Params.AddNew('B', TypeInteger);
+      ResultType := TypeBoolean;
+    end;
+    with Functions.AddNew('_HigherOrEqual') do begin
+      Params.AddNew('A', TypeInteger);
+      Params.AddNew('B', TypeInteger);
+      ResultType := TypeBoolean;
+    end;
+    with Functions.AddNew('_Shr') do begin
+      Params.AddNew('A', TypeInteger);
+      Params.AddNew('B', TypeInteger);
+      ResultType := TypeInteger;
+    end;
+    with Functions.AddNew('_Shl') do begin
+      Params.AddNew('A', TypeInteger);
+      Params.AddNew('B', TypeInteger);
+      ResultType := TypeInteger;
+    end;
+    with Functions.AddNew('_And') do begin
+      Params.AddNew('A', TypeInteger);
+      Params.AddNew('B', TypeInteger);
+      ResultType := TypeInteger;
+    end;
+    with Functions.AddNew('_Or') do begin
+      Params.AddNew('A', TypeInteger);
+      Params.AddNew('B', TypeInteger);
+      ResultType := TypeInteger;
+    end;
+    with Functions.AddNew('_Xor') do begin
+      Params.AddNew('A', TypeInteger);
+      Params.AddNew('B', TypeInteger);
+      ResultType := TypeInteger;
     end;
   end;
@@ -133 +202 @@
 function TParser.ParseProgram(SystemBlock: TBlock; out Prog: TProgram): Boolean;
 begin
+  Result := False;
 end;