Changeset 207 for branches/interpreter2/UExecutor.pas

Timestamp:

Apr 20, 2020, 11:31:59 PM (5 years ago)

Author:

chronos

Message:

• Added: Optimizer class for implementation of various optimizations on AST.
• Added: Transformation of repeat-until loop to while-do loop.

File:

• branches/interpreter2/UExecutor.pas (modified) (4 diffs)

branches/interpreter2/UExecutor.pas

@@ -104 +104 @@
     procedure ExecuteRepeatUntil(Block: TExecutorBlock; RepeatUntil: TRepeatUntil);
     procedure ExecuteForToDo(Block: TExecutorBlock; ForToDo: TForToDo);
+    procedure ExecuteContinue(Block: TExecutorBlock; ContinueCmd: TContinue);
+    procedure ExecuteBreak(Block: TExecutorBlock; BreakCmd: TBreak);
     procedure ExecuteBlock(ParentBlock: TExecutorBlock; Block: TBlock);
     function ExecuteFunctionCall(Block: TExecutorBlock; FunctionCall: TFunctionCall): TValue;
@@ -435 +437 @@
   else if Command is TRepeatUntil then ExecuteRepeatUntil(Block, TRepeatUntil(Command))
   else if Command is TForToDo then ExecuteForToDo(Block, TForToDo(Command))
+  else if Command is TBreak then ExecuteBreak(Block, TBreak(Command))
+  else if Command is TContinue then ExecuteContinue(Block, TContinue(Command))
+  else if Command is TEmptyCommand then
   else raise Exception.Create('Unsupported command type');
 end;
@@ -446 +451 @@
   if Value is TValueBoolean then begin
     if TValueBoolean(Value).Value then ExecuteCommand(Block, IfThenElse.CommandThen)
-      else ExecuteCommand(Block, IfThenElse.CommandElse);
+      else begin
+        if not (IfThenElse.CommandElse is TCommand) then
+          ExecuteCommand(Block, IfThenElse.CommandElse);
+      end;
   end else raise Exception.Create('Expected boolean value.');
   Value.Free;
@@ -497 +505 @@
   end;
   Limit.Free;
+end;
+
+procedure TExecutor.ExecuteContinue(Block: TExecutorBlock;
+  ContinueCmd: TContinue);
+begin
+
+end;
+
+procedure TExecutor.ExecuteBreak(Block: TExecutorBlock; BreakCmd: TBreak);
+begin
+
 end;