Changeset 97 for branches/interpreter/Execute3.pas

Timestamp:

Feb 2, 2017, 11:35:09 PM (8 years ago)

Author:

chronos

Message:

• Modified: Improved parsin and prepared analyzed source execution.

File:

• branches/interpreter/Execute3.pas (modified) (1 diff)

branches/interpreter/Execute3.pas

@@ -11 +11 @@
 implementation
 
+procedure ExecuteCommand(Command: PCommand); forward;
+
+procedure ExecuteBeginEnd(BeginEnd: PBeginEnd);
+var
+  I: Integer;
+begin
+  for I := 0 to Length(BeginEnd^.Commands) - 1 do
+    ExecuteCommand(@BeginEnd^.Commands[I]);
+end;
+
+function ExecuteExpression(Expression: PExpression): Boolean;
+begin
+
+end;
+
+procedure ExecuteWhileDo(WhileDo: PWhileDo);
+begin
+  if ExecuteExpression(@WhileDo^.Condition) then
+    ExecuteCommand(@WhileDo^.Command);
+end;
+
+procedure ExecuteIfThenElse(IfThenElse: PIfThenElse);
+begin
+  if ExecuteExpression(@IfThenElse^.Condition) then
+    ExecuteCommand(@IfThenElse^.DoThen)
+    else ExecuteCommand(@IfThenElse^.DoElse);
+end;
+
+procedure ExecuteExecution(Execution: PExecution);
+begin
+  // Set parameters
+  ExecuteBeginEnd(@Execution^.Func^.BeginEnd);
+end;
+
+procedure ExecuteAssignment(Assignment: PAssignment);
+begin
+
+end;
+
+procedure ExecuteCommand(Command: PCommand);
+begin
+  case Command^.CmdType of
+    ctBeginEnd: ExecuteBeginEnd(PBeginEnd(Command^.Ptr));
+    ctWhileDo: ExecuteWhileDo(PWhileDo(Command^.Ptr));
+    ctIfThenElse: ExecuteIfThenElse(PIfThenElse(Command^.Ptr));
+    ctExecution: ExecuteExecution(PExecution(Command^.Ptr));
+    ctAssignment: ExecuteAssignment(PAssignment(Command^.Ptr));
+  end;
+end;
+
 procedure ExecuteProgram(ProgramCode: PProgramCode);
 begin
-
+  ExecuteBeginEnd(@ProgramCode^.BeginEnd);
 end;