Changeset 97 for branches/interpreter/Source3.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/Source3.pas (modified) (4 diffs)

branches/interpreter/Source3.pas

@@ -49 +49 @@
   TFunctionCall = procedure ;
 
+  TCmdType = (ctWhileDo, ctIfThenElse, ctBeginEnd, ctAssignment, ctExecution);
   TCommand = record
-  end;
+    CmdType: TCmdType;
+    Ptr: Pointer;
+{    case Integer of
+      0: (WhileDo: TWhileDo);
+      1: (IfThenElse: TIfThenElse);
+      2: (BeginEnd: TBeginEnd);
+      3: (Assignment: TAssignment);
+      4: (Execution: TExecution);
+    end;
+ } end;
   PCommand = ^TCommand;
 
   TBeginEnd = record
-    Commands: array of PCommand;
+    Commands: array of TCommand;
   end;
   PBeginEnd = ^TBeginEnd;
@@ -66 +76 @@
     Source: TExpression;
   end;
+  PAssignment = ^TAssignment;
 
   TIfThenElse = record
@@ -73 +84 @@
   end;
   PIfThenElse = ^TIfThenElse;
+
+  TWhileDo = record
+    Condition: TExpression;
+    Command: TCommand;
+  end;
+  PWhileDo = ^TWhileDo;
 
   { TFunction }
@@ -93 +110 @@
   end;
 
+  TExecutionParams = record
+    Items: array of TExpression;
+  end;
+
+  TExecution = record
+    Func: PFunction;
+    Parameters: TExecutionParams;
+  end;
+  PExecution = ^TExecution;
+
   TProgramCode = record
     Name: string;