Changeset 205 for branches/interpreter2/USource.pas

Timestamp:

Apr 20, 2020, 1:10:44 AM (5 years ago)

Author:

chronos

Message:

• Added: Support for repeat-until.

Location:

branches/interpreter2

Files:

• . (modified) (1 prop)
• USource.pas (modified) (5 diffs)

branches/interpreter2

@@ -4 +4 @@
 interpreter.res
 heaptrclog.trc
+Generated

@@ -4 +4 @@
 interpreter.res
 heaptrclog.trc
+Generated

branches/interpreter2/USource.pas

@@ -117 +117 @@
   end;
 
+  TCommands = class(TObjectList)
+  end;
+
   { TFunctionCall }
 
@@ -129 +132 @@
 
   TBeginEnd = class(TCommand)
-    Commands: TObjectList;
+    Commands: TCommands;
     procedure Clear;
     constructor Create;
@@ -197 +200 @@
     Expression: TExpression;
     Command: TCommand;
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  { TRepeatUntil }
+
+  TRepeatUntil = class(TCommand)
+    Expression: TExpression;
+    Commands: TCommands;
     constructor Create;
     destructor Destroy; override;
@@ -243 +255 @@
 implementation
 
+{ TRepeatUntil }
+
+constructor TRepeatUntil.Create;
+begin
+  Expression := TExpression.Create;
+  Commands := TCommands.Create;
+end;
+
+destructor TRepeatUntil.Destroy;
+begin
+  Expression.Free;
+  Commands.Free;
+  inherited Destroy;
+end;
+
 { TValueBoolean }
 
@@ -579 +606 @@
 constructor TBeginEnd.Create;
 begin
-  Commands := TObjectList.Create;
+  Commands := TCommands.Create;
 end;
 

@@ -4 +4 @@
 interpreter.res
 heaptrclog.trc
+Generated