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,
|
