[Instantobjects-cvscommit] Source/Core InstantPersistence.pas,1.17,1.18

[Nando D. <na...@us...>]

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

Modified Files:
	InstantPersistence.pas 
Log Message:
initial statement cache implementation; minimal statement logging; fix for external collections

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** InstantPersistence.pas	13 Dec 2004 08:57:29 -0000	1.17
--- InstantPersistence.pas	3 Feb 2005 17:01:59 -0000	1.18
***************
*** 1580,1584 ****
    public
      constructor Create(AConnector: TInstantConnector); virtual;
!     destructor destroy; override; 
      procedure BuildDatabase(Scheme: TInstantScheme);
      function CreateQuery: TInstantQuery;
--- 1580,1584 ----
    public
      constructor Create(AConnector: TInstantConnector); virtual;
!     destructor Destroy; override; 
      procedure BuildDatabase(Scheme: TInstantScheme);
[...1344 lines suppressed...]
+   // TODO : implement a shrink policy here when the cache can be limited in size.
+   // currently the cache is always unlimited if enabled (Capacity <> 0).
+ end;
+ 
+ { TInstantStatement }
+ 
+ constructor TInstantStatement.Create(const AStatementImplementation: TComponent);
+ begin
+   inherited Create;
+   FStatementImplementation := AStatementImplementation;
+ end;
+ 
+ destructor TInstantStatement.Destroy;
+ begin
+   FStatementImplementation.Free;
+   inherited;
+ end;
+ 
  initialization
    RegisterClasses([TInstantClassMetadatas, TInstantClassMetadata,