[Instantobjects-cvscommit] Source/Core InstantDBBuild.pas,1.11,1.12 InstantPersistence.pas,1.71,1.72

[Enrique E. <the...@us...>]

Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24701/Core

Modified Files:
	InstantDBBuild.pas InstantPersistence.pas 
Log Message:
Added Assign method to metadata classes and test support to that methods

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.71
retrieving revision 1.72
diff -C2 -d -r1.71 -r1.72
*** InstantPersistence.pas	31 Oct 2005 23:43:38 -0000	1.71
--- InstantPersistence.pas	6 Nov 2005 20:37:11 -0000	1.72
***************
*** 286,289 ****
--- 286,290 ----
    public
      constructor Create(ACollection: TInstantFieldMetadatas); reintroduce;
+     procedure Assign(Source: TPersistent); override;
      // Returns True if one of the data types of Other (Other.DataType and
      // Other.AlternateDataTypes) equals one of the data types of Self.
***************
*** 331,334 ****
--- 332,336 ----
    public
      constructor Create(ACollection: TInstantMetadatas); reintroduce;
+     procedure Assign(Source: TPersistent); override;
      property Collection: TInstantIndexMetadatas read GetCollection;
      // Returns True if the field identified by AFieldMetadata is part of this
***************
*** 371,374 ****
--- 373,377 ----
    public
      destructor Destroy; override;
+     procedure Assign(Source: TPersistent); override;
      property Scheme: TInstantScheme read GetScheme;
    published
***************
*** 3753,3756 ****
--- 3756,3772 ----
  { TInstantFieldMetadata }
  
+ procedure TInstantFieldMetadata.Assign(Source: TPersistent);
+ begin
+   inherited;
+   if Source is TInstantFieldMetadata then
+     with TInstantFieldMetadata(Source) do
+     begin
+       Self.FDataType := FDataType;
+       Self.FAlternateDataTypes := FAlternateDataTypes;
+       Self.FOptions := FOptions;
+       Self.FSize := FSize;
+     end;
+ end;
+ 
  constructor TInstantFieldMetadata.Create(ACollection: TInstantFieldMetadatas);
  begin
***************
*** 3836,3839 ****
--- 3852,3866 ----
  { TInstantIndexMetadata }
  
+ procedure TInstantIndexMetadata.Assign(Source: TPersistent);
+ begin
+   inherited;
+   if Source is TInstantIndexMetadata then
+     with TInstantIndexMetadata(Source) do
+     begin
+       Self.FFields := FFields;
+       Self.FOptions := FOptions;
+     end;
+ end;
+ 
  constructor TInstantIndexMetadata.Create(ACollection: TInstantMetadatas);
  begin
***************
*** 3945,3948 ****
--- 3972,3986 ----
  { TInstantTableMetadata }
  
+ procedure TInstantTableMetadata.Assign(Source: TPersistent);
+ begin
+   inherited;
+   if Source is TInstantTableMetadata then
+     with TInstantTableMetadata(Source) do
+     begin
+       Self.FieldMetadatas.Assign(FieldMetadatas);
+       Self.IndexMetadatas.Assign(IndexMetadatas);
+     end;
+ end;
+ 
  destructor TInstantTableMetadata.Destroy;
  begin

Index: InstantDBBuild.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantDBBuild.pas,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** InstantDBBuild.pas	2 Nov 2005 18:49:48 -0000	1.11
--- InstantDBBuild.pas	6 Nov 2005 20:37:11 -0000	1.12
***************
*** 1037,1045 ****
    begin
      Result := TInstantFieldMetadata.Create(FieldMetadata.Collection);
      Result.Name := FieldMetadata.Name + STmpFieldSuffix;
-     Result.DataType := FieldMetadata.DataType;
-     Result.AlternateDataTypes := FieldMetadata.AlternateDataTypes;
-     Result.Options := FieldMetadata.Options;
-     Result.Size := FieldMetadata.Size;
    end;
  
--- 1037,1042 ----
    begin
      Result := TInstantFieldMetadata.Create(FieldMetadata.Collection);
+     Result.Assign(FieldMetadata);
      Result.Name := FieldMetadata.Name + STmpFieldSuffix;
    end;