Changeset 24 for trunk/Compiler/USourceCode.pas

Timestamp:

Nov 10, 2010, 9:42:27 AM (14 years ago)

Author:

george

Message:

• Added: Parsing type parameters.
• Fixed: Saving edited files.

File:

• trunk/Compiler/USourceCode.pas (modified) (5 diffs)

trunk/Compiler/USourceCode.pas

@@ -182 +182 @@
   end;
 
+  { TType }
+
   TType = class
     ForwardDeclared: Boolean;
@@ -191 +193 @@
     Exported: Boolean;
     Visibility: TTypeVisibility;
+    Parameters: TTypeList;
+    procedure Assign(Source: TType);
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -468 +474 @@
     'shr', 'as', 'div', 'mod', 'or', 'xor', '-', '+', '=', '>', '<', '<>', '<=',
      '>=', 'is', 'in', ':=');
+
+resourcestring
+  SAssignmentError = 'Assignment error';
 
 implementation
@@ -1071 +1080 @@
 constructor TTypeClass.Create;
 begin
+  inherited;
   Items := TListType.Create;
 end;
@@ -1080 +1090 @@
 end;
 
+{ TType }
+
+procedure TType.Assign(Source: TType);
+var
+  I: Integer;
+  NewType: TType;
+begin
+  if Assigned(Source) then begin
+    Name := Source.Name;
+    Parameters.Clear;
+    for I := 0 to Source.Parameters.Count - 1 do begin
+      NewType := TType.Create;
+      //NewType := TType(Source.Parameters[I].ClassType.Create);
+      NewType.Assign(Source.Parameters[I]);
+      Parameters.Add(NewType);
+    end;
+    Visibility := Source.Visibility;
+    Parent := Source.Parent;
+    Internal := Source.Internal;
+    ForwardDeclared := Source.ForwardDeclared;
+    Exported := Source.Exported;
+    Size := Source.Size;
+    UsedType := Source.UsedType;
+  end else raise Exception.Create(SAssignmentError);
+end;
+
+constructor TType.Create;
+begin
+  Parameters := TTypeList.Create;
+  //Parameters.Parent := Parent.Parent;
+end;
+
+destructor TType.Destroy;
+begin
+  Parameters.Free;
+  inherited Destroy;
+end;
+
 end.