Changeset 146 for branches/easy compiler/USourceExecutor.pas

Timestamp:

Jan 17, 2018, 2:25:45 PM (7 years ago)

Author:

chronos

Message:

• Modified: ParseBeginEnd method split to several other items for parsing each specific command.

File:

• branches/easy compiler/USourceExecutor.pas (modified) (5 diffs)

branches/easy compiler/USourceExecutor.pas

@@ -31 +31 @@
     FOnOutput: TOutputEvent;
     Variables: TExecutorVariables;
-    procedure ExecuteBeginEnd(BeginEnd: TSourceBeginEnd);
+    procedure ExecuteBeginEnd(BeginEnd: TCommandBeginEnd);
   public
     constructor Create;
@@ -84 +84 @@
 end;
 
-procedure TSourceExecutor.ExecuteBeginEnd(BeginEnd: TSourceBeginEnd);
+procedure TSourceExecutor.ExecuteBeginEnd(BeginEnd: TCommandBeginEnd);
 var
   IP: Integer;
-  Instruction: TSourceInstruction;
+  Instruction: TSourceCommand;
   Variable: TSourceVariable;
   Value: TSourceValue;
@@ -93 +93 @@
   Text: string;
   IntValue: Integer;
+  SkipNext: Boolean;
 
 function ReadValueReference(Reference: TSourceReference): TSourceValue;
@@ -114 +115 @@
 
 begin
+  SkipNext := False;
   IP := 0;
   while IP < BeginEnd.Instructions.Count do begin
-    Instruction := TSourceInstruction(BeginEnd.Instructions[IP]);
-    if Instruction is TSourceFunctionCall then
-    with TSourceFunctionCall(Instruction) do begin
+    if SkipNext then begin
+      SkipNext := False;
+      Inc(IP);
+      Continue;
+    end;
+    Instruction := TSourceCommand(BeginEnd.Instructions[IP]);
+    if Instruction is TCommandFunctionCall then
+    with TCommandFunctionCall(Instruction) do begin
       if Name = 'print' then begin
         if Assigned(FOnOutput) then begin
@@ -178 +185 @@
         else raise Exception.Create('Wrong type for increment');
       end else
-      raise Exception.Create('Unsupported function: ' + TSourceFunctionCall(Instruction).Name);
+      raise Exception.Create('Unsupported function: ' + TCommandFunctionCall(Instruction).Name);
     end else
-    if Instruction is TSourceBeginEnd then begin
-      ExecuteBeginEnd(TSourceBeginEnd(Instruction));
+    if Instruction is TCommandBeginEnd then begin
+      ExecuteBeginEnd(TCommandBeginEnd(Instruction));
+    end else
+    if Instruction is TCommandIfZero then begin
+      ExecutorVar := Variables.Search(TCommandIfZero(Instruction).Variable);
+      if Assigned(ExecutorVar) then begin
+        if ExecutorVar.Variable.ValueType.Name = 'Integer' then begin
+          if TSourceValueInteger(ExecutorVar.Value).Value = 0 then SkipNext := True;
+        end else
+        raise Exception.Create('Can compare only integers');
+      end else
+      raise Exception.Create('Variable not found');
     end else
     raise Exception.Create('Unsupported instruction');