Changeset 148 for branches/easy compiler/USourceCode.pas

Timestamp:

Jan 17, 2018, 5:27:23 PM (7 years ago)

Author:

chronos

Message:

• Added: Unfinished support for variable arrays.

File:

• branches/easy compiler/USourceCode.pas (modified) (9 diffs)

branches/easy compiler/USourceCode.pas

@@ -28 +28 @@
   end;
 
+  TSourceValues = class(TObjectList)
+  end;
+
   TSourceValueClass = class of TSourceValue;
 
@@ -34 +37 @@
   TSourceType = class
     Name: string;
-    ValueClass: TSourceValueClass;
-  end;
+    function GetValueType: TSourceValueClass; virtual;
+  end;
+
+  TSourceTypeClass = class of TSourceType;
 
   { TSourceTypes }
@@ -41 +46 @@
   TSourceTypes = class(TObjectList)
     Parent: TSourceTypes;
-    function AddNew(Name: string; ClassType: TSourceValueClass): TSourceType;
+    function AddNew(Name: string; ClassType: TSourceTypeClass): TSourceType;
     function Search(Name: string): TSourceType;
   end;
+
+  { TSourceTypeInteger }
+
+  TSourceTypeInteger = class(TSourceType)
+    function GetValueType: TSourceValueClass; override;
+  end;
+
+  { TSourceTypeString }
+
+  TSourceTypeString = class(TSourceType)
+    function GetValueType: TSourceValueClass; override;
+  end;
+
+  { TSourceTypeArray }
+
+  TSourceTypeArray = class(TSourceType)
+    ItemType: TSourceType;
+    function GetValueType: TSourceValueClass; override;
+  end;
+
 
   { TSourceVariable }
@@ -64 +89 @@
   end;
 
+  TSourceReferenceArray = class(TSourceReference)
+    ArrayRef: TSourceVariable;
+    Index: TSourceReference;
+  end;
+
   { TSourceValueString }
 
@@ -76 +106 @@
     Value: Integer;
     procedure Assign(Source: TSourceValue); override;
+  end;
+
+  { TSourceValueArray }
+
+  TSourceValueArray = class(TSourceValue)
+    Items: TSourceValues;
+    procedure Assign(Source: TSourceValue); override;
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -146 +185 @@
   end;
 
-  { TCommandIfZero }
-
-  TCommandIfZero = class(TSourceCommand)
-    Variable: TSourceReferenceVariable;
+  { TCommandIfEqual }
+
+  TCommandIfEqual = class(TSourceCommand)
+    Reference1: TSourceReference;
+    Reference2: TSourceReference;
     destructor Destroy; override;
   end;
@@ -184 +224 @@
 implementation
 
-{ TCommandIfZero }
-
-destructor TCommandIfZero.Destroy;
-begin
-  Variable.Free;
+{ TSourceType }
+
+function TSourceType.GetValueType: TSourceValueClass;
+begin
+  Result := nil;
+end;
+
+{ TSourceTypeInteger }
+
+function TSourceTypeInteger.GetValueType: TSourceValueClass;
+begin
+  Result := TSourceValueInteger;
+end;
+
+{ TSourceTypeString }
+
+function TSourceTypeString.GetValueType: TSourceValueClass;
+begin
+  Result := TSourceValueString;
+end;
+
+{ TSourceTypeArray }
+
+function TSourceTypeArray.GetValueType: TSourceValueClass;
+begin
+  Result := TSourceValueArray;
+end;
+
+{ TSourceValueArray }
+
+procedure TSourceValueArray.Assign(Source: TSourceValue);
+var
+  I: Integer;
+  Value: TSourceValue;
+begin
+  if Source is TSourceValueInteger then begin
+    while Items.Count < TSourceValueArray(Source).Items.Count do begin
+      Value := TSourceValue(TSourceValue(TSourceValueArray(Source).Items[Items.Count]).ClassType.Create);
+      Items.Add(Value);
+    end;
+    while Items.Count > TSourceValueArray(Source).Items.Count do begin
+      Items.Delete(Items.Count - 1);
+    end;
+    for I := 0 to Items.Count - 1 do
+      TSourceValue(Items[I]).Assign(TSourceValue(TSourceValueArray(Source).Items[I]));
+  end else raise Exception.Create('Type for assignment not matches');
+end;
+
+constructor TSourceValueArray.Create;
+begin
+  Items := TSourceValues.Create;
+end;
+
+destructor TSourceValueArray.Destroy;
+begin
+  Items.Free;
+  inherited Destroy;
+end;
+
+{ TCommandIfEqual }
+
+destructor TCommandIfEqual.Destroy;
+begin
+  Reference1.Free;
+  Reference2.Free;
   inherited Destroy;
 end;
@@ -236 +336 @@
 { TSourceTypes }
 
-function TSourceTypes.AddNew(Name: string; ClassType: TSourceValueClass): TSourceType;
-begin
-  Result := TSourceType.Create;
+function TSourceTypes.AddNew(Name: string; ClassType: TSourceTypeClass): TSourceType;
+begin
+  Result := ClassType.Create;
   Result.Name := Name;
-  Result.ValueClass := ClassType;
   Add(Result);
 end;
@@ -395 +494 @@
 var
   Funct: TSourceFunction;
+  Typ: TSourceType;
 begin
   Functions.Clear;
 
   // Init types
-  Types.AddNew('Integer', TSourceValueInteger);
-  Types.AddNew('String', TSourceValueString);
+  Types.AddNew('Integer', TSourceTypeInteger);
+  Types.AddNew('String', TSourceTypeString);
+  Typ := Types.AddNew('StringArray', TSourceTypeArray);
+  TSourceTypeArray(Typ).ItemType := TSourceTypeString.Create;
+  Typ := Types.AddNew('IntegerArray', TSourceTypeArray);
+  TSourceTypeArray(Typ).ItemType := TSourceTypeInteger.Create;
 
   // Init functions