Changeset 65 for branches/Transpascal/Compiler/USourceCode.pas

Timestamp:

Oct 18, 2010, 8:53:48 AM (14 years ago)

Author:

george

Message:

Added: Base parsing of class, pointer and enumeration.

File:

• branches/Transpascal/Compiler/USourceCode.pas (modified) (3 diffs)

branches/Transpascal/Compiler/USourceCode.pas

@@ -158 +158 @@
   end;
 
-  { TTypeRecord }
+  TTypeInherited = class(TType)
+  end;
 
   TTypeRecord = class(TType)
@@ -169 +170 @@
     IndexType: TType;
     ItemType: TType;
+  end;
+
+  TTypePointer = class(TType)
+  end;
+
+  TEnumItem = class
+    Name: string;
+    Index: Integer;
+  end;
+
+  TTypeEnumeration = class(TType)
+    Items: TObjectList; // TObjectList<TEnumItem>
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  { TTypeClass }
+
+  TTypeClass = class(TType)
+    Items: TObjectList; // TObjectList<TType>
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -787 +810 @@
 end;
 
+{ TTypeEnumeration }
+
+constructor TTypeEnumeration.Create;
+begin
+  inherited;
+  Items := TObjectList.Create;
+end;
+
+destructor TTypeEnumeration.Destroy;
+begin
+  Items.Free;
+  inherited Destroy;
+end;
+
+{ TTypeClass }
+
+constructor TTypeClass.Create;
+begin
+  Items := TObjectList.Create;
+end;
+
+destructor TTypeClass.Destroy;
+begin
+  Items.Free;
+  inherited Destroy;
+end;
+
 end.