Changeset 213 for branches/interpreter2/USource.pas

Timestamp:

Apr 22, 2020, 10:23:31 PM (6 years ago)

Author:

chronos

Message:

• Added: Transformation of Result variable assignment into Return statement.

File:

• branches/interpreter2/USource.pas (modified) (2 diffs)

branches/interpreter2/USource.pas

@@ -308 +308 @@
   end;
 
+  { TReturn }
+
+  TReturn = class(TCommand)
+  private
+    function GetFieldsCount: Integer; override;
+  public
+    Expression: TExpression;
+    procedure GetValue(Index: Integer; out Value); override;
+    function GetField(Index: Integer): TField; override;
+    procedure SetValue(Index: Integer; var Value); override;
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
   { TIfThenElse }
 
@@ -437 +451 @@
   SYes = 'Yes';
   SNo = 'No';
+
+{ TReturn }
+
+function TReturn.GetFieldsCount: Integer;
+begin
+  Result := 1;
+end;
+
+procedure TReturn.GetValue(Index: Integer; out Value);
+begin
+  if Index = 0 then TExpression(Value) := Expression
+  else inherited;
+end;
+
+function TReturn.GetField(Index: Integer): TField;
+begin
+  if Index = 0 then Result := TField.Create(dtObject, 'Expression')
+  else inherited;
+end;
+
+procedure TReturn.SetValue(Index: Integer; var Value);
+begin
+  if Index = 0 then Expression := TExpression(Value)
+  else inherited;
+end;
+
+constructor TReturn.Create;
+begin
+  Expression := TExpression.Create;
+end;
+
+destructor TReturn.Destroy;
+begin
+  Expression.Free;
+  inherited Destroy;
+end;
 
 { TField }