Changeset 142 for branches/easy compiler/USourceExecutor.pas

Timestamp:

Jan 16, 2018, 3:19:23 PM (6 years ago)

Author:

chronos

Message:

• Added: Support for begin end block.

File:

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

branches/easy compiler/USourceExecutor.pas

@@ -28 +28 @@
     FOnOutput: TOutputEvent;
     Variables: TExecutorVariables;
+    procedure ExecuteBeginEnd(BeginEnd: TSourceBeginEnd);
   public
     constructor Create;
@@ -68 +69 @@
 
 procedure TSourceExecutor.Execute(SourceCode: TSourceCode);
+begin
+  ExecuteBeginEnd(SourceCode.Main);
+end;
+
+procedure TSourceExecutor.ExecuteBeginEnd(BeginEnd: TSourceBeginEnd);
 var
   IP: Integer;
@@ -96 +102 @@
 begin
   IP := 0;
-  while IP < SourceCode.Instructions.Count do begin
-    Instruction := TSourceInstruction(SourceCode.Instructions[IP]);
-    if Instruction is TSourceInstructionFunction then
-    with TSourceInstructionFunction(Instruction) do begin
+  while IP < BeginEnd.Instructions.Count do begin
+    Instruction := TSourceInstruction(BeginEnd.Instructions[IP]);
+    if Instruction is TSourceFunctionCall then
+    with TSourceFunctionCall(Instruction) do begin
       if Name = 'print' then begin
         if Assigned(FOnOutput) then begin
@@ -156 +162 @@
         else raise Exception.Create('Wrong type for increment');
       end else
-      raise Exception.Create('Unsupported function: ' + TSourceInstructionFunction(Instruction).Name);
-    end else raise Exception.Create('Unsupported instruction');
+      raise Exception.Create('Unsupported function: ' + TSourceFunctionCall(Instruction).Name);
+    end else
+    if Instruction is TSourceBeginEnd then begin
+      ExecuteBeginEnd(TSourceBeginEnd(Instruction));
+    end else
+    raise Exception.Create('Unsupported instruction');
     Inc(IP);
   end;